{- This file was auto-generated from google/protobuf/wrappers.proto by the proto-lens-protoc program. -} {-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies, UndecidableInstances, GeneralizedNewtypeDeriving, MultiParamTypeClasses, FlexibleContexts, FlexibleInstances, PatternSynonyms, MagicHash, NoImplicitPrelude, DataKinds #-} {-# OPTIONS_GHC -fno-warn-unused-imports#-} {-# OPTIONS_GHC -fno-warn-duplicate-exports#-} module Proto.Google.Protobuf.Wrappers (BoolValue(..), BytesValue(..), DoubleValue(..), FloatValue(..), Int32Value(..), Int64Value(..), StringValue(..), UInt32Value(..), UInt64Value(..)) where import qualified Data.ProtoLens.Reexport.Lens.Labels.Prism as Lens.Labels.Prism 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.Data.ProtoLens.Service.Types as Data.ProtoLens.Service.Types 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.Data.ByteString.Char8 as Data.ByteString.Char8 import qualified Data.ProtoLens.Reexport.Lens.Labels as Lens.Labels import qualified Data.ProtoLens.Reexport.Text.Read as Text.Read {- | Fields : * 'Proto.Google.Protobuf.Wrappers_Fields.value' @:: Lens' BoolValue Prelude.Bool@ -} data BoolValue = BoolValue{_BoolValue'value :: !Prelude.Bool, _BoolValue'_unknownFields :: !Data.ProtoLens.FieldSet} deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) instance (Lens.Labels.HasLens' f BoolValue x a, a ~ b) => Lens.Labels.HasLens f BoolValue BoolValue x a b where lensOf = Lens.Labels.lensOf' instance Prelude.Functor f => Lens.Labels.HasLens' f BoolValue "value" (Prelude.Bool) where lensOf' _ = (Prelude..) (Lens.Family2.Unchecked.lens _BoolValue'value (\ x__ y__ -> x__{_BoolValue'value = y__})) Prelude.id instance Data.Default.Class.Default BoolValue where def = BoolValue{_BoolValue'value = Data.ProtoLens.fieldDefault, _BoolValue'_unknownFields = ([])} instance Data.ProtoLens.Message BoolValue where messageName _ = Data.Text.pack "google.protobuf.BoolValue" fieldsByTag = let value__field_descriptor = Data.ProtoLens.FieldDescriptor "value" (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Lens.Labels.lensOf ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "value"))) :: Data.ProtoLens.FieldDescriptor BoolValue in Data.Map.fromList [(Data.ProtoLens.Tag 1, value__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _BoolValue'_unknownFields (\ x__ y__ -> x__{_BoolValue'_unknownFields = y__}) {- | Fields : * 'Proto.Google.Protobuf.Wrappers_Fields.value' @:: Lens' BytesValue Data.ByteString.ByteString@ -} data BytesValue = BytesValue{_BytesValue'value :: !Data.ByteString.ByteString, _BytesValue'_unknownFields :: !Data.ProtoLens.FieldSet} deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) instance (Lens.Labels.HasLens' f BytesValue x a, a ~ b) => Lens.Labels.HasLens f BytesValue BytesValue x a b where lensOf = Lens.Labels.lensOf' instance Prelude.Functor f => Lens.Labels.HasLens' f BytesValue "value" (Data.ByteString.ByteString) where lensOf' _ = (Prelude..) (Lens.Family2.Unchecked.lens _BytesValue'value (\ x__ y__ -> x__{_BytesValue'value = y__})) Prelude.id instance Data.Default.Class.Default BytesValue where def = BytesValue{_BytesValue'value = Data.ProtoLens.fieldDefault, _BytesValue'_unknownFields = ([])} instance Data.ProtoLens.Message BytesValue where messageName _ = Data.Text.pack "google.protobuf.BytesValue" fieldsByTag = let value__field_descriptor = Data.ProtoLens.FieldDescriptor "value" (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Lens.Labels.lensOf ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "value"))) :: Data.ProtoLens.FieldDescriptor BytesValue in Data.Map.fromList [(Data.ProtoLens.Tag 1, value__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _BytesValue'_unknownFields (\ x__ y__ -> x__{_BytesValue'_unknownFields = y__}) {- | Fields : * 'Proto.Google.Protobuf.Wrappers_Fields.value' @:: Lens' DoubleValue Prelude.Double@ -} data DoubleValue = DoubleValue{_DoubleValue'value :: !Prelude.Double, _DoubleValue'_unknownFields :: !Data.ProtoLens.FieldSet} deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) instance (Lens.Labels.HasLens' f DoubleValue x a, a ~ b) => Lens.Labels.HasLens f DoubleValue DoubleValue x a b where lensOf = Lens.Labels.lensOf' instance Prelude.Functor f => Lens.Labels.HasLens' f DoubleValue "value" (Prelude.Double) where lensOf' _ = (Prelude..) (Lens.Family2.Unchecked.lens _DoubleValue'value (\ x__ y__ -> x__{_DoubleValue'value = y__})) Prelude.id instance Data.Default.Class.Default DoubleValue where def = DoubleValue{_DoubleValue'value = Data.ProtoLens.fieldDefault, _DoubleValue'_unknownFields = ([])} instance Data.ProtoLens.Message DoubleValue where messageName _ = Data.Text.pack "google.protobuf.DoubleValue" fieldsByTag = let value__field_descriptor = Data.ProtoLens.FieldDescriptor "value" (Data.ProtoLens.ScalarField Data.ProtoLens.DoubleField :: Data.ProtoLens.FieldTypeDescriptor Prelude.Double) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Lens.Labels.lensOf ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "value"))) :: Data.ProtoLens.FieldDescriptor DoubleValue in Data.Map.fromList [(Data.ProtoLens.Tag 1, value__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _DoubleValue'_unknownFields (\ x__ y__ -> x__{_DoubleValue'_unknownFields = y__}) {- | Fields : * 'Proto.Google.Protobuf.Wrappers_Fields.value' @:: Lens' FloatValue Prelude.Float@ -} data FloatValue = FloatValue{_FloatValue'value :: !Prelude.Float, _FloatValue'_unknownFields :: !Data.ProtoLens.FieldSet} deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) instance (Lens.Labels.HasLens' f FloatValue x a, a ~ b) => Lens.Labels.HasLens f FloatValue FloatValue x a b where lensOf = Lens.Labels.lensOf' instance Prelude.Functor f => Lens.Labels.HasLens' f FloatValue "value" (Prelude.Float) where lensOf' _ = (Prelude..) (Lens.Family2.Unchecked.lens _FloatValue'value (\ x__ y__ -> x__{_FloatValue'value = y__})) Prelude.id instance Data.Default.Class.Default FloatValue where def = FloatValue{_FloatValue'value = Data.ProtoLens.fieldDefault, _FloatValue'_unknownFields = ([])} instance Data.ProtoLens.Message FloatValue where messageName _ = Data.Text.pack "google.protobuf.FloatValue" fieldsByTag = let value__field_descriptor = Data.ProtoLens.FieldDescriptor "value" (Data.ProtoLens.ScalarField Data.ProtoLens.FloatField :: Data.ProtoLens.FieldTypeDescriptor Prelude.Float) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Lens.Labels.lensOf ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "value"))) :: Data.ProtoLens.FieldDescriptor FloatValue in Data.Map.fromList [(Data.ProtoLens.Tag 1, value__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _FloatValue'_unknownFields (\ x__ y__ -> x__{_FloatValue'_unknownFields = y__}) {- | Fields : * 'Proto.Google.Protobuf.Wrappers_Fields.value' @:: Lens' Int32Value Data.Int.Int32@ -} data Int32Value = Int32Value{_Int32Value'value :: !Data.Int.Int32, _Int32Value'_unknownFields :: !Data.ProtoLens.FieldSet} deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) instance (Lens.Labels.HasLens' f Int32Value x a, a ~ b) => Lens.Labels.HasLens f Int32Value Int32Value x a b where lensOf = Lens.Labels.lensOf' instance Prelude.Functor f => Lens.Labels.HasLens' f Int32Value "value" (Data.Int.Int32) where lensOf' _ = (Prelude..) (Lens.Family2.Unchecked.lens _Int32Value'value (\ x__ y__ -> x__{_Int32Value'value = y__})) Prelude.id instance Data.Default.Class.Default Int32Value where def = Int32Value{_Int32Value'value = Data.ProtoLens.fieldDefault, _Int32Value'_unknownFields = ([])} instance Data.ProtoLens.Message Int32Value where messageName _ = Data.Text.pack "google.protobuf.Int32Value" fieldsByTag = let value__field_descriptor = Data.ProtoLens.FieldDescriptor "value" (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Lens.Labels.lensOf ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "value"))) :: Data.ProtoLens.FieldDescriptor Int32Value in Data.Map.fromList [(Data.ProtoLens.Tag 1, value__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _Int32Value'_unknownFields (\ x__ y__ -> x__{_Int32Value'_unknownFields = y__}) {- | Fields : * 'Proto.Google.Protobuf.Wrappers_Fields.value' @:: Lens' Int64Value Data.Int.Int64@ -} data Int64Value = Int64Value{_Int64Value'value :: !Data.Int.Int64, _Int64Value'_unknownFields :: !Data.ProtoLens.FieldSet} deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) instance (Lens.Labels.HasLens' f Int64Value x a, a ~ b) => Lens.Labels.HasLens f Int64Value Int64Value x a b where lensOf = Lens.Labels.lensOf' instance Prelude.Functor f => Lens.Labels.HasLens' f Int64Value "value" (Data.Int.Int64) where lensOf' _ = (Prelude..) (Lens.Family2.Unchecked.lens _Int64Value'value (\ x__ y__ -> x__{_Int64Value'value = y__})) Prelude.id instance Data.Default.Class.Default Int64Value where def = Int64Value{_Int64Value'value = Data.ProtoLens.fieldDefault, _Int64Value'_unknownFields = ([])} instance Data.ProtoLens.Message Int64Value where messageName _ = Data.Text.pack "google.protobuf.Int64Value" fieldsByTag = let value__field_descriptor = Data.ProtoLens.FieldDescriptor "value" (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Lens.Labels.lensOf ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "value"))) :: Data.ProtoLens.FieldDescriptor Int64Value in Data.Map.fromList [(Data.ProtoLens.Tag 1, value__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _Int64Value'_unknownFields (\ x__ y__ -> x__{_Int64Value'_unknownFields = y__}) {- | Fields : * 'Proto.Google.Protobuf.Wrappers_Fields.value' @:: Lens' StringValue Data.Text.Text@ -} data StringValue = StringValue{_StringValue'value :: !Data.Text.Text, _StringValue'_unknownFields :: !Data.ProtoLens.FieldSet} deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) instance (Lens.Labels.HasLens' f StringValue x a, a ~ b) => Lens.Labels.HasLens f StringValue StringValue x a b where lensOf = Lens.Labels.lensOf' instance Prelude.Functor f => Lens.Labels.HasLens' f StringValue "value" (Data.Text.Text) where lensOf' _ = (Prelude..) (Lens.Family2.Unchecked.lens _StringValue'value (\ x__ y__ -> x__{_StringValue'value = y__})) Prelude.id instance Data.Default.Class.Default StringValue where def = StringValue{_StringValue'value = Data.ProtoLens.fieldDefault, _StringValue'_unknownFields = ([])} instance Data.ProtoLens.Message StringValue where messageName _ = Data.Text.pack "google.protobuf.StringValue" fieldsByTag = let value__field_descriptor = Data.ProtoLens.FieldDescriptor "value" (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Lens.Labels.lensOf ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "value"))) :: Data.ProtoLens.FieldDescriptor StringValue in Data.Map.fromList [(Data.ProtoLens.Tag 1, value__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _StringValue'_unknownFields (\ x__ y__ -> x__{_StringValue'_unknownFields = y__}) {- | Fields : * 'Proto.Google.Protobuf.Wrappers_Fields.value' @:: Lens' UInt32Value Data.Word.Word32@ -} data UInt32Value = UInt32Value{_UInt32Value'value :: !Data.Word.Word32, _UInt32Value'_unknownFields :: !Data.ProtoLens.FieldSet} deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) instance (Lens.Labels.HasLens' f UInt32Value x a, a ~ b) => Lens.Labels.HasLens f UInt32Value UInt32Value x a b where lensOf = Lens.Labels.lensOf' instance Prelude.Functor f => Lens.Labels.HasLens' f UInt32Value "value" (Data.Word.Word32) where lensOf' _ = (Prelude..) (Lens.Family2.Unchecked.lens _UInt32Value'value (\ x__ y__ -> x__{_UInt32Value'value = y__})) Prelude.id instance Data.Default.Class.Default UInt32Value where def = UInt32Value{_UInt32Value'value = Data.ProtoLens.fieldDefault, _UInt32Value'_unknownFields = ([])} instance Data.ProtoLens.Message UInt32Value where messageName _ = Data.Text.pack "google.protobuf.UInt32Value" fieldsByTag = let value__field_descriptor = Data.ProtoLens.FieldDescriptor "value" (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Lens.Labels.lensOf ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "value"))) :: Data.ProtoLens.FieldDescriptor UInt32Value in Data.Map.fromList [(Data.ProtoLens.Tag 1, value__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _UInt32Value'_unknownFields (\ x__ y__ -> x__{_UInt32Value'_unknownFields = y__}) {- | Fields : * 'Proto.Google.Protobuf.Wrappers_Fields.value' @:: Lens' UInt64Value Data.Word.Word64@ -} data UInt64Value = UInt64Value{_UInt64Value'value :: !Data.Word.Word64, _UInt64Value'_unknownFields :: !Data.ProtoLens.FieldSet} deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) instance (Lens.Labels.HasLens' f UInt64Value x a, a ~ b) => Lens.Labels.HasLens f UInt64Value UInt64Value x a b where lensOf = Lens.Labels.lensOf' instance Prelude.Functor f => Lens.Labels.HasLens' f UInt64Value "value" (Data.Word.Word64) where lensOf' _ = (Prelude..) (Lens.Family2.Unchecked.lens _UInt64Value'value (\ x__ y__ -> x__{_UInt64Value'value = y__})) Prelude.id instance Data.Default.Class.Default UInt64Value where def = UInt64Value{_UInt64Value'value = Data.ProtoLens.fieldDefault, _UInt64Value'_unknownFields = ([])} instance Data.ProtoLens.Message UInt64Value where messageName _ = Data.Text.pack "google.protobuf.UInt64Value" fieldsByTag = let value__field_descriptor = Data.ProtoLens.FieldDescriptor "value" (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Lens.Labels.lensOf ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "value"))) :: Data.ProtoLens.FieldDescriptor UInt64Value in Data.Map.fromList [(Data.ProtoLens.Tag 1, value__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _UInt64Value'_unknownFields (\ x__ y__ -> x__{_UInt64Value'_unknownFields = y__})