{- This file was auto-generated from temporal/api/protocol/v1/message.proto by the proto-lens-protoc program. -}
{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies, UndecidableInstances, GeneralizedNewtypeDeriving, MultiParamTypeClasses, FlexibleContexts, FlexibleInstances, PatternSynonyms, MagicHash, NoImplicitPrelude, DataKinds, BangPatterns, TypeApplications, OverloadedStrings, DerivingStrategies#-}
{-# OPTIONS_GHC -Wno-unused-imports#-}
{-# OPTIONS_GHC -Wno-duplicate-exports#-}
{-# OPTIONS_GHC -Wno-dodgy-exports#-}
module Proto.Temporal.Api.Protocol.V1.Message (
        Message(), Message'SequencingId(..), _Message'EventId,
        _Message'CommandIndex
    ) 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
{- | Fields :
     
         * 'Proto.Temporal.Api.Protocol.V1.Message_Fields.id' @:: Lens' Message Data.Text.Text@
         * 'Proto.Temporal.Api.Protocol.V1.Message_Fields.protocolInstanceId' @:: Lens' Message Data.Text.Text@
         * 'Proto.Temporal.Api.Protocol.V1.Message_Fields.body' @:: Lens' Message Proto.Google.Protobuf.Any.Any@
         * 'Proto.Temporal.Api.Protocol.V1.Message_Fields.maybe'body' @:: Lens' Message (Prelude.Maybe Proto.Google.Protobuf.Any.Any)@
         * 'Proto.Temporal.Api.Protocol.V1.Message_Fields.maybe'sequencingId' @:: Lens' Message (Prelude.Maybe Message'SequencingId)@
         * 'Proto.Temporal.Api.Protocol.V1.Message_Fields.maybe'eventId' @:: Lens' Message (Prelude.Maybe Data.Int.Int64)@
         * 'Proto.Temporal.Api.Protocol.V1.Message_Fields.eventId' @:: Lens' Message Data.Int.Int64@
         * 'Proto.Temporal.Api.Protocol.V1.Message_Fields.maybe'commandIndex' @:: Lens' Message (Prelude.Maybe Data.Int.Int64)@
         * 'Proto.Temporal.Api.Protocol.V1.Message_Fields.commandIndex' @:: Lens' Message Data.Int.Int64@ -}
data Message
  = Message'_constructor {Message -> Text
_Message'id :: !Data.Text.Text,
                          Message -> Text
_Message'protocolInstanceId :: !Data.Text.Text,
                          Message -> Maybe Any
_Message'body :: !(Prelude.Maybe Proto.Google.Protobuf.Any.Any),
                          Message -> Maybe Message'SequencingId
_Message'sequencingId :: !(Prelude.Maybe Message'SequencingId),
                          Message -> FieldSet
_Message'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (Message -> Message -> Bool
(Message -> Message -> Bool)
-> (Message -> Message -> Bool) -> Eq Message
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Message -> Message -> Bool
== :: Message -> Message -> Bool
$c/= :: Message -> Message -> Bool
/= :: Message -> Message -> Bool
Prelude.Eq, Eq Message
Eq Message =>
(Message -> Message -> Ordering)
-> (Message -> Message -> Bool)
-> (Message -> Message -> Bool)
-> (Message -> Message -> Bool)
-> (Message -> Message -> Bool)
-> (Message -> Message -> Message)
-> (Message -> Message -> Message)
-> Ord Message
Message -> Message -> Bool
Message -> Message -> Ordering
Message -> Message -> Message
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: Message -> Message -> Ordering
compare :: Message -> Message -> Ordering
$c< :: Message -> Message -> Bool
< :: Message -> Message -> Bool
$c<= :: Message -> Message -> Bool
<= :: Message -> Message -> Bool
$c> :: Message -> Message -> Bool
> :: Message -> Message -> Bool
$c>= :: Message -> Message -> Bool
>= :: Message -> Message -> Bool
$cmax :: Message -> Message -> Message
max :: Message -> Message -> Message
$cmin :: Message -> Message -> Message
min :: Message -> Message -> Message
Prelude.Ord)
instance Prelude.Show Message where
  showsPrec :: Int -> Message -> ShowS
showsPrec Int
_ Message
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (Message -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort Message
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
data Message'SequencingId
  = Message'EventId !Data.Int.Int64 |
    Message'CommandIndex !Data.Int.Int64
  deriving stock (Int -> Message'SequencingId -> ShowS
[Message'SequencingId] -> ShowS
Message'SequencingId -> String
(Int -> Message'SequencingId -> ShowS)
-> (Message'SequencingId -> String)
-> ([Message'SequencingId] -> ShowS)
-> Show Message'SequencingId
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> Message'SequencingId -> ShowS
showsPrec :: Int -> Message'SequencingId -> ShowS
$cshow :: Message'SequencingId -> String
show :: Message'SequencingId -> String
$cshowList :: [Message'SequencingId] -> ShowS
showList :: [Message'SequencingId] -> ShowS
Prelude.Show, Message'SequencingId -> Message'SequencingId -> Bool
(Message'SequencingId -> Message'SequencingId -> Bool)
-> (Message'SequencingId -> Message'SequencingId -> Bool)
-> Eq Message'SequencingId
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Message'SequencingId -> Message'SequencingId -> Bool
== :: Message'SequencingId -> Message'SequencingId -> Bool
$c/= :: Message'SequencingId -> Message'SequencingId -> Bool
/= :: Message'SequencingId -> Message'SequencingId -> Bool
Prelude.Eq, Eq Message'SequencingId
Eq Message'SequencingId =>
(Message'SequencingId -> Message'SequencingId -> Ordering)
-> (Message'SequencingId -> Message'SequencingId -> Bool)
-> (Message'SequencingId -> Message'SequencingId -> Bool)
-> (Message'SequencingId -> Message'SequencingId -> Bool)
-> (Message'SequencingId -> Message'SequencingId -> Bool)
-> (Message'SequencingId
    -> Message'SequencingId -> Message'SequencingId)
-> (Message'SequencingId
    -> Message'SequencingId -> Message'SequencingId)
-> Ord Message'SequencingId
Message'SequencingId -> Message'SequencingId -> Bool
Message'SequencingId -> Message'SequencingId -> Ordering
Message'SequencingId
-> Message'SequencingId -> Message'SequencingId
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: Message'SequencingId -> Message'SequencingId -> Ordering
compare :: Message'SequencingId -> Message'SequencingId -> Ordering
$c< :: Message'SequencingId -> Message'SequencingId -> Bool
< :: Message'SequencingId -> Message'SequencingId -> Bool
$c<= :: Message'SequencingId -> Message'SequencingId -> Bool
<= :: Message'SequencingId -> Message'SequencingId -> Bool
$c> :: Message'SequencingId -> Message'SequencingId -> Bool
> :: Message'SequencingId -> Message'SequencingId -> Bool
$c>= :: Message'SequencingId -> Message'SequencingId -> Bool
>= :: Message'SequencingId -> Message'SequencingId -> Bool
$cmax :: Message'SequencingId
-> Message'SequencingId -> Message'SequencingId
max :: Message'SequencingId
-> Message'SequencingId -> Message'SequencingId
$cmin :: Message'SequencingId
-> Message'SequencingId -> Message'SequencingId
min :: Message'SequencingId
-> Message'SequencingId -> Message'SequencingId
Prelude.Ord)
instance Data.ProtoLens.Field.HasField Message "id" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "id" -> (Text -> f Text) -> Message -> f Message
fieldOf Proxy# "id"
_
    = ((Text -> f Text) -> Message -> f Message)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> Message
-> f Message
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Message -> Text)
-> (Message -> Text -> Message) -> Lens Message Message Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Message -> Text
_Message'id (\ Message
x__ Text
y__ -> Message
x__ {_Message'id = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Message "protocolInstanceId" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "protocolInstanceId"
-> (Text -> f Text) -> Message -> f Message
fieldOf Proxy# "protocolInstanceId"
_
    = ((Text -> f Text) -> Message -> f Message)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> Message
-> f Message
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Message -> Text)
-> (Message -> Text -> Message) -> Lens Message Message Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Message -> Text
_Message'protocolInstanceId
           (\ Message
x__ Text
y__ -> Message
x__ {_Message'protocolInstanceId = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Message "body" Proto.Google.Protobuf.Any.Any where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "body" -> (Any -> f Any) -> Message -> f Message
fieldOf Proxy# "body"
_
    = ((Maybe Any -> f (Maybe Any)) -> Message -> f Message)
-> ((Any -> f Any) -> Maybe Any -> f (Maybe Any))
-> (Any -> f Any)
-> Message
-> f Message
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Message -> Maybe Any)
-> (Message -> Maybe Any -> Message)
-> Lens Message Message (Maybe Any) (Maybe Any)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Message -> Maybe Any
_Message'body (\ Message
x__ Maybe Any
y__ -> Message
x__ {_Message'body = 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 Message "maybe'body" (Prelude.Maybe Proto.Google.Protobuf.Any.Any) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'body"
-> (Maybe Any -> f (Maybe Any)) -> Message -> f Message
fieldOf Proxy# "maybe'body"
_
    = ((Maybe Any -> f (Maybe Any)) -> Message -> f Message)
-> ((Maybe Any -> f (Maybe Any)) -> Maybe Any -> f (Maybe Any))
-> (Maybe Any -> f (Maybe Any))
-> Message
-> f Message
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Message -> Maybe Any)
-> (Message -> Maybe Any -> Message)
-> Lens Message Message (Maybe Any) (Maybe Any)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Message -> Maybe Any
_Message'body (\ Message
x__ Maybe Any
y__ -> Message
x__ {_Message'body = y__}))
        (Maybe Any -> f (Maybe Any)) -> Maybe Any -> f (Maybe Any)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Message "maybe'sequencingId" (Prelude.Maybe Message'SequencingId) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'sequencingId"
-> (Maybe Message'SequencingId -> f (Maybe Message'SequencingId))
-> Message
-> f Message
fieldOf Proxy# "maybe'sequencingId"
_
    = ((Maybe Message'SequencingId -> f (Maybe Message'SequencingId))
 -> Message -> f Message)
-> ((Maybe Message'SequencingId -> f (Maybe Message'SequencingId))
    -> Maybe Message'SequencingId -> f (Maybe Message'SequencingId))
-> (Maybe Message'SequencingId -> f (Maybe Message'SequencingId))
-> Message
-> f Message
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Message -> Maybe Message'SequencingId)
-> (Message -> Maybe Message'SequencingId -> Message)
-> Lens
     Message
     Message
     (Maybe Message'SequencingId)
     (Maybe Message'SequencingId)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Message -> Maybe Message'SequencingId
_Message'sequencingId
           (\ Message
x__ Maybe Message'SequencingId
y__ -> Message
x__ {_Message'sequencingId = y__}))
        (Maybe Message'SequencingId -> f (Maybe Message'SequencingId))
-> Maybe Message'SequencingId -> f (Maybe Message'SequencingId)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Message "maybe'eventId" (Prelude.Maybe Data.Int.Int64) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'eventId"
-> (Maybe Int64 -> f (Maybe Int64)) -> Message -> f Message
fieldOf Proxy# "maybe'eventId"
_
    = ((Maybe Message'SequencingId -> f (Maybe Message'SequencingId))
 -> Message -> f Message)
-> ((Maybe Int64 -> f (Maybe Int64))
    -> Maybe Message'SequencingId -> f (Maybe Message'SequencingId))
-> (Maybe Int64 -> f (Maybe Int64))
-> Message
-> f Message
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Message -> Maybe Message'SequencingId)
-> (Message -> Maybe Message'SequencingId -> Message)
-> Lens
     Message
     Message
     (Maybe Message'SequencingId)
     (Maybe Message'SequencingId)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Message -> Maybe Message'SequencingId
_Message'sequencingId
           (\ Message
x__ Maybe Message'SequencingId
y__ -> Message
x__ {_Message'sequencingId = y__}))
        ((Maybe Message'SequencingId -> Maybe Int64)
-> (Maybe Message'SequencingId
    -> Maybe Int64 -> Maybe Message'SequencingId)
-> Lens
     (Maybe Message'SequencingId)
     (Maybe Message'SequencingId)
     (Maybe Int64)
     (Maybe Int64)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe Message'SequencingId
x__
              -> case Maybe Message'SequencingId
x__ of
                   (Prelude.Just (Message'EventId Int64
x__val)) -> Int64 -> Maybe Int64
forall a. a -> Maybe a
Prelude.Just Int64
x__val
                   Maybe Message'SequencingId
_otherwise -> Maybe Int64
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe Message'SequencingId
_ Maybe Int64
y__ -> (Int64 -> Message'SequencingId)
-> Maybe Int64 -> Maybe Message'SequencingId
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Int64 -> Message'SequencingId
Message'EventId Maybe Int64
y__))
instance Data.ProtoLens.Field.HasField Message "eventId" Data.Int.Int64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "eventId" -> (Int64 -> f Int64) -> Message -> f Message
fieldOf Proxy# "eventId"
_
    = ((Maybe Message'SequencingId -> f (Maybe Message'SequencingId))
 -> Message -> f Message)
-> ((Int64 -> f Int64)
    -> Maybe Message'SequencingId -> f (Maybe Message'SequencingId))
-> (Int64 -> f Int64)
-> Message
-> f Message
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Message -> Maybe Message'SequencingId)
-> (Message -> Maybe Message'SequencingId -> Message)
-> Lens
     Message
     Message
     (Maybe Message'SequencingId)
     (Maybe Message'SequencingId)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Message -> Maybe Message'SequencingId
_Message'sequencingId
           (\ Message
x__ Maybe Message'SequencingId
y__ -> Message
x__ {_Message'sequencingId = y__}))
        (((Maybe Int64 -> f (Maybe Int64))
 -> Maybe Message'SequencingId -> f (Maybe Message'SequencingId))
-> ((Int64 -> f Int64) -> Maybe Int64 -> f (Maybe Int64))
-> (Int64 -> f Int64)
-> Maybe Message'SequencingId
-> f (Maybe Message'SequencingId)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe Message'SequencingId -> Maybe Int64)
-> (Maybe Message'SequencingId
    -> Maybe Int64 -> Maybe Message'SequencingId)
-> Lens
     (Maybe Message'SequencingId)
     (Maybe Message'SequencingId)
     (Maybe Int64)
     (Maybe Int64)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe Message'SequencingId
x__
                 -> case Maybe Message'SequencingId
x__ of
                      (Prelude.Just (Message'EventId Int64
x__val)) -> Int64 -> Maybe Int64
forall a. a -> Maybe a
Prelude.Just Int64
x__val
                      Maybe Message'SequencingId
_otherwise -> Maybe Int64
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe Message'SequencingId
_ Maybe Int64
y__ -> (Int64 -> Message'SequencingId)
-> Maybe Int64 -> Maybe Message'SequencingId
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Int64 -> Message'SequencingId
Message'EventId Maybe Int64
y__))
           (Int64 -> Lens' (Maybe Int64) Int64
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault))
instance Data.ProtoLens.Field.HasField Message "maybe'commandIndex" (Prelude.Maybe Data.Int.Int64) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'commandIndex"
-> (Maybe Int64 -> f (Maybe Int64)) -> Message -> f Message
fieldOf Proxy# "maybe'commandIndex"
_
    = ((Maybe Message'SequencingId -> f (Maybe Message'SequencingId))
 -> Message -> f Message)
-> ((Maybe Int64 -> f (Maybe Int64))
    -> Maybe Message'SequencingId -> f (Maybe Message'SequencingId))
-> (Maybe Int64 -> f (Maybe Int64))
-> Message
-> f Message
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Message -> Maybe Message'SequencingId)
-> (Message -> Maybe Message'SequencingId -> Message)
-> Lens
     Message
     Message
     (Maybe Message'SequencingId)
     (Maybe Message'SequencingId)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Message -> Maybe Message'SequencingId
_Message'sequencingId
           (\ Message
x__ Maybe Message'SequencingId
y__ -> Message
x__ {_Message'sequencingId = y__}))
        ((Maybe Message'SequencingId -> Maybe Int64)
-> (Maybe Message'SequencingId
    -> Maybe Int64 -> Maybe Message'SequencingId)
-> Lens
     (Maybe Message'SequencingId)
     (Maybe Message'SequencingId)
     (Maybe Int64)
     (Maybe Int64)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe Message'SequencingId
x__
              -> case Maybe Message'SequencingId
x__ of
                   (Prelude.Just (Message'CommandIndex Int64
x__val)) -> Int64 -> Maybe Int64
forall a. a -> Maybe a
Prelude.Just Int64
x__val
                   Maybe Message'SequencingId
_otherwise -> Maybe Int64
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe Message'SequencingId
_ Maybe Int64
y__ -> (Int64 -> Message'SequencingId)
-> Maybe Int64 -> Maybe Message'SequencingId
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Int64 -> Message'SequencingId
Message'CommandIndex Maybe Int64
y__))
instance Data.ProtoLens.Field.HasField Message "commandIndex" Data.Int.Int64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "commandIndex" -> (Int64 -> f Int64) -> Message -> f Message
fieldOf Proxy# "commandIndex"
_
    = ((Maybe Message'SequencingId -> f (Maybe Message'SequencingId))
 -> Message -> f Message)
-> ((Int64 -> f Int64)
    -> Maybe Message'SequencingId -> f (Maybe Message'SequencingId))
-> (Int64 -> f Int64)
-> Message
-> f Message
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Message -> Maybe Message'SequencingId)
-> (Message -> Maybe Message'SequencingId -> Message)
-> Lens
     Message
     Message
     (Maybe Message'SequencingId)
     (Maybe Message'SequencingId)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Message -> Maybe Message'SequencingId
_Message'sequencingId
           (\ Message
x__ Maybe Message'SequencingId
y__ -> Message
x__ {_Message'sequencingId = y__}))
        (((Maybe Int64 -> f (Maybe Int64))
 -> Maybe Message'SequencingId -> f (Maybe Message'SequencingId))
-> ((Int64 -> f Int64) -> Maybe Int64 -> f (Maybe Int64))
-> (Int64 -> f Int64)
-> Maybe Message'SequencingId
-> f (Maybe Message'SequencingId)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe Message'SequencingId -> Maybe Int64)
-> (Maybe Message'SequencingId
    -> Maybe Int64 -> Maybe Message'SequencingId)
-> Lens
     (Maybe Message'SequencingId)
     (Maybe Message'SequencingId)
     (Maybe Int64)
     (Maybe Int64)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe Message'SequencingId
x__
                 -> case Maybe Message'SequencingId
x__ of
                      (Prelude.Just (Message'CommandIndex Int64
x__val)) -> Int64 -> Maybe Int64
forall a. a -> Maybe a
Prelude.Just Int64
x__val
                      Maybe Message'SequencingId
_otherwise -> Maybe Int64
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe Message'SequencingId
_ Maybe Int64
y__ -> (Int64 -> Message'SequencingId)
-> Maybe Int64 -> Maybe Message'SequencingId
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Int64 -> Message'SequencingId
Message'CommandIndex Maybe Int64
y__))
           (Int64 -> Lens' (Maybe Int64) Int64
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault))
instance Data.ProtoLens.Message Message where
  messageName :: Proxy Message -> Text
messageName Proxy Message
_ = String -> Text
Data.Text.pack String
"temporal.api.protocol.v1.Message"
  packedMessageDescriptor :: Proxy Message -> ByteString
packedMessageDescriptor Proxy Message
_
    = ByteString
"\n\
      \\aMessage\DC2\SO\n\
      \\STXid\CAN\SOH \SOH(\tR\STXid\DC20\n\
      \\DC4protocol_instance_id\CAN\STX \SOH(\tR\DC2protocolInstanceId\DC2\ESC\n\
      \\bevent_id\CAN\ETX \SOH(\ETXH\NULR\aeventId\DC2%\n\
      \\rcommand_index\CAN\EOT \SOH(\ETXH\NULR\fcommandIndex\DC2(\n\
      \\EOTbody\CAN\ENQ \SOH(\v2\DC4.google.protobuf.AnyR\EOTbodyB\SI\n\
      \\rsequencing_id"
  packedFileDescriptor :: Proxy Message -> ByteString
packedFileDescriptor Proxy Message
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor Message)
fieldsByTag
    = let
        id__field_descriptor :: FieldDescriptor Message
id__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor Message Text
-> FieldDescriptor Message
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"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 Message Message Text Text -> FieldAccessor Message 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 (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 Message
        protocolInstanceId__field_descriptor :: FieldDescriptor Message
protocolInstanceId__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor Message Text
-> FieldDescriptor Message
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"protocol_instance_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 Message Message Text Text -> FieldAccessor Message 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 (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"protocolInstanceId")) ::
              Data.ProtoLens.FieldDescriptor Message
        body__field_descriptor :: FieldDescriptor Message
body__field_descriptor
          = String
-> FieldTypeDescriptor Any
-> FieldAccessor Message Any
-> FieldDescriptor Message
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"body"
              (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 Message Message (Maybe Any) (Maybe Any)
-> FieldAccessor Message Any
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'body")) ::
              Data.ProtoLens.FieldDescriptor Message
        eventId__field_descriptor :: FieldDescriptor Message
eventId__field_descriptor
          = String
-> FieldTypeDescriptor Int64
-> FieldAccessor Message Int64
-> FieldDescriptor Message
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"event_id"
              (ScalarField Int64 -> FieldTypeDescriptor Int64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Int64
Data.ProtoLens.Int64Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)
              (Lens' Message (Maybe Int64) -> FieldAccessor Message Int64
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'eventId")) ::
              Data.ProtoLens.FieldDescriptor Message
        commandIndex__field_descriptor :: FieldDescriptor Message
commandIndex__field_descriptor
          = String
-> FieldTypeDescriptor Int64
-> FieldAccessor Message Int64
-> FieldDescriptor Message
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"command_index"
              (ScalarField Int64 -> FieldTypeDescriptor Int64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Int64
Data.ProtoLens.Int64Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)
              (Lens' Message (Maybe Int64) -> FieldAccessor Message Int64
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'commandIndex")) ::
              Data.ProtoLens.FieldDescriptor Message
      in
        [(Tag, FieldDescriptor Message)]
-> Map Tag (FieldDescriptor Message)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor Message
id__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor Message
protocolInstanceId__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
5, FieldDescriptor Message
body__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor Message
eventId__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
4, FieldDescriptor Message
commandIndex__field_descriptor)]
  unknownFields :: Lens' Message FieldSet
unknownFields
    = (Message -> FieldSet)
-> (Message -> FieldSet -> Message) -> Lens' Message FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        Message -> FieldSet
_Message'_unknownFields
        (\ Message
x__ FieldSet
y__ -> Message
x__ {_Message'_unknownFields = y__})
  defMessage :: Message
defMessage
    = Message'_constructor
        {_Message'id :: Text
_Message'id = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _Message'protocolInstanceId :: Text
_Message'protocolInstanceId = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _Message'body :: Maybe Any
_Message'body = Maybe Any
forall a. Maybe a
Prelude.Nothing,
         _Message'sequencingId :: Maybe Message'SequencingId
_Message'sequencingId = Maybe Message'SequencingId
forall a. Maybe a
Prelude.Nothing,
         _Message'_unknownFields :: FieldSet
_Message'_unknownFields = []}
  parseMessage :: Parser Message
parseMessage
    = let
        loop :: Message -> Data.ProtoLens.Encoding.Bytes.Parser Message
        loop :: Message -> Parser Message
loop Message
x
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getText
                                             (Prelude.fromIntegral len))
                                       String
"id"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"id") y x)
                        Word64
18
                          -> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getText
                                             (Prelude.fromIntegral len))
                                       String
"protocol_instance_id"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"protocolInstanceId") y x)
                        Word64
42
                          -> do y <- Parser Any -> String -> Parser Any
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"body"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"body") y x)
                        Word64
24
                          -> do y <- Parser Int64 -> String -> Parser Int64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Int64) -> Parser Word64 -> Parser Int64
forall a b. (a -> b) -> Parser a -> Parser b
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)
                                       String
"event_id"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"eventId") y x)
                        Word64
32
                          -> do y <- Parser Int64 -> String -> Parser Int64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Int64) -> Parser Word64 -> Parser Int64
forall a b. (a -> b) -> Parser a -> Parser b
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)
                                       String
"command_index"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"commandIndex") y x)
                        Word64
wire
                          -> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                loop
                                  (Lens.Family2.over
                                     Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
      in
        Parser Message -> String -> Parser Message
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Message -> Parser Message
loop Message
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"Message"
  buildMessage :: Message -> Builder
buildMessage
    = \ Message
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: Text
_v = FoldLike Text Message Message Text Text -> Message -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"id") Message
_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 Word64
10)
                      ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                         (\ 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 Message Message Text Text -> Message -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                         (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"protocolInstanceId") Message
_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 Word64
18)
                         ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                            (\ 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) Message Message (Maybe Any) (Maybe Any)
-> Message -> Maybe Any
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'body") Message
_x
                    of
                      Maybe Any
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                      (Prelude.Just Any
_v)
                        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                             (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
42)
                             ((ByteString -> Builder) -> (Any -> ByteString) -> Any -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                (\ 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))
                   (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      (case
                           FoldLike
  (Maybe Message'SequencingId)
  Message
  Message
  (Maybe Message'SequencingId)
  (Maybe Message'SequencingId)
-> Message -> Maybe Message'SequencingId
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                             (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'sequencingId") Message
_x
                       of
                         Maybe Message'SequencingId
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                         (Prelude.Just (Message'EventId Int64
v))
                           -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
24)
                                ((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)
                         (Prelude.Just (Message'CommandIndex Int64
v))
                           -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
32)
                                ((Word64 -> Builder) -> (Int64 -> Word64) -> Int64 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                   Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int64 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int64
v))
                      (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                         (FoldLike FieldSet Message Message FieldSet FieldSet
-> Message -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet Message Message FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' Message FieldSet
Data.ProtoLens.unknownFields Message
_x)))))
instance Control.DeepSeq.NFData Message where
  rnf :: Message -> ()
rnf
    = \ Message
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (Message -> FieldSet
_Message'_unknownFields Message
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (Message -> Text
_Message'id Message
x__)
                (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (Message -> Text
_Message'protocolInstanceId Message
x__)
                   (Maybe Any -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                      (Message -> Maybe Any
_Message'body Message
x__)
                      (Maybe Message'SequencingId -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (Message -> Maybe Message'SequencingId
_Message'sequencingId Message
x__) ()))))
instance Control.DeepSeq.NFData Message'SequencingId where
  rnf :: Message'SequencingId -> ()
rnf (Message'EventId Int64
x__) = Int64 -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf Int64
x__
  rnf (Message'CommandIndex Int64
x__) = Int64 -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf Int64
x__
_Message'EventId ::
  Data.ProtoLens.Prism.Prism' Message'SequencingId Data.Int.Int64
_Message'EventId :: Prism' Message'SequencingId Int64
_Message'EventId
  = (Int64 -> Message'SequencingId)
-> (Message'SequencingId -> Maybe Int64)
-> Prism' Message'SequencingId Int64
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      Int64 -> Message'SequencingId
Message'EventId
      (\ Message'SequencingId
p__
         -> case Message'SequencingId
p__ of
              (Message'EventId Int64
p__val) -> Int64 -> Maybe Int64
forall a. a -> Maybe a
Prelude.Just Int64
p__val
              Message'SequencingId
_otherwise -> Maybe Int64
forall a. Maybe a
Prelude.Nothing)
_Message'CommandIndex ::
  Data.ProtoLens.Prism.Prism' Message'SequencingId Data.Int.Int64
_Message'CommandIndex :: Prism' Message'SequencingId Int64
_Message'CommandIndex
  = (Int64 -> Message'SequencingId)
-> (Message'SequencingId -> Maybe Int64)
-> Prism' Message'SequencingId Int64
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      Int64 -> Message'SequencingId
Message'CommandIndex
      (\ Message'SequencingId
p__
         -> case Message'SequencingId
p__ of
              (Message'CommandIndex Int64
p__val) -> Int64 -> Maybe Int64
forall a. a -> Maybe a
Prelude.Just Int64
p__val
              Message'SequencingId
_otherwise -> Maybe Int64
forall a. Maybe a
Prelude.Nothing)
packedFileDescriptor :: Data.ByteString.ByteString
packedFileDescriptor :: ByteString
packedFileDescriptor
  = ByteString
"\n\
    \&temporal/api/protocol/v1/message.proto\DC2\CANtemporal.api.protocol.v1\SUB\EMgoogle/protobuf/any.proto\"\202\SOH\n\
    \\aMessage\DC2\SO\n\
    \\STXid\CAN\SOH \SOH(\tR\STXid\DC20\n\
    \\DC4protocol_instance_id\CAN\STX \SOH(\tR\DC2protocolInstanceId\DC2\ESC\n\
    \\bevent_id\CAN\ETX \SOH(\ETXH\NULR\aeventId\DC2%\n\
    \\rcommand_index\CAN\EOT \SOH(\ETXH\NULR\fcommandIndex\DC2(\n\
    \\EOTbody\CAN\ENQ \SOH(\v2\DC4.google.protobuf.AnyR\EOTbodyB\SI\n\
    \\rsequencing_idB\147\SOH\n\
    \\ESCio.temporal.api.protocol.v1B\fMessageProtoP\SOHZ'go.temporal.io/api/protocol/v1;protocol\170\STX\SUBTemporalio.Api.Protocol.V1\234\STX\GSTemporalio::Api::Protocol::V1J\183\DC1\n\
    \\ACK\DC2\EOT\SYN\NUL8\SOH\n\
    \\241\b\n\
    \\SOH\f\DC2\ETX\SYN\NUL\DC22\230\b The MIT License\n\
    \\n\
    \ Copyright (c) 2020 Temporal Technologies Inc.  All rights reserved.\n\
    \\n\
    \ Permission is hereby granted, free of charge, to any person obtaining a copy\n\
    \ of this software and associated documentation files (the \"Software\"), to deal\n\
    \ in the Software without restriction, including without limitation the rights\n\
    \ to use, copy, modify, merge, publish, distribute, sublicense, and/or sell\n\
    \ copies of the Software, and to permit persons to whom the Software is\n\
    \ furnished to do so, subject to the following conditions:\n\
    \\n\
    \ The above copyright notice and this permission notice shall be included in\n\
    \ all copies or substantial portions of the Software.\n\
    \\n\
    \ THE SOFTWARE IS PROVIDED \"AS IS\", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR\n\
    \ IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,\n\
    \ FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE\n\
    \ AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER\n\
    \ LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,\n\
    \ OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN\n\
    \ THE SOFTWARE.\n\
    \\n\
    \\b\n\
    \\SOH\STX\DC2\ETX\CAN\NUL!\n\
    \\b\n\
    \\SOH\b\DC2\ETX\SUB\NUL>\n\
    \\t\n\
    \\STX\b\v\DC2\ETX\SUB\NUL>\n\
    \\b\n\
    \\SOH\b\DC2\ETX\ESC\NUL4\n\
    \\t\n\
    \\STX\b\SOH\DC2\ETX\ESC\NUL4\n\
    \\b\n\
    \\SOH\b\DC2\ETX\FS\NUL\"\n\
    \\t\n\
    \\STX\b\n\
    \\DC2\ETX\FS\NUL\"\n\
    \\b\n\
    \\SOH\b\DC2\ETX\GS\NUL-\n\
    \\t\n\
    \\STX\b\b\DC2\ETX\GS\NUL-\n\
    \\b\n\
    \\SOH\b\DC2\ETX\RS\NUL6\n\
    \\t\n\
    \\STX\b-\DC2\ETX\RS\NUL6\n\
    \\b\n\
    \\SOH\b\DC2\ETX\US\NUL7\n\
    \\t\n\
    \\STX\b%\DC2\ETX\US\NUL7\n\
    \\t\n\
    \\STX\ETX\NUL\DC2\ETX!\NUL#\n\
    \\135\SOH\n\
    \\STX\EOT\NUL\DC2\EOT%\NUL8\SOH\SUB{ (-- api-linter: core::0146::any=disabled\n\
    \     aip.dev/not-precedent: We want runtime extensibility for the body field --)\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\NUL\SOH\DC2\ETX%\b\SI\n\
    \/\n\
    \\EOT\EOT\NUL\STX\NUL\DC2\ETX'\EOT\DC2\SUB\" An ID for this specific message.\n\
    \\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\r\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\ETX\DC2\ETX'\DLE\DC1\n\
    \]\n\
    \\EOT\EOT\NUL\STX\SOH\DC2\ETX+\EOT$\SUBP Identifies the specific instance of a protocol to which this message\n\
    \ belongs.\n\
    \\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\US\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\SOH\ETX\DC2\ETX+\"#\n\
    \\233\SOH\n\
    \\EOT\EOT\NUL\b\NUL\DC2\EOT0\EOT3\ENQ\SUB\218\SOH The event ID or command ID after which this message can be delivered. The\n\
    \ effects of history up to and including this event ID should be visible to\n\
    \ the code that handles this message. Omit to opt out of sequencing.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\b\NUL\SOH\DC2\ETX0\n\
    \\ETB\n\
    \\v\n\
    \\EOT\EOT\NUL\STX\STX\DC2\ETX1\b\ESC\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\STX\ENQ\DC2\ETX1\b\r\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\STX\SOH\DC2\ETX1\SO\SYN\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\STX\ETX\DC2\ETX1\EM\SUB\n\
    \\v\n\
    \\EOT\EOT\NUL\STX\ETX\DC2\ETX2\b \n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\ETX\ENQ\DC2\ETX2\b\r\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\ETX\SOH\DC2\ETX2\SO\ESC\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\ETX\ETX\DC2\ETX2\RS\US\n\
    \\153\SOH\n\
    \\EOT\EOT\NUL\STX\EOT\DC2\ETX7\EOT!\SUB\139\SOH The opaque data carried by this message. The protocol type can be\n\
    \ extracted from the package name of the message carried inside the Any.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\EOT\ACK\DC2\ETX7\EOT\ETB\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\EOT\SOH\DC2\ETX7\CAN\FS\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\EOT\ETX\DC2\ETX7\US b\ACKproto3"