{- This file was auto-generated from RequestReply.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.RequestReply (
        Address(), FromFunction(), FromFunction'Response(..),
        _FromFunction'InvocationResult,
        _FromFunction'IncompleteInvocationContext',
        FromFunction'DelayedInvocation(), FromFunction'EgressMessage(),
        FromFunction'ExpirationSpec(),
        FromFunction'ExpirationSpec'ExpireMode(..),
        FromFunction'ExpirationSpec'ExpireMode(),
        FromFunction'ExpirationSpec'ExpireMode'UnrecognizedValue,
        FromFunction'IncompleteInvocationContext(),
        FromFunction'Invocation(), FromFunction'InvocationResponse(),
        FromFunction'PersistedValueMutation(),
        FromFunction'PersistedValueMutation'MutationType(..),
        FromFunction'PersistedValueMutation'MutationType(),
        FromFunction'PersistedValueMutation'MutationType'UnrecognizedValue,
        FromFunction'PersistedValueSpec(), ToFunction(),
        ToFunction'Request(..), _ToFunction'Invocation',
        ToFunction'Invocation(), ToFunction'InvocationBatchRequest(),
        ToFunction'PersistedValue(), TypedValue()
    ) 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
{- | Fields :
     
         * 'Proto.RequestReply_Fields.namespace' @:: Lens' Address Data.Text.Text@
         * 'Proto.RequestReply_Fields.type'' @:: Lens' Address Data.Text.Text@
         * 'Proto.RequestReply_Fields.id' @:: Lens' Address Data.Text.Text@ -}
data Address
  = Address'_constructor {Address -> Text
_Address'namespace :: !Data.Text.Text,
                          Address -> Text
_Address'type' :: !Data.Text.Text,
                          Address -> Text
_Address'id :: !Data.Text.Text,
                          Address -> FieldSet
_Address'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (Address -> Address -> Bool
(Address -> Address -> Bool)
-> (Address -> Address -> Bool) -> Eq Address
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Address -> Address -> Bool
$c/= :: Address -> Address -> Bool
== :: Address -> Address -> Bool
$c== :: Address -> Address -> Bool
Prelude.Eq, Eq Address
Eq Address =>
(Address -> Address -> Ordering)
-> (Address -> Address -> Bool)
-> (Address -> Address -> Bool)
-> (Address -> Address -> Bool)
-> (Address -> Address -> Bool)
-> (Address -> Address -> Address)
-> (Address -> Address -> Address)
-> Ord Address
Address -> Address -> Bool
Address -> Address -> Ordering
Address -> Address -> Address
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
min :: Address -> Address -> Address
$cmin :: Address -> Address -> Address
max :: Address -> Address -> Address
$cmax :: Address -> Address -> Address
>= :: Address -> Address -> Bool
$c>= :: Address -> Address -> Bool
> :: Address -> Address -> Bool
$c> :: Address -> Address -> Bool
<= :: Address -> Address -> Bool
$c<= :: Address -> Address -> Bool
< :: Address -> Address -> Bool
$c< :: Address -> Address -> Bool
compare :: Address -> Address -> Ordering
$ccompare :: Address -> Address -> Ordering
$cp1Ord :: Eq Address
Prelude.Ord)
instance Prelude.Show Address where
  showsPrec :: Int -> Address -> ShowS
showsPrec _ __x :: Address
__x __s :: String
__s
    = Char -> ShowS
Prelude.showChar
        '{'
        (String -> ShowS
Prelude.showString
           (Address -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort Address
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField Address "namespace" Data.Text.Text where
  fieldOf :: Proxy# "namespace" -> (Text -> f Text) -> Address -> f Address
fieldOf _
    = ((Text -> f Text) -> Address -> f Address)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> Address
-> f Address
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Address -> Text)
-> (Address -> Text -> Address) -> Lens Address Address Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Address -> Text
_Address'namespace (\ x__ :: Address
x__ y__ :: Text
y__ -> Address
x__ {_Address'namespace :: Text
_Address'namespace = Text
y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Address "type'" Data.Text.Text where
  fieldOf :: Proxy# "type'" -> (Text -> f Text) -> Address -> f Address
fieldOf _
    = ((Text -> f Text) -> Address -> f Address)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> Address
-> f Address
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Address -> Text)
-> (Address -> Text -> Address) -> Lens Address Address Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Address -> Text
_Address'type' (\ x__ :: Address
x__ y__ :: Text
y__ -> Address
x__ {_Address'type' :: Text
_Address'type' = Text
y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Address "id" Data.Text.Text where
  fieldOf :: Proxy# "id" -> (Text -> f Text) -> Address -> f Address
fieldOf _
    = ((Text -> f Text) -> Address -> f Address)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> Address
-> f Address
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Address -> Text)
-> (Address -> Text -> Address) -> Lens Address Address Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Address -> Text
_Address'id (\ x__ :: Address
x__ y__ :: Text
y__ -> Address
x__ {_Address'id :: Text
_Address'id = Text
y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message Address where
  messageName :: Proxy Address -> Text
messageName _ = String -> Text
Data.Text.pack "io.statefun.sdk.reqreply.Address"
  packedMessageDescriptor :: Proxy Address -> ByteString
packedMessageDescriptor _
    = "\n\
      \\aAddress\DC2\FS\n\
      \\tnamespace\CAN\SOH \SOH(\tR\tnamespace\DC2\DC2\n\
      \\EOTtype\CAN\STX \SOH(\tR\EOTtype\DC2\SO\n\
      \\STXid\CAN\ETX \SOH(\tR\STXid"
  packedFileDescriptor :: Proxy Address -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor Address)
fieldsByTag
    = let
        namespace__field_descriptor :: FieldDescriptor Address
namespace__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor Address Text
-> FieldDescriptor Address
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "namespace"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (WireDefault Text
-> Lens Address Address Text Text -> FieldAccessor Address Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
                 (forall s a (f :: * -> *).
(HasField s "namespace" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"namespace")) ::
              Data.ProtoLens.FieldDescriptor Address
        type'__field_descriptor :: FieldDescriptor Address
type'__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor Address Text
-> FieldDescriptor Address
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "type"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (WireDefault Text
-> Lens Address Address Text Text -> FieldAccessor Address Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall s a (f :: * -> *).
(HasField s "type'" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"type'")) ::
              Data.ProtoLens.FieldDescriptor Address
        id__field_descriptor :: FieldDescriptor Address
id__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor Address Text
-> FieldDescriptor Address
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "id"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (WireDefault Text
-> Lens Address Address Text Text -> FieldAccessor Address Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall s a (f :: * -> *).
(HasField s "id" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"id")) ::
              Data.ProtoLens.FieldDescriptor Address
      in
        [(Tag, FieldDescriptor Address)]
-> Map Tag (FieldDescriptor Address)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor Address
namespace__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor Address
type'__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 3, FieldDescriptor Address
id__field_descriptor)]
  unknownFields :: LensLike' f Address FieldSet
unknownFields
    = (Address -> FieldSet)
-> (Address -> FieldSet -> Address) -> Lens' Address FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        Address -> FieldSet
_Address'_unknownFields
        (\ x__ :: Address
x__ y__ :: FieldSet
y__ -> Address
x__ {_Address'_unknownFields :: FieldSet
_Address'_unknownFields = FieldSet
y__})
  defMessage :: Address
defMessage
    = $WAddress'_constructor :: Text -> Text -> Text -> FieldSet -> Address
Address'_constructor
        {_Address'namespace :: Text
_Address'namespace = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _Address'type' :: Text
_Address'type' = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _Address'id :: Text
_Address'id = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _Address'_unknownFields :: FieldSet
_Address'_unknownFields = []}
  parseMessage :: Parser Address
parseMessage
    = let
        loop :: Address -> Data.ProtoLens.Encoding.Bytes.Parser Address
        loop :: Address -> Parser Address
loop x :: Address
x
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  "Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      Address -> Parser Address
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter Address Address FieldSet FieldSet
-> (FieldSet -> FieldSet) -> Address -> Address
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           forall msg. Message msg => Lens' msg FieldSet
Setter Address Address FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) Address
x)
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        10
                          -> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                       Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                                         (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                           Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
                                             (case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
                                                (Prelude.Left err :: UnicodeException
err)
                                                  -> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
                                                (Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
                                       "namespace"
                                Address -> Parser Address
loop
                                  (Setter Address Address Text Text -> Text -> Address -> Address
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "namespace" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"namespace") Text
y Address
x)
                        18
                          -> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                       Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                                         (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                           Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
                                             (case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
                                                (Prelude.Left err :: UnicodeException
err)
                                                  -> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
                                                (Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
                                       "type"
                                Address -> Parser Address
loop (Setter Address Address Text Text -> Text -> Address -> Address
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "type'" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"type'") Text
y Address
x)
                        26
                          -> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                       Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                                         (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                           Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
                                             (case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
                                                (Prelude.Left err :: UnicodeException
err)
                                                  -> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
                                                (Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
                                       "id"
                                Address -> Parser Address
loop (Setter Address Address Text Text -> Text -> Address -> Address
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "id" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"id") Text
y Address
x)
                        wire :: Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                Address -> Parser Address
loop
                                  (Setter Address Address FieldSet FieldSet
-> (FieldSet -> FieldSet) -> Address -> Address
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     forall msg. Message msg => Lens' msg FieldSet
Setter Address Address FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) Address
x)
      in
        Parser Address -> String -> Parser Address
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Address -> Parser Address
loop Address
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "Address"
  buildMessage :: Address -> Builder
buildMessage
    = \ _x :: Address
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: Text
_v = FoldLike Text Address Address Text Text -> Address -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "namespace" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"namespace") Address
_x
              in
                if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
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 10)
                      ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                         (\ bs :: 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))
                         Text -> ByteString
Data.Text.Encoding.encodeUtf8
                         Text
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (let
                   _v :: Text
_v = FoldLike Text Address Address Text Text -> Address -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "type'" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"type'") Address
_x
                 in
                   if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
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 18)
                         ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                            (\ bs :: 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))
                            Text -> ByteString
Data.Text.Encoding.encodeUtf8
                            Text
_v))
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   (let _v :: Text
_v = FoldLike Text Address Address Text Text -> Address -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "id" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"id") Address
_x
                    in
                      if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
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 26)
                            ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                               (\ bs :: 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))
                               Text -> ByteString
Data.Text.Encoding.encodeUtf8
                               Text
_v))
                   (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                      (FoldLike FieldSet Address Address FieldSet FieldSet
-> Address -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet Address Address FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields Address
_x))))
instance Control.DeepSeq.NFData Address where
  rnf :: Address -> ()
rnf
    = \ x__ :: Address
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (Address -> FieldSet
_Address'_unknownFields Address
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (Address -> Text
_Address'namespace Address
x__)
                (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (Address -> Text
_Address'type' Address
x__)
                   (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (Address -> Text
_Address'id Address
x__) ())))
{- | Fields :
     
         * 'Proto.RequestReply_Fields.maybe'response' @:: Lens' FromFunction (Prelude.Maybe FromFunction'Response)@
         * 'Proto.RequestReply_Fields.maybe'invocationResult' @:: Lens' FromFunction (Prelude.Maybe FromFunction'InvocationResponse)@
         * 'Proto.RequestReply_Fields.invocationResult' @:: Lens' FromFunction FromFunction'InvocationResponse@
         * 'Proto.RequestReply_Fields.maybe'incompleteInvocationContext' @:: Lens' FromFunction (Prelude.Maybe FromFunction'IncompleteInvocationContext)@
         * 'Proto.RequestReply_Fields.incompleteInvocationContext' @:: Lens' FromFunction FromFunction'IncompleteInvocationContext@ -}
data FromFunction
  = FromFunction'_constructor {FromFunction -> Maybe FromFunction'Response
_FromFunction'response :: !(Prelude.Maybe FromFunction'Response),
                               FromFunction -> FieldSet
_FromFunction'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (FromFunction -> FromFunction -> Bool
(FromFunction -> FromFunction -> Bool)
-> (FromFunction -> FromFunction -> Bool) -> Eq FromFunction
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: FromFunction -> FromFunction -> Bool
$c/= :: FromFunction -> FromFunction -> Bool
== :: FromFunction -> FromFunction -> Bool
$c== :: FromFunction -> FromFunction -> Bool
Prelude.Eq, Eq FromFunction
Eq FromFunction =>
(FromFunction -> FromFunction -> Ordering)
-> (FromFunction -> FromFunction -> Bool)
-> (FromFunction -> FromFunction -> Bool)
-> (FromFunction -> FromFunction -> Bool)
-> (FromFunction -> FromFunction -> Bool)
-> (FromFunction -> FromFunction -> FromFunction)
-> (FromFunction -> FromFunction -> FromFunction)
-> Ord FromFunction
FromFunction -> FromFunction -> Bool
FromFunction -> FromFunction -> Ordering
FromFunction -> FromFunction -> FromFunction
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
min :: FromFunction -> FromFunction -> FromFunction
$cmin :: FromFunction -> FromFunction -> FromFunction
max :: FromFunction -> FromFunction -> FromFunction
$cmax :: FromFunction -> FromFunction -> FromFunction
>= :: FromFunction -> FromFunction -> Bool
$c>= :: FromFunction -> FromFunction -> Bool
> :: FromFunction -> FromFunction -> Bool
$c> :: FromFunction -> FromFunction -> Bool
<= :: FromFunction -> FromFunction -> Bool
$c<= :: FromFunction -> FromFunction -> Bool
< :: FromFunction -> FromFunction -> Bool
$c< :: FromFunction -> FromFunction -> Bool
compare :: FromFunction -> FromFunction -> Ordering
$ccompare :: FromFunction -> FromFunction -> Ordering
$cp1Ord :: Eq FromFunction
Prelude.Ord)
instance Prelude.Show FromFunction where
  showsPrec :: Int -> FromFunction -> ShowS
showsPrec _ __x :: FromFunction
__x __s :: String
__s
    = Char -> ShowS
Prelude.showChar
        '{'
        (String -> ShowS
Prelude.showString
           (FromFunction -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort FromFunction
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
data FromFunction'Response
  = FromFunction'InvocationResult !FromFunction'InvocationResponse |
    FromFunction'IncompleteInvocationContext' !FromFunction'IncompleteInvocationContext
  deriving stock (Int -> FromFunction'Response -> ShowS
[FromFunction'Response] -> ShowS
FromFunction'Response -> String
(Int -> FromFunction'Response -> ShowS)
-> (FromFunction'Response -> String)
-> ([FromFunction'Response] -> ShowS)
-> Show FromFunction'Response
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [FromFunction'Response] -> ShowS
$cshowList :: [FromFunction'Response] -> ShowS
show :: FromFunction'Response -> String
$cshow :: FromFunction'Response -> String
showsPrec :: Int -> FromFunction'Response -> ShowS
$cshowsPrec :: Int -> FromFunction'Response -> ShowS
Prelude.Show, FromFunction'Response -> FromFunction'Response -> Bool
(FromFunction'Response -> FromFunction'Response -> Bool)
-> (FromFunction'Response -> FromFunction'Response -> Bool)
-> Eq FromFunction'Response
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: FromFunction'Response -> FromFunction'Response -> Bool
$c/= :: FromFunction'Response -> FromFunction'Response -> Bool
== :: FromFunction'Response -> FromFunction'Response -> Bool
$c== :: FromFunction'Response -> FromFunction'Response -> Bool
Prelude.Eq, Eq FromFunction'Response
Eq FromFunction'Response =>
(FromFunction'Response -> FromFunction'Response -> Ordering)
-> (FromFunction'Response -> FromFunction'Response -> Bool)
-> (FromFunction'Response -> FromFunction'Response -> Bool)
-> (FromFunction'Response -> FromFunction'Response -> Bool)
-> (FromFunction'Response -> FromFunction'Response -> Bool)
-> (FromFunction'Response
    -> FromFunction'Response -> FromFunction'Response)
-> (FromFunction'Response
    -> FromFunction'Response -> FromFunction'Response)
-> Ord FromFunction'Response
FromFunction'Response -> FromFunction'Response -> Bool
FromFunction'Response -> FromFunction'Response -> Ordering
FromFunction'Response
-> FromFunction'Response -> FromFunction'Response
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
min :: FromFunction'Response
-> FromFunction'Response -> FromFunction'Response
$cmin :: FromFunction'Response
-> FromFunction'Response -> FromFunction'Response
max :: FromFunction'Response
-> FromFunction'Response -> FromFunction'Response
$cmax :: FromFunction'Response
-> FromFunction'Response -> FromFunction'Response
>= :: FromFunction'Response -> FromFunction'Response -> Bool
$c>= :: FromFunction'Response -> FromFunction'Response -> Bool
> :: FromFunction'Response -> FromFunction'Response -> Bool
$c> :: FromFunction'Response -> FromFunction'Response -> Bool
<= :: FromFunction'Response -> FromFunction'Response -> Bool
$c<= :: FromFunction'Response -> FromFunction'Response -> Bool
< :: FromFunction'Response -> FromFunction'Response -> Bool
$c< :: FromFunction'Response -> FromFunction'Response -> Bool
compare :: FromFunction'Response -> FromFunction'Response -> Ordering
$ccompare :: FromFunction'Response -> FromFunction'Response -> Ordering
$cp1Ord :: Eq FromFunction'Response
Prelude.Ord)
instance Data.ProtoLens.Field.HasField FromFunction "maybe'response" (Prelude.Maybe FromFunction'Response) where
  fieldOf :: Proxy# "maybe'response"
-> (Maybe FromFunction'Response -> f (Maybe FromFunction'Response))
-> FromFunction
-> f FromFunction
fieldOf _
    = ((Maybe FromFunction'Response -> f (Maybe FromFunction'Response))
 -> FromFunction -> f FromFunction)
-> ((Maybe FromFunction'Response
     -> f (Maybe FromFunction'Response))
    -> Maybe FromFunction'Response -> f (Maybe FromFunction'Response))
-> (Maybe FromFunction'Response -> f (Maybe FromFunction'Response))
-> FromFunction
-> f FromFunction
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FromFunction -> Maybe FromFunction'Response)
-> (FromFunction -> Maybe FromFunction'Response -> FromFunction)
-> Lens
     FromFunction
     FromFunction
     (Maybe FromFunction'Response)
     (Maybe FromFunction'Response)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FromFunction -> Maybe FromFunction'Response
_FromFunction'response
           (\ x__ :: FromFunction
x__ y__ :: Maybe FromFunction'Response
y__ -> FromFunction
x__ {_FromFunction'response :: Maybe FromFunction'Response
_FromFunction'response = Maybe FromFunction'Response
y__}))
        (Maybe FromFunction'Response -> f (Maybe FromFunction'Response))
-> Maybe FromFunction'Response -> f (Maybe FromFunction'Response)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField FromFunction "maybe'invocationResult" (Prelude.Maybe FromFunction'InvocationResponse) where
  fieldOf :: Proxy# "maybe'invocationResult"
-> (Maybe FromFunction'InvocationResponse
    -> f (Maybe FromFunction'InvocationResponse))
-> FromFunction
-> f FromFunction
fieldOf _
    = ((Maybe FromFunction'Response -> f (Maybe FromFunction'Response))
 -> FromFunction -> f FromFunction)
-> ((Maybe FromFunction'InvocationResponse
     -> f (Maybe FromFunction'InvocationResponse))
    -> Maybe FromFunction'Response -> f (Maybe FromFunction'Response))
-> (Maybe FromFunction'InvocationResponse
    -> f (Maybe FromFunction'InvocationResponse))
-> FromFunction
-> f FromFunction
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FromFunction -> Maybe FromFunction'Response)
-> (FromFunction -> Maybe FromFunction'Response -> FromFunction)
-> Lens
     FromFunction
     FromFunction
     (Maybe FromFunction'Response)
     (Maybe FromFunction'Response)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FromFunction -> Maybe FromFunction'Response
_FromFunction'response
           (\ x__ :: FromFunction
x__ y__ :: Maybe FromFunction'Response
y__ -> FromFunction
x__ {_FromFunction'response :: Maybe FromFunction'Response
_FromFunction'response = Maybe FromFunction'Response
y__}))
        ((Maybe FromFunction'Response
 -> Maybe FromFunction'InvocationResponse)
-> (Maybe FromFunction'Response
    -> Maybe FromFunction'InvocationResponse
    -> Maybe FromFunction'Response)
-> Lens
     (Maybe FromFunction'Response)
     (Maybe FromFunction'Response)
     (Maybe FromFunction'InvocationResponse)
     (Maybe FromFunction'InvocationResponse)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ x__ :: Maybe FromFunction'Response
x__
              -> case Maybe FromFunction'Response
x__ of
                   (Prelude.Just (FromFunction'InvocationResult x__val :: FromFunction'InvocationResponse
x__val))
                     -> FromFunction'InvocationResponse
-> Maybe FromFunction'InvocationResponse
forall a. a -> Maybe a
Prelude.Just FromFunction'InvocationResponse
x__val
                   _otherwise :: Maybe FromFunction'Response
_otherwise -> Maybe FromFunction'InvocationResponse
forall a. Maybe a
Prelude.Nothing)
           (\ _ y__ :: Maybe FromFunction'InvocationResponse
y__ -> (FromFunction'InvocationResponse -> FromFunction'Response)
-> Maybe FromFunction'InvocationResponse
-> Maybe FromFunction'Response
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap FromFunction'InvocationResponse -> FromFunction'Response
FromFunction'InvocationResult Maybe FromFunction'InvocationResponse
y__))
instance Data.ProtoLens.Field.HasField FromFunction "invocationResult" FromFunction'InvocationResponse where
  fieldOf :: Proxy# "invocationResult"
-> (FromFunction'InvocationResponse
    -> f FromFunction'InvocationResponse)
-> FromFunction
-> f FromFunction
fieldOf _
    = ((Maybe FromFunction'Response -> f (Maybe FromFunction'Response))
 -> FromFunction -> f FromFunction)
-> ((FromFunction'InvocationResponse
     -> f FromFunction'InvocationResponse)
    -> Maybe FromFunction'Response -> f (Maybe FromFunction'Response))
-> (FromFunction'InvocationResponse
    -> f FromFunction'InvocationResponse)
-> FromFunction
-> f FromFunction
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FromFunction -> Maybe FromFunction'Response)
-> (FromFunction -> Maybe FromFunction'Response -> FromFunction)
-> Lens
     FromFunction
     FromFunction
     (Maybe FromFunction'Response)
     (Maybe FromFunction'Response)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FromFunction -> Maybe FromFunction'Response
_FromFunction'response
           (\ x__ :: FromFunction
x__ y__ :: Maybe FromFunction'Response
y__ -> FromFunction
x__ {_FromFunction'response :: Maybe FromFunction'Response
_FromFunction'response = Maybe FromFunction'Response
y__}))
        (((Maybe FromFunction'InvocationResponse
  -> f (Maybe FromFunction'InvocationResponse))
 -> Maybe FromFunction'Response -> f (Maybe FromFunction'Response))
-> ((FromFunction'InvocationResponse
     -> f FromFunction'InvocationResponse)
    -> Maybe FromFunction'InvocationResponse
    -> f (Maybe FromFunction'InvocationResponse))
-> (FromFunction'InvocationResponse
    -> f FromFunction'InvocationResponse)
-> Maybe FromFunction'Response
-> f (Maybe FromFunction'Response)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe FromFunction'Response
 -> Maybe FromFunction'InvocationResponse)
-> (Maybe FromFunction'Response
    -> Maybe FromFunction'InvocationResponse
    -> Maybe FromFunction'Response)
-> Lens
     (Maybe FromFunction'Response)
     (Maybe FromFunction'Response)
     (Maybe FromFunction'InvocationResponse)
     (Maybe FromFunction'InvocationResponse)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ x__ :: Maybe FromFunction'Response
x__
                 -> case Maybe FromFunction'Response
x__ of
                      (Prelude.Just (FromFunction'InvocationResult x__val :: FromFunction'InvocationResponse
x__val))
                        -> FromFunction'InvocationResponse
-> Maybe FromFunction'InvocationResponse
forall a. a -> Maybe a
Prelude.Just FromFunction'InvocationResponse
x__val
                      _otherwise :: Maybe FromFunction'Response
_otherwise -> Maybe FromFunction'InvocationResponse
forall a. Maybe a
Prelude.Nothing)
              (\ _ y__ :: Maybe FromFunction'InvocationResponse
y__ -> (FromFunction'InvocationResponse -> FromFunction'Response)
-> Maybe FromFunction'InvocationResponse
-> Maybe FromFunction'Response
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap FromFunction'InvocationResponse -> FromFunction'Response
FromFunction'InvocationResult Maybe FromFunction'InvocationResponse
y__))
           (FromFunction'InvocationResponse
-> Lens'
     (Maybe FromFunction'InvocationResponse)
     FromFunction'InvocationResponse
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens FromFunction'InvocationResponse
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField FromFunction "maybe'incompleteInvocationContext" (Prelude.Maybe FromFunction'IncompleteInvocationContext) where
  fieldOf :: Proxy# "maybe'incompleteInvocationContext"
-> (Maybe FromFunction'IncompleteInvocationContext
    -> f (Maybe FromFunction'IncompleteInvocationContext))
-> FromFunction
-> f FromFunction
fieldOf _
    = ((Maybe FromFunction'Response -> f (Maybe FromFunction'Response))
 -> FromFunction -> f FromFunction)
-> ((Maybe FromFunction'IncompleteInvocationContext
     -> f (Maybe FromFunction'IncompleteInvocationContext))
    -> Maybe FromFunction'Response -> f (Maybe FromFunction'Response))
-> (Maybe FromFunction'IncompleteInvocationContext
    -> f (Maybe FromFunction'IncompleteInvocationContext))
-> FromFunction
-> f FromFunction
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FromFunction -> Maybe FromFunction'Response)
-> (FromFunction -> Maybe FromFunction'Response -> FromFunction)
-> Lens
     FromFunction
     FromFunction
     (Maybe FromFunction'Response)
     (Maybe FromFunction'Response)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FromFunction -> Maybe FromFunction'Response
_FromFunction'response
           (\ x__ :: FromFunction
x__ y__ :: Maybe FromFunction'Response
y__ -> FromFunction
x__ {_FromFunction'response :: Maybe FromFunction'Response
_FromFunction'response = Maybe FromFunction'Response
y__}))
        ((Maybe FromFunction'Response
 -> Maybe FromFunction'IncompleteInvocationContext)
-> (Maybe FromFunction'Response
    -> Maybe FromFunction'IncompleteInvocationContext
    -> Maybe FromFunction'Response)
-> Lens
     (Maybe FromFunction'Response)
     (Maybe FromFunction'Response)
     (Maybe FromFunction'IncompleteInvocationContext)
     (Maybe FromFunction'IncompleteInvocationContext)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ x__ :: Maybe FromFunction'Response
x__
              -> case Maybe FromFunction'Response
x__ of
                   (Prelude.Just (FromFunction'IncompleteInvocationContext' x__val :: FromFunction'IncompleteInvocationContext
x__val))
                     -> FromFunction'IncompleteInvocationContext
-> Maybe FromFunction'IncompleteInvocationContext
forall a. a -> Maybe a
Prelude.Just FromFunction'IncompleteInvocationContext
x__val
                   _otherwise :: Maybe FromFunction'Response
_otherwise -> Maybe FromFunction'IncompleteInvocationContext
forall a. Maybe a
Prelude.Nothing)
           (\ _ y__ :: Maybe FromFunction'IncompleteInvocationContext
y__
              -> (FromFunction'IncompleteInvocationContext -> FromFunction'Response)
-> Maybe FromFunction'IncompleteInvocationContext
-> Maybe FromFunction'Response
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap FromFunction'IncompleteInvocationContext -> FromFunction'Response
FromFunction'IncompleteInvocationContext' Maybe FromFunction'IncompleteInvocationContext
y__))
instance Data.ProtoLens.Field.HasField FromFunction "incompleteInvocationContext" FromFunction'IncompleteInvocationContext where
  fieldOf :: Proxy# "incompleteInvocationContext"
-> (FromFunction'IncompleteInvocationContext
    -> f FromFunction'IncompleteInvocationContext)
-> FromFunction
-> f FromFunction
fieldOf _
    = ((Maybe FromFunction'Response -> f (Maybe FromFunction'Response))
 -> FromFunction -> f FromFunction)
-> ((FromFunction'IncompleteInvocationContext
     -> f FromFunction'IncompleteInvocationContext)
    -> Maybe FromFunction'Response -> f (Maybe FromFunction'Response))
-> (FromFunction'IncompleteInvocationContext
    -> f FromFunction'IncompleteInvocationContext)
-> FromFunction
-> f FromFunction
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FromFunction -> Maybe FromFunction'Response)
-> (FromFunction -> Maybe FromFunction'Response -> FromFunction)
-> Lens
     FromFunction
     FromFunction
     (Maybe FromFunction'Response)
     (Maybe FromFunction'Response)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FromFunction -> Maybe FromFunction'Response
_FromFunction'response
           (\ x__ :: FromFunction
x__ y__ :: Maybe FromFunction'Response
y__ -> FromFunction
x__ {_FromFunction'response :: Maybe FromFunction'Response
_FromFunction'response = Maybe FromFunction'Response
y__}))
        (((Maybe FromFunction'IncompleteInvocationContext
  -> f (Maybe FromFunction'IncompleteInvocationContext))
 -> Maybe FromFunction'Response -> f (Maybe FromFunction'Response))
-> ((FromFunction'IncompleteInvocationContext
     -> f FromFunction'IncompleteInvocationContext)
    -> Maybe FromFunction'IncompleteInvocationContext
    -> f (Maybe FromFunction'IncompleteInvocationContext))
-> (FromFunction'IncompleteInvocationContext
    -> f FromFunction'IncompleteInvocationContext)
-> Maybe FromFunction'Response
-> f (Maybe FromFunction'Response)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe FromFunction'Response
 -> Maybe FromFunction'IncompleteInvocationContext)
-> (Maybe FromFunction'Response
    -> Maybe FromFunction'IncompleteInvocationContext
    -> Maybe FromFunction'Response)
-> Lens
     (Maybe FromFunction'Response)
     (Maybe FromFunction'Response)
     (Maybe FromFunction'IncompleteInvocationContext)
     (Maybe FromFunction'IncompleteInvocationContext)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ x__ :: Maybe FromFunction'Response
x__
                 -> case Maybe FromFunction'Response
x__ of
                      (Prelude.Just (FromFunction'IncompleteInvocationContext' x__val :: FromFunction'IncompleteInvocationContext
x__val))
                        -> FromFunction'IncompleteInvocationContext
-> Maybe FromFunction'IncompleteInvocationContext
forall a. a -> Maybe a
Prelude.Just FromFunction'IncompleteInvocationContext
x__val
                      _otherwise :: Maybe FromFunction'Response
_otherwise -> Maybe FromFunction'IncompleteInvocationContext
forall a. Maybe a
Prelude.Nothing)
              (\ _ y__ :: Maybe FromFunction'IncompleteInvocationContext
y__
                 -> (FromFunction'IncompleteInvocationContext -> FromFunction'Response)
-> Maybe FromFunction'IncompleteInvocationContext
-> Maybe FromFunction'Response
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap FromFunction'IncompleteInvocationContext -> FromFunction'Response
FromFunction'IncompleteInvocationContext' Maybe FromFunction'IncompleteInvocationContext
y__))
           (FromFunction'IncompleteInvocationContext
-> Lens'
     (Maybe FromFunction'IncompleteInvocationContext)
     FromFunction'IncompleteInvocationContext
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens FromFunction'IncompleteInvocationContext
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Message FromFunction where
  messageName :: Proxy FromFunction -> Text
messageName _
    = String -> Text
Data.Text.pack "io.statefun.sdk.reqreply.FromFunction"
  packedMessageDescriptor :: Proxy FromFunction -> ByteString
packedMessageDescriptor _
    = "\n\
      \\fFromFunction\DC2h\n\
      \\DC1invocation_result\CANd \SOH(\v29.io.statefun.sdk.reqreply.FromFunction.InvocationResponseH\NULR\DLEinvocationResult\DC2\136\SOH\n\
      \\GSincomplete_invocation_context\CANe \SOH(\v2B.io.statefun.sdk.reqreply.FromFunction.IncompleteInvocationContextH\NULR\ESCincompleteInvocationContext\SUB\151\STX\n\
      \\SYNPersistedValueMutation\DC2o\n\
      \\rmutation_type\CAN\SOH \SOH(\SO2J.io.statefun.sdk.reqreply.FromFunction.PersistedValueMutation.MutationTypeR\fmutationType\DC2\GS\n\
      \\n\
      \state_name\CAN\STX \SOH(\tR\tstateName\DC2E\n\
      \\vstate_value\CAN\ETX \SOH(\v2$.io.statefun.sdk.reqreply.TypedValueR\n\
      \stateValue\"&\n\
      \\fMutationType\DC2\n\
      \\n\
      \\ACKDELETE\DLE\NUL\DC2\n\
      \\n\
      \\ACKMODIFY\DLE\SOH\SUB\137\SOH\n\
      \\n\
      \Invocation\DC29\n\
      \\ACKtarget\CAN\SOH \SOH(\v2!.io.statefun.sdk.reqreply.AddressR\ACKtarget\DC2@\n\
      \\bargument\CAN\STX \SOH(\v2$.io.statefun.sdk.reqreply.TypedValueR\bargument\SUB\176\SOH\n\
      \\DC1DelayedInvocation\DC2\RS\n\
      \\vdelay_in_ms\CAN\SOH \SOH(\ETXR\tdelayInMs\DC29\n\
      \\ACKtarget\CAN\STX \SOH(\v2!.io.statefun.sdk.reqreply.AddressR\ACKtarget\DC2@\n\
      \\bargument\CAN\ETX \SOH(\v2$.io.statefun.sdk.reqreply.TypedValueR\bargument\SUB\157\SOH\n\
      \\rEgressMessage\DC2)\n\
      \\DLEegress_namespace\CAN\SOH \SOH(\tR\SIegressNamespace\DC2\US\n\
      \\vegress_type\CAN\STX \SOH(\tR\n\
      \egressType\DC2@\n\
      \\bargument\CAN\ETX \SOH(\v2$.io.statefun.sdk.reqreply.TypedValueR\bargument\SUB\170\ETX\n\
      \\DC2InvocationResponse\DC2f\n\
      \\SIstate_mutations\CAN\SOH \ETX(\v2=.io.statefun.sdk.reqreply.FromFunction.PersistedValueMutationR\SOstateMutations\DC2^\n\
      \\DC1outgoing_messages\CAN\STX \ETX(\v21.io.statefun.sdk.reqreply.FromFunction.InvocationR\DLEoutgoingMessages\DC2i\n\
      \\DC3delayed_invocations\CAN\ETX \ETX(\v28.io.statefun.sdk.reqreply.FromFunction.DelayedInvocationR\DC2delayedInvocations\DC2a\n\
      \\DC1outgoing_egresses\CAN\EOT \ETX(\v24.io.statefun.sdk.reqreply.FromFunction.EgressMessageR\DLEoutgoingEgresses\SUB\209\SOH\n\
      \\SOExpirationSpec\DC2T\n\
      \\EOTmode\CAN\SOH \SOH(\SO2@.io.statefun.sdk.reqreply.FromFunction.ExpirationSpec.ExpireModeR\EOTmode\DC2.\n\
      \\DC3expire_after_millis\CAN\STX \SOH(\ETXR\DC1expireAfterMillis\"9\n\
      \\n\
      \ExpireMode\DC2\b\n\
      \\EOTNONE\DLE\NUL\DC2\SI\n\
      \\vAFTER_WRITE\DLE\SOH\DC2\DLE\n\
      \\fAFTER_INVOKE\DLE\STX\SUB\184\SOH\n\
      \\DC2PersistedValueSpec\DC2\GS\n\
      \\n\
      \state_name\CAN\SOH \SOH(\tR\tstateName\DC2^\n\
      \\SIexpiration_spec\CAN\STX \SOH(\v25.io.statefun.sdk.reqreply.FromFunction.ExpirationSpecR\SOexpirationSpec\DC2#\n\
      \\rtype_typename\CAN\ETX \SOH(\tR\ftypeTypename\SUB\DEL\n\
      \\ESCIncompleteInvocationContext\DC2`\n\
      \\SOmissing_values\CAN\SOH \ETX(\v29.io.statefun.sdk.reqreply.FromFunction.PersistedValueSpecR\rmissingValuesB\n\
      \\n\
      \\bresponse"
  packedFileDescriptor :: Proxy FromFunction -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor FromFunction)
fieldsByTag
    = let
        invocationResult__field_descriptor :: FieldDescriptor FromFunction
invocationResult__field_descriptor
          = String
-> FieldTypeDescriptor FromFunction'InvocationResponse
-> FieldAccessor FromFunction FromFunction'InvocationResponse
-> FieldDescriptor FromFunction
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "invocation_result"
              (MessageOrGroup
-> FieldTypeDescriptor FromFunction'InvocationResponse
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor FromFunction'InvocationResponse)
              (Lens' FromFunction (Maybe FromFunction'InvocationResponse)
-> FieldAccessor FromFunction FromFunction'InvocationResponse
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'invocationResult" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'invocationResult")) ::
              Data.ProtoLens.FieldDescriptor FromFunction
        incompleteInvocationContext__field_descriptor :: FieldDescriptor FromFunction
incompleteInvocationContext__field_descriptor
          = String
-> FieldTypeDescriptor FromFunction'IncompleteInvocationContext
-> FieldAccessor
     FromFunction FromFunction'IncompleteInvocationContext
-> FieldDescriptor FromFunction
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "incomplete_invocation_context"
              (MessageOrGroup
-> FieldTypeDescriptor FromFunction'IncompleteInvocationContext
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor FromFunction'IncompleteInvocationContext)
              (Lens' FromFunction (Maybe FromFunction'IncompleteInvocationContext)
-> FieldAccessor
     FromFunction FromFunction'IncompleteInvocationContext
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'incompleteInvocationContext" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field
                    @"maybe'incompleteInvocationContext")) ::
              Data.ProtoLens.FieldDescriptor FromFunction
      in
        [(Tag, FieldDescriptor FromFunction)]
-> Map Tag (FieldDescriptor FromFunction)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag 100, FieldDescriptor FromFunction
invocationResult__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 101, 
            FieldDescriptor FromFunction
incompleteInvocationContext__field_descriptor)]
  unknownFields :: LensLike' f FromFunction FieldSet
unknownFields
    = (FromFunction -> FieldSet)
-> (FromFunction -> FieldSet -> FromFunction)
-> Lens' FromFunction FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        FromFunction -> FieldSet
_FromFunction'_unknownFields
        (\ x__ :: FromFunction
x__ y__ :: FieldSet
y__ -> FromFunction
x__ {_FromFunction'_unknownFields :: FieldSet
_FromFunction'_unknownFields = FieldSet
y__})
  defMessage :: FromFunction
defMessage
    = $WFromFunction'_constructor :: Maybe FromFunction'Response -> FieldSet -> FromFunction
FromFunction'_constructor
        {_FromFunction'response :: Maybe FromFunction'Response
_FromFunction'response = Maybe FromFunction'Response
forall a. Maybe a
Prelude.Nothing,
         _FromFunction'_unknownFields :: FieldSet
_FromFunction'_unknownFields = []}
  parseMessage :: Parser FromFunction
parseMessage
    = let
        loop ::
          FromFunction -> Data.ProtoLens.Encoding.Bytes.Parser FromFunction
        loop :: FromFunction -> Parser FromFunction
loop x :: FromFunction
x
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  "Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      FromFunction -> Parser FromFunction
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter FromFunction FromFunction FieldSet FieldSet
-> (FieldSet -> FieldSet) -> FromFunction -> FromFunction
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           forall msg. Message msg => Lens' msg FieldSet
Setter FromFunction FromFunction FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) FromFunction
x)
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        802
                          -> do FromFunction'InvocationResponse
y <- Parser FromFunction'InvocationResponse
-> String -> Parser FromFunction'InvocationResponse
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int
-> Parser FromFunction'InvocationResponse
-> Parser FromFunction'InvocationResponse
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser FromFunction'InvocationResponse
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       "invocation_result"
                                FromFunction -> Parser FromFunction
loop
                                  (Setter
  FromFunction
  FromFunction
  FromFunction'InvocationResponse
  FromFunction'InvocationResponse
-> FromFunction'InvocationResponse -> FromFunction -> FromFunction
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                     (forall s a (f :: * -> *).
(HasField s "invocationResult" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"invocationResult") FromFunction'InvocationResponse
y FromFunction
x)
                        810
                          -> do FromFunction'IncompleteInvocationContext
y <- Parser FromFunction'IncompleteInvocationContext
-> String -> Parser FromFunction'IncompleteInvocationContext
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int
-> Parser FromFunction'IncompleteInvocationContext
-> Parser FromFunction'IncompleteInvocationContext
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser FromFunction'IncompleteInvocationContext
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       "incomplete_invocation_context"
                                FromFunction -> Parser FromFunction
loop
                                  (Setter
  FromFunction
  FromFunction
  FromFunction'IncompleteInvocationContext
  FromFunction'IncompleteInvocationContext
-> FromFunction'IncompleteInvocationContext
-> FromFunction
-> FromFunction
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                     (forall s a (f :: * -> *).
(HasField s "incompleteInvocationContext" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"incompleteInvocationContext")
                                     FromFunction'IncompleteInvocationContext
y
                                     FromFunction
x)
                        wire :: Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                FromFunction -> Parser FromFunction
loop
                                  (Setter FromFunction FromFunction FieldSet FieldSet
-> (FieldSet -> FieldSet) -> FromFunction -> FromFunction
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     forall msg. Message msg => Lens' msg FieldSet
Setter FromFunction FromFunction FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) FromFunction
x)
      in
        Parser FromFunction -> String -> Parser FromFunction
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do FromFunction -> Parser FromFunction
loop FromFunction
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "FromFunction"
  buildMessage :: FromFunction -> Builder
buildMessage
    = \ _x :: FromFunction
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe FromFunction'Response)
  FromFunction
  FromFunction
  (Maybe FromFunction'Response)
  (Maybe FromFunction'Response)
-> FromFunction -> Maybe FromFunction'Response
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "maybe'response" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'response") FromFunction
_x
              of
                Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just (FromFunction'InvocationResult v :: FromFunction'InvocationResponse
v))
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 802)
                       ((ByteString -> Builder)
-> (FromFunction'InvocationResponse -> ByteString)
-> FromFunction'InvocationResponse
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                          (\ bs :: 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))
                          FromFunction'InvocationResponse -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                          FromFunction'InvocationResponse
v)
                (Prelude.Just (FromFunction'IncompleteInvocationContext' v :: FromFunction'IncompleteInvocationContext
v))
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 810)
                       ((ByteString -> Builder)
-> (FromFunction'IncompleteInvocationContext -> ByteString)
-> FromFunction'IncompleteInvocationContext
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                          (\ bs :: 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))
                          FromFunction'IncompleteInvocationContext -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                          FromFunction'IncompleteInvocationContext
v))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike FieldSet FromFunction FromFunction FieldSet FieldSet
-> FromFunction -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet FromFunction FromFunction FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields FromFunction
_x))
instance Control.DeepSeq.NFData FromFunction where
  rnf :: FromFunction -> ()
rnf
    = \ x__ :: FromFunction
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (FromFunction -> FieldSet
_FromFunction'_unknownFields FromFunction
x__)
             (Maybe FromFunction'Response -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (FromFunction -> Maybe FromFunction'Response
_FromFunction'response FromFunction
x__) ())
instance Control.DeepSeq.NFData FromFunction'Response where
  rnf :: FromFunction'Response -> ()
rnf (FromFunction'InvocationResult x__ :: FromFunction'InvocationResponse
x__) = FromFunction'InvocationResponse -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf FromFunction'InvocationResponse
x__
  rnf (FromFunction'IncompleteInvocationContext' x__ :: FromFunction'IncompleteInvocationContext
x__)
    = FromFunction'IncompleteInvocationContext -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf FromFunction'IncompleteInvocationContext
x__
_FromFunction'InvocationResult ::
  Data.ProtoLens.Prism.Prism' FromFunction'Response FromFunction'InvocationResponse
_FromFunction'InvocationResult :: p FromFunction'InvocationResponse
  (f FromFunction'InvocationResponse)
-> p FromFunction'Response (f FromFunction'Response)
_FromFunction'InvocationResult
  = (FromFunction'InvocationResponse -> FromFunction'Response)
-> (FromFunction'Response -> Maybe FromFunction'InvocationResponse)
-> Prism
     FromFunction'Response
     FromFunction'Response
     FromFunction'InvocationResponse
     FromFunction'InvocationResponse
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      FromFunction'InvocationResponse -> FromFunction'Response
FromFunction'InvocationResult
      (\ p__ :: FromFunction'Response
p__
         -> case FromFunction'Response
p__ of
              (FromFunction'InvocationResult p__val :: FromFunction'InvocationResponse
p__val) -> FromFunction'InvocationResponse
-> Maybe FromFunction'InvocationResponse
forall a. a -> Maybe a
Prelude.Just FromFunction'InvocationResponse
p__val
              _otherwise :: FromFunction'Response
_otherwise -> Maybe FromFunction'InvocationResponse
forall a. Maybe a
Prelude.Nothing)
_FromFunction'IncompleteInvocationContext' ::
  Data.ProtoLens.Prism.Prism' FromFunction'Response FromFunction'IncompleteInvocationContext
_FromFunction'IncompleteInvocationContext' :: p FromFunction'IncompleteInvocationContext
  (f FromFunction'IncompleteInvocationContext)
-> p FromFunction'Response (f FromFunction'Response)
_FromFunction'IncompleteInvocationContext'
  = (FromFunction'IncompleteInvocationContext -> FromFunction'Response)
-> (FromFunction'Response
    -> Maybe FromFunction'IncompleteInvocationContext)
-> Prism
     FromFunction'Response
     FromFunction'Response
     FromFunction'IncompleteInvocationContext
     FromFunction'IncompleteInvocationContext
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      FromFunction'IncompleteInvocationContext -> FromFunction'Response
FromFunction'IncompleteInvocationContext'
      (\ p__ :: FromFunction'Response
p__
         -> case FromFunction'Response
p__ of
              (FromFunction'IncompleteInvocationContext' p__val :: FromFunction'IncompleteInvocationContext
p__val)
                -> FromFunction'IncompleteInvocationContext
-> Maybe FromFunction'IncompleteInvocationContext
forall a. a -> Maybe a
Prelude.Just FromFunction'IncompleteInvocationContext
p__val
              _otherwise :: FromFunction'Response
_otherwise -> Maybe FromFunction'IncompleteInvocationContext
forall a. Maybe a
Prelude.Nothing)
{- | Fields :
     
         * 'Proto.RequestReply_Fields.delayInMs' @:: Lens' FromFunction'DelayedInvocation Data.Int.Int64@
         * 'Proto.RequestReply_Fields.target' @:: Lens' FromFunction'DelayedInvocation Address@
         * 'Proto.RequestReply_Fields.maybe'target' @:: Lens' FromFunction'DelayedInvocation (Prelude.Maybe Address)@
         * 'Proto.RequestReply_Fields.argument' @:: Lens' FromFunction'DelayedInvocation TypedValue@
         * 'Proto.RequestReply_Fields.maybe'argument' @:: Lens' FromFunction'DelayedInvocation (Prelude.Maybe TypedValue)@ -}
data FromFunction'DelayedInvocation
  = FromFunction'DelayedInvocation'_constructor {FromFunction'DelayedInvocation -> Int64
_FromFunction'DelayedInvocation'delayInMs :: !Data.Int.Int64,
                                                 FromFunction'DelayedInvocation -> Maybe Address
_FromFunction'DelayedInvocation'target :: !(Prelude.Maybe Address),
                                                 FromFunction'DelayedInvocation -> Maybe TypedValue
_FromFunction'DelayedInvocation'argument :: !(Prelude.Maybe TypedValue),
                                                 FromFunction'DelayedInvocation -> FieldSet
_FromFunction'DelayedInvocation'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (FromFunction'DelayedInvocation
-> FromFunction'DelayedInvocation -> Bool
(FromFunction'DelayedInvocation
 -> FromFunction'DelayedInvocation -> Bool)
-> (FromFunction'DelayedInvocation
    -> FromFunction'DelayedInvocation -> Bool)
-> Eq FromFunction'DelayedInvocation
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: FromFunction'DelayedInvocation
-> FromFunction'DelayedInvocation -> Bool
$c/= :: FromFunction'DelayedInvocation
-> FromFunction'DelayedInvocation -> Bool
== :: FromFunction'DelayedInvocation
-> FromFunction'DelayedInvocation -> Bool
$c== :: FromFunction'DelayedInvocation
-> FromFunction'DelayedInvocation -> Bool
Prelude.Eq, Eq FromFunction'DelayedInvocation
Eq FromFunction'DelayedInvocation =>
(FromFunction'DelayedInvocation
 -> FromFunction'DelayedInvocation -> Ordering)
-> (FromFunction'DelayedInvocation
    -> FromFunction'DelayedInvocation -> Bool)
-> (FromFunction'DelayedInvocation
    -> FromFunction'DelayedInvocation -> Bool)
-> (FromFunction'DelayedInvocation
    -> FromFunction'DelayedInvocation -> Bool)
-> (FromFunction'DelayedInvocation
    -> FromFunction'DelayedInvocation -> Bool)
-> (FromFunction'DelayedInvocation
    -> FromFunction'DelayedInvocation
    -> FromFunction'DelayedInvocation)
-> (FromFunction'DelayedInvocation
    -> FromFunction'DelayedInvocation
    -> FromFunction'DelayedInvocation)
-> Ord FromFunction'DelayedInvocation
FromFunction'DelayedInvocation
-> FromFunction'DelayedInvocation -> Bool
FromFunction'DelayedInvocation
-> FromFunction'DelayedInvocation -> Ordering
FromFunction'DelayedInvocation
-> FromFunction'DelayedInvocation -> FromFunction'DelayedInvocation
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
min :: FromFunction'DelayedInvocation
-> FromFunction'DelayedInvocation -> FromFunction'DelayedInvocation
$cmin :: FromFunction'DelayedInvocation
-> FromFunction'DelayedInvocation -> FromFunction'DelayedInvocation
max :: FromFunction'DelayedInvocation
-> FromFunction'DelayedInvocation -> FromFunction'DelayedInvocation
$cmax :: FromFunction'DelayedInvocation
-> FromFunction'DelayedInvocation -> FromFunction'DelayedInvocation
>= :: FromFunction'DelayedInvocation
-> FromFunction'DelayedInvocation -> Bool
$c>= :: FromFunction'DelayedInvocation
-> FromFunction'DelayedInvocation -> Bool
> :: FromFunction'DelayedInvocation
-> FromFunction'DelayedInvocation -> Bool
$c> :: FromFunction'DelayedInvocation
-> FromFunction'DelayedInvocation -> Bool
<= :: FromFunction'DelayedInvocation
-> FromFunction'DelayedInvocation -> Bool
$c<= :: FromFunction'DelayedInvocation
-> FromFunction'DelayedInvocation -> Bool
< :: FromFunction'DelayedInvocation
-> FromFunction'DelayedInvocation -> Bool
$c< :: FromFunction'DelayedInvocation
-> FromFunction'DelayedInvocation -> Bool
compare :: FromFunction'DelayedInvocation
-> FromFunction'DelayedInvocation -> Ordering
$ccompare :: FromFunction'DelayedInvocation
-> FromFunction'DelayedInvocation -> Ordering
$cp1Ord :: Eq FromFunction'DelayedInvocation
Prelude.Ord)
instance Prelude.Show FromFunction'DelayedInvocation where
  showsPrec :: Int -> FromFunction'DelayedInvocation -> ShowS
showsPrec _ __x :: FromFunction'DelayedInvocation
__x __s :: String
__s
    = Char -> ShowS
Prelude.showChar
        '{'
        (String -> ShowS
Prelude.showString
           (FromFunction'DelayedInvocation -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort FromFunction'DelayedInvocation
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField FromFunction'DelayedInvocation "delayInMs" Data.Int.Int64 where
  fieldOf :: Proxy# "delayInMs"
-> (Int64 -> f Int64)
-> FromFunction'DelayedInvocation
-> f FromFunction'DelayedInvocation
fieldOf _
    = ((Int64 -> f Int64)
 -> FromFunction'DelayedInvocation
 -> f FromFunction'DelayedInvocation)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> FromFunction'DelayedInvocation
-> f FromFunction'DelayedInvocation
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FromFunction'DelayedInvocation -> Int64)
-> (FromFunction'DelayedInvocation
    -> Int64 -> FromFunction'DelayedInvocation)
-> Lens
     FromFunction'DelayedInvocation
     FromFunction'DelayedInvocation
     Int64
     Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FromFunction'DelayedInvocation -> Int64
_FromFunction'DelayedInvocation'delayInMs
           (\ x__ :: FromFunction'DelayedInvocation
x__ y__ :: Int64
y__
              -> FromFunction'DelayedInvocation
x__ {_FromFunction'DelayedInvocation'delayInMs :: Int64
_FromFunction'DelayedInvocation'delayInMs = Int64
y__}))
        (Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField FromFunction'DelayedInvocation "target" Address where
  fieldOf :: Proxy# "target"
-> (Address -> f Address)
-> FromFunction'DelayedInvocation
-> f FromFunction'DelayedInvocation
fieldOf _
    = ((Maybe Address -> f (Maybe Address))
 -> FromFunction'DelayedInvocation
 -> f FromFunction'DelayedInvocation)
-> ((Address -> f Address) -> Maybe Address -> f (Maybe Address))
-> (Address -> f Address)
-> FromFunction'DelayedInvocation
-> f FromFunction'DelayedInvocation
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FromFunction'DelayedInvocation -> Maybe Address)
-> (FromFunction'DelayedInvocation
    -> Maybe Address -> FromFunction'DelayedInvocation)
-> Lens
     FromFunction'DelayedInvocation
     FromFunction'DelayedInvocation
     (Maybe Address)
     (Maybe Address)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FromFunction'DelayedInvocation -> Maybe Address
_FromFunction'DelayedInvocation'target
           (\ x__ :: FromFunction'DelayedInvocation
x__ y__ :: Maybe Address
y__ -> FromFunction'DelayedInvocation
x__ {_FromFunction'DelayedInvocation'target :: Maybe Address
_FromFunction'DelayedInvocation'target = Maybe Address
y__}))
        (Address -> Lens' (Maybe Address) Address
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Address
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField FromFunction'DelayedInvocation "maybe'target" (Prelude.Maybe Address) where
  fieldOf :: Proxy# "maybe'target"
-> (Maybe Address -> f (Maybe Address))
-> FromFunction'DelayedInvocation
-> f FromFunction'DelayedInvocation
fieldOf _
    = ((Maybe Address -> f (Maybe Address))
 -> FromFunction'DelayedInvocation
 -> f FromFunction'DelayedInvocation)
-> ((Maybe Address -> f (Maybe Address))
    -> Maybe Address -> f (Maybe Address))
-> (Maybe Address -> f (Maybe Address))
-> FromFunction'DelayedInvocation
-> f FromFunction'DelayedInvocation
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FromFunction'DelayedInvocation -> Maybe Address)
-> (FromFunction'DelayedInvocation
    -> Maybe Address -> FromFunction'DelayedInvocation)
-> Lens
     FromFunction'DelayedInvocation
     FromFunction'DelayedInvocation
     (Maybe Address)
     (Maybe Address)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FromFunction'DelayedInvocation -> Maybe Address
_FromFunction'DelayedInvocation'target
           (\ x__ :: FromFunction'DelayedInvocation
x__ y__ :: Maybe Address
y__ -> FromFunction'DelayedInvocation
x__ {_FromFunction'DelayedInvocation'target :: Maybe Address
_FromFunction'DelayedInvocation'target = Maybe Address
y__}))
        (Maybe Address -> f (Maybe Address))
-> Maybe Address -> f (Maybe Address)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField FromFunction'DelayedInvocation "argument" TypedValue where
  fieldOf :: Proxy# "argument"
-> (TypedValue -> f TypedValue)
-> FromFunction'DelayedInvocation
-> f FromFunction'DelayedInvocation
fieldOf _
    = ((Maybe TypedValue -> f (Maybe TypedValue))
 -> FromFunction'DelayedInvocation
 -> f FromFunction'DelayedInvocation)
-> ((TypedValue -> f TypedValue)
    -> Maybe TypedValue -> f (Maybe TypedValue))
-> (TypedValue -> f TypedValue)
-> FromFunction'DelayedInvocation
-> f FromFunction'DelayedInvocation
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FromFunction'DelayedInvocation -> Maybe TypedValue)
-> (FromFunction'DelayedInvocation
    -> Maybe TypedValue -> FromFunction'DelayedInvocation)
-> Lens
     FromFunction'DelayedInvocation
     FromFunction'DelayedInvocation
     (Maybe TypedValue)
     (Maybe TypedValue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FromFunction'DelayedInvocation -> Maybe TypedValue
_FromFunction'DelayedInvocation'argument
           (\ x__ :: FromFunction'DelayedInvocation
x__ y__ :: Maybe TypedValue
y__
              -> FromFunction'DelayedInvocation
x__ {_FromFunction'DelayedInvocation'argument :: Maybe TypedValue
_FromFunction'DelayedInvocation'argument = Maybe TypedValue
y__}))
        (TypedValue -> Lens' (Maybe TypedValue) TypedValue
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens TypedValue
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField FromFunction'DelayedInvocation "maybe'argument" (Prelude.Maybe TypedValue) where
  fieldOf :: Proxy# "maybe'argument"
-> (Maybe TypedValue -> f (Maybe TypedValue))
-> FromFunction'DelayedInvocation
-> f FromFunction'DelayedInvocation
fieldOf _
    = ((Maybe TypedValue -> f (Maybe TypedValue))
 -> FromFunction'DelayedInvocation
 -> f FromFunction'DelayedInvocation)
-> ((Maybe TypedValue -> f (Maybe TypedValue))
    -> Maybe TypedValue -> f (Maybe TypedValue))
-> (Maybe TypedValue -> f (Maybe TypedValue))
-> FromFunction'DelayedInvocation
-> f FromFunction'DelayedInvocation
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FromFunction'DelayedInvocation -> Maybe TypedValue)
-> (FromFunction'DelayedInvocation
    -> Maybe TypedValue -> FromFunction'DelayedInvocation)
-> Lens
     FromFunction'DelayedInvocation
     FromFunction'DelayedInvocation
     (Maybe TypedValue)
     (Maybe TypedValue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FromFunction'DelayedInvocation -> Maybe TypedValue
_FromFunction'DelayedInvocation'argument
           (\ x__ :: FromFunction'DelayedInvocation
x__ y__ :: Maybe TypedValue
y__
              -> FromFunction'DelayedInvocation
x__ {_FromFunction'DelayedInvocation'argument :: Maybe TypedValue
_FromFunction'DelayedInvocation'argument = Maybe TypedValue
y__}))
        (Maybe TypedValue -> f (Maybe TypedValue))
-> Maybe TypedValue -> f (Maybe TypedValue)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message FromFunction'DelayedInvocation where
  messageName :: Proxy FromFunction'DelayedInvocation -> Text
messageName _
    = String -> Text
Data.Text.pack
        "io.statefun.sdk.reqreply.FromFunction.DelayedInvocation"
  packedMessageDescriptor :: Proxy FromFunction'DelayedInvocation -> ByteString
packedMessageDescriptor _
    = "\n\
      \\DC1DelayedInvocation\DC2\RS\n\
      \\vdelay_in_ms\CAN\SOH \SOH(\ETXR\tdelayInMs\DC29\n\
      \\ACKtarget\CAN\STX \SOH(\v2!.io.statefun.sdk.reqreply.AddressR\ACKtarget\DC2@\n\
      \\bargument\CAN\ETX \SOH(\v2$.io.statefun.sdk.reqreply.TypedValueR\bargument"
  packedFileDescriptor :: Proxy FromFunction'DelayedInvocation -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor FromFunction'DelayedInvocation)
fieldsByTag
    = let
        delayInMs__field_descriptor :: FieldDescriptor FromFunction'DelayedInvocation
delayInMs__field_descriptor
          = String
-> FieldTypeDescriptor Int64
-> FieldAccessor FromFunction'DelayedInvocation Int64
-> FieldDescriptor FromFunction'DelayedInvocation
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "delay_in_ms"
              (ScalarField Int64 -> FieldTypeDescriptor Int64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Int64
Data.ProtoLens.Int64Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)
              (WireDefault Int64
-> Lens
     FromFunction'DelayedInvocation
     FromFunction'DelayedInvocation
     Int64
     Int64
-> FieldAccessor FromFunction'DelayedInvocation Int64
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Int64
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
                 (forall s a (f :: * -> *).
(HasField s "delayInMs" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"delayInMs")) ::
              Data.ProtoLens.FieldDescriptor FromFunction'DelayedInvocation
        target__field_descriptor :: FieldDescriptor FromFunction'DelayedInvocation
target__field_descriptor
          = String
-> FieldTypeDescriptor Address
-> FieldAccessor FromFunction'DelayedInvocation Address
-> FieldDescriptor FromFunction'DelayedInvocation
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "target"
              (MessageOrGroup -> FieldTypeDescriptor Address
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Address)
              (Lens
  FromFunction'DelayedInvocation
  FromFunction'DelayedInvocation
  (Maybe Address)
  (Maybe Address)
-> FieldAccessor FromFunction'DelayedInvocation Address
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'target" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'target")) ::
              Data.ProtoLens.FieldDescriptor FromFunction'DelayedInvocation
        argument__field_descriptor :: FieldDescriptor FromFunction'DelayedInvocation
argument__field_descriptor
          = String
-> FieldTypeDescriptor TypedValue
-> FieldAccessor FromFunction'DelayedInvocation TypedValue
-> FieldDescriptor FromFunction'DelayedInvocation
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "argument"
              (MessageOrGroup -> FieldTypeDescriptor TypedValue
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor TypedValue)
              (Lens
  FromFunction'DelayedInvocation
  FromFunction'DelayedInvocation
  (Maybe TypedValue)
  (Maybe TypedValue)
-> FieldAccessor FromFunction'DelayedInvocation TypedValue
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'argument" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'argument")) ::
              Data.ProtoLens.FieldDescriptor FromFunction'DelayedInvocation
      in
        [(Tag, FieldDescriptor FromFunction'DelayedInvocation)]
-> Map Tag (FieldDescriptor FromFunction'DelayedInvocation)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor FromFunction'DelayedInvocation
delayInMs__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor FromFunction'DelayedInvocation
target__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 3, FieldDescriptor FromFunction'DelayedInvocation
argument__field_descriptor)]
  unknownFields :: LensLike' f FromFunction'DelayedInvocation FieldSet
unknownFields
    = (FromFunction'DelayedInvocation -> FieldSet)
-> (FromFunction'DelayedInvocation
    -> FieldSet -> FromFunction'DelayedInvocation)
-> Lens' FromFunction'DelayedInvocation FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        FromFunction'DelayedInvocation -> FieldSet
_FromFunction'DelayedInvocation'_unknownFields
        (\ x__ :: FromFunction'DelayedInvocation
x__ y__ :: FieldSet
y__
           -> FromFunction'DelayedInvocation
x__ {_FromFunction'DelayedInvocation'_unknownFields :: FieldSet
_FromFunction'DelayedInvocation'_unknownFields = FieldSet
y__})
  defMessage :: FromFunction'DelayedInvocation
defMessage
    = $WFromFunction'DelayedInvocation'_constructor :: Int64
-> Maybe Address
-> Maybe TypedValue
-> FieldSet
-> FromFunction'DelayedInvocation
FromFunction'DelayedInvocation'_constructor
        {_FromFunction'DelayedInvocation'delayInMs :: Int64
_FromFunction'DelayedInvocation'delayInMs = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _FromFunction'DelayedInvocation'target :: Maybe Address
_FromFunction'DelayedInvocation'target = Maybe Address
forall a. Maybe a
Prelude.Nothing,
         _FromFunction'DelayedInvocation'argument :: Maybe TypedValue
_FromFunction'DelayedInvocation'argument = Maybe TypedValue
forall a. Maybe a
Prelude.Nothing,
         _FromFunction'DelayedInvocation'_unknownFields :: FieldSet
_FromFunction'DelayedInvocation'_unknownFields = []}
  parseMessage :: Parser FromFunction'DelayedInvocation
parseMessage
    = let
        loop ::
          FromFunction'DelayedInvocation
          -> Data.ProtoLens.Encoding.Bytes.Parser FromFunction'DelayedInvocation
        loop :: FromFunction'DelayedInvocation
-> Parser FromFunction'DelayedInvocation
loop x :: FromFunction'DelayedInvocation
x
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  "Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      FromFunction'DelayedInvocation
-> Parser FromFunction'DelayedInvocation
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter
  FromFunction'DelayedInvocation
  FromFunction'DelayedInvocation
  FieldSet
  FieldSet
-> (FieldSet -> FieldSet)
-> FromFunction'DelayedInvocation
-> FromFunction'DelayedInvocation
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           forall msg. Message msg => Lens' msg FieldSet
Setter
  FromFunction'DelayedInvocation
  FromFunction'DelayedInvocation
  FieldSet
  FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) FromFunction'DelayedInvocation
x)
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        8 -> do Int64
y <- Parser Int64 -> String -> Parser Int64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Int64) -> Parser Word64 -> Parser Int64
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Word64 -> Int64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                          Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       "delay_in_ms"
                                FromFunction'DelayedInvocation
-> Parser FromFunction'DelayedInvocation
loop
                                  (Setter
  FromFunction'DelayedInvocation
  FromFunction'DelayedInvocation
  Int64
  Int64
-> Int64
-> FromFunction'DelayedInvocation
-> FromFunction'DelayedInvocation
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "delayInMs" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"delayInMs") Int64
y FromFunction'DelayedInvocation
x)
                        18
                          -> do Address
y <- Parser Address -> String -> Parser Address
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser Address -> Parser Address
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser Address
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       "target"
                                FromFunction'DelayedInvocation
-> Parser FromFunction'DelayedInvocation
loop (Setter
  FromFunction'DelayedInvocation
  FromFunction'DelayedInvocation
  Address
  Address
-> Address
-> FromFunction'DelayedInvocation
-> FromFunction'DelayedInvocation
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "target" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"target") Address
y FromFunction'DelayedInvocation
x)
                        26
                          -> do TypedValue
y <- Parser TypedValue -> String -> Parser TypedValue
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser TypedValue -> Parser TypedValue
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser TypedValue
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       "argument"
                                FromFunction'DelayedInvocation
-> Parser FromFunction'DelayedInvocation
loop
                                  (Setter
  FromFunction'DelayedInvocation
  FromFunction'DelayedInvocation
  TypedValue
  TypedValue
-> TypedValue
-> FromFunction'DelayedInvocation
-> FromFunction'DelayedInvocation
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "argument" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"argument") TypedValue
y FromFunction'DelayedInvocation
x)
                        wire :: Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                FromFunction'DelayedInvocation
-> Parser FromFunction'DelayedInvocation
loop
                                  (Setter
  FromFunction'DelayedInvocation
  FromFunction'DelayedInvocation
  FieldSet
  FieldSet
-> (FieldSet -> FieldSet)
-> FromFunction'DelayedInvocation
-> FromFunction'DelayedInvocation
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     forall msg. Message msg => Lens' msg FieldSet
Setter
  FromFunction'DelayedInvocation
  FromFunction'DelayedInvocation
  FieldSet
  FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) FromFunction'DelayedInvocation
x)
      in
        Parser FromFunction'DelayedInvocation
-> String -> Parser FromFunction'DelayedInvocation
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do FromFunction'DelayedInvocation
-> Parser FromFunction'DelayedInvocation
loop FromFunction'DelayedInvocation
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "DelayedInvocation"
  buildMessage :: FromFunction'DelayedInvocation -> Builder
buildMessage
    = \ _x :: FromFunction'DelayedInvocation
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: Int64
_v = FoldLike
  Int64
  FromFunction'DelayedInvocation
  FromFunction'DelayedInvocation
  Int64
  Int64
-> FromFunction'DelayedInvocation -> Int64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "delayInMs" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"delayInMs") FromFunction'DelayedInvocation
_x
              in
                if Int64 -> Int64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Int64
_v Int64
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 8)
                      ((Word64 -> Builder) -> (Int64 -> Word64) -> Int64 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                         Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int64 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int64
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (case
                     FoldLike
  (Maybe Address)
  FromFunction'DelayedInvocation
  FromFunction'DelayedInvocation
  (Maybe Address)
  (Maybe Address)
-> FromFunction'DelayedInvocation -> Maybe Address
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "maybe'target" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'target") FromFunction'DelayedInvocation
_x
                 of
                   Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   (Prelude.Just _v :: Address
_v)
                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 18)
                          ((ByteString -> Builder)
-> (Address -> ByteString) -> Address -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                             (\ bs :: 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))
                             Address -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                             Address
_v))
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   (case
                        FoldLike
  (Maybe TypedValue)
  FromFunction'DelayedInvocation
  FromFunction'DelayedInvocation
  (Maybe TypedValue)
  (Maybe TypedValue)
-> FromFunction'DelayedInvocation -> Maybe TypedValue
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "maybe'argument" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'argument") FromFunction'DelayedInvocation
_x
                    of
                      Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                      (Prelude.Just _v :: TypedValue
_v)
                        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                             (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 26)
                             ((ByteString -> Builder)
-> (TypedValue -> ByteString) -> TypedValue -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                (\ bs :: 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))
                                TypedValue -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                                TypedValue
_v))
                   (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                      (FoldLike
  FieldSet
  FromFunction'DelayedInvocation
  FromFunction'DelayedInvocation
  FieldSet
  FieldSet
-> FromFunction'DelayedInvocation -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  FromFunction'DelayedInvocation
  FromFunction'DelayedInvocation
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields FromFunction'DelayedInvocation
_x))))
instance Control.DeepSeq.NFData FromFunction'DelayedInvocation where
  rnf :: FromFunction'DelayedInvocation -> ()
rnf
    = \ x__ :: FromFunction'DelayedInvocation
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (FromFunction'DelayedInvocation -> FieldSet
_FromFunction'DelayedInvocation'_unknownFields FromFunction'DelayedInvocation
x__)
             (Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (FromFunction'DelayedInvocation -> Int64
_FromFunction'DelayedInvocation'delayInMs FromFunction'DelayedInvocation
x__)
                (Maybe Address -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (FromFunction'DelayedInvocation -> Maybe Address
_FromFunction'DelayedInvocation'target FromFunction'DelayedInvocation
x__)
                   (Maybe TypedValue -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                      (FromFunction'DelayedInvocation -> Maybe TypedValue
_FromFunction'DelayedInvocation'argument FromFunction'DelayedInvocation
x__) ())))
{- | Fields :
     
         * 'Proto.RequestReply_Fields.egressNamespace' @:: Lens' FromFunction'EgressMessage Data.Text.Text@
         * 'Proto.RequestReply_Fields.egressType' @:: Lens' FromFunction'EgressMessage Data.Text.Text@
         * 'Proto.RequestReply_Fields.argument' @:: Lens' FromFunction'EgressMessage TypedValue@
         * 'Proto.RequestReply_Fields.maybe'argument' @:: Lens' FromFunction'EgressMessage (Prelude.Maybe TypedValue)@ -}
data FromFunction'EgressMessage
  = FromFunction'EgressMessage'_constructor {FromFunction'EgressMessage -> Text
_FromFunction'EgressMessage'egressNamespace :: !Data.Text.Text,
                                             FromFunction'EgressMessage -> Text
_FromFunction'EgressMessage'egressType :: !Data.Text.Text,
                                             FromFunction'EgressMessage -> Maybe TypedValue
_FromFunction'EgressMessage'argument :: !(Prelude.Maybe TypedValue),
                                             FromFunction'EgressMessage -> FieldSet
_FromFunction'EgressMessage'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (FromFunction'EgressMessage -> FromFunction'EgressMessage -> Bool
(FromFunction'EgressMessage -> FromFunction'EgressMessage -> Bool)
-> (FromFunction'EgressMessage
    -> FromFunction'EgressMessage -> Bool)
-> Eq FromFunction'EgressMessage
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: FromFunction'EgressMessage -> FromFunction'EgressMessage -> Bool
$c/= :: FromFunction'EgressMessage -> FromFunction'EgressMessage -> Bool
== :: FromFunction'EgressMessage -> FromFunction'EgressMessage -> Bool
$c== :: FromFunction'EgressMessage -> FromFunction'EgressMessage -> Bool
Prelude.Eq, Eq FromFunction'EgressMessage
Eq FromFunction'EgressMessage =>
(FromFunction'EgressMessage
 -> FromFunction'EgressMessage -> Ordering)
-> (FromFunction'EgressMessage
    -> FromFunction'EgressMessage -> Bool)
-> (FromFunction'EgressMessage
    -> FromFunction'EgressMessage -> Bool)
-> (FromFunction'EgressMessage
    -> FromFunction'EgressMessage -> Bool)
-> (FromFunction'EgressMessage
    -> FromFunction'EgressMessage -> Bool)
-> (FromFunction'EgressMessage
    -> FromFunction'EgressMessage -> FromFunction'EgressMessage)
-> (FromFunction'EgressMessage
    -> FromFunction'EgressMessage -> FromFunction'EgressMessage)
-> Ord FromFunction'EgressMessage
FromFunction'EgressMessage -> FromFunction'EgressMessage -> Bool
FromFunction'EgressMessage
-> FromFunction'EgressMessage -> Ordering
FromFunction'EgressMessage
-> FromFunction'EgressMessage -> FromFunction'EgressMessage
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
min :: FromFunction'EgressMessage
-> FromFunction'EgressMessage -> FromFunction'EgressMessage
$cmin :: FromFunction'EgressMessage
-> FromFunction'EgressMessage -> FromFunction'EgressMessage
max :: FromFunction'EgressMessage
-> FromFunction'EgressMessage -> FromFunction'EgressMessage
$cmax :: FromFunction'EgressMessage
-> FromFunction'EgressMessage -> FromFunction'EgressMessage
>= :: FromFunction'EgressMessage -> FromFunction'EgressMessage -> Bool
$c>= :: FromFunction'EgressMessage -> FromFunction'EgressMessage -> Bool
> :: FromFunction'EgressMessage -> FromFunction'EgressMessage -> Bool
$c> :: FromFunction'EgressMessage -> FromFunction'EgressMessage -> Bool
<= :: FromFunction'EgressMessage -> FromFunction'EgressMessage -> Bool
$c<= :: FromFunction'EgressMessage -> FromFunction'EgressMessage -> Bool
< :: FromFunction'EgressMessage -> FromFunction'EgressMessage -> Bool
$c< :: FromFunction'EgressMessage -> FromFunction'EgressMessage -> Bool
compare :: FromFunction'EgressMessage
-> FromFunction'EgressMessage -> Ordering
$ccompare :: FromFunction'EgressMessage
-> FromFunction'EgressMessage -> Ordering
$cp1Ord :: Eq FromFunction'EgressMessage
Prelude.Ord)
instance Prelude.Show FromFunction'EgressMessage where
  showsPrec :: Int -> FromFunction'EgressMessage -> ShowS
showsPrec _ __x :: FromFunction'EgressMessage
__x __s :: String
__s
    = Char -> ShowS
Prelude.showChar
        '{'
        (String -> ShowS
Prelude.showString
           (FromFunction'EgressMessage -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort FromFunction'EgressMessage
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField FromFunction'EgressMessage "egressNamespace" Data.Text.Text where
  fieldOf :: Proxy# "egressNamespace"
-> (Text -> f Text)
-> FromFunction'EgressMessage
-> f FromFunction'EgressMessage
fieldOf _
    = ((Text -> f Text)
 -> FromFunction'EgressMessage -> f FromFunction'EgressMessage)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> FromFunction'EgressMessage
-> f FromFunction'EgressMessage
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FromFunction'EgressMessage -> Text)
-> (FromFunction'EgressMessage
    -> Text -> FromFunction'EgressMessage)
-> Lens
     FromFunction'EgressMessage FromFunction'EgressMessage Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FromFunction'EgressMessage -> Text
_FromFunction'EgressMessage'egressNamespace
           (\ x__ :: FromFunction'EgressMessage
x__ y__ :: Text
y__
              -> FromFunction'EgressMessage
x__ {_FromFunction'EgressMessage'egressNamespace :: Text
_FromFunction'EgressMessage'egressNamespace = Text
y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField FromFunction'EgressMessage "egressType" Data.Text.Text where
  fieldOf :: Proxy# "egressType"
-> (Text -> f Text)
-> FromFunction'EgressMessage
-> f FromFunction'EgressMessage
fieldOf _
    = ((Text -> f Text)
 -> FromFunction'EgressMessage -> f FromFunction'EgressMessage)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> FromFunction'EgressMessage
-> f FromFunction'EgressMessage
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FromFunction'EgressMessage -> Text)
-> (FromFunction'EgressMessage
    -> Text -> FromFunction'EgressMessage)
-> Lens
     FromFunction'EgressMessage FromFunction'EgressMessage Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FromFunction'EgressMessage -> Text
_FromFunction'EgressMessage'egressType
           (\ x__ :: FromFunction'EgressMessage
x__ y__ :: Text
y__ -> FromFunction'EgressMessage
x__ {_FromFunction'EgressMessage'egressType :: Text
_FromFunction'EgressMessage'egressType = Text
y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField FromFunction'EgressMessage "argument" TypedValue where
  fieldOf :: Proxy# "argument"
-> (TypedValue -> f TypedValue)
-> FromFunction'EgressMessage
-> f FromFunction'EgressMessage
fieldOf _
    = ((Maybe TypedValue -> f (Maybe TypedValue))
 -> FromFunction'EgressMessage -> f FromFunction'EgressMessage)
-> ((TypedValue -> f TypedValue)
    -> Maybe TypedValue -> f (Maybe TypedValue))
-> (TypedValue -> f TypedValue)
-> FromFunction'EgressMessage
-> f FromFunction'EgressMessage
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FromFunction'EgressMessage -> Maybe TypedValue)
-> (FromFunction'EgressMessage
    -> Maybe TypedValue -> FromFunction'EgressMessage)
-> Lens
     FromFunction'EgressMessage
     FromFunction'EgressMessage
     (Maybe TypedValue)
     (Maybe TypedValue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FromFunction'EgressMessage -> Maybe TypedValue
_FromFunction'EgressMessage'argument
           (\ x__ :: FromFunction'EgressMessage
x__ y__ :: Maybe TypedValue
y__ -> FromFunction'EgressMessage
x__ {_FromFunction'EgressMessage'argument :: Maybe TypedValue
_FromFunction'EgressMessage'argument = Maybe TypedValue
y__}))
        (TypedValue -> Lens' (Maybe TypedValue) TypedValue
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens TypedValue
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField FromFunction'EgressMessage "maybe'argument" (Prelude.Maybe TypedValue) where
  fieldOf :: Proxy# "maybe'argument"
-> (Maybe TypedValue -> f (Maybe TypedValue))
-> FromFunction'EgressMessage
-> f FromFunction'EgressMessage
fieldOf _
    = ((Maybe TypedValue -> f (Maybe TypedValue))
 -> FromFunction'EgressMessage -> f FromFunction'EgressMessage)
-> ((Maybe TypedValue -> f (Maybe TypedValue))
    -> Maybe TypedValue -> f (Maybe TypedValue))
-> (Maybe TypedValue -> f (Maybe TypedValue))
-> FromFunction'EgressMessage
-> f FromFunction'EgressMessage
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FromFunction'EgressMessage -> Maybe TypedValue)
-> (FromFunction'EgressMessage
    -> Maybe TypedValue -> FromFunction'EgressMessage)
-> Lens
     FromFunction'EgressMessage
     FromFunction'EgressMessage
     (Maybe TypedValue)
     (Maybe TypedValue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FromFunction'EgressMessage -> Maybe TypedValue
_FromFunction'EgressMessage'argument
           (\ x__ :: FromFunction'EgressMessage
x__ y__ :: Maybe TypedValue
y__ -> FromFunction'EgressMessage
x__ {_FromFunction'EgressMessage'argument :: Maybe TypedValue
_FromFunction'EgressMessage'argument = Maybe TypedValue
y__}))
        (Maybe TypedValue -> f (Maybe TypedValue))
-> Maybe TypedValue -> f (Maybe TypedValue)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message FromFunction'EgressMessage where
  messageName :: Proxy FromFunction'EgressMessage -> Text
messageName _
    = String -> Text
Data.Text.pack
        "io.statefun.sdk.reqreply.FromFunction.EgressMessage"
  packedMessageDescriptor :: Proxy FromFunction'EgressMessage -> ByteString
packedMessageDescriptor _
    = "\n\
      \\rEgressMessage\DC2)\n\
      \\DLEegress_namespace\CAN\SOH \SOH(\tR\SIegressNamespace\DC2\US\n\
      \\vegress_type\CAN\STX \SOH(\tR\n\
      \egressType\DC2@\n\
      \\bargument\CAN\ETX \SOH(\v2$.io.statefun.sdk.reqreply.TypedValueR\bargument"
  packedFileDescriptor :: Proxy FromFunction'EgressMessage -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor FromFunction'EgressMessage)
fieldsByTag
    = let
        egressNamespace__field_descriptor :: FieldDescriptor FromFunction'EgressMessage
egressNamespace__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor FromFunction'EgressMessage Text
-> FieldDescriptor FromFunction'EgressMessage
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "egress_namespace"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (WireDefault Text
-> Lens
     FromFunction'EgressMessage FromFunction'EgressMessage Text Text
-> FieldAccessor FromFunction'EgressMessage Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
                 (forall s a (f :: * -> *).
(HasField s "egressNamespace" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"egressNamespace")) ::
              Data.ProtoLens.FieldDescriptor FromFunction'EgressMessage
        egressType__field_descriptor :: FieldDescriptor FromFunction'EgressMessage
egressType__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor FromFunction'EgressMessage Text
-> FieldDescriptor FromFunction'EgressMessage
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "egress_type"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (WireDefault Text
-> Lens
     FromFunction'EgressMessage FromFunction'EgressMessage Text Text
-> FieldAccessor FromFunction'EgressMessage Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
                 (forall s a (f :: * -> *).
(HasField s "egressType" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"egressType")) ::
              Data.ProtoLens.FieldDescriptor FromFunction'EgressMessage
        argument__field_descriptor :: FieldDescriptor FromFunction'EgressMessage
argument__field_descriptor
          = String
-> FieldTypeDescriptor TypedValue
-> FieldAccessor FromFunction'EgressMessage TypedValue
-> FieldDescriptor FromFunction'EgressMessage
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "argument"
              (MessageOrGroup -> FieldTypeDescriptor TypedValue
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor TypedValue)
              (Lens
  FromFunction'EgressMessage
  FromFunction'EgressMessage
  (Maybe TypedValue)
  (Maybe TypedValue)
-> FieldAccessor FromFunction'EgressMessage TypedValue
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'argument" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'argument")) ::
              Data.ProtoLens.FieldDescriptor FromFunction'EgressMessage
      in
        [(Tag, FieldDescriptor FromFunction'EgressMessage)]
-> Map Tag (FieldDescriptor FromFunction'EgressMessage)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor FromFunction'EgressMessage
egressNamespace__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor FromFunction'EgressMessage
egressType__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 3, FieldDescriptor FromFunction'EgressMessage
argument__field_descriptor)]
  unknownFields :: LensLike' f FromFunction'EgressMessage FieldSet
unknownFields
    = (FromFunction'EgressMessage -> FieldSet)
-> (FromFunction'EgressMessage
    -> FieldSet -> FromFunction'EgressMessage)
-> Lens' FromFunction'EgressMessage FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        FromFunction'EgressMessage -> FieldSet
_FromFunction'EgressMessage'_unknownFields
        (\ x__ :: FromFunction'EgressMessage
x__ y__ :: FieldSet
y__
           -> FromFunction'EgressMessage
x__ {_FromFunction'EgressMessage'_unknownFields :: FieldSet
_FromFunction'EgressMessage'_unknownFields = FieldSet
y__})
  defMessage :: FromFunction'EgressMessage
defMessage
    = $WFromFunction'EgressMessage'_constructor :: Text
-> Text
-> Maybe TypedValue
-> FieldSet
-> FromFunction'EgressMessage
FromFunction'EgressMessage'_constructor
        {_FromFunction'EgressMessage'egressNamespace :: Text
_FromFunction'EgressMessage'egressNamespace = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _FromFunction'EgressMessage'egressType :: Text
_FromFunction'EgressMessage'egressType = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _FromFunction'EgressMessage'argument :: Maybe TypedValue
_FromFunction'EgressMessage'argument = Maybe TypedValue
forall a. Maybe a
Prelude.Nothing,
         _FromFunction'EgressMessage'_unknownFields :: FieldSet
_FromFunction'EgressMessage'_unknownFields = []}
  parseMessage :: Parser FromFunction'EgressMessage
parseMessage
    = let
        loop ::
          FromFunction'EgressMessage
          -> Data.ProtoLens.Encoding.Bytes.Parser FromFunction'EgressMessage
        loop :: FromFunction'EgressMessage -> Parser FromFunction'EgressMessage
loop x :: FromFunction'EgressMessage
x
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  "Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      FromFunction'EgressMessage -> Parser FromFunction'EgressMessage
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter
  FromFunction'EgressMessage
  FromFunction'EgressMessage
  FieldSet
  FieldSet
-> (FieldSet -> FieldSet)
-> FromFunction'EgressMessage
-> FromFunction'EgressMessage
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           forall msg. Message msg => Lens' msg FieldSet
Setter
  FromFunction'EgressMessage
  FromFunction'EgressMessage
  FieldSet
  FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) FromFunction'EgressMessage
x)
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        10
                          -> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                       Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                                         (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                           Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
                                             (case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
                                                (Prelude.Left err :: UnicodeException
err)
                                                  -> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
                                                (Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
                                       "egress_namespace"
                                FromFunction'EgressMessage -> Parser FromFunction'EgressMessage
loop
                                  (Setter
  FromFunction'EgressMessage FromFunction'EgressMessage Text Text
-> Text -> FromFunction'EgressMessage -> FromFunction'EgressMessage
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                     (forall s a (f :: * -> *).
(HasField s "egressNamespace" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"egressNamespace") Text
y FromFunction'EgressMessage
x)
                        18
                          -> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                       Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                                         (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                           Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
                                             (case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
                                                (Prelude.Left err :: UnicodeException
err)
                                                  -> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
                                                (Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
                                       "egress_type"
                                FromFunction'EgressMessage -> Parser FromFunction'EgressMessage
loop
                                  (Setter
  FromFunction'EgressMessage FromFunction'EgressMessage Text Text
-> Text -> FromFunction'EgressMessage -> FromFunction'EgressMessage
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "egressType" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"egressType") Text
y FromFunction'EgressMessage
x)
                        26
                          -> do TypedValue
y <- Parser TypedValue -> String -> Parser TypedValue
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser TypedValue -> Parser TypedValue
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser TypedValue
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       "argument"
                                FromFunction'EgressMessage -> Parser FromFunction'EgressMessage
loop
                                  (Setter
  FromFunction'EgressMessage
  FromFunction'EgressMessage
  TypedValue
  TypedValue
-> TypedValue
-> FromFunction'EgressMessage
-> FromFunction'EgressMessage
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "argument" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"argument") TypedValue
y FromFunction'EgressMessage
x)
                        wire :: Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                FromFunction'EgressMessage -> Parser FromFunction'EgressMessage
loop
                                  (Setter
  FromFunction'EgressMessage
  FromFunction'EgressMessage
  FieldSet
  FieldSet
-> (FieldSet -> FieldSet)
-> FromFunction'EgressMessage
-> FromFunction'EgressMessage
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     forall msg. Message msg => Lens' msg FieldSet
Setter
  FromFunction'EgressMessage
  FromFunction'EgressMessage
  FieldSet
  FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) FromFunction'EgressMessage
x)
      in
        Parser FromFunction'EgressMessage
-> String -> Parser FromFunction'EgressMessage
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do FromFunction'EgressMessage -> Parser FromFunction'EgressMessage
loop FromFunction'EgressMessage
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "EgressMessage"
  buildMessage :: FromFunction'EgressMessage -> Builder
buildMessage
    = \ _x :: FromFunction'EgressMessage
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: Text
_v
                  = FoldLike
  Text
  FromFunction'EgressMessage
  FromFunction'EgressMessage
  Text
  Text
-> FromFunction'EgressMessage -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                      (forall s a (f :: * -> *).
(HasField s "egressNamespace" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"egressNamespace") FromFunction'EgressMessage
_x
              in
                if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
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 10)
                      ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                         (\ bs :: 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))
                         Text -> ByteString
Data.Text.Encoding.encodeUtf8
                         Text
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (let
                   _v :: Text
_v
                     = FoldLike
  Text
  FromFunction'EgressMessage
  FromFunction'EgressMessage
  Text
  Text
-> FromFunction'EgressMessage -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "egressType" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"egressType") FromFunction'EgressMessage
_x
                 in
                   if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
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 18)
                         ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                            (\ bs :: 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))
                            Text -> ByteString
Data.Text.Encoding.encodeUtf8
                            Text
_v))
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   (case
                        FoldLike
  (Maybe TypedValue)
  FromFunction'EgressMessage
  FromFunction'EgressMessage
  (Maybe TypedValue)
  (Maybe TypedValue)
-> FromFunction'EgressMessage -> Maybe TypedValue
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "maybe'argument" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'argument") FromFunction'EgressMessage
_x
                    of
                      Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                      (Prelude.Just _v :: TypedValue
_v)
                        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                             (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 26)
                             ((ByteString -> Builder)
-> (TypedValue -> ByteString) -> TypedValue -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                (\ bs :: 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))
                                TypedValue -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                                TypedValue
_v))
                   (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                      (FoldLike
  FieldSet
  FromFunction'EgressMessage
  FromFunction'EgressMessage
  FieldSet
  FieldSet
-> FromFunction'EgressMessage -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  FromFunction'EgressMessage
  FromFunction'EgressMessage
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields FromFunction'EgressMessage
_x))))
instance Control.DeepSeq.NFData FromFunction'EgressMessage where
  rnf :: FromFunction'EgressMessage -> ()
rnf
    = \ x__ :: FromFunction'EgressMessage
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (FromFunction'EgressMessage -> FieldSet
_FromFunction'EgressMessage'_unknownFields FromFunction'EgressMessage
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (FromFunction'EgressMessage -> Text
_FromFunction'EgressMessage'egressNamespace FromFunction'EgressMessage
x__)
                (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (FromFunction'EgressMessage -> Text
_FromFunction'EgressMessage'egressType FromFunction'EgressMessage
x__)
                   (Maybe TypedValue -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                      (FromFunction'EgressMessage -> Maybe TypedValue
_FromFunction'EgressMessage'argument FromFunction'EgressMessage
x__) ())))
{- | Fields :
     
         * 'Proto.RequestReply_Fields.mode' @:: Lens' FromFunction'ExpirationSpec FromFunction'ExpirationSpec'ExpireMode@
         * 'Proto.RequestReply_Fields.expireAfterMillis' @:: Lens' FromFunction'ExpirationSpec Data.Int.Int64@ -}
data FromFunction'ExpirationSpec
  = FromFunction'ExpirationSpec'_constructor {FromFunction'ExpirationSpec
-> FromFunction'ExpirationSpec'ExpireMode
_FromFunction'ExpirationSpec'mode :: !FromFunction'ExpirationSpec'ExpireMode,
                                              FromFunction'ExpirationSpec -> Int64
_FromFunction'ExpirationSpec'expireAfterMillis :: !Data.Int.Int64,
                                              FromFunction'ExpirationSpec -> FieldSet
_FromFunction'ExpirationSpec'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (FromFunction'ExpirationSpec -> FromFunction'ExpirationSpec -> Bool
(FromFunction'ExpirationSpec
 -> FromFunction'ExpirationSpec -> Bool)
-> (FromFunction'ExpirationSpec
    -> FromFunction'ExpirationSpec -> Bool)
-> Eq FromFunction'ExpirationSpec
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: FromFunction'ExpirationSpec -> FromFunction'ExpirationSpec -> Bool
$c/= :: FromFunction'ExpirationSpec -> FromFunction'ExpirationSpec -> Bool
== :: FromFunction'ExpirationSpec -> FromFunction'ExpirationSpec -> Bool
$c== :: FromFunction'ExpirationSpec -> FromFunction'ExpirationSpec -> Bool
Prelude.Eq, Eq FromFunction'ExpirationSpec
Eq FromFunction'ExpirationSpec =>
(FromFunction'ExpirationSpec
 -> FromFunction'ExpirationSpec -> Ordering)
-> (FromFunction'ExpirationSpec
    -> FromFunction'ExpirationSpec -> Bool)
-> (FromFunction'ExpirationSpec
    -> FromFunction'ExpirationSpec -> Bool)
-> (FromFunction'ExpirationSpec
    -> FromFunction'ExpirationSpec -> Bool)
-> (FromFunction'ExpirationSpec
    -> FromFunction'ExpirationSpec -> Bool)
-> (FromFunction'ExpirationSpec
    -> FromFunction'ExpirationSpec -> FromFunction'ExpirationSpec)
-> (FromFunction'ExpirationSpec
    -> FromFunction'ExpirationSpec -> FromFunction'ExpirationSpec)
-> Ord FromFunction'ExpirationSpec
FromFunction'ExpirationSpec -> FromFunction'ExpirationSpec -> Bool
FromFunction'ExpirationSpec
-> FromFunction'ExpirationSpec -> Ordering
FromFunction'ExpirationSpec
-> FromFunction'ExpirationSpec -> FromFunction'ExpirationSpec
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
min :: FromFunction'ExpirationSpec
-> FromFunction'ExpirationSpec -> FromFunction'ExpirationSpec
$cmin :: FromFunction'ExpirationSpec
-> FromFunction'ExpirationSpec -> FromFunction'ExpirationSpec
max :: FromFunction'ExpirationSpec
-> FromFunction'ExpirationSpec -> FromFunction'ExpirationSpec
$cmax :: FromFunction'ExpirationSpec
-> FromFunction'ExpirationSpec -> FromFunction'ExpirationSpec
>= :: FromFunction'ExpirationSpec -> FromFunction'ExpirationSpec -> Bool
$c>= :: FromFunction'ExpirationSpec -> FromFunction'ExpirationSpec -> Bool
> :: FromFunction'ExpirationSpec -> FromFunction'ExpirationSpec -> Bool
$c> :: FromFunction'ExpirationSpec -> FromFunction'ExpirationSpec -> Bool
<= :: FromFunction'ExpirationSpec -> FromFunction'ExpirationSpec -> Bool
$c<= :: FromFunction'ExpirationSpec -> FromFunction'ExpirationSpec -> Bool
< :: FromFunction'ExpirationSpec -> FromFunction'ExpirationSpec -> Bool
$c< :: FromFunction'ExpirationSpec -> FromFunction'ExpirationSpec -> Bool
compare :: FromFunction'ExpirationSpec
-> FromFunction'ExpirationSpec -> Ordering
$ccompare :: FromFunction'ExpirationSpec
-> FromFunction'ExpirationSpec -> Ordering
$cp1Ord :: Eq FromFunction'ExpirationSpec
Prelude.Ord)
instance Prelude.Show FromFunction'ExpirationSpec where
  showsPrec :: Int -> FromFunction'ExpirationSpec -> ShowS
showsPrec _ __x :: FromFunction'ExpirationSpec
__x __s :: String
__s
    = Char -> ShowS
Prelude.showChar
        '{'
        (String -> ShowS
Prelude.showString
           (FromFunction'ExpirationSpec -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort FromFunction'ExpirationSpec
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField FromFunction'ExpirationSpec "mode" FromFunction'ExpirationSpec'ExpireMode where
  fieldOf :: Proxy# "mode"
-> (FromFunction'ExpirationSpec'ExpireMode
    -> f FromFunction'ExpirationSpec'ExpireMode)
-> FromFunction'ExpirationSpec
-> f FromFunction'ExpirationSpec
fieldOf _
    = ((FromFunction'ExpirationSpec'ExpireMode
  -> f FromFunction'ExpirationSpec'ExpireMode)
 -> FromFunction'ExpirationSpec -> f FromFunction'ExpirationSpec)
-> ((FromFunction'ExpirationSpec'ExpireMode
     -> f FromFunction'ExpirationSpec'ExpireMode)
    -> FromFunction'ExpirationSpec'ExpireMode
    -> f FromFunction'ExpirationSpec'ExpireMode)
-> (FromFunction'ExpirationSpec'ExpireMode
    -> f FromFunction'ExpirationSpec'ExpireMode)
-> FromFunction'ExpirationSpec
-> f FromFunction'ExpirationSpec
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FromFunction'ExpirationSpec
 -> FromFunction'ExpirationSpec'ExpireMode)
-> (FromFunction'ExpirationSpec
    -> FromFunction'ExpirationSpec'ExpireMode
    -> FromFunction'ExpirationSpec)
-> Lens
     FromFunction'ExpirationSpec
     FromFunction'ExpirationSpec
     FromFunction'ExpirationSpec'ExpireMode
     FromFunction'ExpirationSpec'ExpireMode
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FromFunction'ExpirationSpec
-> FromFunction'ExpirationSpec'ExpireMode
_FromFunction'ExpirationSpec'mode
           (\ x__ :: FromFunction'ExpirationSpec
x__ y__ :: FromFunction'ExpirationSpec'ExpireMode
y__ -> FromFunction'ExpirationSpec
x__ {_FromFunction'ExpirationSpec'mode :: FromFunction'ExpirationSpec'ExpireMode
_FromFunction'ExpirationSpec'mode = FromFunction'ExpirationSpec'ExpireMode
y__}))
        (FromFunction'ExpirationSpec'ExpireMode
 -> f FromFunction'ExpirationSpec'ExpireMode)
-> FromFunction'ExpirationSpec'ExpireMode
-> f FromFunction'ExpirationSpec'ExpireMode
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField FromFunction'ExpirationSpec "expireAfterMillis" Data.Int.Int64 where
  fieldOf :: Proxy# "expireAfterMillis"
-> (Int64 -> f Int64)
-> FromFunction'ExpirationSpec
-> f FromFunction'ExpirationSpec
fieldOf _
    = ((Int64 -> f Int64)
 -> FromFunction'ExpirationSpec -> f FromFunction'ExpirationSpec)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> FromFunction'ExpirationSpec
-> f FromFunction'ExpirationSpec
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FromFunction'ExpirationSpec -> Int64)
-> (FromFunction'ExpirationSpec
    -> Int64 -> FromFunction'ExpirationSpec)
-> Lens
     FromFunction'ExpirationSpec FromFunction'ExpirationSpec Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FromFunction'ExpirationSpec -> Int64
_FromFunction'ExpirationSpec'expireAfterMillis
           (\ x__ :: FromFunction'ExpirationSpec
x__ y__ :: Int64
y__
              -> FromFunction'ExpirationSpec
x__ {_FromFunction'ExpirationSpec'expireAfterMillis :: Int64
_FromFunction'ExpirationSpec'expireAfterMillis = Int64
y__}))
        (Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message FromFunction'ExpirationSpec where
  messageName :: Proxy FromFunction'ExpirationSpec -> Text
messageName _
    = String -> Text
Data.Text.pack
        "io.statefun.sdk.reqreply.FromFunction.ExpirationSpec"
  packedMessageDescriptor :: Proxy FromFunction'ExpirationSpec -> ByteString
packedMessageDescriptor _
    = "\n\
      \\SOExpirationSpec\DC2T\n\
      \\EOTmode\CAN\SOH \SOH(\SO2@.io.statefun.sdk.reqreply.FromFunction.ExpirationSpec.ExpireModeR\EOTmode\DC2.\n\
      \\DC3expire_after_millis\CAN\STX \SOH(\ETXR\DC1expireAfterMillis\"9\n\
      \\n\
      \ExpireMode\DC2\b\n\
      \\EOTNONE\DLE\NUL\DC2\SI\n\
      \\vAFTER_WRITE\DLE\SOH\DC2\DLE\n\
      \\fAFTER_INVOKE\DLE\STX"
  packedFileDescriptor :: Proxy FromFunction'ExpirationSpec -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor FromFunction'ExpirationSpec)
fieldsByTag
    = let
        mode__field_descriptor :: FieldDescriptor FromFunction'ExpirationSpec
mode__field_descriptor
          = String
-> FieldTypeDescriptor FromFunction'ExpirationSpec'ExpireMode
-> FieldAccessor
     FromFunction'ExpirationSpec FromFunction'ExpirationSpec'ExpireMode
-> FieldDescriptor FromFunction'ExpirationSpec
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "mode"
              (ScalarField FromFunction'ExpirationSpec'ExpireMode
-> FieldTypeDescriptor FromFunction'ExpirationSpec'ExpireMode
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField FromFunction'ExpirationSpec'ExpireMode
forall t. MessageEnum t => ScalarField t
Data.ProtoLens.EnumField ::
                 Data.ProtoLens.FieldTypeDescriptor FromFunction'ExpirationSpec'ExpireMode)
              (WireDefault FromFunction'ExpirationSpec'ExpireMode
-> Lens
     FromFunction'ExpirationSpec
     FromFunction'ExpirationSpec
     FromFunction'ExpirationSpec'ExpireMode
     FromFunction'ExpirationSpec'ExpireMode
-> FieldAccessor
     FromFunction'ExpirationSpec FromFunction'ExpirationSpec'ExpireMode
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault FromFunction'ExpirationSpec'ExpireMode
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall s a (f :: * -> *).
(HasField s "mode" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"mode")) ::
              Data.ProtoLens.FieldDescriptor FromFunction'ExpirationSpec
        expireAfterMillis__field_descriptor :: FieldDescriptor FromFunction'ExpirationSpec
expireAfterMillis__field_descriptor
          = String
-> FieldTypeDescriptor Int64
-> FieldAccessor FromFunction'ExpirationSpec Int64
-> FieldDescriptor FromFunction'ExpirationSpec
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "expire_after_millis"
              (ScalarField Int64 -> FieldTypeDescriptor Int64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Int64
Data.ProtoLens.Int64Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)
              (WireDefault Int64
-> Lens
     FromFunction'ExpirationSpec FromFunction'ExpirationSpec Int64 Int64
-> FieldAccessor FromFunction'ExpirationSpec Int64
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Int64
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
                 (forall s a (f :: * -> *).
(HasField s "expireAfterMillis" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"expireAfterMillis")) ::
              Data.ProtoLens.FieldDescriptor FromFunction'ExpirationSpec
      in
        [(Tag, FieldDescriptor FromFunction'ExpirationSpec)]
-> Map Tag (FieldDescriptor FromFunction'ExpirationSpec)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor FromFunction'ExpirationSpec
mode__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor FromFunction'ExpirationSpec
expireAfterMillis__field_descriptor)]
  unknownFields :: LensLike' f FromFunction'ExpirationSpec FieldSet
unknownFields
    = (FromFunction'ExpirationSpec -> FieldSet)
-> (FromFunction'ExpirationSpec
    -> FieldSet -> FromFunction'ExpirationSpec)
-> Lens' FromFunction'ExpirationSpec FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        FromFunction'ExpirationSpec -> FieldSet
_FromFunction'ExpirationSpec'_unknownFields
        (\ x__ :: FromFunction'ExpirationSpec
x__ y__ :: FieldSet
y__
           -> FromFunction'ExpirationSpec
x__ {_FromFunction'ExpirationSpec'_unknownFields :: FieldSet
_FromFunction'ExpirationSpec'_unknownFields = FieldSet
y__})
  defMessage :: FromFunction'ExpirationSpec
defMessage
    = $WFromFunction'ExpirationSpec'_constructor :: FromFunction'ExpirationSpec'ExpireMode
-> Int64 -> FieldSet -> FromFunction'ExpirationSpec
FromFunction'ExpirationSpec'_constructor
        {_FromFunction'ExpirationSpec'mode :: FromFunction'ExpirationSpec'ExpireMode
_FromFunction'ExpirationSpec'mode = FromFunction'ExpirationSpec'ExpireMode
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _FromFunction'ExpirationSpec'expireAfterMillis :: Int64
_FromFunction'ExpirationSpec'expireAfterMillis = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _FromFunction'ExpirationSpec'_unknownFields :: FieldSet
_FromFunction'ExpirationSpec'_unknownFields = []}
  parseMessage :: Parser FromFunction'ExpirationSpec
parseMessage
    = let
        loop ::
          FromFunction'ExpirationSpec
          -> Data.ProtoLens.Encoding.Bytes.Parser FromFunction'ExpirationSpec
        loop :: FromFunction'ExpirationSpec -> Parser FromFunction'ExpirationSpec
loop x :: FromFunction'ExpirationSpec
x
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  "Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      FromFunction'ExpirationSpec -> Parser FromFunction'ExpirationSpec
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter
  FromFunction'ExpirationSpec
  FromFunction'ExpirationSpec
  FieldSet
  FieldSet
-> (FieldSet -> FieldSet)
-> FromFunction'ExpirationSpec
-> FromFunction'ExpirationSpec
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           forall msg. Message msg => Lens' msg FieldSet
Setter
  FromFunction'ExpirationSpec
  FromFunction'ExpirationSpec
  FieldSet
  FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) FromFunction'ExpirationSpec
x)
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        8 -> do FromFunction'ExpirationSpec'ExpireMode
y <- Parser FromFunction'ExpirationSpec'ExpireMode
-> String -> Parser FromFunction'ExpirationSpec'ExpireMode
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Int -> FromFunction'ExpirationSpec'ExpireMode)
-> Parser Int -> Parser FromFunction'ExpirationSpec'ExpireMode
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Int -> FromFunction'ExpirationSpec'ExpireMode
forall a. Enum a => Int -> a
Prelude.toEnum
                                          ((Word64 -> Int) -> Parser Word64 -> Parser Int
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))
                                       "mode"
                                FromFunction'ExpirationSpec -> Parser FromFunction'ExpirationSpec
loop (Setter
  FromFunction'ExpirationSpec
  FromFunction'ExpirationSpec
  FromFunction'ExpirationSpec'ExpireMode
  FromFunction'ExpirationSpec'ExpireMode
-> FromFunction'ExpirationSpec'ExpireMode
-> FromFunction'ExpirationSpec
-> FromFunction'ExpirationSpec
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "mode" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"mode") FromFunction'ExpirationSpec'ExpireMode
y FromFunction'ExpirationSpec
x)
                        16
                          -> do Int64
y <- Parser Int64 -> String -> Parser Int64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Int64) -> Parser Word64 -> Parser Int64
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Word64 -> Int64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                          Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       "expire_after_millis"
                                FromFunction'ExpirationSpec -> Parser FromFunction'ExpirationSpec
loop
                                  (Setter
  FromFunction'ExpirationSpec FromFunction'ExpirationSpec Int64 Int64
-> Int64
-> FromFunction'ExpirationSpec
-> FromFunction'ExpirationSpec
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                     (forall s a (f :: * -> *).
(HasField s "expireAfterMillis" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"expireAfterMillis") Int64
y FromFunction'ExpirationSpec
x)
                        wire :: Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                FromFunction'ExpirationSpec -> Parser FromFunction'ExpirationSpec
loop
                                  (Setter
  FromFunction'ExpirationSpec
  FromFunction'ExpirationSpec
  FieldSet
  FieldSet
-> (FieldSet -> FieldSet)
-> FromFunction'ExpirationSpec
-> FromFunction'ExpirationSpec
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     forall msg. Message msg => Lens' msg FieldSet
Setter
  FromFunction'ExpirationSpec
  FromFunction'ExpirationSpec
  FieldSet
  FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) FromFunction'ExpirationSpec
x)
      in
        Parser FromFunction'ExpirationSpec
-> String -> Parser FromFunction'ExpirationSpec
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do FromFunction'ExpirationSpec -> Parser FromFunction'ExpirationSpec
loop FromFunction'ExpirationSpec
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "ExpirationSpec"
  buildMessage :: FromFunction'ExpirationSpec -> Builder
buildMessage
    = \ _x :: FromFunction'ExpirationSpec
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: FromFunction'ExpirationSpec'ExpireMode
_v = FoldLike
  FromFunction'ExpirationSpec'ExpireMode
  FromFunction'ExpirationSpec
  FromFunction'ExpirationSpec
  FromFunction'ExpirationSpec'ExpireMode
  FromFunction'ExpirationSpec'ExpireMode
-> FromFunction'ExpirationSpec
-> FromFunction'ExpirationSpec'ExpireMode
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "mode" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"mode") FromFunction'ExpirationSpec
_x
              in
                if FromFunction'ExpirationSpec'ExpireMode
-> FromFunction'ExpirationSpec'ExpireMode -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) FromFunction'ExpirationSpec'ExpireMode
_v FromFunction'ExpirationSpec'ExpireMode
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 8)
                      ((Int -> Builder)
-> (FromFunction'ExpirationSpec'ExpireMode -> Int)
-> FromFunction'ExpirationSpec'ExpireMode
-> 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)
                         FromFunction'ExpirationSpec'ExpireMode -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum
                         FromFunction'ExpirationSpec'ExpireMode
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (let
                   _v :: Int64
_v
                     = FoldLike
  Int64
  FromFunction'ExpirationSpec
  FromFunction'ExpirationSpec
  Int64
  Int64
-> FromFunction'ExpirationSpec -> Int64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                         (forall s a (f :: * -> *).
(HasField s "expireAfterMillis" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"expireAfterMillis") FromFunction'ExpirationSpec
_x
                 in
                   if Int64 -> Int64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Int64
_v Int64
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 16)
                         ((Word64 -> Builder) -> (Int64 -> Word64) -> Int64 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                            Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int64 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int64
_v))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike
  FieldSet
  FromFunction'ExpirationSpec
  FromFunction'ExpirationSpec
  FieldSet
  FieldSet
-> FromFunction'ExpirationSpec -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  FromFunction'ExpirationSpec
  FromFunction'ExpirationSpec
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields FromFunction'ExpirationSpec
_x)))
instance Control.DeepSeq.NFData FromFunction'ExpirationSpec where
  rnf :: FromFunction'ExpirationSpec -> ()
rnf
    = \ x__ :: FromFunction'ExpirationSpec
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (FromFunction'ExpirationSpec -> FieldSet
_FromFunction'ExpirationSpec'_unknownFields FromFunction'ExpirationSpec
x__)
             (FromFunction'ExpirationSpec'ExpireMode -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (FromFunction'ExpirationSpec
-> FromFunction'ExpirationSpec'ExpireMode
_FromFunction'ExpirationSpec'mode FromFunction'ExpirationSpec
x__)
                (Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (FromFunction'ExpirationSpec -> Int64
_FromFunction'ExpirationSpec'expireAfterMillis FromFunction'ExpirationSpec
x__) ()))
newtype FromFunction'ExpirationSpec'ExpireMode'UnrecognizedValue
  = FromFunction'ExpirationSpec'ExpireMode'UnrecognizedValue Data.Int.Int32
  deriving stock (FromFunction'ExpirationSpec'ExpireMode'UnrecognizedValue
-> FromFunction'ExpirationSpec'ExpireMode'UnrecognizedValue -> Bool
(FromFunction'ExpirationSpec'ExpireMode'UnrecognizedValue
 -> FromFunction'ExpirationSpec'ExpireMode'UnrecognizedValue
 -> Bool)
-> (FromFunction'ExpirationSpec'ExpireMode'UnrecognizedValue
    -> FromFunction'ExpirationSpec'ExpireMode'UnrecognizedValue
    -> Bool)
-> Eq FromFunction'ExpirationSpec'ExpireMode'UnrecognizedValue
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: FromFunction'ExpirationSpec'ExpireMode'UnrecognizedValue
-> FromFunction'ExpirationSpec'ExpireMode'UnrecognizedValue -> Bool
$c/= :: FromFunction'ExpirationSpec'ExpireMode'UnrecognizedValue
-> FromFunction'ExpirationSpec'ExpireMode'UnrecognizedValue -> Bool
== :: FromFunction'ExpirationSpec'ExpireMode'UnrecognizedValue
-> FromFunction'ExpirationSpec'ExpireMode'UnrecognizedValue -> Bool
$c== :: FromFunction'ExpirationSpec'ExpireMode'UnrecognizedValue
-> FromFunction'ExpirationSpec'ExpireMode'UnrecognizedValue -> Bool
Prelude.Eq, Eq FromFunction'ExpirationSpec'ExpireMode'UnrecognizedValue
Eq FromFunction'ExpirationSpec'ExpireMode'UnrecognizedValue =>
(FromFunction'ExpirationSpec'ExpireMode'UnrecognizedValue
 -> FromFunction'ExpirationSpec'ExpireMode'UnrecognizedValue
 -> Ordering)
-> (FromFunction'ExpirationSpec'ExpireMode'UnrecognizedValue
    -> FromFunction'ExpirationSpec'ExpireMode'UnrecognizedValue
    -> Bool)
-> (FromFunction'ExpirationSpec'ExpireMode'UnrecognizedValue
    -> FromFunction'ExpirationSpec'ExpireMode'UnrecognizedValue
    -> Bool)
-> (FromFunction'ExpirationSpec'ExpireMode'UnrecognizedValue
    -> FromFunction'ExpirationSpec'ExpireMode'UnrecognizedValue
    -> Bool)
-> (FromFunction'ExpirationSpec'ExpireMode'UnrecognizedValue
    -> FromFunction'ExpirationSpec'ExpireMode'UnrecognizedValue
    -> Bool)
-> (FromFunction'ExpirationSpec'ExpireMode'UnrecognizedValue
    -> FromFunction'ExpirationSpec'ExpireMode'UnrecognizedValue
    -> FromFunction'ExpirationSpec'ExpireMode'UnrecognizedValue)
-> (FromFunction'ExpirationSpec'ExpireMode'UnrecognizedValue
    -> FromFunction'ExpirationSpec'ExpireMode'UnrecognizedValue
    -> FromFunction'ExpirationSpec'ExpireMode'UnrecognizedValue)
-> Ord FromFunction'ExpirationSpec'ExpireMode'UnrecognizedValue
FromFunction'ExpirationSpec'ExpireMode'UnrecognizedValue
-> FromFunction'ExpirationSpec'ExpireMode'UnrecognizedValue -> Bool
FromFunction'ExpirationSpec'ExpireMode'UnrecognizedValue
-> FromFunction'ExpirationSpec'ExpireMode'UnrecognizedValue
-> Ordering
FromFunction'ExpirationSpec'ExpireMode'UnrecognizedValue
-> FromFunction'ExpirationSpec'ExpireMode'UnrecognizedValue
-> FromFunction'ExpirationSpec'ExpireMode'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
min :: FromFunction'ExpirationSpec'ExpireMode'UnrecognizedValue
-> FromFunction'ExpirationSpec'ExpireMode'UnrecognizedValue
-> FromFunction'ExpirationSpec'ExpireMode'UnrecognizedValue
$cmin :: FromFunction'ExpirationSpec'ExpireMode'UnrecognizedValue
-> FromFunction'ExpirationSpec'ExpireMode'UnrecognizedValue
-> FromFunction'ExpirationSpec'ExpireMode'UnrecognizedValue
max :: FromFunction'ExpirationSpec'ExpireMode'UnrecognizedValue
-> FromFunction'ExpirationSpec'ExpireMode'UnrecognizedValue
-> FromFunction'ExpirationSpec'ExpireMode'UnrecognizedValue
$cmax :: FromFunction'ExpirationSpec'ExpireMode'UnrecognizedValue
-> FromFunction'ExpirationSpec'ExpireMode'UnrecognizedValue
-> FromFunction'ExpirationSpec'ExpireMode'UnrecognizedValue
>= :: FromFunction'ExpirationSpec'ExpireMode'UnrecognizedValue
-> FromFunction'ExpirationSpec'ExpireMode'UnrecognizedValue -> Bool
$c>= :: FromFunction'ExpirationSpec'ExpireMode'UnrecognizedValue
-> FromFunction'ExpirationSpec'ExpireMode'UnrecognizedValue -> Bool
> :: FromFunction'ExpirationSpec'ExpireMode'UnrecognizedValue
-> FromFunction'ExpirationSpec'ExpireMode'UnrecognizedValue -> Bool
$c> :: FromFunction'ExpirationSpec'ExpireMode'UnrecognizedValue
-> FromFunction'ExpirationSpec'ExpireMode'UnrecognizedValue -> Bool
<= :: FromFunction'ExpirationSpec'ExpireMode'UnrecognizedValue
-> FromFunction'ExpirationSpec'ExpireMode'UnrecognizedValue -> Bool
$c<= :: FromFunction'ExpirationSpec'ExpireMode'UnrecognizedValue
-> FromFunction'ExpirationSpec'ExpireMode'UnrecognizedValue -> Bool
< :: FromFunction'ExpirationSpec'ExpireMode'UnrecognizedValue
-> FromFunction'ExpirationSpec'ExpireMode'UnrecognizedValue -> Bool
$c< :: FromFunction'ExpirationSpec'ExpireMode'UnrecognizedValue
-> FromFunction'ExpirationSpec'ExpireMode'UnrecognizedValue -> Bool
compare :: FromFunction'ExpirationSpec'ExpireMode'UnrecognizedValue
-> FromFunction'ExpirationSpec'ExpireMode'UnrecognizedValue
-> Ordering
$ccompare :: FromFunction'ExpirationSpec'ExpireMode'UnrecognizedValue
-> FromFunction'ExpirationSpec'ExpireMode'UnrecognizedValue
-> Ordering
$cp1Ord :: Eq FromFunction'ExpirationSpec'ExpireMode'UnrecognizedValue
Prelude.Ord, Int
-> FromFunction'ExpirationSpec'ExpireMode'UnrecognizedValue
-> ShowS
[FromFunction'ExpirationSpec'ExpireMode'UnrecognizedValue] -> ShowS
FromFunction'ExpirationSpec'ExpireMode'UnrecognizedValue -> String
(Int
 -> FromFunction'ExpirationSpec'ExpireMode'UnrecognizedValue
 -> ShowS)
-> (FromFunction'ExpirationSpec'ExpireMode'UnrecognizedValue
    -> String)
-> ([FromFunction'ExpirationSpec'ExpireMode'UnrecognizedValue]
    -> ShowS)
-> Show FromFunction'ExpirationSpec'ExpireMode'UnrecognizedValue
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [FromFunction'ExpirationSpec'ExpireMode'UnrecognizedValue] -> ShowS
$cshowList :: [FromFunction'ExpirationSpec'ExpireMode'UnrecognizedValue] -> ShowS
show :: FromFunction'ExpirationSpec'ExpireMode'UnrecognizedValue -> String
$cshow :: FromFunction'ExpirationSpec'ExpireMode'UnrecognizedValue -> String
showsPrec :: Int
-> FromFunction'ExpirationSpec'ExpireMode'UnrecognizedValue
-> ShowS
$cshowsPrec :: Int
-> FromFunction'ExpirationSpec'ExpireMode'UnrecognizedValue
-> ShowS
Prelude.Show)
data FromFunction'ExpirationSpec'ExpireMode
  = FromFunction'ExpirationSpec'NONE |
    FromFunction'ExpirationSpec'AFTER_WRITE |
    FromFunction'ExpirationSpec'AFTER_INVOKE |
    FromFunction'ExpirationSpec'ExpireMode'Unrecognized !FromFunction'ExpirationSpec'ExpireMode'UnrecognizedValue
  deriving stock (Int -> FromFunction'ExpirationSpec'ExpireMode -> ShowS
[FromFunction'ExpirationSpec'ExpireMode] -> ShowS
FromFunction'ExpirationSpec'ExpireMode -> String
(Int -> FromFunction'ExpirationSpec'ExpireMode -> ShowS)
-> (FromFunction'ExpirationSpec'ExpireMode -> String)
-> ([FromFunction'ExpirationSpec'ExpireMode] -> ShowS)
-> Show FromFunction'ExpirationSpec'ExpireMode
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [FromFunction'ExpirationSpec'ExpireMode] -> ShowS
$cshowList :: [FromFunction'ExpirationSpec'ExpireMode] -> ShowS
show :: FromFunction'ExpirationSpec'ExpireMode -> String
$cshow :: FromFunction'ExpirationSpec'ExpireMode -> String
showsPrec :: Int -> FromFunction'ExpirationSpec'ExpireMode -> ShowS
$cshowsPrec :: Int -> FromFunction'ExpirationSpec'ExpireMode -> ShowS
Prelude.Show, FromFunction'ExpirationSpec'ExpireMode
-> FromFunction'ExpirationSpec'ExpireMode -> Bool
(FromFunction'ExpirationSpec'ExpireMode
 -> FromFunction'ExpirationSpec'ExpireMode -> Bool)
-> (FromFunction'ExpirationSpec'ExpireMode
    -> FromFunction'ExpirationSpec'ExpireMode -> Bool)
-> Eq FromFunction'ExpirationSpec'ExpireMode
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: FromFunction'ExpirationSpec'ExpireMode
-> FromFunction'ExpirationSpec'ExpireMode -> Bool
$c/= :: FromFunction'ExpirationSpec'ExpireMode
-> FromFunction'ExpirationSpec'ExpireMode -> Bool
== :: FromFunction'ExpirationSpec'ExpireMode
-> FromFunction'ExpirationSpec'ExpireMode -> Bool
$c== :: FromFunction'ExpirationSpec'ExpireMode
-> FromFunction'ExpirationSpec'ExpireMode -> Bool
Prelude.Eq, Eq FromFunction'ExpirationSpec'ExpireMode
Eq FromFunction'ExpirationSpec'ExpireMode =>
(FromFunction'ExpirationSpec'ExpireMode
 -> FromFunction'ExpirationSpec'ExpireMode -> Ordering)
-> (FromFunction'ExpirationSpec'ExpireMode
    -> FromFunction'ExpirationSpec'ExpireMode -> Bool)
-> (FromFunction'ExpirationSpec'ExpireMode
    -> FromFunction'ExpirationSpec'ExpireMode -> Bool)
-> (FromFunction'ExpirationSpec'ExpireMode
    -> FromFunction'ExpirationSpec'ExpireMode -> Bool)
-> (FromFunction'ExpirationSpec'ExpireMode
    -> FromFunction'ExpirationSpec'ExpireMode -> Bool)
-> (FromFunction'ExpirationSpec'ExpireMode
    -> FromFunction'ExpirationSpec'ExpireMode
    -> FromFunction'ExpirationSpec'ExpireMode)
-> (FromFunction'ExpirationSpec'ExpireMode
    -> FromFunction'ExpirationSpec'ExpireMode
    -> FromFunction'ExpirationSpec'ExpireMode)
-> Ord FromFunction'ExpirationSpec'ExpireMode
FromFunction'ExpirationSpec'ExpireMode
-> FromFunction'ExpirationSpec'ExpireMode -> Bool
FromFunction'ExpirationSpec'ExpireMode
-> FromFunction'ExpirationSpec'ExpireMode -> Ordering
FromFunction'ExpirationSpec'ExpireMode
-> FromFunction'ExpirationSpec'ExpireMode
-> FromFunction'ExpirationSpec'ExpireMode
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
min :: FromFunction'ExpirationSpec'ExpireMode
-> FromFunction'ExpirationSpec'ExpireMode
-> FromFunction'ExpirationSpec'ExpireMode
$cmin :: FromFunction'ExpirationSpec'ExpireMode
-> FromFunction'ExpirationSpec'ExpireMode
-> FromFunction'ExpirationSpec'ExpireMode
max :: FromFunction'ExpirationSpec'ExpireMode
-> FromFunction'ExpirationSpec'ExpireMode
-> FromFunction'ExpirationSpec'ExpireMode
$cmax :: FromFunction'ExpirationSpec'ExpireMode
-> FromFunction'ExpirationSpec'ExpireMode
-> FromFunction'ExpirationSpec'ExpireMode
>= :: FromFunction'ExpirationSpec'ExpireMode
-> FromFunction'ExpirationSpec'ExpireMode -> Bool
$c>= :: FromFunction'ExpirationSpec'ExpireMode
-> FromFunction'ExpirationSpec'ExpireMode -> Bool
> :: FromFunction'ExpirationSpec'ExpireMode
-> FromFunction'ExpirationSpec'ExpireMode -> Bool
$c> :: FromFunction'ExpirationSpec'ExpireMode
-> FromFunction'ExpirationSpec'ExpireMode -> Bool
<= :: FromFunction'ExpirationSpec'ExpireMode
-> FromFunction'ExpirationSpec'ExpireMode -> Bool
$c<= :: FromFunction'ExpirationSpec'ExpireMode
-> FromFunction'ExpirationSpec'ExpireMode -> Bool
< :: FromFunction'ExpirationSpec'ExpireMode
-> FromFunction'ExpirationSpec'ExpireMode -> Bool
$c< :: FromFunction'ExpirationSpec'ExpireMode
-> FromFunction'ExpirationSpec'ExpireMode -> Bool
compare :: FromFunction'ExpirationSpec'ExpireMode
-> FromFunction'ExpirationSpec'ExpireMode -> Ordering
$ccompare :: FromFunction'ExpirationSpec'ExpireMode
-> FromFunction'ExpirationSpec'ExpireMode -> Ordering
$cp1Ord :: Eq FromFunction'ExpirationSpec'ExpireMode
Prelude.Ord)
instance Data.ProtoLens.MessageEnum FromFunction'ExpirationSpec'ExpireMode where
  maybeToEnum :: Int -> Maybe FromFunction'ExpirationSpec'ExpireMode
maybeToEnum 0 = FromFunction'ExpirationSpec'ExpireMode
-> Maybe FromFunction'ExpirationSpec'ExpireMode
forall a. a -> Maybe a
Prelude.Just FromFunction'ExpirationSpec'ExpireMode
FromFunction'ExpirationSpec'NONE
  maybeToEnum 1
    = FromFunction'ExpirationSpec'ExpireMode
-> Maybe FromFunction'ExpirationSpec'ExpireMode
forall a. a -> Maybe a
Prelude.Just FromFunction'ExpirationSpec'ExpireMode
FromFunction'ExpirationSpec'AFTER_WRITE
  maybeToEnum 2
    = FromFunction'ExpirationSpec'ExpireMode
-> Maybe FromFunction'ExpirationSpec'ExpireMode
forall a. a -> Maybe a
Prelude.Just FromFunction'ExpirationSpec'ExpireMode
FromFunction'ExpirationSpec'AFTER_INVOKE
  maybeToEnum k :: Int
k
    = FromFunction'ExpirationSpec'ExpireMode
-> Maybe FromFunction'ExpirationSpec'ExpireMode
forall a. a -> Maybe a
Prelude.Just
        (FromFunction'ExpirationSpec'ExpireMode'UnrecognizedValue
-> FromFunction'ExpirationSpec'ExpireMode
FromFunction'ExpirationSpec'ExpireMode'Unrecognized
           (Int32 -> FromFunction'ExpirationSpec'ExpireMode'UnrecognizedValue
FromFunction'ExpirationSpec'ExpireMode'UnrecognizedValue
              (Int -> Int32
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int
k)))
  showEnum :: FromFunction'ExpirationSpec'ExpireMode -> String
showEnum FromFunction'ExpirationSpec'NONE = "NONE"
  showEnum FromFunction'ExpirationSpec'AFTER_WRITE = "AFTER_WRITE"
  showEnum FromFunction'ExpirationSpec'AFTER_INVOKE = "AFTER_INVOKE"
  showEnum
    (FromFunction'ExpirationSpec'ExpireMode'Unrecognized (FromFunction'ExpirationSpec'ExpireMode'UnrecognizedValue k :: Int32
k))
    = Int32 -> String
forall a. Show a => a -> String
Prelude.show Int32
k
  readEnum :: String -> Maybe FromFunction'ExpirationSpec'ExpireMode
readEnum k :: String
k
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k "NONE"
    = FromFunction'ExpirationSpec'ExpireMode
-> Maybe FromFunction'ExpirationSpec'ExpireMode
forall a. a -> Maybe a
Prelude.Just FromFunction'ExpirationSpec'ExpireMode
FromFunction'ExpirationSpec'NONE
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k "AFTER_WRITE"
    = FromFunction'ExpirationSpec'ExpireMode
-> Maybe FromFunction'ExpirationSpec'ExpireMode
forall a. a -> Maybe a
Prelude.Just FromFunction'ExpirationSpec'ExpireMode
FromFunction'ExpirationSpec'AFTER_WRITE
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k "AFTER_INVOKE"
    = FromFunction'ExpirationSpec'ExpireMode
-> Maybe FromFunction'ExpirationSpec'ExpireMode
forall a. a -> Maybe a
Prelude.Just FromFunction'ExpirationSpec'ExpireMode
FromFunction'ExpirationSpec'AFTER_INVOKE
    | Bool
Prelude.otherwise
    = Maybe Int
-> (Int -> Maybe FromFunction'ExpirationSpec'ExpireMode)
-> Maybe FromFunction'ExpirationSpec'ExpireMode
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 FromFunction'ExpirationSpec'ExpireMode
forall a. MessageEnum a => Int -> Maybe a
Data.ProtoLens.maybeToEnum
instance Prelude.Bounded FromFunction'ExpirationSpec'ExpireMode where
  minBound :: FromFunction'ExpirationSpec'ExpireMode
minBound = FromFunction'ExpirationSpec'ExpireMode
FromFunction'ExpirationSpec'NONE
  maxBound :: FromFunction'ExpirationSpec'ExpireMode
maxBound = FromFunction'ExpirationSpec'ExpireMode
FromFunction'ExpirationSpec'AFTER_INVOKE
instance Prelude.Enum FromFunction'ExpirationSpec'ExpireMode where
  toEnum :: Int -> FromFunction'ExpirationSpec'ExpireMode
toEnum k__ :: Int
k__
    = FromFunction'ExpirationSpec'ExpireMode
-> (FromFunction'ExpirationSpec'ExpireMode
    -> FromFunction'ExpirationSpec'ExpireMode)
-> Maybe FromFunction'ExpirationSpec'ExpireMode
-> FromFunction'ExpirationSpec'ExpireMode
forall b a. b -> (a -> b) -> Maybe a -> b
Prelude.maybe
        (String -> FromFunction'ExpirationSpec'ExpireMode
forall a. HasCallStack => String -> a
Prelude.error
           (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
              "toEnum: unknown value for enum ExpireMode: " (Int -> String
forall a. Show a => a -> String
Prelude.show Int
k__)))
        FromFunction'ExpirationSpec'ExpireMode
-> FromFunction'ExpirationSpec'ExpireMode
forall a. a -> a
Prelude.id
        (Int -> Maybe FromFunction'ExpirationSpec'ExpireMode
forall a. MessageEnum a => Int -> Maybe a
Data.ProtoLens.maybeToEnum Int
k__)
  fromEnum :: FromFunction'ExpirationSpec'ExpireMode -> Int
fromEnum FromFunction'ExpirationSpec'NONE = 0
  fromEnum FromFunction'ExpirationSpec'AFTER_WRITE = 1
  fromEnum FromFunction'ExpirationSpec'AFTER_INVOKE = 2
  fromEnum
    (FromFunction'ExpirationSpec'ExpireMode'Unrecognized (FromFunction'ExpirationSpec'ExpireMode'UnrecognizedValue k :: Int32
k))
    = Int32 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int32
k
  succ :: FromFunction'ExpirationSpec'ExpireMode
-> FromFunction'ExpirationSpec'ExpireMode
succ FromFunction'ExpirationSpec'AFTER_INVOKE
    = String -> FromFunction'ExpirationSpec'ExpireMode
forall a. HasCallStack => String -> a
Prelude.error
        "FromFunction'ExpirationSpec'ExpireMode.succ: bad argument FromFunction'ExpirationSpec'AFTER_INVOKE. This value would be out of bounds."
  succ FromFunction'ExpirationSpec'NONE
    = FromFunction'ExpirationSpec'ExpireMode
FromFunction'ExpirationSpec'AFTER_WRITE
  succ FromFunction'ExpirationSpec'AFTER_WRITE
    = FromFunction'ExpirationSpec'ExpireMode
FromFunction'ExpirationSpec'AFTER_INVOKE
  succ (FromFunction'ExpirationSpec'ExpireMode'Unrecognized _)
    = String -> FromFunction'ExpirationSpec'ExpireMode
forall a. HasCallStack => String -> a
Prelude.error
        "FromFunction'ExpirationSpec'ExpireMode.succ: bad argument: unrecognized value"
  pred :: FromFunction'ExpirationSpec'ExpireMode
-> FromFunction'ExpirationSpec'ExpireMode
pred FromFunction'ExpirationSpec'NONE
    = String -> FromFunction'ExpirationSpec'ExpireMode
forall a. HasCallStack => String -> a
Prelude.error
        "FromFunction'ExpirationSpec'ExpireMode.pred: bad argument FromFunction'ExpirationSpec'NONE. This value would be out of bounds."
  pred FromFunction'ExpirationSpec'AFTER_WRITE
    = FromFunction'ExpirationSpec'ExpireMode
FromFunction'ExpirationSpec'NONE
  pred FromFunction'ExpirationSpec'AFTER_INVOKE
    = FromFunction'ExpirationSpec'ExpireMode
FromFunction'ExpirationSpec'AFTER_WRITE
  pred (FromFunction'ExpirationSpec'ExpireMode'Unrecognized _)
    = String -> FromFunction'ExpirationSpec'ExpireMode
forall a. HasCallStack => String -> a
Prelude.error
        "FromFunction'ExpirationSpec'ExpireMode.pred: bad argument: unrecognized value"
  enumFrom :: FromFunction'ExpirationSpec'ExpireMode
-> [FromFunction'ExpirationSpec'ExpireMode]
enumFrom = FromFunction'ExpirationSpec'ExpireMode
-> [FromFunction'ExpirationSpec'ExpireMode]
forall a. (Enum a, Bounded a) => a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFrom
  enumFromTo :: FromFunction'ExpirationSpec'ExpireMode
-> FromFunction'ExpirationSpec'ExpireMode
-> [FromFunction'ExpirationSpec'ExpireMode]
enumFromTo = FromFunction'ExpirationSpec'ExpireMode
-> FromFunction'ExpirationSpec'ExpireMode
-> [FromFunction'ExpirationSpec'ExpireMode]
forall a. Enum a => a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromTo
  enumFromThen :: FromFunction'ExpirationSpec'ExpireMode
-> FromFunction'ExpirationSpec'ExpireMode
-> [FromFunction'ExpirationSpec'ExpireMode]
enumFromThen = FromFunction'ExpirationSpec'ExpireMode
-> FromFunction'ExpirationSpec'ExpireMode
-> [FromFunction'ExpirationSpec'ExpireMode]
forall a. (Enum a, Bounded a) => a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromThen
  enumFromThenTo :: FromFunction'ExpirationSpec'ExpireMode
-> FromFunction'ExpirationSpec'ExpireMode
-> FromFunction'ExpirationSpec'ExpireMode
-> [FromFunction'ExpirationSpec'ExpireMode]
enumFromThenTo = FromFunction'ExpirationSpec'ExpireMode
-> FromFunction'ExpirationSpec'ExpireMode
-> FromFunction'ExpirationSpec'ExpireMode
-> [FromFunction'ExpirationSpec'ExpireMode]
forall a. Enum a => a -> a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromThenTo
instance Data.ProtoLens.FieldDefault FromFunction'ExpirationSpec'ExpireMode where
  fieldDefault :: FromFunction'ExpirationSpec'ExpireMode
fieldDefault = FromFunction'ExpirationSpec'ExpireMode
FromFunction'ExpirationSpec'NONE
instance Control.DeepSeq.NFData FromFunction'ExpirationSpec'ExpireMode where
  rnf :: FromFunction'ExpirationSpec'ExpireMode -> ()
rnf x__ :: FromFunction'ExpirationSpec'ExpireMode
x__ = FromFunction'ExpirationSpec'ExpireMode -> () -> ()
forall a b. a -> b -> b
Prelude.seq FromFunction'ExpirationSpec'ExpireMode
x__ ()
{- | Fields :
     
         * 'Proto.RequestReply_Fields.missingValues' @:: Lens' FromFunction'IncompleteInvocationContext [FromFunction'PersistedValueSpec]@
         * 'Proto.RequestReply_Fields.vec'missingValues' @:: Lens' FromFunction'IncompleteInvocationContext (Data.Vector.Vector FromFunction'PersistedValueSpec)@ -}
data FromFunction'IncompleteInvocationContext
  = FromFunction'IncompleteInvocationContext'_constructor {FromFunction'IncompleteInvocationContext
-> Vector FromFunction'PersistedValueSpec
_FromFunction'IncompleteInvocationContext'missingValues :: !(Data.Vector.Vector FromFunction'PersistedValueSpec),
                                                           FromFunction'IncompleteInvocationContext -> FieldSet
_FromFunction'IncompleteInvocationContext'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (FromFunction'IncompleteInvocationContext
-> FromFunction'IncompleteInvocationContext -> Bool
(FromFunction'IncompleteInvocationContext
 -> FromFunction'IncompleteInvocationContext -> Bool)
-> (FromFunction'IncompleteInvocationContext
    -> FromFunction'IncompleteInvocationContext -> Bool)
-> Eq FromFunction'IncompleteInvocationContext
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: FromFunction'IncompleteInvocationContext
-> FromFunction'IncompleteInvocationContext -> Bool
$c/= :: FromFunction'IncompleteInvocationContext
-> FromFunction'IncompleteInvocationContext -> Bool
== :: FromFunction'IncompleteInvocationContext
-> FromFunction'IncompleteInvocationContext -> Bool
$c== :: FromFunction'IncompleteInvocationContext
-> FromFunction'IncompleteInvocationContext -> Bool
Prelude.Eq, Eq FromFunction'IncompleteInvocationContext
Eq FromFunction'IncompleteInvocationContext =>
(FromFunction'IncompleteInvocationContext
 -> FromFunction'IncompleteInvocationContext -> Ordering)
-> (FromFunction'IncompleteInvocationContext
    -> FromFunction'IncompleteInvocationContext -> Bool)
-> (FromFunction'IncompleteInvocationContext
    -> FromFunction'IncompleteInvocationContext -> Bool)
-> (FromFunction'IncompleteInvocationContext
    -> FromFunction'IncompleteInvocationContext -> Bool)
-> (FromFunction'IncompleteInvocationContext
    -> FromFunction'IncompleteInvocationContext -> Bool)
-> (FromFunction'IncompleteInvocationContext
    -> FromFunction'IncompleteInvocationContext
    -> FromFunction'IncompleteInvocationContext)
-> (FromFunction'IncompleteInvocationContext
    -> FromFunction'IncompleteInvocationContext
    -> FromFunction'IncompleteInvocationContext)
-> Ord FromFunction'IncompleteInvocationContext
FromFunction'IncompleteInvocationContext
-> FromFunction'IncompleteInvocationContext -> Bool
FromFunction'IncompleteInvocationContext
-> FromFunction'IncompleteInvocationContext -> Ordering
FromFunction'IncompleteInvocationContext
-> FromFunction'IncompleteInvocationContext
-> FromFunction'IncompleteInvocationContext
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
min :: FromFunction'IncompleteInvocationContext
-> FromFunction'IncompleteInvocationContext
-> FromFunction'IncompleteInvocationContext
$cmin :: FromFunction'IncompleteInvocationContext
-> FromFunction'IncompleteInvocationContext
-> FromFunction'IncompleteInvocationContext
max :: FromFunction'IncompleteInvocationContext
-> FromFunction'IncompleteInvocationContext
-> FromFunction'IncompleteInvocationContext
$cmax :: FromFunction'IncompleteInvocationContext
-> FromFunction'IncompleteInvocationContext
-> FromFunction'IncompleteInvocationContext
>= :: FromFunction'IncompleteInvocationContext
-> FromFunction'IncompleteInvocationContext -> Bool
$c>= :: FromFunction'IncompleteInvocationContext
-> FromFunction'IncompleteInvocationContext -> Bool
> :: FromFunction'IncompleteInvocationContext
-> FromFunction'IncompleteInvocationContext -> Bool
$c> :: FromFunction'IncompleteInvocationContext
-> FromFunction'IncompleteInvocationContext -> Bool
<= :: FromFunction'IncompleteInvocationContext
-> FromFunction'IncompleteInvocationContext -> Bool
$c<= :: FromFunction'IncompleteInvocationContext
-> FromFunction'IncompleteInvocationContext -> Bool
< :: FromFunction'IncompleteInvocationContext
-> FromFunction'IncompleteInvocationContext -> Bool
$c< :: FromFunction'IncompleteInvocationContext
-> FromFunction'IncompleteInvocationContext -> Bool
compare :: FromFunction'IncompleteInvocationContext
-> FromFunction'IncompleteInvocationContext -> Ordering
$ccompare :: FromFunction'IncompleteInvocationContext
-> FromFunction'IncompleteInvocationContext -> Ordering
$cp1Ord :: Eq FromFunction'IncompleteInvocationContext
Prelude.Ord)
instance Prelude.Show FromFunction'IncompleteInvocationContext where
  showsPrec :: Int -> FromFunction'IncompleteInvocationContext -> ShowS
showsPrec _ __x :: FromFunction'IncompleteInvocationContext
__x __s :: String
__s
    = Char -> ShowS
Prelude.showChar
        '{'
        (String -> ShowS
Prelude.showString
           (FromFunction'IncompleteInvocationContext -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort FromFunction'IncompleteInvocationContext
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField FromFunction'IncompleteInvocationContext "missingValues" [FromFunction'PersistedValueSpec] where
  fieldOf :: Proxy# "missingValues"
-> ([FromFunction'PersistedValueSpec]
    -> f [FromFunction'PersistedValueSpec])
-> FromFunction'IncompleteInvocationContext
-> f FromFunction'IncompleteInvocationContext
fieldOf _
    = ((Vector FromFunction'PersistedValueSpec
  -> f (Vector FromFunction'PersistedValueSpec))
 -> FromFunction'IncompleteInvocationContext
 -> f FromFunction'IncompleteInvocationContext)
-> (([FromFunction'PersistedValueSpec]
     -> f [FromFunction'PersistedValueSpec])
    -> Vector FromFunction'PersistedValueSpec
    -> f (Vector FromFunction'PersistedValueSpec))
-> ([FromFunction'PersistedValueSpec]
    -> f [FromFunction'PersistedValueSpec])
-> FromFunction'IncompleteInvocationContext
-> f FromFunction'IncompleteInvocationContext
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FromFunction'IncompleteInvocationContext
 -> Vector FromFunction'PersistedValueSpec)
-> (FromFunction'IncompleteInvocationContext
    -> Vector FromFunction'PersistedValueSpec
    -> FromFunction'IncompleteInvocationContext)
-> Lens
     FromFunction'IncompleteInvocationContext
     FromFunction'IncompleteInvocationContext
     (Vector FromFunction'PersistedValueSpec)
     (Vector FromFunction'PersistedValueSpec)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FromFunction'IncompleteInvocationContext
-> Vector FromFunction'PersistedValueSpec
_FromFunction'IncompleteInvocationContext'missingValues
           (\ x__ :: FromFunction'IncompleteInvocationContext
x__ y__ :: Vector FromFunction'PersistedValueSpec
y__
              -> FromFunction'IncompleteInvocationContext
x__
                   {_FromFunction'IncompleteInvocationContext'missingValues :: Vector FromFunction'PersistedValueSpec
_FromFunction'IncompleteInvocationContext'missingValues = Vector FromFunction'PersistedValueSpec
y__}))
        ((Vector FromFunction'PersistedValueSpec
 -> [FromFunction'PersistedValueSpec])
-> (Vector FromFunction'PersistedValueSpec
    -> [FromFunction'PersistedValueSpec]
    -> Vector FromFunction'PersistedValueSpec)
-> Lens
     (Vector FromFunction'PersistedValueSpec)
     (Vector FromFunction'PersistedValueSpec)
     [FromFunction'PersistedValueSpec]
     [FromFunction'PersistedValueSpec]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector FromFunction'PersistedValueSpec
-> [FromFunction'PersistedValueSpec]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ _ y__ :: [FromFunction'PersistedValueSpec]
y__ -> [FromFunction'PersistedValueSpec]
-> Vector FromFunction'PersistedValueSpec
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [FromFunction'PersistedValueSpec]
y__))
instance Data.ProtoLens.Field.HasField FromFunction'IncompleteInvocationContext "vec'missingValues" (Data.Vector.Vector FromFunction'PersistedValueSpec) where
  fieldOf :: Proxy# "vec'missingValues"
-> (Vector FromFunction'PersistedValueSpec
    -> f (Vector FromFunction'PersistedValueSpec))
-> FromFunction'IncompleteInvocationContext
-> f FromFunction'IncompleteInvocationContext
fieldOf _
    = ((Vector FromFunction'PersistedValueSpec
  -> f (Vector FromFunction'PersistedValueSpec))
 -> FromFunction'IncompleteInvocationContext
 -> f FromFunction'IncompleteInvocationContext)
-> ((Vector FromFunction'PersistedValueSpec
     -> f (Vector FromFunction'PersistedValueSpec))
    -> Vector FromFunction'PersistedValueSpec
    -> f (Vector FromFunction'PersistedValueSpec))
-> (Vector FromFunction'PersistedValueSpec
    -> f (Vector FromFunction'PersistedValueSpec))
-> FromFunction'IncompleteInvocationContext
-> f FromFunction'IncompleteInvocationContext
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FromFunction'IncompleteInvocationContext
 -> Vector FromFunction'PersistedValueSpec)
-> (FromFunction'IncompleteInvocationContext
    -> Vector FromFunction'PersistedValueSpec
    -> FromFunction'IncompleteInvocationContext)
-> Lens
     FromFunction'IncompleteInvocationContext
     FromFunction'IncompleteInvocationContext
     (Vector FromFunction'PersistedValueSpec)
     (Vector FromFunction'PersistedValueSpec)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FromFunction'IncompleteInvocationContext
-> Vector FromFunction'PersistedValueSpec
_FromFunction'IncompleteInvocationContext'missingValues
           (\ x__ :: FromFunction'IncompleteInvocationContext
x__ y__ :: Vector FromFunction'PersistedValueSpec
y__
              -> FromFunction'IncompleteInvocationContext
x__
                   {_FromFunction'IncompleteInvocationContext'missingValues :: Vector FromFunction'PersistedValueSpec
_FromFunction'IncompleteInvocationContext'missingValues = Vector FromFunction'PersistedValueSpec
y__}))
        (Vector FromFunction'PersistedValueSpec
 -> f (Vector FromFunction'PersistedValueSpec))
-> Vector FromFunction'PersistedValueSpec
-> f (Vector FromFunction'PersistedValueSpec)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message FromFunction'IncompleteInvocationContext where
  messageName :: Proxy FromFunction'IncompleteInvocationContext -> Text
messageName _
    = String -> Text
Data.Text.pack
        "io.statefun.sdk.reqreply.FromFunction.IncompleteInvocationContext"
  packedMessageDescriptor :: Proxy FromFunction'IncompleteInvocationContext -> ByteString
packedMessageDescriptor _
    = "\n\
      \\ESCIncompleteInvocationContext\DC2`\n\
      \\SOmissing_values\CAN\SOH \ETX(\v29.io.statefun.sdk.reqreply.FromFunction.PersistedValueSpecR\rmissingValues"
  packedFileDescriptor :: Proxy FromFunction'IncompleteInvocationContext -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor FromFunction'IncompleteInvocationContext)
fieldsByTag
    = let
        missingValues__field_descriptor :: FieldDescriptor FromFunction'IncompleteInvocationContext
missingValues__field_descriptor
          = String
-> FieldTypeDescriptor FromFunction'PersistedValueSpec
-> FieldAccessor
     FromFunction'IncompleteInvocationContext
     FromFunction'PersistedValueSpec
-> FieldDescriptor FromFunction'IncompleteInvocationContext
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "missing_values"
              (MessageOrGroup
-> FieldTypeDescriptor FromFunction'PersistedValueSpec
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor FromFunction'PersistedValueSpec)
              (Packing
-> Lens'
     FromFunction'IncompleteInvocationContext
     [FromFunction'PersistedValueSpec]
-> FieldAccessor
     FromFunction'IncompleteInvocationContext
     FromFunction'PersistedValueSpec
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked
                 (forall s a (f :: * -> *).
(HasField s "missingValues" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"missingValues")) ::
              Data.ProtoLens.FieldDescriptor FromFunction'IncompleteInvocationContext
      in
        [(Tag, FieldDescriptor FromFunction'IncompleteInvocationContext)]
-> Map
     Tag (FieldDescriptor FromFunction'IncompleteInvocationContext)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor FromFunction'IncompleteInvocationContext
missingValues__field_descriptor)]
  unknownFields :: LensLike' f FromFunction'IncompleteInvocationContext FieldSet
unknownFields
    = (FromFunction'IncompleteInvocationContext -> FieldSet)
-> (FromFunction'IncompleteInvocationContext
    -> FieldSet -> FromFunction'IncompleteInvocationContext)
-> Lens' FromFunction'IncompleteInvocationContext FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        FromFunction'IncompleteInvocationContext -> FieldSet
_FromFunction'IncompleteInvocationContext'_unknownFields
        (\ x__ :: FromFunction'IncompleteInvocationContext
x__ y__ :: FieldSet
y__
           -> FromFunction'IncompleteInvocationContext
x__
                {_FromFunction'IncompleteInvocationContext'_unknownFields :: FieldSet
_FromFunction'IncompleteInvocationContext'_unknownFields = FieldSet
y__})
  defMessage :: FromFunction'IncompleteInvocationContext
defMessage
    = $WFromFunction'IncompleteInvocationContext'_constructor :: Vector FromFunction'PersistedValueSpec
-> FieldSet -> FromFunction'IncompleteInvocationContext
FromFunction'IncompleteInvocationContext'_constructor
        {_FromFunction'IncompleteInvocationContext'missingValues :: Vector FromFunction'PersistedValueSpec
_FromFunction'IncompleteInvocationContext'missingValues = Vector FromFunction'PersistedValueSpec
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _FromFunction'IncompleteInvocationContext'_unknownFields :: FieldSet
_FromFunction'IncompleteInvocationContext'_unknownFields = []}
  parseMessage :: Parser FromFunction'IncompleteInvocationContext
parseMessage
    = let
        loop ::
          FromFunction'IncompleteInvocationContext
          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld FromFunction'PersistedValueSpec
             -> Data.ProtoLens.Encoding.Bytes.Parser FromFunction'IncompleteInvocationContext
        loop :: FromFunction'IncompleteInvocationContext
-> Growing Vector RealWorld FromFunction'PersistedValueSpec
-> Parser FromFunction'IncompleteInvocationContext
loop x :: FromFunction'IncompleteInvocationContext
x mutable'missingValues :: Growing Vector RealWorld FromFunction'PersistedValueSpec
mutable'missingValues
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do Vector FromFunction'PersistedValueSpec
frozen'missingValues <- IO (Vector FromFunction'PersistedValueSpec)
-> Parser (Vector FromFunction'PersistedValueSpec)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                                (Growing Vector (PrimState IO) FromFunction'PersistedValueSpec
-> IO (Vector FromFunction'PersistedValueSpec)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                                   Growing Vector RealWorld FromFunction'PersistedValueSpec
Growing Vector (PrimState IO) FromFunction'PersistedValueSpec
mutable'missingValues)
                      (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  "Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      FromFunction'IncompleteInvocationContext
-> Parser FromFunction'IncompleteInvocationContext
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter
  FromFunction'IncompleteInvocationContext
  FromFunction'IncompleteInvocationContext
  FieldSet
  FieldSet
-> (FieldSet -> FieldSet)
-> FromFunction'IncompleteInvocationContext
-> FromFunction'IncompleteInvocationContext
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           forall msg. Message msg => Lens' msg FieldSet
Setter
  FromFunction'IncompleteInvocationContext
  FromFunction'IncompleteInvocationContext
  FieldSet
  FieldSet
Data.ProtoLens.unknownFields
                           (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Setter
  FromFunction'IncompleteInvocationContext
  FromFunction'IncompleteInvocationContext
  (Vector FromFunction'PersistedValueSpec)
  (Vector FromFunction'PersistedValueSpec)
-> Vector FromFunction'PersistedValueSpec
-> FromFunction'IncompleteInvocationContext
-> FromFunction'IncompleteInvocationContext
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                              (forall s a (f :: * -> *).
(HasField s "vec'missingValues" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'missingValues")
                              Vector FromFunction'PersistedValueSpec
frozen'missingValues
                              FromFunction'IncompleteInvocationContext
x))
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        10
                          -> do !FromFunction'PersistedValueSpec
y <- Parser FromFunction'PersistedValueSpec
-> String -> Parser FromFunction'PersistedValueSpec
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Int
-> Parser FromFunction'PersistedValueSpec
-> Parser FromFunction'PersistedValueSpec
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                              (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                              Parser FromFunction'PersistedValueSpec
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                        "missing_values"
                                Growing Vector RealWorld FromFunction'PersistedValueSpec
v <- IO (Growing Vector RealWorld FromFunction'PersistedValueSpec)
-> Parser
     (Growing Vector RealWorld FromFunction'PersistedValueSpec)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) FromFunction'PersistedValueSpec
-> FromFunction'PersistedValueSpec
-> IO
     (Growing Vector (PrimState IO) FromFunction'PersistedValueSpec)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append
                                          Growing Vector RealWorld FromFunction'PersistedValueSpec
Growing Vector (PrimState IO) FromFunction'PersistedValueSpec
mutable'missingValues FromFunction'PersistedValueSpec
y)
                                FromFunction'IncompleteInvocationContext
-> Growing Vector RealWorld FromFunction'PersistedValueSpec
-> Parser FromFunction'IncompleteInvocationContext
loop FromFunction'IncompleteInvocationContext
x Growing Vector RealWorld FromFunction'PersistedValueSpec
v
                        wire :: Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                FromFunction'IncompleteInvocationContext
-> Growing Vector RealWorld FromFunction'PersistedValueSpec
-> Parser FromFunction'IncompleteInvocationContext
loop
                                  (Setter
  FromFunction'IncompleteInvocationContext
  FromFunction'IncompleteInvocationContext
  FieldSet
  FieldSet
-> (FieldSet -> FieldSet)
-> FromFunction'IncompleteInvocationContext
-> FromFunction'IncompleteInvocationContext
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     forall msg. Message msg => Lens' msg FieldSet
Setter
  FromFunction'IncompleteInvocationContext
  FromFunction'IncompleteInvocationContext
  FieldSet
  FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) FromFunction'IncompleteInvocationContext
x)
                                  Growing Vector RealWorld FromFunction'PersistedValueSpec
mutable'missingValues
      in
        Parser FromFunction'IncompleteInvocationContext
-> String -> Parser FromFunction'IncompleteInvocationContext
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Growing Vector RealWorld FromFunction'PersistedValueSpec
mutable'missingValues <- IO (Growing Vector RealWorld FromFunction'PersistedValueSpec)
-> Parser
     (Growing Vector RealWorld FromFunction'PersistedValueSpec)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                         IO (Growing Vector RealWorld FromFunction'PersistedValueSpec)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              FromFunction'IncompleteInvocationContext
-> Growing Vector RealWorld FromFunction'PersistedValueSpec
-> Parser FromFunction'IncompleteInvocationContext
loop FromFunction'IncompleteInvocationContext
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld FromFunction'PersistedValueSpec
mutable'missingValues)
          "IncompleteInvocationContext"
  buildMessage :: FromFunction'IncompleteInvocationContext -> Builder
buildMessage
    = \ _x :: FromFunction'IncompleteInvocationContext
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             ((FromFunction'PersistedValueSpec -> Builder)
-> Vector FromFunction'PersistedValueSpec -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                (\ _v :: FromFunction'PersistedValueSpec
_v
                   -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                        (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 10)
                        ((ByteString -> Builder)
-> (FromFunction'PersistedValueSpec -> ByteString)
-> FromFunction'PersistedValueSpec
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                           (\ bs :: 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))
                           FromFunction'PersistedValueSpec -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                           FromFunction'PersistedValueSpec
_v))
                (FoldLike
  (Vector FromFunction'PersistedValueSpec)
  FromFunction'IncompleteInvocationContext
  FromFunction'IncompleteInvocationContext
  (Vector FromFunction'PersistedValueSpec)
  (Vector FromFunction'PersistedValueSpec)
-> FromFunction'IncompleteInvocationContext
-> Vector FromFunction'PersistedValueSpec
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                   (forall s a (f :: * -> *).
(HasField s "vec'missingValues" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'missingValues") FromFunction'IncompleteInvocationContext
_x))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike
  FieldSet
  FromFunction'IncompleteInvocationContext
  FromFunction'IncompleteInvocationContext
  FieldSet
  FieldSet
-> FromFunction'IncompleteInvocationContext -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  FromFunction'IncompleteInvocationContext
  FromFunction'IncompleteInvocationContext
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields FromFunction'IncompleteInvocationContext
_x))
instance Control.DeepSeq.NFData FromFunction'IncompleteInvocationContext where
  rnf :: FromFunction'IncompleteInvocationContext -> ()
rnf
    = \ x__ :: FromFunction'IncompleteInvocationContext
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (FromFunction'IncompleteInvocationContext -> FieldSet
_FromFunction'IncompleteInvocationContext'_unknownFields FromFunction'IncompleteInvocationContext
x__)
             (Vector FromFunction'PersistedValueSpec -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (FromFunction'IncompleteInvocationContext
-> Vector FromFunction'PersistedValueSpec
_FromFunction'IncompleteInvocationContext'missingValues FromFunction'IncompleteInvocationContext
x__) ())
{- | Fields :
     
         * 'Proto.RequestReply_Fields.target' @:: Lens' FromFunction'Invocation Address@
         * 'Proto.RequestReply_Fields.maybe'target' @:: Lens' FromFunction'Invocation (Prelude.Maybe Address)@
         * 'Proto.RequestReply_Fields.argument' @:: Lens' FromFunction'Invocation TypedValue@
         * 'Proto.RequestReply_Fields.maybe'argument' @:: Lens' FromFunction'Invocation (Prelude.Maybe TypedValue)@ -}
data FromFunction'Invocation
  = FromFunction'Invocation'_constructor {FromFunction'Invocation -> Maybe Address
_FromFunction'Invocation'target :: !(Prelude.Maybe Address),
                                          FromFunction'Invocation -> Maybe TypedValue
_FromFunction'Invocation'argument :: !(Prelude.Maybe TypedValue),
                                          FromFunction'Invocation -> FieldSet
_FromFunction'Invocation'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (FromFunction'Invocation -> FromFunction'Invocation -> Bool
(FromFunction'Invocation -> FromFunction'Invocation -> Bool)
-> (FromFunction'Invocation -> FromFunction'Invocation -> Bool)
-> Eq FromFunction'Invocation
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: FromFunction'Invocation -> FromFunction'Invocation -> Bool
$c/= :: FromFunction'Invocation -> FromFunction'Invocation -> Bool
== :: FromFunction'Invocation -> FromFunction'Invocation -> Bool
$c== :: FromFunction'Invocation -> FromFunction'Invocation -> Bool
Prelude.Eq, Eq FromFunction'Invocation
Eq FromFunction'Invocation =>
(FromFunction'Invocation -> FromFunction'Invocation -> Ordering)
-> (FromFunction'Invocation -> FromFunction'Invocation -> Bool)
-> (FromFunction'Invocation -> FromFunction'Invocation -> Bool)
-> (FromFunction'Invocation -> FromFunction'Invocation -> Bool)
-> (FromFunction'Invocation -> FromFunction'Invocation -> Bool)
-> (FromFunction'Invocation
    -> FromFunction'Invocation -> FromFunction'Invocation)
-> (FromFunction'Invocation
    -> FromFunction'Invocation -> FromFunction'Invocation)
-> Ord FromFunction'Invocation
FromFunction'Invocation -> FromFunction'Invocation -> Bool
FromFunction'Invocation -> FromFunction'Invocation -> Ordering
FromFunction'Invocation
-> FromFunction'Invocation -> FromFunction'Invocation
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
min :: FromFunction'Invocation
-> FromFunction'Invocation -> FromFunction'Invocation
$cmin :: FromFunction'Invocation
-> FromFunction'Invocation -> FromFunction'Invocation
max :: FromFunction'Invocation
-> FromFunction'Invocation -> FromFunction'Invocation
$cmax :: FromFunction'Invocation
-> FromFunction'Invocation -> FromFunction'Invocation
>= :: FromFunction'Invocation -> FromFunction'Invocation -> Bool
$c>= :: FromFunction'Invocation -> FromFunction'Invocation -> Bool
> :: FromFunction'Invocation -> FromFunction'Invocation -> Bool
$c> :: FromFunction'Invocation -> FromFunction'Invocation -> Bool
<= :: FromFunction'Invocation -> FromFunction'Invocation -> Bool
$c<= :: FromFunction'Invocation -> FromFunction'Invocation -> Bool
< :: FromFunction'Invocation -> FromFunction'Invocation -> Bool
$c< :: FromFunction'Invocation -> FromFunction'Invocation -> Bool
compare :: FromFunction'Invocation -> FromFunction'Invocation -> Ordering
$ccompare :: FromFunction'Invocation -> FromFunction'Invocation -> Ordering
$cp1Ord :: Eq FromFunction'Invocation
Prelude.Ord)
instance Prelude.Show FromFunction'Invocation where
  showsPrec :: Int -> FromFunction'Invocation -> ShowS
showsPrec _ __x :: FromFunction'Invocation
__x __s :: String
__s
    = Char -> ShowS
Prelude.showChar
        '{'
        (String -> ShowS
Prelude.showString
           (FromFunction'Invocation -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort FromFunction'Invocation
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField FromFunction'Invocation "target" Address where
  fieldOf :: Proxy# "target"
-> (Address -> f Address)
-> FromFunction'Invocation
-> f FromFunction'Invocation
fieldOf _
    = ((Maybe Address -> f (Maybe Address))
 -> FromFunction'Invocation -> f FromFunction'Invocation)
-> ((Address -> f Address) -> Maybe Address -> f (Maybe Address))
-> (Address -> f Address)
-> FromFunction'Invocation
-> f FromFunction'Invocation
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FromFunction'Invocation -> Maybe Address)
-> (FromFunction'Invocation
    -> Maybe Address -> FromFunction'Invocation)
-> Lens
     FromFunction'Invocation
     FromFunction'Invocation
     (Maybe Address)
     (Maybe Address)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FromFunction'Invocation -> Maybe Address
_FromFunction'Invocation'target
           (\ x__ :: FromFunction'Invocation
x__ y__ :: Maybe Address
y__ -> FromFunction'Invocation
x__ {_FromFunction'Invocation'target :: Maybe Address
_FromFunction'Invocation'target = Maybe Address
y__}))
        (Address -> Lens' (Maybe Address) Address
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Address
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField FromFunction'Invocation "maybe'target" (Prelude.Maybe Address) where
  fieldOf :: Proxy# "maybe'target"
-> (Maybe Address -> f (Maybe Address))
-> FromFunction'Invocation
-> f FromFunction'Invocation
fieldOf _
    = ((Maybe Address -> f (Maybe Address))
 -> FromFunction'Invocation -> f FromFunction'Invocation)
-> ((Maybe Address -> f (Maybe Address))
    -> Maybe Address -> f (Maybe Address))
-> (Maybe Address -> f (Maybe Address))
-> FromFunction'Invocation
-> f FromFunction'Invocation
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FromFunction'Invocation -> Maybe Address)
-> (FromFunction'Invocation
    -> Maybe Address -> FromFunction'Invocation)
-> Lens
     FromFunction'Invocation
     FromFunction'Invocation
     (Maybe Address)
     (Maybe Address)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FromFunction'Invocation -> Maybe Address
_FromFunction'Invocation'target
           (\ x__ :: FromFunction'Invocation
x__ y__ :: Maybe Address
y__ -> FromFunction'Invocation
x__ {_FromFunction'Invocation'target :: Maybe Address
_FromFunction'Invocation'target = Maybe Address
y__}))
        (Maybe Address -> f (Maybe Address))
-> Maybe Address -> f (Maybe Address)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField FromFunction'Invocation "argument" TypedValue where
  fieldOf :: Proxy# "argument"
-> (TypedValue -> f TypedValue)
-> FromFunction'Invocation
-> f FromFunction'Invocation
fieldOf _
    = ((Maybe TypedValue -> f (Maybe TypedValue))
 -> FromFunction'Invocation -> f FromFunction'Invocation)
-> ((TypedValue -> f TypedValue)
    -> Maybe TypedValue -> f (Maybe TypedValue))
-> (TypedValue -> f TypedValue)
-> FromFunction'Invocation
-> f FromFunction'Invocation
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FromFunction'Invocation -> Maybe TypedValue)
-> (FromFunction'Invocation
    -> Maybe TypedValue -> FromFunction'Invocation)
-> Lens
     FromFunction'Invocation
     FromFunction'Invocation
     (Maybe TypedValue)
     (Maybe TypedValue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FromFunction'Invocation -> Maybe TypedValue
_FromFunction'Invocation'argument
           (\ x__ :: FromFunction'Invocation
x__ y__ :: Maybe TypedValue
y__ -> FromFunction'Invocation
x__ {_FromFunction'Invocation'argument :: Maybe TypedValue
_FromFunction'Invocation'argument = Maybe TypedValue
y__}))
        (TypedValue -> Lens' (Maybe TypedValue) TypedValue
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens TypedValue
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField FromFunction'Invocation "maybe'argument" (Prelude.Maybe TypedValue) where
  fieldOf :: Proxy# "maybe'argument"
-> (Maybe TypedValue -> f (Maybe TypedValue))
-> FromFunction'Invocation
-> f FromFunction'Invocation
fieldOf _
    = ((Maybe TypedValue -> f (Maybe TypedValue))
 -> FromFunction'Invocation -> f FromFunction'Invocation)
-> ((Maybe TypedValue -> f (Maybe TypedValue))
    -> Maybe TypedValue -> f (Maybe TypedValue))
-> (Maybe TypedValue -> f (Maybe TypedValue))
-> FromFunction'Invocation
-> f FromFunction'Invocation
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FromFunction'Invocation -> Maybe TypedValue)
-> (FromFunction'Invocation
    -> Maybe TypedValue -> FromFunction'Invocation)
-> Lens
     FromFunction'Invocation
     FromFunction'Invocation
     (Maybe TypedValue)
     (Maybe TypedValue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FromFunction'Invocation -> Maybe TypedValue
_FromFunction'Invocation'argument
           (\ x__ :: FromFunction'Invocation
x__ y__ :: Maybe TypedValue
y__ -> FromFunction'Invocation
x__ {_FromFunction'Invocation'argument :: Maybe TypedValue
_FromFunction'Invocation'argument = Maybe TypedValue
y__}))
        (Maybe TypedValue -> f (Maybe TypedValue))
-> Maybe TypedValue -> f (Maybe TypedValue)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message FromFunction'Invocation where
  messageName :: Proxy FromFunction'Invocation -> Text
messageName _
    = String -> Text
Data.Text.pack "io.statefun.sdk.reqreply.FromFunction.Invocation"
  packedMessageDescriptor :: Proxy FromFunction'Invocation -> ByteString
packedMessageDescriptor _
    = "\n\
      \\n\
      \Invocation\DC29\n\
      \\ACKtarget\CAN\SOH \SOH(\v2!.io.statefun.sdk.reqreply.AddressR\ACKtarget\DC2@\n\
      \\bargument\CAN\STX \SOH(\v2$.io.statefun.sdk.reqreply.TypedValueR\bargument"
  packedFileDescriptor :: Proxy FromFunction'Invocation -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor FromFunction'Invocation)
fieldsByTag
    = let
        target__field_descriptor :: FieldDescriptor FromFunction'Invocation
target__field_descriptor
          = String
-> FieldTypeDescriptor Address
-> FieldAccessor FromFunction'Invocation Address
-> FieldDescriptor FromFunction'Invocation
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "target"
              (MessageOrGroup -> FieldTypeDescriptor Address
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Address)
              (Lens
  FromFunction'Invocation
  FromFunction'Invocation
  (Maybe Address)
  (Maybe Address)
-> FieldAccessor FromFunction'Invocation Address
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'target" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'target")) ::
              Data.ProtoLens.FieldDescriptor FromFunction'Invocation
        argument__field_descriptor :: FieldDescriptor FromFunction'Invocation
argument__field_descriptor
          = String
-> FieldTypeDescriptor TypedValue
-> FieldAccessor FromFunction'Invocation TypedValue
-> FieldDescriptor FromFunction'Invocation
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "argument"
              (MessageOrGroup -> FieldTypeDescriptor TypedValue
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor TypedValue)
              (Lens
  FromFunction'Invocation
  FromFunction'Invocation
  (Maybe TypedValue)
  (Maybe TypedValue)
-> FieldAccessor FromFunction'Invocation TypedValue
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'argument" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'argument")) ::
              Data.ProtoLens.FieldDescriptor FromFunction'Invocation
      in
        [(Tag, FieldDescriptor FromFunction'Invocation)]
-> Map Tag (FieldDescriptor FromFunction'Invocation)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor FromFunction'Invocation
target__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor FromFunction'Invocation
argument__field_descriptor)]
  unknownFields :: LensLike' f FromFunction'Invocation FieldSet
unknownFields
    = (FromFunction'Invocation -> FieldSet)
-> (FromFunction'Invocation -> FieldSet -> FromFunction'Invocation)
-> Lens' FromFunction'Invocation FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        FromFunction'Invocation -> FieldSet
_FromFunction'Invocation'_unknownFields
        (\ x__ :: FromFunction'Invocation
x__ y__ :: FieldSet
y__ -> FromFunction'Invocation
x__ {_FromFunction'Invocation'_unknownFields :: FieldSet
_FromFunction'Invocation'_unknownFields = FieldSet
y__})
  defMessage :: FromFunction'Invocation
defMessage
    = $WFromFunction'Invocation'_constructor :: Maybe Address
-> Maybe TypedValue -> FieldSet -> FromFunction'Invocation
FromFunction'Invocation'_constructor
        {_FromFunction'Invocation'target :: Maybe Address
_FromFunction'Invocation'target = Maybe Address
forall a. Maybe a
Prelude.Nothing,
         _FromFunction'Invocation'argument :: Maybe TypedValue
_FromFunction'Invocation'argument = Maybe TypedValue
forall a. Maybe a
Prelude.Nothing,
         _FromFunction'Invocation'_unknownFields :: FieldSet
_FromFunction'Invocation'_unknownFields = []}
  parseMessage :: Parser FromFunction'Invocation
parseMessage
    = let
        loop ::
          FromFunction'Invocation
          -> Data.ProtoLens.Encoding.Bytes.Parser FromFunction'Invocation
        loop :: FromFunction'Invocation -> Parser FromFunction'Invocation
loop x :: FromFunction'Invocation
x
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  "Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      FromFunction'Invocation -> Parser FromFunction'Invocation
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter
  FromFunction'Invocation FromFunction'Invocation FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> FromFunction'Invocation
-> FromFunction'Invocation
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           forall msg. Message msg => Lens' msg FieldSet
Setter
  FromFunction'Invocation FromFunction'Invocation FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) FromFunction'Invocation
x)
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        10
                          -> do Address
y <- Parser Address -> String -> Parser Address
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser Address -> Parser Address
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser Address
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       "target"
                                FromFunction'Invocation -> Parser FromFunction'Invocation
loop (Setter
  FromFunction'Invocation FromFunction'Invocation Address Address
-> Address -> FromFunction'Invocation -> FromFunction'Invocation
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "target" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"target") Address
y FromFunction'Invocation
x)
                        18
                          -> do TypedValue
y <- Parser TypedValue -> String -> Parser TypedValue
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser TypedValue -> Parser TypedValue
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser TypedValue
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       "argument"
                                FromFunction'Invocation -> Parser FromFunction'Invocation
loop
                                  (Setter
  FromFunction'Invocation
  FromFunction'Invocation
  TypedValue
  TypedValue
-> TypedValue -> FromFunction'Invocation -> FromFunction'Invocation
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "argument" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"argument") TypedValue
y FromFunction'Invocation
x)
                        wire :: Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                FromFunction'Invocation -> Parser FromFunction'Invocation
loop
                                  (Setter
  FromFunction'Invocation FromFunction'Invocation FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> FromFunction'Invocation
-> FromFunction'Invocation
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     forall msg. Message msg => Lens' msg FieldSet
Setter
  FromFunction'Invocation FromFunction'Invocation FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) FromFunction'Invocation
x)
      in
        Parser FromFunction'Invocation
-> String -> Parser FromFunction'Invocation
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do FromFunction'Invocation -> Parser FromFunction'Invocation
loop FromFunction'Invocation
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "Invocation"
  buildMessage :: FromFunction'Invocation -> Builder
buildMessage
    = \ _x :: FromFunction'Invocation
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe Address)
  FromFunction'Invocation
  FromFunction'Invocation
  (Maybe Address)
  (Maybe Address)
-> FromFunction'Invocation -> Maybe Address
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "maybe'target" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'target") FromFunction'Invocation
_x
              of
                Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just _v :: Address
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 10)
                       ((ByteString -> Builder)
-> (Address -> ByteString) -> Address -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                          (\ bs :: 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))
                          Address -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                          Address
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (case
                     FoldLike
  (Maybe TypedValue)
  FromFunction'Invocation
  FromFunction'Invocation
  (Maybe TypedValue)
  (Maybe TypedValue)
-> FromFunction'Invocation -> Maybe TypedValue
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "maybe'argument" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'argument") FromFunction'Invocation
_x
                 of
                   Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   (Prelude.Just _v :: TypedValue
_v)
                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 18)
                          ((ByteString -> Builder)
-> (TypedValue -> ByteString) -> TypedValue -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                             (\ bs :: 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))
                             TypedValue -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                             TypedValue
_v))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike
  FieldSet
  FromFunction'Invocation
  FromFunction'Invocation
  FieldSet
  FieldSet
-> FromFunction'Invocation -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  FromFunction'Invocation
  FromFunction'Invocation
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields FromFunction'Invocation
_x)))
instance Control.DeepSeq.NFData FromFunction'Invocation where
  rnf :: FromFunction'Invocation -> ()
rnf
    = \ x__ :: FromFunction'Invocation
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (FromFunction'Invocation -> FieldSet
_FromFunction'Invocation'_unknownFields FromFunction'Invocation
x__)
             (Maybe Address -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (FromFunction'Invocation -> Maybe Address
_FromFunction'Invocation'target FromFunction'Invocation
x__)
                (Maybe TypedValue -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (FromFunction'Invocation -> Maybe TypedValue
_FromFunction'Invocation'argument FromFunction'Invocation
x__) ()))
{- | Fields :
     
         * 'Proto.RequestReply_Fields.stateMutations' @:: Lens' FromFunction'InvocationResponse [FromFunction'PersistedValueMutation]@
         * 'Proto.RequestReply_Fields.vec'stateMutations' @:: Lens' FromFunction'InvocationResponse (Data.Vector.Vector FromFunction'PersistedValueMutation)@
         * 'Proto.RequestReply_Fields.outgoingMessages' @:: Lens' FromFunction'InvocationResponse [FromFunction'Invocation]@
         * 'Proto.RequestReply_Fields.vec'outgoingMessages' @:: Lens' FromFunction'InvocationResponse (Data.Vector.Vector FromFunction'Invocation)@
         * 'Proto.RequestReply_Fields.delayedInvocations' @:: Lens' FromFunction'InvocationResponse [FromFunction'DelayedInvocation]@
         * 'Proto.RequestReply_Fields.vec'delayedInvocations' @:: Lens' FromFunction'InvocationResponse (Data.Vector.Vector FromFunction'DelayedInvocation)@
         * 'Proto.RequestReply_Fields.outgoingEgresses' @:: Lens' FromFunction'InvocationResponse [FromFunction'EgressMessage]@
         * 'Proto.RequestReply_Fields.vec'outgoingEgresses' @:: Lens' FromFunction'InvocationResponse (Data.Vector.Vector FromFunction'EgressMessage)@ -}
data FromFunction'InvocationResponse
  = FromFunction'InvocationResponse'_constructor {FromFunction'InvocationResponse
-> Vector FromFunction'PersistedValueMutation
_FromFunction'InvocationResponse'stateMutations :: !(Data.Vector.Vector FromFunction'PersistedValueMutation),
                                                  FromFunction'InvocationResponse -> Vector FromFunction'Invocation
_FromFunction'InvocationResponse'outgoingMessages :: !(Data.Vector.Vector FromFunction'Invocation),
                                                  FromFunction'InvocationResponse
-> Vector FromFunction'DelayedInvocation
_FromFunction'InvocationResponse'delayedInvocations :: !(Data.Vector.Vector FromFunction'DelayedInvocation),
                                                  FromFunction'InvocationResponse
-> Vector FromFunction'EgressMessage
_FromFunction'InvocationResponse'outgoingEgresses :: !(Data.Vector.Vector FromFunction'EgressMessage),
                                                  FromFunction'InvocationResponse -> FieldSet
_FromFunction'InvocationResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (FromFunction'InvocationResponse
-> FromFunction'InvocationResponse -> Bool
(FromFunction'InvocationResponse
 -> FromFunction'InvocationResponse -> Bool)
-> (FromFunction'InvocationResponse
    -> FromFunction'InvocationResponse -> Bool)
-> Eq FromFunction'InvocationResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: FromFunction'InvocationResponse
-> FromFunction'InvocationResponse -> Bool
$c/= :: FromFunction'InvocationResponse
-> FromFunction'InvocationResponse -> Bool
== :: FromFunction'InvocationResponse
-> FromFunction'InvocationResponse -> Bool
$c== :: FromFunction'InvocationResponse
-> FromFunction'InvocationResponse -> Bool
Prelude.Eq, Eq FromFunction'InvocationResponse
Eq FromFunction'InvocationResponse =>
(FromFunction'InvocationResponse
 -> FromFunction'InvocationResponse -> Ordering)
-> (FromFunction'InvocationResponse
    -> FromFunction'InvocationResponse -> Bool)
-> (FromFunction'InvocationResponse
    -> FromFunction'InvocationResponse -> Bool)
-> (FromFunction'InvocationResponse
    -> FromFunction'InvocationResponse -> Bool)
-> (FromFunction'InvocationResponse
    -> FromFunction'InvocationResponse -> Bool)
-> (FromFunction'InvocationResponse
    -> FromFunction'InvocationResponse
    -> FromFunction'InvocationResponse)
-> (FromFunction'InvocationResponse
    -> FromFunction'InvocationResponse
    -> FromFunction'InvocationResponse)
-> Ord FromFunction'InvocationResponse
FromFunction'InvocationResponse
-> FromFunction'InvocationResponse -> Bool
FromFunction'InvocationResponse
-> FromFunction'InvocationResponse -> Ordering
FromFunction'InvocationResponse
-> FromFunction'InvocationResponse
-> FromFunction'InvocationResponse
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
min :: FromFunction'InvocationResponse
-> FromFunction'InvocationResponse
-> FromFunction'InvocationResponse
$cmin :: FromFunction'InvocationResponse
-> FromFunction'InvocationResponse
-> FromFunction'InvocationResponse
max :: FromFunction'InvocationResponse
-> FromFunction'InvocationResponse
-> FromFunction'InvocationResponse
$cmax :: FromFunction'InvocationResponse
-> FromFunction'InvocationResponse
-> FromFunction'InvocationResponse
>= :: FromFunction'InvocationResponse
-> FromFunction'InvocationResponse -> Bool
$c>= :: FromFunction'InvocationResponse
-> FromFunction'InvocationResponse -> Bool
> :: FromFunction'InvocationResponse
-> FromFunction'InvocationResponse -> Bool
$c> :: FromFunction'InvocationResponse
-> FromFunction'InvocationResponse -> Bool
<= :: FromFunction'InvocationResponse
-> FromFunction'InvocationResponse -> Bool
$c<= :: FromFunction'InvocationResponse
-> FromFunction'InvocationResponse -> Bool
< :: FromFunction'InvocationResponse
-> FromFunction'InvocationResponse -> Bool
$c< :: FromFunction'InvocationResponse
-> FromFunction'InvocationResponse -> Bool
compare :: FromFunction'InvocationResponse
-> FromFunction'InvocationResponse -> Ordering
$ccompare :: FromFunction'InvocationResponse
-> FromFunction'InvocationResponse -> Ordering
$cp1Ord :: Eq FromFunction'InvocationResponse
Prelude.Ord)
instance Prelude.Show FromFunction'InvocationResponse where
  showsPrec :: Int -> FromFunction'InvocationResponse -> ShowS
showsPrec _ __x :: FromFunction'InvocationResponse
__x __s :: String
__s
    = Char -> ShowS
Prelude.showChar
        '{'
        (String -> ShowS
Prelude.showString
           (FromFunction'InvocationResponse -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort FromFunction'InvocationResponse
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField FromFunction'InvocationResponse "stateMutations" [FromFunction'PersistedValueMutation] where
  fieldOf :: Proxy# "stateMutations"
-> ([FromFunction'PersistedValueMutation]
    -> f [FromFunction'PersistedValueMutation])
-> FromFunction'InvocationResponse
-> f FromFunction'InvocationResponse
fieldOf _
    = ((Vector FromFunction'PersistedValueMutation
  -> f (Vector FromFunction'PersistedValueMutation))
 -> FromFunction'InvocationResponse
 -> f FromFunction'InvocationResponse)
-> (([FromFunction'PersistedValueMutation]
     -> f [FromFunction'PersistedValueMutation])
    -> Vector FromFunction'PersistedValueMutation
    -> f (Vector FromFunction'PersistedValueMutation))
-> ([FromFunction'PersistedValueMutation]
    -> f [FromFunction'PersistedValueMutation])
-> FromFunction'InvocationResponse
-> f FromFunction'InvocationResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FromFunction'InvocationResponse
 -> Vector FromFunction'PersistedValueMutation)
-> (FromFunction'InvocationResponse
    -> Vector FromFunction'PersistedValueMutation
    -> FromFunction'InvocationResponse)
-> Lens
     FromFunction'InvocationResponse
     FromFunction'InvocationResponse
     (Vector FromFunction'PersistedValueMutation)
     (Vector FromFunction'PersistedValueMutation)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FromFunction'InvocationResponse
-> Vector FromFunction'PersistedValueMutation
_FromFunction'InvocationResponse'stateMutations
           (\ x__ :: FromFunction'InvocationResponse
x__ y__ :: Vector FromFunction'PersistedValueMutation
y__
              -> FromFunction'InvocationResponse
x__ {_FromFunction'InvocationResponse'stateMutations :: Vector FromFunction'PersistedValueMutation
_FromFunction'InvocationResponse'stateMutations = Vector FromFunction'PersistedValueMutation
y__}))
        ((Vector FromFunction'PersistedValueMutation
 -> [FromFunction'PersistedValueMutation])
-> (Vector FromFunction'PersistedValueMutation
    -> [FromFunction'PersistedValueMutation]
    -> Vector FromFunction'PersistedValueMutation)
-> Lens
     (Vector FromFunction'PersistedValueMutation)
     (Vector FromFunction'PersistedValueMutation)
     [FromFunction'PersistedValueMutation]
     [FromFunction'PersistedValueMutation]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector FromFunction'PersistedValueMutation
-> [FromFunction'PersistedValueMutation]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ _ y__ :: [FromFunction'PersistedValueMutation]
y__ -> [FromFunction'PersistedValueMutation]
-> Vector FromFunction'PersistedValueMutation
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [FromFunction'PersistedValueMutation]
y__))
instance Data.ProtoLens.Field.HasField FromFunction'InvocationResponse "vec'stateMutations" (Data.Vector.Vector FromFunction'PersistedValueMutation) where
  fieldOf :: Proxy# "vec'stateMutations"
-> (Vector FromFunction'PersistedValueMutation
    -> f (Vector FromFunction'PersistedValueMutation))
-> FromFunction'InvocationResponse
-> f FromFunction'InvocationResponse
fieldOf _
    = ((Vector FromFunction'PersistedValueMutation
  -> f (Vector FromFunction'PersistedValueMutation))
 -> FromFunction'InvocationResponse
 -> f FromFunction'InvocationResponse)
-> ((Vector FromFunction'PersistedValueMutation
     -> f (Vector FromFunction'PersistedValueMutation))
    -> Vector FromFunction'PersistedValueMutation
    -> f (Vector FromFunction'PersistedValueMutation))
-> (Vector FromFunction'PersistedValueMutation
    -> f (Vector FromFunction'PersistedValueMutation))
-> FromFunction'InvocationResponse
-> f FromFunction'InvocationResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FromFunction'InvocationResponse
 -> Vector FromFunction'PersistedValueMutation)
-> (FromFunction'InvocationResponse
    -> Vector FromFunction'PersistedValueMutation
    -> FromFunction'InvocationResponse)
-> Lens
     FromFunction'InvocationResponse
     FromFunction'InvocationResponse
     (Vector FromFunction'PersistedValueMutation)
     (Vector FromFunction'PersistedValueMutation)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FromFunction'InvocationResponse
-> Vector FromFunction'PersistedValueMutation
_FromFunction'InvocationResponse'stateMutations
           (\ x__ :: FromFunction'InvocationResponse
x__ y__ :: Vector FromFunction'PersistedValueMutation
y__
              -> FromFunction'InvocationResponse
x__ {_FromFunction'InvocationResponse'stateMutations :: Vector FromFunction'PersistedValueMutation
_FromFunction'InvocationResponse'stateMutations = Vector FromFunction'PersistedValueMutation
y__}))
        (Vector FromFunction'PersistedValueMutation
 -> f (Vector FromFunction'PersistedValueMutation))
-> Vector FromFunction'PersistedValueMutation
-> f (Vector FromFunction'PersistedValueMutation)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField FromFunction'InvocationResponse "outgoingMessages" [FromFunction'Invocation] where
  fieldOf :: Proxy# "outgoingMessages"
-> ([FromFunction'Invocation] -> f [FromFunction'Invocation])
-> FromFunction'InvocationResponse
-> f FromFunction'InvocationResponse
fieldOf _
    = ((Vector FromFunction'Invocation
  -> f (Vector FromFunction'Invocation))
 -> FromFunction'InvocationResponse
 -> f FromFunction'InvocationResponse)
-> (([FromFunction'Invocation] -> f [FromFunction'Invocation])
    -> Vector FromFunction'Invocation
    -> f (Vector FromFunction'Invocation))
-> ([FromFunction'Invocation] -> f [FromFunction'Invocation])
-> FromFunction'InvocationResponse
-> f FromFunction'InvocationResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FromFunction'InvocationResponse -> Vector FromFunction'Invocation)
-> (FromFunction'InvocationResponse
    -> Vector FromFunction'Invocation
    -> FromFunction'InvocationResponse)
-> Lens
     FromFunction'InvocationResponse
     FromFunction'InvocationResponse
     (Vector FromFunction'Invocation)
     (Vector FromFunction'Invocation)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FromFunction'InvocationResponse -> Vector FromFunction'Invocation
_FromFunction'InvocationResponse'outgoingMessages
           (\ x__ :: FromFunction'InvocationResponse
x__ y__ :: Vector FromFunction'Invocation
y__
              -> FromFunction'InvocationResponse
x__ {_FromFunction'InvocationResponse'outgoingMessages :: Vector FromFunction'Invocation
_FromFunction'InvocationResponse'outgoingMessages = Vector FromFunction'Invocation
y__}))
        ((Vector FromFunction'Invocation -> [FromFunction'Invocation])
-> (Vector FromFunction'Invocation
    -> [FromFunction'Invocation] -> Vector FromFunction'Invocation)
-> Lens
     (Vector FromFunction'Invocation)
     (Vector FromFunction'Invocation)
     [FromFunction'Invocation]
     [FromFunction'Invocation]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector FromFunction'Invocation -> [FromFunction'Invocation]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ _ y__ :: [FromFunction'Invocation]
y__ -> [FromFunction'Invocation] -> Vector FromFunction'Invocation
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [FromFunction'Invocation]
y__))
instance Data.ProtoLens.Field.HasField FromFunction'InvocationResponse "vec'outgoingMessages" (Data.Vector.Vector FromFunction'Invocation) where
  fieldOf :: Proxy# "vec'outgoingMessages"
-> (Vector FromFunction'Invocation
    -> f (Vector FromFunction'Invocation))
-> FromFunction'InvocationResponse
-> f FromFunction'InvocationResponse
fieldOf _
    = ((Vector FromFunction'Invocation
  -> f (Vector FromFunction'Invocation))
 -> FromFunction'InvocationResponse
 -> f FromFunction'InvocationResponse)
-> ((Vector FromFunction'Invocation
     -> f (Vector FromFunction'Invocation))
    -> Vector FromFunction'Invocation
    -> f (Vector FromFunction'Invocation))
-> (Vector FromFunction'Invocation
    -> f (Vector FromFunction'Invocation))
-> FromFunction'InvocationResponse
-> f FromFunction'InvocationResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FromFunction'InvocationResponse -> Vector FromFunction'Invocation)
-> (FromFunction'InvocationResponse
    -> Vector FromFunction'Invocation
    -> FromFunction'InvocationResponse)
-> Lens
     FromFunction'InvocationResponse
     FromFunction'InvocationResponse
     (Vector FromFunction'Invocation)
     (Vector FromFunction'Invocation)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FromFunction'InvocationResponse -> Vector FromFunction'Invocation
_FromFunction'InvocationResponse'outgoingMessages
           (\ x__ :: FromFunction'InvocationResponse
x__ y__ :: Vector FromFunction'Invocation
y__
              -> FromFunction'InvocationResponse
x__ {_FromFunction'InvocationResponse'outgoingMessages :: Vector FromFunction'Invocation
_FromFunction'InvocationResponse'outgoingMessages = Vector FromFunction'Invocation
y__}))
        (Vector FromFunction'Invocation
 -> f (Vector FromFunction'Invocation))
-> Vector FromFunction'Invocation
-> f (Vector FromFunction'Invocation)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField FromFunction'InvocationResponse "delayedInvocations" [FromFunction'DelayedInvocation] where
  fieldOf :: Proxy# "delayedInvocations"
-> ([FromFunction'DelayedInvocation]
    -> f [FromFunction'DelayedInvocation])
-> FromFunction'InvocationResponse
-> f FromFunction'InvocationResponse
fieldOf _
    = ((Vector FromFunction'DelayedInvocation
  -> f (Vector FromFunction'DelayedInvocation))
 -> FromFunction'InvocationResponse
 -> f FromFunction'InvocationResponse)
-> (([FromFunction'DelayedInvocation]
     -> f [FromFunction'DelayedInvocation])
    -> Vector FromFunction'DelayedInvocation
    -> f (Vector FromFunction'DelayedInvocation))
-> ([FromFunction'DelayedInvocation]
    -> f [FromFunction'DelayedInvocation])
-> FromFunction'InvocationResponse
-> f FromFunction'InvocationResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FromFunction'InvocationResponse
 -> Vector FromFunction'DelayedInvocation)
-> (FromFunction'InvocationResponse
    -> Vector FromFunction'DelayedInvocation
    -> FromFunction'InvocationResponse)
-> Lens
     FromFunction'InvocationResponse
     FromFunction'InvocationResponse
     (Vector FromFunction'DelayedInvocation)
     (Vector FromFunction'DelayedInvocation)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FromFunction'InvocationResponse
-> Vector FromFunction'DelayedInvocation
_FromFunction'InvocationResponse'delayedInvocations
           (\ x__ :: FromFunction'InvocationResponse
x__ y__ :: Vector FromFunction'DelayedInvocation
y__
              -> FromFunction'InvocationResponse
x__
                   {_FromFunction'InvocationResponse'delayedInvocations :: Vector FromFunction'DelayedInvocation
_FromFunction'InvocationResponse'delayedInvocations = Vector FromFunction'DelayedInvocation
y__}))
        ((Vector FromFunction'DelayedInvocation
 -> [FromFunction'DelayedInvocation])
-> (Vector FromFunction'DelayedInvocation
    -> [FromFunction'DelayedInvocation]
    -> Vector FromFunction'DelayedInvocation)
-> Lens
     (Vector FromFunction'DelayedInvocation)
     (Vector FromFunction'DelayedInvocation)
     [FromFunction'DelayedInvocation]
     [FromFunction'DelayedInvocation]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector FromFunction'DelayedInvocation
-> [FromFunction'DelayedInvocation]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ _ y__ :: [FromFunction'DelayedInvocation]
y__ -> [FromFunction'DelayedInvocation]
-> Vector FromFunction'DelayedInvocation
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [FromFunction'DelayedInvocation]
y__))
instance Data.ProtoLens.Field.HasField FromFunction'InvocationResponse "vec'delayedInvocations" (Data.Vector.Vector FromFunction'DelayedInvocation) where
  fieldOf :: Proxy# "vec'delayedInvocations"
-> (Vector FromFunction'DelayedInvocation
    -> f (Vector FromFunction'DelayedInvocation))
-> FromFunction'InvocationResponse
-> f FromFunction'InvocationResponse
fieldOf _
    = ((Vector FromFunction'DelayedInvocation
  -> f (Vector FromFunction'DelayedInvocation))
 -> FromFunction'InvocationResponse
 -> f FromFunction'InvocationResponse)
-> ((Vector FromFunction'DelayedInvocation
     -> f (Vector FromFunction'DelayedInvocation))
    -> Vector FromFunction'DelayedInvocation
    -> f (Vector FromFunction'DelayedInvocation))
-> (Vector FromFunction'DelayedInvocation
    -> f (Vector FromFunction'DelayedInvocation))
-> FromFunction'InvocationResponse
-> f FromFunction'InvocationResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FromFunction'InvocationResponse
 -> Vector FromFunction'DelayedInvocation)
-> (FromFunction'InvocationResponse
    -> Vector FromFunction'DelayedInvocation
    -> FromFunction'InvocationResponse)
-> Lens
     FromFunction'InvocationResponse
     FromFunction'InvocationResponse
     (Vector FromFunction'DelayedInvocation)
     (Vector FromFunction'DelayedInvocation)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FromFunction'InvocationResponse
-> Vector FromFunction'DelayedInvocation
_FromFunction'InvocationResponse'delayedInvocations
           (\ x__ :: FromFunction'InvocationResponse
x__ y__ :: Vector FromFunction'DelayedInvocation
y__
              -> FromFunction'InvocationResponse
x__
                   {_FromFunction'InvocationResponse'delayedInvocations :: Vector FromFunction'DelayedInvocation
_FromFunction'InvocationResponse'delayedInvocations = Vector FromFunction'DelayedInvocation
y__}))
        (Vector FromFunction'DelayedInvocation
 -> f (Vector FromFunction'DelayedInvocation))
-> Vector FromFunction'DelayedInvocation
-> f (Vector FromFunction'DelayedInvocation)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField FromFunction'InvocationResponse "outgoingEgresses" [FromFunction'EgressMessage] where
  fieldOf :: Proxy# "outgoingEgresses"
-> ([FromFunction'EgressMessage] -> f [FromFunction'EgressMessage])
-> FromFunction'InvocationResponse
-> f FromFunction'InvocationResponse
fieldOf _
    = ((Vector FromFunction'EgressMessage
  -> f (Vector FromFunction'EgressMessage))
 -> FromFunction'InvocationResponse
 -> f FromFunction'InvocationResponse)
-> (([FromFunction'EgressMessage]
     -> f [FromFunction'EgressMessage])
    -> Vector FromFunction'EgressMessage
    -> f (Vector FromFunction'EgressMessage))
-> ([FromFunction'EgressMessage] -> f [FromFunction'EgressMessage])
-> FromFunction'InvocationResponse
-> f FromFunction'InvocationResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FromFunction'InvocationResponse
 -> Vector FromFunction'EgressMessage)
-> (FromFunction'InvocationResponse
    -> Vector FromFunction'EgressMessage
    -> FromFunction'InvocationResponse)
-> Lens
     FromFunction'InvocationResponse
     FromFunction'InvocationResponse
     (Vector FromFunction'EgressMessage)
     (Vector FromFunction'EgressMessage)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FromFunction'InvocationResponse
-> Vector FromFunction'EgressMessage
_FromFunction'InvocationResponse'outgoingEgresses
           (\ x__ :: FromFunction'InvocationResponse
x__ y__ :: Vector FromFunction'EgressMessage
y__
              -> FromFunction'InvocationResponse
x__ {_FromFunction'InvocationResponse'outgoingEgresses :: Vector FromFunction'EgressMessage
_FromFunction'InvocationResponse'outgoingEgresses = Vector FromFunction'EgressMessage
y__}))
        ((Vector FromFunction'EgressMessage -> [FromFunction'EgressMessage])
-> (Vector FromFunction'EgressMessage
    -> [FromFunction'EgressMessage]
    -> Vector FromFunction'EgressMessage)
-> Lens
     (Vector FromFunction'EgressMessage)
     (Vector FromFunction'EgressMessage)
     [FromFunction'EgressMessage]
     [FromFunction'EgressMessage]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector FromFunction'EgressMessage -> [FromFunction'EgressMessage]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ _ y__ :: [FromFunction'EgressMessage]
y__ -> [FromFunction'EgressMessage] -> Vector FromFunction'EgressMessage
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [FromFunction'EgressMessage]
y__))
instance Data.ProtoLens.Field.HasField FromFunction'InvocationResponse "vec'outgoingEgresses" (Data.Vector.Vector FromFunction'EgressMessage) where
  fieldOf :: Proxy# "vec'outgoingEgresses"
-> (Vector FromFunction'EgressMessage
    -> f (Vector FromFunction'EgressMessage))
-> FromFunction'InvocationResponse
-> f FromFunction'InvocationResponse
fieldOf _
    = ((Vector FromFunction'EgressMessage
  -> f (Vector FromFunction'EgressMessage))
 -> FromFunction'InvocationResponse
 -> f FromFunction'InvocationResponse)
-> ((Vector FromFunction'EgressMessage
     -> f (Vector FromFunction'EgressMessage))
    -> Vector FromFunction'EgressMessage
    -> f (Vector FromFunction'EgressMessage))
-> (Vector FromFunction'EgressMessage
    -> f (Vector FromFunction'EgressMessage))
-> FromFunction'InvocationResponse
-> f FromFunction'InvocationResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FromFunction'InvocationResponse
 -> Vector FromFunction'EgressMessage)
-> (FromFunction'InvocationResponse
    -> Vector FromFunction'EgressMessage
    -> FromFunction'InvocationResponse)
-> Lens
     FromFunction'InvocationResponse
     FromFunction'InvocationResponse
     (Vector FromFunction'EgressMessage)
     (Vector FromFunction'EgressMessage)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FromFunction'InvocationResponse
-> Vector FromFunction'EgressMessage
_FromFunction'InvocationResponse'outgoingEgresses
           (\ x__ :: FromFunction'InvocationResponse
x__ y__ :: Vector FromFunction'EgressMessage
y__
              -> FromFunction'InvocationResponse
x__ {_FromFunction'InvocationResponse'outgoingEgresses :: Vector FromFunction'EgressMessage
_FromFunction'InvocationResponse'outgoingEgresses = Vector FromFunction'EgressMessage
y__}))
        (Vector FromFunction'EgressMessage
 -> f (Vector FromFunction'EgressMessage))
-> Vector FromFunction'EgressMessage
-> f (Vector FromFunction'EgressMessage)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message FromFunction'InvocationResponse where
  messageName :: Proxy FromFunction'InvocationResponse -> Text
messageName _
    = String -> Text
Data.Text.pack
        "io.statefun.sdk.reqreply.FromFunction.InvocationResponse"
  packedMessageDescriptor :: Proxy FromFunction'InvocationResponse -> ByteString
packedMessageDescriptor _
    = "\n\
      \\DC2InvocationResponse\DC2f\n\
      \\SIstate_mutations\CAN\SOH \ETX(\v2=.io.statefun.sdk.reqreply.FromFunction.PersistedValueMutationR\SOstateMutations\DC2^\n\
      \\DC1outgoing_messages\CAN\STX \ETX(\v21.io.statefun.sdk.reqreply.FromFunction.InvocationR\DLEoutgoingMessages\DC2i\n\
      \\DC3delayed_invocations\CAN\ETX \ETX(\v28.io.statefun.sdk.reqreply.FromFunction.DelayedInvocationR\DC2delayedInvocations\DC2a\n\
      \\DC1outgoing_egresses\CAN\EOT \ETX(\v24.io.statefun.sdk.reqreply.FromFunction.EgressMessageR\DLEoutgoingEgresses"
  packedFileDescriptor :: Proxy FromFunction'InvocationResponse -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor FromFunction'InvocationResponse)
fieldsByTag
    = let
        stateMutations__field_descriptor :: FieldDescriptor FromFunction'InvocationResponse
stateMutations__field_descriptor
          = String
-> FieldTypeDescriptor FromFunction'PersistedValueMutation
-> FieldAccessor
     FromFunction'InvocationResponse FromFunction'PersistedValueMutation
-> FieldDescriptor FromFunction'InvocationResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "state_mutations"
              (MessageOrGroup
-> FieldTypeDescriptor FromFunction'PersistedValueMutation
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor FromFunction'PersistedValueMutation)
              (Packing
-> Lens'
     FromFunction'InvocationResponse
     [FromFunction'PersistedValueMutation]
-> FieldAccessor
     FromFunction'InvocationResponse FromFunction'PersistedValueMutation
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked
                 (forall s a (f :: * -> *).
(HasField s "stateMutations" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"stateMutations")) ::
              Data.ProtoLens.FieldDescriptor FromFunction'InvocationResponse
        outgoingMessages__field_descriptor :: FieldDescriptor FromFunction'InvocationResponse
outgoingMessages__field_descriptor
          = String
-> FieldTypeDescriptor FromFunction'Invocation
-> FieldAccessor
     FromFunction'InvocationResponse FromFunction'Invocation
-> FieldDescriptor FromFunction'InvocationResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "outgoing_messages"
              (MessageOrGroup -> FieldTypeDescriptor FromFunction'Invocation
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor FromFunction'Invocation)
              (Packing
-> Lens' FromFunction'InvocationResponse [FromFunction'Invocation]
-> FieldAccessor
     FromFunction'InvocationResponse FromFunction'Invocation
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked
                 (forall s a (f :: * -> *).
(HasField s "outgoingMessages" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"outgoingMessages")) ::
              Data.ProtoLens.FieldDescriptor FromFunction'InvocationResponse
        delayedInvocations__field_descriptor :: FieldDescriptor FromFunction'InvocationResponse
delayedInvocations__field_descriptor
          = String
-> FieldTypeDescriptor FromFunction'DelayedInvocation
-> FieldAccessor
     FromFunction'InvocationResponse FromFunction'DelayedInvocation
-> FieldDescriptor FromFunction'InvocationResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "delayed_invocations"
              (MessageOrGroup
-> FieldTypeDescriptor FromFunction'DelayedInvocation
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor FromFunction'DelayedInvocation)
              (Packing
-> Lens'
     FromFunction'InvocationResponse [FromFunction'DelayedInvocation]
-> FieldAccessor
     FromFunction'InvocationResponse FromFunction'DelayedInvocation
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked
                 (forall s a (f :: * -> *).
(HasField s "delayedInvocations" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"delayedInvocations")) ::
              Data.ProtoLens.FieldDescriptor FromFunction'InvocationResponse
        outgoingEgresses__field_descriptor :: FieldDescriptor FromFunction'InvocationResponse
outgoingEgresses__field_descriptor
          = String
-> FieldTypeDescriptor FromFunction'EgressMessage
-> FieldAccessor
     FromFunction'InvocationResponse FromFunction'EgressMessage
-> FieldDescriptor FromFunction'InvocationResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "outgoing_egresses"
              (MessageOrGroup -> FieldTypeDescriptor FromFunction'EgressMessage
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor FromFunction'EgressMessage)
              (Packing
-> Lens'
     FromFunction'InvocationResponse [FromFunction'EgressMessage]
-> FieldAccessor
     FromFunction'InvocationResponse FromFunction'EgressMessage
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked
                 (forall s a (f :: * -> *).
(HasField s "outgoingEgresses" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"outgoingEgresses")) ::
              Data.ProtoLens.FieldDescriptor FromFunction'InvocationResponse
      in
        [(Tag, FieldDescriptor FromFunction'InvocationResponse)]
-> Map Tag (FieldDescriptor FromFunction'InvocationResponse)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor FromFunction'InvocationResponse
stateMutations__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor FromFunction'InvocationResponse
outgoingMessages__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 3, FieldDescriptor FromFunction'InvocationResponse
delayedInvocations__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 4, FieldDescriptor FromFunction'InvocationResponse
outgoingEgresses__field_descriptor)]
  unknownFields :: LensLike' f FromFunction'InvocationResponse FieldSet
unknownFields
    = (FromFunction'InvocationResponse -> FieldSet)
-> (FromFunction'InvocationResponse
    -> FieldSet -> FromFunction'InvocationResponse)
-> Lens' FromFunction'InvocationResponse FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        FromFunction'InvocationResponse -> FieldSet
_FromFunction'InvocationResponse'_unknownFields
        (\ x__ :: FromFunction'InvocationResponse
x__ y__ :: FieldSet
y__
           -> FromFunction'InvocationResponse
x__ {_FromFunction'InvocationResponse'_unknownFields :: FieldSet
_FromFunction'InvocationResponse'_unknownFields = FieldSet
y__})
  defMessage :: FromFunction'InvocationResponse
defMessage
    = $WFromFunction'InvocationResponse'_constructor :: Vector FromFunction'PersistedValueMutation
-> Vector FromFunction'Invocation
-> Vector FromFunction'DelayedInvocation
-> Vector FromFunction'EgressMessage
-> FieldSet
-> FromFunction'InvocationResponse
FromFunction'InvocationResponse'_constructor
        {_FromFunction'InvocationResponse'stateMutations :: Vector FromFunction'PersistedValueMutation
_FromFunction'InvocationResponse'stateMutations = Vector FromFunction'PersistedValueMutation
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _FromFunction'InvocationResponse'outgoingMessages :: Vector FromFunction'Invocation
_FromFunction'InvocationResponse'outgoingMessages = Vector FromFunction'Invocation
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _FromFunction'InvocationResponse'delayedInvocations :: Vector FromFunction'DelayedInvocation
_FromFunction'InvocationResponse'delayedInvocations = Vector FromFunction'DelayedInvocation
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _FromFunction'InvocationResponse'outgoingEgresses :: Vector FromFunction'EgressMessage
_FromFunction'InvocationResponse'outgoingEgresses = Vector FromFunction'EgressMessage
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _FromFunction'InvocationResponse'_unknownFields :: FieldSet
_FromFunction'InvocationResponse'_unknownFields = []}
  parseMessage :: Parser FromFunction'InvocationResponse
parseMessage
    = let
        loop ::
          FromFunction'InvocationResponse
          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld FromFunction'DelayedInvocation
             -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld FromFunction'EgressMessage
                -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld FromFunction'Invocation
                   -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld FromFunction'PersistedValueMutation
                      -> Data.ProtoLens.Encoding.Bytes.Parser FromFunction'InvocationResponse
        loop :: FromFunction'InvocationResponse
-> Growing Vector RealWorld FromFunction'DelayedInvocation
-> Growing Vector RealWorld FromFunction'EgressMessage
-> Growing Vector RealWorld FromFunction'Invocation
-> Growing Vector RealWorld FromFunction'PersistedValueMutation
-> Parser FromFunction'InvocationResponse
loop
          x :: FromFunction'InvocationResponse
x
          mutable'delayedInvocations :: Growing Vector RealWorld FromFunction'DelayedInvocation
mutable'delayedInvocations
          mutable'outgoingEgresses :: Growing Vector RealWorld FromFunction'EgressMessage
mutable'outgoingEgresses
          mutable'outgoingMessages :: Growing Vector RealWorld FromFunction'Invocation
mutable'outgoingMessages
          mutable'stateMutations :: Growing Vector RealWorld FromFunction'PersistedValueMutation
mutable'stateMutations
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do Vector FromFunction'DelayedInvocation
frozen'delayedInvocations <- IO (Vector FromFunction'DelayedInvocation)
-> Parser (Vector FromFunction'DelayedInvocation)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                                     (Growing Vector (PrimState IO) FromFunction'DelayedInvocation
-> IO (Vector FromFunction'DelayedInvocation)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                                        Growing Vector RealWorld FromFunction'DelayedInvocation
Growing Vector (PrimState IO) FromFunction'DelayedInvocation
mutable'delayedInvocations)
                      Vector FromFunction'EgressMessage
frozen'outgoingEgresses <- IO (Vector FromFunction'EgressMessage)
-> Parser (Vector FromFunction'EgressMessage)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                                   (Growing Vector (PrimState IO) FromFunction'EgressMessage
-> IO (Vector FromFunction'EgressMessage)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                                      Growing Vector RealWorld FromFunction'EgressMessage
Growing Vector (PrimState IO) FromFunction'EgressMessage
mutable'outgoingEgresses)
                      Vector FromFunction'Invocation
frozen'outgoingMessages <- IO (Vector FromFunction'Invocation)
-> Parser (Vector FromFunction'Invocation)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                                   (Growing Vector (PrimState IO) FromFunction'Invocation
-> IO (Vector FromFunction'Invocation)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                                      Growing Vector RealWorld FromFunction'Invocation
Growing Vector (PrimState IO) FromFunction'Invocation
mutable'outgoingMessages)
                      Vector FromFunction'PersistedValueMutation
frozen'stateMutations <- IO (Vector FromFunction'PersistedValueMutation)
-> Parser (Vector FromFunction'PersistedValueMutation)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                                 (Growing Vector (PrimState IO) FromFunction'PersistedValueMutation
-> IO (Vector FromFunction'PersistedValueMutation)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                                    Growing Vector RealWorld FromFunction'PersistedValueMutation
Growing Vector (PrimState IO) FromFunction'PersistedValueMutation
mutable'stateMutations)
                      (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  "Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      FromFunction'InvocationResponse
-> Parser FromFunction'InvocationResponse
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter
  FromFunction'InvocationResponse
  FromFunction'InvocationResponse
  FieldSet
  FieldSet
-> (FieldSet -> FieldSet)
-> FromFunction'InvocationResponse
-> FromFunction'InvocationResponse
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           forall msg. Message msg => Lens' msg FieldSet
Setter
  FromFunction'InvocationResponse
  FromFunction'InvocationResponse
  FieldSet
  FieldSet
Data.ProtoLens.unknownFields
                           (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Setter
  FromFunction'InvocationResponse
  FromFunction'InvocationResponse
  (Vector FromFunction'DelayedInvocation)
  (Vector FromFunction'DelayedInvocation)
-> Vector FromFunction'DelayedInvocation
-> FromFunction'InvocationResponse
-> FromFunction'InvocationResponse
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                              (forall s a (f :: * -> *).
(HasField s "vec'delayedInvocations" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'delayedInvocations")
                              Vector FromFunction'DelayedInvocation
frozen'delayedInvocations
                              (Setter
  FromFunction'InvocationResponse
  FromFunction'InvocationResponse
  (Vector FromFunction'EgressMessage)
  (Vector FromFunction'EgressMessage)
-> Vector FromFunction'EgressMessage
-> FromFunction'InvocationResponse
-> FromFunction'InvocationResponse
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                 (forall s a (f :: * -> *).
(HasField s "vec'outgoingEgresses" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'outgoingEgresses")
                                 Vector FromFunction'EgressMessage
frozen'outgoingEgresses
                                 (Setter
  FromFunction'InvocationResponse
  FromFunction'InvocationResponse
  (Vector FromFunction'Invocation)
  (Vector FromFunction'Invocation)
-> Vector FromFunction'Invocation
-> FromFunction'InvocationResponse
-> FromFunction'InvocationResponse
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                    (forall s a (f :: * -> *).
(HasField s "vec'outgoingMessages" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'outgoingMessages")
                                    Vector FromFunction'Invocation
frozen'outgoingMessages
                                    (Setter
  FromFunction'InvocationResponse
  FromFunction'InvocationResponse
  (Vector FromFunction'PersistedValueMutation)
  (Vector FromFunction'PersistedValueMutation)
-> Vector FromFunction'PersistedValueMutation
-> FromFunction'InvocationResponse
-> FromFunction'InvocationResponse
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                       (forall s a (f :: * -> *).
(HasField s "vec'stateMutations" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'stateMutations")
                                       Vector FromFunction'PersistedValueMutation
frozen'stateMutations
                                       FromFunction'InvocationResponse
x)))))
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        10
                          -> do !FromFunction'PersistedValueMutation
y <- Parser FromFunction'PersistedValueMutation
-> String -> Parser FromFunction'PersistedValueMutation
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Int
-> Parser FromFunction'PersistedValueMutation
-> Parser FromFunction'PersistedValueMutation
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                              (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                              Parser FromFunction'PersistedValueMutation
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                        "state_mutations"
                                Growing Vector RealWorld FromFunction'PersistedValueMutation
v <- IO (Growing Vector RealWorld FromFunction'PersistedValueMutation)
-> Parser
     (Growing Vector RealWorld FromFunction'PersistedValueMutation)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) FromFunction'PersistedValueMutation
-> FromFunction'PersistedValueMutation
-> IO
     (Growing Vector (PrimState IO) FromFunction'PersistedValueMutation)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append
                                          Growing Vector RealWorld FromFunction'PersistedValueMutation
Growing Vector (PrimState IO) FromFunction'PersistedValueMutation
mutable'stateMutations FromFunction'PersistedValueMutation
y)
                                FromFunction'InvocationResponse
-> Growing Vector RealWorld FromFunction'DelayedInvocation
-> Growing Vector RealWorld FromFunction'EgressMessage
-> Growing Vector RealWorld FromFunction'Invocation
-> Growing Vector RealWorld FromFunction'PersistedValueMutation
-> Parser FromFunction'InvocationResponse
loop
                                  FromFunction'InvocationResponse
x
                                  Growing Vector RealWorld FromFunction'DelayedInvocation
mutable'delayedInvocations
                                  Growing Vector RealWorld FromFunction'EgressMessage
mutable'outgoingEgresses
                                  Growing Vector RealWorld FromFunction'Invocation
mutable'outgoingMessages
                                  Growing Vector RealWorld FromFunction'PersistedValueMutation
v
                        18
                          -> do !FromFunction'Invocation
y <- Parser FromFunction'Invocation
-> String -> Parser FromFunction'Invocation
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Int
-> Parser FromFunction'Invocation -> Parser FromFunction'Invocation
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                              (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                              Parser FromFunction'Invocation
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                        "outgoing_messages"
                                Growing Vector RealWorld FromFunction'Invocation
v <- IO (Growing Vector RealWorld FromFunction'Invocation)
-> Parser (Growing Vector RealWorld FromFunction'Invocation)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) FromFunction'Invocation
-> FromFunction'Invocation
-> IO (Growing Vector (PrimState IO) FromFunction'Invocation)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append
                                          Growing Vector RealWorld FromFunction'Invocation
Growing Vector (PrimState IO) FromFunction'Invocation
mutable'outgoingMessages FromFunction'Invocation
y)
                                FromFunction'InvocationResponse
-> Growing Vector RealWorld FromFunction'DelayedInvocation
-> Growing Vector RealWorld FromFunction'EgressMessage
-> Growing Vector RealWorld FromFunction'Invocation
-> Growing Vector RealWorld FromFunction'PersistedValueMutation
-> Parser FromFunction'InvocationResponse
loop
                                  FromFunction'InvocationResponse
x
                                  Growing Vector RealWorld FromFunction'DelayedInvocation
mutable'delayedInvocations
                                  Growing Vector RealWorld FromFunction'EgressMessage
mutable'outgoingEgresses
                                  Growing Vector RealWorld FromFunction'Invocation
v
                                  Growing Vector RealWorld FromFunction'PersistedValueMutation
mutable'stateMutations
                        26
                          -> do !FromFunction'DelayedInvocation
y <- Parser FromFunction'DelayedInvocation
-> String -> Parser FromFunction'DelayedInvocation
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Int
-> Parser FromFunction'DelayedInvocation
-> Parser FromFunction'DelayedInvocation
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                              (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                              Parser FromFunction'DelayedInvocation
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                        "delayed_invocations"
                                Growing Vector RealWorld FromFunction'DelayedInvocation
v <- IO (Growing Vector RealWorld FromFunction'DelayedInvocation)
-> Parser (Growing Vector RealWorld FromFunction'DelayedInvocation)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) FromFunction'DelayedInvocation
-> FromFunction'DelayedInvocation
-> IO
     (Growing Vector (PrimState IO) FromFunction'DelayedInvocation)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append
                                          Growing Vector RealWorld FromFunction'DelayedInvocation
Growing Vector (PrimState IO) FromFunction'DelayedInvocation
mutable'delayedInvocations FromFunction'DelayedInvocation
y)
                                FromFunction'InvocationResponse
-> Growing Vector RealWorld FromFunction'DelayedInvocation
-> Growing Vector RealWorld FromFunction'EgressMessage
-> Growing Vector RealWorld FromFunction'Invocation
-> Growing Vector RealWorld FromFunction'PersistedValueMutation
-> Parser FromFunction'InvocationResponse
loop
                                  FromFunction'InvocationResponse
x
                                  Growing Vector RealWorld FromFunction'DelayedInvocation
v
                                  Growing Vector RealWorld FromFunction'EgressMessage
mutable'outgoingEgresses
                                  Growing Vector RealWorld FromFunction'Invocation
mutable'outgoingMessages
                                  Growing Vector RealWorld FromFunction'PersistedValueMutation
mutable'stateMutations
                        34
                          -> do !FromFunction'EgressMessage
y <- Parser FromFunction'EgressMessage
-> String -> Parser FromFunction'EgressMessage
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Int
-> Parser FromFunction'EgressMessage
-> Parser FromFunction'EgressMessage
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                              (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                              Parser FromFunction'EgressMessage
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                        "outgoing_egresses"
                                Growing Vector RealWorld FromFunction'EgressMessage
v <- IO (Growing Vector RealWorld FromFunction'EgressMessage)
-> Parser (Growing Vector RealWorld FromFunction'EgressMessage)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) FromFunction'EgressMessage
-> FromFunction'EgressMessage
-> IO (Growing Vector (PrimState IO) FromFunction'EgressMessage)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append
                                          Growing Vector RealWorld FromFunction'EgressMessage
Growing Vector (PrimState IO) FromFunction'EgressMessage
mutable'outgoingEgresses FromFunction'EgressMessage
y)
                                FromFunction'InvocationResponse
-> Growing Vector RealWorld FromFunction'DelayedInvocation
-> Growing Vector RealWorld FromFunction'EgressMessage
-> Growing Vector RealWorld FromFunction'Invocation
-> Growing Vector RealWorld FromFunction'PersistedValueMutation
-> Parser FromFunction'InvocationResponse
loop
                                  FromFunction'InvocationResponse
x
                                  Growing Vector RealWorld FromFunction'DelayedInvocation
mutable'delayedInvocations
                                  Growing Vector RealWorld FromFunction'EgressMessage
v
                                  Growing Vector RealWorld FromFunction'Invocation
mutable'outgoingMessages
                                  Growing Vector RealWorld FromFunction'PersistedValueMutation
mutable'stateMutations
                        wire :: Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                FromFunction'InvocationResponse
-> Growing Vector RealWorld FromFunction'DelayedInvocation
-> Growing Vector RealWorld FromFunction'EgressMessage
-> Growing Vector RealWorld FromFunction'Invocation
-> Growing Vector RealWorld FromFunction'PersistedValueMutation
-> Parser FromFunction'InvocationResponse
loop
                                  (Setter
  FromFunction'InvocationResponse
  FromFunction'InvocationResponse
  FieldSet
  FieldSet
-> (FieldSet -> FieldSet)
-> FromFunction'InvocationResponse
-> FromFunction'InvocationResponse
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     forall msg. Message msg => Lens' msg FieldSet
Setter
  FromFunction'InvocationResponse
  FromFunction'InvocationResponse
  FieldSet
  FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) FromFunction'InvocationResponse
x)
                                  Growing Vector RealWorld FromFunction'DelayedInvocation
mutable'delayedInvocations
                                  Growing Vector RealWorld FromFunction'EgressMessage
mutable'outgoingEgresses
                                  Growing Vector RealWorld FromFunction'Invocation
mutable'outgoingMessages
                                  Growing Vector RealWorld FromFunction'PersistedValueMutation
mutable'stateMutations
      in
        Parser FromFunction'InvocationResponse
-> String -> Parser FromFunction'InvocationResponse
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Growing Vector RealWorld FromFunction'DelayedInvocation
mutable'delayedInvocations <- IO (Growing Vector RealWorld FromFunction'DelayedInvocation)
-> Parser (Growing Vector RealWorld FromFunction'DelayedInvocation)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                              IO (Growing Vector RealWorld FromFunction'DelayedInvocation)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              Growing Vector RealWorld FromFunction'EgressMessage
mutable'outgoingEgresses <- IO (Growing Vector RealWorld FromFunction'EgressMessage)
-> Parser (Growing Vector RealWorld FromFunction'EgressMessage)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                            IO (Growing Vector RealWorld FromFunction'EgressMessage)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              Growing Vector RealWorld FromFunction'Invocation
mutable'outgoingMessages <- IO (Growing Vector RealWorld FromFunction'Invocation)
-> Parser (Growing Vector RealWorld FromFunction'Invocation)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                            IO (Growing Vector RealWorld FromFunction'Invocation)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              Growing Vector RealWorld FromFunction'PersistedValueMutation
mutable'stateMutations <- IO (Growing Vector RealWorld FromFunction'PersistedValueMutation)
-> Parser
     (Growing Vector RealWorld FromFunction'PersistedValueMutation)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                          IO (Growing Vector RealWorld FromFunction'PersistedValueMutation)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              FromFunction'InvocationResponse
-> Growing Vector RealWorld FromFunction'DelayedInvocation
-> Growing Vector RealWorld FromFunction'EgressMessage
-> Growing Vector RealWorld FromFunction'Invocation
-> Growing Vector RealWorld FromFunction'PersistedValueMutation
-> Parser FromFunction'InvocationResponse
loop
                FromFunction'InvocationResponse
forall msg. Message msg => msg
Data.ProtoLens.defMessage
                Growing Vector RealWorld FromFunction'DelayedInvocation
mutable'delayedInvocations
                Growing Vector RealWorld FromFunction'EgressMessage
mutable'outgoingEgresses
                Growing Vector RealWorld FromFunction'Invocation
mutable'outgoingMessages
                Growing Vector RealWorld FromFunction'PersistedValueMutation
mutable'stateMutations)
          "InvocationResponse"
  buildMessage :: FromFunction'InvocationResponse -> Builder
buildMessage
    = \ _x :: FromFunction'InvocationResponse
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             ((FromFunction'PersistedValueMutation -> Builder)
-> Vector FromFunction'PersistedValueMutation -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                (\ _v :: FromFunction'PersistedValueMutation
_v
                   -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                        (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 10)
                        ((ByteString -> Builder)
-> (FromFunction'PersistedValueMutation -> ByteString)
-> FromFunction'PersistedValueMutation
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                           (\ bs :: 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))
                           FromFunction'PersistedValueMutation -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                           FromFunction'PersistedValueMutation
_v))
                (FoldLike
  (Vector FromFunction'PersistedValueMutation)
  FromFunction'InvocationResponse
  FromFunction'InvocationResponse
  (Vector FromFunction'PersistedValueMutation)
  (Vector FromFunction'PersistedValueMutation)
-> FromFunction'InvocationResponse
-> Vector FromFunction'PersistedValueMutation
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                   (forall s a (f :: * -> *).
(HasField s "vec'stateMutations" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'stateMutations") FromFunction'InvocationResponse
_x))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                ((FromFunction'Invocation -> Builder)
-> Vector FromFunction'Invocation -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                   (\ _v :: FromFunction'Invocation
_v
                      -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                           (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 18)
                           ((ByteString -> Builder)
-> (FromFunction'Invocation -> ByteString)
-> FromFunction'Invocation
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                              (\ bs :: 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))
                              FromFunction'Invocation -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                              FromFunction'Invocation
_v))
                   (FoldLike
  (Vector FromFunction'Invocation)
  FromFunction'InvocationResponse
  FromFunction'InvocationResponse
  (Vector FromFunction'Invocation)
  (Vector FromFunction'Invocation)
-> FromFunction'InvocationResponse
-> Vector FromFunction'Invocation
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                      (forall s a (f :: * -> *).
(HasField s "vec'outgoingMessages" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'outgoingMessages") FromFunction'InvocationResponse
_x))
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   ((FromFunction'DelayedInvocation -> Builder)
-> Vector FromFunction'DelayedInvocation -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                      (\ _v :: FromFunction'DelayedInvocation
_v
                         -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                              (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 26)
                              ((ByteString -> Builder)
-> (FromFunction'DelayedInvocation -> ByteString)
-> FromFunction'DelayedInvocation
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                 (\ bs :: 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))
                                 FromFunction'DelayedInvocation -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                                 FromFunction'DelayedInvocation
_v))
                      (FoldLike
  (Vector FromFunction'DelayedInvocation)
  FromFunction'InvocationResponse
  FromFunction'InvocationResponse
  (Vector FromFunction'DelayedInvocation)
  (Vector FromFunction'DelayedInvocation)
-> FromFunction'InvocationResponse
-> Vector FromFunction'DelayedInvocation
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                         (forall s a (f :: * -> *).
(HasField s "vec'delayedInvocations" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'delayedInvocations") FromFunction'InvocationResponse
_x))
                   (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      ((FromFunction'EgressMessage -> Builder)
-> Vector FromFunction'EgressMessage -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                         (\ _v :: FromFunction'EgressMessage
_v
                            -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                 (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 34)
                                 ((ByteString -> Builder)
-> (FromFunction'EgressMessage -> ByteString)
-> FromFunction'EgressMessage
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                    (\ bs :: 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))
                                    FromFunction'EgressMessage -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                                    FromFunction'EgressMessage
_v))
                         (FoldLike
  (Vector FromFunction'EgressMessage)
  FromFunction'InvocationResponse
  FromFunction'InvocationResponse
  (Vector FromFunction'EgressMessage)
  (Vector FromFunction'EgressMessage)
-> FromFunction'InvocationResponse
-> Vector FromFunction'EgressMessage
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                            (forall s a (f :: * -> *).
(HasField s "vec'outgoingEgresses" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'outgoingEgresses") FromFunction'InvocationResponse
_x))
                      (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                         (FoldLike
  FieldSet
  FromFunction'InvocationResponse
  FromFunction'InvocationResponse
  FieldSet
  FieldSet
-> FromFunction'InvocationResponse -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  FromFunction'InvocationResponse
  FromFunction'InvocationResponse
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields FromFunction'InvocationResponse
_x)))))
instance Control.DeepSeq.NFData FromFunction'InvocationResponse where
  rnf :: FromFunction'InvocationResponse -> ()
rnf
    = \ x__ :: FromFunction'InvocationResponse
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (FromFunction'InvocationResponse -> FieldSet
_FromFunction'InvocationResponse'_unknownFields FromFunction'InvocationResponse
x__)
             (Vector FromFunction'PersistedValueMutation -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (FromFunction'InvocationResponse
-> Vector FromFunction'PersistedValueMutation
_FromFunction'InvocationResponse'stateMutations FromFunction'InvocationResponse
x__)
                (Vector FromFunction'Invocation -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (FromFunction'InvocationResponse -> Vector FromFunction'Invocation
_FromFunction'InvocationResponse'outgoingMessages FromFunction'InvocationResponse
x__)
                   (Vector FromFunction'DelayedInvocation -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                      (FromFunction'InvocationResponse
-> Vector FromFunction'DelayedInvocation
_FromFunction'InvocationResponse'delayedInvocations FromFunction'InvocationResponse
x__)
                      (Vector FromFunction'EgressMessage -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                         (FromFunction'InvocationResponse
-> Vector FromFunction'EgressMessage
_FromFunction'InvocationResponse'outgoingEgresses FromFunction'InvocationResponse
x__) ()))))
{- | Fields :
     
         * 'Proto.RequestReply_Fields.mutationType' @:: Lens' FromFunction'PersistedValueMutation FromFunction'PersistedValueMutation'MutationType@
         * 'Proto.RequestReply_Fields.stateName' @:: Lens' FromFunction'PersistedValueMutation Data.Text.Text@
         * 'Proto.RequestReply_Fields.stateValue' @:: Lens' FromFunction'PersistedValueMutation TypedValue@
         * 'Proto.RequestReply_Fields.maybe'stateValue' @:: Lens' FromFunction'PersistedValueMutation (Prelude.Maybe TypedValue)@ -}
data FromFunction'PersistedValueMutation
  = FromFunction'PersistedValueMutation'_constructor {FromFunction'PersistedValueMutation
-> FromFunction'PersistedValueMutation'MutationType
_FromFunction'PersistedValueMutation'mutationType :: !FromFunction'PersistedValueMutation'MutationType,
                                                      FromFunction'PersistedValueMutation -> Text
_FromFunction'PersistedValueMutation'stateName :: !Data.Text.Text,
                                                      FromFunction'PersistedValueMutation -> Maybe TypedValue
_FromFunction'PersistedValueMutation'stateValue :: !(Prelude.Maybe TypedValue),
                                                      FromFunction'PersistedValueMutation -> FieldSet
_FromFunction'PersistedValueMutation'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (FromFunction'PersistedValueMutation
-> FromFunction'PersistedValueMutation -> Bool
(FromFunction'PersistedValueMutation
 -> FromFunction'PersistedValueMutation -> Bool)
-> (FromFunction'PersistedValueMutation
    -> FromFunction'PersistedValueMutation -> Bool)
-> Eq FromFunction'PersistedValueMutation
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: FromFunction'PersistedValueMutation
-> FromFunction'PersistedValueMutation -> Bool
$c/= :: FromFunction'PersistedValueMutation
-> FromFunction'PersistedValueMutation -> Bool
== :: FromFunction'PersistedValueMutation
-> FromFunction'PersistedValueMutation -> Bool
$c== :: FromFunction'PersistedValueMutation
-> FromFunction'PersistedValueMutation -> Bool
Prelude.Eq, Eq FromFunction'PersistedValueMutation
Eq FromFunction'PersistedValueMutation =>
(FromFunction'PersistedValueMutation
 -> FromFunction'PersistedValueMutation -> Ordering)
-> (FromFunction'PersistedValueMutation
    -> FromFunction'PersistedValueMutation -> Bool)
-> (FromFunction'PersistedValueMutation
    -> FromFunction'PersistedValueMutation -> Bool)
-> (FromFunction'PersistedValueMutation
    -> FromFunction'PersistedValueMutation -> Bool)
-> (FromFunction'PersistedValueMutation
    -> FromFunction'PersistedValueMutation -> Bool)
-> (FromFunction'PersistedValueMutation
    -> FromFunction'PersistedValueMutation
    -> FromFunction'PersistedValueMutation)
-> (FromFunction'PersistedValueMutation
    -> FromFunction'PersistedValueMutation
    -> FromFunction'PersistedValueMutation)
-> Ord FromFunction'PersistedValueMutation
FromFunction'PersistedValueMutation
-> FromFunction'PersistedValueMutation -> Bool
FromFunction'PersistedValueMutation
-> FromFunction'PersistedValueMutation -> Ordering
FromFunction'PersistedValueMutation
-> FromFunction'PersistedValueMutation
-> FromFunction'PersistedValueMutation
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
min :: FromFunction'PersistedValueMutation
-> FromFunction'PersistedValueMutation
-> FromFunction'PersistedValueMutation
$cmin :: FromFunction'PersistedValueMutation
-> FromFunction'PersistedValueMutation
-> FromFunction'PersistedValueMutation
max :: FromFunction'PersistedValueMutation
-> FromFunction'PersistedValueMutation
-> FromFunction'PersistedValueMutation
$cmax :: FromFunction'PersistedValueMutation
-> FromFunction'PersistedValueMutation
-> FromFunction'PersistedValueMutation
>= :: FromFunction'PersistedValueMutation
-> FromFunction'PersistedValueMutation -> Bool
$c>= :: FromFunction'PersistedValueMutation
-> FromFunction'PersistedValueMutation -> Bool
> :: FromFunction'PersistedValueMutation
-> FromFunction'PersistedValueMutation -> Bool
$c> :: FromFunction'PersistedValueMutation
-> FromFunction'PersistedValueMutation -> Bool
<= :: FromFunction'PersistedValueMutation
-> FromFunction'PersistedValueMutation -> Bool
$c<= :: FromFunction'PersistedValueMutation
-> FromFunction'PersistedValueMutation -> Bool
< :: FromFunction'PersistedValueMutation
-> FromFunction'PersistedValueMutation -> Bool
$c< :: FromFunction'PersistedValueMutation
-> FromFunction'PersistedValueMutation -> Bool
compare :: FromFunction'PersistedValueMutation
-> FromFunction'PersistedValueMutation -> Ordering
$ccompare :: FromFunction'PersistedValueMutation
-> FromFunction'PersistedValueMutation -> Ordering
$cp1Ord :: Eq FromFunction'PersistedValueMutation
Prelude.Ord)
instance Prelude.Show FromFunction'PersistedValueMutation where
  showsPrec :: Int -> FromFunction'PersistedValueMutation -> ShowS
showsPrec _ __x :: FromFunction'PersistedValueMutation
__x __s :: String
__s
    = Char -> ShowS
Prelude.showChar
        '{'
        (String -> ShowS
Prelude.showString
           (FromFunction'PersistedValueMutation -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort FromFunction'PersistedValueMutation
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField FromFunction'PersistedValueMutation "mutationType" FromFunction'PersistedValueMutation'MutationType where
  fieldOf :: Proxy# "mutationType"
-> (FromFunction'PersistedValueMutation'MutationType
    -> f FromFunction'PersistedValueMutation'MutationType)
-> FromFunction'PersistedValueMutation
-> f FromFunction'PersistedValueMutation
fieldOf _
    = ((FromFunction'PersistedValueMutation'MutationType
  -> f FromFunction'PersistedValueMutation'MutationType)
 -> FromFunction'PersistedValueMutation
 -> f FromFunction'PersistedValueMutation)
-> ((FromFunction'PersistedValueMutation'MutationType
     -> f FromFunction'PersistedValueMutation'MutationType)
    -> FromFunction'PersistedValueMutation'MutationType
    -> f FromFunction'PersistedValueMutation'MutationType)
-> (FromFunction'PersistedValueMutation'MutationType
    -> f FromFunction'PersistedValueMutation'MutationType)
-> FromFunction'PersistedValueMutation
-> f FromFunction'PersistedValueMutation
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FromFunction'PersistedValueMutation
 -> FromFunction'PersistedValueMutation'MutationType)
-> (FromFunction'PersistedValueMutation
    -> FromFunction'PersistedValueMutation'MutationType
    -> FromFunction'PersistedValueMutation)
-> Lens
     FromFunction'PersistedValueMutation
     FromFunction'PersistedValueMutation
     FromFunction'PersistedValueMutation'MutationType
     FromFunction'PersistedValueMutation'MutationType
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FromFunction'PersistedValueMutation
-> FromFunction'PersistedValueMutation'MutationType
_FromFunction'PersistedValueMutation'mutationType
           (\ x__ :: FromFunction'PersistedValueMutation
x__ y__ :: FromFunction'PersistedValueMutation'MutationType
y__
              -> FromFunction'PersistedValueMutation
x__ {_FromFunction'PersistedValueMutation'mutationType :: FromFunction'PersistedValueMutation'MutationType
_FromFunction'PersistedValueMutation'mutationType = FromFunction'PersistedValueMutation'MutationType
y__}))
        (FromFunction'PersistedValueMutation'MutationType
 -> f FromFunction'PersistedValueMutation'MutationType)
-> FromFunction'PersistedValueMutation'MutationType
-> f FromFunction'PersistedValueMutation'MutationType
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField FromFunction'PersistedValueMutation "stateName" Data.Text.Text where
  fieldOf :: Proxy# "stateName"
-> (Text -> f Text)
-> FromFunction'PersistedValueMutation
-> f FromFunction'PersistedValueMutation
fieldOf _
    = ((Text -> f Text)
 -> FromFunction'PersistedValueMutation
 -> f FromFunction'PersistedValueMutation)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> FromFunction'PersistedValueMutation
-> f FromFunction'PersistedValueMutation
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FromFunction'PersistedValueMutation -> Text)
-> (FromFunction'PersistedValueMutation
    -> Text -> FromFunction'PersistedValueMutation)
-> Lens
     FromFunction'PersistedValueMutation
     FromFunction'PersistedValueMutation
     Text
     Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FromFunction'PersistedValueMutation -> Text
_FromFunction'PersistedValueMutation'stateName
           (\ x__ :: FromFunction'PersistedValueMutation
x__ y__ :: Text
y__
              -> FromFunction'PersistedValueMutation
x__ {_FromFunction'PersistedValueMutation'stateName :: Text
_FromFunction'PersistedValueMutation'stateName = Text
y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField FromFunction'PersistedValueMutation "stateValue" TypedValue where
  fieldOf :: Proxy# "stateValue"
-> (TypedValue -> f TypedValue)
-> FromFunction'PersistedValueMutation
-> f FromFunction'PersistedValueMutation
fieldOf _
    = ((Maybe TypedValue -> f (Maybe TypedValue))
 -> FromFunction'PersistedValueMutation
 -> f FromFunction'PersistedValueMutation)
-> ((TypedValue -> f TypedValue)
    -> Maybe TypedValue -> f (Maybe TypedValue))
-> (TypedValue -> f TypedValue)
-> FromFunction'PersistedValueMutation
-> f FromFunction'PersistedValueMutation
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FromFunction'PersistedValueMutation -> Maybe TypedValue)
-> (FromFunction'PersistedValueMutation
    -> Maybe TypedValue -> FromFunction'PersistedValueMutation)
-> Lens
     FromFunction'PersistedValueMutation
     FromFunction'PersistedValueMutation
     (Maybe TypedValue)
     (Maybe TypedValue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FromFunction'PersistedValueMutation -> Maybe TypedValue
_FromFunction'PersistedValueMutation'stateValue
           (\ x__ :: FromFunction'PersistedValueMutation
x__ y__ :: Maybe TypedValue
y__
              -> FromFunction'PersistedValueMutation
x__ {_FromFunction'PersistedValueMutation'stateValue :: Maybe TypedValue
_FromFunction'PersistedValueMutation'stateValue = Maybe TypedValue
y__}))
        (TypedValue -> Lens' (Maybe TypedValue) TypedValue
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens TypedValue
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField FromFunction'PersistedValueMutation "maybe'stateValue" (Prelude.Maybe TypedValue) where
  fieldOf :: Proxy# "maybe'stateValue"
-> (Maybe TypedValue -> f (Maybe TypedValue))
-> FromFunction'PersistedValueMutation
-> f FromFunction'PersistedValueMutation
fieldOf _
    = ((Maybe TypedValue -> f (Maybe TypedValue))
 -> FromFunction'PersistedValueMutation
 -> f FromFunction'PersistedValueMutation)
-> ((Maybe TypedValue -> f (Maybe TypedValue))
    -> Maybe TypedValue -> f (Maybe TypedValue))
-> (Maybe TypedValue -> f (Maybe TypedValue))
-> FromFunction'PersistedValueMutation
-> f FromFunction'PersistedValueMutation
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FromFunction'PersistedValueMutation -> Maybe TypedValue)
-> (FromFunction'PersistedValueMutation
    -> Maybe TypedValue -> FromFunction'PersistedValueMutation)
-> Lens
     FromFunction'PersistedValueMutation
     FromFunction'PersistedValueMutation
     (Maybe TypedValue)
     (Maybe TypedValue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FromFunction'PersistedValueMutation -> Maybe TypedValue
_FromFunction'PersistedValueMutation'stateValue
           (\ x__ :: FromFunction'PersistedValueMutation
x__ y__ :: Maybe TypedValue
y__
              -> FromFunction'PersistedValueMutation
x__ {_FromFunction'PersistedValueMutation'stateValue :: Maybe TypedValue
_FromFunction'PersistedValueMutation'stateValue = Maybe TypedValue
y__}))
        (Maybe TypedValue -> f (Maybe TypedValue))
-> Maybe TypedValue -> f (Maybe TypedValue)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message FromFunction'PersistedValueMutation where
  messageName :: Proxy FromFunction'PersistedValueMutation -> Text
messageName _
    = String -> Text
Data.Text.pack
        "io.statefun.sdk.reqreply.FromFunction.PersistedValueMutation"
  packedMessageDescriptor :: Proxy FromFunction'PersistedValueMutation -> ByteString
packedMessageDescriptor _
    = "\n\
      \\SYNPersistedValueMutation\DC2o\n\
      \\rmutation_type\CAN\SOH \SOH(\SO2J.io.statefun.sdk.reqreply.FromFunction.PersistedValueMutation.MutationTypeR\fmutationType\DC2\GS\n\
      \\n\
      \state_name\CAN\STX \SOH(\tR\tstateName\DC2E\n\
      \\vstate_value\CAN\ETX \SOH(\v2$.io.statefun.sdk.reqreply.TypedValueR\n\
      \stateValue\"&\n\
      \\fMutationType\DC2\n\
      \\n\
      \\ACKDELETE\DLE\NUL\DC2\n\
      \\n\
      \\ACKMODIFY\DLE\SOH"
  packedFileDescriptor :: Proxy FromFunction'PersistedValueMutation -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor FromFunction'PersistedValueMutation)
fieldsByTag
    = let
        mutationType__field_descriptor :: FieldDescriptor FromFunction'PersistedValueMutation
mutationType__field_descriptor
          = String
-> FieldTypeDescriptor
     FromFunction'PersistedValueMutation'MutationType
-> FieldAccessor
     FromFunction'PersistedValueMutation
     FromFunction'PersistedValueMutation'MutationType
-> FieldDescriptor FromFunction'PersistedValueMutation
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "mutation_type"
              (ScalarField FromFunction'PersistedValueMutation'MutationType
-> FieldTypeDescriptor
     FromFunction'PersistedValueMutation'MutationType
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField FromFunction'PersistedValueMutation'MutationType
forall t. MessageEnum t => ScalarField t
Data.ProtoLens.EnumField ::
                 Data.ProtoLens.FieldTypeDescriptor FromFunction'PersistedValueMutation'MutationType)
              (WireDefault FromFunction'PersistedValueMutation'MutationType
-> Lens
     FromFunction'PersistedValueMutation
     FromFunction'PersistedValueMutation
     FromFunction'PersistedValueMutation'MutationType
     FromFunction'PersistedValueMutation'MutationType
-> FieldAccessor
     FromFunction'PersistedValueMutation
     FromFunction'PersistedValueMutation'MutationType
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault FromFunction'PersistedValueMutation'MutationType
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
                 (forall s a (f :: * -> *).
(HasField s "mutationType" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"mutationType")) ::
              Data.ProtoLens.FieldDescriptor FromFunction'PersistedValueMutation
        stateName__field_descriptor :: FieldDescriptor FromFunction'PersistedValueMutation
stateName__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor FromFunction'PersistedValueMutation Text
-> FieldDescriptor FromFunction'PersistedValueMutation
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "state_name"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (WireDefault Text
-> Lens
     FromFunction'PersistedValueMutation
     FromFunction'PersistedValueMutation
     Text
     Text
-> FieldAccessor FromFunction'PersistedValueMutation Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
                 (forall s a (f :: * -> *).
(HasField s "stateName" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"stateName")) ::
              Data.ProtoLens.FieldDescriptor FromFunction'PersistedValueMutation
        stateValue__field_descriptor :: FieldDescriptor FromFunction'PersistedValueMutation
stateValue__field_descriptor
          = String
-> FieldTypeDescriptor TypedValue
-> FieldAccessor FromFunction'PersistedValueMutation TypedValue
-> FieldDescriptor FromFunction'PersistedValueMutation
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "state_value"
              (MessageOrGroup -> FieldTypeDescriptor TypedValue
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor TypedValue)
              (Lens
  FromFunction'PersistedValueMutation
  FromFunction'PersistedValueMutation
  (Maybe TypedValue)
  (Maybe TypedValue)
-> FieldAccessor FromFunction'PersistedValueMutation TypedValue
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'stateValue" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'stateValue")) ::
              Data.ProtoLens.FieldDescriptor FromFunction'PersistedValueMutation
      in
        [(Tag, FieldDescriptor FromFunction'PersistedValueMutation)]
-> Map Tag (FieldDescriptor FromFunction'PersistedValueMutation)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor FromFunction'PersistedValueMutation
mutationType__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor FromFunction'PersistedValueMutation
stateName__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 3, FieldDescriptor FromFunction'PersistedValueMutation
stateValue__field_descriptor)]
  unknownFields :: LensLike' f FromFunction'PersistedValueMutation FieldSet
unknownFields
    = (FromFunction'PersistedValueMutation -> FieldSet)
-> (FromFunction'PersistedValueMutation
    -> FieldSet -> FromFunction'PersistedValueMutation)
-> Lens' FromFunction'PersistedValueMutation FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        FromFunction'PersistedValueMutation -> FieldSet
_FromFunction'PersistedValueMutation'_unknownFields
        (\ x__ :: FromFunction'PersistedValueMutation
x__ y__ :: FieldSet
y__
           -> FromFunction'PersistedValueMutation
x__ {_FromFunction'PersistedValueMutation'_unknownFields :: FieldSet
_FromFunction'PersistedValueMutation'_unknownFields = FieldSet
y__})
  defMessage :: FromFunction'PersistedValueMutation
defMessage
    = $WFromFunction'PersistedValueMutation'_constructor :: FromFunction'PersistedValueMutation'MutationType
-> Text
-> Maybe TypedValue
-> FieldSet
-> FromFunction'PersistedValueMutation
FromFunction'PersistedValueMutation'_constructor
        {_FromFunction'PersistedValueMutation'mutationType :: FromFunction'PersistedValueMutation'MutationType
_FromFunction'PersistedValueMutation'mutationType = FromFunction'PersistedValueMutation'MutationType
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _FromFunction'PersistedValueMutation'stateName :: Text
_FromFunction'PersistedValueMutation'stateName = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _FromFunction'PersistedValueMutation'stateValue :: Maybe TypedValue
_FromFunction'PersistedValueMutation'stateValue = Maybe TypedValue
forall a. Maybe a
Prelude.Nothing,
         _FromFunction'PersistedValueMutation'_unknownFields :: FieldSet
_FromFunction'PersistedValueMutation'_unknownFields = []}
  parseMessage :: Parser FromFunction'PersistedValueMutation
parseMessage
    = let
        loop ::
          FromFunction'PersistedValueMutation
          -> Data.ProtoLens.Encoding.Bytes.Parser FromFunction'PersistedValueMutation
        loop :: FromFunction'PersistedValueMutation
-> Parser FromFunction'PersistedValueMutation
loop x :: FromFunction'PersistedValueMutation
x
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  "Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      FromFunction'PersistedValueMutation
-> Parser FromFunction'PersistedValueMutation
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter
  FromFunction'PersistedValueMutation
  FromFunction'PersistedValueMutation
  FieldSet
  FieldSet
-> (FieldSet -> FieldSet)
-> FromFunction'PersistedValueMutation
-> FromFunction'PersistedValueMutation
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           forall msg. Message msg => Lens' msg FieldSet
Setter
  FromFunction'PersistedValueMutation
  FromFunction'PersistedValueMutation
  FieldSet
  FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) FromFunction'PersistedValueMutation
x)
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        8 -> do FromFunction'PersistedValueMutation'MutationType
y <- Parser FromFunction'PersistedValueMutation'MutationType
-> String
-> Parser FromFunction'PersistedValueMutation'MutationType
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Int -> FromFunction'PersistedValueMutation'MutationType)
-> Parser Int
-> Parser FromFunction'PersistedValueMutation'MutationType
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Int -> FromFunction'PersistedValueMutation'MutationType
forall a. Enum a => Int -> a
Prelude.toEnum
                                          ((Word64 -> Int) -> Parser Word64 -> Parser Int
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))
                                       "mutation_type"
                                FromFunction'PersistedValueMutation
-> Parser FromFunction'PersistedValueMutation
loop
                                  (Setter
  FromFunction'PersistedValueMutation
  FromFunction'PersistedValueMutation
  FromFunction'PersistedValueMutation'MutationType
  FromFunction'PersistedValueMutation'MutationType
-> FromFunction'PersistedValueMutation'MutationType
-> FromFunction'PersistedValueMutation
-> FromFunction'PersistedValueMutation
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                     (forall s a (f :: * -> *).
(HasField s "mutationType" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"mutationType") FromFunction'PersistedValueMutation'MutationType
y FromFunction'PersistedValueMutation
x)
                        18
                          -> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                       Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                                         (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                           Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
                                             (case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
                                                (Prelude.Left err :: UnicodeException
err)
                                                  -> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
                                                (Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
                                       "state_name"
                                FromFunction'PersistedValueMutation
-> Parser FromFunction'PersistedValueMutation
loop
                                  (Setter
  FromFunction'PersistedValueMutation
  FromFunction'PersistedValueMutation
  Text
  Text
-> Text
-> FromFunction'PersistedValueMutation
-> FromFunction'PersistedValueMutation
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "stateName" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"stateName") Text
y FromFunction'PersistedValueMutation
x)
                        26
                          -> do TypedValue
y <- Parser TypedValue -> String -> Parser TypedValue
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser TypedValue -> Parser TypedValue
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser TypedValue
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       "state_value"
                                FromFunction'PersistedValueMutation
-> Parser FromFunction'PersistedValueMutation
loop
                                  (Setter
  FromFunction'PersistedValueMutation
  FromFunction'PersistedValueMutation
  TypedValue
  TypedValue
-> TypedValue
-> FromFunction'PersistedValueMutation
-> FromFunction'PersistedValueMutation
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "stateValue" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"stateValue") TypedValue
y FromFunction'PersistedValueMutation
x)
                        wire :: Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                FromFunction'PersistedValueMutation
-> Parser FromFunction'PersistedValueMutation
loop
                                  (Setter
  FromFunction'PersistedValueMutation
  FromFunction'PersistedValueMutation
  FieldSet
  FieldSet
-> (FieldSet -> FieldSet)
-> FromFunction'PersistedValueMutation
-> FromFunction'PersistedValueMutation
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     forall msg. Message msg => Lens' msg FieldSet
Setter
  FromFunction'PersistedValueMutation
  FromFunction'PersistedValueMutation
  FieldSet
  FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) FromFunction'PersistedValueMutation
x)
      in
        Parser FromFunction'PersistedValueMutation
-> String -> Parser FromFunction'PersistedValueMutation
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do FromFunction'PersistedValueMutation
-> Parser FromFunction'PersistedValueMutation
loop FromFunction'PersistedValueMutation
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "PersistedValueMutation"
  buildMessage :: FromFunction'PersistedValueMutation -> Builder
buildMessage
    = \ _x :: FromFunction'PersistedValueMutation
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: FromFunction'PersistedValueMutation'MutationType
_v
                  = FoldLike
  FromFunction'PersistedValueMutation'MutationType
  FromFunction'PersistedValueMutation
  FromFunction'PersistedValueMutation
  FromFunction'PersistedValueMutation'MutationType
  FromFunction'PersistedValueMutation'MutationType
-> FromFunction'PersistedValueMutation
-> FromFunction'PersistedValueMutation'MutationType
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "mutationType" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"mutationType") FromFunction'PersistedValueMutation
_x
              in
                if FromFunction'PersistedValueMutation'MutationType
-> FromFunction'PersistedValueMutation'MutationType -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) FromFunction'PersistedValueMutation'MutationType
_v FromFunction'PersistedValueMutation'MutationType
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 8)
                      ((Int -> Builder)
-> (FromFunction'PersistedValueMutation'MutationType -> Int)
-> FromFunction'PersistedValueMutation'MutationType
-> 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)
                         FromFunction'PersistedValueMutation'MutationType -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum
                         FromFunction'PersistedValueMutation'MutationType
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (let
                   _v :: Text
_v = FoldLike
  Text
  FromFunction'PersistedValueMutation
  FromFunction'PersistedValueMutation
  Text
  Text
-> FromFunction'PersistedValueMutation -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "stateName" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"stateName") FromFunction'PersistedValueMutation
_x
                 in
                   if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
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 18)
                         ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                            (\ bs :: 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))
                            Text -> ByteString
Data.Text.Encoding.encodeUtf8
                            Text
_v))
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   (case
                        FoldLike
  (Maybe TypedValue)
  FromFunction'PersistedValueMutation
  FromFunction'PersistedValueMutation
  (Maybe TypedValue)
  (Maybe TypedValue)
-> FromFunction'PersistedValueMutation -> Maybe TypedValue
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                          (forall s a (f :: * -> *).
(HasField s "maybe'stateValue" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'stateValue") FromFunction'PersistedValueMutation
_x
                    of
                      Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                      (Prelude.Just _v :: TypedValue
_v)
                        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                             (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 26)
                             ((ByteString -> Builder)
-> (TypedValue -> ByteString) -> TypedValue -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                (\ bs :: 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))
                                TypedValue -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                                TypedValue
_v))
                   (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                      (FoldLike
  FieldSet
  FromFunction'PersistedValueMutation
  FromFunction'PersistedValueMutation
  FieldSet
  FieldSet
-> FromFunction'PersistedValueMutation -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  FromFunction'PersistedValueMutation
  FromFunction'PersistedValueMutation
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields FromFunction'PersistedValueMutation
_x))))
instance Control.DeepSeq.NFData FromFunction'PersistedValueMutation where
  rnf :: FromFunction'PersistedValueMutation -> ()
rnf
    = \ x__ :: FromFunction'PersistedValueMutation
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (FromFunction'PersistedValueMutation -> FieldSet
_FromFunction'PersistedValueMutation'_unknownFields FromFunction'PersistedValueMutation
x__)
             (FromFunction'PersistedValueMutation'MutationType -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (FromFunction'PersistedValueMutation
-> FromFunction'PersistedValueMutation'MutationType
_FromFunction'PersistedValueMutation'mutationType FromFunction'PersistedValueMutation
x__)
                (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (FromFunction'PersistedValueMutation -> Text
_FromFunction'PersistedValueMutation'stateName FromFunction'PersistedValueMutation
x__)
                   (Maybe TypedValue -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                      (FromFunction'PersistedValueMutation -> Maybe TypedValue
_FromFunction'PersistedValueMutation'stateValue FromFunction'PersistedValueMutation
x__) ())))
newtype FromFunction'PersistedValueMutation'MutationType'UnrecognizedValue
  = FromFunction'PersistedValueMutation'MutationType'UnrecognizedValue Data.Int.Int32
  deriving stock (FromFunction'PersistedValueMutation'MutationType'UnrecognizedValue
-> FromFunction'PersistedValueMutation'MutationType'UnrecognizedValue
-> Bool
(FromFunction'PersistedValueMutation'MutationType'UnrecognizedValue
 -> FromFunction'PersistedValueMutation'MutationType'UnrecognizedValue
 -> Bool)
-> (FromFunction'PersistedValueMutation'MutationType'UnrecognizedValue
    -> FromFunction'PersistedValueMutation'MutationType'UnrecognizedValue
    -> Bool)
-> Eq
     FromFunction'PersistedValueMutation'MutationType'UnrecognizedValue
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: FromFunction'PersistedValueMutation'MutationType'UnrecognizedValue
-> FromFunction'PersistedValueMutation'MutationType'UnrecognizedValue
-> Bool
$c/= :: FromFunction'PersistedValueMutation'MutationType'UnrecognizedValue
-> FromFunction'PersistedValueMutation'MutationType'UnrecognizedValue
-> Bool
== :: FromFunction'PersistedValueMutation'MutationType'UnrecognizedValue
-> FromFunction'PersistedValueMutation'MutationType'UnrecognizedValue
-> Bool
$c== :: FromFunction'PersistedValueMutation'MutationType'UnrecognizedValue
-> FromFunction'PersistedValueMutation'MutationType'UnrecognizedValue
-> Bool
Prelude.Eq, Eq
  FromFunction'PersistedValueMutation'MutationType'UnrecognizedValue
Eq
  FromFunction'PersistedValueMutation'MutationType'UnrecognizedValue =>
(FromFunction'PersistedValueMutation'MutationType'UnrecognizedValue
 -> FromFunction'PersistedValueMutation'MutationType'UnrecognizedValue
 -> Ordering)
-> (FromFunction'PersistedValueMutation'MutationType'UnrecognizedValue
    -> FromFunction'PersistedValueMutation'MutationType'UnrecognizedValue
    -> Bool)
-> (FromFunction'PersistedValueMutation'MutationType'UnrecognizedValue
    -> FromFunction'PersistedValueMutation'MutationType'UnrecognizedValue
    -> Bool)
-> (FromFunction'PersistedValueMutation'MutationType'UnrecognizedValue
    -> FromFunction'PersistedValueMutation'MutationType'UnrecognizedValue
    -> Bool)
-> (FromFunction'PersistedValueMutation'MutationType'UnrecognizedValue
    -> FromFunction'PersistedValueMutation'MutationType'UnrecognizedValue
    -> Bool)
-> (FromFunction'PersistedValueMutation'MutationType'UnrecognizedValue
    -> FromFunction'PersistedValueMutation'MutationType'UnrecognizedValue
    -> FromFunction'PersistedValueMutation'MutationType'UnrecognizedValue)
-> (FromFunction'PersistedValueMutation'MutationType'UnrecognizedValue
    -> FromFunction'PersistedValueMutation'MutationType'UnrecognizedValue
    -> FromFunction'PersistedValueMutation'MutationType'UnrecognizedValue)
-> Ord
     FromFunction'PersistedValueMutation'MutationType'UnrecognizedValue
FromFunction'PersistedValueMutation'MutationType'UnrecognizedValue
-> FromFunction'PersistedValueMutation'MutationType'UnrecognizedValue
-> Bool
FromFunction'PersistedValueMutation'MutationType'UnrecognizedValue
-> FromFunction'PersistedValueMutation'MutationType'UnrecognizedValue
-> Ordering
FromFunction'PersistedValueMutation'MutationType'UnrecognizedValue
-> FromFunction'PersistedValueMutation'MutationType'UnrecognizedValue
-> FromFunction'PersistedValueMutation'MutationType'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
min :: FromFunction'PersistedValueMutation'MutationType'UnrecognizedValue
-> FromFunction'PersistedValueMutation'MutationType'UnrecognizedValue
-> FromFunction'PersistedValueMutation'MutationType'UnrecognizedValue
$cmin :: FromFunction'PersistedValueMutation'MutationType'UnrecognizedValue
-> FromFunction'PersistedValueMutation'MutationType'UnrecognizedValue
-> FromFunction'PersistedValueMutation'MutationType'UnrecognizedValue
max :: FromFunction'PersistedValueMutation'MutationType'UnrecognizedValue
-> FromFunction'PersistedValueMutation'MutationType'UnrecognizedValue
-> FromFunction'PersistedValueMutation'MutationType'UnrecognizedValue
$cmax :: FromFunction'PersistedValueMutation'MutationType'UnrecognizedValue
-> FromFunction'PersistedValueMutation'MutationType'UnrecognizedValue
-> FromFunction'PersistedValueMutation'MutationType'UnrecognizedValue
>= :: FromFunction'PersistedValueMutation'MutationType'UnrecognizedValue
-> FromFunction'PersistedValueMutation'MutationType'UnrecognizedValue
-> Bool
$c>= :: FromFunction'PersistedValueMutation'MutationType'UnrecognizedValue
-> FromFunction'PersistedValueMutation'MutationType'UnrecognizedValue
-> Bool
> :: FromFunction'PersistedValueMutation'MutationType'UnrecognizedValue
-> FromFunction'PersistedValueMutation'MutationType'UnrecognizedValue
-> Bool
$c> :: FromFunction'PersistedValueMutation'MutationType'UnrecognizedValue
-> FromFunction'PersistedValueMutation'MutationType'UnrecognizedValue
-> Bool
<= :: FromFunction'PersistedValueMutation'MutationType'UnrecognizedValue
-> FromFunction'PersistedValueMutation'MutationType'UnrecognizedValue
-> Bool
$c<= :: FromFunction'PersistedValueMutation'MutationType'UnrecognizedValue
-> FromFunction'PersistedValueMutation'MutationType'UnrecognizedValue
-> Bool
< :: FromFunction'PersistedValueMutation'MutationType'UnrecognizedValue
-> FromFunction'PersistedValueMutation'MutationType'UnrecognizedValue
-> Bool
$c< :: FromFunction'PersistedValueMutation'MutationType'UnrecognizedValue
-> FromFunction'PersistedValueMutation'MutationType'UnrecognizedValue
-> Bool
compare :: FromFunction'PersistedValueMutation'MutationType'UnrecognizedValue
-> FromFunction'PersistedValueMutation'MutationType'UnrecognizedValue
-> Ordering
$ccompare :: FromFunction'PersistedValueMutation'MutationType'UnrecognizedValue
-> FromFunction'PersistedValueMutation'MutationType'UnrecognizedValue
-> Ordering
$cp1Ord :: Eq
  FromFunction'PersistedValueMutation'MutationType'UnrecognizedValue
Prelude.Ord, Int
-> FromFunction'PersistedValueMutation'MutationType'UnrecognizedValue
-> ShowS
[FromFunction'PersistedValueMutation'MutationType'UnrecognizedValue]
-> ShowS
FromFunction'PersistedValueMutation'MutationType'UnrecognizedValue
-> String
(Int
 -> FromFunction'PersistedValueMutation'MutationType'UnrecognizedValue
 -> ShowS)
-> (FromFunction'PersistedValueMutation'MutationType'UnrecognizedValue
    -> String)
-> ([FromFunction'PersistedValueMutation'MutationType'UnrecognizedValue]
    -> ShowS)
-> Show
     FromFunction'PersistedValueMutation'MutationType'UnrecognizedValue
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [FromFunction'PersistedValueMutation'MutationType'UnrecognizedValue]
-> ShowS
$cshowList :: [FromFunction'PersistedValueMutation'MutationType'UnrecognizedValue]
-> ShowS
show :: FromFunction'PersistedValueMutation'MutationType'UnrecognizedValue
-> String
$cshow :: FromFunction'PersistedValueMutation'MutationType'UnrecognizedValue
-> String
showsPrec :: Int
-> FromFunction'PersistedValueMutation'MutationType'UnrecognizedValue
-> ShowS
$cshowsPrec :: Int
-> FromFunction'PersistedValueMutation'MutationType'UnrecognizedValue
-> ShowS
Prelude.Show)
data FromFunction'PersistedValueMutation'MutationType
  = FromFunction'PersistedValueMutation'DELETE |
    FromFunction'PersistedValueMutation'MODIFY |
    FromFunction'PersistedValueMutation'MutationType'Unrecognized !FromFunction'PersistedValueMutation'MutationType'UnrecognizedValue
  deriving stock (Int -> FromFunction'PersistedValueMutation'MutationType -> ShowS
[FromFunction'PersistedValueMutation'MutationType] -> ShowS
FromFunction'PersistedValueMutation'MutationType -> String
(Int -> FromFunction'PersistedValueMutation'MutationType -> ShowS)
-> (FromFunction'PersistedValueMutation'MutationType -> String)
-> ([FromFunction'PersistedValueMutation'MutationType] -> ShowS)
-> Show FromFunction'PersistedValueMutation'MutationType
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [FromFunction'PersistedValueMutation'MutationType] -> ShowS
$cshowList :: [FromFunction'PersistedValueMutation'MutationType] -> ShowS
show :: FromFunction'PersistedValueMutation'MutationType -> String
$cshow :: FromFunction'PersistedValueMutation'MutationType -> String
showsPrec :: Int -> FromFunction'PersistedValueMutation'MutationType -> ShowS
$cshowsPrec :: Int -> FromFunction'PersistedValueMutation'MutationType -> ShowS
Prelude.Show, FromFunction'PersistedValueMutation'MutationType
-> FromFunction'PersistedValueMutation'MutationType -> Bool
(FromFunction'PersistedValueMutation'MutationType
 -> FromFunction'PersistedValueMutation'MutationType -> Bool)
-> (FromFunction'PersistedValueMutation'MutationType
    -> FromFunction'PersistedValueMutation'MutationType -> Bool)
-> Eq FromFunction'PersistedValueMutation'MutationType
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: FromFunction'PersistedValueMutation'MutationType
-> FromFunction'PersistedValueMutation'MutationType -> Bool
$c/= :: FromFunction'PersistedValueMutation'MutationType
-> FromFunction'PersistedValueMutation'MutationType -> Bool
== :: FromFunction'PersistedValueMutation'MutationType
-> FromFunction'PersistedValueMutation'MutationType -> Bool
$c== :: FromFunction'PersistedValueMutation'MutationType
-> FromFunction'PersistedValueMutation'MutationType -> Bool
Prelude.Eq, Eq FromFunction'PersistedValueMutation'MutationType
Eq FromFunction'PersistedValueMutation'MutationType =>
(FromFunction'PersistedValueMutation'MutationType
 -> FromFunction'PersistedValueMutation'MutationType -> Ordering)
-> (FromFunction'PersistedValueMutation'MutationType
    -> FromFunction'PersistedValueMutation'MutationType -> Bool)
-> (FromFunction'PersistedValueMutation'MutationType
    -> FromFunction'PersistedValueMutation'MutationType -> Bool)
-> (FromFunction'PersistedValueMutation'MutationType
    -> FromFunction'PersistedValueMutation'MutationType -> Bool)
-> (FromFunction'PersistedValueMutation'MutationType
    -> FromFunction'PersistedValueMutation'MutationType -> Bool)
-> (FromFunction'PersistedValueMutation'MutationType
    -> FromFunction'PersistedValueMutation'MutationType
    -> FromFunction'PersistedValueMutation'MutationType)
-> (FromFunction'PersistedValueMutation'MutationType
    -> FromFunction'PersistedValueMutation'MutationType
    -> FromFunction'PersistedValueMutation'MutationType)
-> Ord FromFunction'PersistedValueMutation'MutationType
FromFunction'PersistedValueMutation'MutationType
-> FromFunction'PersistedValueMutation'MutationType -> Bool
FromFunction'PersistedValueMutation'MutationType
-> FromFunction'PersistedValueMutation'MutationType -> Ordering
FromFunction'PersistedValueMutation'MutationType
-> FromFunction'PersistedValueMutation'MutationType
-> FromFunction'PersistedValueMutation'MutationType
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
min :: FromFunction'PersistedValueMutation'MutationType
-> FromFunction'PersistedValueMutation'MutationType
-> FromFunction'PersistedValueMutation'MutationType
$cmin :: FromFunction'PersistedValueMutation'MutationType
-> FromFunction'PersistedValueMutation'MutationType
-> FromFunction'PersistedValueMutation'MutationType
max :: FromFunction'PersistedValueMutation'MutationType
-> FromFunction'PersistedValueMutation'MutationType
-> FromFunction'PersistedValueMutation'MutationType
$cmax :: FromFunction'PersistedValueMutation'MutationType
-> FromFunction'PersistedValueMutation'MutationType
-> FromFunction'PersistedValueMutation'MutationType
>= :: FromFunction'PersistedValueMutation'MutationType
-> FromFunction'PersistedValueMutation'MutationType -> Bool
$c>= :: FromFunction'PersistedValueMutation'MutationType
-> FromFunction'PersistedValueMutation'MutationType -> Bool
> :: FromFunction'PersistedValueMutation'MutationType
-> FromFunction'PersistedValueMutation'MutationType -> Bool
$c> :: FromFunction'PersistedValueMutation'MutationType
-> FromFunction'PersistedValueMutation'MutationType -> Bool
<= :: FromFunction'PersistedValueMutation'MutationType
-> FromFunction'PersistedValueMutation'MutationType -> Bool
$c<= :: FromFunction'PersistedValueMutation'MutationType
-> FromFunction'PersistedValueMutation'MutationType -> Bool
< :: FromFunction'PersistedValueMutation'MutationType
-> FromFunction'PersistedValueMutation'MutationType -> Bool
$c< :: FromFunction'PersistedValueMutation'MutationType
-> FromFunction'PersistedValueMutation'MutationType -> Bool
compare :: FromFunction'PersistedValueMutation'MutationType
-> FromFunction'PersistedValueMutation'MutationType -> Ordering
$ccompare :: FromFunction'PersistedValueMutation'MutationType
-> FromFunction'PersistedValueMutation'MutationType -> Ordering
$cp1Ord :: Eq FromFunction'PersistedValueMutation'MutationType
Prelude.Ord)
instance Data.ProtoLens.MessageEnum FromFunction'PersistedValueMutation'MutationType where
  maybeToEnum :: Int -> Maybe FromFunction'PersistedValueMutation'MutationType
maybeToEnum 0
    = FromFunction'PersistedValueMutation'MutationType
-> Maybe FromFunction'PersistedValueMutation'MutationType
forall a. a -> Maybe a
Prelude.Just FromFunction'PersistedValueMutation'MutationType
FromFunction'PersistedValueMutation'DELETE
  maybeToEnum 1
    = FromFunction'PersistedValueMutation'MutationType
-> Maybe FromFunction'PersistedValueMutation'MutationType
forall a. a -> Maybe a
Prelude.Just FromFunction'PersistedValueMutation'MutationType
FromFunction'PersistedValueMutation'MODIFY
  maybeToEnum k :: Int
k
    = FromFunction'PersistedValueMutation'MutationType
-> Maybe FromFunction'PersistedValueMutation'MutationType
forall a. a -> Maybe a
Prelude.Just
        (FromFunction'PersistedValueMutation'MutationType'UnrecognizedValue
-> FromFunction'PersistedValueMutation'MutationType
FromFunction'PersistedValueMutation'MutationType'Unrecognized
           (Int32
-> FromFunction'PersistedValueMutation'MutationType'UnrecognizedValue
FromFunction'PersistedValueMutation'MutationType'UnrecognizedValue
              (Int -> Int32
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int
k)))
  showEnum :: FromFunction'PersistedValueMutation'MutationType -> String
showEnum FromFunction'PersistedValueMutation'DELETE = "DELETE"
  showEnum FromFunction'PersistedValueMutation'MODIFY = "MODIFY"
  showEnum
    (FromFunction'PersistedValueMutation'MutationType'Unrecognized (FromFunction'PersistedValueMutation'MutationType'UnrecognizedValue k :: Int32
k))
    = Int32 -> String
forall a. Show a => a -> String
Prelude.show Int32
k
  readEnum :: String -> Maybe FromFunction'PersistedValueMutation'MutationType
readEnum k :: String
k
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k "DELETE"
    = FromFunction'PersistedValueMutation'MutationType
-> Maybe FromFunction'PersistedValueMutation'MutationType
forall a. a -> Maybe a
Prelude.Just FromFunction'PersistedValueMutation'MutationType
FromFunction'PersistedValueMutation'DELETE
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k "MODIFY"
    = FromFunction'PersistedValueMutation'MutationType
-> Maybe FromFunction'PersistedValueMutation'MutationType
forall a. a -> Maybe a
Prelude.Just FromFunction'PersistedValueMutation'MutationType
FromFunction'PersistedValueMutation'MODIFY
    | Bool
Prelude.otherwise
    = Maybe Int
-> (Int -> Maybe FromFunction'PersistedValueMutation'MutationType)
-> Maybe FromFunction'PersistedValueMutation'MutationType
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 FromFunction'PersistedValueMutation'MutationType
forall a. MessageEnum a => Int -> Maybe a
Data.ProtoLens.maybeToEnum
instance Prelude.Bounded FromFunction'PersistedValueMutation'MutationType where
  minBound :: FromFunction'PersistedValueMutation'MutationType
minBound = FromFunction'PersistedValueMutation'MutationType
FromFunction'PersistedValueMutation'DELETE
  maxBound :: FromFunction'PersistedValueMutation'MutationType
maxBound = FromFunction'PersistedValueMutation'MutationType
FromFunction'PersistedValueMutation'MODIFY
instance Prelude.Enum FromFunction'PersistedValueMutation'MutationType where
  toEnum :: Int -> FromFunction'PersistedValueMutation'MutationType
toEnum k__ :: Int
k__
    = FromFunction'PersistedValueMutation'MutationType
-> (FromFunction'PersistedValueMutation'MutationType
    -> FromFunction'PersistedValueMutation'MutationType)
-> Maybe FromFunction'PersistedValueMutation'MutationType
-> FromFunction'PersistedValueMutation'MutationType
forall b a. b -> (a -> b) -> Maybe a -> b
Prelude.maybe
        (String -> FromFunction'PersistedValueMutation'MutationType
forall a. HasCallStack => String -> a
Prelude.error
           (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
              "toEnum: unknown value for enum MutationType: "
              (Int -> String
forall a. Show a => a -> String
Prelude.show Int
k__)))
        FromFunction'PersistedValueMutation'MutationType
-> FromFunction'PersistedValueMutation'MutationType
forall a. a -> a
Prelude.id
        (Int -> Maybe FromFunction'PersistedValueMutation'MutationType
forall a. MessageEnum a => Int -> Maybe a
Data.ProtoLens.maybeToEnum Int
k__)
  fromEnum :: FromFunction'PersistedValueMutation'MutationType -> Int
fromEnum FromFunction'PersistedValueMutation'DELETE = 0
  fromEnum FromFunction'PersistedValueMutation'MODIFY = 1
  fromEnum
    (FromFunction'PersistedValueMutation'MutationType'Unrecognized (FromFunction'PersistedValueMutation'MutationType'UnrecognizedValue k :: Int32
k))
    = Int32 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int32
k
  succ :: FromFunction'PersistedValueMutation'MutationType
-> FromFunction'PersistedValueMutation'MutationType
succ FromFunction'PersistedValueMutation'MODIFY
    = String -> FromFunction'PersistedValueMutation'MutationType
forall a. HasCallStack => String -> a
Prelude.error
        "FromFunction'PersistedValueMutation'MutationType.succ: bad argument FromFunction'PersistedValueMutation'MODIFY. This value would be out of bounds."
  succ FromFunction'PersistedValueMutation'DELETE
    = FromFunction'PersistedValueMutation'MutationType
FromFunction'PersistedValueMutation'MODIFY
  succ
    (FromFunction'PersistedValueMutation'MutationType'Unrecognized _)
    = String -> FromFunction'PersistedValueMutation'MutationType
forall a. HasCallStack => String -> a
Prelude.error
        "FromFunction'PersistedValueMutation'MutationType.succ: bad argument: unrecognized value"
  pred :: FromFunction'PersistedValueMutation'MutationType
-> FromFunction'PersistedValueMutation'MutationType
pred FromFunction'PersistedValueMutation'DELETE
    = String -> FromFunction'PersistedValueMutation'MutationType
forall a. HasCallStack => String -> a
Prelude.error
        "FromFunction'PersistedValueMutation'MutationType.pred: bad argument FromFunction'PersistedValueMutation'DELETE. This value would be out of bounds."
  pred FromFunction'PersistedValueMutation'MODIFY
    = FromFunction'PersistedValueMutation'MutationType
FromFunction'PersistedValueMutation'DELETE
  pred
    (FromFunction'PersistedValueMutation'MutationType'Unrecognized _)
    = String -> FromFunction'PersistedValueMutation'MutationType
forall a. HasCallStack => String -> a
Prelude.error
        "FromFunction'PersistedValueMutation'MutationType.pred: bad argument: unrecognized value"
  enumFrom :: FromFunction'PersistedValueMutation'MutationType
-> [FromFunction'PersistedValueMutation'MutationType]
enumFrom = FromFunction'PersistedValueMutation'MutationType
-> [FromFunction'PersistedValueMutation'MutationType]
forall a. (Enum a, Bounded a) => a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFrom
  enumFromTo :: FromFunction'PersistedValueMutation'MutationType
-> FromFunction'PersistedValueMutation'MutationType
-> [FromFunction'PersistedValueMutation'MutationType]
enumFromTo = FromFunction'PersistedValueMutation'MutationType
-> FromFunction'PersistedValueMutation'MutationType
-> [FromFunction'PersistedValueMutation'MutationType]
forall a. Enum a => a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromTo
  enumFromThen :: FromFunction'PersistedValueMutation'MutationType
-> FromFunction'PersistedValueMutation'MutationType
-> [FromFunction'PersistedValueMutation'MutationType]
enumFromThen = FromFunction'PersistedValueMutation'MutationType
-> FromFunction'PersistedValueMutation'MutationType
-> [FromFunction'PersistedValueMutation'MutationType]
forall a. (Enum a, Bounded a) => a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromThen
  enumFromThenTo :: FromFunction'PersistedValueMutation'MutationType
-> FromFunction'PersistedValueMutation'MutationType
-> FromFunction'PersistedValueMutation'MutationType
-> [FromFunction'PersistedValueMutation'MutationType]
enumFromThenTo = FromFunction'PersistedValueMutation'MutationType
-> FromFunction'PersistedValueMutation'MutationType
-> FromFunction'PersistedValueMutation'MutationType
-> [FromFunction'PersistedValueMutation'MutationType]
forall a. Enum a => a -> a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromThenTo
instance Data.ProtoLens.FieldDefault FromFunction'PersistedValueMutation'MutationType where
  fieldDefault :: FromFunction'PersistedValueMutation'MutationType
fieldDefault = FromFunction'PersistedValueMutation'MutationType
FromFunction'PersistedValueMutation'DELETE
instance Control.DeepSeq.NFData FromFunction'PersistedValueMutation'MutationType where
  rnf :: FromFunction'PersistedValueMutation'MutationType -> ()
rnf x__ :: FromFunction'PersistedValueMutation'MutationType
x__ = FromFunction'PersistedValueMutation'MutationType -> () -> ()
forall a b. a -> b -> b
Prelude.seq FromFunction'PersistedValueMutation'MutationType
x__ ()
{- | Fields :
     
         * 'Proto.RequestReply_Fields.stateName' @:: Lens' FromFunction'PersistedValueSpec Data.Text.Text@
         * 'Proto.RequestReply_Fields.expirationSpec' @:: Lens' FromFunction'PersistedValueSpec FromFunction'ExpirationSpec@
         * 'Proto.RequestReply_Fields.maybe'expirationSpec' @:: Lens' FromFunction'PersistedValueSpec (Prelude.Maybe FromFunction'ExpirationSpec)@
         * 'Proto.RequestReply_Fields.typeTypename' @:: Lens' FromFunction'PersistedValueSpec Data.Text.Text@ -}
data FromFunction'PersistedValueSpec
  = FromFunction'PersistedValueSpec'_constructor {FromFunction'PersistedValueSpec -> Text
_FromFunction'PersistedValueSpec'stateName :: !Data.Text.Text,
                                                  FromFunction'PersistedValueSpec
-> Maybe FromFunction'ExpirationSpec
_FromFunction'PersistedValueSpec'expirationSpec :: !(Prelude.Maybe FromFunction'ExpirationSpec),
                                                  FromFunction'PersistedValueSpec -> Text
_FromFunction'PersistedValueSpec'typeTypename :: !Data.Text.Text,
                                                  FromFunction'PersistedValueSpec -> FieldSet
_FromFunction'PersistedValueSpec'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (FromFunction'PersistedValueSpec
-> FromFunction'PersistedValueSpec -> Bool
(FromFunction'PersistedValueSpec
 -> FromFunction'PersistedValueSpec -> Bool)
-> (FromFunction'PersistedValueSpec
    -> FromFunction'PersistedValueSpec -> Bool)
-> Eq FromFunction'PersistedValueSpec
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: FromFunction'PersistedValueSpec
-> FromFunction'PersistedValueSpec -> Bool
$c/= :: FromFunction'PersistedValueSpec
-> FromFunction'PersistedValueSpec -> Bool
== :: FromFunction'PersistedValueSpec
-> FromFunction'PersistedValueSpec -> Bool
$c== :: FromFunction'PersistedValueSpec
-> FromFunction'PersistedValueSpec -> Bool
Prelude.Eq, Eq FromFunction'PersistedValueSpec
Eq FromFunction'PersistedValueSpec =>
(FromFunction'PersistedValueSpec
 -> FromFunction'PersistedValueSpec -> Ordering)
-> (FromFunction'PersistedValueSpec
    -> FromFunction'PersistedValueSpec -> Bool)
-> (FromFunction'PersistedValueSpec
    -> FromFunction'PersistedValueSpec -> Bool)
-> (FromFunction'PersistedValueSpec
    -> FromFunction'PersistedValueSpec -> Bool)
-> (FromFunction'PersistedValueSpec
    -> FromFunction'PersistedValueSpec -> Bool)
-> (FromFunction'PersistedValueSpec
    -> FromFunction'PersistedValueSpec
    -> FromFunction'PersistedValueSpec)
-> (FromFunction'PersistedValueSpec
    -> FromFunction'PersistedValueSpec
    -> FromFunction'PersistedValueSpec)
-> Ord FromFunction'PersistedValueSpec
FromFunction'PersistedValueSpec
-> FromFunction'PersistedValueSpec -> Bool
FromFunction'PersistedValueSpec
-> FromFunction'PersistedValueSpec -> Ordering
FromFunction'PersistedValueSpec
-> FromFunction'PersistedValueSpec
-> FromFunction'PersistedValueSpec
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
min :: FromFunction'PersistedValueSpec
-> FromFunction'PersistedValueSpec
-> FromFunction'PersistedValueSpec
$cmin :: FromFunction'PersistedValueSpec
-> FromFunction'PersistedValueSpec
-> FromFunction'PersistedValueSpec
max :: FromFunction'PersistedValueSpec
-> FromFunction'PersistedValueSpec
-> FromFunction'PersistedValueSpec
$cmax :: FromFunction'PersistedValueSpec
-> FromFunction'PersistedValueSpec
-> FromFunction'PersistedValueSpec
>= :: FromFunction'PersistedValueSpec
-> FromFunction'PersistedValueSpec -> Bool
$c>= :: FromFunction'PersistedValueSpec
-> FromFunction'PersistedValueSpec -> Bool
> :: FromFunction'PersistedValueSpec
-> FromFunction'PersistedValueSpec -> Bool
$c> :: FromFunction'PersistedValueSpec
-> FromFunction'PersistedValueSpec -> Bool
<= :: FromFunction'PersistedValueSpec
-> FromFunction'PersistedValueSpec -> Bool
$c<= :: FromFunction'PersistedValueSpec
-> FromFunction'PersistedValueSpec -> Bool
< :: FromFunction'PersistedValueSpec
-> FromFunction'PersistedValueSpec -> Bool
$c< :: FromFunction'PersistedValueSpec
-> FromFunction'PersistedValueSpec -> Bool
compare :: FromFunction'PersistedValueSpec
-> FromFunction'PersistedValueSpec -> Ordering
$ccompare :: FromFunction'PersistedValueSpec
-> FromFunction'PersistedValueSpec -> Ordering
$cp1Ord :: Eq FromFunction'PersistedValueSpec
Prelude.Ord)
instance Prelude.Show FromFunction'PersistedValueSpec where
  showsPrec :: Int -> FromFunction'PersistedValueSpec -> ShowS
showsPrec _ __x :: FromFunction'PersistedValueSpec
__x __s :: String
__s
    = Char -> ShowS
Prelude.showChar
        '{'
        (String -> ShowS
Prelude.showString
           (FromFunction'PersistedValueSpec -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort FromFunction'PersistedValueSpec
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField FromFunction'PersistedValueSpec "stateName" Data.Text.Text where
  fieldOf :: Proxy# "stateName"
-> (Text -> f Text)
-> FromFunction'PersistedValueSpec
-> f FromFunction'PersistedValueSpec
fieldOf _
    = ((Text -> f Text)
 -> FromFunction'PersistedValueSpec
 -> f FromFunction'PersistedValueSpec)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> FromFunction'PersistedValueSpec
-> f FromFunction'PersistedValueSpec
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FromFunction'PersistedValueSpec -> Text)
-> (FromFunction'PersistedValueSpec
    -> Text -> FromFunction'PersistedValueSpec)
-> Lens
     FromFunction'PersistedValueSpec
     FromFunction'PersistedValueSpec
     Text
     Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FromFunction'PersistedValueSpec -> Text
_FromFunction'PersistedValueSpec'stateName
           (\ x__ :: FromFunction'PersistedValueSpec
x__ y__ :: Text
y__
              -> FromFunction'PersistedValueSpec
x__ {_FromFunction'PersistedValueSpec'stateName :: Text
_FromFunction'PersistedValueSpec'stateName = Text
y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField FromFunction'PersistedValueSpec "expirationSpec" FromFunction'ExpirationSpec where
  fieldOf :: Proxy# "expirationSpec"
-> (FromFunction'ExpirationSpec -> f FromFunction'ExpirationSpec)
-> FromFunction'PersistedValueSpec
-> f FromFunction'PersistedValueSpec
fieldOf _
    = ((Maybe FromFunction'ExpirationSpec
  -> f (Maybe FromFunction'ExpirationSpec))
 -> FromFunction'PersistedValueSpec
 -> f FromFunction'PersistedValueSpec)
-> ((FromFunction'ExpirationSpec -> f FromFunction'ExpirationSpec)
    -> Maybe FromFunction'ExpirationSpec
    -> f (Maybe FromFunction'ExpirationSpec))
-> (FromFunction'ExpirationSpec -> f FromFunction'ExpirationSpec)
-> FromFunction'PersistedValueSpec
-> f FromFunction'PersistedValueSpec
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FromFunction'PersistedValueSpec
 -> Maybe FromFunction'ExpirationSpec)
-> (FromFunction'PersistedValueSpec
    -> Maybe FromFunction'ExpirationSpec
    -> FromFunction'PersistedValueSpec)
-> Lens
     FromFunction'PersistedValueSpec
     FromFunction'PersistedValueSpec
     (Maybe FromFunction'ExpirationSpec)
     (Maybe FromFunction'ExpirationSpec)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FromFunction'PersistedValueSpec
-> Maybe FromFunction'ExpirationSpec
_FromFunction'PersistedValueSpec'expirationSpec
           (\ x__ :: FromFunction'PersistedValueSpec
x__ y__ :: Maybe FromFunction'ExpirationSpec
y__
              -> FromFunction'PersistedValueSpec
x__ {_FromFunction'PersistedValueSpec'expirationSpec :: Maybe FromFunction'ExpirationSpec
_FromFunction'PersistedValueSpec'expirationSpec = Maybe FromFunction'ExpirationSpec
y__}))
        (FromFunction'ExpirationSpec
-> Lens'
     (Maybe FromFunction'ExpirationSpec) FromFunction'ExpirationSpec
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens FromFunction'ExpirationSpec
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField FromFunction'PersistedValueSpec "maybe'expirationSpec" (Prelude.Maybe FromFunction'ExpirationSpec) where
  fieldOf :: Proxy# "maybe'expirationSpec"
-> (Maybe FromFunction'ExpirationSpec
    -> f (Maybe FromFunction'ExpirationSpec))
-> FromFunction'PersistedValueSpec
-> f FromFunction'PersistedValueSpec
fieldOf _
    = ((Maybe FromFunction'ExpirationSpec
  -> f (Maybe FromFunction'ExpirationSpec))
 -> FromFunction'PersistedValueSpec
 -> f FromFunction'PersistedValueSpec)
-> ((Maybe FromFunction'ExpirationSpec
     -> f (Maybe FromFunction'ExpirationSpec))
    -> Maybe FromFunction'ExpirationSpec
    -> f (Maybe FromFunction'ExpirationSpec))
-> (Maybe FromFunction'ExpirationSpec
    -> f (Maybe FromFunction'ExpirationSpec))
-> FromFunction'PersistedValueSpec
-> f FromFunction'PersistedValueSpec
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FromFunction'PersistedValueSpec
 -> Maybe FromFunction'ExpirationSpec)
-> (FromFunction'PersistedValueSpec
    -> Maybe FromFunction'ExpirationSpec
    -> FromFunction'PersistedValueSpec)
-> Lens
     FromFunction'PersistedValueSpec
     FromFunction'PersistedValueSpec
     (Maybe FromFunction'ExpirationSpec)
     (Maybe FromFunction'ExpirationSpec)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FromFunction'PersistedValueSpec
-> Maybe FromFunction'ExpirationSpec
_FromFunction'PersistedValueSpec'expirationSpec
           (\ x__ :: FromFunction'PersistedValueSpec
x__ y__ :: Maybe FromFunction'ExpirationSpec
y__
              -> FromFunction'PersistedValueSpec
x__ {_FromFunction'PersistedValueSpec'expirationSpec :: Maybe FromFunction'ExpirationSpec
_FromFunction'PersistedValueSpec'expirationSpec = Maybe FromFunction'ExpirationSpec
y__}))
        (Maybe FromFunction'ExpirationSpec
 -> f (Maybe FromFunction'ExpirationSpec))
-> Maybe FromFunction'ExpirationSpec
-> f (Maybe FromFunction'ExpirationSpec)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField FromFunction'PersistedValueSpec "typeTypename" Data.Text.Text where
  fieldOf :: Proxy# "typeTypename"
-> (Text -> f Text)
-> FromFunction'PersistedValueSpec
-> f FromFunction'PersistedValueSpec
fieldOf _
    = ((Text -> f Text)
 -> FromFunction'PersistedValueSpec
 -> f FromFunction'PersistedValueSpec)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> FromFunction'PersistedValueSpec
-> f FromFunction'PersistedValueSpec
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FromFunction'PersistedValueSpec -> Text)
-> (FromFunction'PersistedValueSpec
    -> Text -> FromFunction'PersistedValueSpec)
-> Lens
     FromFunction'PersistedValueSpec
     FromFunction'PersistedValueSpec
     Text
     Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FromFunction'PersistedValueSpec -> Text
_FromFunction'PersistedValueSpec'typeTypename
           (\ x__ :: FromFunction'PersistedValueSpec
x__ y__ :: Text
y__
              -> FromFunction'PersistedValueSpec
x__ {_FromFunction'PersistedValueSpec'typeTypename :: Text
_FromFunction'PersistedValueSpec'typeTypename = Text
y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message FromFunction'PersistedValueSpec where
  messageName :: Proxy FromFunction'PersistedValueSpec -> Text
messageName _
    = String -> Text
Data.Text.pack
        "io.statefun.sdk.reqreply.FromFunction.PersistedValueSpec"
  packedMessageDescriptor :: Proxy FromFunction'PersistedValueSpec -> ByteString
packedMessageDescriptor _
    = "\n\
      \\DC2PersistedValueSpec\DC2\GS\n\
      \\n\
      \state_name\CAN\SOH \SOH(\tR\tstateName\DC2^\n\
      \\SIexpiration_spec\CAN\STX \SOH(\v25.io.statefun.sdk.reqreply.FromFunction.ExpirationSpecR\SOexpirationSpec\DC2#\n\
      \\rtype_typename\CAN\ETX \SOH(\tR\ftypeTypename"
  packedFileDescriptor :: Proxy FromFunction'PersistedValueSpec -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor FromFunction'PersistedValueSpec)
fieldsByTag
    = let
        stateName__field_descriptor :: FieldDescriptor FromFunction'PersistedValueSpec
stateName__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor FromFunction'PersistedValueSpec Text
-> FieldDescriptor FromFunction'PersistedValueSpec
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "state_name"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (WireDefault Text
-> Lens
     FromFunction'PersistedValueSpec
     FromFunction'PersistedValueSpec
     Text
     Text
-> FieldAccessor FromFunction'PersistedValueSpec Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
                 (forall s a (f :: * -> *).
(HasField s "stateName" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"stateName")) ::
              Data.ProtoLens.FieldDescriptor FromFunction'PersistedValueSpec
        expirationSpec__field_descriptor :: FieldDescriptor FromFunction'PersistedValueSpec
expirationSpec__field_descriptor
          = String
-> FieldTypeDescriptor FromFunction'ExpirationSpec
-> FieldAccessor
     FromFunction'PersistedValueSpec FromFunction'ExpirationSpec
-> FieldDescriptor FromFunction'PersistedValueSpec
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "expiration_spec"
              (MessageOrGroup -> FieldTypeDescriptor FromFunction'ExpirationSpec
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor FromFunction'ExpirationSpec)
              (Lens
  FromFunction'PersistedValueSpec
  FromFunction'PersistedValueSpec
  (Maybe FromFunction'ExpirationSpec)
  (Maybe FromFunction'ExpirationSpec)
-> FieldAccessor
     FromFunction'PersistedValueSpec FromFunction'ExpirationSpec
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'expirationSpec" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'expirationSpec")) ::
              Data.ProtoLens.FieldDescriptor FromFunction'PersistedValueSpec
        typeTypename__field_descriptor :: FieldDescriptor FromFunction'PersistedValueSpec
typeTypename__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor FromFunction'PersistedValueSpec Text
-> FieldDescriptor FromFunction'PersistedValueSpec
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "type_typename"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (WireDefault Text
-> Lens
     FromFunction'PersistedValueSpec
     FromFunction'PersistedValueSpec
     Text
     Text
-> FieldAccessor FromFunction'PersistedValueSpec Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
                 (forall s a (f :: * -> *).
(HasField s "typeTypename" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"typeTypename")) ::
              Data.ProtoLens.FieldDescriptor FromFunction'PersistedValueSpec
      in
        [(Tag, FieldDescriptor FromFunction'PersistedValueSpec)]
-> Map Tag (FieldDescriptor FromFunction'PersistedValueSpec)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor FromFunction'PersistedValueSpec
stateName__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor FromFunction'PersistedValueSpec
expirationSpec__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 3, FieldDescriptor FromFunction'PersistedValueSpec
typeTypename__field_descriptor)]
  unknownFields :: LensLike' f FromFunction'PersistedValueSpec FieldSet
unknownFields
    = (FromFunction'PersistedValueSpec -> FieldSet)
-> (FromFunction'PersistedValueSpec
    -> FieldSet -> FromFunction'PersistedValueSpec)
-> Lens' FromFunction'PersistedValueSpec FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        FromFunction'PersistedValueSpec -> FieldSet
_FromFunction'PersistedValueSpec'_unknownFields
        (\ x__ :: FromFunction'PersistedValueSpec
x__ y__ :: FieldSet
y__
           -> FromFunction'PersistedValueSpec
x__ {_FromFunction'PersistedValueSpec'_unknownFields :: FieldSet
_FromFunction'PersistedValueSpec'_unknownFields = FieldSet
y__})
  defMessage :: FromFunction'PersistedValueSpec
defMessage
    = $WFromFunction'PersistedValueSpec'_constructor :: Text
-> Maybe FromFunction'ExpirationSpec
-> Text
-> FieldSet
-> FromFunction'PersistedValueSpec
FromFunction'PersistedValueSpec'_constructor
        {_FromFunction'PersistedValueSpec'stateName :: Text
_FromFunction'PersistedValueSpec'stateName = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _FromFunction'PersistedValueSpec'expirationSpec :: Maybe FromFunction'ExpirationSpec
_FromFunction'PersistedValueSpec'expirationSpec = Maybe FromFunction'ExpirationSpec
forall a. Maybe a
Prelude.Nothing,
         _FromFunction'PersistedValueSpec'typeTypename :: Text
_FromFunction'PersistedValueSpec'typeTypename = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _FromFunction'PersistedValueSpec'_unknownFields :: FieldSet
_FromFunction'PersistedValueSpec'_unknownFields = []}
  parseMessage :: Parser FromFunction'PersistedValueSpec
parseMessage
    = let
        loop ::
          FromFunction'PersistedValueSpec
          -> Data.ProtoLens.Encoding.Bytes.Parser FromFunction'PersistedValueSpec
        loop :: FromFunction'PersistedValueSpec
-> Parser FromFunction'PersistedValueSpec
loop x :: FromFunction'PersistedValueSpec
x
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  "Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      FromFunction'PersistedValueSpec
-> Parser FromFunction'PersistedValueSpec
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter
  FromFunction'PersistedValueSpec
  FromFunction'PersistedValueSpec
  FieldSet
  FieldSet
-> (FieldSet -> FieldSet)
-> FromFunction'PersistedValueSpec
-> FromFunction'PersistedValueSpec
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           forall msg. Message msg => Lens' msg FieldSet
Setter
  FromFunction'PersistedValueSpec
  FromFunction'PersistedValueSpec
  FieldSet
  FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) FromFunction'PersistedValueSpec
x)
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        10
                          -> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                       Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                                         (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                           Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
                                             (case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
                                                (Prelude.Left err :: UnicodeException
err)
                                                  -> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
                                                (Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
                                       "state_name"
                                FromFunction'PersistedValueSpec
-> Parser FromFunction'PersistedValueSpec
loop
                                  (Setter
  FromFunction'PersistedValueSpec
  FromFunction'PersistedValueSpec
  Text
  Text
-> Text
-> FromFunction'PersistedValueSpec
-> FromFunction'PersistedValueSpec
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "stateName" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"stateName") Text
y FromFunction'PersistedValueSpec
x)
                        18
                          -> do FromFunction'ExpirationSpec
y <- Parser FromFunction'ExpirationSpec
-> String -> Parser FromFunction'ExpirationSpec
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int
-> Parser FromFunction'ExpirationSpec
-> Parser FromFunction'ExpirationSpec
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser FromFunction'ExpirationSpec
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       "expiration_spec"
                                FromFunction'PersistedValueSpec
-> Parser FromFunction'PersistedValueSpec
loop
                                  (Setter
  FromFunction'PersistedValueSpec
  FromFunction'PersistedValueSpec
  FromFunction'ExpirationSpec
  FromFunction'ExpirationSpec
-> FromFunction'ExpirationSpec
-> FromFunction'PersistedValueSpec
-> FromFunction'PersistedValueSpec
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                     (forall s a (f :: * -> *).
(HasField s "expirationSpec" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"expirationSpec") FromFunction'ExpirationSpec
y FromFunction'PersistedValueSpec
x)
                        26
                          -> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                       Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                                         (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                           Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
                                             (case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
                                                (Prelude.Left err :: UnicodeException
err)
                                                  -> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
                                                (Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
                                       "type_typename"
                                FromFunction'PersistedValueSpec
-> Parser FromFunction'PersistedValueSpec
loop
                                  (Setter
  FromFunction'PersistedValueSpec
  FromFunction'PersistedValueSpec
  Text
  Text
-> Text
-> FromFunction'PersistedValueSpec
-> FromFunction'PersistedValueSpec
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                     (forall s a (f :: * -> *).
(HasField s "typeTypename" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"typeTypename") Text
y FromFunction'PersistedValueSpec
x)
                        wire :: Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                FromFunction'PersistedValueSpec
-> Parser FromFunction'PersistedValueSpec
loop
                                  (Setter
  FromFunction'PersistedValueSpec
  FromFunction'PersistedValueSpec
  FieldSet
  FieldSet
-> (FieldSet -> FieldSet)
-> FromFunction'PersistedValueSpec
-> FromFunction'PersistedValueSpec
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     forall msg. Message msg => Lens' msg FieldSet
Setter
  FromFunction'PersistedValueSpec
  FromFunction'PersistedValueSpec
  FieldSet
  FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) FromFunction'PersistedValueSpec
x)
      in
        Parser FromFunction'PersistedValueSpec
-> String -> Parser FromFunction'PersistedValueSpec
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do FromFunction'PersistedValueSpec
-> Parser FromFunction'PersistedValueSpec
loop FromFunction'PersistedValueSpec
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "PersistedValueSpec"
  buildMessage :: FromFunction'PersistedValueSpec -> Builder
buildMessage
    = \ _x :: FromFunction'PersistedValueSpec
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: Text
_v = FoldLike
  Text
  FromFunction'PersistedValueSpec
  FromFunction'PersistedValueSpec
  Text
  Text
-> FromFunction'PersistedValueSpec -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "stateName" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"stateName") FromFunction'PersistedValueSpec
_x
              in
                if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
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 10)
                      ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                         (\ bs :: 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))
                         Text -> ByteString
Data.Text.Encoding.encodeUtf8
                         Text
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (case
                     FoldLike
  (Maybe FromFunction'ExpirationSpec)
  FromFunction'PersistedValueSpec
  FromFunction'PersistedValueSpec
  (Maybe FromFunction'ExpirationSpec)
  (Maybe FromFunction'ExpirationSpec)
-> FromFunction'PersistedValueSpec
-> Maybe FromFunction'ExpirationSpec
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                       (forall s a (f :: * -> *).
(HasField s "maybe'expirationSpec" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'expirationSpec") FromFunction'PersistedValueSpec
_x
                 of
                   Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   (Prelude.Just _v :: FromFunction'ExpirationSpec
_v)
                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 18)
                          ((ByteString -> Builder)
-> (FromFunction'ExpirationSpec -> ByteString)
-> FromFunction'ExpirationSpec
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                             (\ bs :: 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))
                             FromFunction'ExpirationSpec -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                             FromFunction'ExpirationSpec
_v))
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   (let
                      _v :: Text
_v
                        = FoldLike
  Text
  FromFunction'PersistedValueSpec
  FromFunction'PersistedValueSpec
  Text
  Text
-> FromFunction'PersistedValueSpec -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "typeTypename" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"typeTypename") FromFunction'PersistedValueSpec
_x
                    in
                      if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
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 26)
                            ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                               (\ bs :: 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))
                               Text -> ByteString
Data.Text.Encoding.encodeUtf8
                               Text
_v))
                   (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                      (FoldLike
  FieldSet
  FromFunction'PersistedValueSpec
  FromFunction'PersistedValueSpec
  FieldSet
  FieldSet
-> FromFunction'PersistedValueSpec -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  FromFunction'PersistedValueSpec
  FromFunction'PersistedValueSpec
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields FromFunction'PersistedValueSpec
_x))))
instance Control.DeepSeq.NFData FromFunction'PersistedValueSpec where
  rnf :: FromFunction'PersistedValueSpec -> ()
rnf
    = \ x__ :: FromFunction'PersistedValueSpec
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (FromFunction'PersistedValueSpec -> FieldSet
_FromFunction'PersistedValueSpec'_unknownFields FromFunction'PersistedValueSpec
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (FromFunction'PersistedValueSpec -> Text
_FromFunction'PersistedValueSpec'stateName FromFunction'PersistedValueSpec
x__)
                (Maybe FromFunction'ExpirationSpec -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (FromFunction'PersistedValueSpec
-> Maybe FromFunction'ExpirationSpec
_FromFunction'PersistedValueSpec'expirationSpec FromFunction'PersistedValueSpec
x__)
                   (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                      (FromFunction'PersistedValueSpec -> Text
_FromFunction'PersistedValueSpec'typeTypename FromFunction'PersistedValueSpec
x__) ())))
{- | Fields :
     
         * 'Proto.RequestReply_Fields.maybe'request' @:: Lens' ToFunction (Prelude.Maybe ToFunction'Request)@
         * 'Proto.RequestReply_Fields.maybe'invocation' @:: Lens' ToFunction (Prelude.Maybe ToFunction'InvocationBatchRequest)@
         * 'Proto.RequestReply_Fields.invocation' @:: Lens' ToFunction ToFunction'InvocationBatchRequest@ -}
data ToFunction
  = ToFunction'_constructor {ToFunction -> Maybe ToFunction'Request
_ToFunction'request :: !(Prelude.Maybe ToFunction'Request),
                             ToFunction -> FieldSet
_ToFunction'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (ToFunction -> ToFunction -> Bool
(ToFunction -> ToFunction -> Bool)
-> (ToFunction -> ToFunction -> Bool) -> Eq ToFunction
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ToFunction -> ToFunction -> Bool
$c/= :: ToFunction -> ToFunction -> Bool
== :: ToFunction -> ToFunction -> Bool
$c== :: ToFunction -> ToFunction -> Bool
Prelude.Eq, Eq ToFunction
Eq ToFunction =>
(ToFunction -> ToFunction -> Ordering)
-> (ToFunction -> ToFunction -> Bool)
-> (ToFunction -> ToFunction -> Bool)
-> (ToFunction -> ToFunction -> Bool)
-> (ToFunction -> ToFunction -> Bool)
-> (ToFunction -> ToFunction -> ToFunction)
-> (ToFunction -> ToFunction -> ToFunction)
-> Ord ToFunction
ToFunction -> ToFunction -> Bool
ToFunction -> ToFunction -> Ordering
ToFunction -> ToFunction -> ToFunction
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
min :: ToFunction -> ToFunction -> ToFunction
$cmin :: ToFunction -> ToFunction -> ToFunction
max :: ToFunction -> ToFunction -> ToFunction
$cmax :: ToFunction -> ToFunction -> ToFunction
>= :: ToFunction -> ToFunction -> Bool
$c>= :: ToFunction -> ToFunction -> Bool
> :: ToFunction -> ToFunction -> Bool
$c> :: ToFunction -> ToFunction -> Bool
<= :: ToFunction -> ToFunction -> Bool
$c<= :: ToFunction -> ToFunction -> Bool
< :: ToFunction -> ToFunction -> Bool
$c< :: ToFunction -> ToFunction -> Bool
compare :: ToFunction -> ToFunction -> Ordering
$ccompare :: ToFunction -> ToFunction -> Ordering
$cp1Ord :: Eq ToFunction
Prelude.Ord)
instance Prelude.Show ToFunction where
  showsPrec :: Int -> ToFunction -> ShowS
showsPrec _ __x :: ToFunction
__x __s :: String
__s
    = Char -> ShowS
Prelude.showChar
        '{'
        (String -> ShowS
Prelude.showString
           (ToFunction -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort ToFunction
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
data ToFunction'Request
  = ToFunction'Invocation' !ToFunction'InvocationBatchRequest
  deriving stock (Int -> ToFunction'Request -> ShowS
[ToFunction'Request] -> ShowS
ToFunction'Request -> String
(Int -> ToFunction'Request -> ShowS)
-> (ToFunction'Request -> String)
-> ([ToFunction'Request] -> ShowS)
-> Show ToFunction'Request
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ToFunction'Request] -> ShowS
$cshowList :: [ToFunction'Request] -> ShowS
show :: ToFunction'Request -> String
$cshow :: ToFunction'Request -> String
showsPrec :: Int -> ToFunction'Request -> ShowS
$cshowsPrec :: Int -> ToFunction'Request -> ShowS
Prelude.Show, ToFunction'Request -> ToFunction'Request -> Bool
(ToFunction'Request -> ToFunction'Request -> Bool)
-> (ToFunction'Request -> ToFunction'Request -> Bool)
-> Eq ToFunction'Request
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ToFunction'Request -> ToFunction'Request -> Bool
$c/= :: ToFunction'Request -> ToFunction'Request -> Bool
== :: ToFunction'Request -> ToFunction'Request -> Bool
$c== :: ToFunction'Request -> ToFunction'Request -> Bool
Prelude.Eq, Eq ToFunction'Request
Eq ToFunction'Request =>
(ToFunction'Request -> ToFunction'Request -> Ordering)
-> (ToFunction'Request -> ToFunction'Request -> Bool)
-> (ToFunction'Request -> ToFunction'Request -> Bool)
-> (ToFunction'Request -> ToFunction'Request -> Bool)
-> (ToFunction'Request -> ToFunction'Request -> Bool)
-> (ToFunction'Request -> ToFunction'Request -> ToFunction'Request)
-> (ToFunction'Request -> ToFunction'Request -> ToFunction'Request)
-> Ord ToFunction'Request
ToFunction'Request -> ToFunction'Request -> Bool
ToFunction'Request -> ToFunction'Request -> Ordering
ToFunction'Request -> ToFunction'Request -> ToFunction'Request
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
min :: ToFunction'Request -> ToFunction'Request -> ToFunction'Request
$cmin :: ToFunction'Request -> ToFunction'Request -> ToFunction'Request
max :: ToFunction'Request -> ToFunction'Request -> ToFunction'Request
$cmax :: ToFunction'Request -> ToFunction'Request -> ToFunction'Request
>= :: ToFunction'Request -> ToFunction'Request -> Bool
$c>= :: ToFunction'Request -> ToFunction'Request -> Bool
> :: ToFunction'Request -> ToFunction'Request -> Bool
$c> :: ToFunction'Request -> ToFunction'Request -> Bool
<= :: ToFunction'Request -> ToFunction'Request -> Bool
$c<= :: ToFunction'Request -> ToFunction'Request -> Bool
< :: ToFunction'Request -> ToFunction'Request -> Bool
$c< :: ToFunction'Request -> ToFunction'Request -> Bool
compare :: ToFunction'Request -> ToFunction'Request -> Ordering
$ccompare :: ToFunction'Request -> ToFunction'Request -> Ordering
$cp1Ord :: Eq ToFunction'Request
Prelude.Ord)
instance Data.ProtoLens.Field.HasField ToFunction "maybe'request" (Prelude.Maybe ToFunction'Request) where
  fieldOf :: Proxy# "maybe'request"
-> (Maybe ToFunction'Request -> f (Maybe ToFunction'Request))
-> ToFunction
-> f ToFunction
fieldOf _
    = ((Maybe ToFunction'Request -> f (Maybe ToFunction'Request))
 -> ToFunction -> f ToFunction)
-> ((Maybe ToFunction'Request -> f (Maybe ToFunction'Request))
    -> Maybe ToFunction'Request -> f (Maybe ToFunction'Request))
-> (Maybe ToFunction'Request -> f (Maybe ToFunction'Request))
-> ToFunction
-> f ToFunction
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ToFunction -> Maybe ToFunction'Request)
-> (ToFunction -> Maybe ToFunction'Request -> ToFunction)
-> Lens
     ToFunction
     ToFunction
     (Maybe ToFunction'Request)
     (Maybe ToFunction'Request)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ToFunction -> Maybe ToFunction'Request
_ToFunction'request (\ x__ :: ToFunction
x__ y__ :: Maybe ToFunction'Request
y__ -> ToFunction
x__ {_ToFunction'request :: Maybe ToFunction'Request
_ToFunction'request = Maybe ToFunction'Request
y__}))
        (Maybe ToFunction'Request -> f (Maybe ToFunction'Request))
-> Maybe ToFunction'Request -> f (Maybe ToFunction'Request)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ToFunction "maybe'invocation" (Prelude.Maybe ToFunction'InvocationBatchRequest) where
  fieldOf :: Proxy# "maybe'invocation"
-> (Maybe ToFunction'InvocationBatchRequest
    -> f (Maybe ToFunction'InvocationBatchRequest))
-> ToFunction
-> f ToFunction
fieldOf _
    = ((Maybe ToFunction'Request -> f (Maybe ToFunction'Request))
 -> ToFunction -> f ToFunction)
-> ((Maybe ToFunction'InvocationBatchRequest
     -> f (Maybe ToFunction'InvocationBatchRequest))
    -> Maybe ToFunction'Request -> f (Maybe ToFunction'Request))
-> (Maybe ToFunction'InvocationBatchRequest
    -> f (Maybe ToFunction'InvocationBatchRequest))
-> ToFunction
-> f ToFunction
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ToFunction -> Maybe ToFunction'Request)
-> (ToFunction -> Maybe ToFunction'Request -> ToFunction)
-> Lens
     ToFunction
     ToFunction
     (Maybe ToFunction'Request)
     (Maybe ToFunction'Request)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ToFunction -> Maybe ToFunction'Request
_ToFunction'request (\ x__ :: ToFunction
x__ y__ :: Maybe ToFunction'Request
y__ -> ToFunction
x__ {_ToFunction'request :: Maybe ToFunction'Request
_ToFunction'request = Maybe ToFunction'Request
y__}))
        ((Maybe ToFunction'Request
 -> Maybe ToFunction'InvocationBatchRequest)
-> (Maybe ToFunction'Request
    -> Maybe ToFunction'InvocationBatchRequest
    -> Maybe ToFunction'Request)
-> Lens
     (Maybe ToFunction'Request)
     (Maybe ToFunction'Request)
     (Maybe ToFunction'InvocationBatchRequest)
     (Maybe ToFunction'InvocationBatchRequest)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ x__ :: Maybe ToFunction'Request
x__
              -> case Maybe ToFunction'Request
x__ of
                   (Prelude.Just (ToFunction'Invocation' x__val :: ToFunction'InvocationBatchRequest
x__val))
                     -> ToFunction'InvocationBatchRequest
-> Maybe ToFunction'InvocationBatchRequest
forall a. a -> Maybe a
Prelude.Just ToFunction'InvocationBatchRequest
x__val
                   _otherwise :: Maybe ToFunction'Request
_otherwise -> Maybe ToFunction'InvocationBatchRequest
forall a. Maybe a
Prelude.Nothing)
           (\ _ y__ :: Maybe ToFunction'InvocationBatchRequest
y__ -> (ToFunction'InvocationBatchRequest -> ToFunction'Request)
-> Maybe ToFunction'InvocationBatchRequest
-> Maybe ToFunction'Request
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap ToFunction'InvocationBatchRequest -> ToFunction'Request
ToFunction'Invocation' Maybe ToFunction'InvocationBatchRequest
y__))
instance Data.ProtoLens.Field.HasField ToFunction "invocation" ToFunction'InvocationBatchRequest where
  fieldOf :: Proxy# "invocation"
-> (ToFunction'InvocationBatchRequest
    -> f ToFunction'InvocationBatchRequest)
-> ToFunction
-> f ToFunction
fieldOf _
    = ((Maybe ToFunction'Request -> f (Maybe ToFunction'Request))
 -> ToFunction -> f ToFunction)
-> ((ToFunction'InvocationBatchRequest
     -> f ToFunction'InvocationBatchRequest)
    -> Maybe ToFunction'Request -> f (Maybe ToFunction'Request))
-> (ToFunction'InvocationBatchRequest
    -> f ToFunction'InvocationBatchRequest)
-> ToFunction
-> f ToFunction
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ToFunction -> Maybe ToFunction'Request)
-> (ToFunction -> Maybe ToFunction'Request -> ToFunction)
-> Lens
     ToFunction
     ToFunction
     (Maybe ToFunction'Request)
     (Maybe ToFunction'Request)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ToFunction -> Maybe ToFunction'Request
_ToFunction'request (\ x__ :: ToFunction
x__ y__ :: Maybe ToFunction'Request
y__ -> ToFunction
x__ {_ToFunction'request :: Maybe ToFunction'Request
_ToFunction'request = Maybe ToFunction'Request
y__}))
        (((Maybe ToFunction'InvocationBatchRequest
  -> f (Maybe ToFunction'InvocationBatchRequest))
 -> Maybe ToFunction'Request -> f (Maybe ToFunction'Request))
-> ((ToFunction'InvocationBatchRequest
     -> f ToFunction'InvocationBatchRequest)
    -> Maybe ToFunction'InvocationBatchRequest
    -> f (Maybe ToFunction'InvocationBatchRequest))
-> (ToFunction'InvocationBatchRequest
    -> f ToFunction'InvocationBatchRequest)
-> Maybe ToFunction'Request
-> f (Maybe ToFunction'Request)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe ToFunction'Request
 -> Maybe ToFunction'InvocationBatchRequest)
-> (Maybe ToFunction'Request
    -> Maybe ToFunction'InvocationBatchRequest
    -> Maybe ToFunction'Request)
-> Lens
     (Maybe ToFunction'Request)
     (Maybe ToFunction'Request)
     (Maybe ToFunction'InvocationBatchRequest)
     (Maybe ToFunction'InvocationBatchRequest)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ x__ :: Maybe ToFunction'Request
x__
                 -> case Maybe ToFunction'Request
x__ of
                      (Prelude.Just (ToFunction'Invocation' x__val :: ToFunction'InvocationBatchRequest
x__val))
                        -> ToFunction'InvocationBatchRequest
-> Maybe ToFunction'InvocationBatchRequest
forall a. a -> Maybe a
Prelude.Just ToFunction'InvocationBatchRequest
x__val
                      _otherwise :: Maybe ToFunction'Request
_otherwise -> Maybe ToFunction'InvocationBatchRequest
forall a. Maybe a
Prelude.Nothing)
              (\ _ y__ :: Maybe ToFunction'InvocationBatchRequest
y__ -> (ToFunction'InvocationBatchRequest -> ToFunction'Request)
-> Maybe ToFunction'InvocationBatchRequest
-> Maybe ToFunction'Request
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap ToFunction'InvocationBatchRequest -> ToFunction'Request
ToFunction'Invocation' Maybe ToFunction'InvocationBatchRequest
y__))
           (ToFunction'InvocationBatchRequest
-> Lens'
     (Maybe ToFunction'InvocationBatchRequest)
     ToFunction'InvocationBatchRequest
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ToFunction'InvocationBatchRequest
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Message ToFunction where
  messageName :: Proxy ToFunction -> Text
messageName _
    = String -> Text
Data.Text.pack "io.statefun.sdk.reqreply.ToFunction"
  packedMessageDescriptor :: Proxy ToFunction -> ByteString
packedMessageDescriptor _
    = "\n\
      \\n\
      \ToFunction\DC2]\n\
      \\n\
      \invocation\CANd \SOH(\v2;.io.statefun.sdk.reqreply.ToFunction.InvocationBatchRequestH\NULR\n\
      \invocation\SUBv\n\
      \\SOPersistedValue\DC2\GS\n\
      \\n\
      \state_name\CAN\SOH \SOH(\tR\tstateName\DC2E\n\
      \\vstate_value\CAN\STX \SOH(\v2$.io.statefun.sdk.reqreply.TypedValueR\n\
      \stateValue\SUB\137\SOH\n\
      \\n\
      \Invocation\DC29\n\
      \\ACKcaller\CAN\SOH \SOH(\v2!.io.statefun.sdk.reqreply.AddressR\ACKcaller\DC2@\n\
      \\bargument\CAN\STX \SOH(\v2$.io.statefun.sdk.reqreply.TypedValueR\bargument\SUB\241\SOH\n\
      \\SYNInvocationBatchRequest\DC29\n\
      \\ACKtarget\CAN\SOH \SOH(\v2!.io.statefun.sdk.reqreply.AddressR\ACKtarget\DC2I\n\
      \\ENQstate\CAN\STX \ETX(\v23.io.statefun.sdk.reqreply.ToFunction.PersistedValueR\ENQstate\DC2Q\n\
      \\vinvocations\CAN\ETX \ETX(\v2/.io.statefun.sdk.reqreply.ToFunction.InvocationR\vinvocationsB\t\n\
      \\arequest"
  packedFileDescriptor :: Proxy ToFunction -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor ToFunction)
fieldsByTag
    = let
        invocation__field_descriptor :: FieldDescriptor ToFunction
invocation__field_descriptor
          = String
-> FieldTypeDescriptor ToFunction'InvocationBatchRequest
-> FieldAccessor ToFunction ToFunction'InvocationBatchRequest
-> FieldDescriptor ToFunction
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "invocation"
              (MessageOrGroup
-> FieldTypeDescriptor ToFunction'InvocationBatchRequest
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor ToFunction'InvocationBatchRequest)
              (Lens' ToFunction (Maybe ToFunction'InvocationBatchRequest)
-> FieldAccessor ToFunction ToFunction'InvocationBatchRequest
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'invocation" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'invocation")) ::
              Data.ProtoLens.FieldDescriptor ToFunction
      in
        [(Tag, FieldDescriptor ToFunction)]
-> Map Tag (FieldDescriptor ToFunction)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag 100, FieldDescriptor ToFunction
invocation__field_descriptor)]
  unknownFields :: LensLike' f ToFunction FieldSet
unknownFields
    = (ToFunction -> FieldSet)
-> (ToFunction -> FieldSet -> ToFunction)
-> Lens' ToFunction FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        ToFunction -> FieldSet
_ToFunction'_unknownFields
        (\ x__ :: ToFunction
x__ y__ :: FieldSet
y__ -> ToFunction
x__ {_ToFunction'_unknownFields :: FieldSet
_ToFunction'_unknownFields = FieldSet
y__})
  defMessage :: ToFunction
defMessage
    = $WToFunction'_constructor :: Maybe ToFunction'Request -> FieldSet -> ToFunction
ToFunction'_constructor
        {_ToFunction'request :: Maybe ToFunction'Request
_ToFunction'request = Maybe ToFunction'Request
forall a. Maybe a
Prelude.Nothing,
         _ToFunction'_unknownFields :: FieldSet
_ToFunction'_unknownFields = []}
  parseMessage :: Parser ToFunction
parseMessage
    = let
        loop ::
          ToFunction -> Data.ProtoLens.Encoding.Bytes.Parser ToFunction
        loop :: ToFunction -> Parser ToFunction
loop x :: ToFunction
x
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  "Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      ToFunction -> Parser ToFunction
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter ToFunction ToFunction FieldSet FieldSet
-> (FieldSet -> FieldSet) -> ToFunction -> ToFunction
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           forall msg. Message msg => Lens' msg FieldSet
Setter ToFunction ToFunction FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) ToFunction
x)
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        802
                          -> do ToFunction'InvocationBatchRequest
y <- Parser ToFunction'InvocationBatchRequest
-> String -> Parser ToFunction'InvocationBatchRequest
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int
-> Parser ToFunction'InvocationBatchRequest
-> Parser ToFunction'InvocationBatchRequest
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser ToFunction'InvocationBatchRequest
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       "invocation"
                                ToFunction -> Parser ToFunction
loop
                                  (Setter
  ToFunction
  ToFunction
  ToFunction'InvocationBatchRequest
  ToFunction'InvocationBatchRequest
-> ToFunction'InvocationBatchRequest -> ToFunction -> ToFunction
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "invocation" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"invocation") ToFunction'InvocationBatchRequest
y ToFunction
x)
                        wire :: Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                ToFunction -> Parser ToFunction
loop
                                  (Setter ToFunction ToFunction FieldSet FieldSet
-> (FieldSet -> FieldSet) -> ToFunction -> ToFunction
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     forall msg. Message msg => Lens' msg FieldSet
Setter ToFunction ToFunction FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) ToFunction
x)
      in
        Parser ToFunction -> String -> Parser ToFunction
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do ToFunction -> Parser ToFunction
loop ToFunction
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "ToFunction"
  buildMessage :: ToFunction -> Builder
buildMessage
    = \ _x :: ToFunction
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe ToFunction'Request)
  ToFunction
  ToFunction
  (Maybe ToFunction'Request)
  (Maybe ToFunction'Request)
-> ToFunction -> Maybe ToFunction'Request
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "maybe'request" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'request") ToFunction
_x
              of
                Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just (ToFunction'Invocation' v :: ToFunction'InvocationBatchRequest
v))
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 802)
                       ((ByteString -> Builder)
-> (ToFunction'InvocationBatchRequest -> ByteString)
-> ToFunction'InvocationBatchRequest
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                          (\ bs :: 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))
                          ToFunction'InvocationBatchRequest -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                          ToFunction'InvocationBatchRequest
v))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike FieldSet ToFunction ToFunction FieldSet FieldSet
-> ToFunction -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet ToFunction ToFunction FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields ToFunction
_x))
instance Control.DeepSeq.NFData ToFunction where
  rnf :: ToFunction -> ()
rnf
    = \ x__ :: ToFunction
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (ToFunction -> FieldSet
_ToFunction'_unknownFields ToFunction
x__)
             (Maybe ToFunction'Request -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (ToFunction -> Maybe ToFunction'Request
_ToFunction'request ToFunction
x__) ())
instance Control.DeepSeq.NFData ToFunction'Request where
  rnf :: ToFunction'Request -> ()
rnf (ToFunction'Invocation' x__ :: ToFunction'InvocationBatchRequest
x__) = ToFunction'InvocationBatchRequest -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf ToFunction'InvocationBatchRequest
x__
_ToFunction'Invocation' ::
  Data.ProtoLens.Prism.Prism' ToFunction'Request ToFunction'InvocationBatchRequest
_ToFunction'Invocation' :: p ToFunction'InvocationBatchRequest
  (f ToFunction'InvocationBatchRequest)
-> p ToFunction'Request (f ToFunction'Request)
_ToFunction'Invocation'
  = (ToFunction'InvocationBatchRequest -> ToFunction'Request)
-> (ToFunction'Request -> Maybe ToFunction'InvocationBatchRequest)
-> Prism
     ToFunction'Request
     ToFunction'Request
     ToFunction'InvocationBatchRequest
     ToFunction'InvocationBatchRequest
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      ToFunction'InvocationBatchRequest -> ToFunction'Request
ToFunction'Invocation'
      (\ p__ :: ToFunction'Request
p__
         -> case ToFunction'Request
p__ of {
              (ToFunction'Invocation' p__val :: ToFunction'InvocationBatchRequest
p__val) -> ToFunction'InvocationBatchRequest
-> Maybe ToFunction'InvocationBatchRequest
forall a. a -> Maybe a
Prelude.Just ToFunction'InvocationBatchRequest
p__val })
{- | Fields :
     
         * 'Proto.RequestReply_Fields.caller' @:: Lens' ToFunction'Invocation Address@
         * 'Proto.RequestReply_Fields.maybe'caller' @:: Lens' ToFunction'Invocation (Prelude.Maybe Address)@
         * 'Proto.RequestReply_Fields.argument' @:: Lens' ToFunction'Invocation TypedValue@
         * 'Proto.RequestReply_Fields.maybe'argument' @:: Lens' ToFunction'Invocation (Prelude.Maybe TypedValue)@ -}
data ToFunction'Invocation
  = ToFunction'Invocation'_constructor {ToFunction'Invocation -> Maybe Address
_ToFunction'Invocation'caller :: !(Prelude.Maybe Address),
                                        ToFunction'Invocation -> Maybe TypedValue
_ToFunction'Invocation'argument :: !(Prelude.Maybe TypedValue),
                                        ToFunction'Invocation -> FieldSet
_ToFunction'Invocation'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (ToFunction'Invocation -> ToFunction'Invocation -> Bool
(ToFunction'Invocation -> ToFunction'Invocation -> Bool)
-> (ToFunction'Invocation -> ToFunction'Invocation -> Bool)
-> Eq ToFunction'Invocation
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ToFunction'Invocation -> ToFunction'Invocation -> Bool
$c/= :: ToFunction'Invocation -> ToFunction'Invocation -> Bool
== :: ToFunction'Invocation -> ToFunction'Invocation -> Bool
$c== :: ToFunction'Invocation -> ToFunction'Invocation -> Bool
Prelude.Eq, Eq ToFunction'Invocation
Eq ToFunction'Invocation =>
(ToFunction'Invocation -> ToFunction'Invocation -> Ordering)
-> (ToFunction'Invocation -> ToFunction'Invocation -> Bool)
-> (ToFunction'Invocation -> ToFunction'Invocation -> Bool)
-> (ToFunction'Invocation -> ToFunction'Invocation -> Bool)
-> (ToFunction'Invocation -> ToFunction'Invocation -> Bool)
-> (ToFunction'Invocation
    -> ToFunction'Invocation -> ToFunction'Invocation)
-> (ToFunction'Invocation
    -> ToFunction'Invocation -> ToFunction'Invocation)
-> Ord ToFunction'Invocation
ToFunction'Invocation -> ToFunction'Invocation -> Bool
ToFunction'Invocation -> ToFunction'Invocation -> Ordering
ToFunction'Invocation
-> ToFunction'Invocation -> ToFunction'Invocation
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
min :: ToFunction'Invocation
-> ToFunction'Invocation -> ToFunction'Invocation
$cmin :: ToFunction'Invocation
-> ToFunction'Invocation -> ToFunction'Invocation
max :: ToFunction'Invocation
-> ToFunction'Invocation -> ToFunction'Invocation
$cmax :: ToFunction'Invocation
-> ToFunction'Invocation -> ToFunction'Invocation
>= :: ToFunction'Invocation -> ToFunction'Invocation -> Bool
$c>= :: ToFunction'Invocation -> ToFunction'Invocation -> Bool
> :: ToFunction'Invocation -> ToFunction'Invocation -> Bool
$c> :: ToFunction'Invocation -> ToFunction'Invocation -> Bool
<= :: ToFunction'Invocation -> ToFunction'Invocation -> Bool
$c<= :: ToFunction'Invocation -> ToFunction'Invocation -> Bool
< :: ToFunction'Invocation -> ToFunction'Invocation -> Bool
$c< :: ToFunction'Invocation -> ToFunction'Invocation -> Bool
compare :: ToFunction'Invocation -> ToFunction'Invocation -> Ordering
$ccompare :: ToFunction'Invocation -> ToFunction'Invocation -> Ordering
$cp1Ord :: Eq ToFunction'Invocation
Prelude.Ord)
instance Prelude.Show ToFunction'Invocation where
  showsPrec :: Int -> ToFunction'Invocation -> ShowS
showsPrec _ __x :: ToFunction'Invocation
__x __s :: String
__s
    = Char -> ShowS
Prelude.showChar
        '{'
        (String -> ShowS
Prelude.showString
           (ToFunction'Invocation -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort ToFunction'Invocation
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField ToFunction'Invocation "caller" Address where
  fieldOf :: Proxy# "caller"
-> (Address -> f Address)
-> ToFunction'Invocation
-> f ToFunction'Invocation
fieldOf _
    = ((Maybe Address -> f (Maybe Address))
 -> ToFunction'Invocation -> f ToFunction'Invocation)
-> ((Address -> f Address) -> Maybe Address -> f (Maybe Address))
-> (Address -> f Address)
-> ToFunction'Invocation
-> f ToFunction'Invocation
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ToFunction'Invocation -> Maybe Address)
-> (ToFunction'Invocation
    -> Maybe Address -> ToFunction'Invocation)
-> Lens
     ToFunction'Invocation
     ToFunction'Invocation
     (Maybe Address)
     (Maybe Address)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ToFunction'Invocation -> Maybe Address
_ToFunction'Invocation'caller
           (\ x__ :: ToFunction'Invocation
x__ y__ :: Maybe Address
y__ -> ToFunction'Invocation
x__ {_ToFunction'Invocation'caller :: Maybe Address
_ToFunction'Invocation'caller = Maybe Address
y__}))
        (Address -> Lens' (Maybe Address) Address
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Address
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField ToFunction'Invocation "maybe'caller" (Prelude.Maybe Address) where
  fieldOf :: Proxy# "maybe'caller"
-> (Maybe Address -> f (Maybe Address))
-> ToFunction'Invocation
-> f ToFunction'Invocation
fieldOf _
    = ((Maybe Address -> f (Maybe Address))
 -> ToFunction'Invocation -> f ToFunction'Invocation)
-> ((Maybe Address -> f (Maybe Address))
    -> Maybe Address -> f (Maybe Address))
-> (Maybe Address -> f (Maybe Address))
-> ToFunction'Invocation
-> f ToFunction'Invocation
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ToFunction'Invocation -> Maybe Address)
-> (ToFunction'Invocation
    -> Maybe Address -> ToFunction'Invocation)
-> Lens
     ToFunction'Invocation
     ToFunction'Invocation
     (Maybe Address)
     (Maybe Address)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ToFunction'Invocation -> Maybe Address
_ToFunction'Invocation'caller
           (\ x__ :: ToFunction'Invocation
x__ y__ :: Maybe Address
y__ -> ToFunction'Invocation
x__ {_ToFunction'Invocation'caller :: Maybe Address
_ToFunction'Invocation'caller = Maybe Address
y__}))
        (Maybe Address -> f (Maybe Address))
-> Maybe Address -> f (Maybe Address)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ToFunction'Invocation "argument" TypedValue where
  fieldOf :: Proxy# "argument"
-> (TypedValue -> f TypedValue)
-> ToFunction'Invocation
-> f ToFunction'Invocation
fieldOf _
    = ((Maybe TypedValue -> f (Maybe TypedValue))
 -> ToFunction'Invocation -> f ToFunction'Invocation)
-> ((TypedValue -> f TypedValue)
    -> Maybe TypedValue -> f (Maybe TypedValue))
-> (TypedValue -> f TypedValue)
-> ToFunction'Invocation
-> f ToFunction'Invocation
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ToFunction'Invocation -> Maybe TypedValue)
-> (ToFunction'Invocation
    -> Maybe TypedValue -> ToFunction'Invocation)
-> Lens
     ToFunction'Invocation
     ToFunction'Invocation
     (Maybe TypedValue)
     (Maybe TypedValue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ToFunction'Invocation -> Maybe TypedValue
_ToFunction'Invocation'argument
           (\ x__ :: ToFunction'Invocation
x__ y__ :: Maybe TypedValue
y__ -> ToFunction'Invocation
x__ {_ToFunction'Invocation'argument :: Maybe TypedValue
_ToFunction'Invocation'argument = Maybe TypedValue
y__}))
        (TypedValue -> Lens' (Maybe TypedValue) TypedValue
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens TypedValue
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField ToFunction'Invocation "maybe'argument" (Prelude.Maybe TypedValue) where
  fieldOf :: Proxy# "maybe'argument"
-> (Maybe TypedValue -> f (Maybe TypedValue))
-> ToFunction'Invocation
-> f ToFunction'Invocation
fieldOf _
    = ((Maybe TypedValue -> f (Maybe TypedValue))
 -> ToFunction'Invocation -> f ToFunction'Invocation)
-> ((Maybe TypedValue -> f (Maybe TypedValue))
    -> Maybe TypedValue -> f (Maybe TypedValue))
-> (Maybe TypedValue -> f (Maybe TypedValue))
-> ToFunction'Invocation
-> f ToFunction'Invocation
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ToFunction'Invocation -> Maybe TypedValue)
-> (ToFunction'Invocation
    -> Maybe TypedValue -> ToFunction'Invocation)
-> Lens
     ToFunction'Invocation
     ToFunction'Invocation
     (Maybe TypedValue)
     (Maybe TypedValue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ToFunction'Invocation -> Maybe TypedValue
_ToFunction'Invocation'argument
           (\ x__ :: ToFunction'Invocation
x__ y__ :: Maybe TypedValue
y__ -> ToFunction'Invocation
x__ {_ToFunction'Invocation'argument :: Maybe TypedValue
_ToFunction'Invocation'argument = Maybe TypedValue
y__}))
        (Maybe TypedValue -> f (Maybe TypedValue))
-> Maybe TypedValue -> f (Maybe TypedValue)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message ToFunction'Invocation where
  messageName :: Proxy ToFunction'Invocation -> Text
messageName _
    = String -> Text
Data.Text.pack "io.statefun.sdk.reqreply.ToFunction.Invocation"
  packedMessageDescriptor :: Proxy ToFunction'Invocation -> ByteString
packedMessageDescriptor _
    = "\n\
      \\n\
      \Invocation\DC29\n\
      \\ACKcaller\CAN\SOH \SOH(\v2!.io.statefun.sdk.reqreply.AddressR\ACKcaller\DC2@\n\
      \\bargument\CAN\STX \SOH(\v2$.io.statefun.sdk.reqreply.TypedValueR\bargument"
  packedFileDescriptor :: Proxy ToFunction'Invocation -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor ToFunction'Invocation)
fieldsByTag
    = let
        caller__field_descriptor :: FieldDescriptor ToFunction'Invocation
caller__field_descriptor
          = String
-> FieldTypeDescriptor Address
-> FieldAccessor ToFunction'Invocation Address
-> FieldDescriptor ToFunction'Invocation
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "caller"
              (MessageOrGroup -> FieldTypeDescriptor Address
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Address)
              (Lens
  ToFunction'Invocation
  ToFunction'Invocation
  (Maybe Address)
  (Maybe Address)
-> FieldAccessor ToFunction'Invocation Address
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'caller" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'caller")) ::
              Data.ProtoLens.FieldDescriptor ToFunction'Invocation
        argument__field_descriptor :: FieldDescriptor ToFunction'Invocation
argument__field_descriptor
          = String
-> FieldTypeDescriptor TypedValue
-> FieldAccessor ToFunction'Invocation TypedValue
-> FieldDescriptor ToFunction'Invocation
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "argument"
              (MessageOrGroup -> FieldTypeDescriptor TypedValue
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor TypedValue)
              (Lens
  ToFunction'Invocation
  ToFunction'Invocation
  (Maybe TypedValue)
  (Maybe TypedValue)
-> FieldAccessor ToFunction'Invocation TypedValue
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'argument" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'argument")) ::
              Data.ProtoLens.FieldDescriptor ToFunction'Invocation
      in
        [(Tag, FieldDescriptor ToFunction'Invocation)]
-> Map Tag (FieldDescriptor ToFunction'Invocation)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor ToFunction'Invocation
caller__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor ToFunction'Invocation
argument__field_descriptor)]
  unknownFields :: LensLike' f ToFunction'Invocation FieldSet
unknownFields
    = (ToFunction'Invocation -> FieldSet)
-> (ToFunction'Invocation -> FieldSet -> ToFunction'Invocation)
-> Lens' ToFunction'Invocation FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        ToFunction'Invocation -> FieldSet
_ToFunction'Invocation'_unknownFields
        (\ x__ :: ToFunction'Invocation
x__ y__ :: FieldSet
y__ -> ToFunction'Invocation
x__ {_ToFunction'Invocation'_unknownFields :: FieldSet
_ToFunction'Invocation'_unknownFields = FieldSet
y__})
  defMessage :: ToFunction'Invocation
defMessage
    = $WToFunction'Invocation'_constructor :: Maybe Address
-> Maybe TypedValue -> FieldSet -> ToFunction'Invocation
ToFunction'Invocation'_constructor
        {_ToFunction'Invocation'caller :: Maybe Address
_ToFunction'Invocation'caller = Maybe Address
forall a. Maybe a
Prelude.Nothing,
         _ToFunction'Invocation'argument :: Maybe TypedValue
_ToFunction'Invocation'argument = Maybe TypedValue
forall a. Maybe a
Prelude.Nothing,
         _ToFunction'Invocation'_unknownFields :: FieldSet
_ToFunction'Invocation'_unknownFields = []}
  parseMessage :: Parser ToFunction'Invocation
parseMessage
    = let
        loop ::
          ToFunction'Invocation
          -> Data.ProtoLens.Encoding.Bytes.Parser ToFunction'Invocation
        loop :: ToFunction'Invocation -> Parser ToFunction'Invocation
loop x :: ToFunction'Invocation
x
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  "Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      ToFunction'Invocation -> Parser ToFunction'Invocation
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter
  ToFunction'Invocation ToFunction'Invocation FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> ToFunction'Invocation
-> ToFunction'Invocation
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           forall msg. Message msg => Lens' msg FieldSet
Setter
  ToFunction'Invocation ToFunction'Invocation FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) ToFunction'Invocation
x)
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        10
                          -> do Address
y <- Parser Address -> String -> Parser Address
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser Address -> Parser Address
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser Address
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       "caller"
                                ToFunction'Invocation -> Parser ToFunction'Invocation
loop (Setter ToFunction'Invocation ToFunction'Invocation Address Address
-> Address -> ToFunction'Invocation -> ToFunction'Invocation
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "caller" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"caller") Address
y ToFunction'Invocation
x)
                        18
                          -> do TypedValue
y <- Parser TypedValue -> String -> Parser TypedValue
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser TypedValue -> Parser TypedValue
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser TypedValue
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       "argument"
                                ToFunction'Invocation -> Parser ToFunction'Invocation
loop
                                  (Setter
  ToFunction'Invocation ToFunction'Invocation TypedValue TypedValue
-> TypedValue -> ToFunction'Invocation -> ToFunction'Invocation
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "argument" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"argument") TypedValue
y ToFunction'Invocation
x)
                        wire :: Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                ToFunction'Invocation -> Parser ToFunction'Invocation
loop
                                  (Setter
  ToFunction'Invocation ToFunction'Invocation FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> ToFunction'Invocation
-> ToFunction'Invocation
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     forall msg. Message msg => Lens' msg FieldSet
Setter
  ToFunction'Invocation ToFunction'Invocation FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) ToFunction'Invocation
x)
      in
        Parser ToFunction'Invocation
-> String -> Parser ToFunction'Invocation
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do ToFunction'Invocation -> Parser ToFunction'Invocation
loop ToFunction'Invocation
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "Invocation"
  buildMessage :: ToFunction'Invocation -> Builder
buildMessage
    = \ _x :: ToFunction'Invocation
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe Address)
  ToFunction'Invocation
  ToFunction'Invocation
  (Maybe Address)
  (Maybe Address)
-> ToFunction'Invocation -> Maybe Address
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "maybe'caller" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'caller") ToFunction'Invocation
_x
              of
                Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just _v :: Address
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 10)
                       ((ByteString -> Builder)
-> (Address -> ByteString) -> Address -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                          (\ bs :: 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))
                          Address -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                          Address
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (case
                     FoldLike
  (Maybe TypedValue)
  ToFunction'Invocation
  ToFunction'Invocation
  (Maybe TypedValue)
  (Maybe TypedValue)
-> ToFunction'Invocation -> Maybe TypedValue
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "maybe'argument" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'argument") ToFunction'Invocation
_x
                 of
                   Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   (Prelude.Just _v :: TypedValue
_v)
                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 18)
                          ((ByteString -> Builder)
-> (TypedValue -> ByteString) -> TypedValue -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                             (\ bs :: 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))
                             TypedValue -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                             TypedValue
_v))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike
  FieldSet
  ToFunction'Invocation
  ToFunction'Invocation
  FieldSet
  FieldSet
-> ToFunction'Invocation -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  ToFunction'Invocation
  ToFunction'Invocation
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields ToFunction'Invocation
_x)))
instance Control.DeepSeq.NFData ToFunction'Invocation where
  rnf :: ToFunction'Invocation -> ()
rnf
    = \ x__ :: ToFunction'Invocation
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (ToFunction'Invocation -> FieldSet
_ToFunction'Invocation'_unknownFields ToFunction'Invocation
x__)
             (Maybe Address -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (ToFunction'Invocation -> Maybe Address
_ToFunction'Invocation'caller ToFunction'Invocation
x__)
                (Maybe TypedValue -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (ToFunction'Invocation -> Maybe TypedValue
_ToFunction'Invocation'argument ToFunction'Invocation
x__) ()))
{- | Fields :
     
         * 'Proto.RequestReply_Fields.target' @:: Lens' ToFunction'InvocationBatchRequest Address@
         * 'Proto.RequestReply_Fields.maybe'target' @:: Lens' ToFunction'InvocationBatchRequest (Prelude.Maybe Address)@
         * 'Proto.RequestReply_Fields.state' @:: Lens' ToFunction'InvocationBatchRequest [ToFunction'PersistedValue]@
         * 'Proto.RequestReply_Fields.vec'state' @:: Lens' ToFunction'InvocationBatchRequest (Data.Vector.Vector ToFunction'PersistedValue)@
         * 'Proto.RequestReply_Fields.invocations' @:: Lens' ToFunction'InvocationBatchRequest [ToFunction'Invocation]@
         * 'Proto.RequestReply_Fields.vec'invocations' @:: Lens' ToFunction'InvocationBatchRequest (Data.Vector.Vector ToFunction'Invocation)@ -}
data ToFunction'InvocationBatchRequest
  = ToFunction'InvocationBatchRequest'_constructor {ToFunction'InvocationBatchRequest -> Maybe Address
_ToFunction'InvocationBatchRequest'target :: !(Prelude.Maybe Address),
                                                    ToFunction'InvocationBatchRequest
-> Vector ToFunction'PersistedValue
_ToFunction'InvocationBatchRequest'state :: !(Data.Vector.Vector ToFunction'PersistedValue),
                                                    ToFunction'InvocationBatchRequest -> Vector ToFunction'Invocation
_ToFunction'InvocationBatchRequest'invocations :: !(Data.Vector.Vector ToFunction'Invocation),
                                                    ToFunction'InvocationBatchRequest -> FieldSet
_ToFunction'InvocationBatchRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (ToFunction'InvocationBatchRequest
-> ToFunction'InvocationBatchRequest -> Bool
(ToFunction'InvocationBatchRequest
 -> ToFunction'InvocationBatchRequest -> Bool)
-> (ToFunction'InvocationBatchRequest
    -> ToFunction'InvocationBatchRequest -> Bool)
-> Eq ToFunction'InvocationBatchRequest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ToFunction'InvocationBatchRequest
-> ToFunction'InvocationBatchRequest -> Bool
$c/= :: ToFunction'InvocationBatchRequest
-> ToFunction'InvocationBatchRequest -> Bool
== :: ToFunction'InvocationBatchRequest
-> ToFunction'InvocationBatchRequest -> Bool
$c== :: ToFunction'InvocationBatchRequest
-> ToFunction'InvocationBatchRequest -> Bool
Prelude.Eq, Eq ToFunction'InvocationBatchRequest
Eq ToFunction'InvocationBatchRequest =>
(ToFunction'InvocationBatchRequest
 -> ToFunction'InvocationBatchRequest -> Ordering)
-> (ToFunction'InvocationBatchRequest
    -> ToFunction'InvocationBatchRequest -> Bool)
-> (ToFunction'InvocationBatchRequest
    -> ToFunction'InvocationBatchRequest -> Bool)
-> (ToFunction'InvocationBatchRequest
    -> ToFunction'InvocationBatchRequest -> Bool)
-> (ToFunction'InvocationBatchRequest
    -> ToFunction'InvocationBatchRequest -> Bool)
-> (ToFunction'InvocationBatchRequest
    -> ToFunction'InvocationBatchRequest
    -> ToFunction'InvocationBatchRequest)
-> (ToFunction'InvocationBatchRequest
    -> ToFunction'InvocationBatchRequest
    -> ToFunction'InvocationBatchRequest)
-> Ord ToFunction'InvocationBatchRequest
ToFunction'InvocationBatchRequest
-> ToFunction'InvocationBatchRequest -> Bool
ToFunction'InvocationBatchRequest
-> ToFunction'InvocationBatchRequest -> Ordering
ToFunction'InvocationBatchRequest
-> ToFunction'InvocationBatchRequest
-> ToFunction'InvocationBatchRequest
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
min :: ToFunction'InvocationBatchRequest
-> ToFunction'InvocationBatchRequest
-> ToFunction'InvocationBatchRequest
$cmin :: ToFunction'InvocationBatchRequest
-> ToFunction'InvocationBatchRequest
-> ToFunction'InvocationBatchRequest
max :: ToFunction'InvocationBatchRequest
-> ToFunction'InvocationBatchRequest
-> ToFunction'InvocationBatchRequest
$cmax :: ToFunction'InvocationBatchRequest
-> ToFunction'InvocationBatchRequest
-> ToFunction'InvocationBatchRequest
>= :: ToFunction'InvocationBatchRequest
-> ToFunction'InvocationBatchRequest -> Bool
$c>= :: ToFunction'InvocationBatchRequest
-> ToFunction'InvocationBatchRequest -> Bool
> :: ToFunction'InvocationBatchRequest
-> ToFunction'InvocationBatchRequest -> Bool
$c> :: ToFunction'InvocationBatchRequest
-> ToFunction'InvocationBatchRequest -> Bool
<= :: ToFunction'InvocationBatchRequest
-> ToFunction'InvocationBatchRequest -> Bool
$c<= :: ToFunction'InvocationBatchRequest
-> ToFunction'InvocationBatchRequest -> Bool
< :: ToFunction'InvocationBatchRequest
-> ToFunction'InvocationBatchRequest -> Bool
$c< :: ToFunction'InvocationBatchRequest
-> ToFunction'InvocationBatchRequest -> Bool
compare :: ToFunction'InvocationBatchRequest
-> ToFunction'InvocationBatchRequest -> Ordering
$ccompare :: ToFunction'InvocationBatchRequest
-> ToFunction'InvocationBatchRequest -> Ordering
$cp1Ord :: Eq ToFunction'InvocationBatchRequest
Prelude.Ord)
instance Prelude.Show ToFunction'InvocationBatchRequest where
  showsPrec :: Int -> ToFunction'InvocationBatchRequest -> ShowS
showsPrec _ __x :: ToFunction'InvocationBatchRequest
__x __s :: String
__s
    = Char -> ShowS
Prelude.showChar
        '{'
        (String -> ShowS
Prelude.showString
           (ToFunction'InvocationBatchRequest -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort ToFunction'InvocationBatchRequest
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField ToFunction'InvocationBatchRequest "target" Address where
  fieldOf :: Proxy# "target"
-> (Address -> f Address)
-> ToFunction'InvocationBatchRequest
-> f ToFunction'InvocationBatchRequest
fieldOf _
    = ((Maybe Address -> f (Maybe Address))
 -> ToFunction'InvocationBatchRequest
 -> f ToFunction'InvocationBatchRequest)
-> ((Address -> f Address) -> Maybe Address -> f (Maybe Address))
-> (Address -> f Address)
-> ToFunction'InvocationBatchRequest
-> f ToFunction'InvocationBatchRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ToFunction'InvocationBatchRequest -> Maybe Address)
-> (ToFunction'InvocationBatchRequest
    -> Maybe Address -> ToFunction'InvocationBatchRequest)
-> Lens
     ToFunction'InvocationBatchRequest
     ToFunction'InvocationBatchRequest
     (Maybe Address)
     (Maybe Address)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ToFunction'InvocationBatchRequest -> Maybe Address
_ToFunction'InvocationBatchRequest'target
           (\ x__ :: ToFunction'InvocationBatchRequest
x__ y__ :: Maybe Address
y__
              -> ToFunction'InvocationBatchRequest
x__ {_ToFunction'InvocationBatchRequest'target :: Maybe Address
_ToFunction'InvocationBatchRequest'target = Maybe Address
y__}))
        (Address -> Lens' (Maybe Address) Address
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Address
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField ToFunction'InvocationBatchRequest "maybe'target" (Prelude.Maybe Address) where
  fieldOf :: Proxy# "maybe'target"
-> (Maybe Address -> f (Maybe Address))
-> ToFunction'InvocationBatchRequest
-> f ToFunction'InvocationBatchRequest
fieldOf _
    = ((Maybe Address -> f (Maybe Address))
 -> ToFunction'InvocationBatchRequest
 -> f ToFunction'InvocationBatchRequest)
-> ((Maybe Address -> f (Maybe Address))
    -> Maybe Address -> f (Maybe Address))
-> (Maybe Address -> f (Maybe Address))
-> ToFunction'InvocationBatchRequest
-> f ToFunction'InvocationBatchRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ToFunction'InvocationBatchRequest -> Maybe Address)
-> (ToFunction'InvocationBatchRequest
    -> Maybe Address -> ToFunction'InvocationBatchRequest)
-> Lens
     ToFunction'InvocationBatchRequest
     ToFunction'InvocationBatchRequest
     (Maybe Address)
     (Maybe Address)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ToFunction'InvocationBatchRequest -> Maybe Address
_ToFunction'InvocationBatchRequest'target
           (\ x__ :: ToFunction'InvocationBatchRequest
x__ y__ :: Maybe Address
y__
              -> ToFunction'InvocationBatchRequest
x__ {_ToFunction'InvocationBatchRequest'target :: Maybe Address
_ToFunction'InvocationBatchRequest'target = Maybe Address
y__}))
        (Maybe Address -> f (Maybe Address))
-> Maybe Address -> f (Maybe Address)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ToFunction'InvocationBatchRequest "state" [ToFunction'PersistedValue] where
  fieldOf :: Proxy# "state"
-> ([ToFunction'PersistedValue] -> f [ToFunction'PersistedValue])
-> ToFunction'InvocationBatchRequest
-> f ToFunction'InvocationBatchRequest
fieldOf _
    = ((Vector ToFunction'PersistedValue
  -> f (Vector ToFunction'PersistedValue))
 -> ToFunction'InvocationBatchRequest
 -> f ToFunction'InvocationBatchRequest)
-> (([ToFunction'PersistedValue] -> f [ToFunction'PersistedValue])
    -> Vector ToFunction'PersistedValue
    -> f (Vector ToFunction'PersistedValue))
-> ([ToFunction'PersistedValue] -> f [ToFunction'PersistedValue])
-> ToFunction'InvocationBatchRequest
-> f ToFunction'InvocationBatchRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ToFunction'InvocationBatchRequest
 -> Vector ToFunction'PersistedValue)
-> (ToFunction'InvocationBatchRequest
    -> Vector ToFunction'PersistedValue
    -> ToFunction'InvocationBatchRequest)
-> Lens
     ToFunction'InvocationBatchRequest
     ToFunction'InvocationBatchRequest
     (Vector ToFunction'PersistedValue)
     (Vector ToFunction'PersistedValue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ToFunction'InvocationBatchRequest
-> Vector ToFunction'PersistedValue
_ToFunction'InvocationBatchRequest'state
           (\ x__ :: ToFunction'InvocationBatchRequest
x__ y__ :: Vector ToFunction'PersistedValue
y__
              -> ToFunction'InvocationBatchRequest
x__ {_ToFunction'InvocationBatchRequest'state :: Vector ToFunction'PersistedValue
_ToFunction'InvocationBatchRequest'state = Vector ToFunction'PersistedValue
y__}))
        ((Vector ToFunction'PersistedValue -> [ToFunction'PersistedValue])
-> (Vector ToFunction'PersistedValue
    -> [ToFunction'PersistedValue] -> Vector ToFunction'PersistedValue)
-> Lens
     (Vector ToFunction'PersistedValue)
     (Vector ToFunction'PersistedValue)
     [ToFunction'PersistedValue]
     [ToFunction'PersistedValue]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector ToFunction'PersistedValue -> [ToFunction'PersistedValue]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ _ y__ :: [ToFunction'PersistedValue]
y__ -> [ToFunction'PersistedValue] -> Vector ToFunction'PersistedValue
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [ToFunction'PersistedValue]
y__))
instance Data.ProtoLens.Field.HasField ToFunction'InvocationBatchRequest "vec'state" (Data.Vector.Vector ToFunction'PersistedValue) where
  fieldOf :: Proxy# "vec'state"
-> (Vector ToFunction'PersistedValue
    -> f (Vector ToFunction'PersistedValue))
-> ToFunction'InvocationBatchRequest
-> f ToFunction'InvocationBatchRequest
fieldOf _
    = ((Vector ToFunction'PersistedValue
  -> f (Vector ToFunction'PersistedValue))
 -> ToFunction'InvocationBatchRequest
 -> f ToFunction'InvocationBatchRequest)
-> ((Vector ToFunction'PersistedValue
     -> f (Vector ToFunction'PersistedValue))
    -> Vector ToFunction'PersistedValue
    -> f (Vector ToFunction'PersistedValue))
-> (Vector ToFunction'PersistedValue
    -> f (Vector ToFunction'PersistedValue))
-> ToFunction'InvocationBatchRequest
-> f ToFunction'InvocationBatchRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ToFunction'InvocationBatchRequest
 -> Vector ToFunction'PersistedValue)
-> (ToFunction'InvocationBatchRequest
    -> Vector ToFunction'PersistedValue
    -> ToFunction'InvocationBatchRequest)
-> Lens
     ToFunction'InvocationBatchRequest
     ToFunction'InvocationBatchRequest
     (Vector ToFunction'PersistedValue)
     (Vector ToFunction'PersistedValue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ToFunction'InvocationBatchRequest
-> Vector ToFunction'PersistedValue
_ToFunction'InvocationBatchRequest'state
           (\ x__ :: ToFunction'InvocationBatchRequest
x__ y__ :: Vector ToFunction'PersistedValue
y__
              -> ToFunction'InvocationBatchRequest
x__ {_ToFunction'InvocationBatchRequest'state :: Vector ToFunction'PersistedValue
_ToFunction'InvocationBatchRequest'state = Vector ToFunction'PersistedValue
y__}))
        (Vector ToFunction'PersistedValue
 -> f (Vector ToFunction'PersistedValue))
-> Vector ToFunction'PersistedValue
-> f (Vector ToFunction'PersistedValue)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ToFunction'InvocationBatchRequest "invocations" [ToFunction'Invocation] where
  fieldOf :: Proxy# "invocations"
-> ([ToFunction'Invocation] -> f [ToFunction'Invocation])
-> ToFunction'InvocationBatchRequest
-> f ToFunction'InvocationBatchRequest
fieldOf _
    = ((Vector ToFunction'Invocation -> f (Vector ToFunction'Invocation))
 -> ToFunction'InvocationBatchRequest
 -> f ToFunction'InvocationBatchRequest)
-> (([ToFunction'Invocation] -> f [ToFunction'Invocation])
    -> Vector ToFunction'Invocation
    -> f (Vector ToFunction'Invocation))
-> ([ToFunction'Invocation] -> f [ToFunction'Invocation])
-> ToFunction'InvocationBatchRequest
-> f ToFunction'InvocationBatchRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ToFunction'InvocationBatchRequest -> Vector ToFunction'Invocation)
-> (ToFunction'InvocationBatchRequest
    -> Vector ToFunction'Invocation
    -> ToFunction'InvocationBatchRequest)
-> Lens
     ToFunction'InvocationBatchRequest
     ToFunction'InvocationBatchRequest
     (Vector ToFunction'Invocation)
     (Vector ToFunction'Invocation)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ToFunction'InvocationBatchRequest -> Vector ToFunction'Invocation
_ToFunction'InvocationBatchRequest'invocations
           (\ x__ :: ToFunction'InvocationBatchRequest
x__ y__ :: Vector ToFunction'Invocation
y__
              -> ToFunction'InvocationBatchRequest
x__ {_ToFunction'InvocationBatchRequest'invocations :: Vector ToFunction'Invocation
_ToFunction'InvocationBatchRequest'invocations = Vector ToFunction'Invocation
y__}))
        ((Vector ToFunction'Invocation -> [ToFunction'Invocation])
-> (Vector ToFunction'Invocation
    -> [ToFunction'Invocation] -> Vector ToFunction'Invocation)
-> Lens
     (Vector ToFunction'Invocation)
     (Vector ToFunction'Invocation)
     [ToFunction'Invocation]
     [ToFunction'Invocation]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector ToFunction'Invocation -> [ToFunction'Invocation]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ _ y__ :: [ToFunction'Invocation]
y__ -> [ToFunction'Invocation] -> Vector ToFunction'Invocation
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [ToFunction'Invocation]
y__))
instance Data.ProtoLens.Field.HasField ToFunction'InvocationBatchRequest "vec'invocations" (Data.Vector.Vector ToFunction'Invocation) where
  fieldOf :: Proxy# "vec'invocations"
-> (Vector ToFunction'Invocation
    -> f (Vector ToFunction'Invocation))
-> ToFunction'InvocationBatchRequest
-> f ToFunction'InvocationBatchRequest
fieldOf _
    = ((Vector ToFunction'Invocation -> f (Vector ToFunction'Invocation))
 -> ToFunction'InvocationBatchRequest
 -> f ToFunction'InvocationBatchRequest)
-> ((Vector ToFunction'Invocation
     -> f (Vector ToFunction'Invocation))
    -> Vector ToFunction'Invocation
    -> f (Vector ToFunction'Invocation))
-> (Vector ToFunction'Invocation
    -> f (Vector ToFunction'Invocation))
-> ToFunction'InvocationBatchRequest
-> f ToFunction'InvocationBatchRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ToFunction'InvocationBatchRequest -> Vector ToFunction'Invocation)
-> (ToFunction'InvocationBatchRequest
    -> Vector ToFunction'Invocation
    -> ToFunction'InvocationBatchRequest)
-> Lens
     ToFunction'InvocationBatchRequest
     ToFunction'InvocationBatchRequest
     (Vector ToFunction'Invocation)
     (Vector ToFunction'Invocation)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ToFunction'InvocationBatchRequest -> Vector ToFunction'Invocation
_ToFunction'InvocationBatchRequest'invocations
           (\ x__ :: ToFunction'InvocationBatchRequest
x__ y__ :: Vector ToFunction'Invocation
y__
              -> ToFunction'InvocationBatchRequest
x__ {_ToFunction'InvocationBatchRequest'invocations :: Vector ToFunction'Invocation
_ToFunction'InvocationBatchRequest'invocations = Vector ToFunction'Invocation
y__}))
        (Vector ToFunction'Invocation -> f (Vector ToFunction'Invocation))
-> Vector ToFunction'Invocation -> f (Vector ToFunction'Invocation)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message ToFunction'InvocationBatchRequest where
  messageName :: Proxy ToFunction'InvocationBatchRequest -> Text
messageName _
    = String -> Text
Data.Text.pack
        "io.statefun.sdk.reqreply.ToFunction.InvocationBatchRequest"
  packedMessageDescriptor :: Proxy ToFunction'InvocationBatchRequest -> ByteString
packedMessageDescriptor _
    = "\n\
      \\SYNInvocationBatchRequest\DC29\n\
      \\ACKtarget\CAN\SOH \SOH(\v2!.io.statefun.sdk.reqreply.AddressR\ACKtarget\DC2I\n\
      \\ENQstate\CAN\STX \ETX(\v23.io.statefun.sdk.reqreply.ToFunction.PersistedValueR\ENQstate\DC2Q\n\
      \\vinvocations\CAN\ETX \ETX(\v2/.io.statefun.sdk.reqreply.ToFunction.InvocationR\vinvocations"
  packedFileDescriptor :: Proxy ToFunction'InvocationBatchRequest -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor ToFunction'InvocationBatchRequest)
fieldsByTag
    = let
        target__field_descriptor :: FieldDescriptor ToFunction'InvocationBatchRequest
target__field_descriptor
          = String
-> FieldTypeDescriptor Address
-> FieldAccessor ToFunction'InvocationBatchRequest Address
-> FieldDescriptor ToFunction'InvocationBatchRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "target"
              (MessageOrGroup -> FieldTypeDescriptor Address
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Address)
              (Lens
  ToFunction'InvocationBatchRequest
  ToFunction'InvocationBatchRequest
  (Maybe Address)
  (Maybe Address)
-> FieldAccessor ToFunction'InvocationBatchRequest Address
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'target" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'target")) ::
              Data.ProtoLens.FieldDescriptor ToFunction'InvocationBatchRequest
        state__field_descriptor :: FieldDescriptor ToFunction'InvocationBatchRequest
state__field_descriptor
          = String
-> FieldTypeDescriptor ToFunction'PersistedValue
-> FieldAccessor
     ToFunction'InvocationBatchRequest ToFunction'PersistedValue
-> FieldDescriptor ToFunction'InvocationBatchRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "state"
              (MessageOrGroup -> FieldTypeDescriptor ToFunction'PersistedValue
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor ToFunction'PersistedValue)
              (Packing
-> Lens'
     ToFunction'InvocationBatchRequest [ToFunction'PersistedValue]
-> FieldAccessor
     ToFunction'InvocationBatchRequest ToFunction'PersistedValue
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked (forall s a (f :: * -> *).
(HasField s "state" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"state")) ::
              Data.ProtoLens.FieldDescriptor ToFunction'InvocationBatchRequest
        invocations__field_descriptor :: FieldDescriptor ToFunction'InvocationBatchRequest
invocations__field_descriptor
          = String
-> FieldTypeDescriptor ToFunction'Invocation
-> FieldAccessor
     ToFunction'InvocationBatchRequest ToFunction'Invocation
-> FieldDescriptor ToFunction'InvocationBatchRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "invocations"
              (MessageOrGroup -> FieldTypeDescriptor ToFunction'Invocation
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor ToFunction'Invocation)
              (Packing
-> Lens' ToFunction'InvocationBatchRequest [ToFunction'Invocation]
-> FieldAccessor
     ToFunction'InvocationBatchRequest ToFunction'Invocation
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked
                 (forall s a (f :: * -> *).
(HasField s "invocations" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"invocations")) ::
              Data.ProtoLens.FieldDescriptor ToFunction'InvocationBatchRequest
      in
        [(Tag, FieldDescriptor ToFunction'InvocationBatchRequest)]
-> Map Tag (FieldDescriptor ToFunction'InvocationBatchRequest)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor ToFunction'InvocationBatchRequest
target__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor ToFunction'InvocationBatchRequest
state__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 3, FieldDescriptor ToFunction'InvocationBatchRequest
invocations__field_descriptor)]
  unknownFields :: LensLike' f ToFunction'InvocationBatchRequest FieldSet
unknownFields
    = (ToFunction'InvocationBatchRequest -> FieldSet)
-> (ToFunction'InvocationBatchRequest
    -> FieldSet -> ToFunction'InvocationBatchRequest)
-> Lens' ToFunction'InvocationBatchRequest FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        ToFunction'InvocationBatchRequest -> FieldSet
_ToFunction'InvocationBatchRequest'_unknownFields
        (\ x__ :: ToFunction'InvocationBatchRequest
x__ y__ :: FieldSet
y__
           -> ToFunction'InvocationBatchRequest
x__ {_ToFunction'InvocationBatchRequest'_unknownFields :: FieldSet
_ToFunction'InvocationBatchRequest'_unknownFields = FieldSet
y__})
  defMessage :: ToFunction'InvocationBatchRequest
defMessage
    = $WToFunction'InvocationBatchRequest'_constructor :: Maybe Address
-> Vector ToFunction'PersistedValue
-> Vector ToFunction'Invocation
-> FieldSet
-> ToFunction'InvocationBatchRequest
ToFunction'InvocationBatchRequest'_constructor
        {_ToFunction'InvocationBatchRequest'target :: Maybe Address
_ToFunction'InvocationBatchRequest'target = Maybe Address
forall a. Maybe a
Prelude.Nothing,
         _ToFunction'InvocationBatchRequest'state :: Vector ToFunction'PersistedValue
_ToFunction'InvocationBatchRequest'state = Vector ToFunction'PersistedValue
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _ToFunction'InvocationBatchRequest'invocations :: Vector ToFunction'Invocation
_ToFunction'InvocationBatchRequest'invocations = Vector ToFunction'Invocation
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _ToFunction'InvocationBatchRequest'_unknownFields :: FieldSet
_ToFunction'InvocationBatchRequest'_unknownFields = []}
  parseMessage :: Parser ToFunction'InvocationBatchRequest
parseMessage
    = let
        loop ::
          ToFunction'InvocationBatchRequest
          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld ToFunction'Invocation
             -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld ToFunction'PersistedValue
                -> Data.ProtoLens.Encoding.Bytes.Parser ToFunction'InvocationBatchRequest
        loop :: ToFunction'InvocationBatchRequest
-> Growing Vector RealWorld ToFunction'Invocation
-> Growing Vector RealWorld ToFunction'PersistedValue
-> Parser ToFunction'InvocationBatchRequest
loop x :: ToFunction'InvocationBatchRequest
x mutable'invocations :: Growing Vector RealWorld ToFunction'Invocation
mutable'invocations mutable'state :: Growing Vector RealWorld ToFunction'PersistedValue
mutable'state
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do Vector ToFunction'Invocation
frozen'invocations <- IO (Vector ToFunction'Invocation)
-> Parser (Vector ToFunction'Invocation)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                              (Growing Vector (PrimState IO) ToFunction'Invocation
-> IO (Vector ToFunction'Invocation)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                                 Growing Vector RealWorld ToFunction'Invocation
Growing Vector (PrimState IO) ToFunction'Invocation
mutable'invocations)
                      Vector ToFunction'PersistedValue
frozen'state <- IO (Vector ToFunction'PersistedValue)
-> Parser (Vector ToFunction'PersistedValue)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                        (Growing Vector (PrimState IO) ToFunction'PersistedValue
-> IO (Vector ToFunction'PersistedValue)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze Growing Vector RealWorld ToFunction'PersistedValue
Growing Vector (PrimState IO) ToFunction'PersistedValue
mutable'state)
                      (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  "Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      ToFunction'InvocationBatchRequest
-> Parser ToFunction'InvocationBatchRequest
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter
  ToFunction'InvocationBatchRequest
  ToFunction'InvocationBatchRequest
  FieldSet
  FieldSet
-> (FieldSet -> FieldSet)
-> ToFunction'InvocationBatchRequest
-> ToFunction'InvocationBatchRequest
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           forall msg. Message msg => Lens' msg FieldSet
Setter
  ToFunction'InvocationBatchRequest
  ToFunction'InvocationBatchRequest
  FieldSet
  FieldSet
Data.ProtoLens.unknownFields
                           (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Setter
  ToFunction'InvocationBatchRequest
  ToFunction'InvocationBatchRequest
  (Vector ToFunction'Invocation)
  (Vector ToFunction'Invocation)
-> Vector ToFunction'Invocation
-> ToFunction'InvocationBatchRequest
-> ToFunction'InvocationBatchRequest
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                              (forall s a (f :: * -> *).
(HasField s "vec'invocations" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'invocations")
                              Vector ToFunction'Invocation
frozen'invocations
                              (Setter
  ToFunction'InvocationBatchRequest
  ToFunction'InvocationBatchRequest
  (Vector ToFunction'PersistedValue)
  (Vector ToFunction'PersistedValue)
-> Vector ToFunction'PersistedValue
-> ToFunction'InvocationBatchRequest
-> ToFunction'InvocationBatchRequest
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                 (forall s a (f :: * -> *).
(HasField s "vec'state" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'state") Vector ToFunction'PersistedValue
frozen'state ToFunction'InvocationBatchRequest
x)))
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        10
                          -> do Address
y <- Parser Address -> String -> Parser Address
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser Address -> Parser Address
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser Address
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       "target"
                                ToFunction'InvocationBatchRequest
-> Growing Vector RealWorld ToFunction'Invocation
-> Growing Vector RealWorld ToFunction'PersistedValue
-> Parser ToFunction'InvocationBatchRequest
loop
                                  (Setter
  ToFunction'InvocationBatchRequest
  ToFunction'InvocationBatchRequest
  Address
  Address
-> Address
-> ToFunction'InvocationBatchRequest
-> ToFunction'InvocationBatchRequest
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "target" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"target") Address
y ToFunction'InvocationBatchRequest
x)
                                  Growing Vector RealWorld ToFunction'Invocation
mutable'invocations
                                  Growing Vector RealWorld ToFunction'PersistedValue
mutable'state
                        18
                          -> do !ToFunction'PersistedValue
y <- Parser ToFunction'PersistedValue
-> String -> Parser ToFunction'PersistedValue
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Int
-> Parser ToFunction'PersistedValue
-> Parser ToFunction'PersistedValue
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                              (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                              Parser ToFunction'PersistedValue
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                        "state"
                                Growing Vector RealWorld ToFunction'PersistedValue
v <- IO (Growing Vector RealWorld ToFunction'PersistedValue)
-> Parser (Growing Vector RealWorld ToFunction'PersistedValue)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) ToFunction'PersistedValue
-> ToFunction'PersistedValue
-> IO (Growing Vector (PrimState IO) ToFunction'PersistedValue)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld ToFunction'PersistedValue
Growing Vector (PrimState IO) ToFunction'PersistedValue
mutable'state ToFunction'PersistedValue
y)
                                ToFunction'InvocationBatchRequest
-> Growing Vector RealWorld ToFunction'Invocation
-> Growing Vector RealWorld ToFunction'PersistedValue
-> Parser ToFunction'InvocationBatchRequest
loop ToFunction'InvocationBatchRequest
x Growing Vector RealWorld ToFunction'Invocation
mutable'invocations Growing Vector RealWorld ToFunction'PersistedValue
v
                        26
                          -> do !ToFunction'Invocation
y <- Parser ToFunction'Invocation
-> String -> Parser ToFunction'Invocation
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Int -> Parser ToFunction'Invocation -> Parser ToFunction'Invocation
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                              (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                              Parser ToFunction'Invocation
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                        "invocations"
                                Growing Vector RealWorld ToFunction'Invocation
v <- IO (Growing Vector RealWorld ToFunction'Invocation)
-> Parser (Growing Vector RealWorld ToFunction'Invocation)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) ToFunction'Invocation
-> ToFunction'Invocation
-> IO (Growing Vector (PrimState IO) ToFunction'Invocation)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append
                                          Growing Vector RealWorld ToFunction'Invocation
Growing Vector (PrimState IO) ToFunction'Invocation
mutable'invocations ToFunction'Invocation
y)
                                ToFunction'InvocationBatchRequest
-> Growing Vector RealWorld ToFunction'Invocation
-> Growing Vector RealWorld ToFunction'PersistedValue
-> Parser ToFunction'InvocationBatchRequest
loop ToFunction'InvocationBatchRequest
x Growing Vector RealWorld ToFunction'Invocation
v Growing Vector RealWorld ToFunction'PersistedValue
mutable'state
                        wire :: Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                ToFunction'InvocationBatchRequest
-> Growing Vector RealWorld ToFunction'Invocation
-> Growing Vector RealWorld ToFunction'PersistedValue
-> Parser ToFunction'InvocationBatchRequest
loop
                                  (Setter
  ToFunction'InvocationBatchRequest
  ToFunction'InvocationBatchRequest
  FieldSet
  FieldSet
-> (FieldSet -> FieldSet)
-> ToFunction'InvocationBatchRequest
-> ToFunction'InvocationBatchRequest
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     forall msg. Message msg => Lens' msg FieldSet
Setter
  ToFunction'InvocationBatchRequest
  ToFunction'InvocationBatchRequest
  FieldSet
  FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) ToFunction'InvocationBatchRequest
x)
                                  Growing Vector RealWorld ToFunction'Invocation
mutable'invocations
                                  Growing Vector RealWorld ToFunction'PersistedValue
mutable'state
      in
        Parser ToFunction'InvocationBatchRequest
-> String -> Parser ToFunction'InvocationBatchRequest
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Growing Vector RealWorld ToFunction'Invocation
mutable'invocations <- IO (Growing Vector RealWorld ToFunction'Invocation)
-> Parser (Growing Vector RealWorld ToFunction'Invocation)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       IO (Growing Vector RealWorld ToFunction'Invocation)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              Growing Vector RealWorld ToFunction'PersistedValue
mutable'state <- IO (Growing Vector RealWorld ToFunction'PersistedValue)
-> Parser (Growing Vector RealWorld ToFunction'PersistedValue)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                 IO (Growing Vector RealWorld ToFunction'PersistedValue)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              ToFunction'InvocationBatchRequest
-> Growing Vector RealWorld ToFunction'Invocation
-> Growing Vector RealWorld ToFunction'PersistedValue
-> Parser ToFunction'InvocationBatchRequest
loop ToFunction'InvocationBatchRequest
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld ToFunction'Invocation
mutable'invocations Growing Vector RealWorld ToFunction'PersistedValue
mutable'state)
          "InvocationBatchRequest"
  buildMessage :: ToFunction'InvocationBatchRequest -> Builder
buildMessage
    = \ _x :: ToFunction'InvocationBatchRequest
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe Address)
  ToFunction'InvocationBatchRequest
  ToFunction'InvocationBatchRequest
  (Maybe Address)
  (Maybe Address)
-> ToFunction'InvocationBatchRequest -> Maybe Address
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "maybe'target" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'target") ToFunction'InvocationBatchRequest
_x
              of
                Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just _v :: Address
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 10)
                       ((ByteString -> Builder)
-> (Address -> ByteString) -> Address -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                          (\ bs :: 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))
                          Address -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                          Address
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                ((ToFunction'PersistedValue -> Builder)
-> Vector ToFunction'PersistedValue -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                   (\ _v :: ToFunction'PersistedValue
_v
                      -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                           (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 18)
                           ((ByteString -> Builder)
-> (ToFunction'PersistedValue -> ByteString)
-> ToFunction'PersistedValue
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                              (\ bs :: 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))
                              ToFunction'PersistedValue -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                              ToFunction'PersistedValue
_v))
                   (FoldLike
  (Vector ToFunction'PersistedValue)
  ToFunction'InvocationBatchRequest
  ToFunction'InvocationBatchRequest
  (Vector ToFunction'PersistedValue)
  (Vector ToFunction'PersistedValue)
-> ToFunction'InvocationBatchRequest
-> Vector ToFunction'PersistedValue
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "vec'state" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'state") ToFunction'InvocationBatchRequest
_x))
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   ((ToFunction'Invocation -> Builder)
-> Vector ToFunction'Invocation -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                      (\ _v :: ToFunction'Invocation
_v
                         -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                              (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 26)
                              ((ByteString -> Builder)
-> (ToFunction'Invocation -> ByteString)
-> ToFunction'Invocation
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                 (\ bs :: 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))
                                 ToFunction'Invocation -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                                 ToFunction'Invocation
_v))
                      (FoldLike
  (Vector ToFunction'Invocation)
  ToFunction'InvocationBatchRequest
  ToFunction'InvocationBatchRequest
  (Vector ToFunction'Invocation)
  (Vector ToFunction'Invocation)
-> ToFunction'InvocationBatchRequest
-> Vector ToFunction'Invocation
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                         (forall s a (f :: * -> *).
(HasField s "vec'invocations" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'invocations") ToFunction'InvocationBatchRequest
_x))
                   (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                      (FoldLike
  FieldSet
  ToFunction'InvocationBatchRequest
  ToFunction'InvocationBatchRequest
  FieldSet
  FieldSet
-> ToFunction'InvocationBatchRequest -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  ToFunction'InvocationBatchRequest
  ToFunction'InvocationBatchRequest
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields ToFunction'InvocationBatchRequest
_x))))
instance Control.DeepSeq.NFData ToFunction'InvocationBatchRequest where
  rnf :: ToFunction'InvocationBatchRequest -> ()
rnf
    = \ x__ :: ToFunction'InvocationBatchRequest
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (ToFunction'InvocationBatchRequest -> FieldSet
_ToFunction'InvocationBatchRequest'_unknownFields ToFunction'InvocationBatchRequest
x__)
             (Maybe Address -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (ToFunction'InvocationBatchRequest -> Maybe Address
_ToFunction'InvocationBatchRequest'target ToFunction'InvocationBatchRequest
x__)
                (Vector ToFunction'PersistedValue -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (ToFunction'InvocationBatchRequest
-> Vector ToFunction'PersistedValue
_ToFunction'InvocationBatchRequest'state ToFunction'InvocationBatchRequest
x__)
                   (Vector ToFunction'Invocation -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                      (ToFunction'InvocationBatchRequest -> Vector ToFunction'Invocation
_ToFunction'InvocationBatchRequest'invocations ToFunction'InvocationBatchRequest
x__) ())))
{- | Fields :
     
         * 'Proto.RequestReply_Fields.stateName' @:: Lens' ToFunction'PersistedValue Data.Text.Text@
         * 'Proto.RequestReply_Fields.stateValue' @:: Lens' ToFunction'PersistedValue TypedValue@
         * 'Proto.RequestReply_Fields.maybe'stateValue' @:: Lens' ToFunction'PersistedValue (Prelude.Maybe TypedValue)@ -}
data ToFunction'PersistedValue
  = ToFunction'PersistedValue'_constructor {ToFunction'PersistedValue -> Text
_ToFunction'PersistedValue'stateName :: !Data.Text.Text,
                                            ToFunction'PersistedValue -> Maybe TypedValue
_ToFunction'PersistedValue'stateValue :: !(Prelude.Maybe TypedValue),
                                            ToFunction'PersistedValue -> FieldSet
_ToFunction'PersistedValue'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (ToFunction'PersistedValue -> ToFunction'PersistedValue -> Bool
(ToFunction'PersistedValue -> ToFunction'PersistedValue -> Bool)
-> (ToFunction'PersistedValue -> ToFunction'PersistedValue -> Bool)
-> Eq ToFunction'PersistedValue
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ToFunction'PersistedValue -> ToFunction'PersistedValue -> Bool
$c/= :: ToFunction'PersistedValue -> ToFunction'PersistedValue -> Bool
== :: ToFunction'PersistedValue -> ToFunction'PersistedValue -> Bool
$c== :: ToFunction'PersistedValue -> ToFunction'PersistedValue -> Bool
Prelude.Eq, Eq ToFunction'PersistedValue
Eq ToFunction'PersistedValue =>
(ToFunction'PersistedValue
 -> ToFunction'PersistedValue -> Ordering)
-> (ToFunction'PersistedValue -> ToFunction'PersistedValue -> Bool)
-> (ToFunction'PersistedValue -> ToFunction'PersistedValue -> Bool)
-> (ToFunction'PersistedValue -> ToFunction'PersistedValue -> Bool)
-> (ToFunction'PersistedValue -> ToFunction'PersistedValue -> Bool)
-> (ToFunction'PersistedValue
    -> ToFunction'PersistedValue -> ToFunction'PersistedValue)
-> (ToFunction'PersistedValue
    -> ToFunction'PersistedValue -> ToFunction'PersistedValue)
-> Ord ToFunction'PersistedValue
ToFunction'PersistedValue -> ToFunction'PersistedValue -> Bool
ToFunction'PersistedValue -> ToFunction'PersistedValue -> Ordering
ToFunction'PersistedValue
-> ToFunction'PersistedValue -> ToFunction'PersistedValue
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
min :: ToFunction'PersistedValue
-> ToFunction'PersistedValue -> ToFunction'PersistedValue
$cmin :: ToFunction'PersistedValue
-> ToFunction'PersistedValue -> ToFunction'PersistedValue
max :: ToFunction'PersistedValue
-> ToFunction'PersistedValue -> ToFunction'PersistedValue
$cmax :: ToFunction'PersistedValue
-> ToFunction'PersistedValue -> ToFunction'PersistedValue
>= :: ToFunction'PersistedValue -> ToFunction'PersistedValue -> Bool
$c>= :: ToFunction'PersistedValue -> ToFunction'PersistedValue -> Bool
> :: ToFunction'PersistedValue -> ToFunction'PersistedValue -> Bool
$c> :: ToFunction'PersistedValue -> ToFunction'PersistedValue -> Bool
<= :: ToFunction'PersistedValue -> ToFunction'PersistedValue -> Bool
$c<= :: ToFunction'PersistedValue -> ToFunction'PersistedValue -> Bool
< :: ToFunction'PersistedValue -> ToFunction'PersistedValue -> Bool
$c< :: ToFunction'PersistedValue -> ToFunction'PersistedValue -> Bool
compare :: ToFunction'PersistedValue -> ToFunction'PersistedValue -> Ordering
$ccompare :: ToFunction'PersistedValue -> ToFunction'PersistedValue -> Ordering
$cp1Ord :: Eq ToFunction'PersistedValue
Prelude.Ord)
instance Prelude.Show ToFunction'PersistedValue where
  showsPrec :: Int -> ToFunction'PersistedValue -> ShowS
showsPrec _ __x :: ToFunction'PersistedValue
__x __s :: String
__s
    = Char -> ShowS
Prelude.showChar
        '{'
        (String -> ShowS
Prelude.showString
           (ToFunction'PersistedValue -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort ToFunction'PersistedValue
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField ToFunction'PersistedValue "stateName" Data.Text.Text where
  fieldOf :: Proxy# "stateName"
-> (Text -> f Text)
-> ToFunction'PersistedValue
-> f ToFunction'PersistedValue
fieldOf _
    = ((Text -> f Text)
 -> ToFunction'PersistedValue -> f ToFunction'PersistedValue)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> ToFunction'PersistedValue
-> f ToFunction'PersistedValue
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ToFunction'PersistedValue -> Text)
-> (ToFunction'PersistedValue -> Text -> ToFunction'PersistedValue)
-> Lens
     ToFunction'PersistedValue ToFunction'PersistedValue Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ToFunction'PersistedValue -> Text
_ToFunction'PersistedValue'stateName
           (\ x__ :: ToFunction'PersistedValue
x__ y__ :: Text
y__ -> ToFunction'PersistedValue
x__ {_ToFunction'PersistedValue'stateName :: Text
_ToFunction'PersistedValue'stateName = Text
y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ToFunction'PersistedValue "stateValue" TypedValue where
  fieldOf :: Proxy# "stateValue"
-> (TypedValue -> f TypedValue)
-> ToFunction'PersistedValue
-> f ToFunction'PersistedValue
fieldOf _
    = ((Maybe TypedValue -> f (Maybe TypedValue))
 -> ToFunction'PersistedValue -> f ToFunction'PersistedValue)
-> ((TypedValue -> f TypedValue)
    -> Maybe TypedValue -> f (Maybe TypedValue))
-> (TypedValue -> f TypedValue)
-> ToFunction'PersistedValue
-> f ToFunction'PersistedValue
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ToFunction'PersistedValue -> Maybe TypedValue)
-> (ToFunction'PersistedValue
    -> Maybe TypedValue -> ToFunction'PersistedValue)
-> Lens
     ToFunction'PersistedValue
     ToFunction'PersistedValue
     (Maybe TypedValue)
     (Maybe TypedValue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ToFunction'PersistedValue -> Maybe TypedValue
_ToFunction'PersistedValue'stateValue
           (\ x__ :: ToFunction'PersistedValue
x__ y__ :: Maybe TypedValue
y__ -> ToFunction'PersistedValue
x__ {_ToFunction'PersistedValue'stateValue :: Maybe TypedValue
_ToFunction'PersistedValue'stateValue = Maybe TypedValue
y__}))
        (TypedValue -> Lens' (Maybe TypedValue) TypedValue
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens TypedValue
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField ToFunction'PersistedValue "maybe'stateValue" (Prelude.Maybe TypedValue) where
  fieldOf :: Proxy# "maybe'stateValue"
-> (Maybe TypedValue -> f (Maybe TypedValue))
-> ToFunction'PersistedValue
-> f ToFunction'PersistedValue
fieldOf _
    = ((Maybe TypedValue -> f (Maybe TypedValue))
 -> ToFunction'PersistedValue -> f ToFunction'PersistedValue)
-> ((Maybe TypedValue -> f (Maybe TypedValue))
    -> Maybe TypedValue -> f (Maybe TypedValue))
-> (Maybe TypedValue -> f (Maybe TypedValue))
-> ToFunction'PersistedValue
-> f ToFunction'PersistedValue
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ToFunction'PersistedValue -> Maybe TypedValue)
-> (ToFunction'PersistedValue
    -> Maybe TypedValue -> ToFunction'PersistedValue)
-> Lens
     ToFunction'PersistedValue
     ToFunction'PersistedValue
     (Maybe TypedValue)
     (Maybe TypedValue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ToFunction'PersistedValue -> Maybe TypedValue
_ToFunction'PersistedValue'stateValue
           (\ x__ :: ToFunction'PersistedValue
x__ y__ :: Maybe TypedValue
y__ -> ToFunction'PersistedValue
x__ {_ToFunction'PersistedValue'stateValue :: Maybe TypedValue
_ToFunction'PersistedValue'stateValue = Maybe TypedValue
y__}))
        (Maybe TypedValue -> f (Maybe TypedValue))
-> Maybe TypedValue -> f (Maybe TypedValue)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message ToFunction'PersistedValue where
  messageName :: Proxy ToFunction'PersistedValue -> Text
messageName _
    = String -> Text
Data.Text.pack
        "io.statefun.sdk.reqreply.ToFunction.PersistedValue"
  packedMessageDescriptor :: Proxy ToFunction'PersistedValue -> ByteString
packedMessageDescriptor _
    = "\n\
      \\SOPersistedValue\DC2\GS\n\
      \\n\
      \state_name\CAN\SOH \SOH(\tR\tstateName\DC2E\n\
      \\vstate_value\CAN\STX \SOH(\v2$.io.statefun.sdk.reqreply.TypedValueR\n\
      \stateValue"
  packedFileDescriptor :: Proxy ToFunction'PersistedValue -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor ToFunction'PersistedValue)
fieldsByTag
    = let
        stateName__field_descriptor :: FieldDescriptor ToFunction'PersistedValue
stateName__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor ToFunction'PersistedValue Text
-> FieldDescriptor ToFunction'PersistedValue
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "state_name"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (WireDefault Text
-> Lens
     ToFunction'PersistedValue ToFunction'PersistedValue Text Text
-> FieldAccessor ToFunction'PersistedValue Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
                 (forall s a (f :: * -> *).
(HasField s "stateName" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"stateName")) ::
              Data.ProtoLens.FieldDescriptor ToFunction'PersistedValue
        stateValue__field_descriptor :: FieldDescriptor ToFunction'PersistedValue
stateValue__field_descriptor
          = String
-> FieldTypeDescriptor TypedValue
-> FieldAccessor ToFunction'PersistedValue TypedValue
-> FieldDescriptor ToFunction'PersistedValue
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "state_value"
              (MessageOrGroup -> FieldTypeDescriptor TypedValue
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor TypedValue)
              (Lens
  ToFunction'PersistedValue
  ToFunction'PersistedValue
  (Maybe TypedValue)
  (Maybe TypedValue)
-> FieldAccessor ToFunction'PersistedValue TypedValue
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'stateValue" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'stateValue")) ::
              Data.ProtoLens.FieldDescriptor ToFunction'PersistedValue
      in
        [(Tag, FieldDescriptor ToFunction'PersistedValue)]
-> Map Tag (FieldDescriptor ToFunction'PersistedValue)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor ToFunction'PersistedValue
stateName__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor ToFunction'PersistedValue
stateValue__field_descriptor)]
  unknownFields :: LensLike' f ToFunction'PersistedValue FieldSet
unknownFields
    = (ToFunction'PersistedValue -> FieldSet)
-> (ToFunction'PersistedValue
    -> FieldSet -> ToFunction'PersistedValue)
-> Lens' ToFunction'PersistedValue FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        ToFunction'PersistedValue -> FieldSet
_ToFunction'PersistedValue'_unknownFields
        (\ x__ :: ToFunction'PersistedValue
x__ y__ :: FieldSet
y__
           -> ToFunction'PersistedValue
x__ {_ToFunction'PersistedValue'_unknownFields :: FieldSet
_ToFunction'PersistedValue'_unknownFields = FieldSet
y__})
  defMessage :: ToFunction'PersistedValue
defMessage
    = $WToFunction'PersistedValue'_constructor :: Text -> Maybe TypedValue -> FieldSet -> ToFunction'PersistedValue
ToFunction'PersistedValue'_constructor
        {_ToFunction'PersistedValue'stateName :: Text
_ToFunction'PersistedValue'stateName = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _ToFunction'PersistedValue'stateValue :: Maybe TypedValue
_ToFunction'PersistedValue'stateValue = Maybe TypedValue
forall a. Maybe a
Prelude.Nothing,
         _ToFunction'PersistedValue'_unknownFields :: FieldSet
_ToFunction'PersistedValue'_unknownFields = []}
  parseMessage :: Parser ToFunction'PersistedValue
parseMessage
    = let
        loop ::
          ToFunction'PersistedValue
          -> Data.ProtoLens.Encoding.Bytes.Parser ToFunction'PersistedValue
        loop :: ToFunction'PersistedValue -> Parser ToFunction'PersistedValue
loop x :: ToFunction'PersistedValue
x
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  "Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      ToFunction'PersistedValue -> Parser ToFunction'PersistedValue
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter
  ToFunction'PersistedValue
  ToFunction'PersistedValue
  FieldSet
  FieldSet
-> (FieldSet -> FieldSet)
-> ToFunction'PersistedValue
-> ToFunction'PersistedValue
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           forall msg. Message msg => Lens' msg FieldSet
Setter
  ToFunction'PersistedValue
  ToFunction'PersistedValue
  FieldSet
  FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) ToFunction'PersistedValue
x)
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        10
                          -> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                       Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                                         (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                           Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
                                             (case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
                                                (Prelude.Left err :: UnicodeException
err)
                                                  -> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
                                                (Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
                                       "state_name"
                                ToFunction'PersistedValue -> Parser ToFunction'PersistedValue
loop
                                  (Setter
  ToFunction'PersistedValue ToFunction'PersistedValue Text Text
-> Text -> ToFunction'PersistedValue -> ToFunction'PersistedValue
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "stateName" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"stateName") Text
y ToFunction'PersistedValue
x)
                        18
                          -> do TypedValue
y <- Parser TypedValue -> String -> Parser TypedValue
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser TypedValue -> Parser TypedValue
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser TypedValue
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       "state_value"
                                ToFunction'PersistedValue -> Parser ToFunction'PersistedValue
loop
                                  (Setter
  ToFunction'PersistedValue
  ToFunction'PersistedValue
  TypedValue
  TypedValue
-> TypedValue
-> ToFunction'PersistedValue
-> ToFunction'PersistedValue
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "stateValue" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"stateValue") TypedValue
y ToFunction'PersistedValue
x)
                        wire :: Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                ToFunction'PersistedValue -> Parser ToFunction'PersistedValue
loop
                                  (Setter
  ToFunction'PersistedValue
  ToFunction'PersistedValue
  FieldSet
  FieldSet
-> (FieldSet -> FieldSet)
-> ToFunction'PersistedValue
-> ToFunction'PersistedValue
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     forall msg. Message msg => Lens' msg FieldSet
Setter
  ToFunction'PersistedValue
  ToFunction'PersistedValue
  FieldSet
  FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) ToFunction'PersistedValue
x)
      in
        Parser ToFunction'PersistedValue
-> String -> Parser ToFunction'PersistedValue
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do ToFunction'PersistedValue -> Parser ToFunction'PersistedValue
loop ToFunction'PersistedValue
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "PersistedValue"
  buildMessage :: ToFunction'PersistedValue -> Builder
buildMessage
    = \ _x :: ToFunction'PersistedValue
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: Text
_v = FoldLike
  Text ToFunction'PersistedValue ToFunction'PersistedValue Text Text
-> ToFunction'PersistedValue -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "stateName" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"stateName") ToFunction'PersistedValue
_x
              in
                if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
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 10)
                      ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                         (\ bs :: 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))
                         Text -> ByteString
Data.Text.Encoding.encodeUtf8
                         Text
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (case
                     FoldLike
  (Maybe TypedValue)
  ToFunction'PersistedValue
  ToFunction'PersistedValue
  (Maybe TypedValue)
  (Maybe TypedValue)
-> ToFunction'PersistedValue -> Maybe TypedValue
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                       (forall s a (f :: * -> *).
(HasField s "maybe'stateValue" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'stateValue") ToFunction'PersistedValue
_x
                 of
                   Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   (Prelude.Just _v :: TypedValue
_v)
                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 18)
                          ((ByteString -> Builder)
-> (TypedValue -> ByteString) -> TypedValue -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                             (\ bs :: 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))
                             TypedValue -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                             TypedValue
_v))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike
  FieldSet
  ToFunction'PersistedValue
  ToFunction'PersistedValue
  FieldSet
  FieldSet
-> ToFunction'PersistedValue -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  ToFunction'PersistedValue
  ToFunction'PersistedValue
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields ToFunction'PersistedValue
_x)))
instance Control.DeepSeq.NFData ToFunction'PersistedValue where
  rnf :: ToFunction'PersistedValue -> ()
rnf
    = \ x__ :: ToFunction'PersistedValue
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (ToFunction'PersistedValue -> FieldSet
_ToFunction'PersistedValue'_unknownFields ToFunction'PersistedValue
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (ToFunction'PersistedValue -> Text
_ToFunction'PersistedValue'stateName ToFunction'PersistedValue
x__)
                (Maybe TypedValue -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (ToFunction'PersistedValue -> Maybe TypedValue
_ToFunction'PersistedValue'stateValue ToFunction'PersistedValue
x__) ()))
{- | Fields :
     
         * 'Proto.RequestReply_Fields.typename' @:: Lens' TypedValue Data.Text.Text@
         * 'Proto.RequestReply_Fields.hasValue' @:: Lens' TypedValue Prelude.Bool@
         * 'Proto.RequestReply_Fields.value' @:: Lens' TypedValue Data.ByteString.ByteString@ -}
data TypedValue
  = TypedValue'_constructor {TypedValue -> Text
_TypedValue'typename :: !Data.Text.Text,
                             TypedValue -> Bool
_TypedValue'hasValue :: !Prelude.Bool,
                             TypedValue -> ByteString
_TypedValue'value :: !Data.ByteString.ByteString,
                             TypedValue -> FieldSet
_TypedValue'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (TypedValue -> TypedValue -> Bool
(TypedValue -> TypedValue -> Bool)
-> (TypedValue -> TypedValue -> Bool) -> Eq TypedValue
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: TypedValue -> TypedValue -> Bool
$c/= :: TypedValue -> TypedValue -> Bool
== :: TypedValue -> TypedValue -> Bool
$c== :: TypedValue -> TypedValue -> Bool
Prelude.Eq, Eq TypedValue
Eq TypedValue =>
(TypedValue -> TypedValue -> Ordering)
-> (TypedValue -> TypedValue -> Bool)
-> (TypedValue -> TypedValue -> Bool)
-> (TypedValue -> TypedValue -> Bool)
-> (TypedValue -> TypedValue -> Bool)
-> (TypedValue -> TypedValue -> TypedValue)
-> (TypedValue -> TypedValue -> TypedValue)
-> Ord TypedValue
TypedValue -> TypedValue -> Bool
TypedValue -> TypedValue -> Ordering
TypedValue -> TypedValue -> TypedValue
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
min :: TypedValue -> TypedValue -> TypedValue
$cmin :: TypedValue -> TypedValue -> TypedValue
max :: TypedValue -> TypedValue -> TypedValue
$cmax :: TypedValue -> TypedValue -> TypedValue
>= :: TypedValue -> TypedValue -> Bool
$c>= :: TypedValue -> TypedValue -> Bool
> :: TypedValue -> TypedValue -> Bool
$c> :: TypedValue -> TypedValue -> Bool
<= :: TypedValue -> TypedValue -> Bool
$c<= :: TypedValue -> TypedValue -> Bool
< :: TypedValue -> TypedValue -> Bool
$c< :: TypedValue -> TypedValue -> Bool
compare :: TypedValue -> TypedValue -> Ordering
$ccompare :: TypedValue -> TypedValue -> Ordering
$cp1Ord :: Eq TypedValue
Prelude.Ord)
instance Prelude.Show TypedValue where
  showsPrec :: Int -> TypedValue -> ShowS
showsPrec _ __x :: TypedValue
__x __s :: String
__s
    = Char -> ShowS
Prelude.showChar
        '{'
        (String -> ShowS
Prelude.showString
           (TypedValue -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort TypedValue
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField TypedValue "typename" Data.Text.Text where
  fieldOf :: Proxy# "typename" -> (Text -> f Text) -> TypedValue -> f TypedValue
fieldOf _
    = ((Text -> f Text) -> TypedValue -> f TypedValue)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> TypedValue
-> f TypedValue
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((TypedValue -> Text)
-> (TypedValue -> Text -> TypedValue)
-> Lens TypedValue TypedValue Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           TypedValue -> Text
_TypedValue'typename
           (\ x__ :: TypedValue
x__ y__ :: Text
y__ -> TypedValue
x__ {_TypedValue'typename :: Text
_TypedValue'typename = Text
y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField TypedValue "hasValue" Prelude.Bool where
  fieldOf :: Proxy# "hasValue" -> (Bool -> f Bool) -> TypedValue -> f TypedValue
fieldOf _
    = ((Bool -> f Bool) -> TypedValue -> f TypedValue)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> TypedValue
-> f TypedValue
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((TypedValue -> Bool)
-> (TypedValue -> Bool -> TypedValue)
-> Lens TypedValue TypedValue Bool Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           TypedValue -> Bool
_TypedValue'hasValue
           (\ x__ :: TypedValue
x__ y__ :: Bool
y__ -> TypedValue
x__ {_TypedValue'hasValue :: Bool
_TypedValue'hasValue = Bool
y__}))
        (Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField TypedValue "value" Data.ByteString.ByteString where
  fieldOf :: Proxy# "value"
-> (ByteString -> f ByteString) -> TypedValue -> f TypedValue
fieldOf _
    = ((ByteString -> f ByteString) -> TypedValue -> f TypedValue)
-> ((ByteString -> f ByteString) -> ByteString -> f ByteString)
-> (ByteString -> f ByteString)
-> TypedValue
-> f TypedValue
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((TypedValue -> ByteString)
-> (TypedValue -> ByteString -> TypedValue)
-> Lens TypedValue TypedValue ByteString ByteString
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           TypedValue -> ByteString
_TypedValue'value (\ x__ :: TypedValue
x__ y__ :: ByteString
y__ -> TypedValue
x__ {_TypedValue'value :: ByteString
_TypedValue'value = ByteString
y__}))
        (ByteString -> f ByteString) -> ByteString -> f ByteString
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message TypedValue where
  messageName :: Proxy TypedValue -> Text
messageName _
    = String -> Text
Data.Text.pack "io.statefun.sdk.reqreply.TypedValue"
  packedMessageDescriptor :: Proxy TypedValue -> ByteString
packedMessageDescriptor _
    = "\n\
      \\n\
      \TypedValue\DC2\SUB\n\
      \\btypename\CAN\SOH \SOH(\tR\btypename\DC2\ESC\n\
      \\thas_value\CAN\STX \SOH(\bR\bhasValue\DC2\DC4\n\
      \\ENQvalue\CAN\ETX \SOH(\fR\ENQvalue"
  packedFileDescriptor :: Proxy TypedValue -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor TypedValue)
fieldsByTag
    = let
        typename__field_descriptor :: FieldDescriptor TypedValue
typename__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor TypedValue Text
-> FieldDescriptor TypedValue
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "typename"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (WireDefault Text
-> Lens TypedValue TypedValue Text Text
-> FieldAccessor TypedValue Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
                 (forall s a (f :: * -> *).
(HasField s "typename" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"typename")) ::
              Data.ProtoLens.FieldDescriptor TypedValue
        hasValue__field_descriptor :: FieldDescriptor TypedValue
hasValue__field_descriptor
          = String
-> FieldTypeDescriptor Bool
-> FieldAccessor TypedValue Bool
-> FieldDescriptor TypedValue
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "has_value"
              (ScalarField Bool -> FieldTypeDescriptor Bool
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Bool
Data.ProtoLens.BoolField ::
                 Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
              (WireDefault Bool
-> Lens TypedValue TypedValue Bool Bool
-> FieldAccessor TypedValue Bool
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Bool
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
                 (forall s a (f :: * -> *).
(HasField s "hasValue" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"hasValue")) ::
              Data.ProtoLens.FieldDescriptor TypedValue
        value__field_descriptor :: FieldDescriptor TypedValue
value__field_descriptor
          = String
-> FieldTypeDescriptor ByteString
-> FieldAccessor TypedValue ByteString
-> FieldDescriptor TypedValue
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "value"
              (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 TypedValue TypedValue ByteString ByteString
-> FieldAccessor TypedValue 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 s a (f :: * -> *).
(HasField s "value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value")) ::
              Data.ProtoLens.FieldDescriptor TypedValue
      in
        [(Tag, FieldDescriptor TypedValue)]
-> Map Tag (FieldDescriptor TypedValue)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor TypedValue
typename__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor TypedValue
hasValue__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 3, FieldDescriptor TypedValue
value__field_descriptor)]
  unknownFields :: LensLike' f TypedValue FieldSet
unknownFields
    = (TypedValue -> FieldSet)
-> (TypedValue -> FieldSet -> TypedValue)
-> Lens' TypedValue FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        TypedValue -> FieldSet
_TypedValue'_unknownFields
        (\ x__ :: TypedValue
x__ y__ :: FieldSet
y__ -> TypedValue
x__ {_TypedValue'_unknownFields :: FieldSet
_TypedValue'_unknownFields = FieldSet
y__})
  defMessage :: TypedValue
defMessage
    = $WTypedValue'_constructor :: Text -> Bool -> ByteString -> FieldSet -> TypedValue
TypedValue'_constructor
        {_TypedValue'typename :: Text
_TypedValue'typename = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _TypedValue'hasValue :: Bool
_TypedValue'hasValue = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _TypedValue'value :: ByteString
_TypedValue'value = ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _TypedValue'_unknownFields :: FieldSet
_TypedValue'_unknownFields = []}
  parseMessage :: Parser TypedValue
parseMessage
    = let
        loop ::
          TypedValue -> Data.ProtoLens.Encoding.Bytes.Parser TypedValue
        loop :: TypedValue -> Parser TypedValue
loop x :: TypedValue
x
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  "Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      TypedValue -> Parser TypedValue
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter TypedValue TypedValue FieldSet FieldSet
-> (FieldSet -> FieldSet) -> TypedValue -> TypedValue
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           forall msg. Message msg => Lens' msg FieldSet
Setter TypedValue TypedValue FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) TypedValue
x)
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        10
                          -> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                       Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                                         (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                           Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
                                             (case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
                                                (Prelude.Left err :: UnicodeException
err)
                                                  -> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
                                                (Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
                                       "typename"
                                TypedValue -> Parser TypedValue
loop
                                  (Setter TypedValue TypedValue Text Text
-> Text -> TypedValue -> TypedValue
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "typename" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"typename") Text
y TypedValue
x)
                        16
                          -> do Bool
y <- Parser Bool -> String -> Parser Bool
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Bool) -> Parser Word64 -> Parser Bool
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          (Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude./=) 0) Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       "has_value"
                                TypedValue -> Parser TypedValue
loop
                                  (Setter TypedValue TypedValue Bool Bool
-> Bool -> TypedValue -> TypedValue
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "hasValue" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"hasValue") Bool
y TypedValue
x)
                        26
                          -> do ByteString
y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len))
                                       "value"
                                TypedValue -> Parser TypedValue
loop (Setter TypedValue TypedValue ByteString ByteString
-> ByteString -> TypedValue -> TypedValue
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value") ByteString
y TypedValue
x)
                        wire :: Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                TypedValue -> Parser TypedValue
loop
                                  (Setter TypedValue TypedValue FieldSet FieldSet
-> (FieldSet -> FieldSet) -> TypedValue -> TypedValue
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     forall msg. Message msg => Lens' msg FieldSet
Setter TypedValue TypedValue FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) TypedValue
x)
      in
        Parser TypedValue -> String -> Parser TypedValue
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do TypedValue -> Parser TypedValue
loop TypedValue
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "TypedValue"
  buildMessage :: TypedValue -> Builder
buildMessage
    = \ _x :: TypedValue
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: Text
_v = FoldLike Text TypedValue TypedValue Text Text -> TypedValue -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "typename" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"typename") TypedValue
_x
              in
                if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
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 10)
                      ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                         (\ bs :: 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))
                         Text -> ByteString
Data.Text.Encoding.encodeUtf8
                         Text
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (let
                   _v :: Bool
_v = FoldLike Bool TypedValue TypedValue Bool Bool -> TypedValue -> Bool
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "hasValue" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"hasValue") TypedValue
_x
                 in
                   if Bool -> Bool -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Bool
_v Bool
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 16)
                         ((Word64 -> Builder) -> (Bool -> Word64) -> Bool -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                            Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                            (\ b :: Bool
b -> if Bool
b then 1 else 0)
                            Bool
_v))
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   (let
                      _v :: ByteString
_v = FoldLike ByteString TypedValue TypedValue ByteString ByteString
-> TypedValue -> ByteString
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value") TypedValue
_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 26)
                            ((\ bs :: 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 TypedValue TypedValue FieldSet FieldSet
-> TypedValue -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet TypedValue TypedValue FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields TypedValue
_x))))
instance Control.DeepSeq.NFData TypedValue where
  rnf :: TypedValue -> ()
rnf
    = \ x__ :: TypedValue
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (TypedValue -> FieldSet
_TypedValue'_unknownFields TypedValue
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (TypedValue -> Text
_TypedValue'typename TypedValue
x__)
                (Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (TypedValue -> Bool
_TypedValue'hasValue TypedValue
x__)
                   (ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (TypedValue -> ByteString
_TypedValue'value TypedValue
x__) ())))
packedFileDescriptor :: Data.ByteString.ByteString
packedFileDescriptor :: ByteString
packedFileDescriptor
  = "\n\
    \\DC2RequestReply.proto\DC2\CANio.statefun.sdk.reqreply\"K\n\
    \\aAddress\DC2\FS\n\
    \\tnamespace\CAN\SOH \SOH(\tR\tnamespace\DC2\DC2\n\
    \\EOTtype\CAN\STX \SOH(\tR\EOTtype\DC2\SO\n\
    \\STXid\CAN\ETX \SOH(\tR\STXid\"[\n\
    \\n\
    \TypedValue\DC2\SUB\n\
    \\btypename\CAN\SOH \SOH(\tR\btypename\DC2\ESC\n\
    \\thas_value\CAN\STX \SOH(\bR\bhasValue\DC2\DC4\n\
    \\ENQvalue\CAN\ETX \SOH(\fR\ENQvalue\"\238\EOT\n\
    \\n\
    \ToFunction\DC2]\n\
    \\n\
    \invocation\CANd \SOH(\v2;.io.statefun.sdk.reqreply.ToFunction.InvocationBatchRequestH\NULR\n\
    \invocation\SUBv\n\
    \\SOPersistedValue\DC2\GS\n\
    \\n\
    \state_name\CAN\SOH \SOH(\tR\tstateName\DC2E\n\
    \\vstate_value\CAN\STX \SOH(\v2$.io.statefun.sdk.reqreply.TypedValueR\n\
    \stateValue\SUB\137\SOH\n\
    \\n\
    \Invocation\DC29\n\
    \\ACKcaller\CAN\SOH \SOH(\v2!.io.statefun.sdk.reqreply.AddressR\ACKcaller\DC2@\n\
    \\bargument\CAN\STX \SOH(\v2$.io.statefun.sdk.reqreply.TypedValueR\bargument\SUB\241\SOH\n\
    \\SYNInvocationBatchRequest\DC29\n\
    \\ACKtarget\CAN\SOH \SOH(\v2!.io.statefun.sdk.reqreply.AddressR\ACKtarget\DC2I\n\
    \\ENQstate\CAN\STX \ETX(\v23.io.statefun.sdk.reqreply.ToFunction.PersistedValueR\ENQstate\DC2Q\n\
    \\vinvocations\CAN\ETX \ETX(\v2/.io.statefun.sdk.reqreply.ToFunction.InvocationR\vinvocationsB\t\n\
    \\arequest\"\197\SI\n\
    \\fFromFunction\DC2h\n\
    \\DC1invocation_result\CANd \SOH(\v29.io.statefun.sdk.reqreply.FromFunction.InvocationResponseH\NULR\DLEinvocationResult\DC2\136\SOH\n\
    \\GSincomplete_invocation_context\CANe \SOH(\v2B.io.statefun.sdk.reqreply.FromFunction.IncompleteInvocationContextH\NULR\ESCincompleteInvocationContext\SUB\151\STX\n\
    \\SYNPersistedValueMutation\DC2o\n\
    \\rmutation_type\CAN\SOH \SOH(\SO2J.io.statefun.sdk.reqreply.FromFunction.PersistedValueMutation.MutationTypeR\fmutationType\DC2\GS\n\
    \\n\
    \state_name\CAN\STX \SOH(\tR\tstateName\DC2E\n\
    \\vstate_value\CAN\ETX \SOH(\v2$.io.statefun.sdk.reqreply.TypedValueR\n\
    \stateValue\"&\n\
    \\fMutationType\DC2\n\
    \\n\
    \\ACKDELETE\DLE\NUL\DC2\n\
    \\n\
    \\ACKMODIFY\DLE\SOH\SUB\137\SOH\n\
    \\n\
    \Invocation\DC29\n\
    \\ACKtarget\CAN\SOH \SOH(\v2!.io.statefun.sdk.reqreply.AddressR\ACKtarget\DC2@\n\
    \\bargument\CAN\STX \SOH(\v2$.io.statefun.sdk.reqreply.TypedValueR\bargument\SUB\176\SOH\n\
    \\DC1DelayedInvocation\DC2\RS\n\
    \\vdelay_in_ms\CAN\SOH \SOH(\ETXR\tdelayInMs\DC29\n\
    \\ACKtarget\CAN\STX \SOH(\v2!.io.statefun.sdk.reqreply.AddressR\ACKtarget\DC2@\n\
    \\bargument\CAN\ETX \SOH(\v2$.io.statefun.sdk.reqreply.TypedValueR\bargument\SUB\157\SOH\n\
    \\rEgressMessage\DC2)\n\
    \\DLEegress_namespace\CAN\SOH \SOH(\tR\SIegressNamespace\DC2\US\n\
    \\vegress_type\CAN\STX \SOH(\tR\n\
    \egressType\DC2@\n\
    \\bargument\CAN\ETX \SOH(\v2$.io.statefun.sdk.reqreply.TypedValueR\bargument\SUB\170\ETX\n\
    \\DC2InvocationResponse\DC2f\n\
    \\SIstate_mutations\CAN\SOH \ETX(\v2=.io.statefun.sdk.reqreply.FromFunction.PersistedValueMutationR\SOstateMutations\DC2^\n\
    \\DC1outgoing_messages\CAN\STX \ETX(\v21.io.statefun.sdk.reqreply.FromFunction.InvocationR\DLEoutgoingMessages\DC2i\n\
    \\DC3delayed_invocations\CAN\ETX \ETX(\v28.io.statefun.sdk.reqreply.FromFunction.DelayedInvocationR\DC2delayedInvocations\DC2a\n\
    \\DC1outgoing_egresses\CAN\EOT \ETX(\v24.io.statefun.sdk.reqreply.FromFunction.EgressMessageR\DLEoutgoingEgresses\SUB\209\SOH\n\
    \\SOExpirationSpec\DC2T\n\
    \\EOTmode\CAN\SOH \SOH(\SO2@.io.statefun.sdk.reqreply.FromFunction.ExpirationSpec.ExpireModeR\EOTmode\DC2.\n\
    \\DC3expire_after_millis\CAN\STX \SOH(\ETXR\DC1expireAfterMillis\"9\n\
    \\n\
    \ExpireMode\DC2\b\n\
    \\EOTNONE\DLE\NUL\DC2\SI\n\
    \\vAFTER_WRITE\DLE\SOH\DC2\DLE\n\
    \\fAFTER_INVOKE\DLE\STX\SUB\184\SOH\n\
    \\DC2PersistedValueSpec\DC2\GS\n\
    \\n\
    \state_name\CAN\SOH \SOH(\tR\tstateName\DC2^\n\
    \\SIexpiration_spec\CAN\STX \SOH(\v25.io.statefun.sdk.reqreply.FromFunction.ExpirationSpecR\SOexpirationSpec\DC2#\n\
    \\rtype_typename\CAN\ETX \SOH(\tR\ftypeTypename\SUB\DEL\n\
    \\ESCIncompleteInvocationContext\DC2`\n\
    \\SOmissing_values\CAN\SOH \ETX(\v29.io.statefun.sdk.reqreply.FromFunction.PersistedValueSpecR\rmissingValuesB\n\
    \\n\
    \\bresponseB4\n\
    \0org.apache.flink.statefun.sdk.reqreply.generatedP\SOHJ\175@\n\
    \\a\DC2\ENQ\DC2\SOH\179\SOH\STX\n\
    \\141\ACK\n\
    \\SOH\f\DC2\ETX\DC2\SOH\DC32\130\ACK\n\
    \ Licensed to the Apache Software Foundation (ASF) under one\n\
    \ or more contributor license agreements.  See the NOTICE file\n\
    \ distributed with this work for additional information\n\
    \ regarding copyright ownership.  The ASF licenses this file\n\
    \ to you under the Apache License, Version 2.0 (the\n\
    \ \"License\"); you may not use this file except in compliance\n\
    \ with the License.  You may obtain a copy of the License at\n\
    \\n\
    \     http://www.apache.org/licenses/LICENSE-2.0\n\
    \\n\
    \ Unless required by applicable law or agreed to in writing, software\n\
    \ distributed under the License is distributed on an \"AS IS\" BASIS,\n\
    \ WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.\n\
    \ See the License for the specific language governing permissions and\n\
    \ limitations under the License.\n\
    \\n\
    \\b\n\
    \\SOH\STX\DC2\ETX\DC4\SOH\"\n\
    \\b\n\
    \\SOH\b\DC2\ETX\SYN\SOHJ\n\
    \\t\n\
    \\STX\b\SOH\DC2\ETX\SYN\SOHJ\n\
    \\b\n\
    \\SOH\b\DC2\ETX\ETB\SOH#\n\
    \\t\n\
    \\STX\b\n\
    \\DC2\ETX\ETB\SOH#\n\
    \\187\EOT\n\
    \\STX\EOT\NUL\DC2\EOT!\SOH%\STX\SUB\165\STX An Address is the unique identity of an individual StatefulFunction, containing\n\
    \ a function's type and an unique identifier within the type. The function's\n\
    \ type denotes the \"class\" of function to invoke, while the unique identifier addresses the\n\
    \ invocation to a specific function instance.\n\
    \2\134\STX -------------------------------------------------------------------------------------------------------------------\n\
    \ Common message definitions\n\
    \ -------------------------------------------------------------------------------------------------------------------\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\NUL\SOH\DC2\ETX!\t\DLE\n\
    \\v\n\
    \\EOT\EOT\NUL\STX\NUL\DC2\ETX\"\ENQ\SUB\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\ENQ\DC2\ETX\"\ENQ\v\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\SOH\DC2\ETX\"\f\NAK\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\ETX\DC2\ETX\"\CAN\EM\n\
    \\v\n\
    \\EOT\EOT\NUL\STX\SOH\DC2\ETX#\ENQ\NAK\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\SOH\ENQ\DC2\ETX#\ENQ\v\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\SOH\SOH\DC2\ETX#\f\DLE\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\SOH\ETX\DC2\ETX#\DC3\DC4\n\
    \\v\n\
    \\EOT\EOT\NUL\STX\STX\DC2\ETX$\ENQ\DC3\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\STX\ENQ\DC2\ETX$\ENQ\v\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\STX\SOH\DC2\ETX$\f\SO\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\STX\ETX\DC2\ETX$\DC1\DC2\n\
    \\n\
    \\n\
    \\STX\EOT\SOH\DC2\EOT'\SOH-\STX\n\
    \\n\
    \\n\
    \\ETX\EOT\SOH\SOH\DC2\ETX'\t\DC3\n\
    \\v\n\
    \\EOT\EOT\SOH\STX\NUL\DC2\ETX(\ENQ\EM\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\NUL\ENQ\DC2\ETX(\ENQ\v\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\NUL\SOH\DC2\ETX(\f\DC4\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\NUL\ETX\DC2\ETX(\ETB\CAN\n\
    \t\n\
    \\EOT\EOT\SOH\STX\SOH\DC2\ETX+\ENQ\CAN\SUBg has_value is set to differentiate a zero length value bytes explicitly set,\n\
    \ or a non existing value.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\SOH\ENQ\DC2\ETX+\ENQ\t\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\SOH\SOH\DC2\ETX+\n\
    \\DC3\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\SOH\ETX\DC2\ETX+\SYN\ETB\n\
    \\v\n\
    \\EOT\EOT\SOH\STX\STX\DC2\ETX,\ENQ\NAK\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\STX\ENQ\DC2\ETX,\ENQ\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\STX\SOH\DC2\ETX,\v\DLE\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\STX\ETX\DC2\ETX,\DC3\DC4\n\
    \\134\ETX\n\
    \\STX\EOT\STX\DC2\EOT5\SOHU\STX\SUBg The following section contains all the message types that are sent \n\
    \ from Flink to a remote function.\n\
    \2\144\STX -------------------------------------------------------------------------------------------------------------------\n\
    \ Messages sent to a Remote Function  \n\
    \ -------------------------------------------------------------------------------------------------------------------\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\STX\SOH\DC2\ETX5\t\DC3\n\
    \|\n\
    \\EOT\EOT\STX\ETX\NUL\DC2\EOT7\ENQ<\ACK\SUBn PersistedValue represents a PersistedValue's value that is managed by Flink on behalf of a remote function. \n\
    \\n\
    \\f\n\
    \\ENQ\EOT\STX\ETX\NUL\SOH\DC2\ETX7\r\ESC\n\
    \8\n\
    \\ACK\EOT\STX\ETX\NUL\STX\NUL\DC2\ETX9\t\US\SUB) The unique name of the persisted state.\n\
    \\n\
    \\SO\n\
    \\a\EOT\STX\ETX\NUL\STX\NUL\ENQ\DC2\ETX9\t\SI\n\
    \\SO\n\
    \\a\EOT\STX\ETX\NUL\STX\NUL\SOH\DC2\ETX9\DLE\SUB\n\
    \\SO\n\
    \\a\EOT\STX\ETX\NUL\STX\NUL\ETX\DC2\ETX9\GS\RS\n\
    \+\n\
    \\ACK\EOT\STX\ETX\NUL\STX\SOH\DC2\ETX;\t$\SUB\FS The serialized state value\n\
    \\n\
    \\SO\n\
    \\a\EOT\STX\ETX\NUL\STX\SOH\ACK\DC2\ETX;\t\DC3\n\
    \\SO\n\
    \\a\EOT\STX\ETX\NUL\STX\SOH\SOH\DC2\ETX;\DC4\US\n\
    \\SO\n\
    \\a\EOT\STX\ETX\NUL\STX\SOH\ETX\DC2\ETX;\"#\n\
    \\129\SOH\n\
    \\EOT\EOT\STX\ETX\SOH\DC2\EOT@\ENQE\ACK\SUBs Invocation represents a remote function call, it associated with an (optional) return address,\n\
    \ and an argument. \n\
    \\n\
    \\f\n\
    \\ENQ\EOT\STX\ETX\SOH\SOH\DC2\ETX@\r\ETB\n\
    \\\\n\
    \\ACK\EOT\STX\ETX\SOH\STX\NUL\DC2\ETXB\t\FS\SUBM The address of the function that requested the invocation (possibly absent)\n\
    \\n\
    \\SO\n\
    \\a\EOT\STX\ETX\SOH\STX\NUL\ACK\DC2\ETXB\t\DLE\n\
    \\SO\n\
    \\a\EOT\STX\ETX\SOH\STX\NUL\SOH\DC2\ETXB\DC1\ETB\n\
    \\SO\n\
    \\a\EOT\STX\ETX\SOH\STX\NUL\ETX\DC2\ETXB\SUB\ESC\n\
    \V\n\
    \\ACK\EOT\STX\ETX\SOH\STX\SOH\DC2\ETXD\t!\SUBG The invocation argument (aka the message sent to the target function)\n\
    \\n\
    \\SO\n\
    \\a\EOT\STX\ETX\SOH\STX\SOH\ACK\DC2\ETXD\t\DC3\n\
    \\SO\n\
    \\a\EOT\STX\ETX\SOH\STX\SOH\SOH\DC2\ETXD\DC4\FS\n\
    \\SO\n\
    \\a\EOT\STX\ETX\SOH\STX\SOH\ETX\DC2\ETXD\US \n\
    \\205\SOH\n\
    \\EOT\EOT\STX\ETX\STX\DC2\EOTI\ENQP\ACK\SUB\190\SOH InvocationBatchRequest represents a request to invoke a remote function. It is always associated with a target\n\
    \ address (the function to invoke), and a list of values for registered state.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\STX\ETX\STX\SOH\DC2\ETXI\r#\n\
    \6\n\
    \\ACK\EOT\STX\ETX\STX\STX\NUL\DC2\ETXK\t\FS\SUB' The address of the function to invoke\n\
    \\n\
    \\SO\n\
    \\a\EOT\STX\ETX\STX\STX\NUL\ACK\DC2\ETXK\t\DLE\n\
    \\SO\n\
    \\a\EOT\STX\ETX\STX\STX\NUL\SOH\DC2\ETXK\DC1\ETB\n\
    \\SO\n\
    \\a\EOT\STX\ETX\STX\STX\NUL\ETX\DC2\ETXK\SUB\ESC\n\
    \U\n\
    \\ACK\EOT\STX\ETX\STX\STX\SOH\DC2\ETXM\t+\SUBF A list of PersistedValues that were registered as a persisted state.\n\
    \\n\
    \\SO\n\
    \\a\EOT\STX\ETX\STX\STX\SOH\EOT\DC2\ETXM\t\DC1\n\
    \\SO\n\
    \\a\EOT\STX\ETX\STX\STX\SOH\ACK\DC2\ETXM\DC2 \n\
    \\SO\n\
    \\a\EOT\STX\ETX\STX\STX\SOH\SOH\DC2\ETXM!&\n\
    \\SO\n\
    \\a\EOT\STX\ETX\STX\STX\SOH\ETX\DC2\ETXM)*\n\
    \?\n\
    \\ACK\EOT\STX\ETX\STX\STX\STX\DC2\ETXO\t-\SUB0 A non empty (at least one) list of invocations\n\
    \\n\
    \\SO\n\
    \\a\EOT\STX\ETX\STX\STX\STX\EOT\DC2\ETXO\t\DC1\n\
    \\SO\n\
    \\a\EOT\STX\ETX\STX\STX\STX\ACK\DC2\ETXO\DC2\FS\n\
    \\SO\n\
    \\a\EOT\STX\ETX\STX\STX\STX\SOH\DC2\ETXO\GS(\n\
    \\SO\n\
    \\a\EOT\STX\ETX\STX\STX\STX\ETX\DC2\ETXO+,\n\
    \\f\n\
    \\EOT\EOT\STX\b\NUL\DC2\EOTR\ENQT\ACK\n\
    \\f\n\
    \\ENQ\EOT\STX\b\NUL\SOH\DC2\ETXR\v\DC2\n\
    \\v\n\
    \\EOT\EOT\STX\STX\NUL\DC2\ETXS\t1\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\NUL\ACK\DC2\ETXS\t\US\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\NUL\SOH\DC2\ETXS *\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\NUL\ETX\DC2\ETXS-0\n\
    \\247\STX\n\
    \\STX\EOT\ETX\DC2\ENQ\\\SOH\179\SOH\STX\SUBU The following section contains messages sent from a remote function back to Flink. \n\
    \2\146\STX -------------------------------------------------------------------------------------------------------------------\n\
    \ Messages sent from a Remote Function  \n\
    \ -------------------------------------------------------------------------------------------------------------------\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\ETX\SOH\DC2\ETX\\\t\NAK\n\
    \\146\SOH\n\
    \\EOT\EOT\ETX\ETX\NUL\DC2\EOT_\ENQg\ACK\SUB\131\SOH MutatePersistedValueCommand represents a command sent from a remote function to Flink,\n\
    \ requesting a change to a persisted value.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\ETX\ETX\NUL\SOH\DC2\ETX_\r#\n\
    \\SO\n\
    \\ACK\EOT\ETX\ETX\NUL\EOT\NUL\DC2\EOT`\tc\n\
    \\n\
    \\SO\n\
    \\a\EOT\ETX\ETX\NUL\EOT\NUL\SOH\DC2\ETX`\SO\SUB\n\
    \\SI\n\
    \\b\EOT\ETX\ETX\NUL\EOT\NUL\STX\NUL\DC2\ETXa\r\CAN\n\
    \\DLE\n\
    \\t\EOT\ETX\ETX\NUL\EOT\NUL\STX\NUL\SOH\DC2\ETXa\r\DC3\n\
    \\DLE\n\
    \\t\EOT\ETX\ETX\NUL\EOT\NUL\STX\NUL\STX\DC2\ETXa\SYN\ETB\n\
    \\SI\n\
    \\b\EOT\ETX\ETX\NUL\EOT\NUL\STX\SOH\DC2\ETXb\r\CAN\n\
    \\DLE\n\
    \\t\EOT\ETX\ETX\NUL\EOT\NUL\STX\SOH\SOH\DC2\ETXb\r\DC3\n\
    \\DLE\n\
    \\t\EOT\ETX\ETX\NUL\EOT\NUL\STX\SOH\STX\DC2\ETXb\SYN\ETB\n\
    \\r\n\
    \\ACK\EOT\ETX\ETX\NUL\STX\NUL\DC2\ETXd\t(\n\
    \\SO\n\
    \\a\EOT\ETX\ETX\NUL\STX\NUL\ACK\DC2\ETXd\t\NAK\n\
    \\SO\n\
    \\a\EOT\ETX\ETX\NUL\STX\NUL\SOH\DC2\ETXd\SYN#\n\
    \\SO\n\
    \\a\EOT\ETX\ETX\NUL\STX\NUL\ETX\DC2\ETXd&'\n\
    \\r\n\
    \\ACK\EOT\ETX\ETX\NUL\STX\SOH\DC2\ETXe\t\US\n\
    \\SO\n\
    \\a\EOT\ETX\ETX\NUL\STX\SOH\ENQ\DC2\ETXe\t\SI\n\
    \\SO\n\
    \\a\EOT\ETX\ETX\NUL\STX\SOH\SOH\DC2\ETXe\DLE\SUB\n\
    \\SO\n\
    \\a\EOT\ETX\ETX\NUL\STX\SOH\ETX\DC2\ETXe\GS\RS\n\
    \\r\n\
    \\ACK\EOT\ETX\ETX\NUL\STX\STX\DC2\ETXf\t$\n\
    \\SO\n\
    \\a\EOT\ETX\ETX\NUL\STX\STX\ACK\DC2\ETXf\t\DC3\n\
    \\SO\n\
    \\a\EOT\ETX\ETX\NUL\STX\STX\SOH\DC2\ETXf\DC4\US\n\
    \\SO\n\
    \\a\EOT\ETX\ETX\NUL\STX\STX\ETX\DC2\ETXf\"#\n\
    \\129\SOH\n\
    \\EOT\EOT\ETX\ETX\SOH\DC2\EOTk\ENQp\ACK\SUBs Invocation represents a remote function call, it associated with a (mandatory) target address,\n\
    \ and an argument. \n\
    \\n\
    \\f\n\
    \\ENQ\EOT\ETX\ETX\SOH\SOH\DC2\ETXk\r\ETB\n\
    \/\n\
    \\ACK\EOT\ETX\ETX\SOH\STX\NUL\DC2\ETXm\t\FS\SUB  The target function to invoke \n\
    \\n\
    \\SO\n\
    \\a\EOT\ETX\ETX\SOH\STX\NUL\ACK\DC2\ETXm\t\DLE\n\
    \\SO\n\
    \\a\EOT\ETX\ETX\SOH\STX\NUL\SOH\DC2\ETXm\DC1\ETB\n\
    \\SO\n\
    \\a\EOT\ETX\ETX\SOH\STX\NUL\ETX\DC2\ETXm\SUB\ESC\n\
    \V\n\
    \\ACK\EOT\ETX\ETX\SOH\STX\SOH\DC2\ETXo\t!\SUBG The invocation argument (aka the message sent to the target function)\n\
    \\n\
    \\SO\n\
    \\a\EOT\ETX\ETX\SOH\STX\SOH\ACK\DC2\ETXo\t\DC3\n\
    \\SO\n\
    \\a\EOT\ETX\ETX\SOH\STX\SOH\SOH\DC2\ETXo\DC4\FS\n\
    \\SO\n\
    \\a\EOT\ETX\ETX\SOH\STX\SOH\ETX\DC2\ETXo\US \n\
    \\178\SOH\n\
    \\EOT\EOT\ETX\ETX\STX\DC2\EOTt\ENQ{\ACK\SUB\163\SOH DelayedInvocation represents a delayed remote function call with a target address, an argument\n\
    \ and a delay in milliseconds, after which this message to be sent.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\ETX\ETX\STX\SOH\DC2\ETXt\r\RS\n\
    \O\n\
    \\ACK\EOT\ETX\ETX\STX\STX\NUL\DC2\ETXv\t\US\SUB@ the amount of milliseconds to wait before sending this message\n\
    \\n\
    \\SO\n\
    \\a\EOT\ETX\ETX\STX\STX\NUL\ENQ\DC2\ETXv\t\SO\n\
    \\SO\n\
    \\a\EOT\ETX\ETX\STX\STX\NUL\SOH\DC2\ETXv\SI\SUB\n\
    \\SO\n\
    \\a\EOT\ETX\ETX\STX\STX\NUL\ETX\DC2\ETXv\GS\RS\n\
    \;\n\
    \\ACK\EOT\ETX\ETX\STX\STX\SOH\DC2\ETXx\t\FS\SUB, the target address to send this message to\n\
    \\n\
    \\SO\n\
    \\a\EOT\ETX\ETX\STX\STX\SOH\ACK\DC2\ETXx\t\DLE\n\
    \\SO\n\
    \\a\EOT\ETX\ETX\STX\STX\SOH\SOH\DC2\ETXx\DC1\ETB\n\
    \\SO\n\
    \\a\EOT\ETX\ETX\STX\STX\SOH\ETX\DC2\ETXx\SUB\ESC\n\
    \(\n\
    \\ACK\EOT\ETX\ETX\STX\STX\STX\DC2\ETXz\t!\SUB\EM the invocation argument\n\
    \\n\
    \\SO\n\
    \\a\EOT\ETX\ETX\STX\STX\STX\ACK\DC2\ETXz\t\DC3\n\
    \\SO\n\
    \\a\EOT\ETX\ETX\STX\STX\STX\SOH\DC2\ETXz\DC4\FS\n\
    \\SO\n\
    \\a\EOT\ETX\ETX\STX\STX\STX\ETX\DC2\ETXz\US \n\
    \\209\SOH\n\
    \\EOT\EOT\ETX\ETX\ETX\DC2\ACK\128\SOH\ENQ\135\SOH\ACK\SUB\192\SOH EgressMessage an argument to forward to an egress.\n\
    \ An egress is identified by a namespace and type (see EgressIdentifier SDK class).\n\
    \ The argument is an io.statefun.sdk.reqreply.TypedValue.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\ETX\ETX\ETX\SOH\DC2\EOT\128\SOH\r\SUB\n\
    \-\n\
    \\ACK\EOT\ETX\ETX\ETX\STX\NUL\DC2\EOT\130\SOH\t%\SUB\GS The target egress namespace\n\
    \\n\
    \\SI\n\
    \\a\EOT\ETX\ETX\ETX\STX\NUL\ENQ\DC2\EOT\130\SOH\t\SI\n\
    \\SI\n\
    \\a\EOT\ETX\ETX\ETX\STX\NUL\SOH\DC2\EOT\130\SOH\DLE \n\
    \\SI\n\
    \\a\EOT\ETX\ETX\ETX\STX\NUL\ETX\DC2\EOT\130\SOH#$\n\
    \(\n\
    \\ACK\EOT\ETX\ETX\ETX\STX\SOH\DC2\EOT\132\SOH\t \SUB\CAN The target egress type\n\
    \\n\
    \\SI\n\
    \\a\EOT\ETX\ETX\ETX\STX\SOH\ENQ\DC2\EOT\132\SOH\t\SI\n\
    \\SI\n\
    \\a\EOT\ETX\ETX\ETX\STX\SOH\SOH\DC2\EOT\132\SOH\DLE\ESC\n\
    \\SI\n\
    \\a\EOT\ETX\ETX\ETX\STX\SOH\ETX\DC2\EOT\132\SOH\RS\US\n\
    \!\n\
    \\ACK\EOT\ETX\ETX\ETX\STX\STX\DC2\EOT\134\SOH\t!\SUB\DC1 egress argument\n\
    \\n\
    \\SI\n\
    \\a\EOT\ETX\ETX\ETX\STX\STX\ACK\DC2\EOT\134\SOH\t\DC3\n\
    \\SI\n\
    \\a\EOT\ETX\ETX\ETX\STX\STX\SOH\DC2\EOT\134\SOH\DC4\FS\n\
    \\SI\n\
    \\a\EOT\ETX\ETX\ETX\STX\STX\ETX\DC2\EOT\134\SOH\US \n\
    \\241\SOH\n\
    \\EOT\EOT\ETX\ETX\EOT\DC2\ACK\139\SOH\ENQ\144\SOH\ACK\SUB\224\SOH InvocationResponse represents a result of an io.statefun.sdk.reqreply.ToFunction.InvocationBatchRequest\n\
    \ it contains a list of state mutation to preform as a result of computing this batch, and a list of outgoing messages.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\ETX\ETX\EOT\SOH\DC2\EOT\139\SOH\r\US\n\
    \\SO\n\
    \\ACK\EOT\ETX\ETX\EOT\STX\NUL\DC2\EOT\140\SOH\t=\n\
    \\SI\n\
    \\a\EOT\ETX\ETX\EOT\STX\NUL\EOT\DC2\EOT\140\SOH\t\DC1\n\
    \\SI\n\
    \\a\EOT\ETX\ETX\EOT\STX\NUL\ACK\DC2\EOT\140\SOH\DC2(\n\
    \\SI\n\
    \\a\EOT\ETX\ETX\EOT\STX\NUL\SOH\DC2\EOT\140\SOH)8\n\
    \\SI\n\
    \\a\EOT\ETX\ETX\EOT\STX\NUL\ETX\DC2\EOT\140\SOH;<\n\
    \\SO\n\
    \\ACK\EOT\ETX\ETX\EOT\STX\SOH\DC2\EOT\141\SOH\t3\n\
    \\SI\n\
    \\a\EOT\ETX\ETX\EOT\STX\SOH\EOT\DC2\EOT\141\SOH\t\DC1\n\
    \\SI\n\
    \\a\EOT\ETX\ETX\EOT\STX\SOH\ACK\DC2\EOT\141\SOH\DC2\FS\n\
    \\SI\n\
    \\a\EOT\ETX\ETX\EOT\STX\SOH\SOH\DC2\EOT\141\SOH\GS.\n\
    \\SI\n\
    \\a\EOT\ETX\ETX\EOT\STX\SOH\ETX\DC2\EOT\141\SOH12\n\
    \\SO\n\
    \\ACK\EOT\ETX\ETX\EOT\STX\STX\DC2\EOT\142\SOH\t<\n\
    \\SI\n\
    \\a\EOT\ETX\ETX\EOT\STX\STX\EOT\DC2\EOT\142\SOH\t\DC1\n\
    \\SI\n\
    \\a\EOT\ETX\ETX\EOT\STX\STX\ACK\DC2\EOT\142\SOH\DC2#\n\
    \\SI\n\
    \\a\EOT\ETX\ETX\EOT\STX\STX\SOH\DC2\EOT\142\SOH$7\n\
    \\SI\n\
    \\a\EOT\ETX\ETX\EOT\STX\STX\ETX\DC2\EOT\142\SOH:;\n\
    \\SO\n\
    \\ACK\EOT\ETX\ETX\EOT\STX\ETX\DC2\EOT\143\SOH\t6\n\
    \\SI\n\
    \\a\EOT\ETX\ETX\EOT\STX\ETX\EOT\DC2\EOT\143\SOH\t\DC1\n\
    \\SI\n\
    \\a\EOT\ETX\ETX\EOT\STX\ETX\ACK\DC2\EOT\143\SOH\DC2\US\n\
    \\SI\n\
    \\a\EOT\ETX\ETX\EOT\STX\ETX\SOH\DC2\EOT\143\SOH 1\n\
    \\SI\n\
    \\a\EOT\ETX\ETX\EOT\STX\ETX\ETX\DC2\EOT\143\SOH45\n\
    \b\n\
    \\EOT\EOT\ETX\ETX\ENQ\DC2\ACK\147\SOH\ENQ\155\SOH\ACK\SUBR ExpirationSpec represents TTL (Time-To-Live) configuration for persisted states.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\ETX\ETX\ENQ\SOH\DC2\EOT\147\SOH\r\ESC\n\
    \\DLE\n\
    \\ACK\EOT\ETX\ETX\ENQ\EOT\NUL\DC2\ACK\148\SOH\t\152\SOH\n\
    \\n\
    \\SI\n\
    \\a\EOT\ETX\ETX\ENQ\EOT\NUL\SOH\DC2\EOT\148\SOH\SO\CAN\n\
    \\DLE\n\
    \\b\EOT\ETX\ETX\ENQ\EOT\NUL\STX\NUL\DC2\EOT\149\SOH\r\SYN\n\
    \\DC1\n\
    \\t\EOT\ETX\ETX\ENQ\EOT\NUL\STX\NUL\SOH\DC2\EOT\149\SOH\r\DC1\n\
    \\DC1\n\
    \\t\EOT\ETX\ETX\ENQ\EOT\NUL\STX\NUL\STX\DC2\EOT\149\SOH\DC4\NAK\n\
    \\DLE\n\
    \\b\EOT\ETX\ETX\ENQ\EOT\NUL\STX\SOH\DC2\EOT\150\SOH\r\GS\n\
    \\DC1\n\
    \\t\EOT\ETX\ETX\ENQ\EOT\NUL\STX\SOH\SOH\DC2\EOT\150\SOH\r\CAN\n\
    \\DC1\n\
    \\t\EOT\ETX\ETX\ENQ\EOT\NUL\STX\SOH\STX\DC2\EOT\150\SOH\ESC\FS\n\
    \\DLE\n\
    \\b\EOT\ETX\ETX\ENQ\EOT\NUL\STX\STX\DC2\EOT\151\SOH\r\RS\n\
    \\DC1\n\
    \\t\EOT\ETX\ETX\ENQ\EOT\NUL\STX\STX\SOH\DC2\EOT\151\SOH\r\EM\n\
    \\DC1\n\
    \\t\EOT\ETX\ETX\ENQ\EOT\NUL\STX\STX\STX\DC2\EOT\151\SOH\FS\GS\n\
    \\SO\n\
    \\ACK\EOT\ETX\ETX\ENQ\STX\NUL\DC2\EOT\153\SOH\t\GS\n\
    \\SI\n\
    \\a\EOT\ETX\ETX\ENQ\STX\NUL\ACK\DC2\EOT\153\SOH\t\DC3\n\
    \\SI\n\
    \\a\EOT\ETX\ETX\ENQ\STX\NUL\SOH\DC2\EOT\153\SOH\DC4\CAN\n\
    \\SI\n\
    \\a\EOT\ETX\ETX\ENQ\STX\NUL\ETX\DC2\EOT\153\SOH\ESC\FS\n\
    \\SO\n\
    \\ACK\EOT\ETX\ETX\ENQ\STX\SOH\DC2\EOT\154\SOH\t'\n\
    \\SI\n\
    \\a\EOT\ETX\ETX\ENQ\STX\SOH\ENQ\DC2\EOT\154\SOH\t\SO\n\
    \\SI\n\
    \\a\EOT\ETX\ETX\ENQ\STX\SOH\SOH\DC2\EOT\154\SOH\SI\"\n\
    \\SI\n\
    \\a\EOT\ETX\ETX\ENQ\STX\SOH\ETX\DC2\EOT\154\SOH%&\n\
    \e\n\
    \\EOT\EOT\ETX\ETX\ACK\DC2\ACK\158\SOH\ENQ\162\SOH\ACK\SUBU PersistedValueSpec represents specifications of a function's persisted value state.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\ETX\ETX\ACK\SOH\DC2\EOT\158\SOH\r\US\n\
    \\SO\n\
    \\ACK\EOT\ETX\ETX\ACK\STX\NUL\DC2\EOT\159\SOH\t\US\n\
    \\SI\n\
    \\a\EOT\ETX\ETX\ACK\STX\NUL\ENQ\DC2\EOT\159\SOH\t\SI\n\
    \\SI\n\
    \\a\EOT\ETX\ETX\ACK\STX\NUL\SOH\DC2\EOT\159\SOH\DLE\SUB\n\
    \\SI\n\
    \\a\EOT\ETX\ETX\ACK\STX\NUL\ETX\DC2\EOT\159\SOH\GS\RS\n\
    \\SO\n\
    \\ACK\EOT\ETX\ETX\ACK\STX\SOH\DC2\EOT\160\SOH\t,\n\
    \\SI\n\
    \\a\EOT\ETX\ETX\ACK\STX\SOH\ACK\DC2\EOT\160\SOH\t\ETB\n\
    \\SI\n\
    \\a\EOT\ETX\ETX\ACK\STX\SOH\SOH\DC2\EOT\160\SOH\CAN'\n\
    \\SI\n\
    \\a\EOT\ETX\ETX\ACK\STX\SOH\ETX\DC2\EOT\160\SOH*+\n\
    \\SO\n\
    \\ACK\EOT\ETX\ETX\ACK\STX\STX\DC2\EOT\161\SOH\t\"\n\
    \\SI\n\
    \\a\EOT\ETX\ETX\ACK\STX\STX\ENQ\DC2\EOT\161\SOH\t\SI\n\
    \\SI\n\
    \\a\EOT\ETX\ETX\ACK\STX\STX\SOH\DC2\EOT\161\SOH\DLE\GS\n\
    \\SI\n\
    \\a\EOT\ETX\ETX\ACK\STX\STX\ETX\DC2\EOT\161\SOH !\n\
    \\173\STX\n\
    \\EOT\EOT\ETX\ETX\a\DC2\ACK\167\SOH\ENQ\169\SOH\ACK\SUB\156\STX IncompleteInvocationContext represents a result of an io.statefun.sdk.reqreply.ToFunction.InvocationBatchRequest,\n\
    \ which should be used as the response if the InvocationBatchRequest provided incomplete information about the\n\
    \ invocation, e.g. insufficient state values were provided.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\ETX\ETX\a\SOH\DC2\EOT\167\SOH\r(\n\
    \\SO\n\
    \\ACK\EOT\ETX\ETX\a\STX\NUL\DC2\EOT\168\SOH\t8\n\
    \\SI\n\
    \\a\EOT\ETX\ETX\a\STX\NUL\EOT\DC2\EOT\168\SOH\t\DC1\n\
    \\SI\n\
    \\a\EOT\ETX\ETX\a\STX\NUL\ACK\DC2\EOT\168\SOH\DC2$\n\
    \\SI\n\
    \\a\EOT\ETX\ETX\a\STX\NUL\SOH\DC2\EOT\168\SOH%3\n\
    \\SI\n\
    \\a\EOT\ETX\ETX\a\STX\NUL\ETX\DC2\EOT\168\SOH67\n\
    \\173\STX\n\
    \\EOT\EOT\ETX\b\NUL\DC2\ACK\175\SOH\ENQ\178\SOH\ACK\SUB\156\STX Response sent from the function, as a result of an io.statefun.sdk.reqreply.ToFunction.InvocationBatchRequest.\n\
    \ It can be one of the following types:\n\
    \   - io.statefun.sdk.reqreply.FromFunction.InvocationResponse\n\
    \   - io.statefun.sdk.reqreply.FromFunction.IncompleteInvocationContext\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\ETX\b\NUL\SOH\DC2\EOT\175\SOH\v\DC3\n\
    \\f\n\
    \\EOT\EOT\ETX\STX\NUL\DC2\EOT\176\SOH\t4\n\
    \\r\n\
    \\ENQ\EOT\ETX\STX\NUL\ACK\DC2\EOT\176\SOH\t\ESC\n\
    \\r\n\
    \\ENQ\EOT\ETX\STX\NUL\SOH\DC2\EOT\176\SOH\FS-\n\
    \\r\n\
    \\ENQ\EOT\ETX\STX\NUL\ETX\DC2\EOT\176\SOH03\n\
    \\f\n\
    \\EOT\EOT\ETX\STX\SOH\DC2\EOT\177\SOH\tI\n\
    \\r\n\
    \\ENQ\EOT\ETX\STX\SOH\ACK\DC2\EOT\177\SOH\t$\n\
    \\r\n\
    \\ENQ\EOT\ETX\STX\SOH\SOH\DC2\EOT\177\SOH%B\n\
    \\r\n\
    \\ENQ\EOT\ETX\STX\SOH\ETX\DC2\EOT\177\SOHEHb\ACKproto3"