{-# 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'DelayedInvocation(),
FromFunction'EgressMessage(), FromFunction'Invocation(),
FromFunction'InvocationResponse(),
FromFunction'PersistedValueMutation(),
FromFunction'PersistedValueMutation'MutationType(..),
FromFunction'PersistedValueMutation'MutationType(),
FromFunction'PersistedValueMutation'MutationType'UnrecognizedValue,
ToFunction(), ToFunction'Request(..), _ToFunction'Invocation',
ToFunction'Invocation(), ToFunction'InvocationBatchRequest(),
ToFunction'PersistedValue()
) where
import qualified Data.ProtoLens.Runtime.Control.DeepSeq as Control.DeepSeq
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Prism as Data.ProtoLens.Prism
import qualified Data.ProtoLens.Runtime.Prelude as Prelude
import qualified Data.ProtoLens.Runtime.Data.Int as Data.Int
import qualified Data.ProtoLens.Runtime.Data.Monoid as Data.Monoid
import qualified Data.ProtoLens.Runtime.Data.Word as Data.Word
import qualified Data.ProtoLens.Runtime.Data.ProtoLens as Data.ProtoLens
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Bytes as Data.ProtoLens.Encoding.Bytes
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Growing as Data.ProtoLens.Encoding.Growing
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Parser.Unsafe as Data.ProtoLens.Encoding.Parser.Unsafe
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Wire as Data.ProtoLens.Encoding.Wire
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Field as Data.ProtoLens.Field
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Message.Enum as Data.ProtoLens.Message.Enum
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Service.Types as Data.ProtoLens.Service.Types
import qualified Data.ProtoLens.Runtime.Lens.Family2 as Lens.Family2
import qualified Data.ProtoLens.Runtime.Lens.Family2.Unchecked as Lens.Family2.Unchecked
import qualified Data.ProtoLens.Runtime.Data.Text as Data.Text
import qualified Data.ProtoLens.Runtime.Data.Map as Data.Map
import qualified Data.ProtoLens.Runtime.Data.ByteString as Data.ByteString
import qualified Data.ProtoLens.Runtime.Data.ByteString.Char8 as Data.ByteString.Char8
import qualified Data.ProtoLens.Runtime.Data.Text.Encoding as Data.Text.Encoding
import qualified Data.ProtoLens.Runtime.Data.Vector as Data.Vector
import qualified Data.ProtoLens.Runtime.Data.Vector.Generic as Data.Vector.Generic
import qualified Data.ProtoLens.Runtime.Data.Vector.Unboxed as Data.Vector.Unboxed
import qualified Data.ProtoLens.Runtime.Text.Read as Text.Read
import qualified Proto.Google.Protobuf.Any
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
"org.apache.flink.statefun.flink.core.polyglot.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__) ())))
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
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.Message FromFunction where
messageName :: Proxy FromFunction -> Text
messageName _
= String -> Text
Data.Text.pack
"org.apache.flink.statefun.flink.core.polyglot.FromFunction"
packedMessageDescriptor :: Proxy FromFunction -> ByteString
packedMessageDescriptor _
= "\n\
\\fFromFunction\DC2}\n\
\\DC1invocation_result\CANd \SOH(\v2N.org.apache.flink.statefun.flink.core.polyglot.FromFunction.InvocationResponseH\NULR\DLEinvocationResult\SUB\135\STX\n\
\\SYNPersistedValueMutation\DC2\132\SOH\n\
\\rmutation_type\CAN\SOH \SOH(\SO2_.org.apache.flink.statefun.flink.core.polyglot.FromFunction.PersistedValueMutation.MutationTypeR\fmutationType\DC2\GS\n\
\\n\
\state_name\CAN\STX \SOH(\tR\tstateName\DC2\US\n\
\\vstate_value\CAN\ETX \SOH(\fR\n\
\stateValue\"&\n\
\\fMutationType\DC2\n\
\\n\
\\ACKDELETE\DLE\NUL\DC2\n\
\\n\
\\ACKMODIFY\DLE\SOH\SUB\142\SOH\n\
\\n\
\Invocation\DC2N\n\
\\ACKtarget\CAN\SOH \SOH(\v26.org.apache.flink.statefun.flink.core.polyglot.AddressR\ACKtarget\DC20\n\
\\bargument\CAN\STX \SOH(\v2\DC4.google.protobuf.AnyR\bargument\SUB\181\SOH\n\
\\DC1DelayedInvocation\DC2\RS\n\
\\vdelay_in_ms\CAN\SOH \SOH(\ETXR\tdelayInMs\DC2N\n\
\\ACKtarget\CAN\STX \SOH(\v26.org.apache.flink.statefun.flink.core.polyglot.AddressR\ACKtarget\DC20\n\
\\bargument\CAN\ETX \SOH(\v2\DC4.google.protobuf.AnyR\bargument\SUB\141\SOH\n\
\\rEgressMessage\DC2)\n\
\\DLEegress_namespace\CAN\SOH \SOH(\tR\SIegressNamespace\DC2\US\n\
\\vegress_type\CAN\STX \SOH(\tR\n\
\egressType\DC20\n\
\\bargument\CAN\ETX \SOH(\v2\DC4.google.protobuf.AnyR\bargument\SUB\254\ETX\n\
\\DC2InvocationResponse\DC2{\n\
\\SIstate_mutations\CAN\SOH \ETX(\v2R.org.apache.flink.statefun.flink.core.polyglot.FromFunction.PersistedValueMutationR\SOstateMutations\DC2s\n\
\\DC1outgoing_messages\CAN\STX \ETX(\v2F.org.apache.flink.statefun.flink.core.polyglot.FromFunction.InvocationR\DLEoutgoingMessages\DC2~\n\
\\DC3delayed_invocations\CAN\ETX \ETX(\v2M.org.apache.flink.statefun.flink.core.polyglot.FromFunction.DelayedInvocationR\DC2delayedInvocations\DC2v\n\
\\DC1outgoing_egresses\CAN\EOT \ETX(\v2I.org.apache.flink.statefun.flink.core.polyglot.FromFunction.EgressMessageR\DLEoutgoingEgressesB\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
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)]
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)
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))
(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__
_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 })
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 Any
_FromFunction'DelayedInvocation'argument :: !(Prelude.Maybe Proto.Google.Protobuf.Any.Any),
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" Proto.Google.Protobuf.Any.Any where
fieldOf :: Proxy# "argument"
-> (Any -> f Any)
-> FromFunction'DelayedInvocation
-> f FromFunction'DelayedInvocation
fieldOf _
= ((Maybe Any -> f (Maybe Any))
-> FromFunction'DelayedInvocation
-> f FromFunction'DelayedInvocation)
-> ((Any -> f Any) -> Maybe Any -> f (Maybe Any))
-> (Any -> f Any)
-> FromFunction'DelayedInvocation
-> f FromFunction'DelayedInvocation
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((FromFunction'DelayedInvocation -> Maybe Any)
-> (FromFunction'DelayedInvocation
-> Maybe Any -> FromFunction'DelayedInvocation)
-> Lens
FromFunction'DelayedInvocation
FromFunction'DelayedInvocation
(Maybe Any)
(Maybe Any)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
FromFunction'DelayedInvocation -> Maybe Any
_FromFunction'DelayedInvocation'argument
(\ x__ :: FromFunction'DelayedInvocation
x__ y__ :: Maybe Any
y__
-> FromFunction'DelayedInvocation
x__ {_FromFunction'DelayedInvocation'argument :: Maybe Any
_FromFunction'DelayedInvocation'argument = Maybe Any
y__}))
(Any -> Lens' (Maybe Any) Any
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Any
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField FromFunction'DelayedInvocation "maybe'argument" (Prelude.Maybe Proto.Google.Protobuf.Any.Any) where
fieldOf :: Proxy# "maybe'argument"
-> (Maybe Any -> f (Maybe Any))
-> FromFunction'DelayedInvocation
-> f FromFunction'DelayedInvocation
fieldOf _
= ((Maybe Any -> f (Maybe Any))
-> FromFunction'DelayedInvocation
-> f FromFunction'DelayedInvocation)
-> ((Maybe Any -> f (Maybe Any)) -> Maybe Any -> f (Maybe Any))
-> (Maybe Any -> f (Maybe Any))
-> FromFunction'DelayedInvocation
-> f FromFunction'DelayedInvocation
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((FromFunction'DelayedInvocation -> Maybe Any)
-> (FromFunction'DelayedInvocation
-> Maybe Any -> FromFunction'DelayedInvocation)
-> Lens
FromFunction'DelayedInvocation
FromFunction'DelayedInvocation
(Maybe Any)
(Maybe Any)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
FromFunction'DelayedInvocation -> Maybe Any
_FromFunction'DelayedInvocation'argument
(\ x__ :: FromFunction'DelayedInvocation
x__ y__ :: Maybe Any
y__
-> FromFunction'DelayedInvocation
x__ {_FromFunction'DelayedInvocation'argument :: Maybe Any
_FromFunction'DelayedInvocation'argument = Maybe Any
y__}))
(Maybe Any -> f (Maybe Any)) -> Maybe Any -> f (Maybe Any)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message FromFunction'DelayedInvocation where
messageName :: Proxy FromFunction'DelayedInvocation -> Text
messageName _
= String -> Text
Data.Text.pack
"org.apache.flink.statefun.flink.core.polyglot.FromFunction.DelayedInvocation"
packedMessageDescriptor :: Proxy FromFunction'DelayedInvocation -> ByteString
packedMessageDescriptor _
= "\n\
\\DC1DelayedInvocation\DC2\RS\n\
\\vdelay_in_ms\CAN\SOH \SOH(\ETXR\tdelayInMs\DC2N\n\
\\ACKtarget\CAN\STX \SOH(\v26.org.apache.flink.statefun.flink.core.polyglot.AddressR\ACKtarget\DC20\n\
\\bargument\CAN\ETX \SOH(\v2\DC4.google.protobuf.AnyR\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 Any
-> FieldAccessor FromFunction'DelayedInvocation Any
-> FieldDescriptor FromFunction'DelayedInvocation
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"argument"
(MessageOrGroup -> FieldTypeDescriptor Any
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Google.Protobuf.Any.Any)
(Lens
FromFunction'DelayedInvocation
FromFunction'DelayedInvocation
(Maybe Any)
(Maybe Any)
-> FieldAccessor FromFunction'DelayedInvocation Any
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 Any
-> 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 Any
_FromFunction'DelayedInvocation'argument = Maybe Any
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 Any
y <- Parser Any -> String -> Parser Any
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser Any -> Parser Any
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 Any
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"argument"
FromFunction'DelayedInvocation
-> Parser FromFunction'DelayedInvocation
loop
(Setter
FromFunction'DelayedInvocation
FromFunction'DelayedInvocation
Any
Any
-> Any
-> 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") Any
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 Any)
FromFunction'DelayedInvocation
FromFunction'DelayedInvocation
(Maybe Any)
(Maybe Any)
-> FromFunction'DelayedInvocation -> Maybe Any
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 :: Any
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 26)
((ByteString -> Builder) -> (Any -> ByteString) -> Any -> 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))
Any -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
Any
_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 Any -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(FromFunction'DelayedInvocation -> Maybe Any
_FromFunction'DelayedInvocation'argument FromFunction'DelayedInvocation
x__) ())))
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 Any
_FromFunction'EgressMessage'argument :: !(Prelude.Maybe Proto.Google.Protobuf.Any.Any),
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" Proto.Google.Protobuf.Any.Any where
fieldOf :: Proxy# "argument"
-> (Any -> f Any)
-> FromFunction'EgressMessage
-> f FromFunction'EgressMessage
fieldOf _
= ((Maybe Any -> f (Maybe Any))
-> FromFunction'EgressMessage -> f FromFunction'EgressMessage)
-> ((Any -> f Any) -> Maybe Any -> f (Maybe Any))
-> (Any -> f Any)
-> FromFunction'EgressMessage
-> f FromFunction'EgressMessage
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((FromFunction'EgressMessage -> Maybe Any)
-> (FromFunction'EgressMessage
-> Maybe Any -> FromFunction'EgressMessage)
-> Lens
FromFunction'EgressMessage
FromFunction'EgressMessage
(Maybe Any)
(Maybe Any)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
FromFunction'EgressMessage -> Maybe Any
_FromFunction'EgressMessage'argument
(\ x__ :: FromFunction'EgressMessage
x__ y__ :: Maybe Any
y__ -> FromFunction'EgressMessage
x__ {_FromFunction'EgressMessage'argument :: Maybe Any
_FromFunction'EgressMessage'argument = Maybe Any
y__}))
(Any -> Lens' (Maybe Any) Any
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Any
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField FromFunction'EgressMessage "maybe'argument" (Prelude.Maybe Proto.Google.Protobuf.Any.Any) where
fieldOf :: Proxy# "maybe'argument"
-> (Maybe Any -> f (Maybe Any))
-> FromFunction'EgressMessage
-> f FromFunction'EgressMessage
fieldOf _
= ((Maybe Any -> f (Maybe Any))
-> FromFunction'EgressMessage -> f FromFunction'EgressMessage)
-> ((Maybe Any -> f (Maybe Any)) -> Maybe Any -> f (Maybe Any))
-> (Maybe Any -> f (Maybe Any))
-> FromFunction'EgressMessage
-> f FromFunction'EgressMessage
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((FromFunction'EgressMessage -> Maybe Any)
-> (FromFunction'EgressMessage
-> Maybe Any -> FromFunction'EgressMessage)
-> Lens
FromFunction'EgressMessage
FromFunction'EgressMessage
(Maybe Any)
(Maybe Any)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
FromFunction'EgressMessage -> Maybe Any
_FromFunction'EgressMessage'argument
(\ x__ :: FromFunction'EgressMessage
x__ y__ :: Maybe Any
y__ -> FromFunction'EgressMessage
x__ {_FromFunction'EgressMessage'argument :: Maybe Any
_FromFunction'EgressMessage'argument = Maybe Any
y__}))
(Maybe Any -> f (Maybe Any)) -> Maybe Any -> f (Maybe Any)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message FromFunction'EgressMessage where
messageName :: Proxy FromFunction'EgressMessage -> Text
messageName _
= String -> Text
Data.Text.pack
"org.apache.flink.statefun.flink.core.polyglot.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\DC20\n\
\\bargument\CAN\ETX \SOH(\v2\DC4.google.protobuf.AnyR\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 Any
-> FieldAccessor FromFunction'EgressMessage Any
-> FieldDescriptor FromFunction'EgressMessage
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"argument"
(MessageOrGroup -> FieldTypeDescriptor Any
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Google.Protobuf.Any.Any)
(Lens
FromFunction'EgressMessage
FromFunction'EgressMessage
(Maybe Any)
(Maybe Any)
-> FieldAccessor FromFunction'EgressMessage Any
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 Any -> 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 Any
_FromFunction'EgressMessage'argument = Maybe Any
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 Any
y <- Parser Any -> String -> Parser Any
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser Any -> Parser Any
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 Any
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"argument"
FromFunction'EgressMessage -> Parser FromFunction'EgressMessage
loop
(Setter
FromFunction'EgressMessage FromFunction'EgressMessage Any Any
-> Any -> 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") Any
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 Any)
FromFunction'EgressMessage
FromFunction'EgressMessage
(Maybe Any)
(Maybe Any)
-> FromFunction'EgressMessage -> Maybe Any
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 :: Any
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 26)
((ByteString -> Builder) -> (Any -> ByteString) -> Any -> 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))
Any -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
Any
_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 Any -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(FromFunction'EgressMessage -> Maybe Any
_FromFunction'EgressMessage'argument FromFunction'EgressMessage
x__) ())))
data FromFunction'Invocation
= FromFunction'Invocation'_constructor {FromFunction'Invocation -> Maybe Address
_FromFunction'Invocation'target :: !(Prelude.Maybe Address),
FromFunction'Invocation -> Maybe Any
_FromFunction'Invocation'argument :: !(Prelude.Maybe Proto.Google.Protobuf.Any.Any),
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" Proto.Google.Protobuf.Any.Any where
fieldOf :: Proxy# "argument"
-> (Any -> f Any)
-> FromFunction'Invocation
-> f FromFunction'Invocation
fieldOf _
= ((Maybe Any -> f (Maybe Any))
-> FromFunction'Invocation -> f FromFunction'Invocation)
-> ((Any -> f Any) -> Maybe Any -> f (Maybe Any))
-> (Any -> f Any)
-> FromFunction'Invocation
-> f FromFunction'Invocation
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((FromFunction'Invocation -> Maybe Any)
-> (FromFunction'Invocation
-> Maybe Any -> FromFunction'Invocation)
-> Lens
FromFunction'Invocation
FromFunction'Invocation
(Maybe Any)
(Maybe Any)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
FromFunction'Invocation -> Maybe Any
_FromFunction'Invocation'argument
(\ x__ :: FromFunction'Invocation
x__ y__ :: Maybe Any
y__ -> FromFunction'Invocation
x__ {_FromFunction'Invocation'argument :: Maybe Any
_FromFunction'Invocation'argument = Maybe Any
y__}))
(Any -> Lens' (Maybe Any) Any
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Any
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField FromFunction'Invocation "maybe'argument" (Prelude.Maybe Proto.Google.Protobuf.Any.Any) where
fieldOf :: Proxy# "maybe'argument"
-> (Maybe Any -> f (Maybe Any))
-> FromFunction'Invocation
-> f FromFunction'Invocation
fieldOf _
= ((Maybe Any -> f (Maybe Any))
-> FromFunction'Invocation -> f FromFunction'Invocation)
-> ((Maybe Any -> f (Maybe Any)) -> Maybe Any -> f (Maybe Any))
-> (Maybe Any -> f (Maybe Any))
-> FromFunction'Invocation
-> f FromFunction'Invocation
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((FromFunction'Invocation -> Maybe Any)
-> (FromFunction'Invocation
-> Maybe Any -> FromFunction'Invocation)
-> Lens
FromFunction'Invocation
FromFunction'Invocation
(Maybe Any)
(Maybe Any)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
FromFunction'Invocation -> Maybe Any
_FromFunction'Invocation'argument
(\ x__ :: FromFunction'Invocation
x__ y__ :: Maybe Any
y__ -> FromFunction'Invocation
x__ {_FromFunction'Invocation'argument :: Maybe Any
_FromFunction'Invocation'argument = Maybe Any
y__}))
(Maybe Any -> f (Maybe Any)) -> Maybe Any -> f (Maybe Any)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message FromFunction'Invocation where
messageName :: Proxy FromFunction'Invocation -> Text
messageName _
= String -> Text
Data.Text.pack
"org.apache.flink.statefun.flink.core.polyglot.FromFunction.Invocation"
packedMessageDescriptor :: Proxy FromFunction'Invocation -> ByteString
packedMessageDescriptor _
= "\n\
\\n\
\Invocation\DC2N\n\
\\ACKtarget\CAN\SOH \SOH(\v26.org.apache.flink.statefun.flink.core.polyglot.AddressR\ACKtarget\DC20\n\
\\bargument\CAN\STX \SOH(\v2\DC4.google.protobuf.AnyR\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 Any
-> FieldAccessor FromFunction'Invocation Any
-> FieldDescriptor FromFunction'Invocation
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"argument"
(MessageOrGroup -> FieldTypeDescriptor Any
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Google.Protobuf.Any.Any)
(Lens
FromFunction'Invocation
FromFunction'Invocation
(Maybe Any)
(Maybe Any)
-> FieldAccessor FromFunction'Invocation Any
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 Any -> 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 Any
_FromFunction'Invocation'argument = Maybe Any
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 Any
y <- Parser Any -> String -> Parser Any
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser Any -> Parser Any
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 Any
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"argument"
FromFunction'Invocation -> Parser FromFunction'Invocation
loop
(Setter FromFunction'Invocation FromFunction'Invocation Any Any
-> Any -> 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") Any
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 Any)
FromFunction'Invocation
FromFunction'Invocation
(Maybe Any)
(Maybe Any)
-> FromFunction'Invocation -> Maybe Any
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 :: Any
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 18)
((ByteString -> Builder) -> (Any -> ByteString) -> Any -> 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))
Any -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
Any
_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 Any -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(FromFunction'Invocation -> Maybe Any
_FromFunction'Invocation'argument FromFunction'Invocation
x__) ()))
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
"org.apache.flink.statefun.flink.core.polyglot.FromFunction.InvocationResponse"
packedMessageDescriptor :: Proxy FromFunction'InvocationResponse -> ByteString
packedMessageDescriptor _
= "\n\
\\DC2InvocationResponse\DC2{\n\
\\SIstate_mutations\CAN\SOH \ETX(\v2R.org.apache.flink.statefun.flink.core.polyglot.FromFunction.PersistedValueMutationR\SOstateMutations\DC2s\n\
\\DC1outgoing_messages\CAN\STX \ETX(\v2F.org.apache.flink.statefun.flink.core.polyglot.FromFunction.InvocationR\DLEoutgoingMessages\DC2~\n\
\\DC3delayed_invocations\CAN\ETX \ETX(\v2M.org.apache.flink.statefun.flink.core.polyglot.FromFunction.DelayedInvocationR\DC2delayedInvocations\DC2v\n\
\\DC1outgoing_egresses\CAN\EOT \ETX(\v2I.org.apache.flink.statefun.flink.core.polyglot.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__) ()))))
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 -> ByteString
_FromFunction'PersistedValueMutation'stateValue :: !Data.ByteString.ByteString,
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" Data.ByteString.ByteString where
fieldOf :: Proxy# "stateValue"
-> (ByteString -> f ByteString)
-> FromFunction'PersistedValueMutation
-> f FromFunction'PersistedValueMutation
fieldOf _
= ((ByteString -> f ByteString)
-> FromFunction'PersistedValueMutation
-> f FromFunction'PersistedValueMutation)
-> ((ByteString -> f ByteString) -> ByteString -> f ByteString)
-> (ByteString -> f ByteString)
-> FromFunction'PersistedValueMutation
-> f FromFunction'PersistedValueMutation
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((FromFunction'PersistedValueMutation -> ByteString)
-> (FromFunction'PersistedValueMutation
-> ByteString -> FromFunction'PersistedValueMutation)
-> Lens
FromFunction'PersistedValueMutation
FromFunction'PersistedValueMutation
ByteString
ByteString
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
FromFunction'PersistedValueMutation -> ByteString
_FromFunction'PersistedValueMutation'stateValue
(\ x__ :: FromFunction'PersistedValueMutation
x__ y__ :: ByteString
y__
-> FromFunction'PersistedValueMutation
x__ {_FromFunction'PersistedValueMutation'stateValue :: ByteString
_FromFunction'PersistedValueMutation'stateValue = ByteString
y__}))
(ByteString -> f ByteString) -> ByteString -> f ByteString
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message FromFunction'PersistedValueMutation where
messageName :: Proxy FromFunction'PersistedValueMutation -> Text
messageName _
= String -> Text
Data.Text.pack
"org.apache.flink.statefun.flink.core.polyglot.FromFunction.PersistedValueMutation"
packedMessageDescriptor :: Proxy FromFunction'PersistedValueMutation -> ByteString
packedMessageDescriptor _
= "\n\
\\SYNPersistedValueMutation\DC2\132\SOH\n\
\\rmutation_type\CAN\SOH \SOH(\SO2_.org.apache.flink.statefun.flink.core.polyglot.FromFunction.PersistedValueMutation.MutationTypeR\fmutationType\DC2\GS\n\
\\n\
\state_name\CAN\STX \SOH(\tR\tstateName\DC2\US\n\
\\vstate_value\CAN\ETX \SOH(\fR\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 ByteString
-> FieldAccessor FromFunction'PersistedValueMutation ByteString
-> FieldDescriptor FromFunction'PersistedValueMutation
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"state_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
FromFunction'PersistedValueMutation
FromFunction'PersistedValueMutation
ByteString
ByteString
-> FieldAccessor FromFunction'PersistedValueMutation 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 "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")) ::
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
-> ByteString
-> 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 :: ByteString
_FromFunction'PersistedValueMutation'stateValue = ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_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 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))
"state_value"
FromFunction'PersistedValueMutation
-> Parser FromFunction'PersistedValueMutation
loop
(Setter
FromFunction'PersistedValueMutation
FromFunction'PersistedValueMutation
ByteString
ByteString
-> ByteString
-> 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") ByteString
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.<>)
(let
_v :: ByteString
_v
= FoldLike
ByteString
FromFunction'PersistedValueMutation
FromFunction'PersistedValueMutation
ByteString
ByteString
-> FromFunction'PersistedValueMutation -> ByteString
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (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") FromFunction'PersistedValueMutation
_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
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__)
(ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(FromFunction'PersistedValueMutation -> ByteString
_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__ ()
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
"org.apache.flink.statefun.flink.core.polyglot.ToFunction"
packedMessageDescriptor :: Proxy ToFunction -> ByteString
packedMessageDescriptor _
= "\n\
\\n\
\ToFunction\DC2r\n\
\\n\
\invocation\CANd \SOH(\v2P.org.apache.flink.statefun.flink.core.polyglot.ToFunction.InvocationBatchRequestH\NULR\n\
\invocation\SUBP\n\
\\SOPersistedValue\DC2\GS\n\
\\n\
\state_name\CAN\SOH \SOH(\tR\tstateName\DC2\US\n\
\\vstate_value\CAN\STX \SOH(\fR\n\
\stateValue\SUB\142\SOH\n\
\\n\
\Invocation\DC2N\n\
\\ACKcaller\CAN\SOH \SOH(\v26.org.apache.flink.statefun.flink.core.polyglot.AddressR\ACKcaller\DC20\n\
\\bargument\CAN\STX \SOH(\v2\DC4.google.protobuf.AnyR\bargument\SUB\176\STX\n\
\\SYNInvocationBatchRequest\DC2N\n\
\\ACKtarget\CAN\SOH \SOH(\v26.org.apache.flink.statefun.flink.core.polyglot.AddressR\ACKtarget\DC2^\n\
\\ENQstate\CAN\STX \ETX(\v2H.org.apache.flink.statefun.flink.core.polyglot.ToFunction.PersistedValueR\ENQstate\DC2f\n\
\\vinvocations\CAN\ETX \ETX(\v2D.org.apache.flink.statefun.flink.core.polyglot.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 })
data ToFunction'Invocation
= ToFunction'Invocation'_constructor {ToFunction'Invocation -> Maybe Address
_ToFunction'Invocation'caller :: !(Prelude.Maybe Address),
ToFunction'Invocation -> Maybe Any
_ToFunction'Invocation'argument :: !(Prelude.Maybe Proto.Google.Protobuf.Any.Any),
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" Proto.Google.Protobuf.Any.Any where
fieldOf :: Proxy# "argument"
-> (Any -> f Any)
-> ToFunction'Invocation
-> f ToFunction'Invocation
fieldOf _
= ((Maybe Any -> f (Maybe Any))
-> ToFunction'Invocation -> f ToFunction'Invocation)
-> ((Any -> f Any) -> Maybe Any -> f (Maybe Any))
-> (Any -> f Any)
-> ToFunction'Invocation
-> f ToFunction'Invocation
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ToFunction'Invocation -> Maybe Any)
-> (ToFunction'Invocation -> Maybe Any -> ToFunction'Invocation)
-> Lens
ToFunction'Invocation ToFunction'Invocation (Maybe Any) (Maybe Any)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ToFunction'Invocation -> Maybe Any
_ToFunction'Invocation'argument
(\ x__ :: ToFunction'Invocation
x__ y__ :: Maybe Any
y__ -> ToFunction'Invocation
x__ {_ToFunction'Invocation'argument :: Maybe Any
_ToFunction'Invocation'argument = Maybe Any
y__}))
(Any -> Lens' (Maybe Any) Any
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Any
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField ToFunction'Invocation "maybe'argument" (Prelude.Maybe Proto.Google.Protobuf.Any.Any) where
fieldOf :: Proxy# "maybe'argument"
-> (Maybe Any -> f (Maybe Any))
-> ToFunction'Invocation
-> f ToFunction'Invocation
fieldOf _
= ((Maybe Any -> f (Maybe Any))
-> ToFunction'Invocation -> f ToFunction'Invocation)
-> ((Maybe Any -> f (Maybe Any)) -> Maybe Any -> f (Maybe Any))
-> (Maybe Any -> f (Maybe Any))
-> ToFunction'Invocation
-> f ToFunction'Invocation
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ToFunction'Invocation -> Maybe Any)
-> (ToFunction'Invocation -> Maybe Any -> ToFunction'Invocation)
-> Lens
ToFunction'Invocation ToFunction'Invocation (Maybe Any) (Maybe Any)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ToFunction'Invocation -> Maybe Any
_ToFunction'Invocation'argument
(\ x__ :: ToFunction'Invocation
x__ y__ :: Maybe Any
y__ -> ToFunction'Invocation
x__ {_ToFunction'Invocation'argument :: Maybe Any
_ToFunction'Invocation'argument = Maybe Any
y__}))
(Maybe Any -> f (Maybe Any)) -> Maybe Any -> f (Maybe Any)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message ToFunction'Invocation where
messageName :: Proxy ToFunction'Invocation -> Text
messageName _
= String -> Text
Data.Text.pack
"org.apache.flink.statefun.flink.core.polyglot.ToFunction.Invocation"
packedMessageDescriptor :: Proxy ToFunction'Invocation -> ByteString
packedMessageDescriptor _
= "\n\
\\n\
\Invocation\DC2N\n\
\\ACKcaller\CAN\SOH \SOH(\v26.org.apache.flink.statefun.flink.core.polyglot.AddressR\ACKcaller\DC20\n\
\\bargument\CAN\STX \SOH(\v2\DC4.google.protobuf.AnyR\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 Any
-> FieldAccessor ToFunction'Invocation Any
-> FieldDescriptor ToFunction'Invocation
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"argument"
(MessageOrGroup -> FieldTypeDescriptor Any
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Google.Protobuf.Any.Any)
(Lens
ToFunction'Invocation ToFunction'Invocation (Maybe Any) (Maybe Any)
-> FieldAccessor ToFunction'Invocation Any
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 Any -> 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 Any
_ToFunction'Invocation'argument = Maybe Any
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 Any
y <- Parser Any -> String -> Parser Any
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser Any -> Parser Any
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 Any
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"argument"
ToFunction'Invocation -> Parser ToFunction'Invocation
loop
(Setter ToFunction'Invocation ToFunction'Invocation Any Any
-> Any -> 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") Any
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 Any)
ToFunction'Invocation
ToFunction'Invocation
(Maybe Any)
(Maybe Any)
-> ToFunction'Invocation -> Maybe Any
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 :: Any
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 18)
((ByteString -> Builder) -> (Any -> ByteString) -> Any -> 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))
Any -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
Any
_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 Any -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (ToFunction'Invocation -> Maybe Any
_ToFunction'Invocation'argument ToFunction'Invocation
x__) ()))
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
"org.apache.flink.statefun.flink.core.polyglot.ToFunction.InvocationBatchRequest"
packedMessageDescriptor :: Proxy ToFunction'InvocationBatchRequest -> ByteString
packedMessageDescriptor _
= "\n\
\\SYNInvocationBatchRequest\DC2N\n\
\\ACKtarget\CAN\SOH \SOH(\v26.org.apache.flink.statefun.flink.core.polyglot.AddressR\ACKtarget\DC2^\n\
\\ENQstate\CAN\STX \ETX(\v2H.org.apache.flink.statefun.flink.core.polyglot.ToFunction.PersistedValueR\ENQstate\DC2f\n\
\\vinvocations\CAN\ETX \ETX(\v2D.org.apache.flink.statefun.flink.core.polyglot.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__) ())))
data ToFunction'PersistedValue
= ToFunction'PersistedValue'_constructor {ToFunction'PersistedValue -> Text
_ToFunction'PersistedValue'stateName :: !Data.Text.Text,
ToFunction'PersistedValue -> ByteString
_ToFunction'PersistedValue'stateValue :: !Data.ByteString.ByteString,
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" Data.ByteString.ByteString where
fieldOf :: Proxy# "stateValue"
-> (ByteString -> f ByteString)
-> ToFunction'PersistedValue
-> f ToFunction'PersistedValue
fieldOf _
= ((ByteString -> f ByteString)
-> ToFunction'PersistedValue -> f ToFunction'PersistedValue)
-> ((ByteString -> f ByteString) -> ByteString -> f ByteString)
-> (ByteString -> f ByteString)
-> ToFunction'PersistedValue
-> f ToFunction'PersistedValue
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ToFunction'PersistedValue -> ByteString)
-> (ToFunction'PersistedValue
-> ByteString -> ToFunction'PersistedValue)
-> Lens
ToFunction'PersistedValue
ToFunction'PersistedValue
ByteString
ByteString
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ToFunction'PersistedValue -> ByteString
_ToFunction'PersistedValue'stateValue
(\ x__ :: ToFunction'PersistedValue
x__ y__ :: ByteString
y__ -> ToFunction'PersistedValue
x__ {_ToFunction'PersistedValue'stateValue :: ByteString
_ToFunction'PersistedValue'stateValue = ByteString
y__}))
(ByteString -> f ByteString) -> ByteString -> f ByteString
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message ToFunction'PersistedValue where
messageName :: Proxy ToFunction'PersistedValue -> Text
messageName _
= String -> Text
Data.Text.pack
"org.apache.flink.statefun.flink.core.polyglot.ToFunction.PersistedValue"
packedMessageDescriptor :: Proxy ToFunction'PersistedValue -> ByteString
packedMessageDescriptor _
= "\n\
\\SOPersistedValue\DC2\GS\n\
\\n\
\state_name\CAN\SOH \SOH(\tR\tstateName\DC2\US\n\
\\vstate_value\CAN\STX \SOH(\fR\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 ByteString
-> FieldAccessor ToFunction'PersistedValue ByteString
-> FieldDescriptor ToFunction'PersistedValue
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"state_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
ToFunction'PersistedValue
ToFunction'PersistedValue
ByteString
ByteString
-> FieldAccessor ToFunction'PersistedValue 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 "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")) ::
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 -> ByteString -> 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 :: ByteString
_ToFunction'PersistedValue'stateValue = ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_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 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))
"state_value"
ToFunction'PersistedValue -> Parser ToFunction'PersistedValue
loop
(Setter
ToFunction'PersistedValue
ToFunction'PersistedValue
ByteString
ByteString
-> ByteString
-> 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") ByteString
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.<>)
(let
_v :: ByteString
_v
= FoldLike
ByteString
ToFunction'PersistedValue
ToFunction'PersistedValue
ByteString
ByteString
-> ToFunction'PersistedValue -> ByteString
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (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") ToFunction'PersistedValue
_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 18)
((\ 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
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__)
(ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ToFunction'PersistedValue -> ByteString
_ToFunction'PersistedValue'stateValue ToFunction'PersistedValue
x__) ()))
packedFileDescriptor :: Data.ByteString.ByteString
packedFileDescriptor :: ByteString
packedFileDescriptor
= "\n\
\\DC2RequestReply.proto\DC2-org.apache.flink.statefun.flink.core.polyglot\SUB\EMgoogle/protobuf/any.proto\"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\"\161\ENQ\n\
\\n\
\ToFunction\DC2r\n\
\\n\
\invocation\CANd \SOH(\v2P.org.apache.flink.statefun.flink.core.polyglot.ToFunction.InvocationBatchRequestH\NULR\n\
\invocation\SUBP\n\
\\SOPersistedValue\DC2\GS\n\
\\n\
\state_name\CAN\SOH \SOH(\tR\tstateName\DC2\US\n\
\\vstate_value\CAN\STX \SOH(\fR\n\
\stateValue\SUB\142\SOH\n\
\\n\
\Invocation\DC2N\n\
\\ACKcaller\CAN\SOH \SOH(\v26.org.apache.flink.statefun.flink.core.polyglot.AddressR\ACKcaller\DC20\n\
\\bargument\CAN\STX \SOH(\v2\DC4.google.protobuf.AnyR\bargument\SUB\176\STX\n\
\\SYNInvocationBatchRequest\DC2N\n\
\\ACKtarget\CAN\SOH \SOH(\v26.org.apache.flink.statefun.flink.core.polyglot.AddressR\ACKtarget\DC2^\n\
\\ENQstate\CAN\STX \ETX(\v2H.org.apache.flink.statefun.flink.core.polyglot.ToFunction.PersistedValueR\ENQstate\DC2f\n\
\\vinvocations\CAN\ETX \ETX(\v2D.org.apache.flink.statefun.flink.core.polyglot.ToFunction.InvocationR\vinvocationsB\t\n\
\\arequest\"\253\n\
\\n\
\\fFromFunction\DC2}\n\
\\DC1invocation_result\CANd \SOH(\v2N.org.apache.flink.statefun.flink.core.polyglot.FromFunction.InvocationResponseH\NULR\DLEinvocationResult\SUB\135\STX\n\
\\SYNPersistedValueMutation\DC2\132\SOH\n\
\\rmutation_type\CAN\SOH \SOH(\SO2_.org.apache.flink.statefun.flink.core.polyglot.FromFunction.PersistedValueMutation.MutationTypeR\fmutationType\DC2\GS\n\
\\n\
\state_name\CAN\STX \SOH(\tR\tstateName\DC2\US\n\
\\vstate_value\CAN\ETX \SOH(\fR\n\
\stateValue\"&\n\
\\fMutationType\DC2\n\
\\n\
\\ACKDELETE\DLE\NUL\DC2\n\
\\n\
\\ACKMODIFY\DLE\SOH\SUB\142\SOH\n\
\\n\
\Invocation\DC2N\n\
\\ACKtarget\CAN\SOH \SOH(\v26.org.apache.flink.statefun.flink.core.polyglot.AddressR\ACKtarget\DC20\n\
\\bargument\CAN\STX \SOH(\v2\DC4.google.protobuf.AnyR\bargument\SUB\181\SOH\n\
\\DC1DelayedInvocation\DC2\RS\n\
\\vdelay_in_ms\CAN\SOH \SOH(\ETXR\tdelayInMs\DC2N\n\
\\ACKtarget\CAN\STX \SOH(\v26.org.apache.flink.statefun.flink.core.polyglot.AddressR\ACKtarget\DC20\n\
\\bargument\CAN\ETX \SOH(\v2\DC4.google.protobuf.AnyR\bargument\SUB\141\SOH\n\
\\rEgressMessage\DC2)\n\
\\DLEegress_namespace\CAN\SOH \SOH(\tR\SIegressNamespace\DC2\US\n\
\\vegress_type\CAN\STX \SOH(\tR\n\
\egressType\DC20\n\
\\bargument\CAN\ETX \SOH(\v2\DC4.google.protobuf.AnyR\bargument\SUB\254\ETX\n\
\\DC2InvocationResponse\DC2{\n\
\\SIstate_mutations\CAN\SOH \ETX(\v2R.org.apache.flink.statefun.flink.core.polyglot.FromFunction.PersistedValueMutationR\SOstateMutations\DC2s\n\
\\DC1outgoing_messages\CAN\STX \ETX(\v2F.org.apache.flink.statefun.flink.core.polyglot.FromFunction.InvocationR\DLEoutgoingMessages\DC2~\n\
\\DC3delayed_invocations\CAN\ETX \ETX(\v2M.org.apache.flink.statefun.flink.core.polyglot.FromFunction.DelayedInvocationR\DC2delayedInvocations\DC2v\n\
\\DC1outgoing_egresses\CAN\EOT \ETX(\v2I.org.apache.flink.statefun.flink.core.polyglot.FromFunction.EgressMessageR\DLEoutgoingEgressesB\n\
\\n\
\\bresponseB;\n\
\7org.apache.flink.statefun.flink.core.polyglot.generatedP\SOHJ\197\&4\n\
\\a\DC2\ENQ\DC2\NUL\142\SOH\SOH\n\
\\141\ACK\n\
\\SOH\f\DC2\ETX\DC2\NUL\DC22\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\NUL6\n\
\\b\n\
\\SOH\b\DC2\ETX\NAK\NULP\n\
\\t\n\
\\STX\b\SOH\DC2\ETX\NAK\NULP\n\
\\b\n\
\\SOH\b\DC2\ETX\SYN\NUL\"\n\
\\t\n\
\\STX\b\n\
\\DC2\ETX\SYN\NUL\"\n\
\\t\n\
\\STX\ETX\NUL\DC2\ETX\CAN\NUL#\n\
\\187\EOT\n\
\\STX\EOT\NUL\DC2\EOT\"\NUL&\SOH\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\"\b\SI\n\
\\v\n\
\\EOT\EOT\NUL\STX\NUL\DC2\ETX#\EOT\EM\n\
\\r\n\
\\ENQ\EOT\NUL\STX\NUL\EOT\DC2\EOT#\EOT\"\DC1\n\
\\f\n\
\\ENQ\EOT\NUL\STX\NUL\ENQ\DC2\ETX#\EOT\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\NUL\SOH\DC2\ETX#\v\DC4\n\
\\f\n\
\\ENQ\EOT\NUL\STX\NUL\ETX\DC2\ETX#\ETB\CAN\n\
\\v\n\
\\EOT\EOT\NUL\STX\SOH\DC2\ETX$\EOT\DC4\n\
\\r\n\
\\ENQ\EOT\NUL\STX\SOH\EOT\DC2\EOT$\EOT#\EM\n\
\\f\n\
\\ENQ\EOT\NUL\STX\SOH\ENQ\DC2\ETX$\EOT\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\SOH\SOH\DC2\ETX$\v\SI\n\
\\f\n\
\\ENQ\EOT\NUL\STX\SOH\ETX\DC2\ETX$\DC2\DC3\n\
\\v\n\
\\EOT\EOT\NUL\STX\STX\DC2\ETX%\EOT\DC2\n\
\\r\n\
\\ENQ\EOT\NUL\STX\STX\EOT\DC2\EOT%\EOT$\DC4\n\
\\f\n\
\\ENQ\EOT\NUL\STX\STX\ENQ\DC2\ETX%\EOT\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\STX\SOH\DC2\ETX%\v\r\n\
\\f\n\
\\ENQ\EOT\NUL\STX\STX\ETX\DC2\ETX%\DLE\DC1\n\
\\134\ETX\n\
\\STX\EOT\SOH\DC2\EOT.\NULN\SOH\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\SOH\SOH\DC2\ETX.\b\DC2\n\
\|\n\
\\EOT\EOT\SOH\ETX\NUL\DC2\EOT0\EOT5\ENQ\SUBn PersistedValue represents a PersistedValue's value that is managed by Flink on behalf of a remote function. \n\
\\n\
\\f\n\
\\ENQ\EOT\SOH\ETX\NUL\SOH\DC2\ETX0\f\SUB\n\
\8\n\
\\ACK\EOT\SOH\ETX\NUL\STX\NUL\DC2\ETX2\b\RS\SUB) The unique name of the persisted state.\n\
\\n\
\\SI\n\
\\a\EOT\SOH\ETX\NUL\STX\NUL\EOT\DC2\EOT2\b0\FS\n\
\\SO\n\
\\a\EOT\SOH\ETX\NUL\STX\NUL\ENQ\DC2\ETX2\b\SO\n\
\\SO\n\
\\a\EOT\SOH\ETX\NUL\STX\NUL\SOH\DC2\ETX2\SI\EM\n\
\\SO\n\
\\a\EOT\SOH\ETX\NUL\STX\NUL\ETX\DC2\ETX2\FS\GS\n\
\+\n\
\\ACK\EOT\SOH\ETX\NUL\STX\SOH\DC2\ETX4\b\RS\SUB\FS The serialized state value\n\
\\n\
\\SI\n\
\\a\EOT\SOH\ETX\NUL\STX\SOH\EOT\DC2\EOT4\b2\RS\n\
\\SO\n\
\\a\EOT\SOH\ETX\NUL\STX\SOH\ENQ\DC2\ETX4\b\r\n\
\\SO\n\
\\a\EOT\SOH\ETX\NUL\STX\SOH\SOH\DC2\ETX4\SO\EM\n\
\\SO\n\
\\a\EOT\SOH\ETX\NUL\STX\SOH\ETX\DC2\ETX4\FS\GS\n\
\\129\SOH\n\
\\EOT\EOT\SOH\ETX\SOH\DC2\EOT9\EOT>\ENQ\SUBs Invocation represents a remote function call, it associated with an (optional) return address,\n\
\ and an argument. \n\
\\n\
\\f\n\
\\ENQ\EOT\SOH\ETX\SOH\SOH\DC2\ETX9\f\SYN\n\
\\\\n\
\\ACK\EOT\SOH\ETX\SOH\STX\NUL\DC2\ETX;\b\ESC\SUBM The address of the function that requested the invocation (possibly absent)\n\
\\n\
\\SI\n\
\\a\EOT\SOH\ETX\SOH\STX\NUL\EOT\DC2\EOT;\b9\CAN\n\
\\SO\n\
\\a\EOT\SOH\ETX\SOH\STX\NUL\ACK\DC2\ETX;\b\SI\n\
\\SO\n\
\\a\EOT\SOH\ETX\SOH\STX\NUL\SOH\DC2\ETX;\DLE\SYN\n\
\\SO\n\
\\a\EOT\SOH\ETX\SOH\STX\NUL\ETX\DC2\ETX;\EM\SUB\n\
\V\n\
\\ACK\EOT\SOH\ETX\SOH\STX\SOH\DC2\ETX=\b)\SUBG The invocation argument (aka the message sent to the target function)\n\
\\n\
\\SI\n\
\\a\EOT\SOH\ETX\SOH\STX\SOH\EOT\DC2\EOT=\b;\ESC\n\
\\SO\n\
\\a\EOT\SOH\ETX\SOH\STX\SOH\ACK\DC2\ETX=\b\ESC\n\
\\SO\n\
\\a\EOT\SOH\ETX\SOH\STX\SOH\SOH\DC2\ETX=\FS$\n\
\\SO\n\
\\a\EOT\SOH\ETX\SOH\STX\SOH\ETX\DC2\ETX='(\n\
\\192\SOH\n\
\\EOT\EOT\SOH\ETX\STX\DC2\EOTB\EOTI\ENQ\SUB\177\SOH InvocationBatchRequest represents a request to invoke a remote function. It is always associated with a target\n\
\ address (the function to invoke), a list of eager state values.\n\
\\n\
\\f\n\
\\ENQ\EOT\SOH\ETX\STX\SOH\DC2\ETXB\f\"\n\
\6\n\
\\ACK\EOT\SOH\ETX\STX\STX\NUL\DC2\ETXD\b\ESC\SUB' The address of the function to invoke\n\
\\n\
\\SI\n\
\\a\EOT\SOH\ETX\STX\STX\NUL\EOT\DC2\EOTD\bB$\n\
\\SO\n\
\\a\EOT\SOH\ETX\STX\STX\NUL\ACK\DC2\ETXD\b\SI\n\
\\SO\n\
\\a\EOT\SOH\ETX\STX\STX\NUL\SOH\DC2\ETXD\DLE\SYN\n\
\\SO\n\
\\a\EOT\SOH\ETX\STX\STX\NUL\ETX\DC2\ETXD\EM\SUB\n\
\R\n\
\\ACK\EOT\SOH\ETX\STX\STX\SOH\DC2\ETXF\b*\SUBC A list of PersistedValues that were registered as an eager state.\n\
\\n\
\\SO\n\
\\a\EOT\SOH\ETX\STX\STX\SOH\EOT\DC2\ETXF\b\DLE\n\
\\SO\n\
\\a\EOT\SOH\ETX\STX\STX\SOH\ACK\DC2\ETXF\DC1\US\n\
\\SO\n\
\\a\EOT\SOH\ETX\STX\STX\SOH\SOH\DC2\ETXF %\n\
\\SO\n\
\\a\EOT\SOH\ETX\STX\STX\SOH\ETX\DC2\ETXF()\n\
\?\n\
\\ACK\EOT\SOH\ETX\STX\STX\STX\DC2\ETXH\b,\SUB0 A non empty (at least one) list of invocations\n\
\\n\
\\SO\n\
\\a\EOT\SOH\ETX\STX\STX\STX\EOT\DC2\ETXH\b\DLE\n\
\\SO\n\
\\a\EOT\SOH\ETX\STX\STX\STX\ACK\DC2\ETXH\DC1\ESC\n\
\\SO\n\
\\a\EOT\SOH\ETX\STX\STX\STX\SOH\DC2\ETXH\FS'\n\
\\SO\n\
\\a\EOT\SOH\ETX\STX\STX\STX\ETX\DC2\ETXH*+\n\
\\f\n\
\\EOT\EOT\SOH\b\NUL\DC2\EOTK\EOTM\ENQ\n\
\\f\n\
\\ENQ\EOT\SOH\b\NUL\SOH\DC2\ETXK\n\
\\DC1\n\
\\v\n\
\\EOT\EOT\SOH\STX\NUL\DC2\ETXL\b0\n\
\\f\n\
\\ENQ\EOT\SOH\STX\NUL\ACK\DC2\ETXL\b\RS\n\
\\f\n\
\\ENQ\EOT\SOH\STX\NUL\SOH\DC2\ETXL\US)\n\
\\f\n\
\\ENQ\EOT\SOH\STX\NUL\ETX\DC2\ETXL,/\n\
\\247\STX\n\
\\STX\EOT\STX\DC2\ENQU\NUL\142\SOH\SOH\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\STX\SOH\DC2\ETXU\b\DC4\n\
\\146\SOH\n\
\\EOT\EOT\STX\ETX\NUL\DC2\EOTX\EOT`\ENQ\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\STX\ETX\NUL\SOH\DC2\ETXX\f\"\n\
\\SO\n\
\\ACK\EOT\STX\ETX\NUL\EOT\NUL\DC2\EOTY\b\\\t\n\
\\SO\n\
\\a\EOT\STX\ETX\NUL\EOT\NUL\SOH\DC2\ETXY\r\EM\n\
\\SI\n\
\\b\EOT\STX\ETX\NUL\EOT\NUL\STX\NUL\DC2\ETXZ\f\ETB\n\
\\DLE\n\
\\t\EOT\STX\ETX\NUL\EOT\NUL\STX\NUL\SOH\DC2\ETXZ\f\DC2\n\
\\DLE\n\
\\t\EOT\STX\ETX\NUL\EOT\NUL\STX\NUL\STX\DC2\ETXZ\NAK\SYN\n\
\\SI\n\
\\b\EOT\STX\ETX\NUL\EOT\NUL\STX\SOH\DC2\ETX[\f\ETB\n\
\\DLE\n\
\\t\EOT\STX\ETX\NUL\EOT\NUL\STX\SOH\SOH\DC2\ETX[\f\DC2\n\
\\DLE\n\
\\t\EOT\STX\ETX\NUL\EOT\NUL\STX\SOH\STX\DC2\ETX[\NAK\SYN\n\
\\r\n\
\\ACK\EOT\STX\ETX\NUL\STX\NUL\DC2\ETX]\b'\n\
\\SI\n\
\\a\EOT\STX\ETX\NUL\STX\NUL\EOT\DC2\EOT]\b\\\t\n\
\\SO\n\
\\a\EOT\STX\ETX\NUL\STX\NUL\ACK\DC2\ETX]\b\DC4\n\
\\SO\n\
\\a\EOT\STX\ETX\NUL\STX\NUL\SOH\DC2\ETX]\NAK\"\n\
\\SO\n\
\\a\EOT\STX\ETX\NUL\STX\NUL\ETX\DC2\ETX]%&\n\
\\r\n\
\\ACK\EOT\STX\ETX\NUL\STX\SOH\DC2\ETX^\b\RS\n\
\\SI\n\
\\a\EOT\STX\ETX\NUL\STX\SOH\EOT\DC2\EOT^\b]'\n\
\\SO\n\
\\a\EOT\STX\ETX\NUL\STX\SOH\ENQ\DC2\ETX^\b\SO\n\
\\SO\n\
\\a\EOT\STX\ETX\NUL\STX\SOH\SOH\DC2\ETX^\SI\EM\n\
\\SO\n\
\\a\EOT\STX\ETX\NUL\STX\SOH\ETX\DC2\ETX^\FS\GS\n\
\\r\n\
\\ACK\EOT\STX\ETX\NUL\STX\STX\DC2\ETX_\b\RS\n\
\\SI\n\
\\a\EOT\STX\ETX\NUL\STX\STX\EOT\DC2\EOT_\b^\RS\n\
\\SO\n\
\\a\EOT\STX\ETX\NUL\STX\STX\ENQ\DC2\ETX_\b\r\n\
\\SO\n\
\\a\EOT\STX\ETX\NUL\STX\STX\SOH\DC2\ETX_\SO\EM\n\
\\SO\n\
\\a\EOT\STX\ETX\NUL\STX\STX\ETX\DC2\ETX_\FS\GS\n\
\\129\SOH\n\
\\EOT\EOT\STX\ETX\SOH\DC2\EOTd\EOTi\ENQ\SUBs Invocation represents a remote function call, it associated with a (mandatory) target address,\n\
\ and an argument. \n\
\\n\
\\f\n\
\\ENQ\EOT\STX\ETX\SOH\SOH\DC2\ETXd\f\SYN\n\
\/\n\
\\ACK\EOT\STX\ETX\SOH\STX\NUL\DC2\ETXf\b\ESC\SUB The target function to invoke \n\
\\n\
\\SI\n\
\\a\EOT\STX\ETX\SOH\STX\NUL\EOT\DC2\EOTf\bd\CAN\n\
\\SO\n\
\\a\EOT\STX\ETX\SOH\STX\NUL\ACK\DC2\ETXf\b\SI\n\
\\SO\n\
\\a\EOT\STX\ETX\SOH\STX\NUL\SOH\DC2\ETXf\DLE\SYN\n\
\\SO\n\
\\a\EOT\STX\ETX\SOH\STX\NUL\ETX\DC2\ETXf\EM\SUB\n\
\V\n\
\\ACK\EOT\STX\ETX\SOH\STX\SOH\DC2\ETXh\b)\SUBG The invocation argument (aka the message sent to the target function)\n\
\\n\
\\SI\n\
\\a\EOT\STX\ETX\SOH\STX\SOH\EOT\DC2\EOTh\bf\ESC\n\
\\SO\n\
\\a\EOT\STX\ETX\SOH\STX\SOH\ACK\DC2\ETXh\b\ESC\n\
\\SO\n\
\\a\EOT\STX\ETX\SOH\STX\SOH\SOH\DC2\ETXh\FS$\n\
\\SO\n\
\\a\EOT\STX\ETX\SOH\STX\SOH\ETX\DC2\ETXh'(\n\
\\178\SOH\n\
\\EOT\EOT\STX\ETX\STX\DC2\EOTm\EOTt\ENQ\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\STX\ETX\STX\SOH\DC2\ETXm\f\GS\n\
\O\n\
\\ACK\EOT\STX\ETX\STX\STX\NUL\DC2\ETXo\b\RS\SUB@ the amount of milliseconds to wait before sending this message\n\
\\n\
\\SI\n\
\\a\EOT\STX\ETX\STX\STX\NUL\EOT\DC2\EOTo\bm\US\n\
\\SO\n\
\\a\EOT\STX\ETX\STX\STX\NUL\ENQ\DC2\ETXo\b\r\n\
\\SO\n\
\\a\EOT\STX\ETX\STX\STX\NUL\SOH\DC2\ETXo\SO\EM\n\
\\SO\n\
\\a\EOT\STX\ETX\STX\STX\NUL\ETX\DC2\ETXo\FS\GS\n\
\;\n\
\\ACK\EOT\STX\ETX\STX\STX\SOH\DC2\ETXq\b\ESC\SUB, the target address to send this message to\n\
\\n\
\\SI\n\
\\a\EOT\STX\ETX\STX\STX\SOH\EOT\DC2\EOTq\bo\RS\n\
\\SO\n\
\\a\EOT\STX\ETX\STX\STX\SOH\ACK\DC2\ETXq\b\SI\n\
\\SO\n\
\\a\EOT\STX\ETX\STX\STX\SOH\SOH\DC2\ETXq\DLE\SYN\n\
\\SO\n\
\\a\EOT\STX\ETX\STX\STX\SOH\ETX\DC2\ETXq\EM\SUB\n\
\(\n\
\\ACK\EOT\STX\ETX\STX\STX\STX\DC2\ETXs\b)\SUB\EM the invocation argument\n\
\\n\
\\SI\n\
\\a\EOT\STX\ETX\STX\STX\STX\EOT\DC2\EOTs\bq\ESC\n\
\\SO\n\
\\a\EOT\STX\ETX\STX\STX\STX\ACK\DC2\ETXs\b\ESC\n\
\\SO\n\
\\a\EOT\STX\ETX\STX\STX\STX\SOH\DC2\ETXs\FS$\n\
\\SO\n\
\\a\EOT\STX\ETX\STX\STX\STX\ETX\DC2\ETXs'(\n\
\\190\SOH\n\
\\EOT\EOT\STX\ETX\ETX\DC2\ENQy\EOT\128\SOH\ENQ\SUB\174\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 a google.protobuf.Any\n\
\\n\
\\f\n\
\\ENQ\EOT\STX\ETX\ETX\SOH\DC2\ETXy\f\EM\n\
\,\n\
\\ACK\EOT\STX\ETX\ETX\STX\NUL\DC2\ETX{\b$\SUB\GS The target egress namespace\n\
\\n\
\\SI\n\
\\a\EOT\STX\ETX\ETX\STX\NUL\EOT\DC2\EOT{\by\ESC\n\
\\SO\n\
\\a\EOT\STX\ETX\ETX\STX\NUL\ENQ\DC2\ETX{\b\SO\n\
\\SO\n\
\\a\EOT\STX\ETX\ETX\STX\NUL\SOH\DC2\ETX{\SI\US\n\
\\SO\n\
\\a\EOT\STX\ETX\ETX\STX\NUL\ETX\DC2\ETX{\"#\n\
\'\n\
\\ACK\EOT\STX\ETX\ETX\STX\SOH\DC2\ETX}\b\US\SUB\CAN The target egress type\n\
\\n\
\\SI\n\
\\a\EOT\STX\ETX\ETX\STX\SOH\EOT\DC2\EOT}\b{$\n\
\\SO\n\
\\a\EOT\STX\ETX\ETX\STX\SOH\ENQ\DC2\ETX}\b\SO\n\
\\SO\n\
\\a\EOT\STX\ETX\ETX\STX\SOH\SOH\DC2\ETX}\SI\SUB\n\
\\SO\n\
\\a\EOT\STX\ETX\ETX\STX\SOH\ETX\DC2\ETX}\GS\RS\n\
\ \n\
\\ACK\EOT\STX\ETX\ETX\STX\STX\DC2\ETX\DEL\b)\SUB\DC1 egress argument\n\
\\n\
\\SI\n\
\\a\EOT\STX\ETX\ETX\STX\STX\EOT\DC2\EOT\DEL\b}\US\n\
\\SO\n\
\\a\EOT\STX\ETX\ETX\STX\STX\ACK\DC2\ETX\DEL\b\ESC\n\
\\SO\n\
\\a\EOT\STX\ETX\ETX\STX\STX\SOH\DC2\ETX\DEL\FS$\n\
\\SO\n\
\\a\EOT\STX\ETX\ETX\STX\STX\ETX\DC2\ETX\DEL'(\n\
\\134\STX\n\
\\EOT\EOT\STX\ETX\EOT\DC2\ACK\132\SOH\EOT\137\SOH\ENQ\SUB\245\SOH InvocationResponse represents a result of an org.apache.flink.statefun.flink.core.polyglot.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\STX\ETX\EOT\SOH\DC2\EOT\132\SOH\f\RS\n\
\\SO\n\
\\ACK\EOT\STX\ETX\EOT\STX\NUL\DC2\EOT\133\SOH\b<\n\
\\SI\n\
\\a\EOT\STX\ETX\EOT\STX\NUL\EOT\DC2\EOT\133\SOH\b\DLE\n\
\\SI\n\
\\a\EOT\STX\ETX\EOT\STX\NUL\ACK\DC2\EOT\133\SOH\DC1'\n\
\\SI\n\
\\a\EOT\STX\ETX\EOT\STX\NUL\SOH\DC2\EOT\133\SOH(7\n\
\\SI\n\
\\a\EOT\STX\ETX\EOT\STX\NUL\ETX\DC2\EOT\133\SOH:;\n\
\\SO\n\
\\ACK\EOT\STX\ETX\EOT\STX\SOH\DC2\EOT\134\SOH\b2\n\
\\SI\n\
\\a\EOT\STX\ETX\EOT\STX\SOH\EOT\DC2\EOT\134\SOH\b\DLE\n\
\\SI\n\
\\a\EOT\STX\ETX\EOT\STX\SOH\ACK\DC2\EOT\134\SOH\DC1\ESC\n\
\\SI\n\
\\a\EOT\STX\ETX\EOT\STX\SOH\SOH\DC2\EOT\134\SOH\FS-\n\
\\SI\n\
\\a\EOT\STX\ETX\EOT\STX\SOH\ETX\DC2\EOT\134\SOH01\n\
\\SO\n\
\\ACK\EOT\STX\ETX\EOT\STX\STX\DC2\EOT\135\SOH\b;\n\
\\SI\n\
\\a\EOT\STX\ETX\EOT\STX\STX\EOT\DC2\EOT\135\SOH\b\DLE\n\
\\SI\n\
\\a\EOT\STX\ETX\EOT\STX\STX\ACK\DC2\EOT\135\SOH\DC1\"\n\
\\SI\n\
\\a\EOT\STX\ETX\EOT\STX\STX\SOH\DC2\EOT\135\SOH#6\n\
\\SI\n\
\\a\EOT\STX\ETX\EOT\STX\STX\ETX\DC2\EOT\135\SOH9:\n\
\\SO\n\
\\ACK\EOT\STX\ETX\EOT\STX\ETX\DC2\EOT\136\SOH\b5\n\
\\SI\n\
\\a\EOT\STX\ETX\EOT\STX\ETX\EOT\DC2\EOT\136\SOH\b\DLE\n\
\\SI\n\
\\a\EOT\STX\ETX\EOT\STX\ETX\ACK\DC2\EOT\136\SOH\DC1\RS\n\
\\SI\n\
\\a\EOT\STX\ETX\EOT\STX\ETX\SOH\DC2\EOT\136\SOH\US0\n\
\\SI\n\
\\a\EOT\STX\ETX\EOT\STX\ETX\ETX\DC2\EOT\136\SOH34\n\
\\SO\n\
\\EOT\EOT\STX\b\NUL\DC2\ACK\139\SOH\EOT\141\SOH\ENQ\n\
\\r\n\
\\ENQ\EOT\STX\b\NUL\SOH\DC2\EOT\139\SOH\n\
\\DC2\n\
\\f\n\
\\EOT\EOT\STX\STX\NUL\DC2\EOT\140\SOH\b3\n\
\\r\n\
\\ENQ\EOT\STX\STX\NUL\ACK\DC2\EOT\140\SOH\b\SUB\n\
\\r\n\
\\ENQ\EOT\STX\STX\NUL\SOH\DC2\EOT\140\SOH\ESC,\n\
\\r\n\
\\ENQ\EOT\STX\STX\NUL\ETX\DC2\EOT\140\SOH/2b\ACKproto3"