temporal-api-protos-2025.10.1.0: src/Proto/Temporal/Api/Version/V1/Message.hs
{- This file was auto-generated from temporal/api/version/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.Version.V1.Message (
Alert(), ReleaseInfo(), VersionInfo()
) where
import qualified Data.ProtoLens.Runtime.Control.DeepSeq as Control.DeepSeq
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Prism as Data.ProtoLens.Prism
import qualified Data.ProtoLens.Runtime.Prelude as Prelude
import qualified Data.ProtoLens.Runtime.Data.Int as Data.Int
import qualified Data.ProtoLens.Runtime.Data.Monoid as Data.Monoid
import qualified Data.ProtoLens.Runtime.Data.Word as Data.Word
import qualified Data.ProtoLens.Runtime.Data.ProtoLens as Data.ProtoLens
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Bytes as Data.ProtoLens.Encoding.Bytes
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Growing as Data.ProtoLens.Encoding.Growing
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Parser.Unsafe as Data.ProtoLens.Encoding.Parser.Unsafe
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Wire as Data.ProtoLens.Encoding.Wire
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Field as Data.ProtoLens.Field
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Message.Enum as Data.ProtoLens.Message.Enum
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Service.Types as Data.ProtoLens.Service.Types
import qualified Data.ProtoLens.Runtime.Lens.Family2 as Lens.Family2
import qualified Data.ProtoLens.Runtime.Lens.Family2.Unchecked as Lens.Family2.Unchecked
import qualified Data.ProtoLens.Runtime.Data.Text as Data.Text
import qualified Data.ProtoLens.Runtime.Data.Map as Data.Map
import qualified Data.ProtoLens.Runtime.Data.ByteString as Data.ByteString
import qualified Data.ProtoLens.Runtime.Data.ByteString.Char8 as Data.ByteString.Char8
import qualified Data.ProtoLens.Runtime.Data.Text.Encoding as Data.Text.Encoding
import qualified Data.ProtoLens.Runtime.Data.Vector as Data.Vector
import qualified Data.ProtoLens.Runtime.Data.Vector.Generic as Data.Vector.Generic
import qualified Data.ProtoLens.Runtime.Data.Vector.Unboxed as Data.Vector.Unboxed
import qualified Data.ProtoLens.Runtime.Text.Read as Text.Read
import qualified Proto.Google.Protobuf.Timestamp
import qualified Proto.Temporal.Api.Enums.V1.Common
{- | Fields :
* 'Proto.Temporal.Api.Version.V1.Message_Fields.message' @:: Lens' Alert Data.Text.Text@
* 'Proto.Temporal.Api.Version.V1.Message_Fields.severity' @:: Lens' Alert Proto.Temporal.Api.Enums.V1.Common.Severity@ -}
data Alert
= Alert'_constructor {_Alert'message :: !Data.Text.Text,
_Alert'severity :: !Proto.Temporal.Api.Enums.V1.Common.Severity,
_Alert'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord)
instance Prelude.Show Alert where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Data.ProtoLens.Field.HasField Alert "message" Data.Text.Text where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_Alert'message (\ x__ y__ -> x__ {_Alert'message = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField Alert "severity" Proto.Temporal.Api.Enums.V1.Common.Severity where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_Alert'severity (\ x__ y__ -> x__ {_Alert'severity = y__}))
Prelude.id
instance Data.ProtoLens.Message Alert where
messageName _ = Data.Text.pack "temporal.api.version.v1.Alert"
packedMessageDescriptor _
= "\n\
\\ENQAlert\DC2\CAN\n\
\\amessage\CAN\SOH \SOH(\tR\amessage\DC2;\n\
\\bseverity\CAN\STX \SOH(\SO2\US.temporal.api.enums.v1.SeverityR\bseverity"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
message__field_descriptor
= Data.ProtoLens.FieldDescriptor
"message"
(Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"message")) ::
Data.ProtoLens.FieldDescriptor Alert
severity__field_descriptor
= Data.ProtoLens.FieldDescriptor
"severity"
(Data.ProtoLens.ScalarField Data.ProtoLens.EnumField ::
Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Enums.V1.Common.Severity)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"severity")) ::
Data.ProtoLens.FieldDescriptor Alert
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, message__field_descriptor),
(Data.ProtoLens.Tag 2, severity__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_Alert'_unknownFields
(\ x__ y__ -> x__ {_Alert'_unknownFields = y__})
defMessage
= Alert'_constructor
{_Alert'message = Data.ProtoLens.fieldDefault,
_Alert'severity = Data.ProtoLens.fieldDefault,
_Alert'_unknownFields = []}
parseMessage
= let
loop :: Alert -> Data.ProtoLens.Encoding.Bytes.Parser Alert
loop x
= do end <- 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 (\ !t -> Prelude.reverse t) x)
else
do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
case tag of
10
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.getText
(Prelude.fromIntegral len))
"message"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"message") y x)
16
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(Prelude.fmap
Prelude.toEnum
(Prelude.fmap
Prelude.fromIntegral
Data.ProtoLens.Encoding.Bytes.getVarInt))
"severity"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"severity") y x)
wire
-> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
wire
loop
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)
in
(Data.ProtoLens.Encoding.Bytes.<?>)
(do loop Data.ProtoLens.defMessage) "Alert"
buildMessage
= \ _x
-> (Data.Monoid.<>)
(let
_v = Lens.Family2.view (Data.ProtoLens.Field.field @"message") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 10)
((Prelude..)
(\ bs
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt
(Prelude.fromIntegral (Data.ByteString.length bs)))
(Data.ProtoLens.Encoding.Bytes.putBytes bs))
Data.Text.Encoding.encodeUtf8 _v))
((Data.Monoid.<>)
(let
_v = Lens.Family2.view (Data.ProtoLens.Field.field @"severity") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 16)
((Prelude..)
((Prelude..)
Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral)
Prelude.fromEnum _v))
(Data.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x)))
instance Control.DeepSeq.NFData Alert where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_Alert'_unknownFields x__)
(Control.DeepSeq.deepseq
(_Alert'message x__)
(Control.DeepSeq.deepseq (_Alert'severity x__) ()))
{- | Fields :
* 'Proto.Temporal.Api.Version.V1.Message_Fields.version' @:: Lens' ReleaseInfo Data.Text.Text@
* 'Proto.Temporal.Api.Version.V1.Message_Fields.releaseTime' @:: Lens' ReleaseInfo Proto.Google.Protobuf.Timestamp.Timestamp@
* 'Proto.Temporal.Api.Version.V1.Message_Fields.maybe'releaseTime' @:: Lens' ReleaseInfo (Prelude.Maybe Proto.Google.Protobuf.Timestamp.Timestamp)@
* 'Proto.Temporal.Api.Version.V1.Message_Fields.notes' @:: Lens' ReleaseInfo Data.Text.Text@ -}
data ReleaseInfo
= ReleaseInfo'_constructor {_ReleaseInfo'version :: !Data.Text.Text,
_ReleaseInfo'releaseTime :: !(Prelude.Maybe Proto.Google.Protobuf.Timestamp.Timestamp),
_ReleaseInfo'notes :: !Data.Text.Text,
_ReleaseInfo'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord)
instance Prelude.Show ReleaseInfo where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Data.ProtoLens.Field.HasField ReleaseInfo "version" Data.Text.Text where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_ReleaseInfo'version
(\ x__ y__ -> x__ {_ReleaseInfo'version = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField ReleaseInfo "releaseTime" Proto.Google.Protobuf.Timestamp.Timestamp where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_ReleaseInfo'releaseTime
(\ x__ y__ -> x__ {_ReleaseInfo'releaseTime = y__}))
(Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField ReleaseInfo "maybe'releaseTime" (Prelude.Maybe Proto.Google.Protobuf.Timestamp.Timestamp) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_ReleaseInfo'releaseTime
(\ x__ y__ -> x__ {_ReleaseInfo'releaseTime = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField ReleaseInfo "notes" Data.Text.Text where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_ReleaseInfo'notes (\ x__ y__ -> x__ {_ReleaseInfo'notes = y__}))
Prelude.id
instance Data.ProtoLens.Message ReleaseInfo where
messageName _
= Data.Text.pack "temporal.api.version.v1.ReleaseInfo"
packedMessageDescriptor _
= "\n\
\\vReleaseInfo\DC2\CAN\n\
\\aversion\CAN\SOH \SOH(\tR\aversion\DC2=\n\
\\frelease_time\CAN\STX \SOH(\v2\SUB.google.protobuf.TimestampR\vreleaseTime\DC2\DC4\n\
\\ENQnotes\CAN\ETX \SOH(\tR\ENQnotes"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
version__field_descriptor
= Data.ProtoLens.FieldDescriptor
"version"
(Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"version")) ::
Data.ProtoLens.FieldDescriptor ReleaseInfo
releaseTime__field_descriptor
= Data.ProtoLens.FieldDescriptor
"release_time"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Google.Protobuf.Timestamp.Timestamp)
(Data.ProtoLens.OptionalField
(Data.ProtoLens.Field.field @"maybe'releaseTime")) ::
Data.ProtoLens.FieldDescriptor ReleaseInfo
notes__field_descriptor
= Data.ProtoLens.FieldDescriptor
"notes"
(Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"notes")) ::
Data.ProtoLens.FieldDescriptor ReleaseInfo
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, version__field_descriptor),
(Data.ProtoLens.Tag 2, releaseTime__field_descriptor),
(Data.ProtoLens.Tag 3, notes__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_ReleaseInfo'_unknownFields
(\ x__ y__ -> x__ {_ReleaseInfo'_unknownFields = y__})
defMessage
= ReleaseInfo'_constructor
{_ReleaseInfo'version = Data.ProtoLens.fieldDefault,
_ReleaseInfo'releaseTime = Prelude.Nothing,
_ReleaseInfo'notes = Data.ProtoLens.fieldDefault,
_ReleaseInfo'_unknownFields = []}
parseMessage
= let
loop ::
ReleaseInfo -> Data.ProtoLens.Encoding.Bytes.Parser ReleaseInfo
loop x
= do end <- 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 (\ !t -> Prelude.reverse t) x)
else
do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
case tag of
10
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.getText
(Prelude.fromIntegral len))
"version"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"version") y x)
18
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.isolate
(Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
"release_time"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"releaseTime") y x)
26
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.getText
(Prelude.fromIntegral len))
"notes"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"notes") y x)
wire
-> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
wire
loop
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)
in
(Data.ProtoLens.Encoding.Bytes.<?>)
(do loop Data.ProtoLens.defMessage) "ReleaseInfo"
buildMessage
= \ _x
-> (Data.Monoid.<>)
(let
_v = Lens.Family2.view (Data.ProtoLens.Field.field @"version") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 10)
((Prelude..)
(\ bs
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt
(Prelude.fromIntegral (Data.ByteString.length bs)))
(Data.ProtoLens.Encoding.Bytes.putBytes bs))
Data.Text.Encoding.encodeUtf8 _v))
((Data.Monoid.<>)
(case
Lens.Family2.view
(Data.ProtoLens.Field.field @"maybe'releaseTime") _x
of
Prelude.Nothing -> Data.Monoid.mempty
(Prelude.Just _v)
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 18)
((Prelude..)
(\ bs
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt
(Prelude.fromIntegral (Data.ByteString.length bs)))
(Data.ProtoLens.Encoding.Bytes.putBytes bs))
Data.ProtoLens.encodeMessage _v))
((Data.Monoid.<>)
(let
_v = Lens.Family2.view (Data.ProtoLens.Field.field @"notes") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 26)
((Prelude..)
(\ bs
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt
(Prelude.fromIntegral (Data.ByteString.length bs)))
(Data.ProtoLens.Encoding.Bytes.putBytes bs))
Data.Text.Encoding.encodeUtf8 _v))
(Data.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x))))
instance Control.DeepSeq.NFData ReleaseInfo where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_ReleaseInfo'_unknownFields x__)
(Control.DeepSeq.deepseq
(_ReleaseInfo'version x__)
(Control.DeepSeq.deepseq
(_ReleaseInfo'releaseTime x__)
(Control.DeepSeq.deepseq (_ReleaseInfo'notes x__) ())))
{- | Fields :
* 'Proto.Temporal.Api.Version.V1.Message_Fields.current' @:: Lens' VersionInfo ReleaseInfo@
* 'Proto.Temporal.Api.Version.V1.Message_Fields.maybe'current' @:: Lens' VersionInfo (Prelude.Maybe ReleaseInfo)@
* 'Proto.Temporal.Api.Version.V1.Message_Fields.recommended' @:: Lens' VersionInfo ReleaseInfo@
* 'Proto.Temporal.Api.Version.V1.Message_Fields.maybe'recommended' @:: Lens' VersionInfo (Prelude.Maybe ReleaseInfo)@
* 'Proto.Temporal.Api.Version.V1.Message_Fields.instructions' @:: Lens' VersionInfo Data.Text.Text@
* 'Proto.Temporal.Api.Version.V1.Message_Fields.alerts' @:: Lens' VersionInfo [Alert]@
* 'Proto.Temporal.Api.Version.V1.Message_Fields.vec'alerts' @:: Lens' VersionInfo (Data.Vector.Vector Alert)@
* 'Proto.Temporal.Api.Version.V1.Message_Fields.lastUpdateTime' @:: Lens' VersionInfo Proto.Google.Protobuf.Timestamp.Timestamp@
* 'Proto.Temporal.Api.Version.V1.Message_Fields.maybe'lastUpdateTime' @:: Lens' VersionInfo (Prelude.Maybe Proto.Google.Protobuf.Timestamp.Timestamp)@ -}
data VersionInfo
= VersionInfo'_constructor {_VersionInfo'current :: !(Prelude.Maybe ReleaseInfo),
_VersionInfo'recommended :: !(Prelude.Maybe ReleaseInfo),
_VersionInfo'instructions :: !Data.Text.Text,
_VersionInfo'alerts :: !(Data.Vector.Vector Alert),
_VersionInfo'lastUpdateTime :: !(Prelude.Maybe Proto.Google.Protobuf.Timestamp.Timestamp),
_VersionInfo'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord)
instance Prelude.Show VersionInfo where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Data.ProtoLens.Field.HasField VersionInfo "current" ReleaseInfo where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_VersionInfo'current
(\ x__ y__ -> x__ {_VersionInfo'current = y__}))
(Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField VersionInfo "maybe'current" (Prelude.Maybe ReleaseInfo) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_VersionInfo'current
(\ x__ y__ -> x__ {_VersionInfo'current = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField VersionInfo "recommended" ReleaseInfo where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_VersionInfo'recommended
(\ x__ y__ -> x__ {_VersionInfo'recommended = y__}))
(Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField VersionInfo "maybe'recommended" (Prelude.Maybe ReleaseInfo) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_VersionInfo'recommended
(\ x__ y__ -> x__ {_VersionInfo'recommended = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField VersionInfo "instructions" Data.Text.Text where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_VersionInfo'instructions
(\ x__ y__ -> x__ {_VersionInfo'instructions = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField VersionInfo "alerts" [Alert] where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_VersionInfo'alerts (\ x__ y__ -> x__ {_VersionInfo'alerts = y__}))
(Lens.Family2.Unchecked.lens
Data.Vector.Generic.toList
(\ _ y__ -> Data.Vector.Generic.fromList y__))
instance Data.ProtoLens.Field.HasField VersionInfo "vec'alerts" (Data.Vector.Vector Alert) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_VersionInfo'alerts (\ x__ y__ -> x__ {_VersionInfo'alerts = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField VersionInfo "lastUpdateTime" Proto.Google.Protobuf.Timestamp.Timestamp where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_VersionInfo'lastUpdateTime
(\ x__ y__ -> x__ {_VersionInfo'lastUpdateTime = y__}))
(Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField VersionInfo "maybe'lastUpdateTime" (Prelude.Maybe Proto.Google.Protobuf.Timestamp.Timestamp) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_VersionInfo'lastUpdateTime
(\ x__ y__ -> x__ {_VersionInfo'lastUpdateTime = y__}))
Prelude.id
instance Data.ProtoLens.Message VersionInfo where
messageName _
= Data.Text.pack "temporal.api.version.v1.VersionInfo"
packedMessageDescriptor _
= "\n\
\\vVersionInfo\DC2>\n\
\\acurrent\CAN\SOH \SOH(\v2$.temporal.api.version.v1.ReleaseInfoR\acurrent\DC2F\n\
\\vrecommended\CAN\STX \SOH(\v2$.temporal.api.version.v1.ReleaseInfoR\vrecommended\DC2\"\n\
\\finstructions\CAN\ETX \SOH(\tR\finstructions\DC26\n\
\\ACKalerts\CAN\EOT \ETX(\v2\RS.temporal.api.version.v1.AlertR\ACKalerts\DC2D\n\
\\DLElast_update_time\CAN\ENQ \SOH(\v2\SUB.google.protobuf.TimestampR\SOlastUpdateTime"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
current__field_descriptor
= Data.ProtoLens.FieldDescriptor
"current"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor ReleaseInfo)
(Data.ProtoLens.OptionalField
(Data.ProtoLens.Field.field @"maybe'current")) ::
Data.ProtoLens.FieldDescriptor VersionInfo
recommended__field_descriptor
= Data.ProtoLens.FieldDescriptor
"recommended"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor ReleaseInfo)
(Data.ProtoLens.OptionalField
(Data.ProtoLens.Field.field @"maybe'recommended")) ::
Data.ProtoLens.FieldDescriptor VersionInfo
instructions__field_descriptor
= Data.ProtoLens.FieldDescriptor
"instructions"
(Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"instructions")) ::
Data.ProtoLens.FieldDescriptor VersionInfo
alerts__field_descriptor
= Data.ProtoLens.FieldDescriptor
"alerts"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Alert)
(Data.ProtoLens.RepeatedField
Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"alerts")) ::
Data.ProtoLens.FieldDescriptor VersionInfo
lastUpdateTime__field_descriptor
= Data.ProtoLens.FieldDescriptor
"last_update_time"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Google.Protobuf.Timestamp.Timestamp)
(Data.ProtoLens.OptionalField
(Data.ProtoLens.Field.field @"maybe'lastUpdateTime")) ::
Data.ProtoLens.FieldDescriptor VersionInfo
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, current__field_descriptor),
(Data.ProtoLens.Tag 2, recommended__field_descriptor),
(Data.ProtoLens.Tag 3, instructions__field_descriptor),
(Data.ProtoLens.Tag 4, alerts__field_descriptor),
(Data.ProtoLens.Tag 5, lastUpdateTime__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_VersionInfo'_unknownFields
(\ x__ y__ -> x__ {_VersionInfo'_unknownFields = y__})
defMessage
= VersionInfo'_constructor
{_VersionInfo'current = Prelude.Nothing,
_VersionInfo'recommended = Prelude.Nothing,
_VersionInfo'instructions = Data.ProtoLens.fieldDefault,
_VersionInfo'alerts = Data.Vector.Generic.empty,
_VersionInfo'lastUpdateTime = Prelude.Nothing,
_VersionInfo'_unknownFields = []}
parseMessage
= let
loop ::
VersionInfo
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Alert
-> Data.ProtoLens.Encoding.Bytes.Parser VersionInfo
loop x mutable'alerts
= do end <- Data.ProtoLens.Encoding.Bytes.atEnd
if end then
do frozen'alerts <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.unsafeFreeze
mutable'alerts)
(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 (\ !t -> Prelude.reverse t)
(Lens.Family2.set
(Data.ProtoLens.Field.field @"vec'alerts") frozen'alerts x))
else
do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
case tag of
10
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.isolate
(Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
"current"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"current") y x)
mutable'alerts
18
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.isolate
(Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
"recommended"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"recommended") y x)
mutable'alerts
26
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.getText
(Prelude.fromIntegral len))
"instructions"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"instructions") y x)
mutable'alerts
34
-> do !y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.isolate
(Prelude.fromIntegral len)
Data.ProtoLens.parseMessage)
"alerts"
v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.append mutable'alerts y)
loop x v
42
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.isolate
(Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
"last_update_time"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"lastUpdateTime") y x)
mutable'alerts
wire
-> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
wire
loop
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)
mutable'alerts
in
(Data.ProtoLens.Encoding.Bytes.<?>)
(do mutable'alerts <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
Data.ProtoLens.Encoding.Growing.new
loop Data.ProtoLens.defMessage mutable'alerts)
"VersionInfo"
buildMessage
= \ _x
-> (Data.Monoid.<>)
(case
Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'current") _x
of
Prelude.Nothing -> Data.Monoid.mempty
(Prelude.Just _v)
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 10)
((Prelude..)
(\ bs
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt
(Prelude.fromIntegral (Data.ByteString.length bs)))
(Data.ProtoLens.Encoding.Bytes.putBytes bs))
Data.ProtoLens.encodeMessage _v))
((Data.Monoid.<>)
(case
Lens.Family2.view
(Data.ProtoLens.Field.field @"maybe'recommended") _x
of
Prelude.Nothing -> Data.Monoid.mempty
(Prelude.Just _v)
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 18)
((Prelude..)
(\ bs
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt
(Prelude.fromIntegral (Data.ByteString.length bs)))
(Data.ProtoLens.Encoding.Bytes.putBytes bs))
Data.ProtoLens.encodeMessage _v))
((Data.Monoid.<>)
(let
_v
= Lens.Family2.view (Data.ProtoLens.Field.field @"instructions") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 26)
((Prelude..)
(\ bs
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt
(Prelude.fromIntegral (Data.ByteString.length bs)))
(Data.ProtoLens.Encoding.Bytes.putBytes bs))
Data.Text.Encoding.encodeUtf8 _v))
((Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ _v
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 34)
((Prelude..)
(\ bs
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt
(Prelude.fromIntegral (Data.ByteString.length bs)))
(Data.ProtoLens.Encoding.Bytes.putBytes bs))
Data.ProtoLens.encodeMessage _v))
(Lens.Family2.view (Data.ProtoLens.Field.field @"vec'alerts") _x))
((Data.Monoid.<>)
(case
Lens.Family2.view
(Data.ProtoLens.Field.field @"maybe'lastUpdateTime") _x
of
Prelude.Nothing -> Data.Monoid.mempty
(Prelude.Just _v)
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 42)
((Prelude..)
(\ bs
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt
(Prelude.fromIntegral (Data.ByteString.length bs)))
(Data.ProtoLens.Encoding.Bytes.putBytes bs))
Data.ProtoLens.encodeMessage _v))
(Data.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x))))))
instance Control.DeepSeq.NFData VersionInfo where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_VersionInfo'_unknownFields x__)
(Control.DeepSeq.deepseq
(_VersionInfo'current x__)
(Control.DeepSeq.deepseq
(_VersionInfo'recommended x__)
(Control.DeepSeq.deepseq
(_VersionInfo'instructions x__)
(Control.DeepSeq.deepseq
(_VersionInfo'alerts x__)
(Control.DeepSeq.deepseq (_VersionInfo'lastUpdateTime x__) ())))))
packedFileDescriptor :: Data.ByteString.ByteString
packedFileDescriptor
= "\n\
\%temporal/api/version/v1/message.proto\DC2\ETBtemporal.api.version.v1\SUB\USgoogle/protobuf/timestamp.proto\SUB\"temporal/api/enums/v1/common.proto\"|\n\
\\vReleaseInfo\DC2\CAN\n\
\\aversion\CAN\SOH \SOH(\tR\aversion\DC2=\n\
\\frelease_time\CAN\STX \SOH(\v2\SUB.google.protobuf.TimestampR\vreleaseTime\DC2\DC4\n\
\\ENQnotes\CAN\ETX \SOH(\tR\ENQnotes\"^\n\
\\ENQAlert\DC2\CAN\n\
\\amessage\CAN\SOH \SOH(\tR\amessage\DC2;\n\
\\bseverity\CAN\STX \SOH(\SO2\US.temporal.api.enums.v1.SeverityR\bseverity\"\183\STX\n\
\\vVersionInfo\DC2>\n\
\\acurrent\CAN\SOH \SOH(\v2$.temporal.api.version.v1.ReleaseInfoR\acurrent\DC2F\n\
\\vrecommended\CAN\STX \SOH(\v2$.temporal.api.version.v1.ReleaseInfoR\vrecommended\DC2\"\n\
\\finstructions\CAN\ETX \SOH(\tR\finstructions\DC26\n\
\\ACKalerts\CAN\EOT \ETX(\v2\RS.temporal.api.version.v1.AlertR\ACKalerts\DC2D\n\
\\DLElast_update_time\CAN\ENQ \SOH(\v2\SUB.google.protobuf.TimestampR\SOlastUpdateTimeB\142\SOH\n\
\\SUBio.temporal.api.version.v1B\fMessageProtoP\SOHZ%go.temporal.io/api/version/v1;version\170\STX\EMTemporalio.Api.Version.V1\234\STX\FSTemporalio::Api::Version::V1J\135\DC1\n\
\\ACK\DC2\EOT\SYN\NUL8\SOH\n\
\\241\b\n\
\\SOH\f\DC2\ETX\SYN\NUL\DC22\230\b The MIT License\n\
\\n\
\ Copyright (c) 2020 Temporal Technologies Inc. All rights reserved.\n\
\\n\
\ Permission is hereby granted, free of charge, to any person obtaining a copy\n\
\ of this software and associated documentation files (the \"Software\"), to deal\n\
\ in the Software without restriction, including without limitation the rights\n\
\ to use, copy, modify, merge, publish, distribute, sublicense, and/or sell\n\
\ copies of the Software, and to permit persons to whom the Software is\n\
\ furnished to do so, subject to the following conditions:\n\
\\n\
\ The above copyright notice and this permission notice shall be included in\n\
\ all copies or substantial portions of the Software.\n\
\\n\
\ THE SOFTWARE IS PROVIDED \"AS IS\", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR\n\
\ IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,\n\
\ FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE\n\
\ AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER\n\
\ LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,\n\
\ OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN\n\
\ THE SOFTWARE.\n\
\\n\
\\b\n\
\\SOH\STX\DC2\ETX\CAN\NUL \n\
\\b\n\
\\SOH\b\DC2\ETX\SUB\NUL<\n\
\\t\n\
\\STX\b\v\DC2\ETX\SUB\NUL<\n\
\\b\n\
\\SOH\b\DC2\ETX\ESC\NUL3\n\
\\t\n\
\\STX\b\SOH\DC2\ETX\ESC\NUL3\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\NUL5\n\
\\t\n\
\\STX\b-\DC2\ETX\RS\NUL5\n\
\\b\n\
\\SOH\b\DC2\ETX\US\NUL6\n\
\\t\n\
\\STX\b%\DC2\ETX\US\NUL6\n\
\\t\n\
\\STX\ETX\NUL\DC2\ETX!\NUL)\n\
\\t\n\
\\STX\ETX\SOH\DC2\ETX\"\NUL,\n\
\R\n\
\\STX\EOT\NUL\DC2\EOT%\NUL)\SOH\SUBF ReleaseInfo contains information about specific version of temporal.\n\
\\n\
\\n\
\\n\
\\ETX\EOT\NUL\SOH\DC2\ETX%\b\DC3\n\
\\v\n\
\\EOT\EOT\NUL\STX\NUL\DC2\ETX&\EOT\ETB\n\
\\f\n\
\\ENQ\EOT\NUL\STX\NUL\ENQ\DC2\ETX&\EOT\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\NUL\SOH\DC2\ETX&\v\DC2\n\
\\f\n\
\\ENQ\EOT\NUL\STX\NUL\ETX\DC2\ETX&\NAK\SYN\n\
\\v\n\
\\EOT\EOT\NUL\STX\SOH\DC2\ETX'\EOT/\n\
\\f\n\
\\ENQ\EOT\NUL\STX\SOH\ACK\DC2\ETX'\EOT\GS\n\
\\f\n\
\\ENQ\EOT\NUL\STX\SOH\SOH\DC2\ETX'\RS*\n\
\\f\n\
\\ENQ\EOT\NUL\STX\SOH\ETX\DC2\ETX'-.\n\
\\v\n\
\\EOT\EOT\NUL\STX\STX\DC2\ETX(\EOT\NAK\n\
\\f\n\
\\ENQ\EOT\NUL\STX\STX\ENQ\DC2\ETX(\EOT\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\STX\SOH\DC2\ETX(\v\DLE\n\
\\f\n\
\\ENQ\EOT\NUL\STX\STX\ETX\DC2\ETX(\DC3\DC4\n\
\7\n\
\\STX\EOT\SOH\DC2\EOT,\NUL/\SOH\SUB+ Alert contains notification and severity.\n\
\\n\
\\n\
\\n\
\\ETX\EOT\SOH\SOH\DC2\ETX,\b\r\n\
\\v\n\
\\EOT\EOT\SOH\STX\NUL\DC2\ETX-\EOT\ETB\n\
\\f\n\
\\ENQ\EOT\SOH\STX\NUL\ENQ\DC2\ETX-\EOT\n\
\\n\
\\f\n\
\\ENQ\EOT\SOH\STX\NUL\SOH\DC2\ETX-\v\DC2\n\
\\f\n\
\\ENQ\EOT\SOH\STX\NUL\ETX\DC2\ETX-\NAK\SYN\n\
\\v\n\
\\EOT\EOT\SOH\STX\SOH\DC2\ETX.\EOT0\n\
\\f\n\
\\ENQ\EOT\SOH\STX\SOH\ACK\DC2\ETX.\EOT\"\n\
\\f\n\
\\ENQ\EOT\SOH\STX\SOH\SOH\DC2\ETX.#+\n\
\\f\n\
\\ENQ\EOT\SOH\STX\SOH\ETX\DC2\ETX../\n\
\\133\SOH\n\
\\STX\EOT\STX\DC2\EOT2\NUL8\SOH\SUBy VersionInfo contains details about current and recommended release versions as well as alerts and upgrade instructions.\n\
\\n\
\\n\
\\n\
\\ETX\EOT\STX\SOH\DC2\ETX2\b\DC3\n\
\\v\n\
\\EOT\EOT\STX\STX\NUL\DC2\ETX3\EOT\FS\n\
\\f\n\
\\ENQ\EOT\STX\STX\NUL\ACK\DC2\ETX3\EOT\SI\n\
\\f\n\
\\ENQ\EOT\STX\STX\NUL\SOH\DC2\ETX3\DLE\ETB\n\
\\f\n\
\\ENQ\EOT\STX\STX\NUL\ETX\DC2\ETX3\SUB\ESC\n\
\\v\n\
\\EOT\EOT\STX\STX\SOH\DC2\ETX4\EOT \n\
\\f\n\
\\ENQ\EOT\STX\STX\SOH\ACK\DC2\ETX4\EOT\SI\n\
\\f\n\
\\ENQ\EOT\STX\STX\SOH\SOH\DC2\ETX4\DLE\ESC\n\
\\f\n\
\\ENQ\EOT\STX\STX\SOH\ETX\DC2\ETX4\RS\US\n\
\\v\n\
\\EOT\EOT\STX\STX\STX\DC2\ETX5\EOT\FS\n\
\\f\n\
\\ENQ\EOT\STX\STX\STX\ENQ\DC2\ETX5\EOT\n\
\\n\
\\f\n\
\\ENQ\EOT\STX\STX\STX\SOH\DC2\ETX5\v\ETB\n\
\\f\n\
\\ENQ\EOT\STX\STX\STX\ETX\DC2\ETX5\SUB\ESC\n\
\\v\n\
\\EOT\EOT\STX\STX\ETX\DC2\ETX6\EOT\RS\n\
\\f\n\
\\ENQ\EOT\STX\STX\ETX\EOT\DC2\ETX6\EOT\f\n\
\\f\n\
\\ENQ\EOT\STX\STX\ETX\ACK\DC2\ETX6\r\DC2\n\
\\f\n\
\\ENQ\EOT\STX\STX\ETX\SOH\DC2\ETX6\DC3\EM\n\
\\f\n\
\\ENQ\EOT\STX\STX\ETX\ETX\DC2\ETX6\FS\GS\n\
\\v\n\
\\EOT\EOT\STX\STX\EOT\DC2\ETX7\EOT3\n\
\\f\n\
\\ENQ\EOT\STX\STX\EOT\ACK\DC2\ETX7\EOT\GS\n\
\\f\n\
\\ENQ\EOT\STX\STX\EOT\SOH\DC2\ETX7\RS.\n\
\\f\n\
\\ENQ\EOT\STX\STX\EOT\ETX\DC2\ETX712b\ACKproto3"