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