{- This file was auto-generated from rpc/status.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.Rpc.Status (
        Status()
    ) 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.Any
{- | Fields :
     
         * 'Proto.Rpc.Status_Fields.code' @:: Lens' Status Data.Int.Int32@
         * 'Proto.Rpc.Status_Fields.message' @:: Lens' Status Data.Text.Text@
         * 'Proto.Rpc.Status_Fields.details' @:: Lens' Status [Proto.Google.Protobuf.Any.Any]@
         * 'Proto.Rpc.Status_Fields.vec'details' @:: Lens' Status (Data.Vector.Vector Proto.Google.Protobuf.Any.Any)@ -}
data Status
  = Status'_constructor {Status -> Int32
_Status'code :: !Data.Int.Int32,
                         Status -> Text
_Status'message :: !Data.Text.Text,
                         Status -> Vector Any
_Status'details :: !(Data.Vector.Vector Proto.Google.Protobuf.Any.Any),
                         Status -> FieldSet
_Status'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (Status -> Status -> Bool
(Status -> Status -> Bool)
-> (Status -> Status -> Bool) -> Eq Status
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Status -> Status -> Bool
== :: Status -> Status -> Bool
$c/= :: Status -> Status -> Bool
/= :: Status -> Status -> Bool
Prelude.Eq, Eq Status
Eq Status =>
(Status -> Status -> Ordering)
-> (Status -> Status -> Bool)
-> (Status -> Status -> Bool)
-> (Status -> Status -> Bool)
-> (Status -> Status -> Bool)
-> (Status -> Status -> Status)
-> (Status -> Status -> Status)
-> Ord Status
Status -> Status -> Bool
Status -> Status -> Ordering
Status -> Status -> Status
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 :: Status -> Status -> Ordering
compare :: Status -> Status -> Ordering
$c< :: Status -> Status -> Bool
< :: Status -> Status -> Bool
$c<= :: Status -> Status -> Bool
<= :: Status -> Status -> Bool
$c> :: Status -> Status -> Bool
> :: Status -> Status -> Bool
$c>= :: Status -> Status -> Bool
>= :: Status -> Status -> Bool
$cmax :: Status -> Status -> Status
max :: Status -> Status -> Status
$cmin :: Status -> Status -> Status
min :: Status -> Status -> Status
Prelude.Ord)
instance Prelude.Show Status where
  showsPrec :: Int -> Status -> ShowS
showsPrec Int
_ Status
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (Status -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort Status
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField Status "code" Data.Int.Int32 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "code" -> (Int32 -> f Int32) -> Status -> f Status
fieldOf Proxy# "code"
_
    = ((Int32 -> f Int32) -> Status -> f Status)
-> ((Int32 -> f Int32) -> Int32 -> f Int32)
-> (Int32 -> f Int32)
-> Status
-> f Status
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Status -> Int32)
-> (Status -> Int32 -> Status) -> Lens Status Status Int32 Int32
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Status -> Int32
_Status'code (\ Status
x__ Int32
y__ -> Status
x__ {_Status'code = y__}))
        (Int32 -> f Int32) -> Int32 -> f Int32
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Status "message" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "message" -> (Text -> f Text) -> Status -> f Status
fieldOf Proxy# "message"
_
    = ((Text -> f Text) -> Status -> f Status)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> Status
-> f Status
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Status -> Text)
-> (Status -> Text -> Status) -> Lens Status Status Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Status -> Text
_Status'message (\ Status
x__ Text
y__ -> Status
x__ {_Status'message = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Status "details" [Proto.Google.Protobuf.Any.Any] where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "details" -> ([Any] -> f [Any]) -> Status -> f Status
fieldOf Proxy# "details"
_
    = ((Vector Any -> f (Vector Any)) -> Status -> f Status)
-> (([Any] -> f [Any]) -> Vector Any -> f (Vector Any))
-> ([Any] -> f [Any])
-> Status
-> f Status
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Status -> Vector Any)
-> (Status -> Vector Any -> Status)
-> Lens Status Status (Vector Any) (Vector Any)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Status -> Vector Any
_Status'details (\ Status
x__ Vector Any
y__ -> Status
x__ {_Status'details = y__}))
        ((Vector Any -> [Any])
-> (Vector Any -> [Any] -> Vector Any)
-> Lens (Vector Any) (Vector Any) [Any] [Any]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector Any -> [Any]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ Vector Any
_ [Any]
y__ -> [Any] -> Vector Any
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Any]
y__))
instance Data.ProtoLens.Field.HasField Status "vec'details" (Data.Vector.Vector Proto.Google.Protobuf.Any.Any) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'details"
-> (Vector Any -> f (Vector Any)) -> Status -> f Status
fieldOf Proxy# "vec'details"
_
    = ((Vector Any -> f (Vector Any)) -> Status -> f Status)
-> ((Vector Any -> f (Vector Any)) -> Vector Any -> f (Vector Any))
-> (Vector Any -> f (Vector Any))
-> Status
-> f Status
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Status -> Vector Any)
-> (Status -> Vector Any -> Status)
-> Lens Status Status (Vector Any) (Vector Any)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Status -> Vector Any
_Status'details (\ Status
x__ Vector Any
y__ -> Status
x__ {_Status'details = y__}))
        (Vector Any -> f (Vector Any)) -> Vector Any -> f (Vector Any)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message Status where
  messageName :: Proxy Status -> Text
messageName Proxy Status
_ = String -> Text
Data.Text.pack String
"google.rpc.Status"
  packedMessageDescriptor :: Proxy Status -> ByteString
packedMessageDescriptor Proxy Status
_
    = ByteString
"\n\
      \\ACKStatus\DC2\DC2\n\
      \\EOTcode\CAN\SOH \SOH(\ENQR\EOTcode\DC2\CAN\n\
      \\amessage\CAN\STX \SOH(\tR\amessage\DC2.\n\
      \\adetails\CAN\ETX \ETX(\v2\DC4.google.protobuf.AnyR\adetails"
  packedFileDescriptor :: Proxy Status -> ByteString
packedFileDescriptor Proxy Status
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor Status)
fieldsByTag
    = let
        code__field_descriptor :: FieldDescriptor Status
code__field_descriptor
          = String
-> FieldTypeDescriptor Int32
-> FieldAccessor Status Int32
-> FieldDescriptor Status
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"code"
              (ScalarField Int32 -> FieldTypeDescriptor Int32
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Int32
Data.ProtoLens.Int32Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)
              (WireDefault Int32
-> Lens Status Status Int32 Int32 -> FieldAccessor Status Int32
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Int32
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"code")) ::
              Data.ProtoLens.FieldDescriptor Status
        message__field_descriptor :: FieldDescriptor Status
message__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor Status Text
-> FieldDescriptor Status
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"message"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (WireDefault Text
-> Lens Status Status Text Text -> FieldAccessor Status Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"message")) ::
              Data.ProtoLens.FieldDescriptor Status
        details__field_descriptor :: FieldDescriptor Status
details__field_descriptor
          = String
-> FieldTypeDescriptor Any
-> FieldAccessor Status Any
-> FieldDescriptor Status
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"details"
              (MessageOrGroup -> FieldTypeDescriptor Any
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Proto.Google.Protobuf.Any.Any)
              (Packing -> Lens' Status [Any] -> FieldAccessor Status Any
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"details")) ::
              Data.ProtoLens.FieldDescriptor Status
      in
        [(Tag, FieldDescriptor Status)] -> Map Tag (FieldDescriptor Status)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor Status
code__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor Status
message__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor Status
details__field_descriptor)]
  unknownFields :: Lens' Status FieldSet
unknownFields
    = (Status -> FieldSet)
-> (Status -> FieldSet -> Status) -> Lens' Status FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        Status -> FieldSet
_Status'_unknownFields
        (\ Status
x__ FieldSet
y__ -> Status
x__ {_Status'_unknownFields = y__})
  defMessage :: Status
defMessage
    = Status'_constructor
        {_Status'code :: Int32
_Status'code = Int32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _Status'message :: Text
_Status'message = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _Status'details :: Vector Any
_Status'details = Vector Any
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _Status'_unknownFields :: FieldSet
_Status'_unknownFields = []}
  parseMessage :: Parser Status
parseMessage
    = let
        loop ::
          Status
          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Proto.Google.Protobuf.Any.Any
             -> Data.ProtoLens.Encoding.Bytes.Parser Status
        loop :: Status -> Growing Vector RealWorld Any -> Parser Status
loop Status
x Growing Vector RealWorld Any
mutable'details
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do frozen'details <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                          (Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                             mutable'details)
                      (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Lens.Family2.set
                              (Data.ProtoLens.Field.field @"vec'details") frozen'details x))
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
8 -> do y <- Parser Int32 -> String -> Parser Int32
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Int32) -> Parser Word64 -> Parser Int32
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Word64 -> Int32
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                          Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       String
"code"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"code") y x)
                                  mutable'details
                        Word64
18
                          -> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getText
                                             (Prelude.fromIntegral len))
                                       String
"message"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"message") y x)
                                  mutable'details
                        Word64
26
                          -> do !y <- Parser Any -> String -> Parser Any
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
"details"
                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Data.ProtoLens.Encoding.Growing.append mutable'details y)
                                loop x v
                        Word64
wire
                          -> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                loop
                                  (Lens.Family2.over
                                     Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
                                  mutable'details
      in
        Parser Status -> String -> Parser Status
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do mutable'details <- IO (Growing Vector RealWorld Any)
-> Parser (Growing Vector RealWorld Any)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                   IO (Growing Vector RealWorld Any)
IO (Growing Vector (PrimState IO) Any)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              loop Data.ProtoLens.defMessage mutable'details)
          String
"Status"
  buildMessage :: Status -> Builder
buildMessage
    = \ Status
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: Int32
_v = FoldLike Int32 Status Status Int32 Int32 -> Status -> Int32
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 @"code") Status
_x
              in
                if Int32 -> Int32 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Int32
_v Int32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                    Builder
forall a. Monoid a => a
Data.Monoid.mempty
                else
                    Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
8)
                      ((Word64 -> Builder) -> (Int32 -> Word64) -> Int32 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                         Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int32 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int32
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (let
                   _v :: Text
_v = FoldLike Text Status Status Text Text -> Status -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"message") Status
_x
                 in
                   if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                       Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   else
                       Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                         (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
                         ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                            (\ ByteString
bs
                               -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                    (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                       (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                    (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                            Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   ((Any -> Builder) -> Vector Any -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                      (\ Any
_v
                         -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                              (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
26)
                              ((ByteString -> Builder) -> (Any -> ByteString) -> Any -> 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))
                                 Any -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Any
_v))
                      (FoldLike (Vector Any) Status Status (Vector Any) (Vector Any)
-> Status -> Vector Any
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'details") Status
_x))
                   (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                      (FoldLike FieldSet Status Status FieldSet FieldSet
-> Status -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet Status Status FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' Status FieldSet
Data.ProtoLens.unknownFields Status
_x))))
instance Control.DeepSeq.NFData Status where
  rnf :: Status -> ()
rnf
    = \ Status
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (Status -> FieldSet
_Status'_unknownFields Status
x__)
             (Int32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (Status -> Int32
_Status'code Status
x__)
                (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (Status -> Text
_Status'message Status
x__)
                   (Vector Any -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (Status -> Vector Any
_Status'details Status
x__) ())))
packedFileDescriptor :: Data.ByteString.ByteString
packedFileDescriptor :: ByteString
packedFileDescriptor
  = ByteString
"\n\
    \\DLErpc/status.proto\DC2\n\
    \google.rpc\SUB\EMgoogle/protobuf/any.proto\"f\n\
    \\ACKStatus\DC2\DC2\n\
    \\EOTcode\CAN\SOH \SOH(\ENQR\EOTcode\DC2\CAN\n\
    \\amessage\CAN\STX \SOH(\tR\amessage\DC2.\n\
    \\adetails\CAN\ETX \ETX(\v2\DC4.google.protobuf.AnyR\adetailsBa\n\
    \\SOcom.google.rpcB\vStatusProtoP\SOHZ7google.golang.org/genproto/googleapis/rpc/status;status\248\SOH\SOH\162\STX\ETXRPCJ\138\SI\n\
    \\ACK\DC2\EOT\DC1\NUL3\SOH\n\
    \\194\ENQ\n\
    \\SOH\f\DC2\ETX\DC1\NUL\DC22\177\EOT Copyright 2022 Google LLC\n\
    \\n\
    \ Licensed under the Apache License, Version 2.0 (the \"License\");\n\
    \ you may not use this file except in compliance with the License.\n\
    \ You may obtain a copy of the License at\n\
    \\n\
    \     http://www.apache.org/licenses/LICENSE-2.0\n\
    \\n\
    \ Unless required by applicable law or agreed to in writing, software\n\
    \ distributed under the License is distributed on an \"AS IS\" BASIS,\n\
    \ WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.\n\
    \ See the License for the specific language governing permissions and\n\
    \ limitations under the License.\n\
    \2\131\SOH The canonical version of this proto can be found at\n\
    \ https://github.com/googleapis/googleapis/blob/master/google/rpc/status.proto\n\
    \\n\
    \\b\n\
    \\SOH\STX\DC2\ETX\DC3\NUL\DC3\n\
    \\t\n\
    \\STX\ETX\NUL\DC2\ETX\NAK\NUL#\n\
    \\b\n\
    \\SOH\b\DC2\ETX\ETB\NUL\US\n\
    \\t\n\
    \\STX\b\US\DC2\ETX\ETB\NUL\US\n\
    \\b\n\
    \\SOH\b\DC2\ETX\CAN\NULN\n\
    \\t\n\
    \\STX\b\v\DC2\ETX\CAN\NULN\n\
    \\b\n\
    \\SOH\b\DC2\ETX\EM\NUL\"\n\
    \\t\n\
    \\STX\b\n\
    \\DC2\ETX\EM\NUL\"\n\
    \\b\n\
    \\SOH\b\DC2\ETX\SUB\NUL,\n\
    \\t\n\
    \\STX\b\b\DC2\ETX\SUB\NUL,\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$\DC2\ETX\FS\NUL!\n\
    \\190\ETX\n\
    \\STX\EOT\NUL\DC2\EOT%\NUL3\SOH\SUB\177\ETX The `Status` type defines a logical error model that is suitable for\n\
    \ different programming environments, including REST APIs and RPC APIs. It is\n\
    \ used by [gRPC](https://github.com/grpc). Each `Status` message contains\n\
    \ three pieces of data: error code, error message, and error details.\n\
    \\n\
    \ You can find out more about this error model and how to work with it in the\n\
    \ [API Design Guide](https://cloud.google.com/apis/design/errors).\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\NUL\SOH\DC2\ETX%\b\SO\n\
    \e\n\
    \\EOT\EOT\NUL\STX\NUL\DC2\ETX(\STX\DC1\SUBX The status code, which should be an enum value of\n\
    \ [google.rpc.Code][google.rpc.Code].\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\ENQ\DC2\ETX(\STX\a\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\SOH\DC2\ETX(\b\f\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\ETX\DC2\ETX(\SI\DLE\n\
    \\236\SOH\n\
    \\EOT\EOT\NUL\STX\SOH\DC2\ETX.\STX\NAK\SUB\222\SOH A developer-facing error message, which should be in English. Any\n\
    \ user-facing error message should be localized and sent in the\n\
    \ [google.rpc.Status.details][google.rpc.Status.details] field, or localized\n\
    \ by the client.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\SOH\ENQ\DC2\ETX.\STX\b\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\SOH\SOH\DC2\ETX.\t\DLE\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\SOH\ETX\DC2\ETX.\DC3\DC4\n\
    \y\n\
    \\EOT\EOT\NUL\STX\STX\DC2\ETX2\STX+\SUBl A list of messages that carry the error details.  There is a common set of\n\
    \ message types for APIs to use.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\STX\EOT\DC2\ETX2\STX\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\STX\ACK\DC2\ETX2\v\RS\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\STX\SOH\DC2\ETX2\US&\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\STX\ETX\DC2\ETX2)*b\ACKproto3"