{- This file was auto-generated from tensorflow/core/framework/allocation_description.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.Tensorflow.Core.Framework.AllocationDescription (
        AllocationDescription()
    ) 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.Tensorflow.Core.Framework.AllocationDescription_Fields.requestedBytes' @:: Lens' AllocationDescription Data.Int.Int64@
         * 'Proto.Tensorflow.Core.Framework.AllocationDescription_Fields.allocatedBytes' @:: Lens' AllocationDescription Data.Int.Int64@
         * 'Proto.Tensorflow.Core.Framework.AllocationDescription_Fields.allocatorName' @:: Lens' AllocationDescription Data.Text.Text@
         * 'Proto.Tensorflow.Core.Framework.AllocationDescription_Fields.allocationId' @:: Lens' AllocationDescription Data.Int.Int64@
         * 'Proto.Tensorflow.Core.Framework.AllocationDescription_Fields.hasSingleReference' @:: Lens' AllocationDescription Prelude.Bool@
         * 'Proto.Tensorflow.Core.Framework.AllocationDescription_Fields.ptr' @:: Lens' AllocationDescription Data.Word.Word64@ -}
data AllocationDescription
  = AllocationDescription'_constructor {AllocationDescription -> Int64
_AllocationDescription'requestedBytes :: !Data.Int.Int64,
                                        AllocationDescription -> Int64
_AllocationDescription'allocatedBytes :: !Data.Int.Int64,
                                        AllocationDescription -> Text
_AllocationDescription'allocatorName :: !Data.Text.Text,
                                        AllocationDescription -> Int64
_AllocationDescription'allocationId :: !Data.Int.Int64,
                                        AllocationDescription -> Bool
_AllocationDescription'hasSingleReference :: !Prelude.Bool,
                                        AllocationDescription -> Word64
_AllocationDescription'ptr :: !Data.Word.Word64,
                                        AllocationDescription -> FieldSet
_AllocationDescription'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (AllocationDescription -> AllocationDescription -> Bool
(AllocationDescription -> AllocationDescription -> Bool)
-> (AllocationDescription -> AllocationDescription -> Bool)
-> Eq AllocationDescription
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: AllocationDescription -> AllocationDescription -> Bool
$c/= :: AllocationDescription -> AllocationDescription -> Bool
== :: AllocationDescription -> AllocationDescription -> Bool
$c== :: AllocationDescription -> AllocationDescription -> Bool
Prelude.Eq, Eq AllocationDescription
Eq AllocationDescription =>
(AllocationDescription -> AllocationDescription -> Ordering)
-> (AllocationDescription -> AllocationDescription -> Bool)
-> (AllocationDescription -> AllocationDescription -> Bool)
-> (AllocationDescription -> AllocationDescription -> Bool)
-> (AllocationDescription -> AllocationDescription -> Bool)
-> (AllocationDescription
    -> AllocationDescription -> AllocationDescription)
-> (AllocationDescription
    -> AllocationDescription -> AllocationDescription)
-> Ord AllocationDescription
AllocationDescription -> AllocationDescription -> Bool
AllocationDescription -> AllocationDescription -> Ordering
AllocationDescription
-> AllocationDescription -> AllocationDescription
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
min :: AllocationDescription
-> AllocationDescription -> AllocationDescription
$cmin :: AllocationDescription
-> AllocationDescription -> AllocationDescription
max :: AllocationDescription
-> AllocationDescription -> AllocationDescription
$cmax :: AllocationDescription
-> AllocationDescription -> AllocationDescription
>= :: AllocationDescription -> AllocationDescription -> Bool
$c>= :: AllocationDescription -> AllocationDescription -> Bool
> :: AllocationDescription -> AllocationDescription -> Bool
$c> :: AllocationDescription -> AllocationDescription -> Bool
<= :: AllocationDescription -> AllocationDescription -> Bool
$c<= :: AllocationDescription -> AllocationDescription -> Bool
< :: AllocationDescription -> AllocationDescription -> Bool
$c< :: AllocationDescription -> AllocationDescription -> Bool
compare :: AllocationDescription -> AllocationDescription -> Ordering
$ccompare :: AllocationDescription -> AllocationDescription -> Ordering
$cp1Ord :: Eq AllocationDescription
Prelude.Ord)
instance Prelude.Show AllocationDescription where
  showsPrec :: Int -> AllocationDescription -> ShowS
showsPrec _ __x :: AllocationDescription
__x __s :: String
__s
    = Char -> ShowS
Prelude.showChar
        '{'
        (String -> ShowS
Prelude.showString
           (AllocationDescription -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort AllocationDescription
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField AllocationDescription "requestedBytes" Data.Int.Int64 where
  fieldOf :: Proxy# "requestedBytes"
-> (Int64 -> f Int64)
-> AllocationDescription
-> f AllocationDescription
fieldOf _
    = ((Int64 -> f Int64)
 -> AllocationDescription -> f AllocationDescription)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> AllocationDescription
-> f AllocationDescription
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AllocationDescription -> Int64)
-> (AllocationDescription -> Int64 -> AllocationDescription)
-> Lens AllocationDescription AllocationDescription Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AllocationDescription -> Int64
_AllocationDescription'requestedBytes
           (\ x__ :: AllocationDescription
x__ y__ :: Int64
y__ -> AllocationDescription
x__ {_AllocationDescription'requestedBytes :: Int64
_AllocationDescription'requestedBytes = Int64
y__}))
        (Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField AllocationDescription "allocatedBytes" Data.Int.Int64 where
  fieldOf :: Proxy# "allocatedBytes"
-> (Int64 -> f Int64)
-> AllocationDescription
-> f AllocationDescription
fieldOf _
    = ((Int64 -> f Int64)
 -> AllocationDescription -> f AllocationDescription)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> AllocationDescription
-> f AllocationDescription
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AllocationDescription -> Int64)
-> (AllocationDescription -> Int64 -> AllocationDescription)
-> Lens AllocationDescription AllocationDescription Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AllocationDescription -> Int64
_AllocationDescription'allocatedBytes
           (\ x__ :: AllocationDescription
x__ y__ :: Int64
y__ -> AllocationDescription
x__ {_AllocationDescription'allocatedBytes :: Int64
_AllocationDescription'allocatedBytes = Int64
y__}))
        (Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField AllocationDescription "allocatorName" Data.Text.Text where
  fieldOf :: Proxy# "allocatorName"
-> (Text -> f Text)
-> AllocationDescription
-> f AllocationDescription
fieldOf _
    = ((Text -> f Text)
 -> AllocationDescription -> f AllocationDescription)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> AllocationDescription
-> f AllocationDescription
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AllocationDescription -> Text)
-> (AllocationDescription -> Text -> AllocationDescription)
-> Lens AllocationDescription AllocationDescription Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AllocationDescription -> Text
_AllocationDescription'allocatorName
           (\ x__ :: AllocationDescription
x__ y__ :: Text
y__ -> AllocationDescription
x__ {_AllocationDescription'allocatorName :: Text
_AllocationDescription'allocatorName = Text
y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField AllocationDescription "allocationId" Data.Int.Int64 where
  fieldOf :: Proxy# "allocationId"
-> (Int64 -> f Int64)
-> AllocationDescription
-> f AllocationDescription
fieldOf _
    = ((Int64 -> f Int64)
 -> AllocationDescription -> f AllocationDescription)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> AllocationDescription
-> f AllocationDescription
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AllocationDescription -> Int64)
-> (AllocationDescription -> Int64 -> AllocationDescription)
-> Lens AllocationDescription AllocationDescription Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AllocationDescription -> Int64
_AllocationDescription'allocationId
           (\ x__ :: AllocationDescription
x__ y__ :: Int64
y__ -> AllocationDescription
x__ {_AllocationDescription'allocationId :: Int64
_AllocationDescription'allocationId = Int64
y__}))
        (Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField AllocationDescription "hasSingleReference" Prelude.Bool where
  fieldOf :: Proxy# "hasSingleReference"
-> (Bool -> f Bool)
-> AllocationDescription
-> f AllocationDescription
fieldOf _
    = ((Bool -> f Bool)
 -> AllocationDescription -> f AllocationDescription)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> AllocationDescription
-> f AllocationDescription
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AllocationDescription -> Bool)
-> (AllocationDescription -> Bool -> AllocationDescription)
-> Lens AllocationDescription AllocationDescription Bool Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AllocationDescription -> Bool
_AllocationDescription'hasSingleReference
           (\ x__ :: AllocationDescription
x__ y__ :: Bool
y__
              -> AllocationDescription
x__ {_AllocationDescription'hasSingleReference :: Bool
_AllocationDescription'hasSingleReference = Bool
y__}))
        (Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField AllocationDescription "ptr" Data.Word.Word64 where
  fieldOf :: Proxy# "ptr"
-> (Word64 -> f Word64)
-> AllocationDescription
-> f AllocationDescription
fieldOf _
    = ((Word64 -> f Word64)
 -> AllocationDescription -> f AllocationDescription)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> AllocationDescription
-> f AllocationDescription
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AllocationDescription -> Word64)
-> (AllocationDescription -> Word64 -> AllocationDescription)
-> Lens AllocationDescription AllocationDescription Word64 Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AllocationDescription -> Word64
_AllocationDescription'ptr
           (\ x__ :: AllocationDescription
x__ y__ :: Word64
y__ -> AllocationDescription
x__ {_AllocationDescription'ptr :: Word64
_AllocationDescription'ptr = Word64
y__}))
        (Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message AllocationDescription where
  messageName :: Proxy AllocationDescription -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.AllocationDescription"
  packedMessageDescriptor :: Proxy AllocationDescription -> ByteString
packedMessageDescriptor _
    = "\n\
      \\NAKAllocationDescription\DC2'\n\
      \\SIrequested_bytes\CAN\SOH \SOH(\ETXR\SOrequestedBytes\DC2'\n\
      \\SIallocated_bytes\CAN\STX \SOH(\ETXR\SOallocatedBytes\DC2%\n\
      \\SOallocator_name\CAN\ETX \SOH(\tR\rallocatorName\DC2#\n\
      \\rallocation_id\CAN\EOT \SOH(\ETXR\fallocationId\DC20\n\
      \\DC4has_single_reference\CAN\ENQ \SOH(\bR\DC2hasSingleReference\DC2\DLE\n\
      \\ETXptr\CAN\ACK \SOH(\EOTR\ETXptr"
  packedFileDescriptor :: Proxy AllocationDescription -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor AllocationDescription)
fieldsByTag
    = let
        requestedBytes__field_descriptor :: FieldDescriptor AllocationDescription
requestedBytes__field_descriptor
          = String
-> FieldTypeDescriptor Int64
-> FieldAccessor AllocationDescription Int64
-> FieldDescriptor AllocationDescription
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "requested_bytes"
              (ScalarField Int64 -> FieldTypeDescriptor Int64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Int64
Data.ProtoLens.Int64Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)
              (WireDefault Int64
-> Lens AllocationDescription AllocationDescription Int64 Int64
-> FieldAccessor AllocationDescription Int64
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Int64
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
                 (forall s a (f :: * -> *).
(HasField s "requestedBytes" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"requestedBytes")) ::
              Data.ProtoLens.FieldDescriptor AllocationDescription
        allocatedBytes__field_descriptor :: FieldDescriptor AllocationDescription
allocatedBytes__field_descriptor
          = String
-> FieldTypeDescriptor Int64
-> FieldAccessor AllocationDescription Int64
-> FieldDescriptor AllocationDescription
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "allocated_bytes"
              (ScalarField Int64 -> FieldTypeDescriptor Int64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Int64
Data.ProtoLens.Int64Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)
              (WireDefault Int64
-> Lens AllocationDescription AllocationDescription Int64 Int64
-> FieldAccessor AllocationDescription Int64
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Int64
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
                 (forall s a (f :: * -> *).
(HasField s "allocatedBytes" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"allocatedBytes")) ::
              Data.ProtoLens.FieldDescriptor AllocationDescription
        allocatorName__field_descriptor :: FieldDescriptor AllocationDescription
allocatorName__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor AllocationDescription Text
-> FieldDescriptor AllocationDescription
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "allocator_name"
              (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 AllocationDescription AllocationDescription Text Text
-> FieldAccessor AllocationDescription 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 s a (f :: * -> *).
(HasField s "allocatorName" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"allocatorName")) ::
              Data.ProtoLens.FieldDescriptor AllocationDescription
        allocationId__field_descriptor :: FieldDescriptor AllocationDescription
allocationId__field_descriptor
          = String
-> FieldTypeDescriptor Int64
-> FieldAccessor AllocationDescription Int64
-> FieldDescriptor AllocationDescription
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "allocation_id"
              (ScalarField Int64 -> FieldTypeDescriptor Int64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Int64
Data.ProtoLens.Int64Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)
              (WireDefault Int64
-> Lens AllocationDescription AllocationDescription Int64 Int64
-> FieldAccessor AllocationDescription Int64
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Int64
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
                 (forall s a (f :: * -> *).
(HasField s "allocationId" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"allocationId")) ::
              Data.ProtoLens.FieldDescriptor AllocationDescription
        hasSingleReference__field_descriptor :: FieldDescriptor AllocationDescription
hasSingleReference__field_descriptor
          = String
-> FieldTypeDescriptor Bool
-> FieldAccessor AllocationDescription Bool
-> FieldDescriptor AllocationDescription
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "has_single_reference"
              (ScalarField Bool -> FieldTypeDescriptor Bool
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Bool
Data.ProtoLens.BoolField ::
                 Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
              (WireDefault Bool
-> Lens AllocationDescription AllocationDescription Bool Bool
-> FieldAccessor AllocationDescription Bool
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Bool
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
                 (forall s a (f :: * -> *).
(HasField s "hasSingleReference" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"hasSingleReference")) ::
              Data.ProtoLens.FieldDescriptor AllocationDescription
        ptr__field_descriptor :: FieldDescriptor AllocationDescription
ptr__field_descriptor
          = String
-> FieldTypeDescriptor Word64
-> FieldAccessor AllocationDescription Word64
-> FieldDescriptor AllocationDescription
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "ptr"
              (ScalarField Word64 -> FieldTypeDescriptor Word64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Word64
Data.ProtoLens.UInt64Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
              (WireDefault Word64
-> Lens AllocationDescription AllocationDescription Word64 Word64
-> FieldAccessor AllocationDescription Word64
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Word64
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall s a (f :: * -> *).
(HasField s "ptr" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"ptr")) ::
              Data.ProtoLens.FieldDescriptor AllocationDescription
      in
        [(Tag, FieldDescriptor AllocationDescription)]
-> Map Tag (FieldDescriptor AllocationDescription)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor AllocationDescription
requestedBytes__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor AllocationDescription
allocatedBytes__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 3, FieldDescriptor AllocationDescription
allocatorName__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 4, FieldDescriptor AllocationDescription
allocationId__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 5, FieldDescriptor AllocationDescription
hasSingleReference__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 6, FieldDescriptor AllocationDescription
ptr__field_descriptor)]
  unknownFields :: LensLike' f AllocationDescription FieldSet
unknownFields
    = (AllocationDescription -> FieldSet)
-> (AllocationDescription -> FieldSet -> AllocationDescription)
-> Lens' AllocationDescription FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        AllocationDescription -> FieldSet
_AllocationDescription'_unknownFields
        (\ x__ :: AllocationDescription
x__ y__ :: FieldSet
y__ -> AllocationDescription
x__ {_AllocationDescription'_unknownFields :: FieldSet
_AllocationDescription'_unknownFields = FieldSet
y__})
  defMessage :: AllocationDescription
defMessage
    = $WAllocationDescription'_constructor :: Int64
-> Int64
-> Text
-> Int64
-> Bool
-> Word64
-> FieldSet
-> AllocationDescription
AllocationDescription'_constructor
        {_AllocationDescription'requestedBytes :: Int64
_AllocationDescription'requestedBytes = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _AllocationDescription'allocatedBytes :: Int64
_AllocationDescription'allocatedBytes = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _AllocationDescription'allocatorName :: Text
_AllocationDescription'allocatorName = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _AllocationDescription'allocationId :: Int64
_AllocationDescription'allocationId = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _AllocationDescription'hasSingleReference :: Bool
_AllocationDescription'hasSingleReference = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _AllocationDescription'ptr :: Word64
_AllocationDescription'ptr = Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _AllocationDescription'_unknownFields :: FieldSet
_AllocationDescription'_unknownFields = []}
  parseMessage :: Parser AllocationDescription
parseMessage
    = let
        loop ::
          AllocationDescription
          -> Data.ProtoLens.Encoding.Bytes.Parser AllocationDescription
        loop :: AllocationDescription -> Parser AllocationDescription
loop x :: AllocationDescription
x
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  "Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      AllocationDescription -> Parser AllocationDescription
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter
  AllocationDescription AllocationDescription FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> AllocationDescription
-> AllocationDescription
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           forall msg. Message msg => Lens' msg FieldSet
Setter
  AllocationDescription AllocationDescription FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) AllocationDescription
x)
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        8 -> do Int64
y <- Parser Int64 -> String -> Parser Int64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Int64) -> Parser Word64 -> Parser Int64
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Word64 -> Int64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                          Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       "requested_bytes"
                                AllocationDescription -> Parser AllocationDescription
loop
                                  (Setter AllocationDescription AllocationDescription Int64 Int64
-> Int64 -> AllocationDescription -> AllocationDescription
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                     (forall s a (f :: * -> *).
(HasField s "requestedBytes" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"requestedBytes") Int64
y AllocationDescription
x)
                        16
                          -> do Int64
y <- Parser Int64 -> String -> Parser Int64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Int64) -> Parser Word64 -> Parser Int64
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Word64 -> Int64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                          Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       "allocated_bytes"
                                AllocationDescription -> Parser AllocationDescription
loop
                                  (Setter AllocationDescription AllocationDescription Int64 Int64
-> Int64 -> AllocationDescription -> AllocationDescription
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                     (forall s a (f :: * -> *).
(HasField s "allocatedBytes" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"allocatedBytes") Int64
y AllocationDescription
x)
                        26
                          -> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                       Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                                         (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                           Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
                                             (case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
                                                (Prelude.Left err :: UnicodeException
err)
                                                  -> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
                                                (Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
                                       "allocator_name"
                                AllocationDescription -> Parser AllocationDescription
loop
                                  (Setter AllocationDescription AllocationDescription Text Text
-> Text -> AllocationDescription -> AllocationDescription
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                     (forall s a (f :: * -> *).
(HasField s "allocatorName" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"allocatorName") Text
y AllocationDescription
x)
                        32
                          -> do Int64
y <- Parser Int64 -> String -> Parser Int64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Int64) -> Parser Word64 -> Parser Int64
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Word64 -> Int64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                          Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       "allocation_id"
                                AllocationDescription -> Parser AllocationDescription
loop
                                  (Setter AllocationDescription AllocationDescription Int64 Int64
-> Int64 -> AllocationDescription -> AllocationDescription
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                     (forall s a (f :: * -> *).
(HasField s "allocationId" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"allocationId") Int64
y AllocationDescription
x)
                        40
                          -> do Bool
y <- Parser Bool -> String -> Parser Bool
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Bool) -> Parser Word64 -> Parser Bool
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          (Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude./=) 0) Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       "has_single_reference"
                                AllocationDescription -> Parser AllocationDescription
loop
                                  (Setter AllocationDescription AllocationDescription Bool Bool
-> Bool -> AllocationDescription -> AllocationDescription
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                     (forall s a (f :: * -> *).
(HasField s "hasSingleReference" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"hasSingleReference") Bool
y AllocationDescription
x)
                        48
                          -> do Word64
y <- Parser Word64 -> String -> Parser Word64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt "ptr"
                                AllocationDescription -> Parser AllocationDescription
loop (Setter AllocationDescription AllocationDescription Word64 Word64
-> Word64 -> AllocationDescription -> AllocationDescription
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "ptr" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"ptr") Word64
y AllocationDescription
x)
                        wire :: Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                AllocationDescription -> Parser AllocationDescription
loop
                                  (Setter
  AllocationDescription AllocationDescription FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> AllocationDescription
-> AllocationDescription
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     forall msg. Message msg => Lens' msg FieldSet
Setter
  AllocationDescription AllocationDescription FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) AllocationDescription
x)
      in
        Parser AllocationDescription
-> String -> Parser AllocationDescription
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do AllocationDescription -> Parser AllocationDescription
loop AllocationDescription
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "AllocationDescription"
  buildMessage :: AllocationDescription -> Builder
buildMessage
    = \ _x :: AllocationDescription
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: Int64
_v
                  = FoldLike
  Int64 AllocationDescription AllocationDescription Int64 Int64
-> AllocationDescription -> Int64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                      (forall s a (f :: * -> *).
(HasField s "requestedBytes" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"requestedBytes") AllocationDescription
_x
              in
                if Int64 -> Int64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Int64
_v Int64
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 8)
                      ((Word64 -> Builder) -> (Int64 -> Word64) -> Int64 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                         Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int64 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int64
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (let
                   _v :: Int64
_v
                     = FoldLike
  Int64 AllocationDescription AllocationDescription Int64 Int64
-> AllocationDescription -> Int64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                         (forall s a (f :: * -> *).
(HasField s "allocatedBytes" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"allocatedBytes") AllocationDescription
_x
                 in
                   if Int64 -> Int64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Int64
_v Int64
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 16)
                         ((Word64 -> Builder) -> (Int64 -> Word64) -> Int64 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                            Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int64 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int64
_v))
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   (let
                      _v :: Text
_v
                        = FoldLike Text AllocationDescription AllocationDescription Text Text
-> AllocationDescription -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                            (forall s a (f :: * -> *).
(HasField s "allocatorName" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"allocatorName") AllocationDescription
_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 26)
                            ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                               (\ bs :: 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.<>)
                      (let
                         _v :: Int64
_v
                           = FoldLike
  Int64 AllocationDescription AllocationDescription Int64 Int64
-> AllocationDescription -> Int64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "allocationId" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"allocationId") AllocationDescription
_x
                       in
                         if Int64 -> Int64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Int64
_v Int64
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 32)
                               ((Word64 -> Builder) -> (Int64 -> Word64) -> Int64 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                  Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int64 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int64
_v))
                      (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                         (let
                            _v :: Bool
_v
                              = FoldLike Bool AllocationDescription AllocationDescription Bool Bool
-> AllocationDescription -> Bool
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                  (forall s a (f :: * -> *).
(HasField s "hasSingleReference" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"hasSingleReference") AllocationDescription
_x
                          in
                            if Bool -> Bool -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Bool
_v Bool
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 40)
                                  ((Word64 -> Builder) -> (Bool -> Word64) -> Bool -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                     Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                     (\ b :: Bool
b -> if Bool
b then 1 else 0)
                                     Bool
_v))
                         (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                            (let _v :: Word64
_v = FoldLike
  Word64 AllocationDescription AllocationDescription Word64 Word64
-> AllocationDescription -> Word64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "ptr" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"ptr") AllocationDescription
_x
                             in
                               if Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Word64
_v Word64
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 48)
                                     (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
_v))
                            (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                               (FoldLike
  FieldSet
  AllocationDescription
  AllocationDescription
  FieldSet
  FieldSet
-> AllocationDescription -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  AllocationDescription
  AllocationDescription
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields AllocationDescription
_x)))))))
instance Control.DeepSeq.NFData AllocationDescription where
  rnf :: AllocationDescription -> ()
rnf
    = \ x__ :: AllocationDescription
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (AllocationDescription -> FieldSet
_AllocationDescription'_unknownFields AllocationDescription
x__)
             (Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (AllocationDescription -> Int64
_AllocationDescription'requestedBytes AllocationDescription
x__)
                (Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (AllocationDescription -> Int64
_AllocationDescription'allocatedBytes AllocationDescription
x__)
                   (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                      (AllocationDescription -> Text
_AllocationDescription'allocatorName AllocationDescription
x__)
                      (Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                         (AllocationDescription -> Int64
_AllocationDescription'allocationId AllocationDescription
x__)
                         (Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                            (AllocationDescription -> Bool
_AllocationDescription'hasSingleReference AllocationDescription
x__)
                            (Word64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (AllocationDescription -> Word64
_AllocationDescription'ptr AllocationDescription
x__) ()))))))
packedFileDescriptor :: Data.ByteString.ByteString
packedFileDescriptor :: ByteString
packedFileDescriptor
  = "\n\
    \6tensorflow/core/framework/allocation_description.proto\DC2\n\
    \tensorflow\"\249\SOH\n\
    \\NAKAllocationDescription\DC2'\n\
    \\SIrequested_bytes\CAN\SOH \SOH(\ETXR\SOrequestedBytes\DC2'\n\
    \\SIallocated_bytes\CAN\STX \SOH(\ETXR\SOallocatedBytes\DC2%\n\
    \\SOallocator_name\CAN\ETX \SOH(\tR\rallocatorName\DC2#\n\
    \\rallocation_id\CAN\EOT \SOH(\ETXR\fallocationId\DC20\n\
    \\DC4has_single_reference\CAN\ENQ \SOH(\bR\DC2hasSingleReference\DC2\DLE\n\
    \\ETXptr\CAN\ACK \SOH(\EOTR\ETXptrB\155\SOH\n\
    \\CANorg.tensorflow.frameworkB\ESCAllocationDescriptionProtosP\SOHZ]github.com/tensorflow/tensorflow/tensorflow/go/core/framework/allocation_description_go_proto\248\SOH\SOHJ\216\ENQ\n\
    \\ACK\DC2\EOT\NUL\NUL\FS\SOH\n\
    \\b\n\
    \\SOH\f\DC2\ETX\NUL\NUL\DC2\n\
    \\b\n\
    \\SOH\STX\DC2\ETX\STX\NUL\DC3\n\
    \\b\n\
    \\SOH\b\DC2\ETX\EOT\NUL\US\n\
    \\t\n\
    \\STX\b\US\DC2\ETX\EOT\NUL\US\n\
    \\b\n\
    \\SOH\b\DC2\ETX\ENQ\NUL<\n\
    \\t\n\
    \\STX\b\b\DC2\ETX\ENQ\NUL<\n\
    \\b\n\
    \\SOH\b\DC2\ETX\ACK\NUL\"\n\
    \\t\n\
    \\STX\b\n\
    \\DC2\ETX\ACK\NUL\"\n\
    \\b\n\
    \\SOH\b\DC2\ETX\a\NUL1\n\
    \\t\n\
    \\STX\b\SOH\DC2\ETX\a\NUL1\n\
    \\b\n\
    \\SOH\b\DC2\ETX\b\NULt\n\
    \\t\n\
    \\STX\b\v\DC2\ETX\b\NULt\n\
    \\n\
    \\n\
    \\STX\EOT\NUL\DC2\EOT\n\
    \\NUL\FS\SOH\n\
    \\n\
    \\n\
    \\ETX\EOT\NUL\SOH\DC2\ETX\n\
    \\b\GS\n\
    \.\n\
    \\EOT\EOT\NUL\STX\NUL\DC2\ETX\f\STX\FS\SUB! Total number of bytes requested\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\ENQ\DC2\ETX\f\STX\a\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\SOH\DC2\ETX\f\b\ETB\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\ETX\DC2\ETX\f\SUB\ESC\n\
    \7\n\
    \\EOT\EOT\NUL\STX\SOH\DC2\ETX\SI\STX\FS\SUB* Total number of bytes allocated if known\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\SOH\ENQ\DC2\ETX\SI\STX\a\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\SOH\SOH\DC2\ETX\SI\b\ETB\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\SOH\ETX\DC2\ETX\SI\SUB\ESC\n\
    \)\n\
    \\EOT\EOT\NUL\STX\STX\DC2\ETX\DC2\STX\FS\SUB\FS Name of the allocator used\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\STX\ENQ\DC2\ETX\DC2\STX\b\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\STX\SOH\DC2\ETX\DC2\t\ETB\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\STX\ETX\DC2\ETX\DC2\SUB\ESC\n\
    \:\n\
    \\EOT\EOT\NUL\STX\ETX\DC2\ETX\NAK\STX\SUB\SUB- Identifier of the allocated buffer if known\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\ETX\ENQ\DC2\ETX\NAK\STX\a\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\ETX\SOH\DC2\ETX\NAK\b\NAK\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\ETX\ETX\DC2\ETX\NAK\CAN\EM\n\
    \B\n\
    \\EOT\EOT\NUL\STX\EOT\DC2\ETX\CAN\STX \SUB5 Set if this tensor only has one remaining reference\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\EOT\ENQ\DC2\ETX\CAN\STX\ACK\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\EOT\SOH\DC2\ETX\CAN\a\ESC\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\EOT\ETX\DC2\ETX\CAN\RS\US\n\
    \)\n\
    \\EOT\EOT\NUL\STX\ENQ\DC2\ETX\ESC\STX\DC1\SUB\FS Address of the allocation.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\ENQ\ENQ\DC2\ETX\ESC\STX\b\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\ENQ\SOH\DC2\ETX\ESC\t\f\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\ENQ\ETX\DC2\ETX\ESC\SI\DLEb\ACKproto3"