temporal-api-protos-2025.10.1.0: src/Proto/Temporal/Api/Sdk/V1/EnhancedStackTrace.hs
{- This file was auto-generated from temporal/api/sdk/v1/enhanced_stack_trace.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.Sdk.V1.EnhancedStackTrace (
EnhancedStackTrace(), EnhancedStackTrace'SourcesEntry(),
StackTrace(), StackTraceFileLocation(), StackTraceFileSlice(),
StackTraceSDKInfo()
) 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
{- | Fields :
* 'Proto.Temporal.Api.Sdk.V1.EnhancedStackTrace_Fields.sdk' @:: Lens' EnhancedStackTrace StackTraceSDKInfo@
* 'Proto.Temporal.Api.Sdk.V1.EnhancedStackTrace_Fields.maybe'sdk' @:: Lens' EnhancedStackTrace (Prelude.Maybe StackTraceSDKInfo)@
* 'Proto.Temporal.Api.Sdk.V1.EnhancedStackTrace_Fields.sources' @:: Lens' EnhancedStackTrace (Data.Map.Map Data.Text.Text StackTraceFileSlice)@
* 'Proto.Temporal.Api.Sdk.V1.EnhancedStackTrace_Fields.stacks' @:: Lens' EnhancedStackTrace [StackTrace]@
* 'Proto.Temporal.Api.Sdk.V1.EnhancedStackTrace_Fields.vec'stacks' @:: Lens' EnhancedStackTrace (Data.Vector.Vector StackTrace)@ -}
data EnhancedStackTrace
= EnhancedStackTrace'_constructor {_EnhancedStackTrace'sdk :: !(Prelude.Maybe StackTraceSDKInfo),
_EnhancedStackTrace'sources :: !(Data.Map.Map Data.Text.Text StackTraceFileSlice),
_EnhancedStackTrace'stacks :: !(Data.Vector.Vector StackTrace),
_EnhancedStackTrace'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord)
instance Prelude.Show EnhancedStackTrace where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Data.ProtoLens.Field.HasField EnhancedStackTrace "sdk" StackTraceSDKInfo where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_EnhancedStackTrace'sdk
(\ x__ y__ -> x__ {_EnhancedStackTrace'sdk = y__}))
(Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField EnhancedStackTrace "maybe'sdk" (Prelude.Maybe StackTraceSDKInfo) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_EnhancedStackTrace'sdk
(\ x__ y__ -> x__ {_EnhancedStackTrace'sdk = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField EnhancedStackTrace "sources" (Data.Map.Map Data.Text.Text StackTraceFileSlice) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_EnhancedStackTrace'sources
(\ x__ y__ -> x__ {_EnhancedStackTrace'sources = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField EnhancedStackTrace "stacks" [StackTrace] where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_EnhancedStackTrace'stacks
(\ x__ y__ -> x__ {_EnhancedStackTrace'stacks = y__}))
(Lens.Family2.Unchecked.lens
Data.Vector.Generic.toList
(\ _ y__ -> Data.Vector.Generic.fromList y__))
instance Data.ProtoLens.Field.HasField EnhancedStackTrace "vec'stacks" (Data.Vector.Vector StackTrace) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_EnhancedStackTrace'stacks
(\ x__ y__ -> x__ {_EnhancedStackTrace'stacks = y__}))
Prelude.id
instance Data.ProtoLens.Message EnhancedStackTrace where
messageName _
= Data.Text.pack "temporal.api.sdk.v1.EnhancedStackTrace"
packedMessageDescriptor _
= "\n\
\\DC2EnhancedStackTrace\DC28\n\
\\ETXsdk\CAN\SOH \SOH(\v2&.temporal.api.sdk.v1.StackTraceSDKInfoR\ETXsdk\DC2N\n\
\\asources\CAN\STX \ETX(\v24.temporal.api.sdk.v1.EnhancedStackTrace.SourcesEntryR\asources\DC27\n\
\\ACKstacks\CAN\ETX \ETX(\v2\US.temporal.api.sdk.v1.StackTraceR\ACKstacks\SUBd\n\
\\fSourcesEntry\DC2\DLE\n\
\\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2>\n\
\\ENQvalue\CAN\STX \SOH(\v2(.temporal.api.sdk.v1.StackTraceFileSliceR\ENQvalue:\STX8\SOH"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
sdk__field_descriptor
= Data.ProtoLens.FieldDescriptor
"sdk"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor StackTraceSDKInfo)
(Data.ProtoLens.OptionalField
(Data.ProtoLens.Field.field @"maybe'sdk")) ::
Data.ProtoLens.FieldDescriptor EnhancedStackTrace
sources__field_descriptor
= Data.ProtoLens.FieldDescriptor
"sources"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor EnhancedStackTrace'SourcesEntry)
(Data.ProtoLens.MapField
(Data.ProtoLens.Field.field @"key")
(Data.ProtoLens.Field.field @"value")
(Data.ProtoLens.Field.field @"sources")) ::
Data.ProtoLens.FieldDescriptor EnhancedStackTrace
stacks__field_descriptor
= Data.ProtoLens.FieldDescriptor
"stacks"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor StackTrace)
(Data.ProtoLens.RepeatedField
Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"stacks")) ::
Data.ProtoLens.FieldDescriptor EnhancedStackTrace
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, sdk__field_descriptor),
(Data.ProtoLens.Tag 2, sources__field_descriptor),
(Data.ProtoLens.Tag 3, stacks__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_EnhancedStackTrace'_unknownFields
(\ x__ y__ -> x__ {_EnhancedStackTrace'_unknownFields = y__})
defMessage
= EnhancedStackTrace'_constructor
{_EnhancedStackTrace'sdk = Prelude.Nothing,
_EnhancedStackTrace'sources = Data.Map.empty,
_EnhancedStackTrace'stacks = Data.Vector.Generic.empty,
_EnhancedStackTrace'_unknownFields = []}
parseMessage
= let
loop ::
EnhancedStackTrace
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld StackTrace
-> Data.ProtoLens.Encoding.Bytes.Parser EnhancedStackTrace
loop x mutable'stacks
= do end <- Data.ProtoLens.Encoding.Bytes.atEnd
if end then
do frozen'stacks <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.unsafeFreeze
mutable'stacks)
(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'stacks") frozen'stacks 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)
"sdk"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"sdk") y x)
mutable'stacks
18
-> do !(entry :: EnhancedStackTrace'SourcesEntry) <- (Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.isolate
(Prelude.fromIntegral
len)
Data.ProtoLens.parseMessage)
"sources"
(let
key = Lens.Family2.view (Data.ProtoLens.Field.field @"key") entry
value
= Lens.Family2.view (Data.ProtoLens.Field.field @"value") entry
in
loop
(Lens.Family2.over
(Data.ProtoLens.Field.field @"sources")
(\ !t -> Data.Map.insert key value t) x)
mutable'stacks)
26
-> do !y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.isolate
(Prelude.fromIntegral len)
Data.ProtoLens.parseMessage)
"stacks"
v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.append mutable'stacks y)
loop x v
wire
-> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
wire
loop
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)
mutable'stacks
in
(Data.ProtoLens.Encoding.Bytes.<?>)
(do mutable'stacks <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
Data.ProtoLens.Encoding.Growing.new
loop Data.ProtoLens.defMessage mutable'stacks)
"EnhancedStackTrace"
buildMessage
= \ _x
-> (Data.Monoid.<>)
(case
Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'sdk") _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.<>)
(Data.Monoid.mconcat
(Prelude.map
(\ _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
(Lens.Family2.set
(Data.ProtoLens.Field.field @"key") (Prelude.fst _v)
(Lens.Family2.set
(Data.ProtoLens.Field.field @"value") (Prelude.snd _v)
(Data.ProtoLens.defMessage ::
EnhancedStackTrace'SourcesEntry)))))
(Data.Map.toList
(Lens.Family2.view (Data.ProtoLens.Field.field @"sources") _x))))
((Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ _v
-> (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.ProtoLens.encodeMessage _v))
(Lens.Family2.view (Data.ProtoLens.Field.field @"vec'stacks") _x))
(Data.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x))))
instance Control.DeepSeq.NFData EnhancedStackTrace where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_EnhancedStackTrace'_unknownFields x__)
(Control.DeepSeq.deepseq
(_EnhancedStackTrace'sdk x__)
(Control.DeepSeq.deepseq
(_EnhancedStackTrace'sources x__)
(Control.DeepSeq.deepseq (_EnhancedStackTrace'stacks x__) ())))
{- | Fields :
* 'Proto.Temporal.Api.Sdk.V1.EnhancedStackTrace_Fields.key' @:: Lens' EnhancedStackTrace'SourcesEntry Data.Text.Text@
* 'Proto.Temporal.Api.Sdk.V1.EnhancedStackTrace_Fields.value' @:: Lens' EnhancedStackTrace'SourcesEntry StackTraceFileSlice@
* 'Proto.Temporal.Api.Sdk.V1.EnhancedStackTrace_Fields.maybe'value' @:: Lens' EnhancedStackTrace'SourcesEntry (Prelude.Maybe StackTraceFileSlice)@ -}
data EnhancedStackTrace'SourcesEntry
= EnhancedStackTrace'SourcesEntry'_constructor {_EnhancedStackTrace'SourcesEntry'key :: !Data.Text.Text,
_EnhancedStackTrace'SourcesEntry'value :: !(Prelude.Maybe StackTraceFileSlice),
_EnhancedStackTrace'SourcesEntry'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord)
instance Prelude.Show EnhancedStackTrace'SourcesEntry where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Data.ProtoLens.Field.HasField EnhancedStackTrace'SourcesEntry "key" Data.Text.Text where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_EnhancedStackTrace'SourcesEntry'key
(\ x__ y__ -> x__ {_EnhancedStackTrace'SourcesEntry'key = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField EnhancedStackTrace'SourcesEntry "value" StackTraceFileSlice where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_EnhancedStackTrace'SourcesEntry'value
(\ x__ y__ -> x__ {_EnhancedStackTrace'SourcesEntry'value = y__}))
(Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField EnhancedStackTrace'SourcesEntry "maybe'value" (Prelude.Maybe StackTraceFileSlice) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_EnhancedStackTrace'SourcesEntry'value
(\ x__ y__ -> x__ {_EnhancedStackTrace'SourcesEntry'value = y__}))
Prelude.id
instance Data.ProtoLens.Message EnhancedStackTrace'SourcesEntry where
messageName _
= Data.Text.pack
"temporal.api.sdk.v1.EnhancedStackTrace.SourcesEntry"
packedMessageDescriptor _
= "\n\
\\fSourcesEntry\DC2\DLE\n\
\\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2>\n\
\\ENQvalue\CAN\STX \SOH(\v2(.temporal.api.sdk.v1.StackTraceFileSliceR\ENQvalue:\STX8\SOH"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
key__field_descriptor
= Data.ProtoLens.FieldDescriptor
"key"
(Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"key")) ::
Data.ProtoLens.FieldDescriptor EnhancedStackTrace'SourcesEntry
value__field_descriptor
= Data.ProtoLens.FieldDescriptor
"value"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor StackTraceFileSlice)
(Data.ProtoLens.OptionalField
(Data.ProtoLens.Field.field @"maybe'value")) ::
Data.ProtoLens.FieldDescriptor EnhancedStackTrace'SourcesEntry
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, key__field_descriptor),
(Data.ProtoLens.Tag 2, value__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_EnhancedStackTrace'SourcesEntry'_unknownFields
(\ x__ y__
-> x__ {_EnhancedStackTrace'SourcesEntry'_unknownFields = y__})
defMessage
= EnhancedStackTrace'SourcesEntry'_constructor
{_EnhancedStackTrace'SourcesEntry'key = Data.ProtoLens.fieldDefault,
_EnhancedStackTrace'SourcesEntry'value = Prelude.Nothing,
_EnhancedStackTrace'SourcesEntry'_unknownFields = []}
parseMessage
= let
loop ::
EnhancedStackTrace'SourcesEntry
-> Data.ProtoLens.Encoding.Bytes.Parser EnhancedStackTrace'SourcesEntry
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))
"key"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"key") 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)
"value"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"value") 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) "SourcesEntry"
buildMessage
= \ _x
-> (Data.Monoid.<>)
(let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"key") _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'value") _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.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x)))
instance Control.DeepSeq.NFData EnhancedStackTrace'SourcesEntry where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_EnhancedStackTrace'SourcesEntry'_unknownFields x__)
(Control.DeepSeq.deepseq
(_EnhancedStackTrace'SourcesEntry'key x__)
(Control.DeepSeq.deepseq
(_EnhancedStackTrace'SourcesEntry'value x__) ()))
{- | Fields :
* 'Proto.Temporal.Api.Sdk.V1.EnhancedStackTrace_Fields.locations' @:: Lens' StackTrace [StackTraceFileLocation]@
* 'Proto.Temporal.Api.Sdk.V1.EnhancedStackTrace_Fields.vec'locations' @:: Lens' StackTrace (Data.Vector.Vector StackTraceFileLocation)@ -}
data StackTrace
= StackTrace'_constructor {_StackTrace'locations :: !(Data.Vector.Vector StackTraceFileLocation),
_StackTrace'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord)
instance Prelude.Show StackTrace where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Data.ProtoLens.Field.HasField StackTrace "locations" [StackTraceFileLocation] where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_StackTrace'locations
(\ x__ y__ -> x__ {_StackTrace'locations = y__}))
(Lens.Family2.Unchecked.lens
Data.Vector.Generic.toList
(\ _ y__ -> Data.Vector.Generic.fromList y__))
instance Data.ProtoLens.Field.HasField StackTrace "vec'locations" (Data.Vector.Vector StackTraceFileLocation) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_StackTrace'locations
(\ x__ y__ -> x__ {_StackTrace'locations = y__}))
Prelude.id
instance Data.ProtoLens.Message StackTrace where
messageName _ = Data.Text.pack "temporal.api.sdk.v1.StackTrace"
packedMessageDescriptor _
= "\n\
\\n\
\StackTrace\DC2I\n\
\\tlocations\CAN\SOH \ETX(\v2+.temporal.api.sdk.v1.StackTraceFileLocationR\tlocations"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
locations__field_descriptor
= Data.ProtoLens.FieldDescriptor
"locations"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor StackTraceFileLocation)
(Data.ProtoLens.RepeatedField
Data.ProtoLens.Unpacked
(Data.ProtoLens.Field.field @"locations")) ::
Data.ProtoLens.FieldDescriptor StackTrace
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, locations__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_StackTrace'_unknownFields
(\ x__ y__ -> x__ {_StackTrace'_unknownFields = y__})
defMessage
= StackTrace'_constructor
{_StackTrace'locations = Data.Vector.Generic.empty,
_StackTrace'_unknownFields = []}
parseMessage
= let
loop ::
StackTrace
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld StackTraceFileLocation
-> Data.ProtoLens.Encoding.Bytes.Parser StackTrace
loop x mutable'locations
= do end <- Data.ProtoLens.Encoding.Bytes.atEnd
if end then
do frozen'locations <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.unsafeFreeze
mutable'locations)
(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'locations") frozen'locations 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)
"locations"
v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.append mutable'locations y)
loop x v
wire
-> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
wire
loop
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)
mutable'locations
in
(Data.ProtoLens.Encoding.Bytes.<?>)
(do mutable'locations <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
Data.ProtoLens.Encoding.Growing.new
loop Data.ProtoLens.defMessage mutable'locations)
"StackTrace"
buildMessage
= \ _x
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ _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))
(Lens.Family2.view
(Data.ProtoLens.Field.field @"vec'locations") _x))
(Data.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x))
instance Control.DeepSeq.NFData StackTrace where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_StackTrace'_unknownFields x__)
(Control.DeepSeq.deepseq (_StackTrace'locations x__) ())
{- | Fields :
* 'Proto.Temporal.Api.Sdk.V1.EnhancedStackTrace_Fields.filePath' @:: Lens' StackTraceFileLocation Data.Text.Text@
* 'Proto.Temporal.Api.Sdk.V1.EnhancedStackTrace_Fields.line' @:: Lens' StackTraceFileLocation Data.Int.Int32@
* 'Proto.Temporal.Api.Sdk.V1.EnhancedStackTrace_Fields.column' @:: Lens' StackTraceFileLocation Data.Int.Int32@
* 'Proto.Temporal.Api.Sdk.V1.EnhancedStackTrace_Fields.functionName' @:: Lens' StackTraceFileLocation Data.Text.Text@
* 'Proto.Temporal.Api.Sdk.V1.EnhancedStackTrace_Fields.internalCode' @:: Lens' StackTraceFileLocation Prelude.Bool@ -}
data StackTraceFileLocation
= StackTraceFileLocation'_constructor {_StackTraceFileLocation'filePath :: !Data.Text.Text,
_StackTraceFileLocation'line :: !Data.Int.Int32,
_StackTraceFileLocation'column :: !Data.Int.Int32,
_StackTraceFileLocation'functionName :: !Data.Text.Text,
_StackTraceFileLocation'internalCode :: !Prelude.Bool,
_StackTraceFileLocation'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord)
instance Prelude.Show StackTraceFileLocation where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Data.ProtoLens.Field.HasField StackTraceFileLocation "filePath" Data.Text.Text where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_StackTraceFileLocation'filePath
(\ x__ y__ -> x__ {_StackTraceFileLocation'filePath = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField StackTraceFileLocation "line" Data.Int.Int32 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_StackTraceFileLocation'line
(\ x__ y__ -> x__ {_StackTraceFileLocation'line = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField StackTraceFileLocation "column" Data.Int.Int32 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_StackTraceFileLocation'column
(\ x__ y__ -> x__ {_StackTraceFileLocation'column = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField StackTraceFileLocation "functionName" Data.Text.Text where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_StackTraceFileLocation'functionName
(\ x__ y__ -> x__ {_StackTraceFileLocation'functionName = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField StackTraceFileLocation "internalCode" Prelude.Bool where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_StackTraceFileLocation'internalCode
(\ x__ y__ -> x__ {_StackTraceFileLocation'internalCode = y__}))
Prelude.id
instance Data.ProtoLens.Message StackTraceFileLocation where
messageName _
= Data.Text.pack "temporal.api.sdk.v1.StackTraceFileLocation"
packedMessageDescriptor _
= "\n\
\\SYNStackTraceFileLocation\DC2\ESC\n\
\\tfile_path\CAN\SOH \SOH(\tR\bfilePath\DC2\DC2\n\
\\EOTline\CAN\STX \SOH(\ENQR\EOTline\DC2\SYN\n\
\\ACKcolumn\CAN\ETX \SOH(\ENQR\ACKcolumn\DC2#\n\
\\rfunction_name\CAN\EOT \SOH(\tR\ffunctionName\DC2#\n\
\\rinternal_code\CAN\ENQ \SOH(\bR\finternalCode"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
filePath__field_descriptor
= Data.ProtoLens.FieldDescriptor
"file_path"
(Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"filePath")) ::
Data.ProtoLens.FieldDescriptor StackTraceFileLocation
line__field_descriptor
= Data.ProtoLens.FieldDescriptor
"line"
(Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"line")) ::
Data.ProtoLens.FieldDescriptor StackTraceFileLocation
column__field_descriptor
= Data.ProtoLens.FieldDescriptor
"column"
(Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"column")) ::
Data.ProtoLens.FieldDescriptor StackTraceFileLocation
functionName__field_descriptor
= Data.ProtoLens.FieldDescriptor
"function_name"
(Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"functionName")) ::
Data.ProtoLens.FieldDescriptor StackTraceFileLocation
internalCode__field_descriptor
= Data.ProtoLens.FieldDescriptor
"internal_code"
(Data.ProtoLens.ScalarField Data.ProtoLens.BoolField ::
Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"internalCode")) ::
Data.ProtoLens.FieldDescriptor StackTraceFileLocation
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, filePath__field_descriptor),
(Data.ProtoLens.Tag 2, line__field_descriptor),
(Data.ProtoLens.Tag 3, column__field_descriptor),
(Data.ProtoLens.Tag 4, functionName__field_descriptor),
(Data.ProtoLens.Tag 5, internalCode__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_StackTraceFileLocation'_unknownFields
(\ x__ y__ -> x__ {_StackTraceFileLocation'_unknownFields = y__})
defMessage
= StackTraceFileLocation'_constructor
{_StackTraceFileLocation'filePath = Data.ProtoLens.fieldDefault,
_StackTraceFileLocation'line = Data.ProtoLens.fieldDefault,
_StackTraceFileLocation'column = Data.ProtoLens.fieldDefault,
_StackTraceFileLocation'functionName = Data.ProtoLens.fieldDefault,
_StackTraceFileLocation'internalCode = Data.ProtoLens.fieldDefault,
_StackTraceFileLocation'_unknownFields = []}
parseMessage
= let
loop ::
StackTraceFileLocation
-> Data.ProtoLens.Encoding.Bytes.Parser StackTraceFileLocation
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))
"file_path"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"filePath") y x)
16
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(Prelude.fmap
Prelude.fromIntegral
Data.ProtoLens.Encoding.Bytes.getVarInt)
"line"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"line") y x)
24
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(Prelude.fmap
Prelude.fromIntegral
Data.ProtoLens.Encoding.Bytes.getVarInt)
"column"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"column") y x)
34
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.getText
(Prelude.fromIntegral len))
"function_name"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"functionName") y x)
40
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(Prelude.fmap
((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt)
"internal_code"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"internalCode") 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) "StackTraceFileLocation"
buildMessage
= \ _x
-> (Data.Monoid.<>)
(let
_v = Lens.Family2.view (Data.ProtoLens.Field.field @"filePath") _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 @"line") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 16)
((Prelude..)
Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v))
((Data.Monoid.<>)
(let
_v = Lens.Family2.view (Data.ProtoLens.Field.field @"column") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 24)
((Prelude..)
Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v))
((Data.Monoid.<>)
(let
_v
= Lens.Family2.view (Data.ProtoLens.Field.field @"functionName") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(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.Text.Encoding.encodeUtf8 _v))
((Data.Monoid.<>)
(let
_v
= Lens.Family2.view (Data.ProtoLens.Field.field @"internalCode") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 40)
((Prelude..)
Data.ProtoLens.Encoding.Bytes.putVarInt
(\ b -> if b then 1 else 0) _v))
(Data.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x))))))
instance Control.DeepSeq.NFData StackTraceFileLocation where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_StackTraceFileLocation'_unknownFields x__)
(Control.DeepSeq.deepseq
(_StackTraceFileLocation'filePath x__)
(Control.DeepSeq.deepseq
(_StackTraceFileLocation'line x__)
(Control.DeepSeq.deepseq
(_StackTraceFileLocation'column x__)
(Control.DeepSeq.deepseq
(_StackTraceFileLocation'functionName x__)
(Control.DeepSeq.deepseq
(_StackTraceFileLocation'internalCode x__) ())))))
{- | Fields :
* 'Proto.Temporal.Api.Sdk.V1.EnhancedStackTrace_Fields.lineOffset' @:: Lens' StackTraceFileSlice Data.Word.Word32@
* 'Proto.Temporal.Api.Sdk.V1.EnhancedStackTrace_Fields.content' @:: Lens' StackTraceFileSlice Data.Text.Text@ -}
data StackTraceFileSlice
= StackTraceFileSlice'_constructor {_StackTraceFileSlice'lineOffset :: !Data.Word.Word32,
_StackTraceFileSlice'content :: !Data.Text.Text,
_StackTraceFileSlice'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord)
instance Prelude.Show StackTraceFileSlice where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Data.ProtoLens.Field.HasField StackTraceFileSlice "lineOffset" Data.Word.Word32 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_StackTraceFileSlice'lineOffset
(\ x__ y__ -> x__ {_StackTraceFileSlice'lineOffset = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField StackTraceFileSlice "content" Data.Text.Text where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_StackTraceFileSlice'content
(\ x__ y__ -> x__ {_StackTraceFileSlice'content = y__}))
Prelude.id
instance Data.ProtoLens.Message StackTraceFileSlice where
messageName _
= Data.Text.pack "temporal.api.sdk.v1.StackTraceFileSlice"
packedMessageDescriptor _
= "\n\
\\DC3StackTraceFileSlice\DC2\US\n\
\\vline_offset\CAN\SOH \SOH(\rR\n\
\lineOffset\DC2\CAN\n\
\\acontent\CAN\STX \SOH(\tR\acontent"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
lineOffset__field_descriptor
= Data.ProtoLens.FieldDescriptor
"line_offset"
(Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"lineOffset")) ::
Data.ProtoLens.FieldDescriptor StackTraceFileSlice
content__field_descriptor
= Data.ProtoLens.FieldDescriptor
"content"
(Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"content")) ::
Data.ProtoLens.FieldDescriptor StackTraceFileSlice
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, lineOffset__field_descriptor),
(Data.ProtoLens.Tag 2, content__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_StackTraceFileSlice'_unknownFields
(\ x__ y__ -> x__ {_StackTraceFileSlice'_unknownFields = y__})
defMessage
= StackTraceFileSlice'_constructor
{_StackTraceFileSlice'lineOffset = Data.ProtoLens.fieldDefault,
_StackTraceFileSlice'content = Data.ProtoLens.fieldDefault,
_StackTraceFileSlice'_unknownFields = []}
parseMessage
= let
loop ::
StackTraceFileSlice
-> Data.ProtoLens.Encoding.Bytes.Parser StackTraceFileSlice
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
8 -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(Prelude.fmap
Prelude.fromIntegral
Data.ProtoLens.Encoding.Bytes.getVarInt)
"line_offset"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"lineOffset") y x)
18
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.getText
(Prelude.fromIntegral len))
"content"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"content") 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) "StackTraceFileSlice"
buildMessage
= \ _x
-> (Data.Monoid.<>)
(let
_v
= Lens.Family2.view (Data.ProtoLens.Field.field @"lineOffset") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 8)
((Prelude..)
Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v))
((Data.Monoid.<>)
(let
_v = Lens.Family2.view (Data.ProtoLens.Field.field @"content") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(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.Text.Encoding.encodeUtf8 _v))
(Data.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x)))
instance Control.DeepSeq.NFData StackTraceFileSlice where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_StackTraceFileSlice'_unknownFields x__)
(Control.DeepSeq.deepseq
(_StackTraceFileSlice'lineOffset x__)
(Control.DeepSeq.deepseq (_StackTraceFileSlice'content x__) ()))
{- | Fields :
* 'Proto.Temporal.Api.Sdk.V1.EnhancedStackTrace_Fields.name' @:: Lens' StackTraceSDKInfo Data.Text.Text@
* 'Proto.Temporal.Api.Sdk.V1.EnhancedStackTrace_Fields.version' @:: Lens' StackTraceSDKInfo Data.Text.Text@ -}
data StackTraceSDKInfo
= StackTraceSDKInfo'_constructor {_StackTraceSDKInfo'name :: !Data.Text.Text,
_StackTraceSDKInfo'version :: !Data.Text.Text,
_StackTraceSDKInfo'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord)
instance Prelude.Show StackTraceSDKInfo where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Data.ProtoLens.Field.HasField StackTraceSDKInfo "name" Data.Text.Text where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_StackTraceSDKInfo'name
(\ x__ y__ -> x__ {_StackTraceSDKInfo'name = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField StackTraceSDKInfo "version" Data.Text.Text where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_StackTraceSDKInfo'version
(\ x__ y__ -> x__ {_StackTraceSDKInfo'version = y__}))
Prelude.id
instance Data.ProtoLens.Message StackTraceSDKInfo where
messageName _
= Data.Text.pack "temporal.api.sdk.v1.StackTraceSDKInfo"
packedMessageDescriptor _
= "\n\
\\DC1StackTraceSDKInfo\DC2\DC2\n\
\\EOTname\CAN\SOH \SOH(\tR\EOTname\DC2\CAN\n\
\\aversion\CAN\STX \SOH(\tR\aversion"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
name__field_descriptor
= Data.ProtoLens.FieldDescriptor
"name"
(Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"name")) ::
Data.ProtoLens.FieldDescriptor StackTraceSDKInfo
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 StackTraceSDKInfo
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, name__field_descriptor),
(Data.ProtoLens.Tag 2, version__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_StackTraceSDKInfo'_unknownFields
(\ x__ y__ -> x__ {_StackTraceSDKInfo'_unknownFields = y__})
defMessage
= StackTraceSDKInfo'_constructor
{_StackTraceSDKInfo'name = Data.ProtoLens.fieldDefault,
_StackTraceSDKInfo'version = Data.ProtoLens.fieldDefault,
_StackTraceSDKInfo'_unknownFields = []}
parseMessage
= let
loop ::
StackTraceSDKInfo
-> Data.ProtoLens.Encoding.Bytes.Parser StackTraceSDKInfo
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))
"name"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"name") y x)
18
-> 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)
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) "StackTraceSDKInfo"
buildMessage
= \ _x
-> (Data.Monoid.<>)
(let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"name") _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 @"version") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(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.Text.Encoding.encodeUtf8 _v))
(Data.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x)))
instance Control.DeepSeq.NFData StackTraceSDKInfo where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_StackTraceSDKInfo'_unknownFields x__)
(Control.DeepSeq.deepseq
(_StackTraceSDKInfo'name x__)
(Control.DeepSeq.deepseq (_StackTraceSDKInfo'version x__) ()))
packedFileDescriptor :: Data.ByteString.ByteString
packedFileDescriptor
= "\n\
\.temporal/api/sdk/v1/enhanced_stack_trace.proto\DC2\DC3temporal.api.sdk.v1\"\189\STX\n\
\\DC2EnhancedStackTrace\DC28\n\
\\ETXsdk\CAN\SOH \SOH(\v2&.temporal.api.sdk.v1.StackTraceSDKInfoR\ETXsdk\DC2N\n\
\\asources\CAN\STX \ETX(\v24.temporal.api.sdk.v1.EnhancedStackTrace.SourcesEntryR\asources\DC27\n\
\\ACKstacks\CAN\ETX \ETX(\v2\US.temporal.api.sdk.v1.StackTraceR\ACKstacks\SUBd\n\
\\fSourcesEntry\DC2\DLE\n\
\\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2>\n\
\\ENQvalue\CAN\STX \SOH(\v2(.temporal.api.sdk.v1.StackTraceFileSliceR\ENQvalue:\STX8\SOH\"A\n\
\\DC1StackTraceSDKInfo\DC2\DC2\n\
\\EOTname\CAN\SOH \SOH(\tR\EOTname\DC2\CAN\n\
\\aversion\CAN\STX \SOH(\tR\aversion\"P\n\
\\DC3StackTraceFileSlice\DC2\US\n\
\\vline_offset\CAN\SOH \SOH(\rR\n\
\lineOffset\DC2\CAN\n\
\\acontent\CAN\STX \SOH(\tR\acontent\"\171\SOH\n\
\\SYNStackTraceFileLocation\DC2\ESC\n\
\\tfile_path\CAN\SOH \SOH(\tR\bfilePath\DC2\DC2\n\
\\EOTline\CAN\STX \SOH(\ENQR\EOTline\DC2\SYN\n\
\\ACKcolumn\CAN\ETX \SOH(\ENQR\ACKcolumn\DC2#\n\
\\rfunction_name\CAN\EOT \SOH(\tR\ffunctionName\DC2#\n\
\\rinternal_code\CAN\ENQ \SOH(\bR\finternalCode\"W\n\
\\n\
\StackTrace\DC2I\n\
\\tlocations\CAN\SOH \ETX(\v2+.temporal.api.sdk.v1.StackTraceFileLocationR\tlocationsB\133\SOH\n\
\\SYNio.temporal.api.sdk.v1B\ETBEnhancedStackTraceProtoP\SOHZ\GSgo.temporal.io/api/sdk/v1;sdk\170\STX\NAKTemporalio.Api.Sdk.V1\234\STX\CANTemporalio::Api::Sdk::V1J\248\RS\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) 2024 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\FS\n\
\\b\n\
\\SOH\b\DC2\ETX\SUB\NUL4\n\
\\t\n\
\\STX\b\v\DC2\ETX\SUB\NUL4\n\
\\b\n\
\\SOH\b\DC2\ETX\ESC\NUL/\n\
\\t\n\
\\STX\b\SOH\DC2\ETX\ESC\NUL/\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\NUL8\n\
\\t\n\
\\STX\b\b\DC2\ETX\GS\NUL8\n\
\\b\n\
\\SOH\b\DC2\ETX\RS\NUL1\n\
\\t\n\
\\STX\b-\DC2\ETX\RS\NUL1\n\
\\b\n\
\\SOH\b\DC2\ETX\US\NUL2\n\
\\t\n\
\\STX\b%\DC2\ETX\US\NUL2\n\
\\\\n\
\\STX\EOT\NUL\DC2\EOT\"\NUL+\SOH\SUBP Internal structure used to create worker stack traces with references to code.\n\
\\n\
\\n\
\\n\
\\ETX\EOT\NUL\SOH\DC2\ETX\"\b\SUB\n\
\W\n\
\\EOT\EOT\NUL\STX\NUL\DC2\ETX$\EOT\RS\SUBJ Information pertaining to the SDK that the trace has been captured from.\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\NUL\ACK\DC2\ETX$\EOT\NAK\n\
\\f\n\
\\ENQ\EOT\NUL\STX\NUL\SOH\DC2\ETX$\SYN\EM\n\
\\f\n\
\\ENQ\EOT\NUL\STX\NUL\ETX\DC2\ETX$\FS\GS\n\
\5\n\
\\EOT\EOT\NUL\STX\SOH\DC2\ETX'\EOT1\SUB( Mapping of file path to file contents.\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\SOH\ACK\DC2\ETX'\EOT$\n\
\\f\n\
\\ENQ\EOT\NUL\STX\SOH\SOH\DC2\ETX'%,\n\
\\f\n\
\\ENQ\EOT\NUL\STX\SOH\ETX\DC2\ETX'/0\n\
\-\n\
\\EOT\EOT\NUL\STX\STX\DC2\ETX*\EOT#\SUB Collection of stacks captured.\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\STX\EOT\DC2\ETX*\EOT\f\n\
\\f\n\
\\ENQ\EOT\NUL\STX\STX\ACK\DC2\ETX*\r\ETB\n\
\\f\n\
\\ENQ\EOT\NUL\STX\STX\SOH\DC2\ETX*\CAN\RS\n\
\\f\n\
\\ENQ\EOT\NUL\STX\STX\ETX\DC2\ETX*!\"\n\
\\209\SOH\n\
\\STX\EOT\SOH\DC2\EOT0\NUL6\SOH\SUB\196\SOH Information pertaining to the SDK that the trace has been captured from.\n\
\ (-- api-linter: core::0123::resource-annotation=disabled\n\
\ aip.dev/not-precedent: Naming SDK version is optional. --)\n\
\\n\
\\n\
\\n\
\\ETX\EOT\SOH\SOH\DC2\ETX0\b\EM\n\
\\RS\n\
\\EOT\EOT\SOH\STX\NUL\DC2\ETX2\EOT\DC4\SUB\DC1 Name of the SDK\n\
\\n\
\\f\n\
\\ENQ\EOT\SOH\STX\NUL\ENQ\DC2\ETX2\EOT\n\
\\n\
\\f\n\
\\ENQ\EOT\SOH\STX\NUL\SOH\DC2\ETX2\v\SI\n\
\\f\n\
\\ENQ\EOT\SOH\STX\NUL\ETX\DC2\ETX2\DC2\DC3\n\
\(\n\
\\EOT\EOT\SOH\STX\SOH\DC2\ETX5\EOT\ETB\SUB\ESC Version string of the SDK\n\
\\n\
\\f\n\
\\ENQ\EOT\SOH\STX\SOH\ENQ\DC2\ETX5\EOT\n\
\\n\
\\f\n\
\\ENQ\EOT\SOH\STX\SOH\SOH\DC2\ETX5\v\DC2\n\
\\f\n\
\\ENQ\EOT\SOH\STX\SOH\ETX\DC2\ETX5\NAK\SYN\n\
\\DEL\n\
\\STX\EOT\STX\DC2\EOT9\NULB\SOH\SUBs \"Slice\" of a file starting at line_offset -- a line offset and code fragment corresponding to the worker's stack.\n\
\\n\
\\n\
\\n\
\\ETX\EOT\STX\SOH\DC2\ETX9\b\ESC\n\
\\175\STX\n\
\\EOT\EOT\STX\STX\NUL\DC2\ETX>\EOT\ESC\SUB\161\STX Only used (possibly) to trim the file without breaking syntax highlighting. This is not optional, unlike\n\
\ the `line` property of a `StackTraceFileLocation`.\n\
\ (-- api-linter: core::0141::forbidden-types=disabled\n\
\ aip.dev/not-precedent: These really shouldn't have negative values. --)\n\
\\n\
\\f\n\
\\ENQ\EOT\STX\STX\NUL\ENQ\DC2\ETX>\EOT\n\
\\n\
\\f\n\
\\ENQ\EOT\STX\STX\NUL\SOH\DC2\ETX>\v\SYN\n\
\\f\n\
\\ENQ\EOT\STX\STX\NUL\ETX\DC2\ETX>\EM\SUB\n\
\O\n\
\\EOT\EOT\STX\STX\SOH\DC2\ETXA\EOT\ETB\SUBB Slice of a file with the respective OS-specific line terminator.\n\
\\n\
\\f\n\
\\ENQ\EOT\STX\STX\SOH\ENQ\DC2\ETXA\EOT\n\
\\n\
\\f\n\
\\ENQ\EOT\STX\STX\SOH\SOH\DC2\ETXA\v\DC2\n\
\\f\n\
\\ENQ\EOT\STX\STX\SOH\ETX\DC2\ETXA\NAK\SYN\n\
\\192\SOH\n\
\\STX\EOT\ETX\DC2\EOTF\NULY\SOH\SUB\179\SOH More specific location details of a file: its path, precise line and column numbers if applicable, and function name if available.\n\
\ In essence, a pointer to a location in a file\n\
\\n\
\\n\
\\n\
\\ETX\EOT\ETX\SOH\DC2\ETXF\b\RS\n\
\\138\SOH\n\
\\EOT\EOT\ETX\STX\NUL\DC2\ETXI\EOT\EM\SUB} Path to source file (absolute or relative).\n\
\ If the paths are relative, ensure that they are all relative to the same root.\n\
\\n\
\\f\n\
\\ENQ\EOT\ETX\STX\NUL\ENQ\DC2\ETXI\EOT\n\
\\n\
\\f\n\
\\ENQ\EOT\ETX\STX\NUL\SOH\DC2\ETXI\v\DC4\n\
\\f\n\
\\ENQ\EOT\ETX\STX\NUL\ETX\DC2\ETXI\ETB\CAN\n\
\\142\SOH\n\
\\EOT\EOT\ETX\STX\SOH\DC2\ETXM\EOT\DC3\SUB\128\SOH Optional; If possible, SDK should send this -- this is required for displaying the code location.\n\
\ If not provided, set to -1.\n\
\\n\
\\f\n\
\\ENQ\EOT\ETX\STX\SOH\ENQ\DC2\ETXM\EOT\t\n\
\\f\n\
\\ENQ\EOT\ETX\STX\SOH\SOH\DC2\ETXM\n\
\\SO\n\
\\f\n\
\\ENQ\EOT\ETX\STX\SOH\ETX\DC2\ETXM\DC1\DC2\n\
\X\n\
\\EOT\EOT\ETX\STX\STX\DC2\ETXQ\EOT\NAK\SUBK Optional; if possible, SDK should send this.\n\
\ If not provided, set to -1.\n\
\\n\
\\f\n\
\\ENQ\EOT\ETX\STX\STX\ENQ\DC2\ETXQ\EOT\t\n\
\\f\n\
\\ENQ\EOT\ETX\STX\STX\SOH\DC2\ETXQ\n\
\\DLE\n\
\\f\n\
\\ENQ\EOT\ETX\STX\STX\ETX\DC2\ETXQ\DC3\DC4\n\
\m\n\
\\EOT\EOT\ETX\STX\ETX\DC2\ETXU\EOT\GS\SUB` Function name this line belongs to, if applicable.\n\
\ Used for falling back to stack trace view.\n\
\\n\
\\f\n\
\\ENQ\EOT\ETX\STX\ETX\ENQ\DC2\ETXU\EOT\n\
\\n\
\\f\n\
\\ENQ\EOT\ETX\STX\ETX\SOH\DC2\ETXU\v\CAN\n\
\\f\n\
\\ENQ\EOT\ETX\STX\ETX\ETX\DC2\ETXU\ESC\FS\n\
\d\n\
\\EOT\EOT\ETX\STX\EOT\DC2\ETXX\EOT\ESC\SUBW Flag to communicate whether a location should be hidden by default in the stack view.\n\
\\n\
\\f\n\
\\ENQ\EOT\ETX\STX\EOT\ENQ\DC2\ETXX\EOT\b\n\
\\f\n\
\\ENQ\EOT\ETX\STX\EOT\SOH\DC2\ETXX\t\SYN\n\
\\f\n\
\\ENQ\EOT\ETX\STX\EOT\ETX\DC2\ETXX\EM\SUB\n\
\F\n\
\\STX\EOT\EOT\DC2\EOT\\\NUL_\SOH\SUB: Collection of FileLocation messages from a single stack.\n\
\\n\
\\n\
\\n\
\\ETX\EOT\EOT\SOH\DC2\ETX\\\b\DC2\n\
\a\n\
\\EOT\EOT\EOT\STX\NUL\DC2\ETX^\EOT2\SUBT Collection of `FileLocation`s, each for a stack frame that comprise a stack trace.\n\
\\n\
\\f\n\
\\ENQ\EOT\EOT\STX\NUL\EOT\DC2\ETX^\EOT\f\n\
\\f\n\
\\ENQ\EOT\EOT\STX\NUL\ACK\DC2\ETX^\r#\n\
\\f\n\
\\ENQ\EOT\EOT\STX\NUL\SOH\DC2\ETX^$-\n\
\\f\n\
\\ENQ\EOT\EOT\STX\NUL\ETX\DC2\ETX^01b\ACKproto3"