{- This file was auto-generated from tensorflow/core/framework/device_attributes.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.DeviceAttributes (
        DeviceAttributes(), DeviceLocality(), InterconnectLink(),
        LocalLinks()
    ) 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.DeviceAttributes_Fields.name' @:: Lens' DeviceAttributes Data.Text.Text@
         * 'Proto.Tensorflow.Core.Framework.DeviceAttributes_Fields.deviceType' @:: Lens' DeviceAttributes Data.Text.Text@
         * 'Proto.Tensorflow.Core.Framework.DeviceAttributes_Fields.memoryLimit' @:: Lens' DeviceAttributes Data.Int.Int64@
         * 'Proto.Tensorflow.Core.Framework.DeviceAttributes_Fields.locality' @:: Lens' DeviceAttributes DeviceLocality@
         * 'Proto.Tensorflow.Core.Framework.DeviceAttributes_Fields.maybe'locality' @:: Lens' DeviceAttributes (Prelude.Maybe DeviceLocality)@
         * 'Proto.Tensorflow.Core.Framework.DeviceAttributes_Fields.incarnation' @:: Lens' DeviceAttributes Data.Word.Word64@
         * 'Proto.Tensorflow.Core.Framework.DeviceAttributes_Fields.physicalDeviceDesc' @:: Lens' DeviceAttributes Data.Text.Text@ -}
data DeviceAttributes
  = DeviceAttributes'_constructor {DeviceAttributes -> Text
_DeviceAttributes'name :: !Data.Text.Text,
                                   DeviceAttributes -> Text
_DeviceAttributes'deviceType :: !Data.Text.Text,
                                   DeviceAttributes -> Int64
_DeviceAttributes'memoryLimit :: !Data.Int.Int64,
                                   DeviceAttributes -> Maybe DeviceLocality
_DeviceAttributes'locality :: !(Prelude.Maybe DeviceLocality),
                                   DeviceAttributes -> Word64
_DeviceAttributes'incarnation :: !Data.Word.Word64,
                                   DeviceAttributes -> Text
_DeviceAttributes'physicalDeviceDesc :: !Data.Text.Text,
                                   DeviceAttributes -> FieldSet
_DeviceAttributes'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (DeviceAttributes -> DeviceAttributes -> Bool
(DeviceAttributes -> DeviceAttributes -> Bool)
-> (DeviceAttributes -> DeviceAttributes -> Bool)
-> Eq DeviceAttributes
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeviceAttributes -> DeviceAttributes -> Bool
$c/= :: DeviceAttributes -> DeviceAttributes -> Bool
== :: DeviceAttributes -> DeviceAttributes -> Bool
$c== :: DeviceAttributes -> DeviceAttributes -> Bool
Prelude.Eq, Eq DeviceAttributes
Eq DeviceAttributes =>
(DeviceAttributes -> DeviceAttributes -> Ordering)
-> (DeviceAttributes -> DeviceAttributes -> Bool)
-> (DeviceAttributes -> DeviceAttributes -> Bool)
-> (DeviceAttributes -> DeviceAttributes -> Bool)
-> (DeviceAttributes -> DeviceAttributes -> Bool)
-> (DeviceAttributes -> DeviceAttributes -> DeviceAttributes)
-> (DeviceAttributes -> DeviceAttributes -> DeviceAttributes)
-> Ord DeviceAttributes
DeviceAttributes -> DeviceAttributes -> Bool
DeviceAttributes -> DeviceAttributes -> Ordering
DeviceAttributes -> DeviceAttributes -> DeviceAttributes
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 :: DeviceAttributes -> DeviceAttributes -> DeviceAttributes
$cmin :: DeviceAttributes -> DeviceAttributes -> DeviceAttributes
max :: DeviceAttributes -> DeviceAttributes -> DeviceAttributes
$cmax :: DeviceAttributes -> DeviceAttributes -> DeviceAttributes
>= :: DeviceAttributes -> DeviceAttributes -> Bool
$c>= :: DeviceAttributes -> DeviceAttributes -> Bool
> :: DeviceAttributes -> DeviceAttributes -> Bool
$c> :: DeviceAttributes -> DeviceAttributes -> Bool
<= :: DeviceAttributes -> DeviceAttributes -> Bool
$c<= :: DeviceAttributes -> DeviceAttributes -> Bool
< :: DeviceAttributes -> DeviceAttributes -> Bool
$c< :: DeviceAttributes -> DeviceAttributes -> Bool
compare :: DeviceAttributes -> DeviceAttributes -> Ordering
$ccompare :: DeviceAttributes -> DeviceAttributes -> Ordering
$cp1Ord :: Eq DeviceAttributes
Prelude.Ord)
instance Prelude.Show DeviceAttributes where
  showsPrec :: Int -> DeviceAttributes -> ShowS
showsPrec _ __x :: DeviceAttributes
__x __s :: String
__s
    = Char -> ShowS
Prelude.showChar
        '{'
        (String -> ShowS
Prelude.showString
           (DeviceAttributes -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort DeviceAttributes
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField DeviceAttributes "name" Data.Text.Text where
  fieldOf :: Proxy# "name"
-> (Text -> f Text) -> DeviceAttributes -> f DeviceAttributes
fieldOf _
    = ((Text -> f Text) -> DeviceAttributes -> f DeviceAttributes)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> DeviceAttributes
-> f DeviceAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DeviceAttributes -> Text)
-> (DeviceAttributes -> Text -> DeviceAttributes)
-> Lens DeviceAttributes DeviceAttributes Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DeviceAttributes -> Text
_DeviceAttributes'name
           (\ x__ :: DeviceAttributes
x__ y__ :: Text
y__ -> DeviceAttributes
x__ {_DeviceAttributes'name :: Text
_DeviceAttributes'name = Text
y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField DeviceAttributes "deviceType" Data.Text.Text where
  fieldOf :: Proxy# "deviceType"
-> (Text -> f Text) -> DeviceAttributes -> f DeviceAttributes
fieldOf _
    = ((Text -> f Text) -> DeviceAttributes -> f DeviceAttributes)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> DeviceAttributes
-> f DeviceAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DeviceAttributes -> Text)
-> (DeviceAttributes -> Text -> DeviceAttributes)
-> Lens DeviceAttributes DeviceAttributes Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DeviceAttributes -> Text
_DeviceAttributes'deviceType
           (\ x__ :: DeviceAttributes
x__ y__ :: Text
y__ -> DeviceAttributes
x__ {_DeviceAttributes'deviceType :: Text
_DeviceAttributes'deviceType = Text
y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField DeviceAttributes "memoryLimit" Data.Int.Int64 where
  fieldOf :: Proxy# "memoryLimit"
-> (Int64 -> f Int64) -> DeviceAttributes -> f DeviceAttributes
fieldOf _
    = ((Int64 -> f Int64) -> DeviceAttributes -> f DeviceAttributes)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> DeviceAttributes
-> f DeviceAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DeviceAttributes -> Int64)
-> (DeviceAttributes -> Int64 -> DeviceAttributes)
-> Lens DeviceAttributes DeviceAttributes Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DeviceAttributes -> Int64
_DeviceAttributes'memoryLimit
           (\ x__ :: DeviceAttributes
x__ y__ :: Int64
y__ -> DeviceAttributes
x__ {_DeviceAttributes'memoryLimit :: Int64
_DeviceAttributes'memoryLimit = Int64
y__}))
        (Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField DeviceAttributes "locality" DeviceLocality where
  fieldOf :: Proxy# "locality"
-> (DeviceLocality -> f DeviceLocality)
-> DeviceAttributes
-> f DeviceAttributes
fieldOf _
    = ((Maybe DeviceLocality -> f (Maybe DeviceLocality))
 -> DeviceAttributes -> f DeviceAttributes)
-> ((DeviceLocality -> f DeviceLocality)
    -> Maybe DeviceLocality -> f (Maybe DeviceLocality))
-> (DeviceLocality -> f DeviceLocality)
-> DeviceAttributes
-> f DeviceAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DeviceAttributes -> Maybe DeviceLocality)
-> (DeviceAttributes -> Maybe DeviceLocality -> DeviceAttributes)
-> Lens
     DeviceAttributes
     DeviceAttributes
     (Maybe DeviceLocality)
     (Maybe DeviceLocality)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DeviceAttributes -> Maybe DeviceLocality
_DeviceAttributes'locality
           (\ x__ :: DeviceAttributes
x__ y__ :: Maybe DeviceLocality
y__ -> DeviceAttributes
x__ {_DeviceAttributes'locality :: Maybe DeviceLocality
_DeviceAttributes'locality = Maybe DeviceLocality
y__}))
        (DeviceLocality -> Lens' (Maybe DeviceLocality) DeviceLocality
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens DeviceLocality
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField DeviceAttributes "maybe'locality" (Prelude.Maybe DeviceLocality) where
  fieldOf :: Proxy# "maybe'locality"
-> (Maybe DeviceLocality -> f (Maybe DeviceLocality))
-> DeviceAttributes
-> f DeviceAttributes
fieldOf _
    = ((Maybe DeviceLocality -> f (Maybe DeviceLocality))
 -> DeviceAttributes -> f DeviceAttributes)
-> ((Maybe DeviceLocality -> f (Maybe DeviceLocality))
    -> Maybe DeviceLocality -> f (Maybe DeviceLocality))
-> (Maybe DeviceLocality -> f (Maybe DeviceLocality))
-> DeviceAttributes
-> f DeviceAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DeviceAttributes -> Maybe DeviceLocality)
-> (DeviceAttributes -> Maybe DeviceLocality -> DeviceAttributes)
-> Lens
     DeviceAttributes
     DeviceAttributes
     (Maybe DeviceLocality)
     (Maybe DeviceLocality)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DeviceAttributes -> Maybe DeviceLocality
_DeviceAttributes'locality
           (\ x__ :: DeviceAttributes
x__ y__ :: Maybe DeviceLocality
y__ -> DeviceAttributes
x__ {_DeviceAttributes'locality :: Maybe DeviceLocality
_DeviceAttributes'locality = Maybe DeviceLocality
y__}))
        (Maybe DeviceLocality -> f (Maybe DeviceLocality))
-> Maybe DeviceLocality -> f (Maybe DeviceLocality)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField DeviceAttributes "incarnation" Data.Word.Word64 where
  fieldOf :: Proxy# "incarnation"
-> (Word64 -> f Word64) -> DeviceAttributes -> f DeviceAttributes
fieldOf _
    = ((Word64 -> f Word64) -> DeviceAttributes -> f DeviceAttributes)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> DeviceAttributes
-> f DeviceAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DeviceAttributes -> Word64)
-> (DeviceAttributes -> Word64 -> DeviceAttributes)
-> Lens DeviceAttributes DeviceAttributes Word64 Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DeviceAttributes -> Word64
_DeviceAttributes'incarnation
           (\ x__ :: DeviceAttributes
x__ y__ :: Word64
y__ -> DeviceAttributes
x__ {_DeviceAttributes'incarnation :: Word64
_DeviceAttributes'incarnation = Word64
y__}))
        (Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField DeviceAttributes "physicalDeviceDesc" Data.Text.Text where
  fieldOf :: Proxy# "physicalDeviceDesc"
-> (Text -> f Text) -> DeviceAttributes -> f DeviceAttributes
fieldOf _
    = ((Text -> f Text) -> DeviceAttributes -> f DeviceAttributes)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> DeviceAttributes
-> f DeviceAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DeviceAttributes -> Text)
-> (DeviceAttributes -> Text -> DeviceAttributes)
-> Lens DeviceAttributes DeviceAttributes Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DeviceAttributes -> Text
_DeviceAttributes'physicalDeviceDesc
           (\ x__ :: DeviceAttributes
x__ y__ :: Text
y__ -> DeviceAttributes
x__ {_DeviceAttributes'physicalDeviceDesc :: Text
_DeviceAttributes'physicalDeviceDesc = Text
y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message DeviceAttributes where
  messageName :: Proxy DeviceAttributes -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.DeviceAttributes"
  packedMessageDescriptor :: Proxy DeviceAttributes -> ByteString
packedMessageDescriptor _
    = "\n\
      \\DLEDeviceAttributes\DC2\DC2\n\
      \\EOTname\CAN\SOH \SOH(\tR\EOTname\DC2\US\n\
      \\vdevice_type\CAN\STX \SOH(\tR\n\
      \deviceType\DC2!\n\
      \\fmemory_limit\CAN\EOT \SOH(\ETXR\vmemoryLimit\DC26\n\
      \\blocality\CAN\ENQ \SOH(\v2\SUB.tensorflow.DeviceLocalityR\blocality\DC2 \n\
      \\vincarnation\CAN\ACK \SOH(\ACKR\vincarnation\DC20\n\
      \\DC4physical_device_desc\CAN\a \SOH(\tR\DC2physicalDeviceDesc"
  packedFileDescriptor :: Proxy DeviceAttributes -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor DeviceAttributes)
fieldsByTag
    = let
        name__field_descriptor :: FieldDescriptor DeviceAttributes
name__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor DeviceAttributes Text
-> FieldDescriptor DeviceAttributes
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "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 DeviceAttributes DeviceAttributes Text Text
-> FieldAccessor DeviceAttributes 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 "name" 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 @"name")) ::
              Data.ProtoLens.FieldDescriptor DeviceAttributes
        deviceType__field_descriptor :: FieldDescriptor DeviceAttributes
deviceType__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor DeviceAttributes Text
-> FieldDescriptor DeviceAttributes
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "device_type"
              (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 DeviceAttributes DeviceAttributes Text Text
-> FieldAccessor DeviceAttributes 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 "deviceType" 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 @"deviceType")) ::
              Data.ProtoLens.FieldDescriptor DeviceAttributes
        memoryLimit__field_descriptor :: FieldDescriptor DeviceAttributes
memoryLimit__field_descriptor
          = String
-> FieldTypeDescriptor Int64
-> FieldAccessor DeviceAttributes Int64
-> FieldDescriptor DeviceAttributes
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "memory_limit"
              (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 DeviceAttributes DeviceAttributes Int64 Int64
-> FieldAccessor DeviceAttributes 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 "memoryLimit" 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 @"memoryLimit")) ::
              Data.ProtoLens.FieldDescriptor DeviceAttributes
        locality__field_descriptor :: FieldDescriptor DeviceAttributes
locality__field_descriptor
          = String
-> FieldTypeDescriptor DeviceLocality
-> FieldAccessor DeviceAttributes DeviceLocality
-> FieldDescriptor DeviceAttributes
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "locality"
              (MessageOrGroup -> FieldTypeDescriptor DeviceLocality
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor DeviceLocality)
              (Lens
  DeviceAttributes
  DeviceAttributes
  (Maybe DeviceLocality)
  (Maybe DeviceLocality)
-> FieldAccessor DeviceAttributes DeviceLocality
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'locality" 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 @"maybe'locality")) ::
              Data.ProtoLens.FieldDescriptor DeviceAttributes
        incarnation__field_descriptor :: FieldDescriptor DeviceAttributes
incarnation__field_descriptor
          = String
-> FieldTypeDescriptor Word64
-> FieldAccessor DeviceAttributes Word64
-> FieldDescriptor DeviceAttributes
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "incarnation"
              (ScalarField Word64 -> FieldTypeDescriptor Word64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Word64
Data.ProtoLens.Fixed64Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
              (WireDefault Word64
-> Lens DeviceAttributes DeviceAttributes Word64 Word64
-> FieldAccessor DeviceAttributes 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 "incarnation" 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 @"incarnation")) ::
              Data.ProtoLens.FieldDescriptor DeviceAttributes
        physicalDeviceDesc__field_descriptor :: FieldDescriptor DeviceAttributes
physicalDeviceDesc__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor DeviceAttributes Text
-> FieldDescriptor DeviceAttributes
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "physical_device_desc"
              (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 DeviceAttributes DeviceAttributes Text Text
-> FieldAccessor DeviceAttributes 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 "physicalDeviceDesc" 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 @"physicalDeviceDesc")) ::
              Data.ProtoLens.FieldDescriptor DeviceAttributes
      in
        [(Tag, FieldDescriptor DeviceAttributes)]
-> Map Tag (FieldDescriptor DeviceAttributes)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor DeviceAttributes
name__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor DeviceAttributes
deviceType__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 4, FieldDescriptor DeviceAttributes
memoryLimit__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 5, FieldDescriptor DeviceAttributes
locality__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 6, FieldDescriptor DeviceAttributes
incarnation__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 7, FieldDescriptor DeviceAttributes
physicalDeviceDesc__field_descriptor)]
  unknownFields :: LensLike' f DeviceAttributes FieldSet
unknownFields
    = (DeviceAttributes -> FieldSet)
-> (DeviceAttributes -> FieldSet -> DeviceAttributes)
-> Lens' DeviceAttributes FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        DeviceAttributes -> FieldSet
_DeviceAttributes'_unknownFields
        (\ x__ :: DeviceAttributes
x__ y__ :: FieldSet
y__ -> DeviceAttributes
x__ {_DeviceAttributes'_unknownFields :: FieldSet
_DeviceAttributes'_unknownFields = FieldSet
y__})
  defMessage :: DeviceAttributes
defMessage
    = $WDeviceAttributes'_constructor :: Text
-> Text
-> Int64
-> Maybe DeviceLocality
-> Word64
-> Text
-> FieldSet
-> DeviceAttributes
DeviceAttributes'_constructor
        {_DeviceAttributes'name :: Text
_DeviceAttributes'name = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _DeviceAttributes'deviceType :: Text
_DeviceAttributes'deviceType = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _DeviceAttributes'memoryLimit :: Int64
_DeviceAttributes'memoryLimit = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _DeviceAttributes'locality :: Maybe DeviceLocality
_DeviceAttributes'locality = Maybe DeviceLocality
forall a. Maybe a
Prelude.Nothing,
         _DeviceAttributes'incarnation :: Word64
_DeviceAttributes'incarnation = Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _DeviceAttributes'physicalDeviceDesc :: Text
_DeviceAttributes'physicalDeviceDesc = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _DeviceAttributes'_unknownFields :: FieldSet
_DeviceAttributes'_unknownFields = []}
  parseMessage :: Parser DeviceAttributes
parseMessage
    = let
        loop ::
          DeviceAttributes
          -> Data.ProtoLens.Encoding.Bytes.Parser DeviceAttributes
        loop :: DeviceAttributes -> Parser DeviceAttributes
loop x :: DeviceAttributes
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]))))
                      DeviceAttributes -> Parser DeviceAttributes
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter DeviceAttributes DeviceAttributes FieldSet FieldSet
-> (FieldSet -> FieldSet) -> DeviceAttributes -> DeviceAttributes
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 DeviceAttributes DeviceAttributes FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) DeviceAttributes
x)
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        10
                          -> 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))
                                       "name"
                                DeviceAttributes -> Parser DeviceAttributes
loop (Setter DeviceAttributes DeviceAttributes Text Text
-> Text -> DeviceAttributes -> DeviceAttributes
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "name" 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 @"name") Text
y DeviceAttributes
x)
                        18
                          -> 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))
                                       "device_type"
                                DeviceAttributes -> Parser DeviceAttributes
loop
                                  (Setter DeviceAttributes DeviceAttributes Text Text
-> Text -> DeviceAttributes -> DeviceAttributes
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "deviceType" 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 @"deviceType") Text
y DeviceAttributes
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)
                                       "memory_limit"
                                DeviceAttributes -> Parser DeviceAttributes
loop
                                  (Setter DeviceAttributes DeviceAttributes Int64 Int64
-> Int64 -> DeviceAttributes -> DeviceAttributes
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "memoryLimit" 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 @"memoryLimit") Int64
y DeviceAttributes
x)
                        42
                          -> do DeviceLocality
y <- Parser DeviceLocality -> String -> Parser DeviceLocality
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser DeviceLocality -> Parser DeviceLocality
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser DeviceLocality
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       "locality"
                                DeviceAttributes -> Parser DeviceAttributes
loop
                                  (Setter
  DeviceAttributes DeviceAttributes DeviceLocality DeviceLocality
-> DeviceLocality -> DeviceAttributes -> DeviceAttributes
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "locality" 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 @"locality") DeviceLocality
y DeviceAttributes
x)
                        49
                          -> 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.getFixed64 "incarnation"
                                DeviceAttributes -> Parser DeviceAttributes
loop
                                  (Setter DeviceAttributes DeviceAttributes Word64 Word64
-> Word64 -> DeviceAttributes -> DeviceAttributes
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "incarnation" 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 @"incarnation") Word64
y DeviceAttributes
x)
                        58
                          -> 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))
                                       "physical_device_desc"
                                DeviceAttributes -> Parser DeviceAttributes
loop
                                  (Setter DeviceAttributes DeviceAttributes Text Text
-> Text -> DeviceAttributes -> DeviceAttributes
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                     (forall s a (f :: * -> *).
(HasField s "physicalDeviceDesc" 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 @"physicalDeviceDesc") Text
y DeviceAttributes
x)
                        wire :: Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                DeviceAttributes -> Parser DeviceAttributes
loop
                                  (Setter DeviceAttributes DeviceAttributes FieldSet FieldSet
-> (FieldSet -> FieldSet) -> DeviceAttributes -> DeviceAttributes
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 DeviceAttributes DeviceAttributes FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) DeviceAttributes
x)
      in
        Parser DeviceAttributes -> String -> Parser DeviceAttributes
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do DeviceAttributes -> Parser DeviceAttributes
loop DeviceAttributes
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "DeviceAttributes"
  buildMessage :: DeviceAttributes -> Builder
buildMessage
    = \ _x :: DeviceAttributes
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: Text
_v = FoldLike Text DeviceAttributes DeviceAttributes Text Text
-> DeviceAttributes -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "name" 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 @"name") DeviceAttributes
_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 10)
                      ((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 :: Text
_v
                     = FoldLike Text DeviceAttributes DeviceAttributes Text Text
-> DeviceAttributes -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "deviceType" 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 @"deviceType") DeviceAttributes
_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 18)
                         ((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 DeviceAttributes DeviceAttributes Int64 Int64
-> DeviceAttributes -> Int64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "memoryLimit" 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 @"memoryLimit") DeviceAttributes
_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.<>)
                      (case
                           FoldLike
  (Maybe DeviceLocality)
  DeviceAttributes
  DeviceAttributes
  (Maybe DeviceLocality)
  (Maybe DeviceLocality)
-> DeviceAttributes -> Maybe DeviceLocality
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "maybe'locality" 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 @"maybe'locality") DeviceAttributes
_x
                       of
                         Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                         (Prelude.Just _v :: DeviceLocality
_v)
                           -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 42)
                                ((ByteString -> Builder)
-> (DeviceLocality -> ByteString) -> DeviceLocality -> 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))
                                   DeviceLocality -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                                   DeviceLocality
_v))
                      (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                         (let
                            _v :: Word64
_v
                              = FoldLike Word64 DeviceAttributes DeviceAttributes Word64 Word64
-> DeviceAttributes -> Word64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "incarnation" 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 @"incarnation") DeviceAttributes
_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 49)
                                  (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putFixed64 Word64
_v))
                         (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                            (let
                               _v :: Text
_v
                                 = FoldLike Text DeviceAttributes DeviceAttributes Text Text
-> DeviceAttributes -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                     (forall s a (f :: * -> *).
(HasField s "physicalDeviceDesc" 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 @"physicalDeviceDesc") DeviceAttributes
_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 58)
                                     ((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))
                            (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                               (FoldLike
  FieldSet DeviceAttributes DeviceAttributes FieldSet FieldSet
-> DeviceAttributes -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet DeviceAttributes DeviceAttributes FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields DeviceAttributes
_x)))))))
instance Control.DeepSeq.NFData DeviceAttributes where
  rnf :: DeviceAttributes -> ()
rnf
    = \ x__ :: DeviceAttributes
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (DeviceAttributes -> FieldSet
_DeviceAttributes'_unknownFields DeviceAttributes
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (DeviceAttributes -> Text
_DeviceAttributes'name DeviceAttributes
x__)
                (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (DeviceAttributes -> Text
_DeviceAttributes'deviceType DeviceAttributes
x__)
                   (Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                      (DeviceAttributes -> Int64
_DeviceAttributes'memoryLimit DeviceAttributes
x__)
                      (Maybe DeviceLocality -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                         (DeviceAttributes -> Maybe DeviceLocality
_DeviceAttributes'locality DeviceAttributes
x__)
                         (Word64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                            (DeviceAttributes -> Word64
_DeviceAttributes'incarnation DeviceAttributes
x__)
                            (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                               (DeviceAttributes -> Text
_DeviceAttributes'physicalDeviceDesc DeviceAttributes
x__) ()))))))
{- | Fields :
     
         * 'Proto.Tensorflow.Core.Framework.DeviceAttributes_Fields.busId' @:: Lens' DeviceLocality Data.Int.Int32@
         * 'Proto.Tensorflow.Core.Framework.DeviceAttributes_Fields.numaNode' @:: Lens' DeviceLocality Data.Int.Int32@
         * 'Proto.Tensorflow.Core.Framework.DeviceAttributes_Fields.links' @:: Lens' DeviceLocality LocalLinks@
         * 'Proto.Tensorflow.Core.Framework.DeviceAttributes_Fields.maybe'links' @:: Lens' DeviceLocality (Prelude.Maybe LocalLinks)@ -}
data DeviceLocality
  = DeviceLocality'_constructor {DeviceLocality -> Int32
_DeviceLocality'busId :: !Data.Int.Int32,
                                 DeviceLocality -> Int32
_DeviceLocality'numaNode :: !Data.Int.Int32,
                                 DeviceLocality -> Maybe LocalLinks
_DeviceLocality'links :: !(Prelude.Maybe LocalLinks),
                                 DeviceLocality -> FieldSet
_DeviceLocality'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (DeviceLocality -> DeviceLocality -> Bool
(DeviceLocality -> DeviceLocality -> Bool)
-> (DeviceLocality -> DeviceLocality -> Bool) -> Eq DeviceLocality
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeviceLocality -> DeviceLocality -> Bool
$c/= :: DeviceLocality -> DeviceLocality -> Bool
== :: DeviceLocality -> DeviceLocality -> Bool
$c== :: DeviceLocality -> DeviceLocality -> Bool
Prelude.Eq, Eq DeviceLocality
Eq DeviceLocality =>
(DeviceLocality -> DeviceLocality -> Ordering)
-> (DeviceLocality -> DeviceLocality -> Bool)
-> (DeviceLocality -> DeviceLocality -> Bool)
-> (DeviceLocality -> DeviceLocality -> Bool)
-> (DeviceLocality -> DeviceLocality -> Bool)
-> (DeviceLocality -> DeviceLocality -> DeviceLocality)
-> (DeviceLocality -> DeviceLocality -> DeviceLocality)
-> Ord DeviceLocality
DeviceLocality -> DeviceLocality -> Bool
DeviceLocality -> DeviceLocality -> Ordering
DeviceLocality -> DeviceLocality -> DeviceLocality
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 :: DeviceLocality -> DeviceLocality -> DeviceLocality
$cmin :: DeviceLocality -> DeviceLocality -> DeviceLocality
max :: DeviceLocality -> DeviceLocality -> DeviceLocality
$cmax :: DeviceLocality -> DeviceLocality -> DeviceLocality
>= :: DeviceLocality -> DeviceLocality -> Bool
$c>= :: DeviceLocality -> DeviceLocality -> Bool
> :: DeviceLocality -> DeviceLocality -> Bool
$c> :: DeviceLocality -> DeviceLocality -> Bool
<= :: DeviceLocality -> DeviceLocality -> Bool
$c<= :: DeviceLocality -> DeviceLocality -> Bool
< :: DeviceLocality -> DeviceLocality -> Bool
$c< :: DeviceLocality -> DeviceLocality -> Bool
compare :: DeviceLocality -> DeviceLocality -> Ordering
$ccompare :: DeviceLocality -> DeviceLocality -> Ordering
$cp1Ord :: Eq DeviceLocality
Prelude.Ord)
instance Prelude.Show DeviceLocality where
  showsPrec :: Int -> DeviceLocality -> ShowS
showsPrec _ __x :: DeviceLocality
__x __s :: String
__s
    = Char -> ShowS
Prelude.showChar
        '{'
        (String -> ShowS
Prelude.showString
           (DeviceLocality -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort DeviceLocality
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField DeviceLocality "busId" Data.Int.Int32 where
  fieldOf :: Proxy# "busId"
-> (Int32 -> f Int32) -> DeviceLocality -> f DeviceLocality
fieldOf _
    = ((Int32 -> f Int32) -> DeviceLocality -> f DeviceLocality)
-> ((Int32 -> f Int32) -> Int32 -> f Int32)
-> (Int32 -> f Int32)
-> DeviceLocality
-> f DeviceLocality
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DeviceLocality -> Int32)
-> (DeviceLocality -> Int32 -> DeviceLocality)
-> Lens DeviceLocality DeviceLocality Int32 Int32
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DeviceLocality -> Int32
_DeviceLocality'busId
           (\ x__ :: DeviceLocality
x__ y__ :: Int32
y__ -> DeviceLocality
x__ {_DeviceLocality'busId :: Int32
_DeviceLocality'busId = Int32
y__}))
        (Int32 -> f Int32) -> Int32 -> f Int32
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField DeviceLocality "numaNode" Data.Int.Int32 where
  fieldOf :: Proxy# "numaNode"
-> (Int32 -> f Int32) -> DeviceLocality -> f DeviceLocality
fieldOf _
    = ((Int32 -> f Int32) -> DeviceLocality -> f DeviceLocality)
-> ((Int32 -> f Int32) -> Int32 -> f Int32)
-> (Int32 -> f Int32)
-> DeviceLocality
-> f DeviceLocality
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DeviceLocality -> Int32)
-> (DeviceLocality -> Int32 -> DeviceLocality)
-> Lens DeviceLocality DeviceLocality Int32 Int32
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DeviceLocality -> Int32
_DeviceLocality'numaNode
           (\ x__ :: DeviceLocality
x__ y__ :: Int32
y__ -> DeviceLocality
x__ {_DeviceLocality'numaNode :: Int32
_DeviceLocality'numaNode = Int32
y__}))
        (Int32 -> f Int32) -> Int32 -> f Int32
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField DeviceLocality "links" LocalLinks where
  fieldOf :: Proxy# "links"
-> (LocalLinks -> f LocalLinks)
-> DeviceLocality
-> f DeviceLocality
fieldOf _
    = ((Maybe LocalLinks -> f (Maybe LocalLinks))
 -> DeviceLocality -> f DeviceLocality)
-> ((LocalLinks -> f LocalLinks)
    -> Maybe LocalLinks -> f (Maybe LocalLinks))
-> (LocalLinks -> f LocalLinks)
-> DeviceLocality
-> f DeviceLocality
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DeviceLocality -> Maybe LocalLinks)
-> (DeviceLocality -> Maybe LocalLinks -> DeviceLocality)
-> Lens
     DeviceLocality DeviceLocality (Maybe LocalLinks) (Maybe LocalLinks)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DeviceLocality -> Maybe LocalLinks
_DeviceLocality'links
           (\ x__ :: DeviceLocality
x__ y__ :: Maybe LocalLinks
y__ -> DeviceLocality
x__ {_DeviceLocality'links :: Maybe LocalLinks
_DeviceLocality'links = Maybe LocalLinks
y__}))
        (LocalLinks -> Lens' (Maybe LocalLinks) LocalLinks
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens LocalLinks
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField DeviceLocality "maybe'links" (Prelude.Maybe LocalLinks) where
  fieldOf :: Proxy# "maybe'links"
-> (Maybe LocalLinks -> f (Maybe LocalLinks))
-> DeviceLocality
-> f DeviceLocality
fieldOf _
    = ((Maybe LocalLinks -> f (Maybe LocalLinks))
 -> DeviceLocality -> f DeviceLocality)
-> ((Maybe LocalLinks -> f (Maybe LocalLinks))
    -> Maybe LocalLinks -> f (Maybe LocalLinks))
-> (Maybe LocalLinks -> f (Maybe LocalLinks))
-> DeviceLocality
-> f DeviceLocality
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DeviceLocality -> Maybe LocalLinks)
-> (DeviceLocality -> Maybe LocalLinks -> DeviceLocality)
-> Lens
     DeviceLocality DeviceLocality (Maybe LocalLinks) (Maybe LocalLinks)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DeviceLocality -> Maybe LocalLinks
_DeviceLocality'links
           (\ x__ :: DeviceLocality
x__ y__ :: Maybe LocalLinks
y__ -> DeviceLocality
x__ {_DeviceLocality'links :: Maybe LocalLinks
_DeviceLocality'links = Maybe LocalLinks
y__}))
        (Maybe LocalLinks -> f (Maybe LocalLinks))
-> Maybe LocalLinks -> f (Maybe LocalLinks)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message DeviceLocality where
  messageName :: Proxy DeviceLocality -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.DeviceLocality"
  packedMessageDescriptor :: Proxy DeviceLocality -> ByteString
packedMessageDescriptor _
    = "\n\
      \\SODeviceLocality\DC2\NAK\n\
      \\ACKbus_id\CAN\SOH \SOH(\ENQR\ENQbusId\DC2\ESC\n\
      \\tnuma_node\CAN\STX \SOH(\ENQR\bnumaNode\DC2,\n\
      \\ENQlinks\CAN\ETX \SOH(\v2\SYN.tensorflow.LocalLinksR\ENQlinks"
  packedFileDescriptor :: Proxy DeviceLocality -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor DeviceLocality)
fieldsByTag
    = let
        busId__field_descriptor :: FieldDescriptor DeviceLocality
busId__field_descriptor
          = String
-> FieldTypeDescriptor Int32
-> FieldAccessor DeviceLocality Int32
-> FieldDescriptor DeviceLocality
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "bus_id"
              (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 DeviceLocality DeviceLocality Int32 Int32
-> FieldAccessor DeviceLocality 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 s a (f :: * -> *).
(HasField s "busId" 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 @"busId")) ::
              Data.ProtoLens.FieldDescriptor DeviceLocality
        numaNode__field_descriptor :: FieldDescriptor DeviceLocality
numaNode__field_descriptor
          = String
-> FieldTypeDescriptor Int32
-> FieldAccessor DeviceLocality Int32
-> FieldDescriptor DeviceLocality
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "numa_node"
              (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 DeviceLocality DeviceLocality Int32 Int32
-> FieldAccessor DeviceLocality 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 s a (f :: * -> *).
(HasField s "numaNode" 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 @"numaNode")) ::
              Data.ProtoLens.FieldDescriptor DeviceLocality
        links__field_descriptor :: FieldDescriptor DeviceLocality
links__field_descriptor
          = String
-> FieldTypeDescriptor LocalLinks
-> FieldAccessor DeviceLocality LocalLinks
-> FieldDescriptor DeviceLocality
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "links"
              (MessageOrGroup -> FieldTypeDescriptor LocalLinks
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor LocalLinks)
              (Lens
  DeviceLocality DeviceLocality (Maybe LocalLinks) (Maybe LocalLinks)
-> FieldAccessor DeviceLocality LocalLinks
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'links" 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 @"maybe'links")) ::
              Data.ProtoLens.FieldDescriptor DeviceLocality
      in
        [(Tag, FieldDescriptor DeviceLocality)]
-> Map Tag (FieldDescriptor DeviceLocality)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor DeviceLocality
busId__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor DeviceLocality
numaNode__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 3, FieldDescriptor DeviceLocality
links__field_descriptor)]
  unknownFields :: LensLike' f DeviceLocality FieldSet
unknownFields
    = (DeviceLocality -> FieldSet)
-> (DeviceLocality -> FieldSet -> DeviceLocality)
-> Lens' DeviceLocality FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        DeviceLocality -> FieldSet
_DeviceLocality'_unknownFields
        (\ x__ :: DeviceLocality
x__ y__ :: FieldSet
y__ -> DeviceLocality
x__ {_DeviceLocality'_unknownFields :: FieldSet
_DeviceLocality'_unknownFields = FieldSet
y__})
  defMessage :: DeviceLocality
defMessage
    = $WDeviceLocality'_constructor :: Int32 -> Int32 -> Maybe LocalLinks -> FieldSet -> DeviceLocality
DeviceLocality'_constructor
        {_DeviceLocality'busId :: Int32
_DeviceLocality'busId = Int32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _DeviceLocality'numaNode :: Int32
_DeviceLocality'numaNode = Int32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _DeviceLocality'links :: Maybe LocalLinks
_DeviceLocality'links = Maybe LocalLinks
forall a. Maybe a
Prelude.Nothing,
         _DeviceLocality'_unknownFields :: FieldSet
_DeviceLocality'_unknownFields = []}
  parseMessage :: Parser DeviceLocality
parseMessage
    = let
        loop ::
          DeviceLocality
          -> Data.ProtoLens.Encoding.Bytes.Parser DeviceLocality
        loop :: DeviceLocality -> Parser DeviceLocality
loop x :: DeviceLocality
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]))))
                      DeviceLocality -> Parser DeviceLocality
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter DeviceLocality DeviceLocality FieldSet FieldSet
-> (FieldSet -> FieldSet) -> DeviceLocality -> DeviceLocality
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 DeviceLocality DeviceLocality FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) DeviceLocality
x)
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        8 -> do Int32
y <- Parser Int32 -> String -> Parser Int32
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Int32) -> Parser Word64 -> Parser Int32
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)
                                       "bus_id"
                                DeviceLocality -> Parser DeviceLocality
loop (Setter DeviceLocality DeviceLocality Int32 Int32
-> Int32 -> DeviceLocality -> DeviceLocality
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "busId" 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 @"busId") Int32
y DeviceLocality
x)
                        16
                          -> do Int32
y <- Parser Int32 -> String -> Parser Int32
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Int32) -> Parser Word64 -> Parser Int32
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)
                                       "numa_node"
                                DeviceLocality -> Parser DeviceLocality
loop
                                  (Setter DeviceLocality DeviceLocality Int32 Int32
-> Int32 -> DeviceLocality -> DeviceLocality
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "numaNode" 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 @"numaNode") Int32
y DeviceLocality
x)
                        26
                          -> do LocalLinks
y <- Parser LocalLinks -> String -> Parser LocalLinks
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser LocalLinks -> Parser LocalLinks
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser LocalLinks
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       "links"
                                DeviceLocality -> Parser DeviceLocality
loop (Setter DeviceLocality DeviceLocality LocalLinks LocalLinks
-> LocalLinks -> DeviceLocality -> DeviceLocality
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "links" 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 @"links") LocalLinks
y DeviceLocality
x)
                        wire :: Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                DeviceLocality -> Parser DeviceLocality
loop
                                  (Setter DeviceLocality DeviceLocality FieldSet FieldSet
-> (FieldSet -> FieldSet) -> DeviceLocality -> DeviceLocality
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 DeviceLocality DeviceLocality FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) DeviceLocality
x)
      in
        Parser DeviceLocality -> String -> Parser DeviceLocality
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do DeviceLocality -> Parser DeviceLocality
loop DeviceLocality
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "DeviceLocality"
  buildMessage :: DeviceLocality -> Builder
buildMessage
    = \ _x :: DeviceLocality
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: Int32
_v = FoldLike Int32 DeviceLocality DeviceLocality Int32 Int32
-> DeviceLocality -> Int32
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "busId" 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 @"busId") DeviceLocality
_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 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 :: Int32
_v = FoldLike Int32 DeviceLocality DeviceLocality Int32 Int32
-> DeviceLocality -> Int32
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "numaNode" 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 @"numaNode") DeviceLocality
_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 16)
                         ((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.<>)
                   (case
                        FoldLike
  (Maybe LocalLinks)
  DeviceLocality
  DeviceLocality
  (Maybe LocalLinks)
  (Maybe LocalLinks)
-> DeviceLocality -> Maybe LocalLinks
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "maybe'links" 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 @"maybe'links") DeviceLocality
_x
                    of
                      Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                      (Prelude.Just _v :: LocalLinks
_v)
                        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                             (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 26)
                             ((ByteString -> Builder)
-> (LocalLinks -> ByteString) -> LocalLinks -> 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))
                                LocalLinks -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                                LocalLinks
_v))
                   (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                      (FoldLike FieldSet DeviceLocality DeviceLocality FieldSet FieldSet
-> DeviceLocality -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet DeviceLocality DeviceLocality FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields DeviceLocality
_x))))
instance Control.DeepSeq.NFData DeviceLocality where
  rnf :: DeviceLocality -> ()
rnf
    = \ x__ :: DeviceLocality
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (DeviceLocality -> FieldSet
_DeviceLocality'_unknownFields DeviceLocality
x__)
             (Int32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (DeviceLocality -> Int32
_DeviceLocality'busId DeviceLocality
x__)
                (Int32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (DeviceLocality -> Int32
_DeviceLocality'numaNode DeviceLocality
x__)
                   (Maybe LocalLinks -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (DeviceLocality -> Maybe LocalLinks
_DeviceLocality'links DeviceLocality
x__) ())))
{- | Fields :
     
         * 'Proto.Tensorflow.Core.Framework.DeviceAttributes_Fields.deviceId' @:: Lens' InterconnectLink Data.Int.Int32@
         * 'Proto.Tensorflow.Core.Framework.DeviceAttributes_Fields.type'' @:: Lens' InterconnectLink Data.Text.Text@
         * 'Proto.Tensorflow.Core.Framework.DeviceAttributes_Fields.strength' @:: Lens' InterconnectLink Data.Int.Int32@ -}
data InterconnectLink
  = InterconnectLink'_constructor {InterconnectLink -> Int32
_InterconnectLink'deviceId :: !Data.Int.Int32,
                                   InterconnectLink -> Text
_InterconnectLink'type' :: !Data.Text.Text,
                                   InterconnectLink -> Int32
_InterconnectLink'strength :: !Data.Int.Int32,
                                   InterconnectLink -> FieldSet
_InterconnectLink'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (InterconnectLink -> InterconnectLink -> Bool
(InterconnectLink -> InterconnectLink -> Bool)
-> (InterconnectLink -> InterconnectLink -> Bool)
-> Eq InterconnectLink
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: InterconnectLink -> InterconnectLink -> Bool
$c/= :: InterconnectLink -> InterconnectLink -> Bool
== :: InterconnectLink -> InterconnectLink -> Bool
$c== :: InterconnectLink -> InterconnectLink -> Bool
Prelude.Eq, Eq InterconnectLink
Eq InterconnectLink =>
(InterconnectLink -> InterconnectLink -> Ordering)
-> (InterconnectLink -> InterconnectLink -> Bool)
-> (InterconnectLink -> InterconnectLink -> Bool)
-> (InterconnectLink -> InterconnectLink -> Bool)
-> (InterconnectLink -> InterconnectLink -> Bool)
-> (InterconnectLink -> InterconnectLink -> InterconnectLink)
-> (InterconnectLink -> InterconnectLink -> InterconnectLink)
-> Ord InterconnectLink
InterconnectLink -> InterconnectLink -> Bool
InterconnectLink -> InterconnectLink -> Ordering
InterconnectLink -> InterconnectLink -> InterconnectLink
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 :: InterconnectLink -> InterconnectLink -> InterconnectLink
$cmin :: InterconnectLink -> InterconnectLink -> InterconnectLink
max :: InterconnectLink -> InterconnectLink -> InterconnectLink
$cmax :: InterconnectLink -> InterconnectLink -> InterconnectLink
>= :: InterconnectLink -> InterconnectLink -> Bool
$c>= :: InterconnectLink -> InterconnectLink -> Bool
> :: InterconnectLink -> InterconnectLink -> Bool
$c> :: InterconnectLink -> InterconnectLink -> Bool
<= :: InterconnectLink -> InterconnectLink -> Bool
$c<= :: InterconnectLink -> InterconnectLink -> Bool
< :: InterconnectLink -> InterconnectLink -> Bool
$c< :: InterconnectLink -> InterconnectLink -> Bool
compare :: InterconnectLink -> InterconnectLink -> Ordering
$ccompare :: InterconnectLink -> InterconnectLink -> Ordering
$cp1Ord :: Eq InterconnectLink
Prelude.Ord)
instance Prelude.Show InterconnectLink where
  showsPrec :: Int -> InterconnectLink -> ShowS
showsPrec _ __x :: InterconnectLink
__x __s :: String
__s
    = Char -> ShowS
Prelude.showChar
        '{'
        (String -> ShowS
Prelude.showString
           (InterconnectLink -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort InterconnectLink
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField InterconnectLink "deviceId" Data.Int.Int32 where
  fieldOf :: Proxy# "deviceId"
-> (Int32 -> f Int32) -> InterconnectLink -> f InterconnectLink
fieldOf _
    = ((Int32 -> f Int32) -> InterconnectLink -> f InterconnectLink)
-> ((Int32 -> f Int32) -> Int32 -> f Int32)
-> (Int32 -> f Int32)
-> InterconnectLink
-> f InterconnectLink
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((InterconnectLink -> Int32)
-> (InterconnectLink -> Int32 -> InterconnectLink)
-> Lens InterconnectLink InterconnectLink Int32 Int32
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           InterconnectLink -> Int32
_InterconnectLink'deviceId
           (\ x__ :: InterconnectLink
x__ y__ :: Int32
y__ -> InterconnectLink
x__ {_InterconnectLink'deviceId :: Int32
_InterconnectLink'deviceId = Int32
y__}))
        (Int32 -> f Int32) -> Int32 -> f Int32
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField InterconnectLink "type'" Data.Text.Text where
  fieldOf :: Proxy# "type'"
-> (Text -> f Text) -> InterconnectLink -> f InterconnectLink
fieldOf _
    = ((Text -> f Text) -> InterconnectLink -> f InterconnectLink)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> InterconnectLink
-> f InterconnectLink
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((InterconnectLink -> Text)
-> (InterconnectLink -> Text -> InterconnectLink)
-> Lens InterconnectLink InterconnectLink Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           InterconnectLink -> Text
_InterconnectLink'type'
           (\ x__ :: InterconnectLink
x__ y__ :: Text
y__ -> InterconnectLink
x__ {_InterconnectLink'type' :: Text
_InterconnectLink'type' = Text
y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField InterconnectLink "strength" Data.Int.Int32 where
  fieldOf :: Proxy# "strength"
-> (Int32 -> f Int32) -> InterconnectLink -> f InterconnectLink
fieldOf _
    = ((Int32 -> f Int32) -> InterconnectLink -> f InterconnectLink)
-> ((Int32 -> f Int32) -> Int32 -> f Int32)
-> (Int32 -> f Int32)
-> InterconnectLink
-> f InterconnectLink
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((InterconnectLink -> Int32)
-> (InterconnectLink -> Int32 -> InterconnectLink)
-> Lens InterconnectLink InterconnectLink Int32 Int32
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           InterconnectLink -> Int32
_InterconnectLink'strength
           (\ x__ :: InterconnectLink
x__ y__ :: Int32
y__ -> InterconnectLink
x__ {_InterconnectLink'strength :: Int32
_InterconnectLink'strength = Int32
y__}))
        (Int32 -> f Int32) -> Int32 -> f Int32
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message InterconnectLink where
  messageName :: Proxy InterconnectLink -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.InterconnectLink"
  packedMessageDescriptor :: Proxy InterconnectLink -> ByteString
packedMessageDescriptor _
    = "\n\
      \\DLEInterconnectLink\DC2\ESC\n\
      \\tdevice_id\CAN\SOH \SOH(\ENQR\bdeviceId\DC2\DC2\n\
      \\EOTtype\CAN\STX \SOH(\tR\EOTtype\DC2\SUB\n\
      \\bstrength\CAN\ETX \SOH(\ENQR\bstrength"
  packedFileDescriptor :: Proxy InterconnectLink -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor InterconnectLink)
fieldsByTag
    = let
        deviceId__field_descriptor :: FieldDescriptor InterconnectLink
deviceId__field_descriptor
          = String
-> FieldTypeDescriptor Int32
-> FieldAccessor InterconnectLink Int32
-> FieldDescriptor InterconnectLink
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "device_id"
              (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 InterconnectLink InterconnectLink Int32 Int32
-> FieldAccessor InterconnectLink 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 s a (f :: * -> *).
(HasField s "deviceId" 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 @"deviceId")) ::
              Data.ProtoLens.FieldDescriptor InterconnectLink
        type'__field_descriptor :: FieldDescriptor InterconnectLink
type'__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor InterconnectLink Text
-> FieldDescriptor InterconnectLink
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "type"
              (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 InterconnectLink InterconnectLink Text Text
-> FieldAccessor InterconnectLink 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 "type'" 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 @"type'")) ::
              Data.ProtoLens.FieldDescriptor InterconnectLink
        strength__field_descriptor :: FieldDescriptor InterconnectLink
strength__field_descriptor
          = String
-> FieldTypeDescriptor Int32
-> FieldAccessor InterconnectLink Int32
-> FieldDescriptor InterconnectLink
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "strength"
              (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 InterconnectLink InterconnectLink Int32 Int32
-> FieldAccessor InterconnectLink 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 s a (f :: * -> *).
(HasField s "strength" 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 @"strength")) ::
              Data.ProtoLens.FieldDescriptor InterconnectLink
      in
        [(Tag, FieldDescriptor InterconnectLink)]
-> Map Tag (FieldDescriptor InterconnectLink)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor InterconnectLink
deviceId__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor InterconnectLink
type'__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 3, FieldDescriptor InterconnectLink
strength__field_descriptor)]
  unknownFields :: LensLike' f InterconnectLink FieldSet
unknownFields
    = (InterconnectLink -> FieldSet)
-> (InterconnectLink -> FieldSet -> InterconnectLink)
-> Lens' InterconnectLink FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        InterconnectLink -> FieldSet
_InterconnectLink'_unknownFields
        (\ x__ :: InterconnectLink
x__ y__ :: FieldSet
y__ -> InterconnectLink
x__ {_InterconnectLink'_unknownFields :: FieldSet
_InterconnectLink'_unknownFields = FieldSet
y__})
  defMessage :: InterconnectLink
defMessage
    = $WInterconnectLink'_constructor :: Int32 -> Text -> Int32 -> FieldSet -> InterconnectLink
InterconnectLink'_constructor
        {_InterconnectLink'deviceId :: Int32
_InterconnectLink'deviceId = Int32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _InterconnectLink'type' :: Text
_InterconnectLink'type' = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _InterconnectLink'strength :: Int32
_InterconnectLink'strength = Int32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _InterconnectLink'_unknownFields :: FieldSet
_InterconnectLink'_unknownFields = []}
  parseMessage :: Parser InterconnectLink
parseMessage
    = let
        loop ::
          InterconnectLink
          -> Data.ProtoLens.Encoding.Bytes.Parser InterconnectLink
        loop :: InterconnectLink -> Parser InterconnectLink
loop x :: InterconnectLink
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]))))
                      InterconnectLink -> Parser InterconnectLink
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter InterconnectLink InterconnectLink FieldSet FieldSet
-> (FieldSet -> FieldSet) -> InterconnectLink -> InterconnectLink
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 InterconnectLink InterconnectLink FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) InterconnectLink
x)
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        8 -> do Int32
y <- Parser Int32 -> String -> Parser Int32
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Int32) -> Parser Word64 -> Parser Int32
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)
                                       "device_id"
                                InterconnectLink -> Parser InterconnectLink
loop
                                  (Setter InterconnectLink InterconnectLink Int32 Int32
-> Int32 -> InterconnectLink -> InterconnectLink
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "deviceId" 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 @"deviceId") Int32
y InterconnectLink
x)
                        18
                          -> 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))
                                       "type"
                                InterconnectLink -> Parser InterconnectLink
loop (Setter InterconnectLink InterconnectLink Text Text
-> Text -> InterconnectLink -> InterconnectLink
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "type'" 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 @"type'") Text
y InterconnectLink
x)
                        24
                          -> do Int32
y <- Parser Int32 -> String -> Parser Int32
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Int32) -> Parser Word64 -> Parser Int32
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)
                                       "strength"
                                InterconnectLink -> Parser InterconnectLink
loop
                                  (Setter InterconnectLink InterconnectLink Int32 Int32
-> Int32 -> InterconnectLink -> InterconnectLink
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "strength" 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 @"strength") Int32
y InterconnectLink
x)
                        wire :: Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                InterconnectLink -> Parser InterconnectLink
loop
                                  (Setter InterconnectLink InterconnectLink FieldSet FieldSet
-> (FieldSet -> FieldSet) -> InterconnectLink -> InterconnectLink
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 InterconnectLink InterconnectLink FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) InterconnectLink
x)
      in
        Parser InterconnectLink -> String -> Parser InterconnectLink
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do InterconnectLink -> Parser InterconnectLink
loop InterconnectLink
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "InterconnectLink"
  buildMessage :: InterconnectLink -> Builder
buildMessage
    = \ _x :: InterconnectLink
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: Int32
_v = FoldLike Int32 InterconnectLink InterconnectLink Int32 Int32
-> InterconnectLink -> Int32
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "deviceId" 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 @"deviceId") InterconnectLink
_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 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 InterconnectLink InterconnectLink Text Text
-> InterconnectLink -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "type'" 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 @"type'") InterconnectLink
_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 18)
                         ((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 :: Int32
_v = FoldLike Int32 InterconnectLink InterconnectLink Int32 Int32
-> InterconnectLink -> Int32
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "strength" 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 @"strength") InterconnectLink
_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 24)
                            ((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))
                   (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                      (FoldLike
  FieldSet InterconnectLink InterconnectLink FieldSet FieldSet
-> InterconnectLink -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet InterconnectLink InterconnectLink FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields InterconnectLink
_x))))
instance Control.DeepSeq.NFData InterconnectLink where
  rnf :: InterconnectLink -> ()
rnf
    = \ x__ :: InterconnectLink
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (InterconnectLink -> FieldSet
_InterconnectLink'_unknownFields InterconnectLink
x__)
             (Int32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (InterconnectLink -> Int32
_InterconnectLink'deviceId InterconnectLink
x__)
                (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (InterconnectLink -> Text
_InterconnectLink'type' InterconnectLink
x__)
                   (Int32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (InterconnectLink -> Int32
_InterconnectLink'strength InterconnectLink
x__) ())))
{- | Fields :
     
         * 'Proto.Tensorflow.Core.Framework.DeviceAttributes_Fields.link' @:: Lens' LocalLinks [InterconnectLink]@
         * 'Proto.Tensorflow.Core.Framework.DeviceAttributes_Fields.vec'link' @:: Lens' LocalLinks (Data.Vector.Vector InterconnectLink)@ -}
data LocalLinks
  = LocalLinks'_constructor {LocalLinks -> Vector InterconnectLink
_LocalLinks'link :: !(Data.Vector.Vector InterconnectLink),
                             LocalLinks -> FieldSet
_LocalLinks'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (LocalLinks -> LocalLinks -> Bool
(LocalLinks -> LocalLinks -> Bool)
-> (LocalLinks -> LocalLinks -> Bool) -> Eq LocalLinks
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: LocalLinks -> LocalLinks -> Bool
$c/= :: LocalLinks -> LocalLinks -> Bool
== :: LocalLinks -> LocalLinks -> Bool
$c== :: LocalLinks -> LocalLinks -> Bool
Prelude.Eq, Eq LocalLinks
Eq LocalLinks =>
(LocalLinks -> LocalLinks -> Ordering)
-> (LocalLinks -> LocalLinks -> Bool)
-> (LocalLinks -> LocalLinks -> Bool)
-> (LocalLinks -> LocalLinks -> Bool)
-> (LocalLinks -> LocalLinks -> Bool)
-> (LocalLinks -> LocalLinks -> LocalLinks)
-> (LocalLinks -> LocalLinks -> LocalLinks)
-> Ord LocalLinks
LocalLinks -> LocalLinks -> Bool
LocalLinks -> LocalLinks -> Ordering
LocalLinks -> LocalLinks -> LocalLinks
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 :: LocalLinks -> LocalLinks -> LocalLinks
$cmin :: LocalLinks -> LocalLinks -> LocalLinks
max :: LocalLinks -> LocalLinks -> LocalLinks
$cmax :: LocalLinks -> LocalLinks -> LocalLinks
>= :: LocalLinks -> LocalLinks -> Bool
$c>= :: LocalLinks -> LocalLinks -> Bool
> :: LocalLinks -> LocalLinks -> Bool
$c> :: LocalLinks -> LocalLinks -> Bool
<= :: LocalLinks -> LocalLinks -> Bool
$c<= :: LocalLinks -> LocalLinks -> Bool
< :: LocalLinks -> LocalLinks -> Bool
$c< :: LocalLinks -> LocalLinks -> Bool
compare :: LocalLinks -> LocalLinks -> Ordering
$ccompare :: LocalLinks -> LocalLinks -> Ordering
$cp1Ord :: Eq LocalLinks
Prelude.Ord)
instance Prelude.Show LocalLinks where
  showsPrec :: Int -> LocalLinks -> ShowS
showsPrec _ __x :: LocalLinks
__x __s :: String
__s
    = Char -> ShowS
Prelude.showChar
        '{'
        (String -> ShowS
Prelude.showString
           (LocalLinks -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort LocalLinks
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField LocalLinks "link" [InterconnectLink] where
  fieldOf :: Proxy# "link"
-> ([InterconnectLink] -> f [InterconnectLink])
-> LocalLinks
-> f LocalLinks
fieldOf _
    = ((Vector InterconnectLink -> f (Vector InterconnectLink))
 -> LocalLinks -> f LocalLinks)
-> (([InterconnectLink] -> f [InterconnectLink])
    -> Vector InterconnectLink -> f (Vector InterconnectLink))
-> ([InterconnectLink] -> f [InterconnectLink])
-> LocalLinks
-> f LocalLinks
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((LocalLinks -> Vector InterconnectLink)
-> (LocalLinks -> Vector InterconnectLink -> LocalLinks)
-> Lens
     LocalLinks
     LocalLinks
     (Vector InterconnectLink)
     (Vector InterconnectLink)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           LocalLinks -> Vector InterconnectLink
_LocalLinks'link (\ x__ :: LocalLinks
x__ y__ :: Vector InterconnectLink
y__ -> LocalLinks
x__ {_LocalLinks'link :: Vector InterconnectLink
_LocalLinks'link = Vector InterconnectLink
y__}))
        ((Vector InterconnectLink -> [InterconnectLink])
-> (Vector InterconnectLink
    -> [InterconnectLink] -> Vector InterconnectLink)
-> Lens
     (Vector InterconnectLink)
     (Vector InterconnectLink)
     [InterconnectLink]
     [InterconnectLink]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector InterconnectLink -> [InterconnectLink]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ _ y__ :: [InterconnectLink]
y__ -> [InterconnectLink] -> Vector InterconnectLink
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [InterconnectLink]
y__))
instance Data.ProtoLens.Field.HasField LocalLinks "vec'link" (Data.Vector.Vector InterconnectLink) where
  fieldOf :: Proxy# "vec'link"
-> (Vector InterconnectLink -> f (Vector InterconnectLink))
-> LocalLinks
-> f LocalLinks
fieldOf _
    = ((Vector InterconnectLink -> f (Vector InterconnectLink))
 -> LocalLinks -> f LocalLinks)
-> ((Vector InterconnectLink -> f (Vector InterconnectLink))
    -> Vector InterconnectLink -> f (Vector InterconnectLink))
-> (Vector InterconnectLink -> f (Vector InterconnectLink))
-> LocalLinks
-> f LocalLinks
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((LocalLinks -> Vector InterconnectLink)
-> (LocalLinks -> Vector InterconnectLink -> LocalLinks)
-> Lens
     LocalLinks
     LocalLinks
     (Vector InterconnectLink)
     (Vector InterconnectLink)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           LocalLinks -> Vector InterconnectLink
_LocalLinks'link (\ x__ :: LocalLinks
x__ y__ :: Vector InterconnectLink
y__ -> LocalLinks
x__ {_LocalLinks'link :: Vector InterconnectLink
_LocalLinks'link = Vector InterconnectLink
y__}))
        (Vector InterconnectLink -> f (Vector InterconnectLink))
-> Vector InterconnectLink -> f (Vector InterconnectLink)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message LocalLinks where
  messageName :: Proxy LocalLinks -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.LocalLinks"
  packedMessageDescriptor :: Proxy LocalLinks -> ByteString
packedMessageDescriptor _
    = "\n\
      \\n\
      \LocalLinks\DC20\n\
      \\EOTlink\CAN\SOH \ETX(\v2\FS.tensorflow.InterconnectLinkR\EOTlink"
  packedFileDescriptor :: Proxy LocalLinks -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor LocalLinks)
fieldsByTag
    = let
        link__field_descriptor :: FieldDescriptor LocalLinks
link__field_descriptor
          = String
-> FieldTypeDescriptor InterconnectLink
-> FieldAccessor LocalLinks InterconnectLink
-> FieldDescriptor LocalLinks
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "link"
              (MessageOrGroup -> FieldTypeDescriptor InterconnectLink
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor InterconnectLink)
              (Packing
-> Lens' LocalLinks [InterconnectLink]
-> FieldAccessor LocalLinks InterconnectLink
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked (forall s a (f :: * -> *).
(HasField s "link" 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 @"link")) ::
              Data.ProtoLens.FieldDescriptor LocalLinks
      in
        [(Tag, FieldDescriptor LocalLinks)]
-> Map Tag (FieldDescriptor LocalLinks)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList [(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor LocalLinks
link__field_descriptor)]
  unknownFields :: LensLike' f LocalLinks FieldSet
unknownFields
    = (LocalLinks -> FieldSet)
-> (LocalLinks -> FieldSet -> LocalLinks)
-> Lens' LocalLinks FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        LocalLinks -> FieldSet
_LocalLinks'_unknownFields
        (\ x__ :: LocalLinks
x__ y__ :: FieldSet
y__ -> LocalLinks
x__ {_LocalLinks'_unknownFields :: FieldSet
_LocalLinks'_unknownFields = FieldSet
y__})
  defMessage :: LocalLinks
defMessage
    = $WLocalLinks'_constructor :: Vector InterconnectLink -> FieldSet -> LocalLinks
LocalLinks'_constructor
        {_LocalLinks'link :: Vector InterconnectLink
_LocalLinks'link = Vector InterconnectLink
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _LocalLinks'_unknownFields :: FieldSet
_LocalLinks'_unknownFields = []}
  parseMessage :: Parser LocalLinks
parseMessage
    = let
        loop ::
          LocalLinks
          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld InterconnectLink
             -> Data.ProtoLens.Encoding.Bytes.Parser LocalLinks
        loop :: LocalLinks
-> Growing Vector RealWorld InterconnectLink -> Parser LocalLinks
loop x :: LocalLinks
x mutable'link :: Growing Vector RealWorld InterconnectLink
mutable'link
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do Vector InterconnectLink
frozen'link <- IO (Vector InterconnectLink) -> Parser (Vector InterconnectLink)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) InterconnectLink
-> IO (Vector InterconnectLink)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze Growing Vector RealWorld InterconnectLink
Growing Vector (PrimState IO) InterconnectLink
mutable'link)
                      (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]))))
                      LocalLinks -> Parser LocalLinks
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter LocalLinks LocalLinks FieldSet FieldSet
-> (FieldSet -> FieldSet) -> LocalLinks -> LocalLinks
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 LocalLinks LocalLinks FieldSet FieldSet
Data.ProtoLens.unknownFields
                           (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Setter
  LocalLinks
  LocalLinks
  (Vector InterconnectLink)
  (Vector InterconnectLink)
-> Vector InterconnectLink -> LocalLinks -> LocalLinks
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                              (forall s a (f :: * -> *).
(HasField s "vec'link" 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 @"vec'link") Vector InterconnectLink
frozen'link LocalLinks
x))
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        10
                          -> do !InterconnectLink
y <- Parser InterconnectLink -> String -> Parser InterconnectLink
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Int -> Parser InterconnectLink -> Parser InterconnectLink
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                              (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                              Parser InterconnectLink
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                        "link"
                                Growing Vector RealWorld InterconnectLink
v <- IO (Growing Vector RealWorld InterconnectLink)
-> Parser (Growing Vector RealWorld InterconnectLink)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) InterconnectLink
-> InterconnectLink
-> IO (Growing Vector (PrimState IO) InterconnectLink)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld InterconnectLink
Growing Vector (PrimState IO) InterconnectLink
mutable'link InterconnectLink
y)
                                LocalLinks
-> Growing Vector RealWorld InterconnectLink -> Parser LocalLinks
loop LocalLinks
x Growing Vector RealWorld InterconnectLink
v
                        wire :: Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                LocalLinks
-> Growing Vector RealWorld InterconnectLink -> Parser LocalLinks
loop
                                  (Setter LocalLinks LocalLinks FieldSet FieldSet
-> (FieldSet -> FieldSet) -> LocalLinks -> LocalLinks
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 LocalLinks LocalLinks FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) LocalLinks
x)
                                  Growing Vector RealWorld InterconnectLink
mutable'link
      in
        Parser LocalLinks -> String -> Parser LocalLinks
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Growing Vector RealWorld InterconnectLink
mutable'link <- IO (Growing Vector RealWorld InterconnectLink)
-> Parser (Growing Vector RealWorld InterconnectLink)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                IO (Growing Vector RealWorld InterconnectLink)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              LocalLinks
-> Growing Vector RealWorld InterconnectLink -> Parser LocalLinks
loop LocalLinks
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld InterconnectLink
mutable'link)
          "LocalLinks"
  buildMessage :: LocalLinks -> Builder
buildMessage
    = \ _x :: LocalLinks
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             ((InterconnectLink -> Builder) -> Vector InterconnectLink -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                (\ _v :: InterconnectLink
_v
                   -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                        (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 10)
                        ((ByteString -> Builder)
-> (InterconnectLink -> ByteString) -> InterconnectLink -> 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))
                           InterconnectLink -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                           InterconnectLink
_v))
                (FoldLike
  (Vector InterconnectLink)
  LocalLinks
  LocalLinks
  (Vector InterconnectLink)
  (Vector InterconnectLink)
-> LocalLinks -> Vector InterconnectLink
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "vec'link" 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 @"vec'link") LocalLinks
_x))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike FieldSet LocalLinks LocalLinks FieldSet FieldSet
-> LocalLinks -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet LocalLinks LocalLinks FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields LocalLinks
_x))
instance Control.DeepSeq.NFData LocalLinks where
  rnf :: LocalLinks -> ()
rnf
    = \ x__ :: LocalLinks
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (LocalLinks -> FieldSet
_LocalLinks'_unknownFields LocalLinks
x__)
             (Vector InterconnectLink -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (LocalLinks -> Vector InterconnectLink
_LocalLinks'link LocalLinks
x__) ())
packedFileDescriptor :: Data.ByteString.ByteString
packedFileDescriptor :: ByteString
packedFileDescriptor
  = "\n\
    \1tensorflow/core/framework/device_attributes.proto\DC2\n\
    \tensorflow\"_\n\
    \\DLEInterconnectLink\DC2\ESC\n\
    \\tdevice_id\CAN\SOH \SOH(\ENQR\bdeviceId\DC2\DC2\n\
    \\EOTtype\CAN\STX \SOH(\tR\EOTtype\DC2\SUB\n\
    \\bstrength\CAN\ETX \SOH(\ENQR\bstrength\">\n\
    \\n\
    \LocalLinks\DC20\n\
    \\EOTlink\CAN\SOH \ETX(\v2\FS.tensorflow.InterconnectLinkR\EOTlink\"r\n\
    \\SODeviceLocality\DC2\NAK\n\
    \\ACKbus_id\CAN\SOH \SOH(\ENQR\ENQbusId\DC2\ESC\n\
    \\tnuma_node\CAN\STX \SOH(\ENQR\bnumaNode\DC2,\n\
    \\ENQlinks\CAN\ETX \SOH(\v2\SYN.tensorflow.LocalLinksR\ENQlinks\"\246\SOH\n\
    \\DLEDeviceAttributes\DC2\DC2\n\
    \\EOTname\CAN\SOH \SOH(\tR\EOTname\DC2\US\n\
    \\vdevice_type\CAN\STX \SOH(\tR\n\
    \deviceType\DC2!\n\
    \\fmemory_limit\CAN\EOT \SOH(\ETXR\vmemoryLimit\DC26\n\
    \\blocality\CAN\ENQ \SOH(\v2\SUB.tensorflow.DeviceLocalityR\blocality\DC2 \n\
    \\vincarnation\CAN\ACK \SOH(\ACKR\vincarnation\DC20\n\
    \\DC4physical_device_desc\CAN\a \SOH(\tR\DC2physicalDeviceDescB\145\SOH\n\
    \\CANorg.tensorflow.frameworkB\SYNDeviceAttributesProtosP\SOHZXgithub.com/tensorflow/tensorflow/tensorflow/go/core/framework/device_attributes_go_proto\248\SOH\SOHJ\189\f\n\
    \\ACK\DC2\EOT\NUL\NUL4\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\NUL7\n\
    \\t\n\
    \\STX\b\b\DC2\ETX\ENQ\NUL7\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\NULo\n\
    \\t\n\
    \\STX\b\v\DC2\ETX\b\NULo\n\
    \\n\
    \\n\
    \\STX\EOT\NUL\DC2\EOT\n\
    \\NUL\SO\SOH\n\
    \\n\
    \\n\
    \\ETX\EOT\NUL\SOH\DC2\ETX\n\
    \\b\CAN\n\
    \\v\n\
    \\EOT\EOT\NUL\STX\NUL\DC2\ETX\v\STX\SYN\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\ENQ\DC2\ETX\v\STX\a\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\SOH\DC2\ETX\v\b\DC1\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\ETX\DC2\ETX\v\DC4\NAK\n\
    \\v\n\
    \\EOT\EOT\NUL\STX\SOH\DC2\ETX\f\STX\DC2\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\SOH\ENQ\DC2\ETX\f\STX\b\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\SOH\SOH\DC2\ETX\f\t\r\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\SOH\ETX\DC2\ETX\f\DLE\DC1\n\
    \\v\n\
    \\EOT\EOT\NUL\STX\STX\DC2\ETX\r\STX\NAK\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\STX\ENQ\DC2\ETX\r\STX\a\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\STX\SOH\DC2\ETX\r\b\DLE\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\STX\ETX\DC2\ETX\r\DC3\DC4\n\
    \\n\
    \\n\
    \\STX\EOT\SOH\DC2\EOT\DLE\NUL\DC2\SOH\n\
    \\n\
    \\n\
    \\ETX\EOT\SOH\SOH\DC2\ETX\DLE\b\DC2\n\
    \\v\n\
    \\EOT\EOT\SOH\STX\NUL\DC2\ETX\DC1\STX%\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\NUL\EOT\DC2\ETX\DC1\STX\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\NUL\ACK\DC2\ETX\DC1\v\ESC\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\NUL\SOH\DC2\ETX\DC1\FS \n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\NUL\ETX\DC2\ETX\DC1#$\n\
    \\n\
    \\n\
    \\STX\EOT\STX\DC2\EOT\DC4\NUL\RS\SOH\n\
    \\n\
    \\n\
    \\ETX\EOT\STX\SOH\DC2\ETX\DC4\b\SYN\n\
    \\137\SOH\n\
    \\EOT\EOT\STX\STX\NUL\DC2\ETX\ETB\STX\DC3\SUB| Optional bus locality of device.  Default value of 0 means\n\
    \ no specific locality.  Specific localities are indexed from 1.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\NUL\ENQ\DC2\ETX\ETB\STX\a\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\NUL\SOH\DC2\ETX\ETB\b\SO\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\NUL\ETX\DC2\ETX\ETB\DC1\DC2\n\
    \0\n\
    \\EOT\EOT\STX\STX\SOH\DC2\ETX\SUB\STX\SYN\SUB# Optional NUMA locality of device.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\SOH\ENQ\DC2\ETX\SUB\STX\a\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\SOH\SOH\DC2\ETX\SUB\b\DC1\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\SOH\ETX\DC2\ETX\SUB\DC4\NAK\n\
    \B\n\
    \\EOT\EOT\STX\STX\STX\DC2\ETX\GS\STX\ETB\SUB5 Optional local interconnect links to other devices.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\STX\ACK\DC2\ETX\GS\STX\f\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\STX\SOH\DC2\ETX\GS\r\DC2\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\STX\ETX\DC2\ETX\GS\NAK\SYN\n\
    \\n\
    \\n\
    \\STX\EOT\ETX\DC2\EOT \NUL4\SOH\n\
    \\n\
    \\n\
    \\ETX\EOT\ETX\SOH\DC2\ETX \b\CAN\n\
    \C\n\
    \\EOT\EOT\ETX\STX\NUL\DC2\ETX\"\STX\DC2\SUB6 Fully specified name of the device within a cluster.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\NUL\ENQ\DC2\ETX\"\STX\b\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\NUL\SOH\DC2\ETX\"\t\r\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\NUL\ETX\DC2\ETX\"\DLE\DC1\n\
    \4\n\
    \\EOT\EOT\ETX\STX\SOH\DC2\ETX%\STX\EM\SUB' String representation of device_type.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\SOH\ENQ\DC2\ETX%\STX\b\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\SOH\SOH\DC2\ETX%\t\DC4\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\SOH\ETX\DC2\ETX%\ETB\CAN\n\
    \2\n\
    \\EOT\EOT\ETX\STX\STX\DC2\ETX(\STX\EM\SUB% Memory capacity of device in bytes.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\STX\ENQ\DC2\ETX(\STX\a\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\STX\SOH\DC2\ETX(\b\DC4\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\STX\ETX\DC2\ETX(\ETB\CAN\n\
    \o\n\
    \\EOT\EOT\ETX\STX\ETX\DC2\ETX,\STX\RS\SUBb Platform-specific data about device that may be useful\n\
    \ for supporting efficient data transfers.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\ETX\ACK\DC2\ETX,\STX\DLE\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\ETX\SOH\DC2\ETX,\DC1\EM\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\ETX\ETX\DC2\ETX,\FS\GS\n\
    \y\n\
    \\EOT\EOT\ETX\STX\EOT\DC2\ETX0\STX\SUB\SUBl A device is assigned a global unique number each time it is\n\
    \ initialized. \"incarnation\" should never be 0.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\EOT\ENQ\DC2\ETX0\STX\t\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\EOT\SOH\DC2\ETX0\n\
    \\NAK\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\EOT\ETX\DC2\ETX0\CAN\EM\n\
    \U\n\
    \\EOT\EOT\ETX\STX\ENQ\DC2\ETX3\STX\"\SUBH String representation of the physical device that this device maps to.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\ENQ\ENQ\DC2\ETX3\STX\b\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\ENQ\SOH\DC2\ETX3\t\GS\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\ENQ\ETX\DC2\ETX3 !b\ACKproto3"