{- This file was auto-generated from temporal/api/export/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.Export.V1.Message (
        WorkflowExecution(), WorkflowExecutions()
    ) 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.History.V1.Message
{- | Fields :
     
         * 'Proto.Temporal.Api.Export.V1.Message_Fields.history' @:: Lens' WorkflowExecution Proto.Temporal.Api.History.V1.Message.History@
         * 'Proto.Temporal.Api.Export.V1.Message_Fields.maybe'history' @:: Lens' WorkflowExecution (Prelude.Maybe Proto.Temporal.Api.History.V1.Message.History)@ -}
data WorkflowExecution
  = WorkflowExecution'_constructor {WorkflowExecution -> Maybe History
_WorkflowExecution'history :: !(Prelude.Maybe Proto.Temporal.Api.History.V1.Message.History),
                                    WorkflowExecution -> FieldSet
_WorkflowExecution'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (WorkflowExecution -> WorkflowExecution -> Bool
(WorkflowExecution -> WorkflowExecution -> Bool)
-> (WorkflowExecution -> WorkflowExecution -> Bool)
-> Eq WorkflowExecution
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: WorkflowExecution -> WorkflowExecution -> Bool
== :: WorkflowExecution -> WorkflowExecution -> Bool
$c/= :: WorkflowExecution -> WorkflowExecution -> Bool
/= :: WorkflowExecution -> WorkflowExecution -> Bool
Prelude.Eq, Eq WorkflowExecution
Eq WorkflowExecution =>
(WorkflowExecution -> WorkflowExecution -> Ordering)
-> (WorkflowExecution -> WorkflowExecution -> Bool)
-> (WorkflowExecution -> WorkflowExecution -> Bool)
-> (WorkflowExecution -> WorkflowExecution -> Bool)
-> (WorkflowExecution -> WorkflowExecution -> Bool)
-> (WorkflowExecution -> WorkflowExecution -> WorkflowExecution)
-> (WorkflowExecution -> WorkflowExecution -> WorkflowExecution)
-> Ord WorkflowExecution
WorkflowExecution -> WorkflowExecution -> Bool
WorkflowExecution -> WorkflowExecution -> Ordering
WorkflowExecution -> WorkflowExecution -> WorkflowExecution
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 :: WorkflowExecution -> WorkflowExecution -> Ordering
compare :: WorkflowExecution -> WorkflowExecution -> Ordering
$c< :: WorkflowExecution -> WorkflowExecution -> Bool
< :: WorkflowExecution -> WorkflowExecution -> Bool
$c<= :: WorkflowExecution -> WorkflowExecution -> Bool
<= :: WorkflowExecution -> WorkflowExecution -> Bool
$c> :: WorkflowExecution -> WorkflowExecution -> Bool
> :: WorkflowExecution -> WorkflowExecution -> Bool
$c>= :: WorkflowExecution -> WorkflowExecution -> Bool
>= :: WorkflowExecution -> WorkflowExecution -> Bool
$cmax :: WorkflowExecution -> WorkflowExecution -> WorkflowExecution
max :: WorkflowExecution -> WorkflowExecution -> WorkflowExecution
$cmin :: WorkflowExecution -> WorkflowExecution -> WorkflowExecution
min :: WorkflowExecution -> WorkflowExecution -> WorkflowExecution
Prelude.Ord)
instance Prelude.Show WorkflowExecution where
  showsPrec :: Int -> WorkflowExecution -> ShowS
showsPrec Int
_ WorkflowExecution
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (WorkflowExecution -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort WorkflowExecution
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField WorkflowExecution "history" Proto.Temporal.Api.History.V1.Message.History where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "history"
-> (History -> f History)
-> WorkflowExecution
-> f WorkflowExecution
fieldOf Proxy# "history"
_
    = ((Maybe History -> f (Maybe History))
 -> WorkflowExecution -> f WorkflowExecution)
-> ((History -> f History) -> Maybe History -> f (Maybe History))
-> (History -> f History)
-> WorkflowExecution
-> f WorkflowExecution
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((WorkflowExecution -> Maybe History)
-> (WorkflowExecution -> Maybe History -> WorkflowExecution)
-> Lens
     WorkflowExecution WorkflowExecution (Maybe History) (Maybe History)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           WorkflowExecution -> Maybe History
_WorkflowExecution'history
           (\ WorkflowExecution
x__ Maybe History
y__ -> WorkflowExecution
x__ {_WorkflowExecution'history = y__}))
        (History -> Lens' (Maybe History) History
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens History
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField WorkflowExecution "maybe'history" (Prelude.Maybe Proto.Temporal.Api.History.V1.Message.History) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'history"
-> (Maybe History -> f (Maybe History))
-> WorkflowExecution
-> f WorkflowExecution
fieldOf Proxy# "maybe'history"
_
    = ((Maybe History -> f (Maybe History))
 -> WorkflowExecution -> f WorkflowExecution)
-> ((Maybe History -> f (Maybe History))
    -> Maybe History -> f (Maybe History))
-> (Maybe History -> f (Maybe History))
-> WorkflowExecution
-> f WorkflowExecution
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((WorkflowExecution -> Maybe History)
-> (WorkflowExecution -> Maybe History -> WorkflowExecution)
-> Lens
     WorkflowExecution WorkflowExecution (Maybe History) (Maybe History)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           WorkflowExecution -> Maybe History
_WorkflowExecution'history
           (\ WorkflowExecution
x__ Maybe History
y__ -> WorkflowExecution
x__ {_WorkflowExecution'history = y__}))
        (Maybe History -> f (Maybe History))
-> Maybe History -> f (Maybe History)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message WorkflowExecution where
  messageName :: Proxy WorkflowExecution -> Text
messageName Proxy WorkflowExecution
_
    = String -> Text
Data.Text.pack String
"temporal.api.export.v1.WorkflowExecution"
  packedMessageDescriptor :: Proxy WorkflowExecution -> ByteString
packedMessageDescriptor Proxy WorkflowExecution
_
    = ByteString
"\n\
      \\DC1WorkflowExecution\DC2:\n\
      \\ahistory\CAN\SOH \SOH(\v2 .temporal.api.history.v1.HistoryR\ahistory"
  packedFileDescriptor :: Proxy WorkflowExecution -> ByteString
packedFileDescriptor Proxy WorkflowExecution
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor WorkflowExecution)
fieldsByTag
    = let
        history__field_descriptor :: FieldDescriptor WorkflowExecution
history__field_descriptor
          = String
-> FieldTypeDescriptor History
-> FieldAccessor WorkflowExecution History
-> FieldDescriptor WorkflowExecution
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"history"
              (MessageOrGroup -> FieldTypeDescriptor History
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.History.V1.Message.History)
              (Lens
  WorkflowExecution WorkflowExecution (Maybe History) (Maybe History)
-> FieldAccessor WorkflowExecution History
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'history")) ::
              Data.ProtoLens.FieldDescriptor WorkflowExecution
      in
        [(Tag, FieldDescriptor WorkflowExecution)]
-> Map Tag (FieldDescriptor WorkflowExecution)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor WorkflowExecution
history__field_descriptor)]
  unknownFields :: Lens' WorkflowExecution FieldSet
unknownFields
    = (WorkflowExecution -> FieldSet)
-> (WorkflowExecution -> FieldSet -> WorkflowExecution)
-> Lens' WorkflowExecution FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        WorkflowExecution -> FieldSet
_WorkflowExecution'_unknownFields
        (\ WorkflowExecution
x__ FieldSet
y__ -> WorkflowExecution
x__ {_WorkflowExecution'_unknownFields = y__})
  defMessage :: WorkflowExecution
defMessage
    = WorkflowExecution'_constructor
        {_WorkflowExecution'history :: Maybe History
_WorkflowExecution'history = Maybe History
forall a. Maybe a
Prelude.Nothing,
         _WorkflowExecution'_unknownFields :: FieldSet
_WorkflowExecution'_unknownFields = []}
  parseMessage :: Parser WorkflowExecution
parseMessage
    = let
        loop ::
          WorkflowExecution
          -> Data.ProtoLens.Encoding.Bytes.Parser WorkflowExecution
        loop :: WorkflowExecution -> Parser WorkflowExecution
loop WorkflowExecution
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 History -> String -> Parser History
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
"history"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"history") 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 WorkflowExecution -> String -> Parser WorkflowExecution
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do WorkflowExecution -> Parser WorkflowExecution
loop WorkflowExecution
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"WorkflowExecution"
  buildMessage :: WorkflowExecution -> Builder
buildMessage
    = \ WorkflowExecution
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe History)
  WorkflowExecution
  WorkflowExecution
  (Maybe History)
  (Maybe History)
-> WorkflowExecution -> Maybe History
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'history") WorkflowExecution
_x
              of
                Maybe History
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just History
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                       ((ByteString -> Builder)
-> (History -> ByteString) -> History -> 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))
                          History -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage History
_v))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike
  FieldSet WorkflowExecution WorkflowExecution FieldSet FieldSet
-> WorkflowExecution -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet WorkflowExecution WorkflowExecution FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' WorkflowExecution FieldSet
Data.ProtoLens.unknownFields WorkflowExecution
_x))
instance Control.DeepSeq.NFData WorkflowExecution where
  rnf :: WorkflowExecution -> ()
rnf
    = \ WorkflowExecution
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (WorkflowExecution -> FieldSet
_WorkflowExecution'_unknownFields WorkflowExecution
x__)
             (Maybe History -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (WorkflowExecution -> Maybe History
_WorkflowExecution'history WorkflowExecution
x__) ())
{- | Fields :
     
         * 'Proto.Temporal.Api.Export.V1.Message_Fields.items' @:: Lens' WorkflowExecutions [WorkflowExecution]@
         * 'Proto.Temporal.Api.Export.V1.Message_Fields.vec'items' @:: Lens' WorkflowExecutions (Data.Vector.Vector WorkflowExecution)@ -}
data WorkflowExecutions
  = WorkflowExecutions'_constructor {WorkflowExecutions -> Vector WorkflowExecution
_WorkflowExecutions'items :: !(Data.Vector.Vector WorkflowExecution),
                                     WorkflowExecutions -> FieldSet
_WorkflowExecutions'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (WorkflowExecutions -> WorkflowExecutions -> Bool
(WorkflowExecutions -> WorkflowExecutions -> Bool)
-> (WorkflowExecutions -> WorkflowExecutions -> Bool)
-> Eq WorkflowExecutions
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: WorkflowExecutions -> WorkflowExecutions -> Bool
== :: WorkflowExecutions -> WorkflowExecutions -> Bool
$c/= :: WorkflowExecutions -> WorkflowExecutions -> Bool
/= :: WorkflowExecutions -> WorkflowExecutions -> Bool
Prelude.Eq, Eq WorkflowExecutions
Eq WorkflowExecutions =>
(WorkflowExecutions -> WorkflowExecutions -> Ordering)
-> (WorkflowExecutions -> WorkflowExecutions -> Bool)
-> (WorkflowExecutions -> WorkflowExecutions -> Bool)
-> (WorkflowExecutions -> WorkflowExecutions -> Bool)
-> (WorkflowExecutions -> WorkflowExecutions -> Bool)
-> (WorkflowExecutions -> WorkflowExecutions -> WorkflowExecutions)
-> (WorkflowExecutions -> WorkflowExecutions -> WorkflowExecutions)
-> Ord WorkflowExecutions
WorkflowExecutions -> WorkflowExecutions -> Bool
WorkflowExecutions -> WorkflowExecutions -> Ordering
WorkflowExecutions -> WorkflowExecutions -> WorkflowExecutions
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 :: WorkflowExecutions -> WorkflowExecutions -> Ordering
compare :: WorkflowExecutions -> WorkflowExecutions -> Ordering
$c< :: WorkflowExecutions -> WorkflowExecutions -> Bool
< :: WorkflowExecutions -> WorkflowExecutions -> Bool
$c<= :: WorkflowExecutions -> WorkflowExecutions -> Bool
<= :: WorkflowExecutions -> WorkflowExecutions -> Bool
$c> :: WorkflowExecutions -> WorkflowExecutions -> Bool
> :: WorkflowExecutions -> WorkflowExecutions -> Bool
$c>= :: WorkflowExecutions -> WorkflowExecutions -> Bool
>= :: WorkflowExecutions -> WorkflowExecutions -> Bool
$cmax :: WorkflowExecutions -> WorkflowExecutions -> WorkflowExecutions
max :: WorkflowExecutions -> WorkflowExecutions -> WorkflowExecutions
$cmin :: WorkflowExecutions -> WorkflowExecutions -> WorkflowExecutions
min :: WorkflowExecutions -> WorkflowExecutions -> WorkflowExecutions
Prelude.Ord)
instance Prelude.Show WorkflowExecutions where
  showsPrec :: Int -> WorkflowExecutions -> ShowS
showsPrec Int
_ WorkflowExecutions
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (WorkflowExecutions -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort WorkflowExecutions
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField WorkflowExecutions "items" [WorkflowExecution] where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "items"
-> ([WorkflowExecution] -> f [WorkflowExecution])
-> WorkflowExecutions
-> f WorkflowExecutions
fieldOf Proxy# "items"
_
    = ((Vector WorkflowExecution -> f (Vector WorkflowExecution))
 -> WorkflowExecutions -> f WorkflowExecutions)
-> (([WorkflowExecution] -> f [WorkflowExecution])
    -> Vector WorkflowExecution -> f (Vector WorkflowExecution))
-> ([WorkflowExecution] -> f [WorkflowExecution])
-> WorkflowExecutions
-> f WorkflowExecutions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((WorkflowExecutions -> Vector WorkflowExecution)
-> (WorkflowExecutions
    -> Vector WorkflowExecution -> WorkflowExecutions)
-> Lens
     WorkflowExecutions
     WorkflowExecutions
     (Vector WorkflowExecution)
     (Vector WorkflowExecution)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           WorkflowExecutions -> Vector WorkflowExecution
_WorkflowExecutions'items
           (\ WorkflowExecutions
x__ Vector WorkflowExecution
y__ -> WorkflowExecutions
x__ {_WorkflowExecutions'items = y__}))
        ((Vector WorkflowExecution -> [WorkflowExecution])
-> (Vector WorkflowExecution
    -> [WorkflowExecution] -> Vector WorkflowExecution)
-> Lens
     (Vector WorkflowExecution)
     (Vector WorkflowExecution)
     [WorkflowExecution]
     [WorkflowExecution]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector WorkflowExecution -> [WorkflowExecution]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ Vector WorkflowExecution
_ [WorkflowExecution]
y__ -> [WorkflowExecution] -> Vector WorkflowExecution
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [WorkflowExecution]
y__))
instance Data.ProtoLens.Field.HasField WorkflowExecutions "vec'items" (Data.Vector.Vector WorkflowExecution) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'items"
-> (Vector WorkflowExecution -> f (Vector WorkflowExecution))
-> WorkflowExecutions
-> f WorkflowExecutions
fieldOf Proxy# "vec'items"
_
    = ((Vector WorkflowExecution -> f (Vector WorkflowExecution))
 -> WorkflowExecutions -> f WorkflowExecutions)
-> ((Vector WorkflowExecution -> f (Vector WorkflowExecution))
    -> Vector WorkflowExecution -> f (Vector WorkflowExecution))
-> (Vector WorkflowExecution -> f (Vector WorkflowExecution))
-> WorkflowExecutions
-> f WorkflowExecutions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((WorkflowExecutions -> Vector WorkflowExecution)
-> (WorkflowExecutions
    -> Vector WorkflowExecution -> WorkflowExecutions)
-> Lens
     WorkflowExecutions
     WorkflowExecutions
     (Vector WorkflowExecution)
     (Vector WorkflowExecution)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           WorkflowExecutions -> Vector WorkflowExecution
_WorkflowExecutions'items
           (\ WorkflowExecutions
x__ Vector WorkflowExecution
y__ -> WorkflowExecutions
x__ {_WorkflowExecutions'items = y__}))
        (Vector WorkflowExecution -> f (Vector WorkflowExecution))
-> Vector WorkflowExecution -> f (Vector WorkflowExecution)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message WorkflowExecutions where
  messageName :: Proxy WorkflowExecutions -> Text
messageName Proxy WorkflowExecutions
_
    = String -> Text
Data.Text.pack String
"temporal.api.export.v1.WorkflowExecutions"
  packedMessageDescriptor :: Proxy WorkflowExecutions -> ByteString
packedMessageDescriptor Proxy WorkflowExecutions
_
    = ByteString
"\n\
      \\DC2WorkflowExecutions\DC2?\n\
      \\ENQitems\CAN\SOH \ETX(\v2).temporal.api.export.v1.WorkflowExecutionR\ENQitems"
  packedFileDescriptor :: Proxy WorkflowExecutions -> ByteString
packedFileDescriptor Proxy WorkflowExecutions
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor WorkflowExecutions)
fieldsByTag
    = let
        items__field_descriptor :: FieldDescriptor WorkflowExecutions
items__field_descriptor
          = String
-> FieldTypeDescriptor WorkflowExecution
-> FieldAccessor WorkflowExecutions WorkflowExecution
-> FieldDescriptor WorkflowExecutions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"items"
              (MessageOrGroup -> FieldTypeDescriptor WorkflowExecution
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor WorkflowExecution)
              (Packing
-> Lens' WorkflowExecutions [WorkflowExecution]
-> FieldAccessor WorkflowExecutions WorkflowExecution
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"items")) ::
              Data.ProtoLens.FieldDescriptor WorkflowExecutions
      in
        [(Tag, FieldDescriptor WorkflowExecutions)]
-> Map Tag (FieldDescriptor WorkflowExecutions)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor WorkflowExecutions
items__field_descriptor)]
  unknownFields :: Lens' WorkflowExecutions FieldSet
unknownFields
    = (WorkflowExecutions -> FieldSet)
-> (WorkflowExecutions -> FieldSet -> WorkflowExecutions)
-> Lens' WorkflowExecutions FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        WorkflowExecutions -> FieldSet
_WorkflowExecutions'_unknownFields
        (\ WorkflowExecutions
x__ FieldSet
y__ -> WorkflowExecutions
x__ {_WorkflowExecutions'_unknownFields = y__})
  defMessage :: WorkflowExecutions
defMessage
    = WorkflowExecutions'_constructor
        {_WorkflowExecutions'items :: Vector WorkflowExecution
_WorkflowExecutions'items = Vector WorkflowExecution
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _WorkflowExecutions'_unknownFields :: FieldSet
_WorkflowExecutions'_unknownFields = []}
  parseMessage :: Parser WorkflowExecutions
parseMessage
    = let
        loop ::
          WorkflowExecutions
          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld WorkflowExecution
             -> Data.ProtoLens.Encoding.Bytes.Parser WorkflowExecutions
        loop :: WorkflowExecutions
-> Growing Vector RealWorld WorkflowExecution
-> Parser WorkflowExecutions
loop WorkflowExecutions
x Growing Vector RealWorld WorkflowExecution
mutable'items
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do frozen'items <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                        (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'items)
                      (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)
                           (Lens.Family2.set
                              (Data.ProtoLens.Field.field @"vec'items") frozen'items x))
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do !y <- Parser WorkflowExecution -> String -> Parser WorkflowExecution
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
"items"
                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Data.ProtoLens.Encoding.Growing.append mutable'items y)
                                loop x v
                        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)
                                  mutable'items
      in
        Parser WorkflowExecutions -> String -> Parser WorkflowExecutions
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do mutable'items <- IO (Growing Vector RealWorld WorkflowExecution)
-> Parser (Growing Vector RealWorld WorkflowExecution)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                 IO (Growing Vector RealWorld WorkflowExecution)
IO (Growing Vector (PrimState IO) WorkflowExecution)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              loop Data.ProtoLens.defMessage mutable'items)
          String
"WorkflowExecutions"
  buildMessage :: WorkflowExecutions -> Builder
buildMessage
    = \ WorkflowExecutions
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             ((WorkflowExecution -> Builder)
-> Vector WorkflowExecution -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                (\ WorkflowExecution
_v
                   -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                        (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                        ((ByteString -> Builder)
-> (WorkflowExecution -> ByteString)
-> WorkflowExecution
-> 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))
                           WorkflowExecution -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage WorkflowExecution
_v))
                (FoldLike
  (Vector WorkflowExecution)
  WorkflowExecutions
  WorkflowExecutions
  (Vector WorkflowExecution)
  (Vector WorkflowExecution)
-> WorkflowExecutions -> Vector WorkflowExecution
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 @"vec'items") WorkflowExecutions
_x))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike
  FieldSet WorkflowExecutions WorkflowExecutions FieldSet FieldSet
-> WorkflowExecutions -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet WorkflowExecutions WorkflowExecutions FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' WorkflowExecutions FieldSet
Data.ProtoLens.unknownFields WorkflowExecutions
_x))
instance Control.DeepSeq.NFData WorkflowExecutions where
  rnf :: WorkflowExecutions -> ()
rnf
    = \ WorkflowExecutions
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (WorkflowExecutions -> FieldSet
_WorkflowExecutions'_unknownFields WorkflowExecutions
x__)
             (Vector WorkflowExecution -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (WorkflowExecutions -> Vector WorkflowExecution
_WorkflowExecutions'items WorkflowExecutions
x__) ())
packedFileDescriptor :: Data.ByteString.ByteString
packedFileDescriptor :: ByteString
packedFileDescriptor
  = ByteString
"\n\
    \$temporal/api/export/v1/message.proto\DC2\SYNtemporal.api.export.v1\SUB%temporal/api/history/v1/message.proto\"O\n\
    \\DC1WorkflowExecution\DC2:\n\
    \\ahistory\CAN\SOH \SOH(\v2 .temporal.api.history.v1.HistoryR\ahistory\"U\n\
    \\DC2WorkflowExecutions\DC2?\n\
    \\ENQitems\CAN\SOH \ETX(\v2).temporal.api.export.v1.WorkflowExecutionR\ENQitemsB\137\SOH\n\
    \\EMio.temporal.api.export.v1B\fMessageProtoP\SOHZ#go.temporal.io/api/export/v1;export\170\STX\CANTemporalio.Api.Export.V1\234\STX\ESCTemporalio::Api::Export::V1J\219\f\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\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\
    \\n\
    \\n\
    \\STX\EOT\NUL\DC2\EOT#\NUL%\SOH\n\
    \\n\
    \\n\
    \\ETX\EOT\NUL\SOH\DC2\ETX#\b\EM\n\
    \\v\n\
    \\EOT\EOT\NUL\STX\NUL\DC2\ETX$\EOT0\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\ACK\DC2\ETX$\EOT#\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\SOH\DC2\ETX$$+\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\ETX\DC2\ETX$./\n\
    \\169\SOH\n\
    \\STX\EOT\SOH\DC2\EOT)\NUL+\SOH\SUB\156\SOH WorkflowExecutions is used by the Cloud Export feature to deserialize \n\
    \ the exported file. It encapsulates a collection of workflow execution information.\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\SOH\SOH\DC2\ETX)\b\SUB\n\
    \\v\n\
    \\EOT\EOT\SOH\STX\NUL\DC2\ETX*\EOT)\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\NUL\EOT\DC2\ETX*\EOT\f\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\NUL\ACK\DC2\ETX*\r\RS\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\NUL\SOH\DC2\ETX*\US$\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\NUL\ETX\DC2\ETX*'(b\ACKproto3"