module Proto.POGOProtos.Inventory.InventoryUpgradeType 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 InventoryUpgradeType = UPGRADE_UNSET
| INCREASE_ITEM_STORAGE
| INCREASE_POKEMON_STORAGE
deriving (Prelude.Show, Prelude.Eq)
instance Data.Default.Class.Default InventoryUpgradeType where
def = UPGRADE_UNSET
instance Data.ProtoLens.FieldDefault InventoryUpgradeType where
fieldDefault = UPGRADE_UNSET
instance Data.ProtoLens.MessageEnum InventoryUpgradeType where
maybeToEnum 0 = Prelude.Just UPGRADE_UNSET
maybeToEnum 1 = Prelude.Just INCREASE_ITEM_STORAGE
maybeToEnum 2 = Prelude.Just INCREASE_POKEMON_STORAGE
maybeToEnum _ = Prelude.Nothing
showEnum UPGRADE_UNSET = "UPGRADE_UNSET"
showEnum INCREASE_ITEM_STORAGE = "INCREASE_ITEM_STORAGE"
showEnum INCREASE_POKEMON_STORAGE = "INCREASE_POKEMON_STORAGE"
readEnum "UPGRADE_UNSET" = Prelude.Just UPGRADE_UNSET
readEnum "INCREASE_ITEM_STORAGE"
= Prelude.Just INCREASE_ITEM_STORAGE
readEnum "INCREASE_POKEMON_STORAGE"
= Prelude.Just INCREASE_POKEMON_STORAGE
readEnum _ = Prelude.Nothing
instance Prelude.Enum InventoryUpgradeType where
toEnum k__
= Prelude.maybe
(Prelude.error
((Prelude.++)
"toEnum: unknown value for enum InventoryUpgradeType: "
(Prelude.show k__)))
Prelude.id
(Data.ProtoLens.maybeToEnum k__)
fromEnum UPGRADE_UNSET = 0
fromEnum INCREASE_ITEM_STORAGE = 1
fromEnum INCREASE_POKEMON_STORAGE = 2
succ INCREASE_POKEMON_STORAGE
= Prelude.error
"Ident \"InventoryUpgradeType\".Ident \"succ\": bad argument Ident \"INCREASE_POKEMON_STORAGE\". This value would be out of bounds."
succ UPGRADE_UNSET = INCREASE_ITEM_STORAGE
succ INCREASE_ITEM_STORAGE = INCREASE_POKEMON_STORAGE
pred UPGRADE_UNSET
= Prelude.error
"Ident \"InventoryUpgradeType\".Ident \"pred\": bad argument Ident \"UPGRADE_UNSET\". This value would be out of bounds."
pred INCREASE_ITEM_STORAGE = UPGRADE_UNSET
pred INCREASE_POKEMON_STORAGE = INCREASE_ITEM_STORAGE
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 InventoryUpgradeType where
minBound = UPGRADE_UNSET
maxBound = INCREASE_POKEMON_STORAGE