diff --git a/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Example/Example.hs b/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Example/Example.hs deleted file mode 100644 --- a/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Example/Example.hs +++ /dev/null @@ -1,214 +0,0 @@ -{- This file was auto-generated from tensorflow/core/example/example.proto by the proto-lens-protoc program. -} -{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies, - UndecidableInstances, MultiParamTypeClasses, FlexibleContexts, - FlexibleInstances, PatternSynonyms, MagicHash, NoImplicitPrelude - #-} -{-# OPTIONS_GHC -fno-warn-unused-imports#-} -module Proto.Tensorflow.Core.Example.Example where -import qualified Data.ProtoLens.Reexport.Prelude as Prelude -import qualified Data.ProtoLens.Reexport.Data.Int as Data.Int -import qualified Data.ProtoLens.Reexport.Data.Word as Data.Word -import qualified Data.ProtoLens.Reexport.Data.ProtoLens - as Data.ProtoLens -import qualified - Data.ProtoLens.Reexport.Data.ProtoLens.Message.Enum - as Data.ProtoLens.Message.Enum -import qualified Data.ProtoLens.Reexport.Lens.Family2 - as Lens.Family2 -import qualified Data.ProtoLens.Reexport.Lens.Family2.Unchecked - as Lens.Family2.Unchecked -import qualified Data.ProtoLens.Reexport.Data.Default.Class - as Data.Default.Class -import qualified Data.ProtoLens.Reexport.Data.Text as Data.Text -import qualified Data.ProtoLens.Reexport.Data.Map as Data.Map -import qualified Data.ProtoLens.Reexport.Data.ByteString - as Data.ByteString -import qualified Data.ProtoLens.Reexport.Lens.Labels as Lens.Labels -import qualified Proto.Tensorflow.Core.Example.Feature - -data Example = Example{_Example'features :: - !(Prelude.Maybe Proto.Tensorflow.Core.Example.Feature.Features)} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Proto.Tensorflow.Core.Example.Feature.Features, - b ~ Proto.Tensorflow.Core.Example.Feature.Features, - Prelude.Functor f) => - Lens.Labels.HasLens "features" f Example Example a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _Example'features - (\ x__ y__ -> x__{_Example'features = y__})) - (Data.ProtoLens.maybeLens Data.Default.Class.def) - -instance (a ~ - Prelude.Maybe Proto.Tensorflow.Core.Example.Feature.Features, - b ~ Prelude.Maybe Proto.Tensorflow.Core.Example.Feature.Features, - Prelude.Functor f) => - Lens.Labels.HasLens "maybe'features" f Example Example a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _Example'features - (\ x__ y__ -> x__{_Example'features = y__})) - Prelude.id - -instance Data.Default.Class.Default Example where - def = Example{_Example'features = Prelude.Nothing} - -instance Data.ProtoLens.Message Example where - descriptor - = let features__field_descriptor - = Data.ProtoLens.FieldDescriptor "features" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor - Proto.Tensorflow.Core.Example.Feature.Features) - (Data.ProtoLens.OptionalField maybe'features) - :: Data.ProtoLens.FieldDescriptor Example - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.Example") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, features__field_descriptor)]) - (Data.Map.fromList [("features", features__field_descriptor)]) - -data SequenceExample = SequenceExample{_SequenceExample'context :: - !(Prelude.Maybe - Proto.Tensorflow.Core.Example.Feature.Features), - _SequenceExample'featureLists :: - !(Prelude.Maybe - Proto.Tensorflow.Core.Example.Feature.FeatureLists)} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Proto.Tensorflow.Core.Example.Feature.Features, - b ~ Proto.Tensorflow.Core.Example.Feature.Features, - Prelude.Functor f) => - Lens.Labels.HasLens "context" f SequenceExample SequenceExample a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _SequenceExample'context - (\ x__ y__ -> x__{_SequenceExample'context = y__})) - (Data.ProtoLens.maybeLens Data.Default.Class.def) - -instance (a ~ - Prelude.Maybe Proto.Tensorflow.Core.Example.Feature.Features, - b ~ Prelude.Maybe Proto.Tensorflow.Core.Example.Feature.Features, - Prelude.Functor f) => - Lens.Labels.HasLens "maybe'context" f SequenceExample - SequenceExample - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _SequenceExample'context - (\ x__ y__ -> x__{_SequenceExample'context = y__})) - Prelude.id - -instance (a ~ Proto.Tensorflow.Core.Example.Feature.FeatureLists, - b ~ Proto.Tensorflow.Core.Example.Feature.FeatureLists, - Prelude.Functor f) => - Lens.Labels.HasLens "featureLists" f SequenceExample - SequenceExample - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _SequenceExample'featureLists - (\ x__ y__ -> x__{_SequenceExample'featureLists = y__})) - (Data.ProtoLens.maybeLens Data.Default.Class.def) - -instance (a ~ - Prelude.Maybe Proto.Tensorflow.Core.Example.Feature.FeatureLists, - b ~ - Prelude.Maybe Proto.Tensorflow.Core.Example.Feature.FeatureLists, - Prelude.Functor f) => - Lens.Labels.HasLens "maybe'featureLists" f SequenceExample - SequenceExample - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _SequenceExample'featureLists - (\ x__ y__ -> x__{_SequenceExample'featureLists = y__})) - Prelude.id - -instance Data.Default.Class.Default SequenceExample where - def - = SequenceExample{_SequenceExample'context = Prelude.Nothing, - _SequenceExample'featureLists = Prelude.Nothing} - -instance Data.ProtoLens.Message SequenceExample where - descriptor - = let context__field_descriptor - = Data.ProtoLens.FieldDescriptor "context" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor - Proto.Tensorflow.Core.Example.Feature.Features) - (Data.ProtoLens.OptionalField maybe'context) - :: Data.ProtoLens.FieldDescriptor SequenceExample - featureLists__field_descriptor - = Data.ProtoLens.FieldDescriptor "feature_lists" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor - Proto.Tensorflow.Core.Example.Feature.FeatureLists) - (Data.ProtoLens.OptionalField maybe'featureLists) - :: Data.ProtoLens.FieldDescriptor SequenceExample - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.SequenceExample") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, context__field_descriptor), - (Data.ProtoLens.Tag 2, featureLists__field_descriptor)]) - (Data.Map.fromList - [("context", context__field_descriptor), - ("feature_lists", featureLists__field_descriptor)]) - -context :: - forall f s t a b . (Lens.Labels.HasLens "context" f s t a b) => - Lens.Family2.LensLike f s t a b -context - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "context") - -featureLists :: - forall f s t a b . - (Lens.Labels.HasLens "featureLists" f s t a b) => - Lens.Family2.LensLike f s t a b -featureLists - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "featureLists") - -features :: - forall f s t a b . (Lens.Labels.HasLens "features" f s t a b) => - Lens.Family2.LensLike f s t a b -features - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "features") - -maybe'context :: - forall f s t a b . - (Lens.Labels.HasLens "maybe'context" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'context - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'context") - -maybe'featureLists :: - forall f s t a b . - (Lens.Labels.HasLens "maybe'featureLists" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'featureLists - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'featureLists") - -maybe'features :: - forall f s t a b . - (Lens.Labels.HasLens "maybe'features" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'features - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'features") diff --git a/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Example/ExampleParserConfiguration.hs b/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Example/ExampleParserConfiguration.hs deleted file mode 100644 --- a/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Example/ExampleParserConfiguration.hs +++ /dev/null @@ -1,720 +0,0 @@ -{- This file was auto-generated from tensorflow/core/example/example_parser_configuration.proto by the proto-lens-protoc program. -} -{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies, - UndecidableInstances, MultiParamTypeClasses, FlexibleContexts, - FlexibleInstances, PatternSynonyms, MagicHash, NoImplicitPrelude - #-} -{-# OPTIONS_GHC -fno-warn-unused-imports#-} -module Proto.Tensorflow.Core.Example.ExampleParserConfiguration - where -import qualified Data.ProtoLens.Reexport.Prelude as Prelude -import qualified Data.ProtoLens.Reexport.Data.Int as Data.Int -import qualified Data.ProtoLens.Reexport.Data.Word as Data.Word -import qualified Data.ProtoLens.Reexport.Data.ProtoLens - as Data.ProtoLens -import qualified - Data.ProtoLens.Reexport.Data.ProtoLens.Message.Enum - as Data.ProtoLens.Message.Enum -import qualified Data.ProtoLens.Reexport.Lens.Family2 - as Lens.Family2 -import qualified Data.ProtoLens.Reexport.Lens.Family2.Unchecked - as Lens.Family2.Unchecked -import qualified Data.ProtoLens.Reexport.Data.Default.Class - as Data.Default.Class -import qualified Data.ProtoLens.Reexport.Data.Text as Data.Text -import qualified Data.ProtoLens.Reexport.Data.Map as Data.Map -import qualified Data.ProtoLens.Reexport.Data.ByteString - as Data.ByteString -import qualified Data.ProtoLens.Reexport.Lens.Labels as Lens.Labels -import qualified Proto.Tensorflow.Core.Framework.Tensor -import qualified Proto.Tensorflow.Core.Framework.TensorShape -import qualified Proto.Tensorflow.Core.Framework.Types - -data ExampleParserConfiguration = ExampleParserConfiguration{_ExampleParserConfiguration'featureMap - :: - !(Data.Map.Map Data.Text.Text - FeatureConfiguration)} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Data.Map.Map Data.Text.Text FeatureConfiguration, - b ~ Data.Map.Map Data.Text.Text FeatureConfiguration, - Prelude.Functor f) => - Lens.Labels.HasLens "featureMap" f ExampleParserConfiguration - ExampleParserConfiguration - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _ExampleParserConfiguration'featureMap - (\ x__ y__ -> x__{_ExampleParserConfiguration'featureMap = y__})) - Prelude.id - -instance Data.Default.Class.Default ExampleParserConfiguration - where - def - = ExampleParserConfiguration{_ExampleParserConfiguration'featureMap - = Data.Map.empty} - -instance Data.ProtoLens.Message ExampleParserConfiguration where - descriptor - = let featureMap__field_descriptor - = Data.ProtoLens.FieldDescriptor "feature_map" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor - ExampleParserConfiguration'FeatureMapEntry) - (Data.ProtoLens.MapField key value featureMap) - :: Data.ProtoLens.FieldDescriptor ExampleParserConfiguration - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.ExampleParserConfiguration") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, featureMap__field_descriptor)]) - (Data.Map.fromList [("feature_map", featureMap__field_descriptor)]) - -data ExampleParserConfiguration'FeatureMapEntry = ExampleParserConfiguration'FeatureMapEntry{_ExampleParserConfiguration'FeatureMapEntry'key - :: - !Data.Text.Text, - _ExampleParserConfiguration'FeatureMapEntry'value - :: - !(Prelude.Maybe - FeatureConfiguration)} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "key" f - ExampleParserConfiguration'FeatureMapEntry - ExampleParserConfiguration'FeatureMapEntry - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _ExampleParserConfiguration'FeatureMapEntry'key - (\ x__ y__ -> - x__{_ExampleParserConfiguration'FeatureMapEntry'key = y__})) - Prelude.id - -instance (a ~ FeatureConfiguration, b ~ FeatureConfiguration, - Prelude.Functor f) => - Lens.Labels.HasLens "value" f - ExampleParserConfiguration'FeatureMapEntry - ExampleParserConfiguration'FeatureMapEntry - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _ExampleParserConfiguration'FeatureMapEntry'value - (\ x__ y__ -> - x__{_ExampleParserConfiguration'FeatureMapEntry'value = y__})) - (Data.ProtoLens.maybeLens Data.Default.Class.def) - -instance (a ~ Prelude.Maybe FeatureConfiguration, - b ~ Prelude.Maybe FeatureConfiguration, Prelude.Functor f) => - Lens.Labels.HasLens "maybe'value" f - ExampleParserConfiguration'FeatureMapEntry - ExampleParserConfiguration'FeatureMapEntry - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _ExampleParserConfiguration'FeatureMapEntry'value - (\ x__ y__ -> - x__{_ExampleParserConfiguration'FeatureMapEntry'value = y__})) - Prelude.id - -instance Data.Default.Class.Default - ExampleParserConfiguration'FeatureMapEntry - where - def - = ExampleParserConfiguration'FeatureMapEntry{_ExampleParserConfiguration'FeatureMapEntry'key - = Data.ProtoLens.fieldDefault, - _ExampleParserConfiguration'FeatureMapEntry'value - = Prelude.Nothing} - -instance Data.ProtoLens.Message - ExampleParserConfiguration'FeatureMapEntry - where - descriptor - = let key__field_descriptor - = Data.ProtoLens.FieldDescriptor "key" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional key) - :: - Data.ProtoLens.FieldDescriptor - ExampleParserConfiguration'FeatureMapEntry - value__field_descriptor - = Data.ProtoLens.FieldDescriptor "value" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor FeatureConfiguration) - (Data.ProtoLens.OptionalField maybe'value) - :: - Data.ProtoLens.FieldDescriptor - ExampleParserConfiguration'FeatureMapEntry - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack - "tensorflow.ExampleParserConfiguration.FeatureMapEntry") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, key__field_descriptor), - (Data.ProtoLens.Tag 2, value__field_descriptor)]) - (Data.Map.fromList - [("key", key__field_descriptor), - ("value", value__field_descriptor)]) - -data FeatureConfiguration = FeatureConfiguration{_FeatureConfiguration'config - :: !(Prelude.Maybe FeatureConfiguration'Config)} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -data FeatureConfiguration'Config = FeatureConfiguration'FixedLenFeature !FixedLenFeatureProto - | FeatureConfiguration'VarLenFeature !VarLenFeatureProto - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Prelude.Maybe FeatureConfiguration'Config, - b ~ Prelude.Maybe FeatureConfiguration'Config, - Prelude.Functor f) => - Lens.Labels.HasLens "maybe'config" f FeatureConfiguration - FeatureConfiguration - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _FeatureConfiguration'config - (\ x__ y__ -> x__{_FeatureConfiguration'config = y__})) - Prelude.id - -instance (a ~ Prelude.Maybe FixedLenFeatureProto, - b ~ Prelude.Maybe FixedLenFeatureProto, Prelude.Functor f) => - Lens.Labels.HasLens "maybe'fixedLenFeature" f FeatureConfiguration - FeatureConfiguration - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _FeatureConfiguration'config - (\ x__ y__ -> x__{_FeatureConfiguration'config = y__})) - (Lens.Family2.Unchecked.lens - (\ x__ -> - case x__ of - Prelude.Just - (FeatureConfiguration'FixedLenFeature x__val) -> Prelude.Just - x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap FeatureConfiguration'FixedLenFeature y__)) - -instance (a ~ FixedLenFeatureProto, b ~ FixedLenFeatureProto, - Prelude.Functor f) => - Lens.Labels.HasLens "fixedLenFeature" f FeatureConfiguration - FeatureConfiguration - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _FeatureConfiguration'config - (\ x__ y__ -> x__{_FeatureConfiguration'config = y__})) - ((Prelude..) - (Lens.Family2.Unchecked.lens - (\ x__ -> - case x__ of - Prelude.Just - (FeatureConfiguration'FixedLenFeature x__val) -> Prelude.Just - x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap FeatureConfiguration'FixedLenFeature y__)) - (Data.ProtoLens.maybeLens Data.Default.Class.def)) - -instance (a ~ Prelude.Maybe VarLenFeatureProto, - b ~ Prelude.Maybe VarLenFeatureProto, Prelude.Functor f) => - Lens.Labels.HasLens "maybe'varLenFeature" f FeatureConfiguration - FeatureConfiguration - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _FeatureConfiguration'config - (\ x__ y__ -> x__{_FeatureConfiguration'config = y__})) - (Lens.Family2.Unchecked.lens - (\ x__ -> - case x__ of - Prelude.Just - (FeatureConfiguration'VarLenFeature x__val) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap FeatureConfiguration'VarLenFeature y__)) - -instance (a ~ VarLenFeatureProto, b ~ VarLenFeatureProto, - Prelude.Functor f) => - Lens.Labels.HasLens "varLenFeature" f FeatureConfiguration - FeatureConfiguration - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _FeatureConfiguration'config - (\ x__ y__ -> x__{_FeatureConfiguration'config = y__})) - ((Prelude..) - (Lens.Family2.Unchecked.lens - (\ x__ -> - case x__ of - Prelude.Just - (FeatureConfiguration'VarLenFeature x__val) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap FeatureConfiguration'VarLenFeature y__)) - (Data.ProtoLens.maybeLens Data.Default.Class.def)) - -instance Data.Default.Class.Default FeatureConfiguration where - def - = FeatureConfiguration{_FeatureConfiguration'config = - Prelude.Nothing} - -instance Data.ProtoLens.Message FeatureConfiguration where - descriptor - = let fixedLenFeature__field_descriptor - = Data.ProtoLens.FieldDescriptor "fixed_len_feature" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor FixedLenFeatureProto) - (Data.ProtoLens.OptionalField maybe'fixedLenFeature) - :: Data.ProtoLens.FieldDescriptor FeatureConfiguration - varLenFeature__field_descriptor - = Data.ProtoLens.FieldDescriptor "var_len_feature" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor VarLenFeatureProto) - (Data.ProtoLens.OptionalField maybe'varLenFeature) - :: Data.ProtoLens.FieldDescriptor FeatureConfiguration - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.FeatureConfiguration") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, fixedLenFeature__field_descriptor), - (Data.ProtoLens.Tag 2, varLenFeature__field_descriptor)]) - (Data.Map.fromList - [("fixed_len_feature", fixedLenFeature__field_descriptor), - ("var_len_feature", varLenFeature__field_descriptor)]) - -data FixedLenFeatureProto = FixedLenFeatureProto{_FixedLenFeatureProto'dtype - :: !Proto.Tensorflow.Core.Framework.Types.DataType, - _FixedLenFeatureProto'shape :: - !(Prelude.Maybe - Proto.Tensorflow.Core.Framework.TensorShape.TensorShapeProto), - _FixedLenFeatureProto'defaultValue :: - !(Prelude.Maybe - Proto.Tensorflow.Core.Framework.Tensor.TensorProto), - _FixedLenFeatureProto'valuesOutputTensorName :: - !Data.Text.Text} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Proto.Tensorflow.Core.Framework.Types.DataType, - b ~ Proto.Tensorflow.Core.Framework.Types.DataType, - Prelude.Functor f) => - Lens.Labels.HasLens "dtype" f FixedLenFeatureProto - FixedLenFeatureProto - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _FixedLenFeatureProto'dtype - (\ x__ y__ -> x__{_FixedLenFeatureProto'dtype = y__})) - Prelude.id - -instance (a ~ - Proto.Tensorflow.Core.Framework.TensorShape.TensorShapeProto, - b ~ Proto.Tensorflow.Core.Framework.TensorShape.TensorShapeProto, - Prelude.Functor f) => - Lens.Labels.HasLens "shape" f FixedLenFeatureProto - FixedLenFeatureProto - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _FixedLenFeatureProto'shape - (\ x__ y__ -> x__{_FixedLenFeatureProto'shape = y__})) - (Data.ProtoLens.maybeLens Data.Default.Class.def) - -instance (a ~ - Prelude.Maybe - Proto.Tensorflow.Core.Framework.TensorShape.TensorShapeProto, - b ~ - Prelude.Maybe - Proto.Tensorflow.Core.Framework.TensorShape.TensorShapeProto, - Prelude.Functor f) => - Lens.Labels.HasLens "maybe'shape" f FixedLenFeatureProto - FixedLenFeatureProto - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _FixedLenFeatureProto'shape - (\ x__ y__ -> x__{_FixedLenFeatureProto'shape = y__})) - Prelude.id - -instance (a ~ Proto.Tensorflow.Core.Framework.Tensor.TensorProto, - b ~ Proto.Tensorflow.Core.Framework.Tensor.TensorProto, - Prelude.Functor f) => - Lens.Labels.HasLens "defaultValue" f FixedLenFeatureProto - FixedLenFeatureProto - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _FixedLenFeatureProto'defaultValue - (\ x__ y__ -> x__{_FixedLenFeatureProto'defaultValue = y__})) - (Data.ProtoLens.maybeLens Data.Default.Class.def) - -instance (a ~ - Prelude.Maybe Proto.Tensorflow.Core.Framework.Tensor.TensorProto, - b ~ - Prelude.Maybe Proto.Tensorflow.Core.Framework.Tensor.TensorProto, - Prelude.Functor f) => - Lens.Labels.HasLens "maybe'defaultValue" f FixedLenFeatureProto - FixedLenFeatureProto - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _FixedLenFeatureProto'defaultValue - (\ x__ y__ -> x__{_FixedLenFeatureProto'defaultValue = y__})) - Prelude.id - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "valuesOutputTensorName" f FixedLenFeatureProto - FixedLenFeatureProto - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _FixedLenFeatureProto'valuesOutputTensorName - (\ x__ y__ -> - x__{_FixedLenFeatureProto'valuesOutputTensorName = y__})) - Prelude.id - -instance Data.Default.Class.Default FixedLenFeatureProto where - def - = FixedLenFeatureProto{_FixedLenFeatureProto'dtype = - Data.Default.Class.def, - _FixedLenFeatureProto'shape = Prelude.Nothing, - _FixedLenFeatureProto'defaultValue = Prelude.Nothing, - _FixedLenFeatureProto'valuesOutputTensorName = - Data.ProtoLens.fieldDefault} - -instance Data.ProtoLens.Message FixedLenFeatureProto where - descriptor - = let dtype__field_descriptor - = Data.ProtoLens.FieldDescriptor "dtype" - (Data.ProtoLens.EnumField :: - Data.ProtoLens.FieldTypeDescriptor - Proto.Tensorflow.Core.Framework.Types.DataType) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional dtype) - :: Data.ProtoLens.FieldDescriptor FixedLenFeatureProto - shape__field_descriptor - = Data.ProtoLens.FieldDescriptor "shape" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor - Proto.Tensorflow.Core.Framework.TensorShape.TensorShapeProto) - (Data.ProtoLens.OptionalField maybe'shape) - :: Data.ProtoLens.FieldDescriptor FixedLenFeatureProto - defaultValue__field_descriptor - = Data.ProtoLens.FieldDescriptor "default_value" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor - Proto.Tensorflow.Core.Framework.Tensor.TensorProto) - (Data.ProtoLens.OptionalField maybe'defaultValue) - :: Data.ProtoLens.FieldDescriptor FixedLenFeatureProto - valuesOutputTensorName__field_descriptor - = Data.ProtoLens.FieldDescriptor "values_output_tensor_name" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional - valuesOutputTensorName) - :: Data.ProtoLens.FieldDescriptor FixedLenFeatureProto - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.FixedLenFeatureProto") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, dtype__field_descriptor), - (Data.ProtoLens.Tag 2, shape__field_descriptor), - (Data.ProtoLens.Tag 3, defaultValue__field_descriptor), - (Data.ProtoLens.Tag 4, valuesOutputTensorName__field_descriptor)]) - (Data.Map.fromList - [("dtype", dtype__field_descriptor), - ("shape", shape__field_descriptor), - ("default_value", defaultValue__field_descriptor), - ("values_output_tensor_name", - valuesOutputTensorName__field_descriptor)]) - -data VarLenFeatureProto = VarLenFeatureProto{_VarLenFeatureProto'dtype - :: !Proto.Tensorflow.Core.Framework.Types.DataType, - _VarLenFeatureProto'valuesOutputTensorName :: - !Data.Text.Text, - _VarLenFeatureProto'indicesOutputTensorName :: - !Data.Text.Text, - _VarLenFeatureProto'shapesOutputTensorName :: - !Data.Text.Text} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Proto.Tensorflow.Core.Framework.Types.DataType, - b ~ Proto.Tensorflow.Core.Framework.Types.DataType, - Prelude.Functor f) => - Lens.Labels.HasLens "dtype" f VarLenFeatureProto VarLenFeatureProto - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _VarLenFeatureProto'dtype - (\ x__ y__ -> x__{_VarLenFeatureProto'dtype = y__})) - Prelude.id - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "valuesOutputTensorName" f VarLenFeatureProto - VarLenFeatureProto - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _VarLenFeatureProto'valuesOutputTensorName - (\ x__ y__ -> - x__{_VarLenFeatureProto'valuesOutputTensorName = y__})) - Prelude.id - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "indicesOutputTensorName" f VarLenFeatureProto - VarLenFeatureProto - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _VarLenFeatureProto'indicesOutputTensorName - (\ x__ y__ -> - x__{_VarLenFeatureProto'indicesOutputTensorName = y__})) - Prelude.id - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "shapesOutputTensorName" f VarLenFeatureProto - VarLenFeatureProto - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _VarLenFeatureProto'shapesOutputTensorName - (\ x__ y__ -> - x__{_VarLenFeatureProto'shapesOutputTensorName = y__})) - Prelude.id - -instance Data.Default.Class.Default VarLenFeatureProto where - def - = VarLenFeatureProto{_VarLenFeatureProto'dtype = - Data.Default.Class.def, - _VarLenFeatureProto'valuesOutputTensorName = - Data.ProtoLens.fieldDefault, - _VarLenFeatureProto'indicesOutputTensorName = - Data.ProtoLens.fieldDefault, - _VarLenFeatureProto'shapesOutputTensorName = - Data.ProtoLens.fieldDefault} - -instance Data.ProtoLens.Message VarLenFeatureProto where - descriptor - = let dtype__field_descriptor - = Data.ProtoLens.FieldDescriptor "dtype" - (Data.ProtoLens.EnumField :: - Data.ProtoLens.FieldTypeDescriptor - Proto.Tensorflow.Core.Framework.Types.DataType) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional dtype) - :: Data.ProtoLens.FieldDescriptor VarLenFeatureProto - valuesOutputTensorName__field_descriptor - = Data.ProtoLens.FieldDescriptor "values_output_tensor_name" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional - valuesOutputTensorName) - :: Data.ProtoLens.FieldDescriptor VarLenFeatureProto - indicesOutputTensorName__field_descriptor - = Data.ProtoLens.FieldDescriptor "indices_output_tensor_name" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional - indicesOutputTensorName) - :: Data.ProtoLens.FieldDescriptor VarLenFeatureProto - shapesOutputTensorName__field_descriptor - = Data.ProtoLens.FieldDescriptor "shapes_output_tensor_name" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional - shapesOutputTensorName) - :: Data.ProtoLens.FieldDescriptor VarLenFeatureProto - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.VarLenFeatureProto") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, dtype__field_descriptor), - (Data.ProtoLens.Tag 2, valuesOutputTensorName__field_descriptor), - (Data.ProtoLens.Tag 3, indicesOutputTensorName__field_descriptor), - (Data.ProtoLens.Tag 4, shapesOutputTensorName__field_descriptor)]) - (Data.Map.fromList - [("dtype", dtype__field_descriptor), - ("values_output_tensor_name", - valuesOutputTensorName__field_descriptor), - ("indices_output_tensor_name", - indicesOutputTensorName__field_descriptor), - ("shapes_output_tensor_name", - shapesOutputTensorName__field_descriptor)]) - -defaultValue :: - forall f s t a b . - (Lens.Labels.HasLens "defaultValue" f s t a b) => - Lens.Family2.LensLike f s t a b -defaultValue - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "defaultValue") - -dtype :: - forall f s t a b . (Lens.Labels.HasLens "dtype" f s t a b) => - Lens.Family2.LensLike f s t a b -dtype - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "dtype") - -featureMap :: - forall f s t a b . (Lens.Labels.HasLens "featureMap" f s t a b) => - Lens.Family2.LensLike f s t a b -featureMap - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "featureMap") - -fixedLenFeature :: - forall f s t a b . - (Lens.Labels.HasLens "fixedLenFeature" f s t a b) => - Lens.Family2.LensLike f s t a b -fixedLenFeature - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "fixedLenFeature") - -indicesOutputTensorName :: - forall f s t a b . - (Lens.Labels.HasLens "indicesOutputTensorName" f s t a b) => - Lens.Family2.LensLike f s t a b -indicesOutputTensorName - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: - (Lens.Labels.Proxy#) "indicesOutputTensorName") - -key :: - forall f s t a b . (Lens.Labels.HasLens "key" f s t a b) => - Lens.Family2.LensLike f s t a b -key - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "key") - -maybe'config :: - forall f s t a b . - (Lens.Labels.HasLens "maybe'config" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'config - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'config") - -maybe'defaultValue :: - forall f s t a b . - (Lens.Labels.HasLens "maybe'defaultValue" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'defaultValue - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'defaultValue") - -maybe'fixedLenFeature :: - forall f s t a b . - (Lens.Labels.HasLens "maybe'fixedLenFeature" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'fixedLenFeature - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: - (Lens.Labels.Proxy#) "maybe'fixedLenFeature") - -maybe'shape :: - forall f s t a b . (Lens.Labels.HasLens "maybe'shape" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'shape - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'shape") - -maybe'value :: - forall f s t a b . (Lens.Labels.HasLens "maybe'value" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'value - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'value") - -maybe'varLenFeature :: - forall f s t a b . - (Lens.Labels.HasLens "maybe'varLenFeature" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'varLenFeature - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: - (Lens.Labels.Proxy#) "maybe'varLenFeature") - -shape :: - forall f s t a b . (Lens.Labels.HasLens "shape" f s t a b) => - Lens.Family2.LensLike f s t a b -shape - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "shape") - -shapesOutputTensorName :: - forall f s t a b . - (Lens.Labels.HasLens "shapesOutputTensorName" f s t a b) => - Lens.Family2.LensLike f s t a b -shapesOutputTensorName - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: - (Lens.Labels.Proxy#) "shapesOutputTensorName") - -value :: - forall f s t a b . (Lens.Labels.HasLens "value" f s t a b) => - Lens.Family2.LensLike f s t a b -value - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "value") - -valuesOutputTensorName :: - forall f s t a b . - (Lens.Labels.HasLens "valuesOutputTensorName" f s t a b) => - Lens.Family2.LensLike f s t a b -valuesOutputTensorName - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: - (Lens.Labels.Proxy#) "valuesOutputTensorName") - -varLenFeature :: - forall f s t a b . - (Lens.Labels.HasLens "varLenFeature" f s t a b) => - Lens.Family2.LensLike f s t a b -varLenFeature - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "varLenFeature") diff --git a/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Example/Feature.hs b/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Example/Feature.hs deleted file mode 100644 --- a/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Example/Feature.hs +++ /dev/null @@ -1,598 +0,0 @@ -{- This file was auto-generated from tensorflow/core/example/feature.proto by the proto-lens-protoc program. -} -{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies, - UndecidableInstances, MultiParamTypeClasses, FlexibleContexts, - FlexibleInstances, PatternSynonyms, MagicHash, NoImplicitPrelude - #-} -{-# OPTIONS_GHC -fno-warn-unused-imports#-} -module Proto.Tensorflow.Core.Example.Feature where -import qualified Data.ProtoLens.Reexport.Prelude as Prelude -import qualified Data.ProtoLens.Reexport.Data.Int as Data.Int -import qualified Data.ProtoLens.Reexport.Data.Word as Data.Word -import qualified Data.ProtoLens.Reexport.Data.ProtoLens - as Data.ProtoLens -import qualified - Data.ProtoLens.Reexport.Data.ProtoLens.Message.Enum - as Data.ProtoLens.Message.Enum -import qualified Data.ProtoLens.Reexport.Lens.Family2 - as Lens.Family2 -import qualified Data.ProtoLens.Reexport.Lens.Family2.Unchecked - as Lens.Family2.Unchecked -import qualified Data.ProtoLens.Reexport.Data.Default.Class - as Data.Default.Class -import qualified Data.ProtoLens.Reexport.Data.Text as Data.Text -import qualified Data.ProtoLens.Reexport.Data.Map as Data.Map -import qualified Data.ProtoLens.Reexport.Data.ByteString - as Data.ByteString -import qualified Data.ProtoLens.Reexport.Lens.Labels as Lens.Labels - -data BytesList = BytesList{_BytesList'value :: - ![Data.ByteString.ByteString]} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ [Data.ByteString.ByteString], - b ~ [Data.ByteString.ByteString], Prelude.Functor f) => - Lens.Labels.HasLens "value" f BytesList BytesList a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _BytesList'value - (\ x__ y__ -> x__{_BytesList'value = y__})) - Prelude.id - -instance Data.Default.Class.Default BytesList where - def = BytesList{_BytesList'value = []} - -instance Data.ProtoLens.Message BytesList where - descriptor - = let value__field_descriptor - = Data.ProtoLens.FieldDescriptor "value" - (Data.ProtoLens.BytesField :: - Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked value) - :: Data.ProtoLens.FieldDescriptor BytesList - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.BytesList") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, value__field_descriptor)]) - (Data.Map.fromList [("value", value__field_descriptor)]) - -data Feature = Feature{_Feature'kind :: - !(Prelude.Maybe Feature'Kind)} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -data Feature'Kind = Feature'BytesList !BytesList - | Feature'FloatList !FloatList - | Feature'Int64List !Int64List - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Prelude.Maybe Feature'Kind, - b ~ Prelude.Maybe Feature'Kind, Prelude.Functor f) => - Lens.Labels.HasLens "maybe'kind" f Feature Feature a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _Feature'kind - (\ x__ y__ -> x__{_Feature'kind = y__})) - Prelude.id - -instance (a ~ Prelude.Maybe BytesList, b ~ Prelude.Maybe BytesList, - Prelude.Functor f) => - Lens.Labels.HasLens "maybe'bytesList" f Feature Feature a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _Feature'kind - (\ x__ y__ -> x__{_Feature'kind = y__})) - (Lens.Family2.Unchecked.lens - (\ x__ -> - case x__ of - Prelude.Just (Feature'BytesList x__val) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap Feature'BytesList y__)) - -instance (a ~ BytesList, b ~ BytesList, Prelude.Functor f) => - Lens.Labels.HasLens "bytesList" f Feature Feature a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _Feature'kind - (\ x__ y__ -> x__{_Feature'kind = y__})) - ((Prelude..) - (Lens.Family2.Unchecked.lens - (\ x__ -> - case x__ of - Prelude.Just (Feature'BytesList x__val) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap Feature'BytesList y__)) - (Data.ProtoLens.maybeLens Data.Default.Class.def)) - -instance (a ~ Prelude.Maybe FloatList, b ~ Prelude.Maybe FloatList, - Prelude.Functor f) => - Lens.Labels.HasLens "maybe'floatList" f Feature Feature a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _Feature'kind - (\ x__ y__ -> x__{_Feature'kind = y__})) - (Lens.Family2.Unchecked.lens - (\ x__ -> - case x__ of - Prelude.Just (Feature'FloatList x__val) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap Feature'FloatList y__)) - -instance (a ~ FloatList, b ~ FloatList, Prelude.Functor f) => - Lens.Labels.HasLens "floatList" f Feature Feature a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _Feature'kind - (\ x__ y__ -> x__{_Feature'kind = y__})) - ((Prelude..) - (Lens.Family2.Unchecked.lens - (\ x__ -> - case x__ of - Prelude.Just (Feature'FloatList x__val) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap Feature'FloatList y__)) - (Data.ProtoLens.maybeLens Data.Default.Class.def)) - -instance (a ~ Prelude.Maybe Int64List, b ~ Prelude.Maybe Int64List, - Prelude.Functor f) => - Lens.Labels.HasLens "maybe'int64List" f Feature Feature a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _Feature'kind - (\ x__ y__ -> x__{_Feature'kind = y__})) - (Lens.Family2.Unchecked.lens - (\ x__ -> - case x__ of - Prelude.Just (Feature'Int64List x__val) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap Feature'Int64List y__)) - -instance (a ~ Int64List, b ~ Int64List, Prelude.Functor f) => - Lens.Labels.HasLens "int64List" f Feature Feature a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _Feature'kind - (\ x__ y__ -> x__{_Feature'kind = y__})) - ((Prelude..) - (Lens.Family2.Unchecked.lens - (\ x__ -> - case x__ of - Prelude.Just (Feature'Int64List x__val) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap Feature'Int64List y__)) - (Data.ProtoLens.maybeLens Data.Default.Class.def)) - -instance Data.Default.Class.Default Feature where - def = Feature{_Feature'kind = Prelude.Nothing} - -instance Data.ProtoLens.Message Feature where - descriptor - = let bytesList__field_descriptor - = Data.ProtoLens.FieldDescriptor "bytes_list" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor BytesList) - (Data.ProtoLens.OptionalField maybe'bytesList) - :: Data.ProtoLens.FieldDescriptor Feature - floatList__field_descriptor - = Data.ProtoLens.FieldDescriptor "float_list" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor FloatList) - (Data.ProtoLens.OptionalField maybe'floatList) - :: Data.ProtoLens.FieldDescriptor Feature - int64List__field_descriptor - = Data.ProtoLens.FieldDescriptor "int64_list" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor Int64List) - (Data.ProtoLens.OptionalField maybe'int64List) - :: Data.ProtoLens.FieldDescriptor Feature - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.Feature") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, bytesList__field_descriptor), - (Data.ProtoLens.Tag 2, floatList__field_descriptor), - (Data.ProtoLens.Tag 3, int64List__field_descriptor)]) - (Data.Map.fromList - [("bytes_list", bytesList__field_descriptor), - ("float_list", floatList__field_descriptor), - ("int64_list", int64List__field_descriptor)]) - -data FeatureList = FeatureList{_FeatureList'feature :: ![Feature]} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ [Feature], b ~ [Feature], Prelude.Functor f) => - Lens.Labels.HasLens "feature" f FeatureList FeatureList a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _FeatureList'feature - (\ x__ y__ -> x__{_FeatureList'feature = y__})) - Prelude.id - -instance Data.Default.Class.Default FeatureList where - def = FeatureList{_FeatureList'feature = []} - -instance Data.ProtoLens.Message FeatureList where - descriptor - = let feature__field_descriptor - = Data.ProtoLens.FieldDescriptor "feature" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor Feature) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked feature) - :: Data.ProtoLens.FieldDescriptor FeatureList - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.FeatureList") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, feature__field_descriptor)]) - (Data.Map.fromList [("feature", feature__field_descriptor)]) - -data FeatureLists = FeatureLists{_FeatureLists'featureList :: - !(Data.Map.Map Data.Text.Text FeatureList)} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Data.Map.Map Data.Text.Text FeatureList, - b ~ Data.Map.Map Data.Text.Text FeatureList, Prelude.Functor f) => - Lens.Labels.HasLens "featureList" f FeatureLists FeatureLists a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _FeatureLists'featureList - (\ x__ y__ -> x__{_FeatureLists'featureList = y__})) - Prelude.id - -instance Data.Default.Class.Default FeatureLists where - def = FeatureLists{_FeatureLists'featureList = Data.Map.empty} - -instance Data.ProtoLens.Message FeatureLists where - descriptor - = let featureList__field_descriptor - = Data.ProtoLens.FieldDescriptor "feature_list" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor FeatureLists'FeatureListEntry) - (Data.ProtoLens.MapField key value featureList) - :: Data.ProtoLens.FieldDescriptor FeatureLists - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.FeatureLists") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, featureList__field_descriptor)]) - (Data.Map.fromList - [("feature_list", featureList__field_descriptor)]) - -data FeatureLists'FeatureListEntry = FeatureLists'FeatureListEntry{_FeatureLists'FeatureListEntry'key - :: !Data.Text.Text, - _FeatureLists'FeatureListEntry'value - :: !(Prelude.Maybe FeatureList)} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "key" f FeatureLists'FeatureListEntry - FeatureLists'FeatureListEntry - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _FeatureLists'FeatureListEntry'key - (\ x__ y__ -> x__{_FeatureLists'FeatureListEntry'key = y__})) - Prelude.id - -instance (a ~ FeatureList, b ~ FeatureList, Prelude.Functor f) => - Lens.Labels.HasLens "value" f FeatureLists'FeatureListEntry - FeatureLists'FeatureListEntry - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _FeatureLists'FeatureListEntry'value - (\ x__ y__ -> x__{_FeatureLists'FeatureListEntry'value = y__})) - (Data.ProtoLens.maybeLens Data.Default.Class.def) - -instance (a ~ Prelude.Maybe FeatureList, - b ~ Prelude.Maybe FeatureList, Prelude.Functor f) => - Lens.Labels.HasLens "maybe'value" f FeatureLists'FeatureListEntry - FeatureLists'FeatureListEntry - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _FeatureLists'FeatureListEntry'value - (\ x__ y__ -> x__{_FeatureLists'FeatureListEntry'value = y__})) - Prelude.id - -instance Data.Default.Class.Default FeatureLists'FeatureListEntry - where - def - = FeatureLists'FeatureListEntry{_FeatureLists'FeatureListEntry'key - = Data.ProtoLens.fieldDefault, - _FeatureLists'FeatureListEntry'value = Prelude.Nothing} - -instance Data.ProtoLens.Message FeatureLists'FeatureListEntry where - descriptor - = let key__field_descriptor - = Data.ProtoLens.FieldDescriptor "key" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional key) - :: Data.ProtoLens.FieldDescriptor FeatureLists'FeatureListEntry - value__field_descriptor - = Data.ProtoLens.FieldDescriptor "value" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor FeatureList) - (Data.ProtoLens.OptionalField maybe'value) - :: Data.ProtoLens.FieldDescriptor FeatureLists'FeatureListEntry - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.FeatureLists.FeatureListEntry") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, key__field_descriptor), - (Data.ProtoLens.Tag 2, value__field_descriptor)]) - (Data.Map.fromList - [("key", key__field_descriptor), - ("value", value__field_descriptor)]) - -data Features = Features{_Features'feature :: - !(Data.Map.Map Data.Text.Text Feature)} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Data.Map.Map Data.Text.Text Feature, - b ~ Data.Map.Map Data.Text.Text Feature, Prelude.Functor f) => - Lens.Labels.HasLens "feature" f Features Features a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _Features'feature - (\ x__ y__ -> x__{_Features'feature = y__})) - Prelude.id - -instance Data.Default.Class.Default Features where - def = Features{_Features'feature = Data.Map.empty} - -instance Data.ProtoLens.Message Features where - descriptor - = let feature__field_descriptor - = Data.ProtoLens.FieldDescriptor "feature" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor Features'FeatureEntry) - (Data.ProtoLens.MapField key value feature) - :: Data.ProtoLens.FieldDescriptor Features - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.Features") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, feature__field_descriptor)]) - (Data.Map.fromList [("feature", feature__field_descriptor)]) - -data Features'FeatureEntry = Features'FeatureEntry{_Features'FeatureEntry'key - :: !Data.Text.Text, - _Features'FeatureEntry'value :: - !(Prelude.Maybe Feature)} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "key" f Features'FeatureEntry - Features'FeatureEntry - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _Features'FeatureEntry'key - (\ x__ y__ -> x__{_Features'FeatureEntry'key = y__})) - Prelude.id - -instance (a ~ Feature, b ~ Feature, Prelude.Functor f) => - Lens.Labels.HasLens "value" f Features'FeatureEntry - Features'FeatureEntry - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _Features'FeatureEntry'value - (\ x__ y__ -> x__{_Features'FeatureEntry'value = y__})) - (Data.ProtoLens.maybeLens Data.Default.Class.def) - -instance (a ~ Prelude.Maybe Feature, b ~ Prelude.Maybe Feature, - Prelude.Functor f) => - Lens.Labels.HasLens "maybe'value" f Features'FeatureEntry - Features'FeatureEntry - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _Features'FeatureEntry'value - (\ x__ y__ -> x__{_Features'FeatureEntry'value = y__})) - Prelude.id - -instance Data.Default.Class.Default Features'FeatureEntry where - def - = Features'FeatureEntry{_Features'FeatureEntry'key = - Data.ProtoLens.fieldDefault, - _Features'FeatureEntry'value = Prelude.Nothing} - -instance Data.ProtoLens.Message Features'FeatureEntry where - descriptor - = let key__field_descriptor - = Data.ProtoLens.FieldDescriptor "key" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional key) - :: Data.ProtoLens.FieldDescriptor Features'FeatureEntry - value__field_descriptor - = Data.ProtoLens.FieldDescriptor "value" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor Feature) - (Data.ProtoLens.OptionalField maybe'value) - :: Data.ProtoLens.FieldDescriptor Features'FeatureEntry - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.Features.FeatureEntry") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, key__field_descriptor), - (Data.ProtoLens.Tag 2, value__field_descriptor)]) - (Data.Map.fromList - [("key", key__field_descriptor), - ("value", value__field_descriptor)]) - -data FloatList = FloatList{_FloatList'value :: ![Prelude.Float]} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ [Prelude.Float], b ~ [Prelude.Float], - Prelude.Functor f) => - Lens.Labels.HasLens "value" f FloatList FloatList a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _FloatList'value - (\ x__ y__ -> x__{_FloatList'value = y__})) - Prelude.id - -instance Data.Default.Class.Default FloatList where - def = FloatList{_FloatList'value = []} - -instance Data.ProtoLens.Message FloatList where - descriptor - = let value__field_descriptor - = Data.ProtoLens.FieldDescriptor "value" - (Data.ProtoLens.FloatField :: - Data.ProtoLens.FieldTypeDescriptor Prelude.Float) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Packed value) - :: Data.ProtoLens.FieldDescriptor FloatList - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.FloatList") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, value__field_descriptor)]) - (Data.Map.fromList [("value", value__field_descriptor)]) - -data Int64List = Int64List{_Int64List'value :: ![Data.Int.Int64]} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ [Data.Int.Int64], b ~ [Data.Int.Int64], - Prelude.Functor f) => - Lens.Labels.HasLens "value" f Int64List Int64List a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _Int64List'value - (\ x__ y__ -> x__{_Int64List'value = y__})) - Prelude.id - -instance Data.Default.Class.Default Int64List where - def = Int64List{_Int64List'value = []} - -instance Data.ProtoLens.Message Int64List where - descriptor - = let value__field_descriptor - = Data.ProtoLens.FieldDescriptor "value" - (Data.ProtoLens.Int64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Packed value) - :: Data.ProtoLens.FieldDescriptor Int64List - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.Int64List") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, value__field_descriptor)]) - (Data.Map.fromList [("value", value__field_descriptor)]) - -bytesList :: - forall f s t a b . (Lens.Labels.HasLens "bytesList" f s t a b) => - Lens.Family2.LensLike f s t a b -bytesList - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "bytesList") - -feature :: - forall f s t a b . (Lens.Labels.HasLens "feature" f s t a b) => - Lens.Family2.LensLike f s t a b -feature - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "feature") - -featureList :: - forall f s t a b . (Lens.Labels.HasLens "featureList" f s t a b) => - Lens.Family2.LensLike f s t a b -featureList - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "featureList") - -floatList :: - forall f s t a b . (Lens.Labels.HasLens "floatList" f s t a b) => - Lens.Family2.LensLike f s t a b -floatList - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "floatList") - -int64List :: - forall f s t a b . (Lens.Labels.HasLens "int64List" f s t a b) => - Lens.Family2.LensLike f s t a b -int64List - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "int64List") - -key :: - forall f s t a b . (Lens.Labels.HasLens "key" f s t a b) => - Lens.Family2.LensLike f s t a b -key - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "key") - -maybe'bytesList :: - forall f s t a b . - (Lens.Labels.HasLens "maybe'bytesList" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'bytesList - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'bytesList") - -maybe'floatList :: - forall f s t a b . - (Lens.Labels.HasLens "maybe'floatList" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'floatList - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'floatList") - -maybe'int64List :: - forall f s t a b . - (Lens.Labels.HasLens "maybe'int64List" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'int64List - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'int64List") - -maybe'kind :: - forall f s t a b . (Lens.Labels.HasLens "maybe'kind" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'kind - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'kind") - -maybe'value :: - forall f s t a b . (Lens.Labels.HasLens "maybe'value" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'value - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'value") - -value :: - forall f s t a b . (Lens.Labels.HasLens "value" f s t a b) => - Lens.Family2.LensLike f s t a b -value - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "value") diff --git a/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Framework/AllocationDescription.hs b/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Framework/AllocationDescription.hs deleted file mode 100644 --- a/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Framework/AllocationDescription.hs +++ /dev/null @@ -1,235 +0,0 @@ -{- This file was auto-generated from tensorflow/core/framework/allocation_description.proto by the proto-lens-protoc program. -} -{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies, - UndecidableInstances, MultiParamTypeClasses, FlexibleContexts, - FlexibleInstances, PatternSynonyms, MagicHash, NoImplicitPrelude - #-} -{-# OPTIONS_GHC -fno-warn-unused-imports#-} -module Proto.Tensorflow.Core.Framework.AllocationDescription where -import qualified Data.ProtoLens.Reexport.Prelude as Prelude -import qualified Data.ProtoLens.Reexport.Data.Int as Data.Int -import qualified Data.ProtoLens.Reexport.Data.Word as Data.Word -import qualified Data.ProtoLens.Reexport.Data.ProtoLens - as Data.ProtoLens -import qualified - Data.ProtoLens.Reexport.Data.ProtoLens.Message.Enum - as Data.ProtoLens.Message.Enum -import qualified Data.ProtoLens.Reexport.Lens.Family2 - as Lens.Family2 -import qualified Data.ProtoLens.Reexport.Lens.Family2.Unchecked - as Lens.Family2.Unchecked -import qualified Data.ProtoLens.Reexport.Data.Default.Class - as Data.Default.Class -import qualified Data.ProtoLens.Reexport.Data.Text as Data.Text -import qualified Data.ProtoLens.Reexport.Data.Map as Data.Map -import qualified Data.ProtoLens.Reexport.Data.ByteString - as Data.ByteString -import qualified Data.ProtoLens.Reexport.Lens.Labels as Lens.Labels - -data AllocationDescription = AllocationDescription{_AllocationDescription'requestedBytes - :: !Data.Int.Int64, - _AllocationDescription'allocatedBytes :: - !Data.Int.Int64, - _AllocationDescription'allocatorName :: - !Data.Text.Text, - _AllocationDescription'allocationId :: - !Data.Int.Int64, - _AllocationDescription'hasSingleReference :: - !Prelude.Bool, - _AllocationDescription'ptr :: !Data.Word.Word64} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Data.Int.Int64, b ~ Data.Int.Int64, - Prelude.Functor f) => - Lens.Labels.HasLens "requestedBytes" f AllocationDescription - AllocationDescription - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _AllocationDescription'requestedBytes - (\ x__ y__ -> x__{_AllocationDescription'requestedBytes = y__})) - Prelude.id - -instance (a ~ Data.Int.Int64, b ~ Data.Int.Int64, - Prelude.Functor f) => - Lens.Labels.HasLens "allocatedBytes" f AllocationDescription - AllocationDescription - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _AllocationDescription'allocatedBytes - (\ x__ y__ -> x__{_AllocationDescription'allocatedBytes = y__})) - Prelude.id - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "allocatorName" f AllocationDescription - AllocationDescription - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _AllocationDescription'allocatorName - (\ x__ y__ -> x__{_AllocationDescription'allocatorName = y__})) - Prelude.id - -instance (a ~ Data.Int.Int64, b ~ Data.Int.Int64, - Prelude.Functor f) => - Lens.Labels.HasLens "allocationId" f AllocationDescription - AllocationDescription - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _AllocationDescription'allocationId - (\ x__ y__ -> x__{_AllocationDescription'allocationId = y__})) - Prelude.id - -instance (a ~ Prelude.Bool, b ~ Prelude.Bool, Prelude.Functor f) => - Lens.Labels.HasLens "hasSingleReference" f AllocationDescription - AllocationDescription - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _AllocationDescription'hasSingleReference - (\ x__ y__ -> - x__{_AllocationDescription'hasSingleReference = y__})) - Prelude.id - -instance (a ~ Data.Word.Word64, b ~ Data.Word.Word64, - Prelude.Functor f) => - Lens.Labels.HasLens "ptr" f AllocationDescription - AllocationDescription - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _AllocationDescription'ptr - (\ x__ y__ -> x__{_AllocationDescription'ptr = y__})) - Prelude.id - -instance Data.Default.Class.Default AllocationDescription where - def - = AllocationDescription{_AllocationDescription'requestedBytes = - Data.ProtoLens.fieldDefault, - _AllocationDescription'allocatedBytes = - Data.ProtoLens.fieldDefault, - _AllocationDescription'allocatorName = - Data.ProtoLens.fieldDefault, - _AllocationDescription'allocationId = Data.ProtoLens.fieldDefault, - _AllocationDescription'hasSingleReference = - Data.ProtoLens.fieldDefault, - _AllocationDescription'ptr = Data.ProtoLens.fieldDefault} - -instance Data.ProtoLens.Message AllocationDescription where - descriptor - = let requestedBytes__field_descriptor - = Data.ProtoLens.FieldDescriptor "requested_bytes" - (Data.ProtoLens.Int64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional requestedBytes) - :: Data.ProtoLens.FieldDescriptor AllocationDescription - allocatedBytes__field_descriptor - = Data.ProtoLens.FieldDescriptor "allocated_bytes" - (Data.ProtoLens.Int64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional allocatedBytes) - :: Data.ProtoLens.FieldDescriptor AllocationDescription - allocatorName__field_descriptor - = Data.ProtoLens.FieldDescriptor "allocator_name" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional allocatorName) - :: Data.ProtoLens.FieldDescriptor AllocationDescription - allocationId__field_descriptor - = Data.ProtoLens.FieldDescriptor "allocation_id" - (Data.ProtoLens.Int64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional allocationId) - :: Data.ProtoLens.FieldDescriptor AllocationDescription - hasSingleReference__field_descriptor - = Data.ProtoLens.FieldDescriptor "has_single_reference" - (Data.ProtoLens.BoolField :: - Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional - hasSingleReference) - :: Data.ProtoLens.FieldDescriptor AllocationDescription - ptr__field_descriptor - = Data.ProtoLens.FieldDescriptor "ptr" - (Data.ProtoLens.UInt64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional ptr) - :: Data.ProtoLens.FieldDescriptor AllocationDescription - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.AllocationDescription") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, requestedBytes__field_descriptor), - (Data.ProtoLens.Tag 2, allocatedBytes__field_descriptor), - (Data.ProtoLens.Tag 3, allocatorName__field_descriptor), - (Data.ProtoLens.Tag 4, allocationId__field_descriptor), - (Data.ProtoLens.Tag 5, hasSingleReference__field_descriptor), - (Data.ProtoLens.Tag 6, ptr__field_descriptor)]) - (Data.Map.fromList - [("requested_bytes", requestedBytes__field_descriptor), - ("allocated_bytes", allocatedBytes__field_descriptor), - ("allocator_name", allocatorName__field_descriptor), - ("allocation_id", allocationId__field_descriptor), - ("has_single_reference", hasSingleReference__field_descriptor), - ("ptr", ptr__field_descriptor)]) - -allocatedBytes :: - forall f s t a b . - (Lens.Labels.HasLens "allocatedBytes" f s t a b) => - Lens.Family2.LensLike f s t a b -allocatedBytes - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "allocatedBytes") - -allocationId :: - forall f s t a b . - (Lens.Labels.HasLens "allocationId" f s t a b) => - Lens.Family2.LensLike f s t a b -allocationId - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "allocationId") - -allocatorName :: - forall f s t a b . - (Lens.Labels.HasLens "allocatorName" f s t a b) => - Lens.Family2.LensLike f s t a b -allocatorName - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "allocatorName") - -hasSingleReference :: - forall f s t a b . - (Lens.Labels.HasLens "hasSingleReference" f s t a b) => - Lens.Family2.LensLike f s t a b -hasSingleReference - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "hasSingleReference") - -ptr :: - forall f s t a b . (Lens.Labels.HasLens "ptr" f s t a b) => - Lens.Family2.LensLike f s t a b -ptr - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "ptr") - -requestedBytes :: - forall f s t a b . - (Lens.Labels.HasLens "requestedBytes" f s t a b) => - Lens.Family2.LensLike f s t a b -requestedBytes - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "requestedBytes") diff --git a/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Framework/AttrValue.hs b/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Framework/AttrValue.hs deleted file mode 100644 --- a/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Framework/AttrValue.hs +++ /dev/null @@ -1,974 +0,0 @@ -{- This file was auto-generated from tensorflow/core/framework/attr_value.proto by the proto-lens-protoc program. -} -{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies, - UndecidableInstances, MultiParamTypeClasses, FlexibleContexts, - FlexibleInstances, PatternSynonyms, MagicHash, NoImplicitPrelude - #-} -{-# OPTIONS_GHC -fno-warn-unused-imports#-} -module Proto.Tensorflow.Core.Framework.AttrValue where -import qualified Data.ProtoLens.Reexport.Prelude as Prelude -import qualified Data.ProtoLens.Reexport.Data.Int as Data.Int -import qualified Data.ProtoLens.Reexport.Data.Word as Data.Word -import qualified Data.ProtoLens.Reexport.Data.ProtoLens - as Data.ProtoLens -import qualified - Data.ProtoLens.Reexport.Data.ProtoLens.Message.Enum - as Data.ProtoLens.Message.Enum -import qualified Data.ProtoLens.Reexport.Lens.Family2 - as Lens.Family2 -import qualified Data.ProtoLens.Reexport.Lens.Family2.Unchecked - as Lens.Family2.Unchecked -import qualified Data.ProtoLens.Reexport.Data.Default.Class - as Data.Default.Class -import qualified Data.ProtoLens.Reexport.Data.Text as Data.Text -import qualified Data.ProtoLens.Reexport.Data.Map as Data.Map -import qualified Data.ProtoLens.Reexport.Data.ByteString - as Data.ByteString -import qualified Data.ProtoLens.Reexport.Lens.Labels as Lens.Labels -import qualified Proto.Tensorflow.Core.Framework.Tensor -import qualified Proto.Tensorflow.Core.Framework.TensorShape -import qualified Proto.Tensorflow.Core.Framework.Types - -data AttrValue = AttrValue{_AttrValue'value :: - !(Prelude.Maybe AttrValue'Value)} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -data AttrValue'Value = AttrValue'S !Data.ByteString.ByteString - | AttrValue'I !Data.Int.Int64 - | AttrValue'F !Prelude.Float - | AttrValue'B !Prelude.Bool - | AttrValue'Type !Proto.Tensorflow.Core.Framework.Types.DataType - | AttrValue'Shape !Proto.Tensorflow.Core.Framework.TensorShape.TensorShapeProto - | AttrValue'Tensor !Proto.Tensorflow.Core.Framework.Tensor.TensorProto - | AttrValue'List !AttrValue'ListValue - | AttrValue'Func !NameAttrList - | AttrValue'Placeholder !Data.Text.Text - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Prelude.Maybe AttrValue'Value, - b ~ Prelude.Maybe AttrValue'Value, Prelude.Functor f) => - Lens.Labels.HasLens "maybe'value" f AttrValue AttrValue a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _AttrValue'value - (\ x__ y__ -> x__{_AttrValue'value = y__})) - Prelude.id - -instance (a ~ Prelude.Maybe Data.ByteString.ByteString, - b ~ Prelude.Maybe Data.ByteString.ByteString, Prelude.Functor f) => - Lens.Labels.HasLens "maybe's" f AttrValue AttrValue a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _AttrValue'value - (\ x__ y__ -> x__{_AttrValue'value = y__})) - (Lens.Family2.Unchecked.lens - (\ x__ -> - case x__ of - Prelude.Just (AttrValue'S x__val) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap AttrValue'S y__)) - -instance (a ~ Data.ByteString.ByteString, - b ~ Data.ByteString.ByteString, Prelude.Functor f) => - Lens.Labels.HasLens "s" f AttrValue AttrValue a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _AttrValue'value - (\ x__ y__ -> x__{_AttrValue'value = y__})) - ((Prelude..) - (Lens.Family2.Unchecked.lens - (\ x__ -> - case x__ of - Prelude.Just (AttrValue'S x__val) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap AttrValue'S y__)) - (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)) - -instance (a ~ Prelude.Maybe Data.Int.Int64, - b ~ Prelude.Maybe Data.Int.Int64, Prelude.Functor f) => - Lens.Labels.HasLens "maybe'i" f AttrValue AttrValue a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _AttrValue'value - (\ x__ y__ -> x__{_AttrValue'value = y__})) - (Lens.Family2.Unchecked.lens - (\ x__ -> - case x__ of - Prelude.Just (AttrValue'I x__val) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap AttrValue'I y__)) - -instance (a ~ Data.Int.Int64, b ~ Data.Int.Int64, - Prelude.Functor f) => - Lens.Labels.HasLens "i" f AttrValue AttrValue a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _AttrValue'value - (\ x__ y__ -> x__{_AttrValue'value = y__})) - ((Prelude..) - (Lens.Family2.Unchecked.lens - (\ x__ -> - case x__ of - Prelude.Just (AttrValue'I x__val) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap AttrValue'I y__)) - (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)) - -instance (a ~ Prelude.Maybe Prelude.Float, - b ~ Prelude.Maybe Prelude.Float, Prelude.Functor f) => - Lens.Labels.HasLens "maybe'f" f AttrValue AttrValue a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _AttrValue'value - (\ x__ y__ -> x__{_AttrValue'value = y__})) - (Lens.Family2.Unchecked.lens - (\ x__ -> - case x__ of - Prelude.Just (AttrValue'F x__val) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap AttrValue'F y__)) - -instance (a ~ Prelude.Float, b ~ Prelude.Float, - Prelude.Functor f) => - Lens.Labels.HasLens "f" f AttrValue AttrValue a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _AttrValue'value - (\ x__ y__ -> x__{_AttrValue'value = y__})) - ((Prelude..) - (Lens.Family2.Unchecked.lens - (\ x__ -> - case x__ of - Prelude.Just (AttrValue'F x__val) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap AttrValue'F y__)) - (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)) - -instance (a ~ Prelude.Maybe Prelude.Bool, - b ~ Prelude.Maybe Prelude.Bool, Prelude.Functor f) => - Lens.Labels.HasLens "maybe'b" f AttrValue AttrValue a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _AttrValue'value - (\ x__ y__ -> x__{_AttrValue'value = y__})) - (Lens.Family2.Unchecked.lens - (\ x__ -> - case x__ of - Prelude.Just (AttrValue'B x__val) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap AttrValue'B y__)) - -instance (a ~ Prelude.Bool, b ~ Prelude.Bool, Prelude.Functor f) => - Lens.Labels.HasLens "b" f AttrValue AttrValue a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _AttrValue'value - (\ x__ y__ -> x__{_AttrValue'value = y__})) - ((Prelude..) - (Lens.Family2.Unchecked.lens - (\ x__ -> - case x__ of - Prelude.Just (AttrValue'B x__val) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap AttrValue'B y__)) - (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)) - -instance (a ~ - Prelude.Maybe Proto.Tensorflow.Core.Framework.Types.DataType, - b ~ Prelude.Maybe Proto.Tensorflow.Core.Framework.Types.DataType, - Prelude.Functor f) => - Lens.Labels.HasLens "maybe'type'" f AttrValue AttrValue a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _AttrValue'value - (\ x__ y__ -> x__{_AttrValue'value = y__})) - (Lens.Family2.Unchecked.lens - (\ x__ -> - case x__ of - Prelude.Just (AttrValue'Type x__val) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap AttrValue'Type y__)) - -instance (a ~ Proto.Tensorflow.Core.Framework.Types.DataType, - b ~ Proto.Tensorflow.Core.Framework.Types.DataType, - Prelude.Functor f) => - Lens.Labels.HasLens "type'" f AttrValue AttrValue a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _AttrValue'value - (\ x__ y__ -> x__{_AttrValue'value = y__})) - ((Prelude..) - (Lens.Family2.Unchecked.lens - (\ x__ -> - case x__ of - Prelude.Just (AttrValue'Type x__val) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap AttrValue'Type y__)) - (Data.ProtoLens.maybeLens Data.Default.Class.def)) - -instance (a ~ - Prelude.Maybe - Proto.Tensorflow.Core.Framework.TensorShape.TensorShapeProto, - b ~ - Prelude.Maybe - Proto.Tensorflow.Core.Framework.TensorShape.TensorShapeProto, - Prelude.Functor f) => - Lens.Labels.HasLens "maybe'shape" f AttrValue AttrValue a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _AttrValue'value - (\ x__ y__ -> x__{_AttrValue'value = y__})) - (Lens.Family2.Unchecked.lens - (\ x__ -> - case x__ of - Prelude.Just (AttrValue'Shape x__val) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap AttrValue'Shape y__)) - -instance (a ~ - Proto.Tensorflow.Core.Framework.TensorShape.TensorShapeProto, - b ~ Proto.Tensorflow.Core.Framework.TensorShape.TensorShapeProto, - Prelude.Functor f) => - Lens.Labels.HasLens "shape" f AttrValue AttrValue a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _AttrValue'value - (\ x__ y__ -> x__{_AttrValue'value = y__})) - ((Prelude..) - (Lens.Family2.Unchecked.lens - (\ x__ -> - case x__ of - Prelude.Just (AttrValue'Shape x__val) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap AttrValue'Shape y__)) - (Data.ProtoLens.maybeLens Data.Default.Class.def)) - -instance (a ~ - Prelude.Maybe Proto.Tensorflow.Core.Framework.Tensor.TensorProto, - b ~ - Prelude.Maybe Proto.Tensorflow.Core.Framework.Tensor.TensorProto, - Prelude.Functor f) => - Lens.Labels.HasLens "maybe'tensor" f AttrValue AttrValue a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _AttrValue'value - (\ x__ y__ -> x__{_AttrValue'value = y__})) - (Lens.Family2.Unchecked.lens - (\ x__ -> - case x__ of - Prelude.Just (AttrValue'Tensor x__val) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap AttrValue'Tensor y__)) - -instance (a ~ Proto.Tensorflow.Core.Framework.Tensor.TensorProto, - b ~ Proto.Tensorflow.Core.Framework.Tensor.TensorProto, - Prelude.Functor f) => - Lens.Labels.HasLens "tensor" f AttrValue AttrValue a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _AttrValue'value - (\ x__ y__ -> x__{_AttrValue'value = y__})) - ((Prelude..) - (Lens.Family2.Unchecked.lens - (\ x__ -> - case x__ of - Prelude.Just (AttrValue'Tensor x__val) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap AttrValue'Tensor y__)) - (Data.ProtoLens.maybeLens Data.Default.Class.def)) - -instance (a ~ Prelude.Maybe AttrValue'ListValue, - b ~ Prelude.Maybe AttrValue'ListValue, Prelude.Functor f) => - Lens.Labels.HasLens "maybe'list" f AttrValue AttrValue a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _AttrValue'value - (\ x__ y__ -> x__{_AttrValue'value = y__})) - (Lens.Family2.Unchecked.lens - (\ x__ -> - case x__ of - Prelude.Just (AttrValue'List x__val) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap AttrValue'List y__)) - -instance (a ~ AttrValue'ListValue, b ~ AttrValue'ListValue, - Prelude.Functor f) => - Lens.Labels.HasLens "list" f AttrValue AttrValue a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _AttrValue'value - (\ x__ y__ -> x__{_AttrValue'value = y__})) - ((Prelude..) - (Lens.Family2.Unchecked.lens - (\ x__ -> - case x__ of - Prelude.Just (AttrValue'List x__val) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap AttrValue'List y__)) - (Data.ProtoLens.maybeLens Data.Default.Class.def)) - -instance (a ~ Prelude.Maybe NameAttrList, - b ~ Prelude.Maybe NameAttrList, Prelude.Functor f) => - Lens.Labels.HasLens "maybe'func" f AttrValue AttrValue a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _AttrValue'value - (\ x__ y__ -> x__{_AttrValue'value = y__})) - (Lens.Family2.Unchecked.lens - (\ x__ -> - case x__ of - Prelude.Just (AttrValue'Func x__val) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap AttrValue'Func y__)) - -instance (a ~ NameAttrList, b ~ NameAttrList, Prelude.Functor f) => - Lens.Labels.HasLens "func" f AttrValue AttrValue a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _AttrValue'value - (\ x__ y__ -> x__{_AttrValue'value = y__})) - ((Prelude..) - (Lens.Family2.Unchecked.lens - (\ x__ -> - case x__ of - Prelude.Just (AttrValue'Func x__val) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap AttrValue'Func y__)) - (Data.ProtoLens.maybeLens Data.Default.Class.def)) - -instance (a ~ Prelude.Maybe Data.Text.Text, - b ~ Prelude.Maybe Data.Text.Text, Prelude.Functor f) => - Lens.Labels.HasLens "maybe'placeholder" f AttrValue AttrValue a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _AttrValue'value - (\ x__ y__ -> x__{_AttrValue'value = y__})) - (Lens.Family2.Unchecked.lens - (\ x__ -> - case x__ of - Prelude.Just (AttrValue'Placeholder x__val) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap AttrValue'Placeholder y__)) - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "placeholder" f AttrValue AttrValue a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _AttrValue'value - (\ x__ y__ -> x__{_AttrValue'value = y__})) - ((Prelude..) - (Lens.Family2.Unchecked.lens - (\ x__ -> - case x__ of - Prelude.Just (AttrValue'Placeholder x__val) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap AttrValue'Placeholder y__)) - (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)) - -instance Data.Default.Class.Default AttrValue where - def = AttrValue{_AttrValue'value = Prelude.Nothing} - -instance Data.ProtoLens.Message AttrValue where - descriptor - = let s__field_descriptor - = Data.ProtoLens.FieldDescriptor "s" - (Data.ProtoLens.BytesField :: - Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) - (Data.ProtoLens.OptionalField maybe's) - :: Data.ProtoLens.FieldDescriptor AttrValue - i__field_descriptor - = Data.ProtoLens.FieldDescriptor "i" - (Data.ProtoLens.Int64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) - (Data.ProtoLens.OptionalField maybe'i) - :: Data.ProtoLens.FieldDescriptor AttrValue - f__field_descriptor - = Data.ProtoLens.FieldDescriptor "f" - (Data.ProtoLens.FloatField :: - Data.ProtoLens.FieldTypeDescriptor Prelude.Float) - (Data.ProtoLens.OptionalField maybe'f) - :: Data.ProtoLens.FieldDescriptor AttrValue - b__field_descriptor - = Data.ProtoLens.FieldDescriptor "b" - (Data.ProtoLens.BoolField :: - Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) - (Data.ProtoLens.OptionalField maybe'b) - :: Data.ProtoLens.FieldDescriptor AttrValue - type'__field_descriptor - = Data.ProtoLens.FieldDescriptor "type" - (Data.ProtoLens.EnumField :: - Data.ProtoLens.FieldTypeDescriptor - Proto.Tensorflow.Core.Framework.Types.DataType) - (Data.ProtoLens.OptionalField maybe'type') - :: Data.ProtoLens.FieldDescriptor AttrValue - shape__field_descriptor - = Data.ProtoLens.FieldDescriptor "shape" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor - Proto.Tensorflow.Core.Framework.TensorShape.TensorShapeProto) - (Data.ProtoLens.OptionalField maybe'shape) - :: Data.ProtoLens.FieldDescriptor AttrValue - tensor__field_descriptor - = Data.ProtoLens.FieldDescriptor "tensor" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor - Proto.Tensorflow.Core.Framework.Tensor.TensorProto) - (Data.ProtoLens.OptionalField maybe'tensor) - :: Data.ProtoLens.FieldDescriptor AttrValue - list__field_descriptor - = Data.ProtoLens.FieldDescriptor "list" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor AttrValue'ListValue) - (Data.ProtoLens.OptionalField maybe'list) - :: Data.ProtoLens.FieldDescriptor AttrValue - func__field_descriptor - = Data.ProtoLens.FieldDescriptor "func" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor NameAttrList) - (Data.ProtoLens.OptionalField maybe'func) - :: Data.ProtoLens.FieldDescriptor AttrValue - placeholder__field_descriptor - = Data.ProtoLens.FieldDescriptor "placeholder" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.OptionalField maybe'placeholder) - :: Data.ProtoLens.FieldDescriptor AttrValue - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.AttrValue") - (Data.Map.fromList - [(Data.ProtoLens.Tag 2, s__field_descriptor), - (Data.ProtoLens.Tag 3, i__field_descriptor), - (Data.ProtoLens.Tag 4, f__field_descriptor), - (Data.ProtoLens.Tag 5, b__field_descriptor), - (Data.ProtoLens.Tag 6, type'__field_descriptor), - (Data.ProtoLens.Tag 7, shape__field_descriptor), - (Data.ProtoLens.Tag 8, tensor__field_descriptor), - (Data.ProtoLens.Tag 1, list__field_descriptor), - (Data.ProtoLens.Tag 10, func__field_descriptor), - (Data.ProtoLens.Tag 9, placeholder__field_descriptor)]) - (Data.Map.fromList - [("s", s__field_descriptor), ("i", i__field_descriptor), - ("f", f__field_descriptor), ("b", b__field_descriptor), - ("type", type'__field_descriptor), - ("shape", shape__field_descriptor), - ("tensor", tensor__field_descriptor), - ("list", list__field_descriptor), ("func", func__field_descriptor), - ("placeholder", placeholder__field_descriptor)]) - -data AttrValue'ListValue = AttrValue'ListValue{_AttrValue'ListValue's - :: ![Data.ByteString.ByteString], - _AttrValue'ListValue'i :: ![Data.Int.Int64], - _AttrValue'ListValue'f :: ![Prelude.Float], - _AttrValue'ListValue'b :: ![Prelude.Bool], - _AttrValue'ListValue'type' :: - ![Proto.Tensorflow.Core.Framework.Types.DataType], - _AttrValue'ListValue'shape :: - ![Proto.Tensorflow.Core.Framework.TensorShape.TensorShapeProto], - _AttrValue'ListValue'tensor :: - ![Proto.Tensorflow.Core.Framework.Tensor.TensorProto], - _AttrValue'ListValue'func :: ![NameAttrList]} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ [Data.ByteString.ByteString], - b ~ [Data.ByteString.ByteString], Prelude.Functor f) => - Lens.Labels.HasLens "s" f AttrValue'ListValue AttrValue'ListValue a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _AttrValue'ListValue's - (\ x__ y__ -> x__{_AttrValue'ListValue's = y__})) - Prelude.id - -instance (a ~ [Data.Int.Int64], b ~ [Data.Int.Int64], - Prelude.Functor f) => - Lens.Labels.HasLens "i" f AttrValue'ListValue AttrValue'ListValue a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _AttrValue'ListValue'i - (\ x__ y__ -> x__{_AttrValue'ListValue'i = y__})) - Prelude.id - -instance (a ~ [Prelude.Float], b ~ [Prelude.Float], - Prelude.Functor f) => - Lens.Labels.HasLens "f" f AttrValue'ListValue AttrValue'ListValue a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _AttrValue'ListValue'f - (\ x__ y__ -> x__{_AttrValue'ListValue'f = y__})) - Prelude.id - -instance (a ~ [Prelude.Bool], b ~ [Prelude.Bool], - Prelude.Functor f) => - Lens.Labels.HasLens "b" f AttrValue'ListValue AttrValue'ListValue a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _AttrValue'ListValue'b - (\ x__ y__ -> x__{_AttrValue'ListValue'b = y__})) - Prelude.id - -instance (a ~ [Proto.Tensorflow.Core.Framework.Types.DataType], - b ~ [Proto.Tensorflow.Core.Framework.Types.DataType], - Prelude.Functor f) => - Lens.Labels.HasLens "type'" f AttrValue'ListValue - AttrValue'ListValue - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _AttrValue'ListValue'type' - (\ x__ y__ -> x__{_AttrValue'ListValue'type' = y__})) - Prelude.id - -instance (a ~ - [Proto.Tensorflow.Core.Framework.TensorShape.TensorShapeProto], - b ~ [Proto.Tensorflow.Core.Framework.TensorShape.TensorShapeProto], - Prelude.Functor f) => - Lens.Labels.HasLens "shape" f AttrValue'ListValue - AttrValue'ListValue - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _AttrValue'ListValue'shape - (\ x__ y__ -> x__{_AttrValue'ListValue'shape = y__})) - Prelude.id - -instance (a ~ [Proto.Tensorflow.Core.Framework.Tensor.TensorProto], - b ~ [Proto.Tensorflow.Core.Framework.Tensor.TensorProto], - Prelude.Functor f) => - Lens.Labels.HasLens "tensor" f AttrValue'ListValue - AttrValue'ListValue - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _AttrValue'ListValue'tensor - (\ x__ y__ -> x__{_AttrValue'ListValue'tensor = y__})) - Prelude.id - -instance (a ~ [NameAttrList], b ~ [NameAttrList], - Prelude.Functor f) => - Lens.Labels.HasLens "func" f AttrValue'ListValue - AttrValue'ListValue - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _AttrValue'ListValue'func - (\ x__ y__ -> x__{_AttrValue'ListValue'func = y__})) - Prelude.id - -instance Data.Default.Class.Default AttrValue'ListValue where - def - = AttrValue'ListValue{_AttrValue'ListValue's = [], - _AttrValue'ListValue'i = [], _AttrValue'ListValue'f = [], - _AttrValue'ListValue'b = [], _AttrValue'ListValue'type' = [], - _AttrValue'ListValue'shape = [], _AttrValue'ListValue'tensor = [], - _AttrValue'ListValue'func = []} - -instance Data.ProtoLens.Message AttrValue'ListValue where - descriptor - = let s__field_descriptor - = Data.ProtoLens.FieldDescriptor "s" - (Data.ProtoLens.BytesField :: - Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked s) - :: Data.ProtoLens.FieldDescriptor AttrValue'ListValue - i__field_descriptor - = Data.ProtoLens.FieldDescriptor "i" - (Data.ProtoLens.Int64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Packed i) - :: Data.ProtoLens.FieldDescriptor AttrValue'ListValue - f__field_descriptor - = Data.ProtoLens.FieldDescriptor "f" - (Data.ProtoLens.FloatField :: - Data.ProtoLens.FieldTypeDescriptor Prelude.Float) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Packed f) - :: Data.ProtoLens.FieldDescriptor AttrValue'ListValue - b__field_descriptor - = Data.ProtoLens.FieldDescriptor "b" - (Data.ProtoLens.BoolField :: - Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Packed b) - :: Data.ProtoLens.FieldDescriptor AttrValue'ListValue - type'__field_descriptor - = Data.ProtoLens.FieldDescriptor "type" - (Data.ProtoLens.EnumField :: - Data.ProtoLens.FieldTypeDescriptor - Proto.Tensorflow.Core.Framework.Types.DataType) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Packed type') - :: Data.ProtoLens.FieldDescriptor AttrValue'ListValue - shape__field_descriptor - = Data.ProtoLens.FieldDescriptor "shape" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor - Proto.Tensorflow.Core.Framework.TensorShape.TensorShapeProto) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked shape) - :: Data.ProtoLens.FieldDescriptor AttrValue'ListValue - tensor__field_descriptor - = Data.ProtoLens.FieldDescriptor "tensor" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor - Proto.Tensorflow.Core.Framework.Tensor.TensorProto) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked tensor) - :: Data.ProtoLens.FieldDescriptor AttrValue'ListValue - func__field_descriptor - = Data.ProtoLens.FieldDescriptor "func" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor NameAttrList) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked func) - :: Data.ProtoLens.FieldDescriptor AttrValue'ListValue - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.AttrValue.ListValue") - (Data.Map.fromList - [(Data.ProtoLens.Tag 2, s__field_descriptor), - (Data.ProtoLens.Tag 3, i__field_descriptor), - (Data.ProtoLens.Tag 4, f__field_descriptor), - (Data.ProtoLens.Tag 5, b__field_descriptor), - (Data.ProtoLens.Tag 6, type'__field_descriptor), - (Data.ProtoLens.Tag 7, shape__field_descriptor), - (Data.ProtoLens.Tag 8, tensor__field_descriptor), - (Data.ProtoLens.Tag 9, func__field_descriptor)]) - (Data.Map.fromList - [("s", s__field_descriptor), ("i", i__field_descriptor), - ("f", f__field_descriptor), ("b", b__field_descriptor), - ("type", type'__field_descriptor), - ("shape", shape__field_descriptor), - ("tensor", tensor__field_descriptor), - ("func", func__field_descriptor)]) - -data NameAttrList = NameAttrList{_NameAttrList'name :: - !Data.Text.Text, - _NameAttrList'attr :: !(Data.Map.Map Data.Text.Text AttrValue)} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "name" f NameAttrList NameAttrList a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _NameAttrList'name - (\ x__ y__ -> x__{_NameAttrList'name = y__})) - Prelude.id - -instance (a ~ Data.Map.Map Data.Text.Text AttrValue, - b ~ Data.Map.Map Data.Text.Text AttrValue, Prelude.Functor f) => - Lens.Labels.HasLens "attr" f NameAttrList NameAttrList a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _NameAttrList'attr - (\ x__ y__ -> x__{_NameAttrList'attr = y__})) - Prelude.id - -instance Data.Default.Class.Default NameAttrList where - def - = NameAttrList{_NameAttrList'name = Data.ProtoLens.fieldDefault, - _NameAttrList'attr = Data.Map.empty} - -instance Data.ProtoLens.Message NameAttrList where - descriptor - = let name__field_descriptor - = Data.ProtoLens.FieldDescriptor "name" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional name) - :: Data.ProtoLens.FieldDescriptor NameAttrList - attr__field_descriptor - = Data.ProtoLens.FieldDescriptor "attr" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor NameAttrList'AttrEntry) - (Data.ProtoLens.MapField key value attr) - :: Data.ProtoLens.FieldDescriptor NameAttrList - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.NameAttrList") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, name__field_descriptor), - (Data.ProtoLens.Tag 2, attr__field_descriptor)]) - (Data.Map.fromList - [("name", name__field_descriptor), - ("attr", attr__field_descriptor)]) - -data NameAttrList'AttrEntry = NameAttrList'AttrEntry{_NameAttrList'AttrEntry'key - :: !Data.Text.Text, - _NameAttrList'AttrEntry'value :: - !(Prelude.Maybe AttrValue)} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "key" f NameAttrList'AttrEntry - NameAttrList'AttrEntry - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _NameAttrList'AttrEntry'key - (\ x__ y__ -> x__{_NameAttrList'AttrEntry'key = y__})) - Prelude.id - -instance (a ~ AttrValue, b ~ AttrValue, Prelude.Functor f) => - Lens.Labels.HasLens "value" f NameAttrList'AttrEntry - NameAttrList'AttrEntry - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _NameAttrList'AttrEntry'value - (\ x__ y__ -> x__{_NameAttrList'AttrEntry'value = y__})) - (Data.ProtoLens.maybeLens Data.Default.Class.def) - -instance (a ~ Prelude.Maybe AttrValue, b ~ Prelude.Maybe AttrValue, - Prelude.Functor f) => - Lens.Labels.HasLens "maybe'value" f NameAttrList'AttrEntry - NameAttrList'AttrEntry - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _NameAttrList'AttrEntry'value - (\ x__ y__ -> x__{_NameAttrList'AttrEntry'value = y__})) - Prelude.id - -instance Data.Default.Class.Default NameAttrList'AttrEntry where - def - = NameAttrList'AttrEntry{_NameAttrList'AttrEntry'key = - Data.ProtoLens.fieldDefault, - _NameAttrList'AttrEntry'value = Prelude.Nothing} - -instance Data.ProtoLens.Message NameAttrList'AttrEntry where - descriptor - = let key__field_descriptor - = Data.ProtoLens.FieldDescriptor "key" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional key) - :: Data.ProtoLens.FieldDescriptor NameAttrList'AttrEntry - value__field_descriptor - = Data.ProtoLens.FieldDescriptor "value" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor AttrValue) - (Data.ProtoLens.OptionalField maybe'value) - :: Data.ProtoLens.FieldDescriptor NameAttrList'AttrEntry - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.NameAttrList.AttrEntry") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, key__field_descriptor), - (Data.ProtoLens.Tag 2, value__field_descriptor)]) - (Data.Map.fromList - [("key", key__field_descriptor), - ("value", value__field_descriptor)]) - -attr :: - forall f s t a b . (Lens.Labels.HasLens "attr" f s t a b) => - Lens.Family2.LensLike f s t a b -attr - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "attr") - -b :: - forall f s t a b . (Lens.Labels.HasLens "b" f s t a b) => - Lens.Family2.LensLike f s t a b -b = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "b") - -f :: - forall f s t a b . (Lens.Labels.HasLens "f" f s t a b) => - Lens.Family2.LensLike f s t a b -f = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "f") - -func :: - forall f s t a b . (Lens.Labels.HasLens "func" f s t a b) => - Lens.Family2.LensLike f s t a b -func - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "func") - -i :: - forall f s t a b . (Lens.Labels.HasLens "i" f s t a b) => - Lens.Family2.LensLike f s t a b -i = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "i") - -key :: - forall f s t a b . (Lens.Labels.HasLens "key" f s t a b) => - Lens.Family2.LensLike f s t a b -key - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "key") - -list :: - forall f s t a b . (Lens.Labels.HasLens "list" f s t a b) => - Lens.Family2.LensLike f s t a b -list - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "list") - -maybe'b :: - forall f s t a b . (Lens.Labels.HasLens "maybe'b" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'b - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'b") - -maybe'f :: - forall f s t a b . (Lens.Labels.HasLens "maybe'f" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'f - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'f") - -maybe'func :: - forall f s t a b . (Lens.Labels.HasLens "maybe'func" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'func - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'func") - -maybe'i :: - forall f s t a b . (Lens.Labels.HasLens "maybe'i" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'i - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'i") - -maybe'list :: - forall f s t a b . (Lens.Labels.HasLens "maybe'list" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'list - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'list") - -maybe'placeholder :: - forall f s t a b . - (Lens.Labels.HasLens "maybe'placeholder" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'placeholder - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'placeholder") - -maybe's :: - forall f s t a b . (Lens.Labels.HasLens "maybe's" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe's - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe's") - -maybe'shape :: - forall f s t a b . (Lens.Labels.HasLens "maybe'shape" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'shape - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'shape") - -maybe'tensor :: - forall f s t a b . - (Lens.Labels.HasLens "maybe'tensor" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'tensor - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'tensor") - -maybe'type' :: - forall f s t a b . (Lens.Labels.HasLens "maybe'type'" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'type' - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'type'") - -maybe'value :: - forall f s t a b . (Lens.Labels.HasLens "maybe'value" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'value - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'value") - -name :: - forall f s t a b . (Lens.Labels.HasLens "name" f s t a b) => - Lens.Family2.LensLike f s t a b -name - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "name") - -placeholder :: - forall f s t a b . (Lens.Labels.HasLens "placeholder" f s t a b) => - Lens.Family2.LensLike f s t a b -placeholder - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "placeholder") - -s :: - forall f s t a b . (Lens.Labels.HasLens "s" f s t a b) => - Lens.Family2.LensLike f s t a b -s = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "s") - -shape :: - forall f s t a b . (Lens.Labels.HasLens "shape" f s t a b) => - Lens.Family2.LensLike f s t a b -shape - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "shape") - -tensor :: - forall f s t a b . (Lens.Labels.HasLens "tensor" f s t a b) => - Lens.Family2.LensLike f s t a b -tensor - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "tensor") - -type' :: - forall f s t a b . (Lens.Labels.HasLens "type'" f s t a b) => - Lens.Family2.LensLike f s t a b -type' - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "type'") - -value :: - forall f s t a b . (Lens.Labels.HasLens "value" f s t a b) => - Lens.Family2.LensLike f s t a b -value - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "value") diff --git a/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Framework/CostGraph.hs b/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Framework/CostGraph.hs deleted file mode 100644 --- a/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Framework/CostGraph.hs +++ /dev/null @@ -1,818 +0,0 @@ -{- This file was auto-generated from tensorflow/core/framework/cost_graph.proto by the proto-lens-protoc program. -} -{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies, - UndecidableInstances, MultiParamTypeClasses, FlexibleContexts, - FlexibleInstances, PatternSynonyms, MagicHash, NoImplicitPrelude - #-} -{-# OPTIONS_GHC -fno-warn-unused-imports#-} -module Proto.Tensorflow.Core.Framework.CostGraph where -import qualified Data.ProtoLens.Reexport.Prelude as Prelude -import qualified Data.ProtoLens.Reexport.Data.Int as Data.Int -import qualified Data.ProtoLens.Reexport.Data.Word as Data.Word -import qualified Data.ProtoLens.Reexport.Data.ProtoLens - as Data.ProtoLens -import qualified - Data.ProtoLens.Reexport.Data.ProtoLens.Message.Enum - as Data.ProtoLens.Message.Enum -import qualified Data.ProtoLens.Reexport.Lens.Family2 - as Lens.Family2 -import qualified Data.ProtoLens.Reexport.Lens.Family2.Unchecked - as Lens.Family2.Unchecked -import qualified Data.ProtoLens.Reexport.Data.Default.Class - as Data.Default.Class -import qualified Data.ProtoLens.Reexport.Data.Text as Data.Text -import qualified Data.ProtoLens.Reexport.Data.Map as Data.Map -import qualified Data.ProtoLens.Reexport.Data.ByteString - as Data.ByteString -import qualified Data.ProtoLens.Reexport.Lens.Labels as Lens.Labels -import qualified Proto.Tensorflow.Core.Framework.TensorShape -import qualified Proto.Tensorflow.Core.Framework.Types - -data CostGraphDef = CostGraphDef{_CostGraphDef'node :: - ![CostGraphDef'Node]} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ [CostGraphDef'Node], b ~ [CostGraphDef'Node], - Prelude.Functor f) => - Lens.Labels.HasLens "node" f CostGraphDef CostGraphDef a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _CostGraphDef'node - (\ x__ y__ -> x__{_CostGraphDef'node = y__})) - Prelude.id - -instance Data.Default.Class.Default CostGraphDef where - def = CostGraphDef{_CostGraphDef'node = []} - -instance Data.ProtoLens.Message CostGraphDef where - descriptor - = let node__field_descriptor - = Data.ProtoLens.FieldDescriptor "node" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor CostGraphDef'Node) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked node) - :: Data.ProtoLens.FieldDescriptor CostGraphDef - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.CostGraphDef") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, node__field_descriptor)]) - (Data.Map.fromList [("node", node__field_descriptor)]) - -data CostGraphDef'Node = CostGraphDef'Node{_CostGraphDef'Node'name - :: !Data.Text.Text, - _CostGraphDef'Node'device :: !Data.Text.Text, - _CostGraphDef'Node'id :: !Data.Int.Int32, - _CostGraphDef'Node'inputInfo :: - ![CostGraphDef'Node'InputInfo], - _CostGraphDef'Node'outputInfo :: - ![CostGraphDef'Node'OutputInfo], - _CostGraphDef'Node'temporaryMemorySize :: - !Data.Int.Int64, - _CostGraphDef'Node'persistentMemorySize :: - !Data.Int.Int64, - _CostGraphDef'Node'hostTempMemorySize :: !Data.Int.Int64, - _CostGraphDef'Node'deviceTempMemorySize :: - !Data.Int.Int64, - _CostGraphDef'Node'devicePersistentMemorySize :: - !Data.Int.Int64, - _CostGraphDef'Node'computeCost :: !Data.Int.Int64, - _CostGraphDef'Node'computeTime :: !Data.Int.Int64, - _CostGraphDef'Node'memoryTime :: !Data.Int.Int64, - _CostGraphDef'Node'isFinal :: !Prelude.Bool, - _CostGraphDef'Node'controlInput :: ![Data.Int.Int32]} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "name" f CostGraphDef'Node CostGraphDef'Node a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _CostGraphDef'Node'name - (\ x__ y__ -> x__{_CostGraphDef'Node'name = y__})) - Prelude.id - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "device" f CostGraphDef'Node CostGraphDef'Node - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _CostGraphDef'Node'device - (\ x__ y__ -> x__{_CostGraphDef'Node'device = y__})) - Prelude.id - -instance (a ~ Data.Int.Int32, b ~ Data.Int.Int32, - Prelude.Functor f) => - Lens.Labels.HasLens "id" f CostGraphDef'Node CostGraphDef'Node a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _CostGraphDef'Node'id - (\ x__ y__ -> x__{_CostGraphDef'Node'id = y__})) - Prelude.id - -instance (a ~ [CostGraphDef'Node'InputInfo], - b ~ [CostGraphDef'Node'InputInfo], Prelude.Functor f) => - Lens.Labels.HasLens "inputInfo" f CostGraphDef'Node - CostGraphDef'Node - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _CostGraphDef'Node'inputInfo - (\ x__ y__ -> x__{_CostGraphDef'Node'inputInfo = y__})) - Prelude.id - -instance (a ~ [CostGraphDef'Node'OutputInfo], - b ~ [CostGraphDef'Node'OutputInfo], Prelude.Functor f) => - Lens.Labels.HasLens "outputInfo" f CostGraphDef'Node - CostGraphDef'Node - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _CostGraphDef'Node'outputInfo - (\ x__ y__ -> x__{_CostGraphDef'Node'outputInfo = y__})) - Prelude.id - -instance (a ~ Data.Int.Int64, b ~ Data.Int.Int64, - Prelude.Functor f) => - Lens.Labels.HasLens "temporaryMemorySize" f CostGraphDef'Node - CostGraphDef'Node - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _CostGraphDef'Node'temporaryMemorySize - (\ x__ y__ -> x__{_CostGraphDef'Node'temporaryMemorySize = y__})) - Prelude.id - -instance (a ~ Data.Int.Int64, b ~ Data.Int.Int64, - Prelude.Functor f) => - Lens.Labels.HasLens "persistentMemorySize" f CostGraphDef'Node - CostGraphDef'Node - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _CostGraphDef'Node'persistentMemorySize - (\ x__ y__ -> x__{_CostGraphDef'Node'persistentMemorySize = y__})) - Prelude.id - -instance (a ~ Data.Int.Int64, b ~ Data.Int.Int64, - Prelude.Functor f) => - Lens.Labels.HasLens "hostTempMemorySize" f CostGraphDef'Node - CostGraphDef'Node - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _CostGraphDef'Node'hostTempMemorySize - (\ x__ y__ -> x__{_CostGraphDef'Node'hostTempMemorySize = y__})) - Prelude.id - -instance (a ~ Data.Int.Int64, b ~ Data.Int.Int64, - Prelude.Functor f) => - Lens.Labels.HasLens "deviceTempMemorySize" f CostGraphDef'Node - CostGraphDef'Node - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _CostGraphDef'Node'deviceTempMemorySize - (\ x__ y__ -> x__{_CostGraphDef'Node'deviceTempMemorySize = y__})) - Prelude.id - -instance (a ~ Data.Int.Int64, b ~ Data.Int.Int64, - Prelude.Functor f) => - Lens.Labels.HasLens "devicePersistentMemorySize" f - CostGraphDef'Node - CostGraphDef'Node - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _CostGraphDef'Node'devicePersistentMemorySize - (\ x__ y__ -> - x__{_CostGraphDef'Node'devicePersistentMemorySize = y__})) - Prelude.id - -instance (a ~ Data.Int.Int64, b ~ Data.Int.Int64, - Prelude.Functor f) => - Lens.Labels.HasLens "computeCost" f CostGraphDef'Node - CostGraphDef'Node - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _CostGraphDef'Node'computeCost - (\ x__ y__ -> x__{_CostGraphDef'Node'computeCost = y__})) - Prelude.id - -instance (a ~ Data.Int.Int64, b ~ Data.Int.Int64, - Prelude.Functor f) => - Lens.Labels.HasLens "computeTime" f CostGraphDef'Node - CostGraphDef'Node - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _CostGraphDef'Node'computeTime - (\ x__ y__ -> x__{_CostGraphDef'Node'computeTime = y__})) - Prelude.id - -instance (a ~ Data.Int.Int64, b ~ Data.Int.Int64, - Prelude.Functor f) => - Lens.Labels.HasLens "memoryTime" f CostGraphDef'Node - CostGraphDef'Node - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _CostGraphDef'Node'memoryTime - (\ x__ y__ -> x__{_CostGraphDef'Node'memoryTime = y__})) - Prelude.id - -instance (a ~ Prelude.Bool, b ~ Prelude.Bool, Prelude.Functor f) => - Lens.Labels.HasLens "isFinal" f CostGraphDef'Node CostGraphDef'Node - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _CostGraphDef'Node'isFinal - (\ x__ y__ -> x__{_CostGraphDef'Node'isFinal = y__})) - Prelude.id - -instance (a ~ [Data.Int.Int32], b ~ [Data.Int.Int32], - Prelude.Functor f) => - Lens.Labels.HasLens "controlInput" f CostGraphDef'Node - CostGraphDef'Node - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _CostGraphDef'Node'controlInput - (\ x__ y__ -> x__{_CostGraphDef'Node'controlInput = y__})) - Prelude.id - -instance Data.Default.Class.Default CostGraphDef'Node where - def - = CostGraphDef'Node{_CostGraphDef'Node'name = - Data.ProtoLens.fieldDefault, - _CostGraphDef'Node'device = Data.ProtoLens.fieldDefault, - _CostGraphDef'Node'id = Data.ProtoLens.fieldDefault, - _CostGraphDef'Node'inputInfo = [], - _CostGraphDef'Node'outputInfo = [], - _CostGraphDef'Node'temporaryMemorySize = - Data.ProtoLens.fieldDefault, - _CostGraphDef'Node'persistentMemorySize = - Data.ProtoLens.fieldDefault, - _CostGraphDef'Node'hostTempMemorySize = - Data.ProtoLens.fieldDefault, - _CostGraphDef'Node'deviceTempMemorySize = - Data.ProtoLens.fieldDefault, - _CostGraphDef'Node'devicePersistentMemorySize = - Data.ProtoLens.fieldDefault, - _CostGraphDef'Node'computeCost = Data.ProtoLens.fieldDefault, - _CostGraphDef'Node'computeTime = Data.ProtoLens.fieldDefault, - _CostGraphDef'Node'memoryTime = Data.ProtoLens.fieldDefault, - _CostGraphDef'Node'isFinal = Data.ProtoLens.fieldDefault, - _CostGraphDef'Node'controlInput = []} - -instance Data.ProtoLens.Message CostGraphDef'Node where - descriptor - = let name__field_descriptor - = Data.ProtoLens.FieldDescriptor "name" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional name) - :: Data.ProtoLens.FieldDescriptor CostGraphDef'Node - device__field_descriptor - = Data.ProtoLens.FieldDescriptor "device" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional device) - :: Data.ProtoLens.FieldDescriptor CostGraphDef'Node - id__field_descriptor - = Data.ProtoLens.FieldDescriptor "id" - (Data.ProtoLens.Int32Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional id) - :: Data.ProtoLens.FieldDescriptor CostGraphDef'Node - inputInfo__field_descriptor - = Data.ProtoLens.FieldDescriptor "input_info" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor CostGraphDef'Node'InputInfo) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked inputInfo) - :: Data.ProtoLens.FieldDescriptor CostGraphDef'Node - outputInfo__field_descriptor - = Data.ProtoLens.FieldDescriptor "output_info" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor CostGraphDef'Node'OutputInfo) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked outputInfo) - :: Data.ProtoLens.FieldDescriptor CostGraphDef'Node - temporaryMemorySize__field_descriptor - = Data.ProtoLens.FieldDescriptor "temporary_memory_size" - (Data.ProtoLens.Int64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional - temporaryMemorySize) - :: Data.ProtoLens.FieldDescriptor CostGraphDef'Node - persistentMemorySize__field_descriptor - = Data.ProtoLens.FieldDescriptor "persistent_memory_size" - (Data.ProtoLens.Int64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional - persistentMemorySize) - :: Data.ProtoLens.FieldDescriptor CostGraphDef'Node - hostTempMemorySize__field_descriptor - = Data.ProtoLens.FieldDescriptor "host_temp_memory_size" - (Data.ProtoLens.Int64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional - hostTempMemorySize) - :: Data.ProtoLens.FieldDescriptor CostGraphDef'Node - deviceTempMemorySize__field_descriptor - = Data.ProtoLens.FieldDescriptor "device_temp_memory_size" - (Data.ProtoLens.Int64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional - deviceTempMemorySize) - :: Data.ProtoLens.FieldDescriptor CostGraphDef'Node - devicePersistentMemorySize__field_descriptor - = Data.ProtoLens.FieldDescriptor "device_persistent_memory_size" - (Data.ProtoLens.Int64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional - devicePersistentMemorySize) - :: Data.ProtoLens.FieldDescriptor CostGraphDef'Node - computeCost__field_descriptor - = Data.ProtoLens.FieldDescriptor "compute_cost" - (Data.ProtoLens.Int64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional computeCost) - :: Data.ProtoLens.FieldDescriptor CostGraphDef'Node - computeTime__field_descriptor - = Data.ProtoLens.FieldDescriptor "compute_time" - (Data.ProtoLens.Int64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional computeTime) - :: Data.ProtoLens.FieldDescriptor CostGraphDef'Node - memoryTime__field_descriptor - = Data.ProtoLens.FieldDescriptor "memory_time" - (Data.ProtoLens.Int64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional memoryTime) - :: Data.ProtoLens.FieldDescriptor CostGraphDef'Node - isFinal__field_descriptor - = Data.ProtoLens.FieldDescriptor "is_final" - (Data.ProtoLens.BoolField :: - Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional isFinal) - :: Data.ProtoLens.FieldDescriptor CostGraphDef'Node - controlInput__field_descriptor - = Data.ProtoLens.FieldDescriptor "control_input" - (Data.ProtoLens.Int32Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Packed controlInput) - :: Data.ProtoLens.FieldDescriptor CostGraphDef'Node - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.CostGraphDef.Node") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, name__field_descriptor), - (Data.ProtoLens.Tag 2, device__field_descriptor), - (Data.ProtoLens.Tag 3, id__field_descriptor), - (Data.ProtoLens.Tag 4, inputInfo__field_descriptor), - (Data.ProtoLens.Tag 5, outputInfo__field_descriptor), - (Data.ProtoLens.Tag 6, temporaryMemorySize__field_descriptor), - (Data.ProtoLens.Tag 12, persistentMemorySize__field_descriptor), - (Data.ProtoLens.Tag 10, hostTempMemorySize__field_descriptor), - (Data.ProtoLens.Tag 11, deviceTempMemorySize__field_descriptor), - (Data.ProtoLens.Tag 16, - devicePersistentMemorySize__field_descriptor), - (Data.ProtoLens.Tag 9, computeCost__field_descriptor), - (Data.ProtoLens.Tag 14, computeTime__field_descriptor), - (Data.ProtoLens.Tag 15, memoryTime__field_descriptor), - (Data.ProtoLens.Tag 7, isFinal__field_descriptor), - (Data.ProtoLens.Tag 8, controlInput__field_descriptor)]) - (Data.Map.fromList - [("name", name__field_descriptor), - ("device", device__field_descriptor), ("id", id__field_descriptor), - ("input_info", inputInfo__field_descriptor), - ("output_info", outputInfo__field_descriptor), - ("temporary_memory_size", temporaryMemorySize__field_descriptor), - ("persistent_memory_size", persistentMemorySize__field_descriptor), - ("host_temp_memory_size", hostTempMemorySize__field_descriptor), - ("device_temp_memory_size", - deviceTempMemorySize__field_descriptor), - ("device_persistent_memory_size", - devicePersistentMemorySize__field_descriptor), - ("compute_cost", computeCost__field_descriptor), - ("compute_time", computeTime__field_descriptor), - ("memory_time", memoryTime__field_descriptor), - ("is_final", isFinal__field_descriptor), - ("control_input", controlInput__field_descriptor)]) - -data CostGraphDef'Node'InputInfo = CostGraphDef'Node'InputInfo{_CostGraphDef'Node'InputInfo'precedingNode - :: !Data.Int.Int32, - _CostGraphDef'Node'InputInfo'precedingPort - :: !Data.Int.Int32} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Data.Int.Int32, b ~ Data.Int.Int32, - Prelude.Functor f) => - Lens.Labels.HasLens "precedingNode" f CostGraphDef'Node'InputInfo - CostGraphDef'Node'InputInfo - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _CostGraphDef'Node'InputInfo'precedingNode - (\ x__ y__ -> - x__{_CostGraphDef'Node'InputInfo'precedingNode = y__})) - Prelude.id - -instance (a ~ Data.Int.Int32, b ~ Data.Int.Int32, - Prelude.Functor f) => - Lens.Labels.HasLens "precedingPort" f CostGraphDef'Node'InputInfo - CostGraphDef'Node'InputInfo - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _CostGraphDef'Node'InputInfo'precedingPort - (\ x__ y__ -> - x__{_CostGraphDef'Node'InputInfo'precedingPort = y__})) - Prelude.id - -instance Data.Default.Class.Default CostGraphDef'Node'InputInfo - where - def - = CostGraphDef'Node'InputInfo{_CostGraphDef'Node'InputInfo'precedingNode - = Data.ProtoLens.fieldDefault, - _CostGraphDef'Node'InputInfo'precedingPort = - Data.ProtoLens.fieldDefault} - -instance Data.ProtoLens.Message CostGraphDef'Node'InputInfo where - descriptor - = let precedingNode__field_descriptor - = Data.ProtoLens.FieldDescriptor "preceding_node" - (Data.ProtoLens.Int32Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional precedingNode) - :: Data.ProtoLens.FieldDescriptor CostGraphDef'Node'InputInfo - precedingPort__field_descriptor - = Data.ProtoLens.FieldDescriptor "preceding_port" - (Data.ProtoLens.Int32Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional precedingPort) - :: Data.ProtoLens.FieldDescriptor CostGraphDef'Node'InputInfo - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.CostGraphDef.Node.InputInfo") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, precedingNode__field_descriptor), - (Data.ProtoLens.Tag 2, precedingPort__field_descriptor)]) - (Data.Map.fromList - [("preceding_node", precedingNode__field_descriptor), - ("preceding_port", precedingPort__field_descriptor)]) - -data CostGraphDef'Node'OutputInfo = CostGraphDef'Node'OutputInfo{_CostGraphDef'Node'OutputInfo'size - :: !Data.Int.Int64, - _CostGraphDef'Node'OutputInfo'aliasInputPort - :: !Data.Int.Int64, - _CostGraphDef'Node'OutputInfo'shape - :: - !(Prelude.Maybe - Proto.Tensorflow.Core.Framework.TensorShape.TensorShapeProto), - _CostGraphDef'Node'OutputInfo'dtype - :: - !Proto.Tensorflow.Core.Framework.Types.DataType} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Data.Int.Int64, b ~ Data.Int.Int64, - Prelude.Functor f) => - Lens.Labels.HasLens "size" f CostGraphDef'Node'OutputInfo - CostGraphDef'Node'OutputInfo - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _CostGraphDef'Node'OutputInfo'size - (\ x__ y__ -> x__{_CostGraphDef'Node'OutputInfo'size = y__})) - Prelude.id - -instance (a ~ Data.Int.Int64, b ~ Data.Int.Int64, - Prelude.Functor f) => - Lens.Labels.HasLens "aliasInputPort" f CostGraphDef'Node'OutputInfo - CostGraphDef'Node'OutputInfo - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _CostGraphDef'Node'OutputInfo'aliasInputPort - (\ x__ y__ -> - x__{_CostGraphDef'Node'OutputInfo'aliasInputPort = y__})) - Prelude.id - -instance (a ~ - Proto.Tensorflow.Core.Framework.TensorShape.TensorShapeProto, - b ~ Proto.Tensorflow.Core.Framework.TensorShape.TensorShapeProto, - Prelude.Functor f) => - Lens.Labels.HasLens "shape" f CostGraphDef'Node'OutputInfo - CostGraphDef'Node'OutputInfo - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _CostGraphDef'Node'OutputInfo'shape - (\ x__ y__ -> x__{_CostGraphDef'Node'OutputInfo'shape = y__})) - (Data.ProtoLens.maybeLens Data.Default.Class.def) - -instance (a ~ - Prelude.Maybe - Proto.Tensorflow.Core.Framework.TensorShape.TensorShapeProto, - b ~ - Prelude.Maybe - Proto.Tensorflow.Core.Framework.TensorShape.TensorShapeProto, - Prelude.Functor f) => - Lens.Labels.HasLens "maybe'shape" f CostGraphDef'Node'OutputInfo - CostGraphDef'Node'OutputInfo - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _CostGraphDef'Node'OutputInfo'shape - (\ x__ y__ -> x__{_CostGraphDef'Node'OutputInfo'shape = y__})) - Prelude.id - -instance (a ~ Proto.Tensorflow.Core.Framework.Types.DataType, - b ~ Proto.Tensorflow.Core.Framework.Types.DataType, - Prelude.Functor f) => - Lens.Labels.HasLens "dtype" f CostGraphDef'Node'OutputInfo - CostGraphDef'Node'OutputInfo - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _CostGraphDef'Node'OutputInfo'dtype - (\ x__ y__ -> x__{_CostGraphDef'Node'OutputInfo'dtype = y__})) - Prelude.id - -instance Data.Default.Class.Default CostGraphDef'Node'OutputInfo - where - def - = CostGraphDef'Node'OutputInfo{_CostGraphDef'Node'OutputInfo'size = - Data.ProtoLens.fieldDefault, - _CostGraphDef'Node'OutputInfo'aliasInputPort = - Data.ProtoLens.fieldDefault, - _CostGraphDef'Node'OutputInfo'shape = Prelude.Nothing, - _CostGraphDef'Node'OutputInfo'dtype = - Data.Default.Class.def} - -instance Data.ProtoLens.Message CostGraphDef'Node'OutputInfo where - descriptor - = let size__field_descriptor - = Data.ProtoLens.FieldDescriptor "size" - (Data.ProtoLens.Int64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional size) - :: Data.ProtoLens.FieldDescriptor CostGraphDef'Node'OutputInfo - aliasInputPort__field_descriptor - = Data.ProtoLens.FieldDescriptor "alias_input_port" - (Data.ProtoLens.Int64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional aliasInputPort) - :: Data.ProtoLens.FieldDescriptor CostGraphDef'Node'OutputInfo - shape__field_descriptor - = Data.ProtoLens.FieldDescriptor "shape" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor - Proto.Tensorflow.Core.Framework.TensorShape.TensorShapeProto) - (Data.ProtoLens.OptionalField maybe'shape) - :: Data.ProtoLens.FieldDescriptor CostGraphDef'Node'OutputInfo - dtype__field_descriptor - = Data.ProtoLens.FieldDescriptor "dtype" - (Data.ProtoLens.EnumField :: - Data.ProtoLens.FieldTypeDescriptor - Proto.Tensorflow.Core.Framework.Types.DataType) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional dtype) - :: Data.ProtoLens.FieldDescriptor CostGraphDef'Node'OutputInfo - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.CostGraphDef.Node.OutputInfo") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, size__field_descriptor), - (Data.ProtoLens.Tag 2, aliasInputPort__field_descriptor), - (Data.ProtoLens.Tag 3, shape__field_descriptor), - (Data.ProtoLens.Tag 4, dtype__field_descriptor)]) - (Data.Map.fromList - [("size", size__field_descriptor), - ("alias_input_port", aliasInputPort__field_descriptor), - ("shape", shape__field_descriptor), - ("dtype", dtype__field_descriptor)]) - -aliasInputPort :: - forall f s t a b . - (Lens.Labels.HasLens "aliasInputPort" f s t a b) => - Lens.Family2.LensLike f s t a b -aliasInputPort - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "aliasInputPort") - -computeCost :: - forall f s t a b . (Lens.Labels.HasLens "computeCost" f s t a b) => - Lens.Family2.LensLike f s t a b -computeCost - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "computeCost") - -computeTime :: - forall f s t a b . (Lens.Labels.HasLens "computeTime" f s t a b) => - Lens.Family2.LensLike f s t a b -computeTime - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "computeTime") - -controlInput :: - forall f s t a b . - (Lens.Labels.HasLens "controlInput" f s t a b) => - Lens.Family2.LensLike f s t a b -controlInput - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "controlInput") - -device :: - forall f s t a b . (Lens.Labels.HasLens "device" f s t a b) => - Lens.Family2.LensLike f s t a b -device - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "device") - -devicePersistentMemorySize :: - forall f s t a b . - (Lens.Labels.HasLens "devicePersistentMemorySize" f s t a b) => - Lens.Family2.LensLike f s t a b -devicePersistentMemorySize - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: - (Lens.Labels.Proxy#) "devicePersistentMemorySize") - -deviceTempMemorySize :: - forall f s t a b . - (Lens.Labels.HasLens "deviceTempMemorySize" f s t a b) => - Lens.Family2.LensLike f s t a b -deviceTempMemorySize - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: - (Lens.Labels.Proxy#) "deviceTempMemorySize") - -dtype :: - forall f s t a b . (Lens.Labels.HasLens "dtype" f s t a b) => - Lens.Family2.LensLike f s t a b -dtype - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "dtype") - -hostTempMemorySize :: - forall f s t a b . - (Lens.Labels.HasLens "hostTempMemorySize" f s t a b) => - Lens.Family2.LensLike f s t a b -hostTempMemorySize - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "hostTempMemorySize") - -id :: - forall f s t a b . (Lens.Labels.HasLens "id" f s t a b) => - Lens.Family2.LensLike f s t a b -id - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "id") - -inputInfo :: - forall f s t a b . (Lens.Labels.HasLens "inputInfo" f s t a b) => - Lens.Family2.LensLike f s t a b -inputInfo - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "inputInfo") - -isFinal :: - forall f s t a b . (Lens.Labels.HasLens "isFinal" f s t a b) => - Lens.Family2.LensLike f s t a b -isFinal - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "isFinal") - -maybe'shape :: - forall f s t a b . (Lens.Labels.HasLens "maybe'shape" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'shape - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'shape") - -memoryTime :: - forall f s t a b . (Lens.Labels.HasLens "memoryTime" f s t a b) => - Lens.Family2.LensLike f s t a b -memoryTime - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "memoryTime") - -name :: - forall f s t a b . (Lens.Labels.HasLens "name" f s t a b) => - Lens.Family2.LensLike f s t a b -name - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "name") - -node :: - forall f s t a b . (Lens.Labels.HasLens "node" f s t a b) => - Lens.Family2.LensLike f s t a b -node - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "node") - -outputInfo :: - forall f s t a b . (Lens.Labels.HasLens "outputInfo" f s t a b) => - Lens.Family2.LensLike f s t a b -outputInfo - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "outputInfo") - -persistentMemorySize :: - forall f s t a b . - (Lens.Labels.HasLens "persistentMemorySize" f s t a b) => - Lens.Family2.LensLike f s t a b -persistentMemorySize - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: - (Lens.Labels.Proxy#) "persistentMemorySize") - -precedingNode :: - forall f s t a b . - (Lens.Labels.HasLens "precedingNode" f s t a b) => - Lens.Family2.LensLike f s t a b -precedingNode - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "precedingNode") - -precedingPort :: - forall f s t a b . - (Lens.Labels.HasLens "precedingPort" f s t a b) => - Lens.Family2.LensLike f s t a b -precedingPort - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "precedingPort") - -shape :: - forall f s t a b . (Lens.Labels.HasLens "shape" f s t a b) => - Lens.Family2.LensLike f s t a b -shape - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "shape") - -size :: - forall f s t a b . (Lens.Labels.HasLens "size" f s t a b) => - Lens.Family2.LensLike f s t a b -size - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "size") - -temporaryMemorySize :: - forall f s t a b . - (Lens.Labels.HasLens "temporaryMemorySize" f s t a b) => - Lens.Family2.LensLike f s t a b -temporaryMemorySize - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: - (Lens.Labels.Proxy#) "temporaryMemorySize") diff --git a/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Framework/DeviceAttributes.hs b/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Framework/DeviceAttributes.hs deleted file mode 100644 --- a/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Framework/DeviceAttributes.hs +++ /dev/null @@ -1,493 +0,0 @@ -{- This file was auto-generated from tensorflow/core/framework/device_attributes.proto by the proto-lens-protoc program. -} -{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies, - UndecidableInstances, MultiParamTypeClasses, FlexibleContexts, - FlexibleInstances, PatternSynonyms, MagicHash, NoImplicitPrelude - #-} -{-# OPTIONS_GHC -fno-warn-unused-imports#-} -module Proto.Tensorflow.Core.Framework.DeviceAttributes where -import qualified Data.ProtoLens.Reexport.Prelude as Prelude -import qualified Data.ProtoLens.Reexport.Data.Int as Data.Int -import qualified Data.ProtoLens.Reexport.Data.Word as Data.Word -import qualified Data.ProtoLens.Reexport.Data.ProtoLens - as Data.ProtoLens -import qualified - Data.ProtoLens.Reexport.Data.ProtoLens.Message.Enum - as Data.ProtoLens.Message.Enum -import qualified Data.ProtoLens.Reexport.Lens.Family2 - as Lens.Family2 -import qualified Data.ProtoLens.Reexport.Lens.Family2.Unchecked - as Lens.Family2.Unchecked -import qualified Data.ProtoLens.Reexport.Data.Default.Class - as Data.Default.Class -import qualified Data.ProtoLens.Reexport.Data.Text as Data.Text -import qualified Data.ProtoLens.Reexport.Data.Map as Data.Map -import qualified Data.ProtoLens.Reexport.Data.ByteString - as Data.ByteString -import qualified Data.ProtoLens.Reexport.Lens.Labels as Lens.Labels - -data DeviceAttributes = DeviceAttributes{_DeviceAttributes'name :: - !Data.Text.Text, - _DeviceAttributes'deviceType :: !Data.Text.Text, - _DeviceAttributes'memoryLimit :: !Data.Int.Int64, - _DeviceAttributes'locality :: - !(Prelude.Maybe DeviceLocality), - _DeviceAttributes'incarnation :: !Data.Word.Word64, - _DeviceAttributes'physicalDeviceDesc :: !Data.Text.Text} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "name" f DeviceAttributes DeviceAttributes a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _DeviceAttributes'name - (\ x__ y__ -> x__{_DeviceAttributes'name = y__})) - Prelude.id - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "deviceType" f DeviceAttributes - DeviceAttributes - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _DeviceAttributes'deviceType - (\ x__ y__ -> x__{_DeviceAttributes'deviceType = y__})) - Prelude.id - -instance (a ~ Data.Int.Int64, b ~ Data.Int.Int64, - Prelude.Functor f) => - Lens.Labels.HasLens "memoryLimit" f DeviceAttributes - DeviceAttributes - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _DeviceAttributes'memoryLimit - (\ x__ y__ -> x__{_DeviceAttributes'memoryLimit = y__})) - Prelude.id - -instance (a ~ DeviceLocality, b ~ DeviceLocality, - Prelude.Functor f) => - Lens.Labels.HasLens "locality" f DeviceAttributes DeviceAttributes - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _DeviceAttributes'locality - (\ x__ y__ -> x__{_DeviceAttributes'locality = y__})) - (Data.ProtoLens.maybeLens Data.Default.Class.def) - -instance (a ~ Prelude.Maybe DeviceLocality, - b ~ Prelude.Maybe DeviceLocality, Prelude.Functor f) => - Lens.Labels.HasLens "maybe'locality" f DeviceAttributes - DeviceAttributes - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _DeviceAttributes'locality - (\ x__ y__ -> x__{_DeviceAttributes'locality = y__})) - Prelude.id - -instance (a ~ Data.Word.Word64, b ~ Data.Word.Word64, - Prelude.Functor f) => - Lens.Labels.HasLens "incarnation" f DeviceAttributes - DeviceAttributes - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _DeviceAttributes'incarnation - (\ x__ y__ -> x__{_DeviceAttributes'incarnation = y__})) - Prelude.id - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "physicalDeviceDesc" f DeviceAttributes - DeviceAttributes - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _DeviceAttributes'physicalDeviceDesc - (\ x__ y__ -> x__{_DeviceAttributes'physicalDeviceDesc = y__})) - Prelude.id - -instance Data.Default.Class.Default DeviceAttributes where - def - = DeviceAttributes{_DeviceAttributes'name = - Data.ProtoLens.fieldDefault, - _DeviceAttributes'deviceType = Data.ProtoLens.fieldDefault, - _DeviceAttributes'memoryLimit = Data.ProtoLens.fieldDefault, - _DeviceAttributes'locality = Prelude.Nothing, - _DeviceAttributes'incarnation = Data.ProtoLens.fieldDefault, - _DeviceAttributes'physicalDeviceDesc = Data.ProtoLens.fieldDefault} - -instance Data.ProtoLens.Message DeviceAttributes where - descriptor - = let name__field_descriptor - = Data.ProtoLens.FieldDescriptor "name" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional name) - :: Data.ProtoLens.FieldDescriptor DeviceAttributes - deviceType__field_descriptor - = Data.ProtoLens.FieldDescriptor "device_type" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional deviceType) - :: Data.ProtoLens.FieldDescriptor DeviceAttributes - memoryLimit__field_descriptor - = Data.ProtoLens.FieldDescriptor "memory_limit" - (Data.ProtoLens.Int64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional memoryLimit) - :: Data.ProtoLens.FieldDescriptor DeviceAttributes - locality__field_descriptor - = Data.ProtoLens.FieldDescriptor "locality" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor DeviceLocality) - (Data.ProtoLens.OptionalField maybe'locality) - :: Data.ProtoLens.FieldDescriptor DeviceAttributes - incarnation__field_descriptor - = Data.ProtoLens.FieldDescriptor "incarnation" - (Data.ProtoLens.Fixed64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional incarnation) - :: Data.ProtoLens.FieldDescriptor DeviceAttributes - physicalDeviceDesc__field_descriptor - = Data.ProtoLens.FieldDescriptor "physical_device_desc" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional - physicalDeviceDesc) - :: Data.ProtoLens.FieldDescriptor DeviceAttributes - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.DeviceAttributes") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, name__field_descriptor), - (Data.ProtoLens.Tag 2, deviceType__field_descriptor), - (Data.ProtoLens.Tag 4, memoryLimit__field_descriptor), - (Data.ProtoLens.Tag 5, locality__field_descriptor), - (Data.ProtoLens.Tag 6, incarnation__field_descriptor), - (Data.ProtoLens.Tag 7, physicalDeviceDesc__field_descriptor)]) - (Data.Map.fromList - [("name", name__field_descriptor), - ("device_type", deviceType__field_descriptor), - ("memory_limit", memoryLimit__field_descriptor), - ("locality", locality__field_descriptor), - ("incarnation", incarnation__field_descriptor), - ("physical_device_desc", physicalDeviceDesc__field_descriptor)]) - -data DeviceLocality = DeviceLocality{_DeviceLocality'busId :: - !Data.Int.Int32, - _DeviceLocality'numaNode :: !Data.Int.Int32, - _DeviceLocality'links :: !(Prelude.Maybe LocalLinks)} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Data.Int.Int32, b ~ Data.Int.Int32, - Prelude.Functor f) => - Lens.Labels.HasLens "busId" f DeviceLocality DeviceLocality a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _DeviceLocality'busId - (\ x__ y__ -> x__{_DeviceLocality'busId = y__})) - Prelude.id - -instance (a ~ Data.Int.Int32, b ~ Data.Int.Int32, - Prelude.Functor f) => - Lens.Labels.HasLens "numaNode" f DeviceLocality DeviceLocality a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _DeviceLocality'numaNode - (\ x__ y__ -> x__{_DeviceLocality'numaNode = y__})) - Prelude.id - -instance (a ~ LocalLinks, b ~ LocalLinks, Prelude.Functor f) => - Lens.Labels.HasLens "links" f DeviceLocality DeviceLocality a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _DeviceLocality'links - (\ x__ y__ -> x__{_DeviceLocality'links = y__})) - (Data.ProtoLens.maybeLens Data.Default.Class.def) - -instance (a ~ Prelude.Maybe LocalLinks, - b ~ Prelude.Maybe LocalLinks, Prelude.Functor f) => - Lens.Labels.HasLens "maybe'links" f DeviceLocality DeviceLocality a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _DeviceLocality'links - (\ x__ y__ -> x__{_DeviceLocality'links = y__})) - Prelude.id - -instance Data.Default.Class.Default DeviceLocality where - def - = DeviceLocality{_DeviceLocality'busId = - Data.ProtoLens.fieldDefault, - _DeviceLocality'numaNode = Data.ProtoLens.fieldDefault, - _DeviceLocality'links = Prelude.Nothing} - -instance Data.ProtoLens.Message DeviceLocality where - descriptor - = let busId__field_descriptor - = Data.ProtoLens.FieldDescriptor "bus_id" - (Data.ProtoLens.Int32Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional busId) - :: Data.ProtoLens.FieldDescriptor DeviceLocality - numaNode__field_descriptor - = Data.ProtoLens.FieldDescriptor "numa_node" - (Data.ProtoLens.Int32Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional numaNode) - :: Data.ProtoLens.FieldDescriptor DeviceLocality - links__field_descriptor - = Data.ProtoLens.FieldDescriptor "links" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor LocalLinks) - (Data.ProtoLens.OptionalField maybe'links) - :: Data.ProtoLens.FieldDescriptor DeviceLocality - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.DeviceLocality") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, busId__field_descriptor), - (Data.ProtoLens.Tag 2, numaNode__field_descriptor), - (Data.ProtoLens.Tag 3, links__field_descriptor)]) - (Data.Map.fromList - [("bus_id", busId__field_descriptor), - ("numa_node", numaNode__field_descriptor), - ("links", links__field_descriptor)]) - -data InterconnectLink = InterconnectLink{_InterconnectLink'deviceId - :: !Data.Int.Int32, - _InterconnectLink'type' :: !Data.Text.Text, - _InterconnectLink'strength :: !Data.Int.Int32} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Data.Int.Int32, b ~ Data.Int.Int32, - Prelude.Functor f) => - Lens.Labels.HasLens "deviceId" f InterconnectLink InterconnectLink - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _InterconnectLink'deviceId - (\ x__ y__ -> x__{_InterconnectLink'deviceId = y__})) - Prelude.id - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "type'" f InterconnectLink InterconnectLink a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _InterconnectLink'type' - (\ x__ y__ -> x__{_InterconnectLink'type' = y__})) - Prelude.id - -instance (a ~ Data.Int.Int32, b ~ Data.Int.Int32, - Prelude.Functor f) => - Lens.Labels.HasLens "strength" f InterconnectLink InterconnectLink - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _InterconnectLink'strength - (\ x__ y__ -> x__{_InterconnectLink'strength = y__})) - Prelude.id - -instance Data.Default.Class.Default InterconnectLink where - def - = InterconnectLink{_InterconnectLink'deviceId = - Data.ProtoLens.fieldDefault, - _InterconnectLink'type' = Data.ProtoLens.fieldDefault, - _InterconnectLink'strength = Data.ProtoLens.fieldDefault} - -instance Data.ProtoLens.Message InterconnectLink where - descriptor - = let deviceId__field_descriptor - = Data.ProtoLens.FieldDescriptor "device_id" - (Data.ProtoLens.Int32Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional deviceId) - :: Data.ProtoLens.FieldDescriptor InterconnectLink - type'__field_descriptor - = Data.ProtoLens.FieldDescriptor "type" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional type') - :: Data.ProtoLens.FieldDescriptor InterconnectLink - strength__field_descriptor - = Data.ProtoLens.FieldDescriptor "strength" - (Data.ProtoLens.Int32Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional strength) - :: Data.ProtoLens.FieldDescriptor InterconnectLink - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.InterconnectLink") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, deviceId__field_descriptor), - (Data.ProtoLens.Tag 2, type'__field_descriptor), - (Data.ProtoLens.Tag 3, strength__field_descriptor)]) - (Data.Map.fromList - [("device_id", deviceId__field_descriptor), - ("type", type'__field_descriptor), - ("strength", strength__field_descriptor)]) - -data LocalLinks = LocalLinks{_LocalLinks'link :: - ![InterconnectLink]} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ [InterconnectLink], b ~ [InterconnectLink], - Prelude.Functor f) => - Lens.Labels.HasLens "link" f LocalLinks LocalLinks a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _LocalLinks'link - (\ x__ y__ -> x__{_LocalLinks'link = y__})) - Prelude.id - -instance Data.Default.Class.Default LocalLinks where - def = LocalLinks{_LocalLinks'link = []} - -instance Data.ProtoLens.Message LocalLinks where - descriptor - = let link__field_descriptor - = Data.ProtoLens.FieldDescriptor "link" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor InterconnectLink) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked link) - :: Data.ProtoLens.FieldDescriptor LocalLinks - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.LocalLinks") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, link__field_descriptor)]) - (Data.Map.fromList [("link", link__field_descriptor)]) - -busId :: - forall f s t a b . (Lens.Labels.HasLens "busId" f s t a b) => - Lens.Family2.LensLike f s t a b -busId - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "busId") - -deviceId :: - forall f s t a b . (Lens.Labels.HasLens "deviceId" f s t a b) => - Lens.Family2.LensLike f s t a b -deviceId - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "deviceId") - -deviceType :: - forall f s t a b . (Lens.Labels.HasLens "deviceType" f s t a b) => - Lens.Family2.LensLike f s t a b -deviceType - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "deviceType") - -incarnation :: - forall f s t a b . (Lens.Labels.HasLens "incarnation" f s t a b) => - Lens.Family2.LensLike f s t a b -incarnation - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "incarnation") - -link :: - forall f s t a b . (Lens.Labels.HasLens "link" f s t a b) => - Lens.Family2.LensLike f s t a b -link - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "link") - -links :: - forall f s t a b . (Lens.Labels.HasLens "links" f s t a b) => - Lens.Family2.LensLike f s t a b -links - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "links") - -locality :: - forall f s t a b . (Lens.Labels.HasLens "locality" f s t a b) => - Lens.Family2.LensLike f s t a b -locality - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "locality") - -maybe'links :: - forall f s t a b . (Lens.Labels.HasLens "maybe'links" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'links - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'links") - -maybe'locality :: - forall f s t a b . - (Lens.Labels.HasLens "maybe'locality" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'locality - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'locality") - -memoryLimit :: - forall f s t a b . (Lens.Labels.HasLens "memoryLimit" f s t a b) => - Lens.Family2.LensLike f s t a b -memoryLimit - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "memoryLimit") - -name :: - forall f s t a b . (Lens.Labels.HasLens "name" f s t a b) => - Lens.Family2.LensLike f s t a b -name - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "name") - -numaNode :: - forall f s t a b . (Lens.Labels.HasLens "numaNode" f s t a b) => - Lens.Family2.LensLike f s t a b -numaNode - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "numaNode") - -physicalDeviceDesc :: - forall f s t a b . - (Lens.Labels.HasLens "physicalDeviceDesc" f s t a b) => - Lens.Family2.LensLike f s t a b -physicalDeviceDesc - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "physicalDeviceDesc") - -strength :: - forall f s t a b . (Lens.Labels.HasLens "strength" f s t a b) => - Lens.Family2.LensLike f s t a b -strength - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "strength") - -type' :: - forall f s t a b . (Lens.Labels.HasLens "type'" f s t a b) => - Lens.Family2.LensLike f s t a b -type' - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "type'") diff --git a/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Framework/Function.hs b/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Framework/Function.hs deleted file mode 100644 --- a/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Framework/Function.hs +++ /dev/null @@ -1,491 +0,0 @@ -{- This file was auto-generated from tensorflow/core/framework/function.proto by the proto-lens-protoc program. -} -{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies, - UndecidableInstances, MultiParamTypeClasses, FlexibleContexts, - FlexibleInstances, PatternSynonyms, MagicHash, NoImplicitPrelude - #-} -{-# OPTIONS_GHC -fno-warn-unused-imports#-} -module Proto.Tensorflow.Core.Framework.Function where -import qualified Data.ProtoLens.Reexport.Prelude as Prelude -import qualified Data.ProtoLens.Reexport.Data.Int as Data.Int -import qualified Data.ProtoLens.Reexport.Data.Word as Data.Word -import qualified Data.ProtoLens.Reexport.Data.ProtoLens - as Data.ProtoLens -import qualified - Data.ProtoLens.Reexport.Data.ProtoLens.Message.Enum - as Data.ProtoLens.Message.Enum -import qualified Data.ProtoLens.Reexport.Lens.Family2 - as Lens.Family2 -import qualified Data.ProtoLens.Reexport.Lens.Family2.Unchecked - as Lens.Family2.Unchecked -import qualified Data.ProtoLens.Reexport.Data.Default.Class - as Data.Default.Class -import qualified Data.ProtoLens.Reexport.Data.Text as Data.Text -import qualified Data.ProtoLens.Reexport.Data.Map as Data.Map -import qualified Data.ProtoLens.Reexport.Data.ByteString - as Data.ByteString -import qualified Data.ProtoLens.Reexport.Lens.Labels as Lens.Labels -import qualified Proto.Tensorflow.Core.Framework.AttrValue -import qualified Proto.Tensorflow.Core.Framework.NodeDef -import qualified Proto.Tensorflow.Core.Framework.OpDef - -data FunctionDef = FunctionDef{_FunctionDef'signature :: - !(Prelude.Maybe Proto.Tensorflow.Core.Framework.OpDef.OpDef), - _FunctionDef'attr :: - !(Data.Map.Map Data.Text.Text - Proto.Tensorflow.Core.Framework.AttrValue.AttrValue), - _FunctionDef'nodeDef :: - ![Proto.Tensorflow.Core.Framework.NodeDef.NodeDef], - _FunctionDef'ret :: !(Data.Map.Map Data.Text.Text Data.Text.Text)} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Proto.Tensorflow.Core.Framework.OpDef.OpDef, - b ~ Proto.Tensorflow.Core.Framework.OpDef.OpDef, - Prelude.Functor f) => - Lens.Labels.HasLens "signature" f FunctionDef FunctionDef a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _FunctionDef'signature - (\ x__ y__ -> x__{_FunctionDef'signature = y__})) - (Data.ProtoLens.maybeLens Data.Default.Class.def) - -instance (a ~ - Prelude.Maybe Proto.Tensorflow.Core.Framework.OpDef.OpDef, - b ~ Prelude.Maybe Proto.Tensorflow.Core.Framework.OpDef.OpDef, - Prelude.Functor f) => - Lens.Labels.HasLens "maybe'signature" f FunctionDef FunctionDef a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _FunctionDef'signature - (\ x__ y__ -> x__{_FunctionDef'signature = y__})) - Prelude.id - -instance (a ~ - Data.Map.Map Data.Text.Text - Proto.Tensorflow.Core.Framework.AttrValue.AttrValue, - b ~ - Data.Map.Map Data.Text.Text - Proto.Tensorflow.Core.Framework.AttrValue.AttrValue, - Prelude.Functor f) => - Lens.Labels.HasLens "attr" f FunctionDef FunctionDef a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _FunctionDef'attr - (\ x__ y__ -> x__{_FunctionDef'attr = y__})) - Prelude.id - -instance (a ~ [Proto.Tensorflow.Core.Framework.NodeDef.NodeDef], - b ~ [Proto.Tensorflow.Core.Framework.NodeDef.NodeDef], - Prelude.Functor f) => - Lens.Labels.HasLens "nodeDef" f FunctionDef FunctionDef a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _FunctionDef'nodeDef - (\ x__ y__ -> x__{_FunctionDef'nodeDef = y__})) - Prelude.id - -instance (a ~ Data.Map.Map Data.Text.Text Data.Text.Text, - b ~ Data.Map.Map Data.Text.Text Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "ret" f FunctionDef FunctionDef a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _FunctionDef'ret - (\ x__ y__ -> x__{_FunctionDef'ret = y__})) - Prelude.id - -instance Data.Default.Class.Default FunctionDef where - def - = FunctionDef{_FunctionDef'signature = Prelude.Nothing, - _FunctionDef'attr = Data.Map.empty, _FunctionDef'nodeDef = [], - _FunctionDef'ret = Data.Map.empty} - -instance Data.ProtoLens.Message FunctionDef where - descriptor - = let signature__field_descriptor - = Data.ProtoLens.FieldDescriptor "signature" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor - Proto.Tensorflow.Core.Framework.OpDef.OpDef) - (Data.ProtoLens.OptionalField maybe'signature) - :: Data.ProtoLens.FieldDescriptor FunctionDef - attr__field_descriptor - = Data.ProtoLens.FieldDescriptor "attr" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor FunctionDef'AttrEntry) - (Data.ProtoLens.MapField key value attr) - :: Data.ProtoLens.FieldDescriptor FunctionDef - nodeDef__field_descriptor - = Data.ProtoLens.FieldDescriptor "node_def" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor - Proto.Tensorflow.Core.Framework.NodeDef.NodeDef) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked nodeDef) - :: Data.ProtoLens.FieldDescriptor FunctionDef - ret__field_descriptor - = Data.ProtoLens.FieldDescriptor "ret" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor FunctionDef'RetEntry) - (Data.ProtoLens.MapField key value ret) - :: Data.ProtoLens.FieldDescriptor FunctionDef - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.FunctionDef") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, signature__field_descriptor), - (Data.ProtoLens.Tag 5, attr__field_descriptor), - (Data.ProtoLens.Tag 3, nodeDef__field_descriptor), - (Data.ProtoLens.Tag 4, ret__field_descriptor)]) - (Data.Map.fromList - [("signature", signature__field_descriptor), - ("attr", attr__field_descriptor), - ("node_def", nodeDef__field_descriptor), - ("ret", ret__field_descriptor)]) - -data FunctionDef'AttrEntry = FunctionDef'AttrEntry{_FunctionDef'AttrEntry'key - :: !Data.Text.Text, - _FunctionDef'AttrEntry'value :: - !(Prelude.Maybe - Proto.Tensorflow.Core.Framework.AttrValue.AttrValue)} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "key" f FunctionDef'AttrEntry - FunctionDef'AttrEntry - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _FunctionDef'AttrEntry'key - (\ x__ y__ -> x__{_FunctionDef'AttrEntry'key = y__})) - Prelude.id - -instance (a ~ Proto.Tensorflow.Core.Framework.AttrValue.AttrValue, - b ~ Proto.Tensorflow.Core.Framework.AttrValue.AttrValue, - Prelude.Functor f) => - Lens.Labels.HasLens "value" f FunctionDef'AttrEntry - FunctionDef'AttrEntry - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _FunctionDef'AttrEntry'value - (\ x__ y__ -> x__{_FunctionDef'AttrEntry'value = y__})) - (Data.ProtoLens.maybeLens Data.Default.Class.def) - -instance (a ~ - Prelude.Maybe Proto.Tensorflow.Core.Framework.AttrValue.AttrValue, - b ~ - Prelude.Maybe Proto.Tensorflow.Core.Framework.AttrValue.AttrValue, - Prelude.Functor f) => - Lens.Labels.HasLens "maybe'value" f FunctionDef'AttrEntry - FunctionDef'AttrEntry - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _FunctionDef'AttrEntry'value - (\ x__ y__ -> x__{_FunctionDef'AttrEntry'value = y__})) - Prelude.id - -instance Data.Default.Class.Default FunctionDef'AttrEntry where - def - = FunctionDef'AttrEntry{_FunctionDef'AttrEntry'key = - Data.ProtoLens.fieldDefault, - _FunctionDef'AttrEntry'value = Prelude.Nothing} - -instance Data.ProtoLens.Message FunctionDef'AttrEntry where - descriptor - = let key__field_descriptor - = Data.ProtoLens.FieldDescriptor "key" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional key) - :: Data.ProtoLens.FieldDescriptor FunctionDef'AttrEntry - value__field_descriptor - = Data.ProtoLens.FieldDescriptor "value" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor - Proto.Tensorflow.Core.Framework.AttrValue.AttrValue) - (Data.ProtoLens.OptionalField maybe'value) - :: Data.ProtoLens.FieldDescriptor FunctionDef'AttrEntry - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.FunctionDef.AttrEntry") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, key__field_descriptor), - (Data.ProtoLens.Tag 2, value__field_descriptor)]) - (Data.Map.fromList - [("key", key__field_descriptor), - ("value", value__field_descriptor)]) - -data FunctionDef'RetEntry = FunctionDef'RetEntry{_FunctionDef'RetEntry'key - :: !Data.Text.Text, - _FunctionDef'RetEntry'value :: !Data.Text.Text} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "key" f FunctionDef'RetEntry - FunctionDef'RetEntry - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _FunctionDef'RetEntry'key - (\ x__ y__ -> x__{_FunctionDef'RetEntry'key = y__})) - Prelude.id - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "value" f FunctionDef'RetEntry - FunctionDef'RetEntry - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _FunctionDef'RetEntry'value - (\ x__ y__ -> x__{_FunctionDef'RetEntry'value = y__})) - Prelude.id - -instance Data.Default.Class.Default FunctionDef'RetEntry where - def - = FunctionDef'RetEntry{_FunctionDef'RetEntry'key = - Data.ProtoLens.fieldDefault, - _FunctionDef'RetEntry'value = Data.ProtoLens.fieldDefault} - -instance Data.ProtoLens.Message FunctionDef'RetEntry where - descriptor - = let key__field_descriptor - = Data.ProtoLens.FieldDescriptor "key" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional key) - :: Data.ProtoLens.FieldDescriptor FunctionDef'RetEntry - value__field_descriptor - = Data.ProtoLens.FieldDescriptor "value" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional value) - :: Data.ProtoLens.FieldDescriptor FunctionDef'RetEntry - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.FunctionDef.RetEntry") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, key__field_descriptor), - (Data.ProtoLens.Tag 2, value__field_descriptor)]) - (Data.Map.fromList - [("key", key__field_descriptor), - ("value", value__field_descriptor)]) - -data FunctionDefLibrary = FunctionDefLibrary{_FunctionDefLibrary'function - :: ![FunctionDef], - _FunctionDefLibrary'gradient :: ![GradientDef]} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ [FunctionDef], b ~ [FunctionDef], - Prelude.Functor f) => - Lens.Labels.HasLens "function" f FunctionDefLibrary - FunctionDefLibrary - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _FunctionDefLibrary'function - (\ x__ y__ -> x__{_FunctionDefLibrary'function = y__})) - Prelude.id - -instance (a ~ [GradientDef], b ~ [GradientDef], - Prelude.Functor f) => - Lens.Labels.HasLens "gradient" f FunctionDefLibrary - FunctionDefLibrary - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _FunctionDefLibrary'gradient - (\ x__ y__ -> x__{_FunctionDefLibrary'gradient = y__})) - Prelude.id - -instance Data.Default.Class.Default FunctionDefLibrary where - def - = FunctionDefLibrary{_FunctionDefLibrary'function = [], - _FunctionDefLibrary'gradient = []} - -instance Data.ProtoLens.Message FunctionDefLibrary where - descriptor - = let function__field_descriptor - = Data.ProtoLens.FieldDescriptor "function" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor FunctionDef) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked function) - :: Data.ProtoLens.FieldDescriptor FunctionDefLibrary - gradient__field_descriptor - = Data.ProtoLens.FieldDescriptor "gradient" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor GradientDef) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked gradient) - :: Data.ProtoLens.FieldDescriptor FunctionDefLibrary - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.FunctionDefLibrary") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, function__field_descriptor), - (Data.ProtoLens.Tag 2, gradient__field_descriptor)]) - (Data.Map.fromList - [("function", function__field_descriptor), - ("gradient", gradient__field_descriptor)]) - -data GradientDef = GradientDef{_GradientDef'functionName :: - !Data.Text.Text, - _GradientDef'gradientFunc :: !Data.Text.Text} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "functionName" f GradientDef GradientDef a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _GradientDef'functionName - (\ x__ y__ -> x__{_GradientDef'functionName = y__})) - Prelude.id - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "gradientFunc" f GradientDef GradientDef a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _GradientDef'gradientFunc - (\ x__ y__ -> x__{_GradientDef'gradientFunc = y__})) - Prelude.id - -instance Data.Default.Class.Default GradientDef where - def - = GradientDef{_GradientDef'functionName = - Data.ProtoLens.fieldDefault, - _GradientDef'gradientFunc = Data.ProtoLens.fieldDefault} - -instance Data.ProtoLens.Message GradientDef where - descriptor - = let functionName__field_descriptor - = Data.ProtoLens.FieldDescriptor "function_name" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional functionName) - :: Data.ProtoLens.FieldDescriptor GradientDef - gradientFunc__field_descriptor - = Data.ProtoLens.FieldDescriptor "gradient_func" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional gradientFunc) - :: Data.ProtoLens.FieldDescriptor GradientDef - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.GradientDef") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, functionName__field_descriptor), - (Data.ProtoLens.Tag 2, gradientFunc__field_descriptor)]) - (Data.Map.fromList - [("function_name", functionName__field_descriptor), - ("gradient_func", gradientFunc__field_descriptor)]) - -attr :: - forall f s t a b . (Lens.Labels.HasLens "attr" f s t a b) => - Lens.Family2.LensLike f s t a b -attr - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "attr") - -function :: - forall f s t a b . (Lens.Labels.HasLens "function" f s t a b) => - Lens.Family2.LensLike f s t a b -function - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "function") - -functionName :: - forall f s t a b . - (Lens.Labels.HasLens "functionName" f s t a b) => - Lens.Family2.LensLike f s t a b -functionName - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "functionName") - -gradient :: - forall f s t a b . (Lens.Labels.HasLens "gradient" f s t a b) => - Lens.Family2.LensLike f s t a b -gradient - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "gradient") - -gradientFunc :: - forall f s t a b . - (Lens.Labels.HasLens "gradientFunc" f s t a b) => - Lens.Family2.LensLike f s t a b -gradientFunc - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "gradientFunc") - -key :: - forall f s t a b . (Lens.Labels.HasLens "key" f s t a b) => - Lens.Family2.LensLike f s t a b -key - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "key") - -maybe'signature :: - forall f s t a b . - (Lens.Labels.HasLens "maybe'signature" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'signature - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'signature") - -maybe'value :: - forall f s t a b . (Lens.Labels.HasLens "maybe'value" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'value - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'value") - -nodeDef :: - forall f s t a b . (Lens.Labels.HasLens "nodeDef" f s t a b) => - Lens.Family2.LensLike f s t a b -nodeDef - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "nodeDef") - -ret :: - forall f s t a b . (Lens.Labels.HasLens "ret" f s t a b) => - Lens.Family2.LensLike f s t a b -ret - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "ret") - -signature :: - forall f s t a b . (Lens.Labels.HasLens "signature" f s t a b) => - Lens.Family2.LensLike f s t a b -signature - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "signature") - -value :: - forall f s t a b . (Lens.Labels.HasLens "value" f s t a b) => - Lens.Family2.LensLike f s t a b -value - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "value") diff --git a/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Framework/Graph.hs b/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Framework/Graph.hs deleted file mode 100644 --- a/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Framework/Graph.hs +++ /dev/null @@ -1,206 +0,0 @@ -{- This file was auto-generated from tensorflow/core/framework/graph.proto by the proto-lens-protoc program. -} -{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies, - UndecidableInstances, MultiParamTypeClasses, FlexibleContexts, - FlexibleInstances, PatternSynonyms, MagicHash, NoImplicitPrelude - #-} -{-# OPTIONS_GHC -fno-warn-unused-imports#-} -module Proto.Tensorflow.Core.Framework.Graph where -import qualified Data.ProtoLens.Reexport.Prelude as Prelude -import qualified Data.ProtoLens.Reexport.Data.Int as Data.Int -import qualified Data.ProtoLens.Reexport.Data.Word as Data.Word -import qualified Data.ProtoLens.Reexport.Data.ProtoLens - as Data.ProtoLens -import qualified - Data.ProtoLens.Reexport.Data.ProtoLens.Message.Enum - as Data.ProtoLens.Message.Enum -import qualified Data.ProtoLens.Reexport.Lens.Family2 - as Lens.Family2 -import qualified Data.ProtoLens.Reexport.Lens.Family2.Unchecked - as Lens.Family2.Unchecked -import qualified Data.ProtoLens.Reexport.Data.Default.Class - as Data.Default.Class -import qualified Data.ProtoLens.Reexport.Data.Text as Data.Text -import qualified Data.ProtoLens.Reexport.Data.Map as Data.Map -import qualified Data.ProtoLens.Reexport.Data.ByteString - as Data.ByteString -import qualified Data.ProtoLens.Reexport.Lens.Labels as Lens.Labels -import qualified Proto.Tensorflow.Core.Framework.Function -import qualified Proto.Tensorflow.Core.Framework.NodeDef -import qualified Proto.Tensorflow.Core.Framework.Versions - -data GraphDef = GraphDef{_GraphDef'node :: - ![Proto.Tensorflow.Core.Framework.NodeDef.NodeDef], - _GraphDef'versions :: - !(Prelude.Maybe - Proto.Tensorflow.Core.Framework.Versions.VersionDef), - _GraphDef'version :: !Data.Int.Int32, - _GraphDef'library :: - !(Prelude.Maybe - Proto.Tensorflow.Core.Framework.Function.FunctionDefLibrary)} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ [Proto.Tensorflow.Core.Framework.NodeDef.NodeDef], - b ~ [Proto.Tensorflow.Core.Framework.NodeDef.NodeDef], - Prelude.Functor f) => - Lens.Labels.HasLens "node" f GraphDef GraphDef a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _GraphDef'node - (\ x__ y__ -> x__{_GraphDef'node = y__})) - Prelude.id - -instance (a ~ Proto.Tensorflow.Core.Framework.Versions.VersionDef, - b ~ Proto.Tensorflow.Core.Framework.Versions.VersionDef, - Prelude.Functor f) => - Lens.Labels.HasLens "versions" f GraphDef GraphDef a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _GraphDef'versions - (\ x__ y__ -> x__{_GraphDef'versions = y__})) - (Data.ProtoLens.maybeLens Data.Default.Class.def) - -instance (a ~ - Prelude.Maybe Proto.Tensorflow.Core.Framework.Versions.VersionDef, - b ~ - Prelude.Maybe Proto.Tensorflow.Core.Framework.Versions.VersionDef, - Prelude.Functor f) => - Lens.Labels.HasLens "maybe'versions" f GraphDef GraphDef a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _GraphDef'versions - (\ x__ y__ -> x__{_GraphDef'versions = y__})) - Prelude.id - -instance (a ~ Data.Int.Int32, b ~ Data.Int.Int32, - Prelude.Functor f) => - Lens.Labels.HasLens "version" f GraphDef GraphDef a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _GraphDef'version - (\ x__ y__ -> x__{_GraphDef'version = y__})) - Prelude.id - -instance (a ~ - Proto.Tensorflow.Core.Framework.Function.FunctionDefLibrary, - b ~ Proto.Tensorflow.Core.Framework.Function.FunctionDefLibrary, - Prelude.Functor f) => - Lens.Labels.HasLens "library" f GraphDef GraphDef a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _GraphDef'library - (\ x__ y__ -> x__{_GraphDef'library = y__})) - (Data.ProtoLens.maybeLens Data.Default.Class.def) - -instance (a ~ - Prelude.Maybe - Proto.Tensorflow.Core.Framework.Function.FunctionDefLibrary, - b ~ - Prelude.Maybe - Proto.Tensorflow.Core.Framework.Function.FunctionDefLibrary, - Prelude.Functor f) => - Lens.Labels.HasLens "maybe'library" f GraphDef GraphDef a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _GraphDef'library - (\ x__ y__ -> x__{_GraphDef'library = y__})) - Prelude.id - -instance Data.Default.Class.Default GraphDef where - def - = GraphDef{_GraphDef'node = [], - _GraphDef'versions = Prelude.Nothing, - _GraphDef'version = Data.ProtoLens.fieldDefault, - _GraphDef'library = Prelude.Nothing} - -instance Data.ProtoLens.Message GraphDef where - descriptor - = let node__field_descriptor - = Data.ProtoLens.FieldDescriptor "node" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor - Proto.Tensorflow.Core.Framework.NodeDef.NodeDef) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked node) - :: Data.ProtoLens.FieldDescriptor GraphDef - versions__field_descriptor - = Data.ProtoLens.FieldDescriptor "versions" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor - Proto.Tensorflow.Core.Framework.Versions.VersionDef) - (Data.ProtoLens.OptionalField maybe'versions) - :: Data.ProtoLens.FieldDescriptor GraphDef - version__field_descriptor - = Data.ProtoLens.FieldDescriptor "version" - (Data.ProtoLens.Int32Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional version) - :: Data.ProtoLens.FieldDescriptor GraphDef - library__field_descriptor - = Data.ProtoLens.FieldDescriptor "library" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor - Proto.Tensorflow.Core.Framework.Function.FunctionDefLibrary) - (Data.ProtoLens.OptionalField maybe'library) - :: Data.ProtoLens.FieldDescriptor GraphDef - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.GraphDef") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, node__field_descriptor), - (Data.ProtoLens.Tag 4, versions__field_descriptor), - (Data.ProtoLens.Tag 3, version__field_descriptor), - (Data.ProtoLens.Tag 2, library__field_descriptor)]) - (Data.Map.fromList - [("node", node__field_descriptor), - ("versions", versions__field_descriptor), - ("version", version__field_descriptor), - ("library", library__field_descriptor)]) - -library :: - forall f s t a b . (Lens.Labels.HasLens "library" f s t a b) => - Lens.Family2.LensLike f s t a b -library - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "library") - -maybe'library :: - forall f s t a b . - (Lens.Labels.HasLens "maybe'library" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'library - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'library") - -maybe'versions :: - forall f s t a b . - (Lens.Labels.HasLens "maybe'versions" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'versions - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'versions") - -node :: - forall f s t a b . (Lens.Labels.HasLens "node" f s t a b) => - Lens.Family2.LensLike f s t a b -node - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "node") - -version :: - forall f s t a b . (Lens.Labels.HasLens "version" f s t a b) => - Lens.Family2.LensLike f s t a b -version - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "version") - -versions :: - forall f s t a b . (Lens.Labels.HasLens "versions" f s t a b) => - Lens.Family2.LensLike f s t a b -versions - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "versions") diff --git a/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Framework/KernelDef.hs b/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Framework/KernelDef.hs deleted file mode 100644 --- a/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Framework/KernelDef.hs +++ /dev/null @@ -1,284 +0,0 @@ -{- This file was auto-generated from tensorflow/core/framework/kernel_def.proto by the proto-lens-protoc program. -} -{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies, - UndecidableInstances, MultiParamTypeClasses, FlexibleContexts, - FlexibleInstances, PatternSynonyms, MagicHash, NoImplicitPrelude - #-} -{-# OPTIONS_GHC -fno-warn-unused-imports#-} -module Proto.Tensorflow.Core.Framework.KernelDef where -import qualified Data.ProtoLens.Reexport.Prelude as Prelude -import qualified Data.ProtoLens.Reexport.Data.Int as Data.Int -import qualified Data.ProtoLens.Reexport.Data.Word as Data.Word -import qualified Data.ProtoLens.Reexport.Data.ProtoLens - as Data.ProtoLens -import qualified - Data.ProtoLens.Reexport.Data.ProtoLens.Message.Enum - as Data.ProtoLens.Message.Enum -import qualified Data.ProtoLens.Reexport.Lens.Family2 - as Lens.Family2 -import qualified Data.ProtoLens.Reexport.Lens.Family2.Unchecked - as Lens.Family2.Unchecked -import qualified Data.ProtoLens.Reexport.Data.Default.Class - as Data.Default.Class -import qualified Data.ProtoLens.Reexport.Data.Text as Data.Text -import qualified Data.ProtoLens.Reexport.Data.Map as Data.Map -import qualified Data.ProtoLens.Reexport.Data.ByteString - as Data.ByteString -import qualified Data.ProtoLens.Reexport.Lens.Labels as Lens.Labels -import qualified Proto.Tensorflow.Core.Framework.AttrValue - -data KernelDef = KernelDef{_KernelDef'op :: !Data.Text.Text, - _KernelDef'deviceType :: !Data.Text.Text, - _KernelDef'constraint :: ![KernelDef'AttrConstraint], - _KernelDef'hostMemoryArg :: ![Data.Text.Text], - _KernelDef'label :: !Data.Text.Text} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "op" f KernelDef KernelDef a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _KernelDef'op - (\ x__ y__ -> x__{_KernelDef'op = y__})) - Prelude.id - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "deviceType" f KernelDef KernelDef a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _KernelDef'deviceType - (\ x__ y__ -> x__{_KernelDef'deviceType = y__})) - Prelude.id - -instance (a ~ [KernelDef'AttrConstraint], - b ~ [KernelDef'AttrConstraint], Prelude.Functor f) => - Lens.Labels.HasLens "constraint" f KernelDef KernelDef a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _KernelDef'constraint - (\ x__ y__ -> x__{_KernelDef'constraint = y__})) - Prelude.id - -instance (a ~ [Data.Text.Text], b ~ [Data.Text.Text], - Prelude.Functor f) => - Lens.Labels.HasLens "hostMemoryArg" f KernelDef KernelDef a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _KernelDef'hostMemoryArg - (\ x__ y__ -> x__{_KernelDef'hostMemoryArg = y__})) - Prelude.id - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "label" f KernelDef KernelDef a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _KernelDef'label - (\ x__ y__ -> x__{_KernelDef'label = y__})) - Prelude.id - -instance Data.Default.Class.Default KernelDef where - def - = KernelDef{_KernelDef'op = Data.ProtoLens.fieldDefault, - _KernelDef'deviceType = Data.ProtoLens.fieldDefault, - _KernelDef'constraint = [], _KernelDef'hostMemoryArg = [], - _KernelDef'label = Data.ProtoLens.fieldDefault} - -instance Data.ProtoLens.Message KernelDef where - descriptor - = let op__field_descriptor - = Data.ProtoLens.FieldDescriptor "op" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional op) - :: Data.ProtoLens.FieldDescriptor KernelDef - deviceType__field_descriptor - = Data.ProtoLens.FieldDescriptor "device_type" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional deviceType) - :: Data.ProtoLens.FieldDescriptor KernelDef - constraint__field_descriptor - = Data.ProtoLens.FieldDescriptor "constraint" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor KernelDef'AttrConstraint) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked constraint) - :: Data.ProtoLens.FieldDescriptor KernelDef - hostMemoryArg__field_descriptor - = Data.ProtoLens.FieldDescriptor "host_memory_arg" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked - hostMemoryArg) - :: Data.ProtoLens.FieldDescriptor KernelDef - label__field_descriptor - = Data.ProtoLens.FieldDescriptor "label" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional label) - :: Data.ProtoLens.FieldDescriptor KernelDef - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.KernelDef") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, op__field_descriptor), - (Data.ProtoLens.Tag 2, deviceType__field_descriptor), - (Data.ProtoLens.Tag 3, constraint__field_descriptor), - (Data.ProtoLens.Tag 4, hostMemoryArg__field_descriptor), - (Data.ProtoLens.Tag 5, label__field_descriptor)]) - (Data.Map.fromList - [("op", op__field_descriptor), - ("device_type", deviceType__field_descriptor), - ("constraint", constraint__field_descriptor), - ("host_memory_arg", hostMemoryArg__field_descriptor), - ("label", label__field_descriptor)]) - -data KernelDef'AttrConstraint = KernelDef'AttrConstraint{_KernelDef'AttrConstraint'name - :: !Data.Text.Text, - _KernelDef'AttrConstraint'allowedValues :: - !(Prelude.Maybe - Proto.Tensorflow.Core.Framework.AttrValue.AttrValue)} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "name" f KernelDef'AttrConstraint - KernelDef'AttrConstraint - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _KernelDef'AttrConstraint'name - (\ x__ y__ -> x__{_KernelDef'AttrConstraint'name = y__})) - Prelude.id - -instance (a ~ Proto.Tensorflow.Core.Framework.AttrValue.AttrValue, - b ~ Proto.Tensorflow.Core.Framework.AttrValue.AttrValue, - Prelude.Functor f) => - Lens.Labels.HasLens "allowedValues" f KernelDef'AttrConstraint - KernelDef'AttrConstraint - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _KernelDef'AttrConstraint'allowedValues - (\ x__ y__ -> x__{_KernelDef'AttrConstraint'allowedValues = y__})) - (Data.ProtoLens.maybeLens Data.Default.Class.def) - -instance (a ~ - Prelude.Maybe Proto.Tensorflow.Core.Framework.AttrValue.AttrValue, - b ~ - Prelude.Maybe Proto.Tensorflow.Core.Framework.AttrValue.AttrValue, - Prelude.Functor f) => - Lens.Labels.HasLens "maybe'allowedValues" f - KernelDef'AttrConstraint - KernelDef'AttrConstraint - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _KernelDef'AttrConstraint'allowedValues - (\ x__ y__ -> x__{_KernelDef'AttrConstraint'allowedValues = y__})) - Prelude.id - -instance Data.Default.Class.Default KernelDef'AttrConstraint where - def - = KernelDef'AttrConstraint{_KernelDef'AttrConstraint'name = - Data.ProtoLens.fieldDefault, - _KernelDef'AttrConstraint'allowedValues = Prelude.Nothing} - -instance Data.ProtoLens.Message KernelDef'AttrConstraint where - descriptor - = let name__field_descriptor - = Data.ProtoLens.FieldDescriptor "name" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional name) - :: Data.ProtoLens.FieldDescriptor KernelDef'AttrConstraint - allowedValues__field_descriptor - = Data.ProtoLens.FieldDescriptor "allowed_values" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor - Proto.Tensorflow.Core.Framework.AttrValue.AttrValue) - (Data.ProtoLens.OptionalField maybe'allowedValues) - :: Data.ProtoLens.FieldDescriptor KernelDef'AttrConstraint - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.KernelDef.AttrConstraint") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, name__field_descriptor), - (Data.ProtoLens.Tag 2, allowedValues__field_descriptor)]) - (Data.Map.fromList - [("name", name__field_descriptor), - ("allowed_values", allowedValues__field_descriptor)]) - -allowedValues :: - forall f s t a b . - (Lens.Labels.HasLens "allowedValues" f s t a b) => - Lens.Family2.LensLike f s t a b -allowedValues - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "allowedValues") - -constraint :: - forall f s t a b . (Lens.Labels.HasLens "constraint" f s t a b) => - Lens.Family2.LensLike f s t a b -constraint - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "constraint") - -deviceType :: - forall f s t a b . (Lens.Labels.HasLens "deviceType" f s t a b) => - Lens.Family2.LensLike f s t a b -deviceType - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "deviceType") - -hostMemoryArg :: - forall f s t a b . - (Lens.Labels.HasLens "hostMemoryArg" f s t a b) => - Lens.Family2.LensLike f s t a b -hostMemoryArg - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "hostMemoryArg") - -label :: - forall f s t a b . (Lens.Labels.HasLens "label" f s t a b) => - Lens.Family2.LensLike f s t a b -label - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "label") - -maybe'allowedValues :: - forall f s t a b . - (Lens.Labels.HasLens "maybe'allowedValues" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'allowedValues - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: - (Lens.Labels.Proxy#) "maybe'allowedValues") - -name :: - forall f s t a b . (Lens.Labels.HasLens "name" f s t a b) => - Lens.Family2.LensLike f s t a b -name - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "name") - -op :: - forall f s t a b . (Lens.Labels.HasLens "op" f s t a b) => - Lens.Family2.LensLike f s t a b -op - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "op") diff --git a/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Framework/LogMemory.hs b/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Framework/LogMemory.hs deleted file mode 100644 --- a/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Framework/LogMemory.hs +++ /dev/null @@ -1,777 +0,0 @@ -{- This file was auto-generated from tensorflow/core/framework/log_memory.proto by the proto-lens-protoc program. -} -{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies, - UndecidableInstances, MultiParamTypeClasses, FlexibleContexts, - FlexibleInstances, PatternSynonyms, MagicHash, NoImplicitPrelude - #-} -{-# OPTIONS_GHC -fno-warn-unused-imports#-} -module Proto.Tensorflow.Core.Framework.LogMemory where -import qualified Data.ProtoLens.Reexport.Prelude as Prelude -import qualified Data.ProtoLens.Reexport.Data.Int as Data.Int -import qualified Data.ProtoLens.Reexport.Data.Word as Data.Word -import qualified Data.ProtoLens.Reexport.Data.ProtoLens - as Data.ProtoLens -import qualified - Data.ProtoLens.Reexport.Data.ProtoLens.Message.Enum - as Data.ProtoLens.Message.Enum -import qualified Data.ProtoLens.Reexport.Lens.Family2 - as Lens.Family2 -import qualified Data.ProtoLens.Reexport.Lens.Family2.Unchecked - as Lens.Family2.Unchecked -import qualified Data.ProtoLens.Reexport.Data.Default.Class - as Data.Default.Class -import qualified Data.ProtoLens.Reexport.Data.Text as Data.Text -import qualified Data.ProtoLens.Reexport.Data.Map as Data.Map -import qualified Data.ProtoLens.Reexport.Data.ByteString - as Data.ByteString -import qualified Data.ProtoLens.Reexport.Lens.Labels as Lens.Labels -import qualified Proto.Tensorflow.Core.Framework.TensorDescription - -data MemoryLogRawAllocation = MemoryLogRawAllocation{_MemoryLogRawAllocation'stepId - :: !Data.Int.Int64, - _MemoryLogRawAllocation'operation :: - !Data.Text.Text, - _MemoryLogRawAllocation'numBytes :: - !Data.Int.Int64, - _MemoryLogRawAllocation'ptr :: - !Data.Word.Word64, - _MemoryLogRawAllocation'allocationId :: - !Data.Int.Int64, - _MemoryLogRawAllocation'allocatorName :: - !Data.Text.Text} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Data.Int.Int64, b ~ Data.Int.Int64, - Prelude.Functor f) => - Lens.Labels.HasLens "stepId" f MemoryLogRawAllocation - MemoryLogRawAllocation - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _MemoryLogRawAllocation'stepId - (\ x__ y__ -> x__{_MemoryLogRawAllocation'stepId = y__})) - Prelude.id - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "operation" f MemoryLogRawAllocation - MemoryLogRawAllocation - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _MemoryLogRawAllocation'operation - (\ x__ y__ -> x__{_MemoryLogRawAllocation'operation = y__})) - Prelude.id - -instance (a ~ Data.Int.Int64, b ~ Data.Int.Int64, - Prelude.Functor f) => - Lens.Labels.HasLens "numBytes" f MemoryLogRawAllocation - MemoryLogRawAllocation - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _MemoryLogRawAllocation'numBytes - (\ x__ y__ -> x__{_MemoryLogRawAllocation'numBytes = y__})) - Prelude.id - -instance (a ~ Data.Word.Word64, b ~ Data.Word.Word64, - Prelude.Functor f) => - Lens.Labels.HasLens "ptr" f MemoryLogRawAllocation - MemoryLogRawAllocation - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _MemoryLogRawAllocation'ptr - (\ x__ y__ -> x__{_MemoryLogRawAllocation'ptr = y__})) - Prelude.id - -instance (a ~ Data.Int.Int64, b ~ Data.Int.Int64, - Prelude.Functor f) => - Lens.Labels.HasLens "allocationId" f MemoryLogRawAllocation - MemoryLogRawAllocation - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _MemoryLogRawAllocation'allocationId - (\ x__ y__ -> x__{_MemoryLogRawAllocation'allocationId = y__})) - Prelude.id - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "allocatorName" f MemoryLogRawAllocation - MemoryLogRawAllocation - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _MemoryLogRawAllocation'allocatorName - (\ x__ y__ -> x__{_MemoryLogRawAllocation'allocatorName = y__})) - Prelude.id - -instance Data.Default.Class.Default MemoryLogRawAllocation where - def - = MemoryLogRawAllocation{_MemoryLogRawAllocation'stepId = - Data.ProtoLens.fieldDefault, - _MemoryLogRawAllocation'operation = Data.ProtoLens.fieldDefault, - _MemoryLogRawAllocation'numBytes = Data.ProtoLens.fieldDefault, - _MemoryLogRawAllocation'ptr = Data.ProtoLens.fieldDefault, - _MemoryLogRawAllocation'allocationId = - Data.ProtoLens.fieldDefault, - _MemoryLogRawAllocation'allocatorName = - Data.ProtoLens.fieldDefault} - -instance Data.ProtoLens.Message MemoryLogRawAllocation where - descriptor - = let stepId__field_descriptor - = Data.ProtoLens.FieldDescriptor "step_id" - (Data.ProtoLens.Int64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional stepId) - :: Data.ProtoLens.FieldDescriptor MemoryLogRawAllocation - operation__field_descriptor - = Data.ProtoLens.FieldDescriptor "operation" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional operation) - :: Data.ProtoLens.FieldDescriptor MemoryLogRawAllocation - numBytes__field_descriptor - = Data.ProtoLens.FieldDescriptor "num_bytes" - (Data.ProtoLens.Int64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional numBytes) - :: Data.ProtoLens.FieldDescriptor MemoryLogRawAllocation - ptr__field_descriptor - = Data.ProtoLens.FieldDescriptor "ptr" - (Data.ProtoLens.UInt64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional ptr) - :: Data.ProtoLens.FieldDescriptor MemoryLogRawAllocation - allocationId__field_descriptor - = Data.ProtoLens.FieldDescriptor "allocation_id" - (Data.ProtoLens.Int64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional allocationId) - :: Data.ProtoLens.FieldDescriptor MemoryLogRawAllocation - allocatorName__field_descriptor - = Data.ProtoLens.FieldDescriptor "allocator_name" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional allocatorName) - :: Data.ProtoLens.FieldDescriptor MemoryLogRawAllocation - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.MemoryLogRawAllocation") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, stepId__field_descriptor), - (Data.ProtoLens.Tag 2, operation__field_descriptor), - (Data.ProtoLens.Tag 3, numBytes__field_descriptor), - (Data.ProtoLens.Tag 4, ptr__field_descriptor), - (Data.ProtoLens.Tag 5, allocationId__field_descriptor), - (Data.ProtoLens.Tag 6, allocatorName__field_descriptor)]) - (Data.Map.fromList - [("step_id", stepId__field_descriptor), - ("operation", operation__field_descriptor), - ("num_bytes", numBytes__field_descriptor), - ("ptr", ptr__field_descriptor), - ("allocation_id", allocationId__field_descriptor), - ("allocator_name", allocatorName__field_descriptor)]) - -data MemoryLogRawDeallocation = MemoryLogRawDeallocation{_MemoryLogRawDeallocation'stepId - :: !Data.Int.Int64, - _MemoryLogRawDeallocation'operation :: - !Data.Text.Text, - _MemoryLogRawDeallocation'allocationId :: - !Data.Int.Int64, - _MemoryLogRawDeallocation'allocatorName :: - !Data.Text.Text, - _MemoryLogRawDeallocation'deferred :: - !Prelude.Bool} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Data.Int.Int64, b ~ Data.Int.Int64, - Prelude.Functor f) => - Lens.Labels.HasLens "stepId" f MemoryLogRawDeallocation - MemoryLogRawDeallocation - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _MemoryLogRawDeallocation'stepId - (\ x__ y__ -> x__{_MemoryLogRawDeallocation'stepId = y__})) - Prelude.id - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "operation" f MemoryLogRawDeallocation - MemoryLogRawDeallocation - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _MemoryLogRawDeallocation'operation - (\ x__ y__ -> x__{_MemoryLogRawDeallocation'operation = y__})) - Prelude.id - -instance (a ~ Data.Int.Int64, b ~ Data.Int.Int64, - Prelude.Functor f) => - Lens.Labels.HasLens "allocationId" f MemoryLogRawDeallocation - MemoryLogRawDeallocation - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _MemoryLogRawDeallocation'allocationId - (\ x__ y__ -> x__{_MemoryLogRawDeallocation'allocationId = y__})) - Prelude.id - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "allocatorName" f MemoryLogRawDeallocation - MemoryLogRawDeallocation - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _MemoryLogRawDeallocation'allocatorName - (\ x__ y__ -> x__{_MemoryLogRawDeallocation'allocatorName = y__})) - Prelude.id - -instance (a ~ Prelude.Bool, b ~ Prelude.Bool, Prelude.Functor f) => - Lens.Labels.HasLens "deferred" f MemoryLogRawDeallocation - MemoryLogRawDeallocation - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _MemoryLogRawDeallocation'deferred - (\ x__ y__ -> x__{_MemoryLogRawDeallocation'deferred = y__})) - Prelude.id - -instance Data.Default.Class.Default MemoryLogRawDeallocation where - def - = MemoryLogRawDeallocation{_MemoryLogRawDeallocation'stepId = - Data.ProtoLens.fieldDefault, - _MemoryLogRawDeallocation'operation = - Data.ProtoLens.fieldDefault, - _MemoryLogRawDeallocation'allocationId = - Data.ProtoLens.fieldDefault, - _MemoryLogRawDeallocation'allocatorName = - Data.ProtoLens.fieldDefault, - _MemoryLogRawDeallocation'deferred = - Data.ProtoLens.fieldDefault} - -instance Data.ProtoLens.Message MemoryLogRawDeallocation where - descriptor - = let stepId__field_descriptor - = Data.ProtoLens.FieldDescriptor "step_id" - (Data.ProtoLens.Int64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional stepId) - :: Data.ProtoLens.FieldDescriptor MemoryLogRawDeallocation - operation__field_descriptor - = Data.ProtoLens.FieldDescriptor "operation" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional operation) - :: Data.ProtoLens.FieldDescriptor MemoryLogRawDeallocation - allocationId__field_descriptor - = Data.ProtoLens.FieldDescriptor "allocation_id" - (Data.ProtoLens.Int64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional allocationId) - :: Data.ProtoLens.FieldDescriptor MemoryLogRawDeallocation - allocatorName__field_descriptor - = Data.ProtoLens.FieldDescriptor "allocator_name" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional allocatorName) - :: Data.ProtoLens.FieldDescriptor MemoryLogRawDeallocation - deferred__field_descriptor - = Data.ProtoLens.FieldDescriptor "deferred" - (Data.ProtoLens.BoolField :: - Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional deferred) - :: Data.ProtoLens.FieldDescriptor MemoryLogRawDeallocation - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.MemoryLogRawDeallocation") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, stepId__field_descriptor), - (Data.ProtoLens.Tag 2, operation__field_descriptor), - (Data.ProtoLens.Tag 3, allocationId__field_descriptor), - (Data.ProtoLens.Tag 4, allocatorName__field_descriptor), - (Data.ProtoLens.Tag 5, deferred__field_descriptor)]) - (Data.Map.fromList - [("step_id", stepId__field_descriptor), - ("operation", operation__field_descriptor), - ("allocation_id", allocationId__field_descriptor), - ("allocator_name", allocatorName__field_descriptor), - ("deferred", deferred__field_descriptor)]) - -data MemoryLogStep = MemoryLogStep{_MemoryLogStep'stepId :: - !Data.Int.Int64, - _MemoryLogStep'handle :: !Data.Text.Text} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Data.Int.Int64, b ~ Data.Int.Int64, - Prelude.Functor f) => - Lens.Labels.HasLens "stepId" f MemoryLogStep MemoryLogStep a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _MemoryLogStep'stepId - (\ x__ y__ -> x__{_MemoryLogStep'stepId = y__})) - Prelude.id - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "handle" f MemoryLogStep MemoryLogStep a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _MemoryLogStep'handle - (\ x__ y__ -> x__{_MemoryLogStep'handle = y__})) - Prelude.id - -instance Data.Default.Class.Default MemoryLogStep where - def - = MemoryLogStep{_MemoryLogStep'stepId = - Data.ProtoLens.fieldDefault, - _MemoryLogStep'handle = Data.ProtoLens.fieldDefault} - -instance Data.ProtoLens.Message MemoryLogStep where - descriptor - = let stepId__field_descriptor - = Data.ProtoLens.FieldDescriptor "step_id" - (Data.ProtoLens.Int64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional stepId) - :: Data.ProtoLens.FieldDescriptor MemoryLogStep - handle__field_descriptor - = Data.ProtoLens.FieldDescriptor "handle" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional handle) - :: Data.ProtoLens.FieldDescriptor MemoryLogStep - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.MemoryLogStep") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, stepId__field_descriptor), - (Data.ProtoLens.Tag 2, handle__field_descriptor)]) - (Data.Map.fromList - [("step_id", stepId__field_descriptor), - ("handle", handle__field_descriptor)]) - -data MemoryLogTensorAllocation = MemoryLogTensorAllocation{_MemoryLogTensorAllocation'stepId - :: !Data.Int.Int64, - _MemoryLogTensorAllocation'kernelName :: - !Data.Text.Text, - _MemoryLogTensorAllocation'tensor :: - !(Prelude.Maybe - Proto.Tensorflow.Core.Framework.TensorDescription.TensorDescription)} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Data.Int.Int64, b ~ Data.Int.Int64, - Prelude.Functor f) => - Lens.Labels.HasLens "stepId" f MemoryLogTensorAllocation - MemoryLogTensorAllocation - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _MemoryLogTensorAllocation'stepId - (\ x__ y__ -> x__{_MemoryLogTensorAllocation'stepId = y__})) - Prelude.id - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "kernelName" f MemoryLogTensorAllocation - MemoryLogTensorAllocation - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _MemoryLogTensorAllocation'kernelName - (\ x__ y__ -> x__{_MemoryLogTensorAllocation'kernelName = y__})) - Prelude.id - -instance (a ~ - Proto.Tensorflow.Core.Framework.TensorDescription.TensorDescription, - b ~ - Proto.Tensorflow.Core.Framework.TensorDescription.TensorDescription, - Prelude.Functor f) => - Lens.Labels.HasLens "tensor" f MemoryLogTensorAllocation - MemoryLogTensorAllocation - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _MemoryLogTensorAllocation'tensor - (\ x__ y__ -> x__{_MemoryLogTensorAllocation'tensor = y__})) - (Data.ProtoLens.maybeLens Data.Default.Class.def) - -instance (a ~ - Prelude.Maybe - Proto.Tensorflow.Core.Framework.TensorDescription.TensorDescription, - b ~ - Prelude.Maybe - Proto.Tensorflow.Core.Framework.TensorDescription.TensorDescription, - Prelude.Functor f) => - Lens.Labels.HasLens "maybe'tensor" f MemoryLogTensorAllocation - MemoryLogTensorAllocation - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _MemoryLogTensorAllocation'tensor - (\ x__ y__ -> x__{_MemoryLogTensorAllocation'tensor = y__})) - Prelude.id - -instance Data.Default.Class.Default MemoryLogTensorAllocation where - def - = MemoryLogTensorAllocation{_MemoryLogTensorAllocation'stepId = - Data.ProtoLens.fieldDefault, - _MemoryLogTensorAllocation'kernelName = - Data.ProtoLens.fieldDefault, - _MemoryLogTensorAllocation'tensor = Prelude.Nothing} - -instance Data.ProtoLens.Message MemoryLogTensorAllocation where - descriptor - = let stepId__field_descriptor - = Data.ProtoLens.FieldDescriptor "step_id" - (Data.ProtoLens.Int64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional stepId) - :: Data.ProtoLens.FieldDescriptor MemoryLogTensorAllocation - kernelName__field_descriptor - = Data.ProtoLens.FieldDescriptor "kernel_name" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional kernelName) - :: Data.ProtoLens.FieldDescriptor MemoryLogTensorAllocation - tensor__field_descriptor - = Data.ProtoLens.FieldDescriptor "tensor" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor - Proto.Tensorflow.Core.Framework.TensorDescription.TensorDescription) - (Data.ProtoLens.OptionalField maybe'tensor) - :: Data.ProtoLens.FieldDescriptor MemoryLogTensorAllocation - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.MemoryLogTensorAllocation") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, stepId__field_descriptor), - (Data.ProtoLens.Tag 2, kernelName__field_descriptor), - (Data.ProtoLens.Tag 3, tensor__field_descriptor)]) - (Data.Map.fromList - [("step_id", stepId__field_descriptor), - ("kernel_name", kernelName__field_descriptor), - ("tensor", tensor__field_descriptor)]) - -data MemoryLogTensorDeallocation = MemoryLogTensorDeallocation{_MemoryLogTensorDeallocation'allocationId - :: !Data.Int.Int64, - _MemoryLogTensorDeallocation'allocatorName - :: !Data.Text.Text} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Data.Int.Int64, b ~ Data.Int.Int64, - Prelude.Functor f) => - Lens.Labels.HasLens "allocationId" f MemoryLogTensorDeallocation - MemoryLogTensorDeallocation - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _MemoryLogTensorDeallocation'allocationId - (\ x__ y__ -> - x__{_MemoryLogTensorDeallocation'allocationId = y__})) - Prelude.id - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "allocatorName" f MemoryLogTensorDeallocation - MemoryLogTensorDeallocation - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _MemoryLogTensorDeallocation'allocatorName - (\ x__ y__ -> - x__{_MemoryLogTensorDeallocation'allocatorName = y__})) - Prelude.id - -instance Data.Default.Class.Default MemoryLogTensorDeallocation - where - def - = MemoryLogTensorDeallocation{_MemoryLogTensorDeallocation'allocationId - = Data.ProtoLens.fieldDefault, - _MemoryLogTensorDeallocation'allocatorName = - Data.ProtoLens.fieldDefault} - -instance Data.ProtoLens.Message MemoryLogTensorDeallocation where - descriptor - = let allocationId__field_descriptor - = Data.ProtoLens.FieldDescriptor "allocation_id" - (Data.ProtoLens.Int64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional allocationId) - :: Data.ProtoLens.FieldDescriptor MemoryLogTensorDeallocation - allocatorName__field_descriptor - = Data.ProtoLens.FieldDescriptor "allocator_name" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional allocatorName) - :: Data.ProtoLens.FieldDescriptor MemoryLogTensorDeallocation - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.MemoryLogTensorDeallocation") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, allocationId__field_descriptor), - (Data.ProtoLens.Tag 2, allocatorName__field_descriptor)]) - (Data.Map.fromList - [("allocation_id", allocationId__field_descriptor), - ("allocator_name", allocatorName__field_descriptor)]) - -data MemoryLogTensorOutput = MemoryLogTensorOutput{_MemoryLogTensorOutput'stepId - :: !Data.Int.Int64, - _MemoryLogTensorOutput'kernelName :: - !Data.Text.Text, - _MemoryLogTensorOutput'index :: !Data.Int.Int32, - _MemoryLogTensorOutput'tensor :: - !(Prelude.Maybe - Proto.Tensorflow.Core.Framework.TensorDescription.TensorDescription)} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Data.Int.Int64, b ~ Data.Int.Int64, - Prelude.Functor f) => - Lens.Labels.HasLens "stepId" f MemoryLogTensorOutput - MemoryLogTensorOutput - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _MemoryLogTensorOutput'stepId - (\ x__ y__ -> x__{_MemoryLogTensorOutput'stepId = y__})) - Prelude.id - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "kernelName" f MemoryLogTensorOutput - MemoryLogTensorOutput - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _MemoryLogTensorOutput'kernelName - (\ x__ y__ -> x__{_MemoryLogTensorOutput'kernelName = y__})) - Prelude.id - -instance (a ~ Data.Int.Int32, b ~ Data.Int.Int32, - Prelude.Functor f) => - Lens.Labels.HasLens "index" f MemoryLogTensorOutput - MemoryLogTensorOutput - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _MemoryLogTensorOutput'index - (\ x__ y__ -> x__{_MemoryLogTensorOutput'index = y__})) - Prelude.id - -instance (a ~ - Proto.Tensorflow.Core.Framework.TensorDescription.TensorDescription, - b ~ - Proto.Tensorflow.Core.Framework.TensorDescription.TensorDescription, - Prelude.Functor f) => - Lens.Labels.HasLens "tensor" f MemoryLogTensorOutput - MemoryLogTensorOutput - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _MemoryLogTensorOutput'tensor - (\ x__ y__ -> x__{_MemoryLogTensorOutput'tensor = y__})) - (Data.ProtoLens.maybeLens Data.Default.Class.def) - -instance (a ~ - Prelude.Maybe - Proto.Tensorflow.Core.Framework.TensorDescription.TensorDescription, - b ~ - Prelude.Maybe - Proto.Tensorflow.Core.Framework.TensorDescription.TensorDescription, - Prelude.Functor f) => - Lens.Labels.HasLens "maybe'tensor" f MemoryLogTensorOutput - MemoryLogTensorOutput - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _MemoryLogTensorOutput'tensor - (\ x__ y__ -> x__{_MemoryLogTensorOutput'tensor = y__})) - Prelude.id - -instance Data.Default.Class.Default MemoryLogTensorOutput where - def - = MemoryLogTensorOutput{_MemoryLogTensorOutput'stepId = - Data.ProtoLens.fieldDefault, - _MemoryLogTensorOutput'kernelName = Data.ProtoLens.fieldDefault, - _MemoryLogTensorOutput'index = Data.ProtoLens.fieldDefault, - _MemoryLogTensorOutput'tensor = Prelude.Nothing} - -instance Data.ProtoLens.Message MemoryLogTensorOutput where - descriptor - = let stepId__field_descriptor - = Data.ProtoLens.FieldDescriptor "step_id" - (Data.ProtoLens.Int64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional stepId) - :: Data.ProtoLens.FieldDescriptor MemoryLogTensorOutput - kernelName__field_descriptor - = Data.ProtoLens.FieldDescriptor "kernel_name" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional kernelName) - :: Data.ProtoLens.FieldDescriptor MemoryLogTensorOutput - index__field_descriptor - = Data.ProtoLens.FieldDescriptor "index" - (Data.ProtoLens.Int32Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional index) - :: Data.ProtoLens.FieldDescriptor MemoryLogTensorOutput - tensor__field_descriptor - = Data.ProtoLens.FieldDescriptor "tensor" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor - Proto.Tensorflow.Core.Framework.TensorDescription.TensorDescription) - (Data.ProtoLens.OptionalField maybe'tensor) - :: Data.ProtoLens.FieldDescriptor MemoryLogTensorOutput - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.MemoryLogTensorOutput") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, stepId__field_descriptor), - (Data.ProtoLens.Tag 2, kernelName__field_descriptor), - (Data.ProtoLens.Tag 3, index__field_descriptor), - (Data.ProtoLens.Tag 4, tensor__field_descriptor)]) - (Data.Map.fromList - [("step_id", stepId__field_descriptor), - ("kernel_name", kernelName__field_descriptor), - ("index", index__field_descriptor), - ("tensor", tensor__field_descriptor)]) - -allocationId :: - forall f s t a b . - (Lens.Labels.HasLens "allocationId" f s t a b) => - Lens.Family2.LensLike f s t a b -allocationId - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "allocationId") - -allocatorName :: - forall f s t a b . - (Lens.Labels.HasLens "allocatorName" f s t a b) => - Lens.Family2.LensLike f s t a b -allocatorName - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "allocatorName") - -deferred :: - forall f s t a b . (Lens.Labels.HasLens "deferred" f s t a b) => - Lens.Family2.LensLike f s t a b -deferred - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "deferred") - -handle :: - forall f s t a b . (Lens.Labels.HasLens "handle" f s t a b) => - Lens.Family2.LensLike f s t a b -handle - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "handle") - -index :: - forall f s t a b . (Lens.Labels.HasLens "index" f s t a b) => - Lens.Family2.LensLike f s t a b -index - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "index") - -kernelName :: - forall f s t a b . (Lens.Labels.HasLens "kernelName" f s t a b) => - Lens.Family2.LensLike f s t a b -kernelName - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "kernelName") - -maybe'tensor :: - forall f s t a b . - (Lens.Labels.HasLens "maybe'tensor" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'tensor - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'tensor") - -numBytes :: - forall f s t a b . (Lens.Labels.HasLens "numBytes" f s t a b) => - Lens.Family2.LensLike f s t a b -numBytes - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "numBytes") - -operation :: - forall f s t a b . (Lens.Labels.HasLens "operation" f s t a b) => - Lens.Family2.LensLike f s t a b -operation - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "operation") - -ptr :: - forall f s t a b . (Lens.Labels.HasLens "ptr" f s t a b) => - Lens.Family2.LensLike f s t a b -ptr - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "ptr") - -stepId :: - forall f s t a b . (Lens.Labels.HasLens "stepId" f s t a b) => - Lens.Family2.LensLike f s t a b -stepId - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "stepId") - -tensor :: - forall f s t a b . (Lens.Labels.HasLens "tensor" f s t a b) => - Lens.Family2.LensLike f s t a b -tensor - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "tensor") diff --git a/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Framework/NodeDef.hs b/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Framework/NodeDef.hs deleted file mode 100644 --- a/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Framework/NodeDef.hs +++ /dev/null @@ -1,277 +0,0 @@ -{- This file was auto-generated from tensorflow/core/framework/node_def.proto by the proto-lens-protoc program. -} -{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies, - UndecidableInstances, MultiParamTypeClasses, FlexibleContexts, - FlexibleInstances, PatternSynonyms, MagicHash, NoImplicitPrelude - #-} -{-# OPTIONS_GHC -fno-warn-unused-imports#-} -module Proto.Tensorflow.Core.Framework.NodeDef where -import qualified Data.ProtoLens.Reexport.Prelude as Prelude -import qualified Data.ProtoLens.Reexport.Data.Int as Data.Int -import qualified Data.ProtoLens.Reexport.Data.Word as Data.Word -import qualified Data.ProtoLens.Reexport.Data.ProtoLens - as Data.ProtoLens -import qualified - Data.ProtoLens.Reexport.Data.ProtoLens.Message.Enum - as Data.ProtoLens.Message.Enum -import qualified Data.ProtoLens.Reexport.Lens.Family2 - as Lens.Family2 -import qualified Data.ProtoLens.Reexport.Lens.Family2.Unchecked - as Lens.Family2.Unchecked -import qualified Data.ProtoLens.Reexport.Data.Default.Class - as Data.Default.Class -import qualified Data.ProtoLens.Reexport.Data.Text as Data.Text -import qualified Data.ProtoLens.Reexport.Data.Map as Data.Map -import qualified Data.ProtoLens.Reexport.Data.ByteString - as Data.ByteString -import qualified Data.ProtoLens.Reexport.Lens.Labels as Lens.Labels -import qualified Proto.Tensorflow.Core.Framework.AttrValue - -data NodeDef = NodeDef{_NodeDef'name :: !Data.Text.Text, - _NodeDef'op :: !Data.Text.Text, - _NodeDef'input :: ![Data.Text.Text], - _NodeDef'device :: !Data.Text.Text, - _NodeDef'attr :: - !(Data.Map.Map Data.Text.Text - Proto.Tensorflow.Core.Framework.AttrValue.AttrValue)} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "name" f NodeDef NodeDef a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _NodeDef'name - (\ x__ y__ -> x__{_NodeDef'name = y__})) - Prelude.id - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "op" f NodeDef NodeDef a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _NodeDef'op - (\ x__ y__ -> x__{_NodeDef'op = y__})) - Prelude.id - -instance (a ~ [Data.Text.Text], b ~ [Data.Text.Text], - Prelude.Functor f) => - Lens.Labels.HasLens "input" f NodeDef NodeDef a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _NodeDef'input - (\ x__ y__ -> x__{_NodeDef'input = y__})) - Prelude.id - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "device" f NodeDef NodeDef a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _NodeDef'device - (\ x__ y__ -> x__{_NodeDef'device = y__})) - Prelude.id - -instance (a ~ - Data.Map.Map Data.Text.Text - Proto.Tensorflow.Core.Framework.AttrValue.AttrValue, - b ~ - Data.Map.Map Data.Text.Text - Proto.Tensorflow.Core.Framework.AttrValue.AttrValue, - Prelude.Functor f) => - Lens.Labels.HasLens "attr" f NodeDef NodeDef a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _NodeDef'attr - (\ x__ y__ -> x__{_NodeDef'attr = y__})) - Prelude.id - -instance Data.Default.Class.Default NodeDef where - def - = NodeDef{_NodeDef'name = Data.ProtoLens.fieldDefault, - _NodeDef'op = Data.ProtoLens.fieldDefault, _NodeDef'input = [], - _NodeDef'device = Data.ProtoLens.fieldDefault, - _NodeDef'attr = Data.Map.empty} - -instance Data.ProtoLens.Message NodeDef where - descriptor - = let name__field_descriptor - = Data.ProtoLens.FieldDescriptor "name" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional name) - :: Data.ProtoLens.FieldDescriptor NodeDef - op__field_descriptor - = Data.ProtoLens.FieldDescriptor "op" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional op) - :: Data.ProtoLens.FieldDescriptor NodeDef - input__field_descriptor - = Data.ProtoLens.FieldDescriptor "input" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked input) - :: Data.ProtoLens.FieldDescriptor NodeDef - device__field_descriptor - = Data.ProtoLens.FieldDescriptor "device" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional device) - :: Data.ProtoLens.FieldDescriptor NodeDef - attr__field_descriptor - = Data.ProtoLens.FieldDescriptor "attr" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor NodeDef'AttrEntry) - (Data.ProtoLens.MapField key value attr) - :: Data.ProtoLens.FieldDescriptor NodeDef - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.NodeDef") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, name__field_descriptor), - (Data.ProtoLens.Tag 2, op__field_descriptor), - (Data.ProtoLens.Tag 3, input__field_descriptor), - (Data.ProtoLens.Tag 4, device__field_descriptor), - (Data.ProtoLens.Tag 5, attr__field_descriptor)]) - (Data.Map.fromList - [("name", name__field_descriptor), ("op", op__field_descriptor), - ("input", input__field_descriptor), - ("device", device__field_descriptor), - ("attr", attr__field_descriptor)]) - -data NodeDef'AttrEntry = NodeDef'AttrEntry{_NodeDef'AttrEntry'key - :: !Data.Text.Text, - _NodeDef'AttrEntry'value :: - !(Prelude.Maybe - Proto.Tensorflow.Core.Framework.AttrValue.AttrValue)} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "key" f NodeDef'AttrEntry NodeDef'AttrEntry a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _NodeDef'AttrEntry'key - (\ x__ y__ -> x__{_NodeDef'AttrEntry'key = y__})) - Prelude.id - -instance (a ~ Proto.Tensorflow.Core.Framework.AttrValue.AttrValue, - b ~ Proto.Tensorflow.Core.Framework.AttrValue.AttrValue, - Prelude.Functor f) => - Lens.Labels.HasLens "value" f NodeDef'AttrEntry NodeDef'AttrEntry a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _NodeDef'AttrEntry'value - (\ x__ y__ -> x__{_NodeDef'AttrEntry'value = y__})) - (Data.ProtoLens.maybeLens Data.Default.Class.def) - -instance (a ~ - Prelude.Maybe Proto.Tensorflow.Core.Framework.AttrValue.AttrValue, - b ~ - Prelude.Maybe Proto.Tensorflow.Core.Framework.AttrValue.AttrValue, - Prelude.Functor f) => - Lens.Labels.HasLens "maybe'value" f NodeDef'AttrEntry - NodeDef'AttrEntry - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _NodeDef'AttrEntry'value - (\ x__ y__ -> x__{_NodeDef'AttrEntry'value = y__})) - Prelude.id - -instance Data.Default.Class.Default NodeDef'AttrEntry where - def - = NodeDef'AttrEntry{_NodeDef'AttrEntry'key = - Data.ProtoLens.fieldDefault, - _NodeDef'AttrEntry'value = Prelude.Nothing} - -instance Data.ProtoLens.Message NodeDef'AttrEntry where - descriptor - = let key__field_descriptor - = Data.ProtoLens.FieldDescriptor "key" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional key) - :: Data.ProtoLens.FieldDescriptor NodeDef'AttrEntry - value__field_descriptor - = Data.ProtoLens.FieldDescriptor "value" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor - Proto.Tensorflow.Core.Framework.AttrValue.AttrValue) - (Data.ProtoLens.OptionalField maybe'value) - :: Data.ProtoLens.FieldDescriptor NodeDef'AttrEntry - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.NodeDef.AttrEntry") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, key__field_descriptor), - (Data.ProtoLens.Tag 2, value__field_descriptor)]) - (Data.Map.fromList - [("key", key__field_descriptor), - ("value", value__field_descriptor)]) - -attr :: - forall f s t a b . (Lens.Labels.HasLens "attr" f s t a b) => - Lens.Family2.LensLike f s t a b -attr - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "attr") - -device :: - forall f s t a b . (Lens.Labels.HasLens "device" f s t a b) => - Lens.Family2.LensLike f s t a b -device - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "device") - -input :: - forall f s t a b . (Lens.Labels.HasLens "input" f s t a b) => - Lens.Family2.LensLike f s t a b -input - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "input") - -key :: - forall f s t a b . (Lens.Labels.HasLens "key" f s t a b) => - Lens.Family2.LensLike f s t a b -key - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "key") - -maybe'value :: - forall f s t a b . (Lens.Labels.HasLens "maybe'value" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'value - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'value") - -name :: - forall f s t a b . (Lens.Labels.HasLens "name" f s t a b) => - Lens.Family2.LensLike f s t a b -name - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "name") - -op :: - forall f s t a b . (Lens.Labels.HasLens "op" f s t a b) => - Lens.Family2.LensLike f s t a b -op - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "op") - -value :: - forall f s t a b . (Lens.Labels.HasLens "value" f s t a b) => - Lens.Family2.LensLike f s t a b -value - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "value") diff --git a/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Framework/OpDef.hs b/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Framework/OpDef.hs deleted file mode 100644 --- a/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Framework/OpDef.hs +++ /dev/null @@ -1,895 +0,0 @@ -{- This file was auto-generated from tensorflow/core/framework/op_def.proto by the proto-lens-protoc program. -} -{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies, - UndecidableInstances, MultiParamTypeClasses, FlexibleContexts, - FlexibleInstances, PatternSynonyms, MagicHash, NoImplicitPrelude - #-} -{-# OPTIONS_GHC -fno-warn-unused-imports#-} -module Proto.Tensorflow.Core.Framework.OpDef where -import qualified Data.ProtoLens.Reexport.Prelude as Prelude -import qualified Data.ProtoLens.Reexport.Data.Int as Data.Int -import qualified Data.ProtoLens.Reexport.Data.Word as Data.Word -import qualified Data.ProtoLens.Reexport.Data.ProtoLens - as Data.ProtoLens -import qualified - Data.ProtoLens.Reexport.Data.ProtoLens.Message.Enum - as Data.ProtoLens.Message.Enum -import qualified Data.ProtoLens.Reexport.Lens.Family2 - as Lens.Family2 -import qualified Data.ProtoLens.Reexport.Lens.Family2.Unchecked - as Lens.Family2.Unchecked -import qualified Data.ProtoLens.Reexport.Data.Default.Class - as Data.Default.Class -import qualified Data.ProtoLens.Reexport.Data.Text as Data.Text -import qualified Data.ProtoLens.Reexport.Data.Map as Data.Map -import qualified Data.ProtoLens.Reexport.Data.ByteString - as Data.ByteString -import qualified Data.ProtoLens.Reexport.Lens.Labels as Lens.Labels -import qualified Proto.Tensorflow.Core.Framework.AttrValue -import qualified Proto.Tensorflow.Core.Framework.Types - -data OpDef = OpDef{_OpDef'name :: !Data.Text.Text, - _OpDef'inputArg :: ![OpDef'ArgDef], - _OpDef'outputArg :: ![OpDef'ArgDef], - _OpDef'attr :: ![OpDef'AttrDef], - _OpDef'deprecation :: !(Prelude.Maybe OpDeprecation), - _OpDef'summary :: !Data.Text.Text, - _OpDef'description :: !Data.Text.Text, - _OpDef'isCommutative :: !Prelude.Bool, - _OpDef'isAggregate :: !Prelude.Bool, - _OpDef'isStateful :: !Prelude.Bool, - _OpDef'allowsUninitializedInput :: !Prelude.Bool} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "name" f OpDef OpDef a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _OpDef'name - (\ x__ y__ -> x__{_OpDef'name = y__})) - Prelude.id - -instance (a ~ [OpDef'ArgDef], b ~ [OpDef'ArgDef], - Prelude.Functor f) => - Lens.Labels.HasLens "inputArg" f OpDef OpDef a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _OpDef'inputArg - (\ x__ y__ -> x__{_OpDef'inputArg = y__})) - Prelude.id - -instance (a ~ [OpDef'ArgDef], b ~ [OpDef'ArgDef], - Prelude.Functor f) => - Lens.Labels.HasLens "outputArg" f OpDef OpDef a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _OpDef'outputArg - (\ x__ y__ -> x__{_OpDef'outputArg = y__})) - Prelude.id - -instance (a ~ [OpDef'AttrDef], b ~ [OpDef'AttrDef], - Prelude.Functor f) => - Lens.Labels.HasLens "attr" f OpDef OpDef a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _OpDef'attr - (\ x__ y__ -> x__{_OpDef'attr = y__})) - Prelude.id - -instance (a ~ OpDeprecation, b ~ OpDeprecation, - Prelude.Functor f) => - Lens.Labels.HasLens "deprecation" f OpDef OpDef a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _OpDef'deprecation - (\ x__ y__ -> x__{_OpDef'deprecation = y__})) - (Data.ProtoLens.maybeLens Data.Default.Class.def) - -instance (a ~ Prelude.Maybe OpDeprecation, - b ~ Prelude.Maybe OpDeprecation, Prelude.Functor f) => - Lens.Labels.HasLens "maybe'deprecation" f OpDef OpDef a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _OpDef'deprecation - (\ x__ y__ -> x__{_OpDef'deprecation = y__})) - Prelude.id - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "summary" f OpDef OpDef a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _OpDef'summary - (\ x__ y__ -> x__{_OpDef'summary = y__})) - Prelude.id - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "description" f OpDef OpDef a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _OpDef'description - (\ x__ y__ -> x__{_OpDef'description = y__})) - Prelude.id - -instance (a ~ Prelude.Bool, b ~ Prelude.Bool, Prelude.Functor f) => - Lens.Labels.HasLens "isCommutative" f OpDef OpDef a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _OpDef'isCommutative - (\ x__ y__ -> x__{_OpDef'isCommutative = y__})) - Prelude.id - -instance (a ~ Prelude.Bool, b ~ Prelude.Bool, Prelude.Functor f) => - Lens.Labels.HasLens "isAggregate" f OpDef OpDef a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _OpDef'isAggregate - (\ x__ y__ -> x__{_OpDef'isAggregate = y__})) - Prelude.id - -instance (a ~ Prelude.Bool, b ~ Prelude.Bool, Prelude.Functor f) => - Lens.Labels.HasLens "isStateful" f OpDef OpDef a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _OpDef'isStateful - (\ x__ y__ -> x__{_OpDef'isStateful = y__})) - Prelude.id - -instance (a ~ Prelude.Bool, b ~ Prelude.Bool, Prelude.Functor f) => - Lens.Labels.HasLens "allowsUninitializedInput" f OpDef OpDef a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _OpDef'allowsUninitializedInput - (\ x__ y__ -> x__{_OpDef'allowsUninitializedInput = y__})) - Prelude.id - -instance Data.Default.Class.Default OpDef where - def - = OpDef{_OpDef'name = Data.ProtoLens.fieldDefault, - _OpDef'inputArg = [], _OpDef'outputArg = [], _OpDef'attr = [], - _OpDef'deprecation = Prelude.Nothing, - _OpDef'summary = Data.ProtoLens.fieldDefault, - _OpDef'description = Data.ProtoLens.fieldDefault, - _OpDef'isCommutative = Data.ProtoLens.fieldDefault, - _OpDef'isAggregate = Data.ProtoLens.fieldDefault, - _OpDef'isStateful = Data.ProtoLens.fieldDefault, - _OpDef'allowsUninitializedInput = Data.ProtoLens.fieldDefault} - -instance Data.ProtoLens.Message OpDef where - descriptor - = let name__field_descriptor - = Data.ProtoLens.FieldDescriptor "name" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional name) - :: Data.ProtoLens.FieldDescriptor OpDef - inputArg__field_descriptor - = Data.ProtoLens.FieldDescriptor "input_arg" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor OpDef'ArgDef) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked inputArg) - :: Data.ProtoLens.FieldDescriptor OpDef - outputArg__field_descriptor - = Data.ProtoLens.FieldDescriptor "output_arg" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor OpDef'ArgDef) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked outputArg) - :: Data.ProtoLens.FieldDescriptor OpDef - attr__field_descriptor - = Data.ProtoLens.FieldDescriptor "attr" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor OpDef'AttrDef) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked attr) - :: Data.ProtoLens.FieldDescriptor OpDef - deprecation__field_descriptor - = Data.ProtoLens.FieldDescriptor "deprecation" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor OpDeprecation) - (Data.ProtoLens.OptionalField maybe'deprecation) - :: Data.ProtoLens.FieldDescriptor OpDef - summary__field_descriptor - = Data.ProtoLens.FieldDescriptor "summary" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional summary) - :: Data.ProtoLens.FieldDescriptor OpDef - description__field_descriptor - = Data.ProtoLens.FieldDescriptor "description" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional description) - :: Data.ProtoLens.FieldDescriptor OpDef - isCommutative__field_descriptor - = Data.ProtoLens.FieldDescriptor "is_commutative" - (Data.ProtoLens.BoolField :: - Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional isCommutative) - :: Data.ProtoLens.FieldDescriptor OpDef - isAggregate__field_descriptor - = Data.ProtoLens.FieldDescriptor "is_aggregate" - (Data.ProtoLens.BoolField :: - Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional isAggregate) - :: Data.ProtoLens.FieldDescriptor OpDef - isStateful__field_descriptor - = Data.ProtoLens.FieldDescriptor "is_stateful" - (Data.ProtoLens.BoolField :: - Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional isStateful) - :: Data.ProtoLens.FieldDescriptor OpDef - allowsUninitializedInput__field_descriptor - = Data.ProtoLens.FieldDescriptor "allows_uninitialized_input" - (Data.ProtoLens.BoolField :: - Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional - allowsUninitializedInput) - :: Data.ProtoLens.FieldDescriptor OpDef - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.OpDef") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, name__field_descriptor), - (Data.ProtoLens.Tag 2, inputArg__field_descriptor), - (Data.ProtoLens.Tag 3, outputArg__field_descriptor), - (Data.ProtoLens.Tag 4, attr__field_descriptor), - (Data.ProtoLens.Tag 8, deprecation__field_descriptor), - (Data.ProtoLens.Tag 5, summary__field_descriptor), - (Data.ProtoLens.Tag 6, description__field_descriptor), - (Data.ProtoLens.Tag 18, isCommutative__field_descriptor), - (Data.ProtoLens.Tag 16, isAggregate__field_descriptor), - (Data.ProtoLens.Tag 17, isStateful__field_descriptor), - (Data.ProtoLens.Tag 19, - allowsUninitializedInput__field_descriptor)]) - (Data.Map.fromList - [("name", name__field_descriptor), - ("input_arg", inputArg__field_descriptor), - ("output_arg", outputArg__field_descriptor), - ("attr", attr__field_descriptor), - ("deprecation", deprecation__field_descriptor), - ("summary", summary__field_descriptor), - ("description", description__field_descriptor), - ("is_commutative", isCommutative__field_descriptor), - ("is_aggregate", isAggregate__field_descriptor), - ("is_stateful", isStateful__field_descriptor), - ("allows_uninitialized_input", - allowsUninitializedInput__field_descriptor)]) - -data OpDef'ArgDef = OpDef'ArgDef{_OpDef'ArgDef'name :: - !Data.Text.Text, - _OpDef'ArgDef'description :: !Data.Text.Text, - _OpDef'ArgDef'type' :: - !Proto.Tensorflow.Core.Framework.Types.DataType, - _OpDef'ArgDef'typeAttr :: !Data.Text.Text, - _OpDef'ArgDef'numberAttr :: !Data.Text.Text, - _OpDef'ArgDef'typeListAttr :: !Data.Text.Text, - _OpDef'ArgDef'isRef :: !Prelude.Bool} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "name" f OpDef'ArgDef OpDef'ArgDef a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _OpDef'ArgDef'name - (\ x__ y__ -> x__{_OpDef'ArgDef'name = y__})) - Prelude.id - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "description" f OpDef'ArgDef OpDef'ArgDef a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _OpDef'ArgDef'description - (\ x__ y__ -> x__{_OpDef'ArgDef'description = y__})) - Prelude.id - -instance (a ~ Proto.Tensorflow.Core.Framework.Types.DataType, - b ~ Proto.Tensorflow.Core.Framework.Types.DataType, - Prelude.Functor f) => - Lens.Labels.HasLens "type'" f OpDef'ArgDef OpDef'ArgDef a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _OpDef'ArgDef'type' - (\ x__ y__ -> x__{_OpDef'ArgDef'type' = y__})) - Prelude.id - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "typeAttr" f OpDef'ArgDef OpDef'ArgDef a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _OpDef'ArgDef'typeAttr - (\ x__ y__ -> x__{_OpDef'ArgDef'typeAttr = y__})) - Prelude.id - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "numberAttr" f OpDef'ArgDef OpDef'ArgDef a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _OpDef'ArgDef'numberAttr - (\ x__ y__ -> x__{_OpDef'ArgDef'numberAttr = y__})) - Prelude.id - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "typeListAttr" f OpDef'ArgDef OpDef'ArgDef a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _OpDef'ArgDef'typeListAttr - (\ x__ y__ -> x__{_OpDef'ArgDef'typeListAttr = y__})) - Prelude.id - -instance (a ~ Prelude.Bool, b ~ Prelude.Bool, Prelude.Functor f) => - Lens.Labels.HasLens "isRef" f OpDef'ArgDef OpDef'ArgDef a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _OpDef'ArgDef'isRef - (\ x__ y__ -> x__{_OpDef'ArgDef'isRef = y__})) - Prelude.id - -instance Data.Default.Class.Default OpDef'ArgDef where - def - = OpDef'ArgDef{_OpDef'ArgDef'name = Data.ProtoLens.fieldDefault, - _OpDef'ArgDef'description = Data.ProtoLens.fieldDefault, - _OpDef'ArgDef'type' = Data.Default.Class.def, - _OpDef'ArgDef'typeAttr = Data.ProtoLens.fieldDefault, - _OpDef'ArgDef'numberAttr = Data.ProtoLens.fieldDefault, - _OpDef'ArgDef'typeListAttr = Data.ProtoLens.fieldDefault, - _OpDef'ArgDef'isRef = Data.ProtoLens.fieldDefault} - -instance Data.ProtoLens.Message OpDef'ArgDef where - descriptor - = let name__field_descriptor - = Data.ProtoLens.FieldDescriptor "name" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional name) - :: Data.ProtoLens.FieldDescriptor OpDef'ArgDef - description__field_descriptor - = Data.ProtoLens.FieldDescriptor "description" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional description) - :: Data.ProtoLens.FieldDescriptor OpDef'ArgDef - type'__field_descriptor - = Data.ProtoLens.FieldDescriptor "type" - (Data.ProtoLens.EnumField :: - Data.ProtoLens.FieldTypeDescriptor - Proto.Tensorflow.Core.Framework.Types.DataType) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional type') - :: Data.ProtoLens.FieldDescriptor OpDef'ArgDef - typeAttr__field_descriptor - = Data.ProtoLens.FieldDescriptor "type_attr" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional typeAttr) - :: Data.ProtoLens.FieldDescriptor OpDef'ArgDef - numberAttr__field_descriptor - = Data.ProtoLens.FieldDescriptor "number_attr" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional numberAttr) - :: Data.ProtoLens.FieldDescriptor OpDef'ArgDef - typeListAttr__field_descriptor - = Data.ProtoLens.FieldDescriptor "type_list_attr" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional typeListAttr) - :: Data.ProtoLens.FieldDescriptor OpDef'ArgDef - isRef__field_descriptor - = Data.ProtoLens.FieldDescriptor "is_ref" - (Data.ProtoLens.BoolField :: - Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional isRef) - :: Data.ProtoLens.FieldDescriptor OpDef'ArgDef - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.OpDef.ArgDef") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, name__field_descriptor), - (Data.ProtoLens.Tag 2, description__field_descriptor), - (Data.ProtoLens.Tag 3, type'__field_descriptor), - (Data.ProtoLens.Tag 4, typeAttr__field_descriptor), - (Data.ProtoLens.Tag 5, numberAttr__field_descriptor), - (Data.ProtoLens.Tag 6, typeListAttr__field_descriptor), - (Data.ProtoLens.Tag 16, isRef__field_descriptor)]) - (Data.Map.fromList - [("name", name__field_descriptor), - ("description", description__field_descriptor), - ("type", type'__field_descriptor), - ("type_attr", typeAttr__field_descriptor), - ("number_attr", numberAttr__field_descriptor), - ("type_list_attr", typeListAttr__field_descriptor), - ("is_ref", isRef__field_descriptor)]) - -data OpDef'AttrDef = OpDef'AttrDef{_OpDef'AttrDef'name :: - !Data.Text.Text, - _OpDef'AttrDef'type' :: !Data.Text.Text, - _OpDef'AttrDef'defaultValue :: - !(Prelude.Maybe - Proto.Tensorflow.Core.Framework.AttrValue.AttrValue), - _OpDef'AttrDef'description :: !Data.Text.Text, - _OpDef'AttrDef'hasMinimum :: !Prelude.Bool, - _OpDef'AttrDef'minimum :: !Data.Int.Int64, - _OpDef'AttrDef'allowedValues :: - !(Prelude.Maybe - Proto.Tensorflow.Core.Framework.AttrValue.AttrValue)} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "name" f OpDef'AttrDef OpDef'AttrDef a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _OpDef'AttrDef'name - (\ x__ y__ -> x__{_OpDef'AttrDef'name = y__})) - Prelude.id - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "type'" f OpDef'AttrDef OpDef'AttrDef a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _OpDef'AttrDef'type' - (\ x__ y__ -> x__{_OpDef'AttrDef'type' = y__})) - Prelude.id - -instance (a ~ Proto.Tensorflow.Core.Framework.AttrValue.AttrValue, - b ~ Proto.Tensorflow.Core.Framework.AttrValue.AttrValue, - Prelude.Functor f) => - Lens.Labels.HasLens "defaultValue" f OpDef'AttrDef OpDef'AttrDef a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _OpDef'AttrDef'defaultValue - (\ x__ y__ -> x__{_OpDef'AttrDef'defaultValue = y__})) - (Data.ProtoLens.maybeLens Data.Default.Class.def) - -instance (a ~ - Prelude.Maybe Proto.Tensorflow.Core.Framework.AttrValue.AttrValue, - b ~ - Prelude.Maybe Proto.Tensorflow.Core.Framework.AttrValue.AttrValue, - Prelude.Functor f) => - Lens.Labels.HasLens "maybe'defaultValue" f OpDef'AttrDef - OpDef'AttrDef - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _OpDef'AttrDef'defaultValue - (\ x__ y__ -> x__{_OpDef'AttrDef'defaultValue = y__})) - Prelude.id - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "description" f OpDef'AttrDef OpDef'AttrDef a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _OpDef'AttrDef'description - (\ x__ y__ -> x__{_OpDef'AttrDef'description = y__})) - Prelude.id - -instance (a ~ Prelude.Bool, b ~ Prelude.Bool, Prelude.Functor f) => - Lens.Labels.HasLens "hasMinimum" f OpDef'AttrDef OpDef'AttrDef a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _OpDef'AttrDef'hasMinimum - (\ x__ y__ -> x__{_OpDef'AttrDef'hasMinimum = y__})) - Prelude.id - -instance (a ~ Data.Int.Int64, b ~ Data.Int.Int64, - Prelude.Functor f) => - Lens.Labels.HasLens "minimum" f OpDef'AttrDef OpDef'AttrDef a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _OpDef'AttrDef'minimum - (\ x__ y__ -> x__{_OpDef'AttrDef'minimum = y__})) - Prelude.id - -instance (a ~ Proto.Tensorflow.Core.Framework.AttrValue.AttrValue, - b ~ Proto.Tensorflow.Core.Framework.AttrValue.AttrValue, - Prelude.Functor f) => - Lens.Labels.HasLens "allowedValues" f OpDef'AttrDef OpDef'AttrDef a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _OpDef'AttrDef'allowedValues - (\ x__ y__ -> x__{_OpDef'AttrDef'allowedValues = y__})) - (Data.ProtoLens.maybeLens Data.Default.Class.def) - -instance (a ~ - Prelude.Maybe Proto.Tensorflow.Core.Framework.AttrValue.AttrValue, - b ~ - Prelude.Maybe Proto.Tensorflow.Core.Framework.AttrValue.AttrValue, - Prelude.Functor f) => - Lens.Labels.HasLens "maybe'allowedValues" f OpDef'AttrDef - OpDef'AttrDef - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _OpDef'AttrDef'allowedValues - (\ x__ y__ -> x__{_OpDef'AttrDef'allowedValues = y__})) - Prelude.id - -instance Data.Default.Class.Default OpDef'AttrDef where - def - = OpDef'AttrDef{_OpDef'AttrDef'name = Data.ProtoLens.fieldDefault, - _OpDef'AttrDef'type' = Data.ProtoLens.fieldDefault, - _OpDef'AttrDef'defaultValue = Prelude.Nothing, - _OpDef'AttrDef'description = Data.ProtoLens.fieldDefault, - _OpDef'AttrDef'hasMinimum = Data.ProtoLens.fieldDefault, - _OpDef'AttrDef'minimum = Data.ProtoLens.fieldDefault, - _OpDef'AttrDef'allowedValues = Prelude.Nothing} - -instance Data.ProtoLens.Message OpDef'AttrDef where - descriptor - = let name__field_descriptor - = Data.ProtoLens.FieldDescriptor "name" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional name) - :: Data.ProtoLens.FieldDescriptor OpDef'AttrDef - type'__field_descriptor - = Data.ProtoLens.FieldDescriptor "type" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional type') - :: Data.ProtoLens.FieldDescriptor OpDef'AttrDef - defaultValue__field_descriptor - = Data.ProtoLens.FieldDescriptor "default_value" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor - Proto.Tensorflow.Core.Framework.AttrValue.AttrValue) - (Data.ProtoLens.OptionalField maybe'defaultValue) - :: Data.ProtoLens.FieldDescriptor OpDef'AttrDef - description__field_descriptor - = Data.ProtoLens.FieldDescriptor "description" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional description) - :: Data.ProtoLens.FieldDescriptor OpDef'AttrDef - hasMinimum__field_descriptor - = Data.ProtoLens.FieldDescriptor "has_minimum" - (Data.ProtoLens.BoolField :: - Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional hasMinimum) - :: Data.ProtoLens.FieldDescriptor OpDef'AttrDef - minimum__field_descriptor - = Data.ProtoLens.FieldDescriptor "minimum" - (Data.ProtoLens.Int64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional minimum) - :: Data.ProtoLens.FieldDescriptor OpDef'AttrDef - allowedValues__field_descriptor - = Data.ProtoLens.FieldDescriptor "allowed_values" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor - Proto.Tensorflow.Core.Framework.AttrValue.AttrValue) - (Data.ProtoLens.OptionalField maybe'allowedValues) - :: Data.ProtoLens.FieldDescriptor OpDef'AttrDef - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.OpDef.AttrDef") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, name__field_descriptor), - (Data.ProtoLens.Tag 2, type'__field_descriptor), - (Data.ProtoLens.Tag 3, defaultValue__field_descriptor), - (Data.ProtoLens.Tag 4, description__field_descriptor), - (Data.ProtoLens.Tag 5, hasMinimum__field_descriptor), - (Data.ProtoLens.Tag 6, minimum__field_descriptor), - (Data.ProtoLens.Tag 7, allowedValues__field_descriptor)]) - (Data.Map.fromList - [("name", name__field_descriptor), - ("type", type'__field_descriptor), - ("default_value", defaultValue__field_descriptor), - ("description", description__field_descriptor), - ("has_minimum", hasMinimum__field_descriptor), - ("minimum", minimum__field_descriptor), - ("allowed_values", allowedValues__field_descriptor)]) - -data OpDeprecation = OpDeprecation{_OpDeprecation'version :: - !Data.Int.Int32, - _OpDeprecation'explanation :: !Data.Text.Text} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Data.Int.Int32, b ~ Data.Int.Int32, - Prelude.Functor f) => - Lens.Labels.HasLens "version" f OpDeprecation OpDeprecation a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _OpDeprecation'version - (\ x__ y__ -> x__{_OpDeprecation'version = y__})) - Prelude.id - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "explanation" f OpDeprecation OpDeprecation a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _OpDeprecation'explanation - (\ x__ y__ -> x__{_OpDeprecation'explanation = y__})) - Prelude.id - -instance Data.Default.Class.Default OpDeprecation where - def - = OpDeprecation{_OpDeprecation'version = - Data.ProtoLens.fieldDefault, - _OpDeprecation'explanation = Data.ProtoLens.fieldDefault} - -instance Data.ProtoLens.Message OpDeprecation where - descriptor - = let version__field_descriptor - = Data.ProtoLens.FieldDescriptor "version" - (Data.ProtoLens.Int32Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional version) - :: Data.ProtoLens.FieldDescriptor OpDeprecation - explanation__field_descriptor - = Data.ProtoLens.FieldDescriptor "explanation" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional explanation) - :: Data.ProtoLens.FieldDescriptor OpDeprecation - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.OpDeprecation") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, version__field_descriptor), - (Data.ProtoLens.Tag 2, explanation__field_descriptor)]) - (Data.Map.fromList - [("version", version__field_descriptor), - ("explanation", explanation__field_descriptor)]) - -data OpList = OpList{_OpList'op :: ![OpDef]} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ [OpDef], b ~ [OpDef], Prelude.Functor f) => - Lens.Labels.HasLens "op" f OpList OpList a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _OpList'op - (\ x__ y__ -> x__{_OpList'op = y__})) - Prelude.id - -instance Data.Default.Class.Default OpList where - def = OpList{_OpList'op = []} - -instance Data.ProtoLens.Message OpList where - descriptor - = let op__field_descriptor - = Data.ProtoLens.FieldDescriptor "op" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor OpDef) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked op) - :: Data.ProtoLens.FieldDescriptor OpList - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.OpList") - (Data.Map.fromList [(Data.ProtoLens.Tag 1, op__field_descriptor)]) - (Data.Map.fromList [("op", op__field_descriptor)]) - -allowedValues :: - forall f s t a b . - (Lens.Labels.HasLens "allowedValues" f s t a b) => - Lens.Family2.LensLike f s t a b -allowedValues - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "allowedValues") - -allowsUninitializedInput :: - forall f s t a b . - (Lens.Labels.HasLens "allowsUninitializedInput" f s t a b) => - Lens.Family2.LensLike f s t a b -allowsUninitializedInput - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: - (Lens.Labels.Proxy#) "allowsUninitializedInput") - -attr :: - forall f s t a b . (Lens.Labels.HasLens "attr" f s t a b) => - Lens.Family2.LensLike f s t a b -attr - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "attr") - -defaultValue :: - forall f s t a b . - (Lens.Labels.HasLens "defaultValue" f s t a b) => - Lens.Family2.LensLike f s t a b -defaultValue - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "defaultValue") - -deprecation :: - forall f s t a b . (Lens.Labels.HasLens "deprecation" f s t a b) => - Lens.Family2.LensLike f s t a b -deprecation - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "deprecation") - -description :: - forall f s t a b . (Lens.Labels.HasLens "description" f s t a b) => - Lens.Family2.LensLike f s t a b -description - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "description") - -explanation :: - forall f s t a b . (Lens.Labels.HasLens "explanation" f s t a b) => - Lens.Family2.LensLike f s t a b -explanation - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "explanation") - -hasMinimum :: - forall f s t a b . (Lens.Labels.HasLens "hasMinimum" f s t a b) => - Lens.Family2.LensLike f s t a b -hasMinimum - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "hasMinimum") - -inputArg :: - forall f s t a b . (Lens.Labels.HasLens "inputArg" f s t a b) => - Lens.Family2.LensLike f s t a b -inputArg - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "inputArg") - -isAggregate :: - forall f s t a b . (Lens.Labels.HasLens "isAggregate" f s t a b) => - Lens.Family2.LensLike f s t a b -isAggregate - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "isAggregate") - -isCommutative :: - forall f s t a b . - (Lens.Labels.HasLens "isCommutative" f s t a b) => - Lens.Family2.LensLike f s t a b -isCommutative - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "isCommutative") - -isRef :: - forall f s t a b . (Lens.Labels.HasLens "isRef" f s t a b) => - Lens.Family2.LensLike f s t a b -isRef - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "isRef") - -isStateful :: - forall f s t a b . (Lens.Labels.HasLens "isStateful" f s t a b) => - Lens.Family2.LensLike f s t a b -isStateful - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "isStateful") - -maybe'allowedValues :: - forall f s t a b . - (Lens.Labels.HasLens "maybe'allowedValues" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'allowedValues - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: - (Lens.Labels.Proxy#) "maybe'allowedValues") - -maybe'defaultValue :: - forall f s t a b . - (Lens.Labels.HasLens "maybe'defaultValue" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'defaultValue - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'defaultValue") - -maybe'deprecation :: - forall f s t a b . - (Lens.Labels.HasLens "maybe'deprecation" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'deprecation - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'deprecation") - -minimum :: - forall f s t a b . (Lens.Labels.HasLens "minimum" f s t a b) => - Lens.Family2.LensLike f s t a b -minimum - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "minimum") - -name :: - forall f s t a b . (Lens.Labels.HasLens "name" f s t a b) => - Lens.Family2.LensLike f s t a b -name - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "name") - -numberAttr :: - forall f s t a b . (Lens.Labels.HasLens "numberAttr" f s t a b) => - Lens.Family2.LensLike f s t a b -numberAttr - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "numberAttr") - -op :: - forall f s t a b . (Lens.Labels.HasLens "op" f s t a b) => - Lens.Family2.LensLike f s t a b -op - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "op") - -outputArg :: - forall f s t a b . (Lens.Labels.HasLens "outputArg" f s t a b) => - Lens.Family2.LensLike f s t a b -outputArg - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "outputArg") - -summary :: - forall f s t a b . (Lens.Labels.HasLens "summary" f s t a b) => - Lens.Family2.LensLike f s t a b -summary - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "summary") - -type' :: - forall f s t a b . (Lens.Labels.HasLens "type'" f s t a b) => - Lens.Family2.LensLike f s t a b -type' - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "type'") - -typeAttr :: - forall f s t a b . (Lens.Labels.HasLens "typeAttr" f s t a b) => - Lens.Family2.LensLike f s t a b -typeAttr - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "typeAttr") - -typeListAttr :: - forall f s t a b . - (Lens.Labels.HasLens "typeListAttr" f s t a b) => - Lens.Family2.LensLike f s t a b -typeListAttr - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "typeListAttr") - -version :: - forall f s t a b . (Lens.Labels.HasLens "version" f s t a b) => - Lens.Family2.LensLike f s t a b -version - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "version") diff --git a/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Framework/ResourceHandle.hs b/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Framework/ResourceHandle.hs deleted file mode 100644 --- a/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Framework/ResourceHandle.hs +++ /dev/null @@ -1,193 +0,0 @@ -{- This file was auto-generated from tensorflow/core/framework/resource_handle.proto by the proto-lens-protoc program. -} -{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies, - UndecidableInstances, MultiParamTypeClasses, FlexibleContexts, - FlexibleInstances, PatternSynonyms, MagicHash, NoImplicitPrelude - #-} -{-# OPTIONS_GHC -fno-warn-unused-imports#-} -module Proto.Tensorflow.Core.Framework.ResourceHandle where -import qualified Data.ProtoLens.Reexport.Prelude as Prelude -import qualified Data.ProtoLens.Reexport.Data.Int as Data.Int -import qualified Data.ProtoLens.Reexport.Data.Word as Data.Word -import qualified Data.ProtoLens.Reexport.Data.ProtoLens - as Data.ProtoLens -import qualified - Data.ProtoLens.Reexport.Data.ProtoLens.Message.Enum - as Data.ProtoLens.Message.Enum -import qualified Data.ProtoLens.Reexport.Lens.Family2 - as Lens.Family2 -import qualified Data.ProtoLens.Reexport.Lens.Family2.Unchecked - as Lens.Family2.Unchecked -import qualified Data.ProtoLens.Reexport.Data.Default.Class - as Data.Default.Class -import qualified Data.ProtoLens.Reexport.Data.Text as Data.Text -import qualified Data.ProtoLens.Reexport.Data.Map as Data.Map -import qualified Data.ProtoLens.Reexport.Data.ByteString - as Data.ByteString -import qualified Data.ProtoLens.Reexport.Lens.Labels as Lens.Labels - -data ResourceHandleProto = ResourceHandleProto{_ResourceHandleProto'device - :: !Data.Text.Text, - _ResourceHandleProto'container :: !Data.Text.Text, - _ResourceHandleProto'name :: !Data.Text.Text, - _ResourceHandleProto'hashCode :: !Data.Word.Word64, - _ResourceHandleProto'maybeTypeName :: - !Data.Text.Text} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "device" f ResourceHandleProto - ResourceHandleProto - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _ResourceHandleProto'device - (\ x__ y__ -> x__{_ResourceHandleProto'device = y__})) - Prelude.id - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "container" f ResourceHandleProto - ResourceHandleProto - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _ResourceHandleProto'container - (\ x__ y__ -> x__{_ResourceHandleProto'container = y__})) - Prelude.id - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "name" f ResourceHandleProto - ResourceHandleProto - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _ResourceHandleProto'name - (\ x__ y__ -> x__{_ResourceHandleProto'name = y__})) - Prelude.id - -instance (a ~ Data.Word.Word64, b ~ Data.Word.Word64, - Prelude.Functor f) => - Lens.Labels.HasLens "hashCode" f ResourceHandleProto - ResourceHandleProto - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _ResourceHandleProto'hashCode - (\ x__ y__ -> x__{_ResourceHandleProto'hashCode = y__})) - Prelude.id - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "maybeTypeName" f ResourceHandleProto - ResourceHandleProto - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _ResourceHandleProto'maybeTypeName - (\ x__ y__ -> x__{_ResourceHandleProto'maybeTypeName = y__})) - Prelude.id - -instance Data.Default.Class.Default ResourceHandleProto where - def - = ResourceHandleProto{_ResourceHandleProto'device = - Data.ProtoLens.fieldDefault, - _ResourceHandleProto'container = Data.ProtoLens.fieldDefault, - _ResourceHandleProto'name = Data.ProtoLens.fieldDefault, - _ResourceHandleProto'hashCode = Data.ProtoLens.fieldDefault, - _ResourceHandleProto'maybeTypeName = Data.ProtoLens.fieldDefault} - -instance Data.ProtoLens.Message ResourceHandleProto where - descriptor - = let device__field_descriptor - = Data.ProtoLens.FieldDescriptor "device" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional device) - :: Data.ProtoLens.FieldDescriptor ResourceHandleProto - container__field_descriptor - = Data.ProtoLens.FieldDescriptor "container" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional container) - :: Data.ProtoLens.FieldDescriptor ResourceHandleProto - name__field_descriptor - = Data.ProtoLens.FieldDescriptor "name" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional name) - :: Data.ProtoLens.FieldDescriptor ResourceHandleProto - hashCode__field_descriptor - = Data.ProtoLens.FieldDescriptor "hash_code" - (Data.ProtoLens.UInt64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional hashCode) - :: Data.ProtoLens.FieldDescriptor ResourceHandleProto - maybeTypeName__field_descriptor - = Data.ProtoLens.FieldDescriptor "maybe_type_name" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional maybeTypeName) - :: Data.ProtoLens.FieldDescriptor ResourceHandleProto - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.ResourceHandleProto") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, device__field_descriptor), - (Data.ProtoLens.Tag 2, container__field_descriptor), - (Data.ProtoLens.Tag 3, name__field_descriptor), - (Data.ProtoLens.Tag 4, hashCode__field_descriptor), - (Data.ProtoLens.Tag 5, maybeTypeName__field_descriptor)]) - (Data.Map.fromList - [("device", device__field_descriptor), - ("container", container__field_descriptor), - ("name", name__field_descriptor), - ("hash_code", hashCode__field_descriptor), - ("maybe_type_name", maybeTypeName__field_descriptor)]) - -container :: - forall f s t a b . (Lens.Labels.HasLens "container" f s t a b) => - Lens.Family2.LensLike f s t a b -container - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "container") - -device :: - forall f s t a b . (Lens.Labels.HasLens "device" f s t a b) => - Lens.Family2.LensLike f s t a b -device - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "device") - -hashCode :: - forall f s t a b . (Lens.Labels.HasLens "hashCode" f s t a b) => - Lens.Family2.LensLike f s t a b -hashCode - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "hashCode") - -maybeTypeName :: - forall f s t a b . - (Lens.Labels.HasLens "maybeTypeName" f s t a b) => - Lens.Family2.LensLike f s t a b -maybeTypeName - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybeTypeName") - -name :: - forall f s t a b . (Lens.Labels.HasLens "name" f s t a b) => - Lens.Family2.LensLike f s t a b -name - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "name") diff --git a/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Framework/StepStats.hs b/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Framework/StepStats.hs deleted file mode 100644 --- a/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Framework/StepStats.hs +++ /dev/null @@ -1,1124 +0,0 @@ -{- This file was auto-generated from tensorflow/core/framework/step_stats.proto by the proto-lens-protoc program. -} -{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies, - UndecidableInstances, MultiParamTypeClasses, FlexibleContexts, - FlexibleInstances, PatternSynonyms, MagicHash, NoImplicitPrelude - #-} -{-# OPTIONS_GHC -fno-warn-unused-imports#-} -module Proto.Tensorflow.Core.Framework.StepStats where -import qualified Data.ProtoLens.Reexport.Prelude as Prelude -import qualified Data.ProtoLens.Reexport.Data.Int as Data.Int -import qualified Data.ProtoLens.Reexport.Data.Word as Data.Word -import qualified Data.ProtoLens.Reexport.Data.ProtoLens - as Data.ProtoLens -import qualified - Data.ProtoLens.Reexport.Data.ProtoLens.Message.Enum - as Data.ProtoLens.Message.Enum -import qualified Data.ProtoLens.Reexport.Lens.Family2 - as Lens.Family2 -import qualified Data.ProtoLens.Reexport.Lens.Family2.Unchecked - as Lens.Family2.Unchecked -import qualified Data.ProtoLens.Reexport.Data.Default.Class - as Data.Default.Class -import qualified Data.ProtoLens.Reexport.Data.Text as Data.Text -import qualified Data.ProtoLens.Reexport.Data.Map as Data.Map -import qualified Data.ProtoLens.Reexport.Data.ByteString - as Data.ByteString -import qualified Data.ProtoLens.Reexport.Lens.Labels as Lens.Labels -import qualified - Proto.Tensorflow.Core.Framework.AllocationDescription -import qualified Proto.Tensorflow.Core.Framework.TensorDescription - -data AllocationRecord = AllocationRecord{_AllocationRecord'allocMicros - :: !Data.Int.Int64, - _AllocationRecord'allocBytes :: !Data.Int.Int64} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Data.Int.Int64, b ~ Data.Int.Int64, - Prelude.Functor f) => - Lens.Labels.HasLens "allocMicros" f AllocationRecord - AllocationRecord - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _AllocationRecord'allocMicros - (\ x__ y__ -> x__{_AllocationRecord'allocMicros = y__})) - Prelude.id - -instance (a ~ Data.Int.Int64, b ~ Data.Int.Int64, - Prelude.Functor f) => - Lens.Labels.HasLens "allocBytes" f AllocationRecord - AllocationRecord - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _AllocationRecord'allocBytes - (\ x__ y__ -> x__{_AllocationRecord'allocBytes = y__})) - Prelude.id - -instance Data.Default.Class.Default AllocationRecord where - def - = AllocationRecord{_AllocationRecord'allocMicros = - Data.ProtoLens.fieldDefault, - _AllocationRecord'allocBytes = Data.ProtoLens.fieldDefault} - -instance Data.ProtoLens.Message AllocationRecord where - descriptor - = let allocMicros__field_descriptor - = Data.ProtoLens.FieldDescriptor "alloc_micros" - (Data.ProtoLens.Int64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional allocMicros) - :: Data.ProtoLens.FieldDescriptor AllocationRecord - allocBytes__field_descriptor - = Data.ProtoLens.FieldDescriptor "alloc_bytes" - (Data.ProtoLens.Int64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional allocBytes) - :: Data.ProtoLens.FieldDescriptor AllocationRecord - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.AllocationRecord") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, allocMicros__field_descriptor), - (Data.ProtoLens.Tag 2, allocBytes__field_descriptor)]) - (Data.Map.fromList - [("alloc_micros", allocMicros__field_descriptor), - ("alloc_bytes", allocBytes__field_descriptor)]) - -data AllocatorMemoryUsed = AllocatorMemoryUsed{_AllocatorMemoryUsed'allocatorName - :: !Data.Text.Text, - _AllocatorMemoryUsed'totalBytes :: !Data.Int.Int64, - _AllocatorMemoryUsed'peakBytes :: !Data.Int.Int64, - _AllocatorMemoryUsed'liveBytes :: !Data.Int.Int64, - _AllocatorMemoryUsed'allocationRecords :: - ![AllocationRecord], - _AllocatorMemoryUsed'allocatorBytesInUse :: - !Data.Int.Int64} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "allocatorName" f AllocatorMemoryUsed - AllocatorMemoryUsed - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _AllocatorMemoryUsed'allocatorName - (\ x__ y__ -> x__{_AllocatorMemoryUsed'allocatorName = y__})) - Prelude.id - -instance (a ~ Data.Int.Int64, b ~ Data.Int.Int64, - Prelude.Functor f) => - Lens.Labels.HasLens "totalBytes" f AllocatorMemoryUsed - AllocatorMemoryUsed - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _AllocatorMemoryUsed'totalBytes - (\ x__ y__ -> x__{_AllocatorMemoryUsed'totalBytes = y__})) - Prelude.id - -instance (a ~ Data.Int.Int64, b ~ Data.Int.Int64, - Prelude.Functor f) => - Lens.Labels.HasLens "peakBytes" f AllocatorMemoryUsed - AllocatorMemoryUsed - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _AllocatorMemoryUsed'peakBytes - (\ x__ y__ -> x__{_AllocatorMemoryUsed'peakBytes = y__})) - Prelude.id - -instance (a ~ Data.Int.Int64, b ~ Data.Int.Int64, - Prelude.Functor f) => - Lens.Labels.HasLens "liveBytes" f AllocatorMemoryUsed - AllocatorMemoryUsed - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _AllocatorMemoryUsed'liveBytes - (\ x__ y__ -> x__{_AllocatorMemoryUsed'liveBytes = y__})) - Prelude.id - -instance (a ~ [AllocationRecord], b ~ [AllocationRecord], - Prelude.Functor f) => - Lens.Labels.HasLens "allocationRecords" f AllocatorMemoryUsed - AllocatorMemoryUsed - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _AllocatorMemoryUsed'allocationRecords - (\ x__ y__ -> x__{_AllocatorMemoryUsed'allocationRecords = y__})) - Prelude.id - -instance (a ~ Data.Int.Int64, b ~ Data.Int.Int64, - Prelude.Functor f) => - Lens.Labels.HasLens "allocatorBytesInUse" f AllocatorMemoryUsed - AllocatorMemoryUsed - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _AllocatorMemoryUsed'allocatorBytesInUse - (\ x__ y__ -> x__{_AllocatorMemoryUsed'allocatorBytesInUse = y__})) - Prelude.id - -instance Data.Default.Class.Default AllocatorMemoryUsed where - def - = AllocatorMemoryUsed{_AllocatorMemoryUsed'allocatorName = - Data.ProtoLens.fieldDefault, - _AllocatorMemoryUsed'totalBytes = Data.ProtoLens.fieldDefault, - _AllocatorMemoryUsed'peakBytes = Data.ProtoLens.fieldDefault, - _AllocatorMemoryUsed'liveBytes = Data.ProtoLens.fieldDefault, - _AllocatorMemoryUsed'allocationRecords = [], - _AllocatorMemoryUsed'allocatorBytesInUse = - Data.ProtoLens.fieldDefault} - -instance Data.ProtoLens.Message AllocatorMemoryUsed where - descriptor - = let allocatorName__field_descriptor - = Data.ProtoLens.FieldDescriptor "allocator_name" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional allocatorName) - :: Data.ProtoLens.FieldDescriptor AllocatorMemoryUsed - totalBytes__field_descriptor - = Data.ProtoLens.FieldDescriptor "total_bytes" - (Data.ProtoLens.Int64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional totalBytes) - :: Data.ProtoLens.FieldDescriptor AllocatorMemoryUsed - peakBytes__field_descriptor - = Data.ProtoLens.FieldDescriptor "peak_bytes" - (Data.ProtoLens.Int64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional peakBytes) - :: Data.ProtoLens.FieldDescriptor AllocatorMemoryUsed - liveBytes__field_descriptor - = Data.ProtoLens.FieldDescriptor "live_bytes" - (Data.ProtoLens.Int64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional liveBytes) - :: Data.ProtoLens.FieldDescriptor AllocatorMemoryUsed - allocationRecords__field_descriptor - = Data.ProtoLens.FieldDescriptor "allocation_records" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor AllocationRecord) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked - allocationRecords) - :: Data.ProtoLens.FieldDescriptor AllocatorMemoryUsed - allocatorBytesInUse__field_descriptor - = Data.ProtoLens.FieldDescriptor "allocator_bytes_in_use" - (Data.ProtoLens.Int64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional - allocatorBytesInUse) - :: Data.ProtoLens.FieldDescriptor AllocatorMemoryUsed - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.AllocatorMemoryUsed") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, allocatorName__field_descriptor), - (Data.ProtoLens.Tag 2, totalBytes__field_descriptor), - (Data.ProtoLens.Tag 3, peakBytes__field_descriptor), - (Data.ProtoLens.Tag 4, liveBytes__field_descriptor), - (Data.ProtoLens.Tag 6, allocationRecords__field_descriptor), - (Data.ProtoLens.Tag 5, allocatorBytesInUse__field_descriptor)]) - (Data.Map.fromList - [("allocator_name", allocatorName__field_descriptor), - ("total_bytes", totalBytes__field_descriptor), - ("peak_bytes", peakBytes__field_descriptor), - ("live_bytes", liveBytes__field_descriptor), - ("allocation_records", allocationRecords__field_descriptor), - ("allocator_bytes_in_use", allocatorBytesInUse__field_descriptor)]) - -data DeviceStepStats = DeviceStepStats{_DeviceStepStats'device :: - !Data.Text.Text, - _DeviceStepStats'nodeStats :: ![NodeExecStats]} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "device" f DeviceStepStats DeviceStepStats a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _DeviceStepStats'device - (\ x__ y__ -> x__{_DeviceStepStats'device = y__})) - Prelude.id - -instance (a ~ [NodeExecStats], b ~ [NodeExecStats], - Prelude.Functor f) => - Lens.Labels.HasLens "nodeStats" f DeviceStepStats DeviceStepStats a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _DeviceStepStats'nodeStats - (\ x__ y__ -> x__{_DeviceStepStats'nodeStats = y__})) - Prelude.id - -instance Data.Default.Class.Default DeviceStepStats where - def - = DeviceStepStats{_DeviceStepStats'device = - Data.ProtoLens.fieldDefault, - _DeviceStepStats'nodeStats = []} - -instance Data.ProtoLens.Message DeviceStepStats where - descriptor - = let device__field_descriptor - = Data.ProtoLens.FieldDescriptor "device" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional device) - :: Data.ProtoLens.FieldDescriptor DeviceStepStats - nodeStats__field_descriptor - = Data.ProtoLens.FieldDescriptor "node_stats" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor NodeExecStats) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked nodeStats) - :: Data.ProtoLens.FieldDescriptor DeviceStepStats - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.DeviceStepStats") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, device__field_descriptor), - (Data.ProtoLens.Tag 2, nodeStats__field_descriptor)]) - (Data.Map.fromList - [("device", device__field_descriptor), - ("node_stats", nodeStats__field_descriptor)]) - -data MemoryStats = MemoryStats{_MemoryStats'tempMemorySize :: - !Data.Int.Int64, - _MemoryStats'persistentMemorySize :: !Data.Int.Int64, - _MemoryStats'persistentTensorAllocIds :: ![Data.Int.Int64], - _MemoryStats'deviceTempMemorySize :: !Data.Int.Int64, - _MemoryStats'devicePersistentMemorySize :: !Data.Int.Int64, - _MemoryStats'devicePersistentTensorAllocIds :: ![Data.Int.Int64]} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Data.Int.Int64, b ~ Data.Int.Int64, - Prelude.Functor f) => - Lens.Labels.HasLens "tempMemorySize" f MemoryStats MemoryStats a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _MemoryStats'tempMemorySize - (\ x__ y__ -> x__{_MemoryStats'tempMemorySize = y__})) - Prelude.id - -instance (a ~ Data.Int.Int64, b ~ Data.Int.Int64, - Prelude.Functor f) => - Lens.Labels.HasLens "persistentMemorySize" f MemoryStats - MemoryStats - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _MemoryStats'persistentMemorySize - (\ x__ y__ -> x__{_MemoryStats'persistentMemorySize = y__})) - Prelude.id - -instance (a ~ [Data.Int.Int64], b ~ [Data.Int.Int64], - Prelude.Functor f) => - Lens.Labels.HasLens "persistentTensorAllocIds" f MemoryStats - MemoryStats - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _MemoryStats'persistentTensorAllocIds - (\ x__ y__ -> x__{_MemoryStats'persistentTensorAllocIds = y__})) - Prelude.id - -instance (a ~ Data.Int.Int64, b ~ Data.Int.Int64, - Prelude.Functor f) => - Lens.Labels.HasLens "deviceTempMemorySize" f MemoryStats - MemoryStats - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _MemoryStats'deviceTempMemorySize - (\ x__ y__ -> x__{_MemoryStats'deviceTempMemorySize = y__})) - Prelude.id - -instance (a ~ Data.Int.Int64, b ~ Data.Int.Int64, - Prelude.Functor f) => - Lens.Labels.HasLens "devicePersistentMemorySize" f MemoryStats - MemoryStats - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _MemoryStats'devicePersistentMemorySize - (\ x__ y__ -> x__{_MemoryStats'devicePersistentMemorySize = y__})) - Prelude.id - -instance (a ~ [Data.Int.Int64], b ~ [Data.Int.Int64], - Prelude.Functor f) => - Lens.Labels.HasLens "devicePersistentTensorAllocIds" f MemoryStats - MemoryStats - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _MemoryStats'devicePersistentTensorAllocIds - (\ x__ y__ -> - x__{_MemoryStats'devicePersistentTensorAllocIds = y__})) - Prelude.id - -instance Data.Default.Class.Default MemoryStats where - def - = MemoryStats{_MemoryStats'tempMemorySize = - Data.ProtoLens.fieldDefault, - _MemoryStats'persistentMemorySize = Data.ProtoLens.fieldDefault, - _MemoryStats'persistentTensorAllocIds = [], - _MemoryStats'deviceTempMemorySize = Data.ProtoLens.fieldDefault, - _MemoryStats'devicePersistentMemorySize = - Data.ProtoLens.fieldDefault, - _MemoryStats'devicePersistentTensorAllocIds = []} - -instance Data.ProtoLens.Message MemoryStats where - descriptor - = let tempMemorySize__field_descriptor - = Data.ProtoLens.FieldDescriptor "temp_memory_size" - (Data.ProtoLens.Int64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional tempMemorySize) - :: Data.ProtoLens.FieldDescriptor MemoryStats - persistentMemorySize__field_descriptor - = Data.ProtoLens.FieldDescriptor "persistent_memory_size" - (Data.ProtoLens.Int64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional - persistentMemorySize) - :: Data.ProtoLens.FieldDescriptor MemoryStats - persistentTensorAllocIds__field_descriptor - = Data.ProtoLens.FieldDescriptor "persistent_tensor_alloc_ids" - (Data.ProtoLens.Int64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Packed - persistentTensorAllocIds) - :: Data.ProtoLens.FieldDescriptor MemoryStats - deviceTempMemorySize__field_descriptor - = Data.ProtoLens.FieldDescriptor "device_temp_memory_size" - (Data.ProtoLens.Int64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional - deviceTempMemorySize) - :: Data.ProtoLens.FieldDescriptor MemoryStats - devicePersistentMemorySize__field_descriptor - = Data.ProtoLens.FieldDescriptor "device_persistent_memory_size" - (Data.ProtoLens.Int64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional - devicePersistentMemorySize) - :: Data.ProtoLens.FieldDescriptor MemoryStats - devicePersistentTensorAllocIds__field_descriptor - = Data.ProtoLens.FieldDescriptor - "device_persistent_tensor_alloc_ids" - (Data.ProtoLens.Int64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Packed - devicePersistentTensorAllocIds) - :: Data.ProtoLens.FieldDescriptor MemoryStats - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.MemoryStats") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, tempMemorySize__field_descriptor), - (Data.ProtoLens.Tag 3, persistentMemorySize__field_descriptor), - (Data.ProtoLens.Tag 5, persistentTensorAllocIds__field_descriptor), - (Data.ProtoLens.Tag 2, deviceTempMemorySize__field_descriptor), - (Data.ProtoLens.Tag 4, - devicePersistentMemorySize__field_descriptor), - (Data.ProtoLens.Tag 6, - devicePersistentTensorAllocIds__field_descriptor)]) - (Data.Map.fromList - [("temp_memory_size", tempMemorySize__field_descriptor), - ("persistent_memory_size", persistentMemorySize__field_descriptor), - ("persistent_tensor_alloc_ids", - persistentTensorAllocIds__field_descriptor), - ("device_temp_memory_size", - deviceTempMemorySize__field_descriptor), - ("device_persistent_memory_size", - devicePersistentMemorySize__field_descriptor), - ("device_persistent_tensor_alloc_ids", - devicePersistentTensorAllocIds__field_descriptor)]) - -data NodeExecStats = NodeExecStats{_NodeExecStats'nodeName :: - !Data.Text.Text, - _NodeExecStats'allStartMicros :: !Data.Int.Int64, - _NodeExecStats'opStartRelMicros :: !Data.Int.Int64, - _NodeExecStats'opEndRelMicros :: !Data.Int.Int64, - _NodeExecStats'allEndRelMicros :: !Data.Int.Int64, - _NodeExecStats'memory :: ![AllocatorMemoryUsed], - _NodeExecStats'output :: ![NodeOutput], - _NodeExecStats'timelineLabel :: !Data.Text.Text, - _NodeExecStats'scheduledMicros :: !Data.Int.Int64, - _NodeExecStats'threadId :: !Data.Word.Word32, - _NodeExecStats'referencedTensor :: - ![Proto.Tensorflow.Core.Framework.AllocationDescription.AllocationDescription], - _NodeExecStats'memoryStats :: !(Prelude.Maybe MemoryStats)} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "nodeName" f NodeExecStats NodeExecStats a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _NodeExecStats'nodeName - (\ x__ y__ -> x__{_NodeExecStats'nodeName = y__})) - Prelude.id - -instance (a ~ Data.Int.Int64, b ~ Data.Int.Int64, - Prelude.Functor f) => - Lens.Labels.HasLens "allStartMicros" f NodeExecStats NodeExecStats - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _NodeExecStats'allStartMicros - (\ x__ y__ -> x__{_NodeExecStats'allStartMicros = y__})) - Prelude.id - -instance (a ~ Data.Int.Int64, b ~ Data.Int.Int64, - Prelude.Functor f) => - Lens.Labels.HasLens "opStartRelMicros" f NodeExecStats - NodeExecStats - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _NodeExecStats'opStartRelMicros - (\ x__ y__ -> x__{_NodeExecStats'opStartRelMicros = y__})) - Prelude.id - -instance (a ~ Data.Int.Int64, b ~ Data.Int.Int64, - Prelude.Functor f) => - Lens.Labels.HasLens "opEndRelMicros" f NodeExecStats NodeExecStats - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _NodeExecStats'opEndRelMicros - (\ x__ y__ -> x__{_NodeExecStats'opEndRelMicros = y__})) - Prelude.id - -instance (a ~ Data.Int.Int64, b ~ Data.Int.Int64, - Prelude.Functor f) => - Lens.Labels.HasLens "allEndRelMicros" f NodeExecStats NodeExecStats - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _NodeExecStats'allEndRelMicros - (\ x__ y__ -> x__{_NodeExecStats'allEndRelMicros = y__})) - Prelude.id - -instance (a ~ [AllocatorMemoryUsed], b ~ [AllocatorMemoryUsed], - Prelude.Functor f) => - Lens.Labels.HasLens "memory" f NodeExecStats NodeExecStats a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _NodeExecStats'memory - (\ x__ y__ -> x__{_NodeExecStats'memory = y__})) - Prelude.id - -instance (a ~ [NodeOutput], b ~ [NodeOutput], Prelude.Functor f) => - Lens.Labels.HasLens "output" f NodeExecStats NodeExecStats a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _NodeExecStats'output - (\ x__ y__ -> x__{_NodeExecStats'output = y__})) - Prelude.id - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "timelineLabel" f NodeExecStats NodeExecStats a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _NodeExecStats'timelineLabel - (\ x__ y__ -> x__{_NodeExecStats'timelineLabel = y__})) - Prelude.id - -instance (a ~ Data.Int.Int64, b ~ Data.Int.Int64, - Prelude.Functor f) => - Lens.Labels.HasLens "scheduledMicros" f NodeExecStats NodeExecStats - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _NodeExecStats'scheduledMicros - (\ x__ y__ -> x__{_NodeExecStats'scheduledMicros = y__})) - Prelude.id - -instance (a ~ Data.Word.Word32, b ~ Data.Word.Word32, - Prelude.Functor f) => - Lens.Labels.HasLens "threadId" f NodeExecStats NodeExecStats a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _NodeExecStats'threadId - (\ x__ y__ -> x__{_NodeExecStats'threadId = y__})) - Prelude.id - -instance (a ~ - [Proto.Tensorflow.Core.Framework.AllocationDescription.AllocationDescription], - b ~ - [Proto.Tensorflow.Core.Framework.AllocationDescription.AllocationDescription], - Prelude.Functor f) => - Lens.Labels.HasLens "referencedTensor" f NodeExecStats - NodeExecStats - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _NodeExecStats'referencedTensor - (\ x__ y__ -> x__{_NodeExecStats'referencedTensor = y__})) - Prelude.id - -instance (a ~ MemoryStats, b ~ MemoryStats, Prelude.Functor f) => - Lens.Labels.HasLens "memoryStats" f NodeExecStats NodeExecStats a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _NodeExecStats'memoryStats - (\ x__ y__ -> x__{_NodeExecStats'memoryStats = y__})) - (Data.ProtoLens.maybeLens Data.Default.Class.def) - -instance (a ~ Prelude.Maybe MemoryStats, - b ~ Prelude.Maybe MemoryStats, Prelude.Functor f) => - Lens.Labels.HasLens "maybe'memoryStats" f NodeExecStats - NodeExecStats - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _NodeExecStats'memoryStats - (\ x__ y__ -> x__{_NodeExecStats'memoryStats = y__})) - Prelude.id - -instance Data.Default.Class.Default NodeExecStats where - def - = NodeExecStats{_NodeExecStats'nodeName = - Data.ProtoLens.fieldDefault, - _NodeExecStats'allStartMicros = Data.ProtoLens.fieldDefault, - _NodeExecStats'opStartRelMicros = Data.ProtoLens.fieldDefault, - _NodeExecStats'opEndRelMicros = Data.ProtoLens.fieldDefault, - _NodeExecStats'allEndRelMicros = Data.ProtoLens.fieldDefault, - _NodeExecStats'memory = [], _NodeExecStats'output = [], - _NodeExecStats'timelineLabel = Data.ProtoLens.fieldDefault, - _NodeExecStats'scheduledMicros = Data.ProtoLens.fieldDefault, - _NodeExecStats'threadId = Data.ProtoLens.fieldDefault, - _NodeExecStats'referencedTensor = [], - _NodeExecStats'memoryStats = Prelude.Nothing} - -instance Data.ProtoLens.Message NodeExecStats where - descriptor - = let nodeName__field_descriptor - = Data.ProtoLens.FieldDescriptor "node_name" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional nodeName) - :: Data.ProtoLens.FieldDescriptor NodeExecStats - allStartMicros__field_descriptor - = Data.ProtoLens.FieldDescriptor "all_start_micros" - (Data.ProtoLens.Int64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional allStartMicros) - :: Data.ProtoLens.FieldDescriptor NodeExecStats - opStartRelMicros__field_descriptor - = Data.ProtoLens.FieldDescriptor "op_start_rel_micros" - (Data.ProtoLens.Int64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional - opStartRelMicros) - :: Data.ProtoLens.FieldDescriptor NodeExecStats - opEndRelMicros__field_descriptor - = Data.ProtoLens.FieldDescriptor "op_end_rel_micros" - (Data.ProtoLens.Int64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional opEndRelMicros) - :: Data.ProtoLens.FieldDescriptor NodeExecStats - allEndRelMicros__field_descriptor - = Data.ProtoLens.FieldDescriptor "all_end_rel_micros" - (Data.ProtoLens.Int64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional allEndRelMicros) - :: Data.ProtoLens.FieldDescriptor NodeExecStats - memory__field_descriptor - = Data.ProtoLens.FieldDescriptor "memory" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor AllocatorMemoryUsed) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked memory) - :: Data.ProtoLens.FieldDescriptor NodeExecStats - output__field_descriptor - = Data.ProtoLens.FieldDescriptor "output" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor NodeOutput) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked output) - :: Data.ProtoLens.FieldDescriptor NodeExecStats - timelineLabel__field_descriptor - = Data.ProtoLens.FieldDescriptor "timeline_label" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional timelineLabel) - :: Data.ProtoLens.FieldDescriptor NodeExecStats - scheduledMicros__field_descriptor - = Data.ProtoLens.FieldDescriptor "scheduled_micros" - (Data.ProtoLens.Int64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional scheduledMicros) - :: Data.ProtoLens.FieldDescriptor NodeExecStats - threadId__field_descriptor - = Data.ProtoLens.FieldDescriptor "thread_id" - (Data.ProtoLens.UInt32Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional threadId) - :: Data.ProtoLens.FieldDescriptor NodeExecStats - referencedTensor__field_descriptor - = Data.ProtoLens.FieldDescriptor "referenced_tensor" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor - Proto.Tensorflow.Core.Framework.AllocationDescription.AllocationDescription) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked - referencedTensor) - :: Data.ProtoLens.FieldDescriptor NodeExecStats - memoryStats__field_descriptor - = Data.ProtoLens.FieldDescriptor "memory_stats" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor MemoryStats) - (Data.ProtoLens.OptionalField maybe'memoryStats) - :: Data.ProtoLens.FieldDescriptor NodeExecStats - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.NodeExecStats") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, nodeName__field_descriptor), - (Data.ProtoLens.Tag 2, allStartMicros__field_descriptor), - (Data.ProtoLens.Tag 3, opStartRelMicros__field_descriptor), - (Data.ProtoLens.Tag 4, opEndRelMicros__field_descriptor), - (Data.ProtoLens.Tag 5, allEndRelMicros__field_descriptor), - (Data.ProtoLens.Tag 6, memory__field_descriptor), - (Data.ProtoLens.Tag 7, output__field_descriptor), - (Data.ProtoLens.Tag 8, timelineLabel__field_descriptor), - (Data.ProtoLens.Tag 9, scheduledMicros__field_descriptor), - (Data.ProtoLens.Tag 10, threadId__field_descriptor), - (Data.ProtoLens.Tag 11, referencedTensor__field_descriptor), - (Data.ProtoLens.Tag 12, memoryStats__field_descriptor)]) - (Data.Map.fromList - [("node_name", nodeName__field_descriptor), - ("all_start_micros", allStartMicros__field_descriptor), - ("op_start_rel_micros", opStartRelMicros__field_descriptor), - ("op_end_rel_micros", opEndRelMicros__field_descriptor), - ("all_end_rel_micros", allEndRelMicros__field_descriptor), - ("memory", memory__field_descriptor), - ("output", output__field_descriptor), - ("timeline_label", timelineLabel__field_descriptor), - ("scheduled_micros", scheduledMicros__field_descriptor), - ("thread_id", threadId__field_descriptor), - ("referenced_tensor", referencedTensor__field_descriptor), - ("memory_stats", memoryStats__field_descriptor)]) - -data NodeOutput = NodeOutput{_NodeOutput'slot :: !Data.Int.Int32, - _NodeOutput'tensorDescription :: - !(Prelude.Maybe - Proto.Tensorflow.Core.Framework.TensorDescription.TensorDescription)} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Data.Int.Int32, b ~ Data.Int.Int32, - Prelude.Functor f) => - Lens.Labels.HasLens "slot" f NodeOutput NodeOutput a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _NodeOutput'slot - (\ x__ y__ -> x__{_NodeOutput'slot = y__})) - Prelude.id - -instance (a ~ - Proto.Tensorflow.Core.Framework.TensorDescription.TensorDescription, - b ~ - Proto.Tensorflow.Core.Framework.TensorDescription.TensorDescription, - Prelude.Functor f) => - Lens.Labels.HasLens "tensorDescription" f NodeOutput NodeOutput a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _NodeOutput'tensorDescription - (\ x__ y__ -> x__{_NodeOutput'tensorDescription = y__})) - (Data.ProtoLens.maybeLens Data.Default.Class.def) - -instance (a ~ - Prelude.Maybe - Proto.Tensorflow.Core.Framework.TensorDescription.TensorDescription, - b ~ - Prelude.Maybe - Proto.Tensorflow.Core.Framework.TensorDescription.TensorDescription, - Prelude.Functor f) => - Lens.Labels.HasLens "maybe'tensorDescription" f NodeOutput - NodeOutput - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _NodeOutput'tensorDescription - (\ x__ y__ -> x__{_NodeOutput'tensorDescription = y__})) - Prelude.id - -instance Data.Default.Class.Default NodeOutput where - def - = NodeOutput{_NodeOutput'slot = Data.ProtoLens.fieldDefault, - _NodeOutput'tensorDescription = Prelude.Nothing} - -instance Data.ProtoLens.Message NodeOutput where - descriptor - = let slot__field_descriptor - = Data.ProtoLens.FieldDescriptor "slot" - (Data.ProtoLens.Int32Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional slot) - :: Data.ProtoLens.FieldDescriptor NodeOutput - tensorDescription__field_descriptor - = Data.ProtoLens.FieldDescriptor "tensor_description" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor - Proto.Tensorflow.Core.Framework.TensorDescription.TensorDescription) - (Data.ProtoLens.OptionalField maybe'tensorDescription) - :: Data.ProtoLens.FieldDescriptor NodeOutput - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.NodeOutput") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, slot__field_descriptor), - (Data.ProtoLens.Tag 3, tensorDescription__field_descriptor)]) - (Data.Map.fromList - [("slot", slot__field_descriptor), - ("tensor_description", tensorDescription__field_descriptor)]) - -data StepStats = StepStats{_StepStats'devStats :: - ![DeviceStepStats]} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ [DeviceStepStats], b ~ [DeviceStepStats], - Prelude.Functor f) => - Lens.Labels.HasLens "devStats" f StepStats StepStats a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _StepStats'devStats - (\ x__ y__ -> x__{_StepStats'devStats = y__})) - Prelude.id - -instance Data.Default.Class.Default StepStats where - def = StepStats{_StepStats'devStats = []} - -instance Data.ProtoLens.Message StepStats where - descriptor - = let devStats__field_descriptor - = Data.ProtoLens.FieldDescriptor "dev_stats" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor DeviceStepStats) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked devStats) - :: Data.ProtoLens.FieldDescriptor StepStats - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.StepStats") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, devStats__field_descriptor)]) - (Data.Map.fromList [("dev_stats", devStats__field_descriptor)]) - -allEndRelMicros :: - forall f s t a b . - (Lens.Labels.HasLens "allEndRelMicros" f s t a b) => - Lens.Family2.LensLike f s t a b -allEndRelMicros - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "allEndRelMicros") - -allStartMicros :: - forall f s t a b . - (Lens.Labels.HasLens "allStartMicros" f s t a b) => - Lens.Family2.LensLike f s t a b -allStartMicros - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "allStartMicros") - -allocBytes :: - forall f s t a b . (Lens.Labels.HasLens "allocBytes" f s t a b) => - Lens.Family2.LensLike f s t a b -allocBytes - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "allocBytes") - -allocMicros :: - forall f s t a b . (Lens.Labels.HasLens "allocMicros" f s t a b) => - Lens.Family2.LensLike f s t a b -allocMicros - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "allocMicros") - -allocationRecords :: - forall f s t a b . - (Lens.Labels.HasLens "allocationRecords" f s t a b) => - Lens.Family2.LensLike f s t a b -allocationRecords - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "allocationRecords") - -allocatorBytesInUse :: - forall f s t a b . - (Lens.Labels.HasLens "allocatorBytesInUse" f s t a b) => - Lens.Family2.LensLike f s t a b -allocatorBytesInUse - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: - (Lens.Labels.Proxy#) "allocatorBytesInUse") - -allocatorName :: - forall f s t a b . - (Lens.Labels.HasLens "allocatorName" f s t a b) => - Lens.Family2.LensLike f s t a b -allocatorName - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "allocatorName") - -devStats :: - forall f s t a b . (Lens.Labels.HasLens "devStats" f s t a b) => - Lens.Family2.LensLike f s t a b -devStats - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "devStats") - -device :: - forall f s t a b . (Lens.Labels.HasLens "device" f s t a b) => - Lens.Family2.LensLike f s t a b -device - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "device") - -devicePersistentMemorySize :: - forall f s t a b . - (Lens.Labels.HasLens "devicePersistentMemorySize" f s t a b) => - Lens.Family2.LensLike f s t a b -devicePersistentMemorySize - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: - (Lens.Labels.Proxy#) "devicePersistentMemorySize") - -devicePersistentTensorAllocIds :: - forall f s t a b . - (Lens.Labels.HasLens "devicePersistentTensorAllocIds" f s t a b) => - Lens.Family2.LensLike f s t a b -devicePersistentTensorAllocIds - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: - (Lens.Labels.Proxy#) "devicePersistentTensorAllocIds") - -deviceTempMemorySize :: - forall f s t a b . - (Lens.Labels.HasLens "deviceTempMemorySize" f s t a b) => - Lens.Family2.LensLike f s t a b -deviceTempMemorySize - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: - (Lens.Labels.Proxy#) "deviceTempMemorySize") - -liveBytes :: - forall f s t a b . (Lens.Labels.HasLens "liveBytes" f s t a b) => - Lens.Family2.LensLike f s t a b -liveBytes - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "liveBytes") - -maybe'memoryStats :: - forall f s t a b . - (Lens.Labels.HasLens "maybe'memoryStats" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'memoryStats - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'memoryStats") - -maybe'tensorDescription :: - forall f s t a b . - (Lens.Labels.HasLens "maybe'tensorDescription" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'tensorDescription - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: - (Lens.Labels.Proxy#) "maybe'tensorDescription") - -memory :: - forall f s t a b . (Lens.Labels.HasLens "memory" f s t a b) => - Lens.Family2.LensLike f s t a b -memory - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "memory") - -memoryStats :: - forall f s t a b . (Lens.Labels.HasLens "memoryStats" f s t a b) => - Lens.Family2.LensLike f s t a b -memoryStats - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "memoryStats") - -nodeName :: - forall f s t a b . (Lens.Labels.HasLens "nodeName" f s t a b) => - Lens.Family2.LensLike f s t a b -nodeName - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "nodeName") - -nodeStats :: - forall f s t a b . (Lens.Labels.HasLens "nodeStats" f s t a b) => - Lens.Family2.LensLike f s t a b -nodeStats - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "nodeStats") - -opEndRelMicros :: - forall f s t a b . - (Lens.Labels.HasLens "opEndRelMicros" f s t a b) => - Lens.Family2.LensLike f s t a b -opEndRelMicros - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "opEndRelMicros") - -opStartRelMicros :: - forall f s t a b . - (Lens.Labels.HasLens "opStartRelMicros" f s t a b) => - Lens.Family2.LensLike f s t a b -opStartRelMicros - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "opStartRelMicros") - -output :: - forall f s t a b . (Lens.Labels.HasLens "output" f s t a b) => - Lens.Family2.LensLike f s t a b -output - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "output") - -peakBytes :: - forall f s t a b . (Lens.Labels.HasLens "peakBytes" f s t a b) => - Lens.Family2.LensLike f s t a b -peakBytes - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "peakBytes") - -persistentMemorySize :: - forall f s t a b . - (Lens.Labels.HasLens "persistentMemorySize" f s t a b) => - Lens.Family2.LensLike f s t a b -persistentMemorySize - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: - (Lens.Labels.Proxy#) "persistentMemorySize") - -persistentTensorAllocIds :: - forall f s t a b . - (Lens.Labels.HasLens "persistentTensorAllocIds" f s t a b) => - Lens.Family2.LensLike f s t a b -persistentTensorAllocIds - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: - (Lens.Labels.Proxy#) "persistentTensorAllocIds") - -referencedTensor :: - forall f s t a b . - (Lens.Labels.HasLens "referencedTensor" f s t a b) => - Lens.Family2.LensLike f s t a b -referencedTensor - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "referencedTensor") - -scheduledMicros :: - forall f s t a b . - (Lens.Labels.HasLens "scheduledMicros" f s t a b) => - Lens.Family2.LensLike f s t a b -scheduledMicros - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "scheduledMicros") - -slot :: - forall f s t a b . (Lens.Labels.HasLens "slot" f s t a b) => - Lens.Family2.LensLike f s t a b -slot - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "slot") - -tempMemorySize :: - forall f s t a b . - (Lens.Labels.HasLens "tempMemorySize" f s t a b) => - Lens.Family2.LensLike f s t a b -tempMemorySize - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "tempMemorySize") - -tensorDescription :: - forall f s t a b . - (Lens.Labels.HasLens "tensorDescription" f s t a b) => - Lens.Family2.LensLike f s t a b -tensorDescription - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "tensorDescription") - -threadId :: - forall f s t a b . (Lens.Labels.HasLens "threadId" f s t a b) => - Lens.Family2.LensLike f s t a b -threadId - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "threadId") - -timelineLabel :: - forall f s t a b . - (Lens.Labels.HasLens "timelineLabel" f s t a b) => - Lens.Family2.LensLike f s t a b -timelineLabel - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "timelineLabel") - -totalBytes :: - forall f s t a b . (Lens.Labels.HasLens "totalBytes" f s t a b) => - Lens.Family2.LensLike f s t a b -totalBytes - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "totalBytes") diff --git a/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Framework/Summary.hs b/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Framework/Summary.hs deleted file mode 100644 --- a/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Framework/Summary.hs +++ /dev/null @@ -1,1299 +0,0 @@ -{- This file was auto-generated from tensorflow/core/framework/summary.proto by the proto-lens-protoc program. -} -{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies, - UndecidableInstances, MultiParamTypeClasses, FlexibleContexts, - FlexibleInstances, PatternSynonyms, MagicHash, NoImplicitPrelude - #-} -{-# OPTIONS_GHC -fno-warn-unused-imports#-} -module Proto.Tensorflow.Core.Framework.Summary where -import qualified Data.ProtoLens.Reexport.Prelude as Prelude -import qualified Data.ProtoLens.Reexport.Data.Int as Data.Int -import qualified Data.ProtoLens.Reexport.Data.Word as Data.Word -import qualified Data.ProtoLens.Reexport.Data.ProtoLens - as Data.ProtoLens -import qualified - Data.ProtoLens.Reexport.Data.ProtoLens.Message.Enum - as Data.ProtoLens.Message.Enum -import qualified Data.ProtoLens.Reexport.Lens.Family2 - as Lens.Family2 -import qualified Data.ProtoLens.Reexport.Lens.Family2.Unchecked - as Lens.Family2.Unchecked -import qualified Data.ProtoLens.Reexport.Data.Default.Class - as Data.Default.Class -import qualified Data.ProtoLens.Reexport.Data.Text as Data.Text -import qualified Data.ProtoLens.Reexport.Data.Map as Data.Map -import qualified Data.ProtoLens.Reexport.Data.ByteString - as Data.ByteString -import qualified Data.ProtoLens.Reexport.Lens.Labels as Lens.Labels -import qualified Proto.Tensorflow.Core.Framework.Tensor - -data HistogramProto = HistogramProto{_HistogramProto'min :: - !Prelude.Double, - _HistogramProto'max :: !Prelude.Double, - _HistogramProto'num :: !Prelude.Double, - _HistogramProto'sum :: !Prelude.Double, - _HistogramProto'sumSquares :: !Prelude.Double, - _HistogramProto'bucketLimit :: ![Prelude.Double], - _HistogramProto'bucket :: ![Prelude.Double]} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Prelude.Double, b ~ Prelude.Double, - Prelude.Functor f) => - Lens.Labels.HasLens "min" f HistogramProto HistogramProto a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _HistogramProto'min - (\ x__ y__ -> x__{_HistogramProto'min = y__})) - Prelude.id - -instance (a ~ Prelude.Double, b ~ Prelude.Double, - Prelude.Functor f) => - Lens.Labels.HasLens "max" f HistogramProto HistogramProto a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _HistogramProto'max - (\ x__ y__ -> x__{_HistogramProto'max = y__})) - Prelude.id - -instance (a ~ Prelude.Double, b ~ Prelude.Double, - Prelude.Functor f) => - Lens.Labels.HasLens "num" f HistogramProto HistogramProto a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _HistogramProto'num - (\ x__ y__ -> x__{_HistogramProto'num = y__})) - Prelude.id - -instance (a ~ Prelude.Double, b ~ Prelude.Double, - Prelude.Functor f) => - Lens.Labels.HasLens "sum" f HistogramProto HistogramProto a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _HistogramProto'sum - (\ x__ y__ -> x__{_HistogramProto'sum = y__})) - Prelude.id - -instance (a ~ Prelude.Double, b ~ Prelude.Double, - Prelude.Functor f) => - Lens.Labels.HasLens "sumSquares" f HistogramProto HistogramProto a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _HistogramProto'sumSquares - (\ x__ y__ -> x__{_HistogramProto'sumSquares = y__})) - Prelude.id - -instance (a ~ [Prelude.Double], b ~ [Prelude.Double], - Prelude.Functor f) => - Lens.Labels.HasLens "bucketLimit" f HistogramProto HistogramProto a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _HistogramProto'bucketLimit - (\ x__ y__ -> x__{_HistogramProto'bucketLimit = y__})) - Prelude.id - -instance (a ~ [Prelude.Double], b ~ [Prelude.Double], - Prelude.Functor f) => - Lens.Labels.HasLens "bucket" f HistogramProto HistogramProto a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _HistogramProto'bucket - (\ x__ y__ -> x__{_HistogramProto'bucket = y__})) - Prelude.id - -instance Data.Default.Class.Default HistogramProto where - def - = HistogramProto{_HistogramProto'min = Data.ProtoLens.fieldDefault, - _HistogramProto'max = Data.ProtoLens.fieldDefault, - _HistogramProto'num = Data.ProtoLens.fieldDefault, - _HistogramProto'sum = Data.ProtoLens.fieldDefault, - _HistogramProto'sumSquares = Data.ProtoLens.fieldDefault, - _HistogramProto'bucketLimit = [], _HistogramProto'bucket = []} - -instance Data.ProtoLens.Message HistogramProto where - descriptor - = let min__field_descriptor - = Data.ProtoLens.FieldDescriptor "min" - (Data.ProtoLens.DoubleField :: - Data.ProtoLens.FieldTypeDescriptor Prelude.Double) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional min) - :: Data.ProtoLens.FieldDescriptor HistogramProto - max__field_descriptor - = Data.ProtoLens.FieldDescriptor "max" - (Data.ProtoLens.DoubleField :: - Data.ProtoLens.FieldTypeDescriptor Prelude.Double) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional max) - :: Data.ProtoLens.FieldDescriptor HistogramProto - num__field_descriptor - = Data.ProtoLens.FieldDescriptor "num" - (Data.ProtoLens.DoubleField :: - Data.ProtoLens.FieldTypeDescriptor Prelude.Double) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional num) - :: Data.ProtoLens.FieldDescriptor HistogramProto - sum__field_descriptor - = Data.ProtoLens.FieldDescriptor "sum" - (Data.ProtoLens.DoubleField :: - Data.ProtoLens.FieldTypeDescriptor Prelude.Double) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional sum) - :: Data.ProtoLens.FieldDescriptor HistogramProto - sumSquares__field_descriptor - = Data.ProtoLens.FieldDescriptor "sum_squares" - (Data.ProtoLens.DoubleField :: - Data.ProtoLens.FieldTypeDescriptor Prelude.Double) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional sumSquares) - :: Data.ProtoLens.FieldDescriptor HistogramProto - bucketLimit__field_descriptor - = Data.ProtoLens.FieldDescriptor "bucket_limit" - (Data.ProtoLens.DoubleField :: - Data.ProtoLens.FieldTypeDescriptor Prelude.Double) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Packed bucketLimit) - :: Data.ProtoLens.FieldDescriptor HistogramProto - bucket__field_descriptor - = Data.ProtoLens.FieldDescriptor "bucket" - (Data.ProtoLens.DoubleField :: - Data.ProtoLens.FieldTypeDescriptor Prelude.Double) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Packed bucket) - :: Data.ProtoLens.FieldDescriptor HistogramProto - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.HistogramProto") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, min__field_descriptor), - (Data.ProtoLens.Tag 2, max__field_descriptor), - (Data.ProtoLens.Tag 3, num__field_descriptor), - (Data.ProtoLens.Tag 4, sum__field_descriptor), - (Data.ProtoLens.Tag 5, sumSquares__field_descriptor), - (Data.ProtoLens.Tag 6, bucketLimit__field_descriptor), - (Data.ProtoLens.Tag 7, bucket__field_descriptor)]) - (Data.Map.fromList - [("min", min__field_descriptor), ("max", max__field_descriptor), - ("num", num__field_descriptor), ("sum", sum__field_descriptor), - ("sum_squares", sumSquares__field_descriptor), - ("bucket_limit", bucketLimit__field_descriptor), - ("bucket", bucket__field_descriptor)]) - -data Summary = Summary{_Summary'value :: ![Summary'Value]} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ [Summary'Value], b ~ [Summary'Value], - Prelude.Functor f) => - Lens.Labels.HasLens "value" f Summary Summary a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _Summary'value - (\ x__ y__ -> x__{_Summary'value = y__})) - Prelude.id - -instance Data.Default.Class.Default Summary where - def = Summary{_Summary'value = []} - -instance Data.ProtoLens.Message Summary where - descriptor - = let value__field_descriptor - = Data.ProtoLens.FieldDescriptor "value" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor Summary'Value) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked value) - :: Data.ProtoLens.FieldDescriptor Summary - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.Summary") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, value__field_descriptor)]) - (Data.Map.fromList [("value", value__field_descriptor)]) - -data Summary'Audio = Summary'Audio{_Summary'Audio'sampleRate :: - !Prelude.Float, - _Summary'Audio'numChannels :: !Data.Int.Int64, - _Summary'Audio'lengthFrames :: !Data.Int.Int64, - _Summary'Audio'encodedAudioString :: !Data.ByteString.ByteString, - _Summary'Audio'contentType :: !Data.Text.Text} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Prelude.Float, b ~ Prelude.Float, - Prelude.Functor f) => - Lens.Labels.HasLens "sampleRate" f Summary'Audio Summary'Audio a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _Summary'Audio'sampleRate - (\ x__ y__ -> x__{_Summary'Audio'sampleRate = y__})) - Prelude.id - -instance (a ~ Data.Int.Int64, b ~ Data.Int.Int64, - Prelude.Functor f) => - Lens.Labels.HasLens "numChannels" f Summary'Audio Summary'Audio a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _Summary'Audio'numChannels - (\ x__ y__ -> x__{_Summary'Audio'numChannels = y__})) - Prelude.id - -instance (a ~ Data.Int.Int64, b ~ Data.Int.Int64, - Prelude.Functor f) => - Lens.Labels.HasLens "lengthFrames" f Summary'Audio Summary'Audio a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _Summary'Audio'lengthFrames - (\ x__ y__ -> x__{_Summary'Audio'lengthFrames = y__})) - Prelude.id - -instance (a ~ Data.ByteString.ByteString, - b ~ Data.ByteString.ByteString, Prelude.Functor f) => - Lens.Labels.HasLens "encodedAudioString" f Summary'Audio - Summary'Audio - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _Summary'Audio'encodedAudioString - (\ x__ y__ -> x__{_Summary'Audio'encodedAudioString = y__})) - Prelude.id - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "contentType" f Summary'Audio Summary'Audio a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _Summary'Audio'contentType - (\ x__ y__ -> x__{_Summary'Audio'contentType = y__})) - Prelude.id - -instance Data.Default.Class.Default Summary'Audio where - def - = Summary'Audio{_Summary'Audio'sampleRate = - Data.ProtoLens.fieldDefault, - _Summary'Audio'numChannels = Data.ProtoLens.fieldDefault, - _Summary'Audio'lengthFrames = Data.ProtoLens.fieldDefault, - _Summary'Audio'encodedAudioString = Data.ProtoLens.fieldDefault, - _Summary'Audio'contentType = Data.ProtoLens.fieldDefault} - -instance Data.ProtoLens.Message Summary'Audio where - descriptor - = let sampleRate__field_descriptor - = Data.ProtoLens.FieldDescriptor "sample_rate" - (Data.ProtoLens.FloatField :: - Data.ProtoLens.FieldTypeDescriptor Prelude.Float) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional sampleRate) - :: Data.ProtoLens.FieldDescriptor Summary'Audio - numChannels__field_descriptor - = Data.ProtoLens.FieldDescriptor "num_channels" - (Data.ProtoLens.Int64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional numChannels) - :: Data.ProtoLens.FieldDescriptor Summary'Audio - lengthFrames__field_descriptor - = Data.ProtoLens.FieldDescriptor "length_frames" - (Data.ProtoLens.Int64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional lengthFrames) - :: Data.ProtoLens.FieldDescriptor Summary'Audio - encodedAudioString__field_descriptor - = Data.ProtoLens.FieldDescriptor "encoded_audio_string" - (Data.ProtoLens.BytesField :: - Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional - encodedAudioString) - :: Data.ProtoLens.FieldDescriptor Summary'Audio - contentType__field_descriptor - = Data.ProtoLens.FieldDescriptor "content_type" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional contentType) - :: Data.ProtoLens.FieldDescriptor Summary'Audio - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.Summary.Audio") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, sampleRate__field_descriptor), - (Data.ProtoLens.Tag 2, numChannels__field_descriptor), - (Data.ProtoLens.Tag 3, lengthFrames__field_descriptor), - (Data.ProtoLens.Tag 4, encodedAudioString__field_descriptor), - (Data.ProtoLens.Tag 5, contentType__field_descriptor)]) - (Data.Map.fromList - [("sample_rate", sampleRate__field_descriptor), - ("num_channels", numChannels__field_descriptor), - ("length_frames", lengthFrames__field_descriptor), - ("encoded_audio_string", encodedAudioString__field_descriptor), - ("content_type", contentType__field_descriptor)]) - -data Summary'Image = Summary'Image{_Summary'Image'height :: - !Data.Int.Int32, - _Summary'Image'width :: !Data.Int.Int32, - _Summary'Image'colorspace :: !Data.Int.Int32, - _Summary'Image'encodedImageString :: !Data.ByteString.ByteString} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Data.Int.Int32, b ~ Data.Int.Int32, - Prelude.Functor f) => - Lens.Labels.HasLens "height" f Summary'Image Summary'Image a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _Summary'Image'height - (\ x__ y__ -> x__{_Summary'Image'height = y__})) - Prelude.id - -instance (a ~ Data.Int.Int32, b ~ Data.Int.Int32, - Prelude.Functor f) => - Lens.Labels.HasLens "width" f Summary'Image Summary'Image a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _Summary'Image'width - (\ x__ y__ -> x__{_Summary'Image'width = y__})) - Prelude.id - -instance (a ~ Data.Int.Int32, b ~ Data.Int.Int32, - Prelude.Functor f) => - Lens.Labels.HasLens "colorspace" f Summary'Image Summary'Image a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _Summary'Image'colorspace - (\ x__ y__ -> x__{_Summary'Image'colorspace = y__})) - Prelude.id - -instance (a ~ Data.ByteString.ByteString, - b ~ Data.ByteString.ByteString, Prelude.Functor f) => - Lens.Labels.HasLens "encodedImageString" f Summary'Image - Summary'Image - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _Summary'Image'encodedImageString - (\ x__ y__ -> x__{_Summary'Image'encodedImageString = y__})) - Prelude.id - -instance Data.Default.Class.Default Summary'Image where - def - = Summary'Image{_Summary'Image'height = - Data.ProtoLens.fieldDefault, - _Summary'Image'width = Data.ProtoLens.fieldDefault, - _Summary'Image'colorspace = Data.ProtoLens.fieldDefault, - _Summary'Image'encodedImageString = Data.ProtoLens.fieldDefault} - -instance Data.ProtoLens.Message Summary'Image where - descriptor - = let height__field_descriptor - = Data.ProtoLens.FieldDescriptor "height" - (Data.ProtoLens.Int32Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional height) - :: Data.ProtoLens.FieldDescriptor Summary'Image - width__field_descriptor - = Data.ProtoLens.FieldDescriptor "width" - (Data.ProtoLens.Int32Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional width) - :: Data.ProtoLens.FieldDescriptor Summary'Image - colorspace__field_descriptor - = Data.ProtoLens.FieldDescriptor "colorspace" - (Data.ProtoLens.Int32Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional colorspace) - :: Data.ProtoLens.FieldDescriptor Summary'Image - encodedImageString__field_descriptor - = Data.ProtoLens.FieldDescriptor "encoded_image_string" - (Data.ProtoLens.BytesField :: - Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional - encodedImageString) - :: Data.ProtoLens.FieldDescriptor Summary'Image - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.Summary.Image") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, height__field_descriptor), - (Data.ProtoLens.Tag 2, width__field_descriptor), - (Data.ProtoLens.Tag 3, colorspace__field_descriptor), - (Data.ProtoLens.Tag 4, encodedImageString__field_descriptor)]) - (Data.Map.fromList - [("height", height__field_descriptor), - ("width", width__field_descriptor), - ("colorspace", colorspace__field_descriptor), - ("encoded_image_string", encodedImageString__field_descriptor)]) - -data Summary'Value = Summary'Value{_Summary'Value'nodeName :: - !Data.Text.Text, - _Summary'Value'tag :: !Data.Text.Text, - _Summary'Value'metadata :: !(Prelude.Maybe SummaryMetadata), - _Summary'Value'value :: !(Prelude.Maybe Summary'Value'Value)} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -data Summary'Value'Value = Summary'Value'SimpleValue !Prelude.Float - | Summary'Value'ObsoleteOldStyleHistogram !Data.ByteString.ByteString - | Summary'Value'Image !Summary'Image - | Summary'Value'Histo !HistogramProto - | Summary'Value'Audio !Summary'Audio - | Summary'Value'Tensor !Proto.Tensorflow.Core.Framework.Tensor.TensorProto - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "nodeName" f Summary'Value Summary'Value a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _Summary'Value'nodeName - (\ x__ y__ -> x__{_Summary'Value'nodeName = y__})) - Prelude.id - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "tag" f Summary'Value Summary'Value a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _Summary'Value'tag - (\ x__ y__ -> x__{_Summary'Value'tag = y__})) - Prelude.id - -instance (a ~ SummaryMetadata, b ~ SummaryMetadata, - Prelude.Functor f) => - Lens.Labels.HasLens "metadata" f Summary'Value Summary'Value a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _Summary'Value'metadata - (\ x__ y__ -> x__{_Summary'Value'metadata = y__})) - (Data.ProtoLens.maybeLens Data.Default.Class.def) - -instance (a ~ Prelude.Maybe SummaryMetadata, - b ~ Prelude.Maybe SummaryMetadata, Prelude.Functor f) => - Lens.Labels.HasLens "maybe'metadata" f Summary'Value Summary'Value - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _Summary'Value'metadata - (\ x__ y__ -> x__{_Summary'Value'metadata = y__})) - Prelude.id - -instance (a ~ Prelude.Maybe Summary'Value'Value, - b ~ Prelude.Maybe Summary'Value'Value, Prelude.Functor f) => - Lens.Labels.HasLens "maybe'value" f Summary'Value Summary'Value a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _Summary'Value'value - (\ x__ y__ -> x__{_Summary'Value'value = y__})) - Prelude.id - -instance (a ~ Prelude.Maybe Prelude.Float, - b ~ Prelude.Maybe Prelude.Float, Prelude.Functor f) => - Lens.Labels.HasLens "maybe'simpleValue" f Summary'Value - Summary'Value - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _Summary'Value'value - (\ x__ y__ -> x__{_Summary'Value'value = y__})) - (Lens.Family2.Unchecked.lens - (\ x__ -> - case x__ of - Prelude.Just (Summary'Value'SimpleValue x__val) -> Prelude.Just - x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap Summary'Value'SimpleValue y__)) - -instance (a ~ Prelude.Float, b ~ Prelude.Float, - Prelude.Functor f) => - Lens.Labels.HasLens "simpleValue" f Summary'Value Summary'Value a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _Summary'Value'value - (\ x__ y__ -> x__{_Summary'Value'value = y__})) - ((Prelude..) - (Lens.Family2.Unchecked.lens - (\ x__ -> - case x__ of - Prelude.Just (Summary'Value'SimpleValue x__val) -> Prelude.Just - x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap Summary'Value'SimpleValue y__)) - (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)) - -instance (a ~ Prelude.Maybe Data.ByteString.ByteString, - b ~ Prelude.Maybe Data.ByteString.ByteString, Prelude.Functor f) => - Lens.Labels.HasLens "maybe'obsoleteOldStyleHistogram" f - Summary'Value - Summary'Value - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _Summary'Value'value - (\ x__ y__ -> x__{_Summary'Value'value = y__})) - (Lens.Family2.Unchecked.lens - (\ x__ -> - case x__ of - Prelude.Just - (Summary'Value'ObsoleteOldStyleHistogram x__val) -> Prelude.Just - x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> - Prelude.fmap Summary'Value'ObsoleteOldStyleHistogram y__)) - -instance (a ~ Data.ByteString.ByteString, - b ~ Data.ByteString.ByteString, Prelude.Functor f) => - Lens.Labels.HasLens "obsoleteOldStyleHistogram" f Summary'Value - Summary'Value - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _Summary'Value'value - (\ x__ y__ -> x__{_Summary'Value'value = y__})) - ((Prelude..) - (Lens.Family2.Unchecked.lens - (\ x__ -> - case x__ of - Prelude.Just - (Summary'Value'ObsoleteOldStyleHistogram x__val) -> Prelude.Just - x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> - Prelude.fmap Summary'Value'ObsoleteOldStyleHistogram y__)) - (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)) - -instance (a ~ Prelude.Maybe Summary'Image, - b ~ Prelude.Maybe Summary'Image, Prelude.Functor f) => - Lens.Labels.HasLens "maybe'image" f Summary'Value Summary'Value a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _Summary'Value'value - (\ x__ y__ -> x__{_Summary'Value'value = y__})) - (Lens.Family2.Unchecked.lens - (\ x__ -> - case x__ of - Prelude.Just (Summary'Value'Image x__val) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap Summary'Value'Image y__)) - -instance (a ~ Summary'Image, b ~ Summary'Image, - Prelude.Functor f) => - Lens.Labels.HasLens "image" f Summary'Value Summary'Value a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _Summary'Value'value - (\ x__ y__ -> x__{_Summary'Value'value = y__})) - ((Prelude..) - (Lens.Family2.Unchecked.lens - (\ x__ -> - case x__ of - Prelude.Just (Summary'Value'Image x__val) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap Summary'Value'Image y__)) - (Data.ProtoLens.maybeLens Data.Default.Class.def)) - -instance (a ~ Prelude.Maybe HistogramProto, - b ~ Prelude.Maybe HistogramProto, Prelude.Functor f) => - Lens.Labels.HasLens "maybe'histo" f Summary'Value Summary'Value a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _Summary'Value'value - (\ x__ y__ -> x__{_Summary'Value'value = y__})) - (Lens.Family2.Unchecked.lens - (\ x__ -> - case x__ of - Prelude.Just (Summary'Value'Histo x__val) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap Summary'Value'Histo y__)) - -instance (a ~ HistogramProto, b ~ HistogramProto, - Prelude.Functor f) => - Lens.Labels.HasLens "histo" f Summary'Value Summary'Value a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _Summary'Value'value - (\ x__ y__ -> x__{_Summary'Value'value = y__})) - ((Prelude..) - (Lens.Family2.Unchecked.lens - (\ x__ -> - case x__ of - Prelude.Just (Summary'Value'Histo x__val) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap Summary'Value'Histo y__)) - (Data.ProtoLens.maybeLens Data.Default.Class.def)) - -instance (a ~ Prelude.Maybe Summary'Audio, - b ~ Prelude.Maybe Summary'Audio, Prelude.Functor f) => - Lens.Labels.HasLens "maybe'audio" f Summary'Value Summary'Value a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _Summary'Value'value - (\ x__ y__ -> x__{_Summary'Value'value = y__})) - (Lens.Family2.Unchecked.lens - (\ x__ -> - case x__ of - Prelude.Just (Summary'Value'Audio x__val) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap Summary'Value'Audio y__)) - -instance (a ~ Summary'Audio, b ~ Summary'Audio, - Prelude.Functor f) => - Lens.Labels.HasLens "audio" f Summary'Value Summary'Value a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _Summary'Value'value - (\ x__ y__ -> x__{_Summary'Value'value = y__})) - ((Prelude..) - (Lens.Family2.Unchecked.lens - (\ x__ -> - case x__ of - Prelude.Just (Summary'Value'Audio x__val) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap Summary'Value'Audio y__)) - (Data.ProtoLens.maybeLens Data.Default.Class.def)) - -instance (a ~ - Prelude.Maybe Proto.Tensorflow.Core.Framework.Tensor.TensorProto, - b ~ - Prelude.Maybe Proto.Tensorflow.Core.Framework.Tensor.TensorProto, - Prelude.Functor f) => - Lens.Labels.HasLens "maybe'tensor" f Summary'Value Summary'Value a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _Summary'Value'value - (\ x__ y__ -> x__{_Summary'Value'value = y__})) - (Lens.Family2.Unchecked.lens - (\ x__ -> - case x__ of - Prelude.Just (Summary'Value'Tensor x__val) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap Summary'Value'Tensor y__)) - -instance (a ~ Proto.Tensorflow.Core.Framework.Tensor.TensorProto, - b ~ Proto.Tensorflow.Core.Framework.Tensor.TensorProto, - Prelude.Functor f) => - Lens.Labels.HasLens "tensor" f Summary'Value Summary'Value a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _Summary'Value'value - (\ x__ y__ -> x__{_Summary'Value'value = y__})) - ((Prelude..) - (Lens.Family2.Unchecked.lens - (\ x__ -> - case x__ of - Prelude.Just (Summary'Value'Tensor x__val) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap Summary'Value'Tensor y__)) - (Data.ProtoLens.maybeLens Data.Default.Class.def)) - -instance Data.Default.Class.Default Summary'Value where - def - = Summary'Value{_Summary'Value'nodeName = - Data.ProtoLens.fieldDefault, - _Summary'Value'tag = Data.ProtoLens.fieldDefault, - _Summary'Value'metadata = Prelude.Nothing, - _Summary'Value'value = Prelude.Nothing} - -instance Data.ProtoLens.Message Summary'Value where - descriptor - = let nodeName__field_descriptor - = Data.ProtoLens.FieldDescriptor "node_name" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional nodeName) - :: Data.ProtoLens.FieldDescriptor Summary'Value - tag__field_descriptor - = Data.ProtoLens.FieldDescriptor "tag" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional tag) - :: Data.ProtoLens.FieldDescriptor Summary'Value - metadata__field_descriptor - = Data.ProtoLens.FieldDescriptor "metadata" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor SummaryMetadata) - (Data.ProtoLens.OptionalField maybe'metadata) - :: Data.ProtoLens.FieldDescriptor Summary'Value - simpleValue__field_descriptor - = Data.ProtoLens.FieldDescriptor "simple_value" - (Data.ProtoLens.FloatField :: - Data.ProtoLens.FieldTypeDescriptor Prelude.Float) - (Data.ProtoLens.OptionalField maybe'simpleValue) - :: Data.ProtoLens.FieldDescriptor Summary'Value - obsoleteOldStyleHistogram__field_descriptor - = Data.ProtoLens.FieldDescriptor "obsolete_old_style_histogram" - (Data.ProtoLens.BytesField :: - Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) - (Data.ProtoLens.OptionalField maybe'obsoleteOldStyleHistogram) - :: Data.ProtoLens.FieldDescriptor Summary'Value - image__field_descriptor - = Data.ProtoLens.FieldDescriptor "image" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor Summary'Image) - (Data.ProtoLens.OptionalField maybe'image) - :: Data.ProtoLens.FieldDescriptor Summary'Value - histo__field_descriptor - = Data.ProtoLens.FieldDescriptor "histo" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor HistogramProto) - (Data.ProtoLens.OptionalField maybe'histo) - :: Data.ProtoLens.FieldDescriptor Summary'Value - audio__field_descriptor - = Data.ProtoLens.FieldDescriptor "audio" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor Summary'Audio) - (Data.ProtoLens.OptionalField maybe'audio) - :: Data.ProtoLens.FieldDescriptor Summary'Value - tensor__field_descriptor - = Data.ProtoLens.FieldDescriptor "tensor" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor - Proto.Tensorflow.Core.Framework.Tensor.TensorProto) - (Data.ProtoLens.OptionalField maybe'tensor) - :: Data.ProtoLens.FieldDescriptor Summary'Value - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.Summary.Value") - (Data.Map.fromList - [(Data.ProtoLens.Tag 7, nodeName__field_descriptor), - (Data.ProtoLens.Tag 1, tag__field_descriptor), - (Data.ProtoLens.Tag 9, metadata__field_descriptor), - (Data.ProtoLens.Tag 2, simpleValue__field_descriptor), - (Data.ProtoLens.Tag 3, - obsoleteOldStyleHistogram__field_descriptor), - (Data.ProtoLens.Tag 4, image__field_descriptor), - (Data.ProtoLens.Tag 5, histo__field_descriptor), - (Data.ProtoLens.Tag 6, audio__field_descriptor), - (Data.ProtoLens.Tag 8, tensor__field_descriptor)]) - (Data.Map.fromList - [("node_name", nodeName__field_descriptor), - ("tag", tag__field_descriptor), - ("metadata", metadata__field_descriptor), - ("simple_value", simpleValue__field_descriptor), - ("obsolete_old_style_histogram", - obsoleteOldStyleHistogram__field_descriptor), - ("image", image__field_descriptor), - ("histo", histo__field_descriptor), - ("audio", audio__field_descriptor), - ("tensor", tensor__field_descriptor)]) - -data SummaryDescription = SummaryDescription{_SummaryDescription'typeHint - :: !Data.Text.Text} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "typeHint" f SummaryDescription - SummaryDescription - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _SummaryDescription'typeHint - (\ x__ y__ -> x__{_SummaryDescription'typeHint = y__})) - Prelude.id - -instance Data.Default.Class.Default SummaryDescription where - def - = SummaryDescription{_SummaryDescription'typeHint = - Data.ProtoLens.fieldDefault} - -instance Data.ProtoLens.Message SummaryDescription where - descriptor - = let typeHint__field_descriptor - = Data.ProtoLens.FieldDescriptor "type_hint" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional typeHint) - :: Data.ProtoLens.FieldDescriptor SummaryDescription - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.SummaryDescription") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, typeHint__field_descriptor)]) - (Data.Map.fromList [("type_hint", typeHint__field_descriptor)]) - -data SummaryMetadata = SummaryMetadata{_SummaryMetadata'pluginData - :: !(Prelude.Maybe SummaryMetadata'PluginData), - _SummaryMetadata'displayName :: !Data.Text.Text, - _SummaryMetadata'summaryDescription :: !Data.Text.Text} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ SummaryMetadata'PluginData, - b ~ SummaryMetadata'PluginData, Prelude.Functor f) => - Lens.Labels.HasLens "pluginData" f SummaryMetadata SummaryMetadata - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _SummaryMetadata'pluginData - (\ x__ y__ -> x__{_SummaryMetadata'pluginData = y__})) - (Data.ProtoLens.maybeLens Data.Default.Class.def) - -instance (a ~ Prelude.Maybe SummaryMetadata'PluginData, - b ~ Prelude.Maybe SummaryMetadata'PluginData, Prelude.Functor f) => - Lens.Labels.HasLens "maybe'pluginData" f SummaryMetadata - SummaryMetadata - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _SummaryMetadata'pluginData - (\ x__ y__ -> x__{_SummaryMetadata'pluginData = y__})) - Prelude.id - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "displayName" f SummaryMetadata SummaryMetadata - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _SummaryMetadata'displayName - (\ x__ y__ -> x__{_SummaryMetadata'displayName = y__})) - Prelude.id - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "summaryDescription" f SummaryMetadata - SummaryMetadata - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _SummaryMetadata'summaryDescription - (\ x__ y__ -> x__{_SummaryMetadata'summaryDescription = y__})) - Prelude.id - -instance Data.Default.Class.Default SummaryMetadata where - def - = SummaryMetadata{_SummaryMetadata'pluginData = Prelude.Nothing, - _SummaryMetadata'displayName = Data.ProtoLens.fieldDefault, - _SummaryMetadata'summaryDescription = Data.ProtoLens.fieldDefault} - -instance Data.ProtoLens.Message SummaryMetadata where - descriptor - = let pluginData__field_descriptor - = Data.ProtoLens.FieldDescriptor "plugin_data" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor SummaryMetadata'PluginData) - (Data.ProtoLens.OptionalField maybe'pluginData) - :: Data.ProtoLens.FieldDescriptor SummaryMetadata - displayName__field_descriptor - = Data.ProtoLens.FieldDescriptor "display_name" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional displayName) - :: Data.ProtoLens.FieldDescriptor SummaryMetadata - summaryDescription__field_descriptor - = Data.ProtoLens.FieldDescriptor "summary_description" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional - summaryDescription) - :: Data.ProtoLens.FieldDescriptor SummaryMetadata - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.SummaryMetadata") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, pluginData__field_descriptor), - (Data.ProtoLens.Tag 2, displayName__field_descriptor), - (Data.ProtoLens.Tag 3, summaryDescription__field_descriptor)]) - (Data.Map.fromList - [("plugin_data", pluginData__field_descriptor), - ("display_name", displayName__field_descriptor), - ("summary_description", summaryDescription__field_descriptor)]) - -data SummaryMetadata'PluginData = SummaryMetadata'PluginData{_SummaryMetadata'PluginData'pluginName - :: !Data.Text.Text, - _SummaryMetadata'PluginData'content :: - !Data.ByteString.ByteString} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "pluginName" f SummaryMetadata'PluginData - SummaryMetadata'PluginData - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _SummaryMetadata'PluginData'pluginName - (\ x__ y__ -> x__{_SummaryMetadata'PluginData'pluginName = y__})) - Prelude.id - -instance (a ~ Data.ByteString.ByteString, - b ~ Data.ByteString.ByteString, Prelude.Functor f) => - Lens.Labels.HasLens "content" f SummaryMetadata'PluginData - SummaryMetadata'PluginData - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _SummaryMetadata'PluginData'content - (\ x__ y__ -> x__{_SummaryMetadata'PluginData'content = y__})) - Prelude.id - -instance Data.Default.Class.Default SummaryMetadata'PluginData - where - def - = SummaryMetadata'PluginData{_SummaryMetadata'PluginData'pluginName - = Data.ProtoLens.fieldDefault, - _SummaryMetadata'PluginData'content = - Data.ProtoLens.fieldDefault} - -instance Data.ProtoLens.Message SummaryMetadata'PluginData where - descriptor - = let pluginName__field_descriptor - = Data.ProtoLens.FieldDescriptor "plugin_name" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional pluginName) - :: Data.ProtoLens.FieldDescriptor SummaryMetadata'PluginData - content__field_descriptor - = Data.ProtoLens.FieldDescriptor "content" - (Data.ProtoLens.BytesField :: - Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional content) - :: Data.ProtoLens.FieldDescriptor SummaryMetadata'PluginData - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.SummaryMetadata.PluginData") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, pluginName__field_descriptor), - (Data.ProtoLens.Tag 2, content__field_descriptor)]) - (Data.Map.fromList - [("plugin_name", pluginName__field_descriptor), - ("content", content__field_descriptor)]) - -audio :: - forall f s t a b . (Lens.Labels.HasLens "audio" f s t a b) => - Lens.Family2.LensLike f s t a b -audio - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "audio") - -bucket :: - forall f s t a b . (Lens.Labels.HasLens "bucket" f s t a b) => - Lens.Family2.LensLike f s t a b -bucket - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "bucket") - -bucketLimit :: - forall f s t a b . (Lens.Labels.HasLens "bucketLimit" f s t a b) => - Lens.Family2.LensLike f s t a b -bucketLimit - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "bucketLimit") - -colorspace :: - forall f s t a b . (Lens.Labels.HasLens "colorspace" f s t a b) => - Lens.Family2.LensLike f s t a b -colorspace - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "colorspace") - -content :: - forall f s t a b . (Lens.Labels.HasLens "content" f s t a b) => - Lens.Family2.LensLike f s t a b -content - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "content") - -contentType :: - forall f s t a b . (Lens.Labels.HasLens "contentType" f s t a b) => - Lens.Family2.LensLike f s t a b -contentType - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "contentType") - -displayName :: - forall f s t a b . (Lens.Labels.HasLens "displayName" f s t a b) => - Lens.Family2.LensLike f s t a b -displayName - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "displayName") - -encodedAudioString :: - forall f s t a b . - (Lens.Labels.HasLens "encodedAudioString" f s t a b) => - Lens.Family2.LensLike f s t a b -encodedAudioString - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "encodedAudioString") - -encodedImageString :: - forall f s t a b . - (Lens.Labels.HasLens "encodedImageString" f s t a b) => - Lens.Family2.LensLike f s t a b -encodedImageString - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "encodedImageString") - -height :: - forall f s t a b . (Lens.Labels.HasLens "height" f s t a b) => - Lens.Family2.LensLike f s t a b -height - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "height") - -histo :: - forall f s t a b . (Lens.Labels.HasLens "histo" f s t a b) => - Lens.Family2.LensLike f s t a b -histo - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "histo") - -image :: - forall f s t a b . (Lens.Labels.HasLens "image" f s t a b) => - Lens.Family2.LensLike f s t a b -image - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "image") - -lengthFrames :: - forall f s t a b . - (Lens.Labels.HasLens "lengthFrames" f s t a b) => - Lens.Family2.LensLike f s t a b -lengthFrames - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "lengthFrames") - -max :: - forall f s t a b . (Lens.Labels.HasLens "max" f s t a b) => - Lens.Family2.LensLike f s t a b -max - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "max") - -maybe'audio :: - forall f s t a b . (Lens.Labels.HasLens "maybe'audio" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'audio - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'audio") - -maybe'histo :: - forall f s t a b . (Lens.Labels.HasLens "maybe'histo" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'histo - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'histo") - -maybe'image :: - forall f s t a b . (Lens.Labels.HasLens "maybe'image" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'image - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'image") - -maybe'metadata :: - forall f s t a b . - (Lens.Labels.HasLens "maybe'metadata" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'metadata - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'metadata") - -maybe'obsoleteOldStyleHistogram :: - forall f s t a b . - (Lens.Labels.HasLens "maybe'obsoleteOldStyleHistogram" f s t a - b) => - Lens.Family2.LensLike f s t a b -maybe'obsoleteOldStyleHistogram - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: - (Lens.Labels.Proxy#) "maybe'obsoleteOldStyleHistogram") - -maybe'pluginData :: - forall f s t a b . - (Lens.Labels.HasLens "maybe'pluginData" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'pluginData - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'pluginData") - -maybe'simpleValue :: - forall f s t a b . - (Lens.Labels.HasLens "maybe'simpleValue" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'simpleValue - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'simpleValue") - -maybe'tensor :: - forall f s t a b . - (Lens.Labels.HasLens "maybe'tensor" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'tensor - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'tensor") - -maybe'value :: - forall f s t a b . (Lens.Labels.HasLens "maybe'value" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'value - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'value") - -metadata :: - forall f s t a b . (Lens.Labels.HasLens "metadata" f s t a b) => - Lens.Family2.LensLike f s t a b -metadata - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "metadata") - -min :: - forall f s t a b . (Lens.Labels.HasLens "min" f s t a b) => - Lens.Family2.LensLike f s t a b -min - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "min") - -nodeName :: - forall f s t a b . (Lens.Labels.HasLens "nodeName" f s t a b) => - Lens.Family2.LensLike f s t a b -nodeName - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "nodeName") - -num :: - forall f s t a b . (Lens.Labels.HasLens "num" f s t a b) => - Lens.Family2.LensLike f s t a b -num - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "num") - -numChannels :: - forall f s t a b . (Lens.Labels.HasLens "numChannels" f s t a b) => - Lens.Family2.LensLike f s t a b -numChannels - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "numChannels") - -obsoleteOldStyleHistogram :: - forall f s t a b . - (Lens.Labels.HasLens "obsoleteOldStyleHistogram" f s t a b) => - Lens.Family2.LensLike f s t a b -obsoleteOldStyleHistogram - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: - (Lens.Labels.Proxy#) "obsoleteOldStyleHistogram") - -pluginData :: - forall f s t a b . (Lens.Labels.HasLens "pluginData" f s t a b) => - Lens.Family2.LensLike f s t a b -pluginData - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "pluginData") - -pluginName :: - forall f s t a b . (Lens.Labels.HasLens "pluginName" f s t a b) => - Lens.Family2.LensLike f s t a b -pluginName - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "pluginName") - -sampleRate :: - forall f s t a b . (Lens.Labels.HasLens "sampleRate" f s t a b) => - Lens.Family2.LensLike f s t a b -sampleRate - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "sampleRate") - -simpleValue :: - forall f s t a b . (Lens.Labels.HasLens "simpleValue" f s t a b) => - Lens.Family2.LensLike f s t a b -simpleValue - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "simpleValue") - -sum :: - forall f s t a b . (Lens.Labels.HasLens "sum" f s t a b) => - Lens.Family2.LensLike f s t a b -sum - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "sum") - -sumSquares :: - forall f s t a b . (Lens.Labels.HasLens "sumSquares" f s t a b) => - Lens.Family2.LensLike f s t a b -sumSquares - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "sumSquares") - -summaryDescription :: - forall f s t a b . - (Lens.Labels.HasLens "summaryDescription" f s t a b) => - Lens.Family2.LensLike f s t a b -summaryDescription - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "summaryDescription") - -tag :: - forall f s t a b . (Lens.Labels.HasLens "tag" f s t a b) => - Lens.Family2.LensLike f s t a b -tag - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "tag") - -tensor :: - forall f s t a b . (Lens.Labels.HasLens "tensor" f s t a b) => - Lens.Family2.LensLike f s t a b -tensor - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "tensor") - -typeHint :: - forall f s t a b . (Lens.Labels.HasLens "typeHint" f s t a b) => - Lens.Family2.LensLike f s t a b -typeHint - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "typeHint") - -value :: - forall f s t a b . (Lens.Labels.HasLens "value" f s t a b) => - Lens.Family2.LensLike f s t a b -value - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "value") - -width :: - forall f s t a b . (Lens.Labels.HasLens "width" f s t a b) => - Lens.Family2.LensLike f s t a b -width - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "width") diff --git a/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Framework/Tensor.hs b/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Framework/Tensor.hs deleted file mode 100644 --- a/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Framework/Tensor.hs +++ /dev/null @@ -1,644 +0,0 @@ -{- This file was auto-generated from tensorflow/core/framework/tensor.proto by the proto-lens-protoc program. -} -{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies, - UndecidableInstances, MultiParamTypeClasses, FlexibleContexts, - FlexibleInstances, PatternSynonyms, MagicHash, NoImplicitPrelude - #-} -{-# OPTIONS_GHC -fno-warn-unused-imports#-} -module Proto.Tensorflow.Core.Framework.Tensor where -import qualified Data.ProtoLens.Reexport.Prelude as Prelude -import qualified Data.ProtoLens.Reexport.Data.Int as Data.Int -import qualified Data.ProtoLens.Reexport.Data.Word as Data.Word -import qualified Data.ProtoLens.Reexport.Data.ProtoLens - as Data.ProtoLens -import qualified - Data.ProtoLens.Reexport.Data.ProtoLens.Message.Enum - as Data.ProtoLens.Message.Enum -import qualified Data.ProtoLens.Reexport.Lens.Family2 - as Lens.Family2 -import qualified Data.ProtoLens.Reexport.Lens.Family2.Unchecked - as Lens.Family2.Unchecked -import qualified Data.ProtoLens.Reexport.Data.Default.Class - as Data.Default.Class -import qualified Data.ProtoLens.Reexport.Data.Text as Data.Text -import qualified Data.ProtoLens.Reexport.Data.Map as Data.Map -import qualified Data.ProtoLens.Reexport.Data.ByteString - as Data.ByteString -import qualified Data.ProtoLens.Reexport.Lens.Labels as Lens.Labels -import qualified Proto.Tensorflow.Core.Framework.ResourceHandle -import qualified Proto.Tensorflow.Core.Framework.TensorShape -import qualified Proto.Tensorflow.Core.Framework.Types - -data TensorProto = TensorProto{_TensorProto'dtype :: - !Proto.Tensorflow.Core.Framework.Types.DataType, - _TensorProto'tensorShape :: - !(Prelude.Maybe - Proto.Tensorflow.Core.Framework.TensorShape.TensorShapeProto), - _TensorProto'versionNumber :: !Data.Int.Int32, - _TensorProto'tensorContent :: !Data.ByteString.ByteString, - _TensorProto'halfVal :: ![Data.Int.Int32], - _TensorProto'floatVal :: ![Prelude.Float], - _TensorProto'doubleVal :: ![Prelude.Double], - _TensorProto'intVal :: ![Data.Int.Int32], - _TensorProto'stringVal :: ![Data.ByteString.ByteString], - _TensorProto'scomplexVal :: ![Prelude.Float], - _TensorProto'int64Val :: ![Data.Int.Int64], - _TensorProto'boolVal :: ![Prelude.Bool], - _TensorProto'dcomplexVal :: ![Prelude.Double], - _TensorProto'resourceHandleVal :: - ![Proto.Tensorflow.Core.Framework.ResourceHandle.ResourceHandleProto], - _TensorProto'variantVal :: ![VariantTensorDataProto], - _TensorProto'uint32Val :: ![Data.Word.Word32], - _TensorProto'uint64Val :: ![Data.Word.Word64]} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Proto.Tensorflow.Core.Framework.Types.DataType, - b ~ Proto.Tensorflow.Core.Framework.Types.DataType, - Prelude.Functor f) => - Lens.Labels.HasLens "dtype" f TensorProto TensorProto a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _TensorProto'dtype - (\ x__ y__ -> x__{_TensorProto'dtype = y__})) - Prelude.id - -instance (a ~ - Proto.Tensorflow.Core.Framework.TensorShape.TensorShapeProto, - b ~ Proto.Tensorflow.Core.Framework.TensorShape.TensorShapeProto, - Prelude.Functor f) => - Lens.Labels.HasLens "tensorShape" f TensorProto TensorProto a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _TensorProto'tensorShape - (\ x__ y__ -> x__{_TensorProto'tensorShape = y__})) - (Data.ProtoLens.maybeLens Data.Default.Class.def) - -instance (a ~ - Prelude.Maybe - Proto.Tensorflow.Core.Framework.TensorShape.TensorShapeProto, - b ~ - Prelude.Maybe - Proto.Tensorflow.Core.Framework.TensorShape.TensorShapeProto, - Prelude.Functor f) => - Lens.Labels.HasLens "maybe'tensorShape" f TensorProto TensorProto a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _TensorProto'tensorShape - (\ x__ y__ -> x__{_TensorProto'tensorShape = y__})) - Prelude.id - -instance (a ~ Data.Int.Int32, b ~ Data.Int.Int32, - Prelude.Functor f) => - Lens.Labels.HasLens "versionNumber" f TensorProto TensorProto a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _TensorProto'versionNumber - (\ x__ y__ -> x__{_TensorProto'versionNumber = y__})) - Prelude.id - -instance (a ~ Data.ByteString.ByteString, - b ~ Data.ByteString.ByteString, Prelude.Functor f) => - Lens.Labels.HasLens "tensorContent" f TensorProto TensorProto a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _TensorProto'tensorContent - (\ x__ y__ -> x__{_TensorProto'tensorContent = y__})) - Prelude.id - -instance (a ~ [Data.Int.Int32], b ~ [Data.Int.Int32], - Prelude.Functor f) => - Lens.Labels.HasLens "halfVal" f TensorProto TensorProto a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _TensorProto'halfVal - (\ x__ y__ -> x__{_TensorProto'halfVal = y__})) - Prelude.id - -instance (a ~ [Prelude.Float], b ~ [Prelude.Float], - Prelude.Functor f) => - Lens.Labels.HasLens "floatVal" f TensorProto TensorProto a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _TensorProto'floatVal - (\ x__ y__ -> x__{_TensorProto'floatVal = y__})) - Prelude.id - -instance (a ~ [Prelude.Double], b ~ [Prelude.Double], - Prelude.Functor f) => - Lens.Labels.HasLens "doubleVal" f TensorProto TensorProto a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _TensorProto'doubleVal - (\ x__ y__ -> x__{_TensorProto'doubleVal = y__})) - Prelude.id - -instance (a ~ [Data.Int.Int32], b ~ [Data.Int.Int32], - Prelude.Functor f) => - Lens.Labels.HasLens "intVal" f TensorProto TensorProto a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _TensorProto'intVal - (\ x__ y__ -> x__{_TensorProto'intVal = y__})) - Prelude.id - -instance (a ~ [Data.ByteString.ByteString], - b ~ [Data.ByteString.ByteString], Prelude.Functor f) => - Lens.Labels.HasLens "stringVal" f TensorProto TensorProto a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _TensorProto'stringVal - (\ x__ y__ -> x__{_TensorProto'stringVal = y__})) - Prelude.id - -instance (a ~ [Prelude.Float], b ~ [Prelude.Float], - Prelude.Functor f) => - Lens.Labels.HasLens "scomplexVal" f TensorProto TensorProto a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _TensorProto'scomplexVal - (\ x__ y__ -> x__{_TensorProto'scomplexVal = y__})) - Prelude.id - -instance (a ~ [Data.Int.Int64], b ~ [Data.Int.Int64], - Prelude.Functor f) => - Lens.Labels.HasLens "int64Val" f TensorProto TensorProto a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _TensorProto'int64Val - (\ x__ y__ -> x__{_TensorProto'int64Val = y__})) - Prelude.id - -instance (a ~ [Prelude.Bool], b ~ [Prelude.Bool], - Prelude.Functor f) => - Lens.Labels.HasLens "boolVal" f TensorProto TensorProto a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _TensorProto'boolVal - (\ x__ y__ -> x__{_TensorProto'boolVal = y__})) - Prelude.id - -instance (a ~ [Prelude.Double], b ~ [Prelude.Double], - Prelude.Functor f) => - Lens.Labels.HasLens "dcomplexVal" f TensorProto TensorProto a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _TensorProto'dcomplexVal - (\ x__ y__ -> x__{_TensorProto'dcomplexVal = y__})) - Prelude.id - -instance (a ~ - [Proto.Tensorflow.Core.Framework.ResourceHandle.ResourceHandleProto], - b ~ - [Proto.Tensorflow.Core.Framework.ResourceHandle.ResourceHandleProto], - Prelude.Functor f) => - Lens.Labels.HasLens "resourceHandleVal" f TensorProto TensorProto a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _TensorProto'resourceHandleVal - (\ x__ y__ -> x__{_TensorProto'resourceHandleVal = y__})) - Prelude.id - -instance (a ~ [VariantTensorDataProto], - b ~ [VariantTensorDataProto], Prelude.Functor f) => - Lens.Labels.HasLens "variantVal" f TensorProto TensorProto a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _TensorProto'variantVal - (\ x__ y__ -> x__{_TensorProto'variantVal = y__})) - Prelude.id - -instance (a ~ [Data.Word.Word32], b ~ [Data.Word.Word32], - Prelude.Functor f) => - Lens.Labels.HasLens "uint32Val" f TensorProto TensorProto a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _TensorProto'uint32Val - (\ x__ y__ -> x__{_TensorProto'uint32Val = y__})) - Prelude.id - -instance (a ~ [Data.Word.Word64], b ~ [Data.Word.Word64], - Prelude.Functor f) => - Lens.Labels.HasLens "uint64Val" f TensorProto TensorProto a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _TensorProto'uint64Val - (\ x__ y__ -> x__{_TensorProto'uint64Val = y__})) - Prelude.id - -instance Data.Default.Class.Default TensorProto where - def - = TensorProto{_TensorProto'dtype = Data.Default.Class.def, - _TensorProto'tensorShape = Prelude.Nothing, - _TensorProto'versionNumber = Data.ProtoLens.fieldDefault, - _TensorProto'tensorContent = Data.ProtoLens.fieldDefault, - _TensorProto'halfVal = [], _TensorProto'floatVal = [], - _TensorProto'doubleVal = [], _TensorProto'intVal = [], - _TensorProto'stringVal = [], _TensorProto'scomplexVal = [], - _TensorProto'int64Val = [], _TensorProto'boolVal = [], - _TensorProto'dcomplexVal = [], _TensorProto'resourceHandleVal = [], - _TensorProto'variantVal = [], _TensorProto'uint32Val = [], - _TensorProto'uint64Val = []} - -instance Data.ProtoLens.Message TensorProto where - descriptor - = let dtype__field_descriptor - = Data.ProtoLens.FieldDescriptor "dtype" - (Data.ProtoLens.EnumField :: - Data.ProtoLens.FieldTypeDescriptor - Proto.Tensorflow.Core.Framework.Types.DataType) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional dtype) - :: Data.ProtoLens.FieldDescriptor TensorProto - tensorShape__field_descriptor - = Data.ProtoLens.FieldDescriptor "tensor_shape" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor - Proto.Tensorflow.Core.Framework.TensorShape.TensorShapeProto) - (Data.ProtoLens.OptionalField maybe'tensorShape) - :: Data.ProtoLens.FieldDescriptor TensorProto - versionNumber__field_descriptor - = Data.ProtoLens.FieldDescriptor "version_number" - (Data.ProtoLens.Int32Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional versionNumber) - :: Data.ProtoLens.FieldDescriptor TensorProto - tensorContent__field_descriptor - = Data.ProtoLens.FieldDescriptor "tensor_content" - (Data.ProtoLens.BytesField :: - Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional tensorContent) - :: Data.ProtoLens.FieldDescriptor TensorProto - halfVal__field_descriptor - = Data.ProtoLens.FieldDescriptor "half_val" - (Data.ProtoLens.Int32Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Packed halfVal) - :: Data.ProtoLens.FieldDescriptor TensorProto - floatVal__field_descriptor - = Data.ProtoLens.FieldDescriptor "float_val" - (Data.ProtoLens.FloatField :: - Data.ProtoLens.FieldTypeDescriptor Prelude.Float) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Packed floatVal) - :: Data.ProtoLens.FieldDescriptor TensorProto - doubleVal__field_descriptor - = Data.ProtoLens.FieldDescriptor "double_val" - (Data.ProtoLens.DoubleField :: - Data.ProtoLens.FieldTypeDescriptor Prelude.Double) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Packed doubleVal) - :: Data.ProtoLens.FieldDescriptor TensorProto - intVal__field_descriptor - = Data.ProtoLens.FieldDescriptor "int_val" - (Data.ProtoLens.Int32Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Packed intVal) - :: Data.ProtoLens.FieldDescriptor TensorProto - stringVal__field_descriptor - = Data.ProtoLens.FieldDescriptor "string_val" - (Data.ProtoLens.BytesField :: - Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked stringVal) - :: Data.ProtoLens.FieldDescriptor TensorProto - scomplexVal__field_descriptor - = Data.ProtoLens.FieldDescriptor "scomplex_val" - (Data.ProtoLens.FloatField :: - Data.ProtoLens.FieldTypeDescriptor Prelude.Float) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Packed scomplexVal) - :: Data.ProtoLens.FieldDescriptor TensorProto - int64Val__field_descriptor - = Data.ProtoLens.FieldDescriptor "int64_val" - (Data.ProtoLens.Int64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Packed int64Val) - :: Data.ProtoLens.FieldDescriptor TensorProto - boolVal__field_descriptor - = Data.ProtoLens.FieldDescriptor "bool_val" - (Data.ProtoLens.BoolField :: - Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Packed boolVal) - :: Data.ProtoLens.FieldDescriptor TensorProto - dcomplexVal__field_descriptor - = Data.ProtoLens.FieldDescriptor "dcomplex_val" - (Data.ProtoLens.DoubleField :: - Data.ProtoLens.FieldTypeDescriptor Prelude.Double) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Packed dcomplexVal) - :: Data.ProtoLens.FieldDescriptor TensorProto - resourceHandleVal__field_descriptor - = Data.ProtoLens.FieldDescriptor "resource_handle_val" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor - Proto.Tensorflow.Core.Framework.ResourceHandle.ResourceHandleProto) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked - resourceHandleVal) - :: Data.ProtoLens.FieldDescriptor TensorProto - variantVal__field_descriptor - = Data.ProtoLens.FieldDescriptor "variant_val" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor VariantTensorDataProto) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked variantVal) - :: Data.ProtoLens.FieldDescriptor TensorProto - uint32Val__field_descriptor - = Data.ProtoLens.FieldDescriptor "uint32_val" - (Data.ProtoLens.UInt32Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Packed uint32Val) - :: Data.ProtoLens.FieldDescriptor TensorProto - uint64Val__field_descriptor - = Data.ProtoLens.FieldDescriptor "uint64_val" - (Data.ProtoLens.UInt64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Packed uint64Val) - :: Data.ProtoLens.FieldDescriptor TensorProto - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.TensorProto") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, dtype__field_descriptor), - (Data.ProtoLens.Tag 2, tensorShape__field_descriptor), - (Data.ProtoLens.Tag 3, versionNumber__field_descriptor), - (Data.ProtoLens.Tag 4, tensorContent__field_descriptor), - (Data.ProtoLens.Tag 13, halfVal__field_descriptor), - (Data.ProtoLens.Tag 5, floatVal__field_descriptor), - (Data.ProtoLens.Tag 6, doubleVal__field_descriptor), - (Data.ProtoLens.Tag 7, intVal__field_descriptor), - (Data.ProtoLens.Tag 8, stringVal__field_descriptor), - (Data.ProtoLens.Tag 9, scomplexVal__field_descriptor), - (Data.ProtoLens.Tag 10, int64Val__field_descriptor), - (Data.ProtoLens.Tag 11, boolVal__field_descriptor), - (Data.ProtoLens.Tag 12, dcomplexVal__field_descriptor), - (Data.ProtoLens.Tag 14, resourceHandleVal__field_descriptor), - (Data.ProtoLens.Tag 15, variantVal__field_descriptor), - (Data.ProtoLens.Tag 16, uint32Val__field_descriptor), - (Data.ProtoLens.Tag 17, uint64Val__field_descriptor)]) - (Data.Map.fromList - [("dtype", dtype__field_descriptor), - ("tensor_shape", tensorShape__field_descriptor), - ("version_number", versionNumber__field_descriptor), - ("tensor_content", tensorContent__field_descriptor), - ("half_val", halfVal__field_descriptor), - ("float_val", floatVal__field_descriptor), - ("double_val", doubleVal__field_descriptor), - ("int_val", intVal__field_descriptor), - ("string_val", stringVal__field_descriptor), - ("scomplex_val", scomplexVal__field_descriptor), - ("int64_val", int64Val__field_descriptor), - ("bool_val", boolVal__field_descriptor), - ("dcomplex_val", dcomplexVal__field_descriptor), - ("resource_handle_val", resourceHandleVal__field_descriptor), - ("variant_val", variantVal__field_descriptor), - ("uint32_val", uint32Val__field_descriptor), - ("uint64_val", uint64Val__field_descriptor)]) - -data VariantTensorDataProto = VariantTensorDataProto{_VariantTensorDataProto'typeName - :: !Data.Text.Text, - _VariantTensorDataProto'metadata :: - !Data.ByteString.ByteString, - _VariantTensorDataProto'tensors :: - ![TensorProto]} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "typeName" f VariantTensorDataProto - VariantTensorDataProto - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _VariantTensorDataProto'typeName - (\ x__ y__ -> x__{_VariantTensorDataProto'typeName = y__})) - Prelude.id - -instance (a ~ Data.ByteString.ByteString, - b ~ Data.ByteString.ByteString, Prelude.Functor f) => - Lens.Labels.HasLens "metadata" f VariantTensorDataProto - VariantTensorDataProto - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _VariantTensorDataProto'metadata - (\ x__ y__ -> x__{_VariantTensorDataProto'metadata = y__})) - Prelude.id - -instance (a ~ [TensorProto], b ~ [TensorProto], - Prelude.Functor f) => - Lens.Labels.HasLens "tensors" f VariantTensorDataProto - VariantTensorDataProto - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _VariantTensorDataProto'tensors - (\ x__ y__ -> x__{_VariantTensorDataProto'tensors = y__})) - Prelude.id - -instance Data.Default.Class.Default VariantTensorDataProto where - def - = VariantTensorDataProto{_VariantTensorDataProto'typeName = - Data.ProtoLens.fieldDefault, - _VariantTensorDataProto'metadata = Data.ProtoLens.fieldDefault, - _VariantTensorDataProto'tensors = []} - -instance Data.ProtoLens.Message VariantTensorDataProto where - descriptor - = let typeName__field_descriptor - = Data.ProtoLens.FieldDescriptor "type_name" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional typeName) - :: Data.ProtoLens.FieldDescriptor VariantTensorDataProto - metadata__field_descriptor - = Data.ProtoLens.FieldDescriptor "metadata" - (Data.ProtoLens.BytesField :: - Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional metadata) - :: Data.ProtoLens.FieldDescriptor VariantTensorDataProto - tensors__field_descriptor - = Data.ProtoLens.FieldDescriptor "tensors" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor TensorProto) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked tensors) - :: Data.ProtoLens.FieldDescriptor VariantTensorDataProto - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.VariantTensorDataProto") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, typeName__field_descriptor), - (Data.ProtoLens.Tag 2, metadata__field_descriptor), - (Data.ProtoLens.Tag 3, tensors__field_descriptor)]) - (Data.Map.fromList - [("type_name", typeName__field_descriptor), - ("metadata", metadata__field_descriptor), - ("tensors", tensors__field_descriptor)]) - -boolVal :: - forall f s t a b . (Lens.Labels.HasLens "boolVal" f s t a b) => - Lens.Family2.LensLike f s t a b -boolVal - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "boolVal") - -dcomplexVal :: - forall f s t a b . (Lens.Labels.HasLens "dcomplexVal" f s t a b) => - Lens.Family2.LensLike f s t a b -dcomplexVal - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "dcomplexVal") - -doubleVal :: - forall f s t a b . (Lens.Labels.HasLens "doubleVal" f s t a b) => - Lens.Family2.LensLike f s t a b -doubleVal - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "doubleVal") - -dtype :: - forall f s t a b . (Lens.Labels.HasLens "dtype" f s t a b) => - Lens.Family2.LensLike f s t a b -dtype - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "dtype") - -floatVal :: - forall f s t a b . (Lens.Labels.HasLens "floatVal" f s t a b) => - Lens.Family2.LensLike f s t a b -floatVal - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "floatVal") - -halfVal :: - forall f s t a b . (Lens.Labels.HasLens "halfVal" f s t a b) => - Lens.Family2.LensLike f s t a b -halfVal - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "halfVal") - -int64Val :: - forall f s t a b . (Lens.Labels.HasLens "int64Val" f s t a b) => - Lens.Family2.LensLike f s t a b -int64Val - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "int64Val") - -intVal :: - forall f s t a b . (Lens.Labels.HasLens "intVal" f s t a b) => - Lens.Family2.LensLike f s t a b -intVal - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "intVal") - -maybe'tensorShape :: - forall f s t a b . - (Lens.Labels.HasLens "maybe'tensorShape" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'tensorShape - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'tensorShape") - -metadata :: - forall f s t a b . (Lens.Labels.HasLens "metadata" f s t a b) => - Lens.Family2.LensLike f s t a b -metadata - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "metadata") - -resourceHandleVal :: - forall f s t a b . - (Lens.Labels.HasLens "resourceHandleVal" f s t a b) => - Lens.Family2.LensLike f s t a b -resourceHandleVal - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "resourceHandleVal") - -scomplexVal :: - forall f s t a b . (Lens.Labels.HasLens "scomplexVal" f s t a b) => - Lens.Family2.LensLike f s t a b -scomplexVal - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "scomplexVal") - -stringVal :: - forall f s t a b . (Lens.Labels.HasLens "stringVal" f s t a b) => - Lens.Family2.LensLike f s t a b -stringVal - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "stringVal") - -tensorContent :: - forall f s t a b . - (Lens.Labels.HasLens "tensorContent" f s t a b) => - Lens.Family2.LensLike f s t a b -tensorContent - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "tensorContent") - -tensorShape :: - forall f s t a b . (Lens.Labels.HasLens "tensorShape" f s t a b) => - Lens.Family2.LensLike f s t a b -tensorShape - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "tensorShape") - -tensors :: - forall f s t a b . (Lens.Labels.HasLens "tensors" f s t a b) => - Lens.Family2.LensLike f s t a b -tensors - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "tensors") - -typeName :: - forall f s t a b . (Lens.Labels.HasLens "typeName" f s t a b) => - Lens.Family2.LensLike f s t a b -typeName - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "typeName") - -uint32Val :: - forall f s t a b . (Lens.Labels.HasLens "uint32Val" f s t a b) => - Lens.Family2.LensLike f s t a b -uint32Val - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "uint32Val") - -uint64Val :: - forall f s t a b . (Lens.Labels.HasLens "uint64Val" f s t a b) => - Lens.Family2.LensLike f s t a b -uint64Val - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "uint64Val") - -variantVal :: - forall f s t a b . (Lens.Labels.HasLens "variantVal" f s t a b) => - Lens.Family2.LensLike f s t a b -variantVal - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "variantVal") - -versionNumber :: - forall f s t a b . - (Lens.Labels.HasLens "versionNumber" f s t a b) => - Lens.Family2.LensLike f s t a b -versionNumber - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "versionNumber") diff --git a/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Framework/TensorDescription.hs b/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Framework/TensorDescription.hs deleted file mode 100644 --- a/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Framework/TensorDescription.hs +++ /dev/null @@ -1,202 +0,0 @@ -{- This file was auto-generated from tensorflow/core/framework/tensor_description.proto by the proto-lens-protoc program. -} -{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies, - UndecidableInstances, MultiParamTypeClasses, FlexibleContexts, - FlexibleInstances, PatternSynonyms, MagicHash, NoImplicitPrelude - #-} -{-# OPTIONS_GHC -fno-warn-unused-imports#-} -module Proto.Tensorflow.Core.Framework.TensorDescription where -import qualified Data.ProtoLens.Reexport.Prelude as Prelude -import qualified Data.ProtoLens.Reexport.Data.Int as Data.Int -import qualified Data.ProtoLens.Reexport.Data.Word as Data.Word -import qualified Data.ProtoLens.Reexport.Data.ProtoLens - as Data.ProtoLens -import qualified - Data.ProtoLens.Reexport.Data.ProtoLens.Message.Enum - as Data.ProtoLens.Message.Enum -import qualified Data.ProtoLens.Reexport.Lens.Family2 - as Lens.Family2 -import qualified Data.ProtoLens.Reexport.Lens.Family2.Unchecked - as Lens.Family2.Unchecked -import qualified Data.ProtoLens.Reexport.Data.Default.Class - as Data.Default.Class -import qualified Data.ProtoLens.Reexport.Data.Text as Data.Text -import qualified Data.ProtoLens.Reexport.Data.Map as Data.Map -import qualified Data.ProtoLens.Reexport.Data.ByteString - as Data.ByteString -import qualified Data.ProtoLens.Reexport.Lens.Labels as Lens.Labels -import qualified - Proto.Tensorflow.Core.Framework.AllocationDescription -import qualified Proto.Tensorflow.Core.Framework.TensorShape -import qualified Proto.Tensorflow.Core.Framework.Types - -data TensorDescription = TensorDescription{_TensorDescription'dtype - :: !Proto.Tensorflow.Core.Framework.Types.DataType, - _TensorDescription'shape :: - !(Prelude.Maybe - Proto.Tensorflow.Core.Framework.TensorShape.TensorShapeProto), - _TensorDescription'allocationDescription :: - !(Prelude.Maybe - Proto.Tensorflow.Core.Framework.AllocationDescription.AllocationDescription)} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Proto.Tensorflow.Core.Framework.Types.DataType, - b ~ Proto.Tensorflow.Core.Framework.Types.DataType, - Prelude.Functor f) => - Lens.Labels.HasLens "dtype" f TensorDescription TensorDescription a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _TensorDescription'dtype - (\ x__ y__ -> x__{_TensorDescription'dtype = y__})) - Prelude.id - -instance (a ~ - Proto.Tensorflow.Core.Framework.TensorShape.TensorShapeProto, - b ~ Proto.Tensorflow.Core.Framework.TensorShape.TensorShapeProto, - Prelude.Functor f) => - Lens.Labels.HasLens "shape" f TensorDescription TensorDescription a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _TensorDescription'shape - (\ x__ y__ -> x__{_TensorDescription'shape = y__})) - (Data.ProtoLens.maybeLens Data.Default.Class.def) - -instance (a ~ - Prelude.Maybe - Proto.Tensorflow.Core.Framework.TensorShape.TensorShapeProto, - b ~ - Prelude.Maybe - Proto.Tensorflow.Core.Framework.TensorShape.TensorShapeProto, - Prelude.Functor f) => - Lens.Labels.HasLens "maybe'shape" f TensorDescription - TensorDescription - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _TensorDescription'shape - (\ x__ y__ -> x__{_TensorDescription'shape = y__})) - Prelude.id - -instance (a ~ - Proto.Tensorflow.Core.Framework.AllocationDescription.AllocationDescription, - b ~ - Proto.Tensorflow.Core.Framework.AllocationDescription.AllocationDescription, - Prelude.Functor f) => - Lens.Labels.HasLens "allocationDescription" f TensorDescription - TensorDescription - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _TensorDescription'allocationDescription - (\ x__ y__ -> x__{_TensorDescription'allocationDescription = y__})) - (Data.ProtoLens.maybeLens Data.Default.Class.def) - -instance (a ~ - Prelude.Maybe - Proto.Tensorflow.Core.Framework.AllocationDescription.AllocationDescription, - b ~ - Prelude.Maybe - Proto.Tensorflow.Core.Framework.AllocationDescription.AllocationDescription, - Prelude.Functor f) => - Lens.Labels.HasLens "maybe'allocationDescription" f - TensorDescription - TensorDescription - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _TensorDescription'allocationDescription - (\ x__ y__ -> x__{_TensorDescription'allocationDescription = y__})) - Prelude.id - -instance Data.Default.Class.Default TensorDescription where - def - = TensorDescription{_TensorDescription'dtype = - Data.Default.Class.def, - _TensorDescription'shape = Prelude.Nothing, - _TensorDescription'allocationDescription = Prelude.Nothing} - -instance Data.ProtoLens.Message TensorDescription where - descriptor - = let dtype__field_descriptor - = Data.ProtoLens.FieldDescriptor "dtype" - (Data.ProtoLens.EnumField :: - Data.ProtoLens.FieldTypeDescriptor - Proto.Tensorflow.Core.Framework.Types.DataType) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional dtype) - :: Data.ProtoLens.FieldDescriptor TensorDescription - shape__field_descriptor - = Data.ProtoLens.FieldDescriptor "shape" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor - Proto.Tensorflow.Core.Framework.TensorShape.TensorShapeProto) - (Data.ProtoLens.OptionalField maybe'shape) - :: Data.ProtoLens.FieldDescriptor TensorDescription - allocationDescription__field_descriptor - = Data.ProtoLens.FieldDescriptor "allocation_description" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor - Proto.Tensorflow.Core.Framework.AllocationDescription.AllocationDescription) - (Data.ProtoLens.OptionalField maybe'allocationDescription) - :: Data.ProtoLens.FieldDescriptor TensorDescription - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.TensorDescription") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, dtype__field_descriptor), - (Data.ProtoLens.Tag 2, shape__field_descriptor), - (Data.ProtoLens.Tag 4, allocationDescription__field_descriptor)]) - (Data.Map.fromList - [("dtype", dtype__field_descriptor), - ("shape", shape__field_descriptor), - ("allocation_description", - allocationDescription__field_descriptor)]) - -allocationDescription :: - forall f s t a b . - (Lens.Labels.HasLens "allocationDescription" f s t a b) => - Lens.Family2.LensLike f s t a b -allocationDescription - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: - (Lens.Labels.Proxy#) "allocationDescription") - -dtype :: - forall f s t a b . (Lens.Labels.HasLens "dtype" f s t a b) => - Lens.Family2.LensLike f s t a b -dtype - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "dtype") - -maybe'allocationDescription :: - forall f s t a b . - (Lens.Labels.HasLens "maybe'allocationDescription" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'allocationDescription - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: - (Lens.Labels.Proxy#) "maybe'allocationDescription") - -maybe'shape :: - forall f s t a b . (Lens.Labels.HasLens "maybe'shape" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'shape - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'shape") - -shape :: - forall f s t a b . (Lens.Labels.HasLens "shape" f s t a b) => - Lens.Family2.LensLike f s t a b -shape - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "shape") diff --git a/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Framework/TensorShape.hs b/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Framework/TensorShape.hs deleted file mode 100644 --- a/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Framework/TensorShape.hs +++ /dev/null @@ -1,171 +0,0 @@ -{- This file was auto-generated from tensorflow/core/framework/tensor_shape.proto by the proto-lens-protoc program. -} -{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies, - UndecidableInstances, MultiParamTypeClasses, FlexibleContexts, - FlexibleInstances, PatternSynonyms, MagicHash, NoImplicitPrelude - #-} -{-# OPTIONS_GHC -fno-warn-unused-imports#-} -module Proto.Tensorflow.Core.Framework.TensorShape where -import qualified Data.ProtoLens.Reexport.Prelude as Prelude -import qualified Data.ProtoLens.Reexport.Data.Int as Data.Int -import qualified Data.ProtoLens.Reexport.Data.Word as Data.Word -import qualified Data.ProtoLens.Reexport.Data.ProtoLens - as Data.ProtoLens -import qualified - Data.ProtoLens.Reexport.Data.ProtoLens.Message.Enum - as Data.ProtoLens.Message.Enum -import qualified Data.ProtoLens.Reexport.Lens.Family2 - as Lens.Family2 -import qualified Data.ProtoLens.Reexport.Lens.Family2.Unchecked - as Lens.Family2.Unchecked -import qualified Data.ProtoLens.Reexport.Data.Default.Class - as Data.Default.Class -import qualified Data.ProtoLens.Reexport.Data.Text as Data.Text -import qualified Data.ProtoLens.Reexport.Data.Map as Data.Map -import qualified Data.ProtoLens.Reexport.Data.ByteString - as Data.ByteString -import qualified Data.ProtoLens.Reexport.Lens.Labels as Lens.Labels - -data TensorShapeProto = TensorShapeProto{_TensorShapeProto'dim :: - ![TensorShapeProto'Dim], - _TensorShapeProto'unknownRank :: !Prelude.Bool} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ [TensorShapeProto'Dim], b ~ [TensorShapeProto'Dim], - Prelude.Functor f) => - Lens.Labels.HasLens "dim" f TensorShapeProto TensorShapeProto a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _TensorShapeProto'dim - (\ x__ y__ -> x__{_TensorShapeProto'dim = y__})) - Prelude.id - -instance (a ~ Prelude.Bool, b ~ Prelude.Bool, Prelude.Functor f) => - Lens.Labels.HasLens "unknownRank" f TensorShapeProto - TensorShapeProto - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _TensorShapeProto'unknownRank - (\ x__ y__ -> x__{_TensorShapeProto'unknownRank = y__})) - Prelude.id - -instance Data.Default.Class.Default TensorShapeProto where - def - = TensorShapeProto{_TensorShapeProto'dim = [], - _TensorShapeProto'unknownRank = Data.ProtoLens.fieldDefault} - -instance Data.ProtoLens.Message TensorShapeProto where - descriptor - = let dim__field_descriptor - = Data.ProtoLens.FieldDescriptor "dim" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor TensorShapeProto'Dim) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked dim) - :: Data.ProtoLens.FieldDescriptor TensorShapeProto - unknownRank__field_descriptor - = Data.ProtoLens.FieldDescriptor "unknown_rank" - (Data.ProtoLens.BoolField :: - Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional unknownRank) - :: Data.ProtoLens.FieldDescriptor TensorShapeProto - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.TensorShapeProto") - (Data.Map.fromList - [(Data.ProtoLens.Tag 2, dim__field_descriptor), - (Data.ProtoLens.Tag 3, unknownRank__field_descriptor)]) - (Data.Map.fromList - [("dim", dim__field_descriptor), - ("unknown_rank", unknownRank__field_descriptor)]) - -data TensorShapeProto'Dim = TensorShapeProto'Dim{_TensorShapeProto'Dim'size - :: !Data.Int.Int64, - _TensorShapeProto'Dim'name :: !Data.Text.Text} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Data.Int.Int64, b ~ Data.Int.Int64, - Prelude.Functor f) => - Lens.Labels.HasLens "size" f TensorShapeProto'Dim - TensorShapeProto'Dim - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _TensorShapeProto'Dim'size - (\ x__ y__ -> x__{_TensorShapeProto'Dim'size = y__})) - Prelude.id - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "name" f TensorShapeProto'Dim - TensorShapeProto'Dim - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _TensorShapeProto'Dim'name - (\ x__ y__ -> x__{_TensorShapeProto'Dim'name = y__})) - Prelude.id - -instance Data.Default.Class.Default TensorShapeProto'Dim where - def - = TensorShapeProto'Dim{_TensorShapeProto'Dim'size = - Data.ProtoLens.fieldDefault, - _TensorShapeProto'Dim'name = Data.ProtoLens.fieldDefault} - -instance Data.ProtoLens.Message TensorShapeProto'Dim where - descriptor - = let size__field_descriptor - = Data.ProtoLens.FieldDescriptor "size" - (Data.ProtoLens.Int64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional size) - :: Data.ProtoLens.FieldDescriptor TensorShapeProto'Dim - name__field_descriptor - = Data.ProtoLens.FieldDescriptor "name" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional name) - :: Data.ProtoLens.FieldDescriptor TensorShapeProto'Dim - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.TensorShapeProto.Dim") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, size__field_descriptor), - (Data.ProtoLens.Tag 2, name__field_descriptor)]) - (Data.Map.fromList - [("size", size__field_descriptor), - ("name", name__field_descriptor)]) - -dim :: - forall f s t a b . (Lens.Labels.HasLens "dim" f s t a b) => - Lens.Family2.LensLike f s t a b -dim - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "dim") - -name :: - forall f s t a b . (Lens.Labels.HasLens "name" f s t a b) => - Lens.Family2.LensLike f s t a b -name - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "name") - -size :: - forall f s t a b . (Lens.Labels.HasLens "size" f s t a b) => - Lens.Family2.LensLike f s t a b -size - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "size") - -unknownRank :: - forall f s t a b . (Lens.Labels.HasLens "unknownRank" f s t a b) => - Lens.Family2.LensLike f s t a b -unknownRank - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "unknownRank") diff --git a/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Framework/TensorSlice.hs b/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Framework/TensorSlice.hs deleted file mode 100644 --- a/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Framework/TensorSlice.hs +++ /dev/null @@ -1,203 +0,0 @@ -{- This file was auto-generated from tensorflow/core/framework/tensor_slice.proto by the proto-lens-protoc program. -} -{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies, - UndecidableInstances, MultiParamTypeClasses, FlexibleContexts, - FlexibleInstances, PatternSynonyms, MagicHash, NoImplicitPrelude - #-} -{-# OPTIONS_GHC -fno-warn-unused-imports#-} -module Proto.Tensorflow.Core.Framework.TensorSlice where -import qualified Data.ProtoLens.Reexport.Prelude as Prelude -import qualified Data.ProtoLens.Reexport.Data.Int as Data.Int -import qualified Data.ProtoLens.Reexport.Data.Word as Data.Word -import qualified Data.ProtoLens.Reexport.Data.ProtoLens - as Data.ProtoLens -import qualified - Data.ProtoLens.Reexport.Data.ProtoLens.Message.Enum - as Data.ProtoLens.Message.Enum -import qualified Data.ProtoLens.Reexport.Lens.Family2 - as Lens.Family2 -import qualified Data.ProtoLens.Reexport.Lens.Family2.Unchecked - as Lens.Family2.Unchecked -import qualified Data.ProtoLens.Reexport.Data.Default.Class - as Data.Default.Class -import qualified Data.ProtoLens.Reexport.Data.Text as Data.Text -import qualified Data.ProtoLens.Reexport.Data.Map as Data.Map -import qualified Data.ProtoLens.Reexport.Data.ByteString - as Data.ByteString -import qualified Data.ProtoLens.Reexport.Lens.Labels as Lens.Labels - -data TensorSliceProto = TensorSliceProto{_TensorSliceProto'extent - :: ![TensorSliceProto'Extent]} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ [TensorSliceProto'Extent], - b ~ [TensorSliceProto'Extent], Prelude.Functor f) => - Lens.Labels.HasLens "extent" f TensorSliceProto TensorSliceProto a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _TensorSliceProto'extent - (\ x__ y__ -> x__{_TensorSliceProto'extent = y__})) - Prelude.id - -instance Data.Default.Class.Default TensorSliceProto where - def = TensorSliceProto{_TensorSliceProto'extent = []} - -instance Data.ProtoLens.Message TensorSliceProto where - descriptor - = let extent__field_descriptor - = Data.ProtoLens.FieldDescriptor "extent" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor TensorSliceProto'Extent) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked extent) - :: Data.ProtoLens.FieldDescriptor TensorSliceProto - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.TensorSliceProto") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, extent__field_descriptor)]) - (Data.Map.fromList [("extent", extent__field_descriptor)]) - -data TensorSliceProto'Extent = TensorSliceProto'Extent{_TensorSliceProto'Extent'start - :: !Data.Int.Int64, - _TensorSliceProto'Extent'hasLength :: - !(Prelude.Maybe - TensorSliceProto'Extent'HasLength)} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -data TensorSliceProto'Extent'HasLength = TensorSliceProto'Extent'Length !Data.Int.Int64 - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Data.Int.Int64, b ~ Data.Int.Int64, - Prelude.Functor f) => - Lens.Labels.HasLens "start" f TensorSliceProto'Extent - TensorSliceProto'Extent - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _TensorSliceProto'Extent'start - (\ x__ y__ -> x__{_TensorSliceProto'Extent'start = y__})) - Prelude.id - -instance (a ~ Prelude.Maybe TensorSliceProto'Extent'HasLength, - b ~ Prelude.Maybe TensorSliceProto'Extent'HasLength, - Prelude.Functor f) => - Lens.Labels.HasLens "maybe'hasLength" f TensorSliceProto'Extent - TensorSliceProto'Extent - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _TensorSliceProto'Extent'hasLength - (\ x__ y__ -> x__{_TensorSliceProto'Extent'hasLength = y__})) - Prelude.id - -instance (a ~ Prelude.Maybe Data.Int.Int64, - b ~ Prelude.Maybe Data.Int.Int64, Prelude.Functor f) => - Lens.Labels.HasLens "maybe'length" f TensorSliceProto'Extent - TensorSliceProto'Extent - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _TensorSliceProto'Extent'hasLength - (\ x__ y__ -> x__{_TensorSliceProto'Extent'hasLength = y__})) - (Lens.Family2.Unchecked.lens - (\ x__ -> - case x__ of - Prelude.Just - (TensorSliceProto'Extent'Length x__val) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap TensorSliceProto'Extent'Length y__)) - -instance (a ~ Data.Int.Int64, b ~ Data.Int.Int64, - Prelude.Functor f) => - Lens.Labels.HasLens "length" f TensorSliceProto'Extent - TensorSliceProto'Extent - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _TensorSliceProto'Extent'hasLength - (\ x__ y__ -> x__{_TensorSliceProto'Extent'hasLength = y__})) - ((Prelude..) - (Lens.Family2.Unchecked.lens - (\ x__ -> - case x__ of - Prelude.Just - (TensorSliceProto'Extent'Length x__val) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap TensorSliceProto'Extent'Length y__)) - (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)) - -instance Data.Default.Class.Default TensorSliceProto'Extent where - def - = TensorSliceProto'Extent{_TensorSliceProto'Extent'start = - Data.ProtoLens.fieldDefault, - _TensorSliceProto'Extent'hasLength = Prelude.Nothing} - -instance Data.ProtoLens.Message TensorSliceProto'Extent where - descriptor - = let start__field_descriptor - = Data.ProtoLens.FieldDescriptor "start" - (Data.ProtoLens.Int64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional start) - :: Data.ProtoLens.FieldDescriptor TensorSliceProto'Extent - length__field_descriptor - = Data.ProtoLens.FieldDescriptor "length" - (Data.ProtoLens.Int64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) - (Data.ProtoLens.OptionalField maybe'length) - :: Data.ProtoLens.FieldDescriptor TensorSliceProto'Extent - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.TensorSliceProto.Extent") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, start__field_descriptor), - (Data.ProtoLens.Tag 2, length__field_descriptor)]) - (Data.Map.fromList - [("start", start__field_descriptor), - ("length", length__field_descriptor)]) - -extent :: - forall f s t a b . (Lens.Labels.HasLens "extent" f s t a b) => - Lens.Family2.LensLike f s t a b -extent - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "extent") - -length :: - forall f s t a b . (Lens.Labels.HasLens "length" f s t a b) => - Lens.Family2.LensLike f s t a b -length - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "length") - -maybe'hasLength :: - forall f s t a b . - (Lens.Labels.HasLens "maybe'hasLength" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'hasLength - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'hasLength") - -maybe'length :: - forall f s t a b . - (Lens.Labels.HasLens "maybe'length" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'length - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'length") - -start :: - forall f s t a b . (Lens.Labels.HasLens "start" f s t a b) => - Lens.Family2.LensLike f s t a b -start - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "start") diff --git a/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Framework/Types.hs b/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Framework/Types.hs deleted file mode 100644 --- a/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Framework/Types.hs +++ /dev/null @@ -1,388 +0,0 @@ -{- This file was auto-generated from tensorflow/core/framework/types.proto by the proto-lens-protoc program. -} -{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies, - UndecidableInstances, MultiParamTypeClasses, FlexibleContexts, - FlexibleInstances, PatternSynonyms, MagicHash, NoImplicitPrelude - #-} -{-# OPTIONS_GHC -fno-warn-unused-imports#-} -module Proto.Tensorflow.Core.Framework.Types where -import qualified Data.ProtoLens.Reexport.Prelude as Prelude -import qualified Data.ProtoLens.Reexport.Data.Int as Data.Int -import qualified Data.ProtoLens.Reexport.Data.Word as Data.Word -import qualified Data.ProtoLens.Reexport.Data.ProtoLens - as Data.ProtoLens -import qualified - Data.ProtoLens.Reexport.Data.ProtoLens.Message.Enum - as Data.ProtoLens.Message.Enum -import qualified Data.ProtoLens.Reexport.Lens.Family2 - as Lens.Family2 -import qualified Data.ProtoLens.Reexport.Lens.Family2.Unchecked - as Lens.Family2.Unchecked -import qualified Data.ProtoLens.Reexport.Data.Default.Class - as Data.Default.Class -import qualified Data.ProtoLens.Reexport.Data.Text as Data.Text -import qualified Data.ProtoLens.Reexport.Data.Map as Data.Map -import qualified Data.ProtoLens.Reexport.Data.ByteString - as Data.ByteString -import qualified Data.ProtoLens.Reexport.Lens.Labels as Lens.Labels - -data DataType = DT_INVALID - | DT_FLOAT - | DT_DOUBLE - | DT_INT32 - | DT_UINT8 - | DT_INT16 - | DT_INT8 - | DT_STRING - | DT_COMPLEX64 - | DT_INT64 - | DT_BOOL - | DT_QINT8 - | DT_QUINT8 - | DT_QINT32 - | DT_BFLOAT16 - | DT_QINT16 - | DT_QUINT16 - | DT_UINT16 - | DT_COMPLEX128 - | DT_HALF - | DT_RESOURCE - | DT_VARIANT - | DT_UINT32 - | DT_UINT64 - | DT_FLOAT_REF - | DT_DOUBLE_REF - | DT_INT32_REF - | DT_UINT8_REF - | DT_INT16_REF - | DT_INT8_REF - | DT_STRING_REF - | DT_COMPLEX64_REF - | DT_INT64_REF - | DT_BOOL_REF - | DT_QINT8_REF - | DT_QUINT8_REF - | DT_QINT32_REF - | DT_BFLOAT16_REF - | DT_QINT16_REF - | DT_QUINT16_REF - | DT_UINT16_REF - | DT_COMPLEX128_REF - | DT_HALF_REF - | DT_RESOURCE_REF - | DT_VARIANT_REF - | DT_UINT32_REF - | DT_UINT64_REF - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance Data.Default.Class.Default DataType where - def = DT_INVALID - -instance Data.ProtoLens.FieldDefault DataType where - fieldDefault = DT_INVALID - -instance Data.ProtoLens.MessageEnum DataType where - maybeToEnum 0 = Prelude.Just DT_INVALID - maybeToEnum 1 = Prelude.Just DT_FLOAT - maybeToEnum 2 = Prelude.Just DT_DOUBLE - maybeToEnum 3 = Prelude.Just DT_INT32 - maybeToEnum 4 = Prelude.Just DT_UINT8 - maybeToEnum 5 = Prelude.Just DT_INT16 - maybeToEnum 6 = Prelude.Just DT_INT8 - maybeToEnum 7 = Prelude.Just DT_STRING - maybeToEnum 8 = Prelude.Just DT_COMPLEX64 - maybeToEnum 9 = Prelude.Just DT_INT64 - maybeToEnum 10 = Prelude.Just DT_BOOL - maybeToEnum 11 = Prelude.Just DT_QINT8 - maybeToEnum 12 = Prelude.Just DT_QUINT8 - maybeToEnum 13 = Prelude.Just DT_QINT32 - maybeToEnum 14 = Prelude.Just DT_BFLOAT16 - maybeToEnum 15 = Prelude.Just DT_QINT16 - maybeToEnum 16 = Prelude.Just DT_QUINT16 - maybeToEnum 17 = Prelude.Just DT_UINT16 - maybeToEnum 18 = Prelude.Just DT_COMPLEX128 - maybeToEnum 19 = Prelude.Just DT_HALF - maybeToEnum 20 = Prelude.Just DT_RESOURCE - maybeToEnum 21 = Prelude.Just DT_VARIANT - maybeToEnum 22 = Prelude.Just DT_UINT32 - maybeToEnum 23 = Prelude.Just DT_UINT64 - maybeToEnum 101 = Prelude.Just DT_FLOAT_REF - maybeToEnum 102 = Prelude.Just DT_DOUBLE_REF - maybeToEnum 103 = Prelude.Just DT_INT32_REF - maybeToEnum 104 = Prelude.Just DT_UINT8_REF - maybeToEnum 105 = Prelude.Just DT_INT16_REF - maybeToEnum 106 = Prelude.Just DT_INT8_REF - maybeToEnum 107 = Prelude.Just DT_STRING_REF - maybeToEnum 108 = Prelude.Just DT_COMPLEX64_REF - maybeToEnum 109 = Prelude.Just DT_INT64_REF - maybeToEnum 110 = Prelude.Just DT_BOOL_REF - maybeToEnum 111 = Prelude.Just DT_QINT8_REF - maybeToEnum 112 = Prelude.Just DT_QUINT8_REF - maybeToEnum 113 = Prelude.Just DT_QINT32_REF - maybeToEnum 114 = Prelude.Just DT_BFLOAT16_REF - maybeToEnum 115 = Prelude.Just DT_QINT16_REF - maybeToEnum 116 = Prelude.Just DT_QUINT16_REF - maybeToEnum 117 = Prelude.Just DT_UINT16_REF - maybeToEnum 118 = Prelude.Just DT_COMPLEX128_REF - maybeToEnum 119 = Prelude.Just DT_HALF_REF - maybeToEnum 120 = Prelude.Just DT_RESOURCE_REF - maybeToEnum 121 = Prelude.Just DT_VARIANT_REF - maybeToEnum 122 = Prelude.Just DT_UINT32_REF - maybeToEnum 123 = Prelude.Just DT_UINT64_REF - maybeToEnum _ = Prelude.Nothing - showEnum DT_INVALID = "DT_INVALID" - showEnum DT_FLOAT = "DT_FLOAT" - showEnum DT_DOUBLE = "DT_DOUBLE" - showEnum DT_INT32 = "DT_INT32" - showEnum DT_UINT8 = "DT_UINT8" - showEnum DT_INT16 = "DT_INT16" - showEnum DT_INT8 = "DT_INT8" - showEnum DT_STRING = "DT_STRING" - showEnum DT_COMPLEX64 = "DT_COMPLEX64" - showEnum DT_INT64 = "DT_INT64" - showEnum DT_BOOL = "DT_BOOL" - showEnum DT_QINT8 = "DT_QINT8" - showEnum DT_QUINT8 = "DT_QUINT8" - showEnum DT_QINT32 = "DT_QINT32" - showEnum DT_BFLOAT16 = "DT_BFLOAT16" - showEnum DT_QINT16 = "DT_QINT16" - showEnum DT_QUINT16 = "DT_QUINT16" - showEnum DT_UINT16 = "DT_UINT16" - showEnum DT_COMPLEX128 = "DT_COMPLEX128" - showEnum DT_HALF = "DT_HALF" - showEnum DT_RESOURCE = "DT_RESOURCE" - showEnum DT_VARIANT = "DT_VARIANT" - showEnum DT_UINT32 = "DT_UINT32" - showEnum DT_UINT64 = "DT_UINT64" - showEnum DT_FLOAT_REF = "DT_FLOAT_REF" - showEnum DT_DOUBLE_REF = "DT_DOUBLE_REF" - showEnum DT_INT32_REF = "DT_INT32_REF" - showEnum DT_UINT8_REF = "DT_UINT8_REF" - showEnum DT_INT16_REF = "DT_INT16_REF" - showEnum DT_INT8_REF = "DT_INT8_REF" - showEnum DT_STRING_REF = "DT_STRING_REF" - showEnum DT_COMPLEX64_REF = "DT_COMPLEX64_REF" - showEnum DT_INT64_REF = "DT_INT64_REF" - showEnum DT_BOOL_REF = "DT_BOOL_REF" - showEnum DT_QINT8_REF = "DT_QINT8_REF" - showEnum DT_QUINT8_REF = "DT_QUINT8_REF" - showEnum DT_QINT32_REF = "DT_QINT32_REF" - showEnum DT_BFLOAT16_REF = "DT_BFLOAT16_REF" - showEnum DT_QINT16_REF = "DT_QINT16_REF" - showEnum DT_QUINT16_REF = "DT_QUINT16_REF" - showEnum DT_UINT16_REF = "DT_UINT16_REF" - showEnum DT_COMPLEX128_REF = "DT_COMPLEX128_REF" - showEnum DT_HALF_REF = "DT_HALF_REF" - showEnum DT_RESOURCE_REF = "DT_RESOURCE_REF" - showEnum DT_VARIANT_REF = "DT_VARIANT_REF" - showEnum DT_UINT32_REF = "DT_UINT32_REF" - showEnum DT_UINT64_REF = "DT_UINT64_REF" - readEnum "DT_INVALID" = Prelude.Just DT_INVALID - readEnum "DT_FLOAT" = Prelude.Just DT_FLOAT - readEnum "DT_DOUBLE" = Prelude.Just DT_DOUBLE - readEnum "DT_INT32" = Prelude.Just DT_INT32 - readEnum "DT_UINT8" = Prelude.Just DT_UINT8 - readEnum "DT_INT16" = Prelude.Just DT_INT16 - readEnum "DT_INT8" = Prelude.Just DT_INT8 - readEnum "DT_STRING" = Prelude.Just DT_STRING - readEnum "DT_COMPLEX64" = Prelude.Just DT_COMPLEX64 - readEnum "DT_INT64" = Prelude.Just DT_INT64 - readEnum "DT_BOOL" = Prelude.Just DT_BOOL - readEnum "DT_QINT8" = Prelude.Just DT_QINT8 - readEnum "DT_QUINT8" = Prelude.Just DT_QUINT8 - readEnum "DT_QINT32" = Prelude.Just DT_QINT32 - readEnum "DT_BFLOAT16" = Prelude.Just DT_BFLOAT16 - readEnum "DT_QINT16" = Prelude.Just DT_QINT16 - readEnum "DT_QUINT16" = Prelude.Just DT_QUINT16 - readEnum "DT_UINT16" = Prelude.Just DT_UINT16 - readEnum "DT_COMPLEX128" = Prelude.Just DT_COMPLEX128 - readEnum "DT_HALF" = Prelude.Just DT_HALF - readEnum "DT_RESOURCE" = Prelude.Just DT_RESOURCE - readEnum "DT_VARIANT" = Prelude.Just DT_VARIANT - readEnum "DT_UINT32" = Prelude.Just DT_UINT32 - readEnum "DT_UINT64" = Prelude.Just DT_UINT64 - readEnum "DT_FLOAT_REF" = Prelude.Just DT_FLOAT_REF - readEnum "DT_DOUBLE_REF" = Prelude.Just DT_DOUBLE_REF - readEnum "DT_INT32_REF" = Prelude.Just DT_INT32_REF - readEnum "DT_UINT8_REF" = Prelude.Just DT_UINT8_REF - readEnum "DT_INT16_REF" = Prelude.Just DT_INT16_REF - readEnum "DT_INT8_REF" = Prelude.Just DT_INT8_REF - readEnum "DT_STRING_REF" = Prelude.Just DT_STRING_REF - readEnum "DT_COMPLEX64_REF" = Prelude.Just DT_COMPLEX64_REF - readEnum "DT_INT64_REF" = Prelude.Just DT_INT64_REF - readEnum "DT_BOOL_REF" = Prelude.Just DT_BOOL_REF - readEnum "DT_QINT8_REF" = Prelude.Just DT_QINT8_REF - readEnum "DT_QUINT8_REF" = Prelude.Just DT_QUINT8_REF - readEnum "DT_QINT32_REF" = Prelude.Just DT_QINT32_REF - readEnum "DT_BFLOAT16_REF" = Prelude.Just DT_BFLOAT16_REF - readEnum "DT_QINT16_REF" = Prelude.Just DT_QINT16_REF - readEnum "DT_QUINT16_REF" = Prelude.Just DT_QUINT16_REF - readEnum "DT_UINT16_REF" = Prelude.Just DT_UINT16_REF - readEnum "DT_COMPLEX128_REF" = Prelude.Just DT_COMPLEX128_REF - readEnum "DT_HALF_REF" = Prelude.Just DT_HALF_REF - readEnum "DT_RESOURCE_REF" = Prelude.Just DT_RESOURCE_REF - readEnum "DT_VARIANT_REF" = Prelude.Just DT_VARIANT_REF - readEnum "DT_UINT32_REF" = Prelude.Just DT_UINT32_REF - readEnum "DT_UINT64_REF" = Prelude.Just DT_UINT64_REF - readEnum _ = Prelude.Nothing - -instance Prelude.Enum DataType where - toEnum k__ - = Prelude.maybe - (Prelude.error - ((Prelude.++) "toEnum: unknown value for enum DataType: " - (Prelude.show k__))) - Prelude.id - (Data.ProtoLens.maybeToEnum k__) - fromEnum DT_INVALID = 0 - fromEnum DT_FLOAT = 1 - fromEnum DT_DOUBLE = 2 - fromEnum DT_INT32 = 3 - fromEnum DT_UINT8 = 4 - fromEnum DT_INT16 = 5 - fromEnum DT_INT8 = 6 - fromEnum DT_STRING = 7 - fromEnum DT_COMPLEX64 = 8 - fromEnum DT_INT64 = 9 - fromEnum DT_BOOL = 10 - fromEnum DT_QINT8 = 11 - fromEnum DT_QUINT8 = 12 - fromEnum DT_QINT32 = 13 - fromEnum DT_BFLOAT16 = 14 - fromEnum DT_QINT16 = 15 - fromEnum DT_QUINT16 = 16 - fromEnum DT_UINT16 = 17 - fromEnum DT_COMPLEX128 = 18 - fromEnum DT_HALF = 19 - fromEnum DT_RESOURCE = 20 - fromEnum DT_VARIANT = 21 - fromEnum DT_UINT32 = 22 - fromEnum DT_UINT64 = 23 - fromEnum DT_FLOAT_REF = 101 - fromEnum DT_DOUBLE_REF = 102 - fromEnum DT_INT32_REF = 103 - fromEnum DT_UINT8_REF = 104 - fromEnum DT_INT16_REF = 105 - fromEnum DT_INT8_REF = 106 - fromEnum DT_STRING_REF = 107 - fromEnum DT_COMPLEX64_REF = 108 - fromEnum DT_INT64_REF = 109 - fromEnum DT_BOOL_REF = 110 - fromEnum DT_QINT8_REF = 111 - fromEnum DT_QUINT8_REF = 112 - fromEnum DT_QINT32_REF = 113 - fromEnum DT_BFLOAT16_REF = 114 - fromEnum DT_QINT16_REF = 115 - fromEnum DT_QUINT16_REF = 116 - fromEnum DT_UINT16_REF = 117 - fromEnum DT_COMPLEX128_REF = 118 - fromEnum DT_HALF_REF = 119 - fromEnum DT_RESOURCE_REF = 120 - fromEnum DT_VARIANT_REF = 121 - fromEnum DT_UINT32_REF = 122 - fromEnum DT_UINT64_REF = 123 - succ DT_UINT64_REF - = Prelude.error - "DataType.succ: bad argument DT_UINT64_REF. This value would be out of bounds." - succ DT_INVALID = DT_FLOAT - succ DT_FLOAT = DT_DOUBLE - succ DT_DOUBLE = DT_INT32 - succ DT_INT32 = DT_UINT8 - succ DT_UINT8 = DT_INT16 - succ DT_INT16 = DT_INT8 - succ DT_INT8 = DT_STRING - succ DT_STRING = DT_COMPLEX64 - succ DT_COMPLEX64 = DT_INT64 - succ DT_INT64 = DT_BOOL - succ DT_BOOL = DT_QINT8 - succ DT_QINT8 = DT_QUINT8 - succ DT_QUINT8 = DT_QINT32 - succ DT_QINT32 = DT_BFLOAT16 - succ DT_BFLOAT16 = DT_QINT16 - succ DT_QINT16 = DT_QUINT16 - succ DT_QUINT16 = DT_UINT16 - succ DT_UINT16 = DT_COMPLEX128 - succ DT_COMPLEX128 = DT_HALF - succ DT_HALF = DT_RESOURCE - succ DT_RESOURCE = DT_VARIANT - succ DT_VARIANT = DT_UINT32 - succ DT_UINT32 = DT_UINT64 - succ DT_UINT64 = DT_FLOAT_REF - succ DT_FLOAT_REF = DT_DOUBLE_REF - succ DT_DOUBLE_REF = DT_INT32_REF - succ DT_INT32_REF = DT_UINT8_REF - succ DT_UINT8_REF = DT_INT16_REF - succ DT_INT16_REF = DT_INT8_REF - succ DT_INT8_REF = DT_STRING_REF - succ DT_STRING_REF = DT_COMPLEX64_REF - succ DT_COMPLEX64_REF = DT_INT64_REF - succ DT_INT64_REF = DT_BOOL_REF - succ DT_BOOL_REF = DT_QINT8_REF - succ DT_QINT8_REF = DT_QUINT8_REF - succ DT_QUINT8_REF = DT_QINT32_REF - succ DT_QINT32_REF = DT_BFLOAT16_REF - succ DT_BFLOAT16_REF = DT_QINT16_REF - succ DT_QINT16_REF = DT_QUINT16_REF - succ DT_QUINT16_REF = DT_UINT16_REF - succ DT_UINT16_REF = DT_COMPLEX128_REF - succ DT_COMPLEX128_REF = DT_HALF_REF - succ DT_HALF_REF = DT_RESOURCE_REF - succ DT_RESOURCE_REF = DT_VARIANT_REF - succ DT_VARIANT_REF = DT_UINT32_REF - succ DT_UINT32_REF = DT_UINT64_REF - pred DT_INVALID - = Prelude.error - "DataType.pred: bad argument DT_INVALID. This value would be out of bounds." - pred DT_FLOAT = DT_INVALID - pred DT_DOUBLE = DT_FLOAT - pred DT_INT32 = DT_DOUBLE - pred DT_UINT8 = DT_INT32 - pred DT_INT16 = DT_UINT8 - pred DT_INT8 = DT_INT16 - pred DT_STRING = DT_INT8 - pred DT_COMPLEX64 = DT_STRING - pred DT_INT64 = DT_COMPLEX64 - pred DT_BOOL = DT_INT64 - pred DT_QINT8 = DT_BOOL - pred DT_QUINT8 = DT_QINT8 - pred DT_QINT32 = DT_QUINT8 - pred DT_BFLOAT16 = DT_QINT32 - pred DT_QINT16 = DT_BFLOAT16 - pred DT_QUINT16 = DT_QINT16 - pred DT_UINT16 = DT_QUINT16 - pred DT_COMPLEX128 = DT_UINT16 - pred DT_HALF = DT_COMPLEX128 - pred DT_RESOURCE = DT_HALF - pred DT_VARIANT = DT_RESOURCE - pred DT_UINT32 = DT_VARIANT - pred DT_UINT64 = DT_UINT32 - pred DT_FLOAT_REF = DT_UINT64 - pred DT_DOUBLE_REF = DT_FLOAT_REF - pred DT_INT32_REF = DT_DOUBLE_REF - pred DT_UINT8_REF = DT_INT32_REF - pred DT_INT16_REF = DT_UINT8_REF - pred DT_INT8_REF = DT_INT16_REF - pred DT_STRING_REF = DT_INT8_REF - pred DT_COMPLEX64_REF = DT_STRING_REF - pred DT_INT64_REF = DT_COMPLEX64_REF - pred DT_BOOL_REF = DT_INT64_REF - pred DT_QINT8_REF = DT_BOOL_REF - pred DT_QUINT8_REF = DT_QINT8_REF - pred DT_QINT32_REF = DT_QUINT8_REF - pred DT_BFLOAT16_REF = DT_QINT32_REF - pred DT_QINT16_REF = DT_BFLOAT16_REF - pred DT_QUINT16_REF = DT_QINT16_REF - pred DT_UINT16_REF = DT_QUINT16_REF - pred DT_COMPLEX128_REF = DT_UINT16_REF - pred DT_HALF_REF = DT_COMPLEX128_REF - pred DT_RESOURCE_REF = DT_HALF_REF - pred DT_VARIANT_REF = DT_RESOURCE_REF - pred DT_UINT32_REF = DT_VARIANT_REF - pred DT_UINT64_REF = DT_UINT32_REF - enumFrom = Data.ProtoLens.Message.Enum.messageEnumFrom - enumFromTo = Data.ProtoLens.Message.Enum.messageEnumFromTo - enumFromThen = Data.ProtoLens.Message.Enum.messageEnumFromThen - enumFromThenTo = Data.ProtoLens.Message.Enum.messageEnumFromThenTo - -instance Prelude.Bounded DataType where - minBound = DT_INVALID - maxBound = DT_UINT64_REF diff --git a/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Framework/Variable.hs b/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Framework/Variable.hs deleted file mode 100644 --- a/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Framework/Variable.hs +++ /dev/null @@ -1,388 +0,0 @@ -{- This file was auto-generated from tensorflow/core/framework/variable.proto by the proto-lens-protoc program. -} -{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies, - UndecidableInstances, MultiParamTypeClasses, FlexibleContexts, - FlexibleInstances, PatternSynonyms, MagicHash, NoImplicitPrelude - #-} -{-# OPTIONS_GHC -fno-warn-unused-imports#-} -module Proto.Tensorflow.Core.Framework.Variable where -import qualified Data.ProtoLens.Reexport.Prelude as Prelude -import qualified Data.ProtoLens.Reexport.Data.Int as Data.Int -import qualified Data.ProtoLens.Reexport.Data.Word as Data.Word -import qualified Data.ProtoLens.Reexport.Data.ProtoLens - as Data.ProtoLens -import qualified - Data.ProtoLens.Reexport.Data.ProtoLens.Message.Enum - as Data.ProtoLens.Message.Enum -import qualified Data.ProtoLens.Reexport.Lens.Family2 - as Lens.Family2 -import qualified Data.ProtoLens.Reexport.Lens.Family2.Unchecked - as Lens.Family2.Unchecked -import qualified Data.ProtoLens.Reexport.Data.Default.Class - as Data.Default.Class -import qualified Data.ProtoLens.Reexport.Data.Text as Data.Text -import qualified Data.ProtoLens.Reexport.Data.Map as Data.Map -import qualified Data.ProtoLens.Reexport.Data.ByteString - as Data.ByteString -import qualified Data.ProtoLens.Reexport.Lens.Labels as Lens.Labels - -data SaveSliceInfoDef = SaveSliceInfoDef{_SaveSliceInfoDef'fullName - :: !Data.Text.Text, - _SaveSliceInfoDef'fullShape :: ![Data.Int.Int64], - _SaveSliceInfoDef'varOffset :: ![Data.Int.Int64], - _SaveSliceInfoDef'varShape :: ![Data.Int.Int64]} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "fullName" f SaveSliceInfoDef SaveSliceInfoDef - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _SaveSliceInfoDef'fullName - (\ x__ y__ -> x__{_SaveSliceInfoDef'fullName = y__})) - Prelude.id - -instance (a ~ [Data.Int.Int64], b ~ [Data.Int.Int64], - Prelude.Functor f) => - Lens.Labels.HasLens "fullShape" f SaveSliceInfoDef SaveSliceInfoDef - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _SaveSliceInfoDef'fullShape - (\ x__ y__ -> x__{_SaveSliceInfoDef'fullShape = y__})) - Prelude.id - -instance (a ~ [Data.Int.Int64], b ~ [Data.Int.Int64], - Prelude.Functor f) => - Lens.Labels.HasLens "varOffset" f SaveSliceInfoDef SaveSliceInfoDef - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _SaveSliceInfoDef'varOffset - (\ x__ y__ -> x__{_SaveSliceInfoDef'varOffset = y__})) - Prelude.id - -instance (a ~ [Data.Int.Int64], b ~ [Data.Int.Int64], - Prelude.Functor f) => - Lens.Labels.HasLens "varShape" f SaveSliceInfoDef SaveSliceInfoDef - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _SaveSliceInfoDef'varShape - (\ x__ y__ -> x__{_SaveSliceInfoDef'varShape = y__})) - Prelude.id - -instance Data.Default.Class.Default SaveSliceInfoDef where - def - = SaveSliceInfoDef{_SaveSliceInfoDef'fullName = - Data.ProtoLens.fieldDefault, - _SaveSliceInfoDef'fullShape = [], _SaveSliceInfoDef'varOffset = [], - _SaveSliceInfoDef'varShape = []} - -instance Data.ProtoLens.Message SaveSliceInfoDef where - descriptor - = let fullName__field_descriptor - = Data.ProtoLens.FieldDescriptor "full_name" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional fullName) - :: Data.ProtoLens.FieldDescriptor SaveSliceInfoDef - fullShape__field_descriptor - = Data.ProtoLens.FieldDescriptor "full_shape" - (Data.ProtoLens.Int64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Packed fullShape) - :: Data.ProtoLens.FieldDescriptor SaveSliceInfoDef - varOffset__field_descriptor - = Data.ProtoLens.FieldDescriptor "var_offset" - (Data.ProtoLens.Int64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Packed varOffset) - :: Data.ProtoLens.FieldDescriptor SaveSliceInfoDef - varShape__field_descriptor - = Data.ProtoLens.FieldDescriptor "var_shape" - (Data.ProtoLens.Int64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Packed varShape) - :: Data.ProtoLens.FieldDescriptor SaveSliceInfoDef - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.SaveSliceInfoDef") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, fullName__field_descriptor), - (Data.ProtoLens.Tag 2, fullShape__field_descriptor), - (Data.ProtoLens.Tag 3, varOffset__field_descriptor), - (Data.ProtoLens.Tag 4, varShape__field_descriptor)]) - (Data.Map.fromList - [("full_name", fullName__field_descriptor), - ("full_shape", fullShape__field_descriptor), - ("var_offset", varOffset__field_descriptor), - ("var_shape", varShape__field_descriptor)]) - -data VariableDef = VariableDef{_VariableDef'variableName :: - !Data.Text.Text, - _VariableDef'initialValueName :: !Data.Text.Text, - _VariableDef'initializerName :: !Data.Text.Text, - _VariableDef'snapshotName :: !Data.Text.Text, - _VariableDef'saveSliceInfoDef :: !(Prelude.Maybe SaveSliceInfoDef), - _VariableDef'isResource :: !Prelude.Bool, - _VariableDef'trainable :: !Prelude.Bool} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "variableName" f VariableDef VariableDef a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _VariableDef'variableName - (\ x__ y__ -> x__{_VariableDef'variableName = y__})) - Prelude.id - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "initialValueName" f VariableDef VariableDef a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _VariableDef'initialValueName - (\ x__ y__ -> x__{_VariableDef'initialValueName = y__})) - Prelude.id - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "initializerName" f VariableDef VariableDef a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _VariableDef'initializerName - (\ x__ y__ -> x__{_VariableDef'initializerName = y__})) - Prelude.id - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "snapshotName" f VariableDef VariableDef a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _VariableDef'snapshotName - (\ x__ y__ -> x__{_VariableDef'snapshotName = y__})) - Prelude.id - -instance (a ~ SaveSliceInfoDef, b ~ SaveSliceInfoDef, - Prelude.Functor f) => - Lens.Labels.HasLens "saveSliceInfoDef" f VariableDef VariableDef a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _VariableDef'saveSliceInfoDef - (\ x__ y__ -> x__{_VariableDef'saveSliceInfoDef = y__})) - (Data.ProtoLens.maybeLens Data.Default.Class.def) - -instance (a ~ Prelude.Maybe SaveSliceInfoDef, - b ~ Prelude.Maybe SaveSliceInfoDef, Prelude.Functor f) => - Lens.Labels.HasLens "maybe'saveSliceInfoDef" f VariableDef - VariableDef - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _VariableDef'saveSliceInfoDef - (\ x__ y__ -> x__{_VariableDef'saveSliceInfoDef = y__})) - Prelude.id - -instance (a ~ Prelude.Bool, b ~ Prelude.Bool, Prelude.Functor f) => - Lens.Labels.HasLens "isResource" f VariableDef VariableDef a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _VariableDef'isResource - (\ x__ y__ -> x__{_VariableDef'isResource = y__})) - Prelude.id - -instance (a ~ Prelude.Bool, b ~ Prelude.Bool, Prelude.Functor f) => - Lens.Labels.HasLens "trainable" f VariableDef VariableDef a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _VariableDef'trainable - (\ x__ y__ -> x__{_VariableDef'trainable = y__})) - Prelude.id - -instance Data.Default.Class.Default VariableDef where - def - = VariableDef{_VariableDef'variableName = - Data.ProtoLens.fieldDefault, - _VariableDef'initialValueName = Data.ProtoLens.fieldDefault, - _VariableDef'initializerName = Data.ProtoLens.fieldDefault, - _VariableDef'snapshotName = Data.ProtoLens.fieldDefault, - _VariableDef'saveSliceInfoDef = Prelude.Nothing, - _VariableDef'isResource = Data.ProtoLens.fieldDefault, - _VariableDef'trainable = Data.ProtoLens.fieldDefault} - -instance Data.ProtoLens.Message VariableDef where - descriptor - = let variableName__field_descriptor - = Data.ProtoLens.FieldDescriptor "variable_name" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional variableName) - :: Data.ProtoLens.FieldDescriptor VariableDef - initialValueName__field_descriptor - = Data.ProtoLens.FieldDescriptor "initial_value_name" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional - initialValueName) - :: Data.ProtoLens.FieldDescriptor VariableDef - initializerName__field_descriptor - = Data.ProtoLens.FieldDescriptor "initializer_name" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional initializerName) - :: Data.ProtoLens.FieldDescriptor VariableDef - snapshotName__field_descriptor - = Data.ProtoLens.FieldDescriptor "snapshot_name" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional snapshotName) - :: Data.ProtoLens.FieldDescriptor VariableDef - saveSliceInfoDef__field_descriptor - = Data.ProtoLens.FieldDescriptor "save_slice_info_def" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor SaveSliceInfoDef) - (Data.ProtoLens.OptionalField maybe'saveSliceInfoDef) - :: Data.ProtoLens.FieldDescriptor VariableDef - isResource__field_descriptor - = Data.ProtoLens.FieldDescriptor "is_resource" - (Data.ProtoLens.BoolField :: - Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional isResource) - :: Data.ProtoLens.FieldDescriptor VariableDef - trainable__field_descriptor - = Data.ProtoLens.FieldDescriptor "trainable" - (Data.ProtoLens.BoolField :: - Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional trainable) - :: Data.ProtoLens.FieldDescriptor VariableDef - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.VariableDef") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, variableName__field_descriptor), - (Data.ProtoLens.Tag 6, initialValueName__field_descriptor), - (Data.ProtoLens.Tag 2, initializerName__field_descriptor), - (Data.ProtoLens.Tag 3, snapshotName__field_descriptor), - (Data.ProtoLens.Tag 4, saveSliceInfoDef__field_descriptor), - (Data.ProtoLens.Tag 5, isResource__field_descriptor), - (Data.ProtoLens.Tag 7, trainable__field_descriptor)]) - (Data.Map.fromList - [("variable_name", variableName__field_descriptor), - ("initial_value_name", initialValueName__field_descriptor), - ("initializer_name", initializerName__field_descriptor), - ("snapshot_name", snapshotName__field_descriptor), - ("save_slice_info_def", saveSliceInfoDef__field_descriptor), - ("is_resource", isResource__field_descriptor), - ("trainable", trainable__field_descriptor)]) - -fullName :: - forall f s t a b . (Lens.Labels.HasLens "fullName" f s t a b) => - Lens.Family2.LensLike f s t a b -fullName - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "fullName") - -fullShape :: - forall f s t a b . (Lens.Labels.HasLens "fullShape" f s t a b) => - Lens.Family2.LensLike f s t a b -fullShape - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "fullShape") - -initialValueName :: - forall f s t a b . - (Lens.Labels.HasLens "initialValueName" f s t a b) => - Lens.Family2.LensLike f s t a b -initialValueName - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "initialValueName") - -initializerName :: - forall f s t a b . - (Lens.Labels.HasLens "initializerName" f s t a b) => - Lens.Family2.LensLike f s t a b -initializerName - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "initializerName") - -isResource :: - forall f s t a b . (Lens.Labels.HasLens "isResource" f s t a b) => - Lens.Family2.LensLike f s t a b -isResource - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "isResource") - -maybe'saveSliceInfoDef :: - forall f s t a b . - (Lens.Labels.HasLens "maybe'saveSliceInfoDef" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'saveSliceInfoDef - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: - (Lens.Labels.Proxy#) "maybe'saveSliceInfoDef") - -saveSliceInfoDef :: - forall f s t a b . - (Lens.Labels.HasLens "saveSliceInfoDef" f s t a b) => - Lens.Family2.LensLike f s t a b -saveSliceInfoDef - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "saveSliceInfoDef") - -snapshotName :: - forall f s t a b . - (Lens.Labels.HasLens "snapshotName" f s t a b) => - Lens.Family2.LensLike f s t a b -snapshotName - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "snapshotName") - -trainable :: - forall f s t a b . (Lens.Labels.HasLens "trainable" f s t a b) => - Lens.Family2.LensLike f s t a b -trainable - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "trainable") - -varOffset :: - forall f s t a b . (Lens.Labels.HasLens "varOffset" f s t a b) => - Lens.Family2.LensLike f s t a b -varOffset - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "varOffset") - -varShape :: - forall f s t a b . (Lens.Labels.HasLens "varShape" f s t a b) => - Lens.Family2.LensLike f s t a b -varShape - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "varShape") - -variableName :: - forall f s t a b . - (Lens.Labels.HasLens "variableName" f s t a b) => - Lens.Family2.LensLike f s t a b -variableName - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "variableName") diff --git a/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Framework/Versions.hs b/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Framework/Versions.hs deleted file mode 100644 --- a/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Framework/Versions.hs +++ /dev/null @@ -1,122 +0,0 @@ -{- This file was auto-generated from tensorflow/core/framework/versions.proto by the proto-lens-protoc program. -} -{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies, - UndecidableInstances, MultiParamTypeClasses, FlexibleContexts, - FlexibleInstances, PatternSynonyms, MagicHash, NoImplicitPrelude - #-} -{-# OPTIONS_GHC -fno-warn-unused-imports#-} -module Proto.Tensorflow.Core.Framework.Versions where -import qualified Data.ProtoLens.Reexport.Prelude as Prelude -import qualified Data.ProtoLens.Reexport.Data.Int as Data.Int -import qualified Data.ProtoLens.Reexport.Data.Word as Data.Word -import qualified Data.ProtoLens.Reexport.Data.ProtoLens - as Data.ProtoLens -import qualified - Data.ProtoLens.Reexport.Data.ProtoLens.Message.Enum - as Data.ProtoLens.Message.Enum -import qualified Data.ProtoLens.Reexport.Lens.Family2 - as Lens.Family2 -import qualified Data.ProtoLens.Reexport.Lens.Family2.Unchecked - as Lens.Family2.Unchecked -import qualified Data.ProtoLens.Reexport.Data.Default.Class - as Data.Default.Class -import qualified Data.ProtoLens.Reexport.Data.Text as Data.Text -import qualified Data.ProtoLens.Reexport.Data.Map as Data.Map -import qualified Data.ProtoLens.Reexport.Data.ByteString - as Data.ByteString -import qualified Data.ProtoLens.Reexport.Lens.Labels as Lens.Labels - -data VersionDef = VersionDef{_VersionDef'producer :: - !Data.Int.Int32, - _VersionDef'minConsumer :: !Data.Int.Int32, - _VersionDef'badConsumers :: ![Data.Int.Int32]} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Data.Int.Int32, b ~ Data.Int.Int32, - Prelude.Functor f) => - Lens.Labels.HasLens "producer" f VersionDef VersionDef a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _VersionDef'producer - (\ x__ y__ -> x__{_VersionDef'producer = y__})) - Prelude.id - -instance (a ~ Data.Int.Int32, b ~ Data.Int.Int32, - Prelude.Functor f) => - Lens.Labels.HasLens "minConsumer" f VersionDef VersionDef a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _VersionDef'minConsumer - (\ x__ y__ -> x__{_VersionDef'minConsumer = y__})) - Prelude.id - -instance (a ~ [Data.Int.Int32], b ~ [Data.Int.Int32], - Prelude.Functor f) => - Lens.Labels.HasLens "badConsumers" f VersionDef VersionDef a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _VersionDef'badConsumers - (\ x__ y__ -> x__{_VersionDef'badConsumers = y__})) - Prelude.id - -instance Data.Default.Class.Default VersionDef where - def - = VersionDef{_VersionDef'producer = Data.ProtoLens.fieldDefault, - _VersionDef'minConsumer = Data.ProtoLens.fieldDefault, - _VersionDef'badConsumers = []} - -instance Data.ProtoLens.Message VersionDef where - descriptor - = let producer__field_descriptor - = Data.ProtoLens.FieldDescriptor "producer" - (Data.ProtoLens.Int32Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional producer) - :: Data.ProtoLens.FieldDescriptor VersionDef - minConsumer__field_descriptor - = Data.ProtoLens.FieldDescriptor "min_consumer" - (Data.ProtoLens.Int32Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional minConsumer) - :: Data.ProtoLens.FieldDescriptor VersionDef - badConsumers__field_descriptor - = Data.ProtoLens.FieldDescriptor "bad_consumers" - (Data.ProtoLens.Int32Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Packed badConsumers) - :: Data.ProtoLens.FieldDescriptor VersionDef - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.VersionDef") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, producer__field_descriptor), - (Data.ProtoLens.Tag 2, minConsumer__field_descriptor), - (Data.ProtoLens.Tag 3, badConsumers__field_descriptor)]) - (Data.Map.fromList - [("producer", producer__field_descriptor), - ("min_consumer", minConsumer__field_descriptor), - ("bad_consumers", badConsumers__field_descriptor)]) - -badConsumers :: - forall f s t a b . - (Lens.Labels.HasLens "badConsumers" f s t a b) => - Lens.Family2.LensLike f s t a b -badConsumers - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "badConsumers") - -minConsumer :: - forall f s t a b . (Lens.Labels.HasLens "minConsumer" f s t a b) => - Lens.Family2.LensLike f s t a b -minConsumer - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "minConsumer") - -producer :: - forall f s t a b . (Lens.Labels.HasLens "producer" f s t a b) => - Lens.Family2.LensLike f s t a b -producer - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "producer") diff --git a/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Lib/Core/ErrorCodes.hs b/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Lib/Core/ErrorCodes.hs deleted file mode 100644 --- a/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Lib/Core/ErrorCodes.hs +++ /dev/null @@ -1,199 +0,0 @@ -{- This file was auto-generated from tensorflow/core/lib/core/error_codes.proto by the proto-lens-protoc program. -} -{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies, - UndecidableInstances, MultiParamTypeClasses, FlexibleContexts, - FlexibleInstances, PatternSynonyms, MagicHash, NoImplicitPrelude - #-} -{-# OPTIONS_GHC -fno-warn-unused-imports#-} -module Proto.Tensorflow.Core.Lib.Core.ErrorCodes where -import qualified Data.ProtoLens.Reexport.Prelude as Prelude -import qualified Data.ProtoLens.Reexport.Data.Int as Data.Int -import qualified Data.ProtoLens.Reexport.Data.Word as Data.Word -import qualified Data.ProtoLens.Reexport.Data.ProtoLens - as Data.ProtoLens -import qualified - Data.ProtoLens.Reexport.Data.ProtoLens.Message.Enum - as Data.ProtoLens.Message.Enum -import qualified Data.ProtoLens.Reexport.Lens.Family2 - as Lens.Family2 -import qualified Data.ProtoLens.Reexport.Lens.Family2.Unchecked - as Lens.Family2.Unchecked -import qualified Data.ProtoLens.Reexport.Data.Default.Class - as Data.Default.Class -import qualified Data.ProtoLens.Reexport.Data.Text as Data.Text -import qualified Data.ProtoLens.Reexport.Data.Map as Data.Map -import qualified Data.ProtoLens.Reexport.Data.ByteString - as Data.ByteString -import qualified Data.ProtoLens.Reexport.Lens.Labels as Lens.Labels - -data Code = OK - | CANCELLED - | UNKNOWN - | INVALID_ARGUMENT - | DEADLINE_EXCEEDED - | NOT_FOUND - | ALREADY_EXISTS - | PERMISSION_DENIED - | RESOURCE_EXHAUSTED - | FAILED_PRECONDITION - | ABORTED - | OUT_OF_RANGE - | UNIMPLEMENTED - | INTERNAL - | UNAVAILABLE - | DATA_LOSS - | UNAUTHENTICATED - | DO_NOT_USE_RESERVED_FOR_FUTURE_EXPANSION_USE_DEFAULT_IN_SWITCH_INSTEAD_ - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance Data.Default.Class.Default Code where - def = OK - -instance Data.ProtoLens.FieldDefault Code where - fieldDefault = OK - -instance Data.ProtoLens.MessageEnum Code where - maybeToEnum 0 = Prelude.Just OK - maybeToEnum 1 = Prelude.Just CANCELLED - maybeToEnum 2 = Prelude.Just UNKNOWN - maybeToEnum 3 = Prelude.Just INVALID_ARGUMENT - maybeToEnum 4 = Prelude.Just DEADLINE_EXCEEDED - maybeToEnum 5 = Prelude.Just NOT_FOUND - maybeToEnum 6 = Prelude.Just ALREADY_EXISTS - maybeToEnum 7 = Prelude.Just PERMISSION_DENIED - maybeToEnum 8 = Prelude.Just RESOURCE_EXHAUSTED - maybeToEnum 9 = Prelude.Just FAILED_PRECONDITION - maybeToEnum 10 = Prelude.Just ABORTED - maybeToEnum 11 = Prelude.Just OUT_OF_RANGE - maybeToEnum 12 = Prelude.Just UNIMPLEMENTED - maybeToEnum 13 = Prelude.Just INTERNAL - maybeToEnum 14 = Prelude.Just UNAVAILABLE - maybeToEnum 15 = Prelude.Just DATA_LOSS - maybeToEnum 16 = Prelude.Just UNAUTHENTICATED - maybeToEnum 20 - = Prelude.Just - DO_NOT_USE_RESERVED_FOR_FUTURE_EXPANSION_USE_DEFAULT_IN_SWITCH_INSTEAD_ - maybeToEnum _ = Prelude.Nothing - showEnum OK = "OK" - showEnum CANCELLED = "CANCELLED" - showEnum UNKNOWN = "UNKNOWN" - showEnum INVALID_ARGUMENT = "INVALID_ARGUMENT" - showEnum DEADLINE_EXCEEDED = "DEADLINE_EXCEEDED" - showEnum NOT_FOUND = "NOT_FOUND" - showEnum ALREADY_EXISTS = "ALREADY_EXISTS" - showEnum PERMISSION_DENIED = "PERMISSION_DENIED" - showEnum RESOURCE_EXHAUSTED = "RESOURCE_EXHAUSTED" - showEnum FAILED_PRECONDITION = "FAILED_PRECONDITION" - showEnum ABORTED = "ABORTED" - showEnum OUT_OF_RANGE = "OUT_OF_RANGE" - showEnum UNIMPLEMENTED = "UNIMPLEMENTED" - showEnum INTERNAL = "INTERNAL" - showEnum UNAVAILABLE = "UNAVAILABLE" - showEnum DATA_LOSS = "DATA_LOSS" - showEnum UNAUTHENTICATED = "UNAUTHENTICATED" - showEnum - DO_NOT_USE_RESERVED_FOR_FUTURE_EXPANSION_USE_DEFAULT_IN_SWITCH_INSTEAD_ - = "DO_NOT_USE_RESERVED_FOR_FUTURE_EXPANSION_USE_DEFAULT_IN_SWITCH_INSTEAD_" - readEnum "OK" = Prelude.Just OK - readEnum "CANCELLED" = Prelude.Just CANCELLED - readEnum "UNKNOWN" = Prelude.Just UNKNOWN - readEnum "INVALID_ARGUMENT" = Prelude.Just INVALID_ARGUMENT - readEnum "DEADLINE_EXCEEDED" = Prelude.Just DEADLINE_EXCEEDED - readEnum "NOT_FOUND" = Prelude.Just NOT_FOUND - readEnum "ALREADY_EXISTS" = Prelude.Just ALREADY_EXISTS - readEnum "PERMISSION_DENIED" = Prelude.Just PERMISSION_DENIED - readEnum "RESOURCE_EXHAUSTED" = Prelude.Just RESOURCE_EXHAUSTED - readEnum "FAILED_PRECONDITION" = Prelude.Just FAILED_PRECONDITION - readEnum "ABORTED" = Prelude.Just ABORTED - readEnum "OUT_OF_RANGE" = Prelude.Just OUT_OF_RANGE - readEnum "UNIMPLEMENTED" = Prelude.Just UNIMPLEMENTED - readEnum "INTERNAL" = Prelude.Just INTERNAL - readEnum "UNAVAILABLE" = Prelude.Just UNAVAILABLE - readEnum "DATA_LOSS" = Prelude.Just DATA_LOSS - readEnum "UNAUTHENTICATED" = Prelude.Just UNAUTHENTICATED - readEnum - "DO_NOT_USE_RESERVED_FOR_FUTURE_EXPANSION_USE_DEFAULT_IN_SWITCH_INSTEAD_" - = Prelude.Just - DO_NOT_USE_RESERVED_FOR_FUTURE_EXPANSION_USE_DEFAULT_IN_SWITCH_INSTEAD_ - readEnum _ = Prelude.Nothing - -instance Prelude.Enum Code where - toEnum k__ - = Prelude.maybe - (Prelude.error - ((Prelude.++) "toEnum: unknown value for enum Code: " - (Prelude.show k__))) - Prelude.id - (Data.ProtoLens.maybeToEnum k__) - fromEnum OK = 0 - fromEnum CANCELLED = 1 - fromEnum UNKNOWN = 2 - fromEnum INVALID_ARGUMENT = 3 - fromEnum DEADLINE_EXCEEDED = 4 - fromEnum NOT_FOUND = 5 - fromEnum ALREADY_EXISTS = 6 - fromEnum PERMISSION_DENIED = 7 - fromEnum RESOURCE_EXHAUSTED = 8 - fromEnum FAILED_PRECONDITION = 9 - fromEnum ABORTED = 10 - fromEnum OUT_OF_RANGE = 11 - fromEnum UNIMPLEMENTED = 12 - fromEnum INTERNAL = 13 - fromEnum UNAVAILABLE = 14 - fromEnum DATA_LOSS = 15 - fromEnum UNAUTHENTICATED = 16 - fromEnum - DO_NOT_USE_RESERVED_FOR_FUTURE_EXPANSION_USE_DEFAULT_IN_SWITCH_INSTEAD_ - = 20 - succ - DO_NOT_USE_RESERVED_FOR_FUTURE_EXPANSION_USE_DEFAULT_IN_SWITCH_INSTEAD_ - = Prelude.error - "Code.succ: bad argument DO_NOT_USE_RESERVED_FOR_FUTURE_EXPANSION_USE_DEFAULT_IN_SWITCH_INSTEAD_. This value would be out of bounds." - succ OK = CANCELLED - succ CANCELLED = UNKNOWN - succ UNKNOWN = INVALID_ARGUMENT - succ INVALID_ARGUMENT = DEADLINE_EXCEEDED - succ DEADLINE_EXCEEDED = NOT_FOUND - succ NOT_FOUND = ALREADY_EXISTS - succ ALREADY_EXISTS = PERMISSION_DENIED - succ PERMISSION_DENIED = RESOURCE_EXHAUSTED - succ RESOURCE_EXHAUSTED = FAILED_PRECONDITION - succ FAILED_PRECONDITION = ABORTED - succ ABORTED = OUT_OF_RANGE - succ OUT_OF_RANGE = UNIMPLEMENTED - succ UNIMPLEMENTED = INTERNAL - succ INTERNAL = UNAVAILABLE - succ UNAVAILABLE = DATA_LOSS - succ DATA_LOSS = UNAUTHENTICATED - succ UNAUTHENTICATED - = DO_NOT_USE_RESERVED_FOR_FUTURE_EXPANSION_USE_DEFAULT_IN_SWITCH_INSTEAD_ - pred OK - = Prelude.error - "Code.pred: bad argument OK. This value would be out of bounds." - pred CANCELLED = OK - pred UNKNOWN = CANCELLED - pred INVALID_ARGUMENT = UNKNOWN - pred DEADLINE_EXCEEDED = INVALID_ARGUMENT - pred NOT_FOUND = DEADLINE_EXCEEDED - pred ALREADY_EXISTS = NOT_FOUND - pred PERMISSION_DENIED = ALREADY_EXISTS - pred RESOURCE_EXHAUSTED = PERMISSION_DENIED - pred FAILED_PRECONDITION = RESOURCE_EXHAUSTED - pred ABORTED = FAILED_PRECONDITION - pred OUT_OF_RANGE = ABORTED - pred UNIMPLEMENTED = OUT_OF_RANGE - pred INTERNAL = UNIMPLEMENTED - pred UNAVAILABLE = INTERNAL - pred DATA_LOSS = UNAVAILABLE - pred UNAUTHENTICATED = DATA_LOSS - pred - DO_NOT_USE_RESERVED_FOR_FUTURE_EXPANSION_USE_DEFAULT_IN_SWITCH_INSTEAD_ - = UNAUTHENTICATED - enumFrom = Data.ProtoLens.Message.Enum.messageEnumFrom - enumFromTo = Data.ProtoLens.Message.Enum.messageEnumFromTo - enumFromThen = Data.ProtoLens.Message.Enum.messageEnumFromThen - enumFromThenTo = Data.ProtoLens.Message.Enum.messageEnumFromThenTo - -instance Prelude.Bounded Code where - minBound = OK - maxBound - = DO_NOT_USE_RESERVED_FOR_FUTURE_EXPANSION_USE_DEFAULT_IN_SWITCH_INSTEAD_ diff --git a/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Protobuf/Cluster.hs b/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Protobuf/Cluster.hs deleted file mode 100644 --- a/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Protobuf/Cluster.hs +++ /dev/null @@ -1,200 +0,0 @@ -{- This file was auto-generated from tensorflow/core/protobuf/cluster.proto by the proto-lens-protoc program. -} -{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies, - UndecidableInstances, MultiParamTypeClasses, FlexibleContexts, - FlexibleInstances, PatternSynonyms, MagicHash, NoImplicitPrelude - #-} -{-# OPTIONS_GHC -fno-warn-unused-imports#-} -module Proto.Tensorflow.Core.Protobuf.Cluster where -import qualified Data.ProtoLens.Reexport.Prelude as Prelude -import qualified Data.ProtoLens.Reexport.Data.Int as Data.Int -import qualified Data.ProtoLens.Reexport.Data.Word as Data.Word -import qualified Data.ProtoLens.Reexport.Data.ProtoLens - as Data.ProtoLens -import qualified - Data.ProtoLens.Reexport.Data.ProtoLens.Message.Enum - as Data.ProtoLens.Message.Enum -import qualified Data.ProtoLens.Reexport.Lens.Family2 - as Lens.Family2 -import qualified Data.ProtoLens.Reexport.Lens.Family2.Unchecked - as Lens.Family2.Unchecked -import qualified Data.ProtoLens.Reexport.Data.Default.Class - as Data.Default.Class -import qualified Data.ProtoLens.Reexport.Data.Text as Data.Text -import qualified Data.ProtoLens.Reexport.Data.Map as Data.Map -import qualified Data.ProtoLens.Reexport.Data.ByteString - as Data.ByteString -import qualified Data.ProtoLens.Reexport.Lens.Labels as Lens.Labels - -data ClusterDef = ClusterDef{_ClusterDef'job :: ![JobDef]} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ [JobDef], b ~ [JobDef], Prelude.Functor f) => - Lens.Labels.HasLens "job" f ClusterDef ClusterDef a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _ClusterDef'job - (\ x__ y__ -> x__{_ClusterDef'job = y__})) - Prelude.id - -instance Data.Default.Class.Default ClusterDef where - def = ClusterDef{_ClusterDef'job = []} - -instance Data.ProtoLens.Message ClusterDef where - descriptor - = let job__field_descriptor - = Data.ProtoLens.FieldDescriptor "job" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor JobDef) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked job) - :: Data.ProtoLens.FieldDescriptor ClusterDef - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.ClusterDef") - (Data.Map.fromList [(Data.ProtoLens.Tag 1, job__field_descriptor)]) - (Data.Map.fromList [("job", job__field_descriptor)]) - -data JobDef = JobDef{_JobDef'name :: !Data.Text.Text, - _JobDef'tasks :: !(Data.Map.Map Data.Int.Int32 Data.Text.Text)} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "name" f JobDef JobDef a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _JobDef'name - (\ x__ y__ -> x__{_JobDef'name = y__})) - Prelude.id - -instance (a ~ Data.Map.Map Data.Int.Int32 Data.Text.Text, - b ~ Data.Map.Map Data.Int.Int32 Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "tasks" f JobDef JobDef a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _JobDef'tasks - (\ x__ y__ -> x__{_JobDef'tasks = y__})) - Prelude.id - -instance Data.Default.Class.Default JobDef where - def - = JobDef{_JobDef'name = Data.ProtoLens.fieldDefault, - _JobDef'tasks = Data.Map.empty} - -instance Data.ProtoLens.Message JobDef where - descriptor - = let name__field_descriptor - = Data.ProtoLens.FieldDescriptor "name" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional name) - :: Data.ProtoLens.FieldDescriptor JobDef - tasks__field_descriptor - = Data.ProtoLens.FieldDescriptor "tasks" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor JobDef'TasksEntry) - (Data.ProtoLens.MapField key value tasks) - :: Data.ProtoLens.FieldDescriptor JobDef - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.JobDef") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, name__field_descriptor), - (Data.ProtoLens.Tag 2, tasks__field_descriptor)]) - (Data.Map.fromList - [("name", name__field_descriptor), - ("tasks", tasks__field_descriptor)]) - -data JobDef'TasksEntry = JobDef'TasksEntry{_JobDef'TasksEntry'key - :: !Data.Int.Int32, - _JobDef'TasksEntry'value :: !Data.Text.Text} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Data.Int.Int32, b ~ Data.Int.Int32, - Prelude.Functor f) => - Lens.Labels.HasLens "key" f JobDef'TasksEntry JobDef'TasksEntry a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _JobDef'TasksEntry'key - (\ x__ y__ -> x__{_JobDef'TasksEntry'key = y__})) - Prelude.id - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "value" f JobDef'TasksEntry JobDef'TasksEntry a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _JobDef'TasksEntry'value - (\ x__ y__ -> x__{_JobDef'TasksEntry'value = y__})) - Prelude.id - -instance Data.Default.Class.Default JobDef'TasksEntry where - def - = JobDef'TasksEntry{_JobDef'TasksEntry'key = - Data.ProtoLens.fieldDefault, - _JobDef'TasksEntry'value = Data.ProtoLens.fieldDefault} - -instance Data.ProtoLens.Message JobDef'TasksEntry where - descriptor - = let key__field_descriptor - = Data.ProtoLens.FieldDescriptor "key" - (Data.ProtoLens.Int32Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional key) - :: Data.ProtoLens.FieldDescriptor JobDef'TasksEntry - value__field_descriptor - = Data.ProtoLens.FieldDescriptor "value" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional value) - :: Data.ProtoLens.FieldDescriptor JobDef'TasksEntry - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.JobDef.TasksEntry") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, key__field_descriptor), - (Data.ProtoLens.Tag 2, value__field_descriptor)]) - (Data.Map.fromList - [("key", key__field_descriptor), - ("value", value__field_descriptor)]) - -job :: - forall f s t a b . (Lens.Labels.HasLens "job" f s t a b) => - Lens.Family2.LensLike f s t a b -job - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "job") - -key :: - forall f s t a b . (Lens.Labels.HasLens "key" f s t a b) => - Lens.Family2.LensLike f s t a b -key - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "key") - -name :: - forall f s t a b . (Lens.Labels.HasLens "name" f s t a b) => - Lens.Family2.LensLike f s t a b -name - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "name") - -tasks :: - forall f s t a b . (Lens.Labels.HasLens "tasks" f s t a b) => - Lens.Family2.LensLike f s t a b -tasks - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "tasks") - -value :: - forall f s t a b . (Lens.Labels.HasLens "value" f s t a b) => - Lens.Family2.LensLike f s t a b -value - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "value") diff --git a/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Protobuf/Config.hs b/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Protobuf/Config.hs deleted file mode 100644 --- a/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Protobuf/Config.hs +++ /dev/null @@ -1,2759 +0,0 @@ -{- This file was auto-generated from tensorflow/core/protobuf/config.proto by the proto-lens-protoc program. -} -{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies, - UndecidableInstances, MultiParamTypeClasses, FlexibleContexts, - FlexibleInstances, PatternSynonyms, MagicHash, NoImplicitPrelude - #-} -{-# OPTIONS_GHC -fno-warn-unused-imports#-} -module Proto.Tensorflow.Core.Protobuf.Config where -import qualified Data.ProtoLens.Reexport.Prelude as Prelude -import qualified Data.ProtoLens.Reexport.Data.Int as Data.Int -import qualified Data.ProtoLens.Reexport.Data.Word as Data.Word -import qualified Data.ProtoLens.Reexport.Data.ProtoLens - as Data.ProtoLens -import qualified - Data.ProtoLens.Reexport.Data.ProtoLens.Message.Enum - as Data.ProtoLens.Message.Enum -import qualified Data.ProtoLens.Reexport.Lens.Family2 - as Lens.Family2 -import qualified Data.ProtoLens.Reexport.Lens.Family2.Unchecked - as Lens.Family2.Unchecked -import qualified Data.ProtoLens.Reexport.Data.Default.Class - as Data.Default.Class -import qualified Data.ProtoLens.Reexport.Data.Text as Data.Text -import qualified Data.ProtoLens.Reexport.Data.Map as Data.Map -import qualified Data.ProtoLens.Reexport.Data.ByteString - as Data.ByteString -import qualified Data.ProtoLens.Reexport.Lens.Labels as Lens.Labels -import qualified Proto.Tensorflow.Core.Framework.CostGraph -import qualified Proto.Tensorflow.Core.Framework.Graph -import qualified Proto.Tensorflow.Core.Framework.StepStats -import qualified Proto.Tensorflow.Core.Protobuf.Cluster -import qualified Proto.Tensorflow.Core.Protobuf.Debug -import qualified Proto.Tensorflow.Core.Protobuf.RewriterConfig - -data CallableOptions = CallableOptions{_CallableOptions'feed :: - ![Data.Text.Text], - _CallableOptions'fetch :: ![Data.Text.Text], - _CallableOptions'target :: ![Data.Text.Text], - _CallableOptions'runOptions :: !(Prelude.Maybe RunOptions), - _CallableOptions'tensorConnection :: ![TensorConnection]} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ [Data.Text.Text], b ~ [Data.Text.Text], - Prelude.Functor f) => - Lens.Labels.HasLens "feed" f CallableOptions CallableOptions a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _CallableOptions'feed - (\ x__ y__ -> x__{_CallableOptions'feed = y__})) - Prelude.id - -instance (a ~ [Data.Text.Text], b ~ [Data.Text.Text], - Prelude.Functor f) => - Lens.Labels.HasLens "fetch" f CallableOptions CallableOptions a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _CallableOptions'fetch - (\ x__ y__ -> x__{_CallableOptions'fetch = y__})) - Prelude.id - -instance (a ~ [Data.Text.Text], b ~ [Data.Text.Text], - Prelude.Functor f) => - Lens.Labels.HasLens "target" f CallableOptions CallableOptions a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _CallableOptions'target - (\ x__ y__ -> x__{_CallableOptions'target = y__})) - Prelude.id - -instance (a ~ RunOptions, b ~ RunOptions, Prelude.Functor f) => - Lens.Labels.HasLens "runOptions" f CallableOptions CallableOptions - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _CallableOptions'runOptions - (\ x__ y__ -> x__{_CallableOptions'runOptions = y__})) - (Data.ProtoLens.maybeLens Data.Default.Class.def) - -instance (a ~ Prelude.Maybe RunOptions, - b ~ Prelude.Maybe RunOptions, Prelude.Functor f) => - Lens.Labels.HasLens "maybe'runOptions" f CallableOptions - CallableOptions - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _CallableOptions'runOptions - (\ x__ y__ -> x__{_CallableOptions'runOptions = y__})) - Prelude.id - -instance (a ~ [TensorConnection], b ~ [TensorConnection], - Prelude.Functor f) => - Lens.Labels.HasLens "tensorConnection" f CallableOptions - CallableOptions - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _CallableOptions'tensorConnection - (\ x__ y__ -> x__{_CallableOptions'tensorConnection = y__})) - Prelude.id - -instance Data.Default.Class.Default CallableOptions where - def - = CallableOptions{_CallableOptions'feed = [], - _CallableOptions'fetch = [], _CallableOptions'target = [], - _CallableOptions'runOptions = Prelude.Nothing, - _CallableOptions'tensorConnection = []} - -instance Data.ProtoLens.Message CallableOptions where - descriptor - = let feed__field_descriptor - = Data.ProtoLens.FieldDescriptor "feed" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked feed) - :: Data.ProtoLens.FieldDescriptor CallableOptions - fetch__field_descriptor - = Data.ProtoLens.FieldDescriptor "fetch" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked fetch) - :: Data.ProtoLens.FieldDescriptor CallableOptions - target__field_descriptor - = Data.ProtoLens.FieldDescriptor "target" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked target) - :: Data.ProtoLens.FieldDescriptor CallableOptions - runOptions__field_descriptor - = Data.ProtoLens.FieldDescriptor "run_options" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor RunOptions) - (Data.ProtoLens.OptionalField maybe'runOptions) - :: Data.ProtoLens.FieldDescriptor CallableOptions - tensorConnection__field_descriptor - = Data.ProtoLens.FieldDescriptor "tensor_connection" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor TensorConnection) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked - tensorConnection) - :: Data.ProtoLens.FieldDescriptor CallableOptions - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.CallableOptions") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, feed__field_descriptor), - (Data.ProtoLens.Tag 2, fetch__field_descriptor), - (Data.ProtoLens.Tag 3, target__field_descriptor), - (Data.ProtoLens.Tag 4, runOptions__field_descriptor), - (Data.ProtoLens.Tag 5, tensorConnection__field_descriptor)]) - (Data.Map.fromList - [("feed", feed__field_descriptor), - ("fetch", fetch__field_descriptor), - ("target", target__field_descriptor), - ("run_options", runOptions__field_descriptor), - ("tensor_connection", tensorConnection__field_descriptor)]) - -data ConfigProto = ConfigProto{_ConfigProto'deviceCount :: - !(Data.Map.Map Data.Text.Text Data.Int.Int32), - _ConfigProto'intraOpParallelismThreads :: !Data.Int.Int32, - _ConfigProto'interOpParallelismThreads :: !Data.Int.Int32, - _ConfigProto'usePerSessionThreads :: !Prelude.Bool, - _ConfigProto'sessionInterOpThreadPool :: ![ThreadPoolOptionProto], - _ConfigProto'placementPeriod :: !Data.Int.Int32, - _ConfigProto'deviceFilters :: ![Data.Text.Text], - _ConfigProto'gpuOptions :: !(Prelude.Maybe GPUOptions), - _ConfigProto'allowSoftPlacement :: !Prelude.Bool, - _ConfigProto'logDevicePlacement :: !Prelude.Bool, - _ConfigProto'graphOptions :: !(Prelude.Maybe GraphOptions), - _ConfigProto'operationTimeoutInMs :: !Data.Int.Int64, - _ConfigProto'rpcOptions :: !(Prelude.Maybe RPCOptions), - _ConfigProto'clusterDef :: - !(Prelude.Maybe Proto.Tensorflow.Core.Protobuf.Cluster.ClusterDef), - _ConfigProto'isolateSessionState :: !Prelude.Bool, - _ConfigProto'experimental :: - !(Prelude.Maybe ConfigProto'Experimental)} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Data.Map.Map Data.Text.Text Data.Int.Int32, - b ~ Data.Map.Map Data.Text.Text Data.Int.Int32, - Prelude.Functor f) => - Lens.Labels.HasLens "deviceCount" f ConfigProto ConfigProto a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _ConfigProto'deviceCount - (\ x__ y__ -> x__{_ConfigProto'deviceCount = y__})) - Prelude.id - -instance (a ~ Data.Int.Int32, b ~ Data.Int.Int32, - Prelude.Functor f) => - Lens.Labels.HasLens "intraOpParallelismThreads" f ConfigProto - ConfigProto - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _ConfigProto'intraOpParallelismThreads - (\ x__ y__ -> x__{_ConfigProto'intraOpParallelismThreads = y__})) - Prelude.id - -instance (a ~ Data.Int.Int32, b ~ Data.Int.Int32, - Prelude.Functor f) => - Lens.Labels.HasLens "interOpParallelismThreads" f ConfigProto - ConfigProto - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _ConfigProto'interOpParallelismThreads - (\ x__ y__ -> x__{_ConfigProto'interOpParallelismThreads = y__})) - Prelude.id - -instance (a ~ Prelude.Bool, b ~ Prelude.Bool, Prelude.Functor f) => - Lens.Labels.HasLens "usePerSessionThreads" f ConfigProto - ConfigProto - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _ConfigProto'usePerSessionThreads - (\ x__ y__ -> x__{_ConfigProto'usePerSessionThreads = y__})) - Prelude.id - -instance (a ~ [ThreadPoolOptionProto], b ~ [ThreadPoolOptionProto], - Prelude.Functor f) => - Lens.Labels.HasLens "sessionInterOpThreadPool" f ConfigProto - ConfigProto - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _ConfigProto'sessionInterOpThreadPool - (\ x__ y__ -> x__{_ConfigProto'sessionInterOpThreadPool = y__})) - Prelude.id - -instance (a ~ Data.Int.Int32, b ~ Data.Int.Int32, - Prelude.Functor f) => - Lens.Labels.HasLens "placementPeriod" f ConfigProto ConfigProto a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _ConfigProto'placementPeriod - (\ x__ y__ -> x__{_ConfigProto'placementPeriod = y__})) - Prelude.id - -instance (a ~ [Data.Text.Text], b ~ [Data.Text.Text], - Prelude.Functor f) => - Lens.Labels.HasLens "deviceFilters" f ConfigProto ConfigProto a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _ConfigProto'deviceFilters - (\ x__ y__ -> x__{_ConfigProto'deviceFilters = y__})) - Prelude.id - -instance (a ~ GPUOptions, b ~ GPUOptions, Prelude.Functor f) => - Lens.Labels.HasLens "gpuOptions" f ConfigProto ConfigProto a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _ConfigProto'gpuOptions - (\ x__ y__ -> x__{_ConfigProto'gpuOptions = y__})) - (Data.ProtoLens.maybeLens Data.Default.Class.def) - -instance (a ~ Prelude.Maybe GPUOptions, - b ~ Prelude.Maybe GPUOptions, Prelude.Functor f) => - Lens.Labels.HasLens "maybe'gpuOptions" f ConfigProto ConfigProto a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _ConfigProto'gpuOptions - (\ x__ y__ -> x__{_ConfigProto'gpuOptions = y__})) - Prelude.id - -instance (a ~ Prelude.Bool, b ~ Prelude.Bool, Prelude.Functor f) => - Lens.Labels.HasLens "allowSoftPlacement" f ConfigProto ConfigProto - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _ConfigProto'allowSoftPlacement - (\ x__ y__ -> x__{_ConfigProto'allowSoftPlacement = y__})) - Prelude.id - -instance (a ~ Prelude.Bool, b ~ Prelude.Bool, Prelude.Functor f) => - Lens.Labels.HasLens "logDevicePlacement" f ConfigProto ConfigProto - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _ConfigProto'logDevicePlacement - (\ x__ y__ -> x__{_ConfigProto'logDevicePlacement = y__})) - Prelude.id - -instance (a ~ GraphOptions, b ~ GraphOptions, Prelude.Functor f) => - Lens.Labels.HasLens "graphOptions" f ConfigProto ConfigProto a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _ConfigProto'graphOptions - (\ x__ y__ -> x__{_ConfigProto'graphOptions = y__})) - (Data.ProtoLens.maybeLens Data.Default.Class.def) - -instance (a ~ Prelude.Maybe GraphOptions, - b ~ Prelude.Maybe GraphOptions, Prelude.Functor f) => - Lens.Labels.HasLens "maybe'graphOptions" f ConfigProto ConfigProto - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _ConfigProto'graphOptions - (\ x__ y__ -> x__{_ConfigProto'graphOptions = y__})) - Prelude.id - -instance (a ~ Data.Int.Int64, b ~ Data.Int.Int64, - Prelude.Functor f) => - Lens.Labels.HasLens "operationTimeoutInMs" f ConfigProto - ConfigProto - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _ConfigProto'operationTimeoutInMs - (\ x__ y__ -> x__{_ConfigProto'operationTimeoutInMs = y__})) - Prelude.id - -instance (a ~ RPCOptions, b ~ RPCOptions, Prelude.Functor f) => - Lens.Labels.HasLens "rpcOptions" f ConfigProto ConfigProto a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _ConfigProto'rpcOptions - (\ x__ y__ -> x__{_ConfigProto'rpcOptions = y__})) - (Data.ProtoLens.maybeLens Data.Default.Class.def) - -instance (a ~ Prelude.Maybe RPCOptions, - b ~ Prelude.Maybe RPCOptions, Prelude.Functor f) => - Lens.Labels.HasLens "maybe'rpcOptions" f ConfigProto ConfigProto a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _ConfigProto'rpcOptions - (\ x__ y__ -> x__{_ConfigProto'rpcOptions = y__})) - Prelude.id - -instance (a ~ Proto.Tensorflow.Core.Protobuf.Cluster.ClusterDef, - b ~ Proto.Tensorflow.Core.Protobuf.Cluster.ClusterDef, - Prelude.Functor f) => - Lens.Labels.HasLens "clusterDef" f ConfigProto ConfigProto a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _ConfigProto'clusterDef - (\ x__ y__ -> x__{_ConfigProto'clusterDef = y__})) - (Data.ProtoLens.maybeLens Data.Default.Class.def) - -instance (a ~ - Prelude.Maybe Proto.Tensorflow.Core.Protobuf.Cluster.ClusterDef, - b ~ - Prelude.Maybe Proto.Tensorflow.Core.Protobuf.Cluster.ClusterDef, - Prelude.Functor f) => - Lens.Labels.HasLens "maybe'clusterDef" f ConfigProto ConfigProto a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _ConfigProto'clusterDef - (\ x__ y__ -> x__{_ConfigProto'clusterDef = y__})) - Prelude.id - -instance (a ~ Prelude.Bool, b ~ Prelude.Bool, Prelude.Functor f) => - Lens.Labels.HasLens "isolateSessionState" f ConfigProto ConfigProto - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _ConfigProto'isolateSessionState - (\ x__ y__ -> x__{_ConfigProto'isolateSessionState = y__})) - Prelude.id - -instance (a ~ ConfigProto'Experimental, - b ~ ConfigProto'Experimental, Prelude.Functor f) => - Lens.Labels.HasLens "experimental" f ConfigProto ConfigProto a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _ConfigProto'experimental - (\ x__ y__ -> x__{_ConfigProto'experimental = y__})) - (Data.ProtoLens.maybeLens Data.Default.Class.def) - -instance (a ~ Prelude.Maybe ConfigProto'Experimental, - b ~ Prelude.Maybe ConfigProto'Experimental, Prelude.Functor f) => - Lens.Labels.HasLens "maybe'experimental" f ConfigProto ConfigProto - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _ConfigProto'experimental - (\ x__ y__ -> x__{_ConfigProto'experimental = y__})) - Prelude.id - -instance Data.Default.Class.Default ConfigProto where - def - = ConfigProto{_ConfigProto'deviceCount = Data.Map.empty, - _ConfigProto'intraOpParallelismThreads = - Data.ProtoLens.fieldDefault, - _ConfigProto'interOpParallelismThreads = - Data.ProtoLens.fieldDefault, - _ConfigProto'usePerSessionThreads = Data.ProtoLens.fieldDefault, - _ConfigProto'sessionInterOpThreadPool = [], - _ConfigProto'placementPeriod = Data.ProtoLens.fieldDefault, - _ConfigProto'deviceFilters = [], - _ConfigProto'gpuOptions = Prelude.Nothing, - _ConfigProto'allowSoftPlacement = Data.ProtoLens.fieldDefault, - _ConfigProto'logDevicePlacement = Data.ProtoLens.fieldDefault, - _ConfigProto'graphOptions = Prelude.Nothing, - _ConfigProto'operationTimeoutInMs = Data.ProtoLens.fieldDefault, - _ConfigProto'rpcOptions = Prelude.Nothing, - _ConfigProto'clusterDef = Prelude.Nothing, - _ConfigProto'isolateSessionState = Data.ProtoLens.fieldDefault, - _ConfigProto'experimental = Prelude.Nothing} - -instance Data.ProtoLens.Message ConfigProto where - descriptor - = let deviceCount__field_descriptor - = Data.ProtoLens.FieldDescriptor "device_count" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor ConfigProto'DeviceCountEntry) - (Data.ProtoLens.MapField key value deviceCount) - :: Data.ProtoLens.FieldDescriptor ConfigProto - intraOpParallelismThreads__field_descriptor - = Data.ProtoLens.FieldDescriptor "intra_op_parallelism_threads" - (Data.ProtoLens.Int32Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional - intraOpParallelismThreads) - :: Data.ProtoLens.FieldDescriptor ConfigProto - interOpParallelismThreads__field_descriptor - = Data.ProtoLens.FieldDescriptor "inter_op_parallelism_threads" - (Data.ProtoLens.Int32Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional - interOpParallelismThreads) - :: Data.ProtoLens.FieldDescriptor ConfigProto - usePerSessionThreads__field_descriptor - = Data.ProtoLens.FieldDescriptor "use_per_session_threads" - (Data.ProtoLens.BoolField :: - Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional - usePerSessionThreads) - :: Data.ProtoLens.FieldDescriptor ConfigProto - sessionInterOpThreadPool__field_descriptor - = Data.ProtoLens.FieldDescriptor "session_inter_op_thread_pool" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor ThreadPoolOptionProto) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked - sessionInterOpThreadPool) - :: Data.ProtoLens.FieldDescriptor ConfigProto - placementPeriod__field_descriptor - = Data.ProtoLens.FieldDescriptor "placement_period" - (Data.ProtoLens.Int32Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional placementPeriod) - :: Data.ProtoLens.FieldDescriptor ConfigProto - deviceFilters__field_descriptor - = Data.ProtoLens.FieldDescriptor "device_filters" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked - deviceFilters) - :: Data.ProtoLens.FieldDescriptor ConfigProto - gpuOptions__field_descriptor - = Data.ProtoLens.FieldDescriptor "gpu_options" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor GPUOptions) - (Data.ProtoLens.OptionalField maybe'gpuOptions) - :: Data.ProtoLens.FieldDescriptor ConfigProto - allowSoftPlacement__field_descriptor - = Data.ProtoLens.FieldDescriptor "allow_soft_placement" - (Data.ProtoLens.BoolField :: - Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional - allowSoftPlacement) - :: Data.ProtoLens.FieldDescriptor ConfigProto - logDevicePlacement__field_descriptor - = Data.ProtoLens.FieldDescriptor "log_device_placement" - (Data.ProtoLens.BoolField :: - Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional - logDevicePlacement) - :: Data.ProtoLens.FieldDescriptor ConfigProto - graphOptions__field_descriptor - = Data.ProtoLens.FieldDescriptor "graph_options" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor GraphOptions) - (Data.ProtoLens.OptionalField maybe'graphOptions) - :: Data.ProtoLens.FieldDescriptor ConfigProto - operationTimeoutInMs__field_descriptor - = Data.ProtoLens.FieldDescriptor "operation_timeout_in_ms" - (Data.ProtoLens.Int64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional - operationTimeoutInMs) - :: Data.ProtoLens.FieldDescriptor ConfigProto - rpcOptions__field_descriptor - = Data.ProtoLens.FieldDescriptor "rpc_options" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor RPCOptions) - (Data.ProtoLens.OptionalField maybe'rpcOptions) - :: Data.ProtoLens.FieldDescriptor ConfigProto - clusterDef__field_descriptor - = Data.ProtoLens.FieldDescriptor "cluster_def" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor - Proto.Tensorflow.Core.Protobuf.Cluster.ClusterDef) - (Data.ProtoLens.OptionalField maybe'clusterDef) - :: Data.ProtoLens.FieldDescriptor ConfigProto - isolateSessionState__field_descriptor - = Data.ProtoLens.FieldDescriptor "isolate_session_state" - (Data.ProtoLens.BoolField :: - Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional - isolateSessionState) - :: Data.ProtoLens.FieldDescriptor ConfigProto - experimental__field_descriptor - = Data.ProtoLens.FieldDescriptor "experimental" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor ConfigProto'Experimental) - (Data.ProtoLens.OptionalField maybe'experimental) - :: Data.ProtoLens.FieldDescriptor ConfigProto - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.ConfigProto") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, deviceCount__field_descriptor), - (Data.ProtoLens.Tag 2, - intraOpParallelismThreads__field_descriptor), - (Data.ProtoLens.Tag 5, - interOpParallelismThreads__field_descriptor), - (Data.ProtoLens.Tag 9, usePerSessionThreads__field_descriptor), - (Data.ProtoLens.Tag 12, - sessionInterOpThreadPool__field_descriptor), - (Data.ProtoLens.Tag 3, placementPeriod__field_descriptor), - (Data.ProtoLens.Tag 4, deviceFilters__field_descriptor), - (Data.ProtoLens.Tag 6, gpuOptions__field_descriptor), - (Data.ProtoLens.Tag 7, allowSoftPlacement__field_descriptor), - (Data.ProtoLens.Tag 8, logDevicePlacement__field_descriptor), - (Data.ProtoLens.Tag 10, graphOptions__field_descriptor), - (Data.ProtoLens.Tag 11, operationTimeoutInMs__field_descriptor), - (Data.ProtoLens.Tag 13, rpcOptions__field_descriptor), - (Data.ProtoLens.Tag 14, clusterDef__field_descriptor), - (Data.ProtoLens.Tag 15, isolateSessionState__field_descriptor), - (Data.ProtoLens.Tag 16, experimental__field_descriptor)]) - (Data.Map.fromList - [("device_count", deviceCount__field_descriptor), - ("intra_op_parallelism_threads", - intraOpParallelismThreads__field_descriptor), - ("inter_op_parallelism_threads", - interOpParallelismThreads__field_descriptor), - ("use_per_session_threads", - usePerSessionThreads__field_descriptor), - ("session_inter_op_thread_pool", - sessionInterOpThreadPool__field_descriptor), - ("placement_period", placementPeriod__field_descriptor), - ("device_filters", deviceFilters__field_descriptor), - ("gpu_options", gpuOptions__field_descriptor), - ("allow_soft_placement", allowSoftPlacement__field_descriptor), - ("log_device_placement", logDevicePlacement__field_descriptor), - ("graph_options", graphOptions__field_descriptor), - ("operation_timeout_in_ms", - operationTimeoutInMs__field_descriptor), - ("rpc_options", rpcOptions__field_descriptor), - ("cluster_def", clusterDef__field_descriptor), - ("isolate_session_state", isolateSessionState__field_descriptor), - ("experimental", experimental__field_descriptor)]) - -data ConfigProto'DeviceCountEntry = ConfigProto'DeviceCountEntry{_ConfigProto'DeviceCountEntry'key - :: !Data.Text.Text, - _ConfigProto'DeviceCountEntry'value - :: !Data.Int.Int32} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "key" f ConfigProto'DeviceCountEntry - ConfigProto'DeviceCountEntry - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _ConfigProto'DeviceCountEntry'key - (\ x__ y__ -> x__{_ConfigProto'DeviceCountEntry'key = y__})) - Prelude.id - -instance (a ~ Data.Int.Int32, b ~ Data.Int.Int32, - Prelude.Functor f) => - Lens.Labels.HasLens "value" f ConfigProto'DeviceCountEntry - ConfigProto'DeviceCountEntry - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _ConfigProto'DeviceCountEntry'value - (\ x__ y__ -> x__{_ConfigProto'DeviceCountEntry'value = y__})) - Prelude.id - -instance Data.Default.Class.Default ConfigProto'DeviceCountEntry - where - def - = ConfigProto'DeviceCountEntry{_ConfigProto'DeviceCountEntry'key = - Data.ProtoLens.fieldDefault, - _ConfigProto'DeviceCountEntry'value = - Data.ProtoLens.fieldDefault} - -instance Data.ProtoLens.Message ConfigProto'DeviceCountEntry where - descriptor - = let key__field_descriptor - = Data.ProtoLens.FieldDescriptor "key" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional key) - :: Data.ProtoLens.FieldDescriptor ConfigProto'DeviceCountEntry - value__field_descriptor - = Data.ProtoLens.FieldDescriptor "value" - (Data.ProtoLens.Int32Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional value) - :: Data.ProtoLens.FieldDescriptor ConfigProto'DeviceCountEntry - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.ConfigProto.DeviceCountEntry") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, key__field_descriptor), - (Data.ProtoLens.Tag 2, value__field_descriptor)]) - (Data.Map.fromList - [("key", key__field_descriptor), - ("value", value__field_descriptor)]) - -data ConfigProto'Experimental = ConfigProto'Experimental{_ConfigProto'Experimental'collectiveGroupLeader - :: !Data.Text.Text} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "collectiveGroupLeader" f - ConfigProto'Experimental - ConfigProto'Experimental - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _ConfigProto'Experimental'collectiveGroupLeader - (\ x__ y__ -> - x__{_ConfigProto'Experimental'collectiveGroupLeader = y__})) - Prelude.id - -instance Data.Default.Class.Default ConfigProto'Experimental where - def - = ConfigProto'Experimental{_ConfigProto'Experimental'collectiveGroupLeader - = Data.ProtoLens.fieldDefault} - -instance Data.ProtoLens.Message ConfigProto'Experimental where - descriptor - = let collectiveGroupLeader__field_descriptor - = Data.ProtoLens.FieldDescriptor "collective_group_leader" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional - collectiveGroupLeader) - :: Data.ProtoLens.FieldDescriptor ConfigProto'Experimental - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.ConfigProto.Experimental") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, collectiveGroupLeader__field_descriptor)]) - (Data.Map.fromList - [("collective_group_leader", - collectiveGroupLeader__field_descriptor)]) - -data GPUOptions = GPUOptions{_GPUOptions'perProcessGpuMemoryFraction - :: !Prelude.Double, - _GPUOptions'allowGrowth :: !Prelude.Bool, - _GPUOptions'allocatorType :: !Data.Text.Text, - _GPUOptions'deferredDeletionBytes :: !Data.Int.Int64, - _GPUOptions'visibleDeviceList :: !Data.Text.Text, - _GPUOptions'pollingActiveDelayUsecs :: !Data.Int.Int32, - _GPUOptions'pollingInactiveDelayMsecs :: !Data.Int.Int32, - _GPUOptions'forceGpuCompatible :: !Prelude.Bool, - _GPUOptions'experimental :: - !(Prelude.Maybe GPUOptions'Experimental)} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Prelude.Double, b ~ Prelude.Double, - Prelude.Functor f) => - Lens.Labels.HasLens "perProcessGpuMemoryFraction" f GPUOptions - GPUOptions - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _GPUOptions'perProcessGpuMemoryFraction - (\ x__ y__ -> x__{_GPUOptions'perProcessGpuMemoryFraction = y__})) - Prelude.id - -instance (a ~ Prelude.Bool, b ~ Prelude.Bool, Prelude.Functor f) => - Lens.Labels.HasLens "allowGrowth" f GPUOptions GPUOptions a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _GPUOptions'allowGrowth - (\ x__ y__ -> x__{_GPUOptions'allowGrowth = y__})) - Prelude.id - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "allocatorType" f GPUOptions GPUOptions a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _GPUOptions'allocatorType - (\ x__ y__ -> x__{_GPUOptions'allocatorType = y__})) - Prelude.id - -instance (a ~ Data.Int.Int64, b ~ Data.Int.Int64, - Prelude.Functor f) => - Lens.Labels.HasLens "deferredDeletionBytes" f GPUOptions GPUOptions - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _GPUOptions'deferredDeletionBytes - (\ x__ y__ -> x__{_GPUOptions'deferredDeletionBytes = y__})) - Prelude.id - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "visibleDeviceList" f GPUOptions GPUOptions a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _GPUOptions'visibleDeviceList - (\ x__ y__ -> x__{_GPUOptions'visibleDeviceList = y__})) - Prelude.id - -instance (a ~ Data.Int.Int32, b ~ Data.Int.Int32, - Prelude.Functor f) => - Lens.Labels.HasLens "pollingActiveDelayUsecs" f GPUOptions - GPUOptions - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _GPUOptions'pollingActiveDelayUsecs - (\ x__ y__ -> x__{_GPUOptions'pollingActiveDelayUsecs = y__})) - Prelude.id - -instance (a ~ Data.Int.Int32, b ~ Data.Int.Int32, - Prelude.Functor f) => - Lens.Labels.HasLens "pollingInactiveDelayMsecs" f GPUOptions - GPUOptions - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _GPUOptions'pollingInactiveDelayMsecs - (\ x__ y__ -> x__{_GPUOptions'pollingInactiveDelayMsecs = y__})) - Prelude.id - -instance (a ~ Prelude.Bool, b ~ Prelude.Bool, Prelude.Functor f) => - Lens.Labels.HasLens "forceGpuCompatible" f GPUOptions GPUOptions a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _GPUOptions'forceGpuCompatible - (\ x__ y__ -> x__{_GPUOptions'forceGpuCompatible = y__})) - Prelude.id - -instance (a ~ GPUOptions'Experimental, b ~ GPUOptions'Experimental, - Prelude.Functor f) => - Lens.Labels.HasLens "experimental" f GPUOptions GPUOptions a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _GPUOptions'experimental - (\ x__ y__ -> x__{_GPUOptions'experimental = y__})) - (Data.ProtoLens.maybeLens Data.Default.Class.def) - -instance (a ~ Prelude.Maybe GPUOptions'Experimental, - b ~ Prelude.Maybe GPUOptions'Experimental, Prelude.Functor f) => - Lens.Labels.HasLens "maybe'experimental" f GPUOptions GPUOptions a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _GPUOptions'experimental - (\ x__ y__ -> x__{_GPUOptions'experimental = y__})) - Prelude.id - -instance Data.Default.Class.Default GPUOptions where - def - = GPUOptions{_GPUOptions'perProcessGpuMemoryFraction = - Data.ProtoLens.fieldDefault, - _GPUOptions'allowGrowth = Data.ProtoLens.fieldDefault, - _GPUOptions'allocatorType = Data.ProtoLens.fieldDefault, - _GPUOptions'deferredDeletionBytes = Data.ProtoLens.fieldDefault, - _GPUOptions'visibleDeviceList = Data.ProtoLens.fieldDefault, - _GPUOptions'pollingActiveDelayUsecs = Data.ProtoLens.fieldDefault, - _GPUOptions'pollingInactiveDelayMsecs = - Data.ProtoLens.fieldDefault, - _GPUOptions'forceGpuCompatible = Data.ProtoLens.fieldDefault, - _GPUOptions'experimental = Prelude.Nothing} - -instance Data.ProtoLens.Message GPUOptions where - descriptor - = let perProcessGpuMemoryFraction__field_descriptor - = Data.ProtoLens.FieldDescriptor "per_process_gpu_memory_fraction" - (Data.ProtoLens.DoubleField :: - Data.ProtoLens.FieldTypeDescriptor Prelude.Double) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional - perProcessGpuMemoryFraction) - :: Data.ProtoLens.FieldDescriptor GPUOptions - allowGrowth__field_descriptor - = Data.ProtoLens.FieldDescriptor "allow_growth" - (Data.ProtoLens.BoolField :: - Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional allowGrowth) - :: Data.ProtoLens.FieldDescriptor GPUOptions - allocatorType__field_descriptor - = Data.ProtoLens.FieldDescriptor "allocator_type" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional allocatorType) - :: Data.ProtoLens.FieldDescriptor GPUOptions - deferredDeletionBytes__field_descriptor - = Data.ProtoLens.FieldDescriptor "deferred_deletion_bytes" - (Data.ProtoLens.Int64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional - deferredDeletionBytes) - :: Data.ProtoLens.FieldDescriptor GPUOptions - visibleDeviceList__field_descriptor - = Data.ProtoLens.FieldDescriptor "visible_device_list" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional - visibleDeviceList) - :: Data.ProtoLens.FieldDescriptor GPUOptions - pollingActiveDelayUsecs__field_descriptor - = Data.ProtoLens.FieldDescriptor "polling_active_delay_usecs" - (Data.ProtoLens.Int32Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional - pollingActiveDelayUsecs) - :: Data.ProtoLens.FieldDescriptor GPUOptions - pollingInactiveDelayMsecs__field_descriptor - = Data.ProtoLens.FieldDescriptor "polling_inactive_delay_msecs" - (Data.ProtoLens.Int32Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional - pollingInactiveDelayMsecs) - :: Data.ProtoLens.FieldDescriptor GPUOptions - forceGpuCompatible__field_descriptor - = Data.ProtoLens.FieldDescriptor "force_gpu_compatible" - (Data.ProtoLens.BoolField :: - Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional - forceGpuCompatible) - :: Data.ProtoLens.FieldDescriptor GPUOptions - experimental__field_descriptor - = Data.ProtoLens.FieldDescriptor "experimental" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor GPUOptions'Experimental) - (Data.ProtoLens.OptionalField maybe'experimental) - :: Data.ProtoLens.FieldDescriptor GPUOptions - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.GPUOptions") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, - perProcessGpuMemoryFraction__field_descriptor), - (Data.ProtoLens.Tag 4, allowGrowth__field_descriptor), - (Data.ProtoLens.Tag 2, allocatorType__field_descriptor), - (Data.ProtoLens.Tag 3, deferredDeletionBytes__field_descriptor), - (Data.ProtoLens.Tag 5, visibleDeviceList__field_descriptor), - (Data.ProtoLens.Tag 6, pollingActiveDelayUsecs__field_descriptor), - (Data.ProtoLens.Tag 7, - pollingInactiveDelayMsecs__field_descriptor), - (Data.ProtoLens.Tag 8, forceGpuCompatible__field_descriptor), - (Data.ProtoLens.Tag 9, experimental__field_descriptor)]) - (Data.Map.fromList - [("per_process_gpu_memory_fraction", - perProcessGpuMemoryFraction__field_descriptor), - ("allow_growth", allowGrowth__field_descriptor), - ("allocator_type", allocatorType__field_descriptor), - ("deferred_deletion_bytes", - deferredDeletionBytes__field_descriptor), - ("visible_device_list", visibleDeviceList__field_descriptor), - ("polling_active_delay_usecs", - pollingActiveDelayUsecs__field_descriptor), - ("polling_inactive_delay_msecs", - pollingInactiveDelayMsecs__field_descriptor), - ("force_gpu_compatible", forceGpuCompatible__field_descriptor), - ("experimental", experimental__field_descriptor)]) - -data GPUOptions'Experimental = GPUOptions'Experimental{_GPUOptions'Experimental'virtualDevices - :: ![GPUOptions'Experimental'VirtualDevices], - _GPUOptions'Experimental'useUnifiedMemory :: - !Prelude.Bool} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ [GPUOptions'Experimental'VirtualDevices], - b ~ [GPUOptions'Experimental'VirtualDevices], Prelude.Functor f) => - Lens.Labels.HasLens "virtualDevices" f GPUOptions'Experimental - GPUOptions'Experimental - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _GPUOptions'Experimental'virtualDevices - (\ x__ y__ -> x__{_GPUOptions'Experimental'virtualDevices = y__})) - Prelude.id - -instance (a ~ Prelude.Bool, b ~ Prelude.Bool, Prelude.Functor f) => - Lens.Labels.HasLens "useUnifiedMemory" f GPUOptions'Experimental - GPUOptions'Experimental - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _GPUOptions'Experimental'useUnifiedMemory - (\ x__ y__ -> - x__{_GPUOptions'Experimental'useUnifiedMemory = y__})) - Prelude.id - -instance Data.Default.Class.Default GPUOptions'Experimental where - def - = GPUOptions'Experimental{_GPUOptions'Experimental'virtualDevices = - [], - _GPUOptions'Experimental'useUnifiedMemory = - Data.ProtoLens.fieldDefault} - -instance Data.ProtoLens.Message GPUOptions'Experimental where - descriptor - = let virtualDevices__field_descriptor - = Data.ProtoLens.FieldDescriptor "virtual_devices" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor - GPUOptions'Experimental'VirtualDevices) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked - virtualDevices) - :: Data.ProtoLens.FieldDescriptor GPUOptions'Experimental - useUnifiedMemory__field_descriptor - = Data.ProtoLens.FieldDescriptor "use_unified_memory" - (Data.ProtoLens.BoolField :: - Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional - useUnifiedMemory) - :: Data.ProtoLens.FieldDescriptor GPUOptions'Experimental - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.GPUOptions.Experimental") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, virtualDevices__field_descriptor), - (Data.ProtoLens.Tag 2, useUnifiedMemory__field_descriptor)]) - (Data.Map.fromList - [("virtual_devices", virtualDevices__field_descriptor), - ("use_unified_memory", useUnifiedMemory__field_descriptor)]) - -data GPUOptions'Experimental'VirtualDevices = GPUOptions'Experimental'VirtualDevices{_GPUOptions'Experimental'VirtualDevices'memoryLimitMb - :: - ![Prelude.Float]} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ [Prelude.Float], b ~ [Prelude.Float], - Prelude.Functor f) => - Lens.Labels.HasLens "memoryLimitMb" f - GPUOptions'Experimental'VirtualDevices - GPUOptions'Experimental'VirtualDevices - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _GPUOptions'Experimental'VirtualDevices'memoryLimitMb - (\ x__ y__ -> - x__{_GPUOptions'Experimental'VirtualDevices'memoryLimitMb = y__})) - Prelude.id - -instance Data.Default.Class.Default - GPUOptions'Experimental'VirtualDevices - where - def - = GPUOptions'Experimental'VirtualDevices{_GPUOptions'Experimental'VirtualDevices'memoryLimitMb - = []} - -instance Data.ProtoLens.Message - GPUOptions'Experimental'VirtualDevices - where - descriptor - = let memoryLimitMb__field_descriptor - = Data.ProtoLens.FieldDescriptor "memory_limit_mb" - (Data.ProtoLens.FloatField :: - Data.ProtoLens.FieldTypeDescriptor Prelude.Float) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Packed memoryLimitMb) - :: - Data.ProtoLens.FieldDescriptor - GPUOptions'Experimental'VirtualDevices - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack - "tensorflow.GPUOptions.Experimental.VirtualDevices") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, memoryLimitMb__field_descriptor)]) - (Data.Map.fromList - [("memory_limit_mb", memoryLimitMb__field_descriptor)]) - -data GraphOptions = GraphOptions{_GraphOptions'enableRecvScheduling - :: !Prelude.Bool, - _GraphOptions'optimizerOptions :: - !(Prelude.Maybe OptimizerOptions), - _GraphOptions'buildCostModel :: !Data.Int.Int64, - _GraphOptions'buildCostModelAfter :: !Data.Int.Int64, - _GraphOptions'inferShapes :: !Prelude.Bool, - _GraphOptions'placePrunedGraph :: !Prelude.Bool, - _GraphOptions'enableBfloat16Sendrecv :: !Prelude.Bool, - _GraphOptions'timelineStep :: !Data.Int.Int32, - _GraphOptions'rewriteOptions :: - !(Prelude.Maybe - Proto.Tensorflow.Core.Protobuf.RewriterConfig.RewriterConfig)} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Prelude.Bool, b ~ Prelude.Bool, Prelude.Functor f) => - Lens.Labels.HasLens "enableRecvScheduling" f GraphOptions - GraphOptions - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _GraphOptions'enableRecvScheduling - (\ x__ y__ -> x__{_GraphOptions'enableRecvScheduling = y__})) - Prelude.id - -instance (a ~ OptimizerOptions, b ~ OptimizerOptions, - Prelude.Functor f) => - Lens.Labels.HasLens "optimizerOptions" f GraphOptions GraphOptions - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _GraphOptions'optimizerOptions - (\ x__ y__ -> x__{_GraphOptions'optimizerOptions = y__})) - (Data.ProtoLens.maybeLens Data.Default.Class.def) - -instance (a ~ Prelude.Maybe OptimizerOptions, - b ~ Prelude.Maybe OptimizerOptions, Prelude.Functor f) => - Lens.Labels.HasLens "maybe'optimizerOptions" f GraphOptions - GraphOptions - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _GraphOptions'optimizerOptions - (\ x__ y__ -> x__{_GraphOptions'optimizerOptions = y__})) - Prelude.id - -instance (a ~ Data.Int.Int64, b ~ Data.Int.Int64, - Prelude.Functor f) => - Lens.Labels.HasLens "buildCostModel" f GraphOptions GraphOptions a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _GraphOptions'buildCostModel - (\ x__ y__ -> x__{_GraphOptions'buildCostModel = y__})) - Prelude.id - -instance (a ~ Data.Int.Int64, b ~ Data.Int.Int64, - Prelude.Functor f) => - Lens.Labels.HasLens "buildCostModelAfter" f GraphOptions - GraphOptions - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _GraphOptions'buildCostModelAfter - (\ x__ y__ -> x__{_GraphOptions'buildCostModelAfter = y__})) - Prelude.id - -instance (a ~ Prelude.Bool, b ~ Prelude.Bool, Prelude.Functor f) => - Lens.Labels.HasLens "inferShapes" f GraphOptions GraphOptions a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _GraphOptions'inferShapes - (\ x__ y__ -> x__{_GraphOptions'inferShapes = y__})) - Prelude.id - -instance (a ~ Prelude.Bool, b ~ Prelude.Bool, Prelude.Functor f) => - Lens.Labels.HasLens "placePrunedGraph" f GraphOptions GraphOptions - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _GraphOptions'placePrunedGraph - (\ x__ y__ -> x__{_GraphOptions'placePrunedGraph = y__})) - Prelude.id - -instance (a ~ Prelude.Bool, b ~ Prelude.Bool, Prelude.Functor f) => - Lens.Labels.HasLens "enableBfloat16Sendrecv" f GraphOptions - GraphOptions - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _GraphOptions'enableBfloat16Sendrecv - (\ x__ y__ -> x__{_GraphOptions'enableBfloat16Sendrecv = y__})) - Prelude.id - -instance (a ~ Data.Int.Int32, b ~ Data.Int.Int32, - Prelude.Functor f) => - Lens.Labels.HasLens "timelineStep" f GraphOptions GraphOptions a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _GraphOptions'timelineStep - (\ x__ y__ -> x__{_GraphOptions'timelineStep = y__})) - Prelude.id - -instance (a ~ - Proto.Tensorflow.Core.Protobuf.RewriterConfig.RewriterConfig, - b ~ Proto.Tensorflow.Core.Protobuf.RewriterConfig.RewriterConfig, - Prelude.Functor f) => - Lens.Labels.HasLens "rewriteOptions" f GraphOptions GraphOptions a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _GraphOptions'rewriteOptions - (\ x__ y__ -> x__{_GraphOptions'rewriteOptions = y__})) - (Data.ProtoLens.maybeLens Data.Default.Class.def) - -instance (a ~ - Prelude.Maybe - Proto.Tensorflow.Core.Protobuf.RewriterConfig.RewriterConfig, - b ~ - Prelude.Maybe - Proto.Tensorflow.Core.Protobuf.RewriterConfig.RewriterConfig, - Prelude.Functor f) => - Lens.Labels.HasLens "maybe'rewriteOptions" f GraphOptions - GraphOptions - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _GraphOptions'rewriteOptions - (\ x__ y__ -> x__{_GraphOptions'rewriteOptions = y__})) - Prelude.id - -instance Data.Default.Class.Default GraphOptions where - def - = GraphOptions{_GraphOptions'enableRecvScheduling = - Data.ProtoLens.fieldDefault, - _GraphOptions'optimizerOptions = Prelude.Nothing, - _GraphOptions'buildCostModel = Data.ProtoLens.fieldDefault, - _GraphOptions'buildCostModelAfter = Data.ProtoLens.fieldDefault, - _GraphOptions'inferShapes = Data.ProtoLens.fieldDefault, - _GraphOptions'placePrunedGraph = Data.ProtoLens.fieldDefault, - _GraphOptions'enableBfloat16Sendrecv = Data.ProtoLens.fieldDefault, - _GraphOptions'timelineStep = Data.ProtoLens.fieldDefault, - _GraphOptions'rewriteOptions = Prelude.Nothing} - -instance Data.ProtoLens.Message GraphOptions where - descriptor - = let enableRecvScheduling__field_descriptor - = Data.ProtoLens.FieldDescriptor "enable_recv_scheduling" - (Data.ProtoLens.BoolField :: - Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional - enableRecvScheduling) - :: Data.ProtoLens.FieldDescriptor GraphOptions - optimizerOptions__field_descriptor - = Data.ProtoLens.FieldDescriptor "optimizer_options" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor OptimizerOptions) - (Data.ProtoLens.OptionalField maybe'optimizerOptions) - :: Data.ProtoLens.FieldDescriptor GraphOptions - buildCostModel__field_descriptor - = Data.ProtoLens.FieldDescriptor "build_cost_model" - (Data.ProtoLens.Int64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional buildCostModel) - :: Data.ProtoLens.FieldDescriptor GraphOptions - buildCostModelAfter__field_descriptor - = Data.ProtoLens.FieldDescriptor "build_cost_model_after" - (Data.ProtoLens.Int64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional - buildCostModelAfter) - :: Data.ProtoLens.FieldDescriptor GraphOptions - inferShapes__field_descriptor - = Data.ProtoLens.FieldDescriptor "infer_shapes" - (Data.ProtoLens.BoolField :: - Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional inferShapes) - :: Data.ProtoLens.FieldDescriptor GraphOptions - placePrunedGraph__field_descriptor - = Data.ProtoLens.FieldDescriptor "place_pruned_graph" - (Data.ProtoLens.BoolField :: - Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional - placePrunedGraph) - :: Data.ProtoLens.FieldDescriptor GraphOptions - enableBfloat16Sendrecv__field_descriptor - = Data.ProtoLens.FieldDescriptor "enable_bfloat16_sendrecv" - (Data.ProtoLens.BoolField :: - Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional - enableBfloat16Sendrecv) - :: Data.ProtoLens.FieldDescriptor GraphOptions - timelineStep__field_descriptor - = Data.ProtoLens.FieldDescriptor "timeline_step" - (Data.ProtoLens.Int32Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional timelineStep) - :: Data.ProtoLens.FieldDescriptor GraphOptions - rewriteOptions__field_descriptor - = Data.ProtoLens.FieldDescriptor "rewrite_options" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor - Proto.Tensorflow.Core.Protobuf.RewriterConfig.RewriterConfig) - (Data.ProtoLens.OptionalField maybe'rewriteOptions) - :: Data.ProtoLens.FieldDescriptor GraphOptions - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.GraphOptions") - (Data.Map.fromList - [(Data.ProtoLens.Tag 2, enableRecvScheduling__field_descriptor), - (Data.ProtoLens.Tag 3, optimizerOptions__field_descriptor), - (Data.ProtoLens.Tag 4, buildCostModel__field_descriptor), - (Data.ProtoLens.Tag 9, buildCostModelAfter__field_descriptor), - (Data.ProtoLens.Tag 5, inferShapes__field_descriptor), - (Data.ProtoLens.Tag 6, placePrunedGraph__field_descriptor), - (Data.ProtoLens.Tag 7, enableBfloat16Sendrecv__field_descriptor), - (Data.ProtoLens.Tag 8, timelineStep__field_descriptor), - (Data.ProtoLens.Tag 10, rewriteOptions__field_descriptor)]) - (Data.Map.fromList - [("enable_recv_scheduling", - enableRecvScheduling__field_descriptor), - ("optimizer_options", optimizerOptions__field_descriptor), - ("build_cost_model", buildCostModel__field_descriptor), - ("build_cost_model_after", buildCostModelAfter__field_descriptor), - ("infer_shapes", inferShapes__field_descriptor), - ("place_pruned_graph", placePrunedGraph__field_descriptor), - ("enable_bfloat16_sendrecv", - enableBfloat16Sendrecv__field_descriptor), - ("timeline_step", timelineStep__field_descriptor), - ("rewrite_options", rewriteOptions__field_descriptor)]) - -data OptimizerOptions = OptimizerOptions{_OptimizerOptions'doCommonSubexpressionElimination - :: !Prelude.Bool, - _OptimizerOptions'doConstantFolding :: !Prelude.Bool, - _OptimizerOptions'maxFoldedConstantInBytes :: - !Data.Int.Int64, - _OptimizerOptions'doFunctionInlining :: !Prelude.Bool, - _OptimizerOptions'optLevel :: !OptimizerOptions'Level, - _OptimizerOptions'globalJitLevel :: - !OptimizerOptions'GlobalJitLevel} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Prelude.Bool, b ~ Prelude.Bool, Prelude.Functor f) => - Lens.Labels.HasLens "doCommonSubexpressionElimination" f - OptimizerOptions - OptimizerOptions - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _OptimizerOptions'doCommonSubexpressionElimination - (\ x__ y__ -> - x__{_OptimizerOptions'doCommonSubexpressionElimination = y__})) - Prelude.id - -instance (a ~ Prelude.Bool, b ~ Prelude.Bool, Prelude.Functor f) => - Lens.Labels.HasLens "doConstantFolding" f OptimizerOptions - OptimizerOptions - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _OptimizerOptions'doConstantFolding - (\ x__ y__ -> x__{_OptimizerOptions'doConstantFolding = y__})) - Prelude.id - -instance (a ~ Data.Int.Int64, b ~ Data.Int.Int64, - Prelude.Functor f) => - Lens.Labels.HasLens "maxFoldedConstantInBytes" f OptimizerOptions - OptimizerOptions - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _OptimizerOptions'maxFoldedConstantInBytes - (\ x__ y__ -> - x__{_OptimizerOptions'maxFoldedConstantInBytes = y__})) - Prelude.id - -instance (a ~ Prelude.Bool, b ~ Prelude.Bool, Prelude.Functor f) => - Lens.Labels.HasLens "doFunctionInlining" f OptimizerOptions - OptimizerOptions - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _OptimizerOptions'doFunctionInlining - (\ x__ y__ -> x__{_OptimizerOptions'doFunctionInlining = y__})) - Prelude.id - -instance (a ~ OptimizerOptions'Level, b ~ OptimizerOptions'Level, - Prelude.Functor f) => - Lens.Labels.HasLens "optLevel" f OptimizerOptions OptimizerOptions - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _OptimizerOptions'optLevel - (\ x__ y__ -> x__{_OptimizerOptions'optLevel = y__})) - Prelude.id - -instance (a ~ OptimizerOptions'GlobalJitLevel, - b ~ OptimizerOptions'GlobalJitLevel, Prelude.Functor f) => - Lens.Labels.HasLens "globalJitLevel" f OptimizerOptions - OptimizerOptions - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _OptimizerOptions'globalJitLevel - (\ x__ y__ -> x__{_OptimizerOptions'globalJitLevel = y__})) - Prelude.id - -instance Data.Default.Class.Default OptimizerOptions where - def - = OptimizerOptions{_OptimizerOptions'doCommonSubexpressionElimination - = Data.ProtoLens.fieldDefault, - _OptimizerOptions'doConstantFolding = Data.ProtoLens.fieldDefault, - _OptimizerOptions'maxFoldedConstantInBytes = - Data.ProtoLens.fieldDefault, - _OptimizerOptions'doFunctionInlining = Data.ProtoLens.fieldDefault, - _OptimizerOptions'optLevel = Data.Default.Class.def, - _OptimizerOptions'globalJitLevel = Data.Default.Class.def} - -instance Data.ProtoLens.Message OptimizerOptions where - descriptor - = let doCommonSubexpressionElimination__field_descriptor - = Data.ProtoLens.FieldDescriptor - "do_common_subexpression_elimination" - (Data.ProtoLens.BoolField :: - Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional - doCommonSubexpressionElimination) - :: Data.ProtoLens.FieldDescriptor OptimizerOptions - doConstantFolding__field_descriptor - = Data.ProtoLens.FieldDescriptor "do_constant_folding" - (Data.ProtoLens.BoolField :: - Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional - doConstantFolding) - :: Data.ProtoLens.FieldDescriptor OptimizerOptions - maxFoldedConstantInBytes__field_descriptor - = Data.ProtoLens.FieldDescriptor "max_folded_constant_in_bytes" - (Data.ProtoLens.Int64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional - maxFoldedConstantInBytes) - :: Data.ProtoLens.FieldDescriptor OptimizerOptions - doFunctionInlining__field_descriptor - = Data.ProtoLens.FieldDescriptor "do_function_inlining" - (Data.ProtoLens.BoolField :: - Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional - doFunctionInlining) - :: Data.ProtoLens.FieldDescriptor OptimizerOptions - optLevel__field_descriptor - = Data.ProtoLens.FieldDescriptor "opt_level" - (Data.ProtoLens.EnumField :: - Data.ProtoLens.FieldTypeDescriptor OptimizerOptions'Level) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional optLevel) - :: Data.ProtoLens.FieldDescriptor OptimizerOptions - globalJitLevel__field_descriptor - = Data.ProtoLens.FieldDescriptor "global_jit_level" - (Data.ProtoLens.EnumField :: - Data.ProtoLens.FieldTypeDescriptor OptimizerOptions'GlobalJitLevel) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional globalJitLevel) - :: Data.ProtoLens.FieldDescriptor OptimizerOptions - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.OptimizerOptions") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, - doCommonSubexpressionElimination__field_descriptor), - (Data.ProtoLens.Tag 2, doConstantFolding__field_descriptor), - (Data.ProtoLens.Tag 6, maxFoldedConstantInBytes__field_descriptor), - (Data.ProtoLens.Tag 4, doFunctionInlining__field_descriptor), - (Data.ProtoLens.Tag 3, optLevel__field_descriptor), - (Data.ProtoLens.Tag 5, globalJitLevel__field_descriptor)]) - (Data.Map.fromList - [("do_common_subexpression_elimination", - doCommonSubexpressionElimination__field_descriptor), - ("do_constant_folding", doConstantFolding__field_descriptor), - ("max_folded_constant_in_bytes", - maxFoldedConstantInBytes__field_descriptor), - ("do_function_inlining", doFunctionInlining__field_descriptor), - ("opt_level", optLevel__field_descriptor), - ("global_jit_level", globalJitLevel__field_descriptor)]) - -data OptimizerOptions'GlobalJitLevel = OptimizerOptions'OFF - | OptimizerOptions'DEFAULT - | OptimizerOptions'ON_1 - | OptimizerOptions'ON_2 - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance Data.Default.Class.Default OptimizerOptions'GlobalJitLevel - where - def = OptimizerOptions'OFF - -instance Data.ProtoLens.FieldDefault - OptimizerOptions'GlobalJitLevel - where - fieldDefault = OptimizerOptions'OFF - -instance Data.ProtoLens.MessageEnum OptimizerOptions'GlobalJitLevel - where - maybeToEnum (-1) = Prelude.Just OptimizerOptions'OFF - maybeToEnum 0 = Prelude.Just OptimizerOptions'DEFAULT - maybeToEnum 1 = Prelude.Just OptimizerOptions'ON_1 - maybeToEnum 2 = Prelude.Just OptimizerOptions'ON_2 - maybeToEnum _ = Prelude.Nothing - showEnum OptimizerOptions'OFF = "OFF" - showEnum OptimizerOptions'DEFAULT = "DEFAULT" - showEnum OptimizerOptions'ON_1 = "ON_1" - showEnum OptimizerOptions'ON_2 = "ON_2" - readEnum "OFF" = Prelude.Just OptimizerOptions'OFF - readEnum "DEFAULT" = Prelude.Just OptimizerOptions'DEFAULT - readEnum "ON_1" = Prelude.Just OptimizerOptions'ON_1 - readEnum "ON_2" = Prelude.Just OptimizerOptions'ON_2 - readEnum _ = Prelude.Nothing - -instance Prelude.Enum OptimizerOptions'GlobalJitLevel where - toEnum k__ - = Prelude.maybe - (Prelude.error - ((Prelude.++) "toEnum: unknown value for enum GlobalJitLevel: " - (Prelude.show k__))) - Prelude.id - (Data.ProtoLens.maybeToEnum k__) - fromEnum OptimizerOptions'OFF = -1 - fromEnum OptimizerOptions'DEFAULT = 0 - fromEnum OptimizerOptions'ON_1 = 1 - fromEnum OptimizerOptions'ON_2 = 2 - succ OptimizerOptions'ON_2 - = Prelude.error - "OptimizerOptions'GlobalJitLevel.succ: bad argument OptimizerOptions'ON_2. This value would be out of bounds." - succ OptimizerOptions'OFF = OptimizerOptions'DEFAULT - succ OptimizerOptions'DEFAULT = OptimizerOptions'ON_1 - succ OptimizerOptions'ON_1 = OptimizerOptions'ON_2 - pred OptimizerOptions'OFF - = Prelude.error - "OptimizerOptions'GlobalJitLevel.pred: bad argument OptimizerOptions'OFF. This value would be out of bounds." - pred OptimizerOptions'DEFAULT = OptimizerOptions'OFF - pred OptimizerOptions'ON_1 = OptimizerOptions'DEFAULT - pred OptimizerOptions'ON_2 = OptimizerOptions'ON_1 - enumFrom = Data.ProtoLens.Message.Enum.messageEnumFrom - enumFromTo = Data.ProtoLens.Message.Enum.messageEnumFromTo - enumFromThen = Data.ProtoLens.Message.Enum.messageEnumFromThen - enumFromThenTo = Data.ProtoLens.Message.Enum.messageEnumFromThenTo - -instance Prelude.Bounded OptimizerOptions'GlobalJitLevel where - minBound = OptimizerOptions'OFF - maxBound = OptimizerOptions'ON_2 - -data OptimizerOptions'Level = OptimizerOptions'L0 - | OptimizerOptions'L1 - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance Data.Default.Class.Default OptimizerOptions'Level where - def = OptimizerOptions'L0 - -instance Data.ProtoLens.FieldDefault OptimizerOptions'Level where - fieldDefault = OptimizerOptions'L0 - -instance Data.ProtoLens.MessageEnum OptimizerOptions'Level where - maybeToEnum (-1) = Prelude.Just OptimizerOptions'L0 - maybeToEnum 0 = Prelude.Just OptimizerOptions'L1 - maybeToEnum _ = Prelude.Nothing - showEnum OptimizerOptions'L0 = "L0" - showEnum OptimizerOptions'L1 = "L1" - readEnum "L0" = Prelude.Just OptimizerOptions'L0 - readEnum "L1" = Prelude.Just OptimizerOptions'L1 - readEnum _ = Prelude.Nothing - -instance Prelude.Enum OptimizerOptions'Level where - toEnum k__ - = Prelude.maybe - (Prelude.error - ((Prelude.++) "toEnum: unknown value for enum Level: " - (Prelude.show k__))) - Prelude.id - (Data.ProtoLens.maybeToEnum k__) - fromEnum OptimizerOptions'L0 = -1 - fromEnum OptimizerOptions'L1 = 0 - succ OptimizerOptions'L1 - = Prelude.error - "OptimizerOptions'Level.succ: bad argument OptimizerOptions'L1. This value would be out of bounds." - succ OptimizerOptions'L0 = OptimizerOptions'L1 - pred OptimizerOptions'L0 - = Prelude.error - "OptimizerOptions'Level.pred: bad argument OptimizerOptions'L0. This value would be out of bounds." - pred OptimizerOptions'L1 = OptimizerOptions'L0 - enumFrom = Data.ProtoLens.Message.Enum.messageEnumFrom - enumFromTo = Data.ProtoLens.Message.Enum.messageEnumFromTo - enumFromThen = Data.ProtoLens.Message.Enum.messageEnumFromThen - enumFromThenTo = Data.ProtoLens.Message.Enum.messageEnumFromThenTo - -instance Prelude.Bounded OptimizerOptions'Level where - minBound = OptimizerOptions'L0 - maxBound = OptimizerOptions'L1 - -data RPCOptions = RPCOptions{_RPCOptions'useRpcForInprocessMaster - :: !Prelude.Bool} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Prelude.Bool, b ~ Prelude.Bool, Prelude.Functor f) => - Lens.Labels.HasLens "useRpcForInprocessMaster" f RPCOptions - RPCOptions - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _RPCOptions'useRpcForInprocessMaster - (\ x__ y__ -> x__{_RPCOptions'useRpcForInprocessMaster = y__})) - Prelude.id - -instance Data.Default.Class.Default RPCOptions where - def - = RPCOptions{_RPCOptions'useRpcForInprocessMaster = - Data.ProtoLens.fieldDefault} - -instance Data.ProtoLens.Message RPCOptions where - descriptor - = let useRpcForInprocessMaster__field_descriptor - = Data.ProtoLens.FieldDescriptor "use_rpc_for_inprocess_master" - (Data.ProtoLens.BoolField :: - Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional - useRpcForInprocessMaster) - :: Data.ProtoLens.FieldDescriptor RPCOptions - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.RPCOptions") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, - useRpcForInprocessMaster__field_descriptor)]) - (Data.Map.fromList - [("use_rpc_for_inprocess_master", - useRpcForInprocessMaster__field_descriptor)]) - -data RunMetadata = RunMetadata{_RunMetadata'stepStats :: - !(Prelude.Maybe - Proto.Tensorflow.Core.Framework.StepStats.StepStats), - _RunMetadata'costGraph :: - !(Prelude.Maybe - Proto.Tensorflow.Core.Framework.CostGraph.CostGraphDef), - _RunMetadata'partitionGraphs :: - ![Proto.Tensorflow.Core.Framework.Graph.GraphDef]} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Proto.Tensorflow.Core.Framework.StepStats.StepStats, - b ~ Proto.Tensorflow.Core.Framework.StepStats.StepStats, - Prelude.Functor f) => - Lens.Labels.HasLens "stepStats" f RunMetadata RunMetadata a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _RunMetadata'stepStats - (\ x__ y__ -> x__{_RunMetadata'stepStats = y__})) - (Data.ProtoLens.maybeLens Data.Default.Class.def) - -instance (a ~ - Prelude.Maybe Proto.Tensorflow.Core.Framework.StepStats.StepStats, - b ~ - Prelude.Maybe Proto.Tensorflow.Core.Framework.StepStats.StepStats, - Prelude.Functor f) => - Lens.Labels.HasLens "maybe'stepStats" f RunMetadata RunMetadata a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _RunMetadata'stepStats - (\ x__ y__ -> x__{_RunMetadata'stepStats = y__})) - Prelude.id - -instance (a ~ - Proto.Tensorflow.Core.Framework.CostGraph.CostGraphDef, - b ~ Proto.Tensorflow.Core.Framework.CostGraph.CostGraphDef, - Prelude.Functor f) => - Lens.Labels.HasLens "costGraph" f RunMetadata RunMetadata a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _RunMetadata'costGraph - (\ x__ y__ -> x__{_RunMetadata'costGraph = y__})) - (Data.ProtoLens.maybeLens Data.Default.Class.def) - -instance (a ~ - Prelude.Maybe - Proto.Tensorflow.Core.Framework.CostGraph.CostGraphDef, - b ~ - Prelude.Maybe - Proto.Tensorflow.Core.Framework.CostGraph.CostGraphDef, - Prelude.Functor f) => - Lens.Labels.HasLens "maybe'costGraph" f RunMetadata RunMetadata a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _RunMetadata'costGraph - (\ x__ y__ -> x__{_RunMetadata'costGraph = y__})) - Prelude.id - -instance (a ~ [Proto.Tensorflow.Core.Framework.Graph.GraphDef], - b ~ [Proto.Tensorflow.Core.Framework.Graph.GraphDef], - Prelude.Functor f) => - Lens.Labels.HasLens "partitionGraphs" f RunMetadata RunMetadata a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _RunMetadata'partitionGraphs - (\ x__ y__ -> x__{_RunMetadata'partitionGraphs = y__})) - Prelude.id - -instance Data.Default.Class.Default RunMetadata where - def - = RunMetadata{_RunMetadata'stepStats = Prelude.Nothing, - _RunMetadata'costGraph = Prelude.Nothing, - _RunMetadata'partitionGraphs = []} - -instance Data.ProtoLens.Message RunMetadata where - descriptor - = let stepStats__field_descriptor - = Data.ProtoLens.FieldDescriptor "step_stats" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor - Proto.Tensorflow.Core.Framework.StepStats.StepStats) - (Data.ProtoLens.OptionalField maybe'stepStats) - :: Data.ProtoLens.FieldDescriptor RunMetadata - costGraph__field_descriptor - = Data.ProtoLens.FieldDescriptor "cost_graph" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor - Proto.Tensorflow.Core.Framework.CostGraph.CostGraphDef) - (Data.ProtoLens.OptionalField maybe'costGraph) - :: Data.ProtoLens.FieldDescriptor RunMetadata - partitionGraphs__field_descriptor - = Data.ProtoLens.FieldDescriptor "partition_graphs" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor - Proto.Tensorflow.Core.Framework.Graph.GraphDef) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked - partitionGraphs) - :: Data.ProtoLens.FieldDescriptor RunMetadata - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.RunMetadata") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, stepStats__field_descriptor), - (Data.ProtoLens.Tag 2, costGraph__field_descriptor), - (Data.ProtoLens.Tag 3, partitionGraphs__field_descriptor)]) - (Data.Map.fromList - [("step_stats", stepStats__field_descriptor), - ("cost_graph", costGraph__field_descriptor), - ("partition_graphs", partitionGraphs__field_descriptor)]) - -data RunOptions = RunOptions{_RunOptions'traceLevel :: - !RunOptions'TraceLevel, - _RunOptions'timeoutInMs :: !Data.Int.Int64, - _RunOptions'interOpThreadPool :: !Data.Int.Int32, - _RunOptions'outputPartitionGraphs :: !Prelude.Bool, - _RunOptions'debugOptions :: - !(Prelude.Maybe Proto.Tensorflow.Core.Protobuf.Debug.DebugOptions), - _RunOptions'reportTensorAllocationsUponOom :: !Prelude.Bool, - _RunOptions'experimental :: - !(Prelude.Maybe RunOptions'Experimental)} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ RunOptions'TraceLevel, b ~ RunOptions'TraceLevel, - Prelude.Functor f) => - Lens.Labels.HasLens "traceLevel" f RunOptions RunOptions a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _RunOptions'traceLevel - (\ x__ y__ -> x__{_RunOptions'traceLevel = y__})) - Prelude.id - -instance (a ~ Data.Int.Int64, b ~ Data.Int.Int64, - Prelude.Functor f) => - Lens.Labels.HasLens "timeoutInMs" f RunOptions RunOptions a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _RunOptions'timeoutInMs - (\ x__ y__ -> x__{_RunOptions'timeoutInMs = y__})) - Prelude.id - -instance (a ~ Data.Int.Int32, b ~ Data.Int.Int32, - Prelude.Functor f) => - Lens.Labels.HasLens "interOpThreadPool" f RunOptions RunOptions a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _RunOptions'interOpThreadPool - (\ x__ y__ -> x__{_RunOptions'interOpThreadPool = y__})) - Prelude.id - -instance (a ~ Prelude.Bool, b ~ Prelude.Bool, Prelude.Functor f) => - Lens.Labels.HasLens "outputPartitionGraphs" f RunOptions RunOptions - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _RunOptions'outputPartitionGraphs - (\ x__ y__ -> x__{_RunOptions'outputPartitionGraphs = y__})) - Prelude.id - -instance (a ~ Proto.Tensorflow.Core.Protobuf.Debug.DebugOptions, - b ~ Proto.Tensorflow.Core.Protobuf.Debug.DebugOptions, - Prelude.Functor f) => - Lens.Labels.HasLens "debugOptions" f RunOptions RunOptions a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _RunOptions'debugOptions - (\ x__ y__ -> x__{_RunOptions'debugOptions = y__})) - (Data.ProtoLens.maybeLens Data.Default.Class.def) - -instance (a ~ - Prelude.Maybe Proto.Tensorflow.Core.Protobuf.Debug.DebugOptions, - b ~ - Prelude.Maybe Proto.Tensorflow.Core.Protobuf.Debug.DebugOptions, - Prelude.Functor f) => - Lens.Labels.HasLens "maybe'debugOptions" f RunOptions RunOptions a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _RunOptions'debugOptions - (\ x__ y__ -> x__{_RunOptions'debugOptions = y__})) - Prelude.id - -instance (a ~ Prelude.Bool, b ~ Prelude.Bool, Prelude.Functor f) => - Lens.Labels.HasLens "reportTensorAllocationsUponOom" f RunOptions - RunOptions - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _RunOptions'reportTensorAllocationsUponOom - (\ x__ y__ -> - x__{_RunOptions'reportTensorAllocationsUponOom = y__})) - Prelude.id - -instance (a ~ RunOptions'Experimental, b ~ RunOptions'Experimental, - Prelude.Functor f) => - Lens.Labels.HasLens "experimental" f RunOptions RunOptions a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _RunOptions'experimental - (\ x__ y__ -> x__{_RunOptions'experimental = y__})) - (Data.ProtoLens.maybeLens Data.Default.Class.def) - -instance (a ~ Prelude.Maybe RunOptions'Experimental, - b ~ Prelude.Maybe RunOptions'Experimental, Prelude.Functor f) => - Lens.Labels.HasLens "maybe'experimental" f RunOptions RunOptions a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _RunOptions'experimental - (\ x__ y__ -> x__{_RunOptions'experimental = y__})) - Prelude.id - -instance Data.Default.Class.Default RunOptions where - def - = RunOptions{_RunOptions'traceLevel = Data.Default.Class.def, - _RunOptions'timeoutInMs = Data.ProtoLens.fieldDefault, - _RunOptions'interOpThreadPool = Data.ProtoLens.fieldDefault, - _RunOptions'outputPartitionGraphs = Data.ProtoLens.fieldDefault, - _RunOptions'debugOptions = Prelude.Nothing, - _RunOptions'reportTensorAllocationsUponOom = - Data.ProtoLens.fieldDefault, - _RunOptions'experimental = Prelude.Nothing} - -instance Data.ProtoLens.Message RunOptions where - descriptor - = let traceLevel__field_descriptor - = Data.ProtoLens.FieldDescriptor "trace_level" - (Data.ProtoLens.EnumField :: - Data.ProtoLens.FieldTypeDescriptor RunOptions'TraceLevel) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional traceLevel) - :: Data.ProtoLens.FieldDescriptor RunOptions - timeoutInMs__field_descriptor - = Data.ProtoLens.FieldDescriptor "timeout_in_ms" - (Data.ProtoLens.Int64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional timeoutInMs) - :: Data.ProtoLens.FieldDescriptor RunOptions - interOpThreadPool__field_descriptor - = Data.ProtoLens.FieldDescriptor "inter_op_thread_pool" - (Data.ProtoLens.Int32Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional - interOpThreadPool) - :: Data.ProtoLens.FieldDescriptor RunOptions - outputPartitionGraphs__field_descriptor - = Data.ProtoLens.FieldDescriptor "output_partition_graphs" - (Data.ProtoLens.BoolField :: - Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional - outputPartitionGraphs) - :: Data.ProtoLens.FieldDescriptor RunOptions - debugOptions__field_descriptor - = Data.ProtoLens.FieldDescriptor "debug_options" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor - Proto.Tensorflow.Core.Protobuf.Debug.DebugOptions) - (Data.ProtoLens.OptionalField maybe'debugOptions) - :: Data.ProtoLens.FieldDescriptor RunOptions - reportTensorAllocationsUponOom__field_descriptor - = Data.ProtoLens.FieldDescriptor - "report_tensor_allocations_upon_oom" - (Data.ProtoLens.BoolField :: - Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional - reportTensorAllocationsUponOom) - :: Data.ProtoLens.FieldDescriptor RunOptions - experimental__field_descriptor - = Data.ProtoLens.FieldDescriptor "experimental" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor RunOptions'Experimental) - (Data.ProtoLens.OptionalField maybe'experimental) - :: Data.ProtoLens.FieldDescriptor RunOptions - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.RunOptions") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, traceLevel__field_descriptor), - (Data.ProtoLens.Tag 2, timeoutInMs__field_descriptor), - (Data.ProtoLens.Tag 3, interOpThreadPool__field_descriptor), - (Data.ProtoLens.Tag 5, outputPartitionGraphs__field_descriptor), - (Data.ProtoLens.Tag 6, debugOptions__field_descriptor), - (Data.ProtoLens.Tag 7, - reportTensorAllocationsUponOom__field_descriptor), - (Data.ProtoLens.Tag 8, experimental__field_descriptor)]) - (Data.Map.fromList - [("trace_level", traceLevel__field_descriptor), - ("timeout_in_ms", timeoutInMs__field_descriptor), - ("inter_op_thread_pool", interOpThreadPool__field_descriptor), - ("output_partition_graphs", - outputPartitionGraphs__field_descriptor), - ("debug_options", debugOptions__field_descriptor), - ("report_tensor_allocations_upon_oom", - reportTensorAllocationsUponOom__field_descriptor), - ("experimental", experimental__field_descriptor)]) - -data RunOptions'Experimental = RunOptions'Experimental{_RunOptions'Experimental'collectiveGraphKey - :: !Data.Int.Int64} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Data.Int.Int64, b ~ Data.Int.Int64, - Prelude.Functor f) => - Lens.Labels.HasLens "collectiveGraphKey" f RunOptions'Experimental - RunOptions'Experimental - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _RunOptions'Experimental'collectiveGraphKey - (\ x__ y__ -> - x__{_RunOptions'Experimental'collectiveGraphKey = y__})) - Prelude.id - -instance Data.Default.Class.Default RunOptions'Experimental where - def - = RunOptions'Experimental{_RunOptions'Experimental'collectiveGraphKey - = Data.ProtoLens.fieldDefault} - -instance Data.ProtoLens.Message RunOptions'Experimental where - descriptor - = let collectiveGraphKey__field_descriptor - = Data.ProtoLens.FieldDescriptor "collective_graph_key" - (Data.ProtoLens.Int64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional - collectiveGraphKey) - :: Data.ProtoLens.FieldDescriptor RunOptions'Experimental - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.RunOptions.Experimental") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, collectiveGraphKey__field_descriptor)]) - (Data.Map.fromList - [("collective_graph_key", collectiveGraphKey__field_descriptor)]) - -data RunOptions'TraceLevel = RunOptions'NO_TRACE - | RunOptions'SOFTWARE_TRACE - | RunOptions'HARDWARE_TRACE - | RunOptions'FULL_TRACE - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance Data.Default.Class.Default RunOptions'TraceLevel where - def = RunOptions'NO_TRACE - -instance Data.ProtoLens.FieldDefault RunOptions'TraceLevel where - fieldDefault = RunOptions'NO_TRACE - -instance Data.ProtoLens.MessageEnum RunOptions'TraceLevel where - maybeToEnum 0 = Prelude.Just RunOptions'NO_TRACE - maybeToEnum 1 = Prelude.Just RunOptions'SOFTWARE_TRACE - maybeToEnum 2 = Prelude.Just RunOptions'HARDWARE_TRACE - maybeToEnum 3 = Prelude.Just RunOptions'FULL_TRACE - maybeToEnum _ = Prelude.Nothing - showEnum RunOptions'NO_TRACE = "NO_TRACE" - showEnum RunOptions'SOFTWARE_TRACE = "SOFTWARE_TRACE" - showEnum RunOptions'HARDWARE_TRACE = "HARDWARE_TRACE" - showEnum RunOptions'FULL_TRACE = "FULL_TRACE" - readEnum "NO_TRACE" = Prelude.Just RunOptions'NO_TRACE - readEnum "SOFTWARE_TRACE" = Prelude.Just RunOptions'SOFTWARE_TRACE - readEnum "HARDWARE_TRACE" = Prelude.Just RunOptions'HARDWARE_TRACE - readEnum "FULL_TRACE" = Prelude.Just RunOptions'FULL_TRACE - readEnum _ = Prelude.Nothing - -instance Prelude.Enum RunOptions'TraceLevel where - toEnum k__ - = Prelude.maybe - (Prelude.error - ((Prelude.++) "toEnum: unknown value for enum TraceLevel: " - (Prelude.show k__))) - Prelude.id - (Data.ProtoLens.maybeToEnum k__) - fromEnum RunOptions'NO_TRACE = 0 - fromEnum RunOptions'SOFTWARE_TRACE = 1 - fromEnum RunOptions'HARDWARE_TRACE = 2 - fromEnum RunOptions'FULL_TRACE = 3 - succ RunOptions'FULL_TRACE - = Prelude.error - "RunOptions'TraceLevel.succ: bad argument RunOptions'FULL_TRACE. This value would be out of bounds." - succ RunOptions'NO_TRACE = RunOptions'SOFTWARE_TRACE - succ RunOptions'SOFTWARE_TRACE = RunOptions'HARDWARE_TRACE - succ RunOptions'HARDWARE_TRACE = RunOptions'FULL_TRACE - pred RunOptions'NO_TRACE - = Prelude.error - "RunOptions'TraceLevel.pred: bad argument RunOptions'NO_TRACE. This value would be out of bounds." - pred RunOptions'SOFTWARE_TRACE = RunOptions'NO_TRACE - pred RunOptions'HARDWARE_TRACE = RunOptions'SOFTWARE_TRACE - pred RunOptions'FULL_TRACE = RunOptions'HARDWARE_TRACE - enumFrom = Data.ProtoLens.Message.Enum.messageEnumFrom - enumFromTo = Data.ProtoLens.Message.Enum.messageEnumFromTo - enumFromThen = Data.ProtoLens.Message.Enum.messageEnumFromThen - enumFromThenTo = Data.ProtoLens.Message.Enum.messageEnumFromThenTo - -instance Prelude.Bounded RunOptions'TraceLevel where - minBound = RunOptions'NO_TRACE - maxBound = RunOptions'FULL_TRACE - -data TensorConnection = TensorConnection{_TensorConnection'fromTensor - :: !Data.Text.Text, - _TensorConnection'toTensor :: !Data.Text.Text} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "fromTensor" f TensorConnection - TensorConnection - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _TensorConnection'fromTensor - (\ x__ y__ -> x__{_TensorConnection'fromTensor = y__})) - Prelude.id - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "toTensor" f TensorConnection TensorConnection - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _TensorConnection'toTensor - (\ x__ y__ -> x__{_TensorConnection'toTensor = y__})) - Prelude.id - -instance Data.Default.Class.Default TensorConnection where - def - = TensorConnection{_TensorConnection'fromTensor = - Data.ProtoLens.fieldDefault, - _TensorConnection'toTensor = Data.ProtoLens.fieldDefault} - -instance Data.ProtoLens.Message TensorConnection where - descriptor - = let fromTensor__field_descriptor - = Data.ProtoLens.FieldDescriptor "from_tensor" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional fromTensor) - :: Data.ProtoLens.FieldDescriptor TensorConnection - toTensor__field_descriptor - = Data.ProtoLens.FieldDescriptor "to_tensor" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional toTensor) - :: Data.ProtoLens.FieldDescriptor TensorConnection - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.TensorConnection") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, fromTensor__field_descriptor), - (Data.ProtoLens.Tag 2, toTensor__field_descriptor)]) - (Data.Map.fromList - [("from_tensor", fromTensor__field_descriptor), - ("to_tensor", toTensor__field_descriptor)]) - -data ThreadPoolOptionProto = ThreadPoolOptionProto{_ThreadPoolOptionProto'numThreads - :: !Data.Int.Int32, - _ThreadPoolOptionProto'globalName :: - !Data.Text.Text} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Data.Int.Int32, b ~ Data.Int.Int32, - Prelude.Functor f) => - Lens.Labels.HasLens "numThreads" f ThreadPoolOptionProto - ThreadPoolOptionProto - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _ThreadPoolOptionProto'numThreads - (\ x__ y__ -> x__{_ThreadPoolOptionProto'numThreads = y__})) - Prelude.id - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "globalName" f ThreadPoolOptionProto - ThreadPoolOptionProto - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _ThreadPoolOptionProto'globalName - (\ x__ y__ -> x__{_ThreadPoolOptionProto'globalName = y__})) - Prelude.id - -instance Data.Default.Class.Default ThreadPoolOptionProto where - def - = ThreadPoolOptionProto{_ThreadPoolOptionProto'numThreads = - Data.ProtoLens.fieldDefault, - _ThreadPoolOptionProto'globalName = Data.ProtoLens.fieldDefault} - -instance Data.ProtoLens.Message ThreadPoolOptionProto where - descriptor - = let numThreads__field_descriptor - = Data.ProtoLens.FieldDescriptor "num_threads" - (Data.ProtoLens.Int32Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional numThreads) - :: Data.ProtoLens.FieldDescriptor ThreadPoolOptionProto - globalName__field_descriptor - = Data.ProtoLens.FieldDescriptor "global_name" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional globalName) - :: Data.ProtoLens.FieldDescriptor ThreadPoolOptionProto - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.ThreadPoolOptionProto") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, numThreads__field_descriptor), - (Data.ProtoLens.Tag 2, globalName__field_descriptor)]) - (Data.Map.fromList - [("num_threads", numThreads__field_descriptor), - ("global_name", globalName__field_descriptor)]) - -allocatorType :: - forall f s t a b . - (Lens.Labels.HasLens "allocatorType" f s t a b) => - Lens.Family2.LensLike f s t a b -allocatorType - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "allocatorType") - -allowGrowth :: - forall f s t a b . (Lens.Labels.HasLens "allowGrowth" f s t a b) => - Lens.Family2.LensLike f s t a b -allowGrowth - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "allowGrowth") - -allowSoftPlacement :: - forall f s t a b . - (Lens.Labels.HasLens "allowSoftPlacement" f s t a b) => - Lens.Family2.LensLike f s t a b -allowSoftPlacement - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "allowSoftPlacement") - -buildCostModel :: - forall f s t a b . - (Lens.Labels.HasLens "buildCostModel" f s t a b) => - Lens.Family2.LensLike f s t a b -buildCostModel - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "buildCostModel") - -buildCostModelAfter :: - forall f s t a b . - (Lens.Labels.HasLens "buildCostModelAfter" f s t a b) => - Lens.Family2.LensLike f s t a b -buildCostModelAfter - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: - (Lens.Labels.Proxy#) "buildCostModelAfter") - -clusterDef :: - forall f s t a b . (Lens.Labels.HasLens "clusterDef" f s t a b) => - Lens.Family2.LensLike f s t a b -clusterDef - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "clusterDef") - -collectiveGraphKey :: - forall f s t a b . - (Lens.Labels.HasLens "collectiveGraphKey" f s t a b) => - Lens.Family2.LensLike f s t a b -collectiveGraphKey - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "collectiveGraphKey") - -collectiveGroupLeader :: - forall f s t a b . - (Lens.Labels.HasLens "collectiveGroupLeader" f s t a b) => - Lens.Family2.LensLike f s t a b -collectiveGroupLeader - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: - (Lens.Labels.Proxy#) "collectiveGroupLeader") - -costGraph :: - forall f s t a b . (Lens.Labels.HasLens "costGraph" f s t a b) => - Lens.Family2.LensLike f s t a b -costGraph - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "costGraph") - -debugOptions :: - forall f s t a b . - (Lens.Labels.HasLens "debugOptions" f s t a b) => - Lens.Family2.LensLike f s t a b -debugOptions - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "debugOptions") - -deferredDeletionBytes :: - forall f s t a b . - (Lens.Labels.HasLens "deferredDeletionBytes" f s t a b) => - Lens.Family2.LensLike f s t a b -deferredDeletionBytes - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: - (Lens.Labels.Proxy#) "deferredDeletionBytes") - -deviceCount :: - forall f s t a b . (Lens.Labels.HasLens "deviceCount" f s t a b) => - Lens.Family2.LensLike f s t a b -deviceCount - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "deviceCount") - -deviceFilters :: - forall f s t a b . - (Lens.Labels.HasLens "deviceFilters" f s t a b) => - Lens.Family2.LensLike f s t a b -deviceFilters - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "deviceFilters") - -doCommonSubexpressionElimination :: - forall f s t a b . - (Lens.Labels.HasLens "doCommonSubexpressionElimination" f s t a - b) => - Lens.Family2.LensLike f s t a b -doCommonSubexpressionElimination - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: - (Lens.Labels.Proxy#) "doCommonSubexpressionElimination") - -doConstantFolding :: - forall f s t a b . - (Lens.Labels.HasLens "doConstantFolding" f s t a b) => - Lens.Family2.LensLike f s t a b -doConstantFolding - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "doConstantFolding") - -doFunctionInlining :: - forall f s t a b . - (Lens.Labels.HasLens "doFunctionInlining" f s t a b) => - Lens.Family2.LensLike f s t a b -doFunctionInlining - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "doFunctionInlining") - -enableBfloat16Sendrecv :: - forall f s t a b . - (Lens.Labels.HasLens "enableBfloat16Sendrecv" f s t a b) => - Lens.Family2.LensLike f s t a b -enableBfloat16Sendrecv - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: - (Lens.Labels.Proxy#) "enableBfloat16Sendrecv") - -enableRecvScheduling :: - forall f s t a b . - (Lens.Labels.HasLens "enableRecvScheduling" f s t a b) => - Lens.Family2.LensLike f s t a b -enableRecvScheduling - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: - (Lens.Labels.Proxy#) "enableRecvScheduling") - -experimental :: - forall f s t a b . - (Lens.Labels.HasLens "experimental" f s t a b) => - Lens.Family2.LensLike f s t a b -experimental - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "experimental") - -feed :: - forall f s t a b . (Lens.Labels.HasLens "feed" f s t a b) => - Lens.Family2.LensLike f s t a b -feed - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "feed") - -fetch :: - forall f s t a b . (Lens.Labels.HasLens "fetch" f s t a b) => - Lens.Family2.LensLike f s t a b -fetch - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "fetch") - -forceGpuCompatible :: - forall f s t a b . - (Lens.Labels.HasLens "forceGpuCompatible" f s t a b) => - Lens.Family2.LensLike f s t a b -forceGpuCompatible - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "forceGpuCompatible") - -fromTensor :: - forall f s t a b . (Lens.Labels.HasLens "fromTensor" f s t a b) => - Lens.Family2.LensLike f s t a b -fromTensor - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "fromTensor") - -globalJitLevel :: - forall f s t a b . - (Lens.Labels.HasLens "globalJitLevel" f s t a b) => - Lens.Family2.LensLike f s t a b -globalJitLevel - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "globalJitLevel") - -globalName :: - forall f s t a b . (Lens.Labels.HasLens "globalName" f s t a b) => - Lens.Family2.LensLike f s t a b -globalName - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "globalName") - -gpuOptions :: - forall f s t a b . (Lens.Labels.HasLens "gpuOptions" f s t a b) => - Lens.Family2.LensLike f s t a b -gpuOptions - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "gpuOptions") - -graphOptions :: - forall f s t a b . - (Lens.Labels.HasLens "graphOptions" f s t a b) => - Lens.Family2.LensLike f s t a b -graphOptions - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "graphOptions") - -inferShapes :: - forall f s t a b . (Lens.Labels.HasLens "inferShapes" f s t a b) => - Lens.Family2.LensLike f s t a b -inferShapes - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "inferShapes") - -interOpParallelismThreads :: - forall f s t a b . - (Lens.Labels.HasLens "interOpParallelismThreads" f s t a b) => - Lens.Family2.LensLike f s t a b -interOpParallelismThreads - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: - (Lens.Labels.Proxy#) "interOpParallelismThreads") - -interOpThreadPool :: - forall f s t a b . - (Lens.Labels.HasLens "interOpThreadPool" f s t a b) => - Lens.Family2.LensLike f s t a b -interOpThreadPool - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "interOpThreadPool") - -intraOpParallelismThreads :: - forall f s t a b . - (Lens.Labels.HasLens "intraOpParallelismThreads" f s t a b) => - Lens.Family2.LensLike f s t a b -intraOpParallelismThreads - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: - (Lens.Labels.Proxy#) "intraOpParallelismThreads") - -isolateSessionState :: - forall f s t a b . - (Lens.Labels.HasLens "isolateSessionState" f s t a b) => - Lens.Family2.LensLike f s t a b -isolateSessionState - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: - (Lens.Labels.Proxy#) "isolateSessionState") - -key :: - forall f s t a b . (Lens.Labels.HasLens "key" f s t a b) => - Lens.Family2.LensLike f s t a b -key - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "key") - -logDevicePlacement :: - forall f s t a b . - (Lens.Labels.HasLens "logDevicePlacement" f s t a b) => - Lens.Family2.LensLike f s t a b -logDevicePlacement - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "logDevicePlacement") - -maxFoldedConstantInBytes :: - forall f s t a b . - (Lens.Labels.HasLens "maxFoldedConstantInBytes" f s t a b) => - Lens.Family2.LensLike f s t a b -maxFoldedConstantInBytes - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: - (Lens.Labels.Proxy#) "maxFoldedConstantInBytes") - -maybe'clusterDef :: - forall f s t a b . - (Lens.Labels.HasLens "maybe'clusterDef" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'clusterDef - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'clusterDef") - -maybe'costGraph :: - forall f s t a b . - (Lens.Labels.HasLens "maybe'costGraph" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'costGraph - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'costGraph") - -maybe'debugOptions :: - forall f s t a b . - (Lens.Labels.HasLens "maybe'debugOptions" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'debugOptions - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'debugOptions") - -maybe'experimental :: - forall f s t a b . - (Lens.Labels.HasLens "maybe'experimental" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'experimental - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'experimental") - -maybe'gpuOptions :: - forall f s t a b . - (Lens.Labels.HasLens "maybe'gpuOptions" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'gpuOptions - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'gpuOptions") - -maybe'graphOptions :: - forall f s t a b . - (Lens.Labels.HasLens "maybe'graphOptions" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'graphOptions - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'graphOptions") - -maybe'optimizerOptions :: - forall f s t a b . - (Lens.Labels.HasLens "maybe'optimizerOptions" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'optimizerOptions - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: - (Lens.Labels.Proxy#) "maybe'optimizerOptions") - -maybe'rewriteOptions :: - forall f s t a b . - (Lens.Labels.HasLens "maybe'rewriteOptions" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'rewriteOptions - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: - (Lens.Labels.Proxy#) "maybe'rewriteOptions") - -maybe'rpcOptions :: - forall f s t a b . - (Lens.Labels.HasLens "maybe'rpcOptions" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'rpcOptions - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'rpcOptions") - -maybe'runOptions :: - forall f s t a b . - (Lens.Labels.HasLens "maybe'runOptions" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'runOptions - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'runOptions") - -maybe'stepStats :: - forall f s t a b . - (Lens.Labels.HasLens "maybe'stepStats" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'stepStats - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'stepStats") - -memoryLimitMb :: - forall f s t a b . - (Lens.Labels.HasLens "memoryLimitMb" f s t a b) => - Lens.Family2.LensLike f s t a b -memoryLimitMb - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "memoryLimitMb") - -numThreads :: - forall f s t a b . (Lens.Labels.HasLens "numThreads" f s t a b) => - Lens.Family2.LensLike f s t a b -numThreads - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "numThreads") - -operationTimeoutInMs :: - forall f s t a b . - (Lens.Labels.HasLens "operationTimeoutInMs" f s t a b) => - Lens.Family2.LensLike f s t a b -operationTimeoutInMs - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: - (Lens.Labels.Proxy#) "operationTimeoutInMs") - -optLevel :: - forall f s t a b . (Lens.Labels.HasLens "optLevel" f s t a b) => - Lens.Family2.LensLike f s t a b -optLevel - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "optLevel") - -optimizerOptions :: - forall f s t a b . - (Lens.Labels.HasLens "optimizerOptions" f s t a b) => - Lens.Family2.LensLike f s t a b -optimizerOptions - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "optimizerOptions") - -outputPartitionGraphs :: - forall f s t a b . - (Lens.Labels.HasLens "outputPartitionGraphs" f s t a b) => - Lens.Family2.LensLike f s t a b -outputPartitionGraphs - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: - (Lens.Labels.Proxy#) "outputPartitionGraphs") - -partitionGraphs :: - forall f s t a b . - (Lens.Labels.HasLens "partitionGraphs" f s t a b) => - Lens.Family2.LensLike f s t a b -partitionGraphs - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "partitionGraphs") - -perProcessGpuMemoryFraction :: - forall f s t a b . - (Lens.Labels.HasLens "perProcessGpuMemoryFraction" f s t a b) => - Lens.Family2.LensLike f s t a b -perProcessGpuMemoryFraction - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: - (Lens.Labels.Proxy#) "perProcessGpuMemoryFraction") - -placePrunedGraph :: - forall f s t a b . - (Lens.Labels.HasLens "placePrunedGraph" f s t a b) => - Lens.Family2.LensLike f s t a b -placePrunedGraph - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "placePrunedGraph") - -placementPeriod :: - forall f s t a b . - (Lens.Labels.HasLens "placementPeriod" f s t a b) => - Lens.Family2.LensLike f s t a b -placementPeriod - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "placementPeriod") - -pollingActiveDelayUsecs :: - forall f s t a b . - (Lens.Labels.HasLens "pollingActiveDelayUsecs" f s t a b) => - Lens.Family2.LensLike f s t a b -pollingActiveDelayUsecs - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: - (Lens.Labels.Proxy#) "pollingActiveDelayUsecs") - -pollingInactiveDelayMsecs :: - forall f s t a b . - (Lens.Labels.HasLens "pollingInactiveDelayMsecs" f s t a b) => - Lens.Family2.LensLike f s t a b -pollingInactiveDelayMsecs - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: - (Lens.Labels.Proxy#) "pollingInactiveDelayMsecs") - -reportTensorAllocationsUponOom :: - forall f s t a b . - (Lens.Labels.HasLens "reportTensorAllocationsUponOom" f s t a b) => - Lens.Family2.LensLike f s t a b -reportTensorAllocationsUponOom - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: - (Lens.Labels.Proxy#) "reportTensorAllocationsUponOom") - -rewriteOptions :: - forall f s t a b . - (Lens.Labels.HasLens "rewriteOptions" f s t a b) => - Lens.Family2.LensLike f s t a b -rewriteOptions - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "rewriteOptions") - -rpcOptions :: - forall f s t a b . (Lens.Labels.HasLens "rpcOptions" f s t a b) => - Lens.Family2.LensLike f s t a b -rpcOptions - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "rpcOptions") - -runOptions :: - forall f s t a b . (Lens.Labels.HasLens "runOptions" f s t a b) => - Lens.Family2.LensLike f s t a b -runOptions - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "runOptions") - -sessionInterOpThreadPool :: - forall f s t a b . - (Lens.Labels.HasLens "sessionInterOpThreadPool" f s t a b) => - Lens.Family2.LensLike f s t a b -sessionInterOpThreadPool - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: - (Lens.Labels.Proxy#) "sessionInterOpThreadPool") - -stepStats :: - forall f s t a b . (Lens.Labels.HasLens "stepStats" f s t a b) => - Lens.Family2.LensLike f s t a b -stepStats - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "stepStats") - -target :: - forall f s t a b . (Lens.Labels.HasLens "target" f s t a b) => - Lens.Family2.LensLike f s t a b -target - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "target") - -tensorConnection :: - forall f s t a b . - (Lens.Labels.HasLens "tensorConnection" f s t a b) => - Lens.Family2.LensLike f s t a b -tensorConnection - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "tensorConnection") - -timelineStep :: - forall f s t a b . - (Lens.Labels.HasLens "timelineStep" f s t a b) => - Lens.Family2.LensLike f s t a b -timelineStep - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "timelineStep") - -timeoutInMs :: - forall f s t a b . (Lens.Labels.HasLens "timeoutInMs" f s t a b) => - Lens.Family2.LensLike f s t a b -timeoutInMs - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "timeoutInMs") - -toTensor :: - forall f s t a b . (Lens.Labels.HasLens "toTensor" f s t a b) => - Lens.Family2.LensLike f s t a b -toTensor - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "toTensor") - -traceLevel :: - forall f s t a b . (Lens.Labels.HasLens "traceLevel" f s t a b) => - Lens.Family2.LensLike f s t a b -traceLevel - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "traceLevel") - -usePerSessionThreads :: - forall f s t a b . - (Lens.Labels.HasLens "usePerSessionThreads" f s t a b) => - Lens.Family2.LensLike f s t a b -usePerSessionThreads - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: - (Lens.Labels.Proxy#) "usePerSessionThreads") - -useRpcForInprocessMaster :: - forall f s t a b . - (Lens.Labels.HasLens "useRpcForInprocessMaster" f s t a b) => - Lens.Family2.LensLike f s t a b -useRpcForInprocessMaster - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: - (Lens.Labels.Proxy#) "useRpcForInprocessMaster") - -useUnifiedMemory :: - forall f s t a b . - (Lens.Labels.HasLens "useUnifiedMemory" f s t a b) => - Lens.Family2.LensLike f s t a b -useUnifiedMemory - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "useUnifiedMemory") - -value :: - forall f s t a b . (Lens.Labels.HasLens "value" f s t a b) => - Lens.Family2.LensLike f s t a b -value - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "value") - -virtualDevices :: - forall f s t a b . - (Lens.Labels.HasLens "virtualDevices" f s t a b) => - Lens.Family2.LensLike f s t a b -virtualDevices - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "virtualDevices") - -visibleDeviceList :: - forall f s t a b . - (Lens.Labels.HasLens "visibleDeviceList" f s t a b) => - Lens.Family2.LensLike f s t a b -visibleDeviceList - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "visibleDeviceList") diff --git a/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Protobuf/ControlFlow.hs b/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Protobuf/ControlFlow.hs deleted file mode 100644 --- a/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Protobuf/ControlFlow.hs +++ /dev/null @@ -1,909 +0,0 @@ -{- This file was auto-generated from tensorflow/core/protobuf/control_flow.proto by the proto-lens-protoc program. -} -{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies, - UndecidableInstances, MultiParamTypeClasses, FlexibleContexts, - FlexibleInstances, PatternSynonyms, MagicHash, NoImplicitPrelude - #-} -{-# OPTIONS_GHC -fno-warn-unused-imports#-} -module Proto.Tensorflow.Core.Protobuf.ControlFlow where -import qualified Data.ProtoLens.Reexport.Prelude as Prelude -import qualified Data.ProtoLens.Reexport.Data.Int as Data.Int -import qualified Data.ProtoLens.Reexport.Data.Word as Data.Word -import qualified Data.ProtoLens.Reexport.Data.ProtoLens - as Data.ProtoLens -import qualified - Data.ProtoLens.Reexport.Data.ProtoLens.Message.Enum - as Data.ProtoLens.Message.Enum -import qualified Data.ProtoLens.Reexport.Lens.Family2 - as Lens.Family2 -import qualified Data.ProtoLens.Reexport.Lens.Family2.Unchecked - as Lens.Family2.Unchecked -import qualified Data.ProtoLens.Reexport.Data.Default.Class - as Data.Default.Class -import qualified Data.ProtoLens.Reexport.Data.Text as Data.Text -import qualified Data.ProtoLens.Reexport.Data.Map as Data.Map -import qualified Data.ProtoLens.Reexport.Data.ByteString - as Data.ByteString -import qualified Data.ProtoLens.Reexport.Lens.Labels as Lens.Labels - -data CondContextDef = CondContextDef{_CondContextDef'contextName :: - !Data.Text.Text, - _CondContextDef'predName :: !Data.Text.Text, - _CondContextDef'pivotName :: !Data.Text.Text, - _CondContextDef'branch :: !Data.Int.Int32, - _CondContextDef'valuesDef :: !(Prelude.Maybe ValuesDef), - _CondContextDef'nestedContexts :: ![ControlFlowContextDef]} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "contextName" f CondContextDef CondContextDef a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _CondContextDef'contextName - (\ x__ y__ -> x__{_CondContextDef'contextName = y__})) - Prelude.id - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "predName" f CondContextDef CondContextDef a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _CondContextDef'predName - (\ x__ y__ -> x__{_CondContextDef'predName = y__})) - Prelude.id - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "pivotName" f CondContextDef CondContextDef a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _CondContextDef'pivotName - (\ x__ y__ -> x__{_CondContextDef'pivotName = y__})) - Prelude.id - -instance (a ~ Data.Int.Int32, b ~ Data.Int.Int32, - Prelude.Functor f) => - Lens.Labels.HasLens "branch" f CondContextDef CondContextDef a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _CondContextDef'branch - (\ x__ y__ -> x__{_CondContextDef'branch = y__})) - Prelude.id - -instance (a ~ ValuesDef, b ~ ValuesDef, Prelude.Functor f) => - Lens.Labels.HasLens "valuesDef" f CondContextDef CondContextDef a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _CondContextDef'valuesDef - (\ x__ y__ -> x__{_CondContextDef'valuesDef = y__})) - (Data.ProtoLens.maybeLens Data.Default.Class.def) - -instance (a ~ Prelude.Maybe ValuesDef, b ~ Prelude.Maybe ValuesDef, - Prelude.Functor f) => - Lens.Labels.HasLens "maybe'valuesDef" f CondContextDef - CondContextDef - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _CondContextDef'valuesDef - (\ x__ y__ -> x__{_CondContextDef'valuesDef = y__})) - Prelude.id - -instance (a ~ [ControlFlowContextDef], b ~ [ControlFlowContextDef], - Prelude.Functor f) => - Lens.Labels.HasLens "nestedContexts" f CondContextDef - CondContextDef - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _CondContextDef'nestedContexts - (\ x__ y__ -> x__{_CondContextDef'nestedContexts = y__})) - Prelude.id - -instance Data.Default.Class.Default CondContextDef where - def - = CondContextDef{_CondContextDef'contextName = - Data.ProtoLens.fieldDefault, - _CondContextDef'predName = Data.ProtoLens.fieldDefault, - _CondContextDef'pivotName = Data.ProtoLens.fieldDefault, - _CondContextDef'branch = Data.ProtoLens.fieldDefault, - _CondContextDef'valuesDef = Prelude.Nothing, - _CondContextDef'nestedContexts = []} - -instance Data.ProtoLens.Message CondContextDef where - descriptor - = let contextName__field_descriptor - = Data.ProtoLens.FieldDescriptor "context_name" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional contextName) - :: Data.ProtoLens.FieldDescriptor CondContextDef - predName__field_descriptor - = Data.ProtoLens.FieldDescriptor "pred_name" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional predName) - :: Data.ProtoLens.FieldDescriptor CondContextDef - pivotName__field_descriptor - = Data.ProtoLens.FieldDescriptor "pivot_name" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional pivotName) - :: Data.ProtoLens.FieldDescriptor CondContextDef - branch__field_descriptor - = Data.ProtoLens.FieldDescriptor "branch" - (Data.ProtoLens.Int32Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional branch) - :: Data.ProtoLens.FieldDescriptor CondContextDef - valuesDef__field_descriptor - = Data.ProtoLens.FieldDescriptor "values_def" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor ValuesDef) - (Data.ProtoLens.OptionalField maybe'valuesDef) - :: Data.ProtoLens.FieldDescriptor CondContextDef - nestedContexts__field_descriptor - = Data.ProtoLens.FieldDescriptor "nested_contexts" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor ControlFlowContextDef) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked - nestedContexts) - :: Data.ProtoLens.FieldDescriptor CondContextDef - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.CondContextDef") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, contextName__field_descriptor), - (Data.ProtoLens.Tag 2, predName__field_descriptor), - (Data.ProtoLens.Tag 3, pivotName__field_descriptor), - (Data.ProtoLens.Tag 4, branch__field_descriptor), - (Data.ProtoLens.Tag 5, valuesDef__field_descriptor), - (Data.ProtoLens.Tag 6, nestedContexts__field_descriptor)]) - (Data.Map.fromList - [("context_name", contextName__field_descriptor), - ("pred_name", predName__field_descriptor), - ("pivot_name", pivotName__field_descriptor), - ("branch", branch__field_descriptor), - ("values_def", valuesDef__field_descriptor), - ("nested_contexts", nestedContexts__field_descriptor)]) - -data ControlFlowContextDef = ControlFlowContextDef{_ControlFlowContextDef'ctxt - :: !(Prelude.Maybe ControlFlowContextDef'Ctxt)} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -data ControlFlowContextDef'Ctxt = ControlFlowContextDef'CondCtxt !CondContextDef - | ControlFlowContextDef'WhileCtxt !WhileContextDef - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Prelude.Maybe ControlFlowContextDef'Ctxt, - b ~ Prelude.Maybe ControlFlowContextDef'Ctxt, Prelude.Functor f) => - Lens.Labels.HasLens "maybe'ctxt" f ControlFlowContextDef - ControlFlowContextDef - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _ControlFlowContextDef'ctxt - (\ x__ y__ -> x__{_ControlFlowContextDef'ctxt = y__})) - Prelude.id - -instance (a ~ Prelude.Maybe CondContextDef, - b ~ Prelude.Maybe CondContextDef, Prelude.Functor f) => - Lens.Labels.HasLens "maybe'condCtxt" f ControlFlowContextDef - ControlFlowContextDef - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _ControlFlowContextDef'ctxt - (\ x__ y__ -> x__{_ControlFlowContextDef'ctxt = y__})) - (Lens.Family2.Unchecked.lens - (\ x__ -> - case x__ of - Prelude.Just - (ControlFlowContextDef'CondCtxt x__val) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap ControlFlowContextDef'CondCtxt y__)) - -instance (a ~ CondContextDef, b ~ CondContextDef, - Prelude.Functor f) => - Lens.Labels.HasLens "condCtxt" f ControlFlowContextDef - ControlFlowContextDef - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _ControlFlowContextDef'ctxt - (\ x__ y__ -> x__{_ControlFlowContextDef'ctxt = y__})) - ((Prelude..) - (Lens.Family2.Unchecked.lens - (\ x__ -> - case x__ of - Prelude.Just - (ControlFlowContextDef'CondCtxt x__val) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap ControlFlowContextDef'CondCtxt y__)) - (Data.ProtoLens.maybeLens Data.Default.Class.def)) - -instance (a ~ Prelude.Maybe WhileContextDef, - b ~ Prelude.Maybe WhileContextDef, Prelude.Functor f) => - Lens.Labels.HasLens "maybe'whileCtxt" f ControlFlowContextDef - ControlFlowContextDef - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _ControlFlowContextDef'ctxt - (\ x__ y__ -> x__{_ControlFlowContextDef'ctxt = y__})) - (Lens.Family2.Unchecked.lens - (\ x__ -> - case x__ of - Prelude.Just - (ControlFlowContextDef'WhileCtxt x__val) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap ControlFlowContextDef'WhileCtxt y__)) - -instance (a ~ WhileContextDef, b ~ WhileContextDef, - Prelude.Functor f) => - Lens.Labels.HasLens "whileCtxt" f ControlFlowContextDef - ControlFlowContextDef - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _ControlFlowContextDef'ctxt - (\ x__ y__ -> x__{_ControlFlowContextDef'ctxt = y__})) - ((Prelude..) - (Lens.Family2.Unchecked.lens - (\ x__ -> - case x__ of - Prelude.Just - (ControlFlowContextDef'WhileCtxt x__val) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap ControlFlowContextDef'WhileCtxt y__)) - (Data.ProtoLens.maybeLens Data.Default.Class.def)) - -instance Data.Default.Class.Default ControlFlowContextDef where - def - = ControlFlowContextDef{_ControlFlowContextDef'ctxt = - Prelude.Nothing} - -instance Data.ProtoLens.Message ControlFlowContextDef where - descriptor - = let condCtxt__field_descriptor - = Data.ProtoLens.FieldDescriptor "cond_ctxt" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor CondContextDef) - (Data.ProtoLens.OptionalField maybe'condCtxt) - :: Data.ProtoLens.FieldDescriptor ControlFlowContextDef - whileCtxt__field_descriptor - = Data.ProtoLens.FieldDescriptor "while_ctxt" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor WhileContextDef) - (Data.ProtoLens.OptionalField maybe'whileCtxt) - :: Data.ProtoLens.FieldDescriptor ControlFlowContextDef - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.ControlFlowContextDef") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, condCtxt__field_descriptor), - (Data.ProtoLens.Tag 2, whileCtxt__field_descriptor)]) - (Data.Map.fromList - [("cond_ctxt", condCtxt__field_descriptor), - ("while_ctxt", whileCtxt__field_descriptor)]) - -data ValuesDef = ValuesDef{_ValuesDef'values :: ![Data.Text.Text], - _ValuesDef'externalValues :: - !(Data.Map.Map Data.Text.Text Data.Text.Text)} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ [Data.Text.Text], b ~ [Data.Text.Text], - Prelude.Functor f) => - Lens.Labels.HasLens "values" f ValuesDef ValuesDef a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _ValuesDef'values - (\ x__ y__ -> x__{_ValuesDef'values = y__})) - Prelude.id - -instance (a ~ Data.Map.Map Data.Text.Text Data.Text.Text, - b ~ Data.Map.Map Data.Text.Text Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "externalValues" f ValuesDef ValuesDef a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _ValuesDef'externalValues - (\ x__ y__ -> x__{_ValuesDef'externalValues = y__})) - Prelude.id - -instance Data.Default.Class.Default ValuesDef where - def - = ValuesDef{_ValuesDef'values = [], - _ValuesDef'externalValues = Data.Map.empty} - -instance Data.ProtoLens.Message ValuesDef where - descriptor - = let values__field_descriptor - = Data.ProtoLens.FieldDescriptor "values" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked values) - :: Data.ProtoLens.FieldDescriptor ValuesDef - externalValues__field_descriptor - = Data.ProtoLens.FieldDescriptor "external_values" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor ValuesDef'ExternalValuesEntry) - (Data.ProtoLens.MapField key value externalValues) - :: Data.ProtoLens.FieldDescriptor ValuesDef - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.ValuesDef") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, values__field_descriptor), - (Data.ProtoLens.Tag 2, externalValues__field_descriptor)]) - (Data.Map.fromList - [("values", values__field_descriptor), - ("external_values", externalValues__field_descriptor)]) - -data ValuesDef'ExternalValuesEntry = ValuesDef'ExternalValuesEntry{_ValuesDef'ExternalValuesEntry'key - :: !Data.Text.Text, - _ValuesDef'ExternalValuesEntry'value - :: !Data.Text.Text} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "key" f ValuesDef'ExternalValuesEntry - ValuesDef'ExternalValuesEntry - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _ValuesDef'ExternalValuesEntry'key - (\ x__ y__ -> x__{_ValuesDef'ExternalValuesEntry'key = y__})) - Prelude.id - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "value" f ValuesDef'ExternalValuesEntry - ValuesDef'ExternalValuesEntry - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _ValuesDef'ExternalValuesEntry'value - (\ x__ y__ -> x__{_ValuesDef'ExternalValuesEntry'value = y__})) - Prelude.id - -instance Data.Default.Class.Default ValuesDef'ExternalValuesEntry - where - def - = ValuesDef'ExternalValuesEntry{_ValuesDef'ExternalValuesEntry'key - = Data.ProtoLens.fieldDefault, - _ValuesDef'ExternalValuesEntry'value = - Data.ProtoLens.fieldDefault} - -instance Data.ProtoLens.Message ValuesDef'ExternalValuesEntry where - descriptor - = let key__field_descriptor - = Data.ProtoLens.FieldDescriptor "key" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional key) - :: Data.ProtoLens.FieldDescriptor ValuesDef'ExternalValuesEntry - value__field_descriptor - = Data.ProtoLens.FieldDescriptor "value" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional value) - :: Data.ProtoLens.FieldDescriptor ValuesDef'ExternalValuesEntry - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.ValuesDef.ExternalValuesEntry") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, key__field_descriptor), - (Data.ProtoLens.Tag 2, value__field_descriptor)]) - (Data.Map.fromList - [("key", key__field_descriptor), - ("value", value__field_descriptor)]) - -data WhileContextDef = WhileContextDef{_WhileContextDef'contextName - :: !Data.Text.Text, - _WhileContextDef'parallelIterations :: !Data.Int.Int32, - _WhileContextDef'backProp :: !Prelude.Bool, - _WhileContextDef'swapMemory :: !Prelude.Bool, - _WhileContextDef'pivotName :: !Data.Text.Text, - _WhileContextDef'pivotForPredName :: !Data.Text.Text, - _WhileContextDef'pivotForBodyName :: !Data.Text.Text, - _WhileContextDef'loopExitNames :: ![Data.Text.Text], - _WhileContextDef'loopEnterNames :: ![Data.Text.Text], - _WhileContextDef'valuesDef :: !(Prelude.Maybe ValuesDef), - _WhileContextDef'maximumIterationsName :: !Data.Text.Text, - _WhileContextDef'nestedContexts :: ![ControlFlowContextDef]} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "contextName" f WhileContextDef WhileContextDef - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _WhileContextDef'contextName - (\ x__ y__ -> x__{_WhileContextDef'contextName = y__})) - Prelude.id - -instance (a ~ Data.Int.Int32, b ~ Data.Int.Int32, - Prelude.Functor f) => - Lens.Labels.HasLens "parallelIterations" f WhileContextDef - WhileContextDef - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _WhileContextDef'parallelIterations - (\ x__ y__ -> x__{_WhileContextDef'parallelIterations = y__})) - Prelude.id - -instance (a ~ Prelude.Bool, b ~ Prelude.Bool, Prelude.Functor f) => - Lens.Labels.HasLens "backProp" f WhileContextDef WhileContextDef a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _WhileContextDef'backProp - (\ x__ y__ -> x__{_WhileContextDef'backProp = y__})) - Prelude.id - -instance (a ~ Prelude.Bool, b ~ Prelude.Bool, Prelude.Functor f) => - Lens.Labels.HasLens "swapMemory" f WhileContextDef WhileContextDef - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _WhileContextDef'swapMemory - (\ x__ y__ -> x__{_WhileContextDef'swapMemory = y__})) - Prelude.id - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "pivotName" f WhileContextDef WhileContextDef a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _WhileContextDef'pivotName - (\ x__ y__ -> x__{_WhileContextDef'pivotName = y__})) - Prelude.id - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "pivotForPredName" f WhileContextDef - WhileContextDef - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _WhileContextDef'pivotForPredName - (\ x__ y__ -> x__{_WhileContextDef'pivotForPredName = y__})) - Prelude.id - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "pivotForBodyName" f WhileContextDef - WhileContextDef - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _WhileContextDef'pivotForBodyName - (\ x__ y__ -> x__{_WhileContextDef'pivotForBodyName = y__})) - Prelude.id - -instance (a ~ [Data.Text.Text], b ~ [Data.Text.Text], - Prelude.Functor f) => - Lens.Labels.HasLens "loopExitNames" f WhileContextDef - WhileContextDef - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _WhileContextDef'loopExitNames - (\ x__ y__ -> x__{_WhileContextDef'loopExitNames = y__})) - Prelude.id - -instance (a ~ [Data.Text.Text], b ~ [Data.Text.Text], - Prelude.Functor f) => - Lens.Labels.HasLens "loopEnterNames" f WhileContextDef - WhileContextDef - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _WhileContextDef'loopEnterNames - (\ x__ y__ -> x__{_WhileContextDef'loopEnterNames = y__})) - Prelude.id - -instance (a ~ ValuesDef, b ~ ValuesDef, Prelude.Functor f) => - Lens.Labels.HasLens "valuesDef" f WhileContextDef WhileContextDef a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _WhileContextDef'valuesDef - (\ x__ y__ -> x__{_WhileContextDef'valuesDef = y__})) - (Data.ProtoLens.maybeLens Data.Default.Class.def) - -instance (a ~ Prelude.Maybe ValuesDef, b ~ Prelude.Maybe ValuesDef, - Prelude.Functor f) => - Lens.Labels.HasLens "maybe'valuesDef" f WhileContextDef - WhileContextDef - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _WhileContextDef'valuesDef - (\ x__ y__ -> x__{_WhileContextDef'valuesDef = y__})) - Prelude.id - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "maximumIterationsName" f WhileContextDef - WhileContextDef - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _WhileContextDef'maximumIterationsName - (\ x__ y__ -> x__{_WhileContextDef'maximumIterationsName = y__})) - Prelude.id - -instance (a ~ [ControlFlowContextDef], b ~ [ControlFlowContextDef], - Prelude.Functor f) => - Lens.Labels.HasLens "nestedContexts" f WhileContextDef - WhileContextDef - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _WhileContextDef'nestedContexts - (\ x__ y__ -> x__{_WhileContextDef'nestedContexts = y__})) - Prelude.id - -instance Data.Default.Class.Default WhileContextDef where - def - = WhileContextDef{_WhileContextDef'contextName = - Data.ProtoLens.fieldDefault, - _WhileContextDef'parallelIterations = Data.ProtoLens.fieldDefault, - _WhileContextDef'backProp = Data.ProtoLens.fieldDefault, - _WhileContextDef'swapMemory = Data.ProtoLens.fieldDefault, - _WhileContextDef'pivotName = Data.ProtoLens.fieldDefault, - _WhileContextDef'pivotForPredName = Data.ProtoLens.fieldDefault, - _WhileContextDef'pivotForBodyName = Data.ProtoLens.fieldDefault, - _WhileContextDef'loopExitNames = [], - _WhileContextDef'loopEnterNames = [], - _WhileContextDef'valuesDef = Prelude.Nothing, - _WhileContextDef'maximumIterationsName = - Data.ProtoLens.fieldDefault, - _WhileContextDef'nestedContexts = []} - -instance Data.ProtoLens.Message WhileContextDef where - descriptor - = let contextName__field_descriptor - = Data.ProtoLens.FieldDescriptor "context_name" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional contextName) - :: Data.ProtoLens.FieldDescriptor WhileContextDef - parallelIterations__field_descriptor - = Data.ProtoLens.FieldDescriptor "parallel_iterations" - (Data.ProtoLens.Int32Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional - parallelIterations) - :: Data.ProtoLens.FieldDescriptor WhileContextDef - backProp__field_descriptor - = Data.ProtoLens.FieldDescriptor "back_prop" - (Data.ProtoLens.BoolField :: - Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional backProp) - :: Data.ProtoLens.FieldDescriptor WhileContextDef - swapMemory__field_descriptor - = Data.ProtoLens.FieldDescriptor "swap_memory" - (Data.ProtoLens.BoolField :: - Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional swapMemory) - :: Data.ProtoLens.FieldDescriptor WhileContextDef - pivotName__field_descriptor - = Data.ProtoLens.FieldDescriptor "pivot_name" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional pivotName) - :: Data.ProtoLens.FieldDescriptor WhileContextDef - pivotForPredName__field_descriptor - = Data.ProtoLens.FieldDescriptor "pivot_for_pred_name" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional - pivotForPredName) - :: Data.ProtoLens.FieldDescriptor WhileContextDef - pivotForBodyName__field_descriptor - = Data.ProtoLens.FieldDescriptor "pivot_for_body_name" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional - pivotForBodyName) - :: Data.ProtoLens.FieldDescriptor WhileContextDef - loopExitNames__field_descriptor - = Data.ProtoLens.FieldDescriptor "loop_exit_names" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked - loopExitNames) - :: Data.ProtoLens.FieldDescriptor WhileContextDef - loopEnterNames__field_descriptor - = Data.ProtoLens.FieldDescriptor "loop_enter_names" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked - loopEnterNames) - :: Data.ProtoLens.FieldDescriptor WhileContextDef - valuesDef__field_descriptor - = Data.ProtoLens.FieldDescriptor "values_def" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor ValuesDef) - (Data.ProtoLens.OptionalField maybe'valuesDef) - :: Data.ProtoLens.FieldDescriptor WhileContextDef - maximumIterationsName__field_descriptor - = Data.ProtoLens.FieldDescriptor "maximum_iterations_name" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional - maximumIterationsName) - :: Data.ProtoLens.FieldDescriptor WhileContextDef - nestedContexts__field_descriptor - = Data.ProtoLens.FieldDescriptor "nested_contexts" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor ControlFlowContextDef) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked - nestedContexts) - :: Data.ProtoLens.FieldDescriptor WhileContextDef - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.WhileContextDef") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, contextName__field_descriptor), - (Data.ProtoLens.Tag 2, parallelIterations__field_descriptor), - (Data.ProtoLens.Tag 3, backProp__field_descriptor), - (Data.ProtoLens.Tag 4, swapMemory__field_descriptor), - (Data.ProtoLens.Tag 5, pivotName__field_descriptor), - (Data.ProtoLens.Tag 6, pivotForPredName__field_descriptor), - (Data.ProtoLens.Tag 7, pivotForBodyName__field_descriptor), - (Data.ProtoLens.Tag 8, loopExitNames__field_descriptor), - (Data.ProtoLens.Tag 10, loopEnterNames__field_descriptor), - (Data.ProtoLens.Tag 9, valuesDef__field_descriptor), - (Data.ProtoLens.Tag 11, maximumIterationsName__field_descriptor), - (Data.ProtoLens.Tag 12, nestedContexts__field_descriptor)]) - (Data.Map.fromList - [("context_name", contextName__field_descriptor), - ("parallel_iterations", parallelIterations__field_descriptor), - ("back_prop", backProp__field_descriptor), - ("swap_memory", swapMemory__field_descriptor), - ("pivot_name", pivotName__field_descriptor), - ("pivot_for_pred_name", pivotForPredName__field_descriptor), - ("pivot_for_body_name", pivotForBodyName__field_descriptor), - ("loop_exit_names", loopExitNames__field_descriptor), - ("loop_enter_names", loopEnterNames__field_descriptor), - ("values_def", valuesDef__field_descriptor), - ("maximum_iterations_name", - maximumIterationsName__field_descriptor), - ("nested_contexts", nestedContexts__field_descriptor)]) - -backProp :: - forall f s t a b . (Lens.Labels.HasLens "backProp" f s t a b) => - Lens.Family2.LensLike f s t a b -backProp - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "backProp") - -branch :: - forall f s t a b . (Lens.Labels.HasLens "branch" f s t a b) => - Lens.Family2.LensLike f s t a b -branch - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "branch") - -condCtxt :: - forall f s t a b . (Lens.Labels.HasLens "condCtxt" f s t a b) => - Lens.Family2.LensLike f s t a b -condCtxt - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "condCtxt") - -contextName :: - forall f s t a b . (Lens.Labels.HasLens "contextName" f s t a b) => - Lens.Family2.LensLike f s t a b -contextName - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "contextName") - -externalValues :: - forall f s t a b . - (Lens.Labels.HasLens "externalValues" f s t a b) => - Lens.Family2.LensLike f s t a b -externalValues - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "externalValues") - -key :: - forall f s t a b . (Lens.Labels.HasLens "key" f s t a b) => - Lens.Family2.LensLike f s t a b -key - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "key") - -loopEnterNames :: - forall f s t a b . - (Lens.Labels.HasLens "loopEnterNames" f s t a b) => - Lens.Family2.LensLike f s t a b -loopEnterNames - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "loopEnterNames") - -loopExitNames :: - forall f s t a b . - (Lens.Labels.HasLens "loopExitNames" f s t a b) => - Lens.Family2.LensLike f s t a b -loopExitNames - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "loopExitNames") - -maximumIterationsName :: - forall f s t a b . - (Lens.Labels.HasLens "maximumIterationsName" f s t a b) => - Lens.Family2.LensLike f s t a b -maximumIterationsName - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: - (Lens.Labels.Proxy#) "maximumIterationsName") - -maybe'condCtxt :: - forall f s t a b . - (Lens.Labels.HasLens "maybe'condCtxt" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'condCtxt - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'condCtxt") - -maybe'ctxt :: - forall f s t a b . (Lens.Labels.HasLens "maybe'ctxt" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'ctxt - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'ctxt") - -maybe'valuesDef :: - forall f s t a b . - (Lens.Labels.HasLens "maybe'valuesDef" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'valuesDef - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'valuesDef") - -maybe'whileCtxt :: - forall f s t a b . - (Lens.Labels.HasLens "maybe'whileCtxt" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'whileCtxt - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'whileCtxt") - -nestedContexts :: - forall f s t a b . - (Lens.Labels.HasLens "nestedContexts" f s t a b) => - Lens.Family2.LensLike f s t a b -nestedContexts - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "nestedContexts") - -parallelIterations :: - forall f s t a b . - (Lens.Labels.HasLens "parallelIterations" f s t a b) => - Lens.Family2.LensLike f s t a b -parallelIterations - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "parallelIterations") - -pivotForBodyName :: - forall f s t a b . - (Lens.Labels.HasLens "pivotForBodyName" f s t a b) => - Lens.Family2.LensLike f s t a b -pivotForBodyName - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "pivotForBodyName") - -pivotForPredName :: - forall f s t a b . - (Lens.Labels.HasLens "pivotForPredName" f s t a b) => - Lens.Family2.LensLike f s t a b -pivotForPredName - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "pivotForPredName") - -pivotName :: - forall f s t a b . (Lens.Labels.HasLens "pivotName" f s t a b) => - Lens.Family2.LensLike f s t a b -pivotName - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "pivotName") - -predName :: - forall f s t a b . (Lens.Labels.HasLens "predName" f s t a b) => - Lens.Family2.LensLike f s t a b -predName - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "predName") - -swapMemory :: - forall f s t a b . (Lens.Labels.HasLens "swapMemory" f s t a b) => - Lens.Family2.LensLike f s t a b -swapMemory - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "swapMemory") - -value :: - forall f s t a b . (Lens.Labels.HasLens "value" f s t a b) => - Lens.Family2.LensLike f s t a b -value - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "value") - -values :: - forall f s t a b . (Lens.Labels.HasLens "values" f s t a b) => - Lens.Family2.LensLike f s t a b -values - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "values") - -valuesDef :: - forall f s t a b . (Lens.Labels.HasLens "valuesDef" f s t a b) => - Lens.Family2.LensLike f s t a b -valuesDef - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "valuesDef") - -whileCtxt :: - forall f s t a b . (Lens.Labels.HasLens "whileCtxt" f s t a b) => - Lens.Family2.LensLike f s t a b -whileCtxt - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "whileCtxt") diff --git a/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Protobuf/Debug.hs b/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Protobuf/Debug.hs deleted file mode 100644 --- a/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Protobuf/Debug.hs +++ /dev/null @@ -1,479 +0,0 @@ -{- This file was auto-generated from tensorflow/core/protobuf/debug.proto by the proto-lens-protoc program. -} -{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies, - UndecidableInstances, MultiParamTypeClasses, FlexibleContexts, - FlexibleInstances, PatternSynonyms, MagicHash, NoImplicitPrelude - #-} -{-# OPTIONS_GHC -fno-warn-unused-imports#-} -module Proto.Tensorflow.Core.Protobuf.Debug where -import qualified Data.ProtoLens.Reexport.Prelude as Prelude -import qualified Data.ProtoLens.Reexport.Data.Int as Data.Int -import qualified Data.ProtoLens.Reexport.Data.Word as Data.Word -import qualified Data.ProtoLens.Reexport.Data.ProtoLens - as Data.ProtoLens -import qualified - Data.ProtoLens.Reexport.Data.ProtoLens.Message.Enum - as Data.ProtoLens.Message.Enum -import qualified Data.ProtoLens.Reexport.Lens.Family2 - as Lens.Family2 -import qualified Data.ProtoLens.Reexport.Lens.Family2.Unchecked - as Lens.Family2.Unchecked -import qualified Data.ProtoLens.Reexport.Data.Default.Class - as Data.Default.Class -import qualified Data.ProtoLens.Reexport.Data.Text as Data.Text -import qualified Data.ProtoLens.Reexport.Data.Map as Data.Map -import qualified Data.ProtoLens.Reexport.Data.ByteString - as Data.ByteString -import qualified Data.ProtoLens.Reexport.Lens.Labels as Lens.Labels - -data DebugOptions = DebugOptions{_DebugOptions'debugTensorWatchOpts - :: ![DebugTensorWatch], - _DebugOptions'globalStep :: !Data.Int.Int64} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ [DebugTensorWatch], b ~ [DebugTensorWatch], - Prelude.Functor f) => - Lens.Labels.HasLens "debugTensorWatchOpts" f DebugOptions - DebugOptions - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _DebugOptions'debugTensorWatchOpts - (\ x__ y__ -> x__{_DebugOptions'debugTensorWatchOpts = y__})) - Prelude.id - -instance (a ~ Data.Int.Int64, b ~ Data.Int.Int64, - Prelude.Functor f) => - Lens.Labels.HasLens "globalStep" f DebugOptions DebugOptions a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _DebugOptions'globalStep - (\ x__ y__ -> x__{_DebugOptions'globalStep = y__})) - Prelude.id - -instance Data.Default.Class.Default DebugOptions where - def - = DebugOptions{_DebugOptions'debugTensorWatchOpts = [], - _DebugOptions'globalStep = Data.ProtoLens.fieldDefault} - -instance Data.ProtoLens.Message DebugOptions where - descriptor - = let debugTensorWatchOpts__field_descriptor - = Data.ProtoLens.FieldDescriptor "debug_tensor_watch_opts" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor DebugTensorWatch) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked - debugTensorWatchOpts) - :: Data.ProtoLens.FieldDescriptor DebugOptions - globalStep__field_descriptor - = Data.ProtoLens.FieldDescriptor "global_step" - (Data.ProtoLens.Int64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional globalStep) - :: Data.ProtoLens.FieldDescriptor DebugOptions - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.DebugOptions") - (Data.Map.fromList - [(Data.ProtoLens.Tag 4, debugTensorWatchOpts__field_descriptor), - (Data.ProtoLens.Tag 10, globalStep__field_descriptor)]) - (Data.Map.fromList - [("debug_tensor_watch_opts", - debugTensorWatchOpts__field_descriptor), - ("global_step", globalStep__field_descriptor)]) - -data DebugTensorWatch = DebugTensorWatch{_DebugTensorWatch'nodeName - :: !Data.Text.Text, - _DebugTensorWatch'outputSlot :: !Data.Int.Int32, - _DebugTensorWatch'debugOps :: ![Data.Text.Text], - _DebugTensorWatch'debugUrls :: ![Data.Text.Text], - _DebugTensorWatch'tolerateDebugOpCreationFailures :: - !Prelude.Bool} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "nodeName" f DebugTensorWatch DebugTensorWatch - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _DebugTensorWatch'nodeName - (\ x__ y__ -> x__{_DebugTensorWatch'nodeName = y__})) - Prelude.id - -instance (a ~ Data.Int.Int32, b ~ Data.Int.Int32, - Prelude.Functor f) => - Lens.Labels.HasLens "outputSlot" f DebugTensorWatch - DebugTensorWatch - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _DebugTensorWatch'outputSlot - (\ x__ y__ -> x__{_DebugTensorWatch'outputSlot = y__})) - Prelude.id - -instance (a ~ [Data.Text.Text], b ~ [Data.Text.Text], - Prelude.Functor f) => - Lens.Labels.HasLens "debugOps" f DebugTensorWatch DebugTensorWatch - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _DebugTensorWatch'debugOps - (\ x__ y__ -> x__{_DebugTensorWatch'debugOps = y__})) - Prelude.id - -instance (a ~ [Data.Text.Text], b ~ [Data.Text.Text], - Prelude.Functor f) => - Lens.Labels.HasLens "debugUrls" f DebugTensorWatch DebugTensorWatch - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _DebugTensorWatch'debugUrls - (\ x__ y__ -> x__{_DebugTensorWatch'debugUrls = y__})) - Prelude.id - -instance (a ~ Prelude.Bool, b ~ Prelude.Bool, Prelude.Functor f) => - Lens.Labels.HasLens "tolerateDebugOpCreationFailures" f - DebugTensorWatch - DebugTensorWatch - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _DebugTensorWatch'tolerateDebugOpCreationFailures - (\ x__ y__ -> - x__{_DebugTensorWatch'tolerateDebugOpCreationFailures = y__})) - Prelude.id - -instance Data.Default.Class.Default DebugTensorWatch where - def - = DebugTensorWatch{_DebugTensorWatch'nodeName = - Data.ProtoLens.fieldDefault, - _DebugTensorWatch'outputSlot = Data.ProtoLens.fieldDefault, - _DebugTensorWatch'debugOps = [], _DebugTensorWatch'debugUrls = [], - _DebugTensorWatch'tolerateDebugOpCreationFailures = - Data.ProtoLens.fieldDefault} - -instance Data.ProtoLens.Message DebugTensorWatch where - descriptor - = let nodeName__field_descriptor - = Data.ProtoLens.FieldDescriptor "node_name" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional nodeName) - :: Data.ProtoLens.FieldDescriptor DebugTensorWatch - outputSlot__field_descriptor - = Data.ProtoLens.FieldDescriptor "output_slot" - (Data.ProtoLens.Int32Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional outputSlot) - :: Data.ProtoLens.FieldDescriptor DebugTensorWatch - debugOps__field_descriptor - = Data.ProtoLens.FieldDescriptor "debug_ops" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked debugOps) - :: Data.ProtoLens.FieldDescriptor DebugTensorWatch - debugUrls__field_descriptor - = Data.ProtoLens.FieldDescriptor "debug_urls" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked debugUrls) - :: Data.ProtoLens.FieldDescriptor DebugTensorWatch - tolerateDebugOpCreationFailures__field_descriptor - = Data.ProtoLens.FieldDescriptor - "tolerate_debug_op_creation_failures" - (Data.ProtoLens.BoolField :: - Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional - tolerateDebugOpCreationFailures) - :: Data.ProtoLens.FieldDescriptor DebugTensorWatch - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.DebugTensorWatch") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, nodeName__field_descriptor), - (Data.ProtoLens.Tag 2, outputSlot__field_descriptor), - (Data.ProtoLens.Tag 3, debugOps__field_descriptor), - (Data.ProtoLens.Tag 4, debugUrls__field_descriptor), - (Data.ProtoLens.Tag 5, - tolerateDebugOpCreationFailures__field_descriptor)]) - (Data.Map.fromList - [("node_name", nodeName__field_descriptor), - ("output_slot", outputSlot__field_descriptor), - ("debug_ops", debugOps__field_descriptor), - ("debug_urls", debugUrls__field_descriptor), - ("tolerate_debug_op_creation_failures", - tolerateDebugOpCreationFailures__field_descriptor)]) - -data DebuggedSourceFile = DebuggedSourceFile{_DebuggedSourceFile'host - :: !Data.Text.Text, - _DebuggedSourceFile'filePath :: !Data.Text.Text, - _DebuggedSourceFile'lastModified :: !Data.Int.Int64, - _DebuggedSourceFile'bytes :: !Data.Int.Int64, - _DebuggedSourceFile'lines :: ![Data.Text.Text]} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "host" f DebuggedSourceFile DebuggedSourceFile - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _DebuggedSourceFile'host - (\ x__ y__ -> x__{_DebuggedSourceFile'host = y__})) - Prelude.id - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "filePath" f DebuggedSourceFile - DebuggedSourceFile - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _DebuggedSourceFile'filePath - (\ x__ y__ -> x__{_DebuggedSourceFile'filePath = y__})) - Prelude.id - -instance (a ~ Data.Int.Int64, b ~ Data.Int.Int64, - Prelude.Functor f) => - Lens.Labels.HasLens "lastModified" f DebuggedSourceFile - DebuggedSourceFile - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _DebuggedSourceFile'lastModified - (\ x__ y__ -> x__{_DebuggedSourceFile'lastModified = y__})) - Prelude.id - -instance (a ~ Data.Int.Int64, b ~ Data.Int.Int64, - Prelude.Functor f) => - Lens.Labels.HasLens "bytes" f DebuggedSourceFile DebuggedSourceFile - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _DebuggedSourceFile'bytes - (\ x__ y__ -> x__{_DebuggedSourceFile'bytes = y__})) - Prelude.id - -instance (a ~ [Data.Text.Text], b ~ [Data.Text.Text], - Prelude.Functor f) => - Lens.Labels.HasLens "lines" f DebuggedSourceFile DebuggedSourceFile - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _DebuggedSourceFile'lines - (\ x__ y__ -> x__{_DebuggedSourceFile'lines = y__})) - Prelude.id - -instance Data.Default.Class.Default DebuggedSourceFile where - def - = DebuggedSourceFile{_DebuggedSourceFile'host = - Data.ProtoLens.fieldDefault, - _DebuggedSourceFile'filePath = Data.ProtoLens.fieldDefault, - _DebuggedSourceFile'lastModified = Data.ProtoLens.fieldDefault, - _DebuggedSourceFile'bytes = Data.ProtoLens.fieldDefault, - _DebuggedSourceFile'lines = []} - -instance Data.ProtoLens.Message DebuggedSourceFile where - descriptor - = let host__field_descriptor - = Data.ProtoLens.FieldDescriptor "host" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional host) - :: Data.ProtoLens.FieldDescriptor DebuggedSourceFile - filePath__field_descriptor - = Data.ProtoLens.FieldDescriptor "file_path" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional filePath) - :: Data.ProtoLens.FieldDescriptor DebuggedSourceFile - lastModified__field_descriptor - = Data.ProtoLens.FieldDescriptor "last_modified" - (Data.ProtoLens.Int64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional lastModified) - :: Data.ProtoLens.FieldDescriptor DebuggedSourceFile - bytes__field_descriptor - = Data.ProtoLens.FieldDescriptor "bytes" - (Data.ProtoLens.Int64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional bytes) - :: Data.ProtoLens.FieldDescriptor DebuggedSourceFile - lines__field_descriptor - = Data.ProtoLens.FieldDescriptor "lines" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked lines) - :: Data.ProtoLens.FieldDescriptor DebuggedSourceFile - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.DebuggedSourceFile") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, host__field_descriptor), - (Data.ProtoLens.Tag 2, filePath__field_descriptor), - (Data.ProtoLens.Tag 3, lastModified__field_descriptor), - (Data.ProtoLens.Tag 4, bytes__field_descriptor), - (Data.ProtoLens.Tag 5, lines__field_descriptor)]) - (Data.Map.fromList - [("host", host__field_descriptor), - ("file_path", filePath__field_descriptor), - ("last_modified", lastModified__field_descriptor), - ("bytes", bytes__field_descriptor), - ("lines", lines__field_descriptor)]) - -data DebuggedSourceFiles = DebuggedSourceFiles{_DebuggedSourceFiles'sourceFiles - :: ![DebuggedSourceFile]} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ [DebuggedSourceFile], b ~ [DebuggedSourceFile], - Prelude.Functor f) => - Lens.Labels.HasLens "sourceFiles" f DebuggedSourceFiles - DebuggedSourceFiles - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _DebuggedSourceFiles'sourceFiles - (\ x__ y__ -> x__{_DebuggedSourceFiles'sourceFiles = y__})) - Prelude.id - -instance Data.Default.Class.Default DebuggedSourceFiles where - def = DebuggedSourceFiles{_DebuggedSourceFiles'sourceFiles = []} - -instance Data.ProtoLens.Message DebuggedSourceFiles where - descriptor - = let sourceFiles__field_descriptor - = Data.ProtoLens.FieldDescriptor "source_files" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor DebuggedSourceFile) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked sourceFiles) - :: Data.ProtoLens.FieldDescriptor DebuggedSourceFiles - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.DebuggedSourceFiles") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, sourceFiles__field_descriptor)]) - (Data.Map.fromList - [("source_files", sourceFiles__field_descriptor)]) - -bytes :: - forall f s t a b . (Lens.Labels.HasLens "bytes" f s t a b) => - Lens.Family2.LensLike f s t a b -bytes - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "bytes") - -debugOps :: - forall f s t a b . (Lens.Labels.HasLens "debugOps" f s t a b) => - Lens.Family2.LensLike f s t a b -debugOps - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "debugOps") - -debugTensorWatchOpts :: - forall f s t a b . - (Lens.Labels.HasLens "debugTensorWatchOpts" f s t a b) => - Lens.Family2.LensLike f s t a b -debugTensorWatchOpts - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: - (Lens.Labels.Proxy#) "debugTensorWatchOpts") - -debugUrls :: - forall f s t a b . (Lens.Labels.HasLens "debugUrls" f s t a b) => - Lens.Family2.LensLike f s t a b -debugUrls - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "debugUrls") - -filePath :: - forall f s t a b . (Lens.Labels.HasLens "filePath" f s t a b) => - Lens.Family2.LensLike f s t a b -filePath - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "filePath") - -globalStep :: - forall f s t a b . (Lens.Labels.HasLens "globalStep" f s t a b) => - Lens.Family2.LensLike f s t a b -globalStep - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "globalStep") - -host :: - forall f s t a b . (Lens.Labels.HasLens "host" f s t a b) => - Lens.Family2.LensLike f s t a b -host - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "host") - -lastModified :: - forall f s t a b . - (Lens.Labels.HasLens "lastModified" f s t a b) => - Lens.Family2.LensLike f s t a b -lastModified - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "lastModified") - -lines :: - forall f s t a b . (Lens.Labels.HasLens "lines" f s t a b) => - Lens.Family2.LensLike f s t a b -lines - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "lines") - -nodeName :: - forall f s t a b . (Lens.Labels.HasLens "nodeName" f s t a b) => - Lens.Family2.LensLike f s t a b -nodeName - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "nodeName") - -outputSlot :: - forall f s t a b . (Lens.Labels.HasLens "outputSlot" f s t a b) => - Lens.Family2.LensLike f s t a b -outputSlot - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "outputSlot") - -sourceFiles :: - forall f s t a b . (Lens.Labels.HasLens "sourceFiles" f s t a b) => - Lens.Family2.LensLike f s t a b -sourceFiles - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "sourceFiles") - -tolerateDebugOpCreationFailures :: - forall f s t a b . - (Lens.Labels.HasLens "tolerateDebugOpCreationFailures" f s t a - b) => - Lens.Family2.LensLike f s t a b -tolerateDebugOpCreationFailures - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: - (Lens.Labels.Proxy#) "tolerateDebugOpCreationFailures") diff --git a/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Protobuf/MetaGraph.hs b/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Protobuf/MetaGraph.hs deleted file mode 100644 --- a/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Protobuf/MetaGraph.hs +++ /dev/null @@ -1,1955 +0,0 @@ -{- This file was auto-generated from tensorflow/core/protobuf/meta_graph.proto by the proto-lens-protoc program. -} -{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies, - UndecidableInstances, MultiParamTypeClasses, FlexibleContexts, - FlexibleInstances, PatternSynonyms, MagicHash, NoImplicitPrelude - #-} -{-# OPTIONS_GHC -fno-warn-unused-imports#-} -module Proto.Tensorflow.Core.Protobuf.MetaGraph where -import qualified Data.ProtoLens.Reexport.Prelude as Prelude -import qualified Data.ProtoLens.Reexport.Data.Int as Data.Int -import qualified Data.ProtoLens.Reexport.Data.Word as Data.Word -import qualified Data.ProtoLens.Reexport.Data.ProtoLens - as Data.ProtoLens -import qualified - Data.ProtoLens.Reexport.Data.ProtoLens.Message.Enum - as Data.ProtoLens.Message.Enum -import qualified Data.ProtoLens.Reexport.Lens.Family2 - as Lens.Family2 -import qualified Data.ProtoLens.Reexport.Lens.Family2.Unchecked - as Lens.Family2.Unchecked -import qualified Data.ProtoLens.Reexport.Data.Default.Class - as Data.Default.Class -import qualified Data.ProtoLens.Reexport.Data.Text as Data.Text -import qualified Data.ProtoLens.Reexport.Data.Map as Data.Map -import qualified Data.ProtoLens.Reexport.Data.ByteString - as Data.ByteString -import qualified Data.ProtoLens.Reexport.Lens.Labels as Lens.Labels -import qualified Proto.Google.Protobuf.Any -import qualified Proto.Tensorflow.Core.Framework.Graph -import qualified Proto.Tensorflow.Core.Framework.OpDef -import qualified Proto.Tensorflow.Core.Framework.TensorShape -import qualified Proto.Tensorflow.Core.Framework.Types -import qualified Proto.Tensorflow.Core.Protobuf.Saver - -data AssetFileDef = AssetFileDef{_AssetFileDef'tensorInfo :: - !(Prelude.Maybe TensorInfo), - _AssetFileDef'filename :: !Data.Text.Text} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ TensorInfo, b ~ TensorInfo, Prelude.Functor f) => - Lens.Labels.HasLens "tensorInfo" f AssetFileDef AssetFileDef a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _AssetFileDef'tensorInfo - (\ x__ y__ -> x__{_AssetFileDef'tensorInfo = y__})) - (Data.ProtoLens.maybeLens Data.Default.Class.def) - -instance (a ~ Prelude.Maybe TensorInfo, - b ~ Prelude.Maybe TensorInfo, Prelude.Functor f) => - Lens.Labels.HasLens "maybe'tensorInfo" f AssetFileDef AssetFileDef - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _AssetFileDef'tensorInfo - (\ x__ y__ -> x__{_AssetFileDef'tensorInfo = y__})) - Prelude.id - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "filename" f AssetFileDef AssetFileDef a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _AssetFileDef'filename - (\ x__ y__ -> x__{_AssetFileDef'filename = y__})) - Prelude.id - -instance Data.Default.Class.Default AssetFileDef where - def - = AssetFileDef{_AssetFileDef'tensorInfo = Prelude.Nothing, - _AssetFileDef'filename = Data.ProtoLens.fieldDefault} - -instance Data.ProtoLens.Message AssetFileDef where - descriptor - = let tensorInfo__field_descriptor - = Data.ProtoLens.FieldDescriptor "tensor_info" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor TensorInfo) - (Data.ProtoLens.OptionalField maybe'tensorInfo) - :: Data.ProtoLens.FieldDescriptor AssetFileDef - filename__field_descriptor - = Data.ProtoLens.FieldDescriptor "filename" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional filename) - :: Data.ProtoLens.FieldDescriptor AssetFileDef - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.AssetFileDef") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, tensorInfo__field_descriptor), - (Data.ProtoLens.Tag 2, filename__field_descriptor)]) - (Data.Map.fromList - [("tensor_info", tensorInfo__field_descriptor), - ("filename", filename__field_descriptor)]) - -data CollectionDef = CollectionDef{_CollectionDef'kind :: - !(Prelude.Maybe CollectionDef'Kind)} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -data CollectionDef'Kind = CollectionDef'NodeList' !CollectionDef'NodeList - | CollectionDef'BytesList' !CollectionDef'BytesList - | CollectionDef'Int64List' !CollectionDef'Int64List - | CollectionDef'FloatList' !CollectionDef'FloatList - | CollectionDef'AnyList' !CollectionDef'AnyList - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Prelude.Maybe CollectionDef'Kind, - b ~ Prelude.Maybe CollectionDef'Kind, Prelude.Functor f) => - Lens.Labels.HasLens "maybe'kind" f CollectionDef CollectionDef a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _CollectionDef'kind - (\ x__ y__ -> x__{_CollectionDef'kind = y__})) - Prelude.id - -instance (a ~ Prelude.Maybe CollectionDef'NodeList, - b ~ Prelude.Maybe CollectionDef'NodeList, Prelude.Functor f) => - Lens.Labels.HasLens "maybe'nodeList" f CollectionDef CollectionDef - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _CollectionDef'kind - (\ x__ y__ -> x__{_CollectionDef'kind = y__})) - (Lens.Family2.Unchecked.lens - (\ x__ -> - case x__ of - Prelude.Just (CollectionDef'NodeList' x__val) -> Prelude.Just - x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap CollectionDef'NodeList' y__)) - -instance (a ~ CollectionDef'NodeList, b ~ CollectionDef'NodeList, - Prelude.Functor f) => - Lens.Labels.HasLens "nodeList" f CollectionDef CollectionDef a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _CollectionDef'kind - (\ x__ y__ -> x__{_CollectionDef'kind = y__})) - ((Prelude..) - (Lens.Family2.Unchecked.lens - (\ x__ -> - case x__ of - Prelude.Just (CollectionDef'NodeList' x__val) -> Prelude.Just - x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap CollectionDef'NodeList' y__)) - (Data.ProtoLens.maybeLens Data.Default.Class.def)) - -instance (a ~ Prelude.Maybe CollectionDef'BytesList, - b ~ Prelude.Maybe CollectionDef'BytesList, Prelude.Functor f) => - Lens.Labels.HasLens "maybe'bytesList" f CollectionDef CollectionDef - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _CollectionDef'kind - (\ x__ y__ -> x__{_CollectionDef'kind = y__})) - (Lens.Family2.Unchecked.lens - (\ x__ -> - case x__ of - Prelude.Just (CollectionDef'BytesList' x__val) -> Prelude.Just - x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap CollectionDef'BytesList' y__)) - -instance (a ~ CollectionDef'BytesList, b ~ CollectionDef'BytesList, - Prelude.Functor f) => - Lens.Labels.HasLens "bytesList" f CollectionDef CollectionDef a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _CollectionDef'kind - (\ x__ y__ -> x__{_CollectionDef'kind = y__})) - ((Prelude..) - (Lens.Family2.Unchecked.lens - (\ x__ -> - case x__ of - Prelude.Just (CollectionDef'BytesList' x__val) -> Prelude.Just - x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap CollectionDef'BytesList' y__)) - (Data.ProtoLens.maybeLens Data.Default.Class.def)) - -instance (a ~ Prelude.Maybe CollectionDef'Int64List, - b ~ Prelude.Maybe CollectionDef'Int64List, Prelude.Functor f) => - Lens.Labels.HasLens "maybe'int64List" f CollectionDef CollectionDef - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _CollectionDef'kind - (\ x__ y__ -> x__{_CollectionDef'kind = y__})) - (Lens.Family2.Unchecked.lens - (\ x__ -> - case x__ of - Prelude.Just (CollectionDef'Int64List' x__val) -> Prelude.Just - x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap CollectionDef'Int64List' y__)) - -instance (a ~ CollectionDef'Int64List, b ~ CollectionDef'Int64List, - Prelude.Functor f) => - Lens.Labels.HasLens "int64List" f CollectionDef CollectionDef a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _CollectionDef'kind - (\ x__ y__ -> x__{_CollectionDef'kind = y__})) - ((Prelude..) - (Lens.Family2.Unchecked.lens - (\ x__ -> - case x__ of - Prelude.Just (CollectionDef'Int64List' x__val) -> Prelude.Just - x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap CollectionDef'Int64List' y__)) - (Data.ProtoLens.maybeLens Data.Default.Class.def)) - -instance (a ~ Prelude.Maybe CollectionDef'FloatList, - b ~ Prelude.Maybe CollectionDef'FloatList, Prelude.Functor f) => - Lens.Labels.HasLens "maybe'floatList" f CollectionDef CollectionDef - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _CollectionDef'kind - (\ x__ y__ -> x__{_CollectionDef'kind = y__})) - (Lens.Family2.Unchecked.lens - (\ x__ -> - case x__ of - Prelude.Just (CollectionDef'FloatList' x__val) -> Prelude.Just - x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap CollectionDef'FloatList' y__)) - -instance (a ~ CollectionDef'FloatList, b ~ CollectionDef'FloatList, - Prelude.Functor f) => - Lens.Labels.HasLens "floatList" f CollectionDef CollectionDef a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _CollectionDef'kind - (\ x__ y__ -> x__{_CollectionDef'kind = y__})) - ((Prelude..) - (Lens.Family2.Unchecked.lens - (\ x__ -> - case x__ of - Prelude.Just (CollectionDef'FloatList' x__val) -> Prelude.Just - x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap CollectionDef'FloatList' y__)) - (Data.ProtoLens.maybeLens Data.Default.Class.def)) - -instance (a ~ Prelude.Maybe CollectionDef'AnyList, - b ~ Prelude.Maybe CollectionDef'AnyList, Prelude.Functor f) => - Lens.Labels.HasLens "maybe'anyList" f CollectionDef CollectionDef a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _CollectionDef'kind - (\ x__ y__ -> x__{_CollectionDef'kind = y__})) - (Lens.Family2.Unchecked.lens - (\ x__ -> - case x__ of - Prelude.Just (CollectionDef'AnyList' x__val) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap CollectionDef'AnyList' y__)) - -instance (a ~ CollectionDef'AnyList, b ~ CollectionDef'AnyList, - Prelude.Functor f) => - Lens.Labels.HasLens "anyList" f CollectionDef CollectionDef a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _CollectionDef'kind - (\ x__ y__ -> x__{_CollectionDef'kind = y__})) - ((Prelude..) - (Lens.Family2.Unchecked.lens - (\ x__ -> - case x__ of - Prelude.Just (CollectionDef'AnyList' x__val) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap CollectionDef'AnyList' y__)) - (Data.ProtoLens.maybeLens Data.Default.Class.def)) - -instance Data.Default.Class.Default CollectionDef where - def = CollectionDef{_CollectionDef'kind = Prelude.Nothing} - -instance Data.ProtoLens.Message CollectionDef where - descriptor - = let nodeList__field_descriptor - = Data.ProtoLens.FieldDescriptor "node_list" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor CollectionDef'NodeList) - (Data.ProtoLens.OptionalField maybe'nodeList) - :: Data.ProtoLens.FieldDescriptor CollectionDef - bytesList__field_descriptor - = Data.ProtoLens.FieldDescriptor "bytes_list" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor CollectionDef'BytesList) - (Data.ProtoLens.OptionalField maybe'bytesList) - :: Data.ProtoLens.FieldDescriptor CollectionDef - int64List__field_descriptor - = Data.ProtoLens.FieldDescriptor "int64_list" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor CollectionDef'Int64List) - (Data.ProtoLens.OptionalField maybe'int64List) - :: Data.ProtoLens.FieldDescriptor CollectionDef - floatList__field_descriptor - = Data.ProtoLens.FieldDescriptor "float_list" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor CollectionDef'FloatList) - (Data.ProtoLens.OptionalField maybe'floatList) - :: Data.ProtoLens.FieldDescriptor CollectionDef - anyList__field_descriptor - = Data.ProtoLens.FieldDescriptor "any_list" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor CollectionDef'AnyList) - (Data.ProtoLens.OptionalField maybe'anyList) - :: Data.ProtoLens.FieldDescriptor CollectionDef - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.CollectionDef") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, nodeList__field_descriptor), - (Data.ProtoLens.Tag 2, bytesList__field_descriptor), - (Data.ProtoLens.Tag 3, int64List__field_descriptor), - (Data.ProtoLens.Tag 4, floatList__field_descriptor), - (Data.ProtoLens.Tag 5, anyList__field_descriptor)]) - (Data.Map.fromList - [("node_list", nodeList__field_descriptor), - ("bytes_list", bytesList__field_descriptor), - ("int64_list", int64List__field_descriptor), - ("float_list", floatList__field_descriptor), - ("any_list", anyList__field_descriptor)]) - -data CollectionDef'AnyList = CollectionDef'AnyList{_CollectionDef'AnyList'value - :: ![Proto.Google.Protobuf.Any.Any]} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ [Proto.Google.Protobuf.Any.Any], - b ~ [Proto.Google.Protobuf.Any.Any], Prelude.Functor f) => - Lens.Labels.HasLens "value" f CollectionDef'AnyList - CollectionDef'AnyList - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _CollectionDef'AnyList'value - (\ x__ y__ -> x__{_CollectionDef'AnyList'value = y__})) - Prelude.id - -instance Data.Default.Class.Default CollectionDef'AnyList where - def = CollectionDef'AnyList{_CollectionDef'AnyList'value = []} - -instance Data.ProtoLens.Message CollectionDef'AnyList where - descriptor - = let value__field_descriptor - = Data.ProtoLens.FieldDescriptor "value" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor Proto.Google.Protobuf.Any.Any) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked value) - :: Data.ProtoLens.FieldDescriptor CollectionDef'AnyList - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.CollectionDef.AnyList") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, value__field_descriptor)]) - (Data.Map.fromList [("value", value__field_descriptor)]) - -data CollectionDef'BytesList = CollectionDef'BytesList{_CollectionDef'BytesList'value - :: ![Data.ByteString.ByteString]} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ [Data.ByteString.ByteString], - b ~ [Data.ByteString.ByteString], Prelude.Functor f) => - Lens.Labels.HasLens "value" f CollectionDef'BytesList - CollectionDef'BytesList - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _CollectionDef'BytesList'value - (\ x__ y__ -> x__{_CollectionDef'BytesList'value = y__})) - Prelude.id - -instance Data.Default.Class.Default CollectionDef'BytesList where - def = CollectionDef'BytesList{_CollectionDef'BytesList'value = []} - -instance Data.ProtoLens.Message CollectionDef'BytesList where - descriptor - = let value__field_descriptor - = Data.ProtoLens.FieldDescriptor "value" - (Data.ProtoLens.BytesField :: - Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked value) - :: Data.ProtoLens.FieldDescriptor CollectionDef'BytesList - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.CollectionDef.BytesList") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, value__field_descriptor)]) - (Data.Map.fromList [("value", value__field_descriptor)]) - -data CollectionDef'FloatList = CollectionDef'FloatList{_CollectionDef'FloatList'value - :: ![Prelude.Float]} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ [Prelude.Float], b ~ [Prelude.Float], - Prelude.Functor f) => - Lens.Labels.HasLens "value" f CollectionDef'FloatList - CollectionDef'FloatList - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _CollectionDef'FloatList'value - (\ x__ y__ -> x__{_CollectionDef'FloatList'value = y__})) - Prelude.id - -instance Data.Default.Class.Default CollectionDef'FloatList where - def = CollectionDef'FloatList{_CollectionDef'FloatList'value = []} - -instance Data.ProtoLens.Message CollectionDef'FloatList where - descriptor - = let value__field_descriptor - = Data.ProtoLens.FieldDescriptor "value" - (Data.ProtoLens.FloatField :: - Data.ProtoLens.FieldTypeDescriptor Prelude.Float) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Packed value) - :: Data.ProtoLens.FieldDescriptor CollectionDef'FloatList - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.CollectionDef.FloatList") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, value__field_descriptor)]) - (Data.Map.fromList [("value", value__field_descriptor)]) - -data CollectionDef'Int64List = CollectionDef'Int64List{_CollectionDef'Int64List'value - :: ![Data.Int.Int64]} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ [Data.Int.Int64], b ~ [Data.Int.Int64], - Prelude.Functor f) => - Lens.Labels.HasLens "value" f CollectionDef'Int64List - CollectionDef'Int64List - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _CollectionDef'Int64List'value - (\ x__ y__ -> x__{_CollectionDef'Int64List'value = y__})) - Prelude.id - -instance Data.Default.Class.Default CollectionDef'Int64List where - def = CollectionDef'Int64List{_CollectionDef'Int64List'value = []} - -instance Data.ProtoLens.Message CollectionDef'Int64List where - descriptor - = let value__field_descriptor - = Data.ProtoLens.FieldDescriptor "value" - (Data.ProtoLens.Int64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Packed value) - :: Data.ProtoLens.FieldDescriptor CollectionDef'Int64List - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.CollectionDef.Int64List") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, value__field_descriptor)]) - (Data.Map.fromList [("value", value__field_descriptor)]) - -data CollectionDef'NodeList = CollectionDef'NodeList{_CollectionDef'NodeList'value - :: ![Data.Text.Text]} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ [Data.Text.Text], b ~ [Data.Text.Text], - Prelude.Functor f) => - Lens.Labels.HasLens "value" f CollectionDef'NodeList - CollectionDef'NodeList - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _CollectionDef'NodeList'value - (\ x__ y__ -> x__{_CollectionDef'NodeList'value = y__})) - Prelude.id - -instance Data.Default.Class.Default CollectionDef'NodeList where - def = CollectionDef'NodeList{_CollectionDef'NodeList'value = []} - -instance Data.ProtoLens.Message CollectionDef'NodeList where - descriptor - = let value__field_descriptor - = Data.ProtoLens.FieldDescriptor "value" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked value) - :: Data.ProtoLens.FieldDescriptor CollectionDef'NodeList - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.CollectionDef.NodeList") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, value__field_descriptor)]) - (Data.Map.fromList [("value", value__field_descriptor)]) - -data MetaGraphDef = MetaGraphDef{_MetaGraphDef'metaInfoDef :: - !(Prelude.Maybe MetaGraphDef'MetaInfoDef), - _MetaGraphDef'graphDef :: - !(Prelude.Maybe Proto.Tensorflow.Core.Framework.Graph.GraphDef), - _MetaGraphDef'saverDef :: - !(Prelude.Maybe Proto.Tensorflow.Core.Protobuf.Saver.SaverDef), - _MetaGraphDef'collectionDef :: - !(Data.Map.Map Data.Text.Text CollectionDef), - _MetaGraphDef'signatureDef :: - !(Data.Map.Map Data.Text.Text SignatureDef), - _MetaGraphDef'assetFileDef :: ![AssetFileDef]} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ MetaGraphDef'MetaInfoDef, - b ~ MetaGraphDef'MetaInfoDef, Prelude.Functor f) => - Lens.Labels.HasLens "metaInfoDef" f MetaGraphDef MetaGraphDef a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _MetaGraphDef'metaInfoDef - (\ x__ y__ -> x__{_MetaGraphDef'metaInfoDef = y__})) - (Data.ProtoLens.maybeLens Data.Default.Class.def) - -instance (a ~ Prelude.Maybe MetaGraphDef'MetaInfoDef, - b ~ Prelude.Maybe MetaGraphDef'MetaInfoDef, Prelude.Functor f) => - Lens.Labels.HasLens "maybe'metaInfoDef" f MetaGraphDef MetaGraphDef - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _MetaGraphDef'metaInfoDef - (\ x__ y__ -> x__{_MetaGraphDef'metaInfoDef = y__})) - Prelude.id - -instance (a ~ Proto.Tensorflow.Core.Framework.Graph.GraphDef, - b ~ Proto.Tensorflow.Core.Framework.Graph.GraphDef, - Prelude.Functor f) => - Lens.Labels.HasLens "graphDef" f MetaGraphDef MetaGraphDef a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _MetaGraphDef'graphDef - (\ x__ y__ -> x__{_MetaGraphDef'graphDef = y__})) - (Data.ProtoLens.maybeLens Data.Default.Class.def) - -instance (a ~ - Prelude.Maybe Proto.Tensorflow.Core.Framework.Graph.GraphDef, - b ~ Prelude.Maybe Proto.Tensorflow.Core.Framework.Graph.GraphDef, - Prelude.Functor f) => - Lens.Labels.HasLens "maybe'graphDef" f MetaGraphDef MetaGraphDef a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _MetaGraphDef'graphDef - (\ x__ y__ -> x__{_MetaGraphDef'graphDef = y__})) - Prelude.id - -instance (a ~ Proto.Tensorflow.Core.Protobuf.Saver.SaverDef, - b ~ Proto.Tensorflow.Core.Protobuf.Saver.SaverDef, - Prelude.Functor f) => - Lens.Labels.HasLens "saverDef" f MetaGraphDef MetaGraphDef a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _MetaGraphDef'saverDef - (\ x__ y__ -> x__{_MetaGraphDef'saverDef = y__})) - (Data.ProtoLens.maybeLens Data.Default.Class.def) - -instance (a ~ - Prelude.Maybe Proto.Tensorflow.Core.Protobuf.Saver.SaverDef, - b ~ Prelude.Maybe Proto.Tensorflow.Core.Protobuf.Saver.SaverDef, - Prelude.Functor f) => - Lens.Labels.HasLens "maybe'saverDef" f MetaGraphDef MetaGraphDef a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _MetaGraphDef'saverDef - (\ x__ y__ -> x__{_MetaGraphDef'saverDef = y__})) - Prelude.id - -instance (a ~ Data.Map.Map Data.Text.Text CollectionDef, - b ~ Data.Map.Map Data.Text.Text CollectionDef, - Prelude.Functor f) => - Lens.Labels.HasLens "collectionDef" f MetaGraphDef MetaGraphDef a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _MetaGraphDef'collectionDef - (\ x__ y__ -> x__{_MetaGraphDef'collectionDef = y__})) - Prelude.id - -instance (a ~ Data.Map.Map Data.Text.Text SignatureDef, - b ~ Data.Map.Map Data.Text.Text SignatureDef, Prelude.Functor f) => - Lens.Labels.HasLens "signatureDef" f MetaGraphDef MetaGraphDef a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _MetaGraphDef'signatureDef - (\ x__ y__ -> x__{_MetaGraphDef'signatureDef = y__})) - Prelude.id - -instance (a ~ [AssetFileDef], b ~ [AssetFileDef], - Prelude.Functor f) => - Lens.Labels.HasLens "assetFileDef" f MetaGraphDef MetaGraphDef a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _MetaGraphDef'assetFileDef - (\ x__ y__ -> x__{_MetaGraphDef'assetFileDef = y__})) - Prelude.id - -instance Data.Default.Class.Default MetaGraphDef where - def - = MetaGraphDef{_MetaGraphDef'metaInfoDef = Prelude.Nothing, - _MetaGraphDef'graphDef = Prelude.Nothing, - _MetaGraphDef'saverDef = Prelude.Nothing, - _MetaGraphDef'collectionDef = Data.Map.empty, - _MetaGraphDef'signatureDef = Data.Map.empty, - _MetaGraphDef'assetFileDef = []} - -instance Data.ProtoLens.Message MetaGraphDef where - descriptor - = let metaInfoDef__field_descriptor - = Data.ProtoLens.FieldDescriptor "meta_info_def" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor MetaGraphDef'MetaInfoDef) - (Data.ProtoLens.OptionalField maybe'metaInfoDef) - :: Data.ProtoLens.FieldDescriptor MetaGraphDef - graphDef__field_descriptor - = Data.ProtoLens.FieldDescriptor "graph_def" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor - Proto.Tensorflow.Core.Framework.Graph.GraphDef) - (Data.ProtoLens.OptionalField maybe'graphDef) - :: Data.ProtoLens.FieldDescriptor MetaGraphDef - saverDef__field_descriptor - = Data.ProtoLens.FieldDescriptor "saver_def" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor - Proto.Tensorflow.Core.Protobuf.Saver.SaverDef) - (Data.ProtoLens.OptionalField maybe'saverDef) - :: Data.ProtoLens.FieldDescriptor MetaGraphDef - collectionDef__field_descriptor - = Data.ProtoLens.FieldDescriptor "collection_def" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor MetaGraphDef'CollectionDefEntry) - (Data.ProtoLens.MapField key value collectionDef) - :: Data.ProtoLens.FieldDescriptor MetaGraphDef - signatureDef__field_descriptor - = Data.ProtoLens.FieldDescriptor "signature_def" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor MetaGraphDef'SignatureDefEntry) - (Data.ProtoLens.MapField key value signatureDef) - :: Data.ProtoLens.FieldDescriptor MetaGraphDef - assetFileDef__field_descriptor - = Data.ProtoLens.FieldDescriptor "asset_file_def" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor AssetFileDef) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked assetFileDef) - :: Data.ProtoLens.FieldDescriptor MetaGraphDef - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.MetaGraphDef") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, metaInfoDef__field_descriptor), - (Data.ProtoLens.Tag 2, graphDef__field_descriptor), - (Data.ProtoLens.Tag 3, saverDef__field_descriptor), - (Data.ProtoLens.Tag 4, collectionDef__field_descriptor), - (Data.ProtoLens.Tag 5, signatureDef__field_descriptor), - (Data.ProtoLens.Tag 6, assetFileDef__field_descriptor)]) - (Data.Map.fromList - [("meta_info_def", metaInfoDef__field_descriptor), - ("graph_def", graphDef__field_descriptor), - ("saver_def", saverDef__field_descriptor), - ("collection_def", collectionDef__field_descriptor), - ("signature_def", signatureDef__field_descriptor), - ("asset_file_def", assetFileDef__field_descriptor)]) - -data MetaGraphDef'CollectionDefEntry = MetaGraphDef'CollectionDefEntry{_MetaGraphDef'CollectionDefEntry'key - :: !Data.Text.Text, - _MetaGraphDef'CollectionDefEntry'value - :: - !(Prelude.Maybe - CollectionDef)} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "key" f MetaGraphDef'CollectionDefEntry - MetaGraphDef'CollectionDefEntry - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _MetaGraphDef'CollectionDefEntry'key - (\ x__ y__ -> x__{_MetaGraphDef'CollectionDefEntry'key = y__})) - Prelude.id - -instance (a ~ CollectionDef, b ~ CollectionDef, - Prelude.Functor f) => - Lens.Labels.HasLens "value" f MetaGraphDef'CollectionDefEntry - MetaGraphDef'CollectionDefEntry - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _MetaGraphDef'CollectionDefEntry'value - (\ x__ y__ -> x__{_MetaGraphDef'CollectionDefEntry'value = y__})) - (Data.ProtoLens.maybeLens Data.Default.Class.def) - -instance (a ~ Prelude.Maybe CollectionDef, - b ~ Prelude.Maybe CollectionDef, Prelude.Functor f) => - Lens.Labels.HasLens "maybe'value" f MetaGraphDef'CollectionDefEntry - MetaGraphDef'CollectionDefEntry - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _MetaGraphDef'CollectionDefEntry'value - (\ x__ y__ -> x__{_MetaGraphDef'CollectionDefEntry'value = y__})) - Prelude.id - -instance Data.Default.Class.Default MetaGraphDef'CollectionDefEntry - where - def - = MetaGraphDef'CollectionDefEntry{_MetaGraphDef'CollectionDefEntry'key - = Data.ProtoLens.fieldDefault, - _MetaGraphDef'CollectionDefEntry'value = - Prelude.Nothing} - -instance Data.ProtoLens.Message MetaGraphDef'CollectionDefEntry - where - descriptor - = let key__field_descriptor - = Data.ProtoLens.FieldDescriptor "key" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional key) - :: Data.ProtoLens.FieldDescriptor MetaGraphDef'CollectionDefEntry - value__field_descriptor - = Data.ProtoLens.FieldDescriptor "value" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor CollectionDef) - (Data.ProtoLens.OptionalField maybe'value) - :: Data.ProtoLens.FieldDescriptor MetaGraphDef'CollectionDefEntry - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.MetaGraphDef.CollectionDefEntry") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, key__field_descriptor), - (Data.ProtoLens.Tag 2, value__field_descriptor)]) - (Data.Map.fromList - [("key", key__field_descriptor), - ("value", value__field_descriptor)]) - -data MetaGraphDef'MetaInfoDef = MetaGraphDef'MetaInfoDef{_MetaGraphDef'MetaInfoDef'metaGraphVersion - :: !Data.Text.Text, - _MetaGraphDef'MetaInfoDef'strippedOpList :: - !(Prelude.Maybe - Proto.Tensorflow.Core.Framework.OpDef.OpList), - _MetaGraphDef'MetaInfoDef'anyInfo :: - !(Prelude.Maybe - Proto.Google.Protobuf.Any.Any), - _MetaGraphDef'MetaInfoDef'tags :: - ![Data.Text.Text], - _MetaGraphDef'MetaInfoDef'tensorflowVersion - :: !Data.Text.Text, - _MetaGraphDef'MetaInfoDef'tensorflowGitVersion - :: !Data.Text.Text, - _MetaGraphDef'MetaInfoDef'strippedDefaultAttrs - :: !Prelude.Bool} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "metaGraphVersion" f MetaGraphDef'MetaInfoDef - MetaGraphDef'MetaInfoDef - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _MetaGraphDef'MetaInfoDef'metaGraphVersion - (\ x__ y__ -> - x__{_MetaGraphDef'MetaInfoDef'metaGraphVersion = y__})) - Prelude.id - -instance (a ~ Proto.Tensorflow.Core.Framework.OpDef.OpList, - b ~ Proto.Tensorflow.Core.Framework.OpDef.OpList, - Prelude.Functor f) => - Lens.Labels.HasLens "strippedOpList" f MetaGraphDef'MetaInfoDef - MetaGraphDef'MetaInfoDef - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _MetaGraphDef'MetaInfoDef'strippedOpList - (\ x__ y__ -> x__{_MetaGraphDef'MetaInfoDef'strippedOpList = y__})) - (Data.ProtoLens.maybeLens Data.Default.Class.def) - -instance (a ~ - Prelude.Maybe Proto.Tensorflow.Core.Framework.OpDef.OpList, - b ~ Prelude.Maybe Proto.Tensorflow.Core.Framework.OpDef.OpList, - Prelude.Functor f) => - Lens.Labels.HasLens "maybe'strippedOpList" f - MetaGraphDef'MetaInfoDef - MetaGraphDef'MetaInfoDef - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _MetaGraphDef'MetaInfoDef'strippedOpList - (\ x__ y__ -> x__{_MetaGraphDef'MetaInfoDef'strippedOpList = y__})) - Prelude.id - -instance (a ~ Proto.Google.Protobuf.Any.Any, - b ~ Proto.Google.Protobuf.Any.Any, Prelude.Functor f) => - Lens.Labels.HasLens "anyInfo" f MetaGraphDef'MetaInfoDef - MetaGraphDef'MetaInfoDef - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _MetaGraphDef'MetaInfoDef'anyInfo - (\ x__ y__ -> x__{_MetaGraphDef'MetaInfoDef'anyInfo = y__})) - (Data.ProtoLens.maybeLens Data.Default.Class.def) - -instance (a ~ Prelude.Maybe Proto.Google.Protobuf.Any.Any, - b ~ Prelude.Maybe Proto.Google.Protobuf.Any.Any, - Prelude.Functor f) => - Lens.Labels.HasLens "maybe'anyInfo" f MetaGraphDef'MetaInfoDef - MetaGraphDef'MetaInfoDef - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _MetaGraphDef'MetaInfoDef'anyInfo - (\ x__ y__ -> x__{_MetaGraphDef'MetaInfoDef'anyInfo = y__})) - Prelude.id - -instance (a ~ [Data.Text.Text], b ~ [Data.Text.Text], - Prelude.Functor f) => - Lens.Labels.HasLens "tags" f MetaGraphDef'MetaInfoDef - MetaGraphDef'MetaInfoDef - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _MetaGraphDef'MetaInfoDef'tags - (\ x__ y__ -> x__{_MetaGraphDef'MetaInfoDef'tags = y__})) - Prelude.id - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "tensorflowVersion" f MetaGraphDef'MetaInfoDef - MetaGraphDef'MetaInfoDef - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _MetaGraphDef'MetaInfoDef'tensorflowVersion - (\ x__ y__ -> - x__{_MetaGraphDef'MetaInfoDef'tensorflowVersion = y__})) - Prelude.id - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "tensorflowGitVersion" f - MetaGraphDef'MetaInfoDef - MetaGraphDef'MetaInfoDef - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _MetaGraphDef'MetaInfoDef'tensorflowGitVersion - (\ x__ y__ -> - x__{_MetaGraphDef'MetaInfoDef'tensorflowGitVersion = y__})) - Prelude.id - -instance (a ~ Prelude.Bool, b ~ Prelude.Bool, Prelude.Functor f) => - Lens.Labels.HasLens "strippedDefaultAttrs" f - MetaGraphDef'MetaInfoDef - MetaGraphDef'MetaInfoDef - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _MetaGraphDef'MetaInfoDef'strippedDefaultAttrs - (\ x__ y__ -> - x__{_MetaGraphDef'MetaInfoDef'strippedDefaultAttrs = y__})) - Prelude.id - -instance Data.Default.Class.Default MetaGraphDef'MetaInfoDef where - def - = MetaGraphDef'MetaInfoDef{_MetaGraphDef'MetaInfoDef'metaGraphVersion - = Data.ProtoLens.fieldDefault, - _MetaGraphDef'MetaInfoDef'strippedOpList = Prelude.Nothing, - _MetaGraphDef'MetaInfoDef'anyInfo = Prelude.Nothing, - _MetaGraphDef'MetaInfoDef'tags = [], - _MetaGraphDef'MetaInfoDef'tensorflowVersion = - Data.ProtoLens.fieldDefault, - _MetaGraphDef'MetaInfoDef'tensorflowGitVersion = - Data.ProtoLens.fieldDefault, - _MetaGraphDef'MetaInfoDef'strippedDefaultAttrs = - Data.ProtoLens.fieldDefault} - -instance Data.ProtoLens.Message MetaGraphDef'MetaInfoDef where - descriptor - = let metaGraphVersion__field_descriptor - = Data.ProtoLens.FieldDescriptor "meta_graph_version" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional - metaGraphVersion) - :: Data.ProtoLens.FieldDescriptor MetaGraphDef'MetaInfoDef - strippedOpList__field_descriptor - = Data.ProtoLens.FieldDescriptor "stripped_op_list" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor - Proto.Tensorflow.Core.Framework.OpDef.OpList) - (Data.ProtoLens.OptionalField maybe'strippedOpList) - :: Data.ProtoLens.FieldDescriptor MetaGraphDef'MetaInfoDef - anyInfo__field_descriptor - = Data.ProtoLens.FieldDescriptor "any_info" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor Proto.Google.Protobuf.Any.Any) - (Data.ProtoLens.OptionalField maybe'anyInfo) - :: Data.ProtoLens.FieldDescriptor MetaGraphDef'MetaInfoDef - tags__field_descriptor - = Data.ProtoLens.FieldDescriptor "tags" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked tags) - :: Data.ProtoLens.FieldDescriptor MetaGraphDef'MetaInfoDef - tensorflowVersion__field_descriptor - = Data.ProtoLens.FieldDescriptor "tensorflow_version" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional - tensorflowVersion) - :: Data.ProtoLens.FieldDescriptor MetaGraphDef'MetaInfoDef - tensorflowGitVersion__field_descriptor - = Data.ProtoLens.FieldDescriptor "tensorflow_git_version" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional - tensorflowGitVersion) - :: Data.ProtoLens.FieldDescriptor MetaGraphDef'MetaInfoDef - strippedDefaultAttrs__field_descriptor - = Data.ProtoLens.FieldDescriptor "stripped_default_attrs" - (Data.ProtoLens.BoolField :: - Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional - strippedDefaultAttrs) - :: Data.ProtoLens.FieldDescriptor MetaGraphDef'MetaInfoDef - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.MetaGraphDef.MetaInfoDef") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, metaGraphVersion__field_descriptor), - (Data.ProtoLens.Tag 2, strippedOpList__field_descriptor), - (Data.ProtoLens.Tag 3, anyInfo__field_descriptor), - (Data.ProtoLens.Tag 4, tags__field_descriptor), - (Data.ProtoLens.Tag 5, tensorflowVersion__field_descriptor), - (Data.ProtoLens.Tag 6, tensorflowGitVersion__field_descriptor), - (Data.ProtoLens.Tag 7, strippedDefaultAttrs__field_descriptor)]) - (Data.Map.fromList - [("meta_graph_version", metaGraphVersion__field_descriptor), - ("stripped_op_list", strippedOpList__field_descriptor), - ("any_info", anyInfo__field_descriptor), - ("tags", tags__field_descriptor), - ("tensorflow_version", tensorflowVersion__field_descriptor), - ("tensorflow_git_version", tensorflowGitVersion__field_descriptor), - ("stripped_default_attrs", - strippedDefaultAttrs__field_descriptor)]) - -data MetaGraphDef'SignatureDefEntry = MetaGraphDef'SignatureDefEntry{_MetaGraphDef'SignatureDefEntry'key - :: !Data.Text.Text, - _MetaGraphDef'SignatureDefEntry'value - :: - !(Prelude.Maybe SignatureDef)} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "key" f MetaGraphDef'SignatureDefEntry - MetaGraphDef'SignatureDefEntry - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _MetaGraphDef'SignatureDefEntry'key - (\ x__ y__ -> x__{_MetaGraphDef'SignatureDefEntry'key = y__})) - Prelude.id - -instance (a ~ SignatureDef, b ~ SignatureDef, Prelude.Functor f) => - Lens.Labels.HasLens "value" f MetaGraphDef'SignatureDefEntry - MetaGraphDef'SignatureDefEntry - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _MetaGraphDef'SignatureDefEntry'value - (\ x__ y__ -> x__{_MetaGraphDef'SignatureDefEntry'value = y__})) - (Data.ProtoLens.maybeLens Data.Default.Class.def) - -instance (a ~ Prelude.Maybe SignatureDef, - b ~ Prelude.Maybe SignatureDef, Prelude.Functor f) => - Lens.Labels.HasLens "maybe'value" f MetaGraphDef'SignatureDefEntry - MetaGraphDef'SignatureDefEntry - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _MetaGraphDef'SignatureDefEntry'value - (\ x__ y__ -> x__{_MetaGraphDef'SignatureDefEntry'value = y__})) - Prelude.id - -instance Data.Default.Class.Default MetaGraphDef'SignatureDefEntry - where - def - = MetaGraphDef'SignatureDefEntry{_MetaGraphDef'SignatureDefEntry'key - = Data.ProtoLens.fieldDefault, - _MetaGraphDef'SignatureDefEntry'value = Prelude.Nothing} - -instance Data.ProtoLens.Message MetaGraphDef'SignatureDefEntry - where - descriptor - = let key__field_descriptor - = Data.ProtoLens.FieldDescriptor "key" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional key) - :: Data.ProtoLens.FieldDescriptor MetaGraphDef'SignatureDefEntry - value__field_descriptor - = Data.ProtoLens.FieldDescriptor "value" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor SignatureDef) - (Data.ProtoLens.OptionalField maybe'value) - :: Data.ProtoLens.FieldDescriptor MetaGraphDef'SignatureDefEntry - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.MetaGraphDef.SignatureDefEntry") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, key__field_descriptor), - (Data.ProtoLens.Tag 2, value__field_descriptor)]) - (Data.Map.fromList - [("key", key__field_descriptor), - ("value", value__field_descriptor)]) - -data SignatureDef = SignatureDef{_SignatureDef'inputs :: - !(Data.Map.Map Data.Text.Text TensorInfo), - _SignatureDef'outputs :: !(Data.Map.Map Data.Text.Text TensorInfo), - _SignatureDef'methodName :: !Data.Text.Text} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Data.Map.Map Data.Text.Text TensorInfo, - b ~ Data.Map.Map Data.Text.Text TensorInfo, Prelude.Functor f) => - Lens.Labels.HasLens "inputs" f SignatureDef SignatureDef a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _SignatureDef'inputs - (\ x__ y__ -> x__{_SignatureDef'inputs = y__})) - Prelude.id - -instance (a ~ Data.Map.Map Data.Text.Text TensorInfo, - b ~ Data.Map.Map Data.Text.Text TensorInfo, Prelude.Functor f) => - Lens.Labels.HasLens "outputs" f SignatureDef SignatureDef a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _SignatureDef'outputs - (\ x__ y__ -> x__{_SignatureDef'outputs = y__})) - Prelude.id - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "methodName" f SignatureDef SignatureDef a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _SignatureDef'methodName - (\ x__ y__ -> x__{_SignatureDef'methodName = y__})) - Prelude.id - -instance Data.Default.Class.Default SignatureDef where - def - = SignatureDef{_SignatureDef'inputs = Data.Map.empty, - _SignatureDef'outputs = Data.Map.empty, - _SignatureDef'methodName = Data.ProtoLens.fieldDefault} - -instance Data.ProtoLens.Message SignatureDef where - descriptor - = let inputs__field_descriptor - = Data.ProtoLens.FieldDescriptor "inputs" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor SignatureDef'InputsEntry) - (Data.ProtoLens.MapField key value inputs) - :: Data.ProtoLens.FieldDescriptor SignatureDef - outputs__field_descriptor - = Data.ProtoLens.FieldDescriptor "outputs" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor SignatureDef'OutputsEntry) - (Data.ProtoLens.MapField key value outputs) - :: Data.ProtoLens.FieldDescriptor SignatureDef - methodName__field_descriptor - = Data.ProtoLens.FieldDescriptor "method_name" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional methodName) - :: Data.ProtoLens.FieldDescriptor SignatureDef - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.SignatureDef") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, inputs__field_descriptor), - (Data.ProtoLens.Tag 2, outputs__field_descriptor), - (Data.ProtoLens.Tag 3, methodName__field_descriptor)]) - (Data.Map.fromList - [("inputs", inputs__field_descriptor), - ("outputs", outputs__field_descriptor), - ("method_name", methodName__field_descriptor)]) - -data SignatureDef'InputsEntry = SignatureDef'InputsEntry{_SignatureDef'InputsEntry'key - :: !Data.Text.Text, - _SignatureDef'InputsEntry'value :: - !(Prelude.Maybe TensorInfo)} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "key" f SignatureDef'InputsEntry - SignatureDef'InputsEntry - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _SignatureDef'InputsEntry'key - (\ x__ y__ -> x__{_SignatureDef'InputsEntry'key = y__})) - Prelude.id - -instance (a ~ TensorInfo, b ~ TensorInfo, Prelude.Functor f) => - Lens.Labels.HasLens "value" f SignatureDef'InputsEntry - SignatureDef'InputsEntry - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _SignatureDef'InputsEntry'value - (\ x__ y__ -> x__{_SignatureDef'InputsEntry'value = y__})) - (Data.ProtoLens.maybeLens Data.Default.Class.def) - -instance (a ~ Prelude.Maybe TensorInfo, - b ~ Prelude.Maybe TensorInfo, Prelude.Functor f) => - Lens.Labels.HasLens "maybe'value" f SignatureDef'InputsEntry - SignatureDef'InputsEntry - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _SignatureDef'InputsEntry'value - (\ x__ y__ -> x__{_SignatureDef'InputsEntry'value = y__})) - Prelude.id - -instance Data.Default.Class.Default SignatureDef'InputsEntry where - def - = SignatureDef'InputsEntry{_SignatureDef'InputsEntry'key = - Data.ProtoLens.fieldDefault, - _SignatureDef'InputsEntry'value = Prelude.Nothing} - -instance Data.ProtoLens.Message SignatureDef'InputsEntry where - descriptor - = let key__field_descriptor - = Data.ProtoLens.FieldDescriptor "key" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional key) - :: Data.ProtoLens.FieldDescriptor SignatureDef'InputsEntry - value__field_descriptor - = Data.ProtoLens.FieldDescriptor "value" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor TensorInfo) - (Data.ProtoLens.OptionalField maybe'value) - :: Data.ProtoLens.FieldDescriptor SignatureDef'InputsEntry - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.SignatureDef.InputsEntry") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, key__field_descriptor), - (Data.ProtoLens.Tag 2, value__field_descriptor)]) - (Data.Map.fromList - [("key", key__field_descriptor), - ("value", value__field_descriptor)]) - -data SignatureDef'OutputsEntry = SignatureDef'OutputsEntry{_SignatureDef'OutputsEntry'key - :: !Data.Text.Text, - _SignatureDef'OutputsEntry'value :: - !(Prelude.Maybe TensorInfo)} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "key" f SignatureDef'OutputsEntry - SignatureDef'OutputsEntry - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _SignatureDef'OutputsEntry'key - (\ x__ y__ -> x__{_SignatureDef'OutputsEntry'key = y__})) - Prelude.id - -instance (a ~ TensorInfo, b ~ TensorInfo, Prelude.Functor f) => - Lens.Labels.HasLens "value" f SignatureDef'OutputsEntry - SignatureDef'OutputsEntry - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _SignatureDef'OutputsEntry'value - (\ x__ y__ -> x__{_SignatureDef'OutputsEntry'value = y__})) - (Data.ProtoLens.maybeLens Data.Default.Class.def) - -instance (a ~ Prelude.Maybe TensorInfo, - b ~ Prelude.Maybe TensorInfo, Prelude.Functor f) => - Lens.Labels.HasLens "maybe'value" f SignatureDef'OutputsEntry - SignatureDef'OutputsEntry - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _SignatureDef'OutputsEntry'value - (\ x__ y__ -> x__{_SignatureDef'OutputsEntry'value = y__})) - Prelude.id - -instance Data.Default.Class.Default SignatureDef'OutputsEntry where - def - = SignatureDef'OutputsEntry{_SignatureDef'OutputsEntry'key = - Data.ProtoLens.fieldDefault, - _SignatureDef'OutputsEntry'value = Prelude.Nothing} - -instance Data.ProtoLens.Message SignatureDef'OutputsEntry where - descriptor - = let key__field_descriptor - = Data.ProtoLens.FieldDescriptor "key" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional key) - :: Data.ProtoLens.FieldDescriptor SignatureDef'OutputsEntry - value__field_descriptor - = Data.ProtoLens.FieldDescriptor "value" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor TensorInfo) - (Data.ProtoLens.OptionalField maybe'value) - :: Data.ProtoLens.FieldDescriptor SignatureDef'OutputsEntry - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.SignatureDef.OutputsEntry") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, key__field_descriptor), - (Data.ProtoLens.Tag 2, value__field_descriptor)]) - (Data.Map.fromList - [("key", key__field_descriptor), - ("value", value__field_descriptor)]) - -data TensorInfo = TensorInfo{_TensorInfo'dtype :: - !Proto.Tensorflow.Core.Framework.Types.DataType, - _TensorInfo'tensorShape :: - !(Prelude.Maybe - Proto.Tensorflow.Core.Framework.TensorShape.TensorShapeProto), - _TensorInfo'encoding :: !(Prelude.Maybe TensorInfo'Encoding)} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -data TensorInfo'Encoding = TensorInfo'Name !Data.Text.Text - | TensorInfo'CooSparse' !TensorInfo'CooSparse - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Proto.Tensorflow.Core.Framework.Types.DataType, - b ~ Proto.Tensorflow.Core.Framework.Types.DataType, - Prelude.Functor f) => - Lens.Labels.HasLens "dtype" f TensorInfo TensorInfo a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _TensorInfo'dtype - (\ x__ y__ -> x__{_TensorInfo'dtype = y__})) - Prelude.id - -instance (a ~ - Proto.Tensorflow.Core.Framework.TensorShape.TensorShapeProto, - b ~ Proto.Tensorflow.Core.Framework.TensorShape.TensorShapeProto, - Prelude.Functor f) => - Lens.Labels.HasLens "tensorShape" f TensorInfo TensorInfo a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _TensorInfo'tensorShape - (\ x__ y__ -> x__{_TensorInfo'tensorShape = y__})) - (Data.ProtoLens.maybeLens Data.Default.Class.def) - -instance (a ~ - Prelude.Maybe - Proto.Tensorflow.Core.Framework.TensorShape.TensorShapeProto, - b ~ - Prelude.Maybe - Proto.Tensorflow.Core.Framework.TensorShape.TensorShapeProto, - Prelude.Functor f) => - Lens.Labels.HasLens "maybe'tensorShape" f TensorInfo TensorInfo a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _TensorInfo'tensorShape - (\ x__ y__ -> x__{_TensorInfo'tensorShape = y__})) - Prelude.id - -instance (a ~ Prelude.Maybe TensorInfo'Encoding, - b ~ Prelude.Maybe TensorInfo'Encoding, Prelude.Functor f) => - Lens.Labels.HasLens "maybe'encoding" f TensorInfo TensorInfo a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _TensorInfo'encoding - (\ x__ y__ -> x__{_TensorInfo'encoding = y__})) - Prelude.id - -instance (a ~ Prelude.Maybe Data.Text.Text, - b ~ Prelude.Maybe Data.Text.Text, Prelude.Functor f) => - Lens.Labels.HasLens "maybe'name" f TensorInfo TensorInfo a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _TensorInfo'encoding - (\ x__ y__ -> x__{_TensorInfo'encoding = y__})) - (Lens.Family2.Unchecked.lens - (\ x__ -> - case x__ of - Prelude.Just (TensorInfo'Name x__val) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap TensorInfo'Name y__)) - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "name" f TensorInfo TensorInfo a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _TensorInfo'encoding - (\ x__ y__ -> x__{_TensorInfo'encoding = y__})) - ((Prelude..) - (Lens.Family2.Unchecked.lens - (\ x__ -> - case x__ of - Prelude.Just (TensorInfo'Name x__val) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap TensorInfo'Name y__)) - (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)) - -instance (a ~ Prelude.Maybe TensorInfo'CooSparse, - b ~ Prelude.Maybe TensorInfo'CooSparse, Prelude.Functor f) => - Lens.Labels.HasLens "maybe'cooSparse" f TensorInfo TensorInfo a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _TensorInfo'encoding - (\ x__ y__ -> x__{_TensorInfo'encoding = y__})) - (Lens.Family2.Unchecked.lens - (\ x__ -> - case x__ of - Prelude.Just (TensorInfo'CooSparse' x__val) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap TensorInfo'CooSparse' y__)) - -instance (a ~ TensorInfo'CooSparse, b ~ TensorInfo'CooSparse, - Prelude.Functor f) => - Lens.Labels.HasLens "cooSparse" f TensorInfo TensorInfo a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _TensorInfo'encoding - (\ x__ y__ -> x__{_TensorInfo'encoding = y__})) - ((Prelude..) - (Lens.Family2.Unchecked.lens - (\ x__ -> - case x__ of - Prelude.Just (TensorInfo'CooSparse' x__val) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap TensorInfo'CooSparse' y__)) - (Data.ProtoLens.maybeLens Data.Default.Class.def)) - -instance Data.Default.Class.Default TensorInfo where - def - = TensorInfo{_TensorInfo'dtype = Data.Default.Class.def, - _TensorInfo'tensorShape = Prelude.Nothing, - _TensorInfo'encoding = Prelude.Nothing} - -instance Data.ProtoLens.Message TensorInfo where - descriptor - = let dtype__field_descriptor - = Data.ProtoLens.FieldDescriptor "dtype" - (Data.ProtoLens.EnumField :: - Data.ProtoLens.FieldTypeDescriptor - Proto.Tensorflow.Core.Framework.Types.DataType) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional dtype) - :: Data.ProtoLens.FieldDescriptor TensorInfo - tensorShape__field_descriptor - = Data.ProtoLens.FieldDescriptor "tensor_shape" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor - Proto.Tensorflow.Core.Framework.TensorShape.TensorShapeProto) - (Data.ProtoLens.OptionalField maybe'tensorShape) - :: Data.ProtoLens.FieldDescriptor TensorInfo - name__field_descriptor - = Data.ProtoLens.FieldDescriptor "name" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.OptionalField maybe'name) - :: Data.ProtoLens.FieldDescriptor TensorInfo - cooSparse__field_descriptor - = Data.ProtoLens.FieldDescriptor "coo_sparse" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor TensorInfo'CooSparse) - (Data.ProtoLens.OptionalField maybe'cooSparse) - :: Data.ProtoLens.FieldDescriptor TensorInfo - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.TensorInfo") - (Data.Map.fromList - [(Data.ProtoLens.Tag 2, dtype__field_descriptor), - (Data.ProtoLens.Tag 3, tensorShape__field_descriptor), - (Data.ProtoLens.Tag 1, name__field_descriptor), - (Data.ProtoLens.Tag 4, cooSparse__field_descriptor)]) - (Data.Map.fromList - [("dtype", dtype__field_descriptor), - ("tensor_shape", tensorShape__field_descriptor), - ("name", name__field_descriptor), - ("coo_sparse", cooSparse__field_descriptor)]) - -data TensorInfo'CooSparse = TensorInfo'CooSparse{_TensorInfo'CooSparse'valuesTensorName - :: !Data.Text.Text, - _TensorInfo'CooSparse'indicesTensorName :: - !Data.Text.Text, - _TensorInfo'CooSparse'denseShapeTensorName :: - !Data.Text.Text} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "valuesTensorName" f TensorInfo'CooSparse - TensorInfo'CooSparse - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _TensorInfo'CooSparse'valuesTensorName - (\ x__ y__ -> x__{_TensorInfo'CooSparse'valuesTensorName = y__})) - Prelude.id - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "indicesTensorName" f TensorInfo'CooSparse - TensorInfo'CooSparse - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _TensorInfo'CooSparse'indicesTensorName - (\ x__ y__ -> x__{_TensorInfo'CooSparse'indicesTensorName = y__})) - Prelude.id - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "denseShapeTensorName" f TensorInfo'CooSparse - TensorInfo'CooSparse - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _TensorInfo'CooSparse'denseShapeTensorName - (\ x__ y__ -> - x__{_TensorInfo'CooSparse'denseShapeTensorName = y__})) - Prelude.id - -instance Data.Default.Class.Default TensorInfo'CooSparse where - def - = TensorInfo'CooSparse{_TensorInfo'CooSparse'valuesTensorName = - Data.ProtoLens.fieldDefault, - _TensorInfo'CooSparse'indicesTensorName = - Data.ProtoLens.fieldDefault, - _TensorInfo'CooSparse'denseShapeTensorName = - Data.ProtoLens.fieldDefault} - -instance Data.ProtoLens.Message TensorInfo'CooSparse where - descriptor - = let valuesTensorName__field_descriptor - = Data.ProtoLens.FieldDescriptor "values_tensor_name" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional - valuesTensorName) - :: Data.ProtoLens.FieldDescriptor TensorInfo'CooSparse - indicesTensorName__field_descriptor - = Data.ProtoLens.FieldDescriptor "indices_tensor_name" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional - indicesTensorName) - :: Data.ProtoLens.FieldDescriptor TensorInfo'CooSparse - denseShapeTensorName__field_descriptor - = Data.ProtoLens.FieldDescriptor "dense_shape_tensor_name" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional - denseShapeTensorName) - :: Data.ProtoLens.FieldDescriptor TensorInfo'CooSparse - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.TensorInfo.CooSparse") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, valuesTensorName__field_descriptor), - (Data.ProtoLens.Tag 2, indicesTensorName__field_descriptor), - (Data.ProtoLens.Tag 3, denseShapeTensorName__field_descriptor)]) - (Data.Map.fromList - [("values_tensor_name", valuesTensorName__field_descriptor), - ("indices_tensor_name", indicesTensorName__field_descriptor), - ("dense_shape_tensor_name", - denseShapeTensorName__field_descriptor)]) - -anyInfo :: - forall f s t a b . (Lens.Labels.HasLens "anyInfo" f s t a b) => - Lens.Family2.LensLike f s t a b -anyInfo - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "anyInfo") - -anyList :: - forall f s t a b . (Lens.Labels.HasLens "anyList" f s t a b) => - Lens.Family2.LensLike f s t a b -anyList - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "anyList") - -assetFileDef :: - forall f s t a b . - (Lens.Labels.HasLens "assetFileDef" f s t a b) => - Lens.Family2.LensLike f s t a b -assetFileDef - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "assetFileDef") - -bytesList :: - forall f s t a b . (Lens.Labels.HasLens "bytesList" f s t a b) => - Lens.Family2.LensLike f s t a b -bytesList - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "bytesList") - -collectionDef :: - forall f s t a b . - (Lens.Labels.HasLens "collectionDef" f s t a b) => - Lens.Family2.LensLike f s t a b -collectionDef - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "collectionDef") - -cooSparse :: - forall f s t a b . (Lens.Labels.HasLens "cooSparse" f s t a b) => - Lens.Family2.LensLike f s t a b -cooSparse - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "cooSparse") - -denseShapeTensorName :: - forall f s t a b . - (Lens.Labels.HasLens "denseShapeTensorName" f s t a b) => - Lens.Family2.LensLike f s t a b -denseShapeTensorName - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: - (Lens.Labels.Proxy#) "denseShapeTensorName") - -dtype :: - forall f s t a b . (Lens.Labels.HasLens "dtype" f s t a b) => - Lens.Family2.LensLike f s t a b -dtype - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "dtype") - -filename :: - forall f s t a b . (Lens.Labels.HasLens "filename" f s t a b) => - Lens.Family2.LensLike f s t a b -filename - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "filename") - -floatList :: - forall f s t a b . (Lens.Labels.HasLens "floatList" f s t a b) => - Lens.Family2.LensLike f s t a b -floatList - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "floatList") - -graphDef :: - forall f s t a b . (Lens.Labels.HasLens "graphDef" f s t a b) => - Lens.Family2.LensLike f s t a b -graphDef - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "graphDef") - -indicesTensorName :: - forall f s t a b . - (Lens.Labels.HasLens "indicesTensorName" f s t a b) => - Lens.Family2.LensLike f s t a b -indicesTensorName - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "indicesTensorName") - -inputs :: - forall f s t a b . (Lens.Labels.HasLens "inputs" f s t a b) => - Lens.Family2.LensLike f s t a b -inputs - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "inputs") - -int64List :: - forall f s t a b . (Lens.Labels.HasLens "int64List" f s t a b) => - Lens.Family2.LensLike f s t a b -int64List - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "int64List") - -key :: - forall f s t a b . (Lens.Labels.HasLens "key" f s t a b) => - Lens.Family2.LensLike f s t a b -key - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "key") - -maybe'anyInfo :: - forall f s t a b . - (Lens.Labels.HasLens "maybe'anyInfo" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'anyInfo - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'anyInfo") - -maybe'anyList :: - forall f s t a b . - (Lens.Labels.HasLens "maybe'anyList" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'anyList - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'anyList") - -maybe'bytesList :: - forall f s t a b . - (Lens.Labels.HasLens "maybe'bytesList" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'bytesList - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'bytesList") - -maybe'cooSparse :: - forall f s t a b . - (Lens.Labels.HasLens "maybe'cooSparse" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'cooSparse - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'cooSparse") - -maybe'encoding :: - forall f s t a b . - (Lens.Labels.HasLens "maybe'encoding" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'encoding - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'encoding") - -maybe'floatList :: - forall f s t a b . - (Lens.Labels.HasLens "maybe'floatList" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'floatList - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'floatList") - -maybe'graphDef :: - forall f s t a b . - (Lens.Labels.HasLens "maybe'graphDef" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'graphDef - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'graphDef") - -maybe'int64List :: - forall f s t a b . - (Lens.Labels.HasLens "maybe'int64List" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'int64List - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'int64List") - -maybe'kind :: - forall f s t a b . (Lens.Labels.HasLens "maybe'kind" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'kind - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'kind") - -maybe'metaInfoDef :: - forall f s t a b . - (Lens.Labels.HasLens "maybe'metaInfoDef" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'metaInfoDef - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'metaInfoDef") - -maybe'name :: - forall f s t a b . (Lens.Labels.HasLens "maybe'name" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'name - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'name") - -maybe'nodeList :: - forall f s t a b . - (Lens.Labels.HasLens "maybe'nodeList" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'nodeList - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'nodeList") - -maybe'saverDef :: - forall f s t a b . - (Lens.Labels.HasLens "maybe'saverDef" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'saverDef - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'saverDef") - -maybe'strippedOpList :: - forall f s t a b . - (Lens.Labels.HasLens "maybe'strippedOpList" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'strippedOpList - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: - (Lens.Labels.Proxy#) "maybe'strippedOpList") - -maybe'tensorInfo :: - forall f s t a b . - (Lens.Labels.HasLens "maybe'tensorInfo" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'tensorInfo - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'tensorInfo") - -maybe'tensorShape :: - forall f s t a b . - (Lens.Labels.HasLens "maybe'tensorShape" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'tensorShape - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'tensorShape") - -maybe'value :: - forall f s t a b . (Lens.Labels.HasLens "maybe'value" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'value - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'value") - -metaGraphVersion :: - forall f s t a b . - (Lens.Labels.HasLens "metaGraphVersion" f s t a b) => - Lens.Family2.LensLike f s t a b -metaGraphVersion - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "metaGraphVersion") - -metaInfoDef :: - forall f s t a b . (Lens.Labels.HasLens "metaInfoDef" f s t a b) => - Lens.Family2.LensLike f s t a b -metaInfoDef - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "metaInfoDef") - -methodName :: - forall f s t a b . (Lens.Labels.HasLens "methodName" f s t a b) => - Lens.Family2.LensLike f s t a b -methodName - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "methodName") - -name :: - forall f s t a b . (Lens.Labels.HasLens "name" f s t a b) => - Lens.Family2.LensLike f s t a b -name - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "name") - -nodeList :: - forall f s t a b . (Lens.Labels.HasLens "nodeList" f s t a b) => - Lens.Family2.LensLike f s t a b -nodeList - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "nodeList") - -outputs :: - forall f s t a b . (Lens.Labels.HasLens "outputs" f s t a b) => - Lens.Family2.LensLike f s t a b -outputs - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "outputs") - -saverDef :: - forall f s t a b . (Lens.Labels.HasLens "saverDef" f s t a b) => - Lens.Family2.LensLike f s t a b -saverDef - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "saverDef") - -signatureDef :: - forall f s t a b . - (Lens.Labels.HasLens "signatureDef" f s t a b) => - Lens.Family2.LensLike f s t a b -signatureDef - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "signatureDef") - -strippedDefaultAttrs :: - forall f s t a b . - (Lens.Labels.HasLens "strippedDefaultAttrs" f s t a b) => - Lens.Family2.LensLike f s t a b -strippedDefaultAttrs - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: - (Lens.Labels.Proxy#) "strippedDefaultAttrs") - -strippedOpList :: - forall f s t a b . - (Lens.Labels.HasLens "strippedOpList" f s t a b) => - Lens.Family2.LensLike f s t a b -strippedOpList - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "strippedOpList") - -tags :: - forall f s t a b . (Lens.Labels.HasLens "tags" f s t a b) => - Lens.Family2.LensLike f s t a b -tags - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "tags") - -tensorInfo :: - forall f s t a b . (Lens.Labels.HasLens "tensorInfo" f s t a b) => - Lens.Family2.LensLike f s t a b -tensorInfo - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "tensorInfo") - -tensorShape :: - forall f s t a b . (Lens.Labels.HasLens "tensorShape" f s t a b) => - Lens.Family2.LensLike f s t a b -tensorShape - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "tensorShape") - -tensorflowGitVersion :: - forall f s t a b . - (Lens.Labels.HasLens "tensorflowGitVersion" f s t a b) => - Lens.Family2.LensLike f s t a b -tensorflowGitVersion - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: - (Lens.Labels.Proxy#) "tensorflowGitVersion") - -tensorflowVersion :: - forall f s t a b . - (Lens.Labels.HasLens "tensorflowVersion" f s t a b) => - Lens.Family2.LensLike f s t a b -tensorflowVersion - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "tensorflowVersion") - -value :: - forall f s t a b . (Lens.Labels.HasLens "value" f s t a b) => - Lens.Family2.LensLike f s t a b -value - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "value") - -valuesTensorName :: - forall f s t a b . - (Lens.Labels.HasLens "valuesTensorName" f s t a b) => - Lens.Family2.LensLike f s t a b -valuesTensorName - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "valuesTensorName") diff --git a/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Protobuf/NamedTensor.hs b/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Protobuf/NamedTensor.hs deleted file mode 100644 --- a/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Protobuf/NamedTensor.hs +++ /dev/null @@ -1,125 +0,0 @@ -{- This file was auto-generated from tensorflow/core/protobuf/named_tensor.proto by the proto-lens-protoc program. -} -{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies, - UndecidableInstances, MultiParamTypeClasses, FlexibleContexts, - FlexibleInstances, PatternSynonyms, MagicHash, NoImplicitPrelude - #-} -{-# OPTIONS_GHC -fno-warn-unused-imports#-} -module Proto.Tensorflow.Core.Protobuf.NamedTensor where -import qualified Data.ProtoLens.Reexport.Prelude as Prelude -import qualified Data.ProtoLens.Reexport.Data.Int as Data.Int -import qualified Data.ProtoLens.Reexport.Data.Word as Data.Word -import qualified Data.ProtoLens.Reexport.Data.ProtoLens - as Data.ProtoLens -import qualified - Data.ProtoLens.Reexport.Data.ProtoLens.Message.Enum - as Data.ProtoLens.Message.Enum -import qualified Data.ProtoLens.Reexport.Lens.Family2 - as Lens.Family2 -import qualified Data.ProtoLens.Reexport.Lens.Family2.Unchecked - as Lens.Family2.Unchecked -import qualified Data.ProtoLens.Reexport.Data.Default.Class - as Data.Default.Class -import qualified Data.ProtoLens.Reexport.Data.Text as Data.Text -import qualified Data.ProtoLens.Reexport.Data.Map as Data.Map -import qualified Data.ProtoLens.Reexport.Data.ByteString - as Data.ByteString -import qualified Data.ProtoLens.Reexport.Lens.Labels as Lens.Labels -import qualified Proto.Tensorflow.Core.Framework.Tensor - -data NamedTensorProto = NamedTensorProto{_NamedTensorProto'name :: - !Data.Text.Text, - _NamedTensorProto'tensor :: - !(Prelude.Maybe - Proto.Tensorflow.Core.Framework.Tensor.TensorProto)} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "name" f NamedTensorProto NamedTensorProto a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _NamedTensorProto'name - (\ x__ y__ -> x__{_NamedTensorProto'name = y__})) - Prelude.id - -instance (a ~ Proto.Tensorflow.Core.Framework.Tensor.TensorProto, - b ~ Proto.Tensorflow.Core.Framework.Tensor.TensorProto, - Prelude.Functor f) => - Lens.Labels.HasLens "tensor" f NamedTensorProto NamedTensorProto a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _NamedTensorProto'tensor - (\ x__ y__ -> x__{_NamedTensorProto'tensor = y__})) - (Data.ProtoLens.maybeLens Data.Default.Class.def) - -instance (a ~ - Prelude.Maybe Proto.Tensorflow.Core.Framework.Tensor.TensorProto, - b ~ - Prelude.Maybe Proto.Tensorflow.Core.Framework.Tensor.TensorProto, - Prelude.Functor f) => - Lens.Labels.HasLens "maybe'tensor" f NamedTensorProto - NamedTensorProto - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _NamedTensorProto'tensor - (\ x__ y__ -> x__{_NamedTensorProto'tensor = y__})) - Prelude.id - -instance Data.Default.Class.Default NamedTensorProto where - def - = NamedTensorProto{_NamedTensorProto'name = - Data.ProtoLens.fieldDefault, - _NamedTensorProto'tensor = Prelude.Nothing} - -instance Data.ProtoLens.Message NamedTensorProto where - descriptor - = let name__field_descriptor - = Data.ProtoLens.FieldDescriptor "name" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional name) - :: Data.ProtoLens.FieldDescriptor NamedTensorProto - tensor__field_descriptor - = Data.ProtoLens.FieldDescriptor "tensor" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor - Proto.Tensorflow.Core.Framework.Tensor.TensorProto) - (Data.ProtoLens.OptionalField maybe'tensor) - :: Data.ProtoLens.FieldDescriptor NamedTensorProto - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.NamedTensorProto") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, name__field_descriptor), - (Data.ProtoLens.Tag 2, tensor__field_descriptor)]) - (Data.Map.fromList - [("name", name__field_descriptor), - ("tensor", tensor__field_descriptor)]) - -maybe'tensor :: - forall f s t a b . - (Lens.Labels.HasLens "maybe'tensor" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'tensor - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'tensor") - -name :: - forall f s t a b . (Lens.Labels.HasLens "name" f s t a b) => - Lens.Family2.LensLike f s t a b -name - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "name") - -tensor :: - forall f s t a b . (Lens.Labels.HasLens "tensor" f s t a b) => - Lens.Family2.LensLike f s t a b -tensor - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "tensor") diff --git a/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Protobuf/QueueRunner.hs b/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Protobuf/QueueRunner.hs deleted file mode 100644 --- a/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Protobuf/QueueRunner.hs +++ /dev/null @@ -1,198 +0,0 @@ -{- This file was auto-generated from tensorflow/core/protobuf/queue_runner.proto by the proto-lens-protoc program. -} -{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies, - UndecidableInstances, MultiParamTypeClasses, FlexibleContexts, - FlexibleInstances, PatternSynonyms, MagicHash, NoImplicitPrelude - #-} -{-# OPTIONS_GHC -fno-warn-unused-imports#-} -module Proto.Tensorflow.Core.Protobuf.QueueRunner where -import qualified Data.ProtoLens.Reexport.Prelude as Prelude -import qualified Data.ProtoLens.Reexport.Data.Int as Data.Int -import qualified Data.ProtoLens.Reexport.Data.Word as Data.Word -import qualified Data.ProtoLens.Reexport.Data.ProtoLens - as Data.ProtoLens -import qualified - Data.ProtoLens.Reexport.Data.ProtoLens.Message.Enum - as Data.ProtoLens.Message.Enum -import qualified Data.ProtoLens.Reexport.Lens.Family2 - as Lens.Family2 -import qualified Data.ProtoLens.Reexport.Lens.Family2.Unchecked - as Lens.Family2.Unchecked -import qualified Data.ProtoLens.Reexport.Data.Default.Class - as Data.Default.Class -import qualified Data.ProtoLens.Reexport.Data.Text as Data.Text -import qualified Data.ProtoLens.Reexport.Data.Map as Data.Map -import qualified Data.ProtoLens.Reexport.Data.ByteString - as Data.ByteString -import qualified Data.ProtoLens.Reexport.Lens.Labels as Lens.Labels -import qualified Proto.Tensorflow.Core.Lib.Core.ErrorCodes - -data QueueRunnerDef = QueueRunnerDef{_QueueRunnerDef'queueName :: - !Data.Text.Text, - _QueueRunnerDef'enqueueOpName :: ![Data.Text.Text], - _QueueRunnerDef'closeOpName :: !Data.Text.Text, - _QueueRunnerDef'cancelOpName :: !Data.Text.Text, - _QueueRunnerDef'queueClosedExceptionTypes :: - ![Proto.Tensorflow.Core.Lib.Core.ErrorCodes.Code]} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "queueName" f QueueRunnerDef QueueRunnerDef a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _QueueRunnerDef'queueName - (\ x__ y__ -> x__{_QueueRunnerDef'queueName = y__})) - Prelude.id - -instance (a ~ [Data.Text.Text], b ~ [Data.Text.Text], - Prelude.Functor f) => - Lens.Labels.HasLens "enqueueOpName" f QueueRunnerDef QueueRunnerDef - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _QueueRunnerDef'enqueueOpName - (\ x__ y__ -> x__{_QueueRunnerDef'enqueueOpName = y__})) - Prelude.id - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "closeOpName" f QueueRunnerDef QueueRunnerDef a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _QueueRunnerDef'closeOpName - (\ x__ y__ -> x__{_QueueRunnerDef'closeOpName = y__})) - Prelude.id - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "cancelOpName" f QueueRunnerDef QueueRunnerDef - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _QueueRunnerDef'cancelOpName - (\ x__ y__ -> x__{_QueueRunnerDef'cancelOpName = y__})) - Prelude.id - -instance (a ~ [Proto.Tensorflow.Core.Lib.Core.ErrorCodes.Code], - b ~ [Proto.Tensorflow.Core.Lib.Core.ErrorCodes.Code], - Prelude.Functor f) => - Lens.Labels.HasLens "queueClosedExceptionTypes" f QueueRunnerDef - QueueRunnerDef - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _QueueRunnerDef'queueClosedExceptionTypes - (\ x__ y__ -> - x__{_QueueRunnerDef'queueClosedExceptionTypes = y__})) - Prelude.id - -instance Data.Default.Class.Default QueueRunnerDef where - def - = QueueRunnerDef{_QueueRunnerDef'queueName = - Data.ProtoLens.fieldDefault, - _QueueRunnerDef'enqueueOpName = [], - _QueueRunnerDef'closeOpName = Data.ProtoLens.fieldDefault, - _QueueRunnerDef'cancelOpName = Data.ProtoLens.fieldDefault, - _QueueRunnerDef'queueClosedExceptionTypes = []} - -instance Data.ProtoLens.Message QueueRunnerDef where - descriptor - = let queueName__field_descriptor - = Data.ProtoLens.FieldDescriptor "queue_name" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional queueName) - :: Data.ProtoLens.FieldDescriptor QueueRunnerDef - enqueueOpName__field_descriptor - = Data.ProtoLens.FieldDescriptor "enqueue_op_name" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked - enqueueOpName) - :: Data.ProtoLens.FieldDescriptor QueueRunnerDef - closeOpName__field_descriptor - = Data.ProtoLens.FieldDescriptor "close_op_name" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional closeOpName) - :: Data.ProtoLens.FieldDescriptor QueueRunnerDef - cancelOpName__field_descriptor - = Data.ProtoLens.FieldDescriptor "cancel_op_name" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional cancelOpName) - :: Data.ProtoLens.FieldDescriptor QueueRunnerDef - queueClosedExceptionTypes__field_descriptor - = Data.ProtoLens.FieldDescriptor "queue_closed_exception_types" - (Data.ProtoLens.EnumField :: - Data.ProtoLens.FieldTypeDescriptor - Proto.Tensorflow.Core.Lib.Core.ErrorCodes.Code) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Packed - queueClosedExceptionTypes) - :: Data.ProtoLens.FieldDescriptor QueueRunnerDef - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.QueueRunnerDef") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, queueName__field_descriptor), - (Data.ProtoLens.Tag 2, enqueueOpName__field_descriptor), - (Data.ProtoLens.Tag 3, closeOpName__field_descriptor), - (Data.ProtoLens.Tag 4, cancelOpName__field_descriptor), - (Data.ProtoLens.Tag 5, - queueClosedExceptionTypes__field_descriptor)]) - (Data.Map.fromList - [("queue_name", queueName__field_descriptor), - ("enqueue_op_name", enqueueOpName__field_descriptor), - ("close_op_name", closeOpName__field_descriptor), - ("cancel_op_name", cancelOpName__field_descriptor), - ("queue_closed_exception_types", - queueClosedExceptionTypes__field_descriptor)]) - -cancelOpName :: - forall f s t a b . - (Lens.Labels.HasLens "cancelOpName" f s t a b) => - Lens.Family2.LensLike f s t a b -cancelOpName - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "cancelOpName") - -closeOpName :: - forall f s t a b . (Lens.Labels.HasLens "closeOpName" f s t a b) => - Lens.Family2.LensLike f s t a b -closeOpName - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "closeOpName") - -enqueueOpName :: - forall f s t a b . - (Lens.Labels.HasLens "enqueueOpName" f s t a b) => - Lens.Family2.LensLike f s t a b -enqueueOpName - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "enqueueOpName") - -queueClosedExceptionTypes :: - forall f s t a b . - (Lens.Labels.HasLens "queueClosedExceptionTypes" f s t a b) => - Lens.Family2.LensLike f s t a b -queueClosedExceptionTypes - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: - (Lens.Labels.Proxy#) "queueClosedExceptionTypes") - -queueName :: - forall f s t a b . (Lens.Labels.HasLens "queueName" f s t a b) => - Lens.Family2.LensLike f s t a b -queueName - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "queueName") diff --git a/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Protobuf/RewriterConfig.hs b/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Protobuf/RewriterConfig.hs deleted file mode 100644 --- a/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Protobuf/RewriterConfig.hs +++ /dev/null @@ -1,1236 +0,0 @@ -{- This file was auto-generated from tensorflow/core/protobuf/rewriter_config.proto by the proto-lens-protoc program. -} -{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies, - UndecidableInstances, MultiParamTypeClasses, FlexibleContexts, - FlexibleInstances, PatternSynonyms, MagicHash, NoImplicitPrelude - #-} -{-# OPTIONS_GHC -fno-warn-unused-imports#-} -module Proto.Tensorflow.Core.Protobuf.RewriterConfig where -import qualified Data.ProtoLens.Reexport.Prelude as Prelude -import qualified Data.ProtoLens.Reexport.Data.Int as Data.Int -import qualified Data.ProtoLens.Reexport.Data.Word as Data.Word -import qualified Data.ProtoLens.Reexport.Data.ProtoLens - as Data.ProtoLens -import qualified - Data.ProtoLens.Reexport.Data.ProtoLens.Message.Enum - as Data.ProtoLens.Message.Enum -import qualified Data.ProtoLens.Reexport.Lens.Family2 - as Lens.Family2 -import qualified Data.ProtoLens.Reexport.Lens.Family2.Unchecked - as Lens.Family2.Unchecked -import qualified Data.ProtoLens.Reexport.Data.Default.Class - as Data.Default.Class -import qualified Data.ProtoLens.Reexport.Data.Text as Data.Text -import qualified Data.ProtoLens.Reexport.Data.Map as Data.Map -import qualified Data.ProtoLens.Reexport.Data.ByteString - as Data.ByteString -import qualified Data.ProtoLens.Reexport.Lens.Labels as Lens.Labels -import qualified Proto.Tensorflow.Core.Framework.AttrValue - -data AutoParallelOptions = AutoParallelOptions{_AutoParallelOptions'enable - :: !Prelude.Bool, - _AutoParallelOptions'numReplicas :: !Data.Int.Int32} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Prelude.Bool, b ~ Prelude.Bool, Prelude.Functor f) => - Lens.Labels.HasLens "enable" f AutoParallelOptions - AutoParallelOptions - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _AutoParallelOptions'enable - (\ x__ y__ -> x__{_AutoParallelOptions'enable = y__})) - Prelude.id - -instance (a ~ Data.Int.Int32, b ~ Data.Int.Int32, - Prelude.Functor f) => - Lens.Labels.HasLens "numReplicas" f AutoParallelOptions - AutoParallelOptions - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _AutoParallelOptions'numReplicas - (\ x__ y__ -> x__{_AutoParallelOptions'numReplicas = y__})) - Prelude.id - -instance Data.Default.Class.Default AutoParallelOptions where - def - = AutoParallelOptions{_AutoParallelOptions'enable = - Data.ProtoLens.fieldDefault, - _AutoParallelOptions'numReplicas = Data.ProtoLens.fieldDefault} - -instance Data.ProtoLens.Message AutoParallelOptions where - descriptor - = let enable__field_descriptor - = Data.ProtoLens.FieldDescriptor "enable" - (Data.ProtoLens.BoolField :: - Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional enable) - :: Data.ProtoLens.FieldDescriptor AutoParallelOptions - numReplicas__field_descriptor - = Data.ProtoLens.FieldDescriptor "num_replicas" - (Data.ProtoLens.Int32Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional numReplicas) - :: Data.ProtoLens.FieldDescriptor AutoParallelOptions - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.AutoParallelOptions") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, enable__field_descriptor), - (Data.ProtoLens.Tag 2, numReplicas__field_descriptor)]) - (Data.Map.fromList - [("enable", enable__field_descriptor), - ("num_replicas", numReplicas__field_descriptor)]) - -data RewriterConfig = RewriterConfig{_RewriterConfig'layoutOptimizer - :: !RewriterConfig'Toggle, - _RewriterConfig'constantFolding :: !RewriterConfig'Toggle, - _RewriterConfig'shapeOptimization :: !RewriterConfig'Toggle, - _RewriterConfig'remapping :: !RewriterConfig'Toggle, - _RewriterConfig'arithmeticOptimization :: - !RewriterConfig'Toggle, - _RewriterConfig'dependencyOptimization :: - !RewriterConfig'Toggle, - _RewriterConfig'loopOptimization :: !RewriterConfig'Toggle, - _RewriterConfig'functionOptimization :: !RewriterConfig'Toggle, - _RewriterConfig'debugStripper :: !RewriterConfig'Toggle, - _RewriterConfig'disableModelPruning :: !Prelude.Bool, - _RewriterConfig'scopedAllocatorOptimization :: - !RewriterConfig'Toggle, - _RewriterConfig'metaOptimizerIterations :: - !RewriterConfig'NumIterationsType, - _RewriterConfig'memoryOptimization :: - !RewriterConfig'MemOptType, - _RewriterConfig'memoryOptimizerTargetNodeNameScope :: - !Data.Text.Text, - _RewriterConfig'autoParallel :: - !(Prelude.Maybe AutoParallelOptions), - _RewriterConfig'scopedAllocatorOpts :: - !(Prelude.Maybe ScopedAllocatorOptions), - _RewriterConfig'optimizers :: ![Data.Text.Text], - _RewriterConfig'customOptimizers :: - ![RewriterConfig'CustomGraphOptimizer]} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ RewriterConfig'Toggle, b ~ RewriterConfig'Toggle, - Prelude.Functor f) => - Lens.Labels.HasLens "layoutOptimizer" f RewriterConfig - RewriterConfig - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _RewriterConfig'layoutOptimizer - (\ x__ y__ -> x__{_RewriterConfig'layoutOptimizer = y__})) - Prelude.id - -instance (a ~ RewriterConfig'Toggle, b ~ RewriterConfig'Toggle, - Prelude.Functor f) => - Lens.Labels.HasLens "constantFolding" f RewriterConfig - RewriterConfig - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _RewriterConfig'constantFolding - (\ x__ y__ -> x__{_RewriterConfig'constantFolding = y__})) - Prelude.id - -instance (a ~ RewriterConfig'Toggle, b ~ RewriterConfig'Toggle, - Prelude.Functor f) => - Lens.Labels.HasLens "shapeOptimization" f RewriterConfig - RewriterConfig - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _RewriterConfig'shapeOptimization - (\ x__ y__ -> x__{_RewriterConfig'shapeOptimization = y__})) - Prelude.id - -instance (a ~ RewriterConfig'Toggle, b ~ RewriterConfig'Toggle, - Prelude.Functor f) => - Lens.Labels.HasLens "remapping" f RewriterConfig RewriterConfig a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _RewriterConfig'remapping - (\ x__ y__ -> x__{_RewriterConfig'remapping = y__})) - Prelude.id - -instance (a ~ RewriterConfig'Toggle, b ~ RewriterConfig'Toggle, - Prelude.Functor f) => - Lens.Labels.HasLens "arithmeticOptimization" f RewriterConfig - RewriterConfig - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _RewriterConfig'arithmeticOptimization - (\ x__ y__ -> x__{_RewriterConfig'arithmeticOptimization = y__})) - Prelude.id - -instance (a ~ RewriterConfig'Toggle, b ~ RewriterConfig'Toggle, - Prelude.Functor f) => - Lens.Labels.HasLens "dependencyOptimization" f RewriterConfig - RewriterConfig - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _RewriterConfig'dependencyOptimization - (\ x__ y__ -> x__{_RewriterConfig'dependencyOptimization = y__})) - Prelude.id - -instance (a ~ RewriterConfig'Toggle, b ~ RewriterConfig'Toggle, - Prelude.Functor f) => - Lens.Labels.HasLens "loopOptimization" f RewriterConfig - RewriterConfig - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _RewriterConfig'loopOptimization - (\ x__ y__ -> x__{_RewriterConfig'loopOptimization = y__})) - Prelude.id - -instance (a ~ RewriterConfig'Toggle, b ~ RewriterConfig'Toggle, - Prelude.Functor f) => - Lens.Labels.HasLens "functionOptimization" f RewriterConfig - RewriterConfig - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _RewriterConfig'functionOptimization - (\ x__ y__ -> x__{_RewriterConfig'functionOptimization = y__})) - Prelude.id - -instance (a ~ RewriterConfig'Toggle, b ~ RewriterConfig'Toggle, - Prelude.Functor f) => - Lens.Labels.HasLens "debugStripper" f RewriterConfig RewriterConfig - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _RewriterConfig'debugStripper - (\ x__ y__ -> x__{_RewriterConfig'debugStripper = y__})) - Prelude.id - -instance (a ~ Prelude.Bool, b ~ Prelude.Bool, Prelude.Functor f) => - Lens.Labels.HasLens "disableModelPruning" f RewriterConfig - RewriterConfig - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _RewriterConfig'disableModelPruning - (\ x__ y__ -> x__{_RewriterConfig'disableModelPruning = y__})) - Prelude.id - -instance (a ~ RewriterConfig'Toggle, b ~ RewriterConfig'Toggle, - Prelude.Functor f) => - Lens.Labels.HasLens "scopedAllocatorOptimization" f RewriterConfig - RewriterConfig - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _RewriterConfig'scopedAllocatorOptimization - (\ x__ y__ -> - x__{_RewriterConfig'scopedAllocatorOptimization = y__})) - Prelude.id - -instance (a ~ RewriterConfig'NumIterationsType, - b ~ RewriterConfig'NumIterationsType, Prelude.Functor f) => - Lens.Labels.HasLens "metaOptimizerIterations" f RewriterConfig - RewriterConfig - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _RewriterConfig'metaOptimizerIterations - (\ x__ y__ -> x__{_RewriterConfig'metaOptimizerIterations = y__})) - Prelude.id - -instance (a ~ RewriterConfig'MemOptType, - b ~ RewriterConfig'MemOptType, Prelude.Functor f) => - Lens.Labels.HasLens "memoryOptimization" f RewriterConfig - RewriterConfig - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _RewriterConfig'memoryOptimization - (\ x__ y__ -> x__{_RewriterConfig'memoryOptimization = y__})) - Prelude.id - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "memoryOptimizerTargetNodeNameScope" f - RewriterConfig - RewriterConfig - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _RewriterConfig'memoryOptimizerTargetNodeNameScope - (\ x__ y__ -> - x__{_RewriterConfig'memoryOptimizerTargetNodeNameScope = y__})) - Prelude.id - -instance (a ~ AutoParallelOptions, b ~ AutoParallelOptions, - Prelude.Functor f) => - Lens.Labels.HasLens "autoParallel" f RewriterConfig RewriterConfig - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _RewriterConfig'autoParallel - (\ x__ y__ -> x__{_RewriterConfig'autoParallel = y__})) - (Data.ProtoLens.maybeLens Data.Default.Class.def) - -instance (a ~ Prelude.Maybe AutoParallelOptions, - b ~ Prelude.Maybe AutoParallelOptions, Prelude.Functor f) => - Lens.Labels.HasLens "maybe'autoParallel" f RewriterConfig - RewriterConfig - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _RewriterConfig'autoParallel - (\ x__ y__ -> x__{_RewriterConfig'autoParallel = y__})) - Prelude.id - -instance (a ~ ScopedAllocatorOptions, b ~ ScopedAllocatorOptions, - Prelude.Functor f) => - Lens.Labels.HasLens "scopedAllocatorOpts" f RewriterConfig - RewriterConfig - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _RewriterConfig'scopedAllocatorOpts - (\ x__ y__ -> x__{_RewriterConfig'scopedAllocatorOpts = y__})) - (Data.ProtoLens.maybeLens Data.Default.Class.def) - -instance (a ~ Prelude.Maybe ScopedAllocatorOptions, - b ~ Prelude.Maybe ScopedAllocatorOptions, Prelude.Functor f) => - Lens.Labels.HasLens "maybe'scopedAllocatorOpts" f RewriterConfig - RewriterConfig - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _RewriterConfig'scopedAllocatorOpts - (\ x__ y__ -> x__{_RewriterConfig'scopedAllocatorOpts = y__})) - Prelude.id - -instance (a ~ [Data.Text.Text], b ~ [Data.Text.Text], - Prelude.Functor f) => - Lens.Labels.HasLens "optimizers" f RewriterConfig RewriterConfig a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _RewriterConfig'optimizers - (\ x__ y__ -> x__{_RewriterConfig'optimizers = y__})) - Prelude.id - -instance (a ~ [RewriterConfig'CustomGraphOptimizer], - b ~ [RewriterConfig'CustomGraphOptimizer], Prelude.Functor f) => - Lens.Labels.HasLens "customOptimizers" f RewriterConfig - RewriterConfig - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _RewriterConfig'customOptimizers - (\ x__ y__ -> x__{_RewriterConfig'customOptimizers = y__})) - Prelude.id - -instance Data.Default.Class.Default RewriterConfig where - def - = RewriterConfig{_RewriterConfig'layoutOptimizer = - Data.Default.Class.def, - _RewriterConfig'constantFolding = Data.Default.Class.def, - _RewriterConfig'shapeOptimization = Data.Default.Class.def, - _RewriterConfig'remapping = Data.Default.Class.def, - _RewriterConfig'arithmeticOptimization = Data.Default.Class.def, - _RewriterConfig'dependencyOptimization = Data.Default.Class.def, - _RewriterConfig'loopOptimization = Data.Default.Class.def, - _RewriterConfig'functionOptimization = Data.Default.Class.def, - _RewriterConfig'debugStripper = Data.Default.Class.def, - _RewriterConfig'disableModelPruning = Data.ProtoLens.fieldDefault, - _RewriterConfig'scopedAllocatorOptimization = - Data.Default.Class.def, - _RewriterConfig'metaOptimizerIterations = Data.Default.Class.def, - _RewriterConfig'memoryOptimization = Data.Default.Class.def, - _RewriterConfig'memoryOptimizerTargetNodeNameScope = - Data.ProtoLens.fieldDefault, - _RewriterConfig'autoParallel = Prelude.Nothing, - _RewriterConfig'scopedAllocatorOpts = Prelude.Nothing, - _RewriterConfig'optimizers = [], - _RewriterConfig'customOptimizers = []} - -instance Data.ProtoLens.Message RewriterConfig where - descriptor - = let layoutOptimizer__field_descriptor - = Data.ProtoLens.FieldDescriptor "layout_optimizer" - (Data.ProtoLens.EnumField :: - Data.ProtoLens.FieldTypeDescriptor RewriterConfig'Toggle) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional layoutOptimizer) - :: Data.ProtoLens.FieldDescriptor RewriterConfig - constantFolding__field_descriptor - = Data.ProtoLens.FieldDescriptor "constant_folding" - (Data.ProtoLens.EnumField :: - Data.ProtoLens.FieldTypeDescriptor RewriterConfig'Toggle) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional constantFolding) - :: Data.ProtoLens.FieldDescriptor RewriterConfig - shapeOptimization__field_descriptor - = Data.ProtoLens.FieldDescriptor "shape_optimization" - (Data.ProtoLens.EnumField :: - Data.ProtoLens.FieldTypeDescriptor RewriterConfig'Toggle) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional - shapeOptimization) - :: Data.ProtoLens.FieldDescriptor RewriterConfig - remapping__field_descriptor - = Data.ProtoLens.FieldDescriptor "remapping" - (Data.ProtoLens.EnumField :: - Data.ProtoLens.FieldTypeDescriptor RewriterConfig'Toggle) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional remapping) - :: Data.ProtoLens.FieldDescriptor RewriterConfig - arithmeticOptimization__field_descriptor - = Data.ProtoLens.FieldDescriptor "arithmetic_optimization" - (Data.ProtoLens.EnumField :: - Data.ProtoLens.FieldTypeDescriptor RewriterConfig'Toggle) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional - arithmeticOptimization) - :: Data.ProtoLens.FieldDescriptor RewriterConfig - dependencyOptimization__field_descriptor - = Data.ProtoLens.FieldDescriptor "dependency_optimization" - (Data.ProtoLens.EnumField :: - Data.ProtoLens.FieldTypeDescriptor RewriterConfig'Toggle) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional - dependencyOptimization) - :: Data.ProtoLens.FieldDescriptor RewriterConfig - loopOptimization__field_descriptor - = Data.ProtoLens.FieldDescriptor "loop_optimization" - (Data.ProtoLens.EnumField :: - Data.ProtoLens.FieldTypeDescriptor RewriterConfig'Toggle) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional - loopOptimization) - :: Data.ProtoLens.FieldDescriptor RewriterConfig - functionOptimization__field_descriptor - = Data.ProtoLens.FieldDescriptor "function_optimization" - (Data.ProtoLens.EnumField :: - Data.ProtoLens.FieldTypeDescriptor RewriterConfig'Toggle) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional - functionOptimization) - :: Data.ProtoLens.FieldDescriptor RewriterConfig - debugStripper__field_descriptor - = Data.ProtoLens.FieldDescriptor "debug_stripper" - (Data.ProtoLens.EnumField :: - Data.ProtoLens.FieldTypeDescriptor RewriterConfig'Toggle) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional debugStripper) - :: Data.ProtoLens.FieldDescriptor RewriterConfig - disableModelPruning__field_descriptor - = Data.ProtoLens.FieldDescriptor "disable_model_pruning" - (Data.ProtoLens.BoolField :: - Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional - disableModelPruning) - :: Data.ProtoLens.FieldDescriptor RewriterConfig - scopedAllocatorOptimization__field_descriptor - = Data.ProtoLens.FieldDescriptor "scoped_allocator_optimization" - (Data.ProtoLens.EnumField :: - Data.ProtoLens.FieldTypeDescriptor RewriterConfig'Toggle) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional - scopedAllocatorOptimization) - :: Data.ProtoLens.FieldDescriptor RewriterConfig - metaOptimizerIterations__field_descriptor - = Data.ProtoLens.FieldDescriptor "meta_optimizer_iterations" - (Data.ProtoLens.EnumField :: - Data.ProtoLens.FieldTypeDescriptor - RewriterConfig'NumIterationsType) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional - metaOptimizerIterations) - :: Data.ProtoLens.FieldDescriptor RewriterConfig - memoryOptimization__field_descriptor - = Data.ProtoLens.FieldDescriptor "memory_optimization" - (Data.ProtoLens.EnumField :: - Data.ProtoLens.FieldTypeDescriptor RewriterConfig'MemOptType) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional - memoryOptimization) - :: Data.ProtoLens.FieldDescriptor RewriterConfig - memoryOptimizerTargetNodeNameScope__field_descriptor - = Data.ProtoLens.FieldDescriptor - "memory_optimizer_target_node_name_scope" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional - memoryOptimizerTargetNodeNameScope) - :: Data.ProtoLens.FieldDescriptor RewriterConfig - autoParallel__field_descriptor - = Data.ProtoLens.FieldDescriptor "auto_parallel" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor AutoParallelOptions) - (Data.ProtoLens.OptionalField maybe'autoParallel) - :: Data.ProtoLens.FieldDescriptor RewriterConfig - scopedAllocatorOpts__field_descriptor - = Data.ProtoLens.FieldDescriptor "scoped_allocator_opts" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor ScopedAllocatorOptions) - (Data.ProtoLens.OptionalField maybe'scopedAllocatorOpts) - :: Data.ProtoLens.FieldDescriptor RewriterConfig - optimizers__field_descriptor - = Data.ProtoLens.FieldDescriptor "optimizers" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked optimizers) - :: Data.ProtoLens.FieldDescriptor RewriterConfig - customOptimizers__field_descriptor - = Data.ProtoLens.FieldDescriptor "custom_optimizers" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor - RewriterConfig'CustomGraphOptimizer) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked - customOptimizers) - :: Data.ProtoLens.FieldDescriptor RewriterConfig - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.RewriterConfig") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, layoutOptimizer__field_descriptor), - (Data.ProtoLens.Tag 3, constantFolding__field_descriptor), - (Data.ProtoLens.Tag 13, shapeOptimization__field_descriptor), - (Data.ProtoLens.Tag 14, remapping__field_descriptor), - (Data.ProtoLens.Tag 7, arithmeticOptimization__field_descriptor), - (Data.ProtoLens.Tag 8, dependencyOptimization__field_descriptor), - (Data.ProtoLens.Tag 9, loopOptimization__field_descriptor), - (Data.ProtoLens.Tag 10, functionOptimization__field_descriptor), - (Data.ProtoLens.Tag 11, debugStripper__field_descriptor), - (Data.ProtoLens.Tag 2, disableModelPruning__field_descriptor), - (Data.ProtoLens.Tag 15, - scopedAllocatorOptimization__field_descriptor), - (Data.ProtoLens.Tag 12, metaOptimizerIterations__field_descriptor), - (Data.ProtoLens.Tag 4, memoryOptimization__field_descriptor), - (Data.ProtoLens.Tag 6, - memoryOptimizerTargetNodeNameScope__field_descriptor), - (Data.ProtoLens.Tag 5, autoParallel__field_descriptor), - (Data.ProtoLens.Tag 16, scopedAllocatorOpts__field_descriptor), - (Data.ProtoLens.Tag 100, optimizers__field_descriptor), - (Data.ProtoLens.Tag 200, customOptimizers__field_descriptor)]) - (Data.Map.fromList - [("layout_optimizer", layoutOptimizer__field_descriptor), - ("constant_folding", constantFolding__field_descriptor), - ("shape_optimization", shapeOptimization__field_descriptor), - ("remapping", remapping__field_descriptor), - ("arithmetic_optimization", - arithmeticOptimization__field_descriptor), - ("dependency_optimization", - dependencyOptimization__field_descriptor), - ("loop_optimization", loopOptimization__field_descriptor), - ("function_optimization", functionOptimization__field_descriptor), - ("debug_stripper", debugStripper__field_descriptor), - ("disable_model_pruning", disableModelPruning__field_descriptor), - ("scoped_allocator_optimization", - scopedAllocatorOptimization__field_descriptor), - ("meta_optimizer_iterations", - metaOptimizerIterations__field_descriptor), - ("memory_optimization", memoryOptimization__field_descriptor), - ("memory_optimizer_target_node_name_scope", - memoryOptimizerTargetNodeNameScope__field_descriptor), - ("auto_parallel", autoParallel__field_descriptor), - ("scoped_allocator_opts", scopedAllocatorOpts__field_descriptor), - ("optimizers", optimizers__field_descriptor), - ("custom_optimizers", customOptimizers__field_descriptor)]) - -data RewriterConfig'CustomGraphOptimizer = RewriterConfig'CustomGraphOptimizer{_RewriterConfig'CustomGraphOptimizer'name - :: !Data.Text.Text, - _RewriterConfig'CustomGraphOptimizer'parameterMap - :: - !(Data.Map.Map - Data.Text.Text - Proto.Tensorflow.Core.Framework.AttrValue.AttrValue)} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "name" f RewriterConfig'CustomGraphOptimizer - RewriterConfig'CustomGraphOptimizer - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _RewriterConfig'CustomGraphOptimizer'name - (\ x__ y__ -> - x__{_RewriterConfig'CustomGraphOptimizer'name = y__})) - Prelude.id - -instance (a ~ - Data.Map.Map Data.Text.Text - Proto.Tensorflow.Core.Framework.AttrValue.AttrValue, - b ~ - Data.Map.Map Data.Text.Text - Proto.Tensorflow.Core.Framework.AttrValue.AttrValue, - Prelude.Functor f) => - Lens.Labels.HasLens "parameterMap" f - RewriterConfig'CustomGraphOptimizer - RewriterConfig'CustomGraphOptimizer - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _RewriterConfig'CustomGraphOptimizer'parameterMap - (\ x__ y__ -> - x__{_RewriterConfig'CustomGraphOptimizer'parameterMap = y__})) - Prelude.id - -instance Data.Default.Class.Default - RewriterConfig'CustomGraphOptimizer - where - def - = RewriterConfig'CustomGraphOptimizer{_RewriterConfig'CustomGraphOptimizer'name - = Data.ProtoLens.fieldDefault, - _RewriterConfig'CustomGraphOptimizer'parameterMap = - Data.Map.empty} - -instance Data.ProtoLens.Message RewriterConfig'CustomGraphOptimizer - where - descriptor - = let name__field_descriptor - = Data.ProtoLens.FieldDescriptor "name" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional name) - :: - Data.ProtoLens.FieldDescriptor RewriterConfig'CustomGraphOptimizer - parameterMap__field_descriptor - = Data.ProtoLens.FieldDescriptor "parameter_map" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor - RewriterConfig'CustomGraphOptimizer'ParameterMapEntry) - (Data.ProtoLens.MapField key value parameterMap) - :: - Data.ProtoLens.FieldDescriptor RewriterConfig'CustomGraphOptimizer - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.RewriterConfig.CustomGraphOptimizer") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, name__field_descriptor), - (Data.ProtoLens.Tag 2, parameterMap__field_descriptor)]) - (Data.Map.fromList - [("name", name__field_descriptor), - ("parameter_map", parameterMap__field_descriptor)]) - -data RewriterConfig'CustomGraphOptimizer'ParameterMapEntry = RewriterConfig'CustomGraphOptimizer'ParameterMapEntry{_RewriterConfig'CustomGraphOptimizer'ParameterMapEntry'key - :: - !Data.Text.Text, - _RewriterConfig'CustomGraphOptimizer'ParameterMapEntry'value - :: - !(Prelude.Maybe - Proto.Tensorflow.Core.Framework.AttrValue.AttrValue)} - deriving (Prelude.Show, Prelude.Eq, - Prelude.Ord) - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "key" f - RewriterConfig'CustomGraphOptimizer'ParameterMapEntry - RewriterConfig'CustomGraphOptimizer'ParameterMapEntry - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _RewriterConfig'CustomGraphOptimizer'ParameterMapEntry'key - (\ x__ y__ -> - x__{_RewriterConfig'CustomGraphOptimizer'ParameterMapEntry'key = - y__})) - Prelude.id - -instance (a ~ Proto.Tensorflow.Core.Framework.AttrValue.AttrValue, - b ~ Proto.Tensorflow.Core.Framework.AttrValue.AttrValue, - Prelude.Functor f) => - Lens.Labels.HasLens "value" f - RewriterConfig'CustomGraphOptimizer'ParameterMapEntry - RewriterConfig'CustomGraphOptimizer'ParameterMapEntry - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _RewriterConfig'CustomGraphOptimizer'ParameterMapEntry'value - (\ x__ y__ -> - x__{_RewriterConfig'CustomGraphOptimizer'ParameterMapEntry'value = - y__})) - (Data.ProtoLens.maybeLens Data.Default.Class.def) - -instance (a ~ - Prelude.Maybe Proto.Tensorflow.Core.Framework.AttrValue.AttrValue, - b ~ - Prelude.Maybe Proto.Tensorflow.Core.Framework.AttrValue.AttrValue, - Prelude.Functor f) => - Lens.Labels.HasLens "maybe'value" f - RewriterConfig'CustomGraphOptimizer'ParameterMapEntry - RewriterConfig'CustomGraphOptimizer'ParameterMapEntry - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _RewriterConfig'CustomGraphOptimizer'ParameterMapEntry'value - (\ x__ y__ -> - x__{_RewriterConfig'CustomGraphOptimizer'ParameterMapEntry'value = - y__})) - Prelude.id - -instance Data.Default.Class.Default - RewriterConfig'CustomGraphOptimizer'ParameterMapEntry - where - def - = RewriterConfig'CustomGraphOptimizer'ParameterMapEntry{_RewriterConfig'CustomGraphOptimizer'ParameterMapEntry'key - = Data.ProtoLens.fieldDefault, - _RewriterConfig'CustomGraphOptimizer'ParameterMapEntry'value - = Prelude.Nothing} - -instance Data.ProtoLens.Message - RewriterConfig'CustomGraphOptimizer'ParameterMapEntry - where - descriptor - = let key__field_descriptor - = Data.ProtoLens.FieldDescriptor "key" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional key) - :: - Data.ProtoLens.FieldDescriptor - RewriterConfig'CustomGraphOptimizer'ParameterMapEntry - value__field_descriptor - = Data.ProtoLens.FieldDescriptor "value" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor - Proto.Tensorflow.Core.Framework.AttrValue.AttrValue) - (Data.ProtoLens.OptionalField maybe'value) - :: - Data.ProtoLens.FieldDescriptor - RewriterConfig'CustomGraphOptimizer'ParameterMapEntry - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack - "tensorflow.RewriterConfig.CustomGraphOptimizer.ParameterMapEntry") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, key__field_descriptor), - (Data.ProtoLens.Tag 2, value__field_descriptor)]) - (Data.Map.fromList - [("key", key__field_descriptor), - ("value", value__field_descriptor)]) - -data RewriterConfig'MemOptType = RewriterConfig'DEFAULT_MEM_OPT - | RewriterConfig'NO_MEM_OPT - | RewriterConfig'MANUAL - | RewriterConfig'HEURISTICS - | RewriterConfig'SWAPPING_HEURISTICS - | RewriterConfig'RECOMPUTATION_HEURISTICS - | RewriterConfig'SCHEDULING_HEURISTICS - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance Data.Default.Class.Default RewriterConfig'MemOptType where - def = RewriterConfig'DEFAULT_MEM_OPT - -instance Data.ProtoLens.FieldDefault RewriterConfig'MemOptType - where - fieldDefault = RewriterConfig'DEFAULT_MEM_OPT - -instance Data.ProtoLens.MessageEnum RewriterConfig'MemOptType where - maybeToEnum 0 = Prelude.Just RewriterConfig'DEFAULT_MEM_OPT - maybeToEnum 1 = Prelude.Just RewriterConfig'NO_MEM_OPT - maybeToEnum 2 = Prelude.Just RewriterConfig'MANUAL - maybeToEnum 3 = Prelude.Just RewriterConfig'HEURISTICS - maybeToEnum 4 = Prelude.Just RewriterConfig'SWAPPING_HEURISTICS - maybeToEnum 5 - = Prelude.Just RewriterConfig'RECOMPUTATION_HEURISTICS - maybeToEnum 6 = Prelude.Just RewriterConfig'SCHEDULING_HEURISTICS - maybeToEnum _ = Prelude.Nothing - showEnum RewriterConfig'DEFAULT_MEM_OPT = "DEFAULT_MEM_OPT" - showEnum RewriterConfig'NO_MEM_OPT = "NO_MEM_OPT" - showEnum RewriterConfig'MANUAL = "MANUAL" - showEnum RewriterConfig'HEURISTICS = "HEURISTICS" - showEnum RewriterConfig'SWAPPING_HEURISTICS = "SWAPPING_HEURISTICS" - showEnum RewriterConfig'RECOMPUTATION_HEURISTICS - = "RECOMPUTATION_HEURISTICS" - showEnum RewriterConfig'SCHEDULING_HEURISTICS - = "SCHEDULING_HEURISTICS" - readEnum "DEFAULT_MEM_OPT" - = Prelude.Just RewriterConfig'DEFAULT_MEM_OPT - readEnum "NO_MEM_OPT" = Prelude.Just RewriterConfig'NO_MEM_OPT - readEnum "MANUAL" = Prelude.Just RewriterConfig'MANUAL - readEnum "HEURISTICS" = Prelude.Just RewriterConfig'HEURISTICS - readEnum "SWAPPING_HEURISTICS" - = Prelude.Just RewriterConfig'SWAPPING_HEURISTICS - readEnum "RECOMPUTATION_HEURISTICS" - = Prelude.Just RewriterConfig'RECOMPUTATION_HEURISTICS - readEnum "SCHEDULING_HEURISTICS" - = Prelude.Just RewriterConfig'SCHEDULING_HEURISTICS - readEnum _ = Prelude.Nothing - -instance Prelude.Enum RewriterConfig'MemOptType where - toEnum k__ - = Prelude.maybe - (Prelude.error - ((Prelude.++) "toEnum: unknown value for enum MemOptType: " - (Prelude.show k__))) - Prelude.id - (Data.ProtoLens.maybeToEnum k__) - fromEnum RewriterConfig'DEFAULT_MEM_OPT = 0 - fromEnum RewriterConfig'NO_MEM_OPT = 1 - fromEnum RewriterConfig'MANUAL = 2 - fromEnum RewriterConfig'HEURISTICS = 3 - fromEnum RewriterConfig'SWAPPING_HEURISTICS = 4 - fromEnum RewriterConfig'RECOMPUTATION_HEURISTICS = 5 - fromEnum RewriterConfig'SCHEDULING_HEURISTICS = 6 - succ RewriterConfig'SCHEDULING_HEURISTICS - = Prelude.error - "RewriterConfig'MemOptType.succ: bad argument RewriterConfig'SCHEDULING_HEURISTICS. This value would be out of bounds." - succ RewriterConfig'DEFAULT_MEM_OPT = RewriterConfig'NO_MEM_OPT - succ RewriterConfig'NO_MEM_OPT = RewriterConfig'MANUAL - succ RewriterConfig'MANUAL = RewriterConfig'HEURISTICS - succ RewriterConfig'HEURISTICS = RewriterConfig'SWAPPING_HEURISTICS - succ RewriterConfig'SWAPPING_HEURISTICS - = RewriterConfig'RECOMPUTATION_HEURISTICS - succ RewriterConfig'RECOMPUTATION_HEURISTICS - = RewriterConfig'SCHEDULING_HEURISTICS - pred RewriterConfig'DEFAULT_MEM_OPT - = Prelude.error - "RewriterConfig'MemOptType.pred: bad argument RewriterConfig'DEFAULT_MEM_OPT. This value would be out of bounds." - pred RewriterConfig'NO_MEM_OPT = RewriterConfig'DEFAULT_MEM_OPT - pred RewriterConfig'MANUAL = RewriterConfig'NO_MEM_OPT - pred RewriterConfig'HEURISTICS = RewriterConfig'MANUAL - pred RewriterConfig'SWAPPING_HEURISTICS = RewriterConfig'HEURISTICS - pred RewriterConfig'RECOMPUTATION_HEURISTICS - = RewriterConfig'SWAPPING_HEURISTICS - pred RewriterConfig'SCHEDULING_HEURISTICS - = RewriterConfig'RECOMPUTATION_HEURISTICS - enumFrom = Data.ProtoLens.Message.Enum.messageEnumFrom - enumFromTo = Data.ProtoLens.Message.Enum.messageEnumFromTo - enumFromThen = Data.ProtoLens.Message.Enum.messageEnumFromThen - enumFromThenTo = Data.ProtoLens.Message.Enum.messageEnumFromThenTo - -instance Prelude.Bounded RewriterConfig'MemOptType where - minBound = RewriterConfig'DEFAULT_MEM_OPT - maxBound = RewriterConfig'SCHEDULING_HEURISTICS - -data RewriterConfig'NumIterationsType = RewriterConfig'DEFAULT_NUM_ITERS - | RewriterConfig'ONE - | RewriterConfig'TWO - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance Data.Default.Class.Default - RewriterConfig'NumIterationsType - where - def = RewriterConfig'DEFAULT_NUM_ITERS - -instance Data.ProtoLens.FieldDefault - RewriterConfig'NumIterationsType - where - fieldDefault = RewriterConfig'DEFAULT_NUM_ITERS - -instance Data.ProtoLens.MessageEnum - RewriterConfig'NumIterationsType - where - maybeToEnum 0 = Prelude.Just RewriterConfig'DEFAULT_NUM_ITERS - maybeToEnum 1 = Prelude.Just RewriterConfig'ONE - maybeToEnum 2 = Prelude.Just RewriterConfig'TWO - maybeToEnum _ = Prelude.Nothing - showEnum RewriterConfig'DEFAULT_NUM_ITERS = "DEFAULT_NUM_ITERS" - showEnum RewriterConfig'ONE = "ONE" - showEnum RewriterConfig'TWO = "TWO" - readEnum "DEFAULT_NUM_ITERS" - = Prelude.Just RewriterConfig'DEFAULT_NUM_ITERS - readEnum "ONE" = Prelude.Just RewriterConfig'ONE - readEnum "TWO" = Prelude.Just RewriterConfig'TWO - readEnum _ = Prelude.Nothing - -instance Prelude.Enum RewriterConfig'NumIterationsType where - toEnum k__ - = Prelude.maybe - (Prelude.error - ((Prelude.++) "toEnum: unknown value for enum NumIterationsType: " - (Prelude.show k__))) - Prelude.id - (Data.ProtoLens.maybeToEnum k__) - fromEnum RewriterConfig'DEFAULT_NUM_ITERS = 0 - fromEnum RewriterConfig'ONE = 1 - fromEnum RewriterConfig'TWO = 2 - succ RewriterConfig'TWO - = Prelude.error - "RewriterConfig'NumIterationsType.succ: bad argument RewriterConfig'TWO. This value would be out of bounds." - succ RewriterConfig'DEFAULT_NUM_ITERS = RewriterConfig'ONE - succ RewriterConfig'ONE = RewriterConfig'TWO - pred RewriterConfig'DEFAULT_NUM_ITERS - = Prelude.error - "RewriterConfig'NumIterationsType.pred: bad argument RewriterConfig'DEFAULT_NUM_ITERS. This value would be out of bounds." - pred RewriterConfig'ONE = RewriterConfig'DEFAULT_NUM_ITERS - pred RewriterConfig'TWO = RewriterConfig'ONE - enumFrom = Data.ProtoLens.Message.Enum.messageEnumFrom - enumFromTo = Data.ProtoLens.Message.Enum.messageEnumFromTo - enumFromThen = Data.ProtoLens.Message.Enum.messageEnumFromThen - enumFromThenTo = Data.ProtoLens.Message.Enum.messageEnumFromThenTo - -instance Prelude.Bounded RewriterConfig'NumIterationsType where - minBound = RewriterConfig'DEFAULT_NUM_ITERS - maxBound = RewriterConfig'TWO - -data RewriterConfig'Toggle = RewriterConfig'DEFAULT - | RewriterConfig'ON - | RewriterConfig'OFF - | RewriterConfig'AGGRESSIVE - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance Data.Default.Class.Default RewriterConfig'Toggle where - def = RewriterConfig'DEFAULT - -instance Data.ProtoLens.FieldDefault RewriterConfig'Toggle where - fieldDefault = RewriterConfig'DEFAULT - -instance Data.ProtoLens.MessageEnum RewriterConfig'Toggle where - maybeToEnum 0 = Prelude.Just RewriterConfig'DEFAULT - maybeToEnum 1 = Prelude.Just RewriterConfig'ON - maybeToEnum 2 = Prelude.Just RewriterConfig'OFF - maybeToEnum 3 = Prelude.Just RewriterConfig'AGGRESSIVE - maybeToEnum _ = Prelude.Nothing - showEnum RewriterConfig'DEFAULT = "DEFAULT" - showEnum RewriterConfig'ON = "ON" - showEnum RewriterConfig'OFF = "OFF" - showEnum RewriterConfig'AGGRESSIVE = "AGGRESSIVE" - readEnum "DEFAULT" = Prelude.Just RewriterConfig'DEFAULT - readEnum "ON" = Prelude.Just RewriterConfig'ON - readEnum "OFF" = Prelude.Just RewriterConfig'OFF - readEnum "AGGRESSIVE" = Prelude.Just RewriterConfig'AGGRESSIVE - readEnum _ = Prelude.Nothing - -instance Prelude.Enum RewriterConfig'Toggle where - toEnum k__ - = Prelude.maybe - (Prelude.error - ((Prelude.++) "toEnum: unknown value for enum Toggle: " - (Prelude.show k__))) - Prelude.id - (Data.ProtoLens.maybeToEnum k__) - fromEnum RewriterConfig'DEFAULT = 0 - fromEnum RewriterConfig'ON = 1 - fromEnum RewriterConfig'OFF = 2 - fromEnum RewriterConfig'AGGRESSIVE = 3 - succ RewriterConfig'AGGRESSIVE - = Prelude.error - "RewriterConfig'Toggle.succ: bad argument RewriterConfig'AGGRESSIVE. This value would be out of bounds." - succ RewriterConfig'DEFAULT = RewriterConfig'ON - succ RewriterConfig'ON = RewriterConfig'OFF - succ RewriterConfig'OFF = RewriterConfig'AGGRESSIVE - pred RewriterConfig'DEFAULT - = Prelude.error - "RewriterConfig'Toggle.pred: bad argument RewriterConfig'DEFAULT. This value would be out of bounds." - pred RewriterConfig'ON = RewriterConfig'DEFAULT - pred RewriterConfig'OFF = RewriterConfig'ON - pred RewriterConfig'AGGRESSIVE = RewriterConfig'OFF - enumFrom = Data.ProtoLens.Message.Enum.messageEnumFrom - enumFromTo = Data.ProtoLens.Message.Enum.messageEnumFromTo - enumFromThen = Data.ProtoLens.Message.Enum.messageEnumFromThen - enumFromThenTo = Data.ProtoLens.Message.Enum.messageEnumFromThenTo - -instance Prelude.Bounded RewriterConfig'Toggle where - minBound = RewriterConfig'DEFAULT - maxBound = RewriterConfig'AGGRESSIVE - -data ScopedAllocatorOptions = ScopedAllocatorOptions{_ScopedAllocatorOptions'enableOp - :: ![Data.Text.Text]} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ [Data.Text.Text], b ~ [Data.Text.Text], - Prelude.Functor f) => - Lens.Labels.HasLens "enableOp" f ScopedAllocatorOptions - ScopedAllocatorOptions - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _ScopedAllocatorOptions'enableOp - (\ x__ y__ -> x__{_ScopedAllocatorOptions'enableOp = y__})) - Prelude.id - -instance Data.Default.Class.Default ScopedAllocatorOptions where - def = ScopedAllocatorOptions{_ScopedAllocatorOptions'enableOp = []} - -instance Data.ProtoLens.Message ScopedAllocatorOptions where - descriptor - = let enableOp__field_descriptor - = Data.ProtoLens.FieldDescriptor "enable_op" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked enableOp) - :: Data.ProtoLens.FieldDescriptor ScopedAllocatorOptions - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.ScopedAllocatorOptions") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, enableOp__field_descriptor)]) - (Data.Map.fromList [("enable_op", enableOp__field_descriptor)]) - -arithmeticOptimization :: - forall f s t a b . - (Lens.Labels.HasLens "arithmeticOptimization" f s t a b) => - Lens.Family2.LensLike f s t a b -arithmeticOptimization - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: - (Lens.Labels.Proxy#) "arithmeticOptimization") - -autoParallel :: - forall f s t a b . - (Lens.Labels.HasLens "autoParallel" f s t a b) => - Lens.Family2.LensLike f s t a b -autoParallel - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "autoParallel") - -constantFolding :: - forall f s t a b . - (Lens.Labels.HasLens "constantFolding" f s t a b) => - Lens.Family2.LensLike f s t a b -constantFolding - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "constantFolding") - -customOptimizers :: - forall f s t a b . - (Lens.Labels.HasLens "customOptimizers" f s t a b) => - Lens.Family2.LensLike f s t a b -customOptimizers - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "customOptimizers") - -debugStripper :: - forall f s t a b . - (Lens.Labels.HasLens "debugStripper" f s t a b) => - Lens.Family2.LensLike f s t a b -debugStripper - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "debugStripper") - -dependencyOptimization :: - forall f s t a b . - (Lens.Labels.HasLens "dependencyOptimization" f s t a b) => - Lens.Family2.LensLike f s t a b -dependencyOptimization - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: - (Lens.Labels.Proxy#) "dependencyOptimization") - -disableModelPruning :: - forall f s t a b . - (Lens.Labels.HasLens "disableModelPruning" f s t a b) => - Lens.Family2.LensLike f s t a b -disableModelPruning - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: - (Lens.Labels.Proxy#) "disableModelPruning") - -enable :: - forall f s t a b . (Lens.Labels.HasLens "enable" f s t a b) => - Lens.Family2.LensLike f s t a b -enable - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "enable") - -enableOp :: - forall f s t a b . (Lens.Labels.HasLens "enableOp" f s t a b) => - Lens.Family2.LensLike f s t a b -enableOp - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "enableOp") - -functionOptimization :: - forall f s t a b . - (Lens.Labels.HasLens "functionOptimization" f s t a b) => - Lens.Family2.LensLike f s t a b -functionOptimization - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: - (Lens.Labels.Proxy#) "functionOptimization") - -key :: - forall f s t a b . (Lens.Labels.HasLens "key" f s t a b) => - Lens.Family2.LensLike f s t a b -key - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "key") - -layoutOptimizer :: - forall f s t a b . - (Lens.Labels.HasLens "layoutOptimizer" f s t a b) => - Lens.Family2.LensLike f s t a b -layoutOptimizer - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "layoutOptimizer") - -loopOptimization :: - forall f s t a b . - (Lens.Labels.HasLens "loopOptimization" f s t a b) => - Lens.Family2.LensLike f s t a b -loopOptimization - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "loopOptimization") - -maybe'autoParallel :: - forall f s t a b . - (Lens.Labels.HasLens "maybe'autoParallel" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'autoParallel - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'autoParallel") - -maybe'scopedAllocatorOpts :: - forall f s t a b . - (Lens.Labels.HasLens "maybe'scopedAllocatorOpts" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'scopedAllocatorOpts - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: - (Lens.Labels.Proxy#) "maybe'scopedAllocatorOpts") - -maybe'value :: - forall f s t a b . (Lens.Labels.HasLens "maybe'value" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'value - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'value") - -memoryOptimization :: - forall f s t a b . - (Lens.Labels.HasLens "memoryOptimization" f s t a b) => - Lens.Family2.LensLike f s t a b -memoryOptimization - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "memoryOptimization") - -memoryOptimizerTargetNodeNameScope :: - forall f s t a b . - (Lens.Labels.HasLens "memoryOptimizerTargetNodeNameScope" f s t - a b) => - Lens.Family2.LensLike f s t a b -memoryOptimizerTargetNodeNameScope - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: - (Lens.Labels.Proxy#) "memoryOptimizerTargetNodeNameScope") - -metaOptimizerIterations :: - forall f s t a b . - (Lens.Labels.HasLens "metaOptimizerIterations" f s t a b) => - Lens.Family2.LensLike f s t a b -metaOptimizerIterations - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: - (Lens.Labels.Proxy#) "metaOptimizerIterations") - -name :: - forall f s t a b . (Lens.Labels.HasLens "name" f s t a b) => - Lens.Family2.LensLike f s t a b -name - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "name") - -numReplicas :: - forall f s t a b . (Lens.Labels.HasLens "numReplicas" f s t a b) => - Lens.Family2.LensLike f s t a b -numReplicas - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "numReplicas") - -optimizers :: - forall f s t a b . (Lens.Labels.HasLens "optimizers" f s t a b) => - Lens.Family2.LensLike f s t a b -optimizers - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "optimizers") - -parameterMap :: - forall f s t a b . - (Lens.Labels.HasLens "parameterMap" f s t a b) => - Lens.Family2.LensLike f s t a b -parameterMap - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "parameterMap") - -remapping :: - forall f s t a b . (Lens.Labels.HasLens "remapping" f s t a b) => - Lens.Family2.LensLike f s t a b -remapping - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "remapping") - -scopedAllocatorOptimization :: - forall f s t a b . - (Lens.Labels.HasLens "scopedAllocatorOptimization" f s t a b) => - Lens.Family2.LensLike f s t a b -scopedAllocatorOptimization - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: - (Lens.Labels.Proxy#) "scopedAllocatorOptimization") - -scopedAllocatorOpts :: - forall f s t a b . - (Lens.Labels.HasLens "scopedAllocatorOpts" f s t a b) => - Lens.Family2.LensLike f s t a b -scopedAllocatorOpts - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: - (Lens.Labels.Proxy#) "scopedAllocatorOpts") - -shapeOptimization :: - forall f s t a b . - (Lens.Labels.HasLens "shapeOptimization" f s t a b) => - Lens.Family2.LensLike f s t a b -shapeOptimization - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "shapeOptimization") - -value :: - forall f s t a b . (Lens.Labels.HasLens "value" f s t a b) => - Lens.Family2.LensLike f s t a b -value - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "value") diff --git a/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Protobuf/SavedModel.hs b/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Protobuf/SavedModel.hs deleted file mode 100644 --- a/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Protobuf/SavedModel.hs +++ /dev/null @@ -1,107 +0,0 @@ -{- This file was auto-generated from tensorflow/core/protobuf/saved_model.proto by the proto-lens-protoc program. -} -{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies, - UndecidableInstances, MultiParamTypeClasses, FlexibleContexts, - FlexibleInstances, PatternSynonyms, MagicHash, NoImplicitPrelude - #-} -{-# OPTIONS_GHC -fno-warn-unused-imports#-} -module Proto.Tensorflow.Core.Protobuf.SavedModel where -import qualified Data.ProtoLens.Reexport.Prelude as Prelude -import qualified Data.ProtoLens.Reexport.Data.Int as Data.Int -import qualified Data.ProtoLens.Reexport.Data.Word as Data.Word -import qualified Data.ProtoLens.Reexport.Data.ProtoLens - as Data.ProtoLens -import qualified - Data.ProtoLens.Reexport.Data.ProtoLens.Message.Enum - as Data.ProtoLens.Message.Enum -import qualified Data.ProtoLens.Reexport.Lens.Family2 - as Lens.Family2 -import qualified Data.ProtoLens.Reexport.Lens.Family2.Unchecked - as Lens.Family2.Unchecked -import qualified Data.ProtoLens.Reexport.Data.Default.Class - as Data.Default.Class -import qualified Data.ProtoLens.Reexport.Data.Text as Data.Text -import qualified Data.ProtoLens.Reexport.Data.Map as Data.Map -import qualified Data.ProtoLens.Reexport.Data.ByteString - as Data.ByteString -import qualified Data.ProtoLens.Reexport.Lens.Labels as Lens.Labels -import qualified Proto.Tensorflow.Core.Protobuf.MetaGraph - -data SavedModel = SavedModel{_SavedModel'savedModelSchemaVersion :: - !Data.Int.Int64, - _SavedModel'metaGraphs :: - ![Proto.Tensorflow.Core.Protobuf.MetaGraph.MetaGraphDef]} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Data.Int.Int64, b ~ Data.Int.Int64, - Prelude.Functor f) => - Lens.Labels.HasLens "savedModelSchemaVersion" f SavedModel - SavedModel - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _SavedModel'savedModelSchemaVersion - (\ x__ y__ -> x__{_SavedModel'savedModelSchemaVersion = y__})) - Prelude.id - -instance (a ~ - [Proto.Tensorflow.Core.Protobuf.MetaGraph.MetaGraphDef], - b ~ [Proto.Tensorflow.Core.Protobuf.MetaGraph.MetaGraphDef], - Prelude.Functor f) => - Lens.Labels.HasLens "metaGraphs" f SavedModel SavedModel a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _SavedModel'metaGraphs - (\ x__ y__ -> x__{_SavedModel'metaGraphs = y__})) - Prelude.id - -instance Data.Default.Class.Default SavedModel where - def - = SavedModel{_SavedModel'savedModelSchemaVersion = - Data.ProtoLens.fieldDefault, - _SavedModel'metaGraphs = []} - -instance Data.ProtoLens.Message SavedModel where - descriptor - = let savedModelSchemaVersion__field_descriptor - = Data.ProtoLens.FieldDescriptor "saved_model_schema_version" - (Data.ProtoLens.Int64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional - savedModelSchemaVersion) - :: Data.ProtoLens.FieldDescriptor SavedModel - metaGraphs__field_descriptor - = Data.ProtoLens.FieldDescriptor "meta_graphs" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor - Proto.Tensorflow.Core.Protobuf.MetaGraph.MetaGraphDef) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked metaGraphs) - :: Data.ProtoLens.FieldDescriptor SavedModel - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.SavedModel") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, savedModelSchemaVersion__field_descriptor), - (Data.ProtoLens.Tag 2, metaGraphs__field_descriptor)]) - (Data.Map.fromList - [("saved_model_schema_version", - savedModelSchemaVersion__field_descriptor), - ("meta_graphs", metaGraphs__field_descriptor)]) - -metaGraphs :: - forall f s t a b . (Lens.Labels.HasLens "metaGraphs" f s t a b) => - Lens.Family2.LensLike f s t a b -metaGraphs - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "metaGraphs") - -savedModelSchemaVersion :: - forall f s t a b . - (Lens.Labels.HasLens "savedModelSchemaVersion" f s t a b) => - Lens.Family2.LensLike f s t a b -savedModelSchemaVersion - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: - (Lens.Labels.Proxy#) "savedModelSchemaVersion") diff --git a/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Protobuf/Saver.hs b/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Protobuf/Saver.hs deleted file mode 100644 --- a/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Protobuf/Saver.hs +++ /dev/null @@ -1,302 +0,0 @@ -{- This file was auto-generated from tensorflow/core/protobuf/saver.proto by the proto-lens-protoc program. -} -{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies, - UndecidableInstances, MultiParamTypeClasses, FlexibleContexts, - FlexibleInstances, PatternSynonyms, MagicHash, NoImplicitPrelude - #-} -{-# OPTIONS_GHC -fno-warn-unused-imports#-} -module Proto.Tensorflow.Core.Protobuf.Saver where -import qualified Data.ProtoLens.Reexport.Prelude as Prelude -import qualified Data.ProtoLens.Reexport.Data.Int as Data.Int -import qualified Data.ProtoLens.Reexport.Data.Word as Data.Word -import qualified Data.ProtoLens.Reexport.Data.ProtoLens - as Data.ProtoLens -import qualified - Data.ProtoLens.Reexport.Data.ProtoLens.Message.Enum - as Data.ProtoLens.Message.Enum -import qualified Data.ProtoLens.Reexport.Lens.Family2 - as Lens.Family2 -import qualified Data.ProtoLens.Reexport.Lens.Family2.Unchecked - as Lens.Family2.Unchecked -import qualified Data.ProtoLens.Reexport.Data.Default.Class - as Data.Default.Class -import qualified Data.ProtoLens.Reexport.Data.Text as Data.Text -import qualified Data.ProtoLens.Reexport.Data.Map as Data.Map -import qualified Data.ProtoLens.Reexport.Data.ByteString - as Data.ByteString -import qualified Data.ProtoLens.Reexport.Lens.Labels as Lens.Labels - -data SaverDef = SaverDef{_SaverDef'filenameTensorName :: - !Data.Text.Text, - _SaverDef'saveTensorName :: !Data.Text.Text, - _SaverDef'restoreOpName :: !Data.Text.Text, - _SaverDef'maxToKeep :: !Data.Int.Int32, - _SaverDef'sharded :: !Prelude.Bool, - _SaverDef'keepCheckpointEveryNHours :: !Prelude.Float, - _SaverDef'version :: !SaverDef'CheckpointFormatVersion} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "filenameTensorName" f SaverDef SaverDef a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _SaverDef'filenameTensorName - (\ x__ y__ -> x__{_SaverDef'filenameTensorName = y__})) - Prelude.id - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "saveTensorName" f SaverDef SaverDef a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _SaverDef'saveTensorName - (\ x__ y__ -> x__{_SaverDef'saveTensorName = y__})) - Prelude.id - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "restoreOpName" f SaverDef SaverDef a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _SaverDef'restoreOpName - (\ x__ y__ -> x__{_SaverDef'restoreOpName = y__})) - Prelude.id - -instance (a ~ Data.Int.Int32, b ~ Data.Int.Int32, - Prelude.Functor f) => - Lens.Labels.HasLens "maxToKeep" f SaverDef SaverDef a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _SaverDef'maxToKeep - (\ x__ y__ -> x__{_SaverDef'maxToKeep = y__})) - Prelude.id - -instance (a ~ Prelude.Bool, b ~ Prelude.Bool, Prelude.Functor f) => - Lens.Labels.HasLens "sharded" f SaverDef SaverDef a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _SaverDef'sharded - (\ x__ y__ -> x__{_SaverDef'sharded = y__})) - Prelude.id - -instance (a ~ Prelude.Float, b ~ Prelude.Float, - Prelude.Functor f) => - Lens.Labels.HasLens "keepCheckpointEveryNHours" f SaverDef SaverDef - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _SaverDef'keepCheckpointEveryNHours - (\ x__ y__ -> x__{_SaverDef'keepCheckpointEveryNHours = y__})) - Prelude.id - -instance (a ~ SaverDef'CheckpointFormatVersion, - b ~ SaverDef'CheckpointFormatVersion, Prelude.Functor f) => - Lens.Labels.HasLens "version" f SaverDef SaverDef a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _SaverDef'version - (\ x__ y__ -> x__{_SaverDef'version = y__})) - Prelude.id - -instance Data.Default.Class.Default SaverDef where - def - = SaverDef{_SaverDef'filenameTensorName = - Data.ProtoLens.fieldDefault, - _SaverDef'saveTensorName = Data.ProtoLens.fieldDefault, - _SaverDef'restoreOpName = Data.ProtoLens.fieldDefault, - _SaverDef'maxToKeep = Data.ProtoLens.fieldDefault, - _SaverDef'sharded = Data.ProtoLens.fieldDefault, - _SaverDef'keepCheckpointEveryNHours = Data.ProtoLens.fieldDefault, - _SaverDef'version = Data.Default.Class.def} - -instance Data.ProtoLens.Message SaverDef where - descriptor - = let filenameTensorName__field_descriptor - = Data.ProtoLens.FieldDescriptor "filename_tensor_name" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional - filenameTensorName) - :: Data.ProtoLens.FieldDescriptor SaverDef - saveTensorName__field_descriptor - = Data.ProtoLens.FieldDescriptor "save_tensor_name" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional saveTensorName) - :: Data.ProtoLens.FieldDescriptor SaverDef - restoreOpName__field_descriptor - = Data.ProtoLens.FieldDescriptor "restore_op_name" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional restoreOpName) - :: Data.ProtoLens.FieldDescriptor SaverDef - maxToKeep__field_descriptor - = Data.ProtoLens.FieldDescriptor "max_to_keep" - (Data.ProtoLens.Int32Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional maxToKeep) - :: Data.ProtoLens.FieldDescriptor SaverDef - sharded__field_descriptor - = Data.ProtoLens.FieldDescriptor "sharded" - (Data.ProtoLens.BoolField :: - Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional sharded) - :: Data.ProtoLens.FieldDescriptor SaverDef - keepCheckpointEveryNHours__field_descriptor - = Data.ProtoLens.FieldDescriptor "keep_checkpoint_every_n_hours" - (Data.ProtoLens.FloatField :: - Data.ProtoLens.FieldTypeDescriptor Prelude.Float) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional - keepCheckpointEveryNHours) - :: Data.ProtoLens.FieldDescriptor SaverDef - version__field_descriptor - = Data.ProtoLens.FieldDescriptor "version" - (Data.ProtoLens.EnumField :: - Data.ProtoLens.FieldTypeDescriptor - SaverDef'CheckpointFormatVersion) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional version) - :: Data.ProtoLens.FieldDescriptor SaverDef - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.SaverDef") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, filenameTensorName__field_descriptor), - (Data.ProtoLens.Tag 2, saveTensorName__field_descriptor), - (Data.ProtoLens.Tag 3, restoreOpName__field_descriptor), - (Data.ProtoLens.Tag 4, maxToKeep__field_descriptor), - (Data.ProtoLens.Tag 5, sharded__field_descriptor), - (Data.ProtoLens.Tag 6, - keepCheckpointEveryNHours__field_descriptor), - (Data.ProtoLens.Tag 7, version__field_descriptor)]) - (Data.Map.fromList - [("filename_tensor_name", filenameTensorName__field_descriptor), - ("save_tensor_name", saveTensorName__field_descriptor), - ("restore_op_name", restoreOpName__field_descriptor), - ("max_to_keep", maxToKeep__field_descriptor), - ("sharded", sharded__field_descriptor), - ("keep_checkpoint_every_n_hours", - keepCheckpointEveryNHours__field_descriptor), - ("version", version__field_descriptor)]) - -data SaverDef'CheckpointFormatVersion = SaverDef'LEGACY - | SaverDef'V1 - | SaverDef'V2 - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance Data.Default.Class.Default - SaverDef'CheckpointFormatVersion - where - def = SaverDef'LEGACY - -instance Data.ProtoLens.FieldDefault - SaverDef'CheckpointFormatVersion - where - fieldDefault = SaverDef'LEGACY - -instance Data.ProtoLens.MessageEnum - SaverDef'CheckpointFormatVersion - where - maybeToEnum 0 = Prelude.Just SaverDef'LEGACY - maybeToEnum 1 = Prelude.Just SaverDef'V1 - maybeToEnum 2 = Prelude.Just SaverDef'V2 - maybeToEnum _ = Prelude.Nothing - showEnum SaverDef'LEGACY = "LEGACY" - showEnum SaverDef'V1 = "V1" - showEnum SaverDef'V2 = "V2" - readEnum "LEGACY" = Prelude.Just SaverDef'LEGACY - readEnum "V1" = Prelude.Just SaverDef'V1 - readEnum "V2" = Prelude.Just SaverDef'V2 - readEnum _ = Prelude.Nothing - -instance Prelude.Enum SaverDef'CheckpointFormatVersion where - toEnum k__ - = Prelude.maybe - (Prelude.error - ((Prelude.++) - "toEnum: unknown value for enum CheckpointFormatVersion: " - (Prelude.show k__))) - Prelude.id - (Data.ProtoLens.maybeToEnum k__) - fromEnum SaverDef'LEGACY = 0 - fromEnum SaverDef'V1 = 1 - fromEnum SaverDef'V2 = 2 - succ SaverDef'V2 - = Prelude.error - "SaverDef'CheckpointFormatVersion.succ: bad argument SaverDef'V2. This value would be out of bounds." - succ SaverDef'LEGACY = SaverDef'V1 - succ SaverDef'V1 = SaverDef'V2 - pred SaverDef'LEGACY - = Prelude.error - "SaverDef'CheckpointFormatVersion.pred: bad argument SaverDef'LEGACY. This value would be out of bounds." - pred SaverDef'V1 = SaverDef'LEGACY - pred SaverDef'V2 = SaverDef'V1 - enumFrom = Data.ProtoLens.Message.Enum.messageEnumFrom - enumFromTo = Data.ProtoLens.Message.Enum.messageEnumFromTo - enumFromThen = Data.ProtoLens.Message.Enum.messageEnumFromThen - enumFromThenTo = Data.ProtoLens.Message.Enum.messageEnumFromThenTo - -instance Prelude.Bounded SaverDef'CheckpointFormatVersion where - minBound = SaverDef'LEGACY - maxBound = SaverDef'V2 - -filenameTensorName :: - forall f s t a b . - (Lens.Labels.HasLens "filenameTensorName" f s t a b) => - Lens.Family2.LensLike f s t a b -filenameTensorName - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "filenameTensorName") - -keepCheckpointEveryNHours :: - forall f s t a b . - (Lens.Labels.HasLens "keepCheckpointEveryNHours" f s t a b) => - Lens.Family2.LensLike f s t a b -keepCheckpointEveryNHours - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: - (Lens.Labels.Proxy#) "keepCheckpointEveryNHours") - -maxToKeep :: - forall f s t a b . (Lens.Labels.HasLens "maxToKeep" f s t a b) => - Lens.Family2.LensLike f s t a b -maxToKeep - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maxToKeep") - -restoreOpName :: - forall f s t a b . - (Lens.Labels.HasLens "restoreOpName" f s t a b) => - Lens.Family2.LensLike f s t a b -restoreOpName - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "restoreOpName") - -saveTensorName :: - forall f s t a b . - (Lens.Labels.HasLens "saveTensorName" f s t a b) => - Lens.Family2.LensLike f s t a b -saveTensorName - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "saveTensorName") - -sharded :: - forall f s t a b . (Lens.Labels.HasLens "sharded" f s t a b) => - Lens.Family2.LensLike f s t a b -sharded - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "sharded") - -version :: - forall f s t a b . (Lens.Labels.HasLens "version" f s t a b) => - Lens.Family2.LensLike f s t a b -version - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "version") diff --git a/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Protobuf/TensorBundle.hs b/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Protobuf/TensorBundle.hs deleted file mode 100644 --- a/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Protobuf/TensorBundle.hs +++ /dev/null @@ -1,457 +0,0 @@ -{- This file was auto-generated from tensorflow/core/protobuf/tensor_bundle.proto by the proto-lens-protoc program. -} -{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies, - UndecidableInstances, MultiParamTypeClasses, FlexibleContexts, - FlexibleInstances, PatternSynonyms, MagicHash, NoImplicitPrelude - #-} -{-# OPTIONS_GHC -fno-warn-unused-imports#-} -module Proto.Tensorflow.Core.Protobuf.TensorBundle where -import qualified Data.ProtoLens.Reexport.Prelude as Prelude -import qualified Data.ProtoLens.Reexport.Data.Int as Data.Int -import qualified Data.ProtoLens.Reexport.Data.Word as Data.Word -import qualified Data.ProtoLens.Reexport.Data.ProtoLens - as Data.ProtoLens -import qualified - Data.ProtoLens.Reexport.Data.ProtoLens.Message.Enum - as Data.ProtoLens.Message.Enum -import qualified Data.ProtoLens.Reexport.Lens.Family2 - as Lens.Family2 -import qualified Data.ProtoLens.Reexport.Lens.Family2.Unchecked - as Lens.Family2.Unchecked -import qualified Data.ProtoLens.Reexport.Data.Default.Class - as Data.Default.Class -import qualified Data.ProtoLens.Reexport.Data.Text as Data.Text -import qualified Data.ProtoLens.Reexport.Data.Map as Data.Map -import qualified Data.ProtoLens.Reexport.Data.ByteString - as Data.ByteString -import qualified Data.ProtoLens.Reexport.Lens.Labels as Lens.Labels -import qualified Proto.Tensorflow.Core.Framework.TensorShape -import qualified Proto.Tensorflow.Core.Framework.TensorSlice -import qualified Proto.Tensorflow.Core.Framework.Types -import qualified Proto.Tensorflow.Core.Framework.Versions - -data BundleEntryProto = BundleEntryProto{_BundleEntryProto'dtype :: - !Proto.Tensorflow.Core.Framework.Types.DataType, - _BundleEntryProto'shape :: - !(Prelude.Maybe - Proto.Tensorflow.Core.Framework.TensorShape.TensorShapeProto), - _BundleEntryProto'shardId :: !Data.Int.Int32, - _BundleEntryProto'offset :: !Data.Int.Int64, - _BundleEntryProto'size :: !Data.Int.Int64, - _BundleEntryProto'crc32c :: !Data.Word.Word32, - _BundleEntryProto'slices :: - ![Proto.Tensorflow.Core.Framework.TensorSlice.TensorSliceProto]} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Proto.Tensorflow.Core.Framework.Types.DataType, - b ~ Proto.Tensorflow.Core.Framework.Types.DataType, - Prelude.Functor f) => - Lens.Labels.HasLens "dtype" f BundleEntryProto BundleEntryProto a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _BundleEntryProto'dtype - (\ x__ y__ -> x__{_BundleEntryProto'dtype = y__})) - Prelude.id - -instance (a ~ - Proto.Tensorflow.Core.Framework.TensorShape.TensorShapeProto, - b ~ Proto.Tensorflow.Core.Framework.TensorShape.TensorShapeProto, - Prelude.Functor f) => - Lens.Labels.HasLens "shape" f BundleEntryProto BundleEntryProto a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _BundleEntryProto'shape - (\ x__ y__ -> x__{_BundleEntryProto'shape = y__})) - (Data.ProtoLens.maybeLens Data.Default.Class.def) - -instance (a ~ - Prelude.Maybe - Proto.Tensorflow.Core.Framework.TensorShape.TensorShapeProto, - b ~ - Prelude.Maybe - Proto.Tensorflow.Core.Framework.TensorShape.TensorShapeProto, - Prelude.Functor f) => - Lens.Labels.HasLens "maybe'shape" f BundleEntryProto - BundleEntryProto - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _BundleEntryProto'shape - (\ x__ y__ -> x__{_BundleEntryProto'shape = y__})) - Prelude.id - -instance (a ~ Data.Int.Int32, b ~ Data.Int.Int32, - Prelude.Functor f) => - Lens.Labels.HasLens "shardId" f BundleEntryProto BundleEntryProto a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _BundleEntryProto'shardId - (\ x__ y__ -> x__{_BundleEntryProto'shardId = y__})) - Prelude.id - -instance (a ~ Data.Int.Int64, b ~ Data.Int.Int64, - Prelude.Functor f) => - Lens.Labels.HasLens "offset" f BundleEntryProto BundleEntryProto a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _BundleEntryProto'offset - (\ x__ y__ -> x__{_BundleEntryProto'offset = y__})) - Prelude.id - -instance (a ~ Data.Int.Int64, b ~ Data.Int.Int64, - Prelude.Functor f) => - Lens.Labels.HasLens "size" f BundleEntryProto BundleEntryProto a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _BundleEntryProto'size - (\ x__ y__ -> x__{_BundleEntryProto'size = y__})) - Prelude.id - -instance (a ~ Data.Word.Word32, b ~ Data.Word.Word32, - Prelude.Functor f) => - Lens.Labels.HasLens "crc32c" f BundleEntryProto BundleEntryProto a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _BundleEntryProto'crc32c - (\ x__ y__ -> x__{_BundleEntryProto'crc32c = y__})) - Prelude.id - -instance (a ~ - [Proto.Tensorflow.Core.Framework.TensorSlice.TensorSliceProto], - b ~ [Proto.Tensorflow.Core.Framework.TensorSlice.TensorSliceProto], - Prelude.Functor f) => - Lens.Labels.HasLens "slices" f BundleEntryProto BundleEntryProto a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _BundleEntryProto'slices - (\ x__ y__ -> x__{_BundleEntryProto'slices = y__})) - Prelude.id - -instance Data.Default.Class.Default BundleEntryProto where - def - = BundleEntryProto{_BundleEntryProto'dtype = - Data.Default.Class.def, - _BundleEntryProto'shape = Prelude.Nothing, - _BundleEntryProto'shardId = Data.ProtoLens.fieldDefault, - _BundleEntryProto'offset = Data.ProtoLens.fieldDefault, - _BundleEntryProto'size = Data.ProtoLens.fieldDefault, - _BundleEntryProto'crc32c = Data.ProtoLens.fieldDefault, - _BundleEntryProto'slices = []} - -instance Data.ProtoLens.Message BundleEntryProto where - descriptor - = let dtype__field_descriptor - = Data.ProtoLens.FieldDescriptor "dtype" - (Data.ProtoLens.EnumField :: - Data.ProtoLens.FieldTypeDescriptor - Proto.Tensorflow.Core.Framework.Types.DataType) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional dtype) - :: Data.ProtoLens.FieldDescriptor BundleEntryProto - shape__field_descriptor - = Data.ProtoLens.FieldDescriptor "shape" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor - Proto.Tensorflow.Core.Framework.TensorShape.TensorShapeProto) - (Data.ProtoLens.OptionalField maybe'shape) - :: Data.ProtoLens.FieldDescriptor BundleEntryProto - shardId__field_descriptor - = Data.ProtoLens.FieldDescriptor "shard_id" - (Data.ProtoLens.Int32Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional shardId) - :: Data.ProtoLens.FieldDescriptor BundleEntryProto - offset__field_descriptor - = Data.ProtoLens.FieldDescriptor "offset" - (Data.ProtoLens.Int64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional offset) - :: Data.ProtoLens.FieldDescriptor BundleEntryProto - size__field_descriptor - = Data.ProtoLens.FieldDescriptor "size" - (Data.ProtoLens.Int64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional size) - :: Data.ProtoLens.FieldDescriptor BundleEntryProto - crc32c__field_descriptor - = Data.ProtoLens.FieldDescriptor "crc32c" - (Data.ProtoLens.Fixed32Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional crc32c) - :: Data.ProtoLens.FieldDescriptor BundleEntryProto - slices__field_descriptor - = Data.ProtoLens.FieldDescriptor "slices" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor - Proto.Tensorflow.Core.Framework.TensorSlice.TensorSliceProto) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked slices) - :: Data.ProtoLens.FieldDescriptor BundleEntryProto - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.BundleEntryProto") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, dtype__field_descriptor), - (Data.ProtoLens.Tag 2, shape__field_descriptor), - (Data.ProtoLens.Tag 3, shardId__field_descriptor), - (Data.ProtoLens.Tag 4, offset__field_descriptor), - (Data.ProtoLens.Tag 5, size__field_descriptor), - (Data.ProtoLens.Tag 6, crc32c__field_descriptor), - (Data.ProtoLens.Tag 7, slices__field_descriptor)]) - (Data.Map.fromList - [("dtype", dtype__field_descriptor), - ("shape", shape__field_descriptor), - ("shard_id", shardId__field_descriptor), - ("offset", offset__field_descriptor), - ("size", size__field_descriptor), - ("crc32c", crc32c__field_descriptor), - ("slices", slices__field_descriptor)]) - -data BundleHeaderProto = BundleHeaderProto{_BundleHeaderProto'numShards - :: !Data.Int.Int32, - _BundleHeaderProto'endianness :: - !BundleHeaderProto'Endianness, - _BundleHeaderProto'version :: - !(Prelude.Maybe - Proto.Tensorflow.Core.Framework.Versions.VersionDef)} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Data.Int.Int32, b ~ Data.Int.Int32, - Prelude.Functor f) => - Lens.Labels.HasLens "numShards" f BundleHeaderProto - BundleHeaderProto - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _BundleHeaderProto'numShards - (\ x__ y__ -> x__{_BundleHeaderProto'numShards = y__})) - Prelude.id - -instance (a ~ BundleHeaderProto'Endianness, - b ~ BundleHeaderProto'Endianness, Prelude.Functor f) => - Lens.Labels.HasLens "endianness" f BundleHeaderProto - BundleHeaderProto - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _BundleHeaderProto'endianness - (\ x__ y__ -> x__{_BundleHeaderProto'endianness = y__})) - Prelude.id - -instance (a ~ Proto.Tensorflow.Core.Framework.Versions.VersionDef, - b ~ Proto.Tensorflow.Core.Framework.Versions.VersionDef, - Prelude.Functor f) => - Lens.Labels.HasLens "version" f BundleHeaderProto BundleHeaderProto - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _BundleHeaderProto'version - (\ x__ y__ -> x__{_BundleHeaderProto'version = y__})) - (Data.ProtoLens.maybeLens Data.Default.Class.def) - -instance (a ~ - Prelude.Maybe Proto.Tensorflow.Core.Framework.Versions.VersionDef, - b ~ - Prelude.Maybe Proto.Tensorflow.Core.Framework.Versions.VersionDef, - Prelude.Functor f) => - Lens.Labels.HasLens "maybe'version" f BundleHeaderProto - BundleHeaderProto - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _BundleHeaderProto'version - (\ x__ y__ -> x__{_BundleHeaderProto'version = y__})) - Prelude.id - -instance Data.Default.Class.Default BundleHeaderProto where - def - = BundleHeaderProto{_BundleHeaderProto'numShards = - Data.ProtoLens.fieldDefault, - _BundleHeaderProto'endianness = Data.Default.Class.def, - _BundleHeaderProto'version = Prelude.Nothing} - -instance Data.ProtoLens.Message BundleHeaderProto where - descriptor - = let numShards__field_descriptor - = Data.ProtoLens.FieldDescriptor "num_shards" - (Data.ProtoLens.Int32Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional numShards) - :: Data.ProtoLens.FieldDescriptor BundleHeaderProto - endianness__field_descriptor - = Data.ProtoLens.FieldDescriptor "endianness" - (Data.ProtoLens.EnumField :: - Data.ProtoLens.FieldTypeDescriptor BundleHeaderProto'Endianness) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional endianness) - :: Data.ProtoLens.FieldDescriptor BundleHeaderProto - version__field_descriptor - = Data.ProtoLens.FieldDescriptor "version" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor - Proto.Tensorflow.Core.Framework.Versions.VersionDef) - (Data.ProtoLens.OptionalField maybe'version) - :: Data.ProtoLens.FieldDescriptor BundleHeaderProto - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.BundleHeaderProto") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, numShards__field_descriptor), - (Data.ProtoLens.Tag 2, endianness__field_descriptor), - (Data.ProtoLens.Tag 3, version__field_descriptor)]) - (Data.Map.fromList - [("num_shards", numShards__field_descriptor), - ("endianness", endianness__field_descriptor), - ("version", version__field_descriptor)]) - -data BundleHeaderProto'Endianness = BundleHeaderProto'LITTLE - | BundleHeaderProto'BIG - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance Data.Default.Class.Default BundleHeaderProto'Endianness - where - def = BundleHeaderProto'LITTLE - -instance Data.ProtoLens.FieldDefault BundleHeaderProto'Endianness - where - fieldDefault = BundleHeaderProto'LITTLE - -instance Data.ProtoLens.MessageEnum BundleHeaderProto'Endianness - where - maybeToEnum 0 = Prelude.Just BundleHeaderProto'LITTLE - maybeToEnum 1 = Prelude.Just BundleHeaderProto'BIG - maybeToEnum _ = Prelude.Nothing - showEnum BundleHeaderProto'LITTLE = "LITTLE" - showEnum BundleHeaderProto'BIG = "BIG" - readEnum "LITTLE" = Prelude.Just BundleHeaderProto'LITTLE - readEnum "BIG" = Prelude.Just BundleHeaderProto'BIG - readEnum _ = Prelude.Nothing - -instance Prelude.Enum BundleHeaderProto'Endianness where - toEnum k__ - = Prelude.maybe - (Prelude.error - ((Prelude.++) "toEnum: unknown value for enum Endianness: " - (Prelude.show k__))) - Prelude.id - (Data.ProtoLens.maybeToEnum k__) - fromEnum BundleHeaderProto'LITTLE = 0 - fromEnum BundleHeaderProto'BIG = 1 - succ BundleHeaderProto'BIG - = Prelude.error - "BundleHeaderProto'Endianness.succ: bad argument BundleHeaderProto'BIG. This value would be out of bounds." - succ BundleHeaderProto'LITTLE = BundleHeaderProto'BIG - pred BundleHeaderProto'LITTLE - = Prelude.error - "BundleHeaderProto'Endianness.pred: bad argument BundleHeaderProto'LITTLE. This value would be out of bounds." - pred BundleHeaderProto'BIG = BundleHeaderProto'LITTLE - enumFrom = Data.ProtoLens.Message.Enum.messageEnumFrom - enumFromTo = Data.ProtoLens.Message.Enum.messageEnumFromTo - enumFromThen = Data.ProtoLens.Message.Enum.messageEnumFromThen - enumFromThenTo = Data.ProtoLens.Message.Enum.messageEnumFromThenTo - -instance Prelude.Bounded BundleHeaderProto'Endianness where - minBound = BundleHeaderProto'LITTLE - maxBound = BundleHeaderProto'BIG - -crc32c :: - forall f s t a b . (Lens.Labels.HasLens "crc32c" f s t a b) => - Lens.Family2.LensLike f s t a b -crc32c - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "crc32c") - -dtype :: - forall f s t a b . (Lens.Labels.HasLens "dtype" f s t a b) => - Lens.Family2.LensLike f s t a b -dtype - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "dtype") - -endianness :: - forall f s t a b . (Lens.Labels.HasLens "endianness" f s t a b) => - Lens.Family2.LensLike f s t a b -endianness - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "endianness") - -maybe'shape :: - forall f s t a b . (Lens.Labels.HasLens "maybe'shape" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'shape - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'shape") - -maybe'version :: - forall f s t a b . - (Lens.Labels.HasLens "maybe'version" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'version - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'version") - -numShards :: - forall f s t a b . (Lens.Labels.HasLens "numShards" f s t a b) => - Lens.Family2.LensLike f s t a b -numShards - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "numShards") - -offset :: - forall f s t a b . (Lens.Labels.HasLens "offset" f s t a b) => - Lens.Family2.LensLike f s t a b -offset - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "offset") - -shape :: - forall f s t a b . (Lens.Labels.HasLens "shape" f s t a b) => - Lens.Family2.LensLike f s t a b -shape - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "shape") - -shardId :: - forall f s t a b . (Lens.Labels.HasLens "shardId" f s t a b) => - Lens.Family2.LensLike f s t a b -shardId - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "shardId") - -size :: - forall f s t a b . (Lens.Labels.HasLens "size" f s t a b) => - Lens.Family2.LensLike f s t a b -size - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "size") - -slices :: - forall f s t a b . (Lens.Labels.HasLens "slices" f s t a b) => - Lens.Family2.LensLike f s t a b -slices - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "slices") - -version :: - forall f s t a b . (Lens.Labels.HasLens "version" f s t a b) => - Lens.Family2.LensLike f s t a b -version - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "version") diff --git a/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Protobuf/TensorflowServer.hs b/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Protobuf/TensorflowServer.hs deleted file mode 100644 --- a/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Protobuf/TensorflowServer.hs +++ /dev/null @@ -1,231 +0,0 @@ -{- This file was auto-generated from tensorflow/core/protobuf/tensorflow_server.proto by the proto-lens-protoc program. -} -{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies, - UndecidableInstances, MultiParamTypeClasses, FlexibleContexts, - FlexibleInstances, PatternSynonyms, MagicHash, NoImplicitPrelude - #-} -{-# OPTIONS_GHC -fno-warn-unused-imports#-} -module Proto.Tensorflow.Core.Protobuf.TensorflowServer where -import qualified Data.ProtoLens.Reexport.Prelude as Prelude -import qualified Data.ProtoLens.Reexport.Data.Int as Data.Int -import qualified Data.ProtoLens.Reexport.Data.Word as Data.Word -import qualified Data.ProtoLens.Reexport.Data.ProtoLens - as Data.ProtoLens -import qualified - Data.ProtoLens.Reexport.Data.ProtoLens.Message.Enum - as Data.ProtoLens.Message.Enum -import qualified Data.ProtoLens.Reexport.Lens.Family2 - as Lens.Family2 -import qualified Data.ProtoLens.Reexport.Lens.Family2.Unchecked - as Lens.Family2.Unchecked -import qualified Data.ProtoLens.Reexport.Data.Default.Class - as Data.Default.Class -import qualified Data.ProtoLens.Reexport.Data.Text as Data.Text -import qualified Data.ProtoLens.Reexport.Data.Map as Data.Map -import qualified Data.ProtoLens.Reexport.Data.ByteString - as Data.ByteString -import qualified Data.ProtoLens.Reexport.Lens.Labels as Lens.Labels -import qualified Proto.Tensorflow.Core.Protobuf.Cluster -import qualified Proto.Tensorflow.Core.Protobuf.Config - -data ServerDef = ServerDef{_ServerDef'cluster :: - !(Prelude.Maybe Proto.Tensorflow.Core.Protobuf.Cluster.ClusterDef), - _ServerDef'jobName :: !Data.Text.Text, - _ServerDef'taskIndex :: !Data.Int.Int32, - _ServerDef'defaultSessionConfig :: - !(Prelude.Maybe Proto.Tensorflow.Core.Protobuf.Config.ConfigProto), - _ServerDef'protocol :: !Data.Text.Text} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Proto.Tensorflow.Core.Protobuf.Cluster.ClusterDef, - b ~ Proto.Tensorflow.Core.Protobuf.Cluster.ClusterDef, - Prelude.Functor f) => - Lens.Labels.HasLens "cluster" f ServerDef ServerDef a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _ServerDef'cluster - (\ x__ y__ -> x__{_ServerDef'cluster = y__})) - (Data.ProtoLens.maybeLens Data.Default.Class.def) - -instance (a ~ - Prelude.Maybe Proto.Tensorflow.Core.Protobuf.Cluster.ClusterDef, - b ~ - Prelude.Maybe Proto.Tensorflow.Core.Protobuf.Cluster.ClusterDef, - Prelude.Functor f) => - Lens.Labels.HasLens "maybe'cluster" f ServerDef ServerDef a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _ServerDef'cluster - (\ x__ y__ -> x__{_ServerDef'cluster = y__})) - Prelude.id - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "jobName" f ServerDef ServerDef a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _ServerDef'jobName - (\ x__ y__ -> x__{_ServerDef'jobName = y__})) - Prelude.id - -instance (a ~ Data.Int.Int32, b ~ Data.Int.Int32, - Prelude.Functor f) => - Lens.Labels.HasLens "taskIndex" f ServerDef ServerDef a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _ServerDef'taskIndex - (\ x__ y__ -> x__{_ServerDef'taskIndex = y__})) - Prelude.id - -instance (a ~ Proto.Tensorflow.Core.Protobuf.Config.ConfigProto, - b ~ Proto.Tensorflow.Core.Protobuf.Config.ConfigProto, - Prelude.Functor f) => - Lens.Labels.HasLens "defaultSessionConfig" f ServerDef ServerDef a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _ServerDef'defaultSessionConfig - (\ x__ y__ -> x__{_ServerDef'defaultSessionConfig = y__})) - (Data.ProtoLens.maybeLens Data.Default.Class.def) - -instance (a ~ - Prelude.Maybe Proto.Tensorflow.Core.Protobuf.Config.ConfigProto, - b ~ - Prelude.Maybe Proto.Tensorflow.Core.Protobuf.Config.ConfigProto, - Prelude.Functor f) => - Lens.Labels.HasLens "maybe'defaultSessionConfig" f ServerDef - ServerDef - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _ServerDef'defaultSessionConfig - (\ x__ y__ -> x__{_ServerDef'defaultSessionConfig = y__})) - Prelude.id - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "protocol" f ServerDef ServerDef a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _ServerDef'protocol - (\ x__ y__ -> x__{_ServerDef'protocol = y__})) - Prelude.id - -instance Data.Default.Class.Default ServerDef where - def - = ServerDef{_ServerDef'cluster = Prelude.Nothing, - _ServerDef'jobName = Data.ProtoLens.fieldDefault, - _ServerDef'taskIndex = Data.ProtoLens.fieldDefault, - _ServerDef'defaultSessionConfig = Prelude.Nothing, - _ServerDef'protocol = Data.ProtoLens.fieldDefault} - -instance Data.ProtoLens.Message ServerDef where - descriptor - = let cluster__field_descriptor - = Data.ProtoLens.FieldDescriptor "cluster" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor - Proto.Tensorflow.Core.Protobuf.Cluster.ClusterDef) - (Data.ProtoLens.OptionalField maybe'cluster) - :: Data.ProtoLens.FieldDescriptor ServerDef - jobName__field_descriptor - = Data.ProtoLens.FieldDescriptor "job_name" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional jobName) - :: Data.ProtoLens.FieldDescriptor ServerDef - taskIndex__field_descriptor - = Data.ProtoLens.FieldDescriptor "task_index" - (Data.ProtoLens.Int32Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional taskIndex) - :: Data.ProtoLens.FieldDescriptor ServerDef - defaultSessionConfig__field_descriptor - = Data.ProtoLens.FieldDescriptor "default_session_config" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor - Proto.Tensorflow.Core.Protobuf.Config.ConfigProto) - (Data.ProtoLens.OptionalField maybe'defaultSessionConfig) - :: Data.ProtoLens.FieldDescriptor ServerDef - protocol__field_descriptor - = Data.ProtoLens.FieldDescriptor "protocol" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional protocol) - :: Data.ProtoLens.FieldDescriptor ServerDef - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.ServerDef") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, cluster__field_descriptor), - (Data.ProtoLens.Tag 2, jobName__field_descriptor), - (Data.ProtoLens.Tag 3, taskIndex__field_descriptor), - (Data.ProtoLens.Tag 4, defaultSessionConfig__field_descriptor), - (Data.ProtoLens.Tag 5, protocol__field_descriptor)]) - (Data.Map.fromList - [("cluster", cluster__field_descriptor), - ("job_name", jobName__field_descriptor), - ("task_index", taskIndex__field_descriptor), - ("default_session_config", defaultSessionConfig__field_descriptor), - ("protocol", protocol__field_descriptor)]) - -cluster :: - forall f s t a b . (Lens.Labels.HasLens "cluster" f s t a b) => - Lens.Family2.LensLike f s t a b -cluster - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "cluster") - -defaultSessionConfig :: - forall f s t a b . - (Lens.Labels.HasLens "defaultSessionConfig" f s t a b) => - Lens.Family2.LensLike f s t a b -defaultSessionConfig - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: - (Lens.Labels.Proxy#) "defaultSessionConfig") - -jobName :: - forall f s t a b . (Lens.Labels.HasLens "jobName" f s t a b) => - Lens.Family2.LensLike f s t a b -jobName - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "jobName") - -maybe'cluster :: - forall f s t a b . - (Lens.Labels.HasLens "maybe'cluster" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'cluster - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'cluster") - -maybe'defaultSessionConfig :: - forall f s t a b . - (Lens.Labels.HasLens "maybe'defaultSessionConfig" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'defaultSessionConfig - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: - (Lens.Labels.Proxy#) "maybe'defaultSessionConfig") - -protocol :: - forall f s t a b . (Lens.Labels.HasLens "protocol" f s t a b) => - Lens.Family2.LensLike f s t a b -protocol - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "protocol") - -taskIndex :: - forall f s t a b . (Lens.Labels.HasLens "taskIndex" f s t a b) => - Lens.Family2.LensLike f s t a b -taskIndex - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "taskIndex") diff --git a/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Util/Event.hs b/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Util/Event.hs deleted file mode 100644 --- a/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Util/Event.hs +++ /dev/null @@ -1,1244 +0,0 @@ -{- This file was auto-generated from tensorflow/core/util/event.proto by the proto-lens-protoc program. -} -{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies, - UndecidableInstances, MultiParamTypeClasses, FlexibleContexts, - FlexibleInstances, PatternSynonyms, MagicHash, NoImplicitPrelude - #-} -{-# OPTIONS_GHC -fno-warn-unused-imports#-} -module Proto.Tensorflow.Core.Util.Event where -import qualified Data.ProtoLens.Reexport.Prelude as Prelude -import qualified Data.ProtoLens.Reexport.Data.Int as Data.Int -import qualified Data.ProtoLens.Reexport.Data.Word as Data.Word -import qualified Data.ProtoLens.Reexport.Data.ProtoLens - as Data.ProtoLens -import qualified - Data.ProtoLens.Reexport.Data.ProtoLens.Message.Enum - as Data.ProtoLens.Message.Enum -import qualified Data.ProtoLens.Reexport.Lens.Family2 - as Lens.Family2 -import qualified Data.ProtoLens.Reexport.Lens.Family2.Unchecked - as Lens.Family2.Unchecked -import qualified Data.ProtoLens.Reexport.Data.Default.Class - as Data.Default.Class -import qualified Data.ProtoLens.Reexport.Data.Text as Data.Text -import qualified Data.ProtoLens.Reexport.Data.Map as Data.Map -import qualified Data.ProtoLens.Reexport.Data.ByteString - as Data.ByteString -import qualified Data.ProtoLens.Reexport.Lens.Labels as Lens.Labels -import qualified Proto.Tensorflow.Core.Framework.Summary - -data Event = Event{_Event'wallTime :: !Prelude.Double, - _Event'step :: !Data.Int.Int64, - _Event'what :: !(Prelude.Maybe Event'What)} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -data Event'What = Event'FileVersion !Data.Text.Text - | Event'GraphDef !Data.ByteString.ByteString - | Event'Summary !Proto.Tensorflow.Core.Framework.Summary.Summary - | Event'LogMessage !LogMessage - | Event'SessionLog !SessionLog - | Event'TaggedRunMetadata !TaggedRunMetadata - | Event'MetaGraphDef !Data.ByteString.ByteString - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Prelude.Double, b ~ Prelude.Double, - Prelude.Functor f) => - Lens.Labels.HasLens "wallTime" f Event Event a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _Event'wallTime - (\ x__ y__ -> x__{_Event'wallTime = y__})) - Prelude.id - -instance (a ~ Data.Int.Int64, b ~ Data.Int.Int64, - Prelude.Functor f) => - Lens.Labels.HasLens "step" f Event Event a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _Event'step - (\ x__ y__ -> x__{_Event'step = y__})) - Prelude.id - -instance (a ~ Prelude.Maybe Event'What, - b ~ Prelude.Maybe Event'What, Prelude.Functor f) => - Lens.Labels.HasLens "maybe'what" f Event Event a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _Event'what - (\ x__ y__ -> x__{_Event'what = y__})) - Prelude.id - -instance (a ~ Prelude.Maybe Data.Text.Text, - b ~ Prelude.Maybe Data.Text.Text, Prelude.Functor f) => - Lens.Labels.HasLens "maybe'fileVersion" f Event Event a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _Event'what - (\ x__ y__ -> x__{_Event'what = y__})) - (Lens.Family2.Unchecked.lens - (\ x__ -> - case x__ of - Prelude.Just (Event'FileVersion x__val) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap Event'FileVersion y__)) - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "fileVersion" f Event Event a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _Event'what - (\ x__ y__ -> x__{_Event'what = y__})) - ((Prelude..) - (Lens.Family2.Unchecked.lens - (\ x__ -> - case x__ of - Prelude.Just (Event'FileVersion x__val) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap Event'FileVersion y__)) - (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)) - -instance (a ~ Prelude.Maybe Data.ByteString.ByteString, - b ~ Prelude.Maybe Data.ByteString.ByteString, Prelude.Functor f) => - Lens.Labels.HasLens "maybe'graphDef" f Event Event a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _Event'what - (\ x__ y__ -> x__{_Event'what = y__})) - (Lens.Family2.Unchecked.lens - (\ x__ -> - case x__ of - Prelude.Just (Event'GraphDef x__val) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap Event'GraphDef y__)) - -instance (a ~ Data.ByteString.ByteString, - b ~ Data.ByteString.ByteString, Prelude.Functor f) => - Lens.Labels.HasLens "graphDef" f Event Event a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _Event'what - (\ x__ y__ -> x__{_Event'what = y__})) - ((Prelude..) - (Lens.Family2.Unchecked.lens - (\ x__ -> - case x__ of - Prelude.Just (Event'GraphDef x__val) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap Event'GraphDef y__)) - (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)) - -instance (a ~ - Prelude.Maybe Proto.Tensorflow.Core.Framework.Summary.Summary, - b ~ Prelude.Maybe Proto.Tensorflow.Core.Framework.Summary.Summary, - Prelude.Functor f) => - Lens.Labels.HasLens "maybe'summary" f Event Event a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _Event'what - (\ x__ y__ -> x__{_Event'what = y__})) - (Lens.Family2.Unchecked.lens - (\ x__ -> - case x__ of - Prelude.Just (Event'Summary x__val) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap Event'Summary y__)) - -instance (a ~ Proto.Tensorflow.Core.Framework.Summary.Summary, - b ~ Proto.Tensorflow.Core.Framework.Summary.Summary, - Prelude.Functor f) => - Lens.Labels.HasLens "summary" f Event Event a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _Event'what - (\ x__ y__ -> x__{_Event'what = y__})) - ((Prelude..) - (Lens.Family2.Unchecked.lens - (\ x__ -> - case x__ of - Prelude.Just (Event'Summary x__val) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap Event'Summary y__)) - (Data.ProtoLens.maybeLens Data.Default.Class.def)) - -instance (a ~ Prelude.Maybe LogMessage, - b ~ Prelude.Maybe LogMessage, Prelude.Functor f) => - Lens.Labels.HasLens "maybe'logMessage" f Event Event a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _Event'what - (\ x__ y__ -> x__{_Event'what = y__})) - (Lens.Family2.Unchecked.lens - (\ x__ -> - case x__ of - Prelude.Just (Event'LogMessage x__val) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap Event'LogMessage y__)) - -instance (a ~ LogMessage, b ~ LogMessage, Prelude.Functor f) => - Lens.Labels.HasLens "logMessage" f Event Event a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _Event'what - (\ x__ y__ -> x__{_Event'what = y__})) - ((Prelude..) - (Lens.Family2.Unchecked.lens - (\ x__ -> - case x__ of - Prelude.Just (Event'LogMessage x__val) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap Event'LogMessage y__)) - (Data.ProtoLens.maybeLens Data.Default.Class.def)) - -instance (a ~ Prelude.Maybe SessionLog, - b ~ Prelude.Maybe SessionLog, Prelude.Functor f) => - Lens.Labels.HasLens "maybe'sessionLog" f Event Event a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _Event'what - (\ x__ y__ -> x__{_Event'what = y__})) - (Lens.Family2.Unchecked.lens - (\ x__ -> - case x__ of - Prelude.Just (Event'SessionLog x__val) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap Event'SessionLog y__)) - -instance (a ~ SessionLog, b ~ SessionLog, Prelude.Functor f) => - Lens.Labels.HasLens "sessionLog" f Event Event a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _Event'what - (\ x__ y__ -> x__{_Event'what = y__})) - ((Prelude..) - (Lens.Family2.Unchecked.lens - (\ x__ -> - case x__ of - Prelude.Just (Event'SessionLog x__val) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap Event'SessionLog y__)) - (Data.ProtoLens.maybeLens Data.Default.Class.def)) - -instance (a ~ Prelude.Maybe TaggedRunMetadata, - b ~ Prelude.Maybe TaggedRunMetadata, Prelude.Functor f) => - Lens.Labels.HasLens "maybe'taggedRunMetadata" f Event Event a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _Event'what - (\ x__ y__ -> x__{_Event'what = y__})) - (Lens.Family2.Unchecked.lens - (\ x__ -> - case x__ of - Prelude.Just (Event'TaggedRunMetadata x__val) -> Prelude.Just - x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap Event'TaggedRunMetadata y__)) - -instance (a ~ TaggedRunMetadata, b ~ TaggedRunMetadata, - Prelude.Functor f) => - Lens.Labels.HasLens "taggedRunMetadata" f Event Event a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _Event'what - (\ x__ y__ -> x__{_Event'what = y__})) - ((Prelude..) - (Lens.Family2.Unchecked.lens - (\ x__ -> - case x__ of - Prelude.Just (Event'TaggedRunMetadata x__val) -> Prelude.Just - x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap Event'TaggedRunMetadata y__)) - (Data.ProtoLens.maybeLens Data.Default.Class.def)) - -instance (a ~ Prelude.Maybe Data.ByteString.ByteString, - b ~ Prelude.Maybe Data.ByteString.ByteString, Prelude.Functor f) => - Lens.Labels.HasLens "maybe'metaGraphDef" f Event Event a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _Event'what - (\ x__ y__ -> x__{_Event'what = y__})) - (Lens.Family2.Unchecked.lens - (\ x__ -> - case x__ of - Prelude.Just (Event'MetaGraphDef x__val) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap Event'MetaGraphDef y__)) - -instance (a ~ Data.ByteString.ByteString, - b ~ Data.ByteString.ByteString, Prelude.Functor f) => - Lens.Labels.HasLens "metaGraphDef" f Event Event a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _Event'what - (\ x__ y__ -> x__{_Event'what = y__})) - ((Prelude..) - (Lens.Family2.Unchecked.lens - (\ x__ -> - case x__ of - Prelude.Just (Event'MetaGraphDef x__val) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap Event'MetaGraphDef y__)) - (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)) - -instance Data.Default.Class.Default Event where - def - = Event{_Event'wallTime = Data.ProtoLens.fieldDefault, - _Event'step = Data.ProtoLens.fieldDefault, - _Event'what = Prelude.Nothing} - -instance Data.ProtoLens.Message Event where - descriptor - = let wallTime__field_descriptor - = Data.ProtoLens.FieldDescriptor "wall_time" - (Data.ProtoLens.DoubleField :: - Data.ProtoLens.FieldTypeDescriptor Prelude.Double) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional wallTime) - :: Data.ProtoLens.FieldDescriptor Event - step__field_descriptor - = Data.ProtoLens.FieldDescriptor "step" - (Data.ProtoLens.Int64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional step) - :: Data.ProtoLens.FieldDescriptor Event - fileVersion__field_descriptor - = Data.ProtoLens.FieldDescriptor "file_version" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.OptionalField maybe'fileVersion) - :: Data.ProtoLens.FieldDescriptor Event - graphDef__field_descriptor - = Data.ProtoLens.FieldDescriptor "graph_def" - (Data.ProtoLens.BytesField :: - Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) - (Data.ProtoLens.OptionalField maybe'graphDef) - :: Data.ProtoLens.FieldDescriptor Event - summary__field_descriptor - = Data.ProtoLens.FieldDescriptor "summary" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor - Proto.Tensorflow.Core.Framework.Summary.Summary) - (Data.ProtoLens.OptionalField maybe'summary) - :: Data.ProtoLens.FieldDescriptor Event - logMessage__field_descriptor - = Data.ProtoLens.FieldDescriptor "log_message" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor LogMessage) - (Data.ProtoLens.OptionalField maybe'logMessage) - :: Data.ProtoLens.FieldDescriptor Event - sessionLog__field_descriptor - = Data.ProtoLens.FieldDescriptor "session_log" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor SessionLog) - (Data.ProtoLens.OptionalField maybe'sessionLog) - :: Data.ProtoLens.FieldDescriptor Event - taggedRunMetadata__field_descriptor - = Data.ProtoLens.FieldDescriptor "tagged_run_metadata" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor TaggedRunMetadata) - (Data.ProtoLens.OptionalField maybe'taggedRunMetadata) - :: Data.ProtoLens.FieldDescriptor Event - metaGraphDef__field_descriptor - = Data.ProtoLens.FieldDescriptor "meta_graph_def" - (Data.ProtoLens.BytesField :: - Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) - (Data.ProtoLens.OptionalField maybe'metaGraphDef) - :: Data.ProtoLens.FieldDescriptor Event - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.Event") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, wallTime__field_descriptor), - (Data.ProtoLens.Tag 2, step__field_descriptor), - (Data.ProtoLens.Tag 3, fileVersion__field_descriptor), - (Data.ProtoLens.Tag 4, graphDef__field_descriptor), - (Data.ProtoLens.Tag 5, summary__field_descriptor), - (Data.ProtoLens.Tag 6, logMessage__field_descriptor), - (Data.ProtoLens.Tag 7, sessionLog__field_descriptor), - (Data.ProtoLens.Tag 8, taggedRunMetadata__field_descriptor), - (Data.ProtoLens.Tag 9, metaGraphDef__field_descriptor)]) - (Data.Map.fromList - [("wall_time", wallTime__field_descriptor), - ("step", step__field_descriptor), - ("file_version", fileVersion__field_descriptor), - ("graph_def", graphDef__field_descriptor), - ("summary", summary__field_descriptor), - ("log_message", logMessage__field_descriptor), - ("session_log", sessionLog__field_descriptor), - ("tagged_run_metadata", taggedRunMetadata__field_descriptor), - ("meta_graph_def", metaGraphDef__field_descriptor)]) - -data LogMessage = LogMessage{_LogMessage'level :: - !LogMessage'Level, - _LogMessage'message :: !Data.Text.Text} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ LogMessage'Level, b ~ LogMessage'Level, - Prelude.Functor f) => - Lens.Labels.HasLens "level" f LogMessage LogMessage a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _LogMessage'level - (\ x__ y__ -> x__{_LogMessage'level = y__})) - Prelude.id - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "message" f LogMessage LogMessage a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _LogMessage'message - (\ x__ y__ -> x__{_LogMessage'message = y__})) - Prelude.id - -instance Data.Default.Class.Default LogMessage where - def - = LogMessage{_LogMessage'level = Data.Default.Class.def, - _LogMessage'message = Data.ProtoLens.fieldDefault} - -instance Data.ProtoLens.Message LogMessage where - descriptor - = let level__field_descriptor - = Data.ProtoLens.FieldDescriptor "level" - (Data.ProtoLens.EnumField :: - Data.ProtoLens.FieldTypeDescriptor LogMessage'Level) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional level) - :: Data.ProtoLens.FieldDescriptor LogMessage - message__field_descriptor - = Data.ProtoLens.FieldDescriptor "message" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional message) - :: Data.ProtoLens.FieldDescriptor LogMessage - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.LogMessage") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, level__field_descriptor), - (Data.ProtoLens.Tag 2, message__field_descriptor)]) - (Data.Map.fromList - [("level", level__field_descriptor), - ("message", message__field_descriptor)]) - -data LogMessage'Level = LogMessage'UNKNOWN - | LogMessage'DEBUGGING - | LogMessage'INFO - | LogMessage'WARN - | LogMessage'ERROR - | LogMessage'FATAL - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance Data.Default.Class.Default LogMessage'Level where - def = LogMessage'UNKNOWN - -instance Data.ProtoLens.FieldDefault LogMessage'Level where - fieldDefault = LogMessage'UNKNOWN - -instance Data.ProtoLens.MessageEnum LogMessage'Level where - maybeToEnum 0 = Prelude.Just LogMessage'UNKNOWN - maybeToEnum 10 = Prelude.Just LogMessage'DEBUGGING - maybeToEnum 20 = Prelude.Just LogMessage'INFO - maybeToEnum 30 = Prelude.Just LogMessage'WARN - maybeToEnum 40 = Prelude.Just LogMessage'ERROR - maybeToEnum 50 = Prelude.Just LogMessage'FATAL - maybeToEnum _ = Prelude.Nothing - showEnum LogMessage'UNKNOWN = "UNKNOWN" - showEnum LogMessage'DEBUGGING = "DEBUGGING" - showEnum LogMessage'INFO = "INFO" - showEnum LogMessage'WARN = "WARN" - showEnum LogMessage'ERROR = "ERROR" - showEnum LogMessage'FATAL = "FATAL" - readEnum "UNKNOWN" = Prelude.Just LogMessage'UNKNOWN - readEnum "DEBUGGING" = Prelude.Just LogMessage'DEBUGGING - readEnum "INFO" = Prelude.Just LogMessage'INFO - readEnum "WARN" = Prelude.Just LogMessage'WARN - readEnum "ERROR" = Prelude.Just LogMessage'ERROR - readEnum "FATAL" = Prelude.Just LogMessage'FATAL - readEnum _ = Prelude.Nothing - -instance Prelude.Enum LogMessage'Level where - toEnum k__ - = Prelude.maybe - (Prelude.error - ((Prelude.++) "toEnum: unknown value for enum Level: " - (Prelude.show k__))) - Prelude.id - (Data.ProtoLens.maybeToEnum k__) - fromEnum LogMessage'UNKNOWN = 0 - fromEnum LogMessage'DEBUGGING = 10 - fromEnum LogMessage'INFO = 20 - fromEnum LogMessage'WARN = 30 - fromEnum LogMessage'ERROR = 40 - fromEnum LogMessage'FATAL = 50 - succ LogMessage'FATAL - = Prelude.error - "LogMessage'Level.succ: bad argument LogMessage'FATAL. This value would be out of bounds." - succ LogMessage'UNKNOWN = LogMessage'DEBUGGING - succ LogMessage'DEBUGGING = LogMessage'INFO - succ LogMessage'INFO = LogMessage'WARN - succ LogMessage'WARN = LogMessage'ERROR - succ LogMessage'ERROR = LogMessage'FATAL - pred LogMessage'UNKNOWN - = Prelude.error - "LogMessage'Level.pred: bad argument LogMessage'UNKNOWN. This value would be out of bounds." - pred LogMessage'DEBUGGING = LogMessage'UNKNOWN - pred LogMessage'INFO = LogMessage'DEBUGGING - pred LogMessage'WARN = LogMessage'INFO - pred LogMessage'ERROR = LogMessage'WARN - pred LogMessage'FATAL = LogMessage'ERROR - enumFrom = Data.ProtoLens.Message.Enum.messageEnumFrom - enumFromTo = Data.ProtoLens.Message.Enum.messageEnumFromTo - enumFromThen = Data.ProtoLens.Message.Enum.messageEnumFromThen - enumFromThenTo = Data.ProtoLens.Message.Enum.messageEnumFromThenTo - -instance Prelude.Bounded LogMessage'Level where - minBound = LogMessage'UNKNOWN - maxBound = LogMessage'FATAL - -data SessionLog = SessionLog{_SessionLog'status :: - !SessionLog'SessionStatus, - _SessionLog'checkpointPath :: !Data.Text.Text, - _SessionLog'msg :: !Data.Text.Text} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ SessionLog'SessionStatus, - b ~ SessionLog'SessionStatus, Prelude.Functor f) => - Lens.Labels.HasLens "status" f SessionLog SessionLog a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _SessionLog'status - (\ x__ y__ -> x__{_SessionLog'status = y__})) - Prelude.id - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "checkpointPath" f SessionLog SessionLog a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _SessionLog'checkpointPath - (\ x__ y__ -> x__{_SessionLog'checkpointPath = y__})) - Prelude.id - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "msg" f SessionLog SessionLog a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _SessionLog'msg - (\ x__ y__ -> x__{_SessionLog'msg = y__})) - Prelude.id - -instance Data.Default.Class.Default SessionLog where - def - = SessionLog{_SessionLog'status = Data.Default.Class.def, - _SessionLog'checkpointPath = Data.ProtoLens.fieldDefault, - _SessionLog'msg = Data.ProtoLens.fieldDefault} - -instance Data.ProtoLens.Message SessionLog where - descriptor - = let status__field_descriptor - = Data.ProtoLens.FieldDescriptor "status" - (Data.ProtoLens.EnumField :: - Data.ProtoLens.FieldTypeDescriptor SessionLog'SessionStatus) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional status) - :: Data.ProtoLens.FieldDescriptor SessionLog - checkpointPath__field_descriptor - = Data.ProtoLens.FieldDescriptor "checkpoint_path" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional checkpointPath) - :: Data.ProtoLens.FieldDescriptor SessionLog - msg__field_descriptor - = Data.ProtoLens.FieldDescriptor "msg" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional msg) - :: Data.ProtoLens.FieldDescriptor SessionLog - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.SessionLog") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, status__field_descriptor), - (Data.ProtoLens.Tag 2, checkpointPath__field_descriptor), - (Data.ProtoLens.Tag 3, msg__field_descriptor)]) - (Data.Map.fromList - [("status", status__field_descriptor), - ("checkpoint_path", checkpointPath__field_descriptor), - ("msg", msg__field_descriptor)]) - -data SessionLog'SessionStatus = SessionLog'STATUS_UNSPECIFIED - | SessionLog'START - | SessionLog'STOP - | SessionLog'CHECKPOINT - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance Data.Default.Class.Default SessionLog'SessionStatus where - def = SessionLog'STATUS_UNSPECIFIED - -instance Data.ProtoLens.FieldDefault SessionLog'SessionStatus where - fieldDefault = SessionLog'STATUS_UNSPECIFIED - -instance Data.ProtoLens.MessageEnum SessionLog'SessionStatus where - maybeToEnum 0 = Prelude.Just SessionLog'STATUS_UNSPECIFIED - maybeToEnum 1 = Prelude.Just SessionLog'START - maybeToEnum 2 = Prelude.Just SessionLog'STOP - maybeToEnum 3 = Prelude.Just SessionLog'CHECKPOINT - maybeToEnum _ = Prelude.Nothing - showEnum SessionLog'STATUS_UNSPECIFIED = "STATUS_UNSPECIFIED" - showEnum SessionLog'START = "START" - showEnum SessionLog'STOP = "STOP" - showEnum SessionLog'CHECKPOINT = "CHECKPOINT" - readEnum "STATUS_UNSPECIFIED" - = Prelude.Just SessionLog'STATUS_UNSPECIFIED - readEnum "START" = Prelude.Just SessionLog'START - readEnum "STOP" = Prelude.Just SessionLog'STOP - readEnum "CHECKPOINT" = Prelude.Just SessionLog'CHECKPOINT - readEnum _ = Prelude.Nothing - -instance Prelude.Enum SessionLog'SessionStatus where - toEnum k__ - = Prelude.maybe - (Prelude.error - ((Prelude.++) "toEnum: unknown value for enum SessionStatus: " - (Prelude.show k__))) - Prelude.id - (Data.ProtoLens.maybeToEnum k__) - fromEnum SessionLog'STATUS_UNSPECIFIED = 0 - fromEnum SessionLog'START = 1 - fromEnum SessionLog'STOP = 2 - fromEnum SessionLog'CHECKPOINT = 3 - succ SessionLog'CHECKPOINT - = Prelude.error - "SessionLog'SessionStatus.succ: bad argument SessionLog'CHECKPOINT. This value would be out of bounds." - succ SessionLog'STATUS_UNSPECIFIED = SessionLog'START - succ SessionLog'START = SessionLog'STOP - succ SessionLog'STOP = SessionLog'CHECKPOINT - pred SessionLog'STATUS_UNSPECIFIED - = Prelude.error - "SessionLog'SessionStatus.pred: bad argument SessionLog'STATUS_UNSPECIFIED. This value would be out of bounds." - pred SessionLog'START = SessionLog'STATUS_UNSPECIFIED - pred SessionLog'STOP = SessionLog'START - pred SessionLog'CHECKPOINT = SessionLog'STOP - enumFrom = Data.ProtoLens.Message.Enum.messageEnumFrom - enumFromTo = Data.ProtoLens.Message.Enum.messageEnumFromTo - enumFromThen = Data.ProtoLens.Message.Enum.messageEnumFromThen - enumFromThenTo = Data.ProtoLens.Message.Enum.messageEnumFromThenTo - -instance Prelude.Bounded SessionLog'SessionStatus where - minBound = SessionLog'STATUS_UNSPECIFIED - maxBound = SessionLog'CHECKPOINT - -data TaggedRunMetadata = TaggedRunMetadata{_TaggedRunMetadata'tag - :: !Data.Text.Text, - _TaggedRunMetadata'runMetadata :: - !Data.ByteString.ByteString} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "tag" f TaggedRunMetadata TaggedRunMetadata a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _TaggedRunMetadata'tag - (\ x__ y__ -> x__{_TaggedRunMetadata'tag = y__})) - Prelude.id - -instance (a ~ Data.ByteString.ByteString, - b ~ Data.ByteString.ByteString, Prelude.Functor f) => - Lens.Labels.HasLens "runMetadata" f TaggedRunMetadata - TaggedRunMetadata - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _TaggedRunMetadata'runMetadata - (\ x__ y__ -> x__{_TaggedRunMetadata'runMetadata = y__})) - Prelude.id - -instance Data.Default.Class.Default TaggedRunMetadata where - def - = TaggedRunMetadata{_TaggedRunMetadata'tag = - Data.ProtoLens.fieldDefault, - _TaggedRunMetadata'runMetadata = Data.ProtoLens.fieldDefault} - -instance Data.ProtoLens.Message TaggedRunMetadata where - descriptor - = let tag__field_descriptor - = Data.ProtoLens.FieldDescriptor "tag" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional tag) - :: Data.ProtoLens.FieldDescriptor TaggedRunMetadata - runMetadata__field_descriptor - = Data.ProtoLens.FieldDescriptor "run_metadata" - (Data.ProtoLens.BytesField :: - Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional runMetadata) - :: Data.ProtoLens.FieldDescriptor TaggedRunMetadata - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.TaggedRunMetadata") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, tag__field_descriptor), - (Data.ProtoLens.Tag 2, runMetadata__field_descriptor)]) - (Data.Map.fromList - [("tag", tag__field_descriptor), - ("run_metadata", runMetadata__field_descriptor)]) - -data WatchdogConfig = WatchdogConfig{_WatchdogConfig'timeoutMs :: - !Data.Int.Int64} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Data.Int.Int64, b ~ Data.Int.Int64, - Prelude.Functor f) => - Lens.Labels.HasLens "timeoutMs" f WatchdogConfig WatchdogConfig a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _WatchdogConfig'timeoutMs - (\ x__ y__ -> x__{_WatchdogConfig'timeoutMs = y__})) - Prelude.id - -instance Data.Default.Class.Default WatchdogConfig where - def - = WatchdogConfig{_WatchdogConfig'timeoutMs = - Data.ProtoLens.fieldDefault} - -instance Data.ProtoLens.Message WatchdogConfig where - descriptor - = let timeoutMs__field_descriptor - = Data.ProtoLens.FieldDescriptor "timeout_ms" - (Data.ProtoLens.Int64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional timeoutMs) - :: Data.ProtoLens.FieldDescriptor WatchdogConfig - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.WatchdogConfig") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, timeoutMs__field_descriptor)]) - (Data.Map.fromList [("timeout_ms", timeoutMs__field_descriptor)]) - -data WorkerHealth = OK - | RECEIVED_SHUTDOWN_SIGNAL - | INTERNAL_ERROR - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance Data.Default.Class.Default WorkerHealth where - def = OK - -instance Data.ProtoLens.FieldDefault WorkerHealth where - fieldDefault = OK - -instance Data.ProtoLens.MessageEnum WorkerHealth where - maybeToEnum 0 = Prelude.Just OK - maybeToEnum 1 = Prelude.Just RECEIVED_SHUTDOWN_SIGNAL - maybeToEnum 2 = Prelude.Just INTERNAL_ERROR - maybeToEnum _ = Prelude.Nothing - showEnum OK = "OK" - showEnum RECEIVED_SHUTDOWN_SIGNAL = "RECEIVED_SHUTDOWN_SIGNAL" - showEnum INTERNAL_ERROR = "INTERNAL_ERROR" - readEnum "OK" = Prelude.Just OK - readEnum "RECEIVED_SHUTDOWN_SIGNAL" - = Prelude.Just RECEIVED_SHUTDOWN_SIGNAL - readEnum "INTERNAL_ERROR" = Prelude.Just INTERNAL_ERROR - readEnum _ = Prelude.Nothing - -instance Prelude.Enum WorkerHealth where - toEnum k__ - = Prelude.maybe - (Prelude.error - ((Prelude.++) "toEnum: unknown value for enum WorkerHealth: " - (Prelude.show k__))) - Prelude.id - (Data.ProtoLens.maybeToEnum k__) - fromEnum OK = 0 - fromEnum RECEIVED_SHUTDOWN_SIGNAL = 1 - fromEnum INTERNAL_ERROR = 2 - succ INTERNAL_ERROR - = Prelude.error - "WorkerHealth.succ: bad argument INTERNAL_ERROR. This value would be out of bounds." - succ OK = RECEIVED_SHUTDOWN_SIGNAL - succ RECEIVED_SHUTDOWN_SIGNAL = INTERNAL_ERROR - pred OK - = Prelude.error - "WorkerHealth.pred: bad argument OK. This value would be out of bounds." - pred RECEIVED_SHUTDOWN_SIGNAL = OK - pred INTERNAL_ERROR = RECEIVED_SHUTDOWN_SIGNAL - enumFrom = Data.ProtoLens.Message.Enum.messageEnumFrom - enumFromTo = Data.ProtoLens.Message.Enum.messageEnumFromTo - enumFromThen = Data.ProtoLens.Message.Enum.messageEnumFromThen - enumFromThenTo = Data.ProtoLens.Message.Enum.messageEnumFromThenTo - -instance Prelude.Bounded WorkerHealth where - minBound = OK - maxBound = INTERNAL_ERROR - -data WorkerHeartbeatRequest = WorkerHeartbeatRequest{_WorkerHeartbeatRequest'shutdownMode - :: !WorkerShutdownMode, - _WorkerHeartbeatRequest'watchdogConfig :: - !(Prelude.Maybe WatchdogConfig)} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ WorkerShutdownMode, b ~ WorkerShutdownMode, - Prelude.Functor f) => - Lens.Labels.HasLens "shutdownMode" f WorkerHeartbeatRequest - WorkerHeartbeatRequest - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _WorkerHeartbeatRequest'shutdownMode - (\ x__ y__ -> x__{_WorkerHeartbeatRequest'shutdownMode = y__})) - Prelude.id - -instance (a ~ WatchdogConfig, b ~ WatchdogConfig, - Prelude.Functor f) => - Lens.Labels.HasLens "watchdogConfig" f WorkerHeartbeatRequest - WorkerHeartbeatRequest - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _WorkerHeartbeatRequest'watchdogConfig - (\ x__ y__ -> x__{_WorkerHeartbeatRequest'watchdogConfig = y__})) - (Data.ProtoLens.maybeLens Data.Default.Class.def) - -instance (a ~ Prelude.Maybe WatchdogConfig, - b ~ Prelude.Maybe WatchdogConfig, Prelude.Functor f) => - Lens.Labels.HasLens "maybe'watchdogConfig" f WorkerHeartbeatRequest - WorkerHeartbeatRequest - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _WorkerHeartbeatRequest'watchdogConfig - (\ x__ y__ -> x__{_WorkerHeartbeatRequest'watchdogConfig = y__})) - Prelude.id - -instance Data.Default.Class.Default WorkerHeartbeatRequest where - def - = WorkerHeartbeatRequest{_WorkerHeartbeatRequest'shutdownMode = - Data.Default.Class.def, - _WorkerHeartbeatRequest'watchdogConfig = Prelude.Nothing} - -instance Data.ProtoLens.Message WorkerHeartbeatRequest where - descriptor - = let shutdownMode__field_descriptor - = Data.ProtoLens.FieldDescriptor "shutdown_mode" - (Data.ProtoLens.EnumField :: - Data.ProtoLens.FieldTypeDescriptor WorkerShutdownMode) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional shutdownMode) - :: Data.ProtoLens.FieldDescriptor WorkerHeartbeatRequest - watchdogConfig__field_descriptor - = Data.ProtoLens.FieldDescriptor "watchdog_config" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor WatchdogConfig) - (Data.ProtoLens.OptionalField maybe'watchdogConfig) - :: Data.ProtoLens.FieldDescriptor WorkerHeartbeatRequest - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.WorkerHeartbeatRequest") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, shutdownMode__field_descriptor), - (Data.ProtoLens.Tag 2, watchdogConfig__field_descriptor)]) - (Data.Map.fromList - [("shutdown_mode", shutdownMode__field_descriptor), - ("watchdog_config", watchdogConfig__field_descriptor)]) - -data WorkerHeartbeatResponse = WorkerHeartbeatResponse{_WorkerHeartbeatResponse'healthStatus - :: !WorkerHealth, - _WorkerHeartbeatResponse'workerLog :: - ![Event], - _WorkerHeartbeatResponse'hostname :: - !Data.Text.Text} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ WorkerHealth, b ~ WorkerHealth, Prelude.Functor f) => - Lens.Labels.HasLens "healthStatus" f WorkerHeartbeatResponse - WorkerHeartbeatResponse - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _WorkerHeartbeatResponse'healthStatus - (\ x__ y__ -> x__{_WorkerHeartbeatResponse'healthStatus = y__})) - Prelude.id - -instance (a ~ [Event], b ~ [Event], Prelude.Functor f) => - Lens.Labels.HasLens "workerLog" f WorkerHeartbeatResponse - WorkerHeartbeatResponse - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _WorkerHeartbeatResponse'workerLog - (\ x__ y__ -> x__{_WorkerHeartbeatResponse'workerLog = y__})) - Prelude.id - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "hostname" f WorkerHeartbeatResponse - WorkerHeartbeatResponse - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _WorkerHeartbeatResponse'hostname - (\ x__ y__ -> x__{_WorkerHeartbeatResponse'hostname = y__})) - Prelude.id - -instance Data.Default.Class.Default WorkerHeartbeatResponse where - def - = WorkerHeartbeatResponse{_WorkerHeartbeatResponse'healthStatus = - Data.Default.Class.def, - _WorkerHeartbeatResponse'workerLog = [], - _WorkerHeartbeatResponse'hostname = Data.ProtoLens.fieldDefault} - -instance Data.ProtoLens.Message WorkerHeartbeatResponse where - descriptor - = let healthStatus__field_descriptor - = Data.ProtoLens.FieldDescriptor "health_status" - (Data.ProtoLens.EnumField :: - Data.ProtoLens.FieldTypeDescriptor WorkerHealth) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional healthStatus) - :: Data.ProtoLens.FieldDescriptor WorkerHeartbeatResponse - workerLog__field_descriptor - = Data.ProtoLens.FieldDescriptor "worker_log" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor Event) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked workerLog) - :: Data.ProtoLens.FieldDescriptor WorkerHeartbeatResponse - hostname__field_descriptor - = Data.ProtoLens.FieldDescriptor "hostname" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional hostname) - :: Data.ProtoLens.FieldDescriptor WorkerHeartbeatResponse - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.WorkerHeartbeatResponse") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, healthStatus__field_descriptor), - (Data.ProtoLens.Tag 2, workerLog__field_descriptor), - (Data.ProtoLens.Tag 3, hostname__field_descriptor)]) - (Data.Map.fromList - [("health_status", healthStatus__field_descriptor), - ("worker_log", workerLog__field_descriptor), - ("hostname", hostname__field_descriptor)]) - -data WorkerShutdownMode = DEFAULT - | SHUTDOWN_IMMEDIATELY - | WAIT_FOR_COORDINATOR - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance Data.Default.Class.Default WorkerShutdownMode where - def = DEFAULT - -instance Data.ProtoLens.FieldDefault WorkerShutdownMode where - fieldDefault = DEFAULT - -instance Data.ProtoLens.MessageEnum WorkerShutdownMode where - maybeToEnum 0 = Prelude.Just DEFAULT - maybeToEnum 1 = Prelude.Just SHUTDOWN_IMMEDIATELY - maybeToEnum 2 = Prelude.Just WAIT_FOR_COORDINATOR - maybeToEnum _ = Prelude.Nothing - showEnum DEFAULT = "DEFAULT" - showEnum SHUTDOWN_IMMEDIATELY = "SHUTDOWN_IMMEDIATELY" - showEnum WAIT_FOR_COORDINATOR = "WAIT_FOR_COORDINATOR" - readEnum "DEFAULT" = Prelude.Just DEFAULT - readEnum "SHUTDOWN_IMMEDIATELY" = Prelude.Just SHUTDOWN_IMMEDIATELY - readEnum "WAIT_FOR_COORDINATOR" = Prelude.Just WAIT_FOR_COORDINATOR - readEnum _ = Prelude.Nothing - -instance Prelude.Enum WorkerShutdownMode where - toEnum k__ - = Prelude.maybe - (Prelude.error - ((Prelude.++) "toEnum: unknown value for enum WorkerShutdownMode: " - (Prelude.show k__))) - Prelude.id - (Data.ProtoLens.maybeToEnum k__) - fromEnum DEFAULT = 0 - fromEnum SHUTDOWN_IMMEDIATELY = 1 - fromEnum WAIT_FOR_COORDINATOR = 2 - succ WAIT_FOR_COORDINATOR - = Prelude.error - "WorkerShutdownMode.succ: bad argument WAIT_FOR_COORDINATOR. This value would be out of bounds." - succ DEFAULT = SHUTDOWN_IMMEDIATELY - succ SHUTDOWN_IMMEDIATELY = WAIT_FOR_COORDINATOR - pred DEFAULT - = Prelude.error - "WorkerShutdownMode.pred: bad argument DEFAULT. This value would be out of bounds." - pred SHUTDOWN_IMMEDIATELY = DEFAULT - pred WAIT_FOR_COORDINATOR = SHUTDOWN_IMMEDIATELY - enumFrom = Data.ProtoLens.Message.Enum.messageEnumFrom - enumFromTo = Data.ProtoLens.Message.Enum.messageEnumFromTo - enumFromThen = Data.ProtoLens.Message.Enum.messageEnumFromThen - enumFromThenTo = Data.ProtoLens.Message.Enum.messageEnumFromThenTo - -instance Prelude.Bounded WorkerShutdownMode where - minBound = DEFAULT - maxBound = WAIT_FOR_COORDINATOR - -checkpointPath :: - forall f s t a b . - (Lens.Labels.HasLens "checkpointPath" f s t a b) => - Lens.Family2.LensLike f s t a b -checkpointPath - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "checkpointPath") - -fileVersion :: - forall f s t a b . (Lens.Labels.HasLens "fileVersion" f s t a b) => - Lens.Family2.LensLike f s t a b -fileVersion - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "fileVersion") - -graphDef :: - forall f s t a b . (Lens.Labels.HasLens "graphDef" f s t a b) => - Lens.Family2.LensLike f s t a b -graphDef - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "graphDef") - -healthStatus :: - forall f s t a b . - (Lens.Labels.HasLens "healthStatus" f s t a b) => - Lens.Family2.LensLike f s t a b -healthStatus - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "healthStatus") - -hostname :: - forall f s t a b . (Lens.Labels.HasLens "hostname" f s t a b) => - Lens.Family2.LensLike f s t a b -hostname - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "hostname") - -level :: - forall f s t a b . (Lens.Labels.HasLens "level" f s t a b) => - Lens.Family2.LensLike f s t a b -level - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "level") - -logMessage :: - forall f s t a b . (Lens.Labels.HasLens "logMessage" f s t a b) => - Lens.Family2.LensLike f s t a b -logMessage - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "logMessage") - -maybe'fileVersion :: - forall f s t a b . - (Lens.Labels.HasLens "maybe'fileVersion" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'fileVersion - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'fileVersion") - -maybe'graphDef :: - forall f s t a b . - (Lens.Labels.HasLens "maybe'graphDef" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'graphDef - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'graphDef") - -maybe'logMessage :: - forall f s t a b . - (Lens.Labels.HasLens "maybe'logMessage" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'logMessage - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'logMessage") - -maybe'metaGraphDef :: - forall f s t a b . - (Lens.Labels.HasLens "maybe'metaGraphDef" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'metaGraphDef - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'metaGraphDef") - -maybe'sessionLog :: - forall f s t a b . - (Lens.Labels.HasLens "maybe'sessionLog" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'sessionLog - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'sessionLog") - -maybe'summary :: - forall f s t a b . - (Lens.Labels.HasLens "maybe'summary" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'summary - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'summary") - -maybe'taggedRunMetadata :: - forall f s t a b . - (Lens.Labels.HasLens "maybe'taggedRunMetadata" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'taggedRunMetadata - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: - (Lens.Labels.Proxy#) "maybe'taggedRunMetadata") - -maybe'watchdogConfig :: - forall f s t a b . - (Lens.Labels.HasLens "maybe'watchdogConfig" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'watchdogConfig - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: - (Lens.Labels.Proxy#) "maybe'watchdogConfig") - -maybe'what :: - forall f s t a b . (Lens.Labels.HasLens "maybe'what" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'what - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'what") - -message :: - forall f s t a b . (Lens.Labels.HasLens "message" f s t a b) => - Lens.Family2.LensLike f s t a b -message - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "message") - -metaGraphDef :: - forall f s t a b . - (Lens.Labels.HasLens "metaGraphDef" f s t a b) => - Lens.Family2.LensLike f s t a b -metaGraphDef - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "metaGraphDef") - -msg :: - forall f s t a b . (Lens.Labels.HasLens "msg" f s t a b) => - Lens.Family2.LensLike f s t a b -msg - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "msg") - -runMetadata :: - forall f s t a b . (Lens.Labels.HasLens "runMetadata" f s t a b) => - Lens.Family2.LensLike f s t a b -runMetadata - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "runMetadata") - -sessionLog :: - forall f s t a b . (Lens.Labels.HasLens "sessionLog" f s t a b) => - Lens.Family2.LensLike f s t a b -sessionLog - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "sessionLog") - -shutdownMode :: - forall f s t a b . - (Lens.Labels.HasLens "shutdownMode" f s t a b) => - Lens.Family2.LensLike f s t a b -shutdownMode - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "shutdownMode") - -status :: - forall f s t a b . (Lens.Labels.HasLens "status" f s t a b) => - Lens.Family2.LensLike f s t a b -status - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "status") - -step :: - forall f s t a b . (Lens.Labels.HasLens "step" f s t a b) => - Lens.Family2.LensLike f s t a b -step - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "step") - -summary :: - forall f s t a b . (Lens.Labels.HasLens "summary" f s t a b) => - Lens.Family2.LensLike f s t a b -summary - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "summary") - -tag :: - forall f s t a b . (Lens.Labels.HasLens "tag" f s t a b) => - Lens.Family2.LensLike f s t a b -tag - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "tag") - -taggedRunMetadata :: - forall f s t a b . - (Lens.Labels.HasLens "taggedRunMetadata" f s t a b) => - Lens.Family2.LensLike f s t a b -taggedRunMetadata - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "taggedRunMetadata") - -timeoutMs :: - forall f s t a b . (Lens.Labels.HasLens "timeoutMs" f s t a b) => - Lens.Family2.LensLike f s t a b -timeoutMs - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "timeoutMs") - -wallTime :: - forall f s t a b . (Lens.Labels.HasLens "wallTime" f s t a b) => - Lens.Family2.LensLike f s t a b -wallTime - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "wallTime") - -watchdogConfig :: - forall f s t a b . - (Lens.Labels.HasLens "watchdogConfig" f s t a b) => - Lens.Family2.LensLike f s t a b -watchdogConfig - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "watchdogConfig") - -workerLog :: - forall f s t a b . (Lens.Labels.HasLens "workerLog" f s t a b) => - Lens.Family2.LensLike f s t a b -workerLog - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "workerLog") diff --git a/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Util/MemmappedFileSystem.hs b/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Util/MemmappedFileSystem.hs deleted file mode 100644 --- a/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Util/MemmappedFileSystem.hs +++ /dev/null @@ -1,159 +0,0 @@ -{- This file was auto-generated from tensorflow/core/util/memmapped_file_system.proto by the proto-lens-protoc program. -} -{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies, - UndecidableInstances, MultiParamTypeClasses, FlexibleContexts, - FlexibleInstances, PatternSynonyms, MagicHash, NoImplicitPrelude - #-} -{-# OPTIONS_GHC -fno-warn-unused-imports#-} -module Proto.Tensorflow.Core.Util.MemmappedFileSystem where -import qualified Data.ProtoLens.Reexport.Prelude as Prelude -import qualified Data.ProtoLens.Reexport.Data.Int as Data.Int -import qualified Data.ProtoLens.Reexport.Data.Word as Data.Word -import qualified Data.ProtoLens.Reexport.Data.ProtoLens - as Data.ProtoLens -import qualified - Data.ProtoLens.Reexport.Data.ProtoLens.Message.Enum - as Data.ProtoLens.Message.Enum -import qualified Data.ProtoLens.Reexport.Lens.Family2 - as Lens.Family2 -import qualified Data.ProtoLens.Reexport.Lens.Family2.Unchecked - as Lens.Family2.Unchecked -import qualified Data.ProtoLens.Reexport.Data.Default.Class - as Data.Default.Class -import qualified Data.ProtoLens.Reexport.Data.Text as Data.Text -import qualified Data.ProtoLens.Reexport.Data.Map as Data.Map -import qualified Data.ProtoLens.Reexport.Data.ByteString - as Data.ByteString -import qualified Data.ProtoLens.Reexport.Lens.Labels as Lens.Labels - -data MemmappedFileSystemDirectory = MemmappedFileSystemDirectory{_MemmappedFileSystemDirectory'element - :: - ![MemmappedFileSystemDirectoryElement]} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ [MemmappedFileSystemDirectoryElement], - b ~ [MemmappedFileSystemDirectoryElement], Prelude.Functor f) => - Lens.Labels.HasLens "element" f MemmappedFileSystemDirectory - MemmappedFileSystemDirectory - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _MemmappedFileSystemDirectory'element - (\ x__ y__ -> x__{_MemmappedFileSystemDirectory'element = y__})) - Prelude.id - -instance Data.Default.Class.Default MemmappedFileSystemDirectory - where - def - = MemmappedFileSystemDirectory{_MemmappedFileSystemDirectory'element - = []} - -instance Data.ProtoLens.Message MemmappedFileSystemDirectory where - descriptor - = let element__field_descriptor - = Data.ProtoLens.FieldDescriptor "element" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor - MemmappedFileSystemDirectoryElement) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked element) - :: Data.ProtoLens.FieldDescriptor MemmappedFileSystemDirectory - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.MemmappedFileSystemDirectory") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, element__field_descriptor)]) - (Data.Map.fromList [("element", element__field_descriptor)]) - -data MemmappedFileSystemDirectoryElement = MemmappedFileSystemDirectoryElement{_MemmappedFileSystemDirectoryElement'offset - :: !Data.Word.Word64, - _MemmappedFileSystemDirectoryElement'name - :: !Data.Text.Text} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Data.Word.Word64, b ~ Data.Word.Word64, - Prelude.Functor f) => - Lens.Labels.HasLens "offset" f MemmappedFileSystemDirectoryElement - MemmappedFileSystemDirectoryElement - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _MemmappedFileSystemDirectoryElement'offset - (\ x__ y__ -> - x__{_MemmappedFileSystemDirectoryElement'offset = y__})) - Prelude.id - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "name" f MemmappedFileSystemDirectoryElement - MemmappedFileSystemDirectoryElement - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _MemmappedFileSystemDirectoryElement'name - (\ x__ y__ -> - x__{_MemmappedFileSystemDirectoryElement'name = y__})) - Prelude.id - -instance Data.Default.Class.Default - MemmappedFileSystemDirectoryElement - where - def - = MemmappedFileSystemDirectoryElement{_MemmappedFileSystemDirectoryElement'offset - = Data.ProtoLens.fieldDefault, - _MemmappedFileSystemDirectoryElement'name = - Data.ProtoLens.fieldDefault} - -instance Data.ProtoLens.Message MemmappedFileSystemDirectoryElement - where - descriptor - = let offset__field_descriptor - = Data.ProtoLens.FieldDescriptor "offset" - (Data.ProtoLens.UInt64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional offset) - :: - Data.ProtoLens.FieldDescriptor MemmappedFileSystemDirectoryElement - name__field_descriptor - = Data.ProtoLens.FieldDescriptor "name" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional name) - :: - Data.ProtoLens.FieldDescriptor MemmappedFileSystemDirectoryElement - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.MemmappedFileSystemDirectoryElement") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, offset__field_descriptor), - (Data.ProtoLens.Tag 2, name__field_descriptor)]) - (Data.Map.fromList - [("offset", offset__field_descriptor), - ("name", name__field_descriptor)]) - -element :: - forall f s t a b . (Lens.Labels.HasLens "element" f s t a b) => - Lens.Family2.LensLike f s t a b -element - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "element") - -name :: - forall f s t a b . (Lens.Labels.HasLens "name" f s t a b) => - Lens.Family2.LensLike f s t a b -name - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "name") - -offset :: - forall f s t a b . (Lens.Labels.HasLens "offset" f s t a b) => - Lens.Family2.LensLike f s t a b -offset - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "offset") diff --git a/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Util/SavedTensorSlice.hs b/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Util/SavedTensorSlice.hs deleted file mode 100644 --- a/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Util/SavedTensorSlice.hs +++ /dev/null @@ -1,517 +0,0 @@ -{- This file was auto-generated from tensorflow/core/util/saved_tensor_slice.proto by the proto-lens-protoc program. -} -{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies, - UndecidableInstances, MultiParamTypeClasses, FlexibleContexts, - FlexibleInstances, PatternSynonyms, MagicHash, NoImplicitPrelude - #-} -{-# OPTIONS_GHC -fno-warn-unused-imports#-} -module Proto.Tensorflow.Core.Util.SavedTensorSlice where -import qualified Data.ProtoLens.Reexport.Prelude as Prelude -import qualified Data.ProtoLens.Reexport.Data.Int as Data.Int -import qualified Data.ProtoLens.Reexport.Data.Word as Data.Word -import qualified Data.ProtoLens.Reexport.Data.ProtoLens - as Data.ProtoLens -import qualified - Data.ProtoLens.Reexport.Data.ProtoLens.Message.Enum - as Data.ProtoLens.Message.Enum -import qualified Data.ProtoLens.Reexport.Lens.Family2 - as Lens.Family2 -import qualified Data.ProtoLens.Reexport.Lens.Family2.Unchecked - as Lens.Family2.Unchecked -import qualified Data.ProtoLens.Reexport.Data.Default.Class - as Data.Default.Class -import qualified Data.ProtoLens.Reexport.Data.Text as Data.Text -import qualified Data.ProtoLens.Reexport.Data.Map as Data.Map -import qualified Data.ProtoLens.Reexport.Data.ByteString - as Data.ByteString -import qualified Data.ProtoLens.Reexport.Lens.Labels as Lens.Labels -import qualified Proto.Tensorflow.Core.Framework.Tensor -import qualified Proto.Tensorflow.Core.Framework.TensorShape -import qualified Proto.Tensorflow.Core.Framework.TensorSlice -import qualified Proto.Tensorflow.Core.Framework.Types -import qualified Proto.Tensorflow.Core.Framework.Versions - -data SavedSlice = SavedSlice{_SavedSlice'name :: !Data.Text.Text, - _SavedSlice'slice :: - !(Prelude.Maybe - Proto.Tensorflow.Core.Framework.TensorSlice.TensorSliceProto), - _SavedSlice'data' :: - !(Prelude.Maybe - Proto.Tensorflow.Core.Framework.Tensor.TensorProto)} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "name" f SavedSlice SavedSlice a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _SavedSlice'name - (\ x__ y__ -> x__{_SavedSlice'name = y__})) - Prelude.id - -instance (a ~ - Proto.Tensorflow.Core.Framework.TensorSlice.TensorSliceProto, - b ~ Proto.Tensorflow.Core.Framework.TensorSlice.TensorSliceProto, - Prelude.Functor f) => - Lens.Labels.HasLens "slice" f SavedSlice SavedSlice a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _SavedSlice'slice - (\ x__ y__ -> x__{_SavedSlice'slice = y__})) - (Data.ProtoLens.maybeLens Data.Default.Class.def) - -instance (a ~ - Prelude.Maybe - Proto.Tensorflow.Core.Framework.TensorSlice.TensorSliceProto, - b ~ - Prelude.Maybe - Proto.Tensorflow.Core.Framework.TensorSlice.TensorSliceProto, - Prelude.Functor f) => - Lens.Labels.HasLens "maybe'slice" f SavedSlice SavedSlice a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _SavedSlice'slice - (\ x__ y__ -> x__{_SavedSlice'slice = y__})) - Prelude.id - -instance (a ~ Proto.Tensorflow.Core.Framework.Tensor.TensorProto, - b ~ Proto.Tensorflow.Core.Framework.Tensor.TensorProto, - Prelude.Functor f) => - Lens.Labels.HasLens "data'" f SavedSlice SavedSlice a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _SavedSlice'data' - (\ x__ y__ -> x__{_SavedSlice'data' = y__})) - (Data.ProtoLens.maybeLens Data.Default.Class.def) - -instance (a ~ - Prelude.Maybe Proto.Tensorflow.Core.Framework.Tensor.TensorProto, - b ~ - Prelude.Maybe Proto.Tensorflow.Core.Framework.Tensor.TensorProto, - Prelude.Functor f) => - Lens.Labels.HasLens "maybe'data'" f SavedSlice SavedSlice a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _SavedSlice'data' - (\ x__ y__ -> x__{_SavedSlice'data' = y__})) - Prelude.id - -instance Data.Default.Class.Default SavedSlice where - def - = SavedSlice{_SavedSlice'name = Data.ProtoLens.fieldDefault, - _SavedSlice'slice = Prelude.Nothing, - _SavedSlice'data' = Prelude.Nothing} - -instance Data.ProtoLens.Message SavedSlice where - descriptor - = let name__field_descriptor - = Data.ProtoLens.FieldDescriptor "name" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional name) - :: Data.ProtoLens.FieldDescriptor SavedSlice - slice__field_descriptor - = Data.ProtoLens.FieldDescriptor "slice" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor - Proto.Tensorflow.Core.Framework.TensorSlice.TensorSliceProto) - (Data.ProtoLens.OptionalField maybe'slice) - :: Data.ProtoLens.FieldDescriptor SavedSlice - data'__field_descriptor - = Data.ProtoLens.FieldDescriptor "data" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor - Proto.Tensorflow.Core.Framework.Tensor.TensorProto) - (Data.ProtoLens.OptionalField maybe'data') - :: Data.ProtoLens.FieldDescriptor SavedSlice - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.SavedSlice") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, name__field_descriptor), - (Data.ProtoLens.Tag 2, slice__field_descriptor), - (Data.ProtoLens.Tag 3, data'__field_descriptor)]) - (Data.Map.fromList - [("name", name__field_descriptor), - ("slice", slice__field_descriptor), - ("data", data'__field_descriptor)]) - -data SavedSliceMeta = SavedSliceMeta{_SavedSliceMeta'name :: - !Data.Text.Text, - _SavedSliceMeta'shape :: - !(Prelude.Maybe - Proto.Tensorflow.Core.Framework.TensorShape.TensorShapeProto), - _SavedSliceMeta'type' :: - !Proto.Tensorflow.Core.Framework.Types.DataType, - _SavedSliceMeta'slice :: - ![Proto.Tensorflow.Core.Framework.TensorSlice.TensorSliceProto]} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "name" f SavedSliceMeta SavedSliceMeta a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _SavedSliceMeta'name - (\ x__ y__ -> x__{_SavedSliceMeta'name = y__})) - Prelude.id - -instance (a ~ - Proto.Tensorflow.Core.Framework.TensorShape.TensorShapeProto, - b ~ Proto.Tensorflow.Core.Framework.TensorShape.TensorShapeProto, - Prelude.Functor f) => - Lens.Labels.HasLens "shape" f SavedSliceMeta SavedSliceMeta a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _SavedSliceMeta'shape - (\ x__ y__ -> x__{_SavedSliceMeta'shape = y__})) - (Data.ProtoLens.maybeLens Data.Default.Class.def) - -instance (a ~ - Prelude.Maybe - Proto.Tensorflow.Core.Framework.TensorShape.TensorShapeProto, - b ~ - Prelude.Maybe - Proto.Tensorflow.Core.Framework.TensorShape.TensorShapeProto, - Prelude.Functor f) => - Lens.Labels.HasLens "maybe'shape" f SavedSliceMeta SavedSliceMeta a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _SavedSliceMeta'shape - (\ x__ y__ -> x__{_SavedSliceMeta'shape = y__})) - Prelude.id - -instance (a ~ Proto.Tensorflow.Core.Framework.Types.DataType, - b ~ Proto.Tensorflow.Core.Framework.Types.DataType, - Prelude.Functor f) => - Lens.Labels.HasLens "type'" f SavedSliceMeta SavedSliceMeta a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _SavedSliceMeta'type' - (\ x__ y__ -> x__{_SavedSliceMeta'type' = y__})) - Prelude.id - -instance (a ~ - [Proto.Tensorflow.Core.Framework.TensorSlice.TensorSliceProto], - b ~ [Proto.Tensorflow.Core.Framework.TensorSlice.TensorSliceProto], - Prelude.Functor f) => - Lens.Labels.HasLens "slice" f SavedSliceMeta SavedSliceMeta a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _SavedSliceMeta'slice - (\ x__ y__ -> x__{_SavedSliceMeta'slice = y__})) - Prelude.id - -instance Data.Default.Class.Default SavedSliceMeta where - def - = SavedSliceMeta{_SavedSliceMeta'name = - Data.ProtoLens.fieldDefault, - _SavedSliceMeta'shape = Prelude.Nothing, - _SavedSliceMeta'type' = Data.Default.Class.def, - _SavedSliceMeta'slice = []} - -instance Data.ProtoLens.Message SavedSliceMeta where - descriptor - = let name__field_descriptor - = Data.ProtoLens.FieldDescriptor "name" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional name) - :: Data.ProtoLens.FieldDescriptor SavedSliceMeta - shape__field_descriptor - = Data.ProtoLens.FieldDescriptor "shape" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor - Proto.Tensorflow.Core.Framework.TensorShape.TensorShapeProto) - (Data.ProtoLens.OptionalField maybe'shape) - :: Data.ProtoLens.FieldDescriptor SavedSliceMeta - type'__field_descriptor - = Data.ProtoLens.FieldDescriptor "type" - (Data.ProtoLens.EnumField :: - Data.ProtoLens.FieldTypeDescriptor - Proto.Tensorflow.Core.Framework.Types.DataType) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional type') - :: Data.ProtoLens.FieldDescriptor SavedSliceMeta - slice__field_descriptor - = Data.ProtoLens.FieldDescriptor "slice" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor - Proto.Tensorflow.Core.Framework.TensorSlice.TensorSliceProto) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked slice) - :: Data.ProtoLens.FieldDescriptor SavedSliceMeta - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.SavedSliceMeta") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, name__field_descriptor), - (Data.ProtoLens.Tag 2, shape__field_descriptor), - (Data.ProtoLens.Tag 3, type'__field_descriptor), - (Data.ProtoLens.Tag 4, slice__field_descriptor)]) - (Data.Map.fromList - [("name", name__field_descriptor), - ("shape", shape__field_descriptor), - ("type", type'__field_descriptor), - ("slice", slice__field_descriptor)]) - -data SavedTensorSliceMeta = SavedTensorSliceMeta{_SavedTensorSliceMeta'tensor - :: ![SavedSliceMeta], - _SavedTensorSliceMeta'versions :: - !(Prelude.Maybe - Proto.Tensorflow.Core.Framework.Versions.VersionDef)} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ [SavedSliceMeta], b ~ [SavedSliceMeta], - Prelude.Functor f) => - Lens.Labels.HasLens "tensor" f SavedTensorSliceMeta - SavedTensorSliceMeta - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _SavedTensorSliceMeta'tensor - (\ x__ y__ -> x__{_SavedTensorSliceMeta'tensor = y__})) - Prelude.id - -instance (a ~ Proto.Tensorflow.Core.Framework.Versions.VersionDef, - b ~ Proto.Tensorflow.Core.Framework.Versions.VersionDef, - Prelude.Functor f) => - Lens.Labels.HasLens "versions" f SavedTensorSliceMeta - SavedTensorSliceMeta - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _SavedTensorSliceMeta'versions - (\ x__ y__ -> x__{_SavedTensorSliceMeta'versions = y__})) - (Data.ProtoLens.maybeLens Data.Default.Class.def) - -instance (a ~ - Prelude.Maybe Proto.Tensorflow.Core.Framework.Versions.VersionDef, - b ~ - Prelude.Maybe Proto.Tensorflow.Core.Framework.Versions.VersionDef, - Prelude.Functor f) => - Lens.Labels.HasLens "maybe'versions" f SavedTensorSliceMeta - SavedTensorSliceMeta - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _SavedTensorSliceMeta'versions - (\ x__ y__ -> x__{_SavedTensorSliceMeta'versions = y__})) - Prelude.id - -instance Data.Default.Class.Default SavedTensorSliceMeta where - def - = SavedTensorSliceMeta{_SavedTensorSliceMeta'tensor = [], - _SavedTensorSliceMeta'versions = Prelude.Nothing} - -instance Data.ProtoLens.Message SavedTensorSliceMeta where - descriptor - = let tensor__field_descriptor - = Data.ProtoLens.FieldDescriptor "tensor" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor SavedSliceMeta) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked tensor) - :: Data.ProtoLens.FieldDescriptor SavedTensorSliceMeta - versions__field_descriptor - = Data.ProtoLens.FieldDescriptor "versions" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor - Proto.Tensorflow.Core.Framework.Versions.VersionDef) - (Data.ProtoLens.OptionalField maybe'versions) - :: Data.ProtoLens.FieldDescriptor SavedTensorSliceMeta - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.SavedTensorSliceMeta") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, tensor__field_descriptor), - (Data.ProtoLens.Tag 2, versions__field_descriptor)]) - (Data.Map.fromList - [("tensor", tensor__field_descriptor), - ("versions", versions__field_descriptor)]) - -data SavedTensorSlices = SavedTensorSlices{_SavedTensorSlices'meta - :: !(Prelude.Maybe SavedTensorSliceMeta), - _SavedTensorSlices'data' :: !(Prelude.Maybe SavedSlice)} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ SavedTensorSliceMeta, b ~ SavedTensorSliceMeta, - Prelude.Functor f) => - Lens.Labels.HasLens "meta" f SavedTensorSlices SavedTensorSlices a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _SavedTensorSlices'meta - (\ x__ y__ -> x__{_SavedTensorSlices'meta = y__})) - (Data.ProtoLens.maybeLens Data.Default.Class.def) - -instance (a ~ Prelude.Maybe SavedTensorSliceMeta, - b ~ Prelude.Maybe SavedTensorSliceMeta, Prelude.Functor f) => - Lens.Labels.HasLens "maybe'meta" f SavedTensorSlices - SavedTensorSlices - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _SavedTensorSlices'meta - (\ x__ y__ -> x__{_SavedTensorSlices'meta = y__})) - Prelude.id - -instance (a ~ SavedSlice, b ~ SavedSlice, Prelude.Functor f) => - Lens.Labels.HasLens "data'" f SavedTensorSlices SavedTensorSlices a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _SavedTensorSlices'data' - (\ x__ y__ -> x__{_SavedTensorSlices'data' = y__})) - (Data.ProtoLens.maybeLens Data.Default.Class.def) - -instance (a ~ Prelude.Maybe SavedSlice, - b ~ Prelude.Maybe SavedSlice, Prelude.Functor f) => - Lens.Labels.HasLens "maybe'data'" f SavedTensorSlices - SavedTensorSlices - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _SavedTensorSlices'data' - (\ x__ y__ -> x__{_SavedTensorSlices'data' = y__})) - Prelude.id - -instance Data.Default.Class.Default SavedTensorSlices where - def - = SavedTensorSlices{_SavedTensorSlices'meta = Prelude.Nothing, - _SavedTensorSlices'data' = Prelude.Nothing} - -instance Data.ProtoLens.Message SavedTensorSlices where - descriptor - = let meta__field_descriptor - = Data.ProtoLens.FieldDescriptor "meta" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor SavedTensorSliceMeta) - (Data.ProtoLens.OptionalField maybe'meta) - :: Data.ProtoLens.FieldDescriptor SavedTensorSlices - data'__field_descriptor - = Data.ProtoLens.FieldDescriptor "data" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor SavedSlice) - (Data.ProtoLens.OptionalField maybe'data') - :: Data.ProtoLens.FieldDescriptor SavedTensorSlices - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.SavedTensorSlices") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, meta__field_descriptor), - (Data.ProtoLens.Tag 2, data'__field_descriptor)]) - (Data.Map.fromList - [("meta", meta__field_descriptor), - ("data", data'__field_descriptor)]) - -data' :: - forall f s t a b . (Lens.Labels.HasLens "data'" f s t a b) => - Lens.Family2.LensLike f s t a b -data' - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "data'") - -maybe'data' :: - forall f s t a b . (Lens.Labels.HasLens "maybe'data'" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'data' - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'data'") - -maybe'meta :: - forall f s t a b . (Lens.Labels.HasLens "maybe'meta" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'meta - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'meta") - -maybe'shape :: - forall f s t a b . (Lens.Labels.HasLens "maybe'shape" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'shape - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'shape") - -maybe'slice :: - forall f s t a b . (Lens.Labels.HasLens "maybe'slice" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'slice - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'slice") - -maybe'versions :: - forall f s t a b . - (Lens.Labels.HasLens "maybe'versions" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'versions - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'versions") - -meta :: - forall f s t a b . (Lens.Labels.HasLens "meta" f s t a b) => - Lens.Family2.LensLike f s t a b -meta - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "meta") - -name :: - forall f s t a b . (Lens.Labels.HasLens "name" f s t a b) => - Lens.Family2.LensLike f s t a b -name - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "name") - -shape :: - forall f s t a b . (Lens.Labels.HasLens "shape" f s t a b) => - Lens.Family2.LensLike f s t a b -shape - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "shape") - -slice :: - forall f s t a b . (Lens.Labels.HasLens "slice" f s t a b) => - Lens.Family2.LensLike f s t a b -slice - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "slice") - -tensor :: - forall f s t a b . (Lens.Labels.HasLens "tensor" f s t a b) => - Lens.Family2.LensLike f s t a b -tensor - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "tensor") - -type' :: - forall f s t a b . (Lens.Labels.HasLens "type'" f s t a b) => - Lens.Family2.LensLike f s t a b -type' - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "type'") - -versions :: - forall f s t a b . (Lens.Labels.HasLens "versions" f s t a b) => - Lens.Family2.LensLike f s t a b -versions - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "versions") diff --git a/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Util/TestLog.hs b/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Util/TestLog.hs deleted file mode 100644 --- a/.stack-work/dist/x86_64-linux/Cabal-2.0.1.0/build/global-autogen/Proto/Tensorflow/Core/Util/TestLog.hs +++ /dev/null @@ -1,2311 +0,0 @@ -{- This file was auto-generated from tensorflow/core/util/test_log.proto by the proto-lens-protoc program. -} -{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies, - UndecidableInstances, MultiParamTypeClasses, FlexibleContexts, - FlexibleInstances, PatternSynonyms, MagicHash, NoImplicitPrelude - #-} -{-# OPTIONS_GHC -fno-warn-unused-imports#-} -module Proto.Tensorflow.Core.Util.TestLog where -import qualified Data.ProtoLens.Reexport.Prelude as Prelude -import qualified Data.ProtoLens.Reexport.Data.Int as Data.Int -import qualified Data.ProtoLens.Reexport.Data.Word as Data.Word -import qualified Data.ProtoLens.Reexport.Data.ProtoLens - as Data.ProtoLens -import qualified - Data.ProtoLens.Reexport.Data.ProtoLens.Message.Enum - as Data.ProtoLens.Message.Enum -import qualified Data.ProtoLens.Reexport.Lens.Family2 - as Lens.Family2 -import qualified Data.ProtoLens.Reexport.Lens.Family2.Unchecked - as Lens.Family2.Unchecked -import qualified Data.ProtoLens.Reexport.Data.Default.Class - as Data.Default.Class -import qualified Data.ProtoLens.Reexport.Data.Text as Data.Text -import qualified Data.ProtoLens.Reexport.Data.Map as Data.Map -import qualified Data.ProtoLens.Reexport.Data.ByteString - as Data.ByteString -import qualified Data.ProtoLens.Reexport.Lens.Labels as Lens.Labels -import qualified Proto.Google.Protobuf.Any - -data AvailableDeviceInfo = AvailableDeviceInfo{_AvailableDeviceInfo'name - :: !Data.Text.Text, - _AvailableDeviceInfo'type' :: !Data.Text.Text, - _AvailableDeviceInfo'memoryLimit :: !Data.Int.Int64, - _AvailableDeviceInfo'physicalDescription :: - !Data.Text.Text} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "name" f AvailableDeviceInfo - AvailableDeviceInfo - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _AvailableDeviceInfo'name - (\ x__ y__ -> x__{_AvailableDeviceInfo'name = y__})) - Prelude.id - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "type'" f AvailableDeviceInfo - AvailableDeviceInfo - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _AvailableDeviceInfo'type' - (\ x__ y__ -> x__{_AvailableDeviceInfo'type' = y__})) - Prelude.id - -instance (a ~ Data.Int.Int64, b ~ Data.Int.Int64, - Prelude.Functor f) => - Lens.Labels.HasLens "memoryLimit" f AvailableDeviceInfo - AvailableDeviceInfo - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _AvailableDeviceInfo'memoryLimit - (\ x__ y__ -> x__{_AvailableDeviceInfo'memoryLimit = y__})) - Prelude.id - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "physicalDescription" f AvailableDeviceInfo - AvailableDeviceInfo - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _AvailableDeviceInfo'physicalDescription - (\ x__ y__ -> x__{_AvailableDeviceInfo'physicalDescription = y__})) - Prelude.id - -instance Data.Default.Class.Default AvailableDeviceInfo where - def - = AvailableDeviceInfo{_AvailableDeviceInfo'name = - Data.ProtoLens.fieldDefault, - _AvailableDeviceInfo'type' = Data.ProtoLens.fieldDefault, - _AvailableDeviceInfo'memoryLimit = Data.ProtoLens.fieldDefault, - _AvailableDeviceInfo'physicalDescription = - Data.ProtoLens.fieldDefault} - -instance Data.ProtoLens.Message AvailableDeviceInfo where - descriptor - = let name__field_descriptor - = Data.ProtoLens.FieldDescriptor "name" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional name) - :: Data.ProtoLens.FieldDescriptor AvailableDeviceInfo - type'__field_descriptor - = Data.ProtoLens.FieldDescriptor "type" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional type') - :: Data.ProtoLens.FieldDescriptor AvailableDeviceInfo - memoryLimit__field_descriptor - = Data.ProtoLens.FieldDescriptor "memory_limit" - (Data.ProtoLens.Int64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional memoryLimit) - :: Data.ProtoLens.FieldDescriptor AvailableDeviceInfo - physicalDescription__field_descriptor - = Data.ProtoLens.FieldDescriptor "physical_description" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional - physicalDescription) - :: Data.ProtoLens.FieldDescriptor AvailableDeviceInfo - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.AvailableDeviceInfo") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, name__field_descriptor), - (Data.ProtoLens.Tag 2, type'__field_descriptor), - (Data.ProtoLens.Tag 3, memoryLimit__field_descriptor), - (Data.ProtoLens.Tag 4, physicalDescription__field_descriptor)]) - (Data.Map.fromList - [("name", name__field_descriptor), - ("type", type'__field_descriptor), - ("memory_limit", memoryLimit__field_descriptor), - ("physical_description", physicalDescription__field_descriptor)]) - -data BenchmarkEntries = BenchmarkEntries{_BenchmarkEntries'entry :: - ![BenchmarkEntry]} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ [BenchmarkEntry], b ~ [BenchmarkEntry], - Prelude.Functor f) => - Lens.Labels.HasLens "entry" f BenchmarkEntries BenchmarkEntries a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _BenchmarkEntries'entry - (\ x__ y__ -> x__{_BenchmarkEntries'entry = y__})) - Prelude.id - -instance Data.Default.Class.Default BenchmarkEntries where - def = BenchmarkEntries{_BenchmarkEntries'entry = []} - -instance Data.ProtoLens.Message BenchmarkEntries where - descriptor - = let entry__field_descriptor - = Data.ProtoLens.FieldDescriptor "entry" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor BenchmarkEntry) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked entry) - :: Data.ProtoLens.FieldDescriptor BenchmarkEntries - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.BenchmarkEntries") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, entry__field_descriptor)]) - (Data.Map.fromList [("entry", entry__field_descriptor)]) - -data BenchmarkEntry = BenchmarkEntry{_BenchmarkEntry'name :: - !Data.Text.Text, - _BenchmarkEntry'iters :: !Data.Int.Int64, - _BenchmarkEntry'cpuTime :: !Prelude.Double, - _BenchmarkEntry'wallTime :: !Prelude.Double, - _BenchmarkEntry'throughput :: !Prelude.Double, - _BenchmarkEntry'extras :: - !(Data.Map.Map Data.Text.Text EntryValue)} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "name" f BenchmarkEntry BenchmarkEntry a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _BenchmarkEntry'name - (\ x__ y__ -> x__{_BenchmarkEntry'name = y__})) - Prelude.id - -instance (a ~ Data.Int.Int64, b ~ Data.Int.Int64, - Prelude.Functor f) => - Lens.Labels.HasLens "iters" f BenchmarkEntry BenchmarkEntry a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _BenchmarkEntry'iters - (\ x__ y__ -> x__{_BenchmarkEntry'iters = y__})) - Prelude.id - -instance (a ~ Prelude.Double, b ~ Prelude.Double, - Prelude.Functor f) => - Lens.Labels.HasLens "cpuTime" f BenchmarkEntry BenchmarkEntry a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _BenchmarkEntry'cpuTime - (\ x__ y__ -> x__{_BenchmarkEntry'cpuTime = y__})) - Prelude.id - -instance (a ~ Prelude.Double, b ~ Prelude.Double, - Prelude.Functor f) => - Lens.Labels.HasLens "wallTime" f BenchmarkEntry BenchmarkEntry a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _BenchmarkEntry'wallTime - (\ x__ y__ -> x__{_BenchmarkEntry'wallTime = y__})) - Prelude.id - -instance (a ~ Prelude.Double, b ~ Prelude.Double, - Prelude.Functor f) => - Lens.Labels.HasLens "throughput" f BenchmarkEntry BenchmarkEntry a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _BenchmarkEntry'throughput - (\ x__ y__ -> x__{_BenchmarkEntry'throughput = y__})) - Prelude.id - -instance (a ~ Data.Map.Map Data.Text.Text EntryValue, - b ~ Data.Map.Map Data.Text.Text EntryValue, Prelude.Functor f) => - Lens.Labels.HasLens "extras" f BenchmarkEntry BenchmarkEntry a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _BenchmarkEntry'extras - (\ x__ y__ -> x__{_BenchmarkEntry'extras = y__})) - Prelude.id - -instance Data.Default.Class.Default BenchmarkEntry where - def - = BenchmarkEntry{_BenchmarkEntry'name = - Data.ProtoLens.fieldDefault, - _BenchmarkEntry'iters = Data.ProtoLens.fieldDefault, - _BenchmarkEntry'cpuTime = Data.ProtoLens.fieldDefault, - _BenchmarkEntry'wallTime = Data.ProtoLens.fieldDefault, - _BenchmarkEntry'throughput = Data.ProtoLens.fieldDefault, - _BenchmarkEntry'extras = Data.Map.empty} - -instance Data.ProtoLens.Message BenchmarkEntry where - descriptor - = let name__field_descriptor - = Data.ProtoLens.FieldDescriptor "name" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional name) - :: Data.ProtoLens.FieldDescriptor BenchmarkEntry - iters__field_descriptor - = Data.ProtoLens.FieldDescriptor "iters" - (Data.ProtoLens.Int64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional iters) - :: Data.ProtoLens.FieldDescriptor BenchmarkEntry - cpuTime__field_descriptor - = Data.ProtoLens.FieldDescriptor "cpu_time" - (Data.ProtoLens.DoubleField :: - Data.ProtoLens.FieldTypeDescriptor Prelude.Double) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional cpuTime) - :: Data.ProtoLens.FieldDescriptor BenchmarkEntry - wallTime__field_descriptor - = Data.ProtoLens.FieldDescriptor "wall_time" - (Data.ProtoLens.DoubleField :: - Data.ProtoLens.FieldTypeDescriptor Prelude.Double) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional wallTime) - :: Data.ProtoLens.FieldDescriptor BenchmarkEntry - throughput__field_descriptor - = Data.ProtoLens.FieldDescriptor "throughput" - (Data.ProtoLens.DoubleField :: - Data.ProtoLens.FieldTypeDescriptor Prelude.Double) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional throughput) - :: Data.ProtoLens.FieldDescriptor BenchmarkEntry - extras__field_descriptor - = Data.ProtoLens.FieldDescriptor "extras" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor BenchmarkEntry'ExtrasEntry) - (Data.ProtoLens.MapField key value extras) - :: Data.ProtoLens.FieldDescriptor BenchmarkEntry - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.BenchmarkEntry") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, name__field_descriptor), - (Data.ProtoLens.Tag 2, iters__field_descriptor), - (Data.ProtoLens.Tag 3, cpuTime__field_descriptor), - (Data.ProtoLens.Tag 4, wallTime__field_descriptor), - (Data.ProtoLens.Tag 5, throughput__field_descriptor), - (Data.ProtoLens.Tag 6, extras__field_descriptor)]) - (Data.Map.fromList - [("name", name__field_descriptor), - ("iters", iters__field_descriptor), - ("cpu_time", cpuTime__field_descriptor), - ("wall_time", wallTime__field_descriptor), - ("throughput", throughput__field_descriptor), - ("extras", extras__field_descriptor)]) - -data BenchmarkEntry'ExtrasEntry = BenchmarkEntry'ExtrasEntry{_BenchmarkEntry'ExtrasEntry'key - :: !Data.Text.Text, - _BenchmarkEntry'ExtrasEntry'value :: - !(Prelude.Maybe EntryValue)} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "key" f BenchmarkEntry'ExtrasEntry - BenchmarkEntry'ExtrasEntry - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _BenchmarkEntry'ExtrasEntry'key - (\ x__ y__ -> x__{_BenchmarkEntry'ExtrasEntry'key = y__})) - Prelude.id - -instance (a ~ EntryValue, b ~ EntryValue, Prelude.Functor f) => - Lens.Labels.HasLens "value" f BenchmarkEntry'ExtrasEntry - BenchmarkEntry'ExtrasEntry - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _BenchmarkEntry'ExtrasEntry'value - (\ x__ y__ -> x__{_BenchmarkEntry'ExtrasEntry'value = y__})) - (Data.ProtoLens.maybeLens Data.Default.Class.def) - -instance (a ~ Prelude.Maybe EntryValue, - b ~ Prelude.Maybe EntryValue, Prelude.Functor f) => - Lens.Labels.HasLens "maybe'value" f BenchmarkEntry'ExtrasEntry - BenchmarkEntry'ExtrasEntry - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _BenchmarkEntry'ExtrasEntry'value - (\ x__ y__ -> x__{_BenchmarkEntry'ExtrasEntry'value = y__})) - Prelude.id - -instance Data.Default.Class.Default BenchmarkEntry'ExtrasEntry - where - def - = BenchmarkEntry'ExtrasEntry{_BenchmarkEntry'ExtrasEntry'key = - Data.ProtoLens.fieldDefault, - _BenchmarkEntry'ExtrasEntry'value = Prelude.Nothing} - -instance Data.ProtoLens.Message BenchmarkEntry'ExtrasEntry where - descriptor - = let key__field_descriptor - = Data.ProtoLens.FieldDescriptor "key" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional key) - :: Data.ProtoLens.FieldDescriptor BenchmarkEntry'ExtrasEntry - value__field_descriptor - = Data.ProtoLens.FieldDescriptor "value" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor EntryValue) - (Data.ProtoLens.OptionalField maybe'value) - :: Data.ProtoLens.FieldDescriptor BenchmarkEntry'ExtrasEntry - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.BenchmarkEntry.ExtrasEntry") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, key__field_descriptor), - (Data.ProtoLens.Tag 2, value__field_descriptor)]) - (Data.Map.fromList - [("key", key__field_descriptor), - ("value", value__field_descriptor)]) - -data BuildConfiguration = BuildConfiguration{_BuildConfiguration'mode - :: !Data.Text.Text, - _BuildConfiguration'ccFlags :: ![Data.Text.Text], - _BuildConfiguration'opts :: ![Data.Text.Text]} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "mode" f BuildConfiguration BuildConfiguration - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _BuildConfiguration'mode - (\ x__ y__ -> x__{_BuildConfiguration'mode = y__})) - Prelude.id - -instance (a ~ [Data.Text.Text], b ~ [Data.Text.Text], - Prelude.Functor f) => - Lens.Labels.HasLens "ccFlags" f BuildConfiguration - BuildConfiguration - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _BuildConfiguration'ccFlags - (\ x__ y__ -> x__{_BuildConfiguration'ccFlags = y__})) - Prelude.id - -instance (a ~ [Data.Text.Text], b ~ [Data.Text.Text], - Prelude.Functor f) => - Lens.Labels.HasLens "opts" f BuildConfiguration BuildConfiguration - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _BuildConfiguration'opts - (\ x__ y__ -> x__{_BuildConfiguration'opts = y__})) - Prelude.id - -instance Data.Default.Class.Default BuildConfiguration where - def - = BuildConfiguration{_BuildConfiguration'mode = - Data.ProtoLens.fieldDefault, - _BuildConfiguration'ccFlags = [], _BuildConfiguration'opts = []} - -instance Data.ProtoLens.Message BuildConfiguration where - descriptor - = let mode__field_descriptor - = Data.ProtoLens.FieldDescriptor "mode" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional mode) - :: Data.ProtoLens.FieldDescriptor BuildConfiguration - ccFlags__field_descriptor - = Data.ProtoLens.FieldDescriptor "cc_flags" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked ccFlags) - :: Data.ProtoLens.FieldDescriptor BuildConfiguration - opts__field_descriptor - = Data.ProtoLens.FieldDescriptor "opts" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked opts) - :: Data.ProtoLens.FieldDescriptor BuildConfiguration - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.BuildConfiguration") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, mode__field_descriptor), - (Data.ProtoLens.Tag 2, ccFlags__field_descriptor), - (Data.ProtoLens.Tag 3, opts__field_descriptor)]) - (Data.Map.fromList - [("mode", mode__field_descriptor), - ("cc_flags", ccFlags__field_descriptor), - ("opts", opts__field_descriptor)]) - -data CPUInfo = CPUInfo{_CPUInfo'numCores :: !Data.Int.Int64, - _CPUInfo'numCoresAllowed :: !Data.Int.Int64, - _CPUInfo'mhzPerCpu :: !Prelude.Double, - _CPUInfo'cpuInfo :: !Data.Text.Text, - _CPUInfo'cpuGovernor :: !Data.Text.Text, - _CPUInfo'cacheSize :: - !(Data.Map.Map Data.Text.Text Data.Int.Int64)} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Data.Int.Int64, b ~ Data.Int.Int64, - Prelude.Functor f) => - Lens.Labels.HasLens "numCores" f CPUInfo CPUInfo a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _CPUInfo'numCores - (\ x__ y__ -> x__{_CPUInfo'numCores = y__})) - Prelude.id - -instance (a ~ Data.Int.Int64, b ~ Data.Int.Int64, - Prelude.Functor f) => - Lens.Labels.HasLens "numCoresAllowed" f CPUInfo CPUInfo a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _CPUInfo'numCoresAllowed - (\ x__ y__ -> x__{_CPUInfo'numCoresAllowed = y__})) - Prelude.id - -instance (a ~ Prelude.Double, b ~ Prelude.Double, - Prelude.Functor f) => - Lens.Labels.HasLens "mhzPerCpu" f CPUInfo CPUInfo a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _CPUInfo'mhzPerCpu - (\ x__ y__ -> x__{_CPUInfo'mhzPerCpu = y__})) - Prelude.id - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "cpuInfo" f CPUInfo CPUInfo a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _CPUInfo'cpuInfo - (\ x__ y__ -> x__{_CPUInfo'cpuInfo = y__})) - Prelude.id - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "cpuGovernor" f CPUInfo CPUInfo a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _CPUInfo'cpuGovernor - (\ x__ y__ -> x__{_CPUInfo'cpuGovernor = y__})) - Prelude.id - -instance (a ~ Data.Map.Map Data.Text.Text Data.Int.Int64, - b ~ Data.Map.Map Data.Text.Text Data.Int.Int64, - Prelude.Functor f) => - Lens.Labels.HasLens "cacheSize" f CPUInfo CPUInfo a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _CPUInfo'cacheSize - (\ x__ y__ -> x__{_CPUInfo'cacheSize = y__})) - Prelude.id - -instance Data.Default.Class.Default CPUInfo where - def - = CPUInfo{_CPUInfo'numCores = Data.ProtoLens.fieldDefault, - _CPUInfo'numCoresAllowed = Data.ProtoLens.fieldDefault, - _CPUInfo'mhzPerCpu = Data.ProtoLens.fieldDefault, - _CPUInfo'cpuInfo = Data.ProtoLens.fieldDefault, - _CPUInfo'cpuGovernor = Data.ProtoLens.fieldDefault, - _CPUInfo'cacheSize = Data.Map.empty} - -instance Data.ProtoLens.Message CPUInfo where - descriptor - = let numCores__field_descriptor - = Data.ProtoLens.FieldDescriptor "num_cores" - (Data.ProtoLens.Int64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional numCores) - :: Data.ProtoLens.FieldDescriptor CPUInfo - numCoresAllowed__field_descriptor - = Data.ProtoLens.FieldDescriptor "num_cores_allowed" - (Data.ProtoLens.Int64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional numCoresAllowed) - :: Data.ProtoLens.FieldDescriptor CPUInfo - mhzPerCpu__field_descriptor - = Data.ProtoLens.FieldDescriptor "mhz_per_cpu" - (Data.ProtoLens.DoubleField :: - Data.ProtoLens.FieldTypeDescriptor Prelude.Double) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional mhzPerCpu) - :: Data.ProtoLens.FieldDescriptor CPUInfo - cpuInfo__field_descriptor - = Data.ProtoLens.FieldDescriptor "cpu_info" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional cpuInfo) - :: Data.ProtoLens.FieldDescriptor CPUInfo - cpuGovernor__field_descriptor - = Data.ProtoLens.FieldDescriptor "cpu_governor" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional cpuGovernor) - :: Data.ProtoLens.FieldDescriptor CPUInfo - cacheSize__field_descriptor - = Data.ProtoLens.FieldDescriptor "cache_size" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor CPUInfo'CacheSizeEntry) - (Data.ProtoLens.MapField key value cacheSize) - :: Data.ProtoLens.FieldDescriptor CPUInfo - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.CPUInfo") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, numCores__field_descriptor), - (Data.ProtoLens.Tag 2, numCoresAllowed__field_descriptor), - (Data.ProtoLens.Tag 3, mhzPerCpu__field_descriptor), - (Data.ProtoLens.Tag 4, cpuInfo__field_descriptor), - (Data.ProtoLens.Tag 5, cpuGovernor__field_descriptor), - (Data.ProtoLens.Tag 6, cacheSize__field_descriptor)]) - (Data.Map.fromList - [("num_cores", numCores__field_descriptor), - ("num_cores_allowed", numCoresAllowed__field_descriptor), - ("mhz_per_cpu", mhzPerCpu__field_descriptor), - ("cpu_info", cpuInfo__field_descriptor), - ("cpu_governor", cpuGovernor__field_descriptor), - ("cache_size", cacheSize__field_descriptor)]) - -data CPUInfo'CacheSizeEntry = CPUInfo'CacheSizeEntry{_CPUInfo'CacheSizeEntry'key - :: !Data.Text.Text, - _CPUInfo'CacheSizeEntry'value :: - !Data.Int.Int64} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "key" f CPUInfo'CacheSizeEntry - CPUInfo'CacheSizeEntry - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _CPUInfo'CacheSizeEntry'key - (\ x__ y__ -> x__{_CPUInfo'CacheSizeEntry'key = y__})) - Prelude.id - -instance (a ~ Data.Int.Int64, b ~ Data.Int.Int64, - Prelude.Functor f) => - Lens.Labels.HasLens "value" f CPUInfo'CacheSizeEntry - CPUInfo'CacheSizeEntry - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _CPUInfo'CacheSizeEntry'value - (\ x__ y__ -> x__{_CPUInfo'CacheSizeEntry'value = y__})) - Prelude.id - -instance Data.Default.Class.Default CPUInfo'CacheSizeEntry where - def - = CPUInfo'CacheSizeEntry{_CPUInfo'CacheSizeEntry'key = - Data.ProtoLens.fieldDefault, - _CPUInfo'CacheSizeEntry'value = Data.ProtoLens.fieldDefault} - -instance Data.ProtoLens.Message CPUInfo'CacheSizeEntry where - descriptor - = let key__field_descriptor - = Data.ProtoLens.FieldDescriptor "key" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional key) - :: Data.ProtoLens.FieldDescriptor CPUInfo'CacheSizeEntry - value__field_descriptor - = Data.ProtoLens.FieldDescriptor "value" - (Data.ProtoLens.Int64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional value) - :: Data.ProtoLens.FieldDescriptor CPUInfo'CacheSizeEntry - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.CPUInfo.CacheSizeEntry") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, key__field_descriptor), - (Data.ProtoLens.Tag 2, value__field_descriptor)]) - (Data.Map.fromList - [("key", key__field_descriptor), - ("value", value__field_descriptor)]) - -data CommitId = CommitId{_CommitId'snapshot :: !Data.Text.Text, - _CommitId'pendingChangelist :: !Data.Int.Int64, - _CommitId'kind :: !(Prelude.Maybe CommitId'Kind)} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -data CommitId'Kind = CommitId'Changelist !Data.Int.Int64 - | CommitId'Hash !Data.Text.Text - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "snapshot" f CommitId CommitId a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _CommitId'snapshot - (\ x__ y__ -> x__{_CommitId'snapshot = y__})) - Prelude.id - -instance (a ~ Data.Int.Int64, b ~ Data.Int.Int64, - Prelude.Functor f) => - Lens.Labels.HasLens "pendingChangelist" f CommitId CommitId a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _CommitId'pendingChangelist - (\ x__ y__ -> x__{_CommitId'pendingChangelist = y__})) - Prelude.id - -instance (a ~ Prelude.Maybe CommitId'Kind, - b ~ Prelude.Maybe CommitId'Kind, Prelude.Functor f) => - Lens.Labels.HasLens "maybe'kind" f CommitId CommitId a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _CommitId'kind - (\ x__ y__ -> x__{_CommitId'kind = y__})) - Prelude.id - -instance (a ~ Prelude.Maybe Data.Int.Int64, - b ~ Prelude.Maybe Data.Int.Int64, Prelude.Functor f) => - Lens.Labels.HasLens "maybe'changelist" f CommitId CommitId a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _CommitId'kind - (\ x__ y__ -> x__{_CommitId'kind = y__})) - (Lens.Family2.Unchecked.lens - (\ x__ -> - case x__ of - Prelude.Just (CommitId'Changelist x__val) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap CommitId'Changelist y__)) - -instance (a ~ Data.Int.Int64, b ~ Data.Int.Int64, - Prelude.Functor f) => - Lens.Labels.HasLens "changelist" f CommitId CommitId a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _CommitId'kind - (\ x__ y__ -> x__{_CommitId'kind = y__})) - ((Prelude..) - (Lens.Family2.Unchecked.lens - (\ x__ -> - case x__ of - Prelude.Just (CommitId'Changelist x__val) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap CommitId'Changelist y__)) - (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)) - -instance (a ~ Prelude.Maybe Data.Text.Text, - b ~ Prelude.Maybe Data.Text.Text, Prelude.Functor f) => - Lens.Labels.HasLens "maybe'hash" f CommitId CommitId a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _CommitId'kind - (\ x__ y__ -> x__{_CommitId'kind = y__})) - (Lens.Family2.Unchecked.lens - (\ x__ -> - case x__ of - Prelude.Just (CommitId'Hash x__val) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap CommitId'Hash y__)) - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "hash" f CommitId CommitId a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _CommitId'kind - (\ x__ y__ -> x__{_CommitId'kind = y__})) - ((Prelude..) - (Lens.Family2.Unchecked.lens - (\ x__ -> - case x__ of - Prelude.Just (CommitId'Hash x__val) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap CommitId'Hash y__)) - (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)) - -instance Data.Default.Class.Default CommitId where - def - = CommitId{_CommitId'snapshot = Data.ProtoLens.fieldDefault, - _CommitId'pendingChangelist = Data.ProtoLens.fieldDefault, - _CommitId'kind = Prelude.Nothing} - -instance Data.ProtoLens.Message CommitId where - descriptor - = let snapshot__field_descriptor - = Data.ProtoLens.FieldDescriptor "snapshot" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional snapshot) - :: Data.ProtoLens.FieldDescriptor CommitId - pendingChangelist__field_descriptor - = Data.ProtoLens.FieldDescriptor "pending_changelist" - (Data.ProtoLens.Int64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional - pendingChangelist) - :: Data.ProtoLens.FieldDescriptor CommitId - changelist__field_descriptor - = Data.ProtoLens.FieldDescriptor "changelist" - (Data.ProtoLens.Int64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) - (Data.ProtoLens.OptionalField maybe'changelist) - :: Data.ProtoLens.FieldDescriptor CommitId - hash__field_descriptor - = Data.ProtoLens.FieldDescriptor "hash" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.OptionalField maybe'hash) - :: Data.ProtoLens.FieldDescriptor CommitId - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.CommitId") - (Data.Map.fromList - [(Data.ProtoLens.Tag 3, snapshot__field_descriptor), - (Data.ProtoLens.Tag 4, pendingChangelist__field_descriptor), - (Data.ProtoLens.Tag 1, changelist__field_descriptor), - (Data.ProtoLens.Tag 2, hash__field_descriptor)]) - (Data.Map.fromList - [("snapshot", snapshot__field_descriptor), - ("pending_changelist", pendingChangelist__field_descriptor), - ("changelist", changelist__field_descriptor), - ("hash", hash__field_descriptor)]) - -data EntryValue = EntryValue{_EntryValue'kind :: - !(Prelude.Maybe EntryValue'Kind)} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -data EntryValue'Kind = EntryValue'DoubleValue !Prelude.Double - | EntryValue'StringValue !Data.Text.Text - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Prelude.Maybe EntryValue'Kind, - b ~ Prelude.Maybe EntryValue'Kind, Prelude.Functor f) => - Lens.Labels.HasLens "maybe'kind" f EntryValue EntryValue a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _EntryValue'kind - (\ x__ y__ -> x__{_EntryValue'kind = y__})) - Prelude.id - -instance (a ~ Prelude.Maybe Prelude.Double, - b ~ Prelude.Maybe Prelude.Double, Prelude.Functor f) => - Lens.Labels.HasLens "maybe'doubleValue" f EntryValue EntryValue a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _EntryValue'kind - (\ x__ y__ -> x__{_EntryValue'kind = y__})) - (Lens.Family2.Unchecked.lens - (\ x__ -> - case x__ of - Prelude.Just (EntryValue'DoubleValue x__val) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap EntryValue'DoubleValue y__)) - -instance (a ~ Prelude.Double, b ~ Prelude.Double, - Prelude.Functor f) => - Lens.Labels.HasLens "doubleValue" f EntryValue EntryValue a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _EntryValue'kind - (\ x__ y__ -> x__{_EntryValue'kind = y__})) - ((Prelude..) - (Lens.Family2.Unchecked.lens - (\ x__ -> - case x__ of - Prelude.Just (EntryValue'DoubleValue x__val) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap EntryValue'DoubleValue y__)) - (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)) - -instance (a ~ Prelude.Maybe Data.Text.Text, - b ~ Prelude.Maybe Data.Text.Text, Prelude.Functor f) => - Lens.Labels.HasLens "maybe'stringValue" f EntryValue EntryValue a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _EntryValue'kind - (\ x__ y__ -> x__{_EntryValue'kind = y__})) - (Lens.Family2.Unchecked.lens - (\ x__ -> - case x__ of - Prelude.Just (EntryValue'StringValue x__val) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap EntryValue'StringValue y__)) - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "stringValue" f EntryValue EntryValue a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _EntryValue'kind - (\ x__ y__ -> x__{_EntryValue'kind = y__})) - ((Prelude..) - (Lens.Family2.Unchecked.lens - (\ x__ -> - case x__ of - Prelude.Just (EntryValue'StringValue x__val) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap EntryValue'StringValue y__)) - (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)) - -instance Data.Default.Class.Default EntryValue where - def = EntryValue{_EntryValue'kind = Prelude.Nothing} - -instance Data.ProtoLens.Message EntryValue where - descriptor - = let doubleValue__field_descriptor - = Data.ProtoLens.FieldDescriptor "double_value" - (Data.ProtoLens.DoubleField :: - Data.ProtoLens.FieldTypeDescriptor Prelude.Double) - (Data.ProtoLens.OptionalField maybe'doubleValue) - :: Data.ProtoLens.FieldDescriptor EntryValue - stringValue__field_descriptor - = Data.ProtoLens.FieldDescriptor "string_value" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.OptionalField maybe'stringValue) - :: Data.ProtoLens.FieldDescriptor EntryValue - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.EntryValue") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, doubleValue__field_descriptor), - (Data.ProtoLens.Tag 2, stringValue__field_descriptor)]) - (Data.Map.fromList - [("double_value", doubleValue__field_descriptor), - ("string_value", stringValue__field_descriptor)]) - -data GPUInfo = GPUInfo{_GPUInfo'model :: !Data.Text.Text, - _GPUInfo'uuid :: !Data.Text.Text, - _GPUInfo'busId :: !Data.Text.Text} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "model" f GPUInfo GPUInfo a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _GPUInfo'model - (\ x__ y__ -> x__{_GPUInfo'model = y__})) - Prelude.id - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "uuid" f GPUInfo GPUInfo a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _GPUInfo'uuid - (\ x__ y__ -> x__{_GPUInfo'uuid = y__})) - Prelude.id - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "busId" f GPUInfo GPUInfo a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _GPUInfo'busId - (\ x__ y__ -> x__{_GPUInfo'busId = y__})) - Prelude.id - -instance Data.Default.Class.Default GPUInfo where - def - = GPUInfo{_GPUInfo'model = Data.ProtoLens.fieldDefault, - _GPUInfo'uuid = Data.ProtoLens.fieldDefault, - _GPUInfo'busId = Data.ProtoLens.fieldDefault} - -instance Data.ProtoLens.Message GPUInfo where - descriptor - = let model__field_descriptor - = Data.ProtoLens.FieldDescriptor "model" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional model) - :: Data.ProtoLens.FieldDescriptor GPUInfo - uuid__field_descriptor - = Data.ProtoLens.FieldDescriptor "uuid" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional uuid) - :: Data.ProtoLens.FieldDescriptor GPUInfo - busId__field_descriptor - = Data.ProtoLens.FieldDescriptor "bus_id" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional busId) - :: Data.ProtoLens.FieldDescriptor GPUInfo - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.GPUInfo") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, model__field_descriptor), - (Data.ProtoLens.Tag 2, uuid__field_descriptor), - (Data.ProtoLens.Tag 3, busId__field_descriptor)]) - (Data.Map.fromList - [("model", model__field_descriptor), - ("uuid", uuid__field_descriptor), - ("bus_id", busId__field_descriptor)]) - -data MachineConfiguration = MachineConfiguration{_MachineConfiguration'hostname - :: !Data.Text.Text, - _MachineConfiguration'serialIdentifier :: - !Data.Text.Text, - _MachineConfiguration'platformInfo :: - !(Prelude.Maybe PlatformInfo), - _MachineConfiguration'cpuInfo :: - !(Prelude.Maybe CPUInfo), - _MachineConfiguration'deviceInfo :: - ![Proto.Google.Protobuf.Any.Any], - _MachineConfiguration'availableDeviceInfo :: - ![AvailableDeviceInfo], - _MachineConfiguration'memoryInfo :: - !(Prelude.Maybe MemoryInfo)} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "hostname" f MachineConfiguration - MachineConfiguration - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _MachineConfiguration'hostname - (\ x__ y__ -> x__{_MachineConfiguration'hostname = y__})) - Prelude.id - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "serialIdentifier" f MachineConfiguration - MachineConfiguration - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _MachineConfiguration'serialIdentifier - (\ x__ y__ -> x__{_MachineConfiguration'serialIdentifier = y__})) - Prelude.id - -instance (a ~ PlatformInfo, b ~ PlatformInfo, Prelude.Functor f) => - Lens.Labels.HasLens "platformInfo" f MachineConfiguration - MachineConfiguration - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _MachineConfiguration'platformInfo - (\ x__ y__ -> x__{_MachineConfiguration'platformInfo = y__})) - (Data.ProtoLens.maybeLens Data.Default.Class.def) - -instance (a ~ Prelude.Maybe PlatformInfo, - b ~ Prelude.Maybe PlatformInfo, Prelude.Functor f) => - Lens.Labels.HasLens "maybe'platformInfo" f MachineConfiguration - MachineConfiguration - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _MachineConfiguration'platformInfo - (\ x__ y__ -> x__{_MachineConfiguration'platformInfo = y__})) - Prelude.id - -instance (a ~ CPUInfo, b ~ CPUInfo, Prelude.Functor f) => - Lens.Labels.HasLens "cpuInfo" f MachineConfiguration - MachineConfiguration - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _MachineConfiguration'cpuInfo - (\ x__ y__ -> x__{_MachineConfiguration'cpuInfo = y__})) - (Data.ProtoLens.maybeLens Data.Default.Class.def) - -instance (a ~ Prelude.Maybe CPUInfo, b ~ Prelude.Maybe CPUInfo, - Prelude.Functor f) => - Lens.Labels.HasLens "maybe'cpuInfo" f MachineConfiguration - MachineConfiguration - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _MachineConfiguration'cpuInfo - (\ x__ y__ -> x__{_MachineConfiguration'cpuInfo = y__})) - Prelude.id - -instance (a ~ [Proto.Google.Protobuf.Any.Any], - b ~ [Proto.Google.Protobuf.Any.Any], Prelude.Functor f) => - Lens.Labels.HasLens "deviceInfo" f MachineConfiguration - MachineConfiguration - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _MachineConfiguration'deviceInfo - (\ x__ y__ -> x__{_MachineConfiguration'deviceInfo = y__})) - Prelude.id - -instance (a ~ [AvailableDeviceInfo], b ~ [AvailableDeviceInfo], - Prelude.Functor f) => - Lens.Labels.HasLens "availableDeviceInfo" f MachineConfiguration - MachineConfiguration - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _MachineConfiguration'availableDeviceInfo - (\ x__ y__ -> - x__{_MachineConfiguration'availableDeviceInfo = y__})) - Prelude.id - -instance (a ~ MemoryInfo, b ~ MemoryInfo, Prelude.Functor f) => - Lens.Labels.HasLens "memoryInfo" f MachineConfiguration - MachineConfiguration - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _MachineConfiguration'memoryInfo - (\ x__ y__ -> x__{_MachineConfiguration'memoryInfo = y__})) - (Data.ProtoLens.maybeLens Data.Default.Class.def) - -instance (a ~ Prelude.Maybe MemoryInfo, - b ~ Prelude.Maybe MemoryInfo, Prelude.Functor f) => - Lens.Labels.HasLens "maybe'memoryInfo" f MachineConfiguration - MachineConfiguration - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _MachineConfiguration'memoryInfo - (\ x__ y__ -> x__{_MachineConfiguration'memoryInfo = y__})) - Prelude.id - -instance Data.Default.Class.Default MachineConfiguration where - def - = MachineConfiguration{_MachineConfiguration'hostname = - Data.ProtoLens.fieldDefault, - _MachineConfiguration'serialIdentifier = - Data.ProtoLens.fieldDefault, - _MachineConfiguration'platformInfo = Prelude.Nothing, - _MachineConfiguration'cpuInfo = Prelude.Nothing, - _MachineConfiguration'deviceInfo = [], - _MachineConfiguration'availableDeviceInfo = [], - _MachineConfiguration'memoryInfo = Prelude.Nothing} - -instance Data.ProtoLens.Message MachineConfiguration where - descriptor - = let hostname__field_descriptor - = Data.ProtoLens.FieldDescriptor "hostname" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional hostname) - :: Data.ProtoLens.FieldDescriptor MachineConfiguration - serialIdentifier__field_descriptor - = Data.ProtoLens.FieldDescriptor "serial_identifier" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional - serialIdentifier) - :: Data.ProtoLens.FieldDescriptor MachineConfiguration - platformInfo__field_descriptor - = Data.ProtoLens.FieldDescriptor "platform_info" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor PlatformInfo) - (Data.ProtoLens.OptionalField maybe'platformInfo) - :: Data.ProtoLens.FieldDescriptor MachineConfiguration - cpuInfo__field_descriptor - = Data.ProtoLens.FieldDescriptor "cpu_info" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor CPUInfo) - (Data.ProtoLens.OptionalField maybe'cpuInfo) - :: Data.ProtoLens.FieldDescriptor MachineConfiguration - deviceInfo__field_descriptor - = Data.ProtoLens.FieldDescriptor "device_info" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor Proto.Google.Protobuf.Any.Any) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked deviceInfo) - :: Data.ProtoLens.FieldDescriptor MachineConfiguration - availableDeviceInfo__field_descriptor - = Data.ProtoLens.FieldDescriptor "available_device_info" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor AvailableDeviceInfo) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked - availableDeviceInfo) - :: Data.ProtoLens.FieldDescriptor MachineConfiguration - memoryInfo__field_descriptor - = Data.ProtoLens.FieldDescriptor "memory_info" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor MemoryInfo) - (Data.ProtoLens.OptionalField maybe'memoryInfo) - :: Data.ProtoLens.FieldDescriptor MachineConfiguration - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.MachineConfiguration") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, hostname__field_descriptor), - (Data.ProtoLens.Tag 7, serialIdentifier__field_descriptor), - (Data.ProtoLens.Tag 2, platformInfo__field_descriptor), - (Data.ProtoLens.Tag 3, cpuInfo__field_descriptor), - (Data.ProtoLens.Tag 4, deviceInfo__field_descriptor), - (Data.ProtoLens.Tag 5, availableDeviceInfo__field_descriptor), - (Data.ProtoLens.Tag 6, memoryInfo__field_descriptor)]) - (Data.Map.fromList - [("hostname", hostname__field_descriptor), - ("serial_identifier", serialIdentifier__field_descriptor), - ("platform_info", platformInfo__field_descriptor), - ("cpu_info", cpuInfo__field_descriptor), - ("device_info", deviceInfo__field_descriptor), - ("available_device_info", availableDeviceInfo__field_descriptor), - ("memory_info", memoryInfo__field_descriptor)]) - -data MemoryInfo = MemoryInfo{_MemoryInfo'total :: !Data.Int.Int64, - _MemoryInfo'available :: !Data.Int.Int64} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Data.Int.Int64, b ~ Data.Int.Int64, - Prelude.Functor f) => - Lens.Labels.HasLens "total" f MemoryInfo MemoryInfo a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _MemoryInfo'total - (\ x__ y__ -> x__{_MemoryInfo'total = y__})) - Prelude.id - -instance (a ~ Data.Int.Int64, b ~ Data.Int.Int64, - Prelude.Functor f) => - Lens.Labels.HasLens "available" f MemoryInfo MemoryInfo a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _MemoryInfo'available - (\ x__ y__ -> x__{_MemoryInfo'available = y__})) - Prelude.id - -instance Data.Default.Class.Default MemoryInfo where - def - = MemoryInfo{_MemoryInfo'total = Data.ProtoLens.fieldDefault, - _MemoryInfo'available = Data.ProtoLens.fieldDefault} - -instance Data.ProtoLens.Message MemoryInfo where - descriptor - = let total__field_descriptor - = Data.ProtoLens.FieldDescriptor "total" - (Data.ProtoLens.Int64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional total) - :: Data.ProtoLens.FieldDescriptor MemoryInfo - available__field_descriptor - = Data.ProtoLens.FieldDescriptor "available" - (Data.ProtoLens.Int64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional available) - :: Data.ProtoLens.FieldDescriptor MemoryInfo - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.MemoryInfo") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, total__field_descriptor), - (Data.ProtoLens.Tag 2, available__field_descriptor)]) - (Data.Map.fromList - [("total", total__field_descriptor), - ("available", available__field_descriptor)]) - -data PlatformInfo = PlatformInfo{_PlatformInfo'bits :: - !Data.Text.Text, - _PlatformInfo'linkage :: !Data.Text.Text, - _PlatformInfo'machine :: !Data.Text.Text, - _PlatformInfo'release :: !Data.Text.Text, - _PlatformInfo'system :: !Data.Text.Text, - _PlatformInfo'version :: !Data.Text.Text} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "bits" f PlatformInfo PlatformInfo a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _PlatformInfo'bits - (\ x__ y__ -> x__{_PlatformInfo'bits = y__})) - Prelude.id - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "linkage" f PlatformInfo PlatformInfo a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _PlatformInfo'linkage - (\ x__ y__ -> x__{_PlatformInfo'linkage = y__})) - Prelude.id - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "machine" f PlatformInfo PlatformInfo a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _PlatformInfo'machine - (\ x__ y__ -> x__{_PlatformInfo'machine = y__})) - Prelude.id - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "release" f PlatformInfo PlatformInfo a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _PlatformInfo'release - (\ x__ y__ -> x__{_PlatformInfo'release = y__})) - Prelude.id - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "system" f PlatformInfo PlatformInfo a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _PlatformInfo'system - (\ x__ y__ -> x__{_PlatformInfo'system = y__})) - Prelude.id - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "version" f PlatformInfo PlatformInfo a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _PlatformInfo'version - (\ x__ y__ -> x__{_PlatformInfo'version = y__})) - Prelude.id - -instance Data.Default.Class.Default PlatformInfo where - def - = PlatformInfo{_PlatformInfo'bits = Data.ProtoLens.fieldDefault, - _PlatformInfo'linkage = Data.ProtoLens.fieldDefault, - _PlatformInfo'machine = Data.ProtoLens.fieldDefault, - _PlatformInfo'release = Data.ProtoLens.fieldDefault, - _PlatformInfo'system = Data.ProtoLens.fieldDefault, - _PlatformInfo'version = Data.ProtoLens.fieldDefault} - -instance Data.ProtoLens.Message PlatformInfo where - descriptor - = let bits__field_descriptor - = Data.ProtoLens.FieldDescriptor "bits" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional bits) - :: Data.ProtoLens.FieldDescriptor PlatformInfo - linkage__field_descriptor - = Data.ProtoLens.FieldDescriptor "linkage" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional linkage) - :: Data.ProtoLens.FieldDescriptor PlatformInfo - machine__field_descriptor - = Data.ProtoLens.FieldDescriptor "machine" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional machine) - :: Data.ProtoLens.FieldDescriptor PlatformInfo - release__field_descriptor - = Data.ProtoLens.FieldDescriptor "release" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional release) - :: Data.ProtoLens.FieldDescriptor PlatformInfo - system__field_descriptor - = Data.ProtoLens.FieldDescriptor "system" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional system) - :: Data.ProtoLens.FieldDescriptor PlatformInfo - version__field_descriptor - = Data.ProtoLens.FieldDescriptor "version" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional version) - :: Data.ProtoLens.FieldDescriptor PlatformInfo - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.PlatformInfo") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, bits__field_descriptor), - (Data.ProtoLens.Tag 2, linkage__field_descriptor), - (Data.ProtoLens.Tag 3, machine__field_descriptor), - (Data.ProtoLens.Tag 4, release__field_descriptor), - (Data.ProtoLens.Tag 5, system__field_descriptor), - (Data.ProtoLens.Tag 6, version__field_descriptor)]) - (Data.Map.fromList - [("bits", bits__field_descriptor), - ("linkage", linkage__field_descriptor), - ("machine", machine__field_descriptor), - ("release", release__field_descriptor), - ("system", system__field_descriptor), - ("version", version__field_descriptor)]) - -data RunConfiguration = RunConfiguration{_RunConfiguration'argument - :: ![Data.Text.Text]} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ [Data.Text.Text], b ~ [Data.Text.Text], - Prelude.Functor f) => - Lens.Labels.HasLens "argument" f RunConfiguration RunConfiguration - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _RunConfiguration'argument - (\ x__ y__ -> x__{_RunConfiguration'argument = y__})) - Prelude.id - -instance Data.Default.Class.Default RunConfiguration where - def = RunConfiguration{_RunConfiguration'argument = []} - -instance Data.ProtoLens.Message RunConfiguration where - descriptor - = let argument__field_descriptor - = Data.ProtoLens.FieldDescriptor "argument" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked argument) - :: Data.ProtoLens.FieldDescriptor RunConfiguration - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.RunConfiguration") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, argument__field_descriptor)]) - (Data.Map.fromList [("argument", argument__field_descriptor)]) - -data TestResults = TestResults{_TestResults'target :: - !Data.Text.Text, - _TestResults'entries :: !(Prelude.Maybe BenchmarkEntries), - _TestResults'buildConfiguration :: - !(Prelude.Maybe BuildConfiguration), - _TestResults'commitId :: !(Prelude.Maybe CommitId), - _TestResults'startTime :: !Data.Int.Int64, - _TestResults'runTime :: !Prelude.Double, - _TestResults'machineConfiguration :: - !(Prelude.Maybe MachineConfiguration), - _TestResults'runConfiguration :: !(Prelude.Maybe RunConfiguration), - _TestResults'name :: !Data.Text.Text, - _TestResults'benchmarkType :: !TestResults'BenchmarkType, - _TestResults'runMode :: !Data.Text.Text} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "target" f TestResults TestResults a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _TestResults'target - (\ x__ y__ -> x__{_TestResults'target = y__})) - Prelude.id - -instance (a ~ BenchmarkEntries, b ~ BenchmarkEntries, - Prelude.Functor f) => - Lens.Labels.HasLens "entries" f TestResults TestResults a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _TestResults'entries - (\ x__ y__ -> x__{_TestResults'entries = y__})) - (Data.ProtoLens.maybeLens Data.Default.Class.def) - -instance (a ~ Prelude.Maybe BenchmarkEntries, - b ~ Prelude.Maybe BenchmarkEntries, Prelude.Functor f) => - Lens.Labels.HasLens "maybe'entries" f TestResults TestResults a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _TestResults'entries - (\ x__ y__ -> x__{_TestResults'entries = y__})) - Prelude.id - -instance (a ~ BuildConfiguration, b ~ BuildConfiguration, - Prelude.Functor f) => - Lens.Labels.HasLens "buildConfiguration" f TestResults TestResults - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _TestResults'buildConfiguration - (\ x__ y__ -> x__{_TestResults'buildConfiguration = y__})) - (Data.ProtoLens.maybeLens Data.Default.Class.def) - -instance (a ~ Prelude.Maybe BuildConfiguration, - b ~ Prelude.Maybe BuildConfiguration, Prelude.Functor f) => - Lens.Labels.HasLens "maybe'buildConfiguration" f TestResults - TestResults - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _TestResults'buildConfiguration - (\ x__ y__ -> x__{_TestResults'buildConfiguration = y__})) - Prelude.id - -instance (a ~ CommitId, b ~ CommitId, Prelude.Functor f) => - Lens.Labels.HasLens "commitId" f TestResults TestResults a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _TestResults'commitId - (\ x__ y__ -> x__{_TestResults'commitId = y__})) - (Data.ProtoLens.maybeLens Data.Default.Class.def) - -instance (a ~ Prelude.Maybe CommitId, b ~ Prelude.Maybe CommitId, - Prelude.Functor f) => - Lens.Labels.HasLens "maybe'commitId" f TestResults TestResults a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _TestResults'commitId - (\ x__ y__ -> x__{_TestResults'commitId = y__})) - Prelude.id - -instance (a ~ Data.Int.Int64, b ~ Data.Int.Int64, - Prelude.Functor f) => - Lens.Labels.HasLens "startTime" f TestResults TestResults a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _TestResults'startTime - (\ x__ y__ -> x__{_TestResults'startTime = y__})) - Prelude.id - -instance (a ~ Prelude.Double, b ~ Prelude.Double, - Prelude.Functor f) => - Lens.Labels.HasLens "runTime" f TestResults TestResults a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _TestResults'runTime - (\ x__ y__ -> x__{_TestResults'runTime = y__})) - Prelude.id - -instance (a ~ MachineConfiguration, b ~ MachineConfiguration, - Prelude.Functor f) => - Lens.Labels.HasLens "machineConfiguration" f TestResults - TestResults - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _TestResults'machineConfiguration - (\ x__ y__ -> x__{_TestResults'machineConfiguration = y__})) - (Data.ProtoLens.maybeLens Data.Default.Class.def) - -instance (a ~ Prelude.Maybe MachineConfiguration, - b ~ Prelude.Maybe MachineConfiguration, Prelude.Functor f) => - Lens.Labels.HasLens "maybe'machineConfiguration" f TestResults - TestResults - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _TestResults'machineConfiguration - (\ x__ y__ -> x__{_TestResults'machineConfiguration = y__})) - Prelude.id - -instance (a ~ RunConfiguration, b ~ RunConfiguration, - Prelude.Functor f) => - Lens.Labels.HasLens "runConfiguration" f TestResults TestResults a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _TestResults'runConfiguration - (\ x__ y__ -> x__{_TestResults'runConfiguration = y__})) - (Data.ProtoLens.maybeLens Data.Default.Class.def) - -instance (a ~ Prelude.Maybe RunConfiguration, - b ~ Prelude.Maybe RunConfiguration, Prelude.Functor f) => - Lens.Labels.HasLens "maybe'runConfiguration" f TestResults - TestResults - a - b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _TestResults'runConfiguration - (\ x__ y__ -> x__{_TestResults'runConfiguration = y__})) - Prelude.id - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "name" f TestResults TestResults a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _TestResults'name - (\ x__ y__ -> x__{_TestResults'name = y__})) - Prelude.id - -instance (a ~ TestResults'BenchmarkType, - b ~ TestResults'BenchmarkType, Prelude.Functor f) => - Lens.Labels.HasLens "benchmarkType" f TestResults TestResults a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _TestResults'benchmarkType - (\ x__ y__ -> x__{_TestResults'benchmarkType = y__})) - Prelude.id - -instance (a ~ Data.Text.Text, b ~ Data.Text.Text, - Prelude.Functor f) => - Lens.Labels.HasLens "runMode" f TestResults TestResults a b - where - lensOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens _TestResults'runMode - (\ x__ y__ -> x__{_TestResults'runMode = y__})) - Prelude.id - -instance Data.Default.Class.Default TestResults where - def - = TestResults{_TestResults'target = Data.ProtoLens.fieldDefault, - _TestResults'entries = Prelude.Nothing, - _TestResults'buildConfiguration = Prelude.Nothing, - _TestResults'commitId = Prelude.Nothing, - _TestResults'startTime = Data.ProtoLens.fieldDefault, - _TestResults'runTime = Data.ProtoLens.fieldDefault, - _TestResults'machineConfiguration = Prelude.Nothing, - _TestResults'runConfiguration = Prelude.Nothing, - _TestResults'name = Data.ProtoLens.fieldDefault, - _TestResults'benchmarkType = Data.Default.Class.def, - _TestResults'runMode = Data.ProtoLens.fieldDefault} - -instance Data.ProtoLens.Message TestResults where - descriptor - = let target__field_descriptor - = Data.ProtoLens.FieldDescriptor "target" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional target) - :: Data.ProtoLens.FieldDescriptor TestResults - entries__field_descriptor - = Data.ProtoLens.FieldDescriptor "entries" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor BenchmarkEntries) - (Data.ProtoLens.OptionalField maybe'entries) - :: Data.ProtoLens.FieldDescriptor TestResults - buildConfiguration__field_descriptor - = Data.ProtoLens.FieldDescriptor "build_configuration" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor BuildConfiguration) - (Data.ProtoLens.OptionalField maybe'buildConfiguration) - :: Data.ProtoLens.FieldDescriptor TestResults - commitId__field_descriptor - = Data.ProtoLens.FieldDescriptor "commit_id" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor CommitId) - (Data.ProtoLens.OptionalField maybe'commitId) - :: Data.ProtoLens.FieldDescriptor TestResults - startTime__field_descriptor - = Data.ProtoLens.FieldDescriptor "start_time" - (Data.ProtoLens.Int64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional startTime) - :: Data.ProtoLens.FieldDescriptor TestResults - runTime__field_descriptor - = Data.ProtoLens.FieldDescriptor "run_time" - (Data.ProtoLens.DoubleField :: - Data.ProtoLens.FieldTypeDescriptor Prelude.Double) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional runTime) - :: Data.ProtoLens.FieldDescriptor TestResults - machineConfiguration__field_descriptor - = Data.ProtoLens.FieldDescriptor "machine_configuration" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor MachineConfiguration) - (Data.ProtoLens.OptionalField maybe'machineConfiguration) - :: Data.ProtoLens.FieldDescriptor TestResults - runConfiguration__field_descriptor - = Data.ProtoLens.FieldDescriptor "run_configuration" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor RunConfiguration) - (Data.ProtoLens.OptionalField maybe'runConfiguration) - :: Data.ProtoLens.FieldDescriptor TestResults - name__field_descriptor - = Data.ProtoLens.FieldDescriptor "name" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional name) - :: Data.ProtoLens.FieldDescriptor TestResults - benchmarkType__field_descriptor - = Data.ProtoLens.FieldDescriptor "benchmark_type" - (Data.ProtoLens.EnumField :: - Data.ProtoLens.FieldTypeDescriptor TestResults'BenchmarkType) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional benchmarkType) - :: Data.ProtoLens.FieldDescriptor TestResults - runMode__field_descriptor - = Data.ProtoLens.FieldDescriptor "run_mode" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Optional runMode) - :: Data.ProtoLens.FieldDescriptor TestResults - in - Data.ProtoLens.MessageDescriptor - (Data.Text.pack "tensorflow.TestResults") - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, target__field_descriptor), - (Data.ProtoLens.Tag 2, entries__field_descriptor), - (Data.ProtoLens.Tag 3, buildConfiguration__field_descriptor), - (Data.ProtoLens.Tag 4, commitId__field_descriptor), - (Data.ProtoLens.Tag 5, startTime__field_descriptor), - (Data.ProtoLens.Tag 6, runTime__field_descriptor), - (Data.ProtoLens.Tag 7, machineConfiguration__field_descriptor), - (Data.ProtoLens.Tag 8, runConfiguration__field_descriptor), - (Data.ProtoLens.Tag 9, name__field_descriptor), - (Data.ProtoLens.Tag 10, benchmarkType__field_descriptor), - (Data.ProtoLens.Tag 11, runMode__field_descriptor)]) - (Data.Map.fromList - [("target", target__field_descriptor), - ("entries", entries__field_descriptor), - ("build_configuration", buildConfiguration__field_descriptor), - ("commit_id", commitId__field_descriptor), - ("start_time", startTime__field_descriptor), - ("run_time", runTime__field_descriptor), - ("machine_configuration", machineConfiguration__field_descriptor), - ("run_configuration", runConfiguration__field_descriptor), - ("name", name__field_descriptor), - ("benchmark_type", benchmarkType__field_descriptor), - ("run_mode", runMode__field_descriptor)]) - -data TestResults'BenchmarkType = TestResults'UNKNOWN - | TestResults'CPP_MICROBENCHMARK - | TestResults'PYTHON_BENCHMARK - | TestResults'ANDROID_BENCHMARK - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) - -instance Data.Default.Class.Default TestResults'BenchmarkType where - def = TestResults'UNKNOWN - -instance Data.ProtoLens.FieldDefault TestResults'BenchmarkType - where - fieldDefault = TestResults'UNKNOWN - -instance Data.ProtoLens.MessageEnum TestResults'BenchmarkType where - maybeToEnum 0 = Prelude.Just TestResults'UNKNOWN - maybeToEnum 1 = Prelude.Just TestResults'CPP_MICROBENCHMARK - maybeToEnum 2 = Prelude.Just TestResults'PYTHON_BENCHMARK - maybeToEnum 3 = Prelude.Just TestResults'ANDROID_BENCHMARK - maybeToEnum _ = Prelude.Nothing - showEnum TestResults'UNKNOWN = "UNKNOWN" - showEnum TestResults'CPP_MICROBENCHMARK = "CPP_MICROBENCHMARK" - showEnum TestResults'PYTHON_BENCHMARK = "PYTHON_BENCHMARK" - showEnum TestResults'ANDROID_BENCHMARK = "ANDROID_BENCHMARK" - readEnum "UNKNOWN" = Prelude.Just TestResults'UNKNOWN - readEnum "CPP_MICROBENCHMARK" - = Prelude.Just TestResults'CPP_MICROBENCHMARK - readEnum "PYTHON_BENCHMARK" - = Prelude.Just TestResults'PYTHON_BENCHMARK - readEnum "ANDROID_BENCHMARK" - = Prelude.Just TestResults'ANDROID_BENCHMARK - readEnum _ = Prelude.Nothing - -instance Prelude.Enum TestResults'BenchmarkType where - toEnum k__ - = Prelude.maybe - (Prelude.error - ((Prelude.++) "toEnum: unknown value for enum BenchmarkType: " - (Prelude.show k__))) - Prelude.id - (Data.ProtoLens.maybeToEnum k__) - fromEnum TestResults'UNKNOWN = 0 - fromEnum TestResults'CPP_MICROBENCHMARK = 1 - fromEnum TestResults'PYTHON_BENCHMARK = 2 - fromEnum TestResults'ANDROID_BENCHMARK = 3 - succ TestResults'ANDROID_BENCHMARK - = Prelude.error - "TestResults'BenchmarkType.succ: bad argument TestResults'ANDROID_BENCHMARK. This value would be out of bounds." - succ TestResults'UNKNOWN = TestResults'CPP_MICROBENCHMARK - succ TestResults'CPP_MICROBENCHMARK = TestResults'PYTHON_BENCHMARK - succ TestResults'PYTHON_BENCHMARK = TestResults'ANDROID_BENCHMARK - pred TestResults'UNKNOWN - = Prelude.error - "TestResults'BenchmarkType.pred: bad argument TestResults'UNKNOWN. This value would be out of bounds." - pred TestResults'CPP_MICROBENCHMARK = TestResults'UNKNOWN - pred TestResults'PYTHON_BENCHMARK = TestResults'CPP_MICROBENCHMARK - pred TestResults'ANDROID_BENCHMARK = TestResults'PYTHON_BENCHMARK - enumFrom = Data.ProtoLens.Message.Enum.messageEnumFrom - enumFromTo = Data.ProtoLens.Message.Enum.messageEnumFromTo - enumFromThen = Data.ProtoLens.Message.Enum.messageEnumFromThen - enumFromThenTo = Data.ProtoLens.Message.Enum.messageEnumFromThenTo - -instance Prelude.Bounded TestResults'BenchmarkType where - minBound = TestResults'UNKNOWN - maxBound = TestResults'ANDROID_BENCHMARK - -argument :: - forall f s t a b . (Lens.Labels.HasLens "argument" f s t a b) => - Lens.Family2.LensLike f s t a b -argument - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "argument") - -available :: - forall f s t a b . (Lens.Labels.HasLens "available" f s t a b) => - Lens.Family2.LensLike f s t a b -available - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "available") - -availableDeviceInfo :: - forall f s t a b . - (Lens.Labels.HasLens "availableDeviceInfo" f s t a b) => - Lens.Family2.LensLike f s t a b -availableDeviceInfo - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: - (Lens.Labels.Proxy#) "availableDeviceInfo") - -benchmarkType :: - forall f s t a b . - (Lens.Labels.HasLens "benchmarkType" f s t a b) => - Lens.Family2.LensLike f s t a b -benchmarkType - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "benchmarkType") - -bits :: - forall f s t a b . (Lens.Labels.HasLens "bits" f s t a b) => - Lens.Family2.LensLike f s t a b -bits - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "bits") - -buildConfiguration :: - forall f s t a b . - (Lens.Labels.HasLens "buildConfiguration" f s t a b) => - Lens.Family2.LensLike f s t a b -buildConfiguration - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "buildConfiguration") - -busId :: - forall f s t a b . (Lens.Labels.HasLens "busId" f s t a b) => - Lens.Family2.LensLike f s t a b -busId - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "busId") - -cacheSize :: - forall f s t a b . (Lens.Labels.HasLens "cacheSize" f s t a b) => - Lens.Family2.LensLike f s t a b -cacheSize - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "cacheSize") - -ccFlags :: - forall f s t a b . (Lens.Labels.HasLens "ccFlags" f s t a b) => - Lens.Family2.LensLike f s t a b -ccFlags - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "ccFlags") - -changelist :: - forall f s t a b . (Lens.Labels.HasLens "changelist" f s t a b) => - Lens.Family2.LensLike f s t a b -changelist - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "changelist") - -commitId :: - forall f s t a b . (Lens.Labels.HasLens "commitId" f s t a b) => - Lens.Family2.LensLike f s t a b -commitId - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "commitId") - -cpuGovernor :: - forall f s t a b . (Lens.Labels.HasLens "cpuGovernor" f s t a b) => - Lens.Family2.LensLike f s t a b -cpuGovernor - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "cpuGovernor") - -cpuInfo :: - forall f s t a b . (Lens.Labels.HasLens "cpuInfo" f s t a b) => - Lens.Family2.LensLike f s t a b -cpuInfo - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "cpuInfo") - -cpuTime :: - forall f s t a b . (Lens.Labels.HasLens "cpuTime" f s t a b) => - Lens.Family2.LensLike f s t a b -cpuTime - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "cpuTime") - -deviceInfo :: - forall f s t a b . (Lens.Labels.HasLens "deviceInfo" f s t a b) => - Lens.Family2.LensLike f s t a b -deviceInfo - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "deviceInfo") - -doubleValue :: - forall f s t a b . (Lens.Labels.HasLens "doubleValue" f s t a b) => - Lens.Family2.LensLike f s t a b -doubleValue - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "doubleValue") - -entries :: - forall f s t a b . (Lens.Labels.HasLens "entries" f s t a b) => - Lens.Family2.LensLike f s t a b -entries - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "entries") - -entry :: - forall f s t a b . (Lens.Labels.HasLens "entry" f s t a b) => - Lens.Family2.LensLike f s t a b -entry - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "entry") - -extras :: - forall f s t a b . (Lens.Labels.HasLens "extras" f s t a b) => - Lens.Family2.LensLike f s t a b -extras - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "extras") - -hash :: - forall f s t a b . (Lens.Labels.HasLens "hash" f s t a b) => - Lens.Family2.LensLike f s t a b -hash - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "hash") - -hostname :: - forall f s t a b . (Lens.Labels.HasLens "hostname" f s t a b) => - Lens.Family2.LensLike f s t a b -hostname - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "hostname") - -iters :: - forall f s t a b . (Lens.Labels.HasLens "iters" f s t a b) => - Lens.Family2.LensLike f s t a b -iters - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "iters") - -key :: - forall f s t a b . (Lens.Labels.HasLens "key" f s t a b) => - Lens.Family2.LensLike f s t a b -key - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "key") - -linkage :: - forall f s t a b . (Lens.Labels.HasLens "linkage" f s t a b) => - Lens.Family2.LensLike f s t a b -linkage - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "linkage") - -machine :: - forall f s t a b . (Lens.Labels.HasLens "machine" f s t a b) => - Lens.Family2.LensLike f s t a b -machine - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "machine") - -machineConfiguration :: - forall f s t a b . - (Lens.Labels.HasLens "machineConfiguration" f s t a b) => - Lens.Family2.LensLike f s t a b -machineConfiguration - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: - (Lens.Labels.Proxy#) "machineConfiguration") - -maybe'buildConfiguration :: - forall f s t a b . - (Lens.Labels.HasLens "maybe'buildConfiguration" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'buildConfiguration - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: - (Lens.Labels.Proxy#) "maybe'buildConfiguration") - -maybe'changelist :: - forall f s t a b . - (Lens.Labels.HasLens "maybe'changelist" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'changelist - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'changelist") - -maybe'commitId :: - forall f s t a b . - (Lens.Labels.HasLens "maybe'commitId" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'commitId - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'commitId") - -maybe'cpuInfo :: - forall f s t a b . - (Lens.Labels.HasLens "maybe'cpuInfo" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'cpuInfo - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'cpuInfo") - -maybe'doubleValue :: - forall f s t a b . - (Lens.Labels.HasLens "maybe'doubleValue" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'doubleValue - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'doubleValue") - -maybe'entries :: - forall f s t a b . - (Lens.Labels.HasLens "maybe'entries" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'entries - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'entries") - -maybe'hash :: - forall f s t a b . (Lens.Labels.HasLens "maybe'hash" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'hash - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'hash") - -maybe'kind :: - forall f s t a b . (Lens.Labels.HasLens "maybe'kind" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'kind - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'kind") - -maybe'machineConfiguration :: - forall f s t a b . - (Lens.Labels.HasLens "maybe'machineConfiguration" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'machineConfiguration - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: - (Lens.Labels.Proxy#) "maybe'machineConfiguration") - -maybe'memoryInfo :: - forall f s t a b . - (Lens.Labels.HasLens "maybe'memoryInfo" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'memoryInfo - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'memoryInfo") - -maybe'platformInfo :: - forall f s t a b . - (Lens.Labels.HasLens "maybe'platformInfo" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'platformInfo - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'platformInfo") - -maybe'runConfiguration :: - forall f s t a b . - (Lens.Labels.HasLens "maybe'runConfiguration" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'runConfiguration - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: - (Lens.Labels.Proxy#) "maybe'runConfiguration") - -maybe'stringValue :: - forall f s t a b . - (Lens.Labels.HasLens "maybe'stringValue" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'stringValue - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'stringValue") - -maybe'value :: - forall f s t a b . (Lens.Labels.HasLens "maybe'value" f s t a b) => - Lens.Family2.LensLike f s t a b -maybe'value - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'value") - -memoryInfo :: - forall f s t a b . (Lens.Labels.HasLens "memoryInfo" f s t a b) => - Lens.Family2.LensLike f s t a b -memoryInfo - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "memoryInfo") - -memoryLimit :: - forall f s t a b . (Lens.Labels.HasLens "memoryLimit" f s t a b) => - Lens.Family2.LensLike f s t a b -memoryLimit - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "memoryLimit") - -mhzPerCpu :: - forall f s t a b . (Lens.Labels.HasLens "mhzPerCpu" f s t a b) => - Lens.Family2.LensLike f s t a b -mhzPerCpu - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "mhzPerCpu") - -mode :: - forall f s t a b . (Lens.Labels.HasLens "mode" f s t a b) => - Lens.Family2.LensLike f s t a b -mode - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "mode") - -model :: - forall f s t a b . (Lens.Labels.HasLens "model" f s t a b) => - Lens.Family2.LensLike f s t a b -model - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "model") - -name :: - forall f s t a b . (Lens.Labels.HasLens "name" f s t a b) => - Lens.Family2.LensLike f s t a b -name - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "name") - -numCores :: - forall f s t a b . (Lens.Labels.HasLens "numCores" f s t a b) => - Lens.Family2.LensLike f s t a b -numCores - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "numCores") - -numCoresAllowed :: - forall f s t a b . - (Lens.Labels.HasLens "numCoresAllowed" f s t a b) => - Lens.Family2.LensLike f s t a b -numCoresAllowed - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "numCoresAllowed") - -opts :: - forall f s t a b . (Lens.Labels.HasLens "opts" f s t a b) => - Lens.Family2.LensLike f s t a b -opts - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "opts") - -pendingChangelist :: - forall f s t a b . - (Lens.Labels.HasLens "pendingChangelist" f s t a b) => - Lens.Family2.LensLike f s t a b -pendingChangelist - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "pendingChangelist") - -physicalDescription :: - forall f s t a b . - (Lens.Labels.HasLens "physicalDescription" f s t a b) => - Lens.Family2.LensLike f s t a b -physicalDescription - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: - (Lens.Labels.Proxy#) "physicalDescription") - -platformInfo :: - forall f s t a b . - (Lens.Labels.HasLens "platformInfo" f s t a b) => - Lens.Family2.LensLike f s t a b -platformInfo - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "platformInfo") - -release :: - forall f s t a b . (Lens.Labels.HasLens "release" f s t a b) => - Lens.Family2.LensLike f s t a b -release - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "release") - -runConfiguration :: - forall f s t a b . - (Lens.Labels.HasLens "runConfiguration" f s t a b) => - Lens.Family2.LensLike f s t a b -runConfiguration - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "runConfiguration") - -runMode :: - forall f s t a b . (Lens.Labels.HasLens "runMode" f s t a b) => - Lens.Family2.LensLike f s t a b -runMode - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "runMode") - -runTime :: - forall f s t a b . (Lens.Labels.HasLens "runTime" f s t a b) => - Lens.Family2.LensLike f s t a b -runTime - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "runTime") - -serialIdentifier :: - forall f s t a b . - (Lens.Labels.HasLens "serialIdentifier" f s t a b) => - Lens.Family2.LensLike f s t a b -serialIdentifier - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "serialIdentifier") - -snapshot :: - forall f s t a b . (Lens.Labels.HasLens "snapshot" f s t a b) => - Lens.Family2.LensLike f s t a b -snapshot - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "snapshot") - -startTime :: - forall f s t a b . (Lens.Labels.HasLens "startTime" f s t a b) => - Lens.Family2.LensLike f s t a b -startTime - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "startTime") - -stringValue :: - forall f s t a b . (Lens.Labels.HasLens "stringValue" f s t a b) => - Lens.Family2.LensLike f s t a b -stringValue - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "stringValue") - -system :: - forall f s t a b . (Lens.Labels.HasLens "system" f s t a b) => - Lens.Family2.LensLike f s t a b -system - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "system") - -target :: - forall f s t a b . (Lens.Labels.HasLens "target" f s t a b) => - Lens.Family2.LensLike f s t a b -target - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "target") - -throughput :: - forall f s t a b . (Lens.Labels.HasLens "throughput" f s t a b) => - Lens.Family2.LensLike f s t a b -throughput - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "throughput") - -total :: - forall f s t a b . (Lens.Labels.HasLens "total" f s t a b) => - Lens.Family2.LensLike f s t a b -total - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "total") - -type' :: - forall f s t a b . (Lens.Labels.HasLens "type'" f s t a b) => - Lens.Family2.LensLike f s t a b -type' - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "type'") - -uuid :: - forall f s t a b . (Lens.Labels.HasLens "uuid" f s t a b) => - Lens.Family2.LensLike f s t a b -uuid - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "uuid") - -value :: - forall f s t a b . (Lens.Labels.HasLens "value" f s t a b) => - Lens.Family2.LensLike f s t a b -value - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "value") - -version :: - forall f s t a b . (Lens.Labels.HasLens "version" f s t a b) => - Lens.Family2.LensLike f s t a b -version - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "version") - -wallTime :: - forall f s t a b . (Lens.Labels.HasLens "wallTime" f s t a b) => - Lens.Family2.LensLike f s t a b -wallTime - = Lens.Labels.lensOf - ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "wallTime") diff --git a/tensorflow-proto.cabal b/tensorflow-proto.cabal --- a/tensorflow-proto.cabal +++ b/tensorflow-proto.cabal @@ -1,5 +1,5 @@ name: tensorflow-proto -version: 0.2.0.0 +version: 0.2.0.1 synopsis: TensorFlow protocol buffers. description: Please see README.md homepage: https://github.com/tensorflow/haskell#readme @@ -19,55 +19,173 @@ library exposed-modules: Proto.Tensorflow.Core.Example.Example + , Proto.Tensorflow.Core.Example.Example_Fields , Proto.Tensorflow.Core.Example.ExampleParserConfiguration + , Proto.Tensorflow.Core.Example.ExampleParserConfiguration_Fields , Proto.Tensorflow.Core.Example.Feature + , Proto.Tensorflow.Core.Example.Feature_Fields , Proto.Tensorflow.Core.Framework.AllocationDescription + , Proto.Tensorflow.Core.Framework.AllocationDescription_Fields , Proto.Tensorflow.Core.Framework.AttrValue + , Proto.Tensorflow.Core.Framework.AttrValue_Fields , Proto.Tensorflow.Core.Framework.CostGraph + , Proto.Tensorflow.Core.Framework.CostGraph_Fields , Proto.Tensorflow.Core.Framework.DeviceAttributes + , Proto.Tensorflow.Core.Framework.DeviceAttributes_Fields , Proto.Tensorflow.Core.Framework.Function + , Proto.Tensorflow.Core.Framework.Function_Fields , Proto.Tensorflow.Core.Framework.Graph + , Proto.Tensorflow.Core.Framework.Graph_Fields , Proto.Tensorflow.Core.Framework.KernelDef + , Proto.Tensorflow.Core.Framework.KernelDef_Fields , Proto.Tensorflow.Core.Framework.LogMemory + , Proto.Tensorflow.Core.Framework.LogMemory_Fields , Proto.Tensorflow.Core.Framework.NodeDef + , Proto.Tensorflow.Core.Framework.NodeDef_Fields , Proto.Tensorflow.Core.Framework.OpDef + , Proto.Tensorflow.Core.Framework.OpDef_Fields , Proto.Tensorflow.Core.Framework.ResourceHandle + , Proto.Tensorflow.Core.Framework.ResourceHandle_Fields , Proto.Tensorflow.Core.Framework.StepStats + , Proto.Tensorflow.Core.Framework.StepStats_Fields , Proto.Tensorflow.Core.Framework.Summary + , Proto.Tensorflow.Core.Framework.Summary_Fields , Proto.Tensorflow.Core.Framework.Tensor + , Proto.Tensorflow.Core.Framework.Tensor_Fields , Proto.Tensorflow.Core.Framework.TensorDescription + , Proto.Tensorflow.Core.Framework.TensorDescription_Fields , Proto.Tensorflow.Core.Framework.TensorShape + , Proto.Tensorflow.Core.Framework.TensorShape_Fields , Proto.Tensorflow.Core.Framework.TensorSlice + , Proto.Tensorflow.Core.Framework.TensorSlice_Fields , Proto.Tensorflow.Core.Framework.Types + , Proto.Tensorflow.Core.Framework.Types_Fields , Proto.Tensorflow.Core.Framework.Variable + , Proto.Tensorflow.Core.Framework.Variable_Fields , Proto.Tensorflow.Core.Framework.Versions + , Proto.Tensorflow.Core.Framework.Versions_Fields , Proto.Tensorflow.Core.Lib.Core.ErrorCodes , Proto.Tensorflow.Core.Protobuf.Cluster + , Proto.Tensorflow.Core.Protobuf.Cluster_Fields , Proto.Tensorflow.Core.Protobuf.Config + , Proto.Tensorflow.Core.Protobuf.Config_Fields , Proto.Tensorflow.Core.Protobuf.ControlFlow + , Proto.Tensorflow.Core.Protobuf.ControlFlow_Fields , Proto.Tensorflow.Core.Protobuf.Debug + , Proto.Tensorflow.Core.Protobuf.Debug_Fields , Proto.Tensorflow.Core.Protobuf.MetaGraph + , Proto.Tensorflow.Core.Protobuf.MetaGraph_Fields , Proto.Tensorflow.Core.Protobuf.NamedTensor + , Proto.Tensorflow.Core.Protobuf.NamedTensor_Fields , Proto.Tensorflow.Core.Protobuf.QueueRunner + , Proto.Tensorflow.Core.Protobuf.QueueRunner_Fields , Proto.Tensorflow.Core.Protobuf.RewriterConfig + , Proto.Tensorflow.Core.Protobuf.RewriterConfig_Fields , Proto.Tensorflow.Core.Protobuf.SavedModel + , Proto.Tensorflow.Core.Protobuf.SavedModel_Fields , Proto.Tensorflow.Core.Protobuf.Saver + , Proto.Tensorflow.Core.Protobuf.Saver_Fields , Proto.Tensorflow.Core.Protobuf.TensorBundle + , Proto.Tensorflow.Core.Protobuf.TensorBundle_Fields , Proto.Tensorflow.Core.Protobuf.TensorflowServer + , Proto.Tensorflow.Core.Protobuf.TensorflowServer_Fields , Proto.Tensorflow.Core.Util.Event + , Proto.Tensorflow.Core.Util.Event_Fields , Proto.Tensorflow.Core.Util.MemmappedFileSystem + , Proto.Tensorflow.Core.Util.MemmappedFileSystem_Fields , Proto.Tensorflow.Core.Util.SavedTensorSlice + , Proto.Tensorflow.Core.Util.SavedTensorSlice_Fields , Proto.Tensorflow.Core.Util.TestLog - build-depends: proto-lens >= 0.2.2 && < 0.3 - , proto-lens-protoc >= 0.2.2.1 && < 0.3 - , proto-lens-protobuf-types == 0.2.* + , Proto.Tensorflow.Core.Util.TestLog_Fields + autogen-modules: Proto.Tensorflow.Core.Example.Example + , Proto.Tensorflow.Core.Example.Example_Fields + , Proto.Tensorflow.Core.Example.ExampleParserConfiguration + , Proto.Tensorflow.Core.Example.ExampleParserConfiguration_Fields + , Proto.Tensorflow.Core.Example.Feature + , Proto.Tensorflow.Core.Example.Feature_Fields + , Proto.Tensorflow.Core.Framework.AllocationDescription + , Proto.Tensorflow.Core.Framework.AllocationDescription_Fields + , Proto.Tensorflow.Core.Framework.AttrValue + , Proto.Tensorflow.Core.Framework.AttrValue_Fields + , Proto.Tensorflow.Core.Framework.CostGraph + , Proto.Tensorflow.Core.Framework.CostGraph_Fields + , Proto.Tensorflow.Core.Framework.DeviceAttributes + , Proto.Tensorflow.Core.Framework.DeviceAttributes_Fields + , Proto.Tensorflow.Core.Framework.Function + , Proto.Tensorflow.Core.Framework.Function_Fields + , Proto.Tensorflow.Core.Framework.Graph + , Proto.Tensorflow.Core.Framework.Graph_Fields + , Proto.Tensorflow.Core.Framework.KernelDef + , Proto.Tensorflow.Core.Framework.KernelDef_Fields + , Proto.Tensorflow.Core.Framework.LogMemory + , Proto.Tensorflow.Core.Framework.LogMemory_Fields + , Proto.Tensorflow.Core.Framework.NodeDef + , Proto.Tensorflow.Core.Framework.NodeDef_Fields + , Proto.Tensorflow.Core.Framework.OpDef + , Proto.Tensorflow.Core.Framework.OpDef_Fields + , Proto.Tensorflow.Core.Framework.ResourceHandle + , Proto.Tensorflow.Core.Framework.ResourceHandle_Fields + , Proto.Tensorflow.Core.Framework.StepStats + , Proto.Tensorflow.Core.Framework.StepStats_Fields + , Proto.Tensorflow.Core.Framework.Summary + , Proto.Tensorflow.Core.Framework.Summary_Fields + , Proto.Tensorflow.Core.Framework.Tensor + , Proto.Tensorflow.Core.Framework.Tensor_Fields + , Proto.Tensorflow.Core.Framework.TensorDescription + , Proto.Tensorflow.Core.Framework.TensorDescription_Fields + , Proto.Tensorflow.Core.Framework.TensorShape + , Proto.Tensorflow.Core.Framework.TensorShape_Fields + , Proto.Tensorflow.Core.Framework.TensorSlice + , Proto.Tensorflow.Core.Framework.TensorSlice_Fields + , Proto.Tensorflow.Core.Framework.Types + , Proto.Tensorflow.Core.Framework.Types_Fields + , Proto.Tensorflow.Core.Framework.Variable + , Proto.Tensorflow.Core.Framework.Variable_Fields + , Proto.Tensorflow.Core.Framework.Versions + , Proto.Tensorflow.Core.Framework.Versions_Fields + , Proto.Tensorflow.Core.Lib.Core.ErrorCodes + , Proto.Tensorflow.Core.Protobuf.Cluster + , Proto.Tensorflow.Core.Protobuf.Cluster_Fields + , Proto.Tensorflow.Core.Protobuf.Config + , Proto.Tensorflow.Core.Protobuf.Config_Fields + , Proto.Tensorflow.Core.Protobuf.ControlFlow + , Proto.Tensorflow.Core.Protobuf.ControlFlow_Fields + , Proto.Tensorflow.Core.Protobuf.Debug + , Proto.Tensorflow.Core.Protobuf.Debug_Fields + , Proto.Tensorflow.Core.Protobuf.MetaGraph + , Proto.Tensorflow.Core.Protobuf.MetaGraph_Fields + , Proto.Tensorflow.Core.Protobuf.NamedTensor + , Proto.Tensorflow.Core.Protobuf.NamedTensor_Fields + , Proto.Tensorflow.Core.Protobuf.QueueRunner + , Proto.Tensorflow.Core.Protobuf.QueueRunner_Fields + , Proto.Tensorflow.Core.Protobuf.RewriterConfig + , Proto.Tensorflow.Core.Protobuf.RewriterConfig_Fields + , Proto.Tensorflow.Core.Protobuf.SavedModel + , Proto.Tensorflow.Core.Protobuf.SavedModel_Fields + , Proto.Tensorflow.Core.Protobuf.Saver + , Proto.Tensorflow.Core.Protobuf.Saver_Fields + , Proto.Tensorflow.Core.Protobuf.TensorBundle + , Proto.Tensorflow.Core.Protobuf.TensorBundle_Fields + , Proto.Tensorflow.Core.Protobuf.TensorflowServer + , Proto.Tensorflow.Core.Protobuf.TensorflowServer_Fields + , Proto.Tensorflow.Core.Util.Event + , Proto.Tensorflow.Core.Util.Event_Fields + , Proto.Tensorflow.Core.Util.MemmappedFileSystem + , Proto.Tensorflow.Core.Util.MemmappedFileSystem_Fields + , Proto.Tensorflow.Core.Util.SavedTensorSlice + , Proto.Tensorflow.Core.Util.SavedTensorSlice_Fields + , Proto.Tensorflow.Core.Util.TestLog + , Proto.Tensorflow.Core.Util.TestLog_Fields + build-depends: proto-lens >= 0.4.0 && < 0.6.0 + , proto-lens-runtime >= 0.4.0 && < 0.6.0 + , proto-lens-protobuf-types >= 0.4.0 && < 0.6.0 , base >= 4.7 && < 5 default-language: Haskell2010 include-dirs: . custom-setup setup-depends: Cabal - , proto-lens-protoc == 0.2.* + , proto-lens-setup == 0.4.* , base >= 4.7 && < 5 source-repository head type: git diff --git a/third_party/tensorflow/tensorflow/core/example/example.proto b/third_party/tensorflow/tensorflow/core/example/example.proto --- a/third_party/tensorflow/tensorflow/core/example/example.proto +++ b/third_party/tensorflow/tensorflow/core/example/example.proto @@ -199,7 +199,13 @@ // to determine if all features within the FeatureList must // have the same size. The same holds for this FeatureList across multiple // examples. -// +// - For sequence modeling, e.g.: +// http://colah.github.io/posts/2015-08-Understanding-LSTMs/ +// https://github.com/tensorflow/nmt +// the feature lists represent a sequence of frames. +// In this scenario, all FeatureLists in a SequenceExample have the same +// number of Feature messages, so that the ith element in each FeatureList +// is part of the ith frame (or time step). // Examples of conformant and non-conformant examples' FeatureLists: // // Conformant FeatureLists: diff --git a/third_party/tensorflow/tensorflow/core/framework/api_def.proto b/third_party/tensorflow/tensorflow/core/framework/api_def.proto --- a/third_party/tensorflow/tensorflow/core/framework/api_def.proto +++ b/third_party/tensorflow/tensorflow/core/framework/api_def.proto @@ -30,6 +30,14 @@ message ApiDef { // Name of the op (in the OpDef) to specify the API for. string graph_op_name = 1; + // If this op is deprecated, set deprecation message to the message + // that should be logged when this op is used. + // The message should indicate alternative op to use, if any. + string deprecation_message = 12; + // Major version when the op will be deleted. For e.g. set this + // value to 2 if op API should be removed in TensorFlow 2.0 and + // deprecated in versions before that. + int32 deprecation_version = 13; enum Visibility { // Normally this is "VISIBLE" unless you are inheriting a @@ -56,10 +64,15 @@ // use a snake_case convention instead of CamelCase. string name = 1; - // If this endpoint is deprecated, set deprecation_message to a - // message that should be logged when the endpoint is used. - // The message should indicate alternative endpoint to use, if any. - string deprecation_message = 2; + // Set if this endpoint is deprecated. If set to true, a message suggesting + // to use a non-deprecated endpoint instead will be printed. If all + // endpoints are deprecated, set deprecation_message in ApiDef instead. + bool deprecated = 3; + + // Major version when an endpoint will be deleted. For e.g. set this + // value to 2 if endpoint should be removed in TensorFlow 2.0 and + // deprecated in versions before that. + int32 deprecation_version = 4; } repeated Endpoint endpoint = 3; diff --git a/third_party/tensorflow/tensorflow/core/framework/cost_graph.proto b/third_party/tensorflow/tensorflow/core/framework/cost_graph.proto --- a/third_party/tensorflow/tensorflow/core/framework/cost_graph.proto +++ b/third_party/tensorflow/tensorflow/core/framework/cost_graph.proto @@ -69,6 +69,9 @@ // Ids of the control inputs for this node. repeated int32 control_input = 8; + + // Are the costs inaccurate? + bool inaccurate = 17; } repeated Node node = 1; } diff --git a/third_party/tensorflow/tensorflow/core/framework/kernel_def.proto b/third_party/tensorflow/tensorflow/core/framework/kernel_def.proto --- a/third_party/tensorflow/tensorflow/core/framework/kernel_def.proto +++ b/third_party/tensorflow/tensorflow/core/framework/kernel_def.proto @@ -33,4 +33,14 @@ // won't be used unless the user specifies a "_kernel" attr with // value matching this. string label = 5; + + // Prioritization of kernel amongst different devices. By default we assume + // priority is 0. The higher the priority the better. By default (i.e. if + // this is not set), we prefer GPU kernels over CPU. + int32 priority = 6; } + +// A collection of KernelDefs +message KernelList { + repeated KernelDef kernel = 1; +}; diff --git a/third_party/tensorflow/tensorflow/core/framework/node_def.proto b/third_party/tensorflow/tensorflow/core/framework/node_def.proto --- a/third_party/tensorflow/tensorflow/core/framework/node_def.proto +++ b/third_party/tensorflow/tensorflow/core/framework/node_def.proto @@ -60,4 +60,18 @@ // attr's type field. // TODO(josh11b): Add some examples here showing best practices. map attr = 5; + + message ExperimentalDebugInfo { + // Opaque string inserted into error messages created by the runtime. + // + // This is intended to store the list of names of the nodes from the + // original graph that this node was derived. For example if this node, say + // C, was result of a fusion of 2 nodes A and B, then 'original_node' would + // be {A, B}. This information can be used to map errors originating at the + // current node to some top level source code. + repeated string original_node_names = 1; + }; + + // This stores debug information associated with the node. + ExperimentalDebugInfo experimental_debug_info = 6; }; diff --git a/third_party/tensorflow/tensorflow/core/framework/step_stats.proto b/third_party/tensorflow/tensorflow/core/framework/step_stats.proto --- a/third_party/tensorflow/tensorflow/core/framework/step_stats.proto +++ b/third_party/tensorflow/tensorflow/core/framework/step_stats.proto @@ -67,6 +67,11 @@ uint32 thread_id = 10; repeated AllocationDescription referenced_tensor = 11; MemoryStats memory_stats = 12; + int64 all_start_nanos = 13; + int64 op_start_rel_nanos = 14; + int64 op_end_rel_nanos = 15; + int64 all_end_rel_nanos = 16; + int64 scheduled_nanos = 17; }; message DeviceStepStats { diff --git a/third_party/tensorflow/tensorflow/core/protobuf/config.proto b/third_party/tensorflow/tensorflow/core/protobuf/config.proto --- a/third_party/tensorflow/tensorflow/core/protobuf/config.proto +++ b/third_party/tensorflow/tensorflow/core/protobuf/config.proto @@ -5,7 +5,7 @@ option java_outer_classname = "ConfigProtos"; option java_multiple_files = true; option java_package = "org.tensorflow.framework"; -option go_package = "github.com/tensorflow/tensorflow/tensorflow/go/core/protobuf"; +// add go_package externally with copybara import "tensorflow/core/framework/cost_graph.proto"; import "tensorflow/core/framework/graph.proto"; import "tensorflow/core/framework/step_stats.proto"; @@ -68,7 +68,7 @@ // after the process starts. Users are required to use vendor // specific mechanisms (e.g., CUDA_VISIBLE_DEVICES) to control the // physical to visible device mapping prior to invoking TensorFlow. - // 2. In the code, the ids in this list are also called "CUDA GPU id"s, + // 2. In the code, the ids in this list are also called "platform GPU id"s, // and the 'virtual' ids of GPU devices (i.e. the ids in the device // name "/device:GPU:") are also called "TF GPU id"s. Please // refer to third_party/tensorflow/core/common_runtime/gpu/gpu_id.h @@ -143,6 +143,19 @@ // multiple processes are sharing a single GPU while individually using less // than 1.0 per process memory fraction. bool use_unified_memory = 2; + + // If > 1, the number of device-to-device copy streams to create + // for each GPUDevice. Default value is 0, which is automatically + // converted to 1. + int32 num_dev_to_dev_copy_streams = 3; + + // If non-empty, defines a good GPU ring order on a single worker based on + // device interconnect. This assumes that all workers have the same GPU + // topology. Specify as a comma-separated string, e.g. "3,2,1,0,7,6,5,4". + // This ring order is used by the RingReducer implementation of + // CollectiveReduce, and serves as an override to automatic ring order + // generation in OrderTaskDeviceMap() during CollectiveParam resolution. + string collective_ring_order = 4; } // Everything inside experimental is subject to change and is not subject @@ -278,6 +291,13 @@ // transport for client-master communication that avoids the RPC // stack. This option is primarily for used testing the RPC stack. bool use_rpc_for_inprocess_master = 1; + + // The compression algorithm to be used. One of "deflate", "gzip". + string compression_algorithm = 2; + + // If compression_algorithm is set, the compression level to be used. + // From 0 (no compression), up to 3. + int32 compression_level = 3; }; // Session configuration parameters. @@ -385,6 +405,26 @@ message Experimental { // Task name for group resolution. string collective_group_leader = 1; + + // We removed the flag client_handles_error_formatting. Marking the tag + // number as reserved. + // TODO(shikharagarwal): Should we just remove this tag so that it can be + // used in future for other purpose? + reserved 2; + + // Which executor to use, the default executor will be used + // if it is an empty string or "DEFAULT" + string executor_type = 3; + + // Guidance to formatting of large RecvBuf fields for transfer. + // Any positive value sets the max chunk size. 0 defaults to 4096. + // Any negative value indicates no max, i.e. one chunk only. + int32 recv_buf_max_chunk = 4; + + // If true, and supported by the platform, the runtime will attempt to + // use NUMA affinity where applicable. One consequence will be the + // existence of as many CPU devices as there are available NUMA nodes. + bool use_numa_affinity = 5; }; Experimental experimental = 16; @@ -408,6 +448,11 @@ int64 timeout_in_ms = 2; // The thread pool to use, if session_inter_op_thread_pool is configured. + // To use the caller thread set this to -1 - this uses the caller thread + // to execute Session::Run() and thus avoids a context switch. Using the + // caller thread to execute Session::Run() should be done ONLY for simple + // graphs, where the overhead of an additional context switch is + // comparable with the overhead of Session::Run(). int32 inter_op_thread_pool = 3; // Whether the partition graph(s) executed by the executor(s) should be @@ -433,6 +478,11 @@ // same group_key value (in a distributed computation where tasks // run disjoint graphs). int64 collective_graph_key = 1; + // If true, then operations (using the inter-op pool) across all + // session::run() calls will be centrally scheduled, optimizing for (median + // and tail) latency. + // Consider using this option for CPU-bound workloads like inference. + bool use_run_handler_pool = 2; }; Experimental experimental = 8; @@ -490,5 +540,67 @@ // in the callable. repeated TensorConnection tensor_connection = 5; - // Next: 6 + // The Tensor objects fed in the callable and fetched from the callable + // are expected to be backed by host (CPU) memory by default. + // + // The options below allow changing that - feeding tensors backed by + // device memory, or returning tensors that are backed by device memory. + // + // The maps below map the name of a feed/fetch tensor (which appears in + // 'feed' or 'fetch' fields above), to the fully qualified name of the device + // owning the memory backing the contents of the tensor. + // + // For example, creating a callable with the following options: + // + // CallableOptions { + // feed: "a:0" + // feed: "b:0" + // + // fetch: "x:0" + // fetch: "y:0" + // + // feed_devices: { + // "a:0": "/job:localhost/replica:0/task:0/device:GPU:0" + // } + // + // fetch_devices: { + // "y:0": "/job:localhost/replica:0/task:0/device:GPU:0" + // } + // } + // + // means that the Callable expects: + // - The first argument ("a:0") is a Tensor backed by GPU memory. + // - The second argument ("b:0") is a Tensor backed by host memory. + // and of its return values: + // - The first output ("x:0") will be backed by host memory. + // - The second output ("y:0") will be backed by GPU memory. + // + // FEEDS: + // It is the responsibility of the caller to ensure that the memory of the fed + // tensors will be correctly initialized and synchronized before it is + // accessed by operations executed during the call to Session::RunCallable(). + // + // This is typically ensured by using the TensorFlow memory allocators + // (Device::GetAllocator()) to create the Tensor to be fed. + // + // Alternatively, for CUDA-enabled GPU devices, this typically means that the + // operation that produced the contents of the tensor has completed, i.e., the + // CUDA stream has been synchronized (e.g., via cuCtxSynchronize() or + // cuStreamSynchronize()). + map feed_devices = 6; + map fetch_devices = 7; + + // By default, RunCallable() will synchronize the GPU stream before returning + // fetched tensors on a GPU device, to ensure that the values in those tensors + // have been produced. This simplifies interacting with the tensors, but + // potentially incurs a performance hit. + // + // If this options is set to true, the caller is responsible for ensuring + // that the values in the fetched tensors have been produced before they are + // used. The caller can do this by invoking `Device::Sync()` on the underlying + // device(s), or by feeding the tensors back to the same Session using + // `feed_devices` with the same corresponding device name. + bool fetch_skip_sync = 8; + + // Next: 9 } diff --git a/third_party/tensorflow/tensorflow/core/protobuf/debug.proto b/third_party/tensorflow/tensorflow/core/protobuf/debug.proto --- a/third_party/tensorflow/tensorflow/core/protobuf/debug.proto +++ b/third_party/tensorflow/tensorflow/core/protobuf/debug.proto @@ -7,7 +7,7 @@ option java_package = "org.tensorflow.framework"; option go_package = "github.com/tensorflow/tensorflow/tensorflow/go/core/protobuf"; -// EXPERIMENTAL. Option for watching a node. +// Option for watching a node in TensorFlow Debugger (tfdbg). message DebugTensorWatch { // Name of the node to watch. string node_name = 1; @@ -51,7 +51,7 @@ bool tolerate_debug_op_creation_failures = 5; } -// EXPERIMENTAL. Options for initializing DebuggerState. +// Options for initializing DebuggerState in TensorFlow Debugger (tfdbg). message DebugOptions { // Debugging options repeated DebugTensorWatch debug_tensor_watch_opts = 4; @@ -60,6 +60,12 @@ // Note that this is distinct from the session run count and the executor // step count. int64 global_step = 10; + + // Whether the total disk usage of tfdbg is to be reset to zero + // in this Session.run call. This is used by wrappers and hooks + // such as the local CLI ones to indicate that the dumped tensors + // are cleaned up from the disk after each Session.run. + bool reset_disk_byte_usage = 11; } message DebuggedSourceFile { diff --git a/third_party/tensorflow/tensorflow/core/protobuf/eager_service.proto b/third_party/tensorflow/tensorflow/core/protobuf/eager_service.proto --- a/third_party/tensorflow/tensorflow/core/protobuf/eager_service.proto +++ b/third_party/tensorflow/tensorflow/core/protobuf/eager_service.proto @@ -7,6 +7,8 @@ import "tensorflow/core/framework/function.proto"; import "tensorflow/core/framework/versions.proto"; import "tensorflow/core/protobuf/tensorflow_server.proto"; +import "tensorflow/core/framework/tensor_shape.proto"; +import "tensorflow/core/framework/tensor.proto"; message RemoteTensorHandle { // The ID of the operation that produced this tensor. @@ -45,6 +47,10 @@ } } +message QueueResponse { + repeated TensorShapeProto shape = 1; +} + message CreateContextRequest { // Identifies the full cluster, and this particular worker's position within. ServerDef server_def = 1; @@ -60,6 +66,11 @@ // This is the version for all the ops that will be enqueued by the client. VersionDef version_def = 4; + + // This ID will be used for all future communications. It is essential that + // both ends use this ID for selecting a rendezvous to get everything to + // match. + int64 rendezvous_id = 5; } message CreateContextResponse { @@ -79,6 +90,8 @@ } message EnqueueResponse { + // A single operation response for every item in the request. + repeated QueueResponse queue_response = 1; } message WaitQueueDoneRequest { @@ -116,6 +129,24 @@ message RegisterFunctionResponse { } +message SendTensorRequest { + fixed64 context_id = 1; + + // All remote tensors are identified by . To mimic this + // situation when directly sending tensors, we include an "artificial" op ID + // (which would have corresponded to the _Recv op when not using SendTensor). + int64 op_id = 2; + // The index within the repeated field is the output number that will help + // uniquely identify (along with the above op_id) the particular tensor. + repeated TensorProto tensors = 3; + + // The device on which the tensors should be resident. + string device_name = 4; +} + +message SendTensorResponse { +} + //////////////////////////////////////////////////////////////////////////////// // // Eager Service defines a TensorFlow service that executes operations eagerly @@ -162,4 +193,8 @@ // Takes a FunctionDef and makes it enqueable on the remote worker. rpc RegisterFunction(RegisterFunctionRequest) returns (RegisterFunctionResponse); + + // An RPC to push tensors to the server. At times, certain environments don't + // allow the server to connect back to the client. + rpc SendTensor(SendTensorRequest) returns (SendTensorResponse); } diff --git a/third_party/tensorflow/tensorflow/core/protobuf/master.proto b/third_party/tensorflow/tensorflow/core/protobuf/master.proto --- a/third_party/tensorflow/tensorflow/core/protobuf/master.proto +++ b/third_party/tensorflow/tensorflow/core/protobuf/master.proto @@ -224,7 +224,7 @@ message ResetRequest { // A list of container names, which may be empty. // - // If 'container' is not empty, releases resoures in the given + // If 'container' is not empty, releases resources in the given // containers in all devices. // // If 'container' is empty, releases resources in the default diff --git a/third_party/tensorflow/tensorflow/core/protobuf/replay_log.proto b/third_party/tensorflow/tensorflow/core/protobuf/replay_log.proto new file mode 100644 --- /dev/null +++ b/third_party/tensorflow/tensorflow/core/protobuf/replay_log.proto @@ -0,0 +1,47 @@ +syntax = "proto3"; + +option cc_enable_arenas = true; +package tensorflow; + +import "tensorflow/core/framework/graph.proto"; +import "tensorflow/core/protobuf/cluster.proto"; +import "tensorflow/core/protobuf/master.proto"; + +// Records the creation of a new replay session. We record the device listing +// here to capture the state of the cluster. +message NewReplaySession { + ListDevicesResponse devices = 1; + string session_handle = 2; +} + +message ReplayOp { + double start_time_us = 31; + double end_time_us = 32; + + oneof op { + CreateSessionRequest create_session = 1; + ExtendSessionRequest extend_session = 2; + PartialRunSetupRequest partial_run_setup = 3; + RunStepRequest run_step = 4; + CloseSessionRequest close_session = 5; + ListDevicesRequest list_devices = 6; + ResetRequest reset_request = 7; + MakeCallableRequest make_callable = 8; + RunCallableRequest run_callable = 9; + ReleaseCallableRequest release_callable = 10; + NewReplaySession new_replay_session = 11; + } + + oneof response { + CreateSessionResponse create_session_response = 21; + ExtendSessionResponse extend_session_response = 22; + PartialRunSetupResponse partial_run_setup_response = 23; + RunStepResponse run_step_response = 24; + CloseSessionResponse close_session_response = 25; + ListDevicesResponse list_devices_response = 26; + ResetResponse reset_request_response = 27; + MakeCallableResponse make_callable_response = 28; + RunCallableResponse run_callable_response = 29; + ReleaseCallableResponse release_callable_response = 30; + } +} diff --git a/third_party/tensorflow/tensorflow/core/protobuf/rewriter_config.proto b/third_party/tensorflow/tensorflow/core/protobuf/rewriter_config.proto --- a/third_party/tensorflow/tensorflow/core/protobuf/rewriter_config.proto +++ b/third_party/tensorflow/tensorflow/core/protobuf/rewriter_config.proto @@ -38,7 +38,7 @@ } // Enum controlling the number of times to run optimizers. The default is to - // run them once. + // run them twice. enum NumIterationsType { DEFAULT_NUM_ITERS = 0; ONE = 1; @@ -75,11 +75,21 @@ // Try to allocate some independent Op outputs contiguously in order to // merge or eliminate downstream Ops (off by default). Toggle scoped_allocator_optimization = 15; + // Force small ops onto the CPU (default is OFF). + Toggle pin_to_host_optimization = 18; + // Disable the entire meta optimizer (off by default). + bool disable_meta_optimizer = 19; // Controls how many times we run the optimizers in meta optimizer (default // is once). NumIterationsType meta_optimizer_iterations = 12; + // The minimum number of nodes in a graph to optimizer. For smaller graphs, + // optimization is skipped. + // 0 means the system picks an appropriate number. + // < 0 means do not skip optimization. + int32 min_graph_nodes = 17; + enum MemOptType { // The default setting (SCHEDULING and SWAPPING HEURISTICS only) DEFAULT_MEM_OPT = 0; @@ -118,11 +128,20 @@ // "gradients/", the default, it will match node name "gradients/foo", // "foo/gradients/bar", but not "foo_gradients/" string memory_optimizer_target_node_name_scope = 6; + // Maximum number of milliseconds to spend optimizing a single graph before + // timing out. If equal to 0 the system picks a default (currently 5 minutes). + // If less than 0 the optimizer will never time out. + int64 meta_optimizer_timeout_ms = 20; // Configures AutoParallel optimization passes either through the // meta-optimizer or when manually specified through the optimizers field. AutoParallelOptions auto_parallel = 5; + // If true, any optimization pass failing will cause the MetaOptimizer to + // stop with an error. By default - or when set to false, failing passes are + // skipped silently. + bool fail_on_optimizer_errors = 21; + ScopedAllocatorOptions scoped_allocator_opts = 16; // If non-empty, will use this as an alternative way to specify a list of @@ -135,8 +154,8 @@ // not configurable (in contrast to memory optimization passes through the // meta-optimizer) and act only on manual op annotations. // - // Custom registered optimizers will be run after the base optimizers, in - // the order that they are specified. + // Custom optimizers (see custom_optimizers) that are not part of this + // schedule will be run after - in the order that they were specified. repeated string optimizers = 100; // Message to describe custom graph optimizer and its parameters diff --git a/third_party/tensorflow/tensorflow/core/protobuf/tensorflow_server.proto b/third_party/tensorflow/tensorflow/core/protobuf/tensorflow_server.proto --- a/third_party/tensorflow/tensorflow/core/protobuf/tensorflow_server.proto +++ b/third_party/tensorflow/tensorflow/core/protobuf/tensorflow_server.proto @@ -46,6 +46,6 @@ // The protocol to be used by this server. // - // Acceptable values include: "grpc". + // Acceptable values include: "grpc", "grpc+verbs". string protocol = 5; } diff --git a/third_party/tensorflow/tensorflow/core/protobuf/transport_options.proto b/third_party/tensorflow/tensorflow/core/protobuf/transport_options.proto --- a/third_party/tensorflow/tensorflow/core/protobuf/transport_options.proto +++ b/third_party/tensorflow/tensorflow/core/protobuf/transport_options.proto @@ -4,5 +4,5 @@ // Extra data needed on a non-RDMA RecvBufResponse. message RecvBufRespExtra { - bytes tensor_content = 1; + repeated bytes tensor_content = 1; }; diff --git a/third_party/tensorflow/tensorflow/core/protobuf/worker.proto b/third_party/tensorflow/tensorflow/core/protobuf/worker.proto --- a/third_party/tensorflow/tensorflow/core/protobuf/worker.proto +++ b/third_party/tensorflow/tensorflow/core/protobuf/worker.proto @@ -466,6 +466,11 @@ // Optional, for annotating the timeline. string src_device = 8; string dst_device = 9; + + // Depending on the RPC system in use, it may be necessary to set this + // id to detect resends of RPCs where the server is not aware that + // the prior RPC failed. + int64 request_id = 10; } message RecvBufResponse {