{- This file was auto-generated from temporal/api/filter/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.Filter.V1.Message (
        StartTimeFilter(), StatusFilter(), WorkflowExecutionFilter(),
        WorkflowTypeFilter()
    ) 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.Timestamp
import qualified Proto.Temporal.Api.Enums.V1.Workflow
{- | Fields :
     
         * 'Proto.Temporal.Api.Filter.V1.Message_Fields.earliestTime' @:: Lens' StartTimeFilter Proto.Google.Protobuf.Timestamp.Timestamp@
         * 'Proto.Temporal.Api.Filter.V1.Message_Fields.maybe'earliestTime' @:: Lens' StartTimeFilter (Prelude.Maybe Proto.Google.Protobuf.Timestamp.Timestamp)@
         * 'Proto.Temporal.Api.Filter.V1.Message_Fields.latestTime' @:: Lens' StartTimeFilter Proto.Google.Protobuf.Timestamp.Timestamp@
         * 'Proto.Temporal.Api.Filter.V1.Message_Fields.maybe'latestTime' @:: Lens' StartTimeFilter (Prelude.Maybe Proto.Google.Protobuf.Timestamp.Timestamp)@ -}
data StartTimeFilter
  = StartTimeFilter'_constructor {StartTimeFilter -> Maybe Timestamp
_StartTimeFilter'earliestTime :: !(Prelude.Maybe Proto.Google.Protobuf.Timestamp.Timestamp),
                                  StartTimeFilter -> Maybe Timestamp
_StartTimeFilter'latestTime :: !(Prelude.Maybe Proto.Google.Protobuf.Timestamp.Timestamp),
                                  StartTimeFilter -> FieldSet
_StartTimeFilter'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (StartTimeFilter -> StartTimeFilter -> Bool
(StartTimeFilter -> StartTimeFilter -> Bool)
-> (StartTimeFilter -> StartTimeFilter -> Bool)
-> Eq StartTimeFilter
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: StartTimeFilter -> StartTimeFilter -> Bool
== :: StartTimeFilter -> StartTimeFilter -> Bool
$c/= :: StartTimeFilter -> StartTimeFilter -> Bool
/= :: StartTimeFilter -> StartTimeFilter -> Bool
Prelude.Eq, Eq StartTimeFilter
Eq StartTimeFilter =>
(StartTimeFilter -> StartTimeFilter -> Ordering)
-> (StartTimeFilter -> StartTimeFilter -> Bool)
-> (StartTimeFilter -> StartTimeFilter -> Bool)
-> (StartTimeFilter -> StartTimeFilter -> Bool)
-> (StartTimeFilter -> StartTimeFilter -> Bool)
-> (StartTimeFilter -> StartTimeFilter -> StartTimeFilter)
-> (StartTimeFilter -> StartTimeFilter -> StartTimeFilter)
-> Ord StartTimeFilter
StartTimeFilter -> StartTimeFilter -> Bool
StartTimeFilter -> StartTimeFilter -> Ordering
StartTimeFilter -> StartTimeFilter -> StartTimeFilter
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 :: StartTimeFilter -> StartTimeFilter -> Ordering
compare :: StartTimeFilter -> StartTimeFilter -> Ordering
$c< :: StartTimeFilter -> StartTimeFilter -> Bool
< :: StartTimeFilter -> StartTimeFilter -> Bool
$c<= :: StartTimeFilter -> StartTimeFilter -> Bool
<= :: StartTimeFilter -> StartTimeFilter -> Bool
$c> :: StartTimeFilter -> StartTimeFilter -> Bool
> :: StartTimeFilter -> StartTimeFilter -> Bool
$c>= :: StartTimeFilter -> StartTimeFilter -> Bool
>= :: StartTimeFilter -> StartTimeFilter -> Bool
$cmax :: StartTimeFilter -> StartTimeFilter -> StartTimeFilter
max :: StartTimeFilter -> StartTimeFilter -> StartTimeFilter
$cmin :: StartTimeFilter -> StartTimeFilter -> StartTimeFilter
min :: StartTimeFilter -> StartTimeFilter -> StartTimeFilter
Prelude.Ord)
instance Prelude.Show StartTimeFilter where
  showsPrec :: Int -> StartTimeFilter -> ShowS
showsPrec Int
_ StartTimeFilter
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (StartTimeFilter -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort StartTimeFilter
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField StartTimeFilter "earliestTime" Proto.Google.Protobuf.Timestamp.Timestamp where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "earliestTime"
-> (Timestamp -> f Timestamp)
-> StartTimeFilter
-> f StartTimeFilter
fieldOf Proxy# "earliestTime"
_
    = ((Maybe Timestamp -> f (Maybe Timestamp))
 -> StartTimeFilter -> f StartTimeFilter)
-> ((Timestamp -> f Timestamp)
    -> Maybe Timestamp -> f (Maybe Timestamp))
-> (Timestamp -> f Timestamp)
-> StartTimeFilter
-> f StartTimeFilter
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((StartTimeFilter -> Maybe Timestamp)
-> (StartTimeFilter -> Maybe Timestamp -> StartTimeFilter)
-> Lens
     StartTimeFilter StartTimeFilter (Maybe Timestamp) (Maybe Timestamp)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           StartTimeFilter -> Maybe Timestamp
_StartTimeFilter'earliestTime
           (\ StartTimeFilter
x__ Maybe Timestamp
y__ -> StartTimeFilter
x__ {_StartTimeFilter'earliestTime = y__}))
        (Timestamp -> Lens' (Maybe Timestamp) Timestamp
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Timestamp
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField StartTimeFilter "maybe'earliestTime" (Prelude.Maybe Proto.Google.Protobuf.Timestamp.Timestamp) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'earliestTime"
-> (Maybe Timestamp -> f (Maybe Timestamp))
-> StartTimeFilter
-> f StartTimeFilter
fieldOf Proxy# "maybe'earliestTime"
_
    = ((Maybe Timestamp -> f (Maybe Timestamp))
 -> StartTimeFilter -> f StartTimeFilter)
-> ((Maybe Timestamp -> f (Maybe Timestamp))
    -> Maybe Timestamp -> f (Maybe Timestamp))
-> (Maybe Timestamp -> f (Maybe Timestamp))
-> StartTimeFilter
-> f StartTimeFilter
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((StartTimeFilter -> Maybe Timestamp)
-> (StartTimeFilter -> Maybe Timestamp -> StartTimeFilter)
-> Lens
     StartTimeFilter StartTimeFilter (Maybe Timestamp) (Maybe Timestamp)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           StartTimeFilter -> Maybe Timestamp
_StartTimeFilter'earliestTime
           (\ StartTimeFilter
x__ Maybe Timestamp
y__ -> StartTimeFilter
x__ {_StartTimeFilter'earliestTime = y__}))
        (Maybe Timestamp -> f (Maybe Timestamp))
-> Maybe Timestamp -> f (Maybe Timestamp)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField StartTimeFilter "latestTime" Proto.Google.Protobuf.Timestamp.Timestamp where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "latestTime"
-> (Timestamp -> f Timestamp)
-> StartTimeFilter
-> f StartTimeFilter
fieldOf Proxy# "latestTime"
_
    = ((Maybe Timestamp -> f (Maybe Timestamp))
 -> StartTimeFilter -> f StartTimeFilter)
-> ((Timestamp -> f Timestamp)
    -> Maybe Timestamp -> f (Maybe Timestamp))
-> (Timestamp -> f Timestamp)
-> StartTimeFilter
-> f StartTimeFilter
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((StartTimeFilter -> Maybe Timestamp)
-> (StartTimeFilter -> Maybe Timestamp -> StartTimeFilter)
-> Lens
     StartTimeFilter StartTimeFilter (Maybe Timestamp) (Maybe Timestamp)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           StartTimeFilter -> Maybe Timestamp
_StartTimeFilter'latestTime
           (\ StartTimeFilter
x__ Maybe Timestamp
y__ -> StartTimeFilter
x__ {_StartTimeFilter'latestTime = y__}))
        (Timestamp -> Lens' (Maybe Timestamp) Timestamp
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Timestamp
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField StartTimeFilter "maybe'latestTime" (Prelude.Maybe Proto.Google.Protobuf.Timestamp.Timestamp) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'latestTime"
-> (Maybe Timestamp -> f (Maybe Timestamp))
-> StartTimeFilter
-> f StartTimeFilter
fieldOf Proxy# "maybe'latestTime"
_
    = ((Maybe Timestamp -> f (Maybe Timestamp))
 -> StartTimeFilter -> f StartTimeFilter)
-> ((Maybe Timestamp -> f (Maybe Timestamp))
    -> Maybe Timestamp -> f (Maybe Timestamp))
-> (Maybe Timestamp -> f (Maybe Timestamp))
-> StartTimeFilter
-> f StartTimeFilter
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((StartTimeFilter -> Maybe Timestamp)
-> (StartTimeFilter -> Maybe Timestamp -> StartTimeFilter)
-> Lens
     StartTimeFilter StartTimeFilter (Maybe Timestamp) (Maybe Timestamp)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           StartTimeFilter -> Maybe Timestamp
_StartTimeFilter'latestTime
           (\ StartTimeFilter
x__ Maybe Timestamp
y__ -> StartTimeFilter
x__ {_StartTimeFilter'latestTime = y__}))
        (Maybe Timestamp -> f (Maybe Timestamp))
-> Maybe Timestamp -> f (Maybe Timestamp)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message StartTimeFilter where
  messageName :: Proxy StartTimeFilter -> Text
messageName Proxy StartTimeFilter
_
    = String -> Text
Data.Text.pack String
"temporal.api.filter.v1.StartTimeFilter"
  packedMessageDescriptor :: Proxy StartTimeFilter -> ByteString
packedMessageDescriptor Proxy StartTimeFilter
_
    = ByteString
"\n\
      \\SIStartTimeFilter\DC2?\n\
      \\rearliest_time\CAN\SOH \SOH(\v2\SUB.google.protobuf.TimestampR\fearliestTime\DC2;\n\
      \\vlatest_time\CAN\STX \SOH(\v2\SUB.google.protobuf.TimestampR\n\
      \latestTime"
  packedFileDescriptor :: Proxy StartTimeFilter -> ByteString
packedFileDescriptor Proxy StartTimeFilter
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor StartTimeFilter)
fieldsByTag
    = let
        earliestTime__field_descriptor :: FieldDescriptor StartTimeFilter
earliestTime__field_descriptor
          = String
-> FieldTypeDescriptor Timestamp
-> FieldAccessor StartTimeFilter Timestamp
-> FieldDescriptor StartTimeFilter
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"earliest_time"
              (MessageOrGroup -> FieldTypeDescriptor Timestamp
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Proto.Google.Protobuf.Timestamp.Timestamp)
              (Lens
  StartTimeFilter StartTimeFilter (Maybe Timestamp) (Maybe Timestamp)
-> FieldAccessor StartTimeFilter Timestamp
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'earliestTime")) ::
              Data.ProtoLens.FieldDescriptor StartTimeFilter
        latestTime__field_descriptor :: FieldDescriptor StartTimeFilter
latestTime__field_descriptor
          = String
-> FieldTypeDescriptor Timestamp
-> FieldAccessor StartTimeFilter Timestamp
-> FieldDescriptor StartTimeFilter
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"latest_time"
              (MessageOrGroup -> FieldTypeDescriptor Timestamp
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Proto.Google.Protobuf.Timestamp.Timestamp)
              (Lens
  StartTimeFilter StartTimeFilter (Maybe Timestamp) (Maybe Timestamp)
-> FieldAccessor StartTimeFilter Timestamp
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'latestTime")) ::
              Data.ProtoLens.FieldDescriptor StartTimeFilter
      in
        [(Tag, FieldDescriptor StartTimeFilter)]
-> Map Tag (FieldDescriptor StartTimeFilter)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor StartTimeFilter
earliestTime__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor StartTimeFilter
latestTime__field_descriptor)]
  unknownFields :: Lens' StartTimeFilter FieldSet
unknownFields
    = (StartTimeFilter -> FieldSet)
-> (StartTimeFilter -> FieldSet -> StartTimeFilter)
-> Lens' StartTimeFilter FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        StartTimeFilter -> FieldSet
_StartTimeFilter'_unknownFields
        (\ StartTimeFilter
x__ FieldSet
y__ -> StartTimeFilter
x__ {_StartTimeFilter'_unknownFields = y__})
  defMessage :: StartTimeFilter
defMessage
    = StartTimeFilter'_constructor
        {_StartTimeFilter'earliestTime :: Maybe Timestamp
_StartTimeFilter'earliestTime = Maybe Timestamp
forall a. Maybe a
Prelude.Nothing,
         _StartTimeFilter'latestTime :: Maybe Timestamp
_StartTimeFilter'latestTime = Maybe Timestamp
forall a. Maybe a
Prelude.Nothing,
         _StartTimeFilter'_unknownFields :: FieldSet
_StartTimeFilter'_unknownFields = []}
  parseMessage :: Parser StartTimeFilter
parseMessage
    = let
        loop ::
          StartTimeFilter
          -> Data.ProtoLens.Encoding.Bytes.Parser StartTimeFilter
        loop :: StartTimeFilter -> Parser StartTimeFilter
loop StartTimeFilter
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 Timestamp -> String -> Parser Timestamp
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
"earliest_time"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"earliestTime") y x)
                        Word64
18
                          -> do y <- Parser Timestamp -> String -> Parser Timestamp
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
"latest_time"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"latestTime") 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 StartTimeFilter -> String -> Parser StartTimeFilter
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do StartTimeFilter -> Parser StartTimeFilter
loop StartTimeFilter
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"StartTimeFilter"
  buildMessage :: StartTimeFilter -> Builder
buildMessage
    = \ StartTimeFilter
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe Timestamp)
  StartTimeFilter
  StartTimeFilter
  (Maybe Timestamp)
  (Maybe Timestamp)
-> StartTimeFilter -> Maybe Timestamp
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'earliestTime") StartTimeFilter
_x
              of
                Maybe Timestamp
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just Timestamp
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                       ((ByteString -> Builder)
-> (Timestamp -> ByteString) -> Timestamp -> 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))
                          Timestamp -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Timestamp
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (case
                     FoldLike
  (Maybe Timestamp)
  StartTimeFilter
  StartTimeFilter
  (Maybe Timestamp)
  (Maybe Timestamp)
-> StartTimeFilter -> Maybe Timestamp
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'latestTime") StartTimeFilter
_x
                 of
                   Maybe Timestamp
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   (Prelude.Just Timestamp
_v)
                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
                          ((ByteString -> Builder)
-> (Timestamp -> ByteString) -> Timestamp -> 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))
                             Timestamp -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Timestamp
_v))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike FieldSet StartTimeFilter StartTimeFilter FieldSet FieldSet
-> StartTimeFilter -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet StartTimeFilter StartTimeFilter FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' StartTimeFilter FieldSet
Data.ProtoLens.unknownFields StartTimeFilter
_x)))
instance Control.DeepSeq.NFData StartTimeFilter where
  rnf :: StartTimeFilter -> ()
rnf
    = \ StartTimeFilter
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (StartTimeFilter -> FieldSet
_StartTimeFilter'_unknownFields StartTimeFilter
x__)
             (Maybe Timestamp -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (StartTimeFilter -> Maybe Timestamp
_StartTimeFilter'earliestTime StartTimeFilter
x__)
                (Maybe Timestamp -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (StartTimeFilter -> Maybe Timestamp
_StartTimeFilter'latestTime StartTimeFilter
x__) ()))
{- | Fields :
     
         * 'Proto.Temporal.Api.Filter.V1.Message_Fields.status' @:: Lens' StatusFilter Proto.Temporal.Api.Enums.V1.Workflow.WorkflowExecutionStatus@ -}
data StatusFilter
  = StatusFilter'_constructor {StatusFilter -> WorkflowExecutionStatus
_StatusFilter'status :: !Proto.Temporal.Api.Enums.V1.Workflow.WorkflowExecutionStatus,
                               StatusFilter -> FieldSet
_StatusFilter'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (StatusFilter -> StatusFilter -> Bool
(StatusFilter -> StatusFilter -> Bool)
-> (StatusFilter -> StatusFilter -> Bool) -> Eq StatusFilter
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: StatusFilter -> StatusFilter -> Bool
== :: StatusFilter -> StatusFilter -> Bool
$c/= :: StatusFilter -> StatusFilter -> Bool
/= :: StatusFilter -> StatusFilter -> Bool
Prelude.Eq, Eq StatusFilter
Eq StatusFilter =>
(StatusFilter -> StatusFilter -> Ordering)
-> (StatusFilter -> StatusFilter -> Bool)
-> (StatusFilter -> StatusFilter -> Bool)
-> (StatusFilter -> StatusFilter -> Bool)
-> (StatusFilter -> StatusFilter -> Bool)
-> (StatusFilter -> StatusFilter -> StatusFilter)
-> (StatusFilter -> StatusFilter -> StatusFilter)
-> Ord StatusFilter
StatusFilter -> StatusFilter -> Bool
StatusFilter -> StatusFilter -> Ordering
StatusFilter -> StatusFilter -> StatusFilter
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 :: StatusFilter -> StatusFilter -> Ordering
compare :: StatusFilter -> StatusFilter -> Ordering
$c< :: StatusFilter -> StatusFilter -> Bool
< :: StatusFilter -> StatusFilter -> Bool
$c<= :: StatusFilter -> StatusFilter -> Bool
<= :: StatusFilter -> StatusFilter -> Bool
$c> :: StatusFilter -> StatusFilter -> Bool
> :: StatusFilter -> StatusFilter -> Bool
$c>= :: StatusFilter -> StatusFilter -> Bool
>= :: StatusFilter -> StatusFilter -> Bool
$cmax :: StatusFilter -> StatusFilter -> StatusFilter
max :: StatusFilter -> StatusFilter -> StatusFilter
$cmin :: StatusFilter -> StatusFilter -> StatusFilter
min :: StatusFilter -> StatusFilter -> StatusFilter
Prelude.Ord)
instance Prelude.Show StatusFilter where
  showsPrec :: Int -> StatusFilter -> ShowS
showsPrec Int
_ StatusFilter
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (StatusFilter -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort StatusFilter
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField StatusFilter "status" Proto.Temporal.Api.Enums.V1.Workflow.WorkflowExecutionStatus where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "status"
-> (WorkflowExecutionStatus -> f WorkflowExecutionStatus)
-> StatusFilter
-> f StatusFilter
fieldOf Proxy# "status"
_
    = ((WorkflowExecutionStatus -> f WorkflowExecutionStatus)
 -> StatusFilter -> f StatusFilter)
-> ((WorkflowExecutionStatus -> f WorkflowExecutionStatus)
    -> WorkflowExecutionStatus -> f WorkflowExecutionStatus)
-> (WorkflowExecutionStatus -> f WorkflowExecutionStatus)
-> StatusFilter
-> f StatusFilter
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((StatusFilter -> WorkflowExecutionStatus)
-> (StatusFilter -> WorkflowExecutionStatus -> StatusFilter)
-> Lens
     StatusFilter
     StatusFilter
     WorkflowExecutionStatus
     WorkflowExecutionStatus
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           StatusFilter -> WorkflowExecutionStatus
_StatusFilter'status
           (\ StatusFilter
x__ WorkflowExecutionStatus
y__ -> StatusFilter
x__ {_StatusFilter'status = y__}))
        (WorkflowExecutionStatus -> f WorkflowExecutionStatus)
-> WorkflowExecutionStatus -> f WorkflowExecutionStatus
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message StatusFilter where
  messageName :: Proxy StatusFilter -> Text
messageName Proxy StatusFilter
_
    = String -> Text
Data.Text.pack String
"temporal.api.filter.v1.StatusFilter"
  packedMessageDescriptor :: Proxy StatusFilter -> ByteString
packedMessageDescriptor Proxy StatusFilter
_
    = ByteString
"\n\
      \\fStatusFilter\DC2F\n\
      \\ACKstatus\CAN\SOH \SOH(\SO2..temporal.api.enums.v1.WorkflowExecutionStatusR\ACKstatus"
  packedFileDescriptor :: Proxy StatusFilter -> ByteString
packedFileDescriptor Proxy StatusFilter
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor StatusFilter)
fieldsByTag
    = let
        status__field_descriptor :: FieldDescriptor StatusFilter
status__field_descriptor
          = String
-> FieldTypeDescriptor WorkflowExecutionStatus
-> FieldAccessor StatusFilter WorkflowExecutionStatus
-> FieldDescriptor StatusFilter
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
     StatusFilter
     StatusFilter
     WorkflowExecutionStatus
     WorkflowExecutionStatus
-> FieldAccessor StatusFilter 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 StatusFilter
      in
        [(Tag, FieldDescriptor StatusFilter)]
-> Map Tag (FieldDescriptor StatusFilter)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor StatusFilter
status__field_descriptor)]
  unknownFields :: Lens' StatusFilter FieldSet
unknownFields
    = (StatusFilter -> FieldSet)
-> (StatusFilter -> FieldSet -> StatusFilter)
-> Lens' StatusFilter FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        StatusFilter -> FieldSet
_StatusFilter'_unknownFields
        (\ StatusFilter
x__ FieldSet
y__ -> StatusFilter
x__ {_StatusFilter'_unknownFields = y__})
  defMessage :: StatusFilter
defMessage
    = StatusFilter'_constructor
        {_StatusFilter'status :: WorkflowExecutionStatus
_StatusFilter'status = WorkflowExecutionStatus
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _StatusFilter'_unknownFields :: FieldSet
_StatusFilter'_unknownFields = []}
  parseMessage :: Parser StatusFilter
parseMessage
    = let
        loop ::
          StatusFilter -> Data.ProtoLens.Encoding.Bytes.Parser StatusFilter
        loop :: StatusFilter -> Parser StatusFilter
loop StatusFilter
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 StatusFilter -> String -> Parser StatusFilter
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do StatusFilter -> Parser StatusFilter
loop StatusFilter
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"StatusFilter"
  buildMessage :: StatusFilter -> Builder
buildMessage
    = \ StatusFilter
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: WorkflowExecutionStatus
_v = FoldLike
  WorkflowExecutionStatus
  StatusFilter
  StatusFilter
  WorkflowExecutionStatus
  WorkflowExecutionStatus
-> StatusFilter -> 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") StatusFilter
_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 StatusFilter StatusFilter FieldSet FieldSet
-> StatusFilter -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet StatusFilter StatusFilter FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' StatusFilter FieldSet
Data.ProtoLens.unknownFields StatusFilter
_x))
instance Control.DeepSeq.NFData StatusFilter where
  rnf :: StatusFilter -> ()
rnf
    = \ StatusFilter
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (StatusFilter -> FieldSet
_StatusFilter'_unknownFields StatusFilter
x__)
             (WorkflowExecutionStatus -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (StatusFilter -> WorkflowExecutionStatus
_StatusFilter'status StatusFilter
x__) ())
{- | Fields :
     
         * 'Proto.Temporal.Api.Filter.V1.Message_Fields.workflowId' @:: Lens' WorkflowExecutionFilter Data.Text.Text@
         * 'Proto.Temporal.Api.Filter.V1.Message_Fields.runId' @:: Lens' WorkflowExecutionFilter Data.Text.Text@ -}
data WorkflowExecutionFilter
  = WorkflowExecutionFilter'_constructor {WorkflowExecutionFilter -> Text
_WorkflowExecutionFilter'workflowId :: !Data.Text.Text,
                                          WorkflowExecutionFilter -> Text
_WorkflowExecutionFilter'runId :: !Data.Text.Text,
                                          WorkflowExecutionFilter -> FieldSet
_WorkflowExecutionFilter'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (WorkflowExecutionFilter -> WorkflowExecutionFilter -> Bool
(WorkflowExecutionFilter -> WorkflowExecutionFilter -> Bool)
-> (WorkflowExecutionFilter -> WorkflowExecutionFilter -> Bool)
-> Eq WorkflowExecutionFilter
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: WorkflowExecutionFilter -> WorkflowExecutionFilter -> Bool
== :: WorkflowExecutionFilter -> WorkflowExecutionFilter -> Bool
$c/= :: WorkflowExecutionFilter -> WorkflowExecutionFilter -> Bool
/= :: WorkflowExecutionFilter -> WorkflowExecutionFilter -> Bool
Prelude.Eq, Eq WorkflowExecutionFilter
Eq WorkflowExecutionFilter =>
(WorkflowExecutionFilter -> WorkflowExecutionFilter -> Ordering)
-> (WorkflowExecutionFilter -> WorkflowExecutionFilter -> Bool)
-> (WorkflowExecutionFilter -> WorkflowExecutionFilter -> Bool)
-> (WorkflowExecutionFilter -> WorkflowExecutionFilter -> Bool)
-> (WorkflowExecutionFilter -> WorkflowExecutionFilter -> Bool)
-> (WorkflowExecutionFilter
    -> WorkflowExecutionFilter -> WorkflowExecutionFilter)
-> (WorkflowExecutionFilter
    -> WorkflowExecutionFilter -> WorkflowExecutionFilter)
-> Ord WorkflowExecutionFilter
WorkflowExecutionFilter -> WorkflowExecutionFilter -> Bool
WorkflowExecutionFilter -> WorkflowExecutionFilter -> Ordering
WorkflowExecutionFilter
-> WorkflowExecutionFilter -> WorkflowExecutionFilter
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 :: WorkflowExecutionFilter -> WorkflowExecutionFilter -> Ordering
compare :: WorkflowExecutionFilter -> WorkflowExecutionFilter -> Ordering
$c< :: WorkflowExecutionFilter -> WorkflowExecutionFilter -> Bool
< :: WorkflowExecutionFilter -> WorkflowExecutionFilter -> Bool
$c<= :: WorkflowExecutionFilter -> WorkflowExecutionFilter -> Bool
<= :: WorkflowExecutionFilter -> WorkflowExecutionFilter -> Bool
$c> :: WorkflowExecutionFilter -> WorkflowExecutionFilter -> Bool
> :: WorkflowExecutionFilter -> WorkflowExecutionFilter -> Bool
$c>= :: WorkflowExecutionFilter -> WorkflowExecutionFilter -> Bool
>= :: WorkflowExecutionFilter -> WorkflowExecutionFilter -> Bool
$cmax :: WorkflowExecutionFilter
-> WorkflowExecutionFilter -> WorkflowExecutionFilter
max :: WorkflowExecutionFilter
-> WorkflowExecutionFilter -> WorkflowExecutionFilter
$cmin :: WorkflowExecutionFilter
-> WorkflowExecutionFilter -> WorkflowExecutionFilter
min :: WorkflowExecutionFilter
-> WorkflowExecutionFilter -> WorkflowExecutionFilter
Prelude.Ord)
instance Prelude.Show WorkflowExecutionFilter where
  showsPrec :: Int -> WorkflowExecutionFilter -> ShowS
showsPrec Int
_ WorkflowExecutionFilter
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (WorkflowExecutionFilter -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort WorkflowExecutionFilter
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField WorkflowExecutionFilter "workflowId" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "workflowId"
-> (Text -> f Text)
-> WorkflowExecutionFilter
-> f WorkflowExecutionFilter
fieldOf Proxy# "workflowId"
_
    = ((Text -> f Text)
 -> WorkflowExecutionFilter -> f WorkflowExecutionFilter)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> WorkflowExecutionFilter
-> f WorkflowExecutionFilter
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((WorkflowExecutionFilter -> Text)
-> (WorkflowExecutionFilter -> Text -> WorkflowExecutionFilter)
-> Lens WorkflowExecutionFilter WorkflowExecutionFilter Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           WorkflowExecutionFilter -> Text
_WorkflowExecutionFilter'workflowId
           (\ WorkflowExecutionFilter
x__ Text
y__ -> WorkflowExecutionFilter
x__ {_WorkflowExecutionFilter'workflowId = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField WorkflowExecutionFilter "runId" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "runId"
-> (Text -> f Text)
-> WorkflowExecutionFilter
-> f WorkflowExecutionFilter
fieldOf Proxy# "runId"
_
    = ((Text -> f Text)
 -> WorkflowExecutionFilter -> f WorkflowExecutionFilter)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> WorkflowExecutionFilter
-> f WorkflowExecutionFilter
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((WorkflowExecutionFilter -> Text)
-> (WorkflowExecutionFilter -> Text -> WorkflowExecutionFilter)
-> Lens WorkflowExecutionFilter WorkflowExecutionFilter Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           WorkflowExecutionFilter -> Text
_WorkflowExecutionFilter'runId
           (\ WorkflowExecutionFilter
x__ Text
y__ -> WorkflowExecutionFilter
x__ {_WorkflowExecutionFilter'runId = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message WorkflowExecutionFilter where
  messageName :: Proxy WorkflowExecutionFilter -> Text
messageName Proxy WorkflowExecutionFilter
_
    = String -> Text
Data.Text.pack String
"temporal.api.filter.v1.WorkflowExecutionFilter"
  packedMessageDescriptor :: Proxy WorkflowExecutionFilter -> ByteString
packedMessageDescriptor Proxy WorkflowExecutionFilter
_
    = ByteString
"\n\
      \\ETBWorkflowExecutionFilter\DC2\US\n\
      \\vworkflow_id\CAN\SOH \SOH(\tR\n\
      \workflowId\DC2\NAK\n\
      \\ACKrun_id\CAN\STX \SOH(\tR\ENQrunId"
  packedFileDescriptor :: Proxy WorkflowExecutionFilter -> ByteString
packedFileDescriptor Proxy WorkflowExecutionFilter
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor WorkflowExecutionFilter)
fieldsByTag
    = let
        workflowId__field_descriptor :: FieldDescriptor WorkflowExecutionFilter
workflowId__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor WorkflowExecutionFilter Text
-> FieldDescriptor WorkflowExecutionFilter
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"workflow_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 WorkflowExecutionFilter WorkflowExecutionFilter Text Text
-> FieldAccessor WorkflowExecutionFilter 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 @"workflowId")) ::
              Data.ProtoLens.FieldDescriptor WorkflowExecutionFilter
        runId__field_descriptor :: FieldDescriptor WorkflowExecutionFilter
runId__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor WorkflowExecutionFilter Text
-> FieldDescriptor WorkflowExecutionFilter
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"run_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 WorkflowExecutionFilter WorkflowExecutionFilter Text Text
-> FieldAccessor WorkflowExecutionFilter 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 @"runId")) ::
              Data.ProtoLens.FieldDescriptor WorkflowExecutionFilter
      in
        [(Tag, FieldDescriptor WorkflowExecutionFilter)]
-> Map Tag (FieldDescriptor WorkflowExecutionFilter)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor WorkflowExecutionFilter
workflowId__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor WorkflowExecutionFilter
runId__field_descriptor)]
  unknownFields :: Lens' WorkflowExecutionFilter FieldSet
unknownFields
    = (WorkflowExecutionFilter -> FieldSet)
-> (WorkflowExecutionFilter -> FieldSet -> WorkflowExecutionFilter)
-> Lens' WorkflowExecutionFilter FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        WorkflowExecutionFilter -> FieldSet
_WorkflowExecutionFilter'_unknownFields
        (\ WorkflowExecutionFilter
x__ FieldSet
y__ -> WorkflowExecutionFilter
x__ {_WorkflowExecutionFilter'_unknownFields = y__})
  defMessage :: WorkflowExecutionFilter
defMessage
    = WorkflowExecutionFilter'_constructor
        {_WorkflowExecutionFilter'workflowId :: Text
_WorkflowExecutionFilter'workflowId = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _WorkflowExecutionFilter'runId :: Text
_WorkflowExecutionFilter'runId = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _WorkflowExecutionFilter'_unknownFields :: FieldSet
_WorkflowExecutionFilter'_unknownFields = []}
  parseMessage :: Parser WorkflowExecutionFilter
parseMessage
    = let
        loop ::
          WorkflowExecutionFilter
          -> Data.ProtoLens.Encoding.Bytes.Parser WorkflowExecutionFilter
        loop :: WorkflowExecutionFilter -> Parser WorkflowExecutionFilter
loop WorkflowExecutionFilter
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
"workflow_id"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"workflowId") 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
"run_id"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"runId") 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 WorkflowExecutionFilter
-> String -> Parser WorkflowExecutionFilter
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do WorkflowExecutionFilter -> Parser WorkflowExecutionFilter
loop WorkflowExecutionFilter
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"WorkflowExecutionFilter"
  buildMessage :: WorkflowExecutionFilter -> Builder
buildMessage
    = \ WorkflowExecutionFilter
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: Text
_v
                  = FoldLike
  Text WorkflowExecutionFilter WorkflowExecutionFilter Text Text
-> WorkflowExecutionFilter -> 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 @"workflowId") WorkflowExecutionFilter
_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 WorkflowExecutionFilter WorkflowExecutionFilter Text Text
-> WorkflowExecutionFilter -> 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 @"runId") WorkflowExecutionFilter
_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))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike
  FieldSet
  WorkflowExecutionFilter
  WorkflowExecutionFilter
  FieldSet
  FieldSet
-> WorkflowExecutionFilter -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  WorkflowExecutionFilter
  WorkflowExecutionFilter
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' WorkflowExecutionFilter FieldSet
Data.ProtoLens.unknownFields WorkflowExecutionFilter
_x)))
instance Control.DeepSeq.NFData WorkflowExecutionFilter where
  rnf :: WorkflowExecutionFilter -> ()
rnf
    = \ WorkflowExecutionFilter
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (WorkflowExecutionFilter -> FieldSet
_WorkflowExecutionFilter'_unknownFields WorkflowExecutionFilter
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (WorkflowExecutionFilter -> Text
_WorkflowExecutionFilter'workflowId WorkflowExecutionFilter
x__)
                (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (WorkflowExecutionFilter -> Text
_WorkflowExecutionFilter'runId WorkflowExecutionFilter
x__) ()))
{- | Fields :
     
         * 'Proto.Temporal.Api.Filter.V1.Message_Fields.name' @:: Lens' WorkflowTypeFilter Data.Text.Text@ -}
data WorkflowTypeFilter
  = WorkflowTypeFilter'_constructor {WorkflowTypeFilter -> Text
_WorkflowTypeFilter'name :: !Data.Text.Text,
                                     WorkflowTypeFilter -> FieldSet
_WorkflowTypeFilter'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (WorkflowTypeFilter -> WorkflowTypeFilter -> Bool
(WorkflowTypeFilter -> WorkflowTypeFilter -> Bool)
-> (WorkflowTypeFilter -> WorkflowTypeFilter -> Bool)
-> Eq WorkflowTypeFilter
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: WorkflowTypeFilter -> WorkflowTypeFilter -> Bool
== :: WorkflowTypeFilter -> WorkflowTypeFilter -> Bool
$c/= :: WorkflowTypeFilter -> WorkflowTypeFilter -> Bool
/= :: WorkflowTypeFilter -> WorkflowTypeFilter -> Bool
Prelude.Eq, Eq WorkflowTypeFilter
Eq WorkflowTypeFilter =>
(WorkflowTypeFilter -> WorkflowTypeFilter -> Ordering)
-> (WorkflowTypeFilter -> WorkflowTypeFilter -> Bool)
-> (WorkflowTypeFilter -> WorkflowTypeFilter -> Bool)
-> (WorkflowTypeFilter -> WorkflowTypeFilter -> Bool)
-> (WorkflowTypeFilter -> WorkflowTypeFilter -> Bool)
-> (WorkflowTypeFilter -> WorkflowTypeFilter -> WorkflowTypeFilter)
-> (WorkflowTypeFilter -> WorkflowTypeFilter -> WorkflowTypeFilter)
-> Ord WorkflowTypeFilter
WorkflowTypeFilter -> WorkflowTypeFilter -> Bool
WorkflowTypeFilter -> WorkflowTypeFilter -> Ordering
WorkflowTypeFilter -> WorkflowTypeFilter -> WorkflowTypeFilter
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 :: WorkflowTypeFilter -> WorkflowTypeFilter -> Ordering
compare :: WorkflowTypeFilter -> WorkflowTypeFilter -> Ordering
$c< :: WorkflowTypeFilter -> WorkflowTypeFilter -> Bool
< :: WorkflowTypeFilter -> WorkflowTypeFilter -> Bool
$c<= :: WorkflowTypeFilter -> WorkflowTypeFilter -> Bool
<= :: WorkflowTypeFilter -> WorkflowTypeFilter -> Bool
$c> :: WorkflowTypeFilter -> WorkflowTypeFilter -> Bool
> :: WorkflowTypeFilter -> WorkflowTypeFilter -> Bool
$c>= :: WorkflowTypeFilter -> WorkflowTypeFilter -> Bool
>= :: WorkflowTypeFilter -> WorkflowTypeFilter -> Bool
$cmax :: WorkflowTypeFilter -> WorkflowTypeFilter -> WorkflowTypeFilter
max :: WorkflowTypeFilter -> WorkflowTypeFilter -> WorkflowTypeFilter
$cmin :: WorkflowTypeFilter -> WorkflowTypeFilter -> WorkflowTypeFilter
min :: WorkflowTypeFilter -> WorkflowTypeFilter -> WorkflowTypeFilter
Prelude.Ord)
instance Prelude.Show WorkflowTypeFilter where
  showsPrec :: Int -> WorkflowTypeFilter -> ShowS
showsPrec Int
_ WorkflowTypeFilter
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (WorkflowTypeFilter -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort WorkflowTypeFilter
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField WorkflowTypeFilter "name" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "name"
-> (Text -> f Text) -> WorkflowTypeFilter -> f WorkflowTypeFilter
fieldOf Proxy# "name"
_
    = ((Text -> f Text) -> WorkflowTypeFilter -> f WorkflowTypeFilter)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> WorkflowTypeFilter
-> f WorkflowTypeFilter
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((WorkflowTypeFilter -> Text)
-> (WorkflowTypeFilter -> Text -> WorkflowTypeFilter)
-> Lens WorkflowTypeFilter WorkflowTypeFilter Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           WorkflowTypeFilter -> Text
_WorkflowTypeFilter'name
           (\ WorkflowTypeFilter
x__ Text
y__ -> WorkflowTypeFilter
x__ {_WorkflowTypeFilter'name = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message WorkflowTypeFilter where
  messageName :: Proxy WorkflowTypeFilter -> Text
messageName Proxy WorkflowTypeFilter
_
    = String -> Text
Data.Text.pack String
"temporal.api.filter.v1.WorkflowTypeFilter"
  packedMessageDescriptor :: Proxy WorkflowTypeFilter -> ByteString
packedMessageDescriptor Proxy WorkflowTypeFilter
_
    = ByteString
"\n\
      \\DC2WorkflowTypeFilter\DC2\DC2\n\
      \\EOTname\CAN\SOH \SOH(\tR\EOTname"
  packedFileDescriptor :: Proxy WorkflowTypeFilter -> ByteString
packedFileDescriptor Proxy WorkflowTypeFilter
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor WorkflowTypeFilter)
fieldsByTag
    = let
        name__field_descriptor :: FieldDescriptor WorkflowTypeFilter
name__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor WorkflowTypeFilter Text
-> FieldDescriptor WorkflowTypeFilter
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"name"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (WireDefault Text
-> Lens WorkflowTypeFilter WorkflowTypeFilter Text Text
-> FieldAccessor WorkflowTypeFilter 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 @"name")) ::
              Data.ProtoLens.FieldDescriptor WorkflowTypeFilter
      in
        [(Tag, FieldDescriptor WorkflowTypeFilter)]
-> Map Tag (FieldDescriptor WorkflowTypeFilter)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor WorkflowTypeFilter
name__field_descriptor)]
  unknownFields :: Lens' WorkflowTypeFilter FieldSet
unknownFields
    = (WorkflowTypeFilter -> FieldSet)
-> (WorkflowTypeFilter -> FieldSet -> WorkflowTypeFilter)
-> Lens' WorkflowTypeFilter FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        WorkflowTypeFilter -> FieldSet
_WorkflowTypeFilter'_unknownFields
        (\ WorkflowTypeFilter
x__ FieldSet
y__ -> WorkflowTypeFilter
x__ {_WorkflowTypeFilter'_unknownFields = y__})
  defMessage :: WorkflowTypeFilter
defMessage
    = WorkflowTypeFilter'_constructor
        {_WorkflowTypeFilter'name :: Text
_WorkflowTypeFilter'name = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _WorkflowTypeFilter'_unknownFields :: FieldSet
_WorkflowTypeFilter'_unknownFields = []}
  parseMessage :: Parser WorkflowTypeFilter
parseMessage
    = let
        loop ::
          WorkflowTypeFilter
          -> Data.ProtoLens.Encoding.Bytes.Parser WorkflowTypeFilter
        loop :: WorkflowTypeFilter -> Parser WorkflowTypeFilter
loop WorkflowTypeFilter
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
"name"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"name") 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 WorkflowTypeFilter -> String -> Parser WorkflowTypeFilter
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do WorkflowTypeFilter -> Parser WorkflowTypeFilter
loop WorkflowTypeFilter
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"WorkflowTypeFilter"
  buildMessage :: WorkflowTypeFilter -> Builder
buildMessage
    = \ WorkflowTypeFilter
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: Text
_v = FoldLike Text WorkflowTypeFilter WorkflowTypeFilter Text Text
-> WorkflowTypeFilter -> 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 @"name") WorkflowTypeFilter
_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))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike
  FieldSet WorkflowTypeFilter WorkflowTypeFilter FieldSet FieldSet
-> WorkflowTypeFilter -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet WorkflowTypeFilter WorkflowTypeFilter FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' WorkflowTypeFilter FieldSet
Data.ProtoLens.unknownFields WorkflowTypeFilter
_x))
instance Control.DeepSeq.NFData WorkflowTypeFilter where
  rnf :: WorkflowTypeFilter -> ()
rnf
    = \ WorkflowTypeFilter
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (WorkflowTypeFilter -> FieldSet
_WorkflowTypeFilter'_unknownFields WorkflowTypeFilter
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (WorkflowTypeFilter -> Text
_WorkflowTypeFilter'name WorkflowTypeFilter
x__) ())
packedFileDescriptor :: Data.ByteString.ByteString
packedFileDescriptor :: ByteString
packedFileDescriptor
  = ByteString
"\n\
    \$temporal/api/filter/v1/message.proto\DC2\SYNtemporal.api.filter.v1\SUB\USgoogle/protobuf/timestamp.proto\SUB$temporal/api/enums/v1/workflow.proto\"Q\n\
    \\ETBWorkflowExecutionFilter\DC2\US\n\
    \\vworkflow_id\CAN\SOH \SOH(\tR\n\
    \workflowId\DC2\NAK\n\
    \\ACKrun_id\CAN\STX \SOH(\tR\ENQrunId\"(\n\
    \\DC2WorkflowTypeFilter\DC2\DC2\n\
    \\EOTname\CAN\SOH \SOH(\tR\EOTname\"\143\SOH\n\
    \\SIStartTimeFilter\DC2?\n\
    \\rearliest_time\CAN\SOH \SOH(\v2\SUB.google.protobuf.TimestampR\fearliestTime\DC2;\n\
    \\vlatest_time\CAN\STX \SOH(\v2\SUB.google.protobuf.TimestampR\n\
    \latestTime\"V\n\
    \\fStatusFilter\DC2F\n\
    \\ACKstatus\CAN\SOH \SOH(\SO2..temporal.api.enums.v1.WorkflowExecutionStatusR\ACKstatusB\137\SOH\n\
    \\EMio.temporal.api.filter.v1B\fMessageProtoP\SOHZ#go.temporal.io/api/filter/v1;filter\170\STX\CANTemporalio.Api.Filter.V1\234\STX\ESCTemporalio::Api::Filter::V1J\196\r\n\
    \\ACK\DC2\EOT\SYN\NUL5\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\US\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\NUL2\n\
    \\t\n\
    \\STX\b\SOH\DC2\ETX\ESC\NUL2\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\NUL4\n\
    \\t\n\
    \\STX\b-\DC2\ETX\RS\NUL4\n\
    \\b\n\
    \\SOH\b\DC2\ETX\US\NUL5\n\
    \\t\n\
    \\STX\b%\DC2\ETX\US\NUL5\n\
    \\t\n\
    \\STX\ETX\NUL\DC2\ETX!\NUL)\n\
    \\t\n\
    \\STX\ETX\SOH\DC2\ETX#\NUL.\n\
    \\n\
    \\n\
    \\STX\EOT\NUL\DC2\EOT%\NUL(\SOH\n\
    \\n\
    \\n\
    \\ETX\EOT\NUL\SOH\DC2\ETX%\b\US\n\
    \\v\n\
    \\EOT\EOT\NUL\STX\NUL\DC2\ETX&\EOT\ESC\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\SYN\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\ETX\DC2\ETX&\EM\SUB\n\
    \\v\n\
    \\EOT\EOT\NUL\STX\SOH\DC2\ETX'\EOT\SYN\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\DC1\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\SOH\ETX\DC2\ETX'\DC4\NAK\n\
    \\n\
    \\n\
    \\STX\EOT\SOH\DC2\EOT*\NUL,\SOH\n\
    \\n\
    \\n\
    \\ETX\EOT\SOH\SOH\DC2\ETX*\b\SUB\n\
    \\v\n\
    \\EOT\EOT\SOH\STX\NUL\DC2\ETX+\EOT\DC4\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\NUL\ENQ\DC2\ETX+\EOT\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\NUL\SOH\DC2\ETX+\v\SI\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\NUL\ETX\DC2\ETX+\DC2\DC3\n\
    \\n\
    \\n\
    \\STX\EOT\STX\DC2\EOT.\NUL1\SOH\n\
    \\n\
    \\n\
    \\ETX\EOT\STX\SOH\DC2\ETX.\b\ETB\n\
    \\v\n\
    \\EOT\EOT\STX\STX\NUL\DC2\ETX/\EOT0\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\NUL\ACK\DC2\ETX/\EOT\GS\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\NUL\SOH\DC2\ETX/\RS+\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\NUL\ETX\DC2\ETX/./\n\
    \\v\n\
    \\EOT\EOT\STX\STX\SOH\DC2\ETX0\EOT.\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\SOH\ACK\DC2\ETX0\EOT\GS\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\SOH\SOH\DC2\ETX0\RS)\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\SOH\ETX\DC2\ETX0,-\n\
    \\n\
    \\n\
    \\STX\EOT\ETX\DC2\EOT3\NUL5\SOH\n\
    \\n\
    \\n\
    \\ETX\EOT\ETX\SOH\DC2\ETX3\b\DC4\n\
    \\v\n\
    \\EOT\EOT\ETX\STX\NUL\DC2\ETX4\EOT=\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\NUL\ACK\DC2\ETX4\EOT1\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\NUL\SOH\DC2\ETX428\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\NUL\ETX\DC2\ETX4;<b\ACKproto3"