module Proto.POGOProtos.Networking.Responses.DownloadRemoteConfigVersionResponse
where
import qualified Prelude
import qualified Data.ProtoLens
import qualified Data.ProtoLens.Message.Enum
import qualified Lens.Family2
import qualified Lens.Family2.Unchecked
import qualified Data.Default.Class
import qualified Data.Text
import qualified Data.Int
import qualified Data.Word
import qualified Data.Map
import qualified Data.ByteString
data DownloadRemoteConfigVersionResponse = DownloadRemoteConfigVersionResponse{_DownloadRemoteConfigVersionResponse'result
::
DownloadRemoteConfigVersionResponse'Result,
_DownloadRemoteConfigVersionResponse'itemTemplatesTimestampMs
:: Data.Word.Word64,
_DownloadRemoteConfigVersionResponse'assetDigestTimestampMs
:: Data.Word.Word64}
deriving (Prelude.Show, Prelude.Eq)
type instance
Data.ProtoLens.Field "result" DownloadRemoteConfigVersionResponse =
DownloadRemoteConfigVersionResponse'Result
instance Data.ProtoLens.HasField "result"
DownloadRemoteConfigVersionResponse
DownloadRemoteConfigVersionResponse where
field _
= Lens.Family2.Unchecked.lens
_DownloadRemoteConfigVersionResponse'result
(\ x__ y__ ->
x__{_DownloadRemoteConfigVersionResponse'result = y__})
type instance
Data.ProtoLens.Field "itemTemplatesTimestampMs"
DownloadRemoteConfigVersionResponse
= Data.Word.Word64
instance Data.ProtoLens.HasField "itemTemplatesTimestampMs"
DownloadRemoteConfigVersionResponse
DownloadRemoteConfigVersionResponse where
field _
= Lens.Family2.Unchecked.lens
_DownloadRemoteConfigVersionResponse'itemTemplatesTimestampMs
(\ x__ y__ ->
x__{_DownloadRemoteConfigVersionResponse'itemTemplatesTimestampMs =
y__})
type instance
Data.ProtoLens.Field "assetDigestTimestampMs"
DownloadRemoteConfigVersionResponse
= Data.Word.Word64
instance Data.ProtoLens.HasField "assetDigestTimestampMs"
DownloadRemoteConfigVersionResponse
DownloadRemoteConfigVersionResponse where
field _
= Lens.Family2.Unchecked.lens
_DownloadRemoteConfigVersionResponse'assetDigestTimestampMs
(\ x__ y__ ->
x__{_DownloadRemoteConfigVersionResponse'assetDigestTimestampMs =
y__})
instance Data.Default.Class.Default
DownloadRemoteConfigVersionResponse where
def
= DownloadRemoteConfigVersionResponse{_DownloadRemoteConfigVersionResponse'result
= Data.Default.Class.def,
_DownloadRemoteConfigVersionResponse'itemTemplatesTimestampMs
= Data.ProtoLens.fieldDefault,
_DownloadRemoteConfigVersionResponse'assetDigestTimestampMs
= Data.ProtoLens.fieldDefault}
instance Data.ProtoLens.Message DownloadRemoteConfigVersionResponse
where
descriptor
= let result__field_descriptor
= Data.ProtoLens.FieldDescriptor "result"
(Data.ProtoLens.EnumField ::
Data.ProtoLens.FieldTypeDescriptor
DownloadRemoteConfigVersionResponse'Result)
(Data.ProtoLens.PlainField Data.ProtoLens.Optional result)
itemTemplatesTimestampMs__field_descriptor
= Data.ProtoLens.FieldDescriptor "item_templates_timestamp_ms"
(Data.ProtoLens.UInt64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
(Data.ProtoLens.PlainField Data.ProtoLens.Optional
itemTemplatesTimestampMs)
assetDigestTimestampMs__field_descriptor
= Data.ProtoLens.FieldDescriptor "asset_digest_timestamp_ms"
(Data.ProtoLens.UInt64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
(Data.ProtoLens.PlainField Data.ProtoLens.Optional
assetDigestTimestampMs)
in
Data.ProtoLens.MessageDescriptor
(Data.Map.fromList
[(Data.ProtoLens.Tag 1, result__field_descriptor),
(Data.ProtoLens.Tag 2, itemTemplatesTimestampMs__field_descriptor),
(Data.ProtoLens.Tag 3, assetDigestTimestampMs__field_descriptor)])
(Data.Map.fromList
[("result", result__field_descriptor),
("item_templates_timestamp_ms",
itemTemplatesTimestampMs__field_descriptor),
("asset_digest_timestamp_ms",
assetDigestTimestampMs__field_descriptor)])
data DownloadRemoteConfigVersionResponse'Result = DownloadRemoteConfigVersionResponse'UNSET
| DownloadRemoteConfigVersionResponse'SUCCESS
deriving (Prelude.Show, Prelude.Eq)
instance Data.Default.Class.Default
DownloadRemoteConfigVersionResponse'Result where
def = DownloadRemoteConfigVersionResponse'UNSET
instance Data.ProtoLens.FieldDefault
DownloadRemoteConfigVersionResponse'Result where
fieldDefault = DownloadRemoteConfigVersionResponse'UNSET
instance Data.ProtoLens.MessageEnum
DownloadRemoteConfigVersionResponse'Result where
maybeToEnum 0
= Prelude.Just DownloadRemoteConfigVersionResponse'UNSET
maybeToEnum 1
= Prelude.Just DownloadRemoteConfigVersionResponse'SUCCESS
maybeToEnum _ = Prelude.Nothing
showEnum DownloadRemoteConfigVersionResponse'UNSET = "UNSET"
showEnum DownloadRemoteConfigVersionResponse'SUCCESS = "SUCCESS"
readEnum "UNSET"
= Prelude.Just DownloadRemoteConfigVersionResponse'UNSET
readEnum "SUCCESS"
= Prelude.Just DownloadRemoteConfigVersionResponse'SUCCESS
readEnum _ = Prelude.Nothing
instance Prelude.Enum DownloadRemoteConfigVersionResponse'Result
where
toEnum k__
= Prelude.maybe
(Prelude.error
((Prelude.++) "toEnum: unknown value for enum Result: "
(Prelude.show k__)))
Prelude.id
(Data.ProtoLens.maybeToEnum k__)
fromEnum DownloadRemoteConfigVersionResponse'UNSET = 0
fromEnum DownloadRemoteConfigVersionResponse'SUCCESS = 1
succ DownloadRemoteConfigVersionResponse'SUCCESS
= Prelude.error
"Ident \"DownloadRemoteConfigVersionResponse'Result\".Ident \"succ\": bad argument Ident \"DownloadRemoteConfigVersionResponse'SUCCESS\". This value would be out of bounds."
succ DownloadRemoteConfigVersionResponse'UNSET
= DownloadRemoteConfigVersionResponse'SUCCESS
pred DownloadRemoteConfigVersionResponse'UNSET
= Prelude.error
"Ident \"DownloadRemoteConfigVersionResponse'Result\".Ident \"pred\": bad argument Ident \"DownloadRemoteConfigVersionResponse'UNSET\". This value would be out of bounds."
pred DownloadRemoteConfigVersionResponse'SUCCESS
= DownloadRemoteConfigVersionResponse'UNSET
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 DownloadRemoteConfigVersionResponse'Result
where
minBound = DownloadRemoteConfigVersionResponse'UNSET
maxBound = DownloadRemoteConfigVersionResponse'SUCCESS
assetDigestTimestampMs ::
forall msg msg' .
Data.ProtoLens.HasField "assetDigestTimestampMs" msg msg' =>
Lens.Family2.Lens msg msg'
(Data.ProtoLens.Field "assetDigestTimestampMs" msg)
(Data.ProtoLens.Field "assetDigestTimestampMs" msg')
assetDigestTimestampMs
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym ::
Data.ProtoLens.ProxySym "assetDigestTimestampMs")
itemTemplatesTimestampMs ::
forall msg msg' .
Data.ProtoLens.HasField "itemTemplatesTimestampMs" msg msg' =>
Lens.Family2.Lens msg msg'
(Data.ProtoLens.Field "itemTemplatesTimestampMs" msg)
(Data.ProtoLens.Field "itemTemplatesTimestampMs" msg')
itemTemplatesTimestampMs
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym ::
Data.ProtoLens.ProxySym "itemTemplatesTimestampMs")
result ::
forall msg msg' . Data.ProtoLens.HasField "result" msg msg' =>
Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "result" msg)
(Data.ProtoLens.Field "result" msg')
result
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "result")