module Proto.POGOProtos.Networking.Responses.FortDeployPokemonResponse
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.Gym.GymState
import qualified Proto.POGOProtos.Data.PokemonData
import qualified
Proto.POGOProtos.Networking.Responses.FortDetailsResponse
data FortDeployPokemonResponse = FortDeployPokemonResponse{_FortDeployPokemonResponse'result
:: FortDeployPokemonResponse'Result,
_FortDeployPokemonResponse'fortDetails ::
Prelude.Maybe
Proto.POGOProtos.Networking.Responses.FortDetailsResponse.FortDetailsResponse,
_FortDeployPokemonResponse'pokemonData ::
Prelude.Maybe
Proto.POGOProtos.Data.PokemonData.PokemonData,
_FortDeployPokemonResponse'gymState ::
Prelude.Maybe
Proto.POGOProtos.Data.Gym.GymState.GymState}
deriving (Prelude.Show, Prelude.Eq)
type instance
Data.ProtoLens.Field "result" FortDeployPokemonResponse =
FortDeployPokemonResponse'Result
instance Data.ProtoLens.HasField "result" FortDeployPokemonResponse
FortDeployPokemonResponse where
field _
= Lens.Family2.Unchecked.lens _FortDeployPokemonResponse'result
(\ x__ y__ -> x__{_FortDeployPokemonResponse'result = y__})
type instance
Data.ProtoLens.Field "fortDetails" FortDeployPokemonResponse =
Proto.POGOProtos.Networking.Responses.FortDetailsResponse.FortDetailsResponse
instance Data.ProtoLens.HasField "fortDetails"
FortDeployPokemonResponse FortDeployPokemonResponse where
field _
= (Prelude..) maybe'fortDetails
(Data.ProtoLens.maybeLens Data.Default.Class.def)
type instance
Data.ProtoLens.Field "maybe'fortDetails" FortDeployPokemonResponse
=
Prelude.Maybe
Proto.POGOProtos.Networking.Responses.FortDetailsResponse.FortDetailsResponse
instance Data.ProtoLens.HasField "maybe'fortDetails"
FortDeployPokemonResponse FortDeployPokemonResponse where
field _
= Lens.Family2.Unchecked.lens
_FortDeployPokemonResponse'fortDetails
(\ x__ y__ -> x__{_FortDeployPokemonResponse'fortDetails = y__})
type instance
Data.ProtoLens.Field "pokemonData" FortDeployPokemonResponse =
Proto.POGOProtos.Data.PokemonData.PokemonData
instance Data.ProtoLens.HasField "pokemonData"
FortDeployPokemonResponse FortDeployPokemonResponse where
field _
= (Prelude..) maybe'pokemonData
(Data.ProtoLens.maybeLens Data.Default.Class.def)
type instance
Data.ProtoLens.Field "maybe'pokemonData" FortDeployPokemonResponse
= Prelude.Maybe Proto.POGOProtos.Data.PokemonData.PokemonData
instance Data.ProtoLens.HasField "maybe'pokemonData"
FortDeployPokemonResponse FortDeployPokemonResponse where
field _
= Lens.Family2.Unchecked.lens
_FortDeployPokemonResponse'pokemonData
(\ x__ y__ -> x__{_FortDeployPokemonResponse'pokemonData = y__})
type instance
Data.ProtoLens.Field "gymState" FortDeployPokemonResponse =
Proto.POGOProtos.Data.Gym.GymState.GymState
instance Data.ProtoLens.HasField "gymState"
FortDeployPokemonResponse FortDeployPokemonResponse where
field _
= (Prelude..) maybe'gymState
(Data.ProtoLens.maybeLens Data.Default.Class.def)
type instance
Data.ProtoLens.Field "maybe'gymState" FortDeployPokemonResponse =
Prelude.Maybe Proto.POGOProtos.Data.Gym.GymState.GymState
instance Data.ProtoLens.HasField "maybe'gymState"
FortDeployPokemonResponse FortDeployPokemonResponse where
field _
= Lens.Family2.Unchecked.lens _FortDeployPokemonResponse'gymState
(\ x__ y__ -> x__{_FortDeployPokemonResponse'gymState = y__})
instance Data.Default.Class.Default FortDeployPokemonResponse where
def
= FortDeployPokemonResponse{_FortDeployPokemonResponse'result =
Data.Default.Class.def,
_FortDeployPokemonResponse'fortDetails = Prelude.Nothing,
_FortDeployPokemonResponse'pokemonData = Prelude.Nothing,
_FortDeployPokemonResponse'gymState = Prelude.Nothing}
instance Data.ProtoLens.Message FortDeployPokemonResponse where
descriptor
= let result__field_descriptor
= Data.ProtoLens.FieldDescriptor "result"
(Data.ProtoLens.EnumField ::
Data.ProtoLens.FieldTypeDescriptor
FortDeployPokemonResponse'Result)
(Data.ProtoLens.PlainField Data.ProtoLens.Optional result)
fortDetails__field_descriptor
= Data.ProtoLens.FieldDescriptor "fort_details"
(Data.ProtoLens.MessageField ::
Data.ProtoLens.FieldTypeDescriptor
Proto.POGOProtos.Networking.Responses.FortDetailsResponse.FortDetailsResponse)
(Data.ProtoLens.OptionalField maybe'fortDetails)
pokemonData__field_descriptor
= Data.ProtoLens.FieldDescriptor "pokemon_data"
(Data.ProtoLens.MessageField ::
Data.ProtoLens.FieldTypeDescriptor
Proto.POGOProtos.Data.PokemonData.PokemonData)
(Data.ProtoLens.OptionalField maybe'pokemonData)
gymState__field_descriptor
= Data.ProtoLens.FieldDescriptor "gym_state"
(Data.ProtoLens.MessageField ::
Data.ProtoLens.FieldTypeDescriptor
Proto.POGOProtos.Data.Gym.GymState.GymState)
(Data.ProtoLens.OptionalField maybe'gymState)
in
Data.ProtoLens.MessageDescriptor
(Data.Map.fromList
[(Data.ProtoLens.Tag 1, result__field_descriptor),
(Data.ProtoLens.Tag 2, fortDetails__field_descriptor),
(Data.ProtoLens.Tag 3, pokemonData__field_descriptor),
(Data.ProtoLens.Tag 4, gymState__field_descriptor)])
(Data.Map.fromList
[("result", result__field_descriptor),
("fort_details", fortDetails__field_descriptor),
("pokemon_data", pokemonData__field_descriptor),
("gym_state", gymState__field_descriptor)])
data FortDeployPokemonResponse'Result = FortDeployPokemonResponse'NO_RESULT_SET
| FortDeployPokemonResponse'SUCCESS
| FortDeployPokemonResponse'ERROR_ALREADY_HAS_POKEMON_ON_FORT
| FortDeployPokemonResponse'ERROR_OPPOSING_TEAM_OWNS_FORT
| FortDeployPokemonResponse'ERROR_FORT_IS_FULL
| FortDeployPokemonResponse'ERROR_NOT_IN_RANGE
| FortDeployPokemonResponse'ERROR_PLAYER_HAS_NO_TEAM
| FortDeployPokemonResponse'ERROR_POKEMON_NOT_FULL_HP
| FortDeployPokemonResponse'ERROR_PLAYER_BELOW_MINIMUM_LEVEL
deriving (Prelude.Show, Prelude.Eq)
instance Data.Default.Class.Default
FortDeployPokemonResponse'Result where
def = FortDeployPokemonResponse'NO_RESULT_SET
instance Data.ProtoLens.FieldDefault
FortDeployPokemonResponse'Result where
fieldDefault = FortDeployPokemonResponse'NO_RESULT_SET
instance Data.ProtoLens.MessageEnum
FortDeployPokemonResponse'Result where
maybeToEnum 0
= Prelude.Just FortDeployPokemonResponse'NO_RESULT_SET
maybeToEnum 1 = Prelude.Just FortDeployPokemonResponse'SUCCESS
maybeToEnum 2
= Prelude.Just
FortDeployPokemonResponse'ERROR_ALREADY_HAS_POKEMON_ON_FORT
maybeToEnum 3
= Prelude.Just
FortDeployPokemonResponse'ERROR_OPPOSING_TEAM_OWNS_FORT
maybeToEnum 4
= Prelude.Just FortDeployPokemonResponse'ERROR_FORT_IS_FULL
maybeToEnum 5
= Prelude.Just FortDeployPokemonResponse'ERROR_NOT_IN_RANGE
maybeToEnum 6
= Prelude.Just FortDeployPokemonResponse'ERROR_PLAYER_HAS_NO_TEAM
maybeToEnum 7
= Prelude.Just FortDeployPokemonResponse'ERROR_POKEMON_NOT_FULL_HP
maybeToEnum 8
= Prelude.Just
FortDeployPokemonResponse'ERROR_PLAYER_BELOW_MINIMUM_LEVEL
maybeToEnum _ = Prelude.Nothing
showEnum FortDeployPokemonResponse'NO_RESULT_SET = "NO_RESULT_SET"
showEnum FortDeployPokemonResponse'SUCCESS = "SUCCESS"
showEnum
FortDeployPokemonResponse'ERROR_ALREADY_HAS_POKEMON_ON_FORT
= "ERROR_ALREADY_HAS_POKEMON_ON_FORT"
showEnum FortDeployPokemonResponse'ERROR_OPPOSING_TEAM_OWNS_FORT
= "ERROR_OPPOSING_TEAM_OWNS_FORT"
showEnum FortDeployPokemonResponse'ERROR_FORT_IS_FULL
= "ERROR_FORT_IS_FULL"
showEnum FortDeployPokemonResponse'ERROR_NOT_IN_RANGE
= "ERROR_NOT_IN_RANGE"
showEnum FortDeployPokemonResponse'ERROR_PLAYER_HAS_NO_TEAM
= "ERROR_PLAYER_HAS_NO_TEAM"
showEnum FortDeployPokemonResponse'ERROR_POKEMON_NOT_FULL_HP
= "ERROR_POKEMON_NOT_FULL_HP"
showEnum FortDeployPokemonResponse'ERROR_PLAYER_BELOW_MINIMUM_LEVEL
= "ERROR_PLAYER_BELOW_MINIMUM_LEVEL"
readEnum "NO_RESULT_SET"
= Prelude.Just FortDeployPokemonResponse'NO_RESULT_SET
readEnum "SUCCESS" = Prelude.Just FortDeployPokemonResponse'SUCCESS
readEnum "ERROR_ALREADY_HAS_POKEMON_ON_FORT"
= Prelude.Just
FortDeployPokemonResponse'ERROR_ALREADY_HAS_POKEMON_ON_FORT
readEnum "ERROR_OPPOSING_TEAM_OWNS_FORT"
= Prelude.Just
FortDeployPokemonResponse'ERROR_OPPOSING_TEAM_OWNS_FORT
readEnum "ERROR_FORT_IS_FULL"
= Prelude.Just FortDeployPokemonResponse'ERROR_FORT_IS_FULL
readEnum "ERROR_NOT_IN_RANGE"
= Prelude.Just FortDeployPokemonResponse'ERROR_NOT_IN_RANGE
readEnum "ERROR_PLAYER_HAS_NO_TEAM"
= Prelude.Just FortDeployPokemonResponse'ERROR_PLAYER_HAS_NO_TEAM
readEnum "ERROR_POKEMON_NOT_FULL_HP"
= Prelude.Just FortDeployPokemonResponse'ERROR_POKEMON_NOT_FULL_HP
readEnum "ERROR_PLAYER_BELOW_MINIMUM_LEVEL"
= Prelude.Just
FortDeployPokemonResponse'ERROR_PLAYER_BELOW_MINIMUM_LEVEL
readEnum _ = Prelude.Nothing
instance Prelude.Enum FortDeployPokemonResponse'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 FortDeployPokemonResponse'NO_RESULT_SET = 0
fromEnum FortDeployPokemonResponse'SUCCESS = 1
fromEnum
FortDeployPokemonResponse'ERROR_ALREADY_HAS_POKEMON_ON_FORT = 2
fromEnum FortDeployPokemonResponse'ERROR_OPPOSING_TEAM_OWNS_FORT
= 3
fromEnum FortDeployPokemonResponse'ERROR_FORT_IS_FULL = 4
fromEnum FortDeployPokemonResponse'ERROR_NOT_IN_RANGE = 5
fromEnum FortDeployPokemonResponse'ERROR_PLAYER_HAS_NO_TEAM = 6
fromEnum FortDeployPokemonResponse'ERROR_POKEMON_NOT_FULL_HP = 7
fromEnum FortDeployPokemonResponse'ERROR_PLAYER_BELOW_MINIMUM_LEVEL
= 8
succ FortDeployPokemonResponse'ERROR_PLAYER_BELOW_MINIMUM_LEVEL
= Prelude.error
"Ident \"FortDeployPokemonResponse'Result\".Ident \"succ\": bad argument Ident \"FortDeployPokemonResponse'ERROR_PLAYER_BELOW_MINIMUM_LEVEL\". This value would be out of bounds."
succ FortDeployPokemonResponse'NO_RESULT_SET
= FortDeployPokemonResponse'SUCCESS
succ FortDeployPokemonResponse'SUCCESS
= FortDeployPokemonResponse'ERROR_ALREADY_HAS_POKEMON_ON_FORT
succ FortDeployPokemonResponse'ERROR_ALREADY_HAS_POKEMON_ON_FORT
= FortDeployPokemonResponse'ERROR_OPPOSING_TEAM_OWNS_FORT
succ FortDeployPokemonResponse'ERROR_OPPOSING_TEAM_OWNS_FORT
= FortDeployPokemonResponse'ERROR_FORT_IS_FULL
succ FortDeployPokemonResponse'ERROR_FORT_IS_FULL
= FortDeployPokemonResponse'ERROR_NOT_IN_RANGE
succ FortDeployPokemonResponse'ERROR_NOT_IN_RANGE
= FortDeployPokemonResponse'ERROR_PLAYER_HAS_NO_TEAM
succ FortDeployPokemonResponse'ERROR_PLAYER_HAS_NO_TEAM
= FortDeployPokemonResponse'ERROR_POKEMON_NOT_FULL_HP
succ FortDeployPokemonResponse'ERROR_POKEMON_NOT_FULL_HP
= FortDeployPokemonResponse'ERROR_PLAYER_BELOW_MINIMUM_LEVEL
pred FortDeployPokemonResponse'NO_RESULT_SET
= Prelude.error
"Ident \"FortDeployPokemonResponse'Result\".Ident \"pred\": bad argument Ident \"FortDeployPokemonResponse'NO_RESULT_SET\". This value would be out of bounds."
pred FortDeployPokemonResponse'SUCCESS
= FortDeployPokemonResponse'NO_RESULT_SET
pred FortDeployPokemonResponse'ERROR_ALREADY_HAS_POKEMON_ON_FORT
= FortDeployPokemonResponse'SUCCESS
pred FortDeployPokemonResponse'ERROR_OPPOSING_TEAM_OWNS_FORT
= FortDeployPokemonResponse'ERROR_ALREADY_HAS_POKEMON_ON_FORT
pred FortDeployPokemonResponse'ERROR_FORT_IS_FULL
= FortDeployPokemonResponse'ERROR_OPPOSING_TEAM_OWNS_FORT
pred FortDeployPokemonResponse'ERROR_NOT_IN_RANGE
= FortDeployPokemonResponse'ERROR_FORT_IS_FULL
pred FortDeployPokemonResponse'ERROR_PLAYER_HAS_NO_TEAM
= FortDeployPokemonResponse'ERROR_NOT_IN_RANGE
pred FortDeployPokemonResponse'ERROR_POKEMON_NOT_FULL_HP
= FortDeployPokemonResponse'ERROR_PLAYER_HAS_NO_TEAM
pred FortDeployPokemonResponse'ERROR_PLAYER_BELOW_MINIMUM_LEVEL
= FortDeployPokemonResponse'ERROR_POKEMON_NOT_FULL_HP
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 FortDeployPokemonResponse'Result where
minBound = FortDeployPokemonResponse'NO_RESULT_SET
maxBound
= FortDeployPokemonResponse'ERROR_PLAYER_BELOW_MINIMUM_LEVEL
fortDetails ::
forall msg msg' . Data.ProtoLens.HasField "fortDetails" msg msg' =>
Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "fortDetails" msg)
(Data.ProtoLens.Field "fortDetails" msg')
fortDetails
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "fortDetails")
gymState ::
forall msg msg' . Data.ProtoLens.HasField "gymState" msg msg' =>
Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "gymState" msg)
(Data.ProtoLens.Field "gymState" msg')
gymState
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "gymState")
maybe'fortDetails ::
forall msg msg' .
Data.ProtoLens.HasField "maybe'fortDetails" msg msg' =>
Lens.Family2.Lens msg msg'
(Data.ProtoLens.Field "maybe'fortDetails" msg)
(Data.ProtoLens.Field "maybe'fortDetails" msg')
maybe'fortDetails
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym ::
Data.ProtoLens.ProxySym "maybe'fortDetails")
maybe'gymState ::
forall msg msg' .
Data.ProtoLens.HasField "maybe'gymState" msg msg' =>
Lens.Family2.Lens msg msg'
(Data.ProtoLens.Field "maybe'gymState" msg)
(Data.ProtoLens.Field "maybe'gymState" msg')
maybe'gymState
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym ::
Data.ProtoLens.ProxySym "maybe'gymState")
maybe'pokemonData ::
forall msg msg' .
Data.ProtoLens.HasField "maybe'pokemonData" msg msg' =>
Lens.Family2.Lens msg msg'
(Data.ProtoLens.Field "maybe'pokemonData" msg)
(Data.ProtoLens.Field "maybe'pokemonData" msg')
maybe'pokemonData
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym ::
Data.ProtoLens.ProxySym "maybe'pokemonData")
pokemonData ::
forall msg msg' . Data.ProtoLens.HasField "pokemonData" msg msg' =>
Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "pokemonData" msg)
(Data.ProtoLens.Field "pokemonData" msg')
pokemonData
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "pokemonData")
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")