module Proto.POGOProtos.Networking.Responses.GetIncensePokemonResponse
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.Enums.PokemonId
data GetIncensePokemonResponse = GetIncensePokemonResponse{_GetIncensePokemonResponse'result
:: GetIncensePokemonResponse'Result,
_GetIncensePokemonResponse'pokemonId ::
Proto.POGOProtos.Enums.PokemonId.PokemonId,
_GetIncensePokemonResponse'latitude ::
Prelude.Double,
_GetIncensePokemonResponse'longitude ::
Prelude.Double,
_GetIncensePokemonResponse'encounterLocation
:: Data.Text.Text,
_GetIncensePokemonResponse'encounterId ::
Data.Word.Word64,
_GetIncensePokemonResponse'disappearTimestampMs
:: Data.Int.Int64}
deriving (Prelude.Show, Prelude.Eq)
type instance
Data.ProtoLens.Field "result" GetIncensePokemonResponse =
GetIncensePokemonResponse'Result
instance Data.ProtoLens.HasField "result" GetIncensePokemonResponse
GetIncensePokemonResponse where
field _
= Lens.Family2.Unchecked.lens _GetIncensePokemonResponse'result
(\ x__ y__ -> x__{_GetIncensePokemonResponse'result = y__})
type instance
Data.ProtoLens.Field "pokemonId" GetIncensePokemonResponse =
Proto.POGOProtos.Enums.PokemonId.PokemonId
instance Data.ProtoLens.HasField "pokemonId"
GetIncensePokemonResponse GetIncensePokemonResponse where
field _
= Lens.Family2.Unchecked.lens _GetIncensePokemonResponse'pokemonId
(\ x__ y__ -> x__{_GetIncensePokemonResponse'pokemonId = y__})
type instance
Data.ProtoLens.Field "latitude" GetIncensePokemonResponse =
Prelude.Double
instance Data.ProtoLens.HasField "latitude"
GetIncensePokemonResponse GetIncensePokemonResponse where
field _
= Lens.Family2.Unchecked.lens _GetIncensePokemonResponse'latitude
(\ x__ y__ -> x__{_GetIncensePokemonResponse'latitude = y__})
type instance
Data.ProtoLens.Field "longitude" GetIncensePokemonResponse =
Prelude.Double
instance Data.ProtoLens.HasField "longitude"
GetIncensePokemonResponse GetIncensePokemonResponse where
field _
= Lens.Family2.Unchecked.lens _GetIncensePokemonResponse'longitude
(\ x__ y__ -> x__{_GetIncensePokemonResponse'longitude = y__})
type instance
Data.ProtoLens.Field "encounterLocation" GetIncensePokemonResponse
= Data.Text.Text
instance Data.ProtoLens.HasField "encounterLocation"
GetIncensePokemonResponse GetIncensePokemonResponse where
field _
= Lens.Family2.Unchecked.lens
_GetIncensePokemonResponse'encounterLocation
(\ x__ y__ ->
x__{_GetIncensePokemonResponse'encounterLocation = y__})
type instance
Data.ProtoLens.Field "encounterId" GetIncensePokemonResponse =
Data.Word.Word64
instance Data.ProtoLens.HasField "encounterId"
GetIncensePokemonResponse GetIncensePokemonResponse where
field _
= Lens.Family2.Unchecked.lens
_GetIncensePokemonResponse'encounterId
(\ x__ y__ -> x__{_GetIncensePokemonResponse'encounterId = y__})
type instance
Data.ProtoLens.Field "disappearTimestampMs"
GetIncensePokemonResponse
= Data.Int.Int64
instance Data.ProtoLens.HasField "disappearTimestampMs"
GetIncensePokemonResponse GetIncensePokemonResponse where
field _
= Lens.Family2.Unchecked.lens
_GetIncensePokemonResponse'disappearTimestampMs
(\ x__ y__ ->
x__{_GetIncensePokemonResponse'disappearTimestampMs = y__})
instance Data.Default.Class.Default GetIncensePokemonResponse where
def
= GetIncensePokemonResponse{_GetIncensePokemonResponse'result =
Data.Default.Class.def,
_GetIncensePokemonResponse'pokemonId = Data.Default.Class.def,
_GetIncensePokemonResponse'latitude =
Data.ProtoLens.fieldDefault,
_GetIncensePokemonResponse'longitude =
Data.ProtoLens.fieldDefault,
_GetIncensePokemonResponse'encounterLocation =
Data.ProtoLens.fieldDefault,
_GetIncensePokemonResponse'encounterId =
Data.ProtoLens.fieldDefault,
_GetIncensePokemonResponse'disappearTimestampMs =
Data.ProtoLens.fieldDefault}
instance Data.ProtoLens.Message GetIncensePokemonResponse where
descriptor
= let result__field_descriptor
= Data.ProtoLens.FieldDescriptor "result"
(Data.ProtoLens.EnumField ::
Data.ProtoLens.FieldTypeDescriptor
GetIncensePokemonResponse'Result)
(Data.ProtoLens.PlainField Data.ProtoLens.Optional result)
pokemonId__field_descriptor
= Data.ProtoLens.FieldDescriptor "pokemon_id"
(Data.ProtoLens.EnumField ::
Data.ProtoLens.FieldTypeDescriptor
Proto.POGOProtos.Enums.PokemonId.PokemonId)
(Data.ProtoLens.PlainField Data.ProtoLens.Optional pokemonId)
latitude__field_descriptor
= Data.ProtoLens.FieldDescriptor "latitude"
(Data.ProtoLens.DoubleField ::
Data.ProtoLens.FieldTypeDescriptor Prelude.Double)
(Data.ProtoLens.PlainField Data.ProtoLens.Optional latitude)
longitude__field_descriptor
= Data.ProtoLens.FieldDescriptor "longitude"
(Data.ProtoLens.DoubleField ::
Data.ProtoLens.FieldTypeDescriptor Prelude.Double)
(Data.ProtoLens.PlainField Data.ProtoLens.Optional longitude)
encounterLocation__field_descriptor
= Data.ProtoLens.FieldDescriptor "encounter_location"
(Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Data.ProtoLens.PlainField Data.ProtoLens.Optional
encounterLocation)
encounterId__field_descriptor
= Data.ProtoLens.FieldDescriptor "encounter_id"
(Data.ProtoLens.Fixed64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
(Data.ProtoLens.PlainField Data.ProtoLens.Optional encounterId)
disappearTimestampMs__field_descriptor
= Data.ProtoLens.FieldDescriptor "disappear_timestamp_ms"
(Data.ProtoLens.Int64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)
(Data.ProtoLens.PlainField Data.ProtoLens.Optional
disappearTimestampMs)
in
Data.ProtoLens.MessageDescriptor
(Data.Map.fromList
[(Data.ProtoLens.Tag 1, result__field_descriptor),
(Data.ProtoLens.Tag 2, pokemonId__field_descriptor),
(Data.ProtoLens.Tag 3, latitude__field_descriptor),
(Data.ProtoLens.Tag 4, longitude__field_descriptor),
(Data.ProtoLens.Tag 5, encounterLocation__field_descriptor),
(Data.ProtoLens.Tag 6, encounterId__field_descriptor),
(Data.ProtoLens.Tag 7, disappearTimestampMs__field_descriptor)])
(Data.Map.fromList
[("result", result__field_descriptor),
("pokemon_id", pokemonId__field_descriptor),
("latitude", latitude__field_descriptor),
("longitude", longitude__field_descriptor),
("encounter_location", encounterLocation__field_descriptor),
("encounter_id", encounterId__field_descriptor),
("disappear_timestamp_ms",
disappearTimestampMs__field_descriptor)])
data GetIncensePokemonResponse'Result = GetIncensePokemonResponse'INCENSE_ENCOUNTER_UNKNOWN
| GetIncensePokemonResponse'INCENSE_ENCOUNTER_AVAILABLE
| GetIncensePokemonResponse'INCENSE_ENCOUNTER_NOT_AVAILABLE
deriving (Prelude.Show, Prelude.Eq)
instance Data.Default.Class.Default
GetIncensePokemonResponse'Result where
def = GetIncensePokemonResponse'INCENSE_ENCOUNTER_UNKNOWN
instance Data.ProtoLens.FieldDefault
GetIncensePokemonResponse'Result where
fieldDefault = GetIncensePokemonResponse'INCENSE_ENCOUNTER_UNKNOWN
instance Data.ProtoLens.MessageEnum
GetIncensePokemonResponse'Result where
maybeToEnum 0
= Prelude.Just GetIncensePokemonResponse'INCENSE_ENCOUNTER_UNKNOWN
maybeToEnum 1
= Prelude.Just
GetIncensePokemonResponse'INCENSE_ENCOUNTER_AVAILABLE
maybeToEnum 2
= Prelude.Just
GetIncensePokemonResponse'INCENSE_ENCOUNTER_NOT_AVAILABLE
maybeToEnum _ = Prelude.Nothing
showEnum GetIncensePokemonResponse'INCENSE_ENCOUNTER_UNKNOWN
= "INCENSE_ENCOUNTER_UNKNOWN"
showEnum GetIncensePokemonResponse'INCENSE_ENCOUNTER_AVAILABLE
= "INCENSE_ENCOUNTER_AVAILABLE"
showEnum GetIncensePokemonResponse'INCENSE_ENCOUNTER_NOT_AVAILABLE
= "INCENSE_ENCOUNTER_NOT_AVAILABLE"
readEnum "INCENSE_ENCOUNTER_UNKNOWN"
= Prelude.Just GetIncensePokemonResponse'INCENSE_ENCOUNTER_UNKNOWN
readEnum "INCENSE_ENCOUNTER_AVAILABLE"
= Prelude.Just
GetIncensePokemonResponse'INCENSE_ENCOUNTER_AVAILABLE
readEnum "INCENSE_ENCOUNTER_NOT_AVAILABLE"
= Prelude.Just
GetIncensePokemonResponse'INCENSE_ENCOUNTER_NOT_AVAILABLE
readEnum _ = Prelude.Nothing
instance Prelude.Enum GetIncensePokemonResponse'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 GetIncensePokemonResponse'INCENSE_ENCOUNTER_UNKNOWN = 0
fromEnum GetIncensePokemonResponse'INCENSE_ENCOUNTER_AVAILABLE = 1
fromEnum GetIncensePokemonResponse'INCENSE_ENCOUNTER_NOT_AVAILABLE
= 2
succ GetIncensePokemonResponse'INCENSE_ENCOUNTER_NOT_AVAILABLE
= Prelude.error
"Ident \"GetIncensePokemonResponse'Result\".Ident \"succ\": bad argument Ident \"GetIncensePokemonResponse'INCENSE_ENCOUNTER_NOT_AVAILABLE\". This value would be out of bounds."
succ GetIncensePokemonResponse'INCENSE_ENCOUNTER_UNKNOWN
= GetIncensePokemonResponse'INCENSE_ENCOUNTER_AVAILABLE
succ GetIncensePokemonResponse'INCENSE_ENCOUNTER_AVAILABLE
= GetIncensePokemonResponse'INCENSE_ENCOUNTER_NOT_AVAILABLE
pred GetIncensePokemonResponse'INCENSE_ENCOUNTER_UNKNOWN
= Prelude.error
"Ident \"GetIncensePokemonResponse'Result\".Ident \"pred\": bad argument Ident \"GetIncensePokemonResponse'INCENSE_ENCOUNTER_UNKNOWN\". This value would be out of bounds."
pred GetIncensePokemonResponse'INCENSE_ENCOUNTER_AVAILABLE
= GetIncensePokemonResponse'INCENSE_ENCOUNTER_UNKNOWN
pred GetIncensePokemonResponse'INCENSE_ENCOUNTER_NOT_AVAILABLE
= GetIncensePokemonResponse'INCENSE_ENCOUNTER_AVAILABLE
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 GetIncensePokemonResponse'Result where
minBound = GetIncensePokemonResponse'INCENSE_ENCOUNTER_UNKNOWN
maxBound
= GetIncensePokemonResponse'INCENSE_ENCOUNTER_NOT_AVAILABLE
disappearTimestampMs ::
forall msg msg' .
Data.ProtoLens.HasField "disappearTimestampMs" msg msg' =>
Lens.Family2.Lens msg msg'
(Data.ProtoLens.Field "disappearTimestampMs" msg)
(Data.ProtoLens.Field "disappearTimestampMs" msg')
disappearTimestampMs
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym ::
Data.ProtoLens.ProxySym "disappearTimestampMs")
encounterId ::
forall msg msg' . Data.ProtoLens.HasField "encounterId" msg msg' =>
Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "encounterId" msg)
(Data.ProtoLens.Field "encounterId" msg')
encounterId
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "encounterId")
encounterLocation ::
forall msg msg' .
Data.ProtoLens.HasField "encounterLocation" msg msg' =>
Lens.Family2.Lens msg msg'
(Data.ProtoLens.Field "encounterLocation" msg)
(Data.ProtoLens.Field "encounterLocation" msg')
encounterLocation
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym ::
Data.ProtoLens.ProxySym "encounterLocation")
latitude ::
forall msg msg' . Data.ProtoLens.HasField "latitude" msg msg' =>
Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "latitude" msg)
(Data.ProtoLens.Field "latitude" msg')
latitude
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "latitude")
longitude ::
forall msg msg' . Data.ProtoLens.HasField "longitude" msg msg' =>
Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "longitude" msg)
(Data.ProtoLens.Field "longitude" msg')
longitude
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "longitude")
pokemonId ::
forall msg msg' . Data.ProtoLens.HasField "pokemonId" msg msg' =>
Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "pokemonId" msg)
(Data.ProtoLens.Field "pokemonId" msg')
pokemonId
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "pokemonId")
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")