{- This file was auto-generated from temporal/api/query/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.Query.V1.Message (
        QueryRejected(), WorkflowQuery(), WorkflowQueryResult()
    ) 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.Temporal.Api.Common.V1.Message
import qualified Proto.Temporal.Api.Enums.V1.Query
import qualified Proto.Temporal.Api.Enums.V1.Workflow
{- | Fields :
     
         * 'Proto.Temporal.Api.Query.V1.Message_Fields.status' @:: Lens' QueryRejected Proto.Temporal.Api.Enums.V1.Workflow.WorkflowExecutionStatus@ -}
data QueryRejected
  = QueryRejected'_constructor {QueryRejected -> WorkflowExecutionStatus
_QueryRejected'status :: !Proto.Temporal.Api.Enums.V1.Workflow.WorkflowExecutionStatus,
                                QueryRejected -> FieldSet
_QueryRejected'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (QueryRejected -> QueryRejected -> Bool
(QueryRejected -> QueryRejected -> Bool)
-> (QueryRejected -> QueryRejected -> Bool) -> Eq QueryRejected
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: QueryRejected -> QueryRejected -> Bool
== :: QueryRejected -> QueryRejected -> Bool
$c/= :: QueryRejected -> QueryRejected -> Bool
/= :: QueryRejected -> QueryRejected -> Bool
Prelude.Eq, Eq QueryRejected
Eq QueryRejected =>
(QueryRejected -> QueryRejected -> Ordering)
-> (QueryRejected -> QueryRejected -> Bool)
-> (QueryRejected -> QueryRejected -> Bool)
-> (QueryRejected -> QueryRejected -> Bool)
-> (QueryRejected -> QueryRejected -> Bool)
-> (QueryRejected -> QueryRejected -> QueryRejected)
-> (QueryRejected -> QueryRejected -> QueryRejected)
-> Ord QueryRejected
QueryRejected -> QueryRejected -> Bool
QueryRejected -> QueryRejected -> Ordering
QueryRejected -> QueryRejected -> QueryRejected
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 :: QueryRejected -> QueryRejected -> Ordering
compare :: QueryRejected -> QueryRejected -> Ordering
$c< :: QueryRejected -> QueryRejected -> Bool
< :: QueryRejected -> QueryRejected -> Bool
$c<= :: QueryRejected -> QueryRejected -> Bool
<= :: QueryRejected -> QueryRejected -> Bool
$c> :: QueryRejected -> QueryRejected -> Bool
> :: QueryRejected -> QueryRejected -> Bool
$c>= :: QueryRejected -> QueryRejected -> Bool
>= :: QueryRejected -> QueryRejected -> Bool
$cmax :: QueryRejected -> QueryRejected -> QueryRejected
max :: QueryRejected -> QueryRejected -> QueryRejected
$cmin :: QueryRejected -> QueryRejected -> QueryRejected
min :: QueryRejected -> QueryRejected -> QueryRejected
Prelude.Ord)
instance Prelude.Show QueryRejected where
  showsPrec :: Int -> QueryRejected -> ShowS
showsPrec Int
_ QueryRejected
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (QueryRejected -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort QueryRejected
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField QueryRejected "status" Proto.Temporal.Api.Enums.V1.Workflow.WorkflowExecutionStatus where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "status"
-> (WorkflowExecutionStatus -> f WorkflowExecutionStatus)
-> QueryRejected
-> f QueryRejected
fieldOf Proxy# "status"
_
    = ((WorkflowExecutionStatus -> f WorkflowExecutionStatus)
 -> QueryRejected -> f QueryRejected)
-> ((WorkflowExecutionStatus -> f WorkflowExecutionStatus)
    -> WorkflowExecutionStatus -> f WorkflowExecutionStatus)
-> (WorkflowExecutionStatus -> f WorkflowExecutionStatus)
-> QueryRejected
-> f QueryRejected
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((QueryRejected -> WorkflowExecutionStatus)
-> (QueryRejected -> WorkflowExecutionStatus -> QueryRejected)
-> Lens
     QueryRejected
     QueryRejected
     WorkflowExecutionStatus
     WorkflowExecutionStatus
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           QueryRejected -> WorkflowExecutionStatus
_QueryRejected'status
           (\ QueryRejected
x__ WorkflowExecutionStatus
y__ -> QueryRejected
x__ {_QueryRejected'status = y__}))
        (WorkflowExecutionStatus -> f WorkflowExecutionStatus)
-> WorkflowExecutionStatus -> f WorkflowExecutionStatus
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message QueryRejected where
  messageName :: Proxy QueryRejected -> Text
messageName Proxy QueryRejected
_
    = String -> Text
Data.Text.pack String
"temporal.api.query.v1.QueryRejected"
  packedMessageDescriptor :: Proxy QueryRejected -> ByteString
packedMessageDescriptor Proxy QueryRejected
_
    = ByteString
"\n\
      \\rQueryRejected\DC2F\n\
      \\ACKstatus\CAN\SOH \SOH(\SO2..temporal.api.enums.v1.WorkflowExecutionStatusR\ACKstatus"
  packedFileDescriptor :: Proxy QueryRejected -> ByteString
packedFileDescriptor Proxy QueryRejected
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor QueryRejected)
fieldsByTag
    = let
        status__field_descriptor :: FieldDescriptor QueryRejected
status__field_descriptor
          = String
-> FieldTypeDescriptor WorkflowExecutionStatus
-> FieldAccessor QueryRejected WorkflowExecutionStatus
-> FieldDescriptor QueryRejected
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"status"
              (ScalarField WorkflowExecutionStatus
-> FieldTypeDescriptor WorkflowExecutionStatus
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField WorkflowExecutionStatus
forall t. MessageEnum t => ScalarField t
Data.ProtoLens.EnumField ::
                 Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Enums.V1.Workflow.WorkflowExecutionStatus)
              (WireDefault WorkflowExecutionStatus
-> Lens
     QueryRejected
     QueryRejected
     WorkflowExecutionStatus
     WorkflowExecutionStatus
-> FieldAccessor QueryRejected WorkflowExecutionStatus
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault WorkflowExecutionStatus
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 @"status")) ::
              Data.ProtoLens.FieldDescriptor QueryRejected
      in
        [(Tag, FieldDescriptor QueryRejected)]
-> Map Tag (FieldDescriptor QueryRejected)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor QueryRejected
status__field_descriptor)]
  unknownFields :: Lens' QueryRejected FieldSet
unknownFields
    = (QueryRejected -> FieldSet)
-> (QueryRejected -> FieldSet -> QueryRejected)
-> Lens' QueryRejected FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        QueryRejected -> FieldSet
_QueryRejected'_unknownFields
        (\ QueryRejected
x__ FieldSet
y__ -> QueryRejected
x__ {_QueryRejected'_unknownFields = y__})
  defMessage :: QueryRejected
defMessage
    = QueryRejected'_constructor
        {_QueryRejected'status :: WorkflowExecutionStatus
_QueryRejected'status = WorkflowExecutionStatus
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _QueryRejected'_unknownFields :: FieldSet
_QueryRejected'_unknownFields = []}
  parseMessage :: Parser QueryRejected
parseMessage
    = let
        loop ::
          QueryRejected -> Data.ProtoLens.Encoding.Bytes.Parser QueryRejected
        loop :: QueryRejected -> Parser QueryRejected
loop QueryRejected
x
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
8 -> do y <- Parser WorkflowExecutionStatus
-> String -> Parser WorkflowExecutionStatus
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Int -> WorkflowExecutionStatus)
-> Parser Int -> Parser WorkflowExecutionStatus
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Int -> WorkflowExecutionStatus
forall a. Enum a => Int -> a
Prelude.toEnum
                                          ((Word64 -> Int) -> Parser Word64 -> Parser Int
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                             Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                             Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt))
                                       String
"status"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"status") 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 QueryRejected -> String -> Parser QueryRejected
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do QueryRejected -> Parser QueryRejected
loop QueryRejected
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"QueryRejected"
  buildMessage :: QueryRejected -> Builder
buildMessage
    = \ QueryRejected
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: WorkflowExecutionStatus
_v = FoldLike
  WorkflowExecutionStatus
  QueryRejected
  QueryRejected
  WorkflowExecutionStatus
  WorkflowExecutionStatus
-> QueryRejected -> WorkflowExecutionStatus
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 @"status") QueryRejected
_x
              in
                if WorkflowExecutionStatus -> WorkflowExecutionStatus -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) WorkflowExecutionStatus
_v WorkflowExecutionStatus
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                    Builder
forall a. Monoid a => a
Data.Monoid.mempty
                else
                    Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
8)
                      ((Int -> Builder)
-> (WorkflowExecutionStatus -> Int)
-> WorkflowExecutionStatus
-> 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)
                         WorkflowExecutionStatus -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum WorkflowExecutionStatus
_v))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike FieldSet QueryRejected QueryRejected FieldSet FieldSet
-> QueryRejected -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet QueryRejected QueryRejected FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' QueryRejected FieldSet
Data.ProtoLens.unknownFields QueryRejected
_x))
instance Control.DeepSeq.NFData QueryRejected where
  rnf :: QueryRejected -> ()
rnf
    = \ QueryRejected
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (QueryRejected -> FieldSet
_QueryRejected'_unknownFields QueryRejected
x__)
             (WorkflowExecutionStatus -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (QueryRejected -> WorkflowExecutionStatus
_QueryRejected'status QueryRejected
x__) ())
{- | Fields :
     
         * 'Proto.Temporal.Api.Query.V1.Message_Fields.queryType' @:: Lens' WorkflowQuery Data.Text.Text@
         * 'Proto.Temporal.Api.Query.V1.Message_Fields.queryArgs' @:: Lens' WorkflowQuery Proto.Temporal.Api.Common.V1.Message.Payloads@
         * 'Proto.Temporal.Api.Query.V1.Message_Fields.maybe'queryArgs' @:: Lens' WorkflowQuery (Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.Payloads)@
         * 'Proto.Temporal.Api.Query.V1.Message_Fields.header' @:: Lens' WorkflowQuery Proto.Temporal.Api.Common.V1.Message.Header@
         * 'Proto.Temporal.Api.Query.V1.Message_Fields.maybe'header' @:: Lens' WorkflowQuery (Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.Header)@ -}
data WorkflowQuery
  = WorkflowQuery'_constructor {WorkflowQuery -> Text
_WorkflowQuery'queryType :: !Data.Text.Text,
                                WorkflowQuery -> Maybe Payloads
_WorkflowQuery'queryArgs :: !(Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.Payloads),
                                WorkflowQuery -> Maybe Header
_WorkflowQuery'header :: !(Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.Header),
                                WorkflowQuery -> FieldSet
_WorkflowQuery'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (WorkflowQuery -> WorkflowQuery -> Bool
(WorkflowQuery -> WorkflowQuery -> Bool)
-> (WorkflowQuery -> WorkflowQuery -> Bool) -> Eq WorkflowQuery
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: WorkflowQuery -> WorkflowQuery -> Bool
== :: WorkflowQuery -> WorkflowQuery -> Bool
$c/= :: WorkflowQuery -> WorkflowQuery -> Bool
/= :: WorkflowQuery -> WorkflowQuery -> Bool
Prelude.Eq, Eq WorkflowQuery
Eq WorkflowQuery =>
(WorkflowQuery -> WorkflowQuery -> Ordering)
-> (WorkflowQuery -> WorkflowQuery -> Bool)
-> (WorkflowQuery -> WorkflowQuery -> Bool)
-> (WorkflowQuery -> WorkflowQuery -> Bool)
-> (WorkflowQuery -> WorkflowQuery -> Bool)
-> (WorkflowQuery -> WorkflowQuery -> WorkflowQuery)
-> (WorkflowQuery -> WorkflowQuery -> WorkflowQuery)
-> Ord WorkflowQuery
WorkflowQuery -> WorkflowQuery -> Bool
WorkflowQuery -> WorkflowQuery -> Ordering
WorkflowQuery -> WorkflowQuery -> WorkflowQuery
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 :: WorkflowQuery -> WorkflowQuery -> Ordering
compare :: WorkflowQuery -> WorkflowQuery -> Ordering
$c< :: WorkflowQuery -> WorkflowQuery -> Bool
< :: WorkflowQuery -> WorkflowQuery -> Bool
$c<= :: WorkflowQuery -> WorkflowQuery -> Bool
<= :: WorkflowQuery -> WorkflowQuery -> Bool
$c> :: WorkflowQuery -> WorkflowQuery -> Bool
> :: WorkflowQuery -> WorkflowQuery -> Bool
$c>= :: WorkflowQuery -> WorkflowQuery -> Bool
>= :: WorkflowQuery -> WorkflowQuery -> Bool
$cmax :: WorkflowQuery -> WorkflowQuery -> WorkflowQuery
max :: WorkflowQuery -> WorkflowQuery -> WorkflowQuery
$cmin :: WorkflowQuery -> WorkflowQuery -> WorkflowQuery
min :: WorkflowQuery -> WorkflowQuery -> WorkflowQuery
Prelude.Ord)
instance Prelude.Show WorkflowQuery where
  showsPrec :: Int -> WorkflowQuery -> ShowS
showsPrec Int
_ WorkflowQuery
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (WorkflowQuery -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort WorkflowQuery
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField WorkflowQuery "queryType" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "queryType"
-> (Text -> f Text) -> WorkflowQuery -> f WorkflowQuery
fieldOf Proxy# "queryType"
_
    = ((Text -> f Text) -> WorkflowQuery -> f WorkflowQuery)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> WorkflowQuery
-> f WorkflowQuery
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((WorkflowQuery -> Text)
-> (WorkflowQuery -> Text -> WorkflowQuery)
-> Lens WorkflowQuery WorkflowQuery Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           WorkflowQuery -> Text
_WorkflowQuery'queryType
           (\ WorkflowQuery
x__ Text
y__ -> WorkflowQuery
x__ {_WorkflowQuery'queryType = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField WorkflowQuery "queryArgs" Proto.Temporal.Api.Common.V1.Message.Payloads where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "queryArgs"
-> (Payloads -> f Payloads) -> WorkflowQuery -> f WorkflowQuery
fieldOf Proxy# "queryArgs"
_
    = ((Maybe Payloads -> f (Maybe Payloads))
 -> WorkflowQuery -> f WorkflowQuery)
-> ((Payloads -> f Payloads)
    -> Maybe Payloads -> f (Maybe Payloads))
-> (Payloads -> f Payloads)
-> WorkflowQuery
-> f WorkflowQuery
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((WorkflowQuery -> Maybe Payloads)
-> (WorkflowQuery -> Maybe Payloads -> WorkflowQuery)
-> Lens
     WorkflowQuery WorkflowQuery (Maybe Payloads) (Maybe Payloads)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           WorkflowQuery -> Maybe Payloads
_WorkflowQuery'queryArgs
           (\ WorkflowQuery
x__ Maybe Payloads
y__ -> WorkflowQuery
x__ {_WorkflowQuery'queryArgs = y__}))
        (Payloads -> Lens' (Maybe Payloads) Payloads
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Payloads
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField WorkflowQuery "maybe'queryArgs" (Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.Payloads) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'queryArgs"
-> (Maybe Payloads -> f (Maybe Payloads))
-> WorkflowQuery
-> f WorkflowQuery
fieldOf Proxy# "maybe'queryArgs"
_
    = ((Maybe Payloads -> f (Maybe Payloads))
 -> WorkflowQuery -> f WorkflowQuery)
-> ((Maybe Payloads -> f (Maybe Payloads))
    -> Maybe Payloads -> f (Maybe Payloads))
-> (Maybe Payloads -> f (Maybe Payloads))
-> WorkflowQuery
-> f WorkflowQuery
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((WorkflowQuery -> Maybe Payloads)
-> (WorkflowQuery -> Maybe Payloads -> WorkflowQuery)
-> Lens
     WorkflowQuery WorkflowQuery (Maybe Payloads) (Maybe Payloads)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           WorkflowQuery -> Maybe Payloads
_WorkflowQuery'queryArgs
           (\ WorkflowQuery
x__ Maybe Payloads
y__ -> WorkflowQuery
x__ {_WorkflowQuery'queryArgs = y__}))
        (Maybe Payloads -> f (Maybe Payloads))
-> Maybe Payloads -> f (Maybe Payloads)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField WorkflowQuery "header" Proto.Temporal.Api.Common.V1.Message.Header where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "header"
-> (Header -> f Header) -> WorkflowQuery -> f WorkflowQuery
fieldOf Proxy# "header"
_
    = ((Maybe Header -> f (Maybe Header))
 -> WorkflowQuery -> f WorkflowQuery)
-> ((Header -> f Header) -> Maybe Header -> f (Maybe Header))
-> (Header -> f Header)
-> WorkflowQuery
-> f WorkflowQuery
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((WorkflowQuery -> Maybe Header)
-> (WorkflowQuery -> Maybe Header -> WorkflowQuery)
-> Lens WorkflowQuery WorkflowQuery (Maybe Header) (Maybe Header)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           WorkflowQuery -> Maybe Header
_WorkflowQuery'header
           (\ WorkflowQuery
x__ Maybe Header
y__ -> WorkflowQuery
x__ {_WorkflowQuery'header = y__}))
        (Header -> Lens' (Maybe Header) Header
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Header
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField WorkflowQuery "maybe'header" (Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.Header) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'header"
-> (Maybe Header -> f (Maybe Header))
-> WorkflowQuery
-> f WorkflowQuery
fieldOf Proxy# "maybe'header"
_
    = ((Maybe Header -> f (Maybe Header))
 -> WorkflowQuery -> f WorkflowQuery)
-> ((Maybe Header -> f (Maybe Header))
    -> Maybe Header -> f (Maybe Header))
-> (Maybe Header -> f (Maybe Header))
-> WorkflowQuery
-> f WorkflowQuery
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((WorkflowQuery -> Maybe Header)
-> (WorkflowQuery -> Maybe Header -> WorkflowQuery)
-> Lens WorkflowQuery WorkflowQuery (Maybe Header) (Maybe Header)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           WorkflowQuery -> Maybe Header
_WorkflowQuery'header
           (\ WorkflowQuery
x__ Maybe Header
y__ -> WorkflowQuery
x__ {_WorkflowQuery'header = y__}))
        (Maybe Header -> f (Maybe Header))
-> Maybe Header -> f (Maybe Header)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message WorkflowQuery where
  messageName :: Proxy WorkflowQuery -> Text
messageName Proxy WorkflowQuery
_
    = String -> Text
Data.Text.pack String
"temporal.api.query.v1.WorkflowQuery"
  packedMessageDescriptor :: Proxy WorkflowQuery -> ByteString
packedMessageDescriptor Proxy WorkflowQuery
_
    = ByteString
"\n\
      \\rWorkflowQuery\DC2\GS\n\
      \\n\
      \query_type\CAN\SOH \SOH(\tR\tqueryType\DC2?\n\
      \\n\
      \query_args\CAN\STX \SOH(\v2 .temporal.api.common.v1.PayloadsR\tqueryArgs\DC26\n\
      \\ACKheader\CAN\ETX \SOH(\v2\RS.temporal.api.common.v1.HeaderR\ACKheader"
  packedFileDescriptor :: Proxy WorkflowQuery -> ByteString
packedFileDescriptor Proxy WorkflowQuery
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor WorkflowQuery)
fieldsByTag
    = let
        queryType__field_descriptor :: FieldDescriptor WorkflowQuery
queryType__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor WorkflowQuery Text
-> FieldDescriptor WorkflowQuery
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"query_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 WorkflowQuery WorkflowQuery Text Text
-> FieldAccessor WorkflowQuery 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 @"queryType")) ::
              Data.ProtoLens.FieldDescriptor WorkflowQuery
        queryArgs__field_descriptor :: FieldDescriptor WorkflowQuery
queryArgs__field_descriptor
          = String
-> FieldTypeDescriptor Payloads
-> FieldAccessor WorkflowQuery Payloads
-> FieldDescriptor WorkflowQuery
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"query_args"
              (MessageOrGroup -> FieldTypeDescriptor Payloads
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Common.V1.Message.Payloads)
              (Lens WorkflowQuery WorkflowQuery (Maybe Payloads) (Maybe Payloads)
-> FieldAccessor WorkflowQuery Payloads
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'queryArgs")) ::
              Data.ProtoLens.FieldDescriptor WorkflowQuery
        header__field_descriptor :: FieldDescriptor WorkflowQuery
header__field_descriptor
          = String
-> FieldTypeDescriptor Header
-> FieldAccessor WorkflowQuery Header
-> FieldDescriptor WorkflowQuery
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"header"
              (MessageOrGroup -> FieldTypeDescriptor Header
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Common.V1.Message.Header)
              (Lens WorkflowQuery WorkflowQuery (Maybe Header) (Maybe Header)
-> FieldAccessor WorkflowQuery Header
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'header")) ::
              Data.ProtoLens.FieldDescriptor WorkflowQuery
      in
        [(Tag, FieldDescriptor WorkflowQuery)]
-> Map Tag (FieldDescriptor WorkflowQuery)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor WorkflowQuery
queryType__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor WorkflowQuery
queryArgs__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor WorkflowQuery
header__field_descriptor)]
  unknownFields :: Lens' WorkflowQuery FieldSet
unknownFields
    = (WorkflowQuery -> FieldSet)
-> (WorkflowQuery -> FieldSet -> WorkflowQuery)
-> Lens' WorkflowQuery FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        WorkflowQuery -> FieldSet
_WorkflowQuery'_unknownFields
        (\ WorkflowQuery
x__ FieldSet
y__ -> WorkflowQuery
x__ {_WorkflowQuery'_unknownFields = y__})
  defMessage :: WorkflowQuery
defMessage
    = WorkflowQuery'_constructor
        {_WorkflowQuery'queryType :: Text
_WorkflowQuery'queryType = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _WorkflowQuery'queryArgs :: Maybe Payloads
_WorkflowQuery'queryArgs = Maybe Payloads
forall a. Maybe a
Prelude.Nothing,
         _WorkflowQuery'header :: Maybe Header
_WorkflowQuery'header = Maybe Header
forall a. Maybe a
Prelude.Nothing,
         _WorkflowQuery'_unknownFields :: FieldSet
_WorkflowQuery'_unknownFields = []}
  parseMessage :: Parser WorkflowQuery
parseMessage
    = let
        loop ::
          WorkflowQuery -> Data.ProtoLens.Encoding.Bytes.Parser WorkflowQuery
        loop :: WorkflowQuery -> Parser WorkflowQuery
loop WorkflowQuery
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
"query_type"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"queryType") y x)
                        Word64
18
                          -> do y <- Parser Payloads -> String -> Parser Payloads
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
"query_args"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"queryArgs") y x)
                        Word64
26
                          -> do y <- Parser Header -> String -> Parser Header
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
"header"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"header") 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 WorkflowQuery -> String -> Parser WorkflowQuery
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do WorkflowQuery -> Parser WorkflowQuery
loop WorkflowQuery
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"WorkflowQuery"
  buildMessage :: WorkflowQuery -> Builder
buildMessage
    = \ WorkflowQuery
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: Text
_v = FoldLike Text WorkflowQuery WorkflowQuery Text Text
-> WorkflowQuery -> 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 @"queryType") WorkflowQuery
_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.<>)
                (case
                     FoldLike
  (Maybe Payloads)
  WorkflowQuery
  WorkflowQuery
  (Maybe Payloads)
  (Maybe Payloads)
-> WorkflowQuery -> Maybe Payloads
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'queryArgs") WorkflowQuery
_x
                 of
                   Maybe Payloads
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   (Prelude.Just Payloads
_v)
                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
                          ((ByteString -> Builder)
-> (Payloads -> ByteString) -> Payloads -> 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))
                             Payloads -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Payloads
_v))
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   (case
                        FoldLike
  (Maybe Header)
  WorkflowQuery
  WorkflowQuery
  (Maybe Header)
  (Maybe Header)
-> WorkflowQuery -> Maybe Header
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'header") WorkflowQuery
_x
                    of
                      Maybe Header
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                      (Prelude.Just Header
_v)
                        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                             (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
26)
                             ((ByteString -> Builder)
-> (Header -> ByteString) -> Header -> 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))
                                Header -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Header
_v))
                   (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                      (FoldLike FieldSet WorkflowQuery WorkflowQuery FieldSet FieldSet
-> WorkflowQuery -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet WorkflowQuery WorkflowQuery FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' WorkflowQuery FieldSet
Data.ProtoLens.unknownFields WorkflowQuery
_x))))
instance Control.DeepSeq.NFData WorkflowQuery where
  rnf :: WorkflowQuery -> ()
rnf
    = \ WorkflowQuery
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (WorkflowQuery -> FieldSet
_WorkflowQuery'_unknownFields WorkflowQuery
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (WorkflowQuery -> Text
_WorkflowQuery'queryType WorkflowQuery
x__)
                (Maybe Payloads -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (WorkflowQuery -> Maybe Payloads
_WorkflowQuery'queryArgs WorkflowQuery
x__)
                   (Maybe Header -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (WorkflowQuery -> Maybe Header
_WorkflowQuery'header WorkflowQuery
x__) ())))
{- | Fields :
     
         * 'Proto.Temporal.Api.Query.V1.Message_Fields.resultType' @:: Lens' WorkflowQueryResult Proto.Temporal.Api.Enums.V1.Query.QueryResultType@
         * 'Proto.Temporal.Api.Query.V1.Message_Fields.answer' @:: Lens' WorkflowQueryResult Proto.Temporal.Api.Common.V1.Message.Payloads@
         * 'Proto.Temporal.Api.Query.V1.Message_Fields.maybe'answer' @:: Lens' WorkflowQueryResult (Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.Payloads)@
         * 'Proto.Temporal.Api.Query.V1.Message_Fields.errorMessage' @:: Lens' WorkflowQueryResult Data.Text.Text@ -}
data WorkflowQueryResult
  = WorkflowQueryResult'_constructor {WorkflowQueryResult -> QueryResultType
_WorkflowQueryResult'resultType :: !Proto.Temporal.Api.Enums.V1.Query.QueryResultType,
                                      WorkflowQueryResult -> Maybe Payloads
_WorkflowQueryResult'answer :: !(Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.Payloads),
                                      WorkflowQueryResult -> Text
_WorkflowQueryResult'errorMessage :: !Data.Text.Text,
                                      WorkflowQueryResult -> FieldSet
_WorkflowQueryResult'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (WorkflowQueryResult -> WorkflowQueryResult -> Bool
(WorkflowQueryResult -> WorkflowQueryResult -> Bool)
-> (WorkflowQueryResult -> WorkflowQueryResult -> Bool)
-> Eq WorkflowQueryResult
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: WorkflowQueryResult -> WorkflowQueryResult -> Bool
== :: WorkflowQueryResult -> WorkflowQueryResult -> Bool
$c/= :: WorkflowQueryResult -> WorkflowQueryResult -> Bool
/= :: WorkflowQueryResult -> WorkflowQueryResult -> Bool
Prelude.Eq, Eq WorkflowQueryResult
Eq WorkflowQueryResult =>
(WorkflowQueryResult -> WorkflowQueryResult -> Ordering)
-> (WorkflowQueryResult -> WorkflowQueryResult -> Bool)
-> (WorkflowQueryResult -> WorkflowQueryResult -> Bool)
-> (WorkflowQueryResult -> WorkflowQueryResult -> Bool)
-> (WorkflowQueryResult -> WorkflowQueryResult -> Bool)
-> (WorkflowQueryResult
    -> WorkflowQueryResult -> WorkflowQueryResult)
-> (WorkflowQueryResult
    -> WorkflowQueryResult -> WorkflowQueryResult)
-> Ord WorkflowQueryResult
WorkflowQueryResult -> WorkflowQueryResult -> Bool
WorkflowQueryResult -> WorkflowQueryResult -> Ordering
WorkflowQueryResult -> WorkflowQueryResult -> WorkflowQueryResult
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 :: WorkflowQueryResult -> WorkflowQueryResult -> Ordering
compare :: WorkflowQueryResult -> WorkflowQueryResult -> Ordering
$c< :: WorkflowQueryResult -> WorkflowQueryResult -> Bool
< :: WorkflowQueryResult -> WorkflowQueryResult -> Bool
$c<= :: WorkflowQueryResult -> WorkflowQueryResult -> Bool
<= :: WorkflowQueryResult -> WorkflowQueryResult -> Bool
$c> :: WorkflowQueryResult -> WorkflowQueryResult -> Bool
> :: WorkflowQueryResult -> WorkflowQueryResult -> Bool
$c>= :: WorkflowQueryResult -> WorkflowQueryResult -> Bool
>= :: WorkflowQueryResult -> WorkflowQueryResult -> Bool
$cmax :: WorkflowQueryResult -> WorkflowQueryResult -> WorkflowQueryResult
max :: WorkflowQueryResult -> WorkflowQueryResult -> WorkflowQueryResult
$cmin :: WorkflowQueryResult -> WorkflowQueryResult -> WorkflowQueryResult
min :: WorkflowQueryResult -> WorkflowQueryResult -> WorkflowQueryResult
Prelude.Ord)
instance Prelude.Show WorkflowQueryResult where
  showsPrec :: Int -> WorkflowQueryResult -> ShowS
showsPrec Int
_ WorkflowQueryResult
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (WorkflowQueryResult -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort WorkflowQueryResult
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField WorkflowQueryResult "resultType" Proto.Temporal.Api.Enums.V1.Query.QueryResultType where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "resultType"
-> (QueryResultType -> f QueryResultType)
-> WorkflowQueryResult
-> f WorkflowQueryResult
fieldOf Proxy# "resultType"
_
    = ((QueryResultType -> f QueryResultType)
 -> WorkflowQueryResult -> f WorkflowQueryResult)
-> ((QueryResultType -> f QueryResultType)
    -> QueryResultType -> f QueryResultType)
-> (QueryResultType -> f QueryResultType)
-> WorkflowQueryResult
-> f WorkflowQueryResult
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((WorkflowQueryResult -> QueryResultType)
-> (WorkflowQueryResult -> QueryResultType -> WorkflowQueryResult)
-> Lens
     WorkflowQueryResult
     WorkflowQueryResult
     QueryResultType
     QueryResultType
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           WorkflowQueryResult -> QueryResultType
_WorkflowQueryResult'resultType
           (\ WorkflowQueryResult
x__ QueryResultType
y__ -> WorkflowQueryResult
x__ {_WorkflowQueryResult'resultType = y__}))
        (QueryResultType -> f QueryResultType)
-> QueryResultType -> f QueryResultType
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField WorkflowQueryResult "answer" Proto.Temporal.Api.Common.V1.Message.Payloads where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "answer"
-> (Payloads -> f Payloads)
-> WorkflowQueryResult
-> f WorkflowQueryResult
fieldOf Proxy# "answer"
_
    = ((Maybe Payloads -> f (Maybe Payloads))
 -> WorkflowQueryResult -> f WorkflowQueryResult)
-> ((Payloads -> f Payloads)
    -> Maybe Payloads -> f (Maybe Payloads))
-> (Payloads -> f Payloads)
-> WorkflowQueryResult
-> f WorkflowQueryResult
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((WorkflowQueryResult -> Maybe Payloads)
-> (WorkflowQueryResult -> Maybe Payloads -> WorkflowQueryResult)
-> Lens
     WorkflowQueryResult
     WorkflowQueryResult
     (Maybe Payloads)
     (Maybe Payloads)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           WorkflowQueryResult -> Maybe Payloads
_WorkflowQueryResult'answer
           (\ WorkflowQueryResult
x__ Maybe Payloads
y__ -> WorkflowQueryResult
x__ {_WorkflowQueryResult'answer = y__}))
        (Payloads -> Lens' (Maybe Payloads) Payloads
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Payloads
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField WorkflowQueryResult "maybe'answer" (Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.Payloads) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'answer"
-> (Maybe Payloads -> f (Maybe Payloads))
-> WorkflowQueryResult
-> f WorkflowQueryResult
fieldOf Proxy# "maybe'answer"
_
    = ((Maybe Payloads -> f (Maybe Payloads))
 -> WorkflowQueryResult -> f WorkflowQueryResult)
-> ((Maybe Payloads -> f (Maybe Payloads))
    -> Maybe Payloads -> f (Maybe Payloads))
-> (Maybe Payloads -> f (Maybe Payloads))
-> WorkflowQueryResult
-> f WorkflowQueryResult
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((WorkflowQueryResult -> Maybe Payloads)
-> (WorkflowQueryResult -> Maybe Payloads -> WorkflowQueryResult)
-> Lens
     WorkflowQueryResult
     WorkflowQueryResult
     (Maybe Payloads)
     (Maybe Payloads)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           WorkflowQueryResult -> Maybe Payloads
_WorkflowQueryResult'answer
           (\ WorkflowQueryResult
x__ Maybe Payloads
y__ -> WorkflowQueryResult
x__ {_WorkflowQueryResult'answer = y__}))
        (Maybe Payloads -> f (Maybe Payloads))
-> Maybe Payloads -> f (Maybe Payloads)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField WorkflowQueryResult "errorMessage" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "errorMessage"
-> (Text -> f Text) -> WorkflowQueryResult -> f WorkflowQueryResult
fieldOf Proxy# "errorMessage"
_
    = ((Text -> f Text) -> WorkflowQueryResult -> f WorkflowQueryResult)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> WorkflowQueryResult
-> f WorkflowQueryResult
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((WorkflowQueryResult -> Text)
-> (WorkflowQueryResult -> Text -> WorkflowQueryResult)
-> Lens WorkflowQueryResult WorkflowQueryResult Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           WorkflowQueryResult -> Text
_WorkflowQueryResult'errorMessage
           (\ WorkflowQueryResult
x__ Text
y__ -> WorkflowQueryResult
x__ {_WorkflowQueryResult'errorMessage = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message WorkflowQueryResult where
  messageName :: Proxy WorkflowQueryResult -> Text
messageName Proxy WorkflowQueryResult
_
    = String -> Text
Data.Text.pack String
"temporal.api.query.v1.WorkflowQueryResult"
  packedMessageDescriptor :: Proxy WorkflowQueryResult -> ByteString
packedMessageDescriptor Proxy WorkflowQueryResult
_
    = ByteString
"\n\
      \\DC3WorkflowQueryResult\DC2G\n\
      \\vresult_type\CAN\SOH \SOH(\SO2&.temporal.api.enums.v1.QueryResultTypeR\n\
      \resultType\DC28\n\
      \\ACKanswer\CAN\STX \SOH(\v2 .temporal.api.common.v1.PayloadsR\ACKanswer\DC2#\n\
      \\rerror_message\CAN\ETX \SOH(\tR\ferrorMessage"
  packedFileDescriptor :: Proxy WorkflowQueryResult -> ByteString
packedFileDescriptor Proxy WorkflowQueryResult
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor WorkflowQueryResult)
fieldsByTag
    = let
        resultType__field_descriptor :: FieldDescriptor WorkflowQueryResult
resultType__field_descriptor
          = String
-> FieldTypeDescriptor QueryResultType
-> FieldAccessor WorkflowQueryResult QueryResultType
-> FieldDescriptor WorkflowQueryResult
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"result_type"
              (ScalarField QueryResultType -> FieldTypeDescriptor QueryResultType
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField QueryResultType
forall t. MessageEnum t => ScalarField t
Data.ProtoLens.EnumField ::
                 Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Enums.V1.Query.QueryResultType)
              (WireDefault QueryResultType
-> Lens
     WorkflowQueryResult
     WorkflowQueryResult
     QueryResultType
     QueryResultType
-> FieldAccessor WorkflowQueryResult QueryResultType
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault QueryResultType
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 @"resultType")) ::
              Data.ProtoLens.FieldDescriptor WorkflowQueryResult
        answer__field_descriptor :: FieldDescriptor WorkflowQueryResult
answer__field_descriptor
          = String
-> FieldTypeDescriptor Payloads
-> FieldAccessor WorkflowQueryResult Payloads
-> FieldDescriptor WorkflowQueryResult
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"answer"
              (MessageOrGroup -> FieldTypeDescriptor Payloads
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Common.V1.Message.Payloads)
              (Lens
  WorkflowQueryResult
  WorkflowQueryResult
  (Maybe Payloads)
  (Maybe Payloads)
-> FieldAccessor WorkflowQueryResult Payloads
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'answer")) ::
              Data.ProtoLens.FieldDescriptor WorkflowQueryResult
        errorMessage__field_descriptor :: FieldDescriptor WorkflowQueryResult
errorMessage__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor WorkflowQueryResult Text
-> FieldDescriptor WorkflowQueryResult
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"error_message"
              (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 WorkflowQueryResult WorkflowQueryResult Text Text
-> FieldAccessor WorkflowQueryResult 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 @"errorMessage")) ::
              Data.ProtoLens.FieldDescriptor WorkflowQueryResult
      in
        [(Tag, FieldDescriptor WorkflowQueryResult)]
-> Map Tag (FieldDescriptor WorkflowQueryResult)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor WorkflowQueryResult
resultType__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor WorkflowQueryResult
answer__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor WorkflowQueryResult
errorMessage__field_descriptor)]
  unknownFields :: Lens' WorkflowQueryResult FieldSet
unknownFields
    = (WorkflowQueryResult -> FieldSet)
-> (WorkflowQueryResult -> FieldSet -> WorkflowQueryResult)
-> Lens' WorkflowQueryResult FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        WorkflowQueryResult -> FieldSet
_WorkflowQueryResult'_unknownFields
        (\ WorkflowQueryResult
x__ FieldSet
y__ -> WorkflowQueryResult
x__ {_WorkflowQueryResult'_unknownFields = y__})
  defMessage :: WorkflowQueryResult
defMessage
    = WorkflowQueryResult'_constructor
        {_WorkflowQueryResult'resultType :: QueryResultType
_WorkflowQueryResult'resultType = QueryResultType
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _WorkflowQueryResult'answer :: Maybe Payloads
_WorkflowQueryResult'answer = Maybe Payloads
forall a. Maybe a
Prelude.Nothing,
         _WorkflowQueryResult'errorMessage :: Text
_WorkflowQueryResult'errorMessage = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _WorkflowQueryResult'_unknownFields :: FieldSet
_WorkflowQueryResult'_unknownFields = []}
  parseMessage :: Parser WorkflowQueryResult
parseMessage
    = let
        loop ::
          WorkflowQueryResult
          -> Data.ProtoLens.Encoding.Bytes.Parser WorkflowQueryResult
        loop :: WorkflowQueryResult -> Parser WorkflowQueryResult
loop WorkflowQueryResult
x
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
8 -> do y <- Parser QueryResultType -> String -> Parser QueryResultType
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Int -> QueryResultType) -> Parser Int -> Parser QueryResultType
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Int -> QueryResultType
forall a. Enum a => Int -> a
Prelude.toEnum
                                          ((Word64 -> Int) -> Parser Word64 -> Parser Int
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                             Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                             Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt))
                                       String
"result_type"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"resultType") y x)
                        Word64
18
                          -> do y <- Parser Payloads -> String -> Parser Payloads
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
"answer"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"answer") y x)
                        Word64
26
                          -> 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
"error_message"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"errorMessage") 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 WorkflowQueryResult -> String -> Parser WorkflowQueryResult
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do WorkflowQueryResult -> Parser WorkflowQueryResult
loop WorkflowQueryResult
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"WorkflowQueryResult"
  buildMessage :: WorkflowQueryResult -> Builder
buildMessage
    = \ WorkflowQueryResult
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: QueryResultType
_v
                  = FoldLike
  QueryResultType
  WorkflowQueryResult
  WorkflowQueryResult
  QueryResultType
  QueryResultType
-> WorkflowQueryResult -> QueryResultType
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 @"resultType") WorkflowQueryResult
_x
              in
                if QueryResultType -> QueryResultType -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) QueryResultType
_v QueryResultType
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                    Builder
forall a. Monoid a => a
Data.Monoid.mempty
                else
                    Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
8)
                      ((Int -> Builder)
-> (QueryResultType -> Int) -> QueryResultType -> 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)
                         QueryResultType -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum QueryResultType
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (case
                     FoldLike
  (Maybe Payloads)
  WorkflowQueryResult
  WorkflowQueryResult
  (Maybe Payloads)
  (Maybe Payloads)
-> WorkflowQueryResult -> Maybe Payloads
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'answer") WorkflowQueryResult
_x
                 of
                   Maybe Payloads
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   (Prelude.Just Payloads
_v)
                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
                          ((ByteString -> Builder)
-> (Payloads -> ByteString) -> Payloads -> 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))
                             Payloads -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Payloads
_v))
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   (let
                      _v :: Text
_v
                        = FoldLike Text WorkflowQueryResult WorkflowQueryResult Text Text
-> WorkflowQueryResult -> 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 @"errorMessage") WorkflowQueryResult
_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
26)
                            ((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))
                   (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                      (FoldLike
  FieldSet WorkflowQueryResult WorkflowQueryResult FieldSet FieldSet
-> WorkflowQueryResult -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet WorkflowQueryResult WorkflowQueryResult FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' WorkflowQueryResult FieldSet
Data.ProtoLens.unknownFields WorkflowQueryResult
_x))))
instance Control.DeepSeq.NFData WorkflowQueryResult where
  rnf :: WorkflowQueryResult -> ()
rnf
    = \ WorkflowQueryResult
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (WorkflowQueryResult -> FieldSet
_WorkflowQueryResult'_unknownFields WorkflowQueryResult
x__)
             (QueryResultType -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (WorkflowQueryResult -> QueryResultType
_WorkflowQueryResult'resultType WorkflowQueryResult
x__)
                (Maybe Payloads -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (WorkflowQueryResult -> Maybe Payloads
_WorkflowQueryResult'answer WorkflowQueryResult
x__)
                   (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                      (WorkflowQueryResult -> Text
_WorkflowQueryResult'errorMessage WorkflowQueryResult
x__) ())))
packedFileDescriptor :: Data.ByteString.ByteString
packedFileDescriptor :: ByteString
packedFileDescriptor
  = ByteString
"\n\
    \#temporal/api/query/v1/message.proto\DC2\NAKtemporal.api.query.v1\SUB!temporal/api/enums/v1/query.proto\SUB$temporal/api/enums/v1/workflow.proto\SUB$temporal/api/common/v1/message.proto\"\167\SOH\n\
    \\rWorkflowQuery\DC2\GS\n\
    \\n\
    \query_type\CAN\SOH \SOH(\tR\tqueryType\DC2?\n\
    \\n\
    \query_args\CAN\STX \SOH(\v2 .temporal.api.common.v1.PayloadsR\tqueryArgs\DC26\n\
    \\ACKheader\CAN\ETX \SOH(\v2\RS.temporal.api.common.v1.HeaderR\ACKheader\"\189\SOH\n\
    \\DC3WorkflowQueryResult\DC2G\n\
    \\vresult_type\CAN\SOH \SOH(\SO2&.temporal.api.enums.v1.QueryResultTypeR\n\
    \resultType\DC28\n\
    \\ACKanswer\CAN\STX \SOH(\v2 .temporal.api.common.v1.PayloadsR\ACKanswer\DC2#\n\
    \\rerror_message\CAN\ETX \SOH(\tR\ferrorMessage\"W\n\
    \\rQueryRejected\DC2F\n\
    \\ACKstatus\CAN\SOH \SOH(\SO2..temporal.api.enums.v1.WorkflowExecutionStatusR\ACKstatusB\132\SOH\n\
    \\CANio.temporal.api.query.v1B\fMessageProtoP\SOHZ!go.temporal.io/api/query/v1;query\170\STX\ETBTemporalio.Api.Query.V1\234\STX\SUBTemporalio::Api::Query::V1J\219\DC1\n\
    \\ACK\DC2\EOT\SYN\NUL<\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\RS\n\
    \\b\n\
    \\SOH\b\DC2\ETX\SUB\NUL8\n\
    \\t\n\
    \\STX\b\v\DC2\ETX\SUB\NUL8\n\
    \\b\n\
    \\SOH\b\DC2\ETX\ESC\NUL1\n\
    \\t\n\
    \\STX\b\SOH\DC2\ETX\ESC\NUL1\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\NUL3\n\
    \\t\n\
    \\STX\b-\DC2\ETX\RS\NUL3\n\
    \\b\n\
    \\SOH\b\DC2\ETX\US\NUL4\n\
    \\t\n\
    \\STX\b%\DC2\ETX\US\NUL4\n\
    \\t\n\
    \\STX\ETX\NUL\DC2\ETX!\NUL+\n\
    \\t\n\
    \\STX\ETX\SOH\DC2\ETX\"\NUL.\n\
    \\t\n\
    \\STX\ETX\STX\DC2\ETX#\NUL.\n\
    \A\n\
    \\STX\EOT\NUL\DC2\EOT&\NUL.\SOH\SUB5 See https://docs.temporal.io/docs/concepts/queries/\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\NUL\SOH\DC2\ETX&\b\NAK\n\
    \^\n\
    \\EOT\EOT\NUL\STX\NUL\DC2\ETX(\EOT\SUB\SUBQ The workflow-author-defined identifier of the query. Typically a function name.\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\NAK\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\ETX\DC2\ETX(\CAN\EM\n\
    \O\n\
    \\EOT\EOT\NUL\STX\SOH\DC2\ETX*\EOT3\SUBB Serialized arguments that will be provided to the query handler.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\SOH\ACK\DC2\ETX*\EOT#\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\SOH\SOH\DC2\ETX*$.\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\SOH\ETX\DC2\ETX*12\n\
    \z\n\
    \\EOT\EOT\NUL\STX\STX\DC2\ETX-\EOT-\SUBm Headers that were passed by the caller of the query and copied by temporal \n\
    \ server into the workflow task.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\STX\ACK\DC2\ETX-\EOT!\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\STX\SOH\DC2\ETX-\"(\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\STX\ETX\DC2\ETX-+,\n\
    \)\n\
    \\STX\EOT\SOH\DC2\EOT1\NUL8\SOH\SUB\GS Answer to a `WorkflowQuery`\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\SOH\SOH\DC2\ETX1\b\ESC\n\
    \-\n\
    \\EOT\EOT\SOH\STX\NUL\DC2\ETX3\EOT:\SUB  Did the query succeed or fail?\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\NUL\ACK\DC2\ETX3\EOT)\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\NUL\SOH\DC2\ETX3*5\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\NUL\ETX\DC2\ETX389\n\
    \;\n\
    \\EOT\EOT\SOH\STX\SOH\DC2\ETX5\EOT/\SUB. Set when the query succeeds with the results\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\SOH\ACK\DC2\ETX5\EOT#\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\SOH\SOH\DC2\ETX5$*\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\SOH\ETX\DC2\ETX5-.\n\
    \J\n\
    \\EOT\EOT\SOH\STX\STX\DC2\ETX7\EOT\GS\SUB= Mutually exclusive with `answer`. Set when the query fails.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\STX\ENQ\DC2\ETX7\EOT\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\STX\SOH\DC2\ETX7\v\CAN\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\STX\ETX\DC2\ETX7\ESC\FS\n\
    \\n\
    \\n\
    \\STX\EOT\STX\DC2\EOT:\NUL<\SOH\n\
    \\n\
    \\n\
    \\ETX\EOT\STX\SOH\DC2\ETX:\b\NAK\n\
    \\v\n\
    \\EOT\EOT\STX\STX\NUL\DC2\ETX;\EOT=\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\NUL\ACK\DC2\ETX;\EOT1\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\NUL\SOH\DC2\ETX;28\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\NUL\ETX\DC2\ETX;;<b\ACKproto3"