{- This file was auto-generated from temporal/api/testservice/v1/request_response.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.Testservice.V1.RequestResponse (
        GetCurrentTimeResponse(), LockTimeSkippingRequest(),
        LockTimeSkippingResponse(), SleepRequest(), SleepResponse(),
        SleepUntilRequest(), UnlockTimeSkippingRequest(),
        UnlockTimeSkippingResponse()
    ) 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.Duration
import qualified Proto.Google.Protobuf.Timestamp
{- | Fields :
     
         * 'Proto.Temporal.Api.Testservice.V1.RequestResponse_Fields.time' @:: Lens' GetCurrentTimeResponse Proto.Google.Protobuf.Timestamp.Timestamp@
         * 'Proto.Temporal.Api.Testservice.V1.RequestResponse_Fields.maybe'time' @:: Lens' GetCurrentTimeResponse (Prelude.Maybe Proto.Google.Protobuf.Timestamp.Timestamp)@ -}
data GetCurrentTimeResponse
  = GetCurrentTimeResponse'_constructor {GetCurrentTimeResponse -> Maybe Timestamp
_GetCurrentTimeResponse'time :: !(Prelude.Maybe Proto.Google.Protobuf.Timestamp.Timestamp),
                                         GetCurrentTimeResponse -> FieldSet
_GetCurrentTimeResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (GetCurrentTimeResponse -> GetCurrentTimeResponse -> Bool
(GetCurrentTimeResponse -> GetCurrentTimeResponse -> Bool)
-> (GetCurrentTimeResponse -> GetCurrentTimeResponse -> Bool)
-> Eq GetCurrentTimeResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: GetCurrentTimeResponse -> GetCurrentTimeResponse -> Bool
== :: GetCurrentTimeResponse -> GetCurrentTimeResponse -> Bool
$c/= :: GetCurrentTimeResponse -> GetCurrentTimeResponse -> Bool
/= :: GetCurrentTimeResponse -> GetCurrentTimeResponse -> Bool
Prelude.Eq, Eq GetCurrentTimeResponse
Eq GetCurrentTimeResponse =>
(GetCurrentTimeResponse -> GetCurrentTimeResponse -> Ordering)
-> (GetCurrentTimeResponse -> GetCurrentTimeResponse -> Bool)
-> (GetCurrentTimeResponse -> GetCurrentTimeResponse -> Bool)
-> (GetCurrentTimeResponse -> GetCurrentTimeResponse -> Bool)
-> (GetCurrentTimeResponse -> GetCurrentTimeResponse -> Bool)
-> (GetCurrentTimeResponse
    -> GetCurrentTimeResponse -> GetCurrentTimeResponse)
-> (GetCurrentTimeResponse
    -> GetCurrentTimeResponse -> GetCurrentTimeResponse)
-> Ord GetCurrentTimeResponse
GetCurrentTimeResponse -> GetCurrentTimeResponse -> Bool
GetCurrentTimeResponse -> GetCurrentTimeResponse -> Ordering
GetCurrentTimeResponse
-> GetCurrentTimeResponse -> GetCurrentTimeResponse
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 :: GetCurrentTimeResponse -> GetCurrentTimeResponse -> Ordering
compare :: GetCurrentTimeResponse -> GetCurrentTimeResponse -> Ordering
$c< :: GetCurrentTimeResponse -> GetCurrentTimeResponse -> Bool
< :: GetCurrentTimeResponse -> GetCurrentTimeResponse -> Bool
$c<= :: GetCurrentTimeResponse -> GetCurrentTimeResponse -> Bool
<= :: GetCurrentTimeResponse -> GetCurrentTimeResponse -> Bool
$c> :: GetCurrentTimeResponse -> GetCurrentTimeResponse -> Bool
> :: GetCurrentTimeResponse -> GetCurrentTimeResponse -> Bool
$c>= :: GetCurrentTimeResponse -> GetCurrentTimeResponse -> Bool
>= :: GetCurrentTimeResponse -> GetCurrentTimeResponse -> Bool
$cmax :: GetCurrentTimeResponse
-> GetCurrentTimeResponse -> GetCurrentTimeResponse
max :: GetCurrentTimeResponse
-> GetCurrentTimeResponse -> GetCurrentTimeResponse
$cmin :: GetCurrentTimeResponse
-> GetCurrentTimeResponse -> GetCurrentTimeResponse
min :: GetCurrentTimeResponse
-> GetCurrentTimeResponse -> GetCurrentTimeResponse
Prelude.Ord)
instance Prelude.Show GetCurrentTimeResponse where
  showsPrec :: Int -> GetCurrentTimeResponse -> ShowS
showsPrec Int
_ GetCurrentTimeResponse
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (GetCurrentTimeResponse -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort GetCurrentTimeResponse
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField GetCurrentTimeResponse "time" Proto.Google.Protobuf.Timestamp.Timestamp where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "time"
-> (Timestamp -> f Timestamp)
-> GetCurrentTimeResponse
-> f GetCurrentTimeResponse
fieldOf Proxy# "time"
_
    = ((Maybe Timestamp -> f (Maybe Timestamp))
 -> GetCurrentTimeResponse -> f GetCurrentTimeResponse)
-> ((Timestamp -> f Timestamp)
    -> Maybe Timestamp -> f (Maybe Timestamp))
-> (Timestamp -> f Timestamp)
-> GetCurrentTimeResponse
-> f GetCurrentTimeResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((GetCurrentTimeResponse -> Maybe Timestamp)
-> (GetCurrentTimeResponse
    -> Maybe Timestamp -> GetCurrentTimeResponse)
-> Lens
     GetCurrentTimeResponse
     GetCurrentTimeResponse
     (Maybe Timestamp)
     (Maybe Timestamp)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           GetCurrentTimeResponse -> Maybe Timestamp
_GetCurrentTimeResponse'time
           (\ GetCurrentTimeResponse
x__ Maybe Timestamp
y__ -> GetCurrentTimeResponse
x__ {_GetCurrentTimeResponse'time = 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 GetCurrentTimeResponse "maybe'time" (Prelude.Maybe Proto.Google.Protobuf.Timestamp.Timestamp) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'time"
-> (Maybe Timestamp -> f (Maybe Timestamp))
-> GetCurrentTimeResponse
-> f GetCurrentTimeResponse
fieldOf Proxy# "maybe'time"
_
    = ((Maybe Timestamp -> f (Maybe Timestamp))
 -> GetCurrentTimeResponse -> f GetCurrentTimeResponse)
-> ((Maybe Timestamp -> f (Maybe Timestamp))
    -> Maybe Timestamp -> f (Maybe Timestamp))
-> (Maybe Timestamp -> f (Maybe Timestamp))
-> GetCurrentTimeResponse
-> f GetCurrentTimeResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((GetCurrentTimeResponse -> Maybe Timestamp)
-> (GetCurrentTimeResponse
    -> Maybe Timestamp -> GetCurrentTimeResponse)
-> Lens
     GetCurrentTimeResponse
     GetCurrentTimeResponse
     (Maybe Timestamp)
     (Maybe Timestamp)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           GetCurrentTimeResponse -> Maybe Timestamp
_GetCurrentTimeResponse'time
           (\ GetCurrentTimeResponse
x__ Maybe Timestamp
y__ -> GetCurrentTimeResponse
x__ {_GetCurrentTimeResponse'time = y__}))
        (Maybe Timestamp -> f (Maybe Timestamp))
-> Maybe Timestamp -> f (Maybe Timestamp)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message GetCurrentTimeResponse where
  messageName :: Proxy GetCurrentTimeResponse -> Text
messageName Proxy GetCurrentTimeResponse
_
    = String -> Text
Data.Text.pack
        String
"temporal.api.testservice.v1.GetCurrentTimeResponse"
  packedMessageDescriptor :: Proxy GetCurrentTimeResponse -> ByteString
packedMessageDescriptor Proxy GetCurrentTimeResponse
_
    = ByteString
"\n\
      \\SYNGetCurrentTimeResponse\DC2.\n\
      \\EOTtime\CAN\SOH \SOH(\v2\SUB.google.protobuf.TimestampR\EOTtime"
  packedFileDescriptor :: Proxy GetCurrentTimeResponse -> ByteString
packedFileDescriptor Proxy GetCurrentTimeResponse
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor GetCurrentTimeResponse)
fieldsByTag
    = let
        time__field_descriptor :: FieldDescriptor GetCurrentTimeResponse
time__field_descriptor
          = String
-> FieldTypeDescriptor Timestamp
-> FieldAccessor GetCurrentTimeResponse Timestamp
-> FieldDescriptor GetCurrentTimeResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"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
  GetCurrentTimeResponse
  GetCurrentTimeResponse
  (Maybe Timestamp)
  (Maybe Timestamp)
-> FieldAccessor GetCurrentTimeResponse 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'time")) ::
              Data.ProtoLens.FieldDescriptor GetCurrentTimeResponse
      in
        [(Tag, FieldDescriptor GetCurrentTimeResponse)]
-> Map Tag (FieldDescriptor GetCurrentTimeResponse)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor GetCurrentTimeResponse
time__field_descriptor)]
  unknownFields :: Lens' GetCurrentTimeResponse FieldSet
unknownFields
    = (GetCurrentTimeResponse -> FieldSet)
-> (GetCurrentTimeResponse -> FieldSet -> GetCurrentTimeResponse)
-> Lens' GetCurrentTimeResponse FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        GetCurrentTimeResponse -> FieldSet
_GetCurrentTimeResponse'_unknownFields
        (\ GetCurrentTimeResponse
x__ FieldSet
y__ -> GetCurrentTimeResponse
x__ {_GetCurrentTimeResponse'_unknownFields = y__})
  defMessage :: GetCurrentTimeResponse
defMessage
    = GetCurrentTimeResponse'_constructor
        {_GetCurrentTimeResponse'time :: Maybe Timestamp
_GetCurrentTimeResponse'time = Maybe Timestamp
forall a. Maybe a
Prelude.Nothing,
         _GetCurrentTimeResponse'_unknownFields :: FieldSet
_GetCurrentTimeResponse'_unknownFields = []}
  parseMessage :: Parser GetCurrentTimeResponse
parseMessage
    = let
        loop ::
          GetCurrentTimeResponse
          -> Data.ProtoLens.Encoding.Bytes.Parser GetCurrentTimeResponse
        loop :: GetCurrentTimeResponse -> Parser GetCurrentTimeResponse
loop GetCurrentTimeResponse
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
"time"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"time") 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 GetCurrentTimeResponse
-> String -> Parser GetCurrentTimeResponse
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do GetCurrentTimeResponse -> Parser GetCurrentTimeResponse
loop GetCurrentTimeResponse
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"GetCurrentTimeResponse"
  buildMessage :: GetCurrentTimeResponse -> Builder
buildMessage
    = \ GetCurrentTimeResponse
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe Timestamp)
  GetCurrentTimeResponse
  GetCurrentTimeResponse
  (Maybe Timestamp)
  (Maybe Timestamp)
-> GetCurrentTimeResponse -> 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'time") GetCurrentTimeResponse
_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))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike
  FieldSet
  GetCurrentTimeResponse
  GetCurrentTimeResponse
  FieldSet
  FieldSet
-> GetCurrentTimeResponse -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  GetCurrentTimeResponse
  GetCurrentTimeResponse
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' GetCurrentTimeResponse FieldSet
Data.ProtoLens.unknownFields GetCurrentTimeResponse
_x))
instance Control.DeepSeq.NFData GetCurrentTimeResponse where
  rnf :: GetCurrentTimeResponse -> ()
rnf
    = \ GetCurrentTimeResponse
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (GetCurrentTimeResponse -> FieldSet
_GetCurrentTimeResponse'_unknownFields GetCurrentTimeResponse
x__)
             (Maybe Timestamp -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (GetCurrentTimeResponse -> Maybe Timestamp
_GetCurrentTimeResponse'time GetCurrentTimeResponse
x__) ())
{- | Fields :
      -}
data LockTimeSkippingRequest
  = LockTimeSkippingRequest'_constructor {LockTimeSkippingRequest -> FieldSet
_LockTimeSkippingRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (LockTimeSkippingRequest -> LockTimeSkippingRequest -> Bool
(LockTimeSkippingRequest -> LockTimeSkippingRequest -> Bool)
-> (LockTimeSkippingRequest -> LockTimeSkippingRequest -> Bool)
-> Eq LockTimeSkippingRequest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: LockTimeSkippingRequest -> LockTimeSkippingRequest -> Bool
== :: LockTimeSkippingRequest -> LockTimeSkippingRequest -> Bool
$c/= :: LockTimeSkippingRequest -> LockTimeSkippingRequest -> Bool
/= :: LockTimeSkippingRequest -> LockTimeSkippingRequest -> Bool
Prelude.Eq, Eq LockTimeSkippingRequest
Eq LockTimeSkippingRequest =>
(LockTimeSkippingRequest -> LockTimeSkippingRequest -> Ordering)
-> (LockTimeSkippingRequest -> LockTimeSkippingRequest -> Bool)
-> (LockTimeSkippingRequest -> LockTimeSkippingRequest -> Bool)
-> (LockTimeSkippingRequest -> LockTimeSkippingRequest -> Bool)
-> (LockTimeSkippingRequest -> LockTimeSkippingRequest -> Bool)
-> (LockTimeSkippingRequest
    -> LockTimeSkippingRequest -> LockTimeSkippingRequest)
-> (LockTimeSkippingRequest
    -> LockTimeSkippingRequest -> LockTimeSkippingRequest)
-> Ord LockTimeSkippingRequest
LockTimeSkippingRequest -> LockTimeSkippingRequest -> Bool
LockTimeSkippingRequest -> LockTimeSkippingRequest -> Ordering
LockTimeSkippingRequest
-> LockTimeSkippingRequest -> LockTimeSkippingRequest
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 :: LockTimeSkippingRequest -> LockTimeSkippingRequest -> Ordering
compare :: LockTimeSkippingRequest -> LockTimeSkippingRequest -> Ordering
$c< :: LockTimeSkippingRequest -> LockTimeSkippingRequest -> Bool
< :: LockTimeSkippingRequest -> LockTimeSkippingRequest -> Bool
$c<= :: LockTimeSkippingRequest -> LockTimeSkippingRequest -> Bool
<= :: LockTimeSkippingRequest -> LockTimeSkippingRequest -> Bool
$c> :: LockTimeSkippingRequest -> LockTimeSkippingRequest -> Bool
> :: LockTimeSkippingRequest -> LockTimeSkippingRequest -> Bool
$c>= :: LockTimeSkippingRequest -> LockTimeSkippingRequest -> Bool
>= :: LockTimeSkippingRequest -> LockTimeSkippingRequest -> Bool
$cmax :: LockTimeSkippingRequest
-> LockTimeSkippingRequest -> LockTimeSkippingRequest
max :: LockTimeSkippingRequest
-> LockTimeSkippingRequest -> LockTimeSkippingRequest
$cmin :: LockTimeSkippingRequest
-> LockTimeSkippingRequest -> LockTimeSkippingRequest
min :: LockTimeSkippingRequest
-> LockTimeSkippingRequest -> LockTimeSkippingRequest
Prelude.Ord)
instance Prelude.Show LockTimeSkippingRequest where
  showsPrec :: Int -> LockTimeSkippingRequest -> ShowS
showsPrec Int
_ LockTimeSkippingRequest
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (LockTimeSkippingRequest -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort LockTimeSkippingRequest
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Message LockTimeSkippingRequest where
  messageName :: Proxy LockTimeSkippingRequest -> Text
messageName Proxy LockTimeSkippingRequest
_
    = String -> Text
Data.Text.pack
        String
"temporal.api.testservice.v1.LockTimeSkippingRequest"
  packedMessageDescriptor :: Proxy LockTimeSkippingRequest -> ByteString
packedMessageDescriptor Proxy LockTimeSkippingRequest
_
    = ByteString
"\n\
      \\ETBLockTimeSkippingRequest"
  packedFileDescriptor :: Proxy LockTimeSkippingRequest -> ByteString
packedFileDescriptor Proxy LockTimeSkippingRequest
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor LockTimeSkippingRequest)
fieldsByTag = let in [(Tag, FieldDescriptor LockTimeSkippingRequest)]
-> Map Tag (FieldDescriptor LockTimeSkippingRequest)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList []
  unknownFields :: Lens' LockTimeSkippingRequest FieldSet
unknownFields
    = (LockTimeSkippingRequest -> FieldSet)
-> (LockTimeSkippingRequest -> FieldSet -> LockTimeSkippingRequest)
-> Lens' LockTimeSkippingRequest FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        LockTimeSkippingRequest -> FieldSet
_LockTimeSkippingRequest'_unknownFields
        (\ LockTimeSkippingRequest
x__ FieldSet
y__ -> LockTimeSkippingRequest
x__ {_LockTimeSkippingRequest'_unknownFields = y__})
  defMessage :: LockTimeSkippingRequest
defMessage
    = LockTimeSkippingRequest'_constructor
        {_LockTimeSkippingRequest'_unknownFields :: FieldSet
_LockTimeSkippingRequest'_unknownFields = []}
  parseMessage :: Parser LockTimeSkippingRequest
parseMessage
    = let
        loop ::
          LockTimeSkippingRequest
          -> Data.ProtoLens.Encoding.Bytes.Parser LockTimeSkippingRequest
        loop :: LockTimeSkippingRequest -> Parser LockTimeSkippingRequest
loop LockTimeSkippingRequest
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
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 LockTimeSkippingRequest
-> String -> Parser LockTimeSkippingRequest
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do LockTimeSkippingRequest -> Parser LockTimeSkippingRequest
loop LockTimeSkippingRequest
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"LockTimeSkippingRequest"
  buildMessage :: LockTimeSkippingRequest -> Builder
buildMessage
    = \ LockTimeSkippingRequest
_x
        -> FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
             (FoldLike
  FieldSet
  LockTimeSkippingRequest
  LockTimeSkippingRequest
  FieldSet
  FieldSet
-> LockTimeSkippingRequest -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  LockTimeSkippingRequest
  LockTimeSkippingRequest
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' LockTimeSkippingRequest FieldSet
Data.ProtoLens.unknownFields LockTimeSkippingRequest
_x)
instance Control.DeepSeq.NFData LockTimeSkippingRequest where
  rnf :: LockTimeSkippingRequest -> ()
rnf
    = \ LockTimeSkippingRequest
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (LockTimeSkippingRequest -> FieldSet
_LockTimeSkippingRequest'_unknownFields LockTimeSkippingRequest
x__) ()
{- | Fields :
      -}
data LockTimeSkippingResponse
  = LockTimeSkippingResponse'_constructor {LockTimeSkippingResponse -> FieldSet
_LockTimeSkippingResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (LockTimeSkippingResponse -> LockTimeSkippingResponse -> Bool
(LockTimeSkippingResponse -> LockTimeSkippingResponse -> Bool)
-> (LockTimeSkippingResponse -> LockTimeSkippingResponse -> Bool)
-> Eq LockTimeSkippingResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: LockTimeSkippingResponse -> LockTimeSkippingResponse -> Bool
== :: LockTimeSkippingResponse -> LockTimeSkippingResponse -> Bool
$c/= :: LockTimeSkippingResponse -> LockTimeSkippingResponse -> Bool
/= :: LockTimeSkippingResponse -> LockTimeSkippingResponse -> Bool
Prelude.Eq, Eq LockTimeSkippingResponse
Eq LockTimeSkippingResponse =>
(LockTimeSkippingResponse -> LockTimeSkippingResponse -> Ordering)
-> (LockTimeSkippingResponse -> LockTimeSkippingResponse -> Bool)
-> (LockTimeSkippingResponse -> LockTimeSkippingResponse -> Bool)
-> (LockTimeSkippingResponse -> LockTimeSkippingResponse -> Bool)
-> (LockTimeSkippingResponse -> LockTimeSkippingResponse -> Bool)
-> (LockTimeSkippingResponse
    -> LockTimeSkippingResponse -> LockTimeSkippingResponse)
-> (LockTimeSkippingResponse
    -> LockTimeSkippingResponse -> LockTimeSkippingResponse)
-> Ord LockTimeSkippingResponse
LockTimeSkippingResponse -> LockTimeSkippingResponse -> Bool
LockTimeSkippingResponse -> LockTimeSkippingResponse -> Ordering
LockTimeSkippingResponse
-> LockTimeSkippingResponse -> LockTimeSkippingResponse
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 :: LockTimeSkippingResponse -> LockTimeSkippingResponse -> Ordering
compare :: LockTimeSkippingResponse -> LockTimeSkippingResponse -> Ordering
$c< :: LockTimeSkippingResponse -> LockTimeSkippingResponse -> Bool
< :: LockTimeSkippingResponse -> LockTimeSkippingResponse -> Bool
$c<= :: LockTimeSkippingResponse -> LockTimeSkippingResponse -> Bool
<= :: LockTimeSkippingResponse -> LockTimeSkippingResponse -> Bool
$c> :: LockTimeSkippingResponse -> LockTimeSkippingResponse -> Bool
> :: LockTimeSkippingResponse -> LockTimeSkippingResponse -> Bool
$c>= :: LockTimeSkippingResponse -> LockTimeSkippingResponse -> Bool
>= :: LockTimeSkippingResponse -> LockTimeSkippingResponse -> Bool
$cmax :: LockTimeSkippingResponse
-> LockTimeSkippingResponse -> LockTimeSkippingResponse
max :: LockTimeSkippingResponse
-> LockTimeSkippingResponse -> LockTimeSkippingResponse
$cmin :: LockTimeSkippingResponse
-> LockTimeSkippingResponse -> LockTimeSkippingResponse
min :: LockTimeSkippingResponse
-> LockTimeSkippingResponse -> LockTimeSkippingResponse
Prelude.Ord)
instance Prelude.Show LockTimeSkippingResponse where
  showsPrec :: Int -> LockTimeSkippingResponse -> ShowS
showsPrec Int
_ LockTimeSkippingResponse
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (LockTimeSkippingResponse -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort LockTimeSkippingResponse
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Message LockTimeSkippingResponse where
  messageName :: Proxy LockTimeSkippingResponse -> Text
messageName Proxy LockTimeSkippingResponse
_
    = String -> Text
Data.Text.pack
        String
"temporal.api.testservice.v1.LockTimeSkippingResponse"
  packedMessageDescriptor :: Proxy LockTimeSkippingResponse -> ByteString
packedMessageDescriptor Proxy LockTimeSkippingResponse
_
    = ByteString
"\n\
      \\CANLockTimeSkippingResponse"
  packedFileDescriptor :: Proxy LockTimeSkippingResponse -> ByteString
packedFileDescriptor Proxy LockTimeSkippingResponse
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor LockTimeSkippingResponse)
fieldsByTag = let in [(Tag, FieldDescriptor LockTimeSkippingResponse)]
-> Map Tag (FieldDescriptor LockTimeSkippingResponse)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList []
  unknownFields :: Lens' LockTimeSkippingResponse FieldSet
unknownFields
    = (LockTimeSkippingResponse -> FieldSet)
-> (LockTimeSkippingResponse
    -> FieldSet -> LockTimeSkippingResponse)
-> Lens' LockTimeSkippingResponse FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        LockTimeSkippingResponse -> FieldSet
_LockTimeSkippingResponse'_unknownFields
        (\ LockTimeSkippingResponse
x__ FieldSet
y__ -> LockTimeSkippingResponse
x__ {_LockTimeSkippingResponse'_unknownFields = y__})
  defMessage :: LockTimeSkippingResponse
defMessage
    = LockTimeSkippingResponse'_constructor
        {_LockTimeSkippingResponse'_unknownFields :: FieldSet
_LockTimeSkippingResponse'_unknownFields = []}
  parseMessage :: Parser LockTimeSkippingResponse
parseMessage
    = let
        loop ::
          LockTimeSkippingResponse
          -> Data.ProtoLens.Encoding.Bytes.Parser LockTimeSkippingResponse
        loop :: LockTimeSkippingResponse -> Parser LockTimeSkippingResponse
loop LockTimeSkippingResponse
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
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 LockTimeSkippingResponse
-> String -> Parser LockTimeSkippingResponse
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do LockTimeSkippingResponse -> Parser LockTimeSkippingResponse
loop LockTimeSkippingResponse
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"LockTimeSkippingResponse"
  buildMessage :: LockTimeSkippingResponse -> Builder
buildMessage
    = \ LockTimeSkippingResponse
_x
        -> FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
             (FoldLike
  FieldSet
  LockTimeSkippingResponse
  LockTimeSkippingResponse
  FieldSet
  FieldSet
-> LockTimeSkippingResponse -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  LockTimeSkippingResponse
  LockTimeSkippingResponse
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' LockTimeSkippingResponse FieldSet
Data.ProtoLens.unknownFields LockTimeSkippingResponse
_x)
instance Control.DeepSeq.NFData LockTimeSkippingResponse where
  rnf :: LockTimeSkippingResponse -> ()
rnf
    = \ LockTimeSkippingResponse
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (LockTimeSkippingResponse -> FieldSet
_LockTimeSkippingResponse'_unknownFields LockTimeSkippingResponse
x__) ()
{- | Fields :
     
         * 'Proto.Temporal.Api.Testservice.V1.RequestResponse_Fields.duration' @:: Lens' SleepRequest Proto.Google.Protobuf.Duration.Duration@
         * 'Proto.Temporal.Api.Testservice.V1.RequestResponse_Fields.maybe'duration' @:: Lens' SleepRequest (Prelude.Maybe Proto.Google.Protobuf.Duration.Duration)@ -}
data SleepRequest
  = SleepRequest'_constructor {SleepRequest -> Maybe Duration
_SleepRequest'duration :: !(Prelude.Maybe Proto.Google.Protobuf.Duration.Duration),
                               SleepRequest -> FieldSet
_SleepRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (SleepRequest -> SleepRequest -> Bool
(SleepRequest -> SleepRequest -> Bool)
-> (SleepRequest -> SleepRequest -> Bool) -> Eq SleepRequest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: SleepRequest -> SleepRequest -> Bool
== :: SleepRequest -> SleepRequest -> Bool
$c/= :: SleepRequest -> SleepRequest -> Bool
/= :: SleepRequest -> SleepRequest -> Bool
Prelude.Eq, Eq SleepRequest
Eq SleepRequest =>
(SleepRequest -> SleepRequest -> Ordering)
-> (SleepRequest -> SleepRequest -> Bool)
-> (SleepRequest -> SleepRequest -> Bool)
-> (SleepRequest -> SleepRequest -> Bool)
-> (SleepRequest -> SleepRequest -> Bool)
-> (SleepRequest -> SleepRequest -> SleepRequest)
-> (SleepRequest -> SleepRequest -> SleepRequest)
-> Ord SleepRequest
SleepRequest -> SleepRequest -> Bool
SleepRequest -> SleepRequest -> Ordering
SleepRequest -> SleepRequest -> SleepRequest
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 :: SleepRequest -> SleepRequest -> Ordering
compare :: SleepRequest -> SleepRequest -> Ordering
$c< :: SleepRequest -> SleepRequest -> Bool
< :: SleepRequest -> SleepRequest -> Bool
$c<= :: SleepRequest -> SleepRequest -> Bool
<= :: SleepRequest -> SleepRequest -> Bool
$c> :: SleepRequest -> SleepRequest -> Bool
> :: SleepRequest -> SleepRequest -> Bool
$c>= :: SleepRequest -> SleepRequest -> Bool
>= :: SleepRequest -> SleepRequest -> Bool
$cmax :: SleepRequest -> SleepRequest -> SleepRequest
max :: SleepRequest -> SleepRequest -> SleepRequest
$cmin :: SleepRequest -> SleepRequest -> SleepRequest
min :: SleepRequest -> SleepRequest -> SleepRequest
Prelude.Ord)
instance Prelude.Show SleepRequest where
  showsPrec :: Int -> SleepRequest -> ShowS
showsPrec Int
_ SleepRequest
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (SleepRequest -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort SleepRequest
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField SleepRequest "duration" Proto.Google.Protobuf.Duration.Duration where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "duration"
-> (Duration -> f Duration) -> SleepRequest -> f SleepRequest
fieldOf Proxy# "duration"
_
    = ((Maybe Duration -> f (Maybe Duration))
 -> SleepRequest -> f SleepRequest)
-> ((Duration -> f Duration)
    -> Maybe Duration -> f (Maybe Duration))
-> (Duration -> f Duration)
-> SleepRequest
-> f SleepRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((SleepRequest -> Maybe Duration)
-> (SleepRequest -> Maybe Duration -> SleepRequest)
-> Lens SleepRequest SleepRequest (Maybe Duration) (Maybe Duration)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           SleepRequest -> Maybe Duration
_SleepRequest'duration
           (\ SleepRequest
x__ Maybe Duration
y__ -> SleepRequest
x__ {_SleepRequest'duration = y__}))
        (Duration -> Lens' (Maybe Duration) Duration
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Duration
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField SleepRequest "maybe'duration" (Prelude.Maybe Proto.Google.Protobuf.Duration.Duration) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'duration"
-> (Maybe Duration -> f (Maybe Duration))
-> SleepRequest
-> f SleepRequest
fieldOf Proxy# "maybe'duration"
_
    = ((Maybe Duration -> f (Maybe Duration))
 -> SleepRequest -> f SleepRequest)
-> ((Maybe Duration -> f (Maybe Duration))
    -> Maybe Duration -> f (Maybe Duration))
-> (Maybe Duration -> f (Maybe Duration))
-> SleepRequest
-> f SleepRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((SleepRequest -> Maybe Duration)
-> (SleepRequest -> Maybe Duration -> SleepRequest)
-> Lens SleepRequest SleepRequest (Maybe Duration) (Maybe Duration)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           SleepRequest -> Maybe Duration
_SleepRequest'duration
           (\ SleepRequest
x__ Maybe Duration
y__ -> SleepRequest
x__ {_SleepRequest'duration = y__}))
        (Maybe Duration -> f (Maybe Duration))
-> Maybe Duration -> f (Maybe Duration)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message SleepRequest where
  messageName :: Proxy SleepRequest -> Text
messageName Proxy SleepRequest
_
    = String -> Text
Data.Text.pack String
"temporal.api.testservice.v1.SleepRequest"
  packedMessageDescriptor :: Proxy SleepRequest -> ByteString
packedMessageDescriptor Proxy SleepRequest
_
    = ByteString
"\n\
      \\fSleepRequest\DC25\n\
      \\bduration\CAN\SOH \SOH(\v2\EM.google.protobuf.DurationR\bduration"
  packedFileDescriptor :: Proxy SleepRequest -> ByteString
packedFileDescriptor Proxy SleepRequest
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor SleepRequest)
fieldsByTag
    = let
        duration__field_descriptor :: FieldDescriptor SleepRequest
duration__field_descriptor
          = String
-> FieldTypeDescriptor Duration
-> FieldAccessor SleepRequest Duration
-> FieldDescriptor SleepRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"duration"
              (MessageOrGroup -> FieldTypeDescriptor Duration
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Proto.Google.Protobuf.Duration.Duration)
              (Lens SleepRequest SleepRequest (Maybe Duration) (Maybe Duration)
-> FieldAccessor SleepRequest Duration
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'duration")) ::
              Data.ProtoLens.FieldDescriptor SleepRequest
      in
        [(Tag, FieldDescriptor SleepRequest)]
-> Map Tag (FieldDescriptor SleepRequest)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor SleepRequest
duration__field_descriptor)]
  unknownFields :: Lens' SleepRequest FieldSet
unknownFields
    = (SleepRequest -> FieldSet)
-> (SleepRequest -> FieldSet -> SleepRequest)
-> Lens' SleepRequest FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        SleepRequest -> FieldSet
_SleepRequest'_unknownFields
        (\ SleepRequest
x__ FieldSet
y__ -> SleepRequest
x__ {_SleepRequest'_unknownFields = y__})
  defMessage :: SleepRequest
defMessage
    = SleepRequest'_constructor
        {_SleepRequest'duration :: Maybe Duration
_SleepRequest'duration = Maybe Duration
forall a. Maybe a
Prelude.Nothing,
         _SleepRequest'_unknownFields :: FieldSet
_SleepRequest'_unknownFields = []}
  parseMessage :: Parser SleepRequest
parseMessage
    = let
        loop ::
          SleepRequest -> Data.ProtoLens.Encoding.Bytes.Parser SleepRequest
        loop :: SleepRequest -> Parser SleepRequest
loop SleepRequest
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 Duration -> String -> Parser Duration
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
"duration"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"duration") 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 SleepRequest -> String -> Parser SleepRequest
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do SleepRequest -> Parser SleepRequest
loop SleepRequest
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"SleepRequest"
  buildMessage :: SleepRequest -> Builder
buildMessage
    = \ SleepRequest
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe Duration)
  SleepRequest
  SleepRequest
  (Maybe Duration)
  (Maybe Duration)
-> SleepRequest -> Maybe Duration
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'duration") SleepRequest
_x
              of
                Maybe Duration
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just Duration
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                       ((ByteString -> Builder)
-> (Duration -> ByteString) -> Duration -> 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))
                          Duration -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Duration
_v))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike FieldSet SleepRequest SleepRequest FieldSet FieldSet
-> SleepRequest -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet SleepRequest SleepRequest FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' SleepRequest FieldSet
Data.ProtoLens.unknownFields SleepRequest
_x))
instance Control.DeepSeq.NFData SleepRequest where
  rnf :: SleepRequest -> ()
rnf
    = \ SleepRequest
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (SleepRequest -> FieldSet
_SleepRequest'_unknownFields SleepRequest
x__)
             (Maybe Duration -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (SleepRequest -> Maybe Duration
_SleepRequest'duration SleepRequest
x__) ())
{- | Fields :
      -}
data SleepResponse
  = SleepResponse'_constructor {SleepResponse -> FieldSet
_SleepResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (SleepResponse -> SleepResponse -> Bool
(SleepResponse -> SleepResponse -> Bool)
-> (SleepResponse -> SleepResponse -> Bool) -> Eq SleepResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: SleepResponse -> SleepResponse -> Bool
== :: SleepResponse -> SleepResponse -> Bool
$c/= :: SleepResponse -> SleepResponse -> Bool
/= :: SleepResponse -> SleepResponse -> Bool
Prelude.Eq, Eq SleepResponse
Eq SleepResponse =>
(SleepResponse -> SleepResponse -> Ordering)
-> (SleepResponse -> SleepResponse -> Bool)
-> (SleepResponse -> SleepResponse -> Bool)
-> (SleepResponse -> SleepResponse -> Bool)
-> (SleepResponse -> SleepResponse -> Bool)
-> (SleepResponse -> SleepResponse -> SleepResponse)
-> (SleepResponse -> SleepResponse -> SleepResponse)
-> Ord SleepResponse
SleepResponse -> SleepResponse -> Bool
SleepResponse -> SleepResponse -> Ordering
SleepResponse -> SleepResponse -> SleepResponse
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 :: SleepResponse -> SleepResponse -> Ordering
compare :: SleepResponse -> SleepResponse -> Ordering
$c< :: SleepResponse -> SleepResponse -> Bool
< :: SleepResponse -> SleepResponse -> Bool
$c<= :: SleepResponse -> SleepResponse -> Bool
<= :: SleepResponse -> SleepResponse -> Bool
$c> :: SleepResponse -> SleepResponse -> Bool
> :: SleepResponse -> SleepResponse -> Bool
$c>= :: SleepResponse -> SleepResponse -> Bool
>= :: SleepResponse -> SleepResponse -> Bool
$cmax :: SleepResponse -> SleepResponse -> SleepResponse
max :: SleepResponse -> SleepResponse -> SleepResponse
$cmin :: SleepResponse -> SleepResponse -> SleepResponse
min :: SleepResponse -> SleepResponse -> SleepResponse
Prelude.Ord)
instance Prelude.Show SleepResponse where
  showsPrec :: Int -> SleepResponse -> ShowS
showsPrec Int
_ SleepResponse
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (SleepResponse -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort SleepResponse
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Message SleepResponse where
  messageName :: Proxy SleepResponse -> Text
messageName Proxy SleepResponse
_
    = String -> Text
Data.Text.pack String
"temporal.api.testservice.v1.SleepResponse"
  packedMessageDescriptor :: Proxy SleepResponse -> ByteString
packedMessageDescriptor Proxy SleepResponse
_
    = ByteString
"\n\
      \\rSleepResponse"
  packedFileDescriptor :: Proxy SleepResponse -> ByteString
packedFileDescriptor Proxy SleepResponse
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor SleepResponse)
fieldsByTag = let in [(Tag, FieldDescriptor SleepResponse)]
-> Map Tag (FieldDescriptor SleepResponse)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList []
  unknownFields :: Lens' SleepResponse FieldSet
unknownFields
    = (SleepResponse -> FieldSet)
-> (SleepResponse -> FieldSet -> SleepResponse)
-> Lens' SleepResponse FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        SleepResponse -> FieldSet
_SleepResponse'_unknownFields
        (\ SleepResponse
x__ FieldSet
y__ -> SleepResponse
x__ {_SleepResponse'_unknownFields = y__})
  defMessage :: SleepResponse
defMessage
    = SleepResponse'_constructor {_SleepResponse'_unknownFields :: FieldSet
_SleepResponse'_unknownFields = []}
  parseMessage :: Parser SleepResponse
parseMessage
    = let
        loop ::
          SleepResponse -> Data.ProtoLens.Encoding.Bytes.Parser SleepResponse
        loop :: SleepResponse -> Parser SleepResponse
loop SleepResponse
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
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 SleepResponse -> String -> Parser SleepResponse
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do SleepResponse -> Parser SleepResponse
loop SleepResponse
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"SleepResponse"
  buildMessage :: SleepResponse -> Builder
buildMessage
    = \ SleepResponse
_x
        -> FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
             (FoldLike FieldSet SleepResponse SleepResponse FieldSet FieldSet
-> SleepResponse -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet SleepResponse SleepResponse FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' SleepResponse FieldSet
Data.ProtoLens.unknownFields SleepResponse
_x)
instance Control.DeepSeq.NFData SleepResponse where
  rnf :: SleepResponse -> ()
rnf
    = \ SleepResponse
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (SleepResponse -> FieldSet
_SleepResponse'_unknownFields SleepResponse
x__) ()
{- | Fields :
     
         * 'Proto.Temporal.Api.Testservice.V1.RequestResponse_Fields.timestamp' @:: Lens' SleepUntilRequest Proto.Google.Protobuf.Timestamp.Timestamp@
         * 'Proto.Temporal.Api.Testservice.V1.RequestResponse_Fields.maybe'timestamp' @:: Lens' SleepUntilRequest (Prelude.Maybe Proto.Google.Protobuf.Timestamp.Timestamp)@ -}
data SleepUntilRequest
  = SleepUntilRequest'_constructor {SleepUntilRequest -> Maybe Timestamp
_SleepUntilRequest'timestamp :: !(Prelude.Maybe Proto.Google.Protobuf.Timestamp.Timestamp),
                                    SleepUntilRequest -> FieldSet
_SleepUntilRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (SleepUntilRequest -> SleepUntilRequest -> Bool
(SleepUntilRequest -> SleepUntilRequest -> Bool)
-> (SleepUntilRequest -> SleepUntilRequest -> Bool)
-> Eq SleepUntilRequest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: SleepUntilRequest -> SleepUntilRequest -> Bool
== :: SleepUntilRequest -> SleepUntilRequest -> Bool
$c/= :: SleepUntilRequest -> SleepUntilRequest -> Bool
/= :: SleepUntilRequest -> SleepUntilRequest -> Bool
Prelude.Eq, Eq SleepUntilRequest
Eq SleepUntilRequest =>
(SleepUntilRequest -> SleepUntilRequest -> Ordering)
-> (SleepUntilRequest -> SleepUntilRequest -> Bool)
-> (SleepUntilRequest -> SleepUntilRequest -> Bool)
-> (SleepUntilRequest -> SleepUntilRequest -> Bool)
-> (SleepUntilRequest -> SleepUntilRequest -> Bool)
-> (SleepUntilRequest -> SleepUntilRequest -> SleepUntilRequest)
-> (SleepUntilRequest -> SleepUntilRequest -> SleepUntilRequest)
-> Ord SleepUntilRequest
SleepUntilRequest -> SleepUntilRequest -> Bool
SleepUntilRequest -> SleepUntilRequest -> Ordering
SleepUntilRequest -> SleepUntilRequest -> SleepUntilRequest
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 :: SleepUntilRequest -> SleepUntilRequest -> Ordering
compare :: SleepUntilRequest -> SleepUntilRequest -> Ordering
$c< :: SleepUntilRequest -> SleepUntilRequest -> Bool
< :: SleepUntilRequest -> SleepUntilRequest -> Bool
$c<= :: SleepUntilRequest -> SleepUntilRequest -> Bool
<= :: SleepUntilRequest -> SleepUntilRequest -> Bool
$c> :: SleepUntilRequest -> SleepUntilRequest -> Bool
> :: SleepUntilRequest -> SleepUntilRequest -> Bool
$c>= :: SleepUntilRequest -> SleepUntilRequest -> Bool
>= :: SleepUntilRequest -> SleepUntilRequest -> Bool
$cmax :: SleepUntilRequest -> SleepUntilRequest -> SleepUntilRequest
max :: SleepUntilRequest -> SleepUntilRequest -> SleepUntilRequest
$cmin :: SleepUntilRequest -> SleepUntilRequest -> SleepUntilRequest
min :: SleepUntilRequest -> SleepUntilRequest -> SleepUntilRequest
Prelude.Ord)
instance Prelude.Show SleepUntilRequest where
  showsPrec :: Int -> SleepUntilRequest -> ShowS
showsPrec Int
_ SleepUntilRequest
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (SleepUntilRequest -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort SleepUntilRequest
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField SleepUntilRequest "timestamp" Proto.Google.Protobuf.Timestamp.Timestamp where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "timestamp"
-> (Timestamp -> f Timestamp)
-> SleepUntilRequest
-> f SleepUntilRequest
fieldOf Proxy# "timestamp"
_
    = ((Maybe Timestamp -> f (Maybe Timestamp))
 -> SleepUntilRequest -> f SleepUntilRequest)
-> ((Timestamp -> f Timestamp)
    -> Maybe Timestamp -> f (Maybe Timestamp))
-> (Timestamp -> f Timestamp)
-> SleepUntilRequest
-> f SleepUntilRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((SleepUntilRequest -> Maybe Timestamp)
-> (SleepUntilRequest -> Maybe Timestamp -> SleepUntilRequest)
-> Lens
     SleepUntilRequest
     SleepUntilRequest
     (Maybe Timestamp)
     (Maybe Timestamp)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           SleepUntilRequest -> Maybe Timestamp
_SleepUntilRequest'timestamp
           (\ SleepUntilRequest
x__ Maybe Timestamp
y__ -> SleepUntilRequest
x__ {_SleepUntilRequest'timestamp = 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 SleepUntilRequest "maybe'timestamp" (Prelude.Maybe Proto.Google.Protobuf.Timestamp.Timestamp) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'timestamp"
-> (Maybe Timestamp -> f (Maybe Timestamp))
-> SleepUntilRequest
-> f SleepUntilRequest
fieldOf Proxy# "maybe'timestamp"
_
    = ((Maybe Timestamp -> f (Maybe Timestamp))
 -> SleepUntilRequest -> f SleepUntilRequest)
-> ((Maybe Timestamp -> f (Maybe Timestamp))
    -> Maybe Timestamp -> f (Maybe Timestamp))
-> (Maybe Timestamp -> f (Maybe Timestamp))
-> SleepUntilRequest
-> f SleepUntilRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((SleepUntilRequest -> Maybe Timestamp)
-> (SleepUntilRequest -> Maybe Timestamp -> SleepUntilRequest)
-> Lens
     SleepUntilRequest
     SleepUntilRequest
     (Maybe Timestamp)
     (Maybe Timestamp)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           SleepUntilRequest -> Maybe Timestamp
_SleepUntilRequest'timestamp
           (\ SleepUntilRequest
x__ Maybe Timestamp
y__ -> SleepUntilRequest
x__ {_SleepUntilRequest'timestamp = y__}))
        (Maybe Timestamp -> f (Maybe Timestamp))
-> Maybe Timestamp -> f (Maybe Timestamp)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message SleepUntilRequest where
  messageName :: Proxy SleepUntilRequest -> Text
messageName Proxy SleepUntilRequest
_
    = String -> Text
Data.Text.pack String
"temporal.api.testservice.v1.SleepUntilRequest"
  packedMessageDescriptor :: Proxy SleepUntilRequest -> ByteString
packedMessageDescriptor Proxy SleepUntilRequest
_
    = ByteString
"\n\
      \\DC1SleepUntilRequest\DC28\n\
      \\ttimestamp\CAN\SOH \SOH(\v2\SUB.google.protobuf.TimestampR\ttimestamp"
  packedFileDescriptor :: Proxy SleepUntilRequest -> ByteString
packedFileDescriptor Proxy SleepUntilRequest
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor SleepUntilRequest)
fieldsByTag
    = let
        timestamp__field_descriptor :: FieldDescriptor SleepUntilRequest
timestamp__field_descriptor
          = String
-> FieldTypeDescriptor Timestamp
-> FieldAccessor SleepUntilRequest Timestamp
-> FieldDescriptor SleepUntilRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"timestamp"
              (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
  SleepUntilRequest
  SleepUntilRequest
  (Maybe Timestamp)
  (Maybe Timestamp)
-> FieldAccessor SleepUntilRequest 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'timestamp")) ::
              Data.ProtoLens.FieldDescriptor SleepUntilRequest
      in
        [(Tag, FieldDescriptor SleepUntilRequest)]
-> Map Tag (FieldDescriptor SleepUntilRequest)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor SleepUntilRequest
timestamp__field_descriptor)]
  unknownFields :: Lens' SleepUntilRequest FieldSet
unknownFields
    = (SleepUntilRequest -> FieldSet)
-> (SleepUntilRequest -> FieldSet -> SleepUntilRequest)
-> Lens' SleepUntilRequest FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        SleepUntilRequest -> FieldSet
_SleepUntilRequest'_unknownFields
        (\ SleepUntilRequest
x__ FieldSet
y__ -> SleepUntilRequest
x__ {_SleepUntilRequest'_unknownFields = y__})
  defMessage :: SleepUntilRequest
defMessage
    = SleepUntilRequest'_constructor
        {_SleepUntilRequest'timestamp :: Maybe Timestamp
_SleepUntilRequest'timestamp = Maybe Timestamp
forall a. Maybe a
Prelude.Nothing,
         _SleepUntilRequest'_unknownFields :: FieldSet
_SleepUntilRequest'_unknownFields = []}
  parseMessage :: Parser SleepUntilRequest
parseMessage
    = let
        loop ::
          SleepUntilRequest
          -> Data.ProtoLens.Encoding.Bytes.Parser SleepUntilRequest
        loop :: SleepUntilRequest -> Parser SleepUntilRequest
loop SleepUntilRequest
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
"timestamp"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"timestamp") 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 SleepUntilRequest -> String -> Parser SleepUntilRequest
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do SleepUntilRequest -> Parser SleepUntilRequest
loop SleepUntilRequest
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"SleepUntilRequest"
  buildMessage :: SleepUntilRequest -> Builder
buildMessage
    = \ SleepUntilRequest
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe Timestamp)
  SleepUntilRequest
  SleepUntilRequest
  (Maybe Timestamp)
  (Maybe Timestamp)
-> SleepUntilRequest -> 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'timestamp") SleepUntilRequest
_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))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike
  FieldSet SleepUntilRequest SleepUntilRequest FieldSet FieldSet
-> SleepUntilRequest -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet SleepUntilRequest SleepUntilRequest FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' SleepUntilRequest FieldSet
Data.ProtoLens.unknownFields SleepUntilRequest
_x))
instance Control.DeepSeq.NFData SleepUntilRequest where
  rnf :: SleepUntilRequest -> ()
rnf
    = \ SleepUntilRequest
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (SleepUntilRequest -> FieldSet
_SleepUntilRequest'_unknownFields SleepUntilRequest
x__)
             (Maybe Timestamp -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (SleepUntilRequest -> Maybe Timestamp
_SleepUntilRequest'timestamp SleepUntilRequest
x__) ())
{- | Fields :
      -}
data UnlockTimeSkippingRequest
  = UnlockTimeSkippingRequest'_constructor {UnlockTimeSkippingRequest -> FieldSet
_UnlockTimeSkippingRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (UnlockTimeSkippingRequest -> UnlockTimeSkippingRequest -> Bool
(UnlockTimeSkippingRequest -> UnlockTimeSkippingRequest -> Bool)
-> (UnlockTimeSkippingRequest -> UnlockTimeSkippingRequest -> Bool)
-> Eq UnlockTimeSkippingRequest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: UnlockTimeSkippingRequest -> UnlockTimeSkippingRequest -> Bool
== :: UnlockTimeSkippingRequest -> UnlockTimeSkippingRequest -> Bool
$c/= :: UnlockTimeSkippingRequest -> UnlockTimeSkippingRequest -> Bool
/= :: UnlockTimeSkippingRequest -> UnlockTimeSkippingRequest -> Bool
Prelude.Eq, Eq UnlockTimeSkippingRequest
Eq UnlockTimeSkippingRequest =>
(UnlockTimeSkippingRequest
 -> UnlockTimeSkippingRequest -> Ordering)
-> (UnlockTimeSkippingRequest -> UnlockTimeSkippingRequest -> Bool)
-> (UnlockTimeSkippingRequest -> UnlockTimeSkippingRequest -> Bool)
-> (UnlockTimeSkippingRequest -> UnlockTimeSkippingRequest -> Bool)
-> (UnlockTimeSkippingRequest -> UnlockTimeSkippingRequest -> Bool)
-> (UnlockTimeSkippingRequest
    -> UnlockTimeSkippingRequest -> UnlockTimeSkippingRequest)
-> (UnlockTimeSkippingRequest
    -> UnlockTimeSkippingRequest -> UnlockTimeSkippingRequest)
-> Ord UnlockTimeSkippingRequest
UnlockTimeSkippingRequest -> UnlockTimeSkippingRequest -> Bool
UnlockTimeSkippingRequest -> UnlockTimeSkippingRequest -> Ordering
UnlockTimeSkippingRequest
-> UnlockTimeSkippingRequest -> UnlockTimeSkippingRequest
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 :: UnlockTimeSkippingRequest -> UnlockTimeSkippingRequest -> Ordering
compare :: UnlockTimeSkippingRequest -> UnlockTimeSkippingRequest -> Ordering
$c< :: UnlockTimeSkippingRequest -> UnlockTimeSkippingRequest -> Bool
< :: UnlockTimeSkippingRequest -> UnlockTimeSkippingRequest -> Bool
$c<= :: UnlockTimeSkippingRequest -> UnlockTimeSkippingRequest -> Bool
<= :: UnlockTimeSkippingRequest -> UnlockTimeSkippingRequest -> Bool
$c> :: UnlockTimeSkippingRequest -> UnlockTimeSkippingRequest -> Bool
> :: UnlockTimeSkippingRequest -> UnlockTimeSkippingRequest -> Bool
$c>= :: UnlockTimeSkippingRequest -> UnlockTimeSkippingRequest -> Bool
>= :: UnlockTimeSkippingRequest -> UnlockTimeSkippingRequest -> Bool
$cmax :: UnlockTimeSkippingRequest
-> UnlockTimeSkippingRequest -> UnlockTimeSkippingRequest
max :: UnlockTimeSkippingRequest
-> UnlockTimeSkippingRequest -> UnlockTimeSkippingRequest
$cmin :: UnlockTimeSkippingRequest
-> UnlockTimeSkippingRequest -> UnlockTimeSkippingRequest
min :: UnlockTimeSkippingRequest
-> UnlockTimeSkippingRequest -> UnlockTimeSkippingRequest
Prelude.Ord)
instance Prelude.Show UnlockTimeSkippingRequest where
  showsPrec :: Int -> UnlockTimeSkippingRequest -> ShowS
showsPrec Int
_ UnlockTimeSkippingRequest
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (UnlockTimeSkippingRequest -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort UnlockTimeSkippingRequest
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Message UnlockTimeSkippingRequest where
  messageName :: Proxy UnlockTimeSkippingRequest -> Text
messageName Proxy UnlockTimeSkippingRequest
_
    = String -> Text
Data.Text.pack
        String
"temporal.api.testservice.v1.UnlockTimeSkippingRequest"
  packedMessageDescriptor :: Proxy UnlockTimeSkippingRequest -> ByteString
packedMessageDescriptor Proxy UnlockTimeSkippingRequest
_
    = ByteString
"\n\
      \\EMUnlockTimeSkippingRequest"
  packedFileDescriptor :: Proxy UnlockTimeSkippingRequest -> ByteString
packedFileDescriptor Proxy UnlockTimeSkippingRequest
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor UnlockTimeSkippingRequest)
fieldsByTag = let in [(Tag, FieldDescriptor UnlockTimeSkippingRequest)]
-> Map Tag (FieldDescriptor UnlockTimeSkippingRequest)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList []
  unknownFields :: Lens' UnlockTimeSkippingRequest FieldSet
unknownFields
    = (UnlockTimeSkippingRequest -> FieldSet)
-> (UnlockTimeSkippingRequest
    -> FieldSet -> UnlockTimeSkippingRequest)
-> Lens' UnlockTimeSkippingRequest FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        UnlockTimeSkippingRequest -> FieldSet
_UnlockTimeSkippingRequest'_unknownFields
        (\ UnlockTimeSkippingRequest
x__ FieldSet
y__
           -> UnlockTimeSkippingRequest
x__ {_UnlockTimeSkippingRequest'_unknownFields = y__})
  defMessage :: UnlockTimeSkippingRequest
defMessage
    = UnlockTimeSkippingRequest'_constructor
        {_UnlockTimeSkippingRequest'_unknownFields :: FieldSet
_UnlockTimeSkippingRequest'_unknownFields = []}
  parseMessage :: Parser UnlockTimeSkippingRequest
parseMessage
    = let
        loop ::
          UnlockTimeSkippingRequest
          -> Data.ProtoLens.Encoding.Bytes.Parser UnlockTimeSkippingRequest
        loop :: UnlockTimeSkippingRequest -> Parser UnlockTimeSkippingRequest
loop UnlockTimeSkippingRequest
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
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 UnlockTimeSkippingRequest
-> String -> Parser UnlockTimeSkippingRequest
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do UnlockTimeSkippingRequest -> Parser UnlockTimeSkippingRequest
loop UnlockTimeSkippingRequest
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"UnlockTimeSkippingRequest"
  buildMessage :: UnlockTimeSkippingRequest -> Builder
buildMessage
    = \ UnlockTimeSkippingRequest
_x
        -> FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
             (FoldLike
  FieldSet
  UnlockTimeSkippingRequest
  UnlockTimeSkippingRequest
  FieldSet
  FieldSet
-> UnlockTimeSkippingRequest -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  UnlockTimeSkippingRequest
  UnlockTimeSkippingRequest
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' UnlockTimeSkippingRequest FieldSet
Data.ProtoLens.unknownFields UnlockTimeSkippingRequest
_x)
instance Control.DeepSeq.NFData UnlockTimeSkippingRequest where
  rnf :: UnlockTimeSkippingRequest -> ()
rnf
    = \ UnlockTimeSkippingRequest
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (UnlockTimeSkippingRequest -> FieldSet
_UnlockTimeSkippingRequest'_unknownFields UnlockTimeSkippingRequest
x__) ()
{- | Fields :
      -}
data UnlockTimeSkippingResponse
  = UnlockTimeSkippingResponse'_constructor {UnlockTimeSkippingResponse -> FieldSet
_UnlockTimeSkippingResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (UnlockTimeSkippingResponse -> UnlockTimeSkippingResponse -> Bool
(UnlockTimeSkippingResponse -> UnlockTimeSkippingResponse -> Bool)
-> (UnlockTimeSkippingResponse
    -> UnlockTimeSkippingResponse -> Bool)
-> Eq UnlockTimeSkippingResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: UnlockTimeSkippingResponse -> UnlockTimeSkippingResponse -> Bool
== :: UnlockTimeSkippingResponse -> UnlockTimeSkippingResponse -> Bool
$c/= :: UnlockTimeSkippingResponse -> UnlockTimeSkippingResponse -> Bool
/= :: UnlockTimeSkippingResponse -> UnlockTimeSkippingResponse -> Bool
Prelude.Eq, Eq UnlockTimeSkippingResponse
Eq UnlockTimeSkippingResponse =>
(UnlockTimeSkippingResponse
 -> UnlockTimeSkippingResponse -> Ordering)
-> (UnlockTimeSkippingResponse
    -> UnlockTimeSkippingResponse -> Bool)
-> (UnlockTimeSkippingResponse
    -> UnlockTimeSkippingResponse -> Bool)
-> (UnlockTimeSkippingResponse
    -> UnlockTimeSkippingResponse -> Bool)
-> (UnlockTimeSkippingResponse
    -> UnlockTimeSkippingResponse -> Bool)
-> (UnlockTimeSkippingResponse
    -> UnlockTimeSkippingResponse -> UnlockTimeSkippingResponse)
-> (UnlockTimeSkippingResponse
    -> UnlockTimeSkippingResponse -> UnlockTimeSkippingResponse)
-> Ord UnlockTimeSkippingResponse
UnlockTimeSkippingResponse -> UnlockTimeSkippingResponse -> Bool
UnlockTimeSkippingResponse
-> UnlockTimeSkippingResponse -> Ordering
UnlockTimeSkippingResponse
-> UnlockTimeSkippingResponse -> UnlockTimeSkippingResponse
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 :: UnlockTimeSkippingResponse
-> UnlockTimeSkippingResponse -> Ordering
compare :: UnlockTimeSkippingResponse
-> UnlockTimeSkippingResponse -> Ordering
$c< :: UnlockTimeSkippingResponse -> UnlockTimeSkippingResponse -> Bool
< :: UnlockTimeSkippingResponse -> UnlockTimeSkippingResponse -> Bool
$c<= :: UnlockTimeSkippingResponse -> UnlockTimeSkippingResponse -> Bool
<= :: UnlockTimeSkippingResponse -> UnlockTimeSkippingResponse -> Bool
$c> :: UnlockTimeSkippingResponse -> UnlockTimeSkippingResponse -> Bool
> :: UnlockTimeSkippingResponse -> UnlockTimeSkippingResponse -> Bool
$c>= :: UnlockTimeSkippingResponse -> UnlockTimeSkippingResponse -> Bool
>= :: UnlockTimeSkippingResponse -> UnlockTimeSkippingResponse -> Bool
$cmax :: UnlockTimeSkippingResponse
-> UnlockTimeSkippingResponse -> UnlockTimeSkippingResponse
max :: UnlockTimeSkippingResponse
-> UnlockTimeSkippingResponse -> UnlockTimeSkippingResponse
$cmin :: UnlockTimeSkippingResponse
-> UnlockTimeSkippingResponse -> UnlockTimeSkippingResponse
min :: UnlockTimeSkippingResponse
-> UnlockTimeSkippingResponse -> UnlockTimeSkippingResponse
Prelude.Ord)
instance Prelude.Show UnlockTimeSkippingResponse where
  showsPrec :: Int -> UnlockTimeSkippingResponse -> ShowS
showsPrec Int
_ UnlockTimeSkippingResponse
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (UnlockTimeSkippingResponse -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort UnlockTimeSkippingResponse
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Message UnlockTimeSkippingResponse where
  messageName :: Proxy UnlockTimeSkippingResponse -> Text
messageName Proxy UnlockTimeSkippingResponse
_
    = String -> Text
Data.Text.pack
        String
"temporal.api.testservice.v1.UnlockTimeSkippingResponse"
  packedMessageDescriptor :: Proxy UnlockTimeSkippingResponse -> ByteString
packedMessageDescriptor Proxy UnlockTimeSkippingResponse
_
    = ByteString
"\n\
      \\SUBUnlockTimeSkippingResponse"
  packedFileDescriptor :: Proxy UnlockTimeSkippingResponse -> ByteString
packedFileDescriptor Proxy UnlockTimeSkippingResponse
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor UnlockTimeSkippingResponse)
fieldsByTag = let in [(Tag, FieldDescriptor UnlockTimeSkippingResponse)]
-> Map Tag (FieldDescriptor UnlockTimeSkippingResponse)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList []
  unknownFields :: Lens' UnlockTimeSkippingResponse FieldSet
unknownFields
    = (UnlockTimeSkippingResponse -> FieldSet)
-> (UnlockTimeSkippingResponse
    -> FieldSet -> UnlockTimeSkippingResponse)
-> Lens' UnlockTimeSkippingResponse FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        UnlockTimeSkippingResponse -> FieldSet
_UnlockTimeSkippingResponse'_unknownFields
        (\ UnlockTimeSkippingResponse
x__ FieldSet
y__
           -> UnlockTimeSkippingResponse
x__ {_UnlockTimeSkippingResponse'_unknownFields = y__})
  defMessage :: UnlockTimeSkippingResponse
defMessage
    = UnlockTimeSkippingResponse'_constructor
        {_UnlockTimeSkippingResponse'_unknownFields :: FieldSet
_UnlockTimeSkippingResponse'_unknownFields = []}
  parseMessage :: Parser UnlockTimeSkippingResponse
parseMessage
    = let
        loop ::
          UnlockTimeSkippingResponse
          -> Data.ProtoLens.Encoding.Bytes.Parser UnlockTimeSkippingResponse
        loop :: UnlockTimeSkippingResponse -> Parser UnlockTimeSkippingResponse
loop UnlockTimeSkippingResponse
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
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 UnlockTimeSkippingResponse
-> String -> Parser UnlockTimeSkippingResponse
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do UnlockTimeSkippingResponse -> Parser UnlockTimeSkippingResponse
loop UnlockTimeSkippingResponse
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"UnlockTimeSkippingResponse"
  buildMessage :: UnlockTimeSkippingResponse -> Builder
buildMessage
    = \ UnlockTimeSkippingResponse
_x
        -> FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
             (FoldLike
  FieldSet
  UnlockTimeSkippingResponse
  UnlockTimeSkippingResponse
  FieldSet
  FieldSet
-> UnlockTimeSkippingResponse -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  UnlockTimeSkippingResponse
  UnlockTimeSkippingResponse
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' UnlockTimeSkippingResponse FieldSet
Data.ProtoLens.unknownFields UnlockTimeSkippingResponse
_x)
instance Control.DeepSeq.NFData UnlockTimeSkippingResponse where
  rnf :: UnlockTimeSkippingResponse -> ()
rnf
    = \ UnlockTimeSkippingResponse
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (UnlockTimeSkippingResponse -> FieldSet
_UnlockTimeSkippingResponse'_unknownFields UnlockTimeSkippingResponse
x__) ()
packedFileDescriptor :: Data.ByteString.ByteString
packedFileDescriptor :: ByteString
packedFileDescriptor
  = ByteString
"\n\
    \2temporal/api/testservice/v1/request_response.proto\DC2\ESCtemporal.api.testservice.v1\SUB\RSgoogle/protobuf/duration.proto\SUB\USgoogle/protobuf/timestamp.proto\"\EM\n\
    \\ETBLockTimeSkippingRequest\"\SUB\n\
    \\CANLockTimeSkippingResponse\"\ESC\n\
    \\EMUnlockTimeSkippingRequest\"\FS\n\
    \\SUBUnlockTimeSkippingResponse\"M\n\
    \\DC1SleepUntilRequest\DC28\n\
    \\ttimestamp\CAN\SOH \SOH(\v2\SUB.google.protobuf.TimestampR\ttimestamp\"E\n\
    \\fSleepRequest\DC25\n\
    \\bduration\CAN\SOH \SOH(\v2\EM.google.protobuf.DurationR\bduration\"\SI\n\
    \\rSleepResponse\"H\n\
    \\SYNGetCurrentTimeResponse\DC2.\n\
    \\EOTtime\CAN\SOH \SOH(\v2\SUB.google.protobuf.TimestampR\EOTtimeB\170\SOH\n\
    \\RSio.temporal.api.testservice.v1B\DC4RequestResponseProtoP\SOHZ-go.temporal.io/api/testservice/v1;testservice\170\STX\GSTemporalio.Api.TestService.V1\234\STX Temporalio::Api::TestService::V1J\255\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$\n\
    \\b\n\
    \\SOH\b\DC2\ETX\SUB\NULD\n\
    \\t\n\
    \\STX\b\v\DC2\ETX\SUB\NULD\n\
    \\b\n\
    \\SOH\b\DC2\ETX\ESC\NUL7\n\
    \\t\n\
    \\STX\b\SOH\DC2\ETX\ESC\NUL7\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\NUL5\n\
    \\t\n\
    \\STX\b\b\DC2\ETX\GS\NUL5\n\
    \\b\n\
    \\SOH\b\DC2\ETX\RS\NUL9\n\
    \\t\n\
    \\STX\b-\DC2\ETX\RS\NUL9\n\
    \\b\n\
    \\SOH\b\DC2\ETX\US\NUL:\n\
    \\t\n\
    \\STX\b%\DC2\ETX\US\NUL:\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\
    \\n\
    \\n\
    \\STX\EOT\SOH\DC2\EOT'\NUL(\SOH\n\
    \\n\
    \\n\
    \\ETX\EOT\SOH\SOH\DC2\ETX'\b \n\
    \\n\
    \\n\
    \\STX\EOT\STX\DC2\EOT*\NUL+\SOH\n\
    \\n\
    \\n\
    \\ETX\EOT\STX\SOH\DC2\ETX*\b!\n\
    \\n\
    \\n\
    \\STX\EOT\ETX\DC2\EOT-\NUL.\SOH\n\
    \\n\
    \\n\
    \\ETX\EOT\ETX\SOH\DC2\ETX-\b\"\n\
    \\n\
    \\n\
    \\STX\EOT\EOT\DC2\EOT0\NUL2\SOH\n\
    \\n\
    \\n\
    \\ETX\EOT\EOT\SOH\DC2\ETX0\b\EM\n\
    \\v\n\
    \\EOT\EOT\EOT\STX\NUL\DC2\ETX1\EOT,\n\
    \\f\n\
    \\ENQ\EOT\EOT\STX\NUL\ACK\DC2\ETX1\EOT\GS\n\
    \\f\n\
    \\ENQ\EOT\EOT\STX\NUL\SOH\DC2\ETX1\RS'\n\
    \\f\n\
    \\ENQ\EOT\EOT\STX\NUL\ETX\DC2\ETX1*+\n\
    \\n\
    \\n\
    \\STX\EOT\ENQ\DC2\EOT4\NUL6\SOH\n\
    \\n\
    \\n\
    \\ETX\EOT\ENQ\SOH\DC2\ETX4\b\DC4\n\
    \\v\n\
    \\EOT\EOT\ENQ\STX\NUL\DC2\ETX5\EOT*\n\
    \\f\n\
    \\ENQ\EOT\ENQ\STX\NUL\ACK\DC2\ETX5\EOT\FS\n\
    \\f\n\
    \\ENQ\EOT\ENQ\STX\NUL\SOH\DC2\ETX5\GS%\n\
    \\f\n\
    \\ENQ\EOT\ENQ\STX\NUL\ETX\DC2\ETX5()\n\
    \\n\
    \\n\
    \\STX\EOT\ACK\DC2\EOT8\NUL9\SOH\n\
    \\n\
    \\n\
    \\ETX\EOT\ACK\SOH\DC2\ETX8\b\NAK\n\
    \\n\
    \\n\
    \\STX\EOT\a\DC2\EOT;\NUL=\SOH\n\
    \\n\
    \\n\
    \\ETX\EOT\a\SOH\DC2\ETX;\b\RS\n\
    \\v\n\
    \\EOT\EOT\a\STX\NUL\DC2\ETX<\EOT'\n\
    \\f\n\
    \\ENQ\EOT\a\STX\NUL\ACK\DC2\ETX<\EOT\GS\n\
    \\f\n\
    \\ENQ\EOT\a\STX\NUL\SOH\DC2\ETX<\RS\"\n\
    \\f\n\
    \\ENQ\EOT\a\STX\NUL\ETX\DC2\ETX<%&b\ACKproto3"