module Proto.POGOProtos.Networking.Responses.FortSearchResponse
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
import qualified Proto.POGOProtos.Data.PokemonData
import qualified Proto.POGOProtos.Inventory.Item.ItemAward
data FortSearchResponse = FortSearchResponse{_FortSearchResponse'result
:: FortSearchResponse'Result,
_FortSearchResponse'itemsAwarded ::
[Proto.POGOProtos.Inventory.Item.ItemAward.ItemAward],
_FortSearchResponse'gemsAwarded :: Data.Int.Int32,
_FortSearchResponse'pokemonDataEgg ::
Prelude.Maybe
Proto.POGOProtos.Data.PokemonData.PokemonData,
_FortSearchResponse'experienceAwarded ::
Data.Int.Int32,
_FortSearchResponse'cooldownCompleteTimestampMs ::
Data.Int.Int64,
_FortSearchResponse'chainHackSequenceNumber ::
Data.Int.Int32}
deriving (Prelude.Show, Prelude.Eq)
type instance Data.ProtoLens.Field "result" FortSearchResponse =
FortSearchResponse'Result
instance Data.ProtoLens.HasField "result" FortSearchResponse
FortSearchResponse where
field _
= Lens.Family2.Unchecked.lens _FortSearchResponse'result
(\ x__ y__ -> x__{_FortSearchResponse'result = y__})
type instance
Data.ProtoLens.Field "itemsAwarded" FortSearchResponse =
[Proto.POGOProtos.Inventory.Item.ItemAward.ItemAward]
instance Data.ProtoLens.HasField "itemsAwarded" FortSearchResponse
FortSearchResponse where
field _
= Lens.Family2.Unchecked.lens _FortSearchResponse'itemsAwarded
(\ x__ y__ -> x__{_FortSearchResponse'itemsAwarded = y__})
type instance Data.ProtoLens.Field "gemsAwarded" FortSearchResponse
= Data.Int.Int32
instance Data.ProtoLens.HasField "gemsAwarded" FortSearchResponse
FortSearchResponse where
field _
= Lens.Family2.Unchecked.lens _FortSearchResponse'gemsAwarded
(\ x__ y__ -> x__{_FortSearchResponse'gemsAwarded = y__})
type instance
Data.ProtoLens.Field "pokemonDataEgg" FortSearchResponse =
Proto.POGOProtos.Data.PokemonData.PokemonData
instance Data.ProtoLens.HasField "pokemonDataEgg"
FortSearchResponse FortSearchResponse where
field _
= (Prelude..) maybe'pokemonDataEgg
(Data.ProtoLens.maybeLens Data.Default.Class.def)
type instance
Data.ProtoLens.Field "maybe'pokemonDataEgg" FortSearchResponse =
Prelude.Maybe Proto.POGOProtos.Data.PokemonData.PokemonData
instance Data.ProtoLens.HasField "maybe'pokemonDataEgg"
FortSearchResponse FortSearchResponse where
field _
= Lens.Family2.Unchecked.lens _FortSearchResponse'pokemonDataEgg
(\ x__ y__ -> x__{_FortSearchResponse'pokemonDataEgg = y__})
type instance
Data.ProtoLens.Field "experienceAwarded" FortSearchResponse =
Data.Int.Int32
instance Data.ProtoLens.HasField "experienceAwarded"
FortSearchResponse FortSearchResponse where
field _
= Lens.Family2.Unchecked.lens _FortSearchResponse'experienceAwarded
(\ x__ y__ -> x__{_FortSearchResponse'experienceAwarded = y__})
type instance
Data.ProtoLens.Field "cooldownCompleteTimestampMs"
FortSearchResponse
= Data.Int.Int64
instance Data.ProtoLens.HasField "cooldownCompleteTimestampMs"
FortSearchResponse FortSearchResponse where
field _
= Lens.Family2.Unchecked.lens
_FortSearchResponse'cooldownCompleteTimestampMs
(\ x__ y__ ->
x__{_FortSearchResponse'cooldownCompleteTimestampMs = y__})
type instance
Data.ProtoLens.Field "chainHackSequenceNumber" FortSearchResponse =
Data.Int.Int32
instance Data.ProtoLens.HasField "chainHackSequenceNumber"
FortSearchResponse FortSearchResponse where
field _
= Lens.Family2.Unchecked.lens
_FortSearchResponse'chainHackSequenceNumber
(\ x__ y__ ->
x__{_FortSearchResponse'chainHackSequenceNumber = y__})
instance Data.Default.Class.Default FortSearchResponse where
def
= FortSearchResponse{_FortSearchResponse'result =
Data.Default.Class.def,
_FortSearchResponse'itemsAwarded = [],
_FortSearchResponse'gemsAwarded = Data.ProtoLens.fieldDefault,
_FortSearchResponse'pokemonDataEgg = Prelude.Nothing,
_FortSearchResponse'experienceAwarded =
Data.ProtoLens.fieldDefault,
_FortSearchResponse'cooldownCompleteTimestampMs =
Data.ProtoLens.fieldDefault,
_FortSearchResponse'chainHackSequenceNumber =
Data.ProtoLens.fieldDefault}
instance Data.ProtoLens.Message FortSearchResponse where
descriptor
= let result__field_descriptor
= Data.ProtoLens.FieldDescriptor "result"
(Data.ProtoLens.EnumField ::
Data.ProtoLens.FieldTypeDescriptor FortSearchResponse'Result)
(Data.ProtoLens.PlainField Data.ProtoLens.Optional result)
itemsAwarded__field_descriptor
= Data.ProtoLens.FieldDescriptor "items_awarded"
(Data.ProtoLens.MessageField ::
Data.ProtoLens.FieldTypeDescriptor
Proto.POGOProtos.Inventory.Item.ItemAward.ItemAward)
(Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked itemsAwarded)
gemsAwarded__field_descriptor
= Data.ProtoLens.FieldDescriptor "gems_awarded"
(Data.ProtoLens.Int32Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)
(Data.ProtoLens.PlainField Data.ProtoLens.Optional gemsAwarded)
pokemonDataEgg__field_descriptor
= Data.ProtoLens.FieldDescriptor "pokemon_data_egg"
(Data.ProtoLens.MessageField ::
Data.ProtoLens.FieldTypeDescriptor
Proto.POGOProtos.Data.PokemonData.PokemonData)
(Data.ProtoLens.OptionalField maybe'pokemonDataEgg)
experienceAwarded__field_descriptor
= Data.ProtoLens.FieldDescriptor "experience_awarded"
(Data.ProtoLens.Int32Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)
(Data.ProtoLens.PlainField Data.ProtoLens.Optional
experienceAwarded)
cooldownCompleteTimestampMs__field_descriptor
= Data.ProtoLens.FieldDescriptor "cooldown_complete_timestamp_ms"
(Data.ProtoLens.Int64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)
(Data.ProtoLens.PlainField Data.ProtoLens.Optional
cooldownCompleteTimestampMs)
chainHackSequenceNumber__field_descriptor
= Data.ProtoLens.FieldDescriptor "chain_hack_sequence_number"
(Data.ProtoLens.Int32Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)
(Data.ProtoLens.PlainField Data.ProtoLens.Optional
chainHackSequenceNumber)
in
Data.ProtoLens.MessageDescriptor
(Data.Map.fromList
[(Data.ProtoLens.Tag 1, result__field_descriptor),
(Data.ProtoLens.Tag 2, itemsAwarded__field_descriptor),
(Data.ProtoLens.Tag 3, gemsAwarded__field_descriptor),
(Data.ProtoLens.Tag 4, pokemonDataEgg__field_descriptor),
(Data.ProtoLens.Tag 5, experienceAwarded__field_descriptor),
(Data.ProtoLens.Tag 6,
cooldownCompleteTimestampMs__field_descriptor),
(Data.ProtoLens.Tag 7, chainHackSequenceNumber__field_descriptor)])
(Data.Map.fromList
[("result", result__field_descriptor),
("items_awarded", itemsAwarded__field_descriptor),
("gems_awarded", gemsAwarded__field_descriptor),
("pokemon_data_egg", pokemonDataEgg__field_descriptor),
("experience_awarded", experienceAwarded__field_descriptor),
("cooldown_complete_timestamp_ms",
cooldownCompleteTimestampMs__field_descriptor),
("chain_hack_sequence_number",
chainHackSequenceNumber__field_descriptor)])
data FortSearchResponse'Result = FortSearchResponse'NO_RESULT_SET
| FortSearchResponse'SUCCESS
| FortSearchResponse'OUT_OF_RANGE
| FortSearchResponse'IN_COOLDOWN_PERIOD
| FortSearchResponse'INVENTORY_FULL
deriving (Prelude.Show, Prelude.Eq)
instance Data.Default.Class.Default FortSearchResponse'Result where
def = FortSearchResponse'NO_RESULT_SET
instance Data.ProtoLens.FieldDefault FortSearchResponse'Result
where
fieldDefault = FortSearchResponse'NO_RESULT_SET
instance Data.ProtoLens.MessageEnum FortSearchResponse'Result where
maybeToEnum 0 = Prelude.Just FortSearchResponse'NO_RESULT_SET
maybeToEnum 1 = Prelude.Just FortSearchResponse'SUCCESS
maybeToEnum 2 = Prelude.Just FortSearchResponse'OUT_OF_RANGE
maybeToEnum 3 = Prelude.Just FortSearchResponse'IN_COOLDOWN_PERIOD
maybeToEnum 4 = Prelude.Just FortSearchResponse'INVENTORY_FULL
maybeToEnum _ = Prelude.Nothing
showEnum FortSearchResponse'NO_RESULT_SET = "NO_RESULT_SET"
showEnum FortSearchResponse'SUCCESS = "SUCCESS"
showEnum FortSearchResponse'OUT_OF_RANGE = "OUT_OF_RANGE"
showEnum FortSearchResponse'IN_COOLDOWN_PERIOD
= "IN_COOLDOWN_PERIOD"
showEnum FortSearchResponse'INVENTORY_FULL = "INVENTORY_FULL"
readEnum "NO_RESULT_SET"
= Prelude.Just FortSearchResponse'NO_RESULT_SET
readEnum "SUCCESS" = Prelude.Just FortSearchResponse'SUCCESS
readEnum "OUT_OF_RANGE"
= Prelude.Just FortSearchResponse'OUT_OF_RANGE
readEnum "IN_COOLDOWN_PERIOD"
= Prelude.Just FortSearchResponse'IN_COOLDOWN_PERIOD
readEnum "INVENTORY_FULL"
= Prelude.Just FortSearchResponse'INVENTORY_FULL
readEnum _ = Prelude.Nothing
instance Prelude.Enum FortSearchResponse'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 FortSearchResponse'NO_RESULT_SET = 0
fromEnum FortSearchResponse'SUCCESS = 1
fromEnum FortSearchResponse'OUT_OF_RANGE = 2
fromEnum FortSearchResponse'IN_COOLDOWN_PERIOD = 3
fromEnum FortSearchResponse'INVENTORY_FULL = 4
succ FortSearchResponse'INVENTORY_FULL
= Prelude.error
"Ident \"FortSearchResponse'Result\".Ident \"succ\": bad argument Ident \"FortSearchResponse'INVENTORY_FULL\". This value would be out of bounds."
succ FortSearchResponse'NO_RESULT_SET = FortSearchResponse'SUCCESS
succ FortSearchResponse'SUCCESS = FortSearchResponse'OUT_OF_RANGE
succ FortSearchResponse'OUT_OF_RANGE
= FortSearchResponse'IN_COOLDOWN_PERIOD
succ FortSearchResponse'IN_COOLDOWN_PERIOD
= FortSearchResponse'INVENTORY_FULL
pred FortSearchResponse'NO_RESULT_SET
= Prelude.error
"Ident \"FortSearchResponse'Result\".Ident \"pred\": bad argument Ident \"FortSearchResponse'NO_RESULT_SET\". This value would be out of bounds."
pred FortSearchResponse'SUCCESS = FortSearchResponse'NO_RESULT_SET
pred FortSearchResponse'OUT_OF_RANGE = FortSearchResponse'SUCCESS
pred FortSearchResponse'IN_COOLDOWN_PERIOD
= FortSearchResponse'OUT_OF_RANGE
pred FortSearchResponse'INVENTORY_FULL
= FortSearchResponse'IN_COOLDOWN_PERIOD
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 FortSearchResponse'Result where
minBound = FortSearchResponse'NO_RESULT_SET
maxBound = FortSearchResponse'INVENTORY_FULL
chainHackSequenceNumber ::
forall msg msg' .
Data.ProtoLens.HasField "chainHackSequenceNumber" msg msg' =>
Lens.Family2.Lens msg msg'
(Data.ProtoLens.Field "chainHackSequenceNumber" msg)
(Data.ProtoLens.Field "chainHackSequenceNumber" msg')
chainHackSequenceNumber
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym ::
Data.ProtoLens.ProxySym "chainHackSequenceNumber")
cooldownCompleteTimestampMs ::
forall msg msg' .
Data.ProtoLens.HasField "cooldownCompleteTimestampMs" msg msg' =>
Lens.Family2.Lens msg msg'
(Data.ProtoLens.Field "cooldownCompleteTimestampMs" msg)
(Data.ProtoLens.Field "cooldownCompleteTimestampMs" msg')
cooldownCompleteTimestampMs
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym ::
Data.ProtoLens.ProxySym "cooldownCompleteTimestampMs")
experienceAwarded ::
forall msg msg' .
Data.ProtoLens.HasField "experienceAwarded" msg msg' =>
Lens.Family2.Lens msg msg'
(Data.ProtoLens.Field "experienceAwarded" msg)
(Data.ProtoLens.Field "experienceAwarded" msg')
experienceAwarded
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym ::
Data.ProtoLens.ProxySym "experienceAwarded")
gemsAwarded ::
forall msg msg' . Data.ProtoLens.HasField "gemsAwarded" msg msg' =>
Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "gemsAwarded" msg)
(Data.ProtoLens.Field "gemsAwarded" msg')
gemsAwarded
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "gemsAwarded")
itemsAwarded ::
forall msg msg' .
Data.ProtoLens.HasField "itemsAwarded" msg msg' =>
Lens.Family2.Lens msg msg'
(Data.ProtoLens.Field "itemsAwarded" msg)
(Data.ProtoLens.Field "itemsAwarded" msg')
itemsAwarded
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "itemsAwarded")
maybe'pokemonDataEgg ::
forall msg msg' .
Data.ProtoLens.HasField "maybe'pokemonDataEgg" msg msg' =>
Lens.Family2.Lens msg msg'
(Data.ProtoLens.Field "maybe'pokemonDataEgg" msg)
(Data.ProtoLens.Field "maybe'pokemonDataEgg" msg')
maybe'pokemonDataEgg
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym ::
Data.ProtoLens.ProxySym "maybe'pokemonDataEgg")
pokemonDataEgg ::
forall msg msg' .
Data.ProtoLens.HasField "pokemonDataEgg" msg msg' =>
Lens.Family2.Lens msg msg'
(Data.ProtoLens.Field "pokemonDataEgg" msg)
(Data.ProtoLens.Field "pokemonDataEgg" msg')
pokemonDataEgg
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym ::
Data.ProtoLens.ProxySym "pokemonDataEgg")
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")