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