module Proto.POGOProtos.Networking.Responses.CollectDailyDefenderBonusResponse
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 CollectDailyDefenderBonusResponse = CollectDailyDefenderBonusResponse{_CollectDailyDefenderBonusResponse'result
::
CollectDailyDefenderBonusResponse'Result,
_CollectDailyDefenderBonusResponse'currencyType
:: [Data.Text.Text],
_CollectDailyDefenderBonusResponse'currencyAwarded
:: [Data.Int.Int32],
_CollectDailyDefenderBonusResponse'defendersCount
:: Data.Int.Int32}
deriving (Prelude.Show, Prelude.Eq)
type instance
Data.ProtoLens.Field "result" CollectDailyDefenderBonusResponse =
CollectDailyDefenderBonusResponse'Result
instance Data.ProtoLens.HasField "result"
CollectDailyDefenderBonusResponse CollectDailyDefenderBonusResponse
where
field _
= Lens.Family2.Unchecked.lens
_CollectDailyDefenderBonusResponse'result
(\ x__ y__ -> x__{_CollectDailyDefenderBonusResponse'result = y__})
type instance
Data.ProtoLens.Field "currencyType"
CollectDailyDefenderBonusResponse
= [Data.Text.Text]
instance Data.ProtoLens.HasField "currencyType"
CollectDailyDefenderBonusResponse CollectDailyDefenderBonusResponse
where
field _
= Lens.Family2.Unchecked.lens
_CollectDailyDefenderBonusResponse'currencyType
(\ x__ y__ ->
x__{_CollectDailyDefenderBonusResponse'currencyType = y__})
type instance
Data.ProtoLens.Field "currencyAwarded"
CollectDailyDefenderBonusResponse
= [Data.Int.Int32]
instance Data.ProtoLens.HasField "currencyAwarded"
CollectDailyDefenderBonusResponse CollectDailyDefenderBonusResponse
where
field _
= Lens.Family2.Unchecked.lens
_CollectDailyDefenderBonusResponse'currencyAwarded
(\ x__ y__ ->
x__{_CollectDailyDefenderBonusResponse'currencyAwarded = y__})
type instance
Data.ProtoLens.Field "defendersCount"
CollectDailyDefenderBonusResponse
= Data.Int.Int32
instance Data.ProtoLens.HasField "defendersCount"
CollectDailyDefenderBonusResponse CollectDailyDefenderBonusResponse
where
field _
= Lens.Family2.Unchecked.lens
_CollectDailyDefenderBonusResponse'defendersCount
(\ x__ y__ ->
x__{_CollectDailyDefenderBonusResponse'defendersCount = y__})
instance Data.Default.Class.Default
CollectDailyDefenderBonusResponse where
def
= CollectDailyDefenderBonusResponse{_CollectDailyDefenderBonusResponse'result
= Data.Default.Class.def,
_CollectDailyDefenderBonusResponse'currencyType = [],
_CollectDailyDefenderBonusResponse'currencyAwarded =
[],
_CollectDailyDefenderBonusResponse'defendersCount =
Data.ProtoLens.fieldDefault}
instance Data.ProtoLens.Message CollectDailyDefenderBonusResponse
where
descriptor
= let result__field_descriptor
= Data.ProtoLens.FieldDescriptor "result"
(Data.ProtoLens.EnumField ::
Data.ProtoLens.FieldTypeDescriptor
CollectDailyDefenderBonusResponse'Result)
(Data.ProtoLens.PlainField Data.ProtoLens.Optional result)
currencyType__field_descriptor
= Data.ProtoLens.FieldDescriptor "currency_type"
(Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked currencyType)
currencyAwarded__field_descriptor
= Data.ProtoLens.FieldDescriptor "currency_awarded"
(Data.ProtoLens.Int32Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)
(Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked
currencyAwarded)
defendersCount__field_descriptor
= Data.ProtoLens.FieldDescriptor "defenders_count"
(Data.ProtoLens.Int32Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)
(Data.ProtoLens.PlainField Data.ProtoLens.Optional defendersCount)
in
Data.ProtoLens.MessageDescriptor
(Data.Map.fromList
[(Data.ProtoLens.Tag 1, result__field_descriptor),
(Data.ProtoLens.Tag 2, currencyType__field_descriptor),
(Data.ProtoLens.Tag 3, currencyAwarded__field_descriptor),
(Data.ProtoLens.Tag 4, defendersCount__field_descriptor)])
(Data.Map.fromList
[("result", result__field_descriptor),
("currency_type", currencyType__field_descriptor),
("currency_awarded", currencyAwarded__field_descriptor),
("defenders_count", defendersCount__field_descriptor)])
data CollectDailyDefenderBonusResponse'Result = CollectDailyDefenderBonusResponse'UNSET
| CollectDailyDefenderBonusResponse'SUCCESS
| CollectDailyDefenderBonusResponse'FAILURE
| CollectDailyDefenderBonusResponse'TOO_SOON
| CollectDailyDefenderBonusResponse'NO_DEFENDERS
deriving (Prelude.Show, Prelude.Eq)
instance Data.Default.Class.Default
CollectDailyDefenderBonusResponse'Result where
def = CollectDailyDefenderBonusResponse'UNSET
instance Data.ProtoLens.FieldDefault
CollectDailyDefenderBonusResponse'Result where
fieldDefault = CollectDailyDefenderBonusResponse'UNSET
instance Data.ProtoLens.MessageEnum
CollectDailyDefenderBonusResponse'Result where
maybeToEnum 0
= Prelude.Just CollectDailyDefenderBonusResponse'UNSET
maybeToEnum 1
= Prelude.Just CollectDailyDefenderBonusResponse'SUCCESS
maybeToEnum 2
= Prelude.Just CollectDailyDefenderBonusResponse'FAILURE
maybeToEnum 3
= Prelude.Just CollectDailyDefenderBonusResponse'TOO_SOON
maybeToEnum 4
= Prelude.Just CollectDailyDefenderBonusResponse'NO_DEFENDERS
maybeToEnum _ = Prelude.Nothing
showEnum CollectDailyDefenderBonusResponse'UNSET = "UNSET"
showEnum CollectDailyDefenderBonusResponse'SUCCESS = "SUCCESS"
showEnum CollectDailyDefenderBonusResponse'FAILURE = "FAILURE"
showEnum CollectDailyDefenderBonusResponse'TOO_SOON = "TOO_SOON"
showEnum CollectDailyDefenderBonusResponse'NO_DEFENDERS
= "NO_DEFENDERS"
readEnum "UNSET"
= Prelude.Just CollectDailyDefenderBonusResponse'UNSET
readEnum "SUCCESS"
= Prelude.Just CollectDailyDefenderBonusResponse'SUCCESS
readEnum "FAILURE"
= Prelude.Just CollectDailyDefenderBonusResponse'FAILURE
readEnum "TOO_SOON"
= Prelude.Just CollectDailyDefenderBonusResponse'TOO_SOON
readEnum "NO_DEFENDERS"
= Prelude.Just CollectDailyDefenderBonusResponse'NO_DEFENDERS
readEnum _ = Prelude.Nothing
instance Prelude.Enum CollectDailyDefenderBonusResponse'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 CollectDailyDefenderBonusResponse'UNSET = 0
fromEnum CollectDailyDefenderBonusResponse'SUCCESS = 1
fromEnum CollectDailyDefenderBonusResponse'FAILURE = 2
fromEnum CollectDailyDefenderBonusResponse'TOO_SOON = 3
fromEnum CollectDailyDefenderBonusResponse'NO_DEFENDERS = 4
succ CollectDailyDefenderBonusResponse'NO_DEFENDERS
= Prelude.error
"Ident \"CollectDailyDefenderBonusResponse'Result\".Ident \"succ\": bad argument Ident \"CollectDailyDefenderBonusResponse'NO_DEFENDERS\". This value would be out of bounds."
succ CollectDailyDefenderBonusResponse'UNSET
= CollectDailyDefenderBonusResponse'SUCCESS
succ CollectDailyDefenderBonusResponse'SUCCESS
= CollectDailyDefenderBonusResponse'FAILURE
succ CollectDailyDefenderBonusResponse'FAILURE
= CollectDailyDefenderBonusResponse'TOO_SOON
succ CollectDailyDefenderBonusResponse'TOO_SOON
= CollectDailyDefenderBonusResponse'NO_DEFENDERS
pred CollectDailyDefenderBonusResponse'UNSET
= Prelude.error
"Ident \"CollectDailyDefenderBonusResponse'Result\".Ident \"pred\": bad argument Ident \"CollectDailyDefenderBonusResponse'UNSET\". This value would be out of bounds."
pred CollectDailyDefenderBonusResponse'SUCCESS
= CollectDailyDefenderBonusResponse'UNSET
pred CollectDailyDefenderBonusResponse'FAILURE
= CollectDailyDefenderBonusResponse'SUCCESS
pred CollectDailyDefenderBonusResponse'TOO_SOON
= CollectDailyDefenderBonusResponse'FAILURE
pred CollectDailyDefenderBonusResponse'NO_DEFENDERS
= CollectDailyDefenderBonusResponse'TOO_SOON
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 CollectDailyDefenderBonusResponse'Result
where
minBound = CollectDailyDefenderBonusResponse'UNSET
maxBound = CollectDailyDefenderBonusResponse'NO_DEFENDERS
currencyAwarded ::
forall msg msg' .
Data.ProtoLens.HasField "currencyAwarded" msg msg' =>
Lens.Family2.Lens msg msg'
(Data.ProtoLens.Field "currencyAwarded" msg)
(Data.ProtoLens.Field "currencyAwarded" msg')
currencyAwarded
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym ::
Data.ProtoLens.ProxySym "currencyAwarded")
currencyType ::
forall msg msg' .
Data.ProtoLens.HasField "currencyType" msg msg' =>
Lens.Family2.Lens msg msg'
(Data.ProtoLens.Field "currencyType" msg)
(Data.ProtoLens.Field "currencyType" msg')
currencyType
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "currencyType")
defendersCount ::
forall msg msg' .
Data.ProtoLens.HasField "defendersCount" msg msg' =>
Lens.Family2.Lens msg msg'
(Data.ProtoLens.Field "defendersCount" msg)
(Data.ProtoLens.Field "defendersCount" msg')
defendersCount
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym ::
Data.ProtoLens.ProxySym "defendersCount")
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")