packages feed

pokemon-go-protobuf-types (empty) → 0.1.0.0

raw patch · 223 files changed

+40700/−0 lines, 223 filesdep +basedep +bytestringdep +containerssetup-changed

Dependencies added: base, bytestring, containers, data-default-class, lens-family, proto-lens, text

Files

+ LICENSE view
@@ -0,0 +1,30 @@+Copyright (c) 2016, Ricky Elrod++All rights reserved.++Redistribution and use in source and binary forms, with or without+modification, are permitted provided that the following conditions are met:++    * Redistributions of source code must retain the above copyright+      notice, this list of conditions and the following disclaimer.++    * Redistributions in binary form must reproduce the above+      copyright notice, this list of conditions and the following+      disclaimer in the documentation and/or other materials provided+      with the distribution.++    * Neither the name of Ricky Elrod nor the names of other+      contributors may be used to endorse or promote products derived+      from this software without specific prior written permission.++THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS+"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT+LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR+A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT+OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,+SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT+LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,+DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY+THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT+(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE+OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+ Setup.hs view
@@ -0,0 +1,2 @@+import Distribution.Simple+main = defaultMain
+ pokemon-go-protobuf-types.cabal view
@@ -0,0 +1,244 @@+name:                pokemon-go-protobuf-types+version:             0.1.0.0+synopsis:            Haskell types for the Pokemon Go protobuf protocol.+homepage:            https://github.com/relrod/pokemon-go-protobuf-types+license:             BSD3+license-file:        LICENSE+author:              Ricky Elrod+maintainer:          ricky@elrod.me+copyright:           (c) 2016 Ricky Elrod+category:            Game+build-type:          Simple+cabal-version:       >= 1.10++library+  build-depends:       base >= 4 && < 5+                     , proto-lens >= 0.1 && < 1+                     , lens-family >= 1 && < 2+                     , data-default-class >= 0.0.1 && < 0.1+                     , text > 1 && < 2+                     , containers > 0.5 && < 1+                     , bytestring >= 0.10 && < 1+  hs-source-dirs:      src+  default-language:    Haskell2010+  exposed-modules:+    Proto.POGOProtos.Data.AssetDigestEntry,+    Proto.POGOProtos.Data.Battle.BattleAction,+    Proto.POGOProtos.Data.Battle.BattleActionType,+    Proto.POGOProtos.Data.Battle.BattleLog,+    Proto.POGOProtos.Data.Battle.BattleParticipant,+    Proto.POGOProtos.Data.Battle.BattlePokemonInfo,+    Proto.POGOProtos.Data.Battle.BattleResults,+    Proto.POGOProtos.Data.Battle.BattleState,+    Proto.POGOProtos.Data.Battle.BattleType,+    Proto.POGOProtos.Data.Capture.CaptureAward,+    Proto.POGOProtos.Data.Capture.CaptureProbability,+    Proto.POGOProtos.Data.DownloadUrlEntry,+    Proto.POGOProtos.Data.Gym.GymMembership,+    Proto.POGOProtos.Data.Gym.GymState,+    Proto.POGOProtos.Data.Logs.ActionLogEntry,+    Proto.POGOProtos.Data.Logs.CatchPokemonLogEntry,+    Proto.POGOProtos.Data.Logs.FortSearchLogEntry,+    Proto.POGOProtos.Data.PlayerBadge,+    Proto.POGOProtos.Data.Player.ContactSettings,+    Proto.POGOProtos.Data.Player.Currency,+    Proto.POGOProtos.Data.Player.DailyBonus,+    Proto.POGOProtos.Data.PlayerData,+    Proto.POGOProtos.Data.Player.EquippedBadge,+    Proto.POGOProtos.Data.Player.PlayerAvatar,+    Proto.POGOProtos.Data.Player.PlayerCamera,+    Proto.POGOProtos.Data.Player.PlayerCurrency,+    Proto.POGOProtos.Data.Player.PlayerPublicProfile,+    Proto.POGOProtos.Data.Player.PlayerStats,+    Proto.POGOProtos.Data.PokedexEntry,+    Proto.POGOProtos.Data.PokemonData,+    Proto.POGOProtos.Enums.ActivityType,+    Proto.POGOProtos.Enums.BadgeType,+    Proto.POGOProtos.Enums.CameraInterpolation,+    Proto.POGOProtos.Enums.CameraTarget,+    Proto.POGOProtos.Enums.Gender,+    Proto.POGOProtos.Enums.IapItemCategory,+    Proto.POGOProtos.Enums.ItemCategory,+    Proto.POGOProtos.Enums.ItemEffect,+    Proto.POGOProtos.Enums.Platform,+    Proto.POGOProtos.Enums.PokemonId,+    Proto.POGOProtos.Enums.PokemonMove,+    Proto.POGOProtos.Enums.PokemonMovementType,+    Proto.POGOProtos.Enums.PokemonRarity,+    Proto.POGOProtos.Enums.PokemonType,+    Proto.POGOProtos.Enums.TeamColor,+    Proto.POGOProtos.Enums.TutorialState,+    Proto.POGOProtos.Inventory.AppliedItem,+    Proto.POGOProtos.Inventory.AppliedItems,+    Proto.POGOProtos.Inventory.Candy,+    Proto.POGOProtos.Inventory.EggIncubator,+    Proto.POGOProtos.Inventory.EggIncubators,+    Proto.POGOProtos.Inventory.EggIncubatorType,+    Proto.POGOProtos.Inventory.InventoryDelta,+    Proto.POGOProtos.Inventory.InventoryItem,+    Proto.POGOProtos.Inventory.InventoryItemData,+    Proto.POGOProtos.Inventory.InventoryUpgrade,+    Proto.POGOProtos.Inventory.InventoryUpgrades,+    Proto.POGOProtos.Inventory.InventoryUpgradeType,+    Proto.POGOProtos.Inventory.Item.ItemAward,+    Proto.POGOProtos.Inventory.Item.ItemData,+    Proto.POGOProtos.Inventory.Item.ItemId,+    Proto.POGOProtos.Inventory.Item.ItemType,+    Proto.POGOProtos.Map.Fort.FortData,+    Proto.POGOProtos.Map.Fort.FortLureInfo,+    Proto.POGOProtos.Map.Fort.FortModifier,+    Proto.POGOProtos.Map.Fort.FortRenderingType,+    Proto.POGOProtos.Map.Fort.FortSponsor,+    Proto.POGOProtos.Map.Fort.FortSummary,+    Proto.POGOProtos.Map.Fort.FortType,+    Proto.POGOProtos.Map.MapCell,+    Proto.POGOProtos.Map.MapObjectsStatus,+    Proto.POGOProtos.Map.Pokemon.MapPokemon,+    Proto.POGOProtos.Map.Pokemon.NearbyPokemon,+    Proto.POGOProtos.Map.Pokemon.WildPokemon,+    Proto.POGOProtos.Map.SpawnPoint,+    Proto.POGOProtos.Networking.Envelopes.AuthTicket,+    Proto.POGOProtos.Networking.Envelopes.RequestEnvelope,+    Proto.POGOProtos.Networking.Envelopes.ResponseEnvelope,+    Proto.POGOProtos.Networking.Envelopes.Unknown6,+    Proto.POGOProtos.Networking.Envelopes.Unknown6Response,+    Proto.POGOProtos.Networking.Requests.Messages.AddFortModifierMessage,+    Proto.POGOProtos.Networking.Requests.Messages.AttackGymMessage,+    Proto.POGOProtos.Networking.Requests.Messages.CatchPokemonMessage,+    Proto.POGOProtos.Networking.Requests.Messages.CheckAwardedBadgesMessage,+    Proto.POGOProtos.Networking.Requests.Messages.CheckCodenameAvailableMessage,+    Proto.POGOProtos.Networking.Requests.Messages.ClaimCodenameMessage,+    Proto.POGOProtos.Networking.Requests.Messages.CollectDailyBonusMessage,+    Proto.POGOProtos.Networking.Requests.Messages.CollectDailyDefenderBonusMessage,+    Proto.POGOProtos.Networking.Requests.Messages.DiskEncounterMessage,+    Proto.POGOProtos.Networking.Requests.Messages.DownloadItemTemplatesMessage,+    Proto.POGOProtos.Networking.Requests.Messages.DownloadRemoteConfigVersionMessage,+    Proto.POGOProtos.Networking.Requests.Messages.DownloadSettingsMessage,+    Proto.POGOProtos.Networking.Requests.Messages.EchoMessage,+    Proto.POGOProtos.Networking.Requests.Messages.EncounterMessage,+    Proto.POGOProtos.Networking.Requests.Messages.EncounterTutorialCompleteMessage,+    Proto.POGOProtos.Networking.Requests.Messages.EquipBadgeMessage,+    Proto.POGOProtos.Networking.Requests.Messages.EvolvePokemonMessage,+    Proto.POGOProtos.Networking.Requests.Messages.FortDeployPokemonMessage,+    Proto.POGOProtos.Networking.Requests.Messages.FortDetailsMessage,+    Proto.POGOProtos.Networking.Requests.Messages.FortRecallPokemonMessage,+    Proto.POGOProtos.Networking.Requests.Messages.FortSearchMessage,+    Proto.POGOProtos.Networking.Requests.Messages.GetAssetDigestMessage,+    Proto.POGOProtos.Networking.Requests.Messages.GetDownloadUrlsMessage,+    Proto.POGOProtos.Networking.Requests.Messages.GetGymDetailsMessage,+    Proto.POGOProtos.Networking.Requests.Messages.GetHatchedEggsMessage,+    Proto.POGOProtos.Networking.Requests.Messages.GetIncensePokemonMessage,+    Proto.POGOProtos.Networking.Requests.Messages.GetInventoryMessage,+    Proto.POGOProtos.Networking.Requests.Messages.GetMapObjectsMessage,+    Proto.POGOProtos.Networking.Requests.Messages.GetPlayerMessage,+    Proto.POGOProtos.Networking.Requests.Messages.GetPlayerProfileMessage,+    Proto.POGOProtos.Networking.Requests.Messages.GetSuggestedCodenamesMessage,+    Proto.POGOProtos.Networking.Requests.Messages.IncenseEncounterMessage,+    Proto.POGOProtos.Networking.Requests.Messages.LevelUpRewardsMessage,+    Proto.POGOProtos.Networking.Requests.Messages.MarkTutorialCompleteMessage,+    Proto.POGOProtos.Networking.Requests.Messages.NicknamePokemonMessage,+    Proto.POGOProtos.Networking.Requests.Messages.PlayerUpdateMessage,+    Proto.POGOProtos.Networking.Requests.Messages.RecycleInventoryItemMessage,+    Proto.POGOProtos.Networking.Requests.Messages.ReleasePokemonMessage,+    Proto.POGOProtos.Networking.Requests.Messages.SetAvatarMessage,+    Proto.POGOProtos.Networking.Requests.Messages.SetContactSettingsMessage,+    Proto.POGOProtos.Networking.Requests.Messages.SetFavoritePokemonMessage,+    Proto.POGOProtos.Networking.Requests.Messages.SetPlayerTeamMessage,+    Proto.POGOProtos.Networking.Requests.Messages.SfidaActionLogMessage,+    Proto.POGOProtos.Networking.Requests.Messages.StartGymBattleMessage,+    Proto.POGOProtos.Networking.Requests.Messages.UpgradePokemonMessage,+    Proto.POGOProtos.Networking.Requests.Messages.UseIncenseMessage,+    Proto.POGOProtos.Networking.Requests.Messages.UseItemCaptureMessage,+    Proto.POGOProtos.Networking.Requests.Messages.UseItemEggIncubatorMessage,+    Proto.POGOProtos.Networking.Requests.Messages.UseItemGymMessage,+    Proto.POGOProtos.Networking.Requests.Messages.UseItemPotionMessage,+    Proto.POGOProtos.Networking.Requests.Messages.UseItemReviveMessage,+    Proto.POGOProtos.Networking.Requests.Messages.UseItemXpBoostMessage,+    Proto.POGOProtos.Networking.Requests.Request,+    Proto.POGOProtos.Networking.Requests.RequestType,+    Proto.POGOProtos.Networking.Responses.AddFortModifierResponse,+    Proto.POGOProtos.Networking.Responses.AttackGymResponse,+    Proto.POGOProtos.Networking.Responses.CatchPokemonResponse,+    Proto.POGOProtos.Networking.Responses.CheckAwardedBadgesResponse,+    Proto.POGOProtos.Networking.Responses.CheckCodenameAvailableResponse,+    Proto.POGOProtos.Networking.Responses.ClaimCodenameResponse,+    Proto.POGOProtos.Networking.Responses.CollectDailyBonusResponse,+    Proto.POGOProtos.Networking.Responses.CollectDailyDefenderBonusResponse,+    Proto.POGOProtos.Networking.Responses.DiskEncounterResponse,+    Proto.POGOProtos.Networking.Responses.DownloadItemTemplatesResponse,+    Proto.POGOProtos.Networking.Responses.DownloadRemoteConfigVersionResponse,+    Proto.POGOProtos.Networking.Responses.DownloadSettingsResponse,+    Proto.POGOProtos.Networking.Responses.EchoResponse,+    Proto.POGOProtos.Networking.Responses.EncounterResponse,+    Proto.POGOProtos.Networking.Responses.EncounterTutorialCompleteResponse,+    Proto.POGOProtos.Networking.Responses.EquipBadgeResponse,+    Proto.POGOProtos.Networking.Responses.EvolvePokemonResponse,+    Proto.POGOProtos.Networking.Responses.FortDeployPokemonResponse,+    Proto.POGOProtos.Networking.Responses.FortDetailsResponse,+    Proto.POGOProtos.Networking.Responses.FortRecallPokemonResponse,+    Proto.POGOProtos.Networking.Responses.FortSearchResponse,+    Proto.POGOProtos.Networking.Responses.GetAssetDigestResponse,+    Proto.POGOProtos.Networking.Responses.GetDownloadUrlsResponse,+    Proto.POGOProtos.Networking.Responses.GetGymDetailsResponse,+    Proto.POGOProtos.Networking.Responses.GetHatchedEggsResponse,+    Proto.POGOProtos.Networking.Responses.GetIncensePokemonResponse,+    Proto.POGOProtos.Networking.Responses.GetInventoryResponse,+    Proto.POGOProtos.Networking.Responses.GetMapObjectsResponse,+    Proto.POGOProtos.Networking.Responses.GetPlayerProfileResponse,+    Proto.POGOProtos.Networking.Responses.GetPlayerResponse,+    Proto.POGOProtos.Networking.Responses.GetSuggestedCodenamesResponse,+    Proto.POGOProtos.Networking.Responses.IncenseEncounterResponse,+    Proto.POGOProtos.Networking.Responses.LevelUpRewardsResponse,+    Proto.POGOProtos.Networking.Responses.MarkTutorialCompleteResponse,+    Proto.POGOProtos.Networking.Responses.NicknamePokemonResponse,+    Proto.POGOProtos.Networking.Responses.PlayerUpdateResponse,+    Proto.POGOProtos.Networking.Responses.RecycleInventoryItemResponse,+    Proto.POGOProtos.Networking.Responses.ReleasePokemonResponse,+    Proto.POGOProtos.Networking.Responses.SetAvatarResponse,+    Proto.POGOProtos.Networking.Responses.SetContactSettingsResponse,+    Proto.POGOProtos.Networking.Responses.SetFavoritePokemonResponse,+    Proto.POGOProtos.Networking.Responses.SetPlayerTeamResponse,+    Proto.POGOProtos.Networking.Responses.SfidaActionLogResponse,+    Proto.POGOProtos.Networking.Responses.StartGymBattleResponse,+    Proto.POGOProtos.Networking.Responses.UpgradePokemonResponse,+    Proto.POGOProtos.Networking.Responses.UseIncenseResponse,+    Proto.POGOProtos.Networking.Responses.UseItemCaptureResponse,+    Proto.POGOProtos.Networking.Responses.UseItemEggIncubatorResponse,+    Proto.POGOProtos.Networking.Responses.UseItemGymResponse,+    Proto.POGOProtos.Networking.Responses.UseItemPotionResponse,+    Proto.POGOProtos.Networking.Responses.UseItemReviveResponse,+    Proto.POGOProtos.Networking.Responses.UseItemXpBoostResponse,+    Proto.POGOProtos.Settings.DownloadSettingsAction,+    Proto.POGOProtos.Settings.FortSettings,+    Proto.POGOProtos.Settings.GlobalSettings,+    Proto.POGOProtos.Settings.InventorySettings,+    Proto.POGOProtos.Settings.LevelSettings,+    Proto.POGOProtos.Settings.MapSettings,+    Proto.POGOProtos.Settings.Master.BadgeSettings,+    Proto.POGOProtos.Settings.Master.CameraSettings,+    Proto.POGOProtos.Settings.Master.EncounterSettings,+    Proto.POGOProtos.Settings.Master.EquippedBadgeSettings,+    Proto.POGOProtos.Settings.Master.GymBattleSettings,+    Proto.POGOProtos.Settings.Master.GymLevelSettings,+    Proto.POGOProtos.Settings.Master.IapItemDisplay,+    Proto.POGOProtos.Settings.Master.IapSettings,+    Proto.POGOProtos.Settings.Master.Item.BattleAttributes,+    Proto.POGOProtos.Settings.Master.Item.EggIncubatorAttributes,+    Proto.POGOProtos.Settings.Master.Item.ExperienceBoostAttributes,+    Proto.POGOProtos.Settings.Master.Item.FoodAttributes,+    Proto.POGOProtos.Settings.Master.Item.FortModifierAttributes,+    Proto.POGOProtos.Settings.Master.Item.IncenseAttributes,+    Proto.POGOProtos.Settings.Master.Item.InventoryUpgradeAttributes,+    Proto.POGOProtos.Settings.Master.Item.PokeballAttributes,+    Proto.POGOProtos.Settings.Master.Item.PotionAttributes,+    Proto.POGOProtos.Settings.Master.Item.ReviveAttributes,+    Proto.POGOProtos.Settings.Master.ItemSettings,+    Proto.POGOProtos.Settings.Master.MoveSequenceSettings,+    Proto.POGOProtos.Settings.Master.MoveSettings,+    Proto.POGOProtos.Settings.Master.PlayerLevelSettings,+    Proto.POGOProtos.Settings.Master.Pokemon.CameraAttributes,+    Proto.POGOProtos.Settings.Master.Pokemon.EncounterAttributes,+    Proto.POGOProtos.Settings.Master.PokemonSettings,+    Proto.POGOProtos.Settings.Master.Pokemon.StatsAttributes,+    Proto.POGOProtos.Settings.Master.PokemonUpgradeSettings,+    Proto.POGOProtos.Settings.Master.TypeEffectiveSettings
+ src/Proto/POGOProtos/Data/AssetDigestEntry.hs view
@@ -0,0 +1,185 @@+{- This file was auto-generated from POGOProtos/Data/AssetDigestEntry.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Data.AssetDigestEntry 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 AssetDigestEntry = AssetDigestEntry{_AssetDigestEntry'assetId+                                         :: Data.Text.Text,+                                         _AssetDigestEntry'bundleName :: Data.Text.Text,+                                         _AssetDigestEntry'version :: Data.Int.Int64,+                                         _AssetDigestEntry'checksum :: Data.Word.Word32,+                                         _AssetDigestEntry'size :: Data.Int.Int32,+                                         _AssetDigestEntry'key :: Data.ByteString.ByteString}+                      deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "assetId" AssetDigestEntry =+     Data.Text.Text++instance Data.ProtoLens.HasField "assetId" AssetDigestEntry+         AssetDigestEntry where+        field _+          = Lens.Family2.Unchecked.lens _AssetDigestEntry'assetId+              (\ x__ y__ -> x__{_AssetDigestEntry'assetId = y__})++type instance Data.ProtoLens.Field "bundleName" AssetDigestEntry =+     Data.Text.Text++instance Data.ProtoLens.HasField "bundleName" AssetDigestEntry+         AssetDigestEntry where+        field _+          = Lens.Family2.Unchecked.lens _AssetDigestEntry'bundleName+              (\ x__ y__ -> x__{_AssetDigestEntry'bundleName = y__})++type instance Data.ProtoLens.Field "version" AssetDigestEntry =+     Data.Int.Int64++instance Data.ProtoLens.HasField "version" AssetDigestEntry+         AssetDigestEntry where+        field _+          = Lens.Family2.Unchecked.lens _AssetDigestEntry'version+              (\ x__ y__ -> x__{_AssetDigestEntry'version = y__})++type instance Data.ProtoLens.Field "checksum" AssetDigestEntry =+     Data.Word.Word32++instance Data.ProtoLens.HasField "checksum" AssetDigestEntry+         AssetDigestEntry where+        field _+          = Lens.Family2.Unchecked.lens _AssetDigestEntry'checksum+              (\ x__ y__ -> x__{_AssetDigestEntry'checksum = y__})++type instance Data.ProtoLens.Field "size" AssetDigestEntry =+     Data.Int.Int32++instance Data.ProtoLens.HasField "size" AssetDigestEntry+         AssetDigestEntry where+        field _+          = Lens.Family2.Unchecked.lens _AssetDigestEntry'size+              (\ x__ y__ -> x__{_AssetDigestEntry'size = y__})++type instance Data.ProtoLens.Field "key" AssetDigestEntry =+     Data.ByteString.ByteString++instance Data.ProtoLens.HasField "key" AssetDigestEntry+         AssetDigestEntry where+        field _+          = Lens.Family2.Unchecked.lens _AssetDigestEntry'key+              (\ x__ y__ -> x__{_AssetDigestEntry'key = y__})++instance Data.Default.Class.Default AssetDigestEntry where+        def+          = AssetDigestEntry{_AssetDigestEntry'assetId =+                               Data.ProtoLens.fieldDefault,+                             _AssetDigestEntry'bundleName = Data.ProtoLens.fieldDefault,+                             _AssetDigestEntry'version = Data.ProtoLens.fieldDefault,+                             _AssetDigestEntry'checksum = Data.ProtoLens.fieldDefault,+                             _AssetDigestEntry'size = Data.ProtoLens.fieldDefault,+                             _AssetDigestEntry'key = Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message AssetDigestEntry where+        descriptor+          = let assetId__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "asset_id"+                      (Data.ProtoLens.StringField ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional assetId)+                bundleName__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "bundle_name"+                      (Data.ProtoLens.StringField ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional bundleName)+                version__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "version"+                      (Data.ProtoLens.Int64Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional version)+                checksum__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "checksum"+                      (Data.ProtoLens.Fixed32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional checksum)+                size__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "size"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional size)+                key__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "key"+                      (Data.ProtoLens.BytesField ::+                         Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional key)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, assetId__field_descriptor),+                    (Data.ProtoLens.Tag 2, bundleName__field_descriptor),+                    (Data.ProtoLens.Tag 3, version__field_descriptor),+                    (Data.ProtoLens.Tag 4, checksum__field_descriptor),+                    (Data.ProtoLens.Tag 5, size__field_descriptor),+                    (Data.ProtoLens.Tag 6, key__field_descriptor)])+                (Data.Map.fromList+                   [("asset_id", assetId__field_descriptor),+                    ("bundle_name", bundleName__field_descriptor),+                    ("version", version__field_descriptor),+                    ("checksum", checksum__field_descriptor),+                    ("size", size__field_descriptor), ("key", key__field_descriptor)])++assetId ::+        forall msg msg' . Data.ProtoLens.HasField "assetId" msg msg' =>+          Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "assetId" msg)+            (Data.ProtoLens.Field "assetId" msg')+assetId+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "assetId")++bundleName ::+           forall msg msg' . Data.ProtoLens.HasField "bundleName" msg msg' =>+             Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "bundleName" msg)+               (Data.ProtoLens.Field "bundleName" msg')+bundleName+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "bundleName")++checksum ::+         forall msg msg' . Data.ProtoLens.HasField "checksum" msg msg' =>+           Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "checksum" msg)+             (Data.ProtoLens.Field "checksum" msg')+checksum+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "checksum")++key ::+    forall msg msg' . Data.ProtoLens.HasField "key" msg msg' =>+      Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "key" msg)+        (Data.ProtoLens.Field "key" msg')+key+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "key")++size ::+     forall msg msg' . Data.ProtoLens.HasField "size" msg msg' =>+       Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "size" msg)+         (Data.ProtoLens.Field "size" msg')+size+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "size")++version ::+        forall msg msg' . Data.ProtoLens.HasField "version" msg msg' =>+          Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "version" msg)+            (Data.ProtoLens.Field "version" msg')+version+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "version")
+ src/Proto/POGOProtos/Data/Battle/BattleAction.hs view
@@ -0,0 +1,485 @@+{- This file was auto-generated from POGOProtos/Data/Battle/BattleAction.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Data.Battle.BattleAction 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.Battle.BattleActionType+import qualified Proto.POGOProtos.Data.Battle.BattleParticipant+import qualified Proto.POGOProtos.Data.Battle.BattleResults++data BattleAction = BattleAction{_BattleAction'type' ::+                                 Proto.POGOProtos.Data.Battle.BattleActionType.BattleActionType,+                                 _BattleAction'actionStartMs :: Data.Int.Int64,+                                 _BattleAction'durationMs :: Data.Int.Int32,+                                 _BattleAction'energyDelta :: Data.Int.Int32,+                                 _BattleAction'attackerIndex :: Data.Int.Int32,+                                 _BattleAction'targetIndex :: Data.Int.Int32,+                                 _BattleAction'activePokemonId :: Data.Word.Word64,+                                 _BattleAction'playerJoined ::+                                 Prelude.Maybe+                                   Proto.POGOProtos.Data.Battle.BattleParticipant.BattleParticipant,+                                 _BattleAction'battleResults ::+                                 Prelude.Maybe+                                   Proto.POGOProtos.Data.Battle.BattleResults.BattleResults,+                                 _BattleAction'damageWindowsStartTimestampMss :: Data.Int.Int64,+                                 _BattleAction'damageWindowsEndTimestampMss :: Data.Int.Int64,+                                 _BattleAction'playerLeft ::+                                 Prelude.Maybe+                                   Proto.POGOProtos.Data.Battle.BattleParticipant.BattleParticipant,+                                 _BattleAction'targetPokemonId :: Data.Word.Word64}+                  deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "type'" BattleAction =+     Proto.POGOProtos.Data.Battle.BattleActionType.BattleActionType++instance Data.ProtoLens.HasField "type'" BattleAction BattleAction+         where+        field _+          = Lens.Family2.Unchecked.lens _BattleAction'type'+              (\ x__ y__ -> x__{_BattleAction'type' = y__})++type instance Data.ProtoLens.Field "actionStartMs" BattleAction =+     Data.Int.Int64++instance Data.ProtoLens.HasField "actionStartMs" BattleAction+         BattleAction where+        field _+          = Lens.Family2.Unchecked.lens _BattleAction'actionStartMs+              (\ x__ y__ -> x__{_BattleAction'actionStartMs = y__})++type instance Data.ProtoLens.Field "durationMs" BattleAction =+     Data.Int.Int32++instance Data.ProtoLens.HasField "durationMs" BattleAction+         BattleAction where+        field _+          = Lens.Family2.Unchecked.lens _BattleAction'durationMs+              (\ x__ y__ -> x__{_BattleAction'durationMs = y__})++type instance Data.ProtoLens.Field "energyDelta" BattleAction =+     Data.Int.Int32++instance Data.ProtoLens.HasField "energyDelta" BattleAction+         BattleAction where+        field _+          = Lens.Family2.Unchecked.lens _BattleAction'energyDelta+              (\ x__ y__ -> x__{_BattleAction'energyDelta = y__})++type instance Data.ProtoLens.Field "attackerIndex" BattleAction =+     Data.Int.Int32++instance Data.ProtoLens.HasField "attackerIndex" BattleAction+         BattleAction where+        field _+          = Lens.Family2.Unchecked.lens _BattleAction'attackerIndex+              (\ x__ y__ -> x__{_BattleAction'attackerIndex = y__})++type instance Data.ProtoLens.Field "targetIndex" BattleAction =+     Data.Int.Int32++instance Data.ProtoLens.HasField "targetIndex" BattleAction+         BattleAction where+        field _+          = Lens.Family2.Unchecked.lens _BattleAction'targetIndex+              (\ x__ y__ -> x__{_BattleAction'targetIndex = y__})++type instance Data.ProtoLens.Field "activePokemonId" BattleAction =+     Data.Word.Word64++instance Data.ProtoLens.HasField "activePokemonId" BattleAction+         BattleAction where+        field _+          = Lens.Family2.Unchecked.lens _BattleAction'activePokemonId+              (\ x__ y__ -> x__{_BattleAction'activePokemonId = y__})++type instance Data.ProtoLens.Field "playerJoined" BattleAction =+     Proto.POGOProtos.Data.Battle.BattleParticipant.BattleParticipant++instance Data.ProtoLens.HasField "playerJoined" BattleAction+         BattleAction where+        field _+          = (Prelude..) maybe'playerJoined+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance+     Data.ProtoLens.Field "maybe'playerJoined" BattleAction =+     Prelude.Maybe+       Proto.POGOProtos.Data.Battle.BattleParticipant.BattleParticipant++instance Data.ProtoLens.HasField "maybe'playerJoined" BattleAction+         BattleAction where+        field _+          = Lens.Family2.Unchecked.lens _BattleAction'playerJoined+              (\ x__ y__ -> x__{_BattleAction'playerJoined = y__})++type instance Data.ProtoLens.Field "battleResults" BattleAction =+     Proto.POGOProtos.Data.Battle.BattleResults.BattleResults++instance Data.ProtoLens.HasField "battleResults" BattleAction+         BattleAction where+        field _+          = (Prelude..) maybe'battleResults+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance+     Data.ProtoLens.Field "maybe'battleResults" BattleAction =+     Prelude.Maybe+       Proto.POGOProtos.Data.Battle.BattleResults.BattleResults++instance Data.ProtoLens.HasField "maybe'battleResults" BattleAction+         BattleAction where+        field _+          = Lens.Family2.Unchecked.lens _BattleAction'battleResults+              (\ x__ y__ -> x__{_BattleAction'battleResults = y__})++type instance+     Data.ProtoLens.Field "damageWindowsStartTimestampMss" BattleAction+     = Data.Int.Int64++instance Data.ProtoLens.HasField "damageWindowsStartTimestampMss"+         BattleAction BattleAction where+        field _+          = Lens.Family2.Unchecked.lens+              _BattleAction'damageWindowsStartTimestampMss+              (\ x__ y__ ->+                 x__{_BattleAction'damageWindowsStartTimestampMss = y__})++type instance+     Data.ProtoLens.Field "damageWindowsEndTimestampMss" BattleAction =+     Data.Int.Int64++instance Data.ProtoLens.HasField "damageWindowsEndTimestampMss"+         BattleAction BattleAction where+        field _+          = Lens.Family2.Unchecked.lens+              _BattleAction'damageWindowsEndTimestampMss+              (\ x__ y__ ->+                 x__{_BattleAction'damageWindowsEndTimestampMss = y__})++type instance Data.ProtoLens.Field "playerLeft" BattleAction =+     Proto.POGOProtos.Data.Battle.BattleParticipant.BattleParticipant++instance Data.ProtoLens.HasField "playerLeft" BattleAction+         BattleAction where+        field _+          = (Prelude..) maybe'playerLeft+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance Data.ProtoLens.Field "maybe'playerLeft" BattleAction+     =+     Prelude.Maybe+       Proto.POGOProtos.Data.Battle.BattleParticipant.BattleParticipant++instance Data.ProtoLens.HasField "maybe'playerLeft" BattleAction+         BattleAction where+        field _+          = Lens.Family2.Unchecked.lens _BattleAction'playerLeft+              (\ x__ y__ -> x__{_BattleAction'playerLeft = y__})++type instance Data.ProtoLens.Field "targetPokemonId" BattleAction =+     Data.Word.Word64++instance Data.ProtoLens.HasField "targetPokemonId" BattleAction+         BattleAction where+        field _+          = Lens.Family2.Unchecked.lens _BattleAction'targetPokemonId+              (\ x__ y__ -> x__{_BattleAction'targetPokemonId = y__})++instance Data.Default.Class.Default BattleAction where+        def+          = BattleAction{_BattleAction'type' = Data.Default.Class.def,+                         _BattleAction'actionStartMs = Data.ProtoLens.fieldDefault,+                         _BattleAction'durationMs = Data.ProtoLens.fieldDefault,+                         _BattleAction'energyDelta = Data.ProtoLens.fieldDefault,+                         _BattleAction'attackerIndex = Data.ProtoLens.fieldDefault,+                         _BattleAction'targetIndex = Data.ProtoLens.fieldDefault,+                         _BattleAction'activePokemonId = Data.ProtoLens.fieldDefault,+                         _BattleAction'playerJoined = Prelude.Nothing,+                         _BattleAction'battleResults = Prelude.Nothing,+                         _BattleAction'damageWindowsStartTimestampMss =+                           Data.ProtoLens.fieldDefault,+                         _BattleAction'damageWindowsEndTimestampMss =+                           Data.ProtoLens.fieldDefault,+                         _BattleAction'playerLeft = Prelude.Nothing,+                         _BattleAction'targetPokemonId = Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message BattleAction where+        descriptor+          = let type'__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "Type"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Data.Battle.BattleActionType.BattleActionType)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional type')+                actionStartMs__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "action_start_ms"+                      (Data.ProtoLens.Int64Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional actionStartMs)+                durationMs__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "duration_ms"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional durationMs)+                energyDelta__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "energy_delta"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional energyDelta)+                attackerIndex__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "attacker_index"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional attackerIndex)+                targetIndex__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "target_index"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional targetIndex)+                activePokemonId__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "active_pokemon_id"+                      (Data.ProtoLens.UInt64Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional activePokemonId)+                playerJoined__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "player_joined"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Data.Battle.BattleParticipant.BattleParticipant)+                      (Data.ProtoLens.OptionalField maybe'playerJoined)+                battleResults__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "battle_results"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Data.Battle.BattleResults.BattleResults)+                      (Data.ProtoLens.OptionalField maybe'battleResults)+                damageWindowsStartTimestampMss__field_descriptor+                  = Data.ProtoLens.FieldDescriptor+                      "damage_windows_start_timestamp_mss"+                      (Data.ProtoLens.Int64Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         damageWindowsStartTimestampMss)+                damageWindowsEndTimestampMss__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "damage_windows_end_timestamp_mss"+                      (Data.ProtoLens.Int64Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         damageWindowsEndTimestampMss)+                playerLeft__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "player_left"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Data.Battle.BattleParticipant.BattleParticipant)+                      (Data.ProtoLens.OptionalField maybe'playerLeft)+                targetPokemonId__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "target_pokemon_id"+                      (Data.ProtoLens.UInt64Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional targetPokemonId)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, type'__field_descriptor),+                    (Data.ProtoLens.Tag 2, actionStartMs__field_descriptor),+                    (Data.ProtoLens.Tag 3, durationMs__field_descriptor),+                    (Data.ProtoLens.Tag 5, energyDelta__field_descriptor),+                    (Data.ProtoLens.Tag 6, attackerIndex__field_descriptor),+                    (Data.ProtoLens.Tag 7, targetIndex__field_descriptor),+                    (Data.ProtoLens.Tag 8, activePokemonId__field_descriptor),+                    (Data.ProtoLens.Tag 9, playerJoined__field_descriptor),+                    (Data.ProtoLens.Tag 10, battleResults__field_descriptor),+                    (Data.ProtoLens.Tag 11,+                     damageWindowsStartTimestampMss__field_descriptor),+                    (Data.ProtoLens.Tag 12,+                     damageWindowsEndTimestampMss__field_descriptor),+                    (Data.ProtoLens.Tag 13, playerLeft__field_descriptor),+                    (Data.ProtoLens.Tag 14, targetPokemonId__field_descriptor)])+                (Data.Map.fromList+                   [("Type", type'__field_descriptor),+                    ("action_start_ms", actionStartMs__field_descriptor),+                    ("duration_ms", durationMs__field_descriptor),+                    ("energy_delta", energyDelta__field_descriptor),+                    ("attacker_index", attackerIndex__field_descriptor),+                    ("target_index", targetIndex__field_descriptor),+                    ("active_pokemon_id", activePokemonId__field_descriptor),+                    ("player_joined", playerJoined__field_descriptor),+                    ("battle_results", battleResults__field_descriptor),+                    ("damage_windows_start_timestamp_mss",+                     damageWindowsStartTimestampMss__field_descriptor),+                    ("damage_windows_end_timestamp_mss",+                     damageWindowsEndTimestampMss__field_descriptor),+                    ("player_left", playerLeft__field_descriptor),+                    ("target_pokemon_id", targetPokemonId__field_descriptor)])++actionStartMs ::+              forall msg msg' .+                Data.ProtoLens.HasField "actionStartMs" msg msg' =>+                Lens.Family2.Lens msg msg'+                  (Data.ProtoLens.Field "actionStartMs" msg)+                  (Data.ProtoLens.Field "actionStartMs" msg')+actionStartMs+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "actionStartMs")++activePokemonId ::+                forall msg msg' .+                  Data.ProtoLens.HasField "activePokemonId" msg msg' =>+                  Lens.Family2.Lens msg msg'+                    (Data.ProtoLens.Field "activePokemonId" msg)+                    (Data.ProtoLens.Field "activePokemonId" msg')+activePokemonId+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "activePokemonId")++attackerIndex ::+              forall msg msg' .+                Data.ProtoLens.HasField "attackerIndex" msg msg' =>+                Lens.Family2.Lens msg msg'+                  (Data.ProtoLens.Field "attackerIndex" msg)+                  (Data.ProtoLens.Field "attackerIndex" msg')+attackerIndex+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "attackerIndex")++battleResults ::+              forall msg msg' .+                Data.ProtoLens.HasField "battleResults" msg msg' =>+                Lens.Family2.Lens msg msg'+                  (Data.ProtoLens.Field "battleResults" msg)+                  (Data.ProtoLens.Field "battleResults" msg')+battleResults+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "battleResults")++damageWindowsEndTimestampMss ::+                             forall msg msg' .+                               Data.ProtoLens.HasField "damageWindowsEndTimestampMss" msg msg' =>+                               Lens.Family2.Lens msg msg'+                                 (Data.ProtoLens.Field "damageWindowsEndTimestampMss" msg)+                                 (Data.ProtoLens.Field "damageWindowsEndTimestampMss" msg')+damageWindowsEndTimestampMss+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "damageWindowsEndTimestampMss")++damageWindowsStartTimestampMss ::+                               forall msg msg' .+                                 Data.ProtoLens.HasField "damageWindowsStartTimestampMss" msg+                                   msg' =>+                                 Lens.Family2.Lens msg msg'+                                   (Data.ProtoLens.Field "damageWindowsStartTimestampMss" msg)+                                   (Data.ProtoLens.Field "damageWindowsStartTimestampMss" msg')+damageWindowsStartTimestampMss+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "damageWindowsStartTimestampMss")++durationMs ::+           forall msg msg' . Data.ProtoLens.HasField "durationMs" msg msg' =>+             Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "durationMs" msg)+               (Data.ProtoLens.Field "durationMs" msg')+durationMs+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "durationMs")++energyDelta ::+            forall msg msg' . Data.ProtoLens.HasField "energyDelta" msg msg' =>+              Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "energyDelta" msg)+                (Data.ProtoLens.Field "energyDelta" msg')+energyDelta+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "energyDelta")++maybe'battleResults ::+                    forall msg msg' .+                      Data.ProtoLens.HasField "maybe'battleResults" msg msg' =>+                      Lens.Family2.Lens msg msg'+                        (Data.ProtoLens.Field "maybe'battleResults" msg)+                        (Data.ProtoLens.Field "maybe'battleResults" msg')+maybe'battleResults+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "maybe'battleResults")++maybe'playerJoined ::+                   forall msg msg' .+                     Data.ProtoLens.HasField "maybe'playerJoined" msg msg' =>+                     Lens.Family2.Lens msg msg'+                       (Data.ProtoLens.Field "maybe'playerJoined" msg)+                       (Data.ProtoLens.Field "maybe'playerJoined" msg')+maybe'playerJoined+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "maybe'playerJoined")++maybe'playerLeft ::+                 forall msg msg' .+                   Data.ProtoLens.HasField "maybe'playerLeft" msg msg' =>+                   Lens.Family2.Lens msg msg'+                     (Data.ProtoLens.Field "maybe'playerLeft" msg)+                     (Data.ProtoLens.Field "maybe'playerLeft" msg')+maybe'playerLeft+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "maybe'playerLeft")++playerJoined ::+             forall msg msg' .+               Data.ProtoLens.HasField "playerJoined" msg msg' =>+               Lens.Family2.Lens msg msg'+                 (Data.ProtoLens.Field "playerJoined" msg)+                 (Data.ProtoLens.Field "playerJoined" msg')+playerJoined+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "playerJoined")++playerLeft ::+           forall msg msg' . Data.ProtoLens.HasField "playerLeft" msg msg' =>+             Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "playerLeft" msg)+               (Data.ProtoLens.Field "playerLeft" msg')+playerLeft+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "playerLeft")++targetIndex ::+            forall msg msg' . Data.ProtoLens.HasField "targetIndex" msg msg' =>+              Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "targetIndex" msg)+                (Data.ProtoLens.Field "targetIndex" msg')+targetIndex+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "targetIndex")++targetPokemonId ::+                forall msg msg' .+                  Data.ProtoLens.HasField "targetPokemonId" msg msg' =>+                  Lens.Family2.Lens msg msg'+                    (Data.ProtoLens.Field "targetPokemonId" msg)+                    (Data.ProtoLens.Field "targetPokemonId" msg')+targetPokemonId+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "targetPokemonId")++type' ::+      forall msg msg' . Data.ProtoLens.HasField "type'" msg msg' =>+        Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "type'" msg)+          (Data.ProtoLens.Field "type'" msg')+type'+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "type'")
+ src/Proto/POGOProtos/Data/Battle/BattleActionType.hs view
@@ -0,0 +1,127 @@+{- This file was auto-generated from POGOProtos/Data/Battle/BattleActionType.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Data.Battle.BattleActionType 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 BattleActionType = ACTION_UNSET+                      | ACTION_ATTACK+                      | ACTION_DODGE+                      | ACTION_SPECIAL_ATTACK+                      | ACTION_SWAP_POKEMON+                      | ACTION_FAINT+                      | ACTION_PLAYER_JOIN+                      | ACTION_PLAYER_QUIT+                      | ACTION_VICTORY+                      | ACTION_DEFEAT+                      | ACTION_TIMED_OUT+                      deriving (Prelude.Show, Prelude.Eq)++instance Data.Default.Class.Default BattleActionType where+        def = ACTION_UNSET++instance Data.ProtoLens.FieldDefault BattleActionType where+        fieldDefault = ACTION_UNSET++instance Data.ProtoLens.MessageEnum BattleActionType where+        maybeToEnum 0 = Prelude.Just ACTION_UNSET+        maybeToEnum 1 = Prelude.Just ACTION_ATTACK+        maybeToEnum 2 = Prelude.Just ACTION_DODGE+        maybeToEnum 3 = Prelude.Just ACTION_SPECIAL_ATTACK+        maybeToEnum 4 = Prelude.Just ACTION_SWAP_POKEMON+        maybeToEnum 5 = Prelude.Just ACTION_FAINT+        maybeToEnum 6 = Prelude.Just ACTION_PLAYER_JOIN+        maybeToEnum 7 = Prelude.Just ACTION_PLAYER_QUIT+        maybeToEnum 8 = Prelude.Just ACTION_VICTORY+        maybeToEnum 9 = Prelude.Just ACTION_DEFEAT+        maybeToEnum 10 = Prelude.Just ACTION_TIMED_OUT+        maybeToEnum _ = Prelude.Nothing+        showEnum ACTION_UNSET = "ACTION_UNSET"+        showEnum ACTION_ATTACK = "ACTION_ATTACK"+        showEnum ACTION_DODGE = "ACTION_DODGE"+        showEnum ACTION_SPECIAL_ATTACK = "ACTION_SPECIAL_ATTACK"+        showEnum ACTION_SWAP_POKEMON = "ACTION_SWAP_POKEMON"+        showEnum ACTION_FAINT = "ACTION_FAINT"+        showEnum ACTION_PLAYER_JOIN = "ACTION_PLAYER_JOIN"+        showEnum ACTION_PLAYER_QUIT = "ACTION_PLAYER_QUIT"+        showEnum ACTION_VICTORY = "ACTION_VICTORY"+        showEnum ACTION_DEFEAT = "ACTION_DEFEAT"+        showEnum ACTION_TIMED_OUT = "ACTION_TIMED_OUT"+        readEnum "ACTION_UNSET" = Prelude.Just ACTION_UNSET+        readEnum "ACTION_ATTACK" = Prelude.Just ACTION_ATTACK+        readEnum "ACTION_DODGE" = Prelude.Just ACTION_DODGE+        readEnum "ACTION_SPECIAL_ATTACK"+          = Prelude.Just ACTION_SPECIAL_ATTACK+        readEnum "ACTION_SWAP_POKEMON" = Prelude.Just ACTION_SWAP_POKEMON+        readEnum "ACTION_FAINT" = Prelude.Just ACTION_FAINT+        readEnum "ACTION_PLAYER_JOIN" = Prelude.Just ACTION_PLAYER_JOIN+        readEnum "ACTION_PLAYER_QUIT" = Prelude.Just ACTION_PLAYER_QUIT+        readEnum "ACTION_VICTORY" = Prelude.Just ACTION_VICTORY+        readEnum "ACTION_DEFEAT" = Prelude.Just ACTION_DEFEAT+        readEnum "ACTION_TIMED_OUT" = Prelude.Just ACTION_TIMED_OUT+        readEnum _ = Prelude.Nothing++instance Prelude.Enum BattleActionType where+        toEnum k__+          = Prelude.maybe+              (Prelude.error+                 ((Prelude.++) "toEnum: unknown value for enum BattleActionType: "+                    (Prelude.show k__)))+              Prelude.id+              (Data.ProtoLens.maybeToEnum k__)+        fromEnum ACTION_UNSET = 0+        fromEnum ACTION_ATTACK = 1+        fromEnum ACTION_DODGE = 2+        fromEnum ACTION_SPECIAL_ATTACK = 3+        fromEnum ACTION_SWAP_POKEMON = 4+        fromEnum ACTION_FAINT = 5+        fromEnum ACTION_PLAYER_JOIN = 6+        fromEnum ACTION_PLAYER_QUIT = 7+        fromEnum ACTION_VICTORY = 8+        fromEnum ACTION_DEFEAT = 9+        fromEnum ACTION_TIMED_OUT = 10+        succ ACTION_TIMED_OUT+          = Prelude.error+              "Ident \"BattleActionType\".Ident \"succ\": bad argument Ident \"ACTION_TIMED_OUT\". This value would be out of bounds."+        succ ACTION_UNSET = ACTION_ATTACK+        succ ACTION_ATTACK = ACTION_DODGE+        succ ACTION_DODGE = ACTION_SPECIAL_ATTACK+        succ ACTION_SPECIAL_ATTACK = ACTION_SWAP_POKEMON+        succ ACTION_SWAP_POKEMON = ACTION_FAINT+        succ ACTION_FAINT = ACTION_PLAYER_JOIN+        succ ACTION_PLAYER_JOIN = ACTION_PLAYER_QUIT+        succ ACTION_PLAYER_QUIT = ACTION_VICTORY+        succ ACTION_VICTORY = ACTION_DEFEAT+        succ ACTION_DEFEAT = ACTION_TIMED_OUT+        pred ACTION_UNSET+          = Prelude.error+              "Ident \"BattleActionType\".Ident \"pred\": bad argument Ident \"ACTION_UNSET\". This value would be out of bounds."+        pred ACTION_ATTACK = ACTION_UNSET+        pred ACTION_DODGE = ACTION_ATTACK+        pred ACTION_SPECIAL_ATTACK = ACTION_DODGE+        pred ACTION_SWAP_POKEMON = ACTION_SPECIAL_ATTACK+        pred ACTION_FAINT = ACTION_SWAP_POKEMON+        pred ACTION_PLAYER_JOIN = ACTION_FAINT+        pred ACTION_PLAYER_QUIT = ACTION_PLAYER_JOIN+        pred ACTION_VICTORY = ACTION_PLAYER_QUIT+        pred ACTION_DEFEAT = ACTION_VICTORY+        pred ACTION_TIMED_OUT = ACTION_DEFEAT+        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 BattleActionType where+        minBound = ACTION_UNSET+        maxBound = ACTION_TIMED_OUT
+ src/Proto/POGOProtos/Data/Battle/BattleLog.hs view
@@ -0,0 +1,207 @@+{- This file was auto-generated from POGOProtos/Data/Battle/BattleLog.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Data.Battle.BattleLog 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.Battle.BattleAction+import qualified Proto.POGOProtos.Data.Battle.BattleState+import qualified Proto.POGOProtos.Data.Battle.BattleType++data BattleLog = BattleLog{_BattleLog'state ::+                           Proto.POGOProtos.Data.Battle.BattleState.BattleState,+                           _BattleLog'battleType ::+                           Proto.POGOProtos.Data.Battle.BattleType.BattleType,+                           _BattleLog'serverMs :: Data.Int.Int64,+                           _BattleLog'battleActions ::+                           [Proto.POGOProtos.Data.Battle.BattleAction.BattleAction],+                           _BattleLog'battleStartTimestampMs :: Data.Int.Int64,+                           _BattleLog'battleEndTimestampMs :: Data.Int.Int64}+               deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "state" BattleLog =+     Proto.POGOProtos.Data.Battle.BattleState.BattleState++instance Data.ProtoLens.HasField "state" BattleLog BattleLog where+        field _+          = Lens.Family2.Unchecked.lens _BattleLog'state+              (\ x__ y__ -> x__{_BattleLog'state = y__})++type instance Data.ProtoLens.Field "battleType" BattleLog =+     Proto.POGOProtos.Data.Battle.BattleType.BattleType++instance Data.ProtoLens.HasField "battleType" BattleLog BattleLog+         where+        field _+          = Lens.Family2.Unchecked.lens _BattleLog'battleType+              (\ x__ y__ -> x__{_BattleLog'battleType = y__})++type instance Data.ProtoLens.Field "serverMs" BattleLog =+     Data.Int.Int64++instance Data.ProtoLens.HasField "serverMs" BattleLog BattleLog+         where+        field _+          = Lens.Family2.Unchecked.lens _BattleLog'serverMs+              (\ x__ y__ -> x__{_BattleLog'serverMs = y__})++type instance Data.ProtoLens.Field "battleActions" BattleLog =+     [Proto.POGOProtos.Data.Battle.BattleAction.BattleAction]++instance Data.ProtoLens.HasField "battleActions" BattleLog+         BattleLog where+        field _+          = Lens.Family2.Unchecked.lens _BattleLog'battleActions+              (\ x__ y__ -> x__{_BattleLog'battleActions = y__})++type instance+     Data.ProtoLens.Field "battleStartTimestampMs" BattleLog =+     Data.Int.Int64++instance Data.ProtoLens.HasField "battleStartTimestampMs" BattleLog+         BattleLog where+        field _+          = Lens.Family2.Unchecked.lens _BattleLog'battleStartTimestampMs+              (\ x__ y__ -> x__{_BattleLog'battleStartTimestampMs = y__})++type instance Data.ProtoLens.Field "battleEndTimestampMs" BattleLog+     = Data.Int.Int64++instance Data.ProtoLens.HasField "battleEndTimestampMs" BattleLog+         BattleLog where+        field _+          = Lens.Family2.Unchecked.lens _BattleLog'battleEndTimestampMs+              (\ x__ y__ -> x__{_BattleLog'battleEndTimestampMs = y__})++instance Data.Default.Class.Default BattleLog where+        def+          = BattleLog{_BattleLog'state = Data.Default.Class.def,+                      _BattleLog'battleType = Data.Default.Class.def,+                      _BattleLog'serverMs = Data.ProtoLens.fieldDefault,+                      _BattleLog'battleActions = [],+                      _BattleLog'battleStartTimestampMs = Data.ProtoLens.fieldDefault,+                      _BattleLog'battleEndTimestampMs = Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message BattleLog where+        descriptor+          = let state__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "state"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Data.Battle.BattleState.BattleState)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional state)+                battleType__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "battle_type"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Data.Battle.BattleType.BattleType)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional battleType)+                serverMs__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "server_ms"+                      (Data.ProtoLens.Int64Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional serverMs)+                battleActions__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "battle_actions"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Data.Battle.BattleAction.BattleAction)+                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked+                         battleActions)+                battleStartTimestampMs__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "battle_start_timestamp_ms"+                      (Data.ProtoLens.Int64Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         battleStartTimestampMs)+                battleEndTimestampMs__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "battle_end_timestamp_ms"+                      (Data.ProtoLens.Int64Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         battleEndTimestampMs)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, state__field_descriptor),+                    (Data.ProtoLens.Tag 2, battleType__field_descriptor),+                    (Data.ProtoLens.Tag 3, serverMs__field_descriptor),+                    (Data.ProtoLens.Tag 4, battleActions__field_descriptor),+                    (Data.ProtoLens.Tag 5, battleStartTimestampMs__field_descriptor),+                    (Data.ProtoLens.Tag 6, battleEndTimestampMs__field_descriptor)])+                (Data.Map.fromList+                   [("state", state__field_descriptor),+                    ("battle_type", battleType__field_descriptor),+                    ("server_ms", serverMs__field_descriptor),+                    ("battle_actions", battleActions__field_descriptor),+                    ("battle_start_timestamp_ms",+                     battleStartTimestampMs__field_descriptor),+                    ("battle_end_timestamp_ms",+                     battleEndTimestampMs__field_descriptor)])++battleActions ::+              forall msg msg' .+                Data.ProtoLens.HasField "battleActions" msg msg' =>+                Lens.Family2.Lens msg msg'+                  (Data.ProtoLens.Field "battleActions" msg)+                  (Data.ProtoLens.Field "battleActions" msg')+battleActions+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "battleActions")++battleEndTimestampMs ::+                     forall msg msg' .+                       Data.ProtoLens.HasField "battleEndTimestampMs" msg msg' =>+                       Lens.Family2.Lens msg msg'+                         (Data.ProtoLens.Field "battleEndTimestampMs" msg)+                         (Data.ProtoLens.Field "battleEndTimestampMs" msg')+battleEndTimestampMs+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "battleEndTimestampMs")++battleStartTimestampMs ::+                       forall msg msg' .+                         Data.ProtoLens.HasField "battleStartTimestampMs" msg msg' =>+                         Lens.Family2.Lens msg msg'+                           (Data.ProtoLens.Field "battleStartTimestampMs" msg)+                           (Data.ProtoLens.Field "battleStartTimestampMs" msg')+battleStartTimestampMs+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "battleStartTimestampMs")++battleType ::+           forall msg msg' . Data.ProtoLens.HasField "battleType" msg msg' =>+             Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "battleType" msg)+               (Data.ProtoLens.Field "battleType" msg')+battleType+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "battleType")++serverMs ::+         forall msg msg' . Data.ProtoLens.HasField "serverMs" msg msg' =>+           Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "serverMs" msg)+             (Data.ProtoLens.Field "serverMs" msg')+serverMs+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "serverMs")++state ::+      forall msg msg' . Data.ProtoLens.HasField "state" msg msg' =>+        Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "state" msg)+          (Data.ProtoLens.Field "state" msg')+state+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "state")
+ src/Proto/POGOProtos/Data/Battle/BattleParticipant.hs view
@@ -0,0 +1,210 @@+{- This file was auto-generated from POGOProtos/Data/Battle/BattleParticipant.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Data.Battle.BattleParticipant 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.Battle.BattlePokemonInfo+import qualified Proto.POGOProtos.Data.Player.PlayerPublicProfile++data BattleParticipant = BattleParticipant{_BattleParticipant'activePokemon+                                           ::+                                           Prelude.Maybe+                                             Proto.POGOProtos.Data.Battle.BattlePokemonInfo.BattlePokemonInfo,+                                           _BattleParticipant'trainerPublicProfile ::+                                           Prelude.Maybe+                                             Proto.POGOProtos.Data.Player.PlayerPublicProfile.PlayerPublicProfile,+                                           _BattleParticipant'reversePokemon ::+                                           [Proto.POGOProtos.Data.Battle.BattlePokemonInfo.BattlePokemonInfo],+                                           _BattleParticipant'defeatedPokemon ::+                                           [Proto.POGOProtos.Data.Battle.BattlePokemonInfo.BattlePokemonInfo]}+                       deriving (Prelude.Show, Prelude.Eq)++type instance+     Data.ProtoLens.Field "activePokemon" BattleParticipant =+     Proto.POGOProtos.Data.Battle.BattlePokemonInfo.BattlePokemonInfo++instance Data.ProtoLens.HasField "activePokemon" BattleParticipant+         BattleParticipant where+        field _+          = (Prelude..) maybe'activePokemon+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance+     Data.ProtoLens.Field "maybe'activePokemon" BattleParticipant =+     Prelude.Maybe+       Proto.POGOProtos.Data.Battle.BattlePokemonInfo.BattlePokemonInfo++instance Data.ProtoLens.HasField "maybe'activePokemon"+         BattleParticipant BattleParticipant where+        field _+          = Lens.Family2.Unchecked.lens _BattleParticipant'activePokemon+              (\ x__ y__ -> x__{_BattleParticipant'activePokemon = y__})++type instance+     Data.ProtoLens.Field "trainerPublicProfile" BattleParticipant =+     Proto.POGOProtos.Data.Player.PlayerPublicProfile.PlayerPublicProfile++instance Data.ProtoLens.HasField "trainerPublicProfile"+         BattleParticipant BattleParticipant where+        field _+          = (Prelude..) maybe'trainerPublicProfile+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance+     Data.ProtoLens.Field "maybe'trainerPublicProfile" BattleParticipant+     =+     Prelude.Maybe+       Proto.POGOProtos.Data.Player.PlayerPublicProfile.PlayerPublicProfile++instance Data.ProtoLens.HasField "maybe'trainerPublicProfile"+         BattleParticipant BattleParticipant where+        field _+          = Lens.Family2.Unchecked.lens+              _BattleParticipant'trainerPublicProfile+              (\ x__ y__ -> x__{_BattleParticipant'trainerPublicProfile = y__})++type instance+     Data.ProtoLens.Field "reversePokemon" BattleParticipant =+     [Proto.POGOProtos.Data.Battle.BattlePokemonInfo.BattlePokemonInfo]++instance Data.ProtoLens.HasField "reversePokemon" BattleParticipant+         BattleParticipant where+        field _+          = Lens.Family2.Unchecked.lens _BattleParticipant'reversePokemon+              (\ x__ y__ -> x__{_BattleParticipant'reversePokemon = y__})++type instance+     Data.ProtoLens.Field "defeatedPokemon" BattleParticipant =+     [Proto.POGOProtos.Data.Battle.BattlePokemonInfo.BattlePokemonInfo]++instance Data.ProtoLens.HasField "defeatedPokemon"+         BattleParticipant BattleParticipant where+        field _+          = Lens.Family2.Unchecked.lens _BattleParticipant'defeatedPokemon+              (\ x__ y__ -> x__{_BattleParticipant'defeatedPokemon = y__})++instance Data.Default.Class.Default BattleParticipant where+        def+          = BattleParticipant{_BattleParticipant'activePokemon =+                                Prelude.Nothing,+                              _BattleParticipant'trainerPublicProfile = Prelude.Nothing,+                              _BattleParticipant'reversePokemon = [],+                              _BattleParticipant'defeatedPokemon = []}++instance Data.ProtoLens.Message BattleParticipant where+        descriptor+          = let activePokemon__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "active_pokemon"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Data.Battle.BattlePokemonInfo.BattlePokemonInfo)+                      (Data.ProtoLens.OptionalField maybe'activePokemon)+                trainerPublicProfile__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "trainer_public_profile"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Data.Player.PlayerPublicProfile.PlayerPublicProfile)+                      (Data.ProtoLens.OptionalField maybe'trainerPublicProfile)+                reversePokemon__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "reverse_pokemon"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Data.Battle.BattlePokemonInfo.BattlePokemonInfo)+                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked+                         reversePokemon)+                defeatedPokemon__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "defeated_pokemon"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Data.Battle.BattlePokemonInfo.BattlePokemonInfo)+                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked+                         defeatedPokemon)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, activePokemon__field_descriptor),+                    (Data.ProtoLens.Tag 2, trainerPublicProfile__field_descriptor),+                    (Data.ProtoLens.Tag 3, reversePokemon__field_descriptor),+                    (Data.ProtoLens.Tag 4, defeatedPokemon__field_descriptor)])+                (Data.Map.fromList+                   [("active_pokemon", activePokemon__field_descriptor),+                    ("trainer_public_profile", trainerPublicProfile__field_descriptor),+                    ("reverse_pokemon", reversePokemon__field_descriptor),+                    ("defeated_pokemon", defeatedPokemon__field_descriptor)])++activePokemon ::+              forall msg msg' .+                Data.ProtoLens.HasField "activePokemon" msg msg' =>+                Lens.Family2.Lens msg msg'+                  (Data.ProtoLens.Field "activePokemon" msg)+                  (Data.ProtoLens.Field "activePokemon" msg')+activePokemon+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "activePokemon")++defeatedPokemon ::+                forall msg msg' .+                  Data.ProtoLens.HasField "defeatedPokemon" msg msg' =>+                  Lens.Family2.Lens msg msg'+                    (Data.ProtoLens.Field "defeatedPokemon" msg)+                    (Data.ProtoLens.Field "defeatedPokemon" msg')+defeatedPokemon+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "defeatedPokemon")++maybe'activePokemon ::+                    forall msg msg' .+                      Data.ProtoLens.HasField "maybe'activePokemon" msg msg' =>+                      Lens.Family2.Lens msg msg'+                        (Data.ProtoLens.Field "maybe'activePokemon" msg)+                        (Data.ProtoLens.Field "maybe'activePokemon" msg')+maybe'activePokemon+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "maybe'activePokemon")++maybe'trainerPublicProfile ::+                           forall msg msg' .+                             Data.ProtoLens.HasField "maybe'trainerPublicProfile" msg msg' =>+                             Lens.Family2.Lens msg msg'+                               (Data.ProtoLens.Field "maybe'trainerPublicProfile" msg)+                               (Data.ProtoLens.Field "maybe'trainerPublicProfile" msg')+maybe'trainerPublicProfile+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "maybe'trainerPublicProfile")++reversePokemon ::+               forall msg msg' .+                 Data.ProtoLens.HasField "reversePokemon" msg msg' =>+                 Lens.Family2.Lens msg msg'+                   (Data.ProtoLens.Field "reversePokemon" msg)+                   (Data.ProtoLens.Field "reversePokemon" msg')+reversePokemon+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "reversePokemon")++trainerPublicProfile ::+                     forall msg msg' .+                       Data.ProtoLens.HasField "trainerPublicProfile" msg msg' =>+                       Lens.Family2.Lens msg msg'+                         (Data.ProtoLens.Field "trainerPublicProfile" msg)+                         (Data.ProtoLens.Field "trainerPublicProfile" msg')+trainerPublicProfile+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "trainerPublicProfile")
+ src/Proto/POGOProtos/Data/Battle/BattlePokemonInfo.hs view
@@ -0,0 +1,141 @@+{- This file was auto-generated from POGOProtos/Data/Battle/BattlePokemonInfo.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Data.Battle.BattlePokemonInfo 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.PokemonData++data BattlePokemonInfo = BattlePokemonInfo{_BattlePokemonInfo'pokemonData+                                           ::+                                           Prelude.Maybe+                                             Proto.POGOProtos.Data.PokemonData.PokemonData,+                                           _BattlePokemonInfo'currentHealth :: Data.Int.Int32,+                                           _BattlePokemonInfo'currentEnergy :: Data.Int.Int32}+                       deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "pokemonData" BattlePokemonInfo+     = Proto.POGOProtos.Data.PokemonData.PokemonData++instance Data.ProtoLens.HasField "pokemonData" BattlePokemonInfo+         BattlePokemonInfo where+        field _+          = (Prelude..) maybe'pokemonData+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance+     Data.ProtoLens.Field "maybe'pokemonData" BattlePokemonInfo =+     Prelude.Maybe Proto.POGOProtos.Data.PokemonData.PokemonData++instance Data.ProtoLens.HasField "maybe'pokemonData"+         BattlePokemonInfo BattlePokemonInfo where+        field _+          = Lens.Family2.Unchecked.lens _BattlePokemonInfo'pokemonData+              (\ x__ y__ -> x__{_BattlePokemonInfo'pokemonData = y__})++type instance+     Data.ProtoLens.Field "currentHealth" BattlePokemonInfo =+     Data.Int.Int32++instance Data.ProtoLens.HasField "currentHealth" BattlePokemonInfo+         BattlePokemonInfo where+        field _+          = Lens.Family2.Unchecked.lens _BattlePokemonInfo'currentHealth+              (\ x__ y__ -> x__{_BattlePokemonInfo'currentHealth = y__})++type instance+     Data.ProtoLens.Field "currentEnergy" BattlePokemonInfo =+     Data.Int.Int32++instance Data.ProtoLens.HasField "currentEnergy" BattlePokemonInfo+         BattlePokemonInfo where+        field _+          = Lens.Family2.Unchecked.lens _BattlePokemonInfo'currentEnergy+              (\ x__ y__ -> x__{_BattlePokemonInfo'currentEnergy = y__})++instance Data.Default.Class.Default BattlePokemonInfo where+        def+          = BattlePokemonInfo{_BattlePokemonInfo'pokemonData =+                                Prelude.Nothing,+                              _BattlePokemonInfo'currentHealth = Data.ProtoLens.fieldDefault,+                              _BattlePokemonInfo'currentEnergy = Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message BattlePokemonInfo where+        descriptor+          = let pokemonData__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "pokemon_data"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Data.PokemonData.PokemonData)+                      (Data.ProtoLens.OptionalField maybe'pokemonData)+                currentHealth__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "current_health"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional currentHealth)+                currentEnergy__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "current_energy"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional currentEnergy)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, pokemonData__field_descriptor),+                    (Data.ProtoLens.Tag 2, currentHealth__field_descriptor),+                    (Data.ProtoLens.Tag 3, currentEnergy__field_descriptor)])+                (Data.Map.fromList+                   [("pokemon_data", pokemonData__field_descriptor),+                    ("current_health", currentHealth__field_descriptor),+                    ("current_energy", currentEnergy__field_descriptor)])++currentEnergy ::+              forall msg msg' .+                Data.ProtoLens.HasField "currentEnergy" msg msg' =>+                Lens.Family2.Lens msg msg'+                  (Data.ProtoLens.Field "currentEnergy" msg)+                  (Data.ProtoLens.Field "currentEnergy" msg')+currentEnergy+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "currentEnergy")++currentHealth ::+              forall msg msg' .+                Data.ProtoLens.HasField "currentHealth" msg msg' =>+                Lens.Family2.Lens msg msg'+                  (Data.ProtoLens.Field "currentHealth" msg)+                  (Data.ProtoLens.Field "currentHealth" msg')+currentHealth+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "currentHealth")++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")
+ src/Proto/POGOProtos/Data/Battle/BattleResults.hs view
@@ -0,0 +1,200 @@+{- This file was auto-generated from POGOProtos/Data/Battle/BattleResults.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Data.Battle.BattleResults 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.Battle.BattleParticipant+import qualified Proto.POGOProtos.Data.Gym.GymState++data BattleResults = BattleResults{_BattleResults'gymState ::+                                   Prelude.Maybe Proto.POGOProtos.Data.Gym.GymState.GymState,+                                   _BattleResults'attackers ::+                                   [Proto.POGOProtos.Data.Battle.BattleParticipant.BattleParticipant],+                                   _BattleResults'playerExperienceAwarded :: [Data.Int.Int32],+                                   _BattleResults'nextDefenderPokemonId :: Data.Int.Int64,+                                   _BattleResults'gymPointsDelta :: Data.Int.Int32}+                   deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "gymState" BattleResults =+     Proto.POGOProtos.Data.Gym.GymState.GymState++instance Data.ProtoLens.HasField "gymState" BattleResults+         BattleResults where+        field _+          = (Prelude..) maybe'gymState+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance Data.ProtoLens.Field "maybe'gymState" BattleResults =+     Prelude.Maybe Proto.POGOProtos.Data.Gym.GymState.GymState++instance Data.ProtoLens.HasField "maybe'gymState" BattleResults+         BattleResults where+        field _+          = Lens.Family2.Unchecked.lens _BattleResults'gymState+              (\ x__ y__ -> x__{_BattleResults'gymState = y__})++type instance Data.ProtoLens.Field "attackers" BattleResults =+     [Proto.POGOProtos.Data.Battle.BattleParticipant.BattleParticipant]++instance Data.ProtoLens.HasField "attackers" BattleResults+         BattleResults where+        field _+          = Lens.Family2.Unchecked.lens _BattleResults'attackers+              (\ x__ y__ -> x__{_BattleResults'attackers = y__})++type instance+     Data.ProtoLens.Field "playerExperienceAwarded" BattleResults =+     [Data.Int.Int32]++instance Data.ProtoLens.HasField "playerExperienceAwarded"+         BattleResults BattleResults where+        field _+          = Lens.Family2.Unchecked.lens+              _BattleResults'playerExperienceAwarded+              (\ x__ y__ -> x__{_BattleResults'playerExperienceAwarded = y__})++type instance+     Data.ProtoLens.Field "nextDefenderPokemonId" BattleResults =+     Data.Int.Int64++instance Data.ProtoLens.HasField "nextDefenderPokemonId"+         BattleResults BattleResults where+        field _+          = Lens.Family2.Unchecked.lens _BattleResults'nextDefenderPokemonId+              (\ x__ y__ -> x__{_BattleResults'nextDefenderPokemonId = y__})++type instance Data.ProtoLens.Field "gymPointsDelta" BattleResults =+     Data.Int.Int32++instance Data.ProtoLens.HasField "gymPointsDelta" BattleResults+         BattleResults where+        field _+          = Lens.Family2.Unchecked.lens _BattleResults'gymPointsDelta+              (\ x__ y__ -> x__{_BattleResults'gymPointsDelta = y__})++instance Data.Default.Class.Default BattleResults where+        def+          = BattleResults{_BattleResults'gymState = Prelude.Nothing,+                          _BattleResults'attackers = [],+                          _BattleResults'playerExperienceAwarded = [],+                          _BattleResults'nextDefenderPokemonId = Data.ProtoLens.fieldDefault,+                          _BattleResults'gymPointsDelta = Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message BattleResults where+        descriptor+          = let 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)+                attackers__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "attackers"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Data.Battle.BattleParticipant.BattleParticipant)+                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked attackers)+                playerExperienceAwarded__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "player_experience_awarded"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked+                         playerExperienceAwarded)+                nextDefenderPokemonId__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "next_defender_pokemon_id"+                      (Data.ProtoLens.Int64Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         nextDefenderPokemonId)+                gymPointsDelta__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "gym_points_delta"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional gymPointsDelta)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, gymState__field_descriptor),+                    (Data.ProtoLens.Tag 2, attackers__field_descriptor),+                    (Data.ProtoLens.Tag 3, playerExperienceAwarded__field_descriptor),+                    (Data.ProtoLens.Tag 4, nextDefenderPokemonId__field_descriptor),+                    (Data.ProtoLens.Tag 5, gymPointsDelta__field_descriptor)])+                (Data.Map.fromList+                   [("gym_state", gymState__field_descriptor),+                    ("attackers", attackers__field_descriptor),+                    ("player_experience_awarded",+                     playerExperienceAwarded__field_descriptor),+                    ("next_defender_pokemon_id",+                     nextDefenderPokemonId__field_descriptor),+                    ("gym_points_delta", gymPointsDelta__field_descriptor)])++attackers ::+          forall msg msg' . Data.ProtoLens.HasField "attackers" msg msg' =>+            Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "attackers" msg)+              (Data.ProtoLens.Field "attackers" msg')+attackers+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "attackers")++gymPointsDelta ::+               forall msg msg' .+                 Data.ProtoLens.HasField "gymPointsDelta" msg msg' =>+                 Lens.Family2.Lens msg msg'+                   (Data.ProtoLens.Field "gymPointsDelta" msg)+                   (Data.ProtoLens.Field "gymPointsDelta" msg')+gymPointsDelta+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "gymPointsDelta")++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'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")++nextDefenderPokemonId ::+                      forall msg msg' .+                        Data.ProtoLens.HasField "nextDefenderPokemonId" msg msg' =>+                        Lens.Family2.Lens msg msg'+                          (Data.ProtoLens.Field "nextDefenderPokemonId" msg)+                          (Data.ProtoLens.Field "nextDefenderPokemonId" msg')+nextDefenderPokemonId+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "nextDefenderPokemonId")++playerExperienceAwarded ::+                        forall msg msg' .+                          Data.ProtoLens.HasField "playerExperienceAwarded" msg msg' =>+                          Lens.Family2.Lens msg msg'+                            (Data.ProtoLens.Field "playerExperienceAwarded" msg)+                            (Data.ProtoLens.Field "playerExperienceAwarded" msg')+playerExperienceAwarded+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "playerExperienceAwarded")
+ src/Proto/POGOProtos/Data/Battle/BattleState.hs view
@@ -0,0 +1,84 @@+{- This file was auto-generated from POGOProtos/Data/Battle/BattleState.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Data.Battle.BattleState 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 BattleState = STATE_UNSET+                 | ACTIVE+                 | VICTORY+                 | DEFEATED+                 | TIMED_OUT+                 deriving (Prelude.Show, Prelude.Eq)++instance Data.Default.Class.Default BattleState where+        def = STATE_UNSET++instance Data.ProtoLens.FieldDefault BattleState where+        fieldDefault = STATE_UNSET++instance Data.ProtoLens.MessageEnum BattleState where+        maybeToEnum 0 = Prelude.Just STATE_UNSET+        maybeToEnum 1 = Prelude.Just ACTIVE+        maybeToEnum 2 = Prelude.Just VICTORY+        maybeToEnum 3 = Prelude.Just DEFEATED+        maybeToEnum 4 = Prelude.Just TIMED_OUT+        maybeToEnum _ = Prelude.Nothing+        showEnum STATE_UNSET = "STATE_UNSET"+        showEnum ACTIVE = "ACTIVE"+        showEnum VICTORY = "VICTORY"+        showEnum DEFEATED = "DEFEATED"+        showEnum TIMED_OUT = "TIMED_OUT"+        readEnum "STATE_UNSET" = Prelude.Just STATE_UNSET+        readEnum "ACTIVE" = Prelude.Just ACTIVE+        readEnum "VICTORY" = Prelude.Just VICTORY+        readEnum "DEFEATED" = Prelude.Just DEFEATED+        readEnum "TIMED_OUT" = Prelude.Just TIMED_OUT+        readEnum _ = Prelude.Nothing++instance Prelude.Enum BattleState where+        toEnum k__+          = Prelude.maybe+              (Prelude.error+                 ((Prelude.++) "toEnum: unknown value for enum BattleState: "+                    (Prelude.show k__)))+              Prelude.id+              (Data.ProtoLens.maybeToEnum k__)+        fromEnum STATE_UNSET = 0+        fromEnum ACTIVE = 1+        fromEnum VICTORY = 2+        fromEnum DEFEATED = 3+        fromEnum TIMED_OUT = 4+        succ TIMED_OUT+          = Prelude.error+              "Ident \"BattleState\".Ident \"succ\": bad argument Ident \"TIMED_OUT\". This value would be out of bounds."+        succ STATE_UNSET = ACTIVE+        succ ACTIVE = VICTORY+        succ VICTORY = DEFEATED+        succ DEFEATED = TIMED_OUT+        pred STATE_UNSET+          = Prelude.error+              "Ident \"BattleState\".Ident \"pred\": bad argument Ident \"STATE_UNSET\". This value would be out of bounds."+        pred ACTIVE = STATE_UNSET+        pred VICTORY = ACTIVE+        pred DEFEATED = VICTORY+        pred TIMED_OUT = DEFEATED+        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 BattleState where+        minBound = STATE_UNSET+        maxBound = TIMED_OUT
+ src/Proto/POGOProtos/Data/Battle/BattleType.hs view
@@ -0,0 +1,70 @@+{- This file was auto-generated from POGOProtos/Data/Battle/BattleType.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Data.Battle.BattleType 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 BattleType = BATTLE_TYPE_UNSET+                | NORMAL+                | TRAINING+                deriving (Prelude.Show, Prelude.Eq)++instance Data.Default.Class.Default BattleType where+        def = BATTLE_TYPE_UNSET++instance Data.ProtoLens.FieldDefault BattleType where+        fieldDefault = BATTLE_TYPE_UNSET++instance Data.ProtoLens.MessageEnum BattleType where+        maybeToEnum 0 = Prelude.Just BATTLE_TYPE_UNSET+        maybeToEnum 1 = Prelude.Just NORMAL+        maybeToEnum 2 = Prelude.Just TRAINING+        maybeToEnum _ = Prelude.Nothing+        showEnum BATTLE_TYPE_UNSET = "BATTLE_TYPE_UNSET"+        showEnum NORMAL = "NORMAL"+        showEnum TRAINING = "TRAINING"+        readEnum "BATTLE_TYPE_UNSET" = Prelude.Just BATTLE_TYPE_UNSET+        readEnum "NORMAL" = Prelude.Just NORMAL+        readEnum "TRAINING" = Prelude.Just TRAINING+        readEnum _ = Prelude.Nothing++instance Prelude.Enum BattleType where+        toEnum k__+          = Prelude.maybe+              (Prelude.error+                 ((Prelude.++) "toEnum: unknown value for enum BattleType: "+                    (Prelude.show k__)))+              Prelude.id+              (Data.ProtoLens.maybeToEnum k__)+        fromEnum BATTLE_TYPE_UNSET = 0+        fromEnum NORMAL = 1+        fromEnum TRAINING = 2+        succ TRAINING+          = Prelude.error+              "Ident \"BattleType\".Ident \"succ\": bad argument Ident \"TRAINING\". This value would be out of bounds."+        succ BATTLE_TYPE_UNSET = NORMAL+        succ NORMAL = TRAINING+        pred BATTLE_TYPE_UNSET+          = Prelude.error+              "Ident \"BattleType\".Ident \"pred\": bad argument Ident \"BATTLE_TYPE_UNSET\". This value would be out of bounds."+        pred NORMAL = BATTLE_TYPE_UNSET+        pred TRAINING = NORMAL+        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 BattleType where+        minBound = BATTLE_TYPE_UNSET+        maxBound = TRAINING
+ src/Proto/POGOProtos/Data/Capture/CaptureAward.hs view
@@ -0,0 +1,135 @@+{- This file was auto-generated from POGOProtos/Data/Capture/CaptureAward.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Data.Capture.CaptureAward 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.ActivityType++data CaptureAward = CaptureAward{_CaptureAward'activityType ::+                                 [Proto.POGOProtos.Enums.ActivityType.ActivityType],+                                 _CaptureAward'xp :: [Data.Int.Int32],+                                 _CaptureAward'candy :: [Data.Int.Int32],+                                 _CaptureAward'stardust :: [Data.Int.Int32]}+                  deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "activityType" CaptureAward =+     [Proto.POGOProtos.Enums.ActivityType.ActivityType]++instance Data.ProtoLens.HasField "activityType" CaptureAward+         CaptureAward where+        field _+          = Lens.Family2.Unchecked.lens _CaptureAward'activityType+              (\ x__ y__ -> x__{_CaptureAward'activityType = y__})++type instance Data.ProtoLens.Field "xp" CaptureAward =+     [Data.Int.Int32]++instance Data.ProtoLens.HasField "xp" CaptureAward CaptureAward+         where+        field _+          = Lens.Family2.Unchecked.lens _CaptureAward'xp+              (\ x__ y__ -> x__{_CaptureAward'xp = y__})++type instance Data.ProtoLens.Field "candy" CaptureAward =+     [Data.Int.Int32]++instance Data.ProtoLens.HasField "candy" CaptureAward CaptureAward+         where+        field _+          = Lens.Family2.Unchecked.lens _CaptureAward'candy+              (\ x__ y__ -> x__{_CaptureAward'candy = y__})++type instance Data.ProtoLens.Field "stardust" CaptureAward =+     [Data.Int.Int32]++instance Data.ProtoLens.HasField "stardust" CaptureAward+         CaptureAward where+        field _+          = Lens.Family2.Unchecked.lens _CaptureAward'stardust+              (\ x__ y__ -> x__{_CaptureAward'stardust = y__})++instance Data.Default.Class.Default CaptureAward where+        def+          = CaptureAward{_CaptureAward'activityType = [],+                         _CaptureAward'xp = [], _CaptureAward'candy = [],+                         _CaptureAward'stardust = []}++instance Data.ProtoLens.Message CaptureAward where+        descriptor+          = let activityType__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "activity_type"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Enums.ActivityType.ActivityType)+                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked activityType)+                xp__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "xp"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked xp)+                candy__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "candy"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked candy)+                stardust__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "stardust"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked stardust)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, activityType__field_descriptor),+                    (Data.ProtoLens.Tag 2, xp__field_descriptor),+                    (Data.ProtoLens.Tag 3, candy__field_descriptor),+                    (Data.ProtoLens.Tag 4, stardust__field_descriptor)])+                (Data.Map.fromList+                   [("activity_type", activityType__field_descriptor),+                    ("xp", xp__field_descriptor), ("candy", candy__field_descriptor),+                    ("stardust", stardust__field_descriptor)])++activityType ::+             forall msg msg' .+               Data.ProtoLens.HasField "activityType" msg msg' =>+               Lens.Family2.Lens msg msg'+                 (Data.ProtoLens.Field "activityType" msg)+                 (Data.ProtoLens.Field "activityType" msg')+activityType+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "activityType")++candy ::+      forall msg msg' . Data.ProtoLens.HasField "candy" msg msg' =>+        Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "candy" msg)+          (Data.ProtoLens.Field "candy" msg')+candy+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "candy")++stardust ::+         forall msg msg' . Data.ProtoLens.HasField "stardust" msg msg' =>+           Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "stardust" msg)+             (Data.ProtoLens.Field "stardust" msg')+stardust+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "stardust")++xp ::+   forall msg msg' . Data.ProtoLens.HasField "xp" msg msg' =>+     Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "xp" msg)+       (Data.ProtoLens.Field "xp" msg')+xp+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "xp")
+ src/Proto/POGOProtos/Data/Capture/CaptureProbability.hs view
@@ -0,0 +1,129 @@+{- This file was auto-generated from POGOProtos/Data/Capture/CaptureProbability.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Data.Capture.CaptureProbability 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.Inventory.Item.ItemId++data CaptureProbability = CaptureProbability{_CaptureProbability'pokeballType+                                             :: [Proto.POGOProtos.Inventory.Item.ItemId.ItemId],+                                             _CaptureProbability'captureProbability ::+                                             [Prelude.Float],+                                             _CaptureProbability'reticleDifficultyScale ::+                                             Prelude.Double}+                        deriving (Prelude.Show, Prelude.Eq)++type instance+     Data.ProtoLens.Field "pokeballType" CaptureProbability =+     [Proto.POGOProtos.Inventory.Item.ItemId.ItemId]++instance Data.ProtoLens.HasField "pokeballType" CaptureProbability+         CaptureProbability where+        field _+          = Lens.Family2.Unchecked.lens _CaptureProbability'pokeballType+              (\ x__ y__ -> x__{_CaptureProbability'pokeballType = y__})++type instance+     Data.ProtoLens.Field "captureProbability" CaptureProbability =+     [Prelude.Float]++instance Data.ProtoLens.HasField "captureProbability"+         CaptureProbability CaptureProbability where+        field _+          = Lens.Family2.Unchecked.lens+              _CaptureProbability'captureProbability+              (\ x__ y__ -> x__{_CaptureProbability'captureProbability = y__})++type instance+     Data.ProtoLens.Field "reticleDifficultyScale" CaptureProbability =+     Prelude.Double++instance Data.ProtoLens.HasField "reticleDifficultyScale"+         CaptureProbability CaptureProbability where+        field _+          = Lens.Family2.Unchecked.lens+              _CaptureProbability'reticleDifficultyScale+              (\ x__ y__ ->+                 x__{_CaptureProbability'reticleDifficultyScale = y__})++instance Data.Default.Class.Default CaptureProbability where+        def+          = CaptureProbability{_CaptureProbability'pokeballType = [],+                               _CaptureProbability'captureProbability = [],+                               _CaptureProbability'reticleDifficultyScale =+                                 Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message CaptureProbability where+        descriptor+          = let pokeballType__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "pokeball_type"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Inventory.Item.ItemId.ItemId)+                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Packed pokeballType)+                captureProbability__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "capture_probability"+                      (Data.ProtoLens.FloatField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Float)+                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Packed+                         captureProbability)+                reticleDifficultyScale__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "reticle_difficulty_scale"+                      (Data.ProtoLens.DoubleField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Double)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         reticleDifficultyScale)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, pokeballType__field_descriptor),+                    (Data.ProtoLens.Tag 2, captureProbability__field_descriptor),+                    (Data.ProtoLens.Tag 12, reticleDifficultyScale__field_descriptor)])+                (Data.Map.fromList+                   [("pokeball_type", pokeballType__field_descriptor),+                    ("capture_probability", captureProbability__field_descriptor),+                    ("reticle_difficulty_scale",+                     reticleDifficultyScale__field_descriptor)])++captureProbability ::+                   forall msg msg' .+                     Data.ProtoLens.HasField "captureProbability" msg msg' =>+                     Lens.Family2.Lens msg msg'+                       (Data.ProtoLens.Field "captureProbability" msg)+                       (Data.ProtoLens.Field "captureProbability" msg')+captureProbability+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "captureProbability")++pokeballType ::+             forall msg msg' .+               Data.ProtoLens.HasField "pokeballType" msg msg' =>+               Lens.Family2.Lens msg msg'+                 (Data.ProtoLens.Field "pokeballType" msg)+                 (Data.ProtoLens.Field "pokeballType" msg')+pokeballType+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "pokeballType")++reticleDifficultyScale ::+                       forall msg msg' .+                         Data.ProtoLens.HasField "reticleDifficultyScale" msg msg' =>+                         Lens.Family2.Lens msg msg'+                           (Data.ProtoLens.Field "reticleDifficultyScale" msg)+                           (Data.ProtoLens.Field "reticleDifficultyScale" msg')+reticleDifficultyScale+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "reticleDifficultyScale")
+ src/Proto/POGOProtos/Data/DownloadUrlEntry.hs view
@@ -0,0 +1,133 @@+{- This file was auto-generated from POGOProtos/Data/DownloadUrlEntry.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Data.DownloadUrlEntry 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 DownloadUrlEntry = DownloadUrlEntry{_DownloadUrlEntry'assetId+                                         :: Data.Text.Text,+                                         _DownloadUrlEntry'url :: Data.Text.Text,+                                         _DownloadUrlEntry'size :: Data.Int.Int32,+                                         _DownloadUrlEntry'checksum :: Data.Word.Word32}+                      deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "assetId" DownloadUrlEntry =+     Data.Text.Text++instance Data.ProtoLens.HasField "assetId" DownloadUrlEntry+         DownloadUrlEntry where+        field _+          = Lens.Family2.Unchecked.lens _DownloadUrlEntry'assetId+              (\ x__ y__ -> x__{_DownloadUrlEntry'assetId = y__})++type instance Data.ProtoLens.Field "url" DownloadUrlEntry =+     Data.Text.Text++instance Data.ProtoLens.HasField "url" DownloadUrlEntry+         DownloadUrlEntry where+        field _+          = Lens.Family2.Unchecked.lens _DownloadUrlEntry'url+              (\ x__ y__ -> x__{_DownloadUrlEntry'url = y__})++type instance Data.ProtoLens.Field "size" DownloadUrlEntry =+     Data.Int.Int32++instance Data.ProtoLens.HasField "size" DownloadUrlEntry+         DownloadUrlEntry where+        field _+          = Lens.Family2.Unchecked.lens _DownloadUrlEntry'size+              (\ x__ y__ -> x__{_DownloadUrlEntry'size = y__})++type instance Data.ProtoLens.Field "checksum" DownloadUrlEntry =+     Data.Word.Word32++instance Data.ProtoLens.HasField "checksum" DownloadUrlEntry+         DownloadUrlEntry where+        field _+          = Lens.Family2.Unchecked.lens _DownloadUrlEntry'checksum+              (\ x__ y__ -> x__{_DownloadUrlEntry'checksum = y__})++instance Data.Default.Class.Default DownloadUrlEntry where+        def+          = DownloadUrlEntry{_DownloadUrlEntry'assetId =+                               Data.ProtoLens.fieldDefault,+                             _DownloadUrlEntry'url = Data.ProtoLens.fieldDefault,+                             _DownloadUrlEntry'size = Data.ProtoLens.fieldDefault,+                             _DownloadUrlEntry'checksum = Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message DownloadUrlEntry where+        descriptor+          = let assetId__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "asset_id"+                      (Data.ProtoLens.StringField ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional assetId)+                url__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "url"+                      (Data.ProtoLens.StringField ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional url)+                size__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "size"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional size)+                checksum__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "checksum"+                      (Data.ProtoLens.UInt32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional checksum)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, assetId__field_descriptor),+                    (Data.ProtoLens.Tag 2, url__field_descriptor),+                    (Data.ProtoLens.Tag 3, size__field_descriptor),+                    (Data.ProtoLens.Tag 4, checksum__field_descriptor)])+                (Data.Map.fromList+                   [("asset_id", assetId__field_descriptor),+                    ("url", url__field_descriptor), ("size", size__field_descriptor),+                    ("checksum", checksum__field_descriptor)])++assetId ::+        forall msg msg' . Data.ProtoLens.HasField "assetId" msg msg' =>+          Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "assetId" msg)+            (Data.ProtoLens.Field "assetId" msg')+assetId+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "assetId")++checksum ::+         forall msg msg' . Data.ProtoLens.HasField "checksum" msg msg' =>+           Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "checksum" msg)+             (Data.ProtoLens.Field "checksum" msg')+checksum+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "checksum")++size ::+     forall msg msg' . Data.ProtoLens.HasField "size" msg msg' =>+       Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "size" msg)+         (Data.ProtoLens.Field "size" msg')+size+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "size")++url ::+    forall msg msg' . Data.ProtoLens.HasField "url" msg msg' =>+      Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "url" msg)+        (Data.ProtoLens.Field "url" msg')+url+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "url")
+ src/Proto/POGOProtos/Data/Gym/GymMembership.hs view
@@ -0,0 +1,135 @@+{- This file was auto-generated from POGOProtos/Data/Gym/GymMembership.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Data.Gym.GymMembership 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.Player.PlayerPublicProfile+import qualified Proto.POGOProtos.Data.PokemonData++data GymMembership = GymMembership{_GymMembership'pokemonData ::+                                   Prelude.Maybe Proto.POGOProtos.Data.PokemonData.PokemonData,+                                   _GymMembership'trainerPublicProfile ::+                                   Prelude.Maybe+                                     Proto.POGOProtos.Data.Player.PlayerPublicProfile.PlayerPublicProfile}+                   deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "pokemonData" GymMembership =+     Proto.POGOProtos.Data.PokemonData.PokemonData++instance Data.ProtoLens.HasField "pokemonData" GymMembership+         GymMembership where+        field _+          = (Prelude..) maybe'pokemonData+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance+     Data.ProtoLens.Field "maybe'pokemonData" GymMembership =+     Prelude.Maybe Proto.POGOProtos.Data.PokemonData.PokemonData++instance Data.ProtoLens.HasField "maybe'pokemonData" GymMembership+         GymMembership where+        field _+          = Lens.Family2.Unchecked.lens _GymMembership'pokemonData+              (\ x__ y__ -> x__{_GymMembership'pokemonData = y__})++type instance+     Data.ProtoLens.Field "trainerPublicProfile" GymMembership =+     Proto.POGOProtos.Data.Player.PlayerPublicProfile.PlayerPublicProfile++instance Data.ProtoLens.HasField "trainerPublicProfile"+         GymMembership GymMembership where+        field _+          = (Prelude..) maybe'trainerPublicProfile+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance+     Data.ProtoLens.Field "maybe'trainerPublicProfile" GymMembership =+     Prelude.Maybe+       Proto.POGOProtos.Data.Player.PlayerPublicProfile.PlayerPublicProfile++instance Data.ProtoLens.HasField "maybe'trainerPublicProfile"+         GymMembership GymMembership where+        field _+          = Lens.Family2.Unchecked.lens _GymMembership'trainerPublicProfile+              (\ x__ y__ -> x__{_GymMembership'trainerPublicProfile = y__})++instance Data.Default.Class.Default GymMembership where+        def+          = GymMembership{_GymMembership'pokemonData = Prelude.Nothing,+                          _GymMembership'trainerPublicProfile = Prelude.Nothing}++instance Data.ProtoLens.Message GymMembership where+        descriptor+          = let pokemonData__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "pokemon_data"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Data.PokemonData.PokemonData)+                      (Data.ProtoLens.OptionalField maybe'pokemonData)+                trainerPublicProfile__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "trainer_public_profile"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Data.Player.PlayerPublicProfile.PlayerPublicProfile)+                      (Data.ProtoLens.OptionalField maybe'trainerPublicProfile)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, pokemonData__field_descriptor),+                    (Data.ProtoLens.Tag 2, trainerPublicProfile__field_descriptor)])+                (Data.Map.fromList+                   [("pokemon_data", pokemonData__field_descriptor),+                    ("trainer_public_profile",+                     trainerPublicProfile__field_descriptor)])++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")++maybe'trainerPublicProfile ::+                           forall msg msg' .+                             Data.ProtoLens.HasField "maybe'trainerPublicProfile" msg msg' =>+                             Lens.Family2.Lens msg msg'+                               (Data.ProtoLens.Field "maybe'trainerPublicProfile" msg)+                               (Data.ProtoLens.Field "maybe'trainerPublicProfile" msg')+maybe'trainerPublicProfile+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "maybe'trainerPublicProfile")++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")++trainerPublicProfile ::+                     forall msg msg' .+                       Data.ProtoLens.HasField "trainerPublicProfile" msg msg' =>+                       Lens.Family2.Lens msg msg'+                         (Data.ProtoLens.Field "trainerPublicProfile" msg)+                         (Data.ProtoLens.Field "trainerPublicProfile" msg')+trainerPublicProfile+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "trainerPublicProfile")
+ src/Proto/POGOProtos/Data/Gym/GymState.hs view
@@ -0,0 +1,105 @@+{- This file was auto-generated from POGOProtos/Data/Gym/GymState.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Data.Gym.GymState 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.GymMembership+import qualified Proto.POGOProtos.Map.Fort.FortData++data GymState = GymState{_GymState'fortData ::+                         Prelude.Maybe Proto.POGOProtos.Map.Fort.FortData.FortData,+                         _GymState'memberships ::+                         [Proto.POGOProtos.Data.Gym.GymMembership.GymMembership]}+              deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "fortData" GymState =+     Proto.POGOProtos.Map.Fort.FortData.FortData++instance Data.ProtoLens.HasField "fortData" GymState GymState where+        field _+          = (Prelude..) maybe'fortData+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance Data.ProtoLens.Field "maybe'fortData" GymState =+     Prelude.Maybe Proto.POGOProtos.Map.Fort.FortData.FortData++instance Data.ProtoLens.HasField "maybe'fortData" GymState GymState+         where+        field _+          = Lens.Family2.Unchecked.lens _GymState'fortData+              (\ x__ y__ -> x__{_GymState'fortData = y__})++type instance Data.ProtoLens.Field "memberships" GymState =+     [Proto.POGOProtos.Data.Gym.GymMembership.GymMembership]++instance Data.ProtoLens.HasField "memberships" GymState GymState+         where+        field _+          = Lens.Family2.Unchecked.lens _GymState'memberships+              (\ x__ y__ -> x__{_GymState'memberships = y__})++instance Data.Default.Class.Default GymState where+        def+          = GymState{_GymState'fortData = Prelude.Nothing,+                     _GymState'memberships = []}++instance Data.ProtoLens.Message GymState where+        descriptor+          = let fortData__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "fort_data"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Map.Fort.FortData.FortData)+                      (Data.ProtoLens.OptionalField maybe'fortData)+                memberships__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "memberships"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Data.Gym.GymMembership.GymMembership)+                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked memberships)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, fortData__field_descriptor),+                    (Data.ProtoLens.Tag 2, memberships__field_descriptor)])+                (Data.Map.fromList+                   [("fort_data", fortData__field_descriptor),+                    ("memberships", memberships__field_descriptor)])++fortData ::+         forall msg msg' . Data.ProtoLens.HasField "fortData" msg msg' =>+           Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "fortData" msg)+             (Data.ProtoLens.Field "fortData" msg')+fortData+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "fortData")++maybe'fortData ::+               forall msg msg' .+                 Data.ProtoLens.HasField "maybe'fortData" msg msg' =>+                 Lens.Family2.Lens msg msg'+                   (Data.ProtoLens.Field "maybe'fortData" msg)+                   (Data.ProtoLens.Field "maybe'fortData" msg')+maybe'fortData+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "maybe'fortData")++memberships ::+            forall msg msg' . Data.ProtoLens.HasField "memberships" msg msg' =>+              Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "memberships" msg)+                (Data.ProtoLens.Field "memberships" msg')+memberships+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "memberships")
+ src/Proto/POGOProtos/Data/Logs/ActionLogEntry.hs view
@@ -0,0 +1,188 @@+{- This file was auto-generated from POGOProtos/Data/Logs/ActionLogEntry.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Data.Logs.ActionLogEntry 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.Logs.CatchPokemonLogEntry+import qualified Proto.POGOProtos.Data.Logs.FortSearchLogEntry++data ActionLogEntry = ActionLogEntry{_ActionLogEntry'timestampMs ::+                                     Data.Int.Int64,+                                     _ActionLogEntry'sfida :: Prelude.Bool,+                                     _ActionLogEntry'catchPokemon ::+                                     Prelude.Maybe+                                       Proto.POGOProtos.Data.Logs.CatchPokemonLogEntry.CatchPokemonLogEntry,+                                     _ActionLogEntry'fortSearch ::+                                     Prelude.Maybe+                                       Proto.POGOProtos.Data.Logs.FortSearchLogEntry.FortSearchLogEntry}+                    deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "timestampMs" ActionLogEntry =+     Data.Int.Int64++instance Data.ProtoLens.HasField "timestampMs" ActionLogEntry+         ActionLogEntry where+        field _+          = Lens.Family2.Unchecked.lens _ActionLogEntry'timestampMs+              (\ x__ y__ -> x__{_ActionLogEntry'timestampMs = y__})++type instance Data.ProtoLens.Field "sfida" ActionLogEntry =+     Prelude.Bool++instance Data.ProtoLens.HasField "sfida" ActionLogEntry+         ActionLogEntry where+        field _+          = Lens.Family2.Unchecked.lens _ActionLogEntry'sfida+              (\ x__ y__ -> x__{_ActionLogEntry'sfida = y__})++type instance Data.ProtoLens.Field "catchPokemon" ActionLogEntry =+     Proto.POGOProtos.Data.Logs.CatchPokemonLogEntry.CatchPokemonLogEntry++instance Data.ProtoLens.HasField "catchPokemon" ActionLogEntry+         ActionLogEntry where+        field _+          = (Prelude..) maybe'catchPokemon+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance+     Data.ProtoLens.Field "maybe'catchPokemon" ActionLogEntry =+     Prelude.Maybe+       Proto.POGOProtos.Data.Logs.CatchPokemonLogEntry.CatchPokemonLogEntry++instance Data.ProtoLens.HasField "maybe'catchPokemon"+         ActionLogEntry ActionLogEntry where+        field _+          = Lens.Family2.Unchecked.lens _ActionLogEntry'catchPokemon+              (\ x__ y__ -> x__{_ActionLogEntry'catchPokemon = y__})++type instance Data.ProtoLens.Field "fortSearch" ActionLogEntry =+     Proto.POGOProtos.Data.Logs.FortSearchLogEntry.FortSearchLogEntry++instance Data.ProtoLens.HasField "fortSearch" ActionLogEntry+         ActionLogEntry where+        field _+          = (Prelude..) maybe'fortSearch+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance+     Data.ProtoLens.Field "maybe'fortSearch" ActionLogEntry =+     Prelude.Maybe+       Proto.POGOProtos.Data.Logs.FortSearchLogEntry.FortSearchLogEntry++instance Data.ProtoLens.HasField "maybe'fortSearch" ActionLogEntry+         ActionLogEntry where+        field _+          = Lens.Family2.Unchecked.lens _ActionLogEntry'fortSearch+              (\ x__ y__ -> x__{_ActionLogEntry'fortSearch = y__})++instance Data.Default.Class.Default ActionLogEntry where+        def+          = ActionLogEntry{_ActionLogEntry'timestampMs =+                             Data.ProtoLens.fieldDefault,+                           _ActionLogEntry'sfida = Data.ProtoLens.fieldDefault,+                           _ActionLogEntry'catchPokemon = Prelude.Nothing,+                           _ActionLogEntry'fortSearch = Prelude.Nothing}++instance Data.ProtoLens.Message ActionLogEntry where+        descriptor+          = let timestampMs__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "timestamp_ms"+                      (Data.ProtoLens.Int64Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional timestampMs)+                sfida__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "sfida"+                      (Data.ProtoLens.BoolField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional sfida)+                catchPokemon__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "catch_pokemon"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Data.Logs.CatchPokemonLogEntry.CatchPokemonLogEntry)+                      (Data.ProtoLens.OptionalField maybe'catchPokemon)+                fortSearch__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "fort_search"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Data.Logs.FortSearchLogEntry.FortSearchLogEntry)+                      (Data.ProtoLens.OptionalField maybe'fortSearch)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, timestampMs__field_descriptor),+                    (Data.ProtoLens.Tag 2, sfida__field_descriptor),+                    (Data.ProtoLens.Tag 3, catchPokemon__field_descriptor),+                    (Data.ProtoLens.Tag 4, fortSearch__field_descriptor)])+                (Data.Map.fromList+                   [("timestamp_ms", timestampMs__field_descriptor),+                    ("sfida", sfida__field_descriptor),+                    ("catch_pokemon", catchPokemon__field_descriptor),+                    ("fort_search", fortSearch__field_descriptor)])++catchPokemon ::+             forall msg msg' .+               Data.ProtoLens.HasField "catchPokemon" msg msg' =>+               Lens.Family2.Lens msg msg'+                 (Data.ProtoLens.Field "catchPokemon" msg)+                 (Data.ProtoLens.Field "catchPokemon" msg')+catchPokemon+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "catchPokemon")++fortSearch ::+           forall msg msg' . Data.ProtoLens.HasField "fortSearch" msg msg' =>+             Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "fortSearch" msg)+               (Data.ProtoLens.Field "fortSearch" msg')+fortSearch+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "fortSearch")++maybe'catchPokemon ::+                   forall msg msg' .+                     Data.ProtoLens.HasField "maybe'catchPokemon" msg msg' =>+                     Lens.Family2.Lens msg msg'+                       (Data.ProtoLens.Field "maybe'catchPokemon" msg)+                       (Data.ProtoLens.Field "maybe'catchPokemon" msg')+maybe'catchPokemon+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "maybe'catchPokemon")++maybe'fortSearch ::+                 forall msg msg' .+                   Data.ProtoLens.HasField "maybe'fortSearch" msg msg' =>+                   Lens.Family2.Lens msg msg'+                     (Data.ProtoLens.Field "maybe'fortSearch" msg)+                     (Data.ProtoLens.Field "maybe'fortSearch" msg')+maybe'fortSearch+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "maybe'fortSearch")++sfida ::+      forall msg msg' . Data.ProtoLens.HasField "sfida" msg msg' =>+        Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "sfida" msg)+          (Data.ProtoLens.Field "sfida" msg')+sfida+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "sfida")++timestampMs ::+            forall msg msg' . Data.ProtoLens.HasField "timestampMs" msg msg' =>+              Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "timestampMs" msg)+                (Data.ProtoLens.Field "timestampMs" msg')+timestampMs+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "timestampMs")
+ src/Proto/POGOProtos/Data/Logs/CatchPokemonLogEntry.hs view
@@ -0,0 +1,209 @@+{- This file was auto-generated from POGOProtos/Data/Logs/CatchPokemonLogEntry.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Data.Logs.CatchPokemonLogEntry 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 CatchPokemonLogEntry = CatchPokemonLogEntry{_CatchPokemonLogEntry'result+                                                 :: CatchPokemonLogEntry'Result,+                                                 _CatchPokemonLogEntry'pokemonId ::+                                                 Proto.POGOProtos.Enums.PokemonId.PokemonId,+                                                 _CatchPokemonLogEntry'combatPoints ::+                                                 Data.Int.Int32,+                                                 _CatchPokemonLogEntry'pokemonDataId ::+                                                 Data.Word.Word64}+                          deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "result" CatchPokemonLogEntry =+     CatchPokemonLogEntry'Result++instance Data.ProtoLens.HasField "result" CatchPokemonLogEntry+         CatchPokemonLogEntry where+        field _+          = Lens.Family2.Unchecked.lens _CatchPokemonLogEntry'result+              (\ x__ y__ -> x__{_CatchPokemonLogEntry'result = y__})++type instance Data.ProtoLens.Field "pokemonId" CatchPokemonLogEntry+     = Proto.POGOProtos.Enums.PokemonId.PokemonId++instance Data.ProtoLens.HasField "pokemonId" CatchPokemonLogEntry+         CatchPokemonLogEntry where+        field _+          = Lens.Family2.Unchecked.lens _CatchPokemonLogEntry'pokemonId+              (\ x__ y__ -> x__{_CatchPokemonLogEntry'pokemonId = y__})++type instance+     Data.ProtoLens.Field "combatPoints" CatchPokemonLogEntry =+     Data.Int.Int32++instance Data.ProtoLens.HasField "combatPoints"+         CatchPokemonLogEntry CatchPokemonLogEntry where+        field _+          = Lens.Family2.Unchecked.lens _CatchPokemonLogEntry'combatPoints+              (\ x__ y__ -> x__{_CatchPokemonLogEntry'combatPoints = y__})++type instance+     Data.ProtoLens.Field "pokemonDataId" CatchPokemonLogEntry =+     Data.Word.Word64++instance Data.ProtoLens.HasField "pokemonDataId"+         CatchPokemonLogEntry CatchPokemonLogEntry where+        field _+          = Lens.Family2.Unchecked.lens _CatchPokemonLogEntry'pokemonDataId+              (\ x__ y__ -> x__{_CatchPokemonLogEntry'pokemonDataId = y__})++instance Data.Default.Class.Default CatchPokemonLogEntry where+        def+          = CatchPokemonLogEntry{_CatchPokemonLogEntry'result =+                                   Data.Default.Class.def,+                                 _CatchPokemonLogEntry'pokemonId = Data.Default.Class.def,+                                 _CatchPokemonLogEntry'combatPoints = Data.ProtoLens.fieldDefault,+                                 _CatchPokemonLogEntry'pokemonDataId = Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message CatchPokemonLogEntry where+        descriptor+          = let result__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "result"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor CatchPokemonLogEntry'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)+                combatPoints__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "combat_points"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional combatPoints)+                pokemonDataId__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "pokemon_data_id"+                      (Data.ProtoLens.UInt64Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional pokemonDataId)+              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, combatPoints__field_descriptor),+                    (Data.ProtoLens.Tag 4, pokemonDataId__field_descriptor)])+                (Data.Map.fromList+                   [("result", result__field_descriptor),+                    ("pokemon_id", pokemonId__field_descriptor),+                    ("combat_points", combatPoints__field_descriptor),+                    ("pokemon_data_id", pokemonDataId__field_descriptor)])++data CatchPokemonLogEntry'Result = CatchPokemonLogEntry'UNSET+                                 | CatchPokemonLogEntry'POKEMON_CAPTURED+                                 | CatchPokemonLogEntry'POKEMON_FLED+                                 deriving (Prelude.Show, Prelude.Eq)++instance Data.Default.Class.Default CatchPokemonLogEntry'Result+         where+        def = CatchPokemonLogEntry'UNSET++instance Data.ProtoLens.FieldDefault CatchPokemonLogEntry'Result+         where+        fieldDefault = CatchPokemonLogEntry'UNSET++instance Data.ProtoLens.MessageEnum CatchPokemonLogEntry'Result+         where+        maybeToEnum 0 = Prelude.Just CatchPokemonLogEntry'UNSET+        maybeToEnum 1 = Prelude.Just CatchPokemonLogEntry'POKEMON_CAPTURED+        maybeToEnum 2 = Prelude.Just CatchPokemonLogEntry'POKEMON_FLED+        maybeToEnum _ = Prelude.Nothing+        showEnum CatchPokemonLogEntry'UNSET = "UNSET"+        showEnum CatchPokemonLogEntry'POKEMON_CAPTURED = "POKEMON_CAPTURED"+        showEnum CatchPokemonLogEntry'POKEMON_FLED = "POKEMON_FLED"+        readEnum "UNSET" = Prelude.Just CatchPokemonLogEntry'UNSET+        readEnum "POKEMON_CAPTURED"+          = Prelude.Just CatchPokemonLogEntry'POKEMON_CAPTURED+        readEnum "POKEMON_FLED"+          = Prelude.Just CatchPokemonLogEntry'POKEMON_FLED+        readEnum _ = Prelude.Nothing++instance Prelude.Enum CatchPokemonLogEntry'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 CatchPokemonLogEntry'UNSET = 0+        fromEnum CatchPokemonLogEntry'POKEMON_CAPTURED = 1+        fromEnum CatchPokemonLogEntry'POKEMON_FLED = 2+        succ CatchPokemonLogEntry'POKEMON_FLED+          = Prelude.error+              "Ident \"CatchPokemonLogEntry'Result\".Ident \"succ\": bad argument Ident \"CatchPokemonLogEntry'POKEMON_FLED\". This value would be out of bounds."+        succ CatchPokemonLogEntry'UNSET+          = CatchPokemonLogEntry'POKEMON_CAPTURED+        succ CatchPokemonLogEntry'POKEMON_CAPTURED+          = CatchPokemonLogEntry'POKEMON_FLED+        pred CatchPokemonLogEntry'UNSET+          = Prelude.error+              "Ident \"CatchPokemonLogEntry'Result\".Ident \"pred\": bad argument Ident \"CatchPokemonLogEntry'UNSET\". This value would be out of bounds."+        pred CatchPokemonLogEntry'POKEMON_CAPTURED+          = CatchPokemonLogEntry'UNSET+        pred CatchPokemonLogEntry'POKEMON_FLED+          = CatchPokemonLogEntry'POKEMON_CAPTURED+        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 CatchPokemonLogEntry'Result where+        minBound = CatchPokemonLogEntry'UNSET+        maxBound = CatchPokemonLogEntry'POKEMON_FLED++combatPoints ::+             forall msg msg' .+               Data.ProtoLens.HasField "combatPoints" msg msg' =>+               Lens.Family2.Lens msg msg'+                 (Data.ProtoLens.Field "combatPoints" msg)+                 (Data.ProtoLens.Field "combatPoints" msg')+combatPoints+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "combatPoints")++pokemonDataId ::+              forall msg msg' .+                Data.ProtoLens.HasField "pokemonDataId" msg msg' =>+                Lens.Family2.Lens msg msg'+                  (Data.ProtoLens.Field "pokemonDataId" msg)+                  (Data.ProtoLens.Field "pokemonDataId" msg')+pokemonDataId+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "pokemonDataId")++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")
+ src/Proto/POGOProtos/Data/Logs/FortSearchLogEntry.hs view
@@ -0,0 +1,185 @@+{- This file was auto-generated from POGOProtos/Data/Logs/FortSearchLogEntry.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Data.Logs.FortSearchLogEntry 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.Inventory.Item.ItemData++data FortSearchLogEntry = FortSearchLogEntry{_FortSearchLogEntry'result+                                             :: FortSearchLogEntry'Result,+                                             _FortSearchLogEntry'fortId :: Data.Text.Text,+                                             _FortSearchLogEntry'items ::+                                             [Proto.POGOProtos.Inventory.Item.ItemData.ItemData],+                                             _FortSearchLogEntry'eggs :: Data.Int.Int32}+                        deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "result" FortSearchLogEntry =+     FortSearchLogEntry'Result++instance Data.ProtoLens.HasField "result" FortSearchLogEntry+         FortSearchLogEntry where+        field _+          = Lens.Family2.Unchecked.lens _FortSearchLogEntry'result+              (\ x__ y__ -> x__{_FortSearchLogEntry'result = y__})++type instance Data.ProtoLens.Field "fortId" FortSearchLogEntry =+     Data.Text.Text++instance Data.ProtoLens.HasField "fortId" FortSearchLogEntry+         FortSearchLogEntry where+        field _+          = Lens.Family2.Unchecked.lens _FortSearchLogEntry'fortId+              (\ x__ y__ -> x__{_FortSearchLogEntry'fortId = y__})++type instance Data.ProtoLens.Field "items" FortSearchLogEntry =+     [Proto.POGOProtos.Inventory.Item.ItemData.ItemData]++instance Data.ProtoLens.HasField "items" FortSearchLogEntry+         FortSearchLogEntry where+        field _+          = Lens.Family2.Unchecked.lens _FortSearchLogEntry'items+              (\ x__ y__ -> x__{_FortSearchLogEntry'items = y__})++type instance Data.ProtoLens.Field "eggs" FortSearchLogEntry =+     Data.Int.Int32++instance Data.ProtoLens.HasField "eggs" FortSearchLogEntry+         FortSearchLogEntry where+        field _+          = Lens.Family2.Unchecked.lens _FortSearchLogEntry'eggs+              (\ x__ y__ -> x__{_FortSearchLogEntry'eggs = y__})++instance Data.Default.Class.Default FortSearchLogEntry where+        def+          = FortSearchLogEntry{_FortSearchLogEntry'result =+                                 Data.Default.Class.def,+                               _FortSearchLogEntry'fortId = Data.ProtoLens.fieldDefault,+                               _FortSearchLogEntry'items = [],+                               _FortSearchLogEntry'eggs = Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message FortSearchLogEntry where+        descriptor+          = let result__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "result"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor FortSearchLogEntry'Result)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional result)+                fortId__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "fort_id"+                      (Data.ProtoLens.StringField ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional fortId)+                items__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "items"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Inventory.Item.ItemData.ItemData)+                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked items)+                eggs__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "eggs"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional eggs)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, result__field_descriptor),+                    (Data.ProtoLens.Tag 2, fortId__field_descriptor),+                    (Data.ProtoLens.Tag 3, items__field_descriptor),+                    (Data.ProtoLens.Tag 4, eggs__field_descriptor)])+                (Data.Map.fromList+                   [("result", result__field_descriptor),+                    ("fort_id", fortId__field_descriptor),+                    ("items", items__field_descriptor),+                    ("eggs", eggs__field_descriptor)])++data FortSearchLogEntry'Result = FortSearchLogEntry'UNSET+                               | FortSearchLogEntry'SUCCESS+                               deriving (Prelude.Show, Prelude.Eq)++instance Data.Default.Class.Default FortSearchLogEntry'Result where+        def = FortSearchLogEntry'UNSET++instance Data.ProtoLens.FieldDefault FortSearchLogEntry'Result+         where+        fieldDefault = FortSearchLogEntry'UNSET++instance Data.ProtoLens.MessageEnum FortSearchLogEntry'Result where+        maybeToEnum 0 = Prelude.Just FortSearchLogEntry'UNSET+        maybeToEnum 1 = Prelude.Just FortSearchLogEntry'SUCCESS+        maybeToEnum _ = Prelude.Nothing+        showEnum FortSearchLogEntry'UNSET = "UNSET"+        showEnum FortSearchLogEntry'SUCCESS = "SUCCESS"+        readEnum "UNSET" = Prelude.Just FortSearchLogEntry'UNSET+        readEnum "SUCCESS" = Prelude.Just FortSearchLogEntry'SUCCESS+        readEnum _ = Prelude.Nothing++instance Prelude.Enum FortSearchLogEntry'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 FortSearchLogEntry'UNSET = 0+        fromEnum FortSearchLogEntry'SUCCESS = 1+        succ FortSearchLogEntry'SUCCESS+          = Prelude.error+              "Ident \"FortSearchLogEntry'Result\".Ident \"succ\": bad argument Ident \"FortSearchLogEntry'SUCCESS\". This value would be out of bounds."+        succ FortSearchLogEntry'UNSET = FortSearchLogEntry'SUCCESS+        pred FortSearchLogEntry'UNSET+          = Prelude.error+              "Ident \"FortSearchLogEntry'Result\".Ident \"pred\": bad argument Ident \"FortSearchLogEntry'UNSET\". This value would be out of bounds."+        pred FortSearchLogEntry'SUCCESS = FortSearchLogEntry'UNSET+        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 FortSearchLogEntry'Result where+        minBound = FortSearchLogEntry'UNSET+        maxBound = FortSearchLogEntry'SUCCESS++eggs ::+     forall msg msg' . Data.ProtoLens.HasField "eggs" msg msg' =>+       Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "eggs" msg)+         (Data.ProtoLens.Field "eggs" msg')+eggs+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "eggs")++fortId ::+       forall msg msg' . Data.ProtoLens.HasField "fortId" msg msg' =>+         Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "fortId" msg)+           (Data.ProtoLens.Field "fortId" msg')+fortId+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "fortId")++items ::+      forall msg msg' . Data.ProtoLens.HasField "items" msg msg' =>+        Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "items" msg)+          (Data.ProtoLens.Field "items" msg')+items+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "items")++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")
+ src/Proto/POGOProtos/Data/Player/ContactSettings.hs view
@@ -0,0 +1,95 @@+{- This file was auto-generated from POGOProtos/Data/Player/ContactSettings.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Data.Player.ContactSettings 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 ContactSettings = ContactSettings{_ContactSettings'sendMarketingEmails+                                       :: Prelude.Bool,+                                       _ContactSettings'sendPushNotifications :: Prelude.Bool}+                     deriving (Prelude.Show, Prelude.Eq)++type instance+     Data.ProtoLens.Field "sendMarketingEmails" ContactSettings =+     Prelude.Bool++instance Data.ProtoLens.HasField "sendMarketingEmails"+         ContactSettings ContactSettings where+        field _+          = Lens.Family2.Unchecked.lens _ContactSettings'sendMarketingEmails+              (\ x__ y__ -> x__{_ContactSettings'sendMarketingEmails = y__})++type instance+     Data.ProtoLens.Field "sendPushNotifications" ContactSettings =+     Prelude.Bool++instance Data.ProtoLens.HasField "sendPushNotifications"+         ContactSettings ContactSettings where+        field _+          = Lens.Family2.Unchecked.lens+              _ContactSettings'sendPushNotifications+              (\ x__ y__ -> x__{_ContactSettings'sendPushNotifications = y__})++instance Data.Default.Class.Default ContactSettings where+        def+          = ContactSettings{_ContactSettings'sendMarketingEmails =+                              Data.ProtoLens.fieldDefault,+                            _ContactSettings'sendPushNotifications =+                              Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message ContactSettings where+        descriptor+          = let sendMarketingEmails__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "send_marketing_emails"+                      (Data.ProtoLens.BoolField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         sendMarketingEmails)+                sendPushNotifications__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "send_push_notifications"+                      (Data.ProtoLens.BoolField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         sendPushNotifications)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, sendMarketingEmails__field_descriptor),+                    (Data.ProtoLens.Tag 2, sendPushNotifications__field_descriptor)])+                (Data.Map.fromList+                   [("send_marketing_emails", sendMarketingEmails__field_descriptor),+                    ("send_push_notifications",+                     sendPushNotifications__field_descriptor)])++sendMarketingEmails ::+                    forall msg msg' .+                      Data.ProtoLens.HasField "sendMarketingEmails" msg msg' =>+                      Lens.Family2.Lens msg msg'+                        (Data.ProtoLens.Field "sendMarketingEmails" msg)+                        (Data.ProtoLens.Field "sendMarketingEmails" msg')+sendMarketingEmails+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "sendMarketingEmails")++sendPushNotifications ::+                      forall msg msg' .+                        Data.ProtoLens.HasField "sendPushNotifications" msg msg' =>+                        Lens.Family2.Lens msg msg'+                          (Data.ProtoLens.Field "sendPushNotifications" msg)+                          (Data.ProtoLens.Field "sendPushNotifications" msg')+sendPushNotifications+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "sendPushNotifications")
+ src/Proto/POGOProtos/Data/Player/Currency.hs view
@@ -0,0 +1,77 @@+{- This file was auto-generated from POGOProtos/Data/Player/Currency.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Data.Player.Currency 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 Currency = Currency{_Currency'name :: Data.Text.Text,+                         _Currency'amount :: Data.Int.Int32}+              deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "name" Currency = Data.Text.Text++instance Data.ProtoLens.HasField "name" Currency Currency where+        field _+          = Lens.Family2.Unchecked.lens _Currency'name+              (\ x__ y__ -> x__{_Currency'name = y__})++type instance Data.ProtoLens.Field "amount" Currency =+     Data.Int.Int32++instance Data.ProtoLens.HasField "amount" Currency Currency where+        field _+          = Lens.Family2.Unchecked.lens _Currency'amount+              (\ x__ y__ -> x__{_Currency'amount = y__})++instance Data.Default.Class.Default Currency where+        def+          = Currency{_Currency'name = Data.ProtoLens.fieldDefault,+                     _Currency'amount = Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message Currency where+        descriptor+          = let name__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "name"+                      (Data.ProtoLens.StringField ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional name)+                amount__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "amount"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional amount)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, name__field_descriptor),+                    (Data.ProtoLens.Tag 2, amount__field_descriptor)])+                (Data.Map.fromList+                   [("name", name__field_descriptor),+                    ("amount", amount__field_descriptor)])++amount ::+       forall msg msg' . Data.ProtoLens.HasField "amount" msg msg' =>+         Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "amount" msg)+           (Data.ProtoLens.Field "amount" msg')+amount+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "amount")++name ::+     forall msg msg' . Data.ProtoLens.HasField "name" msg msg' =>+       Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "name" msg)+         (Data.ProtoLens.Field "name" msg')+name+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "name")
+ src/Proto/POGOProtos/Data/Player/DailyBonus.hs view
@@ -0,0 +1,104 @@+{- This file was auto-generated from POGOProtos/Data/Player/DailyBonus.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Data.Player.DailyBonus 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 DailyBonus = DailyBonus{_DailyBonus'nextCollectedTimestampMs+                             :: Data.Int.Int64,+                             _DailyBonus'nextDefenderBonusCollectTimestampMs :: Data.Int.Int64}+                deriving (Prelude.Show, Prelude.Eq)++type instance+     Data.ProtoLens.Field "nextCollectedTimestampMs" DailyBonus =+     Data.Int.Int64++instance Data.ProtoLens.HasField "nextCollectedTimestampMs"+         DailyBonus DailyBonus where+        field _+          = Lens.Family2.Unchecked.lens _DailyBonus'nextCollectedTimestampMs+              (\ x__ y__ -> x__{_DailyBonus'nextCollectedTimestampMs = y__})++type instance+     Data.ProtoLens.Field "nextDefenderBonusCollectTimestampMs"+       DailyBonus+     = Data.Int.Int64++instance Data.ProtoLens.HasField+         "nextDefenderBonusCollectTimestampMs" DailyBonus DailyBonus where+        field _+          = Lens.Family2.Unchecked.lens+              _DailyBonus'nextDefenderBonusCollectTimestampMs+              (\ x__ y__ ->+                 x__{_DailyBonus'nextDefenderBonusCollectTimestampMs = y__})++instance Data.Default.Class.Default DailyBonus where+        def+          = DailyBonus{_DailyBonus'nextCollectedTimestampMs =+                         Data.ProtoLens.fieldDefault,+                       _DailyBonus'nextDefenderBonusCollectTimestampMs =+                         Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message DailyBonus where+        descriptor+          = let nextCollectedTimestampMs__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "next_collected_timestamp_ms"+                      (Data.ProtoLens.Int64Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         nextCollectedTimestampMs)+                nextDefenderBonusCollectTimestampMs__field_descriptor+                  = Data.ProtoLens.FieldDescriptor+                      "next_defender_bonus_collect_timestamp_ms"+                      (Data.ProtoLens.Int64Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         nextDefenderBonusCollectTimestampMs)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1,+                     nextCollectedTimestampMs__field_descriptor),+                    (Data.ProtoLens.Tag 2,+                     nextDefenderBonusCollectTimestampMs__field_descriptor)])+                (Data.Map.fromList+                   [("next_collected_timestamp_ms",+                     nextCollectedTimestampMs__field_descriptor),+                    ("next_defender_bonus_collect_timestamp_ms",+                     nextDefenderBonusCollectTimestampMs__field_descriptor)])++nextCollectedTimestampMs ::+                         forall msg msg' .+                           Data.ProtoLens.HasField "nextCollectedTimestampMs" msg msg' =>+                           Lens.Family2.Lens msg msg'+                             (Data.ProtoLens.Field "nextCollectedTimestampMs" msg)+                             (Data.ProtoLens.Field "nextCollectedTimestampMs" msg')+nextCollectedTimestampMs+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "nextCollectedTimestampMs")++nextDefenderBonusCollectTimestampMs ::+                                    forall msg msg' .+                                      Data.ProtoLens.HasField "nextDefenderBonusCollectTimestampMs"+                                        msg msg' =>+                                      Lens.Family2.Lens msg msg'+                                        (Data.ProtoLens.Field "nextDefenderBonusCollectTimestampMs"+                                           msg)+                                        (Data.ProtoLens.Field "nextDefenderBonusCollectTimestampMs"+                                           msg')+nextDefenderBonusCollectTimestampMs+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "nextDefenderBonusCollectTimestampMs")
+ src/Proto/POGOProtos/Data/Player/EquippedBadge.hs view
@@ -0,0 +1,125 @@+{- This file was auto-generated from POGOProtos/Data/Player/EquippedBadge.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Data.Player.EquippedBadge 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.BadgeType++data EquippedBadge = EquippedBadge{_EquippedBadge'badgeType ::+                                   Proto.POGOProtos.Enums.BadgeType.BadgeType,+                                   _EquippedBadge'level :: Data.Int.Int32,+                                   _EquippedBadge'nextEquipChangeAllowedTimestampMs ::+                                   Data.Int.Int64}+                   deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "badgeType" EquippedBadge =+     Proto.POGOProtos.Enums.BadgeType.BadgeType++instance Data.ProtoLens.HasField "badgeType" EquippedBadge+         EquippedBadge where+        field _+          = Lens.Family2.Unchecked.lens _EquippedBadge'badgeType+              (\ x__ y__ -> x__{_EquippedBadge'badgeType = y__})++type instance Data.ProtoLens.Field "level" EquippedBadge =+     Data.Int.Int32++instance Data.ProtoLens.HasField "level" EquippedBadge+         EquippedBadge where+        field _+          = Lens.Family2.Unchecked.lens _EquippedBadge'level+              (\ x__ y__ -> x__{_EquippedBadge'level = y__})++type instance+     Data.ProtoLens.Field "nextEquipChangeAllowedTimestampMs"+       EquippedBadge+     = Data.Int.Int64++instance Data.ProtoLens.HasField+         "nextEquipChangeAllowedTimestampMs" EquippedBadge EquippedBadge+         where+        field _+          = Lens.Family2.Unchecked.lens+              _EquippedBadge'nextEquipChangeAllowedTimestampMs+              (\ x__ y__ ->+                 x__{_EquippedBadge'nextEquipChangeAllowedTimestampMs = y__})++instance Data.Default.Class.Default EquippedBadge where+        def+          = EquippedBadge{_EquippedBadge'badgeType = Data.Default.Class.def,+                          _EquippedBadge'level = Data.ProtoLens.fieldDefault,+                          _EquippedBadge'nextEquipChangeAllowedTimestampMs =+                            Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message EquippedBadge where+        descriptor+          = let badgeType__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "badge_type"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Enums.BadgeType.BadgeType)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional badgeType)+                level__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "level"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional level)+                nextEquipChangeAllowedTimestampMs__field_descriptor+                  = Data.ProtoLens.FieldDescriptor+                      "next_equip_change_allowed_timestamp_ms"+                      (Data.ProtoLens.Int64Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         nextEquipChangeAllowedTimestampMs)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, badgeType__field_descriptor),+                    (Data.ProtoLens.Tag 2, level__field_descriptor),+                    (Data.ProtoLens.Tag 3,+                     nextEquipChangeAllowedTimestampMs__field_descriptor)])+                (Data.Map.fromList+                   [("badge_type", badgeType__field_descriptor),+                    ("level", level__field_descriptor),+                    ("next_equip_change_allowed_timestamp_ms",+                     nextEquipChangeAllowedTimestampMs__field_descriptor)])++badgeType ::+          forall msg msg' . Data.ProtoLens.HasField "badgeType" msg msg' =>+            Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "badgeType" msg)+              (Data.ProtoLens.Field "badgeType" msg')+badgeType+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "badgeType")++level ::+      forall msg msg' . Data.ProtoLens.HasField "level" msg msg' =>+        Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "level" msg)+          (Data.ProtoLens.Field "level" msg')+level+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "level")++nextEquipChangeAllowedTimestampMs ::+                                  forall msg msg' .+                                    Data.ProtoLens.HasField "nextEquipChangeAllowedTimestampMs" msg+                                      msg' =>+                                    Lens.Family2.Lens msg msg'+                                      (Data.ProtoLens.Field "nextEquipChangeAllowedTimestampMs" msg)+                                      (Data.ProtoLens.Field "nextEquipChangeAllowedTimestampMs"+                                         msg')+nextEquipChangeAllowedTimestampMs+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "nextEquipChangeAllowedTimestampMs")
+ src/Proto/POGOProtos/Data/Player/PlayerAvatar.hs view
@@ -0,0 +1,264 @@+{- This file was auto-generated from POGOProtos/Data/Player/PlayerAvatar.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Data.Player.PlayerAvatar 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.Gender++data PlayerAvatar = PlayerAvatar{_PlayerAvatar'skin ::+                                 Data.Int.Int32,+                                 _PlayerAvatar'hair :: Data.Int.Int32,+                                 _PlayerAvatar'shirt :: Data.Int.Int32,+                                 _PlayerAvatar'pants :: Data.Int.Int32,+                                 _PlayerAvatar'hat :: Data.Int.Int32,+                                 _PlayerAvatar'shoes :: Data.Int.Int32,+                                 _PlayerAvatar'gender :: Proto.POGOProtos.Enums.Gender.Gender,+                                 _PlayerAvatar'eyes :: Data.Int.Int32,+                                 _PlayerAvatar'backpack :: Data.Int.Int32}+                  deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "skin" PlayerAvatar =+     Data.Int.Int32++instance Data.ProtoLens.HasField "skin" PlayerAvatar PlayerAvatar+         where+        field _+          = Lens.Family2.Unchecked.lens _PlayerAvatar'skin+              (\ x__ y__ -> x__{_PlayerAvatar'skin = y__})++type instance Data.ProtoLens.Field "hair" PlayerAvatar =+     Data.Int.Int32++instance Data.ProtoLens.HasField "hair" PlayerAvatar PlayerAvatar+         where+        field _+          = Lens.Family2.Unchecked.lens _PlayerAvatar'hair+              (\ x__ y__ -> x__{_PlayerAvatar'hair = y__})++type instance Data.ProtoLens.Field "shirt" PlayerAvatar =+     Data.Int.Int32++instance Data.ProtoLens.HasField "shirt" PlayerAvatar PlayerAvatar+         where+        field _+          = Lens.Family2.Unchecked.lens _PlayerAvatar'shirt+              (\ x__ y__ -> x__{_PlayerAvatar'shirt = y__})++type instance Data.ProtoLens.Field "pants" PlayerAvatar =+     Data.Int.Int32++instance Data.ProtoLens.HasField "pants" PlayerAvatar PlayerAvatar+         where+        field _+          = Lens.Family2.Unchecked.lens _PlayerAvatar'pants+              (\ x__ y__ -> x__{_PlayerAvatar'pants = y__})++type instance Data.ProtoLens.Field "hat" PlayerAvatar =+     Data.Int.Int32++instance Data.ProtoLens.HasField "hat" PlayerAvatar PlayerAvatar+         where+        field _+          = Lens.Family2.Unchecked.lens _PlayerAvatar'hat+              (\ x__ y__ -> x__{_PlayerAvatar'hat = y__})++type instance Data.ProtoLens.Field "shoes" PlayerAvatar =+     Data.Int.Int32++instance Data.ProtoLens.HasField "shoes" PlayerAvatar PlayerAvatar+         where+        field _+          = Lens.Family2.Unchecked.lens _PlayerAvatar'shoes+              (\ x__ y__ -> x__{_PlayerAvatar'shoes = y__})++type instance Data.ProtoLens.Field "gender" PlayerAvatar =+     Proto.POGOProtos.Enums.Gender.Gender++instance Data.ProtoLens.HasField "gender" PlayerAvatar PlayerAvatar+         where+        field _+          = Lens.Family2.Unchecked.lens _PlayerAvatar'gender+              (\ x__ y__ -> x__{_PlayerAvatar'gender = y__})++type instance Data.ProtoLens.Field "eyes" PlayerAvatar =+     Data.Int.Int32++instance Data.ProtoLens.HasField "eyes" PlayerAvatar PlayerAvatar+         where+        field _+          = Lens.Family2.Unchecked.lens _PlayerAvatar'eyes+              (\ x__ y__ -> x__{_PlayerAvatar'eyes = y__})++type instance Data.ProtoLens.Field "backpack" PlayerAvatar =+     Data.Int.Int32++instance Data.ProtoLens.HasField "backpack" PlayerAvatar+         PlayerAvatar where+        field _+          = Lens.Family2.Unchecked.lens _PlayerAvatar'backpack+              (\ x__ y__ -> x__{_PlayerAvatar'backpack = y__})++instance Data.Default.Class.Default PlayerAvatar where+        def+          = PlayerAvatar{_PlayerAvatar'skin = Data.ProtoLens.fieldDefault,+                         _PlayerAvatar'hair = Data.ProtoLens.fieldDefault,+                         _PlayerAvatar'shirt = Data.ProtoLens.fieldDefault,+                         _PlayerAvatar'pants = Data.ProtoLens.fieldDefault,+                         _PlayerAvatar'hat = Data.ProtoLens.fieldDefault,+                         _PlayerAvatar'shoes = Data.ProtoLens.fieldDefault,+                         _PlayerAvatar'gender = Data.Default.Class.def,+                         _PlayerAvatar'eyes = Data.ProtoLens.fieldDefault,+                         _PlayerAvatar'backpack = Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message PlayerAvatar where+        descriptor+          = let skin__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "skin"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional skin)+                hair__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "hair"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional hair)+                shirt__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "shirt"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional shirt)+                pants__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "pants"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional pants)+                hat__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "hat"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional hat)+                shoes__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "shoes"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional shoes)+                gender__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "gender"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Enums.Gender.Gender)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional gender)+                eyes__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "eyes"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional eyes)+                backpack__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "backpack"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional backpack)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 2, skin__field_descriptor),+                    (Data.ProtoLens.Tag 3, hair__field_descriptor),+                    (Data.ProtoLens.Tag 4, shirt__field_descriptor),+                    (Data.ProtoLens.Tag 5, pants__field_descriptor),+                    (Data.ProtoLens.Tag 6, hat__field_descriptor),+                    (Data.ProtoLens.Tag 7, shoes__field_descriptor),+                    (Data.ProtoLens.Tag 8, gender__field_descriptor),+                    (Data.ProtoLens.Tag 9, eyes__field_descriptor),+                    (Data.ProtoLens.Tag 10, backpack__field_descriptor)])+                (Data.Map.fromList+                   [("skin", skin__field_descriptor),+                    ("hair", hair__field_descriptor),+                    ("shirt", shirt__field_descriptor),+                    ("pants", pants__field_descriptor), ("hat", hat__field_descriptor),+                    ("shoes", shoes__field_descriptor),+                    ("gender", gender__field_descriptor),+                    ("eyes", eyes__field_descriptor),+                    ("backpack", backpack__field_descriptor)])++backpack ::+         forall msg msg' . Data.ProtoLens.HasField "backpack" msg msg' =>+           Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "backpack" msg)+             (Data.ProtoLens.Field "backpack" msg')+backpack+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "backpack")++eyes ::+     forall msg msg' . Data.ProtoLens.HasField "eyes" msg msg' =>+       Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "eyes" msg)+         (Data.ProtoLens.Field "eyes" msg')+eyes+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "eyes")++gender ::+       forall msg msg' . Data.ProtoLens.HasField "gender" msg msg' =>+         Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "gender" msg)+           (Data.ProtoLens.Field "gender" msg')+gender+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "gender")++hair ::+     forall msg msg' . Data.ProtoLens.HasField "hair" msg msg' =>+       Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "hair" msg)+         (Data.ProtoLens.Field "hair" msg')+hair+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "hair")++hat ::+    forall msg msg' . Data.ProtoLens.HasField "hat" msg msg' =>+      Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "hat" msg)+        (Data.ProtoLens.Field "hat" msg')+hat+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "hat")++pants ::+      forall msg msg' . Data.ProtoLens.HasField "pants" msg msg' =>+        Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "pants" msg)+          (Data.ProtoLens.Field "pants" msg')+pants+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "pants")++shirt ::+      forall msg msg' . Data.ProtoLens.HasField "shirt" msg msg' =>+        Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "shirt" msg)+          (Data.ProtoLens.Field "shirt" msg')+shirt+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "shirt")++shoes ::+      forall msg msg' . Data.ProtoLens.HasField "shoes" msg msg' =>+        Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "shoes" msg)+          (Data.ProtoLens.Field "shoes" msg')+shoes+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "shoes")++skin ::+     forall msg msg' . Data.ProtoLens.HasField "skin" msg msg' =>+       Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "skin" msg)+         (Data.ProtoLens.Field "skin" msg')+skin+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "skin")
+ src/Proto/POGOProtos/Data/Player/PlayerCamera.hs view
@@ -0,0 +1,59 @@+{- This file was auto-generated from POGOProtos/Data/Player/PlayerCamera.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Data.Player.PlayerCamera 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 PlayerCamera = PlayerCamera{_PlayerCamera'isDefaultCamera ::+                                 Prelude.Bool}+                  deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "isDefaultCamera" PlayerCamera =+     Prelude.Bool++instance Data.ProtoLens.HasField "isDefaultCamera" PlayerCamera+         PlayerCamera where+        field _+          = Lens.Family2.Unchecked.lens _PlayerCamera'isDefaultCamera+              (\ x__ y__ -> x__{_PlayerCamera'isDefaultCamera = y__})++instance Data.Default.Class.Default PlayerCamera where+        def+          = PlayerCamera{_PlayerCamera'isDefaultCamera =+                           Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message PlayerCamera where+        descriptor+          = let isDefaultCamera__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "is_default_camera"+                      (Data.ProtoLens.BoolField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional isDefaultCamera)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, isDefaultCamera__field_descriptor)])+                (Data.Map.fromList+                   [("is_default_camera", isDefaultCamera__field_descriptor)])++isDefaultCamera ::+                forall msg msg' .+                  Data.ProtoLens.HasField "isDefaultCamera" msg msg' =>+                  Lens.Family2.Lens msg msg'+                    (Data.ProtoLens.Field "isDefaultCamera" msg)+                    (Data.ProtoLens.Field "isDefaultCamera" msg')+isDefaultCamera+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "isDefaultCamera")
+ src/Proto/POGOProtos/Data/Player/PlayerCurrency.hs view
@@ -0,0 +1,55 @@+{- This file was auto-generated from POGOProtos/Data/Player/PlayerCurrency.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Data.Player.PlayerCurrency 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 PlayerCurrency = PlayerCurrency{_PlayerCurrency'gems ::+                                     Data.Int.Int32}+                    deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "gems" PlayerCurrency =+     Data.Int.Int32++instance Data.ProtoLens.HasField "gems" PlayerCurrency+         PlayerCurrency where+        field _+          = Lens.Family2.Unchecked.lens _PlayerCurrency'gems+              (\ x__ y__ -> x__{_PlayerCurrency'gems = y__})++instance Data.Default.Class.Default PlayerCurrency where+        def+          = PlayerCurrency{_PlayerCurrency'gems =+                             Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message PlayerCurrency where+        descriptor+          = let gems__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "gems"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional gems)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, gems__field_descriptor)])+                (Data.Map.fromList [("gems", gems__field_descriptor)])++gems ::+     forall msg msg' . Data.ProtoLens.HasField "gems" msg msg' =>+       Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "gems" msg)+         (Data.ProtoLens.Field "gems" msg')+gems+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "gems")
+ src/Proto/POGOProtos/Data/Player/PlayerPublicProfile.hs view
@@ -0,0 +1,133 @@+{- This file was auto-generated from POGOProtos/Data/Player/PlayerPublicProfile.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Data.Player.PlayerPublicProfile 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.Player.PlayerAvatar++data PlayerPublicProfile = PlayerPublicProfile{_PlayerPublicProfile'name+                                               :: Data.Text.Text,+                                               _PlayerPublicProfile'level :: Data.Int.Int32,+                                               _PlayerPublicProfile'avatar ::+                                               Prelude.Maybe+                                                 Proto.POGOProtos.Data.Player.PlayerAvatar.PlayerAvatar}+                         deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "name" PlayerPublicProfile =+     Data.Text.Text++instance Data.ProtoLens.HasField "name" PlayerPublicProfile+         PlayerPublicProfile where+        field _+          = Lens.Family2.Unchecked.lens _PlayerPublicProfile'name+              (\ x__ y__ -> x__{_PlayerPublicProfile'name = y__})++type instance Data.ProtoLens.Field "level" PlayerPublicProfile =+     Data.Int.Int32++instance Data.ProtoLens.HasField "level" PlayerPublicProfile+         PlayerPublicProfile where+        field _+          = Lens.Family2.Unchecked.lens _PlayerPublicProfile'level+              (\ x__ y__ -> x__{_PlayerPublicProfile'level = y__})++type instance Data.ProtoLens.Field "avatar" PlayerPublicProfile =+     Proto.POGOProtos.Data.Player.PlayerAvatar.PlayerAvatar++instance Data.ProtoLens.HasField "avatar" PlayerPublicProfile+         PlayerPublicProfile where+        field _+          = (Prelude..) maybe'avatar+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance+     Data.ProtoLens.Field "maybe'avatar" PlayerPublicProfile =+     Prelude.Maybe+       Proto.POGOProtos.Data.Player.PlayerAvatar.PlayerAvatar++instance Data.ProtoLens.HasField "maybe'avatar" PlayerPublicProfile+         PlayerPublicProfile where+        field _+          = Lens.Family2.Unchecked.lens _PlayerPublicProfile'avatar+              (\ x__ y__ -> x__{_PlayerPublicProfile'avatar = y__})++instance Data.Default.Class.Default PlayerPublicProfile where+        def+          = PlayerPublicProfile{_PlayerPublicProfile'name =+                                  Data.ProtoLens.fieldDefault,+                                _PlayerPublicProfile'level = Data.ProtoLens.fieldDefault,+                                _PlayerPublicProfile'avatar = Prelude.Nothing}++instance Data.ProtoLens.Message PlayerPublicProfile where+        descriptor+          = let name__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "name"+                      (Data.ProtoLens.StringField ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional name)+                level__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "level"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional level)+                avatar__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "avatar"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Data.Player.PlayerAvatar.PlayerAvatar)+                      (Data.ProtoLens.OptionalField maybe'avatar)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, name__field_descriptor),+                    (Data.ProtoLens.Tag 2, level__field_descriptor),+                    (Data.ProtoLens.Tag 3, avatar__field_descriptor)])+                (Data.Map.fromList+                   [("name", name__field_descriptor),+                    ("level", level__field_descriptor),+                    ("avatar", avatar__field_descriptor)])++avatar ::+       forall msg msg' . Data.ProtoLens.HasField "avatar" msg msg' =>+         Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "avatar" msg)+           (Data.ProtoLens.Field "avatar" msg')+avatar+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "avatar")++level ::+      forall msg msg' . Data.ProtoLens.HasField "level" msg msg' =>+        Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "level" msg)+          (Data.ProtoLens.Field "level" msg')+level+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "level")++maybe'avatar ::+             forall msg msg' .+               Data.ProtoLens.HasField "maybe'avatar" msg msg' =>+               Lens.Family2.Lens msg msg'+                 (Data.ProtoLens.Field "maybe'avatar" msg)+                 (Data.ProtoLens.Field "maybe'avatar" msg')+maybe'avatar+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "maybe'avatar")++name ::+     forall msg msg' . Data.ProtoLens.HasField "name" msg msg' =>+       Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "name" msg)+         (Data.ProtoLens.Field "name" msg')+name+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "name")
+ src/Proto/POGOProtos/Data/Player/PlayerStats.hs view
@@ -0,0 +1,693 @@+{- This file was auto-generated from POGOProtos/Data/Player/PlayerStats.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Data.Player.PlayerStats 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 PlayerStats = PlayerStats{_PlayerStats'level ::+                               Data.Int.Int32,+                               _PlayerStats'experience :: Data.Int.Int64,+                               _PlayerStats'prevLevelXp :: Data.Int.Int64,+                               _PlayerStats'nextLevelXp :: Data.Int.Int64,+                               _PlayerStats'kmWalked :: Prelude.Float,+                               _PlayerStats'pokemonsEncountered :: Data.Int.Int32,+                               _PlayerStats'uniquePokedexEntries :: Data.Int.Int32,+                               _PlayerStats'pokemonsCaptured :: Data.Int.Int32,+                               _PlayerStats'evolutions :: Data.Int.Int32,+                               _PlayerStats'pokeStopVisits :: Data.Int.Int32,+                               _PlayerStats'pokeballsThrown :: Data.Int.Int32,+                               _PlayerStats'eggsHatched :: Data.Int.Int32,+                               _PlayerStats'bigMagikarpCaught :: Data.Int.Int32,+                               _PlayerStats'battleAttackWon :: Data.Int.Int32,+                               _PlayerStats'battleAttackTotal :: Data.Int.Int32,+                               _PlayerStats'battleDefendedWon :: Data.Int.Int32,+                               _PlayerStats'battleTrainingWon :: Data.Int.Int32,+                               _PlayerStats'battleTrainingTotal :: Data.Int.Int32,+                               _PlayerStats'prestigeRaisedTotal :: Data.Int.Int32,+                               _PlayerStats'prestigeDroppedTotal :: Data.Int.Int32,+                               _PlayerStats'pokemonDeployed :: Data.Int.Int32,+                               _PlayerStats'pokemonCaughtByType :: Data.ByteString.ByteString,+                               _PlayerStats'smallRattataCaught :: Data.Int.Int32}+                 deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "level" PlayerStats =+     Data.Int.Int32++instance Data.ProtoLens.HasField "level" PlayerStats PlayerStats+         where+        field _+          = Lens.Family2.Unchecked.lens _PlayerStats'level+              (\ x__ y__ -> x__{_PlayerStats'level = y__})++type instance Data.ProtoLens.Field "experience" PlayerStats =+     Data.Int.Int64++instance Data.ProtoLens.HasField "experience" PlayerStats+         PlayerStats where+        field _+          = Lens.Family2.Unchecked.lens _PlayerStats'experience+              (\ x__ y__ -> x__{_PlayerStats'experience = y__})++type instance Data.ProtoLens.Field "prevLevelXp" PlayerStats =+     Data.Int.Int64++instance Data.ProtoLens.HasField "prevLevelXp" PlayerStats+         PlayerStats where+        field _+          = Lens.Family2.Unchecked.lens _PlayerStats'prevLevelXp+              (\ x__ y__ -> x__{_PlayerStats'prevLevelXp = y__})++type instance Data.ProtoLens.Field "nextLevelXp" PlayerStats =+     Data.Int.Int64++instance Data.ProtoLens.HasField "nextLevelXp" PlayerStats+         PlayerStats where+        field _+          = Lens.Family2.Unchecked.lens _PlayerStats'nextLevelXp+              (\ x__ y__ -> x__{_PlayerStats'nextLevelXp = y__})++type instance Data.ProtoLens.Field "kmWalked" PlayerStats =+     Prelude.Float++instance Data.ProtoLens.HasField "kmWalked" PlayerStats PlayerStats+         where+        field _+          = Lens.Family2.Unchecked.lens _PlayerStats'kmWalked+              (\ x__ y__ -> x__{_PlayerStats'kmWalked = y__})++type instance+     Data.ProtoLens.Field "pokemonsEncountered" PlayerStats =+     Data.Int.Int32++instance Data.ProtoLens.HasField "pokemonsEncountered" PlayerStats+         PlayerStats where+        field _+          = Lens.Family2.Unchecked.lens _PlayerStats'pokemonsEncountered+              (\ x__ y__ -> x__{_PlayerStats'pokemonsEncountered = y__})++type instance+     Data.ProtoLens.Field "uniquePokedexEntries" PlayerStats =+     Data.Int.Int32++instance Data.ProtoLens.HasField "uniquePokedexEntries" PlayerStats+         PlayerStats where+        field _+          = Lens.Family2.Unchecked.lens _PlayerStats'uniquePokedexEntries+              (\ x__ y__ -> x__{_PlayerStats'uniquePokedexEntries = y__})++type instance Data.ProtoLens.Field "pokemonsCaptured" PlayerStats =+     Data.Int.Int32++instance Data.ProtoLens.HasField "pokemonsCaptured" PlayerStats+         PlayerStats where+        field _+          = Lens.Family2.Unchecked.lens _PlayerStats'pokemonsCaptured+              (\ x__ y__ -> x__{_PlayerStats'pokemonsCaptured = y__})++type instance Data.ProtoLens.Field "evolutions" PlayerStats =+     Data.Int.Int32++instance Data.ProtoLens.HasField "evolutions" PlayerStats+         PlayerStats where+        field _+          = Lens.Family2.Unchecked.lens _PlayerStats'evolutions+              (\ x__ y__ -> x__{_PlayerStats'evolutions = y__})++type instance Data.ProtoLens.Field "pokeStopVisits" PlayerStats =+     Data.Int.Int32++instance Data.ProtoLens.HasField "pokeStopVisits" PlayerStats+         PlayerStats where+        field _+          = Lens.Family2.Unchecked.lens _PlayerStats'pokeStopVisits+              (\ x__ y__ -> x__{_PlayerStats'pokeStopVisits = y__})++type instance Data.ProtoLens.Field "pokeballsThrown" PlayerStats =+     Data.Int.Int32++instance Data.ProtoLens.HasField "pokeballsThrown" PlayerStats+         PlayerStats where+        field _+          = Lens.Family2.Unchecked.lens _PlayerStats'pokeballsThrown+              (\ x__ y__ -> x__{_PlayerStats'pokeballsThrown = y__})++type instance Data.ProtoLens.Field "eggsHatched" PlayerStats =+     Data.Int.Int32++instance Data.ProtoLens.HasField "eggsHatched" PlayerStats+         PlayerStats where+        field _+          = Lens.Family2.Unchecked.lens _PlayerStats'eggsHatched+              (\ x__ y__ -> x__{_PlayerStats'eggsHatched = y__})++type instance Data.ProtoLens.Field "bigMagikarpCaught" PlayerStats+     = Data.Int.Int32++instance Data.ProtoLens.HasField "bigMagikarpCaught" PlayerStats+         PlayerStats where+        field _+          = Lens.Family2.Unchecked.lens _PlayerStats'bigMagikarpCaught+              (\ x__ y__ -> x__{_PlayerStats'bigMagikarpCaught = y__})++type instance Data.ProtoLens.Field "battleAttackWon" PlayerStats =+     Data.Int.Int32++instance Data.ProtoLens.HasField "battleAttackWon" PlayerStats+         PlayerStats where+        field _+          = Lens.Family2.Unchecked.lens _PlayerStats'battleAttackWon+              (\ x__ y__ -> x__{_PlayerStats'battleAttackWon = y__})++type instance Data.ProtoLens.Field "battleAttackTotal" PlayerStats+     = Data.Int.Int32++instance Data.ProtoLens.HasField "battleAttackTotal" PlayerStats+         PlayerStats where+        field _+          = Lens.Family2.Unchecked.lens _PlayerStats'battleAttackTotal+              (\ x__ y__ -> x__{_PlayerStats'battleAttackTotal = y__})++type instance Data.ProtoLens.Field "battleDefendedWon" PlayerStats+     = Data.Int.Int32++instance Data.ProtoLens.HasField "battleDefendedWon" PlayerStats+         PlayerStats where+        field _+          = Lens.Family2.Unchecked.lens _PlayerStats'battleDefendedWon+              (\ x__ y__ -> x__{_PlayerStats'battleDefendedWon = y__})++type instance Data.ProtoLens.Field "battleTrainingWon" PlayerStats+     = Data.Int.Int32++instance Data.ProtoLens.HasField "battleTrainingWon" PlayerStats+         PlayerStats where+        field _+          = Lens.Family2.Unchecked.lens _PlayerStats'battleTrainingWon+              (\ x__ y__ -> x__{_PlayerStats'battleTrainingWon = y__})++type instance+     Data.ProtoLens.Field "battleTrainingTotal" PlayerStats =+     Data.Int.Int32++instance Data.ProtoLens.HasField "battleTrainingTotal" PlayerStats+         PlayerStats where+        field _+          = Lens.Family2.Unchecked.lens _PlayerStats'battleTrainingTotal+              (\ x__ y__ -> x__{_PlayerStats'battleTrainingTotal = y__})++type instance+     Data.ProtoLens.Field "prestigeRaisedTotal" PlayerStats =+     Data.Int.Int32++instance Data.ProtoLens.HasField "prestigeRaisedTotal" PlayerStats+         PlayerStats where+        field _+          = Lens.Family2.Unchecked.lens _PlayerStats'prestigeRaisedTotal+              (\ x__ y__ -> x__{_PlayerStats'prestigeRaisedTotal = y__})++type instance+     Data.ProtoLens.Field "prestigeDroppedTotal" PlayerStats =+     Data.Int.Int32++instance Data.ProtoLens.HasField "prestigeDroppedTotal" PlayerStats+         PlayerStats where+        field _+          = Lens.Family2.Unchecked.lens _PlayerStats'prestigeDroppedTotal+              (\ x__ y__ -> x__{_PlayerStats'prestigeDroppedTotal = y__})++type instance Data.ProtoLens.Field "pokemonDeployed" PlayerStats =+     Data.Int.Int32++instance Data.ProtoLens.HasField "pokemonDeployed" PlayerStats+         PlayerStats where+        field _+          = Lens.Family2.Unchecked.lens _PlayerStats'pokemonDeployed+              (\ x__ y__ -> x__{_PlayerStats'pokemonDeployed = y__})++type instance+     Data.ProtoLens.Field "pokemonCaughtByType" PlayerStats =+     Data.ByteString.ByteString++instance Data.ProtoLens.HasField "pokemonCaughtByType" PlayerStats+         PlayerStats where+        field _+          = Lens.Family2.Unchecked.lens _PlayerStats'pokemonCaughtByType+              (\ x__ y__ -> x__{_PlayerStats'pokemonCaughtByType = y__})++type instance Data.ProtoLens.Field "smallRattataCaught" PlayerStats+     = Data.Int.Int32++instance Data.ProtoLens.HasField "smallRattataCaught" PlayerStats+         PlayerStats where+        field _+          = Lens.Family2.Unchecked.lens _PlayerStats'smallRattataCaught+              (\ x__ y__ -> x__{_PlayerStats'smallRattataCaught = y__})++instance Data.Default.Class.Default PlayerStats where+        def+          = PlayerStats{_PlayerStats'level = Data.ProtoLens.fieldDefault,+                        _PlayerStats'experience = Data.ProtoLens.fieldDefault,+                        _PlayerStats'prevLevelXp = Data.ProtoLens.fieldDefault,+                        _PlayerStats'nextLevelXp = Data.ProtoLens.fieldDefault,+                        _PlayerStats'kmWalked = Data.ProtoLens.fieldDefault,+                        _PlayerStats'pokemonsEncountered = Data.ProtoLens.fieldDefault,+                        _PlayerStats'uniquePokedexEntries = Data.ProtoLens.fieldDefault,+                        _PlayerStats'pokemonsCaptured = Data.ProtoLens.fieldDefault,+                        _PlayerStats'evolutions = Data.ProtoLens.fieldDefault,+                        _PlayerStats'pokeStopVisits = Data.ProtoLens.fieldDefault,+                        _PlayerStats'pokeballsThrown = Data.ProtoLens.fieldDefault,+                        _PlayerStats'eggsHatched = Data.ProtoLens.fieldDefault,+                        _PlayerStats'bigMagikarpCaught = Data.ProtoLens.fieldDefault,+                        _PlayerStats'battleAttackWon = Data.ProtoLens.fieldDefault,+                        _PlayerStats'battleAttackTotal = Data.ProtoLens.fieldDefault,+                        _PlayerStats'battleDefendedWon = Data.ProtoLens.fieldDefault,+                        _PlayerStats'battleTrainingWon = Data.ProtoLens.fieldDefault,+                        _PlayerStats'battleTrainingTotal = Data.ProtoLens.fieldDefault,+                        _PlayerStats'prestigeRaisedTotal = Data.ProtoLens.fieldDefault,+                        _PlayerStats'prestigeDroppedTotal = Data.ProtoLens.fieldDefault,+                        _PlayerStats'pokemonDeployed = Data.ProtoLens.fieldDefault,+                        _PlayerStats'pokemonCaughtByType = Data.ProtoLens.fieldDefault,+                        _PlayerStats'smallRattataCaught = Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message PlayerStats where+        descriptor+          = let level__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "level"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional level)+                experience__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "experience"+                      (Data.ProtoLens.Int64Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional experience)+                prevLevelXp__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "prev_level_xp"+                      (Data.ProtoLens.Int64Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional prevLevelXp)+                nextLevelXp__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "next_level_xp"+                      (Data.ProtoLens.Int64Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional nextLevelXp)+                kmWalked__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "km_walked"+                      (Data.ProtoLens.FloatField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Float)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional kmWalked)+                pokemonsEncountered__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "pokemons_encountered"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         pokemonsEncountered)+                uniquePokedexEntries__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "unique_pokedex_entries"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         uniquePokedexEntries)+                pokemonsCaptured__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "pokemons_captured"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         pokemonsCaptured)+                evolutions__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "evolutions"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional evolutions)+                pokeStopVisits__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "poke_stop_visits"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional pokeStopVisits)+                pokeballsThrown__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "pokeballs_thrown"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional pokeballsThrown)+                eggsHatched__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "eggs_hatched"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional eggsHatched)+                bigMagikarpCaught__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "big_magikarp_caught"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         bigMagikarpCaught)+                battleAttackWon__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "battle_attack_won"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional battleAttackWon)+                battleAttackTotal__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "battle_attack_total"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         battleAttackTotal)+                battleDefendedWon__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "battle_defended_won"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         battleDefendedWon)+                battleTrainingWon__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "battle_training_won"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         battleTrainingWon)+                battleTrainingTotal__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "battle_training_total"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         battleTrainingTotal)+                prestigeRaisedTotal__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "prestige_raised_total"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         prestigeRaisedTotal)+                prestigeDroppedTotal__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "prestige_dropped_total"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         prestigeDroppedTotal)+                pokemonDeployed__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "pokemon_deployed"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional pokemonDeployed)+                pokemonCaughtByType__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "pokemon_caught_by_type"+                      (Data.ProtoLens.BytesField ::+                         Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         pokemonCaughtByType)+                smallRattataCaught__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "small_rattata_caught"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         smallRattataCaught)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, level__field_descriptor),+                    (Data.ProtoLens.Tag 2, experience__field_descriptor),+                    (Data.ProtoLens.Tag 3, prevLevelXp__field_descriptor),+                    (Data.ProtoLens.Tag 4, nextLevelXp__field_descriptor),+                    (Data.ProtoLens.Tag 5, kmWalked__field_descriptor),+                    (Data.ProtoLens.Tag 6, pokemonsEncountered__field_descriptor),+                    (Data.ProtoLens.Tag 7, uniquePokedexEntries__field_descriptor),+                    (Data.ProtoLens.Tag 8, pokemonsCaptured__field_descriptor),+                    (Data.ProtoLens.Tag 9, evolutions__field_descriptor),+                    (Data.ProtoLens.Tag 10, pokeStopVisits__field_descriptor),+                    (Data.ProtoLens.Tag 11, pokeballsThrown__field_descriptor),+                    (Data.ProtoLens.Tag 12, eggsHatched__field_descriptor),+                    (Data.ProtoLens.Tag 13, bigMagikarpCaught__field_descriptor),+                    (Data.ProtoLens.Tag 14, battleAttackWon__field_descriptor),+                    (Data.ProtoLens.Tag 15, battleAttackTotal__field_descriptor),+                    (Data.ProtoLens.Tag 16, battleDefendedWon__field_descriptor),+                    (Data.ProtoLens.Tag 17, battleTrainingWon__field_descriptor),+                    (Data.ProtoLens.Tag 18, battleTrainingTotal__field_descriptor),+                    (Data.ProtoLens.Tag 19, prestigeRaisedTotal__field_descriptor),+                    (Data.ProtoLens.Tag 20, prestigeDroppedTotal__field_descriptor),+                    (Data.ProtoLens.Tag 21, pokemonDeployed__field_descriptor),+                    (Data.ProtoLens.Tag 22, pokemonCaughtByType__field_descriptor),+                    (Data.ProtoLens.Tag 23, smallRattataCaught__field_descriptor)])+                (Data.Map.fromList+                   [("level", level__field_descriptor),+                    ("experience", experience__field_descriptor),+                    ("prev_level_xp", prevLevelXp__field_descriptor),+                    ("next_level_xp", nextLevelXp__field_descriptor),+                    ("km_walked", kmWalked__field_descriptor),+                    ("pokemons_encountered", pokemonsEncountered__field_descriptor),+                    ("unique_pokedex_entries", uniquePokedexEntries__field_descriptor),+                    ("pokemons_captured", pokemonsCaptured__field_descriptor),+                    ("evolutions", evolutions__field_descriptor),+                    ("poke_stop_visits", pokeStopVisits__field_descriptor),+                    ("pokeballs_thrown", pokeballsThrown__field_descriptor),+                    ("eggs_hatched", eggsHatched__field_descriptor),+                    ("big_magikarp_caught", bigMagikarpCaught__field_descriptor),+                    ("battle_attack_won", battleAttackWon__field_descriptor),+                    ("battle_attack_total", battleAttackTotal__field_descriptor),+                    ("battle_defended_won", battleDefendedWon__field_descriptor),+                    ("battle_training_won", battleTrainingWon__field_descriptor),+                    ("battle_training_total", battleTrainingTotal__field_descriptor),+                    ("prestige_raised_total", prestigeRaisedTotal__field_descriptor),+                    ("prestige_dropped_total", prestigeDroppedTotal__field_descriptor),+                    ("pokemon_deployed", pokemonDeployed__field_descriptor),+                    ("pokemon_caught_by_type", pokemonCaughtByType__field_descriptor),+                    ("small_rattata_caught", smallRattataCaught__field_descriptor)])++battleAttackTotal ::+                  forall msg msg' .+                    Data.ProtoLens.HasField "battleAttackTotal" msg msg' =>+                    Lens.Family2.Lens msg msg'+                      (Data.ProtoLens.Field "battleAttackTotal" msg)+                      (Data.ProtoLens.Field "battleAttackTotal" msg')+battleAttackTotal+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "battleAttackTotal")++battleAttackWon ::+                forall msg msg' .+                  Data.ProtoLens.HasField "battleAttackWon" msg msg' =>+                  Lens.Family2.Lens msg msg'+                    (Data.ProtoLens.Field "battleAttackWon" msg)+                    (Data.ProtoLens.Field "battleAttackWon" msg')+battleAttackWon+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "battleAttackWon")++battleDefendedWon ::+                  forall msg msg' .+                    Data.ProtoLens.HasField "battleDefendedWon" msg msg' =>+                    Lens.Family2.Lens msg msg'+                      (Data.ProtoLens.Field "battleDefendedWon" msg)+                      (Data.ProtoLens.Field "battleDefendedWon" msg')+battleDefendedWon+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "battleDefendedWon")++battleTrainingTotal ::+                    forall msg msg' .+                      Data.ProtoLens.HasField "battleTrainingTotal" msg msg' =>+                      Lens.Family2.Lens msg msg'+                        (Data.ProtoLens.Field "battleTrainingTotal" msg)+                        (Data.ProtoLens.Field "battleTrainingTotal" msg')+battleTrainingTotal+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "battleTrainingTotal")++battleTrainingWon ::+                  forall msg msg' .+                    Data.ProtoLens.HasField "battleTrainingWon" msg msg' =>+                    Lens.Family2.Lens msg msg'+                      (Data.ProtoLens.Field "battleTrainingWon" msg)+                      (Data.ProtoLens.Field "battleTrainingWon" msg')+battleTrainingWon+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "battleTrainingWon")++bigMagikarpCaught ::+                  forall msg msg' .+                    Data.ProtoLens.HasField "bigMagikarpCaught" msg msg' =>+                    Lens.Family2.Lens msg msg'+                      (Data.ProtoLens.Field "bigMagikarpCaught" msg)+                      (Data.ProtoLens.Field "bigMagikarpCaught" msg')+bigMagikarpCaught+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "bigMagikarpCaught")++eggsHatched ::+            forall msg msg' . Data.ProtoLens.HasField "eggsHatched" msg msg' =>+              Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "eggsHatched" msg)+                (Data.ProtoLens.Field "eggsHatched" msg')+eggsHatched+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "eggsHatched")++evolutions ::+           forall msg msg' . Data.ProtoLens.HasField "evolutions" msg msg' =>+             Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "evolutions" msg)+               (Data.ProtoLens.Field "evolutions" msg')+evolutions+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "evolutions")++experience ::+           forall msg msg' . Data.ProtoLens.HasField "experience" msg msg' =>+             Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "experience" msg)+               (Data.ProtoLens.Field "experience" msg')+experience+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "experience")++kmWalked ::+         forall msg msg' . Data.ProtoLens.HasField "kmWalked" msg msg' =>+           Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "kmWalked" msg)+             (Data.ProtoLens.Field "kmWalked" msg')+kmWalked+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "kmWalked")++level ::+      forall msg msg' . Data.ProtoLens.HasField "level" msg msg' =>+        Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "level" msg)+          (Data.ProtoLens.Field "level" msg')+level+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "level")++nextLevelXp ::+            forall msg msg' . Data.ProtoLens.HasField "nextLevelXp" msg msg' =>+              Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "nextLevelXp" msg)+                (Data.ProtoLens.Field "nextLevelXp" msg')+nextLevelXp+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "nextLevelXp")++pokeStopVisits ::+               forall msg msg' .+                 Data.ProtoLens.HasField "pokeStopVisits" msg msg' =>+                 Lens.Family2.Lens msg msg'+                   (Data.ProtoLens.Field "pokeStopVisits" msg)+                   (Data.ProtoLens.Field "pokeStopVisits" msg')+pokeStopVisits+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "pokeStopVisits")++pokeballsThrown ::+                forall msg msg' .+                  Data.ProtoLens.HasField "pokeballsThrown" msg msg' =>+                  Lens.Family2.Lens msg msg'+                    (Data.ProtoLens.Field "pokeballsThrown" msg)+                    (Data.ProtoLens.Field "pokeballsThrown" msg')+pokeballsThrown+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "pokeballsThrown")++pokemonCaughtByType ::+                    forall msg msg' .+                      Data.ProtoLens.HasField "pokemonCaughtByType" msg msg' =>+                      Lens.Family2.Lens msg msg'+                        (Data.ProtoLens.Field "pokemonCaughtByType" msg)+                        (Data.ProtoLens.Field "pokemonCaughtByType" msg')+pokemonCaughtByType+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "pokemonCaughtByType")++pokemonDeployed ::+                forall msg msg' .+                  Data.ProtoLens.HasField "pokemonDeployed" msg msg' =>+                  Lens.Family2.Lens msg msg'+                    (Data.ProtoLens.Field "pokemonDeployed" msg)+                    (Data.ProtoLens.Field "pokemonDeployed" msg')+pokemonDeployed+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "pokemonDeployed")++pokemonsCaptured ::+                 forall msg msg' .+                   Data.ProtoLens.HasField "pokemonsCaptured" msg msg' =>+                   Lens.Family2.Lens msg msg'+                     (Data.ProtoLens.Field "pokemonsCaptured" msg)+                     (Data.ProtoLens.Field "pokemonsCaptured" msg')+pokemonsCaptured+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "pokemonsCaptured")++pokemonsEncountered ::+                    forall msg msg' .+                      Data.ProtoLens.HasField "pokemonsEncountered" msg msg' =>+                      Lens.Family2.Lens msg msg'+                        (Data.ProtoLens.Field "pokemonsEncountered" msg)+                        (Data.ProtoLens.Field "pokemonsEncountered" msg')+pokemonsEncountered+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "pokemonsEncountered")++prestigeDroppedTotal ::+                     forall msg msg' .+                       Data.ProtoLens.HasField "prestigeDroppedTotal" msg msg' =>+                       Lens.Family2.Lens msg msg'+                         (Data.ProtoLens.Field "prestigeDroppedTotal" msg)+                         (Data.ProtoLens.Field "prestigeDroppedTotal" msg')+prestigeDroppedTotal+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "prestigeDroppedTotal")++prestigeRaisedTotal ::+                    forall msg msg' .+                      Data.ProtoLens.HasField "prestigeRaisedTotal" msg msg' =>+                      Lens.Family2.Lens msg msg'+                        (Data.ProtoLens.Field "prestigeRaisedTotal" msg)+                        (Data.ProtoLens.Field "prestigeRaisedTotal" msg')+prestigeRaisedTotal+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "prestigeRaisedTotal")++prevLevelXp ::+            forall msg msg' . Data.ProtoLens.HasField "prevLevelXp" msg msg' =>+              Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "prevLevelXp" msg)+                (Data.ProtoLens.Field "prevLevelXp" msg')+prevLevelXp+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "prevLevelXp")++smallRattataCaught ::+                   forall msg msg' .+                     Data.ProtoLens.HasField "smallRattataCaught" msg msg' =>+                     Lens.Family2.Lens msg msg'+                       (Data.ProtoLens.Field "smallRattataCaught" msg)+                       (Data.ProtoLens.Field "smallRattataCaught" msg')+smallRattataCaught+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "smallRattataCaught")++uniquePokedexEntries ::+                     forall msg msg' .+                       Data.ProtoLens.HasField "uniquePokedexEntries" msg msg' =>+                       Lens.Family2.Lens msg msg'+                         (Data.ProtoLens.Field "uniquePokedexEntries" msg)+                         (Data.ProtoLens.Field "uniquePokedexEntries" msg')+uniquePokedexEntries+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "uniquePokedexEntries")
+ src/Proto/POGOProtos/Data/PlayerBadge.hs view
@@ -0,0 +1,163 @@+{- This file was auto-generated from POGOProtos/Data/PlayerBadge.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Data.PlayerBadge 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.BadgeType++data PlayerBadge = PlayerBadge{_PlayerBadge'badgeType ::+                               Proto.POGOProtos.Enums.BadgeType.BadgeType,+                               _PlayerBadge'rank :: Data.Int.Int32,+                               _PlayerBadge'startValue :: Data.Int.Int32,+                               _PlayerBadge'endValue :: Data.Int.Int32,+                               _PlayerBadge'currentValue :: Prelude.Double}+                 deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "badgeType" PlayerBadge =+     Proto.POGOProtos.Enums.BadgeType.BadgeType++instance Data.ProtoLens.HasField "badgeType" PlayerBadge+         PlayerBadge where+        field _+          = Lens.Family2.Unchecked.lens _PlayerBadge'badgeType+              (\ x__ y__ -> x__{_PlayerBadge'badgeType = y__})++type instance Data.ProtoLens.Field "rank" PlayerBadge =+     Data.Int.Int32++instance Data.ProtoLens.HasField "rank" PlayerBadge PlayerBadge+         where+        field _+          = Lens.Family2.Unchecked.lens _PlayerBadge'rank+              (\ x__ y__ -> x__{_PlayerBadge'rank = y__})++type instance Data.ProtoLens.Field "startValue" PlayerBadge =+     Data.Int.Int32++instance Data.ProtoLens.HasField "startValue" PlayerBadge+         PlayerBadge where+        field _+          = Lens.Family2.Unchecked.lens _PlayerBadge'startValue+              (\ x__ y__ -> x__{_PlayerBadge'startValue = y__})++type instance Data.ProtoLens.Field "endValue" PlayerBadge =+     Data.Int.Int32++instance Data.ProtoLens.HasField "endValue" PlayerBadge PlayerBadge+         where+        field _+          = Lens.Family2.Unchecked.lens _PlayerBadge'endValue+              (\ x__ y__ -> x__{_PlayerBadge'endValue = y__})++type instance Data.ProtoLens.Field "currentValue" PlayerBadge =+     Prelude.Double++instance Data.ProtoLens.HasField "currentValue" PlayerBadge+         PlayerBadge where+        field _+          = Lens.Family2.Unchecked.lens _PlayerBadge'currentValue+              (\ x__ y__ -> x__{_PlayerBadge'currentValue = y__})++instance Data.Default.Class.Default PlayerBadge where+        def+          = PlayerBadge{_PlayerBadge'badgeType = Data.Default.Class.def,+                        _PlayerBadge'rank = Data.ProtoLens.fieldDefault,+                        _PlayerBadge'startValue = Data.ProtoLens.fieldDefault,+                        _PlayerBadge'endValue = Data.ProtoLens.fieldDefault,+                        _PlayerBadge'currentValue = Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message PlayerBadge where+        descriptor+          = let badgeType__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "badge_type"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Enums.BadgeType.BadgeType)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional badgeType)+                rank__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "rank"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional rank)+                startValue__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "start_value"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional startValue)+                endValue__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "end_value"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional endValue)+                currentValue__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "current_value"+                      (Data.ProtoLens.DoubleField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Double)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional currentValue)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, badgeType__field_descriptor),+                    (Data.ProtoLens.Tag 2, rank__field_descriptor),+                    (Data.ProtoLens.Tag 3, startValue__field_descriptor),+                    (Data.ProtoLens.Tag 4, endValue__field_descriptor),+                    (Data.ProtoLens.Tag 5, currentValue__field_descriptor)])+                (Data.Map.fromList+                   [("badge_type", badgeType__field_descriptor),+                    ("rank", rank__field_descriptor),+                    ("start_value", startValue__field_descriptor),+                    ("end_value", endValue__field_descriptor),+                    ("current_value", currentValue__field_descriptor)])++badgeType ::+          forall msg msg' . Data.ProtoLens.HasField "badgeType" msg msg' =>+            Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "badgeType" msg)+              (Data.ProtoLens.Field "badgeType" msg')+badgeType+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "badgeType")++currentValue ::+             forall msg msg' .+               Data.ProtoLens.HasField "currentValue" msg msg' =>+               Lens.Family2.Lens msg msg'+                 (Data.ProtoLens.Field "currentValue" msg)+                 (Data.ProtoLens.Field "currentValue" msg')+currentValue+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "currentValue")++endValue ::+         forall msg msg' . Data.ProtoLens.HasField "endValue" msg msg' =>+           Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "endValue" msg)+             (Data.ProtoLens.Field "endValue" msg')+endValue+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "endValue")++rank ::+     forall msg msg' . Data.ProtoLens.HasField "rank" msg msg' =>+       Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "rank" msg)+         (Data.ProtoLens.Field "rank" msg')+rank+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "rank")++startValue ::+           forall msg msg' . Data.ProtoLens.HasField "startValue" msg msg' =>+             Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "startValue" msg)+               (Data.ProtoLens.Field "startValue" msg')+startValue+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "startValue")
+ src/Proto/POGOProtos/Data/PlayerData.hs view
@@ -0,0 +1,442 @@+{- This file was auto-generated from POGOProtos/Data/PlayerData.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Data.PlayerData 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.Player.ContactSettings+import qualified Proto.POGOProtos.Data.Player.Currency+import qualified Proto.POGOProtos.Data.Player.DailyBonus+import qualified Proto.POGOProtos.Data.Player.EquippedBadge+import qualified Proto.POGOProtos.Data.Player.PlayerAvatar+import qualified Proto.POGOProtos.Enums.TeamColor+import qualified Proto.POGOProtos.Enums.TutorialState++data PlayerData = PlayerData{_PlayerData'creationTimestampMs ::+                             Data.Int.Int64,+                             _PlayerData'username :: Data.Text.Text,+                             _PlayerData'team :: Proto.POGOProtos.Enums.TeamColor.TeamColor,+                             _PlayerData'tutorialState ::+                             [Proto.POGOProtos.Enums.TutorialState.TutorialState],+                             _PlayerData'avatar ::+                             Prelude.Maybe+                               Proto.POGOProtos.Data.Player.PlayerAvatar.PlayerAvatar,+                             _PlayerData'maxPokemonStorage :: Data.Int.Int32,+                             _PlayerData'maxItemStorage :: Data.Int.Int32,+                             _PlayerData'dailyBonus ::+                             Prelude.Maybe Proto.POGOProtos.Data.Player.DailyBonus.DailyBonus,+                             _PlayerData'equippedBadge ::+                             Prelude.Maybe+                               Proto.POGOProtos.Data.Player.EquippedBadge.EquippedBadge,+                             _PlayerData'contactSettings ::+                             Prelude.Maybe+                               Proto.POGOProtos.Data.Player.ContactSettings.ContactSettings,+                             _PlayerData'currencies ::+                             [Proto.POGOProtos.Data.Player.Currency.Currency]}+                deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "creationTimestampMs" PlayerData+     = Data.Int.Int64++instance Data.ProtoLens.HasField "creationTimestampMs" PlayerData+         PlayerData where+        field _+          = Lens.Family2.Unchecked.lens _PlayerData'creationTimestampMs+              (\ x__ y__ -> x__{_PlayerData'creationTimestampMs = y__})++type instance Data.ProtoLens.Field "username" PlayerData =+     Data.Text.Text++instance Data.ProtoLens.HasField "username" PlayerData PlayerData+         where+        field _+          = Lens.Family2.Unchecked.lens _PlayerData'username+              (\ x__ y__ -> x__{_PlayerData'username = y__})++type instance Data.ProtoLens.Field "team" PlayerData =+     Proto.POGOProtos.Enums.TeamColor.TeamColor++instance Data.ProtoLens.HasField "team" PlayerData PlayerData where+        field _+          = Lens.Family2.Unchecked.lens _PlayerData'team+              (\ x__ y__ -> x__{_PlayerData'team = y__})++type instance Data.ProtoLens.Field "tutorialState" PlayerData =+     [Proto.POGOProtos.Enums.TutorialState.TutorialState]++instance Data.ProtoLens.HasField "tutorialState" PlayerData+         PlayerData where+        field _+          = Lens.Family2.Unchecked.lens _PlayerData'tutorialState+              (\ x__ y__ -> x__{_PlayerData'tutorialState = y__})++type instance Data.ProtoLens.Field "avatar" PlayerData =+     Proto.POGOProtos.Data.Player.PlayerAvatar.PlayerAvatar++instance Data.ProtoLens.HasField "avatar" PlayerData PlayerData+         where+        field _+          = (Prelude..) maybe'avatar+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance Data.ProtoLens.Field "maybe'avatar" PlayerData =+     Prelude.Maybe+       Proto.POGOProtos.Data.Player.PlayerAvatar.PlayerAvatar++instance Data.ProtoLens.HasField "maybe'avatar" PlayerData+         PlayerData where+        field _+          = Lens.Family2.Unchecked.lens _PlayerData'avatar+              (\ x__ y__ -> x__{_PlayerData'avatar = y__})++type instance Data.ProtoLens.Field "maxPokemonStorage" PlayerData =+     Data.Int.Int32++instance Data.ProtoLens.HasField "maxPokemonStorage" PlayerData+         PlayerData where+        field _+          = Lens.Family2.Unchecked.lens _PlayerData'maxPokemonStorage+              (\ x__ y__ -> x__{_PlayerData'maxPokemonStorage = y__})++type instance Data.ProtoLens.Field "maxItemStorage" PlayerData =+     Data.Int.Int32++instance Data.ProtoLens.HasField "maxItemStorage" PlayerData+         PlayerData where+        field _+          = Lens.Family2.Unchecked.lens _PlayerData'maxItemStorage+              (\ x__ y__ -> x__{_PlayerData'maxItemStorage = y__})++type instance Data.ProtoLens.Field "dailyBonus" PlayerData =+     Proto.POGOProtos.Data.Player.DailyBonus.DailyBonus++instance Data.ProtoLens.HasField "dailyBonus" PlayerData PlayerData+         where+        field _+          = (Prelude..) maybe'dailyBonus+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance Data.ProtoLens.Field "maybe'dailyBonus" PlayerData =+     Prelude.Maybe Proto.POGOProtos.Data.Player.DailyBonus.DailyBonus++instance Data.ProtoLens.HasField "maybe'dailyBonus" PlayerData+         PlayerData where+        field _+          = Lens.Family2.Unchecked.lens _PlayerData'dailyBonus+              (\ x__ y__ -> x__{_PlayerData'dailyBonus = y__})++type instance Data.ProtoLens.Field "equippedBadge" PlayerData =+     Proto.POGOProtos.Data.Player.EquippedBadge.EquippedBadge++instance Data.ProtoLens.HasField "equippedBadge" PlayerData+         PlayerData where+        field _+          = (Prelude..) maybe'equippedBadge+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance Data.ProtoLens.Field "maybe'equippedBadge" PlayerData+     =+     Prelude.Maybe+       Proto.POGOProtos.Data.Player.EquippedBadge.EquippedBadge++instance Data.ProtoLens.HasField "maybe'equippedBadge" PlayerData+         PlayerData where+        field _+          = Lens.Family2.Unchecked.lens _PlayerData'equippedBadge+              (\ x__ y__ -> x__{_PlayerData'equippedBadge = y__})++type instance Data.ProtoLens.Field "contactSettings" PlayerData =+     Proto.POGOProtos.Data.Player.ContactSettings.ContactSettings++instance Data.ProtoLens.HasField "contactSettings" PlayerData+         PlayerData where+        field _+          = (Prelude..) maybe'contactSettings+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance+     Data.ProtoLens.Field "maybe'contactSettings" PlayerData =+     Prelude.Maybe+       Proto.POGOProtos.Data.Player.ContactSettings.ContactSettings++instance Data.ProtoLens.HasField "maybe'contactSettings" PlayerData+         PlayerData where+        field _+          = Lens.Family2.Unchecked.lens _PlayerData'contactSettings+              (\ x__ y__ -> x__{_PlayerData'contactSettings = y__})++type instance Data.ProtoLens.Field "currencies" PlayerData =+     [Proto.POGOProtos.Data.Player.Currency.Currency]++instance Data.ProtoLens.HasField "currencies" PlayerData PlayerData+         where+        field _+          = Lens.Family2.Unchecked.lens _PlayerData'currencies+              (\ x__ y__ -> x__{_PlayerData'currencies = y__})++instance Data.Default.Class.Default PlayerData where+        def+          = PlayerData{_PlayerData'creationTimestampMs =+                         Data.ProtoLens.fieldDefault,+                       _PlayerData'username = Data.ProtoLens.fieldDefault,+                       _PlayerData'team = Data.Default.Class.def,+                       _PlayerData'tutorialState = [],+                       _PlayerData'avatar = Prelude.Nothing,+                       _PlayerData'maxPokemonStorage = Data.ProtoLens.fieldDefault,+                       _PlayerData'maxItemStorage = Data.ProtoLens.fieldDefault,+                       _PlayerData'dailyBonus = Prelude.Nothing,+                       _PlayerData'equippedBadge = Prelude.Nothing,+                       _PlayerData'contactSettings = Prelude.Nothing,+                       _PlayerData'currencies = []}++instance Data.ProtoLens.Message PlayerData where+        descriptor+          = let creationTimestampMs__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "creation_timestamp_ms"+                      (Data.ProtoLens.Int64Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         creationTimestampMs)+                username__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "username"+                      (Data.ProtoLens.StringField ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional username)+                team__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "team"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Enums.TeamColor.TeamColor)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional team)+                tutorialState__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "tutorial_state"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Enums.TutorialState.TutorialState)+                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Packed tutorialState)+                avatar__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "avatar"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Data.Player.PlayerAvatar.PlayerAvatar)+                      (Data.ProtoLens.OptionalField maybe'avatar)+                maxPokemonStorage__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "max_pokemon_storage"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         maxPokemonStorage)+                maxItemStorage__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "max_item_storage"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional maxItemStorage)+                dailyBonus__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "daily_bonus"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Data.Player.DailyBonus.DailyBonus)+                      (Data.ProtoLens.OptionalField maybe'dailyBonus)+                equippedBadge__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "equipped_badge"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Data.Player.EquippedBadge.EquippedBadge)+                      (Data.ProtoLens.OptionalField maybe'equippedBadge)+                contactSettings__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "contact_settings"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Data.Player.ContactSettings.ContactSettings)+                      (Data.ProtoLens.OptionalField maybe'contactSettings)+                currencies__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "currencies"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Data.Player.Currency.Currency)+                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked currencies)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, creationTimestampMs__field_descriptor),+                    (Data.ProtoLens.Tag 2, username__field_descriptor),+                    (Data.ProtoLens.Tag 5, team__field_descriptor),+                    (Data.ProtoLens.Tag 7, tutorialState__field_descriptor),+                    (Data.ProtoLens.Tag 8, avatar__field_descriptor),+                    (Data.ProtoLens.Tag 9, maxPokemonStorage__field_descriptor),+                    (Data.ProtoLens.Tag 10, maxItemStorage__field_descriptor),+                    (Data.ProtoLens.Tag 11, dailyBonus__field_descriptor),+                    (Data.ProtoLens.Tag 12, equippedBadge__field_descriptor),+                    (Data.ProtoLens.Tag 13, contactSettings__field_descriptor),+                    (Data.ProtoLens.Tag 14, currencies__field_descriptor)])+                (Data.Map.fromList+                   [("creation_timestamp_ms", creationTimestampMs__field_descriptor),+                    ("username", username__field_descriptor),+                    ("team", team__field_descriptor),+                    ("tutorial_state", tutorialState__field_descriptor),+                    ("avatar", avatar__field_descriptor),+                    ("max_pokemon_storage", maxPokemonStorage__field_descriptor),+                    ("max_item_storage", maxItemStorage__field_descriptor),+                    ("daily_bonus", dailyBonus__field_descriptor),+                    ("equipped_badge", equippedBadge__field_descriptor),+                    ("contact_settings", contactSettings__field_descriptor),+                    ("currencies", currencies__field_descriptor)])++avatar ::+       forall msg msg' . Data.ProtoLens.HasField "avatar" msg msg' =>+         Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "avatar" msg)+           (Data.ProtoLens.Field "avatar" msg')+avatar+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "avatar")++contactSettings ::+                forall msg msg' .+                  Data.ProtoLens.HasField "contactSettings" msg msg' =>+                  Lens.Family2.Lens msg msg'+                    (Data.ProtoLens.Field "contactSettings" msg)+                    (Data.ProtoLens.Field "contactSettings" msg')+contactSettings+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "contactSettings")++creationTimestampMs ::+                    forall msg msg' .+                      Data.ProtoLens.HasField "creationTimestampMs" msg msg' =>+                      Lens.Family2.Lens msg msg'+                        (Data.ProtoLens.Field "creationTimestampMs" msg)+                        (Data.ProtoLens.Field "creationTimestampMs" msg')+creationTimestampMs+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "creationTimestampMs")++currencies ::+           forall msg msg' . Data.ProtoLens.HasField "currencies" msg msg' =>+             Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "currencies" msg)+               (Data.ProtoLens.Field "currencies" msg')+currencies+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "currencies")++dailyBonus ::+           forall msg msg' . Data.ProtoLens.HasField "dailyBonus" msg msg' =>+             Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "dailyBonus" msg)+               (Data.ProtoLens.Field "dailyBonus" msg')+dailyBonus+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "dailyBonus")++equippedBadge ::+              forall msg msg' .+                Data.ProtoLens.HasField "equippedBadge" msg msg' =>+                Lens.Family2.Lens msg msg'+                  (Data.ProtoLens.Field "equippedBadge" msg)+                  (Data.ProtoLens.Field "equippedBadge" msg')+equippedBadge+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "equippedBadge")++maxItemStorage ::+               forall msg msg' .+                 Data.ProtoLens.HasField "maxItemStorage" msg msg' =>+                 Lens.Family2.Lens msg msg'+                   (Data.ProtoLens.Field "maxItemStorage" msg)+                   (Data.ProtoLens.Field "maxItemStorage" msg')+maxItemStorage+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "maxItemStorage")++maxPokemonStorage ::+                  forall msg msg' .+                    Data.ProtoLens.HasField "maxPokemonStorage" msg msg' =>+                    Lens.Family2.Lens msg msg'+                      (Data.ProtoLens.Field "maxPokemonStorage" msg)+                      (Data.ProtoLens.Field "maxPokemonStorage" msg')+maxPokemonStorage+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "maxPokemonStorage")++maybe'avatar ::+             forall msg msg' .+               Data.ProtoLens.HasField "maybe'avatar" msg msg' =>+               Lens.Family2.Lens msg msg'+                 (Data.ProtoLens.Field "maybe'avatar" msg)+                 (Data.ProtoLens.Field "maybe'avatar" msg')+maybe'avatar+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "maybe'avatar")++maybe'contactSettings ::+                      forall msg msg' .+                        Data.ProtoLens.HasField "maybe'contactSettings" msg msg' =>+                        Lens.Family2.Lens msg msg'+                          (Data.ProtoLens.Field "maybe'contactSettings" msg)+                          (Data.ProtoLens.Field "maybe'contactSettings" msg')+maybe'contactSettings+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "maybe'contactSettings")++maybe'dailyBonus ::+                 forall msg msg' .+                   Data.ProtoLens.HasField "maybe'dailyBonus" msg msg' =>+                   Lens.Family2.Lens msg msg'+                     (Data.ProtoLens.Field "maybe'dailyBonus" msg)+                     (Data.ProtoLens.Field "maybe'dailyBonus" msg')+maybe'dailyBonus+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "maybe'dailyBonus")++maybe'equippedBadge ::+                    forall msg msg' .+                      Data.ProtoLens.HasField "maybe'equippedBadge" msg msg' =>+                      Lens.Family2.Lens msg msg'+                        (Data.ProtoLens.Field "maybe'equippedBadge" msg)+                        (Data.ProtoLens.Field "maybe'equippedBadge" msg')+maybe'equippedBadge+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "maybe'equippedBadge")++team ::+     forall msg msg' . Data.ProtoLens.HasField "team" msg msg' =>+       Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "team" msg)+         (Data.ProtoLens.Field "team" msg')+team+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "team")++tutorialState ::+              forall msg msg' .+                Data.ProtoLens.HasField "tutorialState" msg msg' =>+                Lens.Family2.Lens msg msg'+                  (Data.ProtoLens.Field "tutorialState" msg)+                  (Data.ProtoLens.Field "tutorialState" msg')+tutorialState+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "tutorialState")++username ::+         forall msg msg' . Data.ProtoLens.HasField "username" msg msg' =>+           Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "username" msg)+             (Data.ProtoLens.Field "username" msg')+username+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "username")
+ src/Proto/POGOProtos/Data/PokedexEntry.hs view
@@ -0,0 +1,176 @@+{- This file was auto-generated from POGOProtos/Data/PokedexEntry.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Data.PokedexEntry 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 PokedexEntry = PokedexEntry{_PokedexEntry'pokemonId ::+                                 Proto.POGOProtos.Enums.PokemonId.PokemonId,+                                 _PokedexEntry'timesEncountered :: Data.Int.Int32,+                                 _PokedexEntry'timesCaptured :: Data.Int.Int32,+                                 _PokedexEntry'evolutionStonePieces :: Data.Int.Int32,+                                 _PokedexEntry'evolutionStones :: Data.Int.Int32}+                  deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "pokemonId" PokedexEntry =+     Proto.POGOProtos.Enums.PokemonId.PokemonId++instance Data.ProtoLens.HasField "pokemonId" PokedexEntry+         PokedexEntry where+        field _+          = Lens.Family2.Unchecked.lens _PokedexEntry'pokemonId+              (\ x__ y__ -> x__{_PokedexEntry'pokemonId = y__})++type instance Data.ProtoLens.Field "timesEncountered" PokedexEntry+     = Data.Int.Int32++instance Data.ProtoLens.HasField "timesEncountered" PokedexEntry+         PokedexEntry where+        field _+          = Lens.Family2.Unchecked.lens _PokedexEntry'timesEncountered+              (\ x__ y__ -> x__{_PokedexEntry'timesEncountered = y__})++type instance Data.ProtoLens.Field "timesCaptured" PokedexEntry =+     Data.Int.Int32++instance Data.ProtoLens.HasField "timesCaptured" PokedexEntry+         PokedexEntry where+        field _+          = Lens.Family2.Unchecked.lens _PokedexEntry'timesCaptured+              (\ x__ y__ -> x__{_PokedexEntry'timesCaptured = y__})++type instance+     Data.ProtoLens.Field "evolutionStonePieces" PokedexEntry =+     Data.Int.Int32++instance Data.ProtoLens.HasField "evolutionStonePieces"+         PokedexEntry PokedexEntry where+        field _+          = Lens.Family2.Unchecked.lens _PokedexEntry'evolutionStonePieces+              (\ x__ y__ -> x__{_PokedexEntry'evolutionStonePieces = y__})++type instance Data.ProtoLens.Field "evolutionStones" PokedexEntry =+     Data.Int.Int32++instance Data.ProtoLens.HasField "evolutionStones" PokedexEntry+         PokedexEntry where+        field _+          = Lens.Family2.Unchecked.lens _PokedexEntry'evolutionStones+              (\ x__ y__ -> x__{_PokedexEntry'evolutionStones = y__})++instance Data.Default.Class.Default PokedexEntry where+        def+          = PokedexEntry{_PokedexEntry'pokemonId = Data.Default.Class.def,+                         _PokedexEntry'timesEncountered = Data.ProtoLens.fieldDefault,+                         _PokedexEntry'timesCaptured = Data.ProtoLens.fieldDefault,+                         _PokedexEntry'evolutionStonePieces = Data.ProtoLens.fieldDefault,+                         _PokedexEntry'evolutionStones = Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message PokedexEntry where+        descriptor+          = let 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)+                timesEncountered__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "times_encountered"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         timesEncountered)+                timesCaptured__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "times_captured"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional timesCaptured)+                evolutionStonePieces__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "evolution_stone_pieces"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         evolutionStonePieces)+                evolutionStones__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "evolution_stones"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional evolutionStones)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, pokemonId__field_descriptor),+                    (Data.ProtoLens.Tag 2, timesEncountered__field_descriptor),+                    (Data.ProtoLens.Tag 3, timesCaptured__field_descriptor),+                    (Data.ProtoLens.Tag 4, evolutionStonePieces__field_descriptor),+                    (Data.ProtoLens.Tag 5, evolutionStones__field_descriptor)])+                (Data.Map.fromList+                   [("pokemon_id", pokemonId__field_descriptor),+                    ("times_encountered", timesEncountered__field_descriptor),+                    ("times_captured", timesCaptured__field_descriptor),+                    ("evolution_stone_pieces", evolutionStonePieces__field_descriptor),+                    ("evolution_stones", evolutionStones__field_descriptor)])++evolutionStonePieces ::+                     forall msg msg' .+                       Data.ProtoLens.HasField "evolutionStonePieces" msg msg' =>+                       Lens.Family2.Lens msg msg'+                         (Data.ProtoLens.Field "evolutionStonePieces" msg)+                         (Data.ProtoLens.Field "evolutionStonePieces" msg')+evolutionStonePieces+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "evolutionStonePieces")++evolutionStones ::+                forall msg msg' .+                  Data.ProtoLens.HasField "evolutionStones" msg msg' =>+                  Lens.Family2.Lens msg msg'+                    (Data.ProtoLens.Field "evolutionStones" msg)+                    (Data.ProtoLens.Field "evolutionStones" msg')+evolutionStones+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "evolutionStones")++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")++timesCaptured ::+              forall msg msg' .+                Data.ProtoLens.HasField "timesCaptured" msg msg' =>+                Lens.Family2.Lens msg msg'+                  (Data.ProtoLens.Field "timesCaptured" msg)+                  (Data.ProtoLens.Field "timesCaptured" msg')+timesCaptured+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "timesCaptured")++timesEncountered ::+                 forall msg msg' .+                   Data.ProtoLens.HasField "timesEncountered" msg msg' =>+                   Lens.Family2.Lens msg msg'+                     (Data.ProtoLens.Field "timesEncountered" msg)+                     (Data.ProtoLens.Field "timesEncountered" msg')+timesEncountered+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "timesEncountered")
+ src/Proto/POGOProtos/Data/PokemonData.hs view
@@ -0,0 +1,863 @@+{- This file was auto-generated from POGOProtos/Data/PokemonData.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Data.PokemonData 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+import qualified Proto.POGOProtos.Enums.PokemonMove+import qualified Proto.POGOProtos.Inventory.Item.ItemId++data PokemonData = PokemonData{_PokemonData'id :: Data.Word.Word64,+                               _PokemonData'pokemonId ::+                               Proto.POGOProtos.Enums.PokemonId.PokemonId,+                               _PokemonData'cp :: Data.Int.Int32,+                               _PokemonData'stamina :: Data.Int.Int32,+                               _PokemonData'staminaMax :: Data.Int.Int32,+                               _PokemonData'move1 ::+                               Proto.POGOProtos.Enums.PokemonMove.PokemonMove,+                               _PokemonData'move2 ::+                               Proto.POGOProtos.Enums.PokemonMove.PokemonMove,+                               _PokemonData'deployedFortId :: Data.Text.Text,+                               _PokemonData'ownerName :: Data.Text.Text,+                               _PokemonData'isEgg :: Prelude.Bool,+                               _PokemonData'eggKmWalkedTarget :: Prelude.Double,+                               _PokemonData'eggKmWalkedStart :: Prelude.Double,+                               _PokemonData'origin :: Data.Int.Int32,+                               _PokemonData'heightM :: Prelude.Float,+                               _PokemonData'weightKg :: Prelude.Float,+                               _PokemonData'individualAttack :: Data.Int.Int32,+                               _PokemonData'individualDefense :: Data.Int.Int32,+                               _PokemonData'individualStamina :: Data.Int.Int32,+                               _PokemonData'cpMultiplier :: Prelude.Float,+                               _PokemonData'pokeball ::+                               Proto.POGOProtos.Inventory.Item.ItemId.ItemId,+                               _PokemonData'capturedCellId :: Data.Word.Word64,+                               _PokemonData'battlesAttacked :: Data.Int.Int32,+                               _PokemonData'battlesDefended :: Data.Int.Int32,+                               _PokemonData'eggIncubatorId :: Data.Text.Text,+                               _PokemonData'creationTimeMs :: Data.Word.Word64,+                               _PokemonData'numUpgrades :: Data.Int.Int32,+                               _PokemonData'additionalCpMultiplier :: Prelude.Float,+                               _PokemonData'favorite :: Data.Int.Int32,+                               _PokemonData'nickname :: Data.Text.Text,+                               _PokemonData'fromFort :: Data.Int.Int32}+                 deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "id" PokemonData =+     Data.Word.Word64++instance Data.ProtoLens.HasField "id" PokemonData PokemonData where+        field _+          = Lens.Family2.Unchecked.lens _PokemonData'id+              (\ x__ y__ -> x__{_PokemonData'id = y__})++type instance Data.ProtoLens.Field "pokemonId" PokemonData =+     Proto.POGOProtos.Enums.PokemonId.PokemonId++instance Data.ProtoLens.HasField "pokemonId" PokemonData+         PokemonData where+        field _+          = Lens.Family2.Unchecked.lens _PokemonData'pokemonId+              (\ x__ y__ -> x__{_PokemonData'pokemonId = y__})++type instance Data.ProtoLens.Field "cp" PokemonData =+     Data.Int.Int32++instance Data.ProtoLens.HasField "cp" PokemonData PokemonData where+        field _+          = Lens.Family2.Unchecked.lens _PokemonData'cp+              (\ x__ y__ -> x__{_PokemonData'cp = y__})++type instance Data.ProtoLens.Field "stamina" PokemonData =+     Data.Int.Int32++instance Data.ProtoLens.HasField "stamina" PokemonData PokemonData+         where+        field _+          = Lens.Family2.Unchecked.lens _PokemonData'stamina+              (\ x__ y__ -> x__{_PokemonData'stamina = y__})++type instance Data.ProtoLens.Field "staminaMax" PokemonData =+     Data.Int.Int32++instance Data.ProtoLens.HasField "staminaMax" PokemonData+         PokemonData where+        field _+          = Lens.Family2.Unchecked.lens _PokemonData'staminaMax+              (\ x__ y__ -> x__{_PokemonData'staminaMax = y__})++type instance Data.ProtoLens.Field "move1" PokemonData =+     Proto.POGOProtos.Enums.PokemonMove.PokemonMove++instance Data.ProtoLens.HasField "move1" PokemonData PokemonData+         where+        field _+          = Lens.Family2.Unchecked.lens _PokemonData'move1+              (\ x__ y__ -> x__{_PokemonData'move1 = y__})++type instance Data.ProtoLens.Field "move2" PokemonData =+     Proto.POGOProtos.Enums.PokemonMove.PokemonMove++instance Data.ProtoLens.HasField "move2" PokemonData PokemonData+         where+        field _+          = Lens.Family2.Unchecked.lens _PokemonData'move2+              (\ x__ y__ -> x__{_PokemonData'move2 = y__})++type instance Data.ProtoLens.Field "deployedFortId" PokemonData =+     Data.Text.Text++instance Data.ProtoLens.HasField "deployedFortId" PokemonData+         PokemonData where+        field _+          = Lens.Family2.Unchecked.lens _PokemonData'deployedFortId+              (\ x__ y__ -> x__{_PokemonData'deployedFortId = y__})++type instance Data.ProtoLens.Field "ownerName" PokemonData =+     Data.Text.Text++instance Data.ProtoLens.HasField "ownerName" PokemonData+         PokemonData where+        field _+          = Lens.Family2.Unchecked.lens _PokemonData'ownerName+              (\ x__ y__ -> x__{_PokemonData'ownerName = y__})++type instance Data.ProtoLens.Field "isEgg" PokemonData =+     Prelude.Bool++instance Data.ProtoLens.HasField "isEgg" PokemonData PokemonData+         where+        field _+          = Lens.Family2.Unchecked.lens _PokemonData'isEgg+              (\ x__ y__ -> x__{_PokemonData'isEgg = y__})++type instance Data.ProtoLens.Field "eggKmWalkedTarget" PokemonData+     = Prelude.Double++instance Data.ProtoLens.HasField "eggKmWalkedTarget" PokemonData+         PokemonData where+        field _+          = Lens.Family2.Unchecked.lens _PokemonData'eggKmWalkedTarget+              (\ x__ y__ -> x__{_PokemonData'eggKmWalkedTarget = y__})++type instance Data.ProtoLens.Field "eggKmWalkedStart" PokemonData =+     Prelude.Double++instance Data.ProtoLens.HasField "eggKmWalkedStart" PokemonData+         PokemonData where+        field _+          = Lens.Family2.Unchecked.lens _PokemonData'eggKmWalkedStart+              (\ x__ y__ -> x__{_PokemonData'eggKmWalkedStart = y__})++type instance Data.ProtoLens.Field "origin" PokemonData =+     Data.Int.Int32++instance Data.ProtoLens.HasField "origin" PokemonData PokemonData+         where+        field _+          = Lens.Family2.Unchecked.lens _PokemonData'origin+              (\ x__ y__ -> x__{_PokemonData'origin = y__})++type instance Data.ProtoLens.Field "heightM" PokemonData =+     Prelude.Float++instance Data.ProtoLens.HasField "heightM" PokemonData PokemonData+         where+        field _+          = Lens.Family2.Unchecked.lens _PokemonData'heightM+              (\ x__ y__ -> x__{_PokemonData'heightM = y__})++type instance Data.ProtoLens.Field "weightKg" PokemonData =+     Prelude.Float++instance Data.ProtoLens.HasField "weightKg" PokemonData PokemonData+         where+        field _+          = Lens.Family2.Unchecked.lens _PokemonData'weightKg+              (\ x__ y__ -> x__{_PokemonData'weightKg = y__})++type instance Data.ProtoLens.Field "individualAttack" PokemonData =+     Data.Int.Int32++instance Data.ProtoLens.HasField "individualAttack" PokemonData+         PokemonData where+        field _+          = Lens.Family2.Unchecked.lens _PokemonData'individualAttack+              (\ x__ y__ -> x__{_PokemonData'individualAttack = y__})++type instance Data.ProtoLens.Field "individualDefense" PokemonData+     = Data.Int.Int32++instance Data.ProtoLens.HasField "individualDefense" PokemonData+         PokemonData where+        field _+          = Lens.Family2.Unchecked.lens _PokemonData'individualDefense+              (\ x__ y__ -> x__{_PokemonData'individualDefense = y__})++type instance Data.ProtoLens.Field "individualStamina" PokemonData+     = Data.Int.Int32++instance Data.ProtoLens.HasField "individualStamina" PokemonData+         PokemonData where+        field _+          = Lens.Family2.Unchecked.lens _PokemonData'individualStamina+              (\ x__ y__ -> x__{_PokemonData'individualStamina = y__})++type instance Data.ProtoLens.Field "cpMultiplier" PokemonData =+     Prelude.Float++instance Data.ProtoLens.HasField "cpMultiplier" PokemonData+         PokemonData where+        field _+          = Lens.Family2.Unchecked.lens _PokemonData'cpMultiplier+              (\ x__ y__ -> x__{_PokemonData'cpMultiplier = y__})++type instance Data.ProtoLens.Field "pokeball" PokemonData =+     Proto.POGOProtos.Inventory.Item.ItemId.ItemId++instance Data.ProtoLens.HasField "pokeball" PokemonData PokemonData+         where+        field _+          = Lens.Family2.Unchecked.lens _PokemonData'pokeball+              (\ x__ y__ -> x__{_PokemonData'pokeball = y__})++type instance Data.ProtoLens.Field "capturedCellId" PokemonData =+     Data.Word.Word64++instance Data.ProtoLens.HasField "capturedCellId" PokemonData+         PokemonData where+        field _+          = Lens.Family2.Unchecked.lens _PokemonData'capturedCellId+              (\ x__ y__ -> x__{_PokemonData'capturedCellId = y__})++type instance Data.ProtoLens.Field "battlesAttacked" PokemonData =+     Data.Int.Int32++instance Data.ProtoLens.HasField "battlesAttacked" PokemonData+         PokemonData where+        field _+          = Lens.Family2.Unchecked.lens _PokemonData'battlesAttacked+              (\ x__ y__ -> x__{_PokemonData'battlesAttacked = y__})++type instance Data.ProtoLens.Field "battlesDefended" PokemonData =+     Data.Int.Int32++instance Data.ProtoLens.HasField "battlesDefended" PokemonData+         PokemonData where+        field _+          = Lens.Family2.Unchecked.lens _PokemonData'battlesDefended+              (\ x__ y__ -> x__{_PokemonData'battlesDefended = y__})++type instance Data.ProtoLens.Field "eggIncubatorId" PokemonData =+     Data.Text.Text++instance Data.ProtoLens.HasField "eggIncubatorId" PokemonData+         PokemonData where+        field _+          = Lens.Family2.Unchecked.lens _PokemonData'eggIncubatorId+              (\ x__ y__ -> x__{_PokemonData'eggIncubatorId = y__})++type instance Data.ProtoLens.Field "creationTimeMs" PokemonData =+     Data.Word.Word64++instance Data.ProtoLens.HasField "creationTimeMs" PokemonData+         PokemonData where+        field _+          = Lens.Family2.Unchecked.lens _PokemonData'creationTimeMs+              (\ x__ y__ -> x__{_PokemonData'creationTimeMs = y__})++type instance Data.ProtoLens.Field "numUpgrades" PokemonData =+     Data.Int.Int32++instance Data.ProtoLens.HasField "numUpgrades" PokemonData+         PokemonData where+        field _+          = Lens.Family2.Unchecked.lens _PokemonData'numUpgrades+              (\ x__ y__ -> x__{_PokemonData'numUpgrades = y__})++type instance+     Data.ProtoLens.Field "additionalCpMultiplier" PokemonData =+     Prelude.Float++instance Data.ProtoLens.HasField "additionalCpMultiplier"+         PokemonData PokemonData where+        field _+          = Lens.Family2.Unchecked.lens _PokemonData'additionalCpMultiplier+              (\ x__ y__ -> x__{_PokemonData'additionalCpMultiplier = y__})++type instance Data.ProtoLens.Field "favorite" PokemonData =+     Data.Int.Int32++instance Data.ProtoLens.HasField "favorite" PokemonData PokemonData+         where+        field _+          = Lens.Family2.Unchecked.lens _PokemonData'favorite+              (\ x__ y__ -> x__{_PokemonData'favorite = y__})++type instance Data.ProtoLens.Field "nickname" PokemonData =+     Data.Text.Text++instance Data.ProtoLens.HasField "nickname" PokemonData PokemonData+         where+        field _+          = Lens.Family2.Unchecked.lens _PokemonData'nickname+              (\ x__ y__ -> x__{_PokemonData'nickname = y__})++type instance Data.ProtoLens.Field "fromFort" PokemonData =+     Data.Int.Int32++instance Data.ProtoLens.HasField "fromFort" PokemonData PokemonData+         where+        field _+          = Lens.Family2.Unchecked.lens _PokemonData'fromFort+              (\ x__ y__ -> x__{_PokemonData'fromFort = y__})++instance Data.Default.Class.Default PokemonData where+        def+          = PokemonData{_PokemonData'id = Data.ProtoLens.fieldDefault,+                        _PokemonData'pokemonId = Data.Default.Class.def,+                        _PokemonData'cp = Data.ProtoLens.fieldDefault,+                        _PokemonData'stamina = Data.ProtoLens.fieldDefault,+                        _PokemonData'staminaMax = Data.ProtoLens.fieldDefault,+                        _PokemonData'move1 = Data.Default.Class.def,+                        _PokemonData'move2 = Data.Default.Class.def,+                        _PokemonData'deployedFortId = Data.ProtoLens.fieldDefault,+                        _PokemonData'ownerName = Data.ProtoLens.fieldDefault,+                        _PokemonData'isEgg = Data.ProtoLens.fieldDefault,+                        _PokemonData'eggKmWalkedTarget = Data.ProtoLens.fieldDefault,+                        _PokemonData'eggKmWalkedStart = Data.ProtoLens.fieldDefault,+                        _PokemonData'origin = Data.ProtoLens.fieldDefault,+                        _PokemonData'heightM = Data.ProtoLens.fieldDefault,+                        _PokemonData'weightKg = Data.ProtoLens.fieldDefault,+                        _PokemonData'individualAttack = Data.ProtoLens.fieldDefault,+                        _PokemonData'individualDefense = Data.ProtoLens.fieldDefault,+                        _PokemonData'individualStamina = Data.ProtoLens.fieldDefault,+                        _PokemonData'cpMultiplier = Data.ProtoLens.fieldDefault,+                        _PokemonData'pokeball = Data.Default.Class.def,+                        _PokemonData'capturedCellId = Data.ProtoLens.fieldDefault,+                        _PokemonData'battlesAttacked = Data.ProtoLens.fieldDefault,+                        _PokemonData'battlesDefended = Data.ProtoLens.fieldDefault,+                        _PokemonData'eggIncubatorId = Data.ProtoLens.fieldDefault,+                        _PokemonData'creationTimeMs = Data.ProtoLens.fieldDefault,+                        _PokemonData'numUpgrades = Data.ProtoLens.fieldDefault,+                        _PokemonData'additionalCpMultiplier = Data.ProtoLens.fieldDefault,+                        _PokemonData'favorite = Data.ProtoLens.fieldDefault,+                        _PokemonData'nickname = Data.ProtoLens.fieldDefault,+                        _PokemonData'fromFort = Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message PokemonData where+        descriptor+          = let id__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "id"+                      (Data.ProtoLens.Fixed64Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional id)+                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)+                cp__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "cp"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional cp)+                stamina__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "stamina"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional stamina)+                staminaMax__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "stamina_max"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional staminaMax)+                move1__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "move_1"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Enums.PokemonMove.PokemonMove)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional move1)+                move2__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "move_2"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Enums.PokemonMove.PokemonMove)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional move2)+                deployedFortId__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "deployed_fort_id"+                      (Data.ProtoLens.StringField ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional deployedFortId)+                ownerName__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "owner_name"+                      (Data.ProtoLens.StringField ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional ownerName)+                isEgg__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "is_egg"+                      (Data.ProtoLens.BoolField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional isEgg)+                eggKmWalkedTarget__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "egg_km_walked_target"+                      (Data.ProtoLens.DoubleField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Double)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         eggKmWalkedTarget)+                eggKmWalkedStart__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "egg_km_walked_start"+                      (Data.ProtoLens.DoubleField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Double)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         eggKmWalkedStart)+                origin__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "origin"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional origin)+                heightM__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "height_m"+                      (Data.ProtoLens.FloatField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Float)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional heightM)+                weightKg__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "weight_kg"+                      (Data.ProtoLens.FloatField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Float)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional weightKg)+                individualAttack__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "individual_attack"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         individualAttack)+                individualDefense__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "individual_defense"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         individualDefense)+                individualStamina__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "individual_stamina"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         individualStamina)+                cpMultiplier__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "cp_multiplier"+                      (Data.ProtoLens.FloatField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Float)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional cpMultiplier)+                pokeball__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "pokeball"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Inventory.Item.ItemId.ItemId)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional pokeball)+                capturedCellId__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "captured_cell_id"+                      (Data.ProtoLens.UInt64Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional capturedCellId)+                battlesAttacked__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "battles_attacked"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional battlesAttacked)+                battlesDefended__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "battles_defended"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional battlesDefended)+                eggIncubatorId__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "egg_incubator_id"+                      (Data.ProtoLens.StringField ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional eggIncubatorId)+                creationTimeMs__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "creation_time_ms"+                      (Data.ProtoLens.UInt64Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional creationTimeMs)+                numUpgrades__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "num_upgrades"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional numUpgrades)+                additionalCpMultiplier__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "additional_cp_multiplier"+                      (Data.ProtoLens.FloatField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Float)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         additionalCpMultiplier)+                favorite__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "favorite"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional favorite)+                nickname__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "nickname"+                      (Data.ProtoLens.StringField ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional nickname)+                fromFort__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "from_fort"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional fromFort)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, id__field_descriptor),+                    (Data.ProtoLens.Tag 2, pokemonId__field_descriptor),+                    (Data.ProtoLens.Tag 3, cp__field_descriptor),+                    (Data.ProtoLens.Tag 4, stamina__field_descriptor),+                    (Data.ProtoLens.Tag 5, staminaMax__field_descriptor),+                    (Data.ProtoLens.Tag 6, move1__field_descriptor),+                    (Data.ProtoLens.Tag 7, move2__field_descriptor),+                    (Data.ProtoLens.Tag 8, deployedFortId__field_descriptor),+                    (Data.ProtoLens.Tag 9, ownerName__field_descriptor),+                    (Data.ProtoLens.Tag 10, isEgg__field_descriptor),+                    (Data.ProtoLens.Tag 11, eggKmWalkedTarget__field_descriptor),+                    (Data.ProtoLens.Tag 12, eggKmWalkedStart__field_descriptor),+                    (Data.ProtoLens.Tag 14, origin__field_descriptor),+                    (Data.ProtoLens.Tag 15, heightM__field_descriptor),+                    (Data.ProtoLens.Tag 16, weightKg__field_descriptor),+                    (Data.ProtoLens.Tag 17, individualAttack__field_descriptor),+                    (Data.ProtoLens.Tag 18, individualDefense__field_descriptor),+                    (Data.ProtoLens.Tag 19, individualStamina__field_descriptor),+                    (Data.ProtoLens.Tag 20, cpMultiplier__field_descriptor),+                    (Data.ProtoLens.Tag 21, pokeball__field_descriptor),+                    (Data.ProtoLens.Tag 22, capturedCellId__field_descriptor),+                    (Data.ProtoLens.Tag 23, battlesAttacked__field_descriptor),+                    (Data.ProtoLens.Tag 24, battlesDefended__field_descriptor),+                    (Data.ProtoLens.Tag 25, eggIncubatorId__field_descriptor),+                    (Data.ProtoLens.Tag 26, creationTimeMs__field_descriptor),+                    (Data.ProtoLens.Tag 27, numUpgrades__field_descriptor),+                    (Data.ProtoLens.Tag 28, additionalCpMultiplier__field_descriptor),+                    (Data.ProtoLens.Tag 29, favorite__field_descriptor),+                    (Data.ProtoLens.Tag 30, nickname__field_descriptor),+                    (Data.ProtoLens.Tag 31, fromFort__field_descriptor)])+                (Data.Map.fromList+                   [("id", id__field_descriptor),+                    ("pokemon_id", pokemonId__field_descriptor),+                    ("cp", cp__field_descriptor),+                    ("stamina", stamina__field_descriptor),+                    ("stamina_max", staminaMax__field_descriptor),+                    ("move_1", move1__field_descriptor),+                    ("move_2", move2__field_descriptor),+                    ("deployed_fort_id", deployedFortId__field_descriptor),+                    ("owner_name", ownerName__field_descriptor),+                    ("is_egg", isEgg__field_descriptor),+                    ("egg_km_walked_target", eggKmWalkedTarget__field_descriptor),+                    ("egg_km_walked_start", eggKmWalkedStart__field_descriptor),+                    ("origin", origin__field_descriptor),+                    ("height_m", heightM__field_descriptor),+                    ("weight_kg", weightKg__field_descriptor),+                    ("individual_attack", individualAttack__field_descriptor),+                    ("individual_defense", individualDefense__field_descriptor),+                    ("individual_stamina", individualStamina__field_descriptor),+                    ("cp_multiplier", cpMultiplier__field_descriptor),+                    ("pokeball", pokeball__field_descriptor),+                    ("captured_cell_id", capturedCellId__field_descriptor),+                    ("battles_attacked", battlesAttacked__field_descriptor),+                    ("battles_defended", battlesDefended__field_descriptor),+                    ("egg_incubator_id", eggIncubatorId__field_descriptor),+                    ("creation_time_ms", creationTimeMs__field_descriptor),+                    ("num_upgrades", numUpgrades__field_descriptor),+                    ("additional_cp_multiplier",+                     additionalCpMultiplier__field_descriptor),+                    ("favorite", favorite__field_descriptor),+                    ("nickname", nickname__field_descriptor),+                    ("from_fort", fromFort__field_descriptor)])++additionalCpMultiplier ::+                       forall msg msg' .+                         Data.ProtoLens.HasField "additionalCpMultiplier" msg msg' =>+                         Lens.Family2.Lens msg msg'+                           (Data.ProtoLens.Field "additionalCpMultiplier" msg)+                           (Data.ProtoLens.Field "additionalCpMultiplier" msg')+additionalCpMultiplier+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "additionalCpMultiplier")++battlesAttacked ::+                forall msg msg' .+                  Data.ProtoLens.HasField "battlesAttacked" msg msg' =>+                  Lens.Family2.Lens msg msg'+                    (Data.ProtoLens.Field "battlesAttacked" msg)+                    (Data.ProtoLens.Field "battlesAttacked" msg')+battlesAttacked+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "battlesAttacked")++battlesDefended ::+                forall msg msg' .+                  Data.ProtoLens.HasField "battlesDefended" msg msg' =>+                  Lens.Family2.Lens msg msg'+                    (Data.ProtoLens.Field "battlesDefended" msg)+                    (Data.ProtoLens.Field "battlesDefended" msg')+battlesDefended+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "battlesDefended")++capturedCellId ::+               forall msg msg' .+                 Data.ProtoLens.HasField "capturedCellId" msg msg' =>+                 Lens.Family2.Lens msg msg'+                   (Data.ProtoLens.Field "capturedCellId" msg)+                   (Data.ProtoLens.Field "capturedCellId" msg')+capturedCellId+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "capturedCellId")++cp ::+   forall msg msg' . Data.ProtoLens.HasField "cp" msg msg' =>+     Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "cp" msg)+       (Data.ProtoLens.Field "cp" msg')+cp+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "cp")++cpMultiplier ::+             forall msg msg' .+               Data.ProtoLens.HasField "cpMultiplier" msg msg' =>+               Lens.Family2.Lens msg msg'+                 (Data.ProtoLens.Field "cpMultiplier" msg)+                 (Data.ProtoLens.Field "cpMultiplier" msg')+cpMultiplier+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "cpMultiplier")++creationTimeMs ::+               forall msg msg' .+                 Data.ProtoLens.HasField "creationTimeMs" msg msg' =>+                 Lens.Family2.Lens msg msg'+                   (Data.ProtoLens.Field "creationTimeMs" msg)+                   (Data.ProtoLens.Field "creationTimeMs" msg')+creationTimeMs+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "creationTimeMs")++deployedFortId ::+               forall msg msg' .+                 Data.ProtoLens.HasField "deployedFortId" msg msg' =>+                 Lens.Family2.Lens msg msg'+                   (Data.ProtoLens.Field "deployedFortId" msg)+                   (Data.ProtoLens.Field "deployedFortId" msg')+deployedFortId+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "deployedFortId")++eggIncubatorId ::+               forall msg msg' .+                 Data.ProtoLens.HasField "eggIncubatorId" msg msg' =>+                 Lens.Family2.Lens msg msg'+                   (Data.ProtoLens.Field "eggIncubatorId" msg)+                   (Data.ProtoLens.Field "eggIncubatorId" msg')+eggIncubatorId+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "eggIncubatorId")++eggKmWalkedStart ::+                 forall msg msg' .+                   Data.ProtoLens.HasField "eggKmWalkedStart" msg msg' =>+                   Lens.Family2.Lens msg msg'+                     (Data.ProtoLens.Field "eggKmWalkedStart" msg)+                     (Data.ProtoLens.Field "eggKmWalkedStart" msg')+eggKmWalkedStart+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "eggKmWalkedStart")++eggKmWalkedTarget ::+                  forall msg msg' .+                    Data.ProtoLens.HasField "eggKmWalkedTarget" msg msg' =>+                    Lens.Family2.Lens msg msg'+                      (Data.ProtoLens.Field "eggKmWalkedTarget" msg)+                      (Data.ProtoLens.Field "eggKmWalkedTarget" msg')+eggKmWalkedTarget+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "eggKmWalkedTarget")++favorite ::+         forall msg msg' . Data.ProtoLens.HasField "favorite" msg msg' =>+           Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "favorite" msg)+             (Data.ProtoLens.Field "favorite" msg')+favorite+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "favorite")++fromFort ::+         forall msg msg' . Data.ProtoLens.HasField "fromFort" msg msg' =>+           Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "fromFort" msg)+             (Data.ProtoLens.Field "fromFort" msg')+fromFort+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "fromFort")++heightM ::+        forall msg msg' . Data.ProtoLens.HasField "heightM" msg msg' =>+          Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "heightM" msg)+            (Data.ProtoLens.Field "heightM" msg')+heightM+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "heightM")++id ::+   forall msg msg' . Data.ProtoLens.HasField "id" msg msg' =>+     Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "id" msg)+       (Data.ProtoLens.Field "id" msg')+id+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "id")++individualAttack ::+                 forall msg msg' .+                   Data.ProtoLens.HasField "individualAttack" msg msg' =>+                   Lens.Family2.Lens msg msg'+                     (Data.ProtoLens.Field "individualAttack" msg)+                     (Data.ProtoLens.Field "individualAttack" msg')+individualAttack+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "individualAttack")++individualDefense ::+                  forall msg msg' .+                    Data.ProtoLens.HasField "individualDefense" msg msg' =>+                    Lens.Family2.Lens msg msg'+                      (Data.ProtoLens.Field "individualDefense" msg)+                      (Data.ProtoLens.Field "individualDefense" msg')+individualDefense+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "individualDefense")++individualStamina ::+                  forall msg msg' .+                    Data.ProtoLens.HasField "individualStamina" msg msg' =>+                    Lens.Family2.Lens msg msg'+                      (Data.ProtoLens.Field "individualStamina" msg)+                      (Data.ProtoLens.Field "individualStamina" msg')+individualStamina+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "individualStamina")++isEgg ::+      forall msg msg' . Data.ProtoLens.HasField "isEgg" msg msg' =>+        Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "isEgg" msg)+          (Data.ProtoLens.Field "isEgg" msg')+isEgg+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "isEgg")++move1 ::+      forall msg msg' . Data.ProtoLens.HasField "move1" msg msg' =>+        Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "move1" msg)+          (Data.ProtoLens.Field "move1" msg')+move1+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "move1")++move2 ::+      forall msg msg' . Data.ProtoLens.HasField "move2" msg msg' =>+        Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "move2" msg)+          (Data.ProtoLens.Field "move2" msg')+move2+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "move2")++nickname ::+         forall msg msg' . Data.ProtoLens.HasField "nickname" msg msg' =>+           Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "nickname" msg)+             (Data.ProtoLens.Field "nickname" msg')+nickname+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "nickname")++numUpgrades ::+            forall msg msg' . Data.ProtoLens.HasField "numUpgrades" msg msg' =>+              Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "numUpgrades" msg)+                (Data.ProtoLens.Field "numUpgrades" msg')+numUpgrades+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "numUpgrades")++origin ::+       forall msg msg' . Data.ProtoLens.HasField "origin" msg msg' =>+         Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "origin" msg)+           (Data.ProtoLens.Field "origin" msg')+origin+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "origin")++ownerName ::+          forall msg msg' . Data.ProtoLens.HasField "ownerName" msg msg' =>+            Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "ownerName" msg)+              (Data.ProtoLens.Field "ownerName" msg')+ownerName+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "ownerName")++pokeball ::+         forall msg msg' . Data.ProtoLens.HasField "pokeball" msg msg' =>+           Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "pokeball" msg)+             (Data.ProtoLens.Field "pokeball" msg')+pokeball+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "pokeball")++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")++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")++staminaMax ::+           forall msg msg' . Data.ProtoLens.HasField "staminaMax" msg msg' =>+             Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "staminaMax" msg)+               (Data.ProtoLens.Field "staminaMax" msg')+staminaMax+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "staminaMax")++weightKg ::+         forall msg msg' . Data.ProtoLens.HasField "weightKg" msg msg' =>+           Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "weightKg" msg)+             (Data.ProtoLens.Field "weightKg" msg')+weightKg+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "weightKg")
+ src/Proto/POGOProtos/Enums/ActivityType.hs view
@@ -0,0 +1,247 @@+{- This file was auto-generated from POGOProtos/Enums/ActivityType.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Enums.ActivityType 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 ActivityType = ACTIVITY_UNKNOWN+                  | ACTIVITY_CATCH_POKEMON+                  | ACTIVITY_CATCH_LEGEND_POKEMON+                  | ACTIVITY_FLEE_POKEMON+                  | ACTIVITY_DEFEAT_FORT+                  | ACTIVITY_EVOLVE_POKEMON+                  | ACTIVITY_HATCH_EGG+                  | ACTIVITY_WALK_KM+                  | ACTIVITY_POKEDEX_ENTRY_NEW+                  | ACTIVITY_CATCH_FIRST_THROW+                  | ACTIVITY_CATCH_NICE_THROW+                  | ACTIVITY_CATCH_GREAT_THROW+                  | ACTIVITY_CATCH_EXCELLENT_THROW+                  | ACTIVITY_CATCH_CURVEBALL+                  | ACTIVITY_CATCH_FIRST_CATCH_OF_DAY+                  | ACTIVITY_CATCH_MILESTONE+                  | ACTIVITY_TRAIN_POKEMON+                  | ACTIVITY_SEARCH_FORT+                  | ACTIVITY_RELEASE_POKEMON+                  | ACTIVITY_HATCH_EGG_SMALL_BONUS+                  | ACTIVITY_HATCH_EGG_MEDIUM_BONUS+                  | ACTIVITY_HATCH_EGG_LARGE_BONUS+                  | ACTIVITY_DEFEAT_GYM_DEFENDER+                  | ACTIVITY_DEFEAT_GYM_LEADER+                  deriving (Prelude.Show, Prelude.Eq)++instance Data.Default.Class.Default ActivityType where+        def = ACTIVITY_UNKNOWN++instance Data.ProtoLens.FieldDefault ActivityType where+        fieldDefault = ACTIVITY_UNKNOWN++instance Data.ProtoLens.MessageEnum ActivityType where+        maybeToEnum 0 = Prelude.Just ACTIVITY_UNKNOWN+        maybeToEnum 1 = Prelude.Just ACTIVITY_CATCH_POKEMON+        maybeToEnum 2 = Prelude.Just ACTIVITY_CATCH_LEGEND_POKEMON+        maybeToEnum 3 = Prelude.Just ACTIVITY_FLEE_POKEMON+        maybeToEnum 4 = Prelude.Just ACTIVITY_DEFEAT_FORT+        maybeToEnum 5 = Prelude.Just ACTIVITY_EVOLVE_POKEMON+        maybeToEnum 6 = Prelude.Just ACTIVITY_HATCH_EGG+        maybeToEnum 7 = Prelude.Just ACTIVITY_WALK_KM+        maybeToEnum 8 = Prelude.Just ACTIVITY_POKEDEX_ENTRY_NEW+        maybeToEnum 9 = Prelude.Just ACTIVITY_CATCH_FIRST_THROW+        maybeToEnum 10 = Prelude.Just ACTIVITY_CATCH_NICE_THROW+        maybeToEnum 11 = Prelude.Just ACTIVITY_CATCH_GREAT_THROW+        maybeToEnum 12 = Prelude.Just ACTIVITY_CATCH_EXCELLENT_THROW+        maybeToEnum 13 = Prelude.Just ACTIVITY_CATCH_CURVEBALL+        maybeToEnum 14 = Prelude.Just ACTIVITY_CATCH_FIRST_CATCH_OF_DAY+        maybeToEnum 15 = Prelude.Just ACTIVITY_CATCH_MILESTONE+        maybeToEnum 16 = Prelude.Just ACTIVITY_TRAIN_POKEMON+        maybeToEnum 17 = Prelude.Just ACTIVITY_SEARCH_FORT+        maybeToEnum 18 = Prelude.Just ACTIVITY_RELEASE_POKEMON+        maybeToEnum 19 = Prelude.Just ACTIVITY_HATCH_EGG_SMALL_BONUS+        maybeToEnum 20 = Prelude.Just ACTIVITY_HATCH_EGG_MEDIUM_BONUS+        maybeToEnum 21 = Prelude.Just ACTIVITY_HATCH_EGG_LARGE_BONUS+        maybeToEnum 22 = Prelude.Just ACTIVITY_DEFEAT_GYM_DEFENDER+        maybeToEnum 23 = Prelude.Just ACTIVITY_DEFEAT_GYM_LEADER+        maybeToEnum _ = Prelude.Nothing+        showEnum ACTIVITY_UNKNOWN = "ACTIVITY_UNKNOWN"+        showEnum ACTIVITY_CATCH_POKEMON = "ACTIVITY_CATCH_POKEMON"+        showEnum ACTIVITY_CATCH_LEGEND_POKEMON+          = "ACTIVITY_CATCH_LEGEND_POKEMON"+        showEnum ACTIVITY_FLEE_POKEMON = "ACTIVITY_FLEE_POKEMON"+        showEnum ACTIVITY_DEFEAT_FORT = "ACTIVITY_DEFEAT_FORT"+        showEnum ACTIVITY_EVOLVE_POKEMON = "ACTIVITY_EVOLVE_POKEMON"+        showEnum ACTIVITY_HATCH_EGG = "ACTIVITY_HATCH_EGG"+        showEnum ACTIVITY_WALK_KM = "ACTIVITY_WALK_KM"+        showEnum ACTIVITY_POKEDEX_ENTRY_NEW = "ACTIVITY_POKEDEX_ENTRY_NEW"+        showEnum ACTIVITY_CATCH_FIRST_THROW = "ACTIVITY_CATCH_FIRST_THROW"+        showEnum ACTIVITY_CATCH_NICE_THROW = "ACTIVITY_CATCH_NICE_THROW"+        showEnum ACTIVITY_CATCH_GREAT_THROW = "ACTIVITY_CATCH_GREAT_THROW"+        showEnum ACTIVITY_CATCH_EXCELLENT_THROW+          = "ACTIVITY_CATCH_EXCELLENT_THROW"+        showEnum ACTIVITY_CATCH_CURVEBALL = "ACTIVITY_CATCH_CURVEBALL"+        showEnum ACTIVITY_CATCH_FIRST_CATCH_OF_DAY+          = "ACTIVITY_CATCH_FIRST_CATCH_OF_DAY"+        showEnum ACTIVITY_CATCH_MILESTONE = "ACTIVITY_CATCH_MILESTONE"+        showEnum ACTIVITY_TRAIN_POKEMON = "ACTIVITY_TRAIN_POKEMON"+        showEnum ACTIVITY_SEARCH_FORT = "ACTIVITY_SEARCH_FORT"+        showEnum ACTIVITY_RELEASE_POKEMON = "ACTIVITY_RELEASE_POKEMON"+        showEnum ACTIVITY_HATCH_EGG_SMALL_BONUS+          = "ACTIVITY_HATCH_EGG_SMALL_BONUS"+        showEnum ACTIVITY_HATCH_EGG_MEDIUM_BONUS+          = "ACTIVITY_HATCH_EGG_MEDIUM_BONUS"+        showEnum ACTIVITY_HATCH_EGG_LARGE_BONUS+          = "ACTIVITY_HATCH_EGG_LARGE_BONUS"+        showEnum ACTIVITY_DEFEAT_GYM_DEFENDER+          = "ACTIVITY_DEFEAT_GYM_DEFENDER"+        showEnum ACTIVITY_DEFEAT_GYM_LEADER = "ACTIVITY_DEFEAT_GYM_LEADER"+        readEnum "ACTIVITY_UNKNOWN" = Prelude.Just ACTIVITY_UNKNOWN+        readEnum "ACTIVITY_CATCH_POKEMON"+          = Prelude.Just ACTIVITY_CATCH_POKEMON+        readEnum "ACTIVITY_CATCH_LEGEND_POKEMON"+          = Prelude.Just ACTIVITY_CATCH_LEGEND_POKEMON+        readEnum "ACTIVITY_FLEE_POKEMON"+          = Prelude.Just ACTIVITY_FLEE_POKEMON+        readEnum "ACTIVITY_DEFEAT_FORT" = Prelude.Just ACTIVITY_DEFEAT_FORT+        readEnum "ACTIVITY_EVOLVE_POKEMON"+          = Prelude.Just ACTIVITY_EVOLVE_POKEMON+        readEnum "ACTIVITY_HATCH_EGG" = Prelude.Just ACTIVITY_HATCH_EGG+        readEnum "ACTIVITY_WALK_KM" = Prelude.Just ACTIVITY_WALK_KM+        readEnum "ACTIVITY_POKEDEX_ENTRY_NEW"+          = Prelude.Just ACTIVITY_POKEDEX_ENTRY_NEW+        readEnum "ACTIVITY_CATCH_FIRST_THROW"+          = Prelude.Just ACTIVITY_CATCH_FIRST_THROW+        readEnum "ACTIVITY_CATCH_NICE_THROW"+          = Prelude.Just ACTIVITY_CATCH_NICE_THROW+        readEnum "ACTIVITY_CATCH_GREAT_THROW"+          = Prelude.Just ACTIVITY_CATCH_GREAT_THROW+        readEnum "ACTIVITY_CATCH_EXCELLENT_THROW"+          = Prelude.Just ACTIVITY_CATCH_EXCELLENT_THROW+        readEnum "ACTIVITY_CATCH_CURVEBALL"+          = Prelude.Just ACTIVITY_CATCH_CURVEBALL+        readEnum "ACTIVITY_CATCH_FIRST_CATCH_OF_DAY"+          = Prelude.Just ACTIVITY_CATCH_FIRST_CATCH_OF_DAY+        readEnum "ACTIVITY_CATCH_MILESTONE"+          = Prelude.Just ACTIVITY_CATCH_MILESTONE+        readEnum "ACTIVITY_TRAIN_POKEMON"+          = Prelude.Just ACTIVITY_TRAIN_POKEMON+        readEnum "ACTIVITY_SEARCH_FORT" = Prelude.Just ACTIVITY_SEARCH_FORT+        readEnum "ACTIVITY_RELEASE_POKEMON"+          = Prelude.Just ACTIVITY_RELEASE_POKEMON+        readEnum "ACTIVITY_HATCH_EGG_SMALL_BONUS"+          = Prelude.Just ACTIVITY_HATCH_EGG_SMALL_BONUS+        readEnum "ACTIVITY_HATCH_EGG_MEDIUM_BONUS"+          = Prelude.Just ACTIVITY_HATCH_EGG_MEDIUM_BONUS+        readEnum "ACTIVITY_HATCH_EGG_LARGE_BONUS"+          = Prelude.Just ACTIVITY_HATCH_EGG_LARGE_BONUS+        readEnum "ACTIVITY_DEFEAT_GYM_DEFENDER"+          = Prelude.Just ACTIVITY_DEFEAT_GYM_DEFENDER+        readEnum "ACTIVITY_DEFEAT_GYM_LEADER"+          = Prelude.Just ACTIVITY_DEFEAT_GYM_LEADER+        readEnum _ = Prelude.Nothing++instance Prelude.Enum ActivityType where+        toEnum k__+          = Prelude.maybe+              (Prelude.error+                 ((Prelude.++) "toEnum: unknown value for enum ActivityType: "+                    (Prelude.show k__)))+              Prelude.id+              (Data.ProtoLens.maybeToEnum k__)+        fromEnum ACTIVITY_UNKNOWN = 0+        fromEnum ACTIVITY_CATCH_POKEMON = 1+        fromEnum ACTIVITY_CATCH_LEGEND_POKEMON = 2+        fromEnum ACTIVITY_FLEE_POKEMON = 3+        fromEnum ACTIVITY_DEFEAT_FORT = 4+        fromEnum ACTIVITY_EVOLVE_POKEMON = 5+        fromEnum ACTIVITY_HATCH_EGG = 6+        fromEnum ACTIVITY_WALK_KM = 7+        fromEnum ACTIVITY_POKEDEX_ENTRY_NEW = 8+        fromEnum ACTIVITY_CATCH_FIRST_THROW = 9+        fromEnum ACTIVITY_CATCH_NICE_THROW = 10+        fromEnum ACTIVITY_CATCH_GREAT_THROW = 11+        fromEnum ACTIVITY_CATCH_EXCELLENT_THROW = 12+        fromEnum ACTIVITY_CATCH_CURVEBALL = 13+        fromEnum ACTIVITY_CATCH_FIRST_CATCH_OF_DAY = 14+        fromEnum ACTIVITY_CATCH_MILESTONE = 15+        fromEnum ACTIVITY_TRAIN_POKEMON = 16+        fromEnum ACTIVITY_SEARCH_FORT = 17+        fromEnum ACTIVITY_RELEASE_POKEMON = 18+        fromEnum ACTIVITY_HATCH_EGG_SMALL_BONUS = 19+        fromEnum ACTIVITY_HATCH_EGG_MEDIUM_BONUS = 20+        fromEnum ACTIVITY_HATCH_EGG_LARGE_BONUS = 21+        fromEnum ACTIVITY_DEFEAT_GYM_DEFENDER = 22+        fromEnum ACTIVITY_DEFEAT_GYM_LEADER = 23+        succ ACTIVITY_DEFEAT_GYM_LEADER+          = Prelude.error+              "Ident \"ActivityType\".Ident \"succ\": bad argument Ident \"ACTIVITY_DEFEAT_GYM_LEADER\". This value would be out of bounds."+        succ ACTIVITY_UNKNOWN = ACTIVITY_CATCH_POKEMON+        succ ACTIVITY_CATCH_POKEMON = ACTIVITY_CATCH_LEGEND_POKEMON+        succ ACTIVITY_CATCH_LEGEND_POKEMON = ACTIVITY_FLEE_POKEMON+        succ ACTIVITY_FLEE_POKEMON = ACTIVITY_DEFEAT_FORT+        succ ACTIVITY_DEFEAT_FORT = ACTIVITY_EVOLVE_POKEMON+        succ ACTIVITY_EVOLVE_POKEMON = ACTIVITY_HATCH_EGG+        succ ACTIVITY_HATCH_EGG = ACTIVITY_WALK_KM+        succ ACTIVITY_WALK_KM = ACTIVITY_POKEDEX_ENTRY_NEW+        succ ACTIVITY_POKEDEX_ENTRY_NEW = ACTIVITY_CATCH_FIRST_THROW+        succ ACTIVITY_CATCH_FIRST_THROW = ACTIVITY_CATCH_NICE_THROW+        succ ACTIVITY_CATCH_NICE_THROW = ACTIVITY_CATCH_GREAT_THROW+        succ ACTIVITY_CATCH_GREAT_THROW = ACTIVITY_CATCH_EXCELLENT_THROW+        succ ACTIVITY_CATCH_EXCELLENT_THROW = ACTIVITY_CATCH_CURVEBALL+        succ ACTIVITY_CATCH_CURVEBALL = ACTIVITY_CATCH_FIRST_CATCH_OF_DAY+        succ ACTIVITY_CATCH_FIRST_CATCH_OF_DAY = ACTIVITY_CATCH_MILESTONE+        succ ACTIVITY_CATCH_MILESTONE = ACTIVITY_TRAIN_POKEMON+        succ ACTIVITY_TRAIN_POKEMON = ACTIVITY_SEARCH_FORT+        succ ACTIVITY_SEARCH_FORT = ACTIVITY_RELEASE_POKEMON+        succ ACTIVITY_RELEASE_POKEMON = ACTIVITY_HATCH_EGG_SMALL_BONUS+        succ ACTIVITY_HATCH_EGG_SMALL_BONUS+          = ACTIVITY_HATCH_EGG_MEDIUM_BONUS+        succ ACTIVITY_HATCH_EGG_MEDIUM_BONUS+          = ACTIVITY_HATCH_EGG_LARGE_BONUS+        succ ACTIVITY_HATCH_EGG_LARGE_BONUS = ACTIVITY_DEFEAT_GYM_DEFENDER+        succ ACTIVITY_DEFEAT_GYM_DEFENDER = ACTIVITY_DEFEAT_GYM_LEADER+        pred ACTIVITY_UNKNOWN+          = Prelude.error+              "Ident \"ActivityType\".Ident \"pred\": bad argument Ident \"ACTIVITY_UNKNOWN\". This value would be out of bounds."+        pred ACTIVITY_CATCH_POKEMON = ACTIVITY_UNKNOWN+        pred ACTIVITY_CATCH_LEGEND_POKEMON = ACTIVITY_CATCH_POKEMON+        pred ACTIVITY_FLEE_POKEMON = ACTIVITY_CATCH_LEGEND_POKEMON+        pred ACTIVITY_DEFEAT_FORT = ACTIVITY_FLEE_POKEMON+        pred ACTIVITY_EVOLVE_POKEMON = ACTIVITY_DEFEAT_FORT+        pred ACTIVITY_HATCH_EGG = ACTIVITY_EVOLVE_POKEMON+        pred ACTIVITY_WALK_KM = ACTIVITY_HATCH_EGG+        pred ACTIVITY_POKEDEX_ENTRY_NEW = ACTIVITY_WALK_KM+        pred ACTIVITY_CATCH_FIRST_THROW = ACTIVITY_POKEDEX_ENTRY_NEW+        pred ACTIVITY_CATCH_NICE_THROW = ACTIVITY_CATCH_FIRST_THROW+        pred ACTIVITY_CATCH_GREAT_THROW = ACTIVITY_CATCH_NICE_THROW+        pred ACTIVITY_CATCH_EXCELLENT_THROW = ACTIVITY_CATCH_GREAT_THROW+        pred ACTIVITY_CATCH_CURVEBALL = ACTIVITY_CATCH_EXCELLENT_THROW+        pred ACTIVITY_CATCH_FIRST_CATCH_OF_DAY = ACTIVITY_CATCH_CURVEBALL+        pred ACTIVITY_CATCH_MILESTONE = ACTIVITY_CATCH_FIRST_CATCH_OF_DAY+        pred ACTIVITY_TRAIN_POKEMON = ACTIVITY_CATCH_MILESTONE+        pred ACTIVITY_SEARCH_FORT = ACTIVITY_TRAIN_POKEMON+        pred ACTIVITY_RELEASE_POKEMON = ACTIVITY_SEARCH_FORT+        pred ACTIVITY_HATCH_EGG_SMALL_BONUS = ACTIVITY_RELEASE_POKEMON+        pred ACTIVITY_HATCH_EGG_MEDIUM_BONUS+          = ACTIVITY_HATCH_EGG_SMALL_BONUS+        pred ACTIVITY_HATCH_EGG_LARGE_BONUS+          = ACTIVITY_HATCH_EGG_MEDIUM_BONUS+        pred ACTIVITY_DEFEAT_GYM_DEFENDER = ACTIVITY_HATCH_EGG_LARGE_BONUS+        pred ACTIVITY_DEFEAT_GYM_LEADER = ACTIVITY_DEFEAT_GYM_DEFENDER+        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 ActivityType where+        minBound = ACTIVITY_UNKNOWN+        maxBound = ACTIVITY_DEFEAT_GYM_LEADER
+ src/Proto/POGOProtos/Enums/BadgeType.hs view
@@ -0,0 +1,325 @@+{- This file was auto-generated from POGOProtos/Enums/BadgeType.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Enums.BadgeType 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 BadgeType = BADGE_UNSET+               | BADGE_TRAVEL_KM+               | BADGE_POKEDEX_ENTRIES+               | BADGE_CAPTURE_TOTAL+               | BADGE_DEFEATED_FORT+               | BADGE_EVOLVED_TOTAL+               | BADGE_HATCHED_TOTAL+               | BADGE_ENCOUNTERED_TOTAL+               | BADGE_POKESTOPS_VISITED+               | BADGE_UNIQUE_POKESTOPS+               | BADGE_POKEBALL_THROWN+               | BADGE_BIG_MAGIKARP+               | BADGE_DEPLOYED_TOTAL+               | BADGE_BATTLE_ATTACK_WON+               | BADGE_BATTLE_TRAINING_WON+               | BADGE_BATTLE_DEFEND_WON+               | BADGE_PRESTIGE_RAISED+               | BADGE_PRESTIGE_DROPPED+               | BADGE_TYPE_NORMAL+               | BADGE_TYPE_FIGHTING+               | BADGE_TYPE_FLYING+               | BADGE_TYPE_POISON+               | BADGE_TYPE_GROUND+               | BADGE_TYPE_ROCK+               | BADGE_TYPE_BUG+               | BADGE_TYPE_GHOST+               | BADGE_TYPE_STEEL+               | BADGE_TYPE_FIRE+               | BADGE_TYPE_WATER+               | BADGE_TYPE_GRASS+               | BADGE_TYPE_ELECTRIC+               | BADGE_TYPE_PSYCHIC+               | BADGE_TYPE_ICE+               | BADGE_TYPE_DRAGON+               | BADGE_TYPE_DARK+               | BADGE_TYPE_FAIRY+               | BADGE_SMALL_RATTATA+               | BADGE_PIKACHU+               deriving (Prelude.Show, Prelude.Eq)++instance Data.Default.Class.Default BadgeType where+        def = BADGE_UNSET++instance Data.ProtoLens.FieldDefault BadgeType where+        fieldDefault = BADGE_UNSET++instance Data.ProtoLens.MessageEnum BadgeType where+        maybeToEnum 0 = Prelude.Just BADGE_UNSET+        maybeToEnum 1 = Prelude.Just BADGE_TRAVEL_KM+        maybeToEnum 2 = Prelude.Just BADGE_POKEDEX_ENTRIES+        maybeToEnum 3 = Prelude.Just BADGE_CAPTURE_TOTAL+        maybeToEnum 4 = Prelude.Just BADGE_DEFEATED_FORT+        maybeToEnum 5 = Prelude.Just BADGE_EVOLVED_TOTAL+        maybeToEnum 6 = Prelude.Just BADGE_HATCHED_TOTAL+        maybeToEnum 7 = Prelude.Just BADGE_ENCOUNTERED_TOTAL+        maybeToEnum 8 = Prelude.Just BADGE_POKESTOPS_VISITED+        maybeToEnum 9 = Prelude.Just BADGE_UNIQUE_POKESTOPS+        maybeToEnum 10 = Prelude.Just BADGE_POKEBALL_THROWN+        maybeToEnum 11 = Prelude.Just BADGE_BIG_MAGIKARP+        maybeToEnum 12 = Prelude.Just BADGE_DEPLOYED_TOTAL+        maybeToEnum 13 = Prelude.Just BADGE_BATTLE_ATTACK_WON+        maybeToEnum 14 = Prelude.Just BADGE_BATTLE_TRAINING_WON+        maybeToEnum 15 = Prelude.Just BADGE_BATTLE_DEFEND_WON+        maybeToEnum 16 = Prelude.Just BADGE_PRESTIGE_RAISED+        maybeToEnum 17 = Prelude.Just BADGE_PRESTIGE_DROPPED+        maybeToEnum 18 = Prelude.Just BADGE_TYPE_NORMAL+        maybeToEnum 19 = Prelude.Just BADGE_TYPE_FIGHTING+        maybeToEnum 20 = Prelude.Just BADGE_TYPE_FLYING+        maybeToEnum 21 = Prelude.Just BADGE_TYPE_POISON+        maybeToEnum 22 = Prelude.Just BADGE_TYPE_GROUND+        maybeToEnum 23 = Prelude.Just BADGE_TYPE_ROCK+        maybeToEnum 24 = Prelude.Just BADGE_TYPE_BUG+        maybeToEnum 25 = Prelude.Just BADGE_TYPE_GHOST+        maybeToEnum 26 = Prelude.Just BADGE_TYPE_STEEL+        maybeToEnum 27 = Prelude.Just BADGE_TYPE_FIRE+        maybeToEnum 28 = Prelude.Just BADGE_TYPE_WATER+        maybeToEnum 29 = Prelude.Just BADGE_TYPE_GRASS+        maybeToEnum 30 = Prelude.Just BADGE_TYPE_ELECTRIC+        maybeToEnum 31 = Prelude.Just BADGE_TYPE_PSYCHIC+        maybeToEnum 32 = Prelude.Just BADGE_TYPE_ICE+        maybeToEnum 33 = Prelude.Just BADGE_TYPE_DRAGON+        maybeToEnum 34 = Prelude.Just BADGE_TYPE_DARK+        maybeToEnum 35 = Prelude.Just BADGE_TYPE_FAIRY+        maybeToEnum 36 = Prelude.Just BADGE_SMALL_RATTATA+        maybeToEnum 37 = Prelude.Just BADGE_PIKACHU+        maybeToEnum _ = Prelude.Nothing+        showEnum BADGE_UNSET = "BADGE_UNSET"+        showEnum BADGE_TRAVEL_KM = "BADGE_TRAVEL_KM"+        showEnum BADGE_POKEDEX_ENTRIES = "BADGE_POKEDEX_ENTRIES"+        showEnum BADGE_CAPTURE_TOTAL = "BADGE_CAPTURE_TOTAL"+        showEnum BADGE_DEFEATED_FORT = "BADGE_DEFEATED_FORT"+        showEnum BADGE_EVOLVED_TOTAL = "BADGE_EVOLVED_TOTAL"+        showEnum BADGE_HATCHED_TOTAL = "BADGE_HATCHED_TOTAL"+        showEnum BADGE_ENCOUNTERED_TOTAL = "BADGE_ENCOUNTERED_TOTAL"+        showEnum BADGE_POKESTOPS_VISITED = "BADGE_POKESTOPS_VISITED"+        showEnum BADGE_UNIQUE_POKESTOPS = "BADGE_UNIQUE_POKESTOPS"+        showEnum BADGE_POKEBALL_THROWN = "BADGE_POKEBALL_THROWN"+        showEnum BADGE_BIG_MAGIKARP = "BADGE_BIG_MAGIKARP"+        showEnum BADGE_DEPLOYED_TOTAL = "BADGE_DEPLOYED_TOTAL"+        showEnum BADGE_BATTLE_ATTACK_WON = "BADGE_BATTLE_ATTACK_WON"+        showEnum BADGE_BATTLE_TRAINING_WON = "BADGE_BATTLE_TRAINING_WON"+        showEnum BADGE_BATTLE_DEFEND_WON = "BADGE_BATTLE_DEFEND_WON"+        showEnum BADGE_PRESTIGE_RAISED = "BADGE_PRESTIGE_RAISED"+        showEnum BADGE_PRESTIGE_DROPPED = "BADGE_PRESTIGE_DROPPED"+        showEnum BADGE_TYPE_NORMAL = "BADGE_TYPE_NORMAL"+        showEnum BADGE_TYPE_FIGHTING = "BADGE_TYPE_FIGHTING"+        showEnum BADGE_TYPE_FLYING = "BADGE_TYPE_FLYING"+        showEnum BADGE_TYPE_POISON = "BADGE_TYPE_POISON"+        showEnum BADGE_TYPE_GROUND = "BADGE_TYPE_GROUND"+        showEnum BADGE_TYPE_ROCK = "BADGE_TYPE_ROCK"+        showEnum BADGE_TYPE_BUG = "BADGE_TYPE_BUG"+        showEnum BADGE_TYPE_GHOST = "BADGE_TYPE_GHOST"+        showEnum BADGE_TYPE_STEEL = "BADGE_TYPE_STEEL"+        showEnum BADGE_TYPE_FIRE = "BADGE_TYPE_FIRE"+        showEnum BADGE_TYPE_WATER = "BADGE_TYPE_WATER"+        showEnum BADGE_TYPE_GRASS = "BADGE_TYPE_GRASS"+        showEnum BADGE_TYPE_ELECTRIC = "BADGE_TYPE_ELECTRIC"+        showEnum BADGE_TYPE_PSYCHIC = "BADGE_TYPE_PSYCHIC"+        showEnum BADGE_TYPE_ICE = "BADGE_TYPE_ICE"+        showEnum BADGE_TYPE_DRAGON = "BADGE_TYPE_DRAGON"+        showEnum BADGE_TYPE_DARK = "BADGE_TYPE_DARK"+        showEnum BADGE_TYPE_FAIRY = "BADGE_TYPE_FAIRY"+        showEnum BADGE_SMALL_RATTATA = "BADGE_SMALL_RATTATA"+        showEnum BADGE_PIKACHU = "BADGE_PIKACHU"+        readEnum "BADGE_UNSET" = Prelude.Just BADGE_UNSET+        readEnum "BADGE_TRAVEL_KM" = Prelude.Just BADGE_TRAVEL_KM+        readEnum "BADGE_POKEDEX_ENTRIES"+          = Prelude.Just BADGE_POKEDEX_ENTRIES+        readEnum "BADGE_CAPTURE_TOTAL" = Prelude.Just BADGE_CAPTURE_TOTAL+        readEnum "BADGE_DEFEATED_FORT" = Prelude.Just BADGE_DEFEATED_FORT+        readEnum "BADGE_EVOLVED_TOTAL" = Prelude.Just BADGE_EVOLVED_TOTAL+        readEnum "BADGE_HATCHED_TOTAL" = Prelude.Just BADGE_HATCHED_TOTAL+        readEnum "BADGE_ENCOUNTERED_TOTAL"+          = Prelude.Just BADGE_ENCOUNTERED_TOTAL+        readEnum "BADGE_POKESTOPS_VISITED"+          = Prelude.Just BADGE_POKESTOPS_VISITED+        readEnum "BADGE_UNIQUE_POKESTOPS"+          = Prelude.Just BADGE_UNIQUE_POKESTOPS+        readEnum "BADGE_POKEBALL_THROWN"+          = Prelude.Just BADGE_POKEBALL_THROWN+        readEnum "BADGE_BIG_MAGIKARP" = Prelude.Just BADGE_BIG_MAGIKARP+        readEnum "BADGE_DEPLOYED_TOTAL" = Prelude.Just BADGE_DEPLOYED_TOTAL+        readEnum "BADGE_BATTLE_ATTACK_WON"+          = Prelude.Just BADGE_BATTLE_ATTACK_WON+        readEnum "BADGE_BATTLE_TRAINING_WON"+          = Prelude.Just BADGE_BATTLE_TRAINING_WON+        readEnum "BADGE_BATTLE_DEFEND_WON"+          = Prelude.Just BADGE_BATTLE_DEFEND_WON+        readEnum "BADGE_PRESTIGE_RAISED"+          = Prelude.Just BADGE_PRESTIGE_RAISED+        readEnum "BADGE_PRESTIGE_DROPPED"+          = Prelude.Just BADGE_PRESTIGE_DROPPED+        readEnum "BADGE_TYPE_NORMAL" = Prelude.Just BADGE_TYPE_NORMAL+        readEnum "BADGE_TYPE_FIGHTING" = Prelude.Just BADGE_TYPE_FIGHTING+        readEnum "BADGE_TYPE_FLYING" = Prelude.Just BADGE_TYPE_FLYING+        readEnum "BADGE_TYPE_POISON" = Prelude.Just BADGE_TYPE_POISON+        readEnum "BADGE_TYPE_GROUND" = Prelude.Just BADGE_TYPE_GROUND+        readEnum "BADGE_TYPE_ROCK" = Prelude.Just BADGE_TYPE_ROCK+        readEnum "BADGE_TYPE_BUG" = Prelude.Just BADGE_TYPE_BUG+        readEnum "BADGE_TYPE_GHOST" = Prelude.Just BADGE_TYPE_GHOST+        readEnum "BADGE_TYPE_STEEL" = Prelude.Just BADGE_TYPE_STEEL+        readEnum "BADGE_TYPE_FIRE" = Prelude.Just BADGE_TYPE_FIRE+        readEnum "BADGE_TYPE_WATER" = Prelude.Just BADGE_TYPE_WATER+        readEnum "BADGE_TYPE_GRASS" = Prelude.Just BADGE_TYPE_GRASS+        readEnum "BADGE_TYPE_ELECTRIC" = Prelude.Just BADGE_TYPE_ELECTRIC+        readEnum "BADGE_TYPE_PSYCHIC" = Prelude.Just BADGE_TYPE_PSYCHIC+        readEnum "BADGE_TYPE_ICE" = Prelude.Just BADGE_TYPE_ICE+        readEnum "BADGE_TYPE_DRAGON" = Prelude.Just BADGE_TYPE_DRAGON+        readEnum "BADGE_TYPE_DARK" = Prelude.Just BADGE_TYPE_DARK+        readEnum "BADGE_TYPE_FAIRY" = Prelude.Just BADGE_TYPE_FAIRY+        readEnum "BADGE_SMALL_RATTATA" = Prelude.Just BADGE_SMALL_RATTATA+        readEnum "BADGE_PIKACHU" = Prelude.Just BADGE_PIKACHU+        readEnum _ = Prelude.Nothing++instance Prelude.Enum BadgeType where+        toEnum k__+          = Prelude.maybe+              (Prelude.error+                 ((Prelude.++) "toEnum: unknown value for enum BadgeType: "+                    (Prelude.show k__)))+              Prelude.id+              (Data.ProtoLens.maybeToEnum k__)+        fromEnum BADGE_UNSET = 0+        fromEnum BADGE_TRAVEL_KM = 1+        fromEnum BADGE_POKEDEX_ENTRIES = 2+        fromEnum BADGE_CAPTURE_TOTAL = 3+        fromEnum BADGE_DEFEATED_FORT = 4+        fromEnum BADGE_EVOLVED_TOTAL = 5+        fromEnum BADGE_HATCHED_TOTAL = 6+        fromEnum BADGE_ENCOUNTERED_TOTAL = 7+        fromEnum BADGE_POKESTOPS_VISITED = 8+        fromEnum BADGE_UNIQUE_POKESTOPS = 9+        fromEnum BADGE_POKEBALL_THROWN = 10+        fromEnum BADGE_BIG_MAGIKARP = 11+        fromEnum BADGE_DEPLOYED_TOTAL = 12+        fromEnum BADGE_BATTLE_ATTACK_WON = 13+        fromEnum BADGE_BATTLE_TRAINING_WON = 14+        fromEnum BADGE_BATTLE_DEFEND_WON = 15+        fromEnum BADGE_PRESTIGE_RAISED = 16+        fromEnum BADGE_PRESTIGE_DROPPED = 17+        fromEnum BADGE_TYPE_NORMAL = 18+        fromEnum BADGE_TYPE_FIGHTING = 19+        fromEnum BADGE_TYPE_FLYING = 20+        fromEnum BADGE_TYPE_POISON = 21+        fromEnum BADGE_TYPE_GROUND = 22+        fromEnum BADGE_TYPE_ROCK = 23+        fromEnum BADGE_TYPE_BUG = 24+        fromEnum BADGE_TYPE_GHOST = 25+        fromEnum BADGE_TYPE_STEEL = 26+        fromEnum BADGE_TYPE_FIRE = 27+        fromEnum BADGE_TYPE_WATER = 28+        fromEnum BADGE_TYPE_GRASS = 29+        fromEnum BADGE_TYPE_ELECTRIC = 30+        fromEnum BADGE_TYPE_PSYCHIC = 31+        fromEnum BADGE_TYPE_ICE = 32+        fromEnum BADGE_TYPE_DRAGON = 33+        fromEnum BADGE_TYPE_DARK = 34+        fromEnum BADGE_TYPE_FAIRY = 35+        fromEnum BADGE_SMALL_RATTATA = 36+        fromEnum BADGE_PIKACHU = 37+        succ BADGE_PIKACHU+          = Prelude.error+              "Ident \"BadgeType\".Ident \"succ\": bad argument Ident \"BADGE_PIKACHU\". This value would be out of bounds."+        succ BADGE_UNSET = BADGE_TRAVEL_KM+        succ BADGE_TRAVEL_KM = BADGE_POKEDEX_ENTRIES+        succ BADGE_POKEDEX_ENTRIES = BADGE_CAPTURE_TOTAL+        succ BADGE_CAPTURE_TOTAL = BADGE_DEFEATED_FORT+        succ BADGE_DEFEATED_FORT = BADGE_EVOLVED_TOTAL+        succ BADGE_EVOLVED_TOTAL = BADGE_HATCHED_TOTAL+        succ BADGE_HATCHED_TOTAL = BADGE_ENCOUNTERED_TOTAL+        succ BADGE_ENCOUNTERED_TOTAL = BADGE_POKESTOPS_VISITED+        succ BADGE_POKESTOPS_VISITED = BADGE_UNIQUE_POKESTOPS+        succ BADGE_UNIQUE_POKESTOPS = BADGE_POKEBALL_THROWN+        succ BADGE_POKEBALL_THROWN = BADGE_BIG_MAGIKARP+        succ BADGE_BIG_MAGIKARP = BADGE_DEPLOYED_TOTAL+        succ BADGE_DEPLOYED_TOTAL = BADGE_BATTLE_ATTACK_WON+        succ BADGE_BATTLE_ATTACK_WON = BADGE_BATTLE_TRAINING_WON+        succ BADGE_BATTLE_TRAINING_WON = BADGE_BATTLE_DEFEND_WON+        succ BADGE_BATTLE_DEFEND_WON = BADGE_PRESTIGE_RAISED+        succ BADGE_PRESTIGE_RAISED = BADGE_PRESTIGE_DROPPED+        succ BADGE_PRESTIGE_DROPPED = BADGE_TYPE_NORMAL+        succ BADGE_TYPE_NORMAL = BADGE_TYPE_FIGHTING+        succ BADGE_TYPE_FIGHTING = BADGE_TYPE_FLYING+        succ BADGE_TYPE_FLYING = BADGE_TYPE_POISON+        succ BADGE_TYPE_POISON = BADGE_TYPE_GROUND+        succ BADGE_TYPE_GROUND = BADGE_TYPE_ROCK+        succ BADGE_TYPE_ROCK = BADGE_TYPE_BUG+        succ BADGE_TYPE_BUG = BADGE_TYPE_GHOST+        succ BADGE_TYPE_GHOST = BADGE_TYPE_STEEL+        succ BADGE_TYPE_STEEL = BADGE_TYPE_FIRE+        succ BADGE_TYPE_FIRE = BADGE_TYPE_WATER+        succ BADGE_TYPE_WATER = BADGE_TYPE_GRASS+        succ BADGE_TYPE_GRASS = BADGE_TYPE_ELECTRIC+        succ BADGE_TYPE_ELECTRIC = BADGE_TYPE_PSYCHIC+        succ BADGE_TYPE_PSYCHIC = BADGE_TYPE_ICE+        succ BADGE_TYPE_ICE = BADGE_TYPE_DRAGON+        succ BADGE_TYPE_DRAGON = BADGE_TYPE_DARK+        succ BADGE_TYPE_DARK = BADGE_TYPE_FAIRY+        succ BADGE_TYPE_FAIRY = BADGE_SMALL_RATTATA+        succ BADGE_SMALL_RATTATA = BADGE_PIKACHU+        pred BADGE_UNSET+          = Prelude.error+              "Ident \"BadgeType\".Ident \"pred\": bad argument Ident \"BADGE_UNSET\". This value would be out of bounds."+        pred BADGE_TRAVEL_KM = BADGE_UNSET+        pred BADGE_POKEDEX_ENTRIES = BADGE_TRAVEL_KM+        pred BADGE_CAPTURE_TOTAL = BADGE_POKEDEX_ENTRIES+        pred BADGE_DEFEATED_FORT = BADGE_CAPTURE_TOTAL+        pred BADGE_EVOLVED_TOTAL = BADGE_DEFEATED_FORT+        pred BADGE_HATCHED_TOTAL = BADGE_EVOLVED_TOTAL+        pred BADGE_ENCOUNTERED_TOTAL = BADGE_HATCHED_TOTAL+        pred BADGE_POKESTOPS_VISITED = BADGE_ENCOUNTERED_TOTAL+        pred BADGE_UNIQUE_POKESTOPS = BADGE_POKESTOPS_VISITED+        pred BADGE_POKEBALL_THROWN = BADGE_UNIQUE_POKESTOPS+        pred BADGE_BIG_MAGIKARP = BADGE_POKEBALL_THROWN+        pred BADGE_DEPLOYED_TOTAL = BADGE_BIG_MAGIKARP+        pred BADGE_BATTLE_ATTACK_WON = BADGE_DEPLOYED_TOTAL+        pred BADGE_BATTLE_TRAINING_WON = BADGE_BATTLE_ATTACK_WON+        pred BADGE_BATTLE_DEFEND_WON = BADGE_BATTLE_TRAINING_WON+        pred BADGE_PRESTIGE_RAISED = BADGE_BATTLE_DEFEND_WON+        pred BADGE_PRESTIGE_DROPPED = BADGE_PRESTIGE_RAISED+        pred BADGE_TYPE_NORMAL = BADGE_PRESTIGE_DROPPED+        pred BADGE_TYPE_FIGHTING = BADGE_TYPE_NORMAL+        pred BADGE_TYPE_FLYING = BADGE_TYPE_FIGHTING+        pred BADGE_TYPE_POISON = BADGE_TYPE_FLYING+        pred BADGE_TYPE_GROUND = BADGE_TYPE_POISON+        pred BADGE_TYPE_ROCK = BADGE_TYPE_GROUND+        pred BADGE_TYPE_BUG = BADGE_TYPE_ROCK+        pred BADGE_TYPE_GHOST = BADGE_TYPE_BUG+        pred BADGE_TYPE_STEEL = BADGE_TYPE_GHOST+        pred BADGE_TYPE_FIRE = BADGE_TYPE_STEEL+        pred BADGE_TYPE_WATER = BADGE_TYPE_FIRE+        pred BADGE_TYPE_GRASS = BADGE_TYPE_WATER+        pred BADGE_TYPE_ELECTRIC = BADGE_TYPE_GRASS+        pred BADGE_TYPE_PSYCHIC = BADGE_TYPE_ELECTRIC+        pred BADGE_TYPE_ICE = BADGE_TYPE_PSYCHIC+        pred BADGE_TYPE_DRAGON = BADGE_TYPE_ICE+        pred BADGE_TYPE_DARK = BADGE_TYPE_DRAGON+        pred BADGE_TYPE_FAIRY = BADGE_TYPE_DARK+        pred BADGE_SMALL_RATTATA = BADGE_TYPE_FAIRY+        pred BADGE_PIKACHU = BADGE_SMALL_RATTATA+        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 BadgeType where+        minBound = BADGE_UNSET+        maxBound = BADGE_PIKACHU
+ src/Proto/POGOProtos/Enums/CameraInterpolation.hs view
@@ -0,0 +1,87 @@+{- This file was auto-generated from POGOProtos/Enums/CameraInterpolation.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Enums.CameraInterpolation 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 CameraInterpolation = CAM_INTERP_CUT+                         | CAM_INTERP_LINEAR+                         | CAM_INTERP_SMOOTH+                         | CAM_INTERP_SMOOTH_ROT_LINEAR_MOVE+                         | CAM_INTERP_DEPENDS+                         deriving (Prelude.Show, Prelude.Eq)++instance Data.Default.Class.Default CameraInterpolation where+        def = CAM_INTERP_CUT++instance Data.ProtoLens.FieldDefault CameraInterpolation where+        fieldDefault = CAM_INTERP_CUT++instance Data.ProtoLens.MessageEnum CameraInterpolation where+        maybeToEnum 0 = Prelude.Just CAM_INTERP_CUT+        maybeToEnum 1 = Prelude.Just CAM_INTERP_LINEAR+        maybeToEnum 2 = Prelude.Just CAM_INTERP_SMOOTH+        maybeToEnum 3 = Prelude.Just CAM_INTERP_SMOOTH_ROT_LINEAR_MOVE+        maybeToEnum 4 = Prelude.Just CAM_INTERP_DEPENDS+        maybeToEnum _ = Prelude.Nothing+        showEnum CAM_INTERP_CUT = "CAM_INTERP_CUT"+        showEnum CAM_INTERP_LINEAR = "CAM_INTERP_LINEAR"+        showEnum CAM_INTERP_SMOOTH = "CAM_INTERP_SMOOTH"+        showEnum CAM_INTERP_SMOOTH_ROT_LINEAR_MOVE+          = "CAM_INTERP_SMOOTH_ROT_LINEAR_MOVE"+        showEnum CAM_INTERP_DEPENDS = "CAM_INTERP_DEPENDS"+        readEnum "CAM_INTERP_CUT" = Prelude.Just CAM_INTERP_CUT+        readEnum "CAM_INTERP_LINEAR" = Prelude.Just CAM_INTERP_LINEAR+        readEnum "CAM_INTERP_SMOOTH" = Prelude.Just CAM_INTERP_SMOOTH+        readEnum "CAM_INTERP_SMOOTH_ROT_LINEAR_MOVE"+          = Prelude.Just CAM_INTERP_SMOOTH_ROT_LINEAR_MOVE+        readEnum "CAM_INTERP_DEPENDS" = Prelude.Just CAM_INTERP_DEPENDS+        readEnum _ = Prelude.Nothing++instance Prelude.Enum CameraInterpolation where+        toEnum k__+          = Prelude.maybe+              (Prelude.error+                 ((Prelude.++)+                    "toEnum: unknown value for enum CameraInterpolation: "+                    (Prelude.show k__)))+              Prelude.id+              (Data.ProtoLens.maybeToEnum k__)+        fromEnum CAM_INTERP_CUT = 0+        fromEnum CAM_INTERP_LINEAR = 1+        fromEnum CAM_INTERP_SMOOTH = 2+        fromEnum CAM_INTERP_SMOOTH_ROT_LINEAR_MOVE = 3+        fromEnum CAM_INTERP_DEPENDS = 4+        succ CAM_INTERP_DEPENDS+          = Prelude.error+              "Ident \"CameraInterpolation\".Ident \"succ\": bad argument Ident \"CAM_INTERP_DEPENDS\". This value would be out of bounds."+        succ CAM_INTERP_CUT = CAM_INTERP_LINEAR+        succ CAM_INTERP_LINEAR = CAM_INTERP_SMOOTH+        succ CAM_INTERP_SMOOTH = CAM_INTERP_SMOOTH_ROT_LINEAR_MOVE+        succ CAM_INTERP_SMOOTH_ROT_LINEAR_MOVE = CAM_INTERP_DEPENDS+        pred CAM_INTERP_CUT+          = Prelude.error+              "Ident \"CameraInterpolation\".Ident \"pred\": bad argument Ident \"CAM_INTERP_CUT\". This value would be out of bounds."+        pred CAM_INTERP_LINEAR = CAM_INTERP_CUT+        pred CAM_INTERP_SMOOTH = CAM_INTERP_LINEAR+        pred CAM_INTERP_SMOOTH_ROT_LINEAR_MOVE = CAM_INTERP_SMOOTH+        pred CAM_INTERP_DEPENDS = CAM_INTERP_SMOOTH_ROT_LINEAR_MOVE+        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 CameraInterpolation where+        minBound = CAM_INTERP_CUT+        maxBound = CAM_INTERP_DEPENDS
+ src/Proto/POGOProtos/Enums/CameraTarget.hs view
@@ -0,0 +1,182 @@+{- This file was auto-generated from POGOProtos/Enums/CameraTarget.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Enums.CameraTarget 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 CameraTarget = CAM_TARGET_ATTACKER+                  | CAM_TARGET_ATTACKER_EDGE+                  | CAM_TARGET_ATTACKER_GROUND+                  | CAM_TARGET_DEFENDER+                  | CAM_TARGET_DEFENDER_EDGE+                  | CAM_TARGET_DEFENDER_GROUND+                  | CAM_TARGET_ATTACKER_DEFENDER+                  | CAM_TARGET_ATTACKER_DEFENDER_EDGE+                  | CAM_TARGET_DEFENDER_ATTACKER+                  | CAM_TARGET_DEFENDER_ATTACKER_EDGE+                  | CAM_TARGET_ATTACKER_DEFENDER_MIRROR+                  | CAM_TARGET_SHOULDER_ATTACKER_DEFENDER+                  | CAM_TARGET_SHOULDER_ATTACKER_DEFENDER_MIRROR+                  | CAM_TARGET_ATTACKER_DEFENDER_WORLD+                  deriving (Prelude.Show, Prelude.Eq)++instance Data.Default.Class.Default CameraTarget where+        def = CAM_TARGET_ATTACKER++instance Data.ProtoLens.FieldDefault CameraTarget where+        fieldDefault = CAM_TARGET_ATTACKER++instance Data.ProtoLens.MessageEnum CameraTarget where+        maybeToEnum 0 = Prelude.Just CAM_TARGET_ATTACKER+        maybeToEnum 1 = Prelude.Just CAM_TARGET_ATTACKER_EDGE+        maybeToEnum 2 = Prelude.Just CAM_TARGET_ATTACKER_GROUND+        maybeToEnum 3 = Prelude.Just CAM_TARGET_DEFENDER+        maybeToEnum 4 = Prelude.Just CAM_TARGET_DEFENDER_EDGE+        maybeToEnum 5 = Prelude.Just CAM_TARGET_DEFENDER_GROUND+        maybeToEnum 6 = Prelude.Just CAM_TARGET_ATTACKER_DEFENDER+        maybeToEnum 7 = Prelude.Just CAM_TARGET_ATTACKER_DEFENDER_EDGE+        maybeToEnum 8 = Prelude.Just CAM_TARGET_DEFENDER_ATTACKER+        maybeToEnum 9 = Prelude.Just CAM_TARGET_DEFENDER_ATTACKER_EDGE+        maybeToEnum 11 = Prelude.Just CAM_TARGET_ATTACKER_DEFENDER_MIRROR+        maybeToEnum 12 = Prelude.Just CAM_TARGET_SHOULDER_ATTACKER_DEFENDER+        maybeToEnum 13+          = Prelude.Just CAM_TARGET_SHOULDER_ATTACKER_DEFENDER_MIRROR+        maybeToEnum 14 = Prelude.Just CAM_TARGET_ATTACKER_DEFENDER_WORLD+        maybeToEnum _ = Prelude.Nothing+        showEnum CAM_TARGET_ATTACKER = "CAM_TARGET_ATTACKER"+        showEnum CAM_TARGET_ATTACKER_EDGE = "CAM_TARGET_ATTACKER_EDGE"+        showEnum CAM_TARGET_ATTACKER_GROUND = "CAM_TARGET_ATTACKER_GROUND"+        showEnum CAM_TARGET_DEFENDER = "CAM_TARGET_DEFENDER"+        showEnum CAM_TARGET_DEFENDER_EDGE = "CAM_TARGET_DEFENDER_EDGE"+        showEnum CAM_TARGET_DEFENDER_GROUND = "CAM_TARGET_DEFENDER_GROUND"+        showEnum CAM_TARGET_ATTACKER_DEFENDER+          = "CAM_TARGET_ATTACKER_DEFENDER"+        showEnum CAM_TARGET_ATTACKER_DEFENDER_EDGE+          = "CAM_TARGET_ATTACKER_DEFENDER_EDGE"+        showEnum CAM_TARGET_DEFENDER_ATTACKER+          = "CAM_TARGET_DEFENDER_ATTACKER"+        showEnum CAM_TARGET_DEFENDER_ATTACKER_EDGE+          = "CAM_TARGET_DEFENDER_ATTACKER_EDGE"+        showEnum CAM_TARGET_ATTACKER_DEFENDER_MIRROR+          = "CAM_TARGET_ATTACKER_DEFENDER_MIRROR"+        showEnum CAM_TARGET_SHOULDER_ATTACKER_DEFENDER+          = "CAM_TARGET_SHOULDER_ATTACKER_DEFENDER"+        showEnum CAM_TARGET_SHOULDER_ATTACKER_DEFENDER_MIRROR+          = "CAM_TARGET_SHOULDER_ATTACKER_DEFENDER_MIRROR"+        showEnum CAM_TARGET_ATTACKER_DEFENDER_WORLD+          = "CAM_TARGET_ATTACKER_DEFENDER_WORLD"+        readEnum "CAM_TARGET_ATTACKER" = Prelude.Just CAM_TARGET_ATTACKER+        readEnum "CAM_TARGET_ATTACKER_EDGE"+          = Prelude.Just CAM_TARGET_ATTACKER_EDGE+        readEnum "CAM_TARGET_ATTACKER_GROUND"+          = Prelude.Just CAM_TARGET_ATTACKER_GROUND+        readEnum "CAM_TARGET_DEFENDER" = Prelude.Just CAM_TARGET_DEFENDER+        readEnum "CAM_TARGET_DEFENDER_EDGE"+          = Prelude.Just CAM_TARGET_DEFENDER_EDGE+        readEnum "CAM_TARGET_DEFENDER_GROUND"+          = Prelude.Just CAM_TARGET_DEFENDER_GROUND+        readEnum "CAM_TARGET_ATTACKER_DEFENDER"+          = Prelude.Just CAM_TARGET_ATTACKER_DEFENDER+        readEnum "CAM_TARGET_ATTACKER_DEFENDER_EDGE"+          = Prelude.Just CAM_TARGET_ATTACKER_DEFENDER_EDGE+        readEnum "CAM_TARGET_DEFENDER_ATTACKER"+          = Prelude.Just CAM_TARGET_DEFENDER_ATTACKER+        readEnum "CAM_TARGET_DEFENDER_ATTACKER_EDGE"+          = Prelude.Just CAM_TARGET_DEFENDER_ATTACKER_EDGE+        readEnum "CAM_TARGET_ATTACKER_DEFENDER_MIRROR"+          = Prelude.Just CAM_TARGET_ATTACKER_DEFENDER_MIRROR+        readEnum "CAM_TARGET_SHOULDER_ATTACKER_DEFENDER"+          = Prelude.Just CAM_TARGET_SHOULDER_ATTACKER_DEFENDER+        readEnum "CAM_TARGET_SHOULDER_ATTACKER_DEFENDER_MIRROR"+          = Prelude.Just CAM_TARGET_SHOULDER_ATTACKER_DEFENDER_MIRROR+        readEnum "CAM_TARGET_ATTACKER_DEFENDER_WORLD"+          = Prelude.Just CAM_TARGET_ATTACKER_DEFENDER_WORLD+        readEnum _ = Prelude.Nothing++instance Prelude.Enum CameraTarget where+        toEnum k__+          = Prelude.maybe+              (Prelude.error+                 ((Prelude.++) "toEnum: unknown value for enum CameraTarget: "+                    (Prelude.show k__)))+              Prelude.id+              (Data.ProtoLens.maybeToEnum k__)+        fromEnum CAM_TARGET_ATTACKER = 0+        fromEnum CAM_TARGET_ATTACKER_EDGE = 1+        fromEnum CAM_TARGET_ATTACKER_GROUND = 2+        fromEnum CAM_TARGET_DEFENDER = 3+        fromEnum CAM_TARGET_DEFENDER_EDGE = 4+        fromEnum CAM_TARGET_DEFENDER_GROUND = 5+        fromEnum CAM_TARGET_ATTACKER_DEFENDER = 6+        fromEnum CAM_TARGET_ATTACKER_DEFENDER_EDGE = 7+        fromEnum CAM_TARGET_DEFENDER_ATTACKER = 8+        fromEnum CAM_TARGET_DEFENDER_ATTACKER_EDGE = 9+        fromEnum CAM_TARGET_ATTACKER_DEFENDER_MIRROR = 11+        fromEnum CAM_TARGET_SHOULDER_ATTACKER_DEFENDER = 12+        fromEnum CAM_TARGET_SHOULDER_ATTACKER_DEFENDER_MIRROR = 13+        fromEnum CAM_TARGET_ATTACKER_DEFENDER_WORLD = 14+        succ CAM_TARGET_ATTACKER_DEFENDER_WORLD+          = Prelude.error+              "Ident \"CameraTarget\".Ident \"succ\": bad argument Ident \"CAM_TARGET_ATTACKER_DEFENDER_WORLD\". This value would be out of bounds."+        succ CAM_TARGET_ATTACKER = CAM_TARGET_ATTACKER_EDGE+        succ CAM_TARGET_ATTACKER_EDGE = CAM_TARGET_ATTACKER_GROUND+        succ CAM_TARGET_ATTACKER_GROUND = CAM_TARGET_DEFENDER+        succ CAM_TARGET_DEFENDER = CAM_TARGET_DEFENDER_EDGE+        succ CAM_TARGET_DEFENDER_EDGE = CAM_TARGET_DEFENDER_GROUND+        succ CAM_TARGET_DEFENDER_GROUND = CAM_TARGET_ATTACKER_DEFENDER+        succ CAM_TARGET_ATTACKER_DEFENDER+          = CAM_TARGET_ATTACKER_DEFENDER_EDGE+        succ CAM_TARGET_ATTACKER_DEFENDER_EDGE+          = CAM_TARGET_DEFENDER_ATTACKER+        succ CAM_TARGET_DEFENDER_ATTACKER+          = CAM_TARGET_DEFENDER_ATTACKER_EDGE+        succ CAM_TARGET_DEFENDER_ATTACKER_EDGE+          = CAM_TARGET_ATTACKER_DEFENDER_MIRROR+        succ CAM_TARGET_ATTACKER_DEFENDER_MIRROR+          = CAM_TARGET_SHOULDER_ATTACKER_DEFENDER+        succ CAM_TARGET_SHOULDER_ATTACKER_DEFENDER+          = CAM_TARGET_SHOULDER_ATTACKER_DEFENDER_MIRROR+        succ CAM_TARGET_SHOULDER_ATTACKER_DEFENDER_MIRROR+          = CAM_TARGET_ATTACKER_DEFENDER_WORLD+        pred CAM_TARGET_ATTACKER+          = Prelude.error+              "Ident \"CameraTarget\".Ident \"pred\": bad argument Ident \"CAM_TARGET_ATTACKER\". This value would be out of bounds."+        pred CAM_TARGET_ATTACKER_EDGE = CAM_TARGET_ATTACKER+        pred CAM_TARGET_ATTACKER_GROUND = CAM_TARGET_ATTACKER_EDGE+        pred CAM_TARGET_DEFENDER = CAM_TARGET_ATTACKER_GROUND+        pred CAM_TARGET_DEFENDER_EDGE = CAM_TARGET_DEFENDER+        pred CAM_TARGET_DEFENDER_GROUND = CAM_TARGET_DEFENDER_EDGE+        pred CAM_TARGET_ATTACKER_DEFENDER = CAM_TARGET_DEFENDER_GROUND+        pred CAM_TARGET_ATTACKER_DEFENDER_EDGE+          = CAM_TARGET_ATTACKER_DEFENDER+        pred CAM_TARGET_DEFENDER_ATTACKER+          = CAM_TARGET_ATTACKER_DEFENDER_EDGE+        pred CAM_TARGET_DEFENDER_ATTACKER_EDGE+          = CAM_TARGET_DEFENDER_ATTACKER+        pred CAM_TARGET_ATTACKER_DEFENDER_MIRROR+          = CAM_TARGET_DEFENDER_ATTACKER_EDGE+        pred CAM_TARGET_SHOULDER_ATTACKER_DEFENDER+          = CAM_TARGET_ATTACKER_DEFENDER_MIRROR+        pred CAM_TARGET_SHOULDER_ATTACKER_DEFENDER_MIRROR+          = CAM_TARGET_SHOULDER_ATTACKER_DEFENDER+        pred CAM_TARGET_ATTACKER_DEFENDER_WORLD+          = CAM_TARGET_SHOULDER_ATTACKER_DEFENDER_MIRROR+        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 CameraTarget where+        minBound = CAM_TARGET_ATTACKER+        maxBound = CAM_TARGET_ATTACKER_DEFENDER_WORLD
+ src/Proto/POGOProtos/Enums/Gender.hs view
@@ -0,0 +1,63 @@+{- This file was auto-generated from POGOProtos/Enums/Gender.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Enums.Gender 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 Gender = MALE+            | FEMALE+            deriving (Prelude.Show, Prelude.Eq)++instance Data.Default.Class.Default Gender where+        def = MALE++instance Data.ProtoLens.FieldDefault Gender where+        fieldDefault = MALE++instance Data.ProtoLens.MessageEnum Gender where+        maybeToEnum 0 = Prelude.Just MALE+        maybeToEnum 1 = Prelude.Just FEMALE+        maybeToEnum _ = Prelude.Nothing+        showEnum MALE = "MALE"+        showEnum FEMALE = "FEMALE"+        readEnum "MALE" = Prelude.Just MALE+        readEnum "FEMALE" = Prelude.Just FEMALE+        readEnum _ = Prelude.Nothing++instance Prelude.Enum Gender where+        toEnum k__+          = Prelude.maybe+              (Prelude.error+                 ((Prelude.++) "toEnum: unknown value for enum Gender: "+                    (Prelude.show k__)))+              Prelude.id+              (Data.ProtoLens.maybeToEnum k__)+        fromEnum MALE = 0+        fromEnum FEMALE = 1+        succ FEMALE+          = Prelude.error+              "Ident \"Gender\".Ident \"succ\": bad argument Ident \"FEMALE\". This value would be out of bounds."+        succ MALE = FEMALE+        pred MALE+          = Prelude.error+              "Ident \"Gender\".Ident \"pred\": bad argument Ident \"MALE\". This value would be out of bounds."+        pred FEMALE = MALE+        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 Gender where+        minBound = MALE+        maxBound = FEMALE
+ src/Proto/POGOProtos/Enums/IapItemCategory.hs view
@@ -0,0 +1,87 @@+{- This file was auto-generated from POGOProtos/Enums/IapItemCategory.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Enums.IapItemCategory 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 HoloIapItemCategory = IAP_CATEGORY_NONE+                         | IAP_CATEGORY_BUNDLE+                         | IAP_CATEGORY_ITEMS+                         | IAP_CATEGORY_UPGRADES+                         | IAP_CATEGORY_POKECOINS+                         deriving (Prelude.Show, Prelude.Eq)++instance Data.Default.Class.Default HoloIapItemCategory where+        def = IAP_CATEGORY_NONE++instance Data.ProtoLens.FieldDefault HoloIapItemCategory where+        fieldDefault = IAP_CATEGORY_NONE++instance Data.ProtoLens.MessageEnum HoloIapItemCategory where+        maybeToEnum 0 = Prelude.Just IAP_CATEGORY_NONE+        maybeToEnum 1 = Prelude.Just IAP_CATEGORY_BUNDLE+        maybeToEnum 2 = Prelude.Just IAP_CATEGORY_ITEMS+        maybeToEnum 3 = Prelude.Just IAP_CATEGORY_UPGRADES+        maybeToEnum 4 = Prelude.Just IAP_CATEGORY_POKECOINS+        maybeToEnum _ = Prelude.Nothing+        showEnum IAP_CATEGORY_NONE = "IAP_CATEGORY_NONE"+        showEnum IAP_CATEGORY_BUNDLE = "IAP_CATEGORY_BUNDLE"+        showEnum IAP_CATEGORY_ITEMS = "IAP_CATEGORY_ITEMS"+        showEnum IAP_CATEGORY_UPGRADES = "IAP_CATEGORY_UPGRADES"+        showEnum IAP_CATEGORY_POKECOINS = "IAP_CATEGORY_POKECOINS"+        readEnum "IAP_CATEGORY_NONE" = Prelude.Just IAP_CATEGORY_NONE+        readEnum "IAP_CATEGORY_BUNDLE" = Prelude.Just IAP_CATEGORY_BUNDLE+        readEnum "IAP_CATEGORY_ITEMS" = Prelude.Just IAP_CATEGORY_ITEMS+        readEnum "IAP_CATEGORY_UPGRADES"+          = Prelude.Just IAP_CATEGORY_UPGRADES+        readEnum "IAP_CATEGORY_POKECOINS"+          = Prelude.Just IAP_CATEGORY_POKECOINS+        readEnum _ = Prelude.Nothing++instance Prelude.Enum HoloIapItemCategory where+        toEnum k__+          = Prelude.maybe+              (Prelude.error+                 ((Prelude.++)+                    "toEnum: unknown value for enum HoloIapItemCategory: "+                    (Prelude.show k__)))+              Prelude.id+              (Data.ProtoLens.maybeToEnum k__)+        fromEnum IAP_CATEGORY_NONE = 0+        fromEnum IAP_CATEGORY_BUNDLE = 1+        fromEnum IAP_CATEGORY_ITEMS = 2+        fromEnum IAP_CATEGORY_UPGRADES = 3+        fromEnum IAP_CATEGORY_POKECOINS = 4+        succ IAP_CATEGORY_POKECOINS+          = Prelude.error+              "Ident \"HoloIapItemCategory\".Ident \"succ\": bad argument Ident \"IAP_CATEGORY_POKECOINS\". This value would be out of bounds."+        succ IAP_CATEGORY_NONE = IAP_CATEGORY_BUNDLE+        succ IAP_CATEGORY_BUNDLE = IAP_CATEGORY_ITEMS+        succ IAP_CATEGORY_ITEMS = IAP_CATEGORY_UPGRADES+        succ IAP_CATEGORY_UPGRADES = IAP_CATEGORY_POKECOINS+        pred IAP_CATEGORY_NONE+          = Prelude.error+              "Ident \"HoloIapItemCategory\".Ident \"pred\": bad argument Ident \"IAP_CATEGORY_NONE\". This value would be out of bounds."+        pred IAP_CATEGORY_BUNDLE = IAP_CATEGORY_NONE+        pred IAP_CATEGORY_ITEMS = IAP_CATEGORY_BUNDLE+        pred IAP_CATEGORY_UPGRADES = IAP_CATEGORY_ITEMS+        pred IAP_CATEGORY_POKECOINS = IAP_CATEGORY_UPGRADES+        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 HoloIapItemCategory where+        minBound = IAP_CATEGORY_NONE+        maxBound = IAP_CATEGORY_POKECOINS
+ src/Proto/POGOProtos/Enums/ItemCategory.hs view
@@ -0,0 +1,141 @@+{- This file was auto-generated from POGOProtos/Enums/ItemCategory.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Enums.ItemCategory 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 ItemCategory = ITEM_CATEGORY_NONE+                  | ITEM_CATEGORY_POKEBALL+                  | ITEM_CATEGORY_FOOD+                  | ITEM_CATEGORY_MEDICINE+                  | ITEM_CATEGORY_BOOST+                  | ITEM_CATEGORY_UTILITES+                  | ITEM_CATEGORY_CAMERA+                  | ITEM_CATEGORY_DISK+                  | ITEM_CATEGORY_INCUBATOR+                  | ITEM_CATEGORY_INCENSE+                  | ITEM_CATEGORY_XP_BOOST+                  | ITEM_CATEGORY_INVENTORY_UPGRADE+                  deriving (Prelude.Show, Prelude.Eq)++instance Data.Default.Class.Default ItemCategory where+        def = ITEM_CATEGORY_NONE++instance Data.ProtoLens.FieldDefault ItemCategory where+        fieldDefault = ITEM_CATEGORY_NONE++instance Data.ProtoLens.MessageEnum ItemCategory where+        maybeToEnum 0 = Prelude.Just ITEM_CATEGORY_NONE+        maybeToEnum 1 = Prelude.Just ITEM_CATEGORY_POKEBALL+        maybeToEnum 2 = Prelude.Just ITEM_CATEGORY_FOOD+        maybeToEnum 3 = Prelude.Just ITEM_CATEGORY_MEDICINE+        maybeToEnum 4 = Prelude.Just ITEM_CATEGORY_BOOST+        maybeToEnum 5 = Prelude.Just ITEM_CATEGORY_UTILITES+        maybeToEnum 6 = Prelude.Just ITEM_CATEGORY_CAMERA+        maybeToEnum 7 = Prelude.Just ITEM_CATEGORY_DISK+        maybeToEnum 8 = Prelude.Just ITEM_CATEGORY_INCUBATOR+        maybeToEnum 9 = Prelude.Just ITEM_CATEGORY_INCENSE+        maybeToEnum 10 = Prelude.Just ITEM_CATEGORY_XP_BOOST+        maybeToEnum 11 = Prelude.Just ITEM_CATEGORY_INVENTORY_UPGRADE+        maybeToEnum _ = Prelude.Nothing+        showEnum ITEM_CATEGORY_NONE = "ITEM_CATEGORY_NONE"+        showEnum ITEM_CATEGORY_POKEBALL = "ITEM_CATEGORY_POKEBALL"+        showEnum ITEM_CATEGORY_FOOD = "ITEM_CATEGORY_FOOD"+        showEnum ITEM_CATEGORY_MEDICINE = "ITEM_CATEGORY_MEDICINE"+        showEnum ITEM_CATEGORY_BOOST = "ITEM_CATEGORY_BOOST"+        showEnum ITEM_CATEGORY_UTILITES = "ITEM_CATEGORY_UTILITES"+        showEnum ITEM_CATEGORY_CAMERA = "ITEM_CATEGORY_CAMERA"+        showEnum ITEM_CATEGORY_DISK = "ITEM_CATEGORY_DISK"+        showEnum ITEM_CATEGORY_INCUBATOR = "ITEM_CATEGORY_INCUBATOR"+        showEnum ITEM_CATEGORY_INCENSE = "ITEM_CATEGORY_INCENSE"+        showEnum ITEM_CATEGORY_XP_BOOST = "ITEM_CATEGORY_XP_BOOST"+        showEnum ITEM_CATEGORY_INVENTORY_UPGRADE+          = "ITEM_CATEGORY_INVENTORY_UPGRADE"+        readEnum "ITEM_CATEGORY_NONE" = Prelude.Just ITEM_CATEGORY_NONE+        readEnum "ITEM_CATEGORY_POKEBALL"+          = Prelude.Just ITEM_CATEGORY_POKEBALL+        readEnum "ITEM_CATEGORY_FOOD" = Prelude.Just ITEM_CATEGORY_FOOD+        readEnum "ITEM_CATEGORY_MEDICINE"+          = Prelude.Just ITEM_CATEGORY_MEDICINE+        readEnum "ITEM_CATEGORY_BOOST" = Prelude.Just ITEM_CATEGORY_BOOST+        readEnum "ITEM_CATEGORY_UTILITES"+          = Prelude.Just ITEM_CATEGORY_UTILITES+        readEnum "ITEM_CATEGORY_CAMERA" = Prelude.Just ITEM_CATEGORY_CAMERA+        readEnum "ITEM_CATEGORY_DISK" = Prelude.Just ITEM_CATEGORY_DISK+        readEnum "ITEM_CATEGORY_INCUBATOR"+          = Prelude.Just ITEM_CATEGORY_INCUBATOR+        readEnum "ITEM_CATEGORY_INCENSE"+          = Prelude.Just ITEM_CATEGORY_INCENSE+        readEnum "ITEM_CATEGORY_XP_BOOST"+          = Prelude.Just ITEM_CATEGORY_XP_BOOST+        readEnum "ITEM_CATEGORY_INVENTORY_UPGRADE"+          = Prelude.Just ITEM_CATEGORY_INVENTORY_UPGRADE+        readEnum _ = Prelude.Nothing++instance Prelude.Enum ItemCategory where+        toEnum k__+          = Prelude.maybe+              (Prelude.error+                 ((Prelude.++) "toEnum: unknown value for enum ItemCategory: "+                    (Prelude.show k__)))+              Prelude.id+              (Data.ProtoLens.maybeToEnum k__)+        fromEnum ITEM_CATEGORY_NONE = 0+        fromEnum ITEM_CATEGORY_POKEBALL = 1+        fromEnum ITEM_CATEGORY_FOOD = 2+        fromEnum ITEM_CATEGORY_MEDICINE = 3+        fromEnum ITEM_CATEGORY_BOOST = 4+        fromEnum ITEM_CATEGORY_UTILITES = 5+        fromEnum ITEM_CATEGORY_CAMERA = 6+        fromEnum ITEM_CATEGORY_DISK = 7+        fromEnum ITEM_CATEGORY_INCUBATOR = 8+        fromEnum ITEM_CATEGORY_INCENSE = 9+        fromEnum ITEM_CATEGORY_XP_BOOST = 10+        fromEnum ITEM_CATEGORY_INVENTORY_UPGRADE = 11+        succ ITEM_CATEGORY_INVENTORY_UPGRADE+          = Prelude.error+              "Ident \"ItemCategory\".Ident \"succ\": bad argument Ident \"ITEM_CATEGORY_INVENTORY_UPGRADE\". This value would be out of bounds."+        succ ITEM_CATEGORY_NONE = ITEM_CATEGORY_POKEBALL+        succ ITEM_CATEGORY_POKEBALL = ITEM_CATEGORY_FOOD+        succ ITEM_CATEGORY_FOOD = ITEM_CATEGORY_MEDICINE+        succ ITEM_CATEGORY_MEDICINE = ITEM_CATEGORY_BOOST+        succ ITEM_CATEGORY_BOOST = ITEM_CATEGORY_UTILITES+        succ ITEM_CATEGORY_UTILITES = ITEM_CATEGORY_CAMERA+        succ ITEM_CATEGORY_CAMERA = ITEM_CATEGORY_DISK+        succ ITEM_CATEGORY_DISK = ITEM_CATEGORY_INCUBATOR+        succ ITEM_CATEGORY_INCUBATOR = ITEM_CATEGORY_INCENSE+        succ ITEM_CATEGORY_INCENSE = ITEM_CATEGORY_XP_BOOST+        succ ITEM_CATEGORY_XP_BOOST = ITEM_CATEGORY_INVENTORY_UPGRADE+        pred ITEM_CATEGORY_NONE+          = Prelude.error+              "Ident \"ItemCategory\".Ident \"pred\": bad argument Ident \"ITEM_CATEGORY_NONE\". This value would be out of bounds."+        pred ITEM_CATEGORY_POKEBALL = ITEM_CATEGORY_NONE+        pred ITEM_CATEGORY_FOOD = ITEM_CATEGORY_POKEBALL+        pred ITEM_CATEGORY_MEDICINE = ITEM_CATEGORY_FOOD+        pred ITEM_CATEGORY_BOOST = ITEM_CATEGORY_MEDICINE+        pred ITEM_CATEGORY_UTILITES = ITEM_CATEGORY_BOOST+        pred ITEM_CATEGORY_CAMERA = ITEM_CATEGORY_UTILITES+        pred ITEM_CATEGORY_DISK = ITEM_CATEGORY_CAMERA+        pred ITEM_CATEGORY_INCUBATOR = ITEM_CATEGORY_DISK+        pred ITEM_CATEGORY_INCENSE = ITEM_CATEGORY_INCUBATOR+        pred ITEM_CATEGORY_XP_BOOST = ITEM_CATEGORY_INCENSE+        pred ITEM_CATEGORY_INVENTORY_UPGRADE = ITEM_CATEGORY_XP_BOOST+        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 ItemCategory where+        minBound = ITEM_CATEGORY_NONE+        maxBound = ITEM_CATEGORY_INVENTORY_UPGRADE
+ src/Proto/POGOProtos/Enums/ItemEffect.hs view
@@ -0,0 +1,189 @@+{- This file was auto-generated from POGOProtos/Enums/ItemEffect.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Enums.ItemEffect 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 ItemEffect = ITEM_EFFECT_NONE+                | ITEM_EFFECT_CAP_NO_FLEE+                | ITEM_EFFECT_CAP_NO_MOVEMENT+                | ITEM_EFFECT_CAP_NO_THREAT+                | ITEM_EFFECT_CAP_TARGET_MAX+                | ITEM_EFFECT_CAP_TARGET_SLOW+                | ITEM_EFFECT_CAP_CHANCE_NIGHT+                | ITEM_EFFECT_CAP_CHANCE_TRAINER+                | ITEM_EFFECT_CAP_CHANCE_FIRST_THROW+                | ITEM_EFFECT_CAP_CHANCE_LEGEND+                | ITEM_EFFECT_CAP_CHANCE_HEAVY+                | ITEM_EFFECT_CAP_CHANCE_REPEAT+                | ITEM_EFFECT_CAP_CHANCE_MULTI_THROW+                | ITEM_EFFECT_CAP_CHANCE_ALWAYS+                | ITEM_EFFECT_CAP_CHANCE_SINGLE_THROW+                deriving (Prelude.Show, Prelude.Eq)++instance Data.Default.Class.Default ItemEffect where+        def = ITEM_EFFECT_NONE++instance Data.ProtoLens.FieldDefault ItemEffect where+        fieldDefault = ITEM_EFFECT_NONE++instance Data.ProtoLens.MessageEnum ItemEffect where+        maybeToEnum 0 = Prelude.Just ITEM_EFFECT_NONE+        maybeToEnum 1000 = Prelude.Just ITEM_EFFECT_CAP_NO_FLEE+        maybeToEnum 1002 = Prelude.Just ITEM_EFFECT_CAP_NO_MOVEMENT+        maybeToEnum 1003 = Prelude.Just ITEM_EFFECT_CAP_NO_THREAT+        maybeToEnum 1004 = Prelude.Just ITEM_EFFECT_CAP_TARGET_MAX+        maybeToEnum 1005 = Prelude.Just ITEM_EFFECT_CAP_TARGET_SLOW+        maybeToEnum 1006 = Prelude.Just ITEM_EFFECT_CAP_CHANCE_NIGHT+        maybeToEnum 1007 = Prelude.Just ITEM_EFFECT_CAP_CHANCE_TRAINER+        maybeToEnum 1008 = Prelude.Just ITEM_EFFECT_CAP_CHANCE_FIRST_THROW+        maybeToEnum 1009 = Prelude.Just ITEM_EFFECT_CAP_CHANCE_LEGEND+        maybeToEnum 1010 = Prelude.Just ITEM_EFFECT_CAP_CHANCE_HEAVY+        maybeToEnum 1011 = Prelude.Just ITEM_EFFECT_CAP_CHANCE_REPEAT+        maybeToEnum 1012 = Prelude.Just ITEM_EFFECT_CAP_CHANCE_MULTI_THROW+        maybeToEnum 1013 = Prelude.Just ITEM_EFFECT_CAP_CHANCE_ALWAYS+        maybeToEnum 1014 = Prelude.Just ITEM_EFFECT_CAP_CHANCE_SINGLE_THROW+        maybeToEnum _ = Prelude.Nothing+        showEnum ITEM_EFFECT_NONE = "ITEM_EFFECT_NONE"+        showEnum ITEM_EFFECT_CAP_NO_FLEE = "ITEM_EFFECT_CAP_NO_FLEE"+        showEnum ITEM_EFFECT_CAP_NO_MOVEMENT+          = "ITEM_EFFECT_CAP_NO_MOVEMENT"+        showEnum ITEM_EFFECT_CAP_NO_THREAT = "ITEM_EFFECT_CAP_NO_THREAT"+        showEnum ITEM_EFFECT_CAP_TARGET_MAX = "ITEM_EFFECT_CAP_TARGET_MAX"+        showEnum ITEM_EFFECT_CAP_TARGET_SLOW+          = "ITEM_EFFECT_CAP_TARGET_SLOW"+        showEnum ITEM_EFFECT_CAP_CHANCE_NIGHT+          = "ITEM_EFFECT_CAP_CHANCE_NIGHT"+        showEnum ITEM_EFFECT_CAP_CHANCE_TRAINER+          = "ITEM_EFFECT_CAP_CHANCE_TRAINER"+        showEnum ITEM_EFFECT_CAP_CHANCE_FIRST_THROW+          = "ITEM_EFFECT_CAP_CHANCE_FIRST_THROW"+        showEnum ITEM_EFFECT_CAP_CHANCE_LEGEND+          = "ITEM_EFFECT_CAP_CHANCE_LEGEND"+        showEnum ITEM_EFFECT_CAP_CHANCE_HEAVY+          = "ITEM_EFFECT_CAP_CHANCE_HEAVY"+        showEnum ITEM_EFFECT_CAP_CHANCE_REPEAT+          = "ITEM_EFFECT_CAP_CHANCE_REPEAT"+        showEnum ITEM_EFFECT_CAP_CHANCE_MULTI_THROW+          = "ITEM_EFFECT_CAP_CHANCE_MULTI_THROW"+        showEnum ITEM_EFFECT_CAP_CHANCE_ALWAYS+          = "ITEM_EFFECT_CAP_CHANCE_ALWAYS"+        showEnum ITEM_EFFECT_CAP_CHANCE_SINGLE_THROW+          = "ITEM_EFFECT_CAP_CHANCE_SINGLE_THROW"+        readEnum "ITEM_EFFECT_NONE" = Prelude.Just ITEM_EFFECT_NONE+        readEnum "ITEM_EFFECT_CAP_NO_FLEE"+          = Prelude.Just ITEM_EFFECT_CAP_NO_FLEE+        readEnum "ITEM_EFFECT_CAP_NO_MOVEMENT"+          = Prelude.Just ITEM_EFFECT_CAP_NO_MOVEMENT+        readEnum "ITEM_EFFECT_CAP_NO_THREAT"+          = Prelude.Just ITEM_EFFECT_CAP_NO_THREAT+        readEnum "ITEM_EFFECT_CAP_TARGET_MAX"+          = Prelude.Just ITEM_EFFECT_CAP_TARGET_MAX+        readEnum "ITEM_EFFECT_CAP_TARGET_SLOW"+          = Prelude.Just ITEM_EFFECT_CAP_TARGET_SLOW+        readEnum "ITEM_EFFECT_CAP_CHANCE_NIGHT"+          = Prelude.Just ITEM_EFFECT_CAP_CHANCE_NIGHT+        readEnum "ITEM_EFFECT_CAP_CHANCE_TRAINER"+          = Prelude.Just ITEM_EFFECT_CAP_CHANCE_TRAINER+        readEnum "ITEM_EFFECT_CAP_CHANCE_FIRST_THROW"+          = Prelude.Just ITEM_EFFECT_CAP_CHANCE_FIRST_THROW+        readEnum "ITEM_EFFECT_CAP_CHANCE_LEGEND"+          = Prelude.Just ITEM_EFFECT_CAP_CHANCE_LEGEND+        readEnum "ITEM_EFFECT_CAP_CHANCE_HEAVY"+          = Prelude.Just ITEM_EFFECT_CAP_CHANCE_HEAVY+        readEnum "ITEM_EFFECT_CAP_CHANCE_REPEAT"+          = Prelude.Just ITEM_EFFECT_CAP_CHANCE_REPEAT+        readEnum "ITEM_EFFECT_CAP_CHANCE_MULTI_THROW"+          = Prelude.Just ITEM_EFFECT_CAP_CHANCE_MULTI_THROW+        readEnum "ITEM_EFFECT_CAP_CHANCE_ALWAYS"+          = Prelude.Just ITEM_EFFECT_CAP_CHANCE_ALWAYS+        readEnum "ITEM_EFFECT_CAP_CHANCE_SINGLE_THROW"+          = Prelude.Just ITEM_EFFECT_CAP_CHANCE_SINGLE_THROW+        readEnum _ = Prelude.Nothing++instance Prelude.Enum ItemEffect where+        toEnum k__+          = Prelude.maybe+              (Prelude.error+                 ((Prelude.++) "toEnum: unknown value for enum ItemEffect: "+                    (Prelude.show k__)))+              Prelude.id+              (Data.ProtoLens.maybeToEnum k__)+        fromEnum ITEM_EFFECT_NONE = 0+        fromEnum ITEM_EFFECT_CAP_NO_FLEE = 1000+        fromEnum ITEM_EFFECT_CAP_NO_MOVEMENT = 1002+        fromEnum ITEM_EFFECT_CAP_NO_THREAT = 1003+        fromEnum ITEM_EFFECT_CAP_TARGET_MAX = 1004+        fromEnum ITEM_EFFECT_CAP_TARGET_SLOW = 1005+        fromEnum ITEM_EFFECT_CAP_CHANCE_NIGHT = 1006+        fromEnum ITEM_EFFECT_CAP_CHANCE_TRAINER = 1007+        fromEnum ITEM_EFFECT_CAP_CHANCE_FIRST_THROW = 1008+        fromEnum ITEM_EFFECT_CAP_CHANCE_LEGEND = 1009+        fromEnum ITEM_EFFECT_CAP_CHANCE_HEAVY = 1010+        fromEnum ITEM_EFFECT_CAP_CHANCE_REPEAT = 1011+        fromEnum ITEM_EFFECT_CAP_CHANCE_MULTI_THROW = 1012+        fromEnum ITEM_EFFECT_CAP_CHANCE_ALWAYS = 1013+        fromEnum ITEM_EFFECT_CAP_CHANCE_SINGLE_THROW = 1014+        succ ITEM_EFFECT_CAP_CHANCE_SINGLE_THROW+          = Prelude.error+              "Ident \"ItemEffect\".Ident \"succ\": bad argument Ident \"ITEM_EFFECT_CAP_CHANCE_SINGLE_THROW\". This value would be out of bounds."+        succ ITEM_EFFECT_NONE = ITEM_EFFECT_CAP_NO_FLEE+        succ ITEM_EFFECT_CAP_NO_FLEE = ITEM_EFFECT_CAP_NO_MOVEMENT+        succ ITEM_EFFECT_CAP_NO_MOVEMENT = ITEM_EFFECT_CAP_NO_THREAT+        succ ITEM_EFFECT_CAP_NO_THREAT = ITEM_EFFECT_CAP_TARGET_MAX+        succ ITEM_EFFECT_CAP_TARGET_MAX = ITEM_EFFECT_CAP_TARGET_SLOW+        succ ITEM_EFFECT_CAP_TARGET_SLOW = ITEM_EFFECT_CAP_CHANCE_NIGHT+        succ ITEM_EFFECT_CAP_CHANCE_NIGHT = ITEM_EFFECT_CAP_CHANCE_TRAINER+        succ ITEM_EFFECT_CAP_CHANCE_TRAINER+          = ITEM_EFFECT_CAP_CHANCE_FIRST_THROW+        succ ITEM_EFFECT_CAP_CHANCE_FIRST_THROW+          = ITEM_EFFECT_CAP_CHANCE_LEGEND+        succ ITEM_EFFECT_CAP_CHANCE_LEGEND = ITEM_EFFECT_CAP_CHANCE_HEAVY+        succ ITEM_EFFECT_CAP_CHANCE_HEAVY = ITEM_EFFECT_CAP_CHANCE_REPEAT+        succ ITEM_EFFECT_CAP_CHANCE_REPEAT+          = ITEM_EFFECT_CAP_CHANCE_MULTI_THROW+        succ ITEM_EFFECT_CAP_CHANCE_MULTI_THROW+          = ITEM_EFFECT_CAP_CHANCE_ALWAYS+        succ ITEM_EFFECT_CAP_CHANCE_ALWAYS+          = ITEM_EFFECT_CAP_CHANCE_SINGLE_THROW+        pred ITEM_EFFECT_NONE+          = Prelude.error+              "Ident \"ItemEffect\".Ident \"pred\": bad argument Ident \"ITEM_EFFECT_NONE\". This value would be out of bounds."+        pred ITEM_EFFECT_CAP_NO_FLEE = ITEM_EFFECT_NONE+        pred ITEM_EFFECT_CAP_NO_MOVEMENT = ITEM_EFFECT_CAP_NO_FLEE+        pred ITEM_EFFECT_CAP_NO_THREAT = ITEM_EFFECT_CAP_NO_MOVEMENT+        pred ITEM_EFFECT_CAP_TARGET_MAX = ITEM_EFFECT_CAP_NO_THREAT+        pred ITEM_EFFECT_CAP_TARGET_SLOW = ITEM_EFFECT_CAP_TARGET_MAX+        pred ITEM_EFFECT_CAP_CHANCE_NIGHT = ITEM_EFFECT_CAP_TARGET_SLOW+        pred ITEM_EFFECT_CAP_CHANCE_TRAINER = ITEM_EFFECT_CAP_CHANCE_NIGHT+        pred ITEM_EFFECT_CAP_CHANCE_FIRST_THROW+          = ITEM_EFFECT_CAP_CHANCE_TRAINER+        pred ITEM_EFFECT_CAP_CHANCE_LEGEND+          = ITEM_EFFECT_CAP_CHANCE_FIRST_THROW+        pred ITEM_EFFECT_CAP_CHANCE_HEAVY = ITEM_EFFECT_CAP_CHANCE_LEGEND+        pred ITEM_EFFECT_CAP_CHANCE_REPEAT = ITEM_EFFECT_CAP_CHANCE_HEAVY+        pred ITEM_EFFECT_CAP_CHANCE_MULTI_THROW+          = ITEM_EFFECT_CAP_CHANCE_REPEAT+        pred ITEM_EFFECT_CAP_CHANCE_ALWAYS+          = ITEM_EFFECT_CAP_CHANCE_MULTI_THROW+        pred ITEM_EFFECT_CAP_CHANCE_SINGLE_THROW+          = ITEM_EFFECT_CAP_CHANCE_ALWAYS+        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 ItemEffect where+        minBound = ITEM_EFFECT_NONE+        maxBound = ITEM_EFFECT_CAP_CHANCE_SINGLE_THROW
+ src/Proto/POGOProtos/Enums/Platform.hs view
@@ -0,0 +1,84 @@+{- This file was auto-generated from POGOProtos/Enums/Platform.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Enums.Platform 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 Platform = UNSET+              | IOS+              | ANDROID+              | OSX+              | WINDOWS+              deriving (Prelude.Show, Prelude.Eq)++instance Data.Default.Class.Default Platform where+        def = UNSET++instance Data.ProtoLens.FieldDefault Platform where+        fieldDefault = UNSET++instance Data.ProtoLens.MessageEnum Platform where+        maybeToEnum 0 = Prelude.Just UNSET+        maybeToEnum 1 = Prelude.Just IOS+        maybeToEnum 2 = Prelude.Just ANDROID+        maybeToEnum 3 = Prelude.Just OSX+        maybeToEnum 4 = Prelude.Just WINDOWS+        maybeToEnum _ = Prelude.Nothing+        showEnum UNSET = "UNSET"+        showEnum IOS = "IOS"+        showEnum ANDROID = "ANDROID"+        showEnum OSX = "OSX"+        showEnum WINDOWS = "WINDOWS"+        readEnum "UNSET" = Prelude.Just UNSET+        readEnum "IOS" = Prelude.Just IOS+        readEnum "ANDROID" = Prelude.Just ANDROID+        readEnum "OSX" = Prelude.Just OSX+        readEnum "WINDOWS" = Prelude.Just WINDOWS+        readEnum _ = Prelude.Nothing++instance Prelude.Enum Platform where+        toEnum k__+          = Prelude.maybe+              (Prelude.error+                 ((Prelude.++) "toEnum: unknown value for enum Platform: "+                    (Prelude.show k__)))+              Prelude.id+              (Data.ProtoLens.maybeToEnum k__)+        fromEnum UNSET = 0+        fromEnum IOS = 1+        fromEnum ANDROID = 2+        fromEnum OSX = 3+        fromEnum WINDOWS = 4+        succ WINDOWS+          = Prelude.error+              "Ident \"Platform\".Ident \"succ\": bad argument Ident \"WINDOWS\". This value would be out of bounds."+        succ UNSET = IOS+        succ IOS = ANDROID+        succ ANDROID = OSX+        succ OSX = WINDOWS+        pred UNSET+          = Prelude.error+              "Ident \"Platform\".Ident \"pred\": bad argument Ident \"UNSET\". This value would be out of bounds."+        pred IOS = UNSET+        pred ANDROID = IOS+        pred OSX = ANDROID+        pred WINDOWS = OSX+        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 Platform where+        minBound = UNSET+        maxBound = WINDOWS
+ src/Proto/POGOProtos/Enums/PokemonId.hs view
@@ -0,0 +1,1113 @@+{- This file was auto-generated from POGOProtos/Enums/PokemonId.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Enums.PokemonId 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 PokemonId = MISSINGNO+               | BULBASAUR+               | IVYSAUR+               | VENUSAUR+               | CHARMANDER+               | CHARMELEON+               | CHARIZARD+               | SQUIRTLE+               | WARTORTLE+               | BLASTOISE+               | CATERPIE+               | METAPOD+               | BUTTERFREE+               | WEEDLE+               | KAKUNA+               | BEEDRILL+               | PIDGEY+               | PIDGEOTTO+               | PIDGEOT+               | RATTATA+               | RATICATE+               | SPEAROW+               | FEAROW+               | EKANS+               | ARBOK+               | PIKACHU+               | RAICHU+               | SANDSHREW+               | SANDSLASH+               | NIDORAN_FEMALE+               | NIDORINA+               | NIDOQUEEN+               | NIDORAN_MALE+               | NIDORINO+               | NIDOKING+               | CLEFAIRY+               | CLEFABLE+               | VULPIX+               | NINETALES+               | JIGGLYPUFF+               | WIGGLYTUFF+               | ZUBAT+               | GOLBAT+               | ODDISH+               | GLOOM+               | VILEPLUME+               | PARAS+               | PARASECT+               | VENONAT+               | VENOMOTH+               | DIGLETT+               | DUGTRIO+               | MEOWTH+               | PERSIAN+               | PSYDUCK+               | GOLDUCK+               | MANKEY+               | PRIMEAPE+               | GROWLITHE+               | ARCANINE+               | POLIWAG+               | POLIWHIRL+               | POLIWRATH+               | ABRA+               | KADABRA+               | ALAKAZAM+               | MACHOP+               | MACHOKE+               | MACHAMP+               | BELLSPROUT+               | WEEPINBELL+               | VICTREEBEL+               | TENTACOOL+               | TENTACRUEL+               | GEODUDE+               | GRAVELER+               | GOLEM+               | PONYTA+               | RAPIDASH+               | SLOWPOKE+               | SLOWBRO+               | MAGNEMITE+               | MAGNETON+               | FARFETCHD+               | DODUO+               | DODRIO+               | SEEL+               | DEWGONG+               | GRIMER+               | MUK+               | SHELLDER+               | CLOYSTER+               | GASTLY+               | HAUNTER+               | GENGAR+               | ONIX+               | DROWZEE+               | HYPNO+               | KRABBY+               | KINGLER+               | VOLTORB+               | ELECTRODE+               | EXEGGCUTE+               | EXEGGUTOR+               | CUBONE+               | MAROWAK+               | HITMONLEE+               | HITMONCHAN+               | LICKITUNG+               | KOFFING+               | WEEZING+               | RHYHORN+               | RHYDON+               | CHANSEY+               | TANGELA+               | KANGASKHAN+               | HORSEA+               | SEADRA+               | GOLDEEN+               | SEAKING+               | STARYU+               | STARMIE+               | MR_MIME+               | SCYTHER+               | JYNX+               | ELECTABUZZ+               | MAGMAR+               | PINSIR+               | TAUROS+               | MAGIKARP+               | GYARADOS+               | LAPRAS+               | DITTO+               | EEVEE+               | VAPOREON+               | JOLTEON+               | FLAREON+               | PORYGON+               | OMANYTE+               | OMASTAR+               | KABUTO+               | KABUTOPS+               | AERODACTYL+               | SNORLAX+               | ARTICUNO+               | ZAPDOS+               | MOLTRES+               | DRATINI+               | DRAGONAIR+               | DRAGONITE+               | MEWTWO+               | MEW+               deriving (Prelude.Show, Prelude.Eq)++instance Data.Default.Class.Default PokemonId where+        def = MISSINGNO++instance Data.ProtoLens.FieldDefault PokemonId where+        fieldDefault = MISSINGNO++instance Data.ProtoLens.MessageEnum PokemonId where+        maybeToEnum 0 = Prelude.Just MISSINGNO+        maybeToEnum 1 = Prelude.Just BULBASAUR+        maybeToEnum 2 = Prelude.Just IVYSAUR+        maybeToEnum 3 = Prelude.Just VENUSAUR+        maybeToEnum 4 = Prelude.Just CHARMANDER+        maybeToEnum 5 = Prelude.Just CHARMELEON+        maybeToEnum 6 = Prelude.Just CHARIZARD+        maybeToEnum 7 = Prelude.Just SQUIRTLE+        maybeToEnum 8 = Prelude.Just WARTORTLE+        maybeToEnum 9 = Prelude.Just BLASTOISE+        maybeToEnum 10 = Prelude.Just CATERPIE+        maybeToEnum 11 = Prelude.Just METAPOD+        maybeToEnum 12 = Prelude.Just BUTTERFREE+        maybeToEnum 13 = Prelude.Just WEEDLE+        maybeToEnum 14 = Prelude.Just KAKUNA+        maybeToEnum 15 = Prelude.Just BEEDRILL+        maybeToEnum 16 = Prelude.Just PIDGEY+        maybeToEnum 17 = Prelude.Just PIDGEOTTO+        maybeToEnum 18 = Prelude.Just PIDGEOT+        maybeToEnum 19 = Prelude.Just RATTATA+        maybeToEnum 20 = Prelude.Just RATICATE+        maybeToEnum 21 = Prelude.Just SPEAROW+        maybeToEnum 22 = Prelude.Just FEAROW+        maybeToEnum 23 = Prelude.Just EKANS+        maybeToEnum 24 = Prelude.Just ARBOK+        maybeToEnum 25 = Prelude.Just PIKACHU+        maybeToEnum 26 = Prelude.Just RAICHU+        maybeToEnum 27 = Prelude.Just SANDSHREW+        maybeToEnum 28 = Prelude.Just SANDSLASH+        maybeToEnum 29 = Prelude.Just NIDORAN_FEMALE+        maybeToEnum 30 = Prelude.Just NIDORINA+        maybeToEnum 31 = Prelude.Just NIDOQUEEN+        maybeToEnum 32 = Prelude.Just NIDORAN_MALE+        maybeToEnum 33 = Prelude.Just NIDORINO+        maybeToEnum 34 = Prelude.Just NIDOKING+        maybeToEnum 35 = Prelude.Just CLEFAIRY+        maybeToEnum 36 = Prelude.Just CLEFABLE+        maybeToEnum 37 = Prelude.Just VULPIX+        maybeToEnum 38 = Prelude.Just NINETALES+        maybeToEnum 39 = Prelude.Just JIGGLYPUFF+        maybeToEnum 40 = Prelude.Just WIGGLYTUFF+        maybeToEnum 41 = Prelude.Just ZUBAT+        maybeToEnum 42 = Prelude.Just GOLBAT+        maybeToEnum 43 = Prelude.Just ODDISH+        maybeToEnum 44 = Prelude.Just GLOOM+        maybeToEnum 45 = Prelude.Just VILEPLUME+        maybeToEnum 46 = Prelude.Just PARAS+        maybeToEnum 47 = Prelude.Just PARASECT+        maybeToEnum 48 = Prelude.Just VENONAT+        maybeToEnum 49 = Prelude.Just VENOMOTH+        maybeToEnum 50 = Prelude.Just DIGLETT+        maybeToEnum 51 = Prelude.Just DUGTRIO+        maybeToEnum 52 = Prelude.Just MEOWTH+        maybeToEnum 53 = Prelude.Just PERSIAN+        maybeToEnum 54 = Prelude.Just PSYDUCK+        maybeToEnum 55 = Prelude.Just GOLDUCK+        maybeToEnum 56 = Prelude.Just MANKEY+        maybeToEnum 57 = Prelude.Just PRIMEAPE+        maybeToEnum 58 = Prelude.Just GROWLITHE+        maybeToEnum 59 = Prelude.Just ARCANINE+        maybeToEnum 60 = Prelude.Just POLIWAG+        maybeToEnum 61 = Prelude.Just POLIWHIRL+        maybeToEnum 62 = Prelude.Just POLIWRATH+        maybeToEnum 63 = Prelude.Just ABRA+        maybeToEnum 64 = Prelude.Just KADABRA+        maybeToEnum 65 = Prelude.Just ALAKAZAM+        maybeToEnum 66 = Prelude.Just MACHOP+        maybeToEnum 67 = Prelude.Just MACHOKE+        maybeToEnum 68 = Prelude.Just MACHAMP+        maybeToEnum 69 = Prelude.Just BELLSPROUT+        maybeToEnum 70 = Prelude.Just WEEPINBELL+        maybeToEnum 71 = Prelude.Just VICTREEBEL+        maybeToEnum 72 = Prelude.Just TENTACOOL+        maybeToEnum 73 = Prelude.Just TENTACRUEL+        maybeToEnum 74 = Prelude.Just GEODUDE+        maybeToEnum 75 = Prelude.Just GRAVELER+        maybeToEnum 76 = Prelude.Just GOLEM+        maybeToEnum 77 = Prelude.Just PONYTA+        maybeToEnum 78 = Prelude.Just RAPIDASH+        maybeToEnum 79 = Prelude.Just SLOWPOKE+        maybeToEnum 80 = Prelude.Just SLOWBRO+        maybeToEnum 81 = Prelude.Just MAGNEMITE+        maybeToEnum 82 = Prelude.Just MAGNETON+        maybeToEnum 83 = Prelude.Just FARFETCHD+        maybeToEnum 84 = Prelude.Just DODUO+        maybeToEnum 85 = Prelude.Just DODRIO+        maybeToEnum 86 = Prelude.Just SEEL+        maybeToEnum 87 = Prelude.Just DEWGONG+        maybeToEnum 88 = Prelude.Just GRIMER+        maybeToEnum 89 = Prelude.Just MUK+        maybeToEnum 90 = Prelude.Just SHELLDER+        maybeToEnum 91 = Prelude.Just CLOYSTER+        maybeToEnum 92 = Prelude.Just GASTLY+        maybeToEnum 93 = Prelude.Just HAUNTER+        maybeToEnum 94 = Prelude.Just GENGAR+        maybeToEnum 95 = Prelude.Just ONIX+        maybeToEnum 96 = Prelude.Just DROWZEE+        maybeToEnum 97 = Prelude.Just HYPNO+        maybeToEnum 98 = Prelude.Just KRABBY+        maybeToEnum 99 = Prelude.Just KINGLER+        maybeToEnum 100 = Prelude.Just VOLTORB+        maybeToEnum 101 = Prelude.Just ELECTRODE+        maybeToEnum 102 = Prelude.Just EXEGGCUTE+        maybeToEnum 103 = Prelude.Just EXEGGUTOR+        maybeToEnum 104 = Prelude.Just CUBONE+        maybeToEnum 105 = Prelude.Just MAROWAK+        maybeToEnum 106 = Prelude.Just HITMONLEE+        maybeToEnum 107 = Prelude.Just HITMONCHAN+        maybeToEnum 108 = Prelude.Just LICKITUNG+        maybeToEnum 109 = Prelude.Just KOFFING+        maybeToEnum 110 = Prelude.Just WEEZING+        maybeToEnum 111 = Prelude.Just RHYHORN+        maybeToEnum 112 = Prelude.Just RHYDON+        maybeToEnum 113 = Prelude.Just CHANSEY+        maybeToEnum 114 = Prelude.Just TANGELA+        maybeToEnum 115 = Prelude.Just KANGASKHAN+        maybeToEnum 116 = Prelude.Just HORSEA+        maybeToEnum 117 = Prelude.Just SEADRA+        maybeToEnum 118 = Prelude.Just GOLDEEN+        maybeToEnum 119 = Prelude.Just SEAKING+        maybeToEnum 120 = Prelude.Just STARYU+        maybeToEnum 121 = Prelude.Just STARMIE+        maybeToEnum 122 = Prelude.Just MR_MIME+        maybeToEnum 123 = Prelude.Just SCYTHER+        maybeToEnum 124 = Prelude.Just JYNX+        maybeToEnum 125 = Prelude.Just ELECTABUZZ+        maybeToEnum 126 = Prelude.Just MAGMAR+        maybeToEnum 127 = Prelude.Just PINSIR+        maybeToEnum 128 = Prelude.Just TAUROS+        maybeToEnum 129 = Prelude.Just MAGIKARP+        maybeToEnum 130 = Prelude.Just GYARADOS+        maybeToEnum 131 = Prelude.Just LAPRAS+        maybeToEnum 132 = Prelude.Just DITTO+        maybeToEnum 133 = Prelude.Just EEVEE+        maybeToEnum 134 = Prelude.Just VAPOREON+        maybeToEnum 135 = Prelude.Just JOLTEON+        maybeToEnum 136 = Prelude.Just FLAREON+        maybeToEnum 137 = Prelude.Just PORYGON+        maybeToEnum 138 = Prelude.Just OMANYTE+        maybeToEnum 139 = Prelude.Just OMASTAR+        maybeToEnum 140 = Prelude.Just KABUTO+        maybeToEnum 141 = Prelude.Just KABUTOPS+        maybeToEnum 142 = Prelude.Just AERODACTYL+        maybeToEnum 143 = Prelude.Just SNORLAX+        maybeToEnum 144 = Prelude.Just ARTICUNO+        maybeToEnum 145 = Prelude.Just ZAPDOS+        maybeToEnum 146 = Prelude.Just MOLTRES+        maybeToEnum 147 = Prelude.Just DRATINI+        maybeToEnum 148 = Prelude.Just DRAGONAIR+        maybeToEnum 149 = Prelude.Just DRAGONITE+        maybeToEnum 150 = Prelude.Just MEWTWO+        maybeToEnum 151 = Prelude.Just MEW+        maybeToEnum _ = Prelude.Nothing+        showEnum MISSINGNO = "MISSINGNO"+        showEnum BULBASAUR = "BULBASAUR"+        showEnum IVYSAUR = "IVYSAUR"+        showEnum VENUSAUR = "VENUSAUR"+        showEnum CHARMANDER = "CHARMANDER"+        showEnum CHARMELEON = "CHARMELEON"+        showEnum CHARIZARD = "CHARIZARD"+        showEnum SQUIRTLE = "SQUIRTLE"+        showEnum WARTORTLE = "WARTORTLE"+        showEnum BLASTOISE = "BLASTOISE"+        showEnum CATERPIE = "CATERPIE"+        showEnum METAPOD = "METAPOD"+        showEnum BUTTERFREE = "BUTTERFREE"+        showEnum WEEDLE = "WEEDLE"+        showEnum KAKUNA = "KAKUNA"+        showEnum BEEDRILL = "BEEDRILL"+        showEnum PIDGEY = "PIDGEY"+        showEnum PIDGEOTTO = "PIDGEOTTO"+        showEnum PIDGEOT = "PIDGEOT"+        showEnum RATTATA = "RATTATA"+        showEnum RATICATE = "RATICATE"+        showEnum SPEAROW = "SPEAROW"+        showEnum FEAROW = "FEAROW"+        showEnum EKANS = "EKANS"+        showEnum ARBOK = "ARBOK"+        showEnum PIKACHU = "PIKACHU"+        showEnum RAICHU = "RAICHU"+        showEnum SANDSHREW = "SANDSHREW"+        showEnum SANDSLASH = "SANDSLASH"+        showEnum NIDORAN_FEMALE = "NIDORAN_FEMALE"+        showEnum NIDORINA = "NIDORINA"+        showEnum NIDOQUEEN = "NIDOQUEEN"+        showEnum NIDORAN_MALE = "NIDORAN_MALE"+        showEnum NIDORINO = "NIDORINO"+        showEnum NIDOKING = "NIDOKING"+        showEnum CLEFAIRY = "CLEFAIRY"+        showEnum CLEFABLE = "CLEFABLE"+        showEnum VULPIX = "VULPIX"+        showEnum NINETALES = "NINETALES"+        showEnum JIGGLYPUFF = "JIGGLYPUFF"+        showEnum WIGGLYTUFF = "WIGGLYTUFF"+        showEnum ZUBAT = "ZUBAT"+        showEnum GOLBAT = "GOLBAT"+        showEnum ODDISH = "ODDISH"+        showEnum GLOOM = "GLOOM"+        showEnum VILEPLUME = "VILEPLUME"+        showEnum PARAS = "PARAS"+        showEnum PARASECT = "PARASECT"+        showEnum VENONAT = "VENONAT"+        showEnum VENOMOTH = "VENOMOTH"+        showEnum DIGLETT = "DIGLETT"+        showEnum DUGTRIO = "DUGTRIO"+        showEnum MEOWTH = "MEOWTH"+        showEnum PERSIAN = "PERSIAN"+        showEnum PSYDUCK = "PSYDUCK"+        showEnum GOLDUCK = "GOLDUCK"+        showEnum MANKEY = "MANKEY"+        showEnum PRIMEAPE = "PRIMEAPE"+        showEnum GROWLITHE = "GROWLITHE"+        showEnum ARCANINE = "ARCANINE"+        showEnum POLIWAG = "POLIWAG"+        showEnum POLIWHIRL = "POLIWHIRL"+        showEnum POLIWRATH = "POLIWRATH"+        showEnum ABRA = "ABRA"+        showEnum KADABRA = "KADABRA"+        showEnum ALAKAZAM = "ALAKAZAM"+        showEnum MACHOP = "MACHOP"+        showEnum MACHOKE = "MACHOKE"+        showEnum MACHAMP = "MACHAMP"+        showEnum BELLSPROUT = "BELLSPROUT"+        showEnum WEEPINBELL = "WEEPINBELL"+        showEnum VICTREEBEL = "VICTREEBEL"+        showEnum TENTACOOL = "TENTACOOL"+        showEnum TENTACRUEL = "TENTACRUEL"+        showEnum GEODUDE = "GEODUDE"+        showEnum GRAVELER = "GRAVELER"+        showEnum GOLEM = "GOLEM"+        showEnum PONYTA = "PONYTA"+        showEnum RAPIDASH = "RAPIDASH"+        showEnum SLOWPOKE = "SLOWPOKE"+        showEnum SLOWBRO = "SLOWBRO"+        showEnum MAGNEMITE = "MAGNEMITE"+        showEnum MAGNETON = "MAGNETON"+        showEnum FARFETCHD = "FARFETCHD"+        showEnum DODUO = "DODUO"+        showEnum DODRIO = "DODRIO"+        showEnum SEEL = "SEEL"+        showEnum DEWGONG = "DEWGONG"+        showEnum GRIMER = "GRIMER"+        showEnum MUK = "MUK"+        showEnum SHELLDER = "SHELLDER"+        showEnum CLOYSTER = "CLOYSTER"+        showEnum GASTLY = "GASTLY"+        showEnum HAUNTER = "HAUNTER"+        showEnum GENGAR = "GENGAR"+        showEnum ONIX = "ONIX"+        showEnum DROWZEE = "DROWZEE"+        showEnum HYPNO = "HYPNO"+        showEnum KRABBY = "KRABBY"+        showEnum KINGLER = "KINGLER"+        showEnum VOLTORB = "VOLTORB"+        showEnum ELECTRODE = "ELECTRODE"+        showEnum EXEGGCUTE = "EXEGGCUTE"+        showEnum EXEGGUTOR = "EXEGGUTOR"+        showEnum CUBONE = "CUBONE"+        showEnum MAROWAK = "MAROWAK"+        showEnum HITMONLEE = "HITMONLEE"+        showEnum HITMONCHAN = "HITMONCHAN"+        showEnum LICKITUNG = "LICKITUNG"+        showEnum KOFFING = "KOFFING"+        showEnum WEEZING = "WEEZING"+        showEnum RHYHORN = "RHYHORN"+        showEnum RHYDON = "RHYDON"+        showEnum CHANSEY = "CHANSEY"+        showEnum TANGELA = "TANGELA"+        showEnum KANGASKHAN = "KANGASKHAN"+        showEnum HORSEA = "HORSEA"+        showEnum SEADRA = "SEADRA"+        showEnum GOLDEEN = "GOLDEEN"+        showEnum SEAKING = "SEAKING"+        showEnum STARYU = "STARYU"+        showEnum STARMIE = "STARMIE"+        showEnum MR_MIME = "MR_MIME"+        showEnum SCYTHER = "SCYTHER"+        showEnum JYNX = "JYNX"+        showEnum ELECTABUZZ = "ELECTABUZZ"+        showEnum MAGMAR = "MAGMAR"+        showEnum PINSIR = "PINSIR"+        showEnum TAUROS = "TAUROS"+        showEnum MAGIKARP = "MAGIKARP"+        showEnum GYARADOS = "GYARADOS"+        showEnum LAPRAS = "LAPRAS"+        showEnum DITTO = "DITTO"+        showEnum EEVEE = "EEVEE"+        showEnum VAPOREON = "VAPOREON"+        showEnum JOLTEON = "JOLTEON"+        showEnum FLAREON = "FLAREON"+        showEnum PORYGON = "PORYGON"+        showEnum OMANYTE = "OMANYTE"+        showEnum OMASTAR = "OMASTAR"+        showEnum KABUTO = "KABUTO"+        showEnum KABUTOPS = "KABUTOPS"+        showEnum AERODACTYL = "AERODACTYL"+        showEnum SNORLAX = "SNORLAX"+        showEnum ARTICUNO = "ARTICUNO"+        showEnum ZAPDOS = "ZAPDOS"+        showEnum MOLTRES = "MOLTRES"+        showEnum DRATINI = "DRATINI"+        showEnum DRAGONAIR = "DRAGONAIR"+        showEnum DRAGONITE = "DRAGONITE"+        showEnum MEWTWO = "MEWTWO"+        showEnum MEW = "MEW"+        readEnum "MISSINGNO" = Prelude.Just MISSINGNO+        readEnum "BULBASAUR" = Prelude.Just BULBASAUR+        readEnum "IVYSAUR" = Prelude.Just IVYSAUR+        readEnum "VENUSAUR" = Prelude.Just VENUSAUR+        readEnum "CHARMANDER" = Prelude.Just CHARMANDER+        readEnum "CHARMELEON" = Prelude.Just CHARMELEON+        readEnum "CHARIZARD" = Prelude.Just CHARIZARD+        readEnum "SQUIRTLE" = Prelude.Just SQUIRTLE+        readEnum "WARTORTLE" = Prelude.Just WARTORTLE+        readEnum "BLASTOISE" = Prelude.Just BLASTOISE+        readEnum "CATERPIE" = Prelude.Just CATERPIE+        readEnum "METAPOD" = Prelude.Just METAPOD+        readEnum "BUTTERFREE" = Prelude.Just BUTTERFREE+        readEnum "WEEDLE" = Prelude.Just WEEDLE+        readEnum "KAKUNA" = Prelude.Just KAKUNA+        readEnum "BEEDRILL" = Prelude.Just BEEDRILL+        readEnum "PIDGEY" = Prelude.Just PIDGEY+        readEnum "PIDGEOTTO" = Prelude.Just PIDGEOTTO+        readEnum "PIDGEOT" = Prelude.Just PIDGEOT+        readEnum "RATTATA" = Prelude.Just RATTATA+        readEnum "RATICATE" = Prelude.Just RATICATE+        readEnum "SPEAROW" = Prelude.Just SPEAROW+        readEnum "FEAROW" = Prelude.Just FEAROW+        readEnum "EKANS" = Prelude.Just EKANS+        readEnum "ARBOK" = Prelude.Just ARBOK+        readEnum "PIKACHU" = Prelude.Just PIKACHU+        readEnum "RAICHU" = Prelude.Just RAICHU+        readEnum "SANDSHREW" = Prelude.Just SANDSHREW+        readEnum "SANDSLASH" = Prelude.Just SANDSLASH+        readEnum "NIDORAN_FEMALE" = Prelude.Just NIDORAN_FEMALE+        readEnum "NIDORINA" = Prelude.Just NIDORINA+        readEnum "NIDOQUEEN" = Prelude.Just NIDOQUEEN+        readEnum "NIDORAN_MALE" = Prelude.Just NIDORAN_MALE+        readEnum "NIDORINO" = Prelude.Just NIDORINO+        readEnum "NIDOKING" = Prelude.Just NIDOKING+        readEnum "CLEFAIRY" = Prelude.Just CLEFAIRY+        readEnum "CLEFABLE" = Prelude.Just CLEFABLE+        readEnum "VULPIX" = Prelude.Just VULPIX+        readEnum "NINETALES" = Prelude.Just NINETALES+        readEnum "JIGGLYPUFF" = Prelude.Just JIGGLYPUFF+        readEnum "WIGGLYTUFF" = Prelude.Just WIGGLYTUFF+        readEnum "ZUBAT" = Prelude.Just ZUBAT+        readEnum "GOLBAT" = Prelude.Just GOLBAT+        readEnum "ODDISH" = Prelude.Just ODDISH+        readEnum "GLOOM" = Prelude.Just GLOOM+        readEnum "VILEPLUME" = Prelude.Just VILEPLUME+        readEnum "PARAS" = Prelude.Just PARAS+        readEnum "PARASECT" = Prelude.Just PARASECT+        readEnum "VENONAT" = Prelude.Just VENONAT+        readEnum "VENOMOTH" = Prelude.Just VENOMOTH+        readEnum "DIGLETT" = Prelude.Just DIGLETT+        readEnum "DUGTRIO" = Prelude.Just DUGTRIO+        readEnum "MEOWTH" = Prelude.Just MEOWTH+        readEnum "PERSIAN" = Prelude.Just PERSIAN+        readEnum "PSYDUCK" = Prelude.Just PSYDUCK+        readEnum "GOLDUCK" = Prelude.Just GOLDUCK+        readEnum "MANKEY" = Prelude.Just MANKEY+        readEnum "PRIMEAPE" = Prelude.Just PRIMEAPE+        readEnum "GROWLITHE" = Prelude.Just GROWLITHE+        readEnum "ARCANINE" = Prelude.Just ARCANINE+        readEnum "POLIWAG" = Prelude.Just POLIWAG+        readEnum "POLIWHIRL" = Prelude.Just POLIWHIRL+        readEnum "POLIWRATH" = Prelude.Just POLIWRATH+        readEnum "ABRA" = Prelude.Just ABRA+        readEnum "KADABRA" = Prelude.Just KADABRA+        readEnum "ALAKAZAM" = Prelude.Just ALAKAZAM+        readEnum "MACHOP" = Prelude.Just MACHOP+        readEnum "MACHOKE" = Prelude.Just MACHOKE+        readEnum "MACHAMP" = Prelude.Just MACHAMP+        readEnum "BELLSPROUT" = Prelude.Just BELLSPROUT+        readEnum "WEEPINBELL" = Prelude.Just WEEPINBELL+        readEnum "VICTREEBEL" = Prelude.Just VICTREEBEL+        readEnum "TENTACOOL" = Prelude.Just TENTACOOL+        readEnum "TENTACRUEL" = Prelude.Just TENTACRUEL+        readEnum "GEODUDE" = Prelude.Just GEODUDE+        readEnum "GRAVELER" = Prelude.Just GRAVELER+        readEnum "GOLEM" = Prelude.Just GOLEM+        readEnum "PONYTA" = Prelude.Just PONYTA+        readEnum "RAPIDASH" = Prelude.Just RAPIDASH+        readEnum "SLOWPOKE" = Prelude.Just SLOWPOKE+        readEnum "SLOWBRO" = Prelude.Just SLOWBRO+        readEnum "MAGNEMITE" = Prelude.Just MAGNEMITE+        readEnum "MAGNETON" = Prelude.Just MAGNETON+        readEnum "FARFETCHD" = Prelude.Just FARFETCHD+        readEnum "DODUO" = Prelude.Just DODUO+        readEnum "DODRIO" = Prelude.Just DODRIO+        readEnum "SEEL" = Prelude.Just SEEL+        readEnum "DEWGONG" = Prelude.Just DEWGONG+        readEnum "GRIMER" = Prelude.Just GRIMER+        readEnum "MUK" = Prelude.Just MUK+        readEnum "SHELLDER" = Prelude.Just SHELLDER+        readEnum "CLOYSTER" = Prelude.Just CLOYSTER+        readEnum "GASTLY" = Prelude.Just GASTLY+        readEnum "HAUNTER" = Prelude.Just HAUNTER+        readEnum "GENGAR" = Prelude.Just GENGAR+        readEnum "ONIX" = Prelude.Just ONIX+        readEnum "DROWZEE" = Prelude.Just DROWZEE+        readEnum "HYPNO" = Prelude.Just HYPNO+        readEnum "KRABBY" = Prelude.Just KRABBY+        readEnum "KINGLER" = Prelude.Just KINGLER+        readEnum "VOLTORB" = Prelude.Just VOLTORB+        readEnum "ELECTRODE" = Prelude.Just ELECTRODE+        readEnum "EXEGGCUTE" = Prelude.Just EXEGGCUTE+        readEnum "EXEGGUTOR" = Prelude.Just EXEGGUTOR+        readEnum "CUBONE" = Prelude.Just CUBONE+        readEnum "MAROWAK" = Prelude.Just MAROWAK+        readEnum "HITMONLEE" = Prelude.Just HITMONLEE+        readEnum "HITMONCHAN" = Prelude.Just HITMONCHAN+        readEnum "LICKITUNG" = Prelude.Just LICKITUNG+        readEnum "KOFFING" = Prelude.Just KOFFING+        readEnum "WEEZING" = Prelude.Just WEEZING+        readEnum "RHYHORN" = Prelude.Just RHYHORN+        readEnum "RHYDON" = Prelude.Just RHYDON+        readEnum "CHANSEY" = Prelude.Just CHANSEY+        readEnum "TANGELA" = Prelude.Just TANGELA+        readEnum "KANGASKHAN" = Prelude.Just KANGASKHAN+        readEnum "HORSEA" = Prelude.Just HORSEA+        readEnum "SEADRA" = Prelude.Just SEADRA+        readEnum "GOLDEEN" = Prelude.Just GOLDEEN+        readEnum "SEAKING" = Prelude.Just SEAKING+        readEnum "STARYU" = Prelude.Just STARYU+        readEnum "STARMIE" = Prelude.Just STARMIE+        readEnum "MR_MIME" = Prelude.Just MR_MIME+        readEnum "SCYTHER" = Prelude.Just SCYTHER+        readEnum "JYNX" = Prelude.Just JYNX+        readEnum "ELECTABUZZ" = Prelude.Just ELECTABUZZ+        readEnum "MAGMAR" = Prelude.Just MAGMAR+        readEnum "PINSIR" = Prelude.Just PINSIR+        readEnum "TAUROS" = Prelude.Just TAUROS+        readEnum "MAGIKARP" = Prelude.Just MAGIKARP+        readEnum "GYARADOS" = Prelude.Just GYARADOS+        readEnum "LAPRAS" = Prelude.Just LAPRAS+        readEnum "DITTO" = Prelude.Just DITTO+        readEnum "EEVEE" = Prelude.Just EEVEE+        readEnum "VAPOREON" = Prelude.Just VAPOREON+        readEnum "JOLTEON" = Prelude.Just JOLTEON+        readEnum "FLAREON" = Prelude.Just FLAREON+        readEnum "PORYGON" = Prelude.Just PORYGON+        readEnum "OMANYTE" = Prelude.Just OMANYTE+        readEnum "OMASTAR" = Prelude.Just OMASTAR+        readEnum "KABUTO" = Prelude.Just KABUTO+        readEnum "KABUTOPS" = Prelude.Just KABUTOPS+        readEnum "AERODACTYL" = Prelude.Just AERODACTYL+        readEnum "SNORLAX" = Prelude.Just SNORLAX+        readEnum "ARTICUNO" = Prelude.Just ARTICUNO+        readEnum "ZAPDOS" = Prelude.Just ZAPDOS+        readEnum "MOLTRES" = Prelude.Just MOLTRES+        readEnum "DRATINI" = Prelude.Just DRATINI+        readEnum "DRAGONAIR" = Prelude.Just DRAGONAIR+        readEnum "DRAGONITE" = Prelude.Just DRAGONITE+        readEnum "MEWTWO" = Prelude.Just MEWTWO+        readEnum "MEW" = Prelude.Just MEW+        readEnum _ = Prelude.Nothing++instance Prelude.Enum PokemonId where+        toEnum k__+          = Prelude.maybe+              (Prelude.error+                 ((Prelude.++) "toEnum: unknown value for enum PokemonId: "+                    (Prelude.show k__)))+              Prelude.id+              (Data.ProtoLens.maybeToEnum k__)+        fromEnum MISSINGNO = 0+        fromEnum BULBASAUR = 1+        fromEnum IVYSAUR = 2+        fromEnum VENUSAUR = 3+        fromEnum CHARMANDER = 4+        fromEnum CHARMELEON = 5+        fromEnum CHARIZARD = 6+        fromEnum SQUIRTLE = 7+        fromEnum WARTORTLE = 8+        fromEnum BLASTOISE = 9+        fromEnum CATERPIE = 10+        fromEnum METAPOD = 11+        fromEnum BUTTERFREE = 12+        fromEnum WEEDLE = 13+        fromEnum KAKUNA = 14+        fromEnum BEEDRILL = 15+        fromEnum PIDGEY = 16+        fromEnum PIDGEOTTO = 17+        fromEnum PIDGEOT = 18+        fromEnum RATTATA = 19+        fromEnum RATICATE = 20+        fromEnum SPEAROW = 21+        fromEnum FEAROW = 22+        fromEnum EKANS = 23+        fromEnum ARBOK = 24+        fromEnum PIKACHU = 25+        fromEnum RAICHU = 26+        fromEnum SANDSHREW = 27+        fromEnum SANDSLASH = 28+        fromEnum NIDORAN_FEMALE = 29+        fromEnum NIDORINA = 30+        fromEnum NIDOQUEEN = 31+        fromEnum NIDORAN_MALE = 32+        fromEnum NIDORINO = 33+        fromEnum NIDOKING = 34+        fromEnum CLEFAIRY = 35+        fromEnum CLEFABLE = 36+        fromEnum VULPIX = 37+        fromEnum NINETALES = 38+        fromEnum JIGGLYPUFF = 39+        fromEnum WIGGLYTUFF = 40+        fromEnum ZUBAT = 41+        fromEnum GOLBAT = 42+        fromEnum ODDISH = 43+        fromEnum GLOOM = 44+        fromEnum VILEPLUME = 45+        fromEnum PARAS = 46+        fromEnum PARASECT = 47+        fromEnum VENONAT = 48+        fromEnum VENOMOTH = 49+        fromEnum DIGLETT = 50+        fromEnum DUGTRIO = 51+        fromEnum MEOWTH = 52+        fromEnum PERSIAN = 53+        fromEnum PSYDUCK = 54+        fromEnum GOLDUCK = 55+        fromEnum MANKEY = 56+        fromEnum PRIMEAPE = 57+        fromEnum GROWLITHE = 58+        fromEnum ARCANINE = 59+        fromEnum POLIWAG = 60+        fromEnum POLIWHIRL = 61+        fromEnum POLIWRATH = 62+        fromEnum ABRA = 63+        fromEnum KADABRA = 64+        fromEnum ALAKAZAM = 65+        fromEnum MACHOP = 66+        fromEnum MACHOKE = 67+        fromEnum MACHAMP = 68+        fromEnum BELLSPROUT = 69+        fromEnum WEEPINBELL = 70+        fromEnum VICTREEBEL = 71+        fromEnum TENTACOOL = 72+        fromEnum TENTACRUEL = 73+        fromEnum GEODUDE = 74+        fromEnum GRAVELER = 75+        fromEnum GOLEM = 76+        fromEnum PONYTA = 77+        fromEnum RAPIDASH = 78+        fromEnum SLOWPOKE = 79+        fromEnum SLOWBRO = 80+        fromEnum MAGNEMITE = 81+        fromEnum MAGNETON = 82+        fromEnum FARFETCHD = 83+        fromEnum DODUO = 84+        fromEnum DODRIO = 85+        fromEnum SEEL = 86+        fromEnum DEWGONG = 87+        fromEnum GRIMER = 88+        fromEnum MUK = 89+        fromEnum SHELLDER = 90+        fromEnum CLOYSTER = 91+        fromEnum GASTLY = 92+        fromEnum HAUNTER = 93+        fromEnum GENGAR = 94+        fromEnum ONIX = 95+        fromEnum DROWZEE = 96+        fromEnum HYPNO = 97+        fromEnum KRABBY = 98+        fromEnum KINGLER = 99+        fromEnum VOLTORB = 100+        fromEnum ELECTRODE = 101+        fromEnum EXEGGCUTE = 102+        fromEnum EXEGGUTOR = 103+        fromEnum CUBONE = 104+        fromEnum MAROWAK = 105+        fromEnum HITMONLEE = 106+        fromEnum HITMONCHAN = 107+        fromEnum LICKITUNG = 108+        fromEnum KOFFING = 109+        fromEnum WEEZING = 110+        fromEnum RHYHORN = 111+        fromEnum RHYDON = 112+        fromEnum CHANSEY = 113+        fromEnum TANGELA = 114+        fromEnum KANGASKHAN = 115+        fromEnum HORSEA = 116+        fromEnum SEADRA = 117+        fromEnum GOLDEEN = 118+        fromEnum SEAKING = 119+        fromEnum STARYU = 120+        fromEnum STARMIE = 121+        fromEnum MR_MIME = 122+        fromEnum SCYTHER = 123+        fromEnum JYNX = 124+        fromEnum ELECTABUZZ = 125+        fromEnum MAGMAR = 126+        fromEnum PINSIR = 127+        fromEnum TAUROS = 128+        fromEnum MAGIKARP = 129+        fromEnum GYARADOS = 130+        fromEnum LAPRAS = 131+        fromEnum DITTO = 132+        fromEnum EEVEE = 133+        fromEnum VAPOREON = 134+        fromEnum JOLTEON = 135+        fromEnum FLAREON = 136+        fromEnum PORYGON = 137+        fromEnum OMANYTE = 138+        fromEnum OMASTAR = 139+        fromEnum KABUTO = 140+        fromEnum KABUTOPS = 141+        fromEnum AERODACTYL = 142+        fromEnum SNORLAX = 143+        fromEnum ARTICUNO = 144+        fromEnum ZAPDOS = 145+        fromEnum MOLTRES = 146+        fromEnum DRATINI = 147+        fromEnum DRAGONAIR = 148+        fromEnum DRAGONITE = 149+        fromEnum MEWTWO = 150+        fromEnum MEW = 151+        succ MEW+          = Prelude.error+              "Ident \"PokemonId\".Ident \"succ\": bad argument Ident \"MEW\". This value would be out of bounds."+        succ MISSINGNO = BULBASAUR+        succ BULBASAUR = IVYSAUR+        succ IVYSAUR = VENUSAUR+        succ VENUSAUR = CHARMANDER+        succ CHARMANDER = CHARMELEON+        succ CHARMELEON = CHARIZARD+        succ CHARIZARD = SQUIRTLE+        succ SQUIRTLE = WARTORTLE+        succ WARTORTLE = BLASTOISE+        succ BLASTOISE = CATERPIE+        succ CATERPIE = METAPOD+        succ METAPOD = BUTTERFREE+        succ BUTTERFREE = WEEDLE+        succ WEEDLE = KAKUNA+        succ KAKUNA = BEEDRILL+        succ BEEDRILL = PIDGEY+        succ PIDGEY = PIDGEOTTO+        succ PIDGEOTTO = PIDGEOT+        succ PIDGEOT = RATTATA+        succ RATTATA = RATICATE+        succ RATICATE = SPEAROW+        succ SPEAROW = FEAROW+        succ FEAROW = EKANS+        succ EKANS = ARBOK+        succ ARBOK = PIKACHU+        succ PIKACHU = RAICHU+        succ RAICHU = SANDSHREW+        succ SANDSHREW = SANDSLASH+        succ SANDSLASH = NIDORAN_FEMALE+        succ NIDORAN_FEMALE = NIDORINA+        succ NIDORINA = NIDOQUEEN+        succ NIDOQUEEN = NIDORAN_MALE+        succ NIDORAN_MALE = NIDORINO+        succ NIDORINO = NIDOKING+        succ NIDOKING = CLEFAIRY+        succ CLEFAIRY = CLEFABLE+        succ CLEFABLE = VULPIX+        succ VULPIX = NINETALES+        succ NINETALES = JIGGLYPUFF+        succ JIGGLYPUFF = WIGGLYTUFF+        succ WIGGLYTUFF = ZUBAT+        succ ZUBAT = GOLBAT+        succ GOLBAT = ODDISH+        succ ODDISH = GLOOM+        succ GLOOM = VILEPLUME+        succ VILEPLUME = PARAS+        succ PARAS = PARASECT+        succ PARASECT = VENONAT+        succ VENONAT = VENOMOTH+        succ VENOMOTH = DIGLETT+        succ DIGLETT = DUGTRIO+        succ DUGTRIO = MEOWTH+        succ MEOWTH = PERSIAN+        succ PERSIAN = PSYDUCK+        succ PSYDUCK = GOLDUCK+        succ GOLDUCK = MANKEY+        succ MANKEY = PRIMEAPE+        succ PRIMEAPE = GROWLITHE+        succ GROWLITHE = ARCANINE+        succ ARCANINE = POLIWAG+        succ POLIWAG = POLIWHIRL+        succ POLIWHIRL = POLIWRATH+        succ POLIWRATH = ABRA+        succ ABRA = KADABRA+        succ KADABRA = ALAKAZAM+        succ ALAKAZAM = MACHOP+        succ MACHOP = MACHOKE+        succ MACHOKE = MACHAMP+        succ MACHAMP = BELLSPROUT+        succ BELLSPROUT = WEEPINBELL+        succ WEEPINBELL = VICTREEBEL+        succ VICTREEBEL = TENTACOOL+        succ TENTACOOL = TENTACRUEL+        succ TENTACRUEL = GEODUDE+        succ GEODUDE = GRAVELER+        succ GRAVELER = GOLEM+        succ GOLEM = PONYTA+        succ PONYTA = RAPIDASH+        succ RAPIDASH = SLOWPOKE+        succ SLOWPOKE = SLOWBRO+        succ SLOWBRO = MAGNEMITE+        succ MAGNEMITE = MAGNETON+        succ MAGNETON = FARFETCHD+        succ FARFETCHD = DODUO+        succ DODUO = DODRIO+        succ DODRIO = SEEL+        succ SEEL = DEWGONG+        succ DEWGONG = GRIMER+        succ GRIMER = MUK+        succ MUK = SHELLDER+        succ SHELLDER = CLOYSTER+        succ CLOYSTER = GASTLY+        succ GASTLY = HAUNTER+        succ HAUNTER = GENGAR+        succ GENGAR = ONIX+        succ ONIX = DROWZEE+        succ DROWZEE = HYPNO+        succ HYPNO = KRABBY+        succ KRABBY = KINGLER+        succ KINGLER = VOLTORB+        succ VOLTORB = ELECTRODE+        succ ELECTRODE = EXEGGCUTE+        succ EXEGGCUTE = EXEGGUTOR+        succ EXEGGUTOR = CUBONE+        succ CUBONE = MAROWAK+        succ MAROWAK = HITMONLEE+        succ HITMONLEE = HITMONCHAN+        succ HITMONCHAN = LICKITUNG+        succ LICKITUNG = KOFFING+        succ KOFFING = WEEZING+        succ WEEZING = RHYHORN+        succ RHYHORN = RHYDON+        succ RHYDON = CHANSEY+        succ CHANSEY = TANGELA+        succ TANGELA = KANGASKHAN+        succ KANGASKHAN = HORSEA+        succ HORSEA = SEADRA+        succ SEADRA = GOLDEEN+        succ GOLDEEN = SEAKING+        succ SEAKING = STARYU+        succ STARYU = STARMIE+        succ STARMIE = MR_MIME+        succ MR_MIME = SCYTHER+        succ SCYTHER = JYNX+        succ JYNX = ELECTABUZZ+        succ ELECTABUZZ = MAGMAR+        succ MAGMAR = PINSIR+        succ PINSIR = TAUROS+        succ TAUROS = MAGIKARP+        succ MAGIKARP = GYARADOS+        succ GYARADOS = LAPRAS+        succ LAPRAS = DITTO+        succ DITTO = EEVEE+        succ EEVEE = VAPOREON+        succ VAPOREON = JOLTEON+        succ JOLTEON = FLAREON+        succ FLAREON = PORYGON+        succ PORYGON = OMANYTE+        succ OMANYTE = OMASTAR+        succ OMASTAR = KABUTO+        succ KABUTO = KABUTOPS+        succ KABUTOPS = AERODACTYL+        succ AERODACTYL = SNORLAX+        succ SNORLAX = ARTICUNO+        succ ARTICUNO = ZAPDOS+        succ ZAPDOS = MOLTRES+        succ MOLTRES = DRATINI+        succ DRATINI = DRAGONAIR+        succ DRAGONAIR = DRAGONITE+        succ DRAGONITE = MEWTWO+        succ MEWTWO = MEW+        pred MISSINGNO+          = Prelude.error+              "Ident \"PokemonId\".Ident \"pred\": bad argument Ident \"MISSINGNO\". This value would be out of bounds."+        pred BULBASAUR = MISSINGNO+        pred IVYSAUR = BULBASAUR+        pred VENUSAUR = IVYSAUR+        pred CHARMANDER = VENUSAUR+        pred CHARMELEON = CHARMANDER+        pred CHARIZARD = CHARMELEON+        pred SQUIRTLE = CHARIZARD+        pred WARTORTLE = SQUIRTLE+        pred BLASTOISE = WARTORTLE+        pred CATERPIE = BLASTOISE+        pred METAPOD = CATERPIE+        pred BUTTERFREE = METAPOD+        pred WEEDLE = BUTTERFREE+        pred KAKUNA = WEEDLE+        pred BEEDRILL = KAKUNA+        pred PIDGEY = BEEDRILL+        pred PIDGEOTTO = PIDGEY+        pred PIDGEOT = PIDGEOTTO+        pred RATTATA = PIDGEOT+        pred RATICATE = RATTATA+        pred SPEAROW = RATICATE+        pred FEAROW = SPEAROW+        pred EKANS = FEAROW+        pred ARBOK = EKANS+        pred PIKACHU = ARBOK+        pred RAICHU = PIKACHU+        pred SANDSHREW = RAICHU+        pred SANDSLASH = SANDSHREW+        pred NIDORAN_FEMALE = SANDSLASH+        pred NIDORINA = NIDORAN_FEMALE+        pred NIDOQUEEN = NIDORINA+        pred NIDORAN_MALE = NIDOQUEEN+        pred NIDORINO = NIDORAN_MALE+        pred NIDOKING = NIDORINO+        pred CLEFAIRY = NIDOKING+        pred CLEFABLE = CLEFAIRY+        pred VULPIX = CLEFABLE+        pred NINETALES = VULPIX+        pred JIGGLYPUFF = NINETALES+        pred WIGGLYTUFF = JIGGLYPUFF+        pred ZUBAT = WIGGLYTUFF+        pred GOLBAT = ZUBAT+        pred ODDISH = GOLBAT+        pred GLOOM = ODDISH+        pred VILEPLUME = GLOOM+        pred PARAS = VILEPLUME+        pred PARASECT = PARAS+        pred VENONAT = PARASECT+        pred VENOMOTH = VENONAT+        pred DIGLETT = VENOMOTH+        pred DUGTRIO = DIGLETT+        pred MEOWTH = DUGTRIO+        pred PERSIAN = MEOWTH+        pred PSYDUCK = PERSIAN+        pred GOLDUCK = PSYDUCK+        pred MANKEY = GOLDUCK+        pred PRIMEAPE = MANKEY+        pred GROWLITHE = PRIMEAPE+        pred ARCANINE = GROWLITHE+        pred POLIWAG = ARCANINE+        pred POLIWHIRL = POLIWAG+        pred POLIWRATH = POLIWHIRL+        pred ABRA = POLIWRATH+        pred KADABRA = ABRA+        pred ALAKAZAM = KADABRA+        pred MACHOP = ALAKAZAM+        pred MACHOKE = MACHOP+        pred MACHAMP = MACHOKE+        pred BELLSPROUT = MACHAMP+        pred WEEPINBELL = BELLSPROUT+        pred VICTREEBEL = WEEPINBELL+        pred TENTACOOL = VICTREEBEL+        pred TENTACRUEL = TENTACOOL+        pred GEODUDE = TENTACRUEL+        pred GRAVELER = GEODUDE+        pred GOLEM = GRAVELER+        pred PONYTA = GOLEM+        pred RAPIDASH = PONYTA+        pred SLOWPOKE = RAPIDASH+        pred SLOWBRO = SLOWPOKE+        pred MAGNEMITE = SLOWBRO+        pred MAGNETON = MAGNEMITE+        pred FARFETCHD = MAGNETON+        pred DODUO = FARFETCHD+        pred DODRIO = DODUO+        pred SEEL = DODRIO+        pred DEWGONG = SEEL+        pred GRIMER = DEWGONG+        pred MUK = GRIMER+        pred SHELLDER = MUK+        pred CLOYSTER = SHELLDER+        pred GASTLY = CLOYSTER+        pred HAUNTER = GASTLY+        pred GENGAR = HAUNTER+        pred ONIX = GENGAR+        pred DROWZEE = ONIX+        pred HYPNO = DROWZEE+        pred KRABBY = HYPNO+        pred KINGLER = KRABBY+        pred VOLTORB = KINGLER+        pred ELECTRODE = VOLTORB+        pred EXEGGCUTE = ELECTRODE+        pred EXEGGUTOR = EXEGGCUTE+        pred CUBONE = EXEGGUTOR+        pred MAROWAK = CUBONE+        pred HITMONLEE = MAROWAK+        pred HITMONCHAN = HITMONLEE+        pred LICKITUNG = HITMONCHAN+        pred KOFFING = LICKITUNG+        pred WEEZING = KOFFING+        pred RHYHORN = WEEZING+        pred RHYDON = RHYHORN+        pred CHANSEY = RHYDON+        pred TANGELA = CHANSEY+        pred KANGASKHAN = TANGELA+        pred HORSEA = KANGASKHAN+        pred SEADRA = HORSEA+        pred GOLDEEN = SEADRA+        pred SEAKING = GOLDEEN+        pred STARYU = SEAKING+        pred STARMIE = STARYU+        pred MR_MIME = STARMIE+        pred SCYTHER = MR_MIME+        pred JYNX = SCYTHER+        pred ELECTABUZZ = JYNX+        pred MAGMAR = ELECTABUZZ+        pred PINSIR = MAGMAR+        pred TAUROS = PINSIR+        pred MAGIKARP = TAUROS+        pred GYARADOS = MAGIKARP+        pred LAPRAS = GYARADOS+        pred DITTO = LAPRAS+        pred EEVEE = DITTO+        pred VAPOREON = EEVEE+        pred JOLTEON = VAPOREON+        pred FLAREON = JOLTEON+        pred PORYGON = FLAREON+        pred OMANYTE = PORYGON+        pred OMASTAR = OMANYTE+        pred KABUTO = OMASTAR+        pred KABUTOPS = KABUTO+        pred AERODACTYL = KABUTOPS+        pred SNORLAX = AERODACTYL+        pred ARTICUNO = SNORLAX+        pred ZAPDOS = ARTICUNO+        pred MOLTRES = ZAPDOS+        pred DRATINI = MOLTRES+        pred DRAGONAIR = DRATINI+        pred DRAGONITE = DRAGONAIR+        pred MEWTWO = DRAGONITE+        pred MEW = MEWTWO+        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 PokemonId where+        minBound = MISSINGNO+        maxBound = MEW
+ src/Proto/POGOProtos/Enums/PokemonMove.hs view
@@ -0,0 +1,1310 @@+{- This file was auto-generated from POGOProtos/Enums/PokemonMove.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Enums.PokemonMove 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 PokemonMove = MOVE_UNSET+                 | THUNDER_SHOCK+                 | QUICK_ATTACK+                 | SCRATCH+                 | EMBER+                 | VINE_WHIP+                 | TACKLE+                 | RAZOR_LEAF+                 | TAKE_DOWN+                 | WATER_GUN+                 | BITE+                 | POUND+                 | DOUBLE_SLAP+                 | WRAP+                 | HYPER_BEAM+                 | LICK+                 | DARK_PULSE+                 | SMOG+                 | SLUDGE+                 | METAL_CLAW+                 | VICE_GRIP+                 | FLAME_WHEEL+                 | MEGAHORN+                 | WING_ATTACK+                 | FLAMETHROWER+                 | SUCKER_PUNCH+                 | DIG+                 | LOW_KICK+                 | CROSS_CHOP+                 | PSYCHO_CUT+                 | PSYBEAM+                 | EARTHQUAKE+                 | STONE_EDGE+                 | ICE_PUNCH+                 | HEART_STAMP+                 | DISCHARGE+                 | FLASH_CANNON+                 | PECK+                 | DRILL_PECK+                 | ICE_BEAM+                 | BLIZZARD+                 | AIR_SLASH+                 | HEAT_WAVE+                 | TWINEEDLE+                 | POISON_JAB+                 | AERIAL_ACE+                 | DRILL_RUN+                 | PETAL_BLIZZARD+                 | MEGA_DRAIN+                 | BUG_BUZZ+                 | POISON_FANG+                 | NIGHT_SLASH+                 | SLASH+                 | BUBBLE_BEAM+                 | SUBMISSION+                 | KARATE_CHOP+                 | LOW_SWEEP+                 | AQUA_JET+                 | AQUA_TAIL+                 | SEED_BOMB+                 | PSYSHOCK+                 | ROCK_THROW+                 | ANCIENT_POWER+                 | ROCK_TOMB+                 | ROCK_SLIDE+                 | POWER_GEM+                 | SHADOW_SNEAK+                 | SHADOW_PUNCH+                 | SHADOW_CLAW+                 | OMINOUS_WIND+                 | SHADOW_BALL+                 | BULLET_PUNCH+                 | MAGNET_BOMB+                 | STEEL_WING+                 | IRON_HEAD+                 | PARABOLIC_CHARGE+                 | SPARK+                 | THUNDER_PUNCH+                 | THUNDER+                 | THUNDERBOLT+                 | TWISTER+                 | DRAGON_BREATH+                 | DRAGON_PULSE+                 | DRAGON_CLAW+                 | DISARMING_VOICE+                 | DRAINING_KISS+                 | DAZZLING_GLEAM+                 | MOONBLAST+                 | PLAY_ROUGH+                 | CROSS_POISON+                 | SLUDGE_BOMB+                 | SLUDGE_WAVE+                 | GUNK_SHOT+                 | MUD_SHOT+                 | BONE_CLUB+                 | BULLDOZE+                 | MUD_BOMB+                 | FURY_CUTTER+                 | BUG_BITE+                 | SIGNAL_BEAM+                 | X_SCISSOR+                 | FLAME_CHARGE+                 | FLAME_BURST+                 | FIRE_BLAST+                 | BRINE+                 | WATER_PULSE+                 | SCALD+                 | HYDRO_PUMP+                 | PSYCHIC+                 | PSYSTRIKE+                 | ICE_SHARD+                 | ICY_WIND+                 | FROST_BREATH+                 | ABSORB+                 | GIGA_DRAIN+                 | FIRE_PUNCH+                 | SOLAR_BEAM+                 | LEAF_BLADE+                 | POWER_WHIP+                 | SPLASH+                 | ACID+                 | AIR_CUTTER+                 | HURRICANE+                 | BRICK_BREAK+                 | CUT+                 | SWIFT+                 | HORN_ATTACK+                 | STOMP+                 | HEADBUTT+                 | HYPER_FANG+                 | SLAM+                 | BODY_SLAM+                 | REST+                 | STRUGGLE+                 | SCALD_BLASTOISE+                 | HYDRO_PUMP_BLASTOISE+                 | WRAP_GREEN+                 | WRAP_PINK+                 | FURY_CUTTER_FAST+                 | BUG_BITE_FAST+                 | BITE_FAST+                 | SUCKER_PUNCH_FAST+                 | DRAGON_BREATH_FAST+                 | THUNDER_SHOCK_FAST+                 | SPARK_FAST+                 | LOW_KICK_FAST+                 | KARATE_CHOP_FAST+                 | EMBER_FAST+                 | WING_ATTACK_FAST+                 | PECK_FAST+                 | LICK_FAST+                 | SHADOW_CLAW_FAST+                 | VINE_WHIP_FAST+                 | RAZOR_LEAF_FAST+                 | MUD_SHOT_FAST+                 | ICE_SHARD_FAST+                 | FROST_BREATH_FAST+                 | QUICK_ATTACK_FAST+                 | SCRATCH_FAST+                 | TACKLE_FAST+                 | POUND_FAST+                 | CUT_FAST+                 | POISON_JAB_FAST+                 | ACID_FAST+                 | PSYCHO_CUT_FAST+                 | ROCK_THROW_FAST+                 | METAL_CLAW_FAST+                 | BULLET_PUNCH_FAST+                 | WATER_GUN_FAST+                 | SPLASH_FAST+                 | WATER_GUN_FAST_BLASTOISE+                 | MUD_SLAP_FAST+                 | ZEN_HEADBUTT_FAST+                 | CONFUSION_FAST+                 | POISON_STING_FAST+                 | BUBBLE_FAST+                 | FEINT_ATTACK_FAST+                 | STEEL_WING_FAST+                 | FIRE_FANG_FAST+                 | ROCK_SMASH_FAST+                 deriving (Prelude.Show, Prelude.Eq)++instance Data.Default.Class.Default PokemonMove where+        def = MOVE_UNSET++instance Data.ProtoLens.FieldDefault PokemonMove where+        fieldDefault = MOVE_UNSET++instance Data.ProtoLens.MessageEnum PokemonMove where+        maybeToEnum 0 = Prelude.Just MOVE_UNSET+        maybeToEnum 1 = Prelude.Just THUNDER_SHOCK+        maybeToEnum 2 = Prelude.Just QUICK_ATTACK+        maybeToEnum 3 = Prelude.Just SCRATCH+        maybeToEnum 4 = Prelude.Just EMBER+        maybeToEnum 5 = Prelude.Just VINE_WHIP+        maybeToEnum 6 = Prelude.Just TACKLE+        maybeToEnum 7 = Prelude.Just RAZOR_LEAF+        maybeToEnum 8 = Prelude.Just TAKE_DOWN+        maybeToEnum 9 = Prelude.Just WATER_GUN+        maybeToEnum 10 = Prelude.Just BITE+        maybeToEnum 11 = Prelude.Just POUND+        maybeToEnum 12 = Prelude.Just DOUBLE_SLAP+        maybeToEnum 13 = Prelude.Just WRAP+        maybeToEnum 14 = Prelude.Just HYPER_BEAM+        maybeToEnum 15 = Prelude.Just LICK+        maybeToEnum 16 = Prelude.Just DARK_PULSE+        maybeToEnum 17 = Prelude.Just SMOG+        maybeToEnum 18 = Prelude.Just SLUDGE+        maybeToEnum 19 = Prelude.Just METAL_CLAW+        maybeToEnum 20 = Prelude.Just VICE_GRIP+        maybeToEnum 21 = Prelude.Just FLAME_WHEEL+        maybeToEnum 22 = Prelude.Just MEGAHORN+        maybeToEnum 23 = Prelude.Just WING_ATTACK+        maybeToEnum 24 = Prelude.Just FLAMETHROWER+        maybeToEnum 25 = Prelude.Just SUCKER_PUNCH+        maybeToEnum 26 = Prelude.Just DIG+        maybeToEnum 27 = Prelude.Just LOW_KICK+        maybeToEnum 28 = Prelude.Just CROSS_CHOP+        maybeToEnum 29 = Prelude.Just PSYCHO_CUT+        maybeToEnum 30 = Prelude.Just PSYBEAM+        maybeToEnum 31 = Prelude.Just EARTHQUAKE+        maybeToEnum 32 = Prelude.Just STONE_EDGE+        maybeToEnum 33 = Prelude.Just ICE_PUNCH+        maybeToEnum 34 = Prelude.Just HEART_STAMP+        maybeToEnum 35 = Prelude.Just DISCHARGE+        maybeToEnum 36 = Prelude.Just FLASH_CANNON+        maybeToEnum 37 = Prelude.Just PECK+        maybeToEnum 38 = Prelude.Just DRILL_PECK+        maybeToEnum 39 = Prelude.Just ICE_BEAM+        maybeToEnum 40 = Prelude.Just BLIZZARD+        maybeToEnum 41 = Prelude.Just AIR_SLASH+        maybeToEnum 42 = Prelude.Just HEAT_WAVE+        maybeToEnum 43 = Prelude.Just TWINEEDLE+        maybeToEnum 44 = Prelude.Just POISON_JAB+        maybeToEnum 45 = Prelude.Just AERIAL_ACE+        maybeToEnum 46 = Prelude.Just DRILL_RUN+        maybeToEnum 47 = Prelude.Just PETAL_BLIZZARD+        maybeToEnum 48 = Prelude.Just MEGA_DRAIN+        maybeToEnum 49 = Prelude.Just BUG_BUZZ+        maybeToEnum 50 = Prelude.Just POISON_FANG+        maybeToEnum 51 = Prelude.Just NIGHT_SLASH+        maybeToEnum 52 = Prelude.Just SLASH+        maybeToEnum 53 = Prelude.Just BUBBLE_BEAM+        maybeToEnum 54 = Prelude.Just SUBMISSION+        maybeToEnum 55 = Prelude.Just KARATE_CHOP+        maybeToEnum 56 = Prelude.Just LOW_SWEEP+        maybeToEnum 57 = Prelude.Just AQUA_JET+        maybeToEnum 58 = Prelude.Just AQUA_TAIL+        maybeToEnum 59 = Prelude.Just SEED_BOMB+        maybeToEnum 60 = Prelude.Just PSYSHOCK+        maybeToEnum 61 = Prelude.Just ROCK_THROW+        maybeToEnum 62 = Prelude.Just ANCIENT_POWER+        maybeToEnum 63 = Prelude.Just ROCK_TOMB+        maybeToEnum 64 = Prelude.Just ROCK_SLIDE+        maybeToEnum 65 = Prelude.Just POWER_GEM+        maybeToEnum 66 = Prelude.Just SHADOW_SNEAK+        maybeToEnum 67 = Prelude.Just SHADOW_PUNCH+        maybeToEnum 68 = Prelude.Just SHADOW_CLAW+        maybeToEnum 69 = Prelude.Just OMINOUS_WIND+        maybeToEnum 70 = Prelude.Just SHADOW_BALL+        maybeToEnum 71 = Prelude.Just BULLET_PUNCH+        maybeToEnum 72 = Prelude.Just MAGNET_BOMB+        maybeToEnum 73 = Prelude.Just STEEL_WING+        maybeToEnum 74 = Prelude.Just IRON_HEAD+        maybeToEnum 75 = Prelude.Just PARABOLIC_CHARGE+        maybeToEnum 76 = Prelude.Just SPARK+        maybeToEnum 77 = Prelude.Just THUNDER_PUNCH+        maybeToEnum 78 = Prelude.Just THUNDER+        maybeToEnum 79 = Prelude.Just THUNDERBOLT+        maybeToEnum 80 = Prelude.Just TWISTER+        maybeToEnum 81 = Prelude.Just DRAGON_BREATH+        maybeToEnum 82 = Prelude.Just DRAGON_PULSE+        maybeToEnum 83 = Prelude.Just DRAGON_CLAW+        maybeToEnum 84 = Prelude.Just DISARMING_VOICE+        maybeToEnum 85 = Prelude.Just DRAINING_KISS+        maybeToEnum 86 = Prelude.Just DAZZLING_GLEAM+        maybeToEnum 87 = Prelude.Just MOONBLAST+        maybeToEnum 88 = Prelude.Just PLAY_ROUGH+        maybeToEnum 89 = Prelude.Just CROSS_POISON+        maybeToEnum 90 = Prelude.Just SLUDGE_BOMB+        maybeToEnum 91 = Prelude.Just SLUDGE_WAVE+        maybeToEnum 92 = Prelude.Just GUNK_SHOT+        maybeToEnum 93 = Prelude.Just MUD_SHOT+        maybeToEnum 94 = Prelude.Just BONE_CLUB+        maybeToEnum 95 = Prelude.Just BULLDOZE+        maybeToEnum 96 = Prelude.Just MUD_BOMB+        maybeToEnum 97 = Prelude.Just FURY_CUTTER+        maybeToEnum 98 = Prelude.Just BUG_BITE+        maybeToEnum 99 = Prelude.Just SIGNAL_BEAM+        maybeToEnum 100 = Prelude.Just X_SCISSOR+        maybeToEnum 101 = Prelude.Just FLAME_CHARGE+        maybeToEnum 102 = Prelude.Just FLAME_BURST+        maybeToEnum 103 = Prelude.Just FIRE_BLAST+        maybeToEnum 104 = Prelude.Just BRINE+        maybeToEnum 105 = Prelude.Just WATER_PULSE+        maybeToEnum 106 = Prelude.Just SCALD+        maybeToEnum 107 = Prelude.Just HYDRO_PUMP+        maybeToEnum 108 = Prelude.Just PSYCHIC+        maybeToEnum 109 = Prelude.Just PSYSTRIKE+        maybeToEnum 110 = Prelude.Just ICE_SHARD+        maybeToEnum 111 = Prelude.Just ICY_WIND+        maybeToEnum 112 = Prelude.Just FROST_BREATH+        maybeToEnum 113 = Prelude.Just ABSORB+        maybeToEnum 114 = Prelude.Just GIGA_DRAIN+        maybeToEnum 115 = Prelude.Just FIRE_PUNCH+        maybeToEnum 116 = Prelude.Just SOLAR_BEAM+        maybeToEnum 117 = Prelude.Just LEAF_BLADE+        maybeToEnum 118 = Prelude.Just POWER_WHIP+        maybeToEnum 119 = Prelude.Just SPLASH+        maybeToEnum 120 = Prelude.Just ACID+        maybeToEnum 121 = Prelude.Just AIR_CUTTER+        maybeToEnum 122 = Prelude.Just HURRICANE+        maybeToEnum 123 = Prelude.Just BRICK_BREAK+        maybeToEnum 124 = Prelude.Just CUT+        maybeToEnum 125 = Prelude.Just SWIFT+        maybeToEnum 126 = Prelude.Just HORN_ATTACK+        maybeToEnum 127 = Prelude.Just STOMP+        maybeToEnum 128 = Prelude.Just HEADBUTT+        maybeToEnum 129 = Prelude.Just HYPER_FANG+        maybeToEnum 130 = Prelude.Just SLAM+        maybeToEnum 131 = Prelude.Just BODY_SLAM+        maybeToEnum 132 = Prelude.Just REST+        maybeToEnum 133 = Prelude.Just STRUGGLE+        maybeToEnum 134 = Prelude.Just SCALD_BLASTOISE+        maybeToEnum 135 = Prelude.Just HYDRO_PUMP_BLASTOISE+        maybeToEnum 136 = Prelude.Just WRAP_GREEN+        maybeToEnum 137 = Prelude.Just WRAP_PINK+        maybeToEnum 200 = Prelude.Just FURY_CUTTER_FAST+        maybeToEnum 201 = Prelude.Just BUG_BITE_FAST+        maybeToEnum 202 = Prelude.Just BITE_FAST+        maybeToEnum 203 = Prelude.Just SUCKER_PUNCH_FAST+        maybeToEnum 204 = Prelude.Just DRAGON_BREATH_FAST+        maybeToEnum 205 = Prelude.Just THUNDER_SHOCK_FAST+        maybeToEnum 206 = Prelude.Just SPARK_FAST+        maybeToEnum 207 = Prelude.Just LOW_KICK_FAST+        maybeToEnum 208 = Prelude.Just KARATE_CHOP_FAST+        maybeToEnum 209 = Prelude.Just EMBER_FAST+        maybeToEnum 210 = Prelude.Just WING_ATTACK_FAST+        maybeToEnum 211 = Prelude.Just PECK_FAST+        maybeToEnum 212 = Prelude.Just LICK_FAST+        maybeToEnum 213 = Prelude.Just SHADOW_CLAW_FAST+        maybeToEnum 214 = Prelude.Just VINE_WHIP_FAST+        maybeToEnum 215 = Prelude.Just RAZOR_LEAF_FAST+        maybeToEnum 216 = Prelude.Just MUD_SHOT_FAST+        maybeToEnum 217 = Prelude.Just ICE_SHARD_FAST+        maybeToEnum 218 = Prelude.Just FROST_BREATH_FAST+        maybeToEnum 219 = Prelude.Just QUICK_ATTACK_FAST+        maybeToEnum 220 = Prelude.Just SCRATCH_FAST+        maybeToEnum 221 = Prelude.Just TACKLE_FAST+        maybeToEnum 222 = Prelude.Just POUND_FAST+        maybeToEnum 223 = Prelude.Just CUT_FAST+        maybeToEnum 224 = Prelude.Just POISON_JAB_FAST+        maybeToEnum 225 = Prelude.Just ACID_FAST+        maybeToEnum 226 = Prelude.Just PSYCHO_CUT_FAST+        maybeToEnum 227 = Prelude.Just ROCK_THROW_FAST+        maybeToEnum 228 = Prelude.Just METAL_CLAW_FAST+        maybeToEnum 229 = Prelude.Just BULLET_PUNCH_FAST+        maybeToEnum 230 = Prelude.Just WATER_GUN_FAST+        maybeToEnum 231 = Prelude.Just SPLASH_FAST+        maybeToEnum 232 = Prelude.Just WATER_GUN_FAST_BLASTOISE+        maybeToEnum 233 = Prelude.Just MUD_SLAP_FAST+        maybeToEnum 234 = Prelude.Just ZEN_HEADBUTT_FAST+        maybeToEnum 235 = Prelude.Just CONFUSION_FAST+        maybeToEnum 236 = Prelude.Just POISON_STING_FAST+        maybeToEnum 237 = Prelude.Just BUBBLE_FAST+        maybeToEnum 238 = Prelude.Just FEINT_ATTACK_FAST+        maybeToEnum 239 = Prelude.Just STEEL_WING_FAST+        maybeToEnum 240 = Prelude.Just FIRE_FANG_FAST+        maybeToEnum 241 = Prelude.Just ROCK_SMASH_FAST+        maybeToEnum _ = Prelude.Nothing+        showEnum MOVE_UNSET = "MOVE_UNSET"+        showEnum THUNDER_SHOCK = "THUNDER_SHOCK"+        showEnum QUICK_ATTACK = "QUICK_ATTACK"+        showEnum SCRATCH = "SCRATCH"+        showEnum EMBER = "EMBER"+        showEnum VINE_WHIP = "VINE_WHIP"+        showEnum TACKLE = "TACKLE"+        showEnum RAZOR_LEAF = "RAZOR_LEAF"+        showEnum TAKE_DOWN = "TAKE_DOWN"+        showEnum WATER_GUN = "WATER_GUN"+        showEnum BITE = "BITE"+        showEnum POUND = "POUND"+        showEnum DOUBLE_SLAP = "DOUBLE_SLAP"+        showEnum WRAP = "WRAP"+        showEnum HYPER_BEAM = "HYPER_BEAM"+        showEnum LICK = "LICK"+        showEnum DARK_PULSE = "DARK_PULSE"+        showEnum SMOG = "SMOG"+        showEnum SLUDGE = "SLUDGE"+        showEnum METAL_CLAW = "METAL_CLAW"+        showEnum VICE_GRIP = "VICE_GRIP"+        showEnum FLAME_WHEEL = "FLAME_WHEEL"+        showEnum MEGAHORN = "MEGAHORN"+        showEnum WING_ATTACK = "WING_ATTACK"+        showEnum FLAMETHROWER = "FLAMETHROWER"+        showEnum SUCKER_PUNCH = "SUCKER_PUNCH"+        showEnum DIG = "DIG"+        showEnum LOW_KICK = "LOW_KICK"+        showEnum CROSS_CHOP = "CROSS_CHOP"+        showEnum PSYCHO_CUT = "PSYCHO_CUT"+        showEnum PSYBEAM = "PSYBEAM"+        showEnum EARTHQUAKE = "EARTHQUAKE"+        showEnum STONE_EDGE = "STONE_EDGE"+        showEnum ICE_PUNCH = "ICE_PUNCH"+        showEnum HEART_STAMP = "HEART_STAMP"+        showEnum DISCHARGE = "DISCHARGE"+        showEnum FLASH_CANNON = "FLASH_CANNON"+        showEnum PECK = "PECK"+        showEnum DRILL_PECK = "DRILL_PECK"+        showEnum ICE_BEAM = "ICE_BEAM"+        showEnum BLIZZARD = "BLIZZARD"+        showEnum AIR_SLASH = "AIR_SLASH"+        showEnum HEAT_WAVE = "HEAT_WAVE"+        showEnum TWINEEDLE = "TWINEEDLE"+        showEnum POISON_JAB = "POISON_JAB"+        showEnum AERIAL_ACE = "AERIAL_ACE"+        showEnum DRILL_RUN = "DRILL_RUN"+        showEnum PETAL_BLIZZARD = "PETAL_BLIZZARD"+        showEnum MEGA_DRAIN = "MEGA_DRAIN"+        showEnum BUG_BUZZ = "BUG_BUZZ"+        showEnum POISON_FANG = "POISON_FANG"+        showEnum NIGHT_SLASH = "NIGHT_SLASH"+        showEnum SLASH = "SLASH"+        showEnum BUBBLE_BEAM = "BUBBLE_BEAM"+        showEnum SUBMISSION = "SUBMISSION"+        showEnum KARATE_CHOP = "KARATE_CHOP"+        showEnum LOW_SWEEP = "LOW_SWEEP"+        showEnum AQUA_JET = "AQUA_JET"+        showEnum AQUA_TAIL = "AQUA_TAIL"+        showEnum SEED_BOMB = "SEED_BOMB"+        showEnum PSYSHOCK = "PSYSHOCK"+        showEnum ROCK_THROW = "ROCK_THROW"+        showEnum ANCIENT_POWER = "ANCIENT_POWER"+        showEnum ROCK_TOMB = "ROCK_TOMB"+        showEnum ROCK_SLIDE = "ROCK_SLIDE"+        showEnum POWER_GEM = "POWER_GEM"+        showEnum SHADOW_SNEAK = "SHADOW_SNEAK"+        showEnum SHADOW_PUNCH = "SHADOW_PUNCH"+        showEnum SHADOW_CLAW = "SHADOW_CLAW"+        showEnum OMINOUS_WIND = "OMINOUS_WIND"+        showEnum SHADOW_BALL = "SHADOW_BALL"+        showEnum BULLET_PUNCH = "BULLET_PUNCH"+        showEnum MAGNET_BOMB = "MAGNET_BOMB"+        showEnum STEEL_WING = "STEEL_WING"+        showEnum IRON_HEAD = "IRON_HEAD"+        showEnum PARABOLIC_CHARGE = "PARABOLIC_CHARGE"+        showEnum SPARK = "SPARK"+        showEnum THUNDER_PUNCH = "THUNDER_PUNCH"+        showEnum THUNDER = "THUNDER"+        showEnum THUNDERBOLT = "THUNDERBOLT"+        showEnum TWISTER = "TWISTER"+        showEnum DRAGON_BREATH = "DRAGON_BREATH"+        showEnum DRAGON_PULSE = "DRAGON_PULSE"+        showEnum DRAGON_CLAW = "DRAGON_CLAW"+        showEnum DISARMING_VOICE = "DISARMING_VOICE"+        showEnum DRAINING_KISS = "DRAINING_KISS"+        showEnum DAZZLING_GLEAM = "DAZZLING_GLEAM"+        showEnum MOONBLAST = "MOONBLAST"+        showEnum PLAY_ROUGH = "PLAY_ROUGH"+        showEnum CROSS_POISON = "CROSS_POISON"+        showEnum SLUDGE_BOMB = "SLUDGE_BOMB"+        showEnum SLUDGE_WAVE = "SLUDGE_WAVE"+        showEnum GUNK_SHOT = "GUNK_SHOT"+        showEnum MUD_SHOT = "MUD_SHOT"+        showEnum BONE_CLUB = "BONE_CLUB"+        showEnum BULLDOZE = "BULLDOZE"+        showEnum MUD_BOMB = "MUD_BOMB"+        showEnum FURY_CUTTER = "FURY_CUTTER"+        showEnum BUG_BITE = "BUG_BITE"+        showEnum SIGNAL_BEAM = "SIGNAL_BEAM"+        showEnum X_SCISSOR = "X_SCISSOR"+        showEnum FLAME_CHARGE = "FLAME_CHARGE"+        showEnum FLAME_BURST = "FLAME_BURST"+        showEnum FIRE_BLAST = "FIRE_BLAST"+        showEnum BRINE = "BRINE"+        showEnum WATER_PULSE = "WATER_PULSE"+        showEnum SCALD = "SCALD"+        showEnum HYDRO_PUMP = "HYDRO_PUMP"+        showEnum PSYCHIC = "PSYCHIC"+        showEnum PSYSTRIKE = "PSYSTRIKE"+        showEnum ICE_SHARD = "ICE_SHARD"+        showEnum ICY_WIND = "ICY_WIND"+        showEnum FROST_BREATH = "FROST_BREATH"+        showEnum ABSORB = "ABSORB"+        showEnum GIGA_DRAIN = "GIGA_DRAIN"+        showEnum FIRE_PUNCH = "FIRE_PUNCH"+        showEnum SOLAR_BEAM = "SOLAR_BEAM"+        showEnum LEAF_BLADE = "LEAF_BLADE"+        showEnum POWER_WHIP = "POWER_WHIP"+        showEnum SPLASH = "SPLASH"+        showEnum ACID = "ACID"+        showEnum AIR_CUTTER = "AIR_CUTTER"+        showEnum HURRICANE = "HURRICANE"+        showEnum BRICK_BREAK = "BRICK_BREAK"+        showEnum CUT = "CUT"+        showEnum SWIFT = "SWIFT"+        showEnum HORN_ATTACK = "HORN_ATTACK"+        showEnum STOMP = "STOMP"+        showEnum HEADBUTT = "HEADBUTT"+        showEnum HYPER_FANG = "HYPER_FANG"+        showEnum SLAM = "SLAM"+        showEnum BODY_SLAM = "BODY_SLAM"+        showEnum REST = "REST"+        showEnum STRUGGLE = "STRUGGLE"+        showEnum SCALD_BLASTOISE = "SCALD_BLASTOISE"+        showEnum HYDRO_PUMP_BLASTOISE = "HYDRO_PUMP_BLASTOISE"+        showEnum WRAP_GREEN = "WRAP_GREEN"+        showEnum WRAP_PINK = "WRAP_PINK"+        showEnum FURY_CUTTER_FAST = "FURY_CUTTER_FAST"+        showEnum BUG_BITE_FAST = "BUG_BITE_FAST"+        showEnum BITE_FAST = "BITE_FAST"+        showEnum SUCKER_PUNCH_FAST = "SUCKER_PUNCH_FAST"+        showEnum DRAGON_BREATH_FAST = "DRAGON_BREATH_FAST"+        showEnum THUNDER_SHOCK_FAST = "THUNDER_SHOCK_FAST"+        showEnum SPARK_FAST = "SPARK_FAST"+        showEnum LOW_KICK_FAST = "LOW_KICK_FAST"+        showEnum KARATE_CHOP_FAST = "KARATE_CHOP_FAST"+        showEnum EMBER_FAST = "EMBER_FAST"+        showEnum WING_ATTACK_FAST = "WING_ATTACK_FAST"+        showEnum PECK_FAST = "PECK_FAST"+        showEnum LICK_FAST = "LICK_FAST"+        showEnum SHADOW_CLAW_FAST = "SHADOW_CLAW_FAST"+        showEnum VINE_WHIP_FAST = "VINE_WHIP_FAST"+        showEnum RAZOR_LEAF_FAST = "RAZOR_LEAF_FAST"+        showEnum MUD_SHOT_FAST = "MUD_SHOT_FAST"+        showEnum ICE_SHARD_FAST = "ICE_SHARD_FAST"+        showEnum FROST_BREATH_FAST = "FROST_BREATH_FAST"+        showEnum QUICK_ATTACK_FAST = "QUICK_ATTACK_FAST"+        showEnum SCRATCH_FAST = "SCRATCH_FAST"+        showEnum TACKLE_FAST = "TACKLE_FAST"+        showEnum POUND_FAST = "POUND_FAST"+        showEnum CUT_FAST = "CUT_FAST"+        showEnum POISON_JAB_FAST = "POISON_JAB_FAST"+        showEnum ACID_FAST = "ACID_FAST"+        showEnum PSYCHO_CUT_FAST = "PSYCHO_CUT_FAST"+        showEnum ROCK_THROW_FAST = "ROCK_THROW_FAST"+        showEnum METAL_CLAW_FAST = "METAL_CLAW_FAST"+        showEnum BULLET_PUNCH_FAST = "BULLET_PUNCH_FAST"+        showEnum WATER_GUN_FAST = "WATER_GUN_FAST"+        showEnum SPLASH_FAST = "SPLASH_FAST"+        showEnum WATER_GUN_FAST_BLASTOISE = "WATER_GUN_FAST_BLASTOISE"+        showEnum MUD_SLAP_FAST = "MUD_SLAP_FAST"+        showEnum ZEN_HEADBUTT_FAST = "ZEN_HEADBUTT_FAST"+        showEnum CONFUSION_FAST = "CONFUSION_FAST"+        showEnum POISON_STING_FAST = "POISON_STING_FAST"+        showEnum BUBBLE_FAST = "BUBBLE_FAST"+        showEnum FEINT_ATTACK_FAST = "FEINT_ATTACK_FAST"+        showEnum STEEL_WING_FAST = "STEEL_WING_FAST"+        showEnum FIRE_FANG_FAST = "FIRE_FANG_FAST"+        showEnum ROCK_SMASH_FAST = "ROCK_SMASH_FAST"+        readEnum "MOVE_UNSET" = Prelude.Just MOVE_UNSET+        readEnum "THUNDER_SHOCK" = Prelude.Just THUNDER_SHOCK+        readEnum "QUICK_ATTACK" = Prelude.Just QUICK_ATTACK+        readEnum "SCRATCH" = Prelude.Just SCRATCH+        readEnum "EMBER" = Prelude.Just EMBER+        readEnum "VINE_WHIP" = Prelude.Just VINE_WHIP+        readEnum "TACKLE" = Prelude.Just TACKLE+        readEnum "RAZOR_LEAF" = Prelude.Just RAZOR_LEAF+        readEnum "TAKE_DOWN" = Prelude.Just TAKE_DOWN+        readEnum "WATER_GUN" = Prelude.Just WATER_GUN+        readEnum "BITE" = Prelude.Just BITE+        readEnum "POUND" = Prelude.Just POUND+        readEnum "DOUBLE_SLAP" = Prelude.Just DOUBLE_SLAP+        readEnum "WRAP" = Prelude.Just WRAP+        readEnum "HYPER_BEAM" = Prelude.Just HYPER_BEAM+        readEnum "LICK" = Prelude.Just LICK+        readEnum "DARK_PULSE" = Prelude.Just DARK_PULSE+        readEnum "SMOG" = Prelude.Just SMOG+        readEnum "SLUDGE" = Prelude.Just SLUDGE+        readEnum "METAL_CLAW" = Prelude.Just METAL_CLAW+        readEnum "VICE_GRIP" = Prelude.Just VICE_GRIP+        readEnum "FLAME_WHEEL" = Prelude.Just FLAME_WHEEL+        readEnum "MEGAHORN" = Prelude.Just MEGAHORN+        readEnum "WING_ATTACK" = Prelude.Just WING_ATTACK+        readEnum "FLAMETHROWER" = Prelude.Just FLAMETHROWER+        readEnum "SUCKER_PUNCH" = Prelude.Just SUCKER_PUNCH+        readEnum "DIG" = Prelude.Just DIG+        readEnum "LOW_KICK" = Prelude.Just LOW_KICK+        readEnum "CROSS_CHOP" = Prelude.Just CROSS_CHOP+        readEnum "PSYCHO_CUT" = Prelude.Just PSYCHO_CUT+        readEnum "PSYBEAM" = Prelude.Just PSYBEAM+        readEnum "EARTHQUAKE" = Prelude.Just EARTHQUAKE+        readEnum "STONE_EDGE" = Prelude.Just STONE_EDGE+        readEnum "ICE_PUNCH" = Prelude.Just ICE_PUNCH+        readEnum "HEART_STAMP" = Prelude.Just HEART_STAMP+        readEnum "DISCHARGE" = Prelude.Just DISCHARGE+        readEnum "FLASH_CANNON" = Prelude.Just FLASH_CANNON+        readEnum "PECK" = Prelude.Just PECK+        readEnum "DRILL_PECK" = Prelude.Just DRILL_PECK+        readEnum "ICE_BEAM" = Prelude.Just ICE_BEAM+        readEnum "BLIZZARD" = Prelude.Just BLIZZARD+        readEnum "AIR_SLASH" = Prelude.Just AIR_SLASH+        readEnum "HEAT_WAVE" = Prelude.Just HEAT_WAVE+        readEnum "TWINEEDLE" = Prelude.Just TWINEEDLE+        readEnum "POISON_JAB" = Prelude.Just POISON_JAB+        readEnum "AERIAL_ACE" = Prelude.Just AERIAL_ACE+        readEnum "DRILL_RUN" = Prelude.Just DRILL_RUN+        readEnum "PETAL_BLIZZARD" = Prelude.Just PETAL_BLIZZARD+        readEnum "MEGA_DRAIN" = Prelude.Just MEGA_DRAIN+        readEnum "BUG_BUZZ" = Prelude.Just BUG_BUZZ+        readEnum "POISON_FANG" = Prelude.Just POISON_FANG+        readEnum "NIGHT_SLASH" = Prelude.Just NIGHT_SLASH+        readEnum "SLASH" = Prelude.Just SLASH+        readEnum "BUBBLE_BEAM" = Prelude.Just BUBBLE_BEAM+        readEnum "SUBMISSION" = Prelude.Just SUBMISSION+        readEnum "KARATE_CHOP" = Prelude.Just KARATE_CHOP+        readEnum "LOW_SWEEP" = Prelude.Just LOW_SWEEP+        readEnum "AQUA_JET" = Prelude.Just AQUA_JET+        readEnum "AQUA_TAIL" = Prelude.Just AQUA_TAIL+        readEnum "SEED_BOMB" = Prelude.Just SEED_BOMB+        readEnum "PSYSHOCK" = Prelude.Just PSYSHOCK+        readEnum "ROCK_THROW" = Prelude.Just ROCK_THROW+        readEnum "ANCIENT_POWER" = Prelude.Just ANCIENT_POWER+        readEnum "ROCK_TOMB" = Prelude.Just ROCK_TOMB+        readEnum "ROCK_SLIDE" = Prelude.Just ROCK_SLIDE+        readEnum "POWER_GEM" = Prelude.Just POWER_GEM+        readEnum "SHADOW_SNEAK" = Prelude.Just SHADOW_SNEAK+        readEnum "SHADOW_PUNCH" = Prelude.Just SHADOW_PUNCH+        readEnum "SHADOW_CLAW" = Prelude.Just SHADOW_CLAW+        readEnum "OMINOUS_WIND" = Prelude.Just OMINOUS_WIND+        readEnum "SHADOW_BALL" = Prelude.Just SHADOW_BALL+        readEnum "BULLET_PUNCH" = Prelude.Just BULLET_PUNCH+        readEnum "MAGNET_BOMB" = Prelude.Just MAGNET_BOMB+        readEnum "STEEL_WING" = Prelude.Just STEEL_WING+        readEnum "IRON_HEAD" = Prelude.Just IRON_HEAD+        readEnum "PARABOLIC_CHARGE" = Prelude.Just PARABOLIC_CHARGE+        readEnum "SPARK" = Prelude.Just SPARK+        readEnum "THUNDER_PUNCH" = Prelude.Just THUNDER_PUNCH+        readEnum "THUNDER" = Prelude.Just THUNDER+        readEnum "THUNDERBOLT" = Prelude.Just THUNDERBOLT+        readEnum "TWISTER" = Prelude.Just TWISTER+        readEnum "DRAGON_BREATH" = Prelude.Just DRAGON_BREATH+        readEnum "DRAGON_PULSE" = Prelude.Just DRAGON_PULSE+        readEnum "DRAGON_CLAW" = Prelude.Just DRAGON_CLAW+        readEnum "DISARMING_VOICE" = Prelude.Just DISARMING_VOICE+        readEnum "DRAINING_KISS" = Prelude.Just DRAINING_KISS+        readEnum "DAZZLING_GLEAM" = Prelude.Just DAZZLING_GLEAM+        readEnum "MOONBLAST" = Prelude.Just MOONBLAST+        readEnum "PLAY_ROUGH" = Prelude.Just PLAY_ROUGH+        readEnum "CROSS_POISON" = Prelude.Just CROSS_POISON+        readEnum "SLUDGE_BOMB" = Prelude.Just SLUDGE_BOMB+        readEnum "SLUDGE_WAVE" = Prelude.Just SLUDGE_WAVE+        readEnum "GUNK_SHOT" = Prelude.Just GUNK_SHOT+        readEnum "MUD_SHOT" = Prelude.Just MUD_SHOT+        readEnum "BONE_CLUB" = Prelude.Just BONE_CLUB+        readEnum "BULLDOZE" = Prelude.Just BULLDOZE+        readEnum "MUD_BOMB" = Prelude.Just MUD_BOMB+        readEnum "FURY_CUTTER" = Prelude.Just FURY_CUTTER+        readEnum "BUG_BITE" = Prelude.Just BUG_BITE+        readEnum "SIGNAL_BEAM" = Prelude.Just SIGNAL_BEAM+        readEnum "X_SCISSOR" = Prelude.Just X_SCISSOR+        readEnum "FLAME_CHARGE" = Prelude.Just FLAME_CHARGE+        readEnum "FLAME_BURST" = Prelude.Just FLAME_BURST+        readEnum "FIRE_BLAST" = Prelude.Just FIRE_BLAST+        readEnum "BRINE" = Prelude.Just BRINE+        readEnum "WATER_PULSE" = Prelude.Just WATER_PULSE+        readEnum "SCALD" = Prelude.Just SCALD+        readEnum "HYDRO_PUMP" = Prelude.Just HYDRO_PUMP+        readEnum "PSYCHIC" = Prelude.Just PSYCHIC+        readEnum "PSYSTRIKE" = Prelude.Just PSYSTRIKE+        readEnum "ICE_SHARD" = Prelude.Just ICE_SHARD+        readEnum "ICY_WIND" = Prelude.Just ICY_WIND+        readEnum "FROST_BREATH" = Prelude.Just FROST_BREATH+        readEnum "ABSORB" = Prelude.Just ABSORB+        readEnum "GIGA_DRAIN" = Prelude.Just GIGA_DRAIN+        readEnum "FIRE_PUNCH" = Prelude.Just FIRE_PUNCH+        readEnum "SOLAR_BEAM" = Prelude.Just SOLAR_BEAM+        readEnum "LEAF_BLADE" = Prelude.Just LEAF_BLADE+        readEnum "POWER_WHIP" = Prelude.Just POWER_WHIP+        readEnum "SPLASH" = Prelude.Just SPLASH+        readEnum "ACID" = Prelude.Just ACID+        readEnum "AIR_CUTTER" = Prelude.Just AIR_CUTTER+        readEnum "HURRICANE" = Prelude.Just HURRICANE+        readEnum "BRICK_BREAK" = Prelude.Just BRICK_BREAK+        readEnum "CUT" = Prelude.Just CUT+        readEnum "SWIFT" = Prelude.Just SWIFT+        readEnum "HORN_ATTACK" = Prelude.Just HORN_ATTACK+        readEnum "STOMP" = Prelude.Just STOMP+        readEnum "HEADBUTT" = Prelude.Just HEADBUTT+        readEnum "HYPER_FANG" = Prelude.Just HYPER_FANG+        readEnum "SLAM" = Prelude.Just SLAM+        readEnum "BODY_SLAM" = Prelude.Just BODY_SLAM+        readEnum "REST" = Prelude.Just REST+        readEnum "STRUGGLE" = Prelude.Just STRUGGLE+        readEnum "SCALD_BLASTOISE" = Prelude.Just SCALD_BLASTOISE+        readEnum "HYDRO_PUMP_BLASTOISE" = Prelude.Just HYDRO_PUMP_BLASTOISE+        readEnum "WRAP_GREEN" = Prelude.Just WRAP_GREEN+        readEnum "WRAP_PINK" = Prelude.Just WRAP_PINK+        readEnum "FURY_CUTTER_FAST" = Prelude.Just FURY_CUTTER_FAST+        readEnum "BUG_BITE_FAST" = Prelude.Just BUG_BITE_FAST+        readEnum "BITE_FAST" = Prelude.Just BITE_FAST+        readEnum "SUCKER_PUNCH_FAST" = Prelude.Just SUCKER_PUNCH_FAST+        readEnum "DRAGON_BREATH_FAST" = Prelude.Just DRAGON_BREATH_FAST+        readEnum "THUNDER_SHOCK_FAST" = Prelude.Just THUNDER_SHOCK_FAST+        readEnum "SPARK_FAST" = Prelude.Just SPARK_FAST+        readEnum "LOW_KICK_FAST" = Prelude.Just LOW_KICK_FAST+        readEnum "KARATE_CHOP_FAST" = Prelude.Just KARATE_CHOP_FAST+        readEnum "EMBER_FAST" = Prelude.Just EMBER_FAST+        readEnum "WING_ATTACK_FAST" = Prelude.Just WING_ATTACK_FAST+        readEnum "PECK_FAST" = Prelude.Just PECK_FAST+        readEnum "LICK_FAST" = Prelude.Just LICK_FAST+        readEnum "SHADOW_CLAW_FAST" = Prelude.Just SHADOW_CLAW_FAST+        readEnum "VINE_WHIP_FAST" = Prelude.Just VINE_WHIP_FAST+        readEnum "RAZOR_LEAF_FAST" = Prelude.Just RAZOR_LEAF_FAST+        readEnum "MUD_SHOT_FAST" = Prelude.Just MUD_SHOT_FAST+        readEnum "ICE_SHARD_FAST" = Prelude.Just ICE_SHARD_FAST+        readEnum "FROST_BREATH_FAST" = Prelude.Just FROST_BREATH_FAST+        readEnum "QUICK_ATTACK_FAST" = Prelude.Just QUICK_ATTACK_FAST+        readEnum "SCRATCH_FAST" = Prelude.Just SCRATCH_FAST+        readEnum "TACKLE_FAST" = Prelude.Just TACKLE_FAST+        readEnum "POUND_FAST" = Prelude.Just POUND_FAST+        readEnum "CUT_FAST" = Prelude.Just CUT_FAST+        readEnum "POISON_JAB_FAST" = Prelude.Just POISON_JAB_FAST+        readEnum "ACID_FAST" = Prelude.Just ACID_FAST+        readEnum "PSYCHO_CUT_FAST" = Prelude.Just PSYCHO_CUT_FAST+        readEnum "ROCK_THROW_FAST" = Prelude.Just ROCK_THROW_FAST+        readEnum "METAL_CLAW_FAST" = Prelude.Just METAL_CLAW_FAST+        readEnum "BULLET_PUNCH_FAST" = Prelude.Just BULLET_PUNCH_FAST+        readEnum "WATER_GUN_FAST" = Prelude.Just WATER_GUN_FAST+        readEnum "SPLASH_FAST" = Prelude.Just SPLASH_FAST+        readEnum "WATER_GUN_FAST_BLASTOISE"+          = Prelude.Just WATER_GUN_FAST_BLASTOISE+        readEnum "MUD_SLAP_FAST" = Prelude.Just MUD_SLAP_FAST+        readEnum "ZEN_HEADBUTT_FAST" = Prelude.Just ZEN_HEADBUTT_FAST+        readEnum "CONFUSION_FAST" = Prelude.Just CONFUSION_FAST+        readEnum "POISON_STING_FAST" = Prelude.Just POISON_STING_FAST+        readEnum "BUBBLE_FAST" = Prelude.Just BUBBLE_FAST+        readEnum "FEINT_ATTACK_FAST" = Prelude.Just FEINT_ATTACK_FAST+        readEnum "STEEL_WING_FAST" = Prelude.Just STEEL_WING_FAST+        readEnum "FIRE_FANG_FAST" = Prelude.Just FIRE_FANG_FAST+        readEnum "ROCK_SMASH_FAST" = Prelude.Just ROCK_SMASH_FAST+        readEnum _ = Prelude.Nothing++instance Prelude.Enum PokemonMove where+        toEnum k__+          = Prelude.maybe+              (Prelude.error+                 ((Prelude.++) "toEnum: unknown value for enum PokemonMove: "+                    (Prelude.show k__)))+              Prelude.id+              (Data.ProtoLens.maybeToEnum k__)+        fromEnum MOVE_UNSET = 0+        fromEnum THUNDER_SHOCK = 1+        fromEnum QUICK_ATTACK = 2+        fromEnum SCRATCH = 3+        fromEnum EMBER = 4+        fromEnum VINE_WHIP = 5+        fromEnum TACKLE = 6+        fromEnum RAZOR_LEAF = 7+        fromEnum TAKE_DOWN = 8+        fromEnum WATER_GUN = 9+        fromEnum BITE = 10+        fromEnum POUND = 11+        fromEnum DOUBLE_SLAP = 12+        fromEnum WRAP = 13+        fromEnum HYPER_BEAM = 14+        fromEnum LICK = 15+        fromEnum DARK_PULSE = 16+        fromEnum SMOG = 17+        fromEnum SLUDGE = 18+        fromEnum METAL_CLAW = 19+        fromEnum VICE_GRIP = 20+        fromEnum FLAME_WHEEL = 21+        fromEnum MEGAHORN = 22+        fromEnum WING_ATTACK = 23+        fromEnum FLAMETHROWER = 24+        fromEnum SUCKER_PUNCH = 25+        fromEnum DIG = 26+        fromEnum LOW_KICK = 27+        fromEnum CROSS_CHOP = 28+        fromEnum PSYCHO_CUT = 29+        fromEnum PSYBEAM = 30+        fromEnum EARTHQUAKE = 31+        fromEnum STONE_EDGE = 32+        fromEnum ICE_PUNCH = 33+        fromEnum HEART_STAMP = 34+        fromEnum DISCHARGE = 35+        fromEnum FLASH_CANNON = 36+        fromEnum PECK = 37+        fromEnum DRILL_PECK = 38+        fromEnum ICE_BEAM = 39+        fromEnum BLIZZARD = 40+        fromEnum AIR_SLASH = 41+        fromEnum HEAT_WAVE = 42+        fromEnum TWINEEDLE = 43+        fromEnum POISON_JAB = 44+        fromEnum AERIAL_ACE = 45+        fromEnum DRILL_RUN = 46+        fromEnum PETAL_BLIZZARD = 47+        fromEnum MEGA_DRAIN = 48+        fromEnum BUG_BUZZ = 49+        fromEnum POISON_FANG = 50+        fromEnum NIGHT_SLASH = 51+        fromEnum SLASH = 52+        fromEnum BUBBLE_BEAM = 53+        fromEnum SUBMISSION = 54+        fromEnum KARATE_CHOP = 55+        fromEnum LOW_SWEEP = 56+        fromEnum AQUA_JET = 57+        fromEnum AQUA_TAIL = 58+        fromEnum SEED_BOMB = 59+        fromEnum PSYSHOCK = 60+        fromEnum ROCK_THROW = 61+        fromEnum ANCIENT_POWER = 62+        fromEnum ROCK_TOMB = 63+        fromEnum ROCK_SLIDE = 64+        fromEnum POWER_GEM = 65+        fromEnum SHADOW_SNEAK = 66+        fromEnum SHADOW_PUNCH = 67+        fromEnum SHADOW_CLAW = 68+        fromEnum OMINOUS_WIND = 69+        fromEnum SHADOW_BALL = 70+        fromEnum BULLET_PUNCH = 71+        fromEnum MAGNET_BOMB = 72+        fromEnum STEEL_WING = 73+        fromEnum IRON_HEAD = 74+        fromEnum PARABOLIC_CHARGE = 75+        fromEnum SPARK = 76+        fromEnum THUNDER_PUNCH = 77+        fromEnum THUNDER = 78+        fromEnum THUNDERBOLT = 79+        fromEnum TWISTER = 80+        fromEnum DRAGON_BREATH = 81+        fromEnum DRAGON_PULSE = 82+        fromEnum DRAGON_CLAW = 83+        fromEnum DISARMING_VOICE = 84+        fromEnum DRAINING_KISS = 85+        fromEnum DAZZLING_GLEAM = 86+        fromEnum MOONBLAST = 87+        fromEnum PLAY_ROUGH = 88+        fromEnum CROSS_POISON = 89+        fromEnum SLUDGE_BOMB = 90+        fromEnum SLUDGE_WAVE = 91+        fromEnum GUNK_SHOT = 92+        fromEnum MUD_SHOT = 93+        fromEnum BONE_CLUB = 94+        fromEnum BULLDOZE = 95+        fromEnum MUD_BOMB = 96+        fromEnum FURY_CUTTER = 97+        fromEnum BUG_BITE = 98+        fromEnum SIGNAL_BEAM = 99+        fromEnum X_SCISSOR = 100+        fromEnum FLAME_CHARGE = 101+        fromEnum FLAME_BURST = 102+        fromEnum FIRE_BLAST = 103+        fromEnum BRINE = 104+        fromEnum WATER_PULSE = 105+        fromEnum SCALD = 106+        fromEnum HYDRO_PUMP = 107+        fromEnum PSYCHIC = 108+        fromEnum PSYSTRIKE = 109+        fromEnum ICE_SHARD = 110+        fromEnum ICY_WIND = 111+        fromEnum FROST_BREATH = 112+        fromEnum ABSORB = 113+        fromEnum GIGA_DRAIN = 114+        fromEnum FIRE_PUNCH = 115+        fromEnum SOLAR_BEAM = 116+        fromEnum LEAF_BLADE = 117+        fromEnum POWER_WHIP = 118+        fromEnum SPLASH = 119+        fromEnum ACID = 120+        fromEnum AIR_CUTTER = 121+        fromEnum HURRICANE = 122+        fromEnum BRICK_BREAK = 123+        fromEnum CUT = 124+        fromEnum SWIFT = 125+        fromEnum HORN_ATTACK = 126+        fromEnum STOMP = 127+        fromEnum HEADBUTT = 128+        fromEnum HYPER_FANG = 129+        fromEnum SLAM = 130+        fromEnum BODY_SLAM = 131+        fromEnum REST = 132+        fromEnum STRUGGLE = 133+        fromEnum SCALD_BLASTOISE = 134+        fromEnum HYDRO_PUMP_BLASTOISE = 135+        fromEnum WRAP_GREEN = 136+        fromEnum WRAP_PINK = 137+        fromEnum FURY_CUTTER_FAST = 200+        fromEnum BUG_BITE_FAST = 201+        fromEnum BITE_FAST = 202+        fromEnum SUCKER_PUNCH_FAST = 203+        fromEnum DRAGON_BREATH_FAST = 204+        fromEnum THUNDER_SHOCK_FAST = 205+        fromEnum SPARK_FAST = 206+        fromEnum LOW_KICK_FAST = 207+        fromEnum KARATE_CHOP_FAST = 208+        fromEnum EMBER_FAST = 209+        fromEnum WING_ATTACK_FAST = 210+        fromEnum PECK_FAST = 211+        fromEnum LICK_FAST = 212+        fromEnum SHADOW_CLAW_FAST = 213+        fromEnum VINE_WHIP_FAST = 214+        fromEnum RAZOR_LEAF_FAST = 215+        fromEnum MUD_SHOT_FAST = 216+        fromEnum ICE_SHARD_FAST = 217+        fromEnum FROST_BREATH_FAST = 218+        fromEnum QUICK_ATTACK_FAST = 219+        fromEnum SCRATCH_FAST = 220+        fromEnum TACKLE_FAST = 221+        fromEnum POUND_FAST = 222+        fromEnum CUT_FAST = 223+        fromEnum POISON_JAB_FAST = 224+        fromEnum ACID_FAST = 225+        fromEnum PSYCHO_CUT_FAST = 226+        fromEnum ROCK_THROW_FAST = 227+        fromEnum METAL_CLAW_FAST = 228+        fromEnum BULLET_PUNCH_FAST = 229+        fromEnum WATER_GUN_FAST = 230+        fromEnum SPLASH_FAST = 231+        fromEnum WATER_GUN_FAST_BLASTOISE = 232+        fromEnum MUD_SLAP_FAST = 233+        fromEnum ZEN_HEADBUTT_FAST = 234+        fromEnum CONFUSION_FAST = 235+        fromEnum POISON_STING_FAST = 236+        fromEnum BUBBLE_FAST = 237+        fromEnum FEINT_ATTACK_FAST = 238+        fromEnum STEEL_WING_FAST = 239+        fromEnum FIRE_FANG_FAST = 240+        fromEnum ROCK_SMASH_FAST = 241+        succ ROCK_SMASH_FAST+          = Prelude.error+              "Ident \"PokemonMove\".Ident \"succ\": bad argument Ident \"ROCK_SMASH_FAST\". This value would be out of bounds."+        succ MOVE_UNSET = THUNDER_SHOCK+        succ THUNDER_SHOCK = QUICK_ATTACK+        succ QUICK_ATTACK = SCRATCH+        succ SCRATCH = EMBER+        succ EMBER = VINE_WHIP+        succ VINE_WHIP = TACKLE+        succ TACKLE = RAZOR_LEAF+        succ RAZOR_LEAF = TAKE_DOWN+        succ TAKE_DOWN = WATER_GUN+        succ WATER_GUN = BITE+        succ BITE = POUND+        succ POUND = DOUBLE_SLAP+        succ DOUBLE_SLAP = WRAP+        succ WRAP = HYPER_BEAM+        succ HYPER_BEAM = LICK+        succ LICK = DARK_PULSE+        succ DARK_PULSE = SMOG+        succ SMOG = SLUDGE+        succ SLUDGE = METAL_CLAW+        succ METAL_CLAW = VICE_GRIP+        succ VICE_GRIP = FLAME_WHEEL+        succ FLAME_WHEEL = MEGAHORN+        succ MEGAHORN = WING_ATTACK+        succ WING_ATTACK = FLAMETHROWER+        succ FLAMETHROWER = SUCKER_PUNCH+        succ SUCKER_PUNCH = DIG+        succ DIG = LOW_KICK+        succ LOW_KICK = CROSS_CHOP+        succ CROSS_CHOP = PSYCHO_CUT+        succ PSYCHO_CUT = PSYBEAM+        succ PSYBEAM = EARTHQUAKE+        succ EARTHQUAKE = STONE_EDGE+        succ STONE_EDGE = ICE_PUNCH+        succ ICE_PUNCH = HEART_STAMP+        succ HEART_STAMP = DISCHARGE+        succ DISCHARGE = FLASH_CANNON+        succ FLASH_CANNON = PECK+        succ PECK = DRILL_PECK+        succ DRILL_PECK = ICE_BEAM+        succ ICE_BEAM = BLIZZARD+        succ BLIZZARD = AIR_SLASH+        succ AIR_SLASH = HEAT_WAVE+        succ HEAT_WAVE = TWINEEDLE+        succ TWINEEDLE = POISON_JAB+        succ POISON_JAB = AERIAL_ACE+        succ AERIAL_ACE = DRILL_RUN+        succ DRILL_RUN = PETAL_BLIZZARD+        succ PETAL_BLIZZARD = MEGA_DRAIN+        succ MEGA_DRAIN = BUG_BUZZ+        succ BUG_BUZZ = POISON_FANG+        succ POISON_FANG = NIGHT_SLASH+        succ NIGHT_SLASH = SLASH+        succ SLASH = BUBBLE_BEAM+        succ BUBBLE_BEAM = SUBMISSION+        succ SUBMISSION = KARATE_CHOP+        succ KARATE_CHOP = LOW_SWEEP+        succ LOW_SWEEP = AQUA_JET+        succ AQUA_JET = AQUA_TAIL+        succ AQUA_TAIL = SEED_BOMB+        succ SEED_BOMB = PSYSHOCK+        succ PSYSHOCK = ROCK_THROW+        succ ROCK_THROW = ANCIENT_POWER+        succ ANCIENT_POWER = ROCK_TOMB+        succ ROCK_TOMB = ROCK_SLIDE+        succ ROCK_SLIDE = POWER_GEM+        succ POWER_GEM = SHADOW_SNEAK+        succ SHADOW_SNEAK = SHADOW_PUNCH+        succ SHADOW_PUNCH = SHADOW_CLAW+        succ SHADOW_CLAW = OMINOUS_WIND+        succ OMINOUS_WIND = SHADOW_BALL+        succ SHADOW_BALL = BULLET_PUNCH+        succ BULLET_PUNCH = MAGNET_BOMB+        succ MAGNET_BOMB = STEEL_WING+        succ STEEL_WING = IRON_HEAD+        succ IRON_HEAD = PARABOLIC_CHARGE+        succ PARABOLIC_CHARGE = SPARK+        succ SPARK = THUNDER_PUNCH+        succ THUNDER_PUNCH = THUNDER+        succ THUNDER = THUNDERBOLT+        succ THUNDERBOLT = TWISTER+        succ TWISTER = DRAGON_BREATH+        succ DRAGON_BREATH = DRAGON_PULSE+        succ DRAGON_PULSE = DRAGON_CLAW+        succ DRAGON_CLAW = DISARMING_VOICE+        succ DISARMING_VOICE = DRAINING_KISS+        succ DRAINING_KISS = DAZZLING_GLEAM+        succ DAZZLING_GLEAM = MOONBLAST+        succ MOONBLAST = PLAY_ROUGH+        succ PLAY_ROUGH = CROSS_POISON+        succ CROSS_POISON = SLUDGE_BOMB+        succ SLUDGE_BOMB = SLUDGE_WAVE+        succ SLUDGE_WAVE = GUNK_SHOT+        succ GUNK_SHOT = MUD_SHOT+        succ MUD_SHOT = BONE_CLUB+        succ BONE_CLUB = BULLDOZE+        succ BULLDOZE = MUD_BOMB+        succ MUD_BOMB = FURY_CUTTER+        succ FURY_CUTTER = BUG_BITE+        succ BUG_BITE = SIGNAL_BEAM+        succ SIGNAL_BEAM = X_SCISSOR+        succ X_SCISSOR = FLAME_CHARGE+        succ FLAME_CHARGE = FLAME_BURST+        succ FLAME_BURST = FIRE_BLAST+        succ FIRE_BLAST = BRINE+        succ BRINE = WATER_PULSE+        succ WATER_PULSE = SCALD+        succ SCALD = HYDRO_PUMP+        succ HYDRO_PUMP = PSYCHIC+        succ PSYCHIC = PSYSTRIKE+        succ PSYSTRIKE = ICE_SHARD+        succ ICE_SHARD = ICY_WIND+        succ ICY_WIND = FROST_BREATH+        succ FROST_BREATH = ABSORB+        succ ABSORB = GIGA_DRAIN+        succ GIGA_DRAIN = FIRE_PUNCH+        succ FIRE_PUNCH = SOLAR_BEAM+        succ SOLAR_BEAM = LEAF_BLADE+        succ LEAF_BLADE = POWER_WHIP+        succ POWER_WHIP = SPLASH+        succ SPLASH = ACID+        succ ACID = AIR_CUTTER+        succ AIR_CUTTER = HURRICANE+        succ HURRICANE = BRICK_BREAK+        succ BRICK_BREAK = CUT+        succ CUT = SWIFT+        succ SWIFT = HORN_ATTACK+        succ HORN_ATTACK = STOMP+        succ STOMP = HEADBUTT+        succ HEADBUTT = HYPER_FANG+        succ HYPER_FANG = SLAM+        succ SLAM = BODY_SLAM+        succ BODY_SLAM = REST+        succ REST = STRUGGLE+        succ STRUGGLE = SCALD_BLASTOISE+        succ SCALD_BLASTOISE = HYDRO_PUMP_BLASTOISE+        succ HYDRO_PUMP_BLASTOISE = WRAP_GREEN+        succ WRAP_GREEN = WRAP_PINK+        succ WRAP_PINK = FURY_CUTTER_FAST+        succ FURY_CUTTER_FAST = BUG_BITE_FAST+        succ BUG_BITE_FAST = BITE_FAST+        succ BITE_FAST = SUCKER_PUNCH_FAST+        succ SUCKER_PUNCH_FAST = DRAGON_BREATH_FAST+        succ DRAGON_BREATH_FAST = THUNDER_SHOCK_FAST+        succ THUNDER_SHOCK_FAST = SPARK_FAST+        succ SPARK_FAST = LOW_KICK_FAST+        succ LOW_KICK_FAST = KARATE_CHOP_FAST+        succ KARATE_CHOP_FAST = EMBER_FAST+        succ EMBER_FAST = WING_ATTACK_FAST+        succ WING_ATTACK_FAST = PECK_FAST+        succ PECK_FAST = LICK_FAST+        succ LICK_FAST = SHADOW_CLAW_FAST+        succ SHADOW_CLAW_FAST = VINE_WHIP_FAST+        succ VINE_WHIP_FAST = RAZOR_LEAF_FAST+        succ RAZOR_LEAF_FAST = MUD_SHOT_FAST+        succ MUD_SHOT_FAST = ICE_SHARD_FAST+        succ ICE_SHARD_FAST = FROST_BREATH_FAST+        succ FROST_BREATH_FAST = QUICK_ATTACK_FAST+        succ QUICK_ATTACK_FAST = SCRATCH_FAST+        succ SCRATCH_FAST = TACKLE_FAST+        succ TACKLE_FAST = POUND_FAST+        succ POUND_FAST = CUT_FAST+        succ CUT_FAST = POISON_JAB_FAST+        succ POISON_JAB_FAST = ACID_FAST+        succ ACID_FAST = PSYCHO_CUT_FAST+        succ PSYCHO_CUT_FAST = ROCK_THROW_FAST+        succ ROCK_THROW_FAST = METAL_CLAW_FAST+        succ METAL_CLAW_FAST = BULLET_PUNCH_FAST+        succ BULLET_PUNCH_FAST = WATER_GUN_FAST+        succ WATER_GUN_FAST = SPLASH_FAST+        succ SPLASH_FAST = WATER_GUN_FAST_BLASTOISE+        succ WATER_GUN_FAST_BLASTOISE = MUD_SLAP_FAST+        succ MUD_SLAP_FAST = ZEN_HEADBUTT_FAST+        succ ZEN_HEADBUTT_FAST = CONFUSION_FAST+        succ CONFUSION_FAST = POISON_STING_FAST+        succ POISON_STING_FAST = BUBBLE_FAST+        succ BUBBLE_FAST = FEINT_ATTACK_FAST+        succ FEINT_ATTACK_FAST = STEEL_WING_FAST+        succ STEEL_WING_FAST = FIRE_FANG_FAST+        succ FIRE_FANG_FAST = ROCK_SMASH_FAST+        pred MOVE_UNSET+          = Prelude.error+              "Ident \"PokemonMove\".Ident \"pred\": bad argument Ident \"MOVE_UNSET\". This value would be out of bounds."+        pred THUNDER_SHOCK = MOVE_UNSET+        pred QUICK_ATTACK = THUNDER_SHOCK+        pred SCRATCH = QUICK_ATTACK+        pred EMBER = SCRATCH+        pred VINE_WHIP = EMBER+        pred TACKLE = VINE_WHIP+        pred RAZOR_LEAF = TACKLE+        pred TAKE_DOWN = RAZOR_LEAF+        pred WATER_GUN = TAKE_DOWN+        pred BITE = WATER_GUN+        pred POUND = BITE+        pred DOUBLE_SLAP = POUND+        pred WRAP = DOUBLE_SLAP+        pred HYPER_BEAM = WRAP+        pred LICK = HYPER_BEAM+        pred DARK_PULSE = LICK+        pred SMOG = DARK_PULSE+        pred SLUDGE = SMOG+        pred METAL_CLAW = SLUDGE+        pred VICE_GRIP = METAL_CLAW+        pred FLAME_WHEEL = VICE_GRIP+        pred MEGAHORN = FLAME_WHEEL+        pred WING_ATTACK = MEGAHORN+        pred FLAMETHROWER = WING_ATTACK+        pred SUCKER_PUNCH = FLAMETHROWER+        pred DIG = SUCKER_PUNCH+        pred LOW_KICK = DIG+        pred CROSS_CHOP = LOW_KICK+        pred PSYCHO_CUT = CROSS_CHOP+        pred PSYBEAM = PSYCHO_CUT+        pred EARTHQUAKE = PSYBEAM+        pred STONE_EDGE = EARTHQUAKE+        pred ICE_PUNCH = STONE_EDGE+        pred HEART_STAMP = ICE_PUNCH+        pred DISCHARGE = HEART_STAMP+        pred FLASH_CANNON = DISCHARGE+        pred PECK = FLASH_CANNON+        pred DRILL_PECK = PECK+        pred ICE_BEAM = DRILL_PECK+        pred BLIZZARD = ICE_BEAM+        pred AIR_SLASH = BLIZZARD+        pred HEAT_WAVE = AIR_SLASH+        pred TWINEEDLE = HEAT_WAVE+        pred POISON_JAB = TWINEEDLE+        pred AERIAL_ACE = POISON_JAB+        pred DRILL_RUN = AERIAL_ACE+        pred PETAL_BLIZZARD = DRILL_RUN+        pred MEGA_DRAIN = PETAL_BLIZZARD+        pred BUG_BUZZ = MEGA_DRAIN+        pred POISON_FANG = BUG_BUZZ+        pred NIGHT_SLASH = POISON_FANG+        pred SLASH = NIGHT_SLASH+        pred BUBBLE_BEAM = SLASH+        pred SUBMISSION = BUBBLE_BEAM+        pred KARATE_CHOP = SUBMISSION+        pred LOW_SWEEP = KARATE_CHOP+        pred AQUA_JET = LOW_SWEEP+        pred AQUA_TAIL = AQUA_JET+        pred SEED_BOMB = AQUA_TAIL+        pred PSYSHOCK = SEED_BOMB+        pred ROCK_THROW = PSYSHOCK+        pred ANCIENT_POWER = ROCK_THROW+        pred ROCK_TOMB = ANCIENT_POWER+        pred ROCK_SLIDE = ROCK_TOMB+        pred POWER_GEM = ROCK_SLIDE+        pred SHADOW_SNEAK = POWER_GEM+        pred SHADOW_PUNCH = SHADOW_SNEAK+        pred SHADOW_CLAW = SHADOW_PUNCH+        pred OMINOUS_WIND = SHADOW_CLAW+        pred SHADOW_BALL = OMINOUS_WIND+        pred BULLET_PUNCH = SHADOW_BALL+        pred MAGNET_BOMB = BULLET_PUNCH+        pred STEEL_WING = MAGNET_BOMB+        pred IRON_HEAD = STEEL_WING+        pred PARABOLIC_CHARGE = IRON_HEAD+        pred SPARK = PARABOLIC_CHARGE+        pred THUNDER_PUNCH = SPARK+        pred THUNDER = THUNDER_PUNCH+        pred THUNDERBOLT = THUNDER+        pred TWISTER = THUNDERBOLT+        pred DRAGON_BREATH = TWISTER+        pred DRAGON_PULSE = DRAGON_BREATH+        pred DRAGON_CLAW = DRAGON_PULSE+        pred DISARMING_VOICE = DRAGON_CLAW+        pred DRAINING_KISS = DISARMING_VOICE+        pred DAZZLING_GLEAM = DRAINING_KISS+        pred MOONBLAST = DAZZLING_GLEAM+        pred PLAY_ROUGH = MOONBLAST+        pred CROSS_POISON = PLAY_ROUGH+        pred SLUDGE_BOMB = CROSS_POISON+        pred SLUDGE_WAVE = SLUDGE_BOMB+        pred GUNK_SHOT = SLUDGE_WAVE+        pred MUD_SHOT = GUNK_SHOT+        pred BONE_CLUB = MUD_SHOT+        pred BULLDOZE = BONE_CLUB+        pred MUD_BOMB = BULLDOZE+        pred FURY_CUTTER = MUD_BOMB+        pred BUG_BITE = FURY_CUTTER+        pred SIGNAL_BEAM = BUG_BITE+        pred X_SCISSOR = SIGNAL_BEAM+        pred FLAME_CHARGE = X_SCISSOR+        pred FLAME_BURST = FLAME_CHARGE+        pred FIRE_BLAST = FLAME_BURST+        pred BRINE = FIRE_BLAST+        pred WATER_PULSE = BRINE+        pred SCALD = WATER_PULSE+        pred HYDRO_PUMP = SCALD+        pred PSYCHIC = HYDRO_PUMP+        pred PSYSTRIKE = PSYCHIC+        pred ICE_SHARD = PSYSTRIKE+        pred ICY_WIND = ICE_SHARD+        pred FROST_BREATH = ICY_WIND+        pred ABSORB = FROST_BREATH+        pred GIGA_DRAIN = ABSORB+        pred FIRE_PUNCH = GIGA_DRAIN+        pred SOLAR_BEAM = FIRE_PUNCH+        pred LEAF_BLADE = SOLAR_BEAM+        pred POWER_WHIP = LEAF_BLADE+        pred SPLASH = POWER_WHIP+        pred ACID = SPLASH+        pred AIR_CUTTER = ACID+        pred HURRICANE = AIR_CUTTER+        pred BRICK_BREAK = HURRICANE+        pred CUT = BRICK_BREAK+        pred SWIFT = CUT+        pred HORN_ATTACK = SWIFT+        pred STOMP = HORN_ATTACK+        pred HEADBUTT = STOMP+        pred HYPER_FANG = HEADBUTT+        pred SLAM = HYPER_FANG+        pred BODY_SLAM = SLAM+        pred REST = BODY_SLAM+        pred STRUGGLE = REST+        pred SCALD_BLASTOISE = STRUGGLE+        pred HYDRO_PUMP_BLASTOISE = SCALD_BLASTOISE+        pred WRAP_GREEN = HYDRO_PUMP_BLASTOISE+        pred WRAP_PINK = WRAP_GREEN+        pred FURY_CUTTER_FAST = WRAP_PINK+        pred BUG_BITE_FAST = FURY_CUTTER_FAST+        pred BITE_FAST = BUG_BITE_FAST+        pred SUCKER_PUNCH_FAST = BITE_FAST+        pred DRAGON_BREATH_FAST = SUCKER_PUNCH_FAST+        pred THUNDER_SHOCK_FAST = DRAGON_BREATH_FAST+        pred SPARK_FAST = THUNDER_SHOCK_FAST+        pred LOW_KICK_FAST = SPARK_FAST+        pred KARATE_CHOP_FAST = LOW_KICK_FAST+        pred EMBER_FAST = KARATE_CHOP_FAST+        pred WING_ATTACK_FAST = EMBER_FAST+        pred PECK_FAST = WING_ATTACK_FAST+        pred LICK_FAST = PECK_FAST+        pred SHADOW_CLAW_FAST = LICK_FAST+        pred VINE_WHIP_FAST = SHADOW_CLAW_FAST+        pred RAZOR_LEAF_FAST = VINE_WHIP_FAST+        pred MUD_SHOT_FAST = RAZOR_LEAF_FAST+        pred ICE_SHARD_FAST = MUD_SHOT_FAST+        pred FROST_BREATH_FAST = ICE_SHARD_FAST+        pred QUICK_ATTACK_FAST = FROST_BREATH_FAST+        pred SCRATCH_FAST = QUICK_ATTACK_FAST+        pred TACKLE_FAST = SCRATCH_FAST+        pred POUND_FAST = TACKLE_FAST+        pred CUT_FAST = POUND_FAST+        pred POISON_JAB_FAST = CUT_FAST+        pred ACID_FAST = POISON_JAB_FAST+        pred PSYCHO_CUT_FAST = ACID_FAST+        pred ROCK_THROW_FAST = PSYCHO_CUT_FAST+        pred METAL_CLAW_FAST = ROCK_THROW_FAST+        pred BULLET_PUNCH_FAST = METAL_CLAW_FAST+        pred WATER_GUN_FAST = BULLET_PUNCH_FAST+        pred SPLASH_FAST = WATER_GUN_FAST+        pred WATER_GUN_FAST_BLASTOISE = SPLASH_FAST+        pred MUD_SLAP_FAST = WATER_GUN_FAST_BLASTOISE+        pred ZEN_HEADBUTT_FAST = MUD_SLAP_FAST+        pred CONFUSION_FAST = ZEN_HEADBUTT_FAST+        pred POISON_STING_FAST = CONFUSION_FAST+        pred BUBBLE_FAST = POISON_STING_FAST+        pred FEINT_ATTACK_FAST = BUBBLE_FAST+        pred STEEL_WING_FAST = FEINT_ATTACK_FAST+        pred FIRE_FANG_FAST = STEEL_WING_FAST+        pred ROCK_SMASH_FAST = FIRE_FANG_FAST+        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 PokemonMove where+        minBound = MOVE_UNSET+        maxBound = ROCK_SMASH_FAST
+ src/Proto/POGOProtos/Enums/PokemonMovementType.hs view
@@ -0,0 +1,99 @@+{- This file was auto-generated from POGOProtos/Enums/PokemonMovementType.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Enums.PokemonMovementType 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 PokemonMovementType = MOVEMENT_STATIC+                         | MOVEMENT_JUMP+                         | MOVEMENT_VERTICAL+                         | MOVEMENT_PSYCHIC+                         | MOVEMENT_ELECTRIC+                         | MOVEMENT_FLYING+                         | MOVEMENT_HOVERING+                         deriving (Prelude.Show, Prelude.Eq)++instance Data.Default.Class.Default PokemonMovementType where+        def = MOVEMENT_STATIC++instance Data.ProtoLens.FieldDefault PokemonMovementType where+        fieldDefault = MOVEMENT_STATIC++instance Data.ProtoLens.MessageEnum PokemonMovementType where+        maybeToEnum 0 = Prelude.Just MOVEMENT_STATIC+        maybeToEnum 1 = Prelude.Just MOVEMENT_JUMP+        maybeToEnum 2 = Prelude.Just MOVEMENT_VERTICAL+        maybeToEnum 3 = Prelude.Just MOVEMENT_PSYCHIC+        maybeToEnum 4 = Prelude.Just MOVEMENT_ELECTRIC+        maybeToEnum 5 = Prelude.Just MOVEMENT_FLYING+        maybeToEnum 6 = Prelude.Just MOVEMENT_HOVERING+        maybeToEnum _ = Prelude.Nothing+        showEnum MOVEMENT_STATIC = "MOVEMENT_STATIC"+        showEnum MOVEMENT_JUMP = "MOVEMENT_JUMP"+        showEnum MOVEMENT_VERTICAL = "MOVEMENT_VERTICAL"+        showEnum MOVEMENT_PSYCHIC = "MOVEMENT_PSYCHIC"+        showEnum MOVEMENT_ELECTRIC = "MOVEMENT_ELECTRIC"+        showEnum MOVEMENT_FLYING = "MOVEMENT_FLYING"+        showEnum MOVEMENT_HOVERING = "MOVEMENT_HOVERING"+        readEnum "MOVEMENT_STATIC" = Prelude.Just MOVEMENT_STATIC+        readEnum "MOVEMENT_JUMP" = Prelude.Just MOVEMENT_JUMP+        readEnum "MOVEMENT_VERTICAL" = Prelude.Just MOVEMENT_VERTICAL+        readEnum "MOVEMENT_PSYCHIC" = Prelude.Just MOVEMENT_PSYCHIC+        readEnum "MOVEMENT_ELECTRIC" = Prelude.Just MOVEMENT_ELECTRIC+        readEnum "MOVEMENT_FLYING" = Prelude.Just MOVEMENT_FLYING+        readEnum "MOVEMENT_HOVERING" = Prelude.Just MOVEMENT_HOVERING+        readEnum _ = Prelude.Nothing++instance Prelude.Enum PokemonMovementType where+        toEnum k__+          = Prelude.maybe+              (Prelude.error+                 ((Prelude.++)+                    "toEnum: unknown value for enum PokemonMovementType: "+                    (Prelude.show k__)))+              Prelude.id+              (Data.ProtoLens.maybeToEnum k__)+        fromEnum MOVEMENT_STATIC = 0+        fromEnum MOVEMENT_JUMP = 1+        fromEnum MOVEMENT_VERTICAL = 2+        fromEnum MOVEMENT_PSYCHIC = 3+        fromEnum MOVEMENT_ELECTRIC = 4+        fromEnum MOVEMENT_FLYING = 5+        fromEnum MOVEMENT_HOVERING = 6+        succ MOVEMENT_HOVERING+          = Prelude.error+              "Ident \"PokemonMovementType\".Ident \"succ\": bad argument Ident \"MOVEMENT_HOVERING\". This value would be out of bounds."+        succ MOVEMENT_STATIC = MOVEMENT_JUMP+        succ MOVEMENT_JUMP = MOVEMENT_VERTICAL+        succ MOVEMENT_VERTICAL = MOVEMENT_PSYCHIC+        succ MOVEMENT_PSYCHIC = MOVEMENT_ELECTRIC+        succ MOVEMENT_ELECTRIC = MOVEMENT_FLYING+        succ MOVEMENT_FLYING = MOVEMENT_HOVERING+        pred MOVEMENT_STATIC+          = Prelude.error+              "Ident \"PokemonMovementType\".Ident \"pred\": bad argument Ident \"MOVEMENT_STATIC\". This value would be out of bounds."+        pred MOVEMENT_JUMP = MOVEMENT_STATIC+        pred MOVEMENT_VERTICAL = MOVEMENT_JUMP+        pred MOVEMENT_PSYCHIC = MOVEMENT_VERTICAL+        pred MOVEMENT_ELECTRIC = MOVEMENT_PSYCHIC+        pred MOVEMENT_FLYING = MOVEMENT_ELECTRIC+        pred MOVEMENT_HOVERING = MOVEMENT_FLYING+        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 PokemonMovementType where+        minBound = MOVEMENT_STATIC+        maxBound = MOVEMENT_HOVERING
+ src/Proto/POGOProtos/Enums/PokemonRarity.hs view
@@ -0,0 +1,70 @@+{- This file was auto-generated from POGOProtos/Enums/PokemonRarity.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Enums.PokemonRarity 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 PokemonRarity = NORMAL+                   | LEGENDARY+                   | MYTHIC+                   deriving (Prelude.Show, Prelude.Eq)++instance Data.Default.Class.Default PokemonRarity where+        def = NORMAL++instance Data.ProtoLens.FieldDefault PokemonRarity where+        fieldDefault = NORMAL++instance Data.ProtoLens.MessageEnum PokemonRarity where+        maybeToEnum 0 = Prelude.Just NORMAL+        maybeToEnum 1 = Prelude.Just LEGENDARY+        maybeToEnum 2 = Prelude.Just MYTHIC+        maybeToEnum _ = Prelude.Nothing+        showEnum NORMAL = "NORMAL"+        showEnum LEGENDARY = "LEGENDARY"+        showEnum MYTHIC = "MYTHIC"+        readEnum "NORMAL" = Prelude.Just NORMAL+        readEnum "LEGENDARY" = Prelude.Just LEGENDARY+        readEnum "MYTHIC" = Prelude.Just MYTHIC+        readEnum _ = Prelude.Nothing++instance Prelude.Enum PokemonRarity where+        toEnum k__+          = Prelude.maybe+              (Prelude.error+                 ((Prelude.++) "toEnum: unknown value for enum PokemonRarity: "+                    (Prelude.show k__)))+              Prelude.id+              (Data.ProtoLens.maybeToEnum k__)+        fromEnum NORMAL = 0+        fromEnum LEGENDARY = 1+        fromEnum MYTHIC = 2+        succ MYTHIC+          = Prelude.error+              "Ident \"PokemonRarity\".Ident \"succ\": bad argument Ident \"MYTHIC\". This value would be out of bounds."+        succ NORMAL = LEGENDARY+        succ LEGENDARY = MYTHIC+        pred NORMAL+          = Prelude.error+              "Ident \"PokemonRarity\".Ident \"pred\": bad argument Ident \"NORMAL\". This value would be out of bounds."+        pred LEGENDARY = NORMAL+        pred MYTHIC = LEGENDARY+        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 PokemonRarity where+        minBound = NORMAL+        maxBound = MYTHIC
+ src/Proto/POGOProtos/Enums/PokemonType.hs view
@@ -0,0 +1,184 @@+{- This file was auto-generated from POGOProtos/Enums/PokemonType.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Enums.PokemonType 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 PokemonType = POKEMON_TYPE_NONE+                 | POKEMON_TYPE_NORMAL+                 | POKEMON_TYPE_FIGHTING+                 | POKEMON_TYPE_FLYING+                 | POKEMON_TYPE_POISON+                 | POKEMON_TYPE_GROUND+                 | POKEMON_TYPE_ROCK+                 | POKEMON_TYPE_BUG+                 | POKEMON_TYPE_GHOST+                 | POKEMON_TYPE_STEEL+                 | POKEMON_TYPE_FIRE+                 | POKEMON_TYPE_WATER+                 | POKEMON_TYPE_GRASS+                 | POKEMON_TYPE_ELECTRIC+                 | POKEMON_TYPE_PSYCHIC+                 | POKEMON_TYPE_ICE+                 | POKEMON_TYPE_DRAGON+                 | POKEMON_TYPE_DARK+                 | POKEMON_TYPE_FAIRY+                 deriving (Prelude.Show, Prelude.Eq)++instance Data.Default.Class.Default PokemonType where+        def = POKEMON_TYPE_NONE++instance Data.ProtoLens.FieldDefault PokemonType where+        fieldDefault = POKEMON_TYPE_NONE++instance Data.ProtoLens.MessageEnum PokemonType where+        maybeToEnum 0 = Prelude.Just POKEMON_TYPE_NONE+        maybeToEnum 1 = Prelude.Just POKEMON_TYPE_NORMAL+        maybeToEnum 2 = Prelude.Just POKEMON_TYPE_FIGHTING+        maybeToEnum 3 = Prelude.Just POKEMON_TYPE_FLYING+        maybeToEnum 4 = Prelude.Just POKEMON_TYPE_POISON+        maybeToEnum 5 = Prelude.Just POKEMON_TYPE_GROUND+        maybeToEnum 6 = Prelude.Just POKEMON_TYPE_ROCK+        maybeToEnum 7 = Prelude.Just POKEMON_TYPE_BUG+        maybeToEnum 8 = Prelude.Just POKEMON_TYPE_GHOST+        maybeToEnum 9 = Prelude.Just POKEMON_TYPE_STEEL+        maybeToEnum 10 = Prelude.Just POKEMON_TYPE_FIRE+        maybeToEnum 11 = Prelude.Just POKEMON_TYPE_WATER+        maybeToEnum 12 = Prelude.Just POKEMON_TYPE_GRASS+        maybeToEnum 13 = Prelude.Just POKEMON_TYPE_ELECTRIC+        maybeToEnum 14 = Prelude.Just POKEMON_TYPE_PSYCHIC+        maybeToEnum 15 = Prelude.Just POKEMON_TYPE_ICE+        maybeToEnum 16 = Prelude.Just POKEMON_TYPE_DRAGON+        maybeToEnum 17 = Prelude.Just POKEMON_TYPE_DARK+        maybeToEnum 18 = Prelude.Just POKEMON_TYPE_FAIRY+        maybeToEnum _ = Prelude.Nothing+        showEnum POKEMON_TYPE_NONE = "POKEMON_TYPE_NONE"+        showEnum POKEMON_TYPE_NORMAL = "POKEMON_TYPE_NORMAL"+        showEnum POKEMON_TYPE_FIGHTING = "POKEMON_TYPE_FIGHTING"+        showEnum POKEMON_TYPE_FLYING = "POKEMON_TYPE_FLYING"+        showEnum POKEMON_TYPE_POISON = "POKEMON_TYPE_POISON"+        showEnum POKEMON_TYPE_GROUND = "POKEMON_TYPE_GROUND"+        showEnum POKEMON_TYPE_ROCK = "POKEMON_TYPE_ROCK"+        showEnum POKEMON_TYPE_BUG = "POKEMON_TYPE_BUG"+        showEnum POKEMON_TYPE_GHOST = "POKEMON_TYPE_GHOST"+        showEnum POKEMON_TYPE_STEEL = "POKEMON_TYPE_STEEL"+        showEnum POKEMON_TYPE_FIRE = "POKEMON_TYPE_FIRE"+        showEnum POKEMON_TYPE_WATER = "POKEMON_TYPE_WATER"+        showEnum POKEMON_TYPE_GRASS = "POKEMON_TYPE_GRASS"+        showEnum POKEMON_TYPE_ELECTRIC = "POKEMON_TYPE_ELECTRIC"+        showEnum POKEMON_TYPE_PSYCHIC = "POKEMON_TYPE_PSYCHIC"+        showEnum POKEMON_TYPE_ICE = "POKEMON_TYPE_ICE"+        showEnum POKEMON_TYPE_DRAGON = "POKEMON_TYPE_DRAGON"+        showEnum POKEMON_TYPE_DARK = "POKEMON_TYPE_DARK"+        showEnum POKEMON_TYPE_FAIRY = "POKEMON_TYPE_FAIRY"+        readEnum "POKEMON_TYPE_NONE" = Prelude.Just POKEMON_TYPE_NONE+        readEnum "POKEMON_TYPE_NORMAL" = Prelude.Just POKEMON_TYPE_NORMAL+        readEnum "POKEMON_TYPE_FIGHTING"+          = Prelude.Just POKEMON_TYPE_FIGHTING+        readEnum "POKEMON_TYPE_FLYING" = Prelude.Just POKEMON_TYPE_FLYING+        readEnum "POKEMON_TYPE_POISON" = Prelude.Just POKEMON_TYPE_POISON+        readEnum "POKEMON_TYPE_GROUND" = Prelude.Just POKEMON_TYPE_GROUND+        readEnum "POKEMON_TYPE_ROCK" = Prelude.Just POKEMON_TYPE_ROCK+        readEnum "POKEMON_TYPE_BUG" = Prelude.Just POKEMON_TYPE_BUG+        readEnum "POKEMON_TYPE_GHOST" = Prelude.Just POKEMON_TYPE_GHOST+        readEnum "POKEMON_TYPE_STEEL" = Prelude.Just POKEMON_TYPE_STEEL+        readEnum "POKEMON_TYPE_FIRE" = Prelude.Just POKEMON_TYPE_FIRE+        readEnum "POKEMON_TYPE_WATER" = Prelude.Just POKEMON_TYPE_WATER+        readEnum "POKEMON_TYPE_GRASS" = Prelude.Just POKEMON_TYPE_GRASS+        readEnum "POKEMON_TYPE_ELECTRIC"+          = Prelude.Just POKEMON_TYPE_ELECTRIC+        readEnum "POKEMON_TYPE_PSYCHIC" = Prelude.Just POKEMON_TYPE_PSYCHIC+        readEnum "POKEMON_TYPE_ICE" = Prelude.Just POKEMON_TYPE_ICE+        readEnum "POKEMON_TYPE_DRAGON" = Prelude.Just POKEMON_TYPE_DRAGON+        readEnum "POKEMON_TYPE_DARK" = Prelude.Just POKEMON_TYPE_DARK+        readEnum "POKEMON_TYPE_FAIRY" = Prelude.Just POKEMON_TYPE_FAIRY+        readEnum _ = Prelude.Nothing++instance Prelude.Enum PokemonType where+        toEnum k__+          = Prelude.maybe+              (Prelude.error+                 ((Prelude.++) "toEnum: unknown value for enum PokemonType: "+                    (Prelude.show k__)))+              Prelude.id+              (Data.ProtoLens.maybeToEnum k__)+        fromEnum POKEMON_TYPE_NONE = 0+        fromEnum POKEMON_TYPE_NORMAL = 1+        fromEnum POKEMON_TYPE_FIGHTING = 2+        fromEnum POKEMON_TYPE_FLYING = 3+        fromEnum POKEMON_TYPE_POISON = 4+        fromEnum POKEMON_TYPE_GROUND = 5+        fromEnum POKEMON_TYPE_ROCK = 6+        fromEnum POKEMON_TYPE_BUG = 7+        fromEnum POKEMON_TYPE_GHOST = 8+        fromEnum POKEMON_TYPE_STEEL = 9+        fromEnum POKEMON_TYPE_FIRE = 10+        fromEnum POKEMON_TYPE_WATER = 11+        fromEnum POKEMON_TYPE_GRASS = 12+        fromEnum POKEMON_TYPE_ELECTRIC = 13+        fromEnum POKEMON_TYPE_PSYCHIC = 14+        fromEnum POKEMON_TYPE_ICE = 15+        fromEnum POKEMON_TYPE_DRAGON = 16+        fromEnum POKEMON_TYPE_DARK = 17+        fromEnum POKEMON_TYPE_FAIRY = 18+        succ POKEMON_TYPE_FAIRY+          = Prelude.error+              "Ident \"PokemonType\".Ident \"succ\": bad argument Ident \"POKEMON_TYPE_FAIRY\". This value would be out of bounds."+        succ POKEMON_TYPE_NONE = POKEMON_TYPE_NORMAL+        succ POKEMON_TYPE_NORMAL = POKEMON_TYPE_FIGHTING+        succ POKEMON_TYPE_FIGHTING = POKEMON_TYPE_FLYING+        succ POKEMON_TYPE_FLYING = POKEMON_TYPE_POISON+        succ POKEMON_TYPE_POISON = POKEMON_TYPE_GROUND+        succ POKEMON_TYPE_GROUND = POKEMON_TYPE_ROCK+        succ POKEMON_TYPE_ROCK = POKEMON_TYPE_BUG+        succ POKEMON_TYPE_BUG = POKEMON_TYPE_GHOST+        succ POKEMON_TYPE_GHOST = POKEMON_TYPE_STEEL+        succ POKEMON_TYPE_STEEL = POKEMON_TYPE_FIRE+        succ POKEMON_TYPE_FIRE = POKEMON_TYPE_WATER+        succ POKEMON_TYPE_WATER = POKEMON_TYPE_GRASS+        succ POKEMON_TYPE_GRASS = POKEMON_TYPE_ELECTRIC+        succ POKEMON_TYPE_ELECTRIC = POKEMON_TYPE_PSYCHIC+        succ POKEMON_TYPE_PSYCHIC = POKEMON_TYPE_ICE+        succ POKEMON_TYPE_ICE = POKEMON_TYPE_DRAGON+        succ POKEMON_TYPE_DRAGON = POKEMON_TYPE_DARK+        succ POKEMON_TYPE_DARK = POKEMON_TYPE_FAIRY+        pred POKEMON_TYPE_NONE+          = Prelude.error+              "Ident \"PokemonType\".Ident \"pred\": bad argument Ident \"POKEMON_TYPE_NONE\". This value would be out of bounds."+        pred POKEMON_TYPE_NORMAL = POKEMON_TYPE_NONE+        pred POKEMON_TYPE_FIGHTING = POKEMON_TYPE_NORMAL+        pred POKEMON_TYPE_FLYING = POKEMON_TYPE_FIGHTING+        pred POKEMON_TYPE_POISON = POKEMON_TYPE_FLYING+        pred POKEMON_TYPE_GROUND = POKEMON_TYPE_POISON+        pred POKEMON_TYPE_ROCK = POKEMON_TYPE_GROUND+        pred POKEMON_TYPE_BUG = POKEMON_TYPE_ROCK+        pred POKEMON_TYPE_GHOST = POKEMON_TYPE_BUG+        pred POKEMON_TYPE_STEEL = POKEMON_TYPE_GHOST+        pred POKEMON_TYPE_FIRE = POKEMON_TYPE_STEEL+        pred POKEMON_TYPE_WATER = POKEMON_TYPE_FIRE+        pred POKEMON_TYPE_GRASS = POKEMON_TYPE_WATER+        pred POKEMON_TYPE_ELECTRIC = POKEMON_TYPE_GRASS+        pred POKEMON_TYPE_PSYCHIC = POKEMON_TYPE_ELECTRIC+        pred POKEMON_TYPE_ICE = POKEMON_TYPE_PSYCHIC+        pred POKEMON_TYPE_DRAGON = POKEMON_TYPE_ICE+        pred POKEMON_TYPE_DARK = POKEMON_TYPE_DRAGON+        pred POKEMON_TYPE_FAIRY = POKEMON_TYPE_DARK+        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 PokemonType where+        minBound = POKEMON_TYPE_NONE+        maxBound = POKEMON_TYPE_FAIRY
+ src/Proto/POGOProtos/Enums/TeamColor.hs view
@@ -0,0 +1,77 @@+{- This file was auto-generated from POGOProtos/Enums/TeamColor.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Enums.TeamColor 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 TeamColor = NEUTRAL+               | BLUE+               | RED+               | YELLOW+               deriving (Prelude.Show, Prelude.Eq)++instance Data.Default.Class.Default TeamColor where+        def = NEUTRAL++instance Data.ProtoLens.FieldDefault TeamColor where+        fieldDefault = NEUTRAL++instance Data.ProtoLens.MessageEnum TeamColor where+        maybeToEnum 0 = Prelude.Just NEUTRAL+        maybeToEnum 1 = Prelude.Just BLUE+        maybeToEnum 2 = Prelude.Just RED+        maybeToEnum 3 = Prelude.Just YELLOW+        maybeToEnum _ = Prelude.Nothing+        showEnum NEUTRAL = "NEUTRAL"+        showEnum BLUE = "BLUE"+        showEnum RED = "RED"+        showEnum YELLOW = "YELLOW"+        readEnum "NEUTRAL" = Prelude.Just NEUTRAL+        readEnum "BLUE" = Prelude.Just BLUE+        readEnum "RED" = Prelude.Just RED+        readEnum "YELLOW" = Prelude.Just YELLOW+        readEnum _ = Prelude.Nothing++instance Prelude.Enum TeamColor where+        toEnum k__+          = Prelude.maybe+              (Prelude.error+                 ((Prelude.++) "toEnum: unknown value for enum TeamColor: "+                    (Prelude.show k__)))+              Prelude.id+              (Data.ProtoLens.maybeToEnum k__)+        fromEnum NEUTRAL = 0+        fromEnum BLUE = 1+        fromEnum RED = 2+        fromEnum YELLOW = 3+        succ YELLOW+          = Prelude.error+              "Ident \"TeamColor\".Ident \"succ\": bad argument Ident \"YELLOW\". This value would be out of bounds."+        succ NEUTRAL = BLUE+        succ BLUE = RED+        succ RED = YELLOW+        pred NEUTRAL+          = Prelude.error+              "Ident \"TeamColor\".Ident \"pred\": bad argument Ident \"NEUTRAL\". This value would be out of bounds."+        pred BLUE = NEUTRAL+        pred RED = BLUE+        pred YELLOW = RED+        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 TeamColor where+        minBound = NEUTRAL+        maxBound = YELLOW
+ src/Proto/POGOProtos/Enums/TutorialState.hs view
@@ -0,0 +1,121 @@+{- This file was auto-generated from POGOProtos/Enums/TutorialState.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Enums.TutorialState 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 TutorialState = LEGAL_SCREEN+                   | AVATAR_SELECTION+                   | ACCOUNT_CREATION+                   | POKEMON_CAPTURE+                   | NAME_SELECTION+                   | POKEMON_BERRY+                   | USE_ITEM+                   | FIRST_TIME_EXPERIENCE_COMPLETE+                   | POKESTOP_TUTORIAL+                   | GYM_TUTORIAL+                   deriving (Prelude.Show, Prelude.Eq)++instance Data.Default.Class.Default TutorialState where+        def = LEGAL_SCREEN++instance Data.ProtoLens.FieldDefault TutorialState where+        fieldDefault = LEGAL_SCREEN++instance Data.ProtoLens.MessageEnum TutorialState where+        maybeToEnum 0 = Prelude.Just LEGAL_SCREEN+        maybeToEnum 1 = Prelude.Just AVATAR_SELECTION+        maybeToEnum 2 = Prelude.Just ACCOUNT_CREATION+        maybeToEnum 3 = Prelude.Just POKEMON_CAPTURE+        maybeToEnum 4 = Prelude.Just NAME_SELECTION+        maybeToEnum 5 = Prelude.Just POKEMON_BERRY+        maybeToEnum 6 = Prelude.Just USE_ITEM+        maybeToEnum 7 = Prelude.Just FIRST_TIME_EXPERIENCE_COMPLETE+        maybeToEnum 8 = Prelude.Just POKESTOP_TUTORIAL+        maybeToEnum 9 = Prelude.Just GYM_TUTORIAL+        maybeToEnum _ = Prelude.Nothing+        showEnum LEGAL_SCREEN = "LEGAL_SCREEN"+        showEnum AVATAR_SELECTION = "AVATAR_SELECTION"+        showEnum ACCOUNT_CREATION = "ACCOUNT_CREATION"+        showEnum POKEMON_CAPTURE = "POKEMON_CAPTURE"+        showEnum NAME_SELECTION = "NAME_SELECTION"+        showEnum POKEMON_BERRY = "POKEMON_BERRY"+        showEnum USE_ITEM = "USE_ITEM"+        showEnum FIRST_TIME_EXPERIENCE_COMPLETE+          = "FIRST_TIME_EXPERIENCE_COMPLETE"+        showEnum POKESTOP_TUTORIAL = "POKESTOP_TUTORIAL"+        showEnum GYM_TUTORIAL = "GYM_TUTORIAL"+        readEnum "LEGAL_SCREEN" = Prelude.Just LEGAL_SCREEN+        readEnum "AVATAR_SELECTION" = Prelude.Just AVATAR_SELECTION+        readEnum "ACCOUNT_CREATION" = Prelude.Just ACCOUNT_CREATION+        readEnum "POKEMON_CAPTURE" = Prelude.Just POKEMON_CAPTURE+        readEnum "NAME_SELECTION" = Prelude.Just NAME_SELECTION+        readEnum "POKEMON_BERRY" = Prelude.Just POKEMON_BERRY+        readEnum "USE_ITEM" = Prelude.Just USE_ITEM+        readEnum "FIRST_TIME_EXPERIENCE_COMPLETE"+          = Prelude.Just FIRST_TIME_EXPERIENCE_COMPLETE+        readEnum "POKESTOP_TUTORIAL" = Prelude.Just POKESTOP_TUTORIAL+        readEnum "GYM_TUTORIAL" = Prelude.Just GYM_TUTORIAL+        readEnum _ = Prelude.Nothing++instance Prelude.Enum TutorialState where+        toEnum k__+          = Prelude.maybe+              (Prelude.error+                 ((Prelude.++) "toEnum: unknown value for enum TutorialState: "+                    (Prelude.show k__)))+              Prelude.id+              (Data.ProtoLens.maybeToEnum k__)+        fromEnum LEGAL_SCREEN = 0+        fromEnum AVATAR_SELECTION = 1+        fromEnum ACCOUNT_CREATION = 2+        fromEnum POKEMON_CAPTURE = 3+        fromEnum NAME_SELECTION = 4+        fromEnum POKEMON_BERRY = 5+        fromEnum USE_ITEM = 6+        fromEnum FIRST_TIME_EXPERIENCE_COMPLETE = 7+        fromEnum POKESTOP_TUTORIAL = 8+        fromEnum GYM_TUTORIAL = 9+        succ GYM_TUTORIAL+          = Prelude.error+              "Ident \"TutorialState\".Ident \"succ\": bad argument Ident \"GYM_TUTORIAL\". This value would be out of bounds."+        succ LEGAL_SCREEN = AVATAR_SELECTION+        succ AVATAR_SELECTION = ACCOUNT_CREATION+        succ ACCOUNT_CREATION = POKEMON_CAPTURE+        succ POKEMON_CAPTURE = NAME_SELECTION+        succ NAME_SELECTION = POKEMON_BERRY+        succ POKEMON_BERRY = USE_ITEM+        succ USE_ITEM = FIRST_TIME_EXPERIENCE_COMPLETE+        succ FIRST_TIME_EXPERIENCE_COMPLETE = POKESTOP_TUTORIAL+        succ POKESTOP_TUTORIAL = GYM_TUTORIAL+        pred LEGAL_SCREEN+          = Prelude.error+              "Ident \"TutorialState\".Ident \"pred\": bad argument Ident \"LEGAL_SCREEN\". This value would be out of bounds."+        pred AVATAR_SELECTION = LEGAL_SCREEN+        pred ACCOUNT_CREATION = AVATAR_SELECTION+        pred POKEMON_CAPTURE = ACCOUNT_CREATION+        pred NAME_SELECTION = POKEMON_CAPTURE+        pred POKEMON_BERRY = NAME_SELECTION+        pred USE_ITEM = POKEMON_BERRY+        pred FIRST_TIME_EXPERIENCE_COMPLETE = USE_ITEM+        pred POKESTOP_TUTORIAL = FIRST_TIME_EXPERIENCE_COMPLETE+        pred GYM_TUTORIAL = POKESTOP_TUTORIAL+        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 TutorialState where+        minBound = LEGAL_SCREEN+        maxBound = GYM_TUTORIAL
+ src/Proto/POGOProtos/Inventory/AppliedItem.hs view
@@ -0,0 +1,138 @@+{- This file was auto-generated from POGOProtos/Inventory/AppliedItem.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Inventory.AppliedItem 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.Inventory.Item.ItemId+import qualified Proto.POGOProtos.Inventory.Item.ItemType++data AppliedItem = AppliedItem{_AppliedItem'itemId ::+                               Proto.POGOProtos.Inventory.Item.ItemId.ItemId,+                               _AppliedItem'itemType ::+                               Proto.POGOProtos.Inventory.Item.ItemType.ItemType,+                               _AppliedItem'expireMs :: Data.Int.Int64,+                               _AppliedItem'appliedMs :: Data.Int.Int64}+                 deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "itemId" AppliedItem =+     Proto.POGOProtos.Inventory.Item.ItemId.ItemId++instance Data.ProtoLens.HasField "itemId" AppliedItem AppliedItem+         where+        field _+          = Lens.Family2.Unchecked.lens _AppliedItem'itemId+              (\ x__ y__ -> x__{_AppliedItem'itemId = y__})++type instance Data.ProtoLens.Field "itemType" AppliedItem =+     Proto.POGOProtos.Inventory.Item.ItemType.ItemType++instance Data.ProtoLens.HasField "itemType" AppliedItem AppliedItem+         where+        field _+          = Lens.Family2.Unchecked.lens _AppliedItem'itemType+              (\ x__ y__ -> x__{_AppliedItem'itemType = y__})++type instance Data.ProtoLens.Field "expireMs" AppliedItem =+     Data.Int.Int64++instance Data.ProtoLens.HasField "expireMs" AppliedItem AppliedItem+         where+        field _+          = Lens.Family2.Unchecked.lens _AppliedItem'expireMs+              (\ x__ y__ -> x__{_AppliedItem'expireMs = y__})++type instance Data.ProtoLens.Field "appliedMs" AppliedItem =+     Data.Int.Int64++instance Data.ProtoLens.HasField "appliedMs" AppliedItem+         AppliedItem where+        field _+          = Lens.Family2.Unchecked.lens _AppliedItem'appliedMs+              (\ x__ y__ -> x__{_AppliedItem'appliedMs = y__})++instance Data.Default.Class.Default AppliedItem where+        def+          = AppliedItem{_AppliedItem'itemId = Data.Default.Class.def,+                        _AppliedItem'itemType = Data.Default.Class.def,+                        _AppliedItem'expireMs = Data.ProtoLens.fieldDefault,+                        _AppliedItem'appliedMs = Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message AppliedItem where+        descriptor+          = let itemId__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "item_id"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Inventory.Item.ItemId.ItemId)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional itemId)+                itemType__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "item_type"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Inventory.Item.ItemType.ItemType)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional itemType)+                expireMs__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "expire_ms"+                      (Data.ProtoLens.Int64Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional expireMs)+                appliedMs__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "applied_ms"+                      (Data.ProtoLens.Int64Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional appliedMs)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, itemId__field_descriptor),+                    (Data.ProtoLens.Tag 2, itemType__field_descriptor),+                    (Data.ProtoLens.Tag 3, expireMs__field_descriptor),+                    (Data.ProtoLens.Tag 4, appliedMs__field_descriptor)])+                (Data.Map.fromList+                   [("item_id", itemId__field_descriptor),+                    ("item_type", itemType__field_descriptor),+                    ("expire_ms", expireMs__field_descriptor),+                    ("applied_ms", appliedMs__field_descriptor)])++appliedMs ::+          forall msg msg' . Data.ProtoLens.HasField "appliedMs" msg msg' =>+            Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "appliedMs" msg)+              (Data.ProtoLens.Field "appliedMs" msg')+appliedMs+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "appliedMs")++expireMs ::+         forall msg msg' . Data.ProtoLens.HasField "expireMs" msg msg' =>+           Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "expireMs" msg)+             (Data.ProtoLens.Field "expireMs" msg')+expireMs+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "expireMs")++itemId ::+       forall msg msg' . Data.ProtoLens.HasField "itemId" msg msg' =>+         Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "itemId" msg)+           (Data.ProtoLens.Field "itemId" msg')+itemId+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "itemId")++itemType ::+         forall msg msg' . Data.ProtoLens.HasField "itemType" msg msg' =>+           Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "itemType" msg)+             (Data.ProtoLens.Field "itemType" msg')+itemType+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "itemType")
+ src/Proto/POGOProtos/Inventory/AppliedItems.hs view
@@ -0,0 +1,55 @@+{- This file was auto-generated from POGOProtos/Inventory/AppliedItems.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Inventory.AppliedItems 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.Inventory.AppliedItem++data AppliedItems = AppliedItems{_AppliedItems'item ::+                                 [Proto.POGOProtos.Inventory.AppliedItem.AppliedItem]}+                  deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "item" AppliedItems =+     [Proto.POGOProtos.Inventory.AppliedItem.AppliedItem]++instance Data.ProtoLens.HasField "item" AppliedItems AppliedItems+         where+        field _+          = Lens.Family2.Unchecked.lens _AppliedItems'item+              (\ x__ y__ -> x__{_AppliedItems'item = y__})++instance Data.Default.Class.Default AppliedItems where+        def = AppliedItems{_AppliedItems'item = []}++instance Data.ProtoLens.Message AppliedItems where+        descriptor+          = let item__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "item"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Inventory.AppliedItem.AppliedItem)+                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked item)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 4, item__field_descriptor)])+                (Data.Map.fromList [("item", item__field_descriptor)])++item ::+     forall msg msg' . Data.ProtoLens.HasField "item" msg msg' =>+       Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "item" msg)+         (Data.ProtoLens.Field "item" msg')+item+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "item")
+ src/Proto/POGOProtos/Inventory/Candy.hs view
@@ -0,0 +1,80 @@+{- This file was auto-generated from POGOProtos/Inventory/Candy.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Inventory.Candy 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 Candy = Candy{_Candy'familyId ::+                   Proto.POGOProtos.Enums.PokemonId.PokemonId,+                   _Candy'candy :: Data.Int.Int32}+           deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "familyId" Candy =+     Proto.POGOProtos.Enums.PokemonId.PokemonId++instance Data.ProtoLens.HasField "familyId" Candy Candy where+        field _+          = Lens.Family2.Unchecked.lens _Candy'familyId+              (\ x__ y__ -> x__{_Candy'familyId = y__})++type instance Data.ProtoLens.Field "candy" Candy = Data.Int.Int32++instance Data.ProtoLens.HasField "candy" Candy Candy where+        field _+          = Lens.Family2.Unchecked.lens _Candy'candy+              (\ x__ y__ -> x__{_Candy'candy = y__})++instance Data.Default.Class.Default Candy where+        def+          = Candy{_Candy'familyId = Data.Default.Class.def,+                  _Candy'candy = Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message Candy where+        descriptor+          = let familyId__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "family_id"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Enums.PokemonId.PokemonId)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional familyId)+                candy__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "candy"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional candy)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, familyId__field_descriptor),+                    (Data.ProtoLens.Tag 2, candy__field_descriptor)])+                (Data.Map.fromList+                   [("family_id", familyId__field_descriptor),+                    ("candy", candy__field_descriptor)])++candy ::+      forall msg msg' . Data.ProtoLens.HasField "candy" msg msg' =>+        Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "candy" msg)+          (Data.ProtoLens.Field "candy" msg')+candy+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "candy")++familyId ::+         forall msg msg' . Data.ProtoLens.HasField "familyId" msg msg' =>+           Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "familyId" msg)+             (Data.ProtoLens.Field "familyId" msg')+familyId+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "familyId")
+ src/Proto/POGOProtos/Inventory/EggIncubator.hs view
@@ -0,0 +1,229 @@+{- This file was auto-generated from POGOProtos/Inventory/EggIncubator.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Inventory.EggIncubator 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.Inventory.EggIncubatorType+import qualified Proto.POGOProtos.Inventory.Item.ItemId++data EggIncubator = EggIncubator{_EggIncubator'id ::+                                 Data.Text.Text,+                                 _EggIncubator'itemId ::+                                 Proto.POGOProtos.Inventory.Item.ItemId.ItemId,+                                 _EggIncubator'incubatorType ::+                                 Proto.POGOProtos.Inventory.EggIncubatorType.EggIncubatorType,+                                 _EggIncubator'usesRemaining :: Data.Int.Int32,+                                 _EggIncubator'pokemonId :: Data.Word.Word64,+                                 _EggIncubator'startKmWalked :: Prelude.Double,+                                 _EggIncubator'targetKmWalked :: Prelude.Double}+                  deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "id" EggIncubator =+     Data.Text.Text++instance Data.ProtoLens.HasField "id" EggIncubator EggIncubator+         where+        field _+          = Lens.Family2.Unchecked.lens _EggIncubator'id+              (\ x__ y__ -> x__{_EggIncubator'id = y__})++type instance Data.ProtoLens.Field "itemId" EggIncubator =+     Proto.POGOProtos.Inventory.Item.ItemId.ItemId++instance Data.ProtoLens.HasField "itemId" EggIncubator EggIncubator+         where+        field _+          = Lens.Family2.Unchecked.lens _EggIncubator'itemId+              (\ x__ y__ -> x__{_EggIncubator'itemId = y__})++type instance Data.ProtoLens.Field "incubatorType" EggIncubator =+     Proto.POGOProtos.Inventory.EggIncubatorType.EggIncubatorType++instance Data.ProtoLens.HasField "incubatorType" EggIncubator+         EggIncubator where+        field _+          = Lens.Family2.Unchecked.lens _EggIncubator'incubatorType+              (\ x__ y__ -> x__{_EggIncubator'incubatorType = y__})++type instance Data.ProtoLens.Field "usesRemaining" EggIncubator =+     Data.Int.Int32++instance Data.ProtoLens.HasField "usesRemaining" EggIncubator+         EggIncubator where+        field _+          = Lens.Family2.Unchecked.lens _EggIncubator'usesRemaining+              (\ x__ y__ -> x__{_EggIncubator'usesRemaining = y__})++type instance Data.ProtoLens.Field "pokemonId" EggIncubator =+     Data.Word.Word64++instance Data.ProtoLens.HasField "pokemonId" EggIncubator+         EggIncubator where+        field _+          = Lens.Family2.Unchecked.lens _EggIncubator'pokemonId+              (\ x__ y__ -> x__{_EggIncubator'pokemonId = y__})++type instance Data.ProtoLens.Field "startKmWalked" EggIncubator =+     Prelude.Double++instance Data.ProtoLens.HasField "startKmWalked" EggIncubator+         EggIncubator where+        field _+          = Lens.Family2.Unchecked.lens _EggIncubator'startKmWalked+              (\ x__ y__ -> x__{_EggIncubator'startKmWalked = y__})++type instance Data.ProtoLens.Field "targetKmWalked" EggIncubator =+     Prelude.Double++instance Data.ProtoLens.HasField "targetKmWalked" EggIncubator+         EggIncubator where+        field _+          = Lens.Family2.Unchecked.lens _EggIncubator'targetKmWalked+              (\ x__ y__ -> x__{_EggIncubator'targetKmWalked = y__})++instance Data.Default.Class.Default EggIncubator where+        def+          = EggIncubator{_EggIncubator'id = Data.ProtoLens.fieldDefault,+                         _EggIncubator'itemId = Data.Default.Class.def,+                         _EggIncubator'incubatorType = Data.Default.Class.def,+                         _EggIncubator'usesRemaining = Data.ProtoLens.fieldDefault,+                         _EggIncubator'pokemonId = Data.ProtoLens.fieldDefault,+                         _EggIncubator'startKmWalked = Data.ProtoLens.fieldDefault,+                         _EggIncubator'targetKmWalked = Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message EggIncubator where+        descriptor+          = let id__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "id"+                      (Data.ProtoLens.StringField ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional id)+                itemId__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "item_id"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Inventory.Item.ItemId.ItemId)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional itemId)+                incubatorType__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "incubator_type"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Inventory.EggIncubatorType.EggIncubatorType)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional incubatorType)+                usesRemaining__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "uses_remaining"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional usesRemaining)+                pokemonId__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "pokemon_id"+                      (Data.ProtoLens.UInt64Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional pokemonId)+                startKmWalked__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "start_km_walked"+                      (Data.ProtoLens.DoubleField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Double)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional startKmWalked)+                targetKmWalked__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "target_km_walked"+                      (Data.ProtoLens.DoubleField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Double)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional targetKmWalked)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, id__field_descriptor),+                    (Data.ProtoLens.Tag 2, itemId__field_descriptor),+                    (Data.ProtoLens.Tag 3, incubatorType__field_descriptor),+                    (Data.ProtoLens.Tag 4, usesRemaining__field_descriptor),+                    (Data.ProtoLens.Tag 5, pokemonId__field_descriptor),+                    (Data.ProtoLens.Tag 6, startKmWalked__field_descriptor),+                    (Data.ProtoLens.Tag 7, targetKmWalked__field_descriptor)])+                (Data.Map.fromList+                   [("id", id__field_descriptor),+                    ("item_id", itemId__field_descriptor),+                    ("incubator_type", incubatorType__field_descriptor),+                    ("uses_remaining", usesRemaining__field_descriptor),+                    ("pokemon_id", pokemonId__field_descriptor),+                    ("start_km_walked", startKmWalked__field_descriptor),+                    ("target_km_walked", targetKmWalked__field_descriptor)])++id ::+   forall msg msg' . Data.ProtoLens.HasField "id" msg msg' =>+     Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "id" msg)+       (Data.ProtoLens.Field "id" msg')+id+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "id")++incubatorType ::+              forall msg msg' .+                Data.ProtoLens.HasField "incubatorType" msg msg' =>+                Lens.Family2.Lens msg msg'+                  (Data.ProtoLens.Field "incubatorType" msg)+                  (Data.ProtoLens.Field "incubatorType" msg')+incubatorType+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "incubatorType")++itemId ::+       forall msg msg' . Data.ProtoLens.HasField "itemId" msg msg' =>+         Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "itemId" msg)+           (Data.ProtoLens.Field "itemId" msg')+itemId+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "itemId")++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")++startKmWalked ::+              forall msg msg' .+                Data.ProtoLens.HasField "startKmWalked" msg msg' =>+                Lens.Family2.Lens msg msg'+                  (Data.ProtoLens.Field "startKmWalked" msg)+                  (Data.ProtoLens.Field "startKmWalked" msg')+startKmWalked+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "startKmWalked")++targetKmWalked ::+               forall msg msg' .+                 Data.ProtoLens.HasField "targetKmWalked" msg msg' =>+                 Lens.Family2.Lens msg msg'+                   (Data.ProtoLens.Field "targetKmWalked" msg)+                   (Data.ProtoLens.Field "targetKmWalked" msg')+targetKmWalked+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "targetKmWalked")++usesRemaining ::+              forall msg msg' .+                Data.ProtoLens.HasField "usesRemaining" msg msg' =>+                Lens.Family2.Lens msg msg'+                  (Data.ProtoLens.Field "usesRemaining" msg)+                  (Data.ProtoLens.Field "usesRemaining" msg')+usesRemaining+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "usesRemaining")
+ src/Proto/POGOProtos/Inventory/EggIncubatorType.hs view
@@ -0,0 +1,63 @@+{- This file was auto-generated from POGOProtos/Inventory/EggIncubatorType.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Inventory.EggIncubatorType 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 EggIncubatorType = INCUBATOR_UNSET+                      | INCUBATOR_DISTANCE+                      deriving (Prelude.Show, Prelude.Eq)++instance Data.Default.Class.Default EggIncubatorType where+        def = INCUBATOR_UNSET++instance Data.ProtoLens.FieldDefault EggIncubatorType where+        fieldDefault = INCUBATOR_UNSET++instance Data.ProtoLens.MessageEnum EggIncubatorType where+        maybeToEnum 0 = Prelude.Just INCUBATOR_UNSET+        maybeToEnum 1 = Prelude.Just INCUBATOR_DISTANCE+        maybeToEnum _ = Prelude.Nothing+        showEnum INCUBATOR_UNSET = "INCUBATOR_UNSET"+        showEnum INCUBATOR_DISTANCE = "INCUBATOR_DISTANCE"+        readEnum "INCUBATOR_UNSET" = Prelude.Just INCUBATOR_UNSET+        readEnum "INCUBATOR_DISTANCE" = Prelude.Just INCUBATOR_DISTANCE+        readEnum _ = Prelude.Nothing++instance Prelude.Enum EggIncubatorType where+        toEnum k__+          = Prelude.maybe+              (Prelude.error+                 ((Prelude.++) "toEnum: unknown value for enum EggIncubatorType: "+                    (Prelude.show k__)))+              Prelude.id+              (Data.ProtoLens.maybeToEnum k__)+        fromEnum INCUBATOR_UNSET = 0+        fromEnum INCUBATOR_DISTANCE = 1+        succ INCUBATOR_DISTANCE+          = Prelude.error+              "Ident \"EggIncubatorType\".Ident \"succ\": bad argument Ident \"INCUBATOR_DISTANCE\". This value would be out of bounds."+        succ INCUBATOR_UNSET = INCUBATOR_DISTANCE+        pred INCUBATOR_UNSET+          = Prelude.error+              "Ident \"EggIncubatorType\".Ident \"pred\": bad argument Ident \"INCUBATOR_UNSET\". This value would be out of bounds."+        pred INCUBATOR_DISTANCE = INCUBATOR_UNSET+        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 EggIncubatorType where+        minBound = INCUBATOR_UNSET+        maxBound = INCUBATOR_DISTANCE
+ src/Proto/POGOProtos/Inventory/EggIncubators.hs view
@@ -0,0 +1,58 @@+{- This file was auto-generated from POGOProtos/Inventory/EggIncubators.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Inventory.EggIncubators 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.Inventory.EggIncubator++data EggIncubators = EggIncubators{_EggIncubators'eggIncubator ::+                                   [Proto.POGOProtos.Inventory.EggIncubator.EggIncubator]}+                   deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "eggIncubator" EggIncubators =+     [Proto.POGOProtos.Inventory.EggIncubator.EggIncubator]++instance Data.ProtoLens.HasField "eggIncubator" EggIncubators+         EggIncubators where+        field _+          = Lens.Family2.Unchecked.lens _EggIncubators'eggIncubator+              (\ x__ y__ -> x__{_EggIncubators'eggIncubator = y__})++instance Data.Default.Class.Default EggIncubators where+        def = EggIncubators{_EggIncubators'eggIncubator = []}++instance Data.ProtoLens.Message EggIncubators where+        descriptor+          = let eggIncubator__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "egg_incubator"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Inventory.EggIncubator.EggIncubator)+                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked eggIncubator)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, eggIncubator__field_descriptor)])+                (Data.Map.fromList+                   [("egg_incubator", eggIncubator__field_descriptor)])++eggIncubator ::+             forall msg msg' .+               Data.ProtoLens.HasField "eggIncubator" msg msg' =>+               Lens.Family2.Lens msg msg'+                 (Data.ProtoLens.Field "eggIncubator" msg)+                 (Data.ProtoLens.Field "eggIncubator" msg')+eggIncubator+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "eggIncubator")
+ src/Proto/POGOProtos/Inventory/InventoryDelta.hs view
@@ -0,0 +1,123 @@+{- This file was auto-generated from POGOProtos/Inventory/InventoryDelta.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Inventory.InventoryDelta 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.Inventory.InventoryItem++data InventoryDelta = InventoryDelta{_InventoryDelta'originalTimestampMs+                                     :: Data.Int.Int64,+                                     _InventoryDelta'newTimestampMs :: Data.Int.Int64,+                                     _InventoryDelta'inventoryItems ::+                                     [Proto.POGOProtos.Inventory.InventoryItem.InventoryItem]}+                    deriving (Prelude.Show, Prelude.Eq)++type instance+     Data.ProtoLens.Field "originalTimestampMs" InventoryDelta =+     Data.Int.Int64++instance Data.ProtoLens.HasField "originalTimestampMs"+         InventoryDelta InventoryDelta where+        field _+          = Lens.Family2.Unchecked.lens _InventoryDelta'originalTimestampMs+              (\ x__ y__ -> x__{_InventoryDelta'originalTimestampMs = y__})++type instance Data.ProtoLens.Field "newTimestampMs" InventoryDelta+     = Data.Int.Int64++instance Data.ProtoLens.HasField "newTimestampMs" InventoryDelta+         InventoryDelta where+        field _+          = Lens.Family2.Unchecked.lens _InventoryDelta'newTimestampMs+              (\ x__ y__ -> x__{_InventoryDelta'newTimestampMs = y__})++type instance Data.ProtoLens.Field "inventoryItems" InventoryDelta+     = [Proto.POGOProtos.Inventory.InventoryItem.InventoryItem]++instance Data.ProtoLens.HasField "inventoryItems" InventoryDelta+         InventoryDelta where+        field _+          = Lens.Family2.Unchecked.lens _InventoryDelta'inventoryItems+              (\ x__ y__ -> x__{_InventoryDelta'inventoryItems = y__})++instance Data.Default.Class.Default InventoryDelta where+        def+          = InventoryDelta{_InventoryDelta'originalTimestampMs =+                             Data.ProtoLens.fieldDefault,+                           _InventoryDelta'newTimestampMs = Data.ProtoLens.fieldDefault,+                           _InventoryDelta'inventoryItems = []}++instance Data.ProtoLens.Message InventoryDelta where+        descriptor+          = let originalTimestampMs__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "original_timestamp_ms"+                      (Data.ProtoLens.Int64Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         originalTimestampMs)+                newTimestampMs__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "new_timestamp_ms"+                      (Data.ProtoLens.Int64Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional newTimestampMs)+                inventoryItems__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "inventory_items"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Inventory.InventoryItem.InventoryItem)+                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked+                         inventoryItems)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, originalTimestampMs__field_descriptor),+                    (Data.ProtoLens.Tag 2, newTimestampMs__field_descriptor),+                    (Data.ProtoLens.Tag 3, inventoryItems__field_descriptor)])+                (Data.Map.fromList+                   [("original_timestamp_ms", originalTimestampMs__field_descriptor),+                    ("new_timestamp_ms", newTimestampMs__field_descriptor),+                    ("inventory_items", inventoryItems__field_descriptor)])++inventoryItems ::+               forall msg msg' .+                 Data.ProtoLens.HasField "inventoryItems" msg msg' =>+                 Lens.Family2.Lens msg msg'+                   (Data.ProtoLens.Field "inventoryItems" msg)+                   (Data.ProtoLens.Field "inventoryItems" msg')+inventoryItems+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "inventoryItems")++newTimestampMs ::+               forall msg msg' .+                 Data.ProtoLens.HasField "newTimestampMs" msg msg' =>+                 Lens.Family2.Lens msg msg'+                   (Data.ProtoLens.Field "newTimestampMs" msg)+                   (Data.ProtoLens.Field "newTimestampMs" msg')+newTimestampMs+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "newTimestampMs")++originalTimestampMs ::+                    forall msg msg' .+                      Data.ProtoLens.HasField "originalTimestampMs" msg msg' =>+                      Lens.Family2.Lens msg msg'+                        (Data.ProtoLens.Field "originalTimestampMs" msg)+                        (Data.ProtoLens.Field "originalTimestampMs" msg')+originalTimestampMs+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "originalTimestampMs")
+ src/Proto/POGOProtos/Inventory/InventoryItem.hs view
@@ -0,0 +1,146 @@+{- This file was auto-generated from POGOProtos/Inventory/InventoryItem.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Inventory.InventoryItem 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.Inventory.InventoryItemData++data InventoryItem = InventoryItem{_InventoryItem'modifiedTimestampMs+                                   :: Data.Int.Int64,+                                   _InventoryItem'deletedItemKey :: Data.Int.Int64,+                                   _InventoryItem'inventoryItemData ::+                                   Prelude.Maybe+                                     Proto.POGOProtos.Inventory.InventoryItemData.InventoryItemData}+                   deriving (Prelude.Show, Prelude.Eq)++type instance+     Data.ProtoLens.Field "modifiedTimestampMs" InventoryItem =+     Data.Int.Int64++instance Data.ProtoLens.HasField "modifiedTimestampMs"+         InventoryItem InventoryItem where+        field _+          = Lens.Family2.Unchecked.lens _InventoryItem'modifiedTimestampMs+              (\ x__ y__ -> x__{_InventoryItem'modifiedTimestampMs = y__})++type instance Data.ProtoLens.Field "deletedItemKey" InventoryItem =+     Data.Int.Int64++instance Data.ProtoLens.HasField "deletedItemKey" InventoryItem+         InventoryItem where+        field _+          = Lens.Family2.Unchecked.lens _InventoryItem'deletedItemKey+              (\ x__ y__ -> x__{_InventoryItem'deletedItemKey = y__})++type instance+     Data.ProtoLens.Field "inventoryItemData" InventoryItem =+     Proto.POGOProtos.Inventory.InventoryItemData.InventoryItemData++instance Data.ProtoLens.HasField "inventoryItemData" InventoryItem+         InventoryItem where+        field _+          = (Prelude..) maybe'inventoryItemData+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance+     Data.ProtoLens.Field "maybe'inventoryItemData" InventoryItem =+     Prelude.Maybe+       Proto.POGOProtos.Inventory.InventoryItemData.InventoryItemData++instance Data.ProtoLens.HasField "maybe'inventoryItemData"+         InventoryItem InventoryItem where+        field _+          = Lens.Family2.Unchecked.lens _InventoryItem'inventoryItemData+              (\ x__ y__ -> x__{_InventoryItem'inventoryItemData = y__})++instance Data.Default.Class.Default InventoryItem where+        def+          = InventoryItem{_InventoryItem'modifiedTimestampMs =+                            Data.ProtoLens.fieldDefault,+                          _InventoryItem'deletedItemKey = Data.ProtoLens.fieldDefault,+                          _InventoryItem'inventoryItemData = Prelude.Nothing}++instance Data.ProtoLens.Message InventoryItem where+        descriptor+          = let modifiedTimestampMs__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "modified_timestamp_ms"+                      (Data.ProtoLens.Int64Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         modifiedTimestampMs)+                deletedItemKey__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "deleted_item_key"+                      (Data.ProtoLens.Int64Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional deletedItemKey)+                inventoryItemData__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "inventory_item_data"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Inventory.InventoryItemData.InventoryItemData)+                      (Data.ProtoLens.OptionalField maybe'inventoryItemData)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, modifiedTimestampMs__field_descriptor),+                    (Data.ProtoLens.Tag 2, deletedItemKey__field_descriptor),+                    (Data.ProtoLens.Tag 3, inventoryItemData__field_descriptor)])+                (Data.Map.fromList+                   [("modified_timestamp_ms", modifiedTimestampMs__field_descriptor),+                    ("deleted_item_key", deletedItemKey__field_descriptor),+                    ("inventory_item_data", inventoryItemData__field_descriptor)])++deletedItemKey ::+               forall msg msg' .+                 Data.ProtoLens.HasField "deletedItemKey" msg msg' =>+                 Lens.Family2.Lens msg msg'+                   (Data.ProtoLens.Field "deletedItemKey" msg)+                   (Data.ProtoLens.Field "deletedItemKey" msg')+deletedItemKey+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "deletedItemKey")++inventoryItemData ::+                  forall msg msg' .+                    Data.ProtoLens.HasField "inventoryItemData" msg msg' =>+                    Lens.Family2.Lens msg msg'+                      (Data.ProtoLens.Field "inventoryItemData" msg)+                      (Data.ProtoLens.Field "inventoryItemData" msg')+inventoryItemData+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "inventoryItemData")++maybe'inventoryItemData ::+                        forall msg msg' .+                          Data.ProtoLens.HasField "maybe'inventoryItemData" msg msg' =>+                          Lens.Family2.Lens msg msg'+                            (Data.ProtoLens.Field "maybe'inventoryItemData" msg)+                            (Data.ProtoLens.Field "maybe'inventoryItemData" msg')+maybe'inventoryItemData+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "maybe'inventoryItemData")++modifiedTimestampMs ::+                    forall msg msg' .+                      Data.ProtoLens.HasField "modifiedTimestampMs" msg msg' =>+                      Lens.Family2.Lens msg msg'+                        (Data.ProtoLens.Field "modifiedTimestampMs" msg)+                        (Data.ProtoLens.Field "modifiedTimestampMs" msg')+modifiedTimestampMs+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "modifiedTimestampMs")
+ src/Proto/POGOProtos/Inventory/InventoryItemData.hs view
@@ -0,0 +1,553 @@+{- This file was auto-generated from POGOProtos/Inventory/InventoryItemData.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Inventory.InventoryItemData 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.Player.PlayerCamera+import qualified Proto.POGOProtos.Data.Player.PlayerCurrency+import qualified Proto.POGOProtos.Data.Player.PlayerStats+import qualified Proto.POGOProtos.Data.PokedexEntry+import qualified Proto.POGOProtos.Data.PokemonData+import qualified Proto.POGOProtos.Inventory.AppliedItems+import qualified Proto.POGOProtos.Inventory.Candy+import qualified Proto.POGOProtos.Inventory.EggIncubators+import qualified Proto.POGOProtos.Inventory.InventoryUpgrades+import qualified Proto.POGOProtos.Inventory.Item.ItemData++data InventoryItemData = InventoryItemData{_InventoryItemData'pokemonData+                                           ::+                                           Prelude.Maybe+                                             Proto.POGOProtos.Data.PokemonData.PokemonData,+                                           _InventoryItemData'item ::+                                           Prelude.Maybe+                                             Proto.POGOProtos.Inventory.Item.ItemData.ItemData,+                                           _InventoryItemData'pokedexEntry ::+                                           Prelude.Maybe+                                             Proto.POGOProtos.Data.PokedexEntry.PokedexEntry,+                                           _InventoryItemData'playerStats ::+                                           Prelude.Maybe+                                             Proto.POGOProtos.Data.Player.PlayerStats.PlayerStats,+                                           _InventoryItemData'playerCurrency ::+                                           Prelude.Maybe+                                             Proto.POGOProtos.Data.Player.PlayerCurrency.PlayerCurrency,+                                           _InventoryItemData'playerCamera ::+                                           Prelude.Maybe+                                             Proto.POGOProtos.Data.Player.PlayerCamera.PlayerCamera,+                                           _InventoryItemData'inventoryUpgrades ::+                                           Prelude.Maybe+                                             Proto.POGOProtos.Inventory.InventoryUpgrades.InventoryUpgrades,+                                           _InventoryItemData'appliedItems ::+                                           Prelude.Maybe+                                             Proto.POGOProtos.Inventory.AppliedItems.AppliedItems,+                                           _InventoryItemData'eggIncubators ::+                                           Prelude.Maybe+                                             Proto.POGOProtos.Inventory.EggIncubators.EggIncubators,+                                           _InventoryItemData'candy ::+                                           Prelude.Maybe Proto.POGOProtos.Inventory.Candy.Candy}+                       deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "pokemonData" InventoryItemData+     = Proto.POGOProtos.Data.PokemonData.PokemonData++instance Data.ProtoLens.HasField "pokemonData" InventoryItemData+         InventoryItemData where+        field _+          = (Prelude..) maybe'pokemonData+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance+     Data.ProtoLens.Field "maybe'pokemonData" InventoryItemData =+     Prelude.Maybe Proto.POGOProtos.Data.PokemonData.PokemonData++instance Data.ProtoLens.HasField "maybe'pokemonData"+         InventoryItemData InventoryItemData where+        field _+          = Lens.Family2.Unchecked.lens _InventoryItemData'pokemonData+              (\ x__ y__ -> x__{_InventoryItemData'pokemonData = y__})++type instance Data.ProtoLens.Field "item" InventoryItemData =+     Proto.POGOProtos.Inventory.Item.ItemData.ItemData++instance Data.ProtoLens.HasField "item" InventoryItemData+         InventoryItemData where+        field _+          = (Prelude..) maybe'item+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance Data.ProtoLens.Field "maybe'item" InventoryItemData =+     Prelude.Maybe Proto.POGOProtos.Inventory.Item.ItemData.ItemData++instance Data.ProtoLens.HasField "maybe'item" InventoryItemData+         InventoryItemData where+        field _+          = Lens.Family2.Unchecked.lens _InventoryItemData'item+              (\ x__ y__ -> x__{_InventoryItemData'item = y__})++type instance Data.ProtoLens.Field "pokedexEntry" InventoryItemData+     = Proto.POGOProtos.Data.PokedexEntry.PokedexEntry++instance Data.ProtoLens.HasField "pokedexEntry" InventoryItemData+         InventoryItemData where+        field _+          = (Prelude..) maybe'pokedexEntry+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance+     Data.ProtoLens.Field "maybe'pokedexEntry" InventoryItemData =+     Prelude.Maybe Proto.POGOProtos.Data.PokedexEntry.PokedexEntry++instance Data.ProtoLens.HasField "maybe'pokedexEntry"+         InventoryItemData InventoryItemData where+        field _+          = Lens.Family2.Unchecked.lens _InventoryItemData'pokedexEntry+              (\ x__ y__ -> x__{_InventoryItemData'pokedexEntry = y__})++type instance Data.ProtoLens.Field "playerStats" InventoryItemData+     = Proto.POGOProtos.Data.Player.PlayerStats.PlayerStats++instance Data.ProtoLens.HasField "playerStats" InventoryItemData+         InventoryItemData where+        field _+          = (Prelude..) maybe'playerStats+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance+     Data.ProtoLens.Field "maybe'playerStats" InventoryItemData =+     Prelude.Maybe Proto.POGOProtos.Data.Player.PlayerStats.PlayerStats++instance Data.ProtoLens.HasField "maybe'playerStats"+         InventoryItemData InventoryItemData where+        field _+          = Lens.Family2.Unchecked.lens _InventoryItemData'playerStats+              (\ x__ y__ -> x__{_InventoryItemData'playerStats = y__})++type instance+     Data.ProtoLens.Field "playerCurrency" InventoryItemData =+     Proto.POGOProtos.Data.Player.PlayerCurrency.PlayerCurrency++instance Data.ProtoLens.HasField "playerCurrency" InventoryItemData+         InventoryItemData where+        field _+          = (Prelude..) maybe'playerCurrency+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance+     Data.ProtoLens.Field "maybe'playerCurrency" InventoryItemData =+     Prelude.Maybe+       Proto.POGOProtos.Data.Player.PlayerCurrency.PlayerCurrency++instance Data.ProtoLens.HasField "maybe'playerCurrency"+         InventoryItemData InventoryItemData where+        field _+          = Lens.Family2.Unchecked.lens _InventoryItemData'playerCurrency+              (\ x__ y__ -> x__{_InventoryItemData'playerCurrency = y__})++type instance Data.ProtoLens.Field "playerCamera" InventoryItemData+     = Proto.POGOProtos.Data.Player.PlayerCamera.PlayerCamera++instance Data.ProtoLens.HasField "playerCamera" InventoryItemData+         InventoryItemData where+        field _+          = (Prelude..) maybe'playerCamera+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance+     Data.ProtoLens.Field "maybe'playerCamera" InventoryItemData =+     Prelude.Maybe+       Proto.POGOProtos.Data.Player.PlayerCamera.PlayerCamera++instance Data.ProtoLens.HasField "maybe'playerCamera"+         InventoryItemData InventoryItemData where+        field _+          = Lens.Family2.Unchecked.lens _InventoryItemData'playerCamera+              (\ x__ y__ -> x__{_InventoryItemData'playerCamera = y__})++type instance+     Data.ProtoLens.Field "inventoryUpgrades" InventoryItemData =+     Proto.POGOProtos.Inventory.InventoryUpgrades.InventoryUpgrades++instance Data.ProtoLens.HasField "inventoryUpgrades"+         InventoryItemData InventoryItemData where+        field _+          = (Prelude..) maybe'inventoryUpgrades+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance+     Data.ProtoLens.Field "maybe'inventoryUpgrades" InventoryItemData =+     Prelude.Maybe+       Proto.POGOProtos.Inventory.InventoryUpgrades.InventoryUpgrades++instance Data.ProtoLens.HasField "maybe'inventoryUpgrades"+         InventoryItemData InventoryItemData where+        field _+          = Lens.Family2.Unchecked.lens _InventoryItemData'inventoryUpgrades+              (\ x__ y__ -> x__{_InventoryItemData'inventoryUpgrades = y__})++type instance Data.ProtoLens.Field "appliedItems" InventoryItemData+     = Proto.POGOProtos.Inventory.AppliedItems.AppliedItems++instance Data.ProtoLens.HasField "appliedItems" InventoryItemData+         InventoryItemData where+        field _+          = (Prelude..) maybe'appliedItems+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance+     Data.ProtoLens.Field "maybe'appliedItems" InventoryItemData =+     Prelude.Maybe Proto.POGOProtos.Inventory.AppliedItems.AppliedItems++instance Data.ProtoLens.HasField "maybe'appliedItems"+         InventoryItemData InventoryItemData where+        field _+          = Lens.Family2.Unchecked.lens _InventoryItemData'appliedItems+              (\ x__ y__ -> x__{_InventoryItemData'appliedItems = y__})++type instance+     Data.ProtoLens.Field "eggIncubators" InventoryItemData =+     Proto.POGOProtos.Inventory.EggIncubators.EggIncubators++instance Data.ProtoLens.HasField "eggIncubators" InventoryItemData+         InventoryItemData where+        field _+          = (Prelude..) maybe'eggIncubators+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance+     Data.ProtoLens.Field "maybe'eggIncubators" InventoryItemData =+     Prelude.Maybe+       Proto.POGOProtos.Inventory.EggIncubators.EggIncubators++instance Data.ProtoLens.HasField "maybe'eggIncubators"+         InventoryItemData InventoryItemData where+        field _+          = Lens.Family2.Unchecked.lens _InventoryItemData'eggIncubators+              (\ x__ y__ -> x__{_InventoryItemData'eggIncubators = y__})++type instance Data.ProtoLens.Field "candy" InventoryItemData =+     Proto.POGOProtos.Inventory.Candy.Candy++instance Data.ProtoLens.HasField "candy" InventoryItemData+         InventoryItemData where+        field _+          = (Prelude..) maybe'candy+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance Data.ProtoLens.Field "maybe'candy" InventoryItemData+     = Prelude.Maybe Proto.POGOProtos.Inventory.Candy.Candy++instance Data.ProtoLens.HasField "maybe'candy" InventoryItemData+         InventoryItemData where+        field _+          = Lens.Family2.Unchecked.lens _InventoryItemData'candy+              (\ x__ y__ -> x__{_InventoryItemData'candy = y__})++instance Data.Default.Class.Default InventoryItemData where+        def+          = InventoryItemData{_InventoryItemData'pokemonData =+                                Prelude.Nothing,+                              _InventoryItemData'item = Prelude.Nothing,+                              _InventoryItemData'pokedexEntry = Prelude.Nothing,+                              _InventoryItemData'playerStats = Prelude.Nothing,+                              _InventoryItemData'playerCurrency = Prelude.Nothing,+                              _InventoryItemData'playerCamera = Prelude.Nothing,+                              _InventoryItemData'inventoryUpgrades = Prelude.Nothing,+                              _InventoryItemData'appliedItems = Prelude.Nothing,+                              _InventoryItemData'eggIncubators = Prelude.Nothing,+                              _InventoryItemData'candy = Prelude.Nothing}++instance Data.ProtoLens.Message InventoryItemData where+        descriptor+          = let pokemonData__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "pokemon_data"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Data.PokemonData.PokemonData)+                      (Data.ProtoLens.OptionalField maybe'pokemonData)+                item__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "item"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Inventory.Item.ItemData.ItemData)+                      (Data.ProtoLens.OptionalField maybe'item)+                pokedexEntry__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "pokedex_entry"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Data.PokedexEntry.PokedexEntry)+                      (Data.ProtoLens.OptionalField maybe'pokedexEntry)+                playerStats__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "player_stats"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Data.Player.PlayerStats.PlayerStats)+                      (Data.ProtoLens.OptionalField maybe'playerStats)+                playerCurrency__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "player_currency"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Data.Player.PlayerCurrency.PlayerCurrency)+                      (Data.ProtoLens.OptionalField maybe'playerCurrency)+                playerCamera__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "player_camera"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Data.Player.PlayerCamera.PlayerCamera)+                      (Data.ProtoLens.OptionalField maybe'playerCamera)+                inventoryUpgrades__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "inventory_upgrades"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Inventory.InventoryUpgrades.InventoryUpgrades)+                      (Data.ProtoLens.OptionalField maybe'inventoryUpgrades)+                appliedItems__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "applied_items"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Inventory.AppliedItems.AppliedItems)+                      (Data.ProtoLens.OptionalField maybe'appliedItems)+                eggIncubators__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "egg_incubators"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Inventory.EggIncubators.EggIncubators)+                      (Data.ProtoLens.OptionalField maybe'eggIncubators)+                candy__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "candy"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Inventory.Candy.Candy)+                      (Data.ProtoLens.OptionalField maybe'candy)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, pokemonData__field_descriptor),+                    (Data.ProtoLens.Tag 2, item__field_descriptor),+                    (Data.ProtoLens.Tag 3, pokedexEntry__field_descriptor),+                    (Data.ProtoLens.Tag 4, playerStats__field_descriptor),+                    (Data.ProtoLens.Tag 5, playerCurrency__field_descriptor),+                    (Data.ProtoLens.Tag 6, playerCamera__field_descriptor),+                    (Data.ProtoLens.Tag 7, inventoryUpgrades__field_descriptor),+                    (Data.ProtoLens.Tag 8, appliedItems__field_descriptor),+                    (Data.ProtoLens.Tag 9, eggIncubators__field_descriptor),+                    (Data.ProtoLens.Tag 10, candy__field_descriptor)])+                (Data.Map.fromList+                   [("pokemon_data", pokemonData__field_descriptor),+                    ("item", item__field_descriptor),+                    ("pokedex_entry", pokedexEntry__field_descriptor),+                    ("player_stats", playerStats__field_descriptor),+                    ("player_currency", playerCurrency__field_descriptor),+                    ("player_camera", playerCamera__field_descriptor),+                    ("inventory_upgrades", inventoryUpgrades__field_descriptor),+                    ("applied_items", appliedItems__field_descriptor),+                    ("egg_incubators", eggIncubators__field_descriptor),+                    ("candy", candy__field_descriptor)])++appliedItems ::+             forall msg msg' .+               Data.ProtoLens.HasField "appliedItems" msg msg' =>+               Lens.Family2.Lens msg msg'+                 (Data.ProtoLens.Field "appliedItems" msg)+                 (Data.ProtoLens.Field "appliedItems" msg')+appliedItems+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "appliedItems")++candy ::+      forall msg msg' . Data.ProtoLens.HasField "candy" msg msg' =>+        Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "candy" msg)+          (Data.ProtoLens.Field "candy" msg')+candy+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "candy")++eggIncubators ::+              forall msg msg' .+                Data.ProtoLens.HasField "eggIncubators" msg msg' =>+                Lens.Family2.Lens msg msg'+                  (Data.ProtoLens.Field "eggIncubators" msg)+                  (Data.ProtoLens.Field "eggIncubators" msg')+eggIncubators+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "eggIncubators")++inventoryUpgrades ::+                  forall msg msg' .+                    Data.ProtoLens.HasField "inventoryUpgrades" msg msg' =>+                    Lens.Family2.Lens msg msg'+                      (Data.ProtoLens.Field "inventoryUpgrades" msg)+                      (Data.ProtoLens.Field "inventoryUpgrades" msg')+inventoryUpgrades+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "inventoryUpgrades")++item ::+     forall msg msg' . Data.ProtoLens.HasField "item" msg msg' =>+       Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "item" msg)+         (Data.ProtoLens.Field "item" msg')+item+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "item")++maybe'appliedItems ::+                   forall msg msg' .+                     Data.ProtoLens.HasField "maybe'appliedItems" msg msg' =>+                     Lens.Family2.Lens msg msg'+                       (Data.ProtoLens.Field "maybe'appliedItems" msg)+                       (Data.ProtoLens.Field "maybe'appliedItems" msg')+maybe'appliedItems+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "maybe'appliedItems")++maybe'candy ::+            forall msg msg' . Data.ProtoLens.HasField "maybe'candy" msg msg' =>+              Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "maybe'candy" msg)+                (Data.ProtoLens.Field "maybe'candy" msg')+maybe'candy+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "maybe'candy")++maybe'eggIncubators ::+                    forall msg msg' .+                      Data.ProtoLens.HasField "maybe'eggIncubators" msg msg' =>+                      Lens.Family2.Lens msg msg'+                        (Data.ProtoLens.Field "maybe'eggIncubators" msg)+                        (Data.ProtoLens.Field "maybe'eggIncubators" msg')+maybe'eggIncubators+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "maybe'eggIncubators")++maybe'inventoryUpgrades ::+                        forall msg msg' .+                          Data.ProtoLens.HasField "maybe'inventoryUpgrades" msg msg' =>+                          Lens.Family2.Lens msg msg'+                            (Data.ProtoLens.Field "maybe'inventoryUpgrades" msg)+                            (Data.ProtoLens.Field "maybe'inventoryUpgrades" msg')+maybe'inventoryUpgrades+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "maybe'inventoryUpgrades")++maybe'item ::+           forall msg msg' . Data.ProtoLens.HasField "maybe'item" msg msg' =>+             Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "maybe'item" msg)+               (Data.ProtoLens.Field "maybe'item" msg')+maybe'item+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "maybe'item")++maybe'playerCamera ::+                   forall msg msg' .+                     Data.ProtoLens.HasField "maybe'playerCamera" msg msg' =>+                     Lens.Family2.Lens msg msg'+                       (Data.ProtoLens.Field "maybe'playerCamera" msg)+                       (Data.ProtoLens.Field "maybe'playerCamera" msg')+maybe'playerCamera+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "maybe'playerCamera")++maybe'playerCurrency ::+                     forall msg msg' .+                       Data.ProtoLens.HasField "maybe'playerCurrency" msg msg' =>+                       Lens.Family2.Lens msg msg'+                         (Data.ProtoLens.Field "maybe'playerCurrency" msg)+                         (Data.ProtoLens.Field "maybe'playerCurrency" msg')+maybe'playerCurrency+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "maybe'playerCurrency")++maybe'playerStats ::+                  forall msg msg' .+                    Data.ProtoLens.HasField "maybe'playerStats" msg msg' =>+                    Lens.Family2.Lens msg msg'+                      (Data.ProtoLens.Field "maybe'playerStats" msg)+                      (Data.ProtoLens.Field "maybe'playerStats" msg')+maybe'playerStats+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "maybe'playerStats")++maybe'pokedexEntry ::+                   forall msg msg' .+                     Data.ProtoLens.HasField "maybe'pokedexEntry" msg msg' =>+                     Lens.Family2.Lens msg msg'+                       (Data.ProtoLens.Field "maybe'pokedexEntry" msg)+                       (Data.ProtoLens.Field "maybe'pokedexEntry" msg')+maybe'pokedexEntry+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "maybe'pokedexEntry")++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")++playerCamera ::+             forall msg msg' .+               Data.ProtoLens.HasField "playerCamera" msg msg' =>+               Lens.Family2.Lens msg msg'+                 (Data.ProtoLens.Field "playerCamera" msg)+                 (Data.ProtoLens.Field "playerCamera" msg')+playerCamera+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "playerCamera")++playerCurrency ::+               forall msg msg' .+                 Data.ProtoLens.HasField "playerCurrency" msg msg' =>+                 Lens.Family2.Lens msg msg'+                   (Data.ProtoLens.Field "playerCurrency" msg)+                   (Data.ProtoLens.Field "playerCurrency" msg')+playerCurrency+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "playerCurrency")++playerStats ::+            forall msg msg' . Data.ProtoLens.HasField "playerStats" msg msg' =>+              Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "playerStats" msg)+                (Data.ProtoLens.Field "playerStats" msg')+playerStats+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "playerStats")++pokedexEntry ::+             forall msg msg' .+               Data.ProtoLens.HasField "pokedexEntry" msg msg' =>+               Lens.Family2.Lens msg msg'+                 (Data.ProtoLens.Field "pokedexEntry" msg)+                 (Data.ProtoLens.Field "pokedexEntry" msg')+pokedexEntry+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "pokedexEntry")++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")
+ src/Proto/POGOProtos/Inventory/InventoryUpgrade.hs view
@@ -0,0 +1,118 @@+{- This file was auto-generated from POGOProtos/Inventory/InventoryUpgrade.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Inventory.InventoryUpgrade 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.Inventory.InventoryUpgradeType+import qualified Proto.POGOProtos.Inventory.Item.ItemId++data InventoryUpgrade = InventoryUpgrade{_InventoryUpgrade'itemId+                                         :: Proto.POGOProtos.Inventory.Item.ItemId.ItemId,+                                         _InventoryUpgrade'upgradeType ::+                                         Proto.POGOProtos.Inventory.InventoryUpgradeType.InventoryUpgradeType,+                                         _InventoryUpgrade'additionalStorage :: Data.Int.Int32}+                      deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "itemId" InventoryUpgrade =+     Proto.POGOProtos.Inventory.Item.ItemId.ItemId++instance Data.ProtoLens.HasField "itemId" InventoryUpgrade+         InventoryUpgrade where+        field _+          = Lens.Family2.Unchecked.lens _InventoryUpgrade'itemId+              (\ x__ y__ -> x__{_InventoryUpgrade'itemId = y__})++type instance Data.ProtoLens.Field "upgradeType" InventoryUpgrade =+     Proto.POGOProtos.Inventory.InventoryUpgradeType.InventoryUpgradeType++instance Data.ProtoLens.HasField "upgradeType" InventoryUpgrade+         InventoryUpgrade where+        field _+          = Lens.Family2.Unchecked.lens _InventoryUpgrade'upgradeType+              (\ x__ y__ -> x__{_InventoryUpgrade'upgradeType = y__})++type instance+     Data.ProtoLens.Field "additionalStorage" InventoryUpgrade =+     Data.Int.Int32++instance Data.ProtoLens.HasField "additionalStorage"+         InventoryUpgrade InventoryUpgrade where+        field _+          = Lens.Family2.Unchecked.lens _InventoryUpgrade'additionalStorage+              (\ x__ y__ -> x__{_InventoryUpgrade'additionalStorage = y__})++instance Data.Default.Class.Default InventoryUpgrade where+        def+          = InventoryUpgrade{_InventoryUpgrade'itemId =+                               Data.Default.Class.def,+                             _InventoryUpgrade'upgradeType = Data.Default.Class.def,+                             _InventoryUpgrade'additionalStorage = Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message InventoryUpgrade where+        descriptor+          = let itemId__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "item_id"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Inventory.Item.ItemId.ItemId)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional itemId)+                upgradeType__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "upgrade_type"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Inventory.InventoryUpgradeType.InventoryUpgradeType)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional upgradeType)+                additionalStorage__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "additional_storage"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         additionalStorage)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, itemId__field_descriptor),+                    (Data.ProtoLens.Tag 2, upgradeType__field_descriptor),+                    (Data.ProtoLens.Tag 3, additionalStorage__field_descriptor)])+                (Data.Map.fromList+                   [("item_id", itemId__field_descriptor),+                    ("upgrade_type", upgradeType__field_descriptor),+                    ("additional_storage", additionalStorage__field_descriptor)])++additionalStorage ::+                  forall msg msg' .+                    Data.ProtoLens.HasField "additionalStorage" msg msg' =>+                    Lens.Family2.Lens msg msg'+                      (Data.ProtoLens.Field "additionalStorage" msg)+                      (Data.ProtoLens.Field "additionalStorage" msg')+additionalStorage+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "additionalStorage")++itemId ::+       forall msg msg' . Data.ProtoLens.HasField "itemId" msg msg' =>+         Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "itemId" msg)+           (Data.ProtoLens.Field "itemId" msg')+itemId+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "itemId")++upgradeType ::+            forall msg msg' . Data.ProtoLens.HasField "upgradeType" msg msg' =>+              Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "upgradeType" msg)+                (Data.ProtoLens.Field "upgradeType" msg')+upgradeType+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "upgradeType")
+ src/Proto/POGOProtos/Inventory/InventoryUpgradeType.hs view
@@ -0,0 +1,73 @@+{- This file was auto-generated from POGOProtos/Inventory/InventoryUpgradeType.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+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
+ src/Proto/POGOProtos/Inventory/InventoryUpgrades.hs view
@@ -0,0 +1,62 @@+{- This file was auto-generated from POGOProtos/Inventory/InventoryUpgrades.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Inventory.InventoryUpgrades 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.Inventory.InventoryUpgrade++data InventoryUpgrades = InventoryUpgrades{_InventoryUpgrades'inventoryUpgrades+                                           ::+                                           [Proto.POGOProtos.Inventory.InventoryUpgrade.InventoryUpgrade]}+                       deriving (Prelude.Show, Prelude.Eq)++type instance+     Data.ProtoLens.Field "inventoryUpgrades" InventoryUpgrades =+     [Proto.POGOProtos.Inventory.InventoryUpgrade.InventoryUpgrade]++instance Data.ProtoLens.HasField "inventoryUpgrades"+         InventoryUpgrades InventoryUpgrades where+        field _+          = Lens.Family2.Unchecked.lens _InventoryUpgrades'inventoryUpgrades+              (\ x__ y__ -> x__{_InventoryUpgrades'inventoryUpgrades = y__})++instance Data.Default.Class.Default InventoryUpgrades where+        def = InventoryUpgrades{_InventoryUpgrades'inventoryUpgrades = []}++instance Data.ProtoLens.Message InventoryUpgrades where+        descriptor+          = let inventoryUpgrades__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "inventory_upgrades"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Inventory.InventoryUpgrade.InventoryUpgrade)+                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked+                         inventoryUpgrades)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, inventoryUpgrades__field_descriptor)])+                (Data.Map.fromList+                   [("inventory_upgrades", inventoryUpgrades__field_descriptor)])++inventoryUpgrades ::+                  forall msg msg' .+                    Data.ProtoLens.HasField "inventoryUpgrades" msg msg' =>+                    Lens.Family2.Lens msg msg'+                      (Data.ProtoLens.Field "inventoryUpgrades" msg)+                      (Data.ProtoLens.Field "inventoryUpgrades" msg')+inventoryUpgrades+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "inventoryUpgrades")
+ src/Proto/POGOProtos/Inventory/Item/ItemAward.hs view
@@ -0,0 +1,82 @@+{- This file was auto-generated from POGOProtos/Inventory/Item/ItemAward.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Inventory.Item.ItemAward 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.Inventory.Item.ItemId++data ItemAward = ItemAward{_ItemAward'itemId ::+                           Proto.POGOProtos.Inventory.Item.ItemId.ItemId,+                           _ItemAward'itemCount :: Data.Int.Int32}+               deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "itemId" ItemAward =+     Proto.POGOProtos.Inventory.Item.ItemId.ItemId++instance Data.ProtoLens.HasField "itemId" ItemAward ItemAward where+        field _+          = Lens.Family2.Unchecked.lens _ItemAward'itemId+              (\ x__ y__ -> x__{_ItemAward'itemId = y__})++type instance Data.ProtoLens.Field "itemCount" ItemAward =+     Data.Int.Int32++instance Data.ProtoLens.HasField "itemCount" ItemAward ItemAward+         where+        field _+          = Lens.Family2.Unchecked.lens _ItemAward'itemCount+              (\ x__ y__ -> x__{_ItemAward'itemCount = y__})++instance Data.Default.Class.Default ItemAward where+        def+          = ItemAward{_ItemAward'itemId = Data.Default.Class.def,+                      _ItemAward'itemCount = Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message ItemAward where+        descriptor+          = let itemId__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "item_id"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Inventory.Item.ItemId.ItemId)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional itemId)+                itemCount__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "item_count"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional itemCount)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, itemId__field_descriptor),+                    (Data.ProtoLens.Tag 2, itemCount__field_descriptor)])+                (Data.Map.fromList+                   [("item_id", itemId__field_descriptor),+                    ("item_count", itemCount__field_descriptor)])++itemCount ::+          forall msg msg' . Data.ProtoLens.HasField "itemCount" msg msg' =>+            Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "itemCount" msg)+              (Data.ProtoLens.Field "itemCount" msg')+itemCount+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "itemCount")++itemId ::+       forall msg msg' . Data.ProtoLens.HasField "itemId" msg msg' =>+         Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "itemId" msg)+           (Data.ProtoLens.Field "itemId" msg')+itemId+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "itemId")
+ src/Proto/POGOProtos/Inventory/Item/ItemData.hs view
@@ -0,0 +1,105 @@+{- This file was auto-generated from POGOProtos/Inventory/Item/ItemData.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Inventory.Item.ItemData 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.Inventory.Item.ItemId++data ItemData = ItemData{_ItemData'itemId ::+                         Proto.POGOProtos.Inventory.Item.ItemId.ItemId,+                         _ItemData'count :: Data.Int.Int32,+                         _ItemData'unseen :: Prelude.Bool}+              deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "itemId" ItemData =+     Proto.POGOProtos.Inventory.Item.ItemId.ItemId++instance Data.ProtoLens.HasField "itemId" ItemData ItemData where+        field _+          = Lens.Family2.Unchecked.lens _ItemData'itemId+              (\ x__ y__ -> x__{_ItemData'itemId = y__})++type instance Data.ProtoLens.Field "count" ItemData =+     Data.Int.Int32++instance Data.ProtoLens.HasField "count" ItemData ItemData where+        field _+          = Lens.Family2.Unchecked.lens _ItemData'count+              (\ x__ y__ -> x__{_ItemData'count = y__})++type instance Data.ProtoLens.Field "unseen" ItemData = Prelude.Bool++instance Data.ProtoLens.HasField "unseen" ItemData ItemData where+        field _+          = Lens.Family2.Unchecked.lens _ItemData'unseen+              (\ x__ y__ -> x__{_ItemData'unseen = y__})++instance Data.Default.Class.Default ItemData where+        def+          = ItemData{_ItemData'itemId = Data.Default.Class.def,+                     _ItemData'count = Data.ProtoLens.fieldDefault,+                     _ItemData'unseen = Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message ItemData where+        descriptor+          = let itemId__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "item_id"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Inventory.Item.ItemId.ItemId)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional itemId)+                count__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "count"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional count)+                unseen__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "unseen"+                      (Data.ProtoLens.BoolField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional unseen)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, itemId__field_descriptor),+                    (Data.ProtoLens.Tag 2, count__field_descriptor),+                    (Data.ProtoLens.Tag 3, unseen__field_descriptor)])+                (Data.Map.fromList+                   [("item_id", itemId__field_descriptor),+                    ("count", count__field_descriptor),+                    ("unseen", unseen__field_descriptor)])++count ::+      forall msg msg' . Data.ProtoLens.HasField "count" msg msg' =>+        Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "count" msg)+          (Data.ProtoLens.Field "count" msg')+count+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "count")++itemId ::+       forall msg msg' . Data.ProtoLens.HasField "itemId" msg msg' =>+         Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "itemId" msg)+           (Data.ProtoLens.Field "itemId" msg')+itemId+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "itemId")++unseen ::+       forall msg msg' . Data.ProtoLens.HasField "unseen" msg msg' =>+         Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "unseen" msg)+           (Data.ProtoLens.Field "unseen" msg')+unseen+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "unseen")
+ src/Proto/POGOProtos/Inventory/Item/ItemId.hs view
@@ -0,0 +1,265 @@+{- This file was auto-generated from POGOProtos/Inventory/Item/ItemId.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Inventory.Item.ItemId 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 ItemId = ITEM_UNKNOWN+            | ITEM_POKE_BALL+            | ITEM_GREAT_BALL+            | ITEM_ULTRA_BALL+            | ITEM_MASTER_BALL+            | ITEM_POTION+            | ITEM_SUPER_POTION+            | ITEM_HYPER_POTION+            | ITEM_MAX_POTION+            | ITEM_REVIVE+            | ITEM_MAX_REVIVE+            | ITEM_LUCKY_EGG+            | ITEM_INCENSE_ORDINARY+            | ITEM_INCENSE_SPICY+            | ITEM_INCENSE_COOL+            | ITEM_INCENSE_FLORAL+            | ITEM_TROY_DISK+            | ITEM_X_ATTACK+            | ITEM_X_DEFENSE+            | ITEM_X_MIRACLE+            | ITEM_RAZZ_BERRY+            | ITEM_BLUK_BERRY+            | ITEM_NANAB_BERRY+            | ITEM_WEPAR_BERRY+            | ITEM_PINAP_BERRY+            | ITEM_SPECIAL_CAMERA+            | ITEM_INCUBATOR_BASIC_UNLIMITED+            | ITEM_INCUBATOR_BASIC+            | ITEM_POKEMON_STORAGE_UPGRADE+            | ITEM_ITEM_STORAGE_UPGRADE+            deriving (Prelude.Show, Prelude.Eq)++instance Data.Default.Class.Default ItemId where+        def = ITEM_UNKNOWN++instance Data.ProtoLens.FieldDefault ItemId where+        fieldDefault = ITEM_UNKNOWN++instance Data.ProtoLens.MessageEnum ItemId where+        maybeToEnum 0 = Prelude.Just ITEM_UNKNOWN+        maybeToEnum 1 = Prelude.Just ITEM_POKE_BALL+        maybeToEnum 2 = Prelude.Just ITEM_GREAT_BALL+        maybeToEnum 3 = Prelude.Just ITEM_ULTRA_BALL+        maybeToEnum 4 = Prelude.Just ITEM_MASTER_BALL+        maybeToEnum 101 = Prelude.Just ITEM_POTION+        maybeToEnum 102 = Prelude.Just ITEM_SUPER_POTION+        maybeToEnum 103 = Prelude.Just ITEM_HYPER_POTION+        maybeToEnum 104 = Prelude.Just ITEM_MAX_POTION+        maybeToEnum 201 = Prelude.Just ITEM_REVIVE+        maybeToEnum 202 = Prelude.Just ITEM_MAX_REVIVE+        maybeToEnum 301 = Prelude.Just ITEM_LUCKY_EGG+        maybeToEnum 401 = Prelude.Just ITEM_INCENSE_ORDINARY+        maybeToEnum 402 = Prelude.Just ITEM_INCENSE_SPICY+        maybeToEnum 403 = Prelude.Just ITEM_INCENSE_COOL+        maybeToEnum 404 = Prelude.Just ITEM_INCENSE_FLORAL+        maybeToEnum 501 = Prelude.Just ITEM_TROY_DISK+        maybeToEnum 602 = Prelude.Just ITEM_X_ATTACK+        maybeToEnum 603 = Prelude.Just ITEM_X_DEFENSE+        maybeToEnum 604 = Prelude.Just ITEM_X_MIRACLE+        maybeToEnum 701 = Prelude.Just ITEM_RAZZ_BERRY+        maybeToEnum 702 = Prelude.Just ITEM_BLUK_BERRY+        maybeToEnum 703 = Prelude.Just ITEM_NANAB_BERRY+        maybeToEnum 704 = Prelude.Just ITEM_WEPAR_BERRY+        maybeToEnum 705 = Prelude.Just ITEM_PINAP_BERRY+        maybeToEnum 801 = Prelude.Just ITEM_SPECIAL_CAMERA+        maybeToEnum 901 = Prelude.Just ITEM_INCUBATOR_BASIC_UNLIMITED+        maybeToEnum 902 = Prelude.Just ITEM_INCUBATOR_BASIC+        maybeToEnum 1001 = Prelude.Just ITEM_POKEMON_STORAGE_UPGRADE+        maybeToEnum 1002 = Prelude.Just ITEM_ITEM_STORAGE_UPGRADE+        maybeToEnum _ = Prelude.Nothing+        showEnum ITEM_UNKNOWN = "ITEM_UNKNOWN"+        showEnum ITEM_POKE_BALL = "ITEM_POKE_BALL"+        showEnum ITEM_GREAT_BALL = "ITEM_GREAT_BALL"+        showEnum ITEM_ULTRA_BALL = "ITEM_ULTRA_BALL"+        showEnum ITEM_MASTER_BALL = "ITEM_MASTER_BALL"+        showEnum ITEM_POTION = "ITEM_POTION"+        showEnum ITEM_SUPER_POTION = "ITEM_SUPER_POTION"+        showEnum ITEM_HYPER_POTION = "ITEM_HYPER_POTION"+        showEnum ITEM_MAX_POTION = "ITEM_MAX_POTION"+        showEnum ITEM_REVIVE = "ITEM_REVIVE"+        showEnum ITEM_MAX_REVIVE = "ITEM_MAX_REVIVE"+        showEnum ITEM_LUCKY_EGG = "ITEM_LUCKY_EGG"+        showEnum ITEM_INCENSE_ORDINARY = "ITEM_INCENSE_ORDINARY"+        showEnum ITEM_INCENSE_SPICY = "ITEM_INCENSE_SPICY"+        showEnum ITEM_INCENSE_COOL = "ITEM_INCENSE_COOL"+        showEnum ITEM_INCENSE_FLORAL = "ITEM_INCENSE_FLORAL"+        showEnum ITEM_TROY_DISK = "ITEM_TROY_DISK"+        showEnum ITEM_X_ATTACK = "ITEM_X_ATTACK"+        showEnum ITEM_X_DEFENSE = "ITEM_X_DEFENSE"+        showEnum ITEM_X_MIRACLE = "ITEM_X_MIRACLE"+        showEnum ITEM_RAZZ_BERRY = "ITEM_RAZZ_BERRY"+        showEnum ITEM_BLUK_BERRY = "ITEM_BLUK_BERRY"+        showEnum ITEM_NANAB_BERRY = "ITEM_NANAB_BERRY"+        showEnum ITEM_WEPAR_BERRY = "ITEM_WEPAR_BERRY"+        showEnum ITEM_PINAP_BERRY = "ITEM_PINAP_BERRY"+        showEnum ITEM_SPECIAL_CAMERA = "ITEM_SPECIAL_CAMERA"+        showEnum ITEM_INCUBATOR_BASIC_UNLIMITED+          = "ITEM_INCUBATOR_BASIC_UNLIMITED"+        showEnum ITEM_INCUBATOR_BASIC = "ITEM_INCUBATOR_BASIC"+        showEnum ITEM_POKEMON_STORAGE_UPGRADE+          = "ITEM_POKEMON_STORAGE_UPGRADE"+        showEnum ITEM_ITEM_STORAGE_UPGRADE = "ITEM_ITEM_STORAGE_UPGRADE"+        readEnum "ITEM_UNKNOWN" = Prelude.Just ITEM_UNKNOWN+        readEnum "ITEM_POKE_BALL" = Prelude.Just ITEM_POKE_BALL+        readEnum "ITEM_GREAT_BALL" = Prelude.Just ITEM_GREAT_BALL+        readEnum "ITEM_ULTRA_BALL" = Prelude.Just ITEM_ULTRA_BALL+        readEnum "ITEM_MASTER_BALL" = Prelude.Just ITEM_MASTER_BALL+        readEnum "ITEM_POTION" = Prelude.Just ITEM_POTION+        readEnum "ITEM_SUPER_POTION" = Prelude.Just ITEM_SUPER_POTION+        readEnum "ITEM_HYPER_POTION" = Prelude.Just ITEM_HYPER_POTION+        readEnum "ITEM_MAX_POTION" = Prelude.Just ITEM_MAX_POTION+        readEnum "ITEM_REVIVE" = Prelude.Just ITEM_REVIVE+        readEnum "ITEM_MAX_REVIVE" = Prelude.Just ITEM_MAX_REVIVE+        readEnum "ITEM_LUCKY_EGG" = Prelude.Just ITEM_LUCKY_EGG+        readEnum "ITEM_INCENSE_ORDINARY"+          = Prelude.Just ITEM_INCENSE_ORDINARY+        readEnum "ITEM_INCENSE_SPICY" = Prelude.Just ITEM_INCENSE_SPICY+        readEnum "ITEM_INCENSE_COOL" = Prelude.Just ITEM_INCENSE_COOL+        readEnum "ITEM_INCENSE_FLORAL" = Prelude.Just ITEM_INCENSE_FLORAL+        readEnum "ITEM_TROY_DISK" = Prelude.Just ITEM_TROY_DISK+        readEnum "ITEM_X_ATTACK" = Prelude.Just ITEM_X_ATTACK+        readEnum "ITEM_X_DEFENSE" = Prelude.Just ITEM_X_DEFENSE+        readEnum "ITEM_X_MIRACLE" = Prelude.Just ITEM_X_MIRACLE+        readEnum "ITEM_RAZZ_BERRY" = Prelude.Just ITEM_RAZZ_BERRY+        readEnum "ITEM_BLUK_BERRY" = Prelude.Just ITEM_BLUK_BERRY+        readEnum "ITEM_NANAB_BERRY" = Prelude.Just ITEM_NANAB_BERRY+        readEnum "ITEM_WEPAR_BERRY" = Prelude.Just ITEM_WEPAR_BERRY+        readEnum "ITEM_PINAP_BERRY" = Prelude.Just ITEM_PINAP_BERRY+        readEnum "ITEM_SPECIAL_CAMERA" = Prelude.Just ITEM_SPECIAL_CAMERA+        readEnum "ITEM_INCUBATOR_BASIC_UNLIMITED"+          = Prelude.Just ITEM_INCUBATOR_BASIC_UNLIMITED+        readEnum "ITEM_INCUBATOR_BASIC" = Prelude.Just ITEM_INCUBATOR_BASIC+        readEnum "ITEM_POKEMON_STORAGE_UPGRADE"+          = Prelude.Just ITEM_POKEMON_STORAGE_UPGRADE+        readEnum "ITEM_ITEM_STORAGE_UPGRADE"+          = Prelude.Just ITEM_ITEM_STORAGE_UPGRADE+        readEnum _ = Prelude.Nothing++instance Prelude.Enum ItemId where+        toEnum k__+          = Prelude.maybe+              (Prelude.error+                 ((Prelude.++) "toEnum: unknown value for enum ItemId: "+                    (Prelude.show k__)))+              Prelude.id+              (Data.ProtoLens.maybeToEnum k__)+        fromEnum ITEM_UNKNOWN = 0+        fromEnum ITEM_POKE_BALL = 1+        fromEnum ITEM_GREAT_BALL = 2+        fromEnum ITEM_ULTRA_BALL = 3+        fromEnum ITEM_MASTER_BALL = 4+        fromEnum ITEM_POTION = 101+        fromEnum ITEM_SUPER_POTION = 102+        fromEnum ITEM_HYPER_POTION = 103+        fromEnum ITEM_MAX_POTION = 104+        fromEnum ITEM_REVIVE = 201+        fromEnum ITEM_MAX_REVIVE = 202+        fromEnum ITEM_LUCKY_EGG = 301+        fromEnum ITEM_INCENSE_ORDINARY = 401+        fromEnum ITEM_INCENSE_SPICY = 402+        fromEnum ITEM_INCENSE_COOL = 403+        fromEnum ITEM_INCENSE_FLORAL = 404+        fromEnum ITEM_TROY_DISK = 501+        fromEnum ITEM_X_ATTACK = 602+        fromEnum ITEM_X_DEFENSE = 603+        fromEnum ITEM_X_MIRACLE = 604+        fromEnum ITEM_RAZZ_BERRY = 701+        fromEnum ITEM_BLUK_BERRY = 702+        fromEnum ITEM_NANAB_BERRY = 703+        fromEnum ITEM_WEPAR_BERRY = 704+        fromEnum ITEM_PINAP_BERRY = 705+        fromEnum ITEM_SPECIAL_CAMERA = 801+        fromEnum ITEM_INCUBATOR_BASIC_UNLIMITED = 901+        fromEnum ITEM_INCUBATOR_BASIC = 902+        fromEnum ITEM_POKEMON_STORAGE_UPGRADE = 1001+        fromEnum ITEM_ITEM_STORAGE_UPGRADE = 1002+        succ ITEM_ITEM_STORAGE_UPGRADE+          = Prelude.error+              "Ident \"ItemId\".Ident \"succ\": bad argument Ident \"ITEM_ITEM_STORAGE_UPGRADE\". This value would be out of bounds."+        succ ITEM_UNKNOWN = ITEM_POKE_BALL+        succ ITEM_POKE_BALL = ITEM_GREAT_BALL+        succ ITEM_GREAT_BALL = ITEM_ULTRA_BALL+        succ ITEM_ULTRA_BALL = ITEM_MASTER_BALL+        succ ITEM_MASTER_BALL = ITEM_POTION+        succ ITEM_POTION = ITEM_SUPER_POTION+        succ ITEM_SUPER_POTION = ITEM_HYPER_POTION+        succ ITEM_HYPER_POTION = ITEM_MAX_POTION+        succ ITEM_MAX_POTION = ITEM_REVIVE+        succ ITEM_REVIVE = ITEM_MAX_REVIVE+        succ ITEM_MAX_REVIVE = ITEM_LUCKY_EGG+        succ ITEM_LUCKY_EGG = ITEM_INCENSE_ORDINARY+        succ ITEM_INCENSE_ORDINARY = ITEM_INCENSE_SPICY+        succ ITEM_INCENSE_SPICY = ITEM_INCENSE_COOL+        succ ITEM_INCENSE_COOL = ITEM_INCENSE_FLORAL+        succ ITEM_INCENSE_FLORAL = ITEM_TROY_DISK+        succ ITEM_TROY_DISK = ITEM_X_ATTACK+        succ ITEM_X_ATTACK = ITEM_X_DEFENSE+        succ ITEM_X_DEFENSE = ITEM_X_MIRACLE+        succ ITEM_X_MIRACLE = ITEM_RAZZ_BERRY+        succ ITEM_RAZZ_BERRY = ITEM_BLUK_BERRY+        succ ITEM_BLUK_BERRY = ITEM_NANAB_BERRY+        succ ITEM_NANAB_BERRY = ITEM_WEPAR_BERRY+        succ ITEM_WEPAR_BERRY = ITEM_PINAP_BERRY+        succ ITEM_PINAP_BERRY = ITEM_SPECIAL_CAMERA+        succ ITEM_SPECIAL_CAMERA = ITEM_INCUBATOR_BASIC_UNLIMITED+        succ ITEM_INCUBATOR_BASIC_UNLIMITED = ITEM_INCUBATOR_BASIC+        succ ITEM_INCUBATOR_BASIC = ITEM_POKEMON_STORAGE_UPGRADE+        succ ITEM_POKEMON_STORAGE_UPGRADE = ITEM_ITEM_STORAGE_UPGRADE+        pred ITEM_UNKNOWN+          = Prelude.error+              "Ident \"ItemId\".Ident \"pred\": bad argument Ident \"ITEM_UNKNOWN\". This value would be out of bounds."+        pred ITEM_POKE_BALL = ITEM_UNKNOWN+        pred ITEM_GREAT_BALL = ITEM_POKE_BALL+        pred ITEM_ULTRA_BALL = ITEM_GREAT_BALL+        pred ITEM_MASTER_BALL = ITEM_ULTRA_BALL+        pred ITEM_POTION = ITEM_MASTER_BALL+        pred ITEM_SUPER_POTION = ITEM_POTION+        pred ITEM_HYPER_POTION = ITEM_SUPER_POTION+        pred ITEM_MAX_POTION = ITEM_HYPER_POTION+        pred ITEM_REVIVE = ITEM_MAX_POTION+        pred ITEM_MAX_REVIVE = ITEM_REVIVE+        pred ITEM_LUCKY_EGG = ITEM_MAX_REVIVE+        pred ITEM_INCENSE_ORDINARY = ITEM_LUCKY_EGG+        pred ITEM_INCENSE_SPICY = ITEM_INCENSE_ORDINARY+        pred ITEM_INCENSE_COOL = ITEM_INCENSE_SPICY+        pred ITEM_INCENSE_FLORAL = ITEM_INCENSE_COOL+        pred ITEM_TROY_DISK = ITEM_INCENSE_FLORAL+        pred ITEM_X_ATTACK = ITEM_TROY_DISK+        pred ITEM_X_DEFENSE = ITEM_X_ATTACK+        pred ITEM_X_MIRACLE = ITEM_X_DEFENSE+        pred ITEM_RAZZ_BERRY = ITEM_X_MIRACLE+        pred ITEM_BLUK_BERRY = ITEM_RAZZ_BERRY+        pred ITEM_NANAB_BERRY = ITEM_BLUK_BERRY+        pred ITEM_WEPAR_BERRY = ITEM_NANAB_BERRY+        pred ITEM_PINAP_BERRY = ITEM_WEPAR_BERRY+        pred ITEM_SPECIAL_CAMERA = ITEM_PINAP_BERRY+        pred ITEM_INCUBATOR_BASIC_UNLIMITED = ITEM_SPECIAL_CAMERA+        pred ITEM_INCUBATOR_BASIC = ITEM_INCUBATOR_BASIC_UNLIMITED+        pred ITEM_POKEMON_STORAGE_UPGRADE = ITEM_INCUBATOR_BASIC+        pred ITEM_ITEM_STORAGE_UPGRADE = ITEM_POKEMON_STORAGE_UPGRADE+        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 ItemId where+        minBound = ITEM_UNKNOWN+        maxBound = ITEM_ITEM_STORAGE_UPGRADE
+ src/Proto/POGOProtos/Inventory/Item/ItemType.hs view
@@ -0,0 +1,142 @@+{- This file was auto-generated from POGOProtos/Inventory/Item/ItemType.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Inventory.Item.ItemType 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 ItemType = ITEM_TYPE_NONE+              | ITEM_TYPE_POKEBALL+              | ITEM_TYPE_POTION+              | ITEM_TYPE_REVIVE+              | ITEM_TYPE_MAP+              | ITEM_TYPE_BATTLE+              | ITEM_TYPE_FOOD+              | ITEM_TYPE_CAMERA+              | ITEM_TYPE_DISK+              | ITEM_TYPE_INCUBATOR+              | ITEM_TYPE_INCENSE+              | ITEM_TYPE_XP_BOOST+              | ITEM_TYPE_INVENTORY_UPGRADE+              deriving (Prelude.Show, Prelude.Eq)++instance Data.Default.Class.Default ItemType where+        def = ITEM_TYPE_NONE++instance Data.ProtoLens.FieldDefault ItemType where+        fieldDefault = ITEM_TYPE_NONE++instance Data.ProtoLens.MessageEnum ItemType where+        maybeToEnum 0 = Prelude.Just ITEM_TYPE_NONE+        maybeToEnum 1 = Prelude.Just ITEM_TYPE_POKEBALL+        maybeToEnum 2 = Prelude.Just ITEM_TYPE_POTION+        maybeToEnum 3 = Prelude.Just ITEM_TYPE_REVIVE+        maybeToEnum 4 = Prelude.Just ITEM_TYPE_MAP+        maybeToEnum 5 = Prelude.Just ITEM_TYPE_BATTLE+        maybeToEnum 6 = Prelude.Just ITEM_TYPE_FOOD+        maybeToEnum 7 = Prelude.Just ITEM_TYPE_CAMERA+        maybeToEnum 8 = Prelude.Just ITEM_TYPE_DISK+        maybeToEnum 9 = Prelude.Just ITEM_TYPE_INCUBATOR+        maybeToEnum 10 = Prelude.Just ITEM_TYPE_INCENSE+        maybeToEnum 11 = Prelude.Just ITEM_TYPE_XP_BOOST+        maybeToEnum 12 = Prelude.Just ITEM_TYPE_INVENTORY_UPGRADE+        maybeToEnum _ = Prelude.Nothing+        showEnum ITEM_TYPE_NONE = "ITEM_TYPE_NONE"+        showEnum ITEM_TYPE_POKEBALL = "ITEM_TYPE_POKEBALL"+        showEnum ITEM_TYPE_POTION = "ITEM_TYPE_POTION"+        showEnum ITEM_TYPE_REVIVE = "ITEM_TYPE_REVIVE"+        showEnum ITEM_TYPE_MAP = "ITEM_TYPE_MAP"+        showEnum ITEM_TYPE_BATTLE = "ITEM_TYPE_BATTLE"+        showEnum ITEM_TYPE_FOOD = "ITEM_TYPE_FOOD"+        showEnum ITEM_TYPE_CAMERA = "ITEM_TYPE_CAMERA"+        showEnum ITEM_TYPE_DISK = "ITEM_TYPE_DISK"+        showEnum ITEM_TYPE_INCUBATOR = "ITEM_TYPE_INCUBATOR"+        showEnum ITEM_TYPE_INCENSE = "ITEM_TYPE_INCENSE"+        showEnum ITEM_TYPE_XP_BOOST = "ITEM_TYPE_XP_BOOST"+        showEnum ITEM_TYPE_INVENTORY_UPGRADE+          = "ITEM_TYPE_INVENTORY_UPGRADE"+        readEnum "ITEM_TYPE_NONE" = Prelude.Just ITEM_TYPE_NONE+        readEnum "ITEM_TYPE_POKEBALL" = Prelude.Just ITEM_TYPE_POKEBALL+        readEnum "ITEM_TYPE_POTION" = Prelude.Just ITEM_TYPE_POTION+        readEnum "ITEM_TYPE_REVIVE" = Prelude.Just ITEM_TYPE_REVIVE+        readEnum "ITEM_TYPE_MAP" = Prelude.Just ITEM_TYPE_MAP+        readEnum "ITEM_TYPE_BATTLE" = Prelude.Just ITEM_TYPE_BATTLE+        readEnum "ITEM_TYPE_FOOD" = Prelude.Just ITEM_TYPE_FOOD+        readEnum "ITEM_TYPE_CAMERA" = Prelude.Just ITEM_TYPE_CAMERA+        readEnum "ITEM_TYPE_DISK" = Prelude.Just ITEM_TYPE_DISK+        readEnum "ITEM_TYPE_INCUBATOR" = Prelude.Just ITEM_TYPE_INCUBATOR+        readEnum "ITEM_TYPE_INCENSE" = Prelude.Just ITEM_TYPE_INCENSE+        readEnum "ITEM_TYPE_XP_BOOST" = Prelude.Just ITEM_TYPE_XP_BOOST+        readEnum "ITEM_TYPE_INVENTORY_UPGRADE"+          = Prelude.Just ITEM_TYPE_INVENTORY_UPGRADE+        readEnum _ = Prelude.Nothing++instance Prelude.Enum ItemType where+        toEnum k__+          = Prelude.maybe+              (Prelude.error+                 ((Prelude.++) "toEnum: unknown value for enum ItemType: "+                    (Prelude.show k__)))+              Prelude.id+              (Data.ProtoLens.maybeToEnum k__)+        fromEnum ITEM_TYPE_NONE = 0+        fromEnum ITEM_TYPE_POKEBALL = 1+        fromEnum ITEM_TYPE_POTION = 2+        fromEnum ITEM_TYPE_REVIVE = 3+        fromEnum ITEM_TYPE_MAP = 4+        fromEnum ITEM_TYPE_BATTLE = 5+        fromEnum ITEM_TYPE_FOOD = 6+        fromEnum ITEM_TYPE_CAMERA = 7+        fromEnum ITEM_TYPE_DISK = 8+        fromEnum ITEM_TYPE_INCUBATOR = 9+        fromEnum ITEM_TYPE_INCENSE = 10+        fromEnum ITEM_TYPE_XP_BOOST = 11+        fromEnum ITEM_TYPE_INVENTORY_UPGRADE = 12+        succ ITEM_TYPE_INVENTORY_UPGRADE+          = Prelude.error+              "Ident \"ItemType\".Ident \"succ\": bad argument Ident \"ITEM_TYPE_INVENTORY_UPGRADE\". This value would be out of bounds."+        succ ITEM_TYPE_NONE = ITEM_TYPE_POKEBALL+        succ ITEM_TYPE_POKEBALL = ITEM_TYPE_POTION+        succ ITEM_TYPE_POTION = ITEM_TYPE_REVIVE+        succ ITEM_TYPE_REVIVE = ITEM_TYPE_MAP+        succ ITEM_TYPE_MAP = ITEM_TYPE_BATTLE+        succ ITEM_TYPE_BATTLE = ITEM_TYPE_FOOD+        succ ITEM_TYPE_FOOD = ITEM_TYPE_CAMERA+        succ ITEM_TYPE_CAMERA = ITEM_TYPE_DISK+        succ ITEM_TYPE_DISK = ITEM_TYPE_INCUBATOR+        succ ITEM_TYPE_INCUBATOR = ITEM_TYPE_INCENSE+        succ ITEM_TYPE_INCENSE = ITEM_TYPE_XP_BOOST+        succ ITEM_TYPE_XP_BOOST = ITEM_TYPE_INVENTORY_UPGRADE+        pred ITEM_TYPE_NONE+          = Prelude.error+              "Ident \"ItemType\".Ident \"pred\": bad argument Ident \"ITEM_TYPE_NONE\". This value would be out of bounds."+        pred ITEM_TYPE_POKEBALL = ITEM_TYPE_NONE+        pred ITEM_TYPE_POTION = ITEM_TYPE_POKEBALL+        pred ITEM_TYPE_REVIVE = ITEM_TYPE_POTION+        pred ITEM_TYPE_MAP = ITEM_TYPE_REVIVE+        pred ITEM_TYPE_BATTLE = ITEM_TYPE_MAP+        pred ITEM_TYPE_FOOD = ITEM_TYPE_BATTLE+        pred ITEM_TYPE_CAMERA = ITEM_TYPE_FOOD+        pred ITEM_TYPE_DISK = ITEM_TYPE_CAMERA+        pred ITEM_TYPE_INCUBATOR = ITEM_TYPE_DISK+        pred ITEM_TYPE_INCENSE = ITEM_TYPE_INCUBATOR+        pred ITEM_TYPE_XP_BOOST = ITEM_TYPE_INCENSE+        pred ITEM_TYPE_INVENTORY_UPGRADE = ITEM_TYPE_XP_BOOST+        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 ItemType where+        minBound = ITEM_TYPE_NONE+        maxBound = ITEM_TYPE_INVENTORY_UPGRADE
+ src/Proto/POGOProtos/Map/Fort/FortData.hs view
@@ -0,0 +1,501 @@+{- This file was auto-generated from POGOProtos/Map/Fort/FortData.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Map.Fort.FortData 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+import qualified Proto.POGOProtos.Enums.TeamColor+import qualified Proto.POGOProtos.Map.Fort.FortLureInfo+import qualified Proto.POGOProtos.Map.Fort.FortRenderingType+import qualified Proto.POGOProtos.Map.Fort.FortSponsor+import qualified Proto.POGOProtos.Map.Fort.FortType++data FortData = FortData{_FortData'id :: Data.Text.Text,+                         _FortData'lastModifiedTimestampMs :: Data.Int.Int64,+                         _FortData'latitude :: Prelude.Double,+                         _FortData'longitude :: Prelude.Double,+                         _FortData'enabled :: Prelude.Bool,+                         _FortData'type' :: Proto.POGOProtos.Map.Fort.FortType.FortType,+                         _FortData'ownedByTeam ::+                         Proto.POGOProtos.Enums.TeamColor.TeamColor,+                         _FortData'guardPokemonId ::+                         Proto.POGOProtos.Enums.PokemonId.PokemonId,+                         _FortData'guardPokemonCp :: Data.Int.Int32,+                         _FortData'gymPoints :: Data.Int.Int64,+                         _FortData'isInBattle :: Prelude.Bool,+                         _FortData'cooldownCompleteTimestampMs :: Data.Int.Int64,+                         _FortData'sponsor ::+                         Proto.POGOProtos.Map.Fort.FortSponsor.FortSponsor,+                         _FortData'renderingType ::+                         Proto.POGOProtos.Map.Fort.FortRenderingType.FortRenderingType,+                         _FortData'activeFortModifier :: Data.ByteString.ByteString,+                         _FortData'lureInfo ::+                         Prelude.Maybe Proto.POGOProtos.Map.Fort.FortLureInfo.FortLureInfo}+              deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "id" FortData = Data.Text.Text++instance Data.ProtoLens.HasField "id" FortData FortData where+        field _+          = Lens.Family2.Unchecked.lens _FortData'id+              (\ x__ y__ -> x__{_FortData'id = y__})++type instance+     Data.ProtoLens.Field "lastModifiedTimestampMs" FortData =+     Data.Int.Int64++instance Data.ProtoLens.HasField "lastModifiedTimestampMs" FortData+         FortData where+        field _+          = Lens.Family2.Unchecked.lens _FortData'lastModifiedTimestampMs+              (\ x__ y__ -> x__{_FortData'lastModifiedTimestampMs = y__})++type instance Data.ProtoLens.Field "latitude" FortData =+     Prelude.Double++instance Data.ProtoLens.HasField "latitude" FortData FortData where+        field _+          = Lens.Family2.Unchecked.lens _FortData'latitude+              (\ x__ y__ -> x__{_FortData'latitude = y__})++type instance Data.ProtoLens.Field "longitude" FortData =+     Prelude.Double++instance Data.ProtoLens.HasField "longitude" FortData FortData+         where+        field _+          = Lens.Family2.Unchecked.lens _FortData'longitude+              (\ x__ y__ -> x__{_FortData'longitude = y__})++type instance Data.ProtoLens.Field "enabled" FortData =+     Prelude.Bool++instance Data.ProtoLens.HasField "enabled" FortData FortData where+        field _+          = Lens.Family2.Unchecked.lens _FortData'enabled+              (\ x__ y__ -> x__{_FortData'enabled = y__})++type instance Data.ProtoLens.Field "type'" FortData =+     Proto.POGOProtos.Map.Fort.FortType.FortType++instance Data.ProtoLens.HasField "type'" FortData FortData where+        field _+          = Lens.Family2.Unchecked.lens _FortData'type'+              (\ x__ y__ -> x__{_FortData'type' = y__})++type instance Data.ProtoLens.Field "ownedByTeam" FortData =+     Proto.POGOProtos.Enums.TeamColor.TeamColor++instance Data.ProtoLens.HasField "ownedByTeam" FortData FortData+         where+        field _+          = Lens.Family2.Unchecked.lens _FortData'ownedByTeam+              (\ x__ y__ -> x__{_FortData'ownedByTeam = y__})++type instance Data.ProtoLens.Field "guardPokemonId" FortData =+     Proto.POGOProtos.Enums.PokemonId.PokemonId++instance Data.ProtoLens.HasField "guardPokemonId" FortData FortData+         where+        field _+          = Lens.Family2.Unchecked.lens _FortData'guardPokemonId+              (\ x__ y__ -> x__{_FortData'guardPokemonId = y__})++type instance Data.ProtoLens.Field "guardPokemonCp" FortData =+     Data.Int.Int32++instance Data.ProtoLens.HasField "guardPokemonCp" FortData FortData+         where+        field _+          = Lens.Family2.Unchecked.lens _FortData'guardPokemonCp+              (\ x__ y__ -> x__{_FortData'guardPokemonCp = y__})++type instance Data.ProtoLens.Field "gymPoints" FortData =+     Data.Int.Int64++instance Data.ProtoLens.HasField "gymPoints" FortData FortData+         where+        field _+          = Lens.Family2.Unchecked.lens _FortData'gymPoints+              (\ x__ y__ -> x__{_FortData'gymPoints = y__})++type instance Data.ProtoLens.Field "isInBattle" FortData =+     Prelude.Bool++instance Data.ProtoLens.HasField "isInBattle" FortData FortData+         where+        field _+          = Lens.Family2.Unchecked.lens _FortData'isInBattle+              (\ x__ y__ -> x__{_FortData'isInBattle = y__})++type instance+     Data.ProtoLens.Field "cooldownCompleteTimestampMs" FortData =+     Data.Int.Int64++instance Data.ProtoLens.HasField "cooldownCompleteTimestampMs"+         FortData FortData where+        field _+          = Lens.Family2.Unchecked.lens _FortData'cooldownCompleteTimestampMs+              (\ x__ y__ -> x__{_FortData'cooldownCompleteTimestampMs = y__})++type instance Data.ProtoLens.Field "sponsor" FortData =+     Proto.POGOProtos.Map.Fort.FortSponsor.FortSponsor++instance Data.ProtoLens.HasField "sponsor" FortData FortData where+        field _+          = Lens.Family2.Unchecked.lens _FortData'sponsor+              (\ x__ y__ -> x__{_FortData'sponsor = y__})++type instance Data.ProtoLens.Field "renderingType" FortData =+     Proto.POGOProtos.Map.Fort.FortRenderingType.FortRenderingType++instance Data.ProtoLens.HasField "renderingType" FortData FortData+         where+        field _+          = Lens.Family2.Unchecked.lens _FortData'renderingType+              (\ x__ y__ -> x__{_FortData'renderingType = y__})++type instance Data.ProtoLens.Field "activeFortModifier" FortData =+     Data.ByteString.ByteString++instance Data.ProtoLens.HasField "activeFortModifier" FortData+         FortData where+        field _+          = Lens.Family2.Unchecked.lens _FortData'activeFortModifier+              (\ x__ y__ -> x__{_FortData'activeFortModifier = y__})++type instance Data.ProtoLens.Field "lureInfo" FortData =+     Proto.POGOProtos.Map.Fort.FortLureInfo.FortLureInfo++instance Data.ProtoLens.HasField "lureInfo" FortData FortData where+        field _+          = (Prelude..) maybe'lureInfo+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance Data.ProtoLens.Field "maybe'lureInfo" FortData =+     Prelude.Maybe Proto.POGOProtos.Map.Fort.FortLureInfo.FortLureInfo++instance Data.ProtoLens.HasField "maybe'lureInfo" FortData FortData+         where+        field _+          = Lens.Family2.Unchecked.lens _FortData'lureInfo+              (\ x__ y__ -> x__{_FortData'lureInfo = y__})++instance Data.Default.Class.Default FortData where+        def+          = FortData{_FortData'id = Data.ProtoLens.fieldDefault,+                     _FortData'lastModifiedTimestampMs = Data.ProtoLens.fieldDefault,+                     _FortData'latitude = Data.ProtoLens.fieldDefault,+                     _FortData'longitude = Data.ProtoLens.fieldDefault,+                     _FortData'enabled = Data.ProtoLens.fieldDefault,+                     _FortData'type' = Data.Default.Class.def,+                     _FortData'ownedByTeam = Data.Default.Class.def,+                     _FortData'guardPokemonId = Data.Default.Class.def,+                     _FortData'guardPokemonCp = Data.ProtoLens.fieldDefault,+                     _FortData'gymPoints = Data.ProtoLens.fieldDefault,+                     _FortData'isInBattle = Data.ProtoLens.fieldDefault,+                     _FortData'cooldownCompleteTimestampMs =+                       Data.ProtoLens.fieldDefault,+                     _FortData'sponsor = Data.Default.Class.def,+                     _FortData'renderingType = Data.Default.Class.def,+                     _FortData'activeFortModifier = Data.ProtoLens.fieldDefault,+                     _FortData'lureInfo = Prelude.Nothing}++instance Data.ProtoLens.Message FortData where+        descriptor+          = let id__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "id"+                      (Data.ProtoLens.StringField ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional id)+                lastModifiedTimestampMs__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "last_modified_timestamp_ms"+                      (Data.ProtoLens.Int64Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         lastModifiedTimestampMs)+                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)+                enabled__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "enabled"+                      (Data.ProtoLens.BoolField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional enabled)+                type'__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "type"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Map.Fort.FortType.FortType)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional type')+                ownedByTeam__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "owned_by_team"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Enums.TeamColor.TeamColor)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional ownedByTeam)+                guardPokemonId__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "guard_pokemon_id"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Enums.PokemonId.PokemonId)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional guardPokemonId)+                guardPokemonCp__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "guard_pokemon_cp"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional guardPokemonCp)+                gymPoints__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "gym_points"+                      (Data.ProtoLens.Int64Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional gymPoints)+                isInBattle__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "is_in_battle"+                      (Data.ProtoLens.BoolField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional isInBattle)+                cooldownCompleteTimestampMs__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "cooldown_complete_timestamp_ms"+                      (Data.ProtoLens.Int64Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         cooldownCompleteTimestampMs)+                sponsor__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "sponsor"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Map.Fort.FortSponsor.FortSponsor)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional sponsor)+                renderingType__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "rendering_type"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Map.Fort.FortRenderingType.FortRenderingType)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional renderingType)+                activeFortModifier__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "active_fort_modifier"+                      (Data.ProtoLens.BytesField ::+                         Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         activeFortModifier)+                lureInfo__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "lure_info"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Map.Fort.FortLureInfo.FortLureInfo)+                      (Data.ProtoLens.OptionalField maybe'lureInfo)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, id__field_descriptor),+                    (Data.ProtoLens.Tag 2, lastModifiedTimestampMs__field_descriptor),+                    (Data.ProtoLens.Tag 3, latitude__field_descriptor),+                    (Data.ProtoLens.Tag 4, longitude__field_descriptor),+                    (Data.ProtoLens.Tag 8, enabled__field_descriptor),+                    (Data.ProtoLens.Tag 9, type'__field_descriptor),+                    (Data.ProtoLens.Tag 5, ownedByTeam__field_descriptor),+                    (Data.ProtoLens.Tag 6, guardPokemonId__field_descriptor),+                    (Data.ProtoLens.Tag 7, guardPokemonCp__field_descriptor),+                    (Data.ProtoLens.Tag 10, gymPoints__field_descriptor),+                    (Data.ProtoLens.Tag 11, isInBattle__field_descriptor),+                    (Data.ProtoLens.Tag 14,+                     cooldownCompleteTimestampMs__field_descriptor),+                    (Data.ProtoLens.Tag 15, sponsor__field_descriptor),+                    (Data.ProtoLens.Tag 16, renderingType__field_descriptor),+                    (Data.ProtoLens.Tag 12, activeFortModifier__field_descriptor),+                    (Data.ProtoLens.Tag 13, lureInfo__field_descriptor)])+                (Data.Map.fromList+                   [("id", id__field_descriptor),+                    ("last_modified_timestamp_ms",+                     lastModifiedTimestampMs__field_descriptor),+                    ("latitude", latitude__field_descriptor),+                    ("longitude", longitude__field_descriptor),+                    ("enabled", enabled__field_descriptor),+                    ("type", type'__field_descriptor),+                    ("owned_by_team", ownedByTeam__field_descriptor),+                    ("guard_pokemon_id", guardPokemonId__field_descriptor),+                    ("guard_pokemon_cp", guardPokemonCp__field_descriptor),+                    ("gym_points", gymPoints__field_descriptor),+                    ("is_in_battle", isInBattle__field_descriptor),+                    ("cooldown_complete_timestamp_ms",+                     cooldownCompleteTimestampMs__field_descriptor),+                    ("sponsor", sponsor__field_descriptor),+                    ("rendering_type", renderingType__field_descriptor),+                    ("active_fort_modifier", activeFortModifier__field_descriptor),+                    ("lure_info", lureInfo__field_descriptor)])++activeFortModifier ::+                   forall msg msg' .+                     Data.ProtoLens.HasField "activeFortModifier" msg msg' =>+                     Lens.Family2.Lens msg msg'+                       (Data.ProtoLens.Field "activeFortModifier" msg)+                       (Data.ProtoLens.Field "activeFortModifier" msg')+activeFortModifier+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "activeFortModifier")++cooldownCompleteTimestampMs ::+                            forall msg msg' .+                              Data.ProtoLens.HasField "cooldownCompleteTimestampMs" msg msg' =>+                              Lens.Family2.Lens msg msg'+                                (Data.ProtoLens.Field "cooldownCompleteTimestampMs" msg)+                                (Data.ProtoLens.Field "cooldownCompleteTimestampMs" msg')+cooldownCompleteTimestampMs+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "cooldownCompleteTimestampMs")++enabled ::+        forall msg msg' . Data.ProtoLens.HasField "enabled" msg msg' =>+          Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "enabled" msg)+            (Data.ProtoLens.Field "enabled" msg')+enabled+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "enabled")++guardPokemonCp ::+               forall msg msg' .+                 Data.ProtoLens.HasField "guardPokemonCp" msg msg' =>+                 Lens.Family2.Lens msg msg'+                   (Data.ProtoLens.Field "guardPokemonCp" msg)+                   (Data.ProtoLens.Field "guardPokemonCp" msg')+guardPokemonCp+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "guardPokemonCp")++guardPokemonId ::+               forall msg msg' .+                 Data.ProtoLens.HasField "guardPokemonId" msg msg' =>+                 Lens.Family2.Lens msg msg'+                   (Data.ProtoLens.Field "guardPokemonId" msg)+                   (Data.ProtoLens.Field "guardPokemonId" msg')+guardPokemonId+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "guardPokemonId")++gymPoints ::+          forall msg msg' . Data.ProtoLens.HasField "gymPoints" msg msg' =>+            Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "gymPoints" msg)+              (Data.ProtoLens.Field "gymPoints" msg')+gymPoints+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "gymPoints")++id ::+   forall msg msg' . Data.ProtoLens.HasField "id" msg msg' =>+     Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "id" msg)+       (Data.ProtoLens.Field "id" msg')+id+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "id")++isInBattle ::+           forall msg msg' . Data.ProtoLens.HasField "isInBattle" msg msg' =>+             Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "isInBattle" msg)+               (Data.ProtoLens.Field "isInBattle" msg')+isInBattle+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "isInBattle")++lastModifiedTimestampMs ::+                        forall msg msg' .+                          Data.ProtoLens.HasField "lastModifiedTimestampMs" msg msg' =>+                          Lens.Family2.Lens msg msg'+                            (Data.ProtoLens.Field "lastModifiedTimestampMs" msg)+                            (Data.ProtoLens.Field "lastModifiedTimestampMs" msg')+lastModifiedTimestampMs+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "lastModifiedTimestampMs")++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")++lureInfo ::+         forall msg msg' . Data.ProtoLens.HasField "lureInfo" msg msg' =>+           Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "lureInfo" msg)+             (Data.ProtoLens.Field "lureInfo" msg')+lureInfo+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "lureInfo")++maybe'lureInfo ::+               forall msg msg' .+                 Data.ProtoLens.HasField "maybe'lureInfo" msg msg' =>+                 Lens.Family2.Lens msg msg'+                   (Data.ProtoLens.Field "maybe'lureInfo" msg)+                   (Data.ProtoLens.Field "maybe'lureInfo" msg')+maybe'lureInfo+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "maybe'lureInfo")++ownedByTeam ::+            forall msg msg' . Data.ProtoLens.HasField "ownedByTeam" msg msg' =>+              Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "ownedByTeam" msg)+                (Data.ProtoLens.Field "ownedByTeam" msg')+ownedByTeam+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "ownedByTeam")++renderingType ::+              forall msg msg' .+                Data.ProtoLens.HasField "renderingType" msg msg' =>+                Lens.Family2.Lens msg msg'+                  (Data.ProtoLens.Field "renderingType" msg)+                  (Data.ProtoLens.Field "renderingType" msg')+renderingType+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "renderingType")++sponsor ::+        forall msg msg' . Data.ProtoLens.HasField "sponsor" msg msg' =>+          Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "sponsor" msg)+            (Data.ProtoLens.Field "sponsor" msg')+sponsor+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "sponsor")++type' ::+      forall msg msg' . Data.ProtoLens.HasField "type'" msg msg' =>+        Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "type'" msg)+          (Data.ProtoLens.Field "type'" msg')+type'+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "type'")
+ src/Proto/POGOProtos/Map/Fort/FortLureInfo.hs view
@@ -0,0 +1,145 @@+{- This file was auto-generated from POGOProtos/Map/Fort/FortLureInfo.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Map.Fort.FortLureInfo 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 FortLureInfo = FortLureInfo{_FortLureInfo'fortId ::+                                 Data.Text.Text,+                                 _FortLureInfo'encounterId :: Data.Word.Word64,+                                 _FortLureInfo'activePokemonId ::+                                 Proto.POGOProtos.Enums.PokemonId.PokemonId,+                                 _FortLureInfo'lureExpiresTimestampMs :: Data.Int.Int64}+                  deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "fortId" FortLureInfo =+     Data.Text.Text++instance Data.ProtoLens.HasField "fortId" FortLureInfo FortLureInfo+         where+        field _+          = Lens.Family2.Unchecked.lens _FortLureInfo'fortId+              (\ x__ y__ -> x__{_FortLureInfo'fortId = y__})++type instance Data.ProtoLens.Field "encounterId" FortLureInfo =+     Data.Word.Word64++instance Data.ProtoLens.HasField "encounterId" FortLureInfo+         FortLureInfo where+        field _+          = Lens.Family2.Unchecked.lens _FortLureInfo'encounterId+              (\ x__ y__ -> x__{_FortLureInfo'encounterId = y__})++type instance Data.ProtoLens.Field "activePokemonId" FortLureInfo =+     Proto.POGOProtos.Enums.PokemonId.PokemonId++instance Data.ProtoLens.HasField "activePokemonId" FortLureInfo+         FortLureInfo where+        field _+          = Lens.Family2.Unchecked.lens _FortLureInfo'activePokemonId+              (\ x__ y__ -> x__{_FortLureInfo'activePokemonId = y__})++type instance+     Data.ProtoLens.Field "lureExpiresTimestampMs" FortLureInfo =+     Data.Int.Int64++instance Data.ProtoLens.HasField "lureExpiresTimestampMs"+         FortLureInfo FortLureInfo where+        field _+          = Lens.Family2.Unchecked.lens _FortLureInfo'lureExpiresTimestampMs+              (\ x__ y__ -> x__{_FortLureInfo'lureExpiresTimestampMs = y__})++instance Data.Default.Class.Default FortLureInfo where+        def+          = FortLureInfo{_FortLureInfo'fortId = Data.ProtoLens.fieldDefault,+                         _FortLureInfo'encounterId = Data.ProtoLens.fieldDefault,+                         _FortLureInfo'activePokemonId = Data.Default.Class.def,+                         _FortLureInfo'lureExpiresTimestampMs = Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message FortLureInfo where+        descriptor+          = let fortId__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "fort_id"+                      (Data.ProtoLens.StringField ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional fortId)+                encounterId__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "encounter_id"+                      (Data.ProtoLens.Fixed64Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional encounterId)+                activePokemonId__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "active_pokemon_id"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Enums.PokemonId.PokemonId)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional activePokemonId)+                lureExpiresTimestampMs__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "lure_expires_timestamp_ms"+                      (Data.ProtoLens.Int64Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         lureExpiresTimestampMs)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, fortId__field_descriptor),+                    (Data.ProtoLens.Tag 2, encounterId__field_descriptor),+                    (Data.ProtoLens.Tag 3, activePokemonId__field_descriptor),+                    (Data.ProtoLens.Tag 4, lureExpiresTimestampMs__field_descriptor)])+                (Data.Map.fromList+                   [("fort_id", fortId__field_descriptor),+                    ("encounter_id", encounterId__field_descriptor),+                    ("active_pokemon_id", activePokemonId__field_descriptor),+                    ("lure_expires_timestamp_ms",+                     lureExpiresTimestampMs__field_descriptor)])++activePokemonId ::+                forall msg msg' .+                  Data.ProtoLens.HasField "activePokemonId" msg msg' =>+                  Lens.Family2.Lens msg msg'+                    (Data.ProtoLens.Field "activePokemonId" msg)+                    (Data.ProtoLens.Field "activePokemonId" msg')+activePokemonId+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "activePokemonId")++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")++fortId ::+       forall msg msg' . Data.ProtoLens.HasField "fortId" msg msg' =>+         Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "fortId" msg)+           (Data.ProtoLens.Field "fortId" msg')+fortId+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "fortId")++lureExpiresTimestampMs ::+                       forall msg msg' .+                         Data.ProtoLens.HasField "lureExpiresTimestampMs" msg msg' =>+                         Lens.Family2.Lens msg msg'+                           (Data.ProtoLens.Field "lureExpiresTimestampMs" msg)+                           (Data.ProtoLens.Field "lureExpiresTimestampMs" msg')+lureExpiresTimestampMs+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "lureExpiresTimestampMs")
+ src/Proto/POGOProtos/Map/Fort/FortModifier.hs view
@@ -0,0 +1,121 @@+{- This file was auto-generated from POGOProtos/Map/Fort/FortModifier.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Map.Fort.FortModifier 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.Inventory.Item.ItemId++data FortModifier = FortModifier{_FortModifier'itemId ::+                                 Proto.POGOProtos.Inventory.Item.ItemId.ItemId,+                                 _FortModifier'expirationTimestampMs :: Data.Int.Int64,+                                 _FortModifier'deployerPlayerCodename :: Data.Text.Text}+                  deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "itemId" FortModifier =+     Proto.POGOProtos.Inventory.Item.ItemId.ItemId++instance Data.ProtoLens.HasField "itemId" FortModifier FortModifier+         where+        field _+          = Lens.Family2.Unchecked.lens _FortModifier'itemId+              (\ x__ y__ -> x__{_FortModifier'itemId = y__})++type instance+     Data.ProtoLens.Field "expirationTimestampMs" FortModifier =+     Data.Int.Int64++instance Data.ProtoLens.HasField "expirationTimestampMs"+         FortModifier FortModifier where+        field _+          = Lens.Family2.Unchecked.lens _FortModifier'expirationTimestampMs+              (\ x__ y__ -> x__{_FortModifier'expirationTimestampMs = y__})++type instance+     Data.ProtoLens.Field "deployerPlayerCodename" FortModifier =+     Data.Text.Text++instance Data.ProtoLens.HasField "deployerPlayerCodename"+         FortModifier FortModifier where+        field _+          = Lens.Family2.Unchecked.lens _FortModifier'deployerPlayerCodename+              (\ x__ y__ -> x__{_FortModifier'deployerPlayerCodename = y__})++instance Data.Default.Class.Default FortModifier where+        def+          = FortModifier{_FortModifier'itemId = Data.Default.Class.def,+                         _FortModifier'expirationTimestampMs = Data.ProtoLens.fieldDefault,+                         _FortModifier'deployerPlayerCodename = Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message FortModifier where+        descriptor+          = let itemId__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "item_id"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Inventory.Item.ItemId.ItemId)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional itemId)+                expirationTimestampMs__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "expiration_timestamp_ms"+                      (Data.ProtoLens.Int64Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         expirationTimestampMs)+                deployerPlayerCodename__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "deployer_player_codename"+                      (Data.ProtoLens.StringField ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         deployerPlayerCodename)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, itemId__field_descriptor),+                    (Data.ProtoLens.Tag 2, expirationTimestampMs__field_descriptor),+                    (Data.ProtoLens.Tag 3, deployerPlayerCodename__field_descriptor)])+                (Data.Map.fromList+                   [("item_id", itemId__field_descriptor),+                    ("expiration_timestamp_ms",+                     expirationTimestampMs__field_descriptor),+                    ("deployer_player_codename",+                     deployerPlayerCodename__field_descriptor)])++deployerPlayerCodename ::+                       forall msg msg' .+                         Data.ProtoLens.HasField "deployerPlayerCodename" msg msg' =>+                         Lens.Family2.Lens msg msg'+                           (Data.ProtoLens.Field "deployerPlayerCodename" msg)+                           (Data.ProtoLens.Field "deployerPlayerCodename" msg')+deployerPlayerCodename+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "deployerPlayerCodename")++expirationTimestampMs ::+                      forall msg msg' .+                        Data.ProtoLens.HasField "expirationTimestampMs" msg msg' =>+                        Lens.Family2.Lens msg msg'+                          (Data.ProtoLens.Field "expirationTimestampMs" msg)+                          (Data.ProtoLens.Field "expirationTimestampMs" msg')+expirationTimestampMs+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "expirationTimestampMs")++itemId ::+       forall msg msg' . Data.ProtoLens.HasField "itemId" msg msg' =>+         Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "itemId" msg)+           (Data.ProtoLens.Field "itemId" msg')+itemId+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "itemId")
+ src/Proto/POGOProtos/Map/Fort/FortRenderingType.hs view
@@ -0,0 +1,63 @@+{- This file was auto-generated from POGOProtos/Map/Fort/FortRenderingType.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Map.Fort.FortRenderingType 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 FortRenderingType = DEFAULT+                       | INTERNAL_TEST+                       deriving (Prelude.Show, Prelude.Eq)++instance Data.Default.Class.Default FortRenderingType where+        def = DEFAULT++instance Data.ProtoLens.FieldDefault FortRenderingType where+        fieldDefault = DEFAULT++instance Data.ProtoLens.MessageEnum FortRenderingType where+        maybeToEnum 0 = Prelude.Just DEFAULT+        maybeToEnum 1 = Prelude.Just INTERNAL_TEST+        maybeToEnum _ = Prelude.Nothing+        showEnum DEFAULT = "DEFAULT"+        showEnum INTERNAL_TEST = "INTERNAL_TEST"+        readEnum "DEFAULT" = Prelude.Just DEFAULT+        readEnum "INTERNAL_TEST" = Prelude.Just INTERNAL_TEST+        readEnum _ = Prelude.Nothing++instance Prelude.Enum FortRenderingType where+        toEnum k__+          = Prelude.maybe+              (Prelude.error+                 ((Prelude.++) "toEnum: unknown value for enum FortRenderingType: "+                    (Prelude.show k__)))+              Prelude.id+              (Data.ProtoLens.maybeToEnum k__)+        fromEnum DEFAULT = 0+        fromEnum INTERNAL_TEST = 1+        succ INTERNAL_TEST+          = Prelude.error+              "Ident \"FortRenderingType\".Ident \"succ\": bad argument Ident \"INTERNAL_TEST\". This value would be out of bounds."+        succ DEFAULT = INTERNAL_TEST+        pred DEFAULT+          = Prelude.error+              "Ident \"FortRenderingType\".Ident \"pred\": bad argument Ident \"DEFAULT\". This value would be out of bounds."+        pred INTERNAL_TEST = DEFAULT+        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 FortRenderingType where+        minBound = DEFAULT+        maxBound = INTERNAL_TEST
+ src/Proto/POGOProtos/Map/Fort/FortSponsor.hs view
@@ -0,0 +1,70 @@+{- This file was auto-generated from POGOProtos/Map/Fort/FortSponsor.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Map.Fort.FortSponsor 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 FortSponsor = UNSET_SPONSOR+                 | MCDONALDS+                 | POKEMON_STORE+                 deriving (Prelude.Show, Prelude.Eq)++instance Data.Default.Class.Default FortSponsor where+        def = UNSET_SPONSOR++instance Data.ProtoLens.FieldDefault FortSponsor where+        fieldDefault = UNSET_SPONSOR++instance Data.ProtoLens.MessageEnum FortSponsor where+        maybeToEnum 0 = Prelude.Just UNSET_SPONSOR+        maybeToEnum 1 = Prelude.Just MCDONALDS+        maybeToEnum 2 = Prelude.Just POKEMON_STORE+        maybeToEnum _ = Prelude.Nothing+        showEnum UNSET_SPONSOR = "UNSET_SPONSOR"+        showEnum MCDONALDS = "MCDONALDS"+        showEnum POKEMON_STORE = "POKEMON_STORE"+        readEnum "UNSET_SPONSOR" = Prelude.Just UNSET_SPONSOR+        readEnum "MCDONALDS" = Prelude.Just MCDONALDS+        readEnum "POKEMON_STORE" = Prelude.Just POKEMON_STORE+        readEnum _ = Prelude.Nothing++instance Prelude.Enum FortSponsor where+        toEnum k__+          = Prelude.maybe+              (Prelude.error+                 ((Prelude.++) "toEnum: unknown value for enum FortSponsor: "+                    (Prelude.show k__)))+              Prelude.id+              (Data.ProtoLens.maybeToEnum k__)+        fromEnum UNSET_SPONSOR = 0+        fromEnum MCDONALDS = 1+        fromEnum POKEMON_STORE = 2+        succ POKEMON_STORE+          = Prelude.error+              "Ident \"FortSponsor\".Ident \"succ\": bad argument Ident \"POKEMON_STORE\". This value would be out of bounds."+        succ UNSET_SPONSOR = MCDONALDS+        succ MCDONALDS = POKEMON_STORE+        pred UNSET_SPONSOR+          = Prelude.error+              "Ident \"FortSponsor\".Ident \"pred\": bad argument Ident \"UNSET_SPONSOR\". This value would be out of bounds."+        pred MCDONALDS = UNSET_SPONSOR+        pred POKEMON_STORE = MCDONALDS+        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 FortSponsor where+        minBound = UNSET_SPONSOR+        maxBound = POKEMON_STORE
+ src/Proto/POGOProtos/Map/Fort/FortSummary.hs view
@@ -0,0 +1,143 @@+{- This file was auto-generated from POGOProtos/Map/Fort/FortSummary.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Map.Fort.FortSummary 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 FortSummary = FortSummary{_FortSummary'fortSummaryId ::+                               Data.Text.Text,+                               _FortSummary'lastModifiedTimestampMs :: Data.Int.Int64,+                               _FortSummary'latitude :: Prelude.Double,+                               _FortSummary'longitude :: Prelude.Double}+                 deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "fortSummaryId" FortSummary =+     Data.Text.Text++instance Data.ProtoLens.HasField "fortSummaryId" FortSummary+         FortSummary where+        field _+          = Lens.Family2.Unchecked.lens _FortSummary'fortSummaryId+              (\ x__ y__ -> x__{_FortSummary'fortSummaryId = y__})++type instance+     Data.ProtoLens.Field "lastModifiedTimestampMs" FortSummary =+     Data.Int.Int64++instance Data.ProtoLens.HasField "lastModifiedTimestampMs"+         FortSummary FortSummary where+        field _+          = Lens.Family2.Unchecked.lens _FortSummary'lastModifiedTimestampMs+              (\ x__ y__ -> x__{_FortSummary'lastModifiedTimestampMs = y__})++type instance Data.ProtoLens.Field "latitude" FortSummary =+     Prelude.Double++instance Data.ProtoLens.HasField "latitude" FortSummary FortSummary+         where+        field _+          = Lens.Family2.Unchecked.lens _FortSummary'latitude+              (\ x__ y__ -> x__{_FortSummary'latitude = y__})++type instance Data.ProtoLens.Field "longitude" FortSummary =+     Prelude.Double++instance Data.ProtoLens.HasField "longitude" FortSummary+         FortSummary where+        field _+          = Lens.Family2.Unchecked.lens _FortSummary'longitude+              (\ x__ y__ -> x__{_FortSummary'longitude = y__})++instance Data.Default.Class.Default FortSummary where+        def+          = FortSummary{_FortSummary'fortSummaryId =+                          Data.ProtoLens.fieldDefault,+                        _FortSummary'lastModifiedTimestampMs = Data.ProtoLens.fieldDefault,+                        _FortSummary'latitude = Data.ProtoLens.fieldDefault,+                        _FortSummary'longitude = Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message FortSummary where+        descriptor+          = let fortSummaryId__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "fort_summary_id"+                      (Data.ProtoLens.StringField ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional fortSummaryId)+                lastModifiedTimestampMs__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "last_modified_timestamp_ms"+                      (Data.ProtoLens.Int64Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         lastModifiedTimestampMs)+                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)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, fortSummaryId__field_descriptor),+                    (Data.ProtoLens.Tag 2, lastModifiedTimestampMs__field_descriptor),+                    (Data.ProtoLens.Tag 3, latitude__field_descriptor),+                    (Data.ProtoLens.Tag 4, longitude__field_descriptor)])+                (Data.Map.fromList+                   [("fort_summary_id", fortSummaryId__field_descriptor),+                    ("last_modified_timestamp_ms",+                     lastModifiedTimestampMs__field_descriptor),+                    ("latitude", latitude__field_descriptor),+                    ("longitude", longitude__field_descriptor)])++fortSummaryId ::+              forall msg msg' .+                Data.ProtoLens.HasField "fortSummaryId" msg msg' =>+                Lens.Family2.Lens msg msg'+                  (Data.ProtoLens.Field "fortSummaryId" msg)+                  (Data.ProtoLens.Field "fortSummaryId" msg')+fortSummaryId+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "fortSummaryId")++lastModifiedTimestampMs ::+                        forall msg msg' .+                          Data.ProtoLens.HasField "lastModifiedTimestampMs" msg msg' =>+                          Lens.Family2.Lens msg msg'+                            (Data.ProtoLens.Field "lastModifiedTimestampMs" msg)+                            (Data.ProtoLens.Field "lastModifiedTimestampMs" msg')+lastModifiedTimestampMs+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "lastModifiedTimestampMs")++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")
+ src/Proto/POGOProtos/Map/Fort/FortType.hs view
@@ -0,0 +1,63 @@+{- This file was auto-generated from POGOProtos/Map/Fort/FortType.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Map.Fort.FortType 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 FortType = GYM+              | CHECKPOINT+              deriving (Prelude.Show, Prelude.Eq)++instance Data.Default.Class.Default FortType where+        def = GYM++instance Data.ProtoLens.FieldDefault FortType where+        fieldDefault = GYM++instance Data.ProtoLens.MessageEnum FortType where+        maybeToEnum 0 = Prelude.Just GYM+        maybeToEnum 1 = Prelude.Just CHECKPOINT+        maybeToEnum _ = Prelude.Nothing+        showEnum GYM = "GYM"+        showEnum CHECKPOINT = "CHECKPOINT"+        readEnum "GYM" = Prelude.Just GYM+        readEnum "CHECKPOINT" = Prelude.Just CHECKPOINT+        readEnum _ = Prelude.Nothing++instance Prelude.Enum FortType where+        toEnum k__+          = Prelude.maybe+              (Prelude.error+                 ((Prelude.++) "toEnum: unknown value for enum FortType: "+                    (Prelude.show k__)))+              Prelude.id+              (Data.ProtoLens.maybeToEnum k__)+        fromEnum GYM = 0+        fromEnum CHECKPOINT = 1+        succ CHECKPOINT+          = Prelude.error+              "Ident \"FortType\".Ident \"succ\": bad argument Ident \"CHECKPOINT\". This value would be out of bounds."+        succ GYM = CHECKPOINT+        pred GYM+          = Prelude.error+              "Ident \"FortType\".Ident \"pred\": bad argument Ident \"GYM\". This value would be out of bounds."+        pred CHECKPOINT = GYM+        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 FortType where+        minBound = GYM+        maxBound = CHECKPOINT
+ src/Proto/POGOProtos/Map/MapCell.hs view
@@ -0,0 +1,357 @@+{- This file was auto-generated from POGOProtos/Map/MapCell.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Map.MapCell 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.Map.Fort.FortData+import qualified Proto.POGOProtos.Map.Fort.FortSummary+import qualified Proto.POGOProtos.Map.Pokemon.MapPokemon+import qualified Proto.POGOProtos.Map.Pokemon.NearbyPokemon+import qualified Proto.POGOProtos.Map.Pokemon.WildPokemon+import qualified Proto.POGOProtos.Map.SpawnPoint++data MapCell = MapCell{_MapCell's2CellId :: Data.Word.Word64,+                       _MapCell'currentTimestampMs :: Data.Int.Int64,+                       _MapCell'forts :: [Proto.POGOProtos.Map.Fort.FortData.FortData],+                       _MapCell'spawnPoints ::+                       [Proto.POGOProtos.Map.SpawnPoint.SpawnPoint],+                       _MapCell'deletedObjects :: [Data.Text.Text],+                       _MapCell'isTruncatedList :: Prelude.Bool,+                       _MapCell'fortSummaries ::+                       [Proto.POGOProtos.Map.Fort.FortSummary.FortSummary],+                       _MapCell'decimatedSpawnPoints ::+                       [Proto.POGOProtos.Map.SpawnPoint.SpawnPoint],+                       _MapCell'wildPokemons ::+                       [Proto.POGOProtos.Map.Pokemon.WildPokemon.WildPokemon],+                       _MapCell'catchablePokemons ::+                       [Proto.POGOProtos.Map.Pokemon.MapPokemon.MapPokemon],+                       _MapCell'nearbyPokemons ::+                       [Proto.POGOProtos.Map.Pokemon.NearbyPokemon.NearbyPokemon]}+             deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "s2CellId" MapCell =+     Data.Word.Word64++instance Data.ProtoLens.HasField "s2CellId" MapCell MapCell where+        field _+          = Lens.Family2.Unchecked.lens _MapCell's2CellId+              (\ x__ y__ -> x__{_MapCell's2CellId = y__})++type instance Data.ProtoLens.Field "currentTimestampMs" MapCell =+     Data.Int.Int64++instance Data.ProtoLens.HasField "currentTimestampMs" MapCell+         MapCell where+        field _+          = Lens.Family2.Unchecked.lens _MapCell'currentTimestampMs+              (\ x__ y__ -> x__{_MapCell'currentTimestampMs = y__})++type instance Data.ProtoLens.Field "forts" MapCell =+     [Proto.POGOProtos.Map.Fort.FortData.FortData]++instance Data.ProtoLens.HasField "forts" MapCell MapCell where+        field _+          = Lens.Family2.Unchecked.lens _MapCell'forts+              (\ x__ y__ -> x__{_MapCell'forts = y__})++type instance Data.ProtoLens.Field "spawnPoints" MapCell =+     [Proto.POGOProtos.Map.SpawnPoint.SpawnPoint]++instance Data.ProtoLens.HasField "spawnPoints" MapCell MapCell+         where+        field _+          = Lens.Family2.Unchecked.lens _MapCell'spawnPoints+              (\ x__ y__ -> x__{_MapCell'spawnPoints = y__})++type instance Data.ProtoLens.Field "deletedObjects" MapCell =+     [Data.Text.Text]++instance Data.ProtoLens.HasField "deletedObjects" MapCell MapCell+         where+        field _+          = Lens.Family2.Unchecked.lens _MapCell'deletedObjects+              (\ x__ y__ -> x__{_MapCell'deletedObjects = y__})++type instance Data.ProtoLens.Field "isTruncatedList" MapCell =+     Prelude.Bool++instance Data.ProtoLens.HasField "isTruncatedList" MapCell MapCell+         where+        field _+          = Lens.Family2.Unchecked.lens _MapCell'isTruncatedList+              (\ x__ y__ -> x__{_MapCell'isTruncatedList = y__})++type instance Data.ProtoLens.Field "fortSummaries" MapCell =+     [Proto.POGOProtos.Map.Fort.FortSummary.FortSummary]++instance Data.ProtoLens.HasField "fortSummaries" MapCell MapCell+         where+        field _+          = Lens.Family2.Unchecked.lens _MapCell'fortSummaries+              (\ x__ y__ -> x__{_MapCell'fortSummaries = y__})++type instance Data.ProtoLens.Field "decimatedSpawnPoints" MapCell =+     [Proto.POGOProtos.Map.SpawnPoint.SpawnPoint]++instance Data.ProtoLens.HasField "decimatedSpawnPoints" MapCell+         MapCell where+        field _+          = Lens.Family2.Unchecked.lens _MapCell'decimatedSpawnPoints+              (\ x__ y__ -> x__{_MapCell'decimatedSpawnPoints = y__})++type instance Data.ProtoLens.Field "wildPokemons" MapCell =+     [Proto.POGOProtos.Map.Pokemon.WildPokemon.WildPokemon]++instance Data.ProtoLens.HasField "wildPokemons" MapCell MapCell+         where+        field _+          = Lens.Family2.Unchecked.lens _MapCell'wildPokemons+              (\ x__ y__ -> x__{_MapCell'wildPokemons = y__})++type instance Data.ProtoLens.Field "catchablePokemons" MapCell =+     [Proto.POGOProtos.Map.Pokemon.MapPokemon.MapPokemon]++instance Data.ProtoLens.HasField "catchablePokemons" MapCell+         MapCell where+        field _+          = Lens.Family2.Unchecked.lens _MapCell'catchablePokemons+              (\ x__ y__ -> x__{_MapCell'catchablePokemons = y__})++type instance Data.ProtoLens.Field "nearbyPokemons" MapCell =+     [Proto.POGOProtos.Map.Pokemon.NearbyPokemon.NearbyPokemon]++instance Data.ProtoLens.HasField "nearbyPokemons" MapCell MapCell+         where+        field _+          = Lens.Family2.Unchecked.lens _MapCell'nearbyPokemons+              (\ x__ y__ -> x__{_MapCell'nearbyPokemons = y__})++instance Data.Default.Class.Default MapCell where+        def+          = MapCell{_MapCell's2CellId = Data.ProtoLens.fieldDefault,+                    _MapCell'currentTimestampMs = Data.ProtoLens.fieldDefault,+                    _MapCell'forts = [], _MapCell'spawnPoints = [],+                    _MapCell'deletedObjects = [],+                    _MapCell'isTruncatedList = Data.ProtoLens.fieldDefault,+                    _MapCell'fortSummaries = [], _MapCell'decimatedSpawnPoints = [],+                    _MapCell'wildPokemons = [], _MapCell'catchablePokemons = [],+                    _MapCell'nearbyPokemons = []}++instance Data.ProtoLens.Message MapCell where+        descriptor+          = let s2CellId__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "s2_cell_id"+                      (Data.ProtoLens.UInt64Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional s2CellId)+                currentTimestampMs__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "current_timestamp_ms"+                      (Data.ProtoLens.Int64Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         currentTimestampMs)+                forts__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "forts"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Map.Fort.FortData.FortData)+                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked forts)+                spawnPoints__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "spawn_points"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Map.SpawnPoint.SpawnPoint)+                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked spawnPoints)+                deletedObjects__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "deleted_objects"+                      (Data.ProtoLens.StringField ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked+                         deletedObjects)+                isTruncatedList__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "is_truncated_list"+                      (Data.ProtoLens.BoolField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional isTruncatedList)+                fortSummaries__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "fort_summaries"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Map.Fort.FortSummary.FortSummary)+                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked+                         fortSummaries)+                decimatedSpawnPoints__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "decimated_spawn_points"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Map.SpawnPoint.SpawnPoint)+                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked+                         decimatedSpawnPoints)+                wildPokemons__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "wild_pokemons"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Map.Pokemon.WildPokemon.WildPokemon)+                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked wildPokemons)+                catchablePokemons__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "catchable_pokemons"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Map.Pokemon.MapPokemon.MapPokemon)+                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked+                         catchablePokemons)+                nearbyPokemons__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "nearby_pokemons"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Map.Pokemon.NearbyPokemon.NearbyPokemon)+                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked+                         nearbyPokemons)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, s2CellId__field_descriptor),+                    (Data.ProtoLens.Tag 2, currentTimestampMs__field_descriptor),+                    (Data.ProtoLens.Tag 3, forts__field_descriptor),+                    (Data.ProtoLens.Tag 4, spawnPoints__field_descriptor),+                    (Data.ProtoLens.Tag 6, deletedObjects__field_descriptor),+                    (Data.ProtoLens.Tag 7, isTruncatedList__field_descriptor),+                    (Data.ProtoLens.Tag 8, fortSummaries__field_descriptor),+                    (Data.ProtoLens.Tag 9, decimatedSpawnPoints__field_descriptor),+                    (Data.ProtoLens.Tag 5, wildPokemons__field_descriptor),+                    (Data.ProtoLens.Tag 10, catchablePokemons__field_descriptor),+                    (Data.ProtoLens.Tag 11, nearbyPokemons__field_descriptor)])+                (Data.Map.fromList+                   [("s2_cell_id", s2CellId__field_descriptor),+                    ("current_timestamp_ms", currentTimestampMs__field_descriptor),+                    ("forts", forts__field_descriptor),+                    ("spawn_points", spawnPoints__field_descriptor),+                    ("deleted_objects", deletedObjects__field_descriptor),+                    ("is_truncated_list", isTruncatedList__field_descriptor),+                    ("fort_summaries", fortSummaries__field_descriptor),+                    ("decimated_spawn_points", decimatedSpawnPoints__field_descriptor),+                    ("wild_pokemons", wildPokemons__field_descriptor),+                    ("catchable_pokemons", catchablePokemons__field_descriptor),+                    ("nearby_pokemons", nearbyPokemons__field_descriptor)])++catchablePokemons ::+                  forall msg msg' .+                    Data.ProtoLens.HasField "catchablePokemons" msg msg' =>+                    Lens.Family2.Lens msg msg'+                      (Data.ProtoLens.Field "catchablePokemons" msg)+                      (Data.ProtoLens.Field "catchablePokemons" msg')+catchablePokemons+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "catchablePokemons")++currentTimestampMs ::+                   forall msg msg' .+                     Data.ProtoLens.HasField "currentTimestampMs" msg msg' =>+                     Lens.Family2.Lens msg msg'+                       (Data.ProtoLens.Field "currentTimestampMs" msg)+                       (Data.ProtoLens.Field "currentTimestampMs" msg')+currentTimestampMs+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "currentTimestampMs")++decimatedSpawnPoints ::+                     forall msg msg' .+                       Data.ProtoLens.HasField "decimatedSpawnPoints" msg msg' =>+                       Lens.Family2.Lens msg msg'+                         (Data.ProtoLens.Field "decimatedSpawnPoints" msg)+                         (Data.ProtoLens.Field "decimatedSpawnPoints" msg')+decimatedSpawnPoints+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "decimatedSpawnPoints")++deletedObjects ::+               forall msg msg' .+                 Data.ProtoLens.HasField "deletedObjects" msg msg' =>+                 Lens.Family2.Lens msg msg'+                   (Data.ProtoLens.Field "deletedObjects" msg)+                   (Data.ProtoLens.Field "deletedObjects" msg')+deletedObjects+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "deletedObjects")++fortSummaries ::+              forall msg msg' .+                Data.ProtoLens.HasField "fortSummaries" msg msg' =>+                Lens.Family2.Lens msg msg'+                  (Data.ProtoLens.Field "fortSummaries" msg)+                  (Data.ProtoLens.Field "fortSummaries" msg')+fortSummaries+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "fortSummaries")++forts ::+      forall msg msg' . Data.ProtoLens.HasField "forts" msg msg' =>+        Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "forts" msg)+          (Data.ProtoLens.Field "forts" msg')+forts+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "forts")++isTruncatedList ::+                forall msg msg' .+                  Data.ProtoLens.HasField "isTruncatedList" msg msg' =>+                  Lens.Family2.Lens msg msg'+                    (Data.ProtoLens.Field "isTruncatedList" msg)+                    (Data.ProtoLens.Field "isTruncatedList" msg')+isTruncatedList+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "isTruncatedList")++nearbyPokemons ::+               forall msg msg' .+                 Data.ProtoLens.HasField "nearbyPokemons" msg msg' =>+                 Lens.Family2.Lens msg msg'+                   (Data.ProtoLens.Field "nearbyPokemons" msg)+                   (Data.ProtoLens.Field "nearbyPokemons" msg')+nearbyPokemons+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "nearbyPokemons")++s2CellId ::+         forall msg msg' . Data.ProtoLens.HasField "s2CellId" msg msg' =>+           Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "s2CellId" msg)+             (Data.ProtoLens.Field "s2CellId" msg')+s2CellId+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "s2CellId")++spawnPoints ::+            forall msg msg' . Data.ProtoLens.HasField "spawnPoints" msg msg' =>+              Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "spawnPoints" msg)+                (Data.ProtoLens.Field "spawnPoints" msg')+spawnPoints+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "spawnPoints")++wildPokemons ::+             forall msg msg' .+               Data.ProtoLens.HasField "wildPokemons" msg msg' =>+               Lens.Family2.Lens msg msg'+                 (Data.ProtoLens.Field "wildPokemons" msg)+                 (Data.ProtoLens.Field "wildPokemons" msg')+wildPokemons+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "wildPokemons")
+ src/Proto/POGOProtos/Map/MapObjectsStatus.hs view
@@ -0,0 +1,70 @@+{- This file was auto-generated from POGOProtos/Map/MapObjectsStatus.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Map.MapObjectsStatus 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 MapObjectsStatus = UNSET_STATUS+                      | SUCCESS+                      | LOCATION_UNSET+                      deriving (Prelude.Show, Prelude.Eq)++instance Data.Default.Class.Default MapObjectsStatus where+        def = UNSET_STATUS++instance Data.ProtoLens.FieldDefault MapObjectsStatus where+        fieldDefault = UNSET_STATUS++instance Data.ProtoLens.MessageEnum MapObjectsStatus where+        maybeToEnum 0 = Prelude.Just UNSET_STATUS+        maybeToEnum 1 = Prelude.Just SUCCESS+        maybeToEnum 2 = Prelude.Just LOCATION_UNSET+        maybeToEnum _ = Prelude.Nothing+        showEnum UNSET_STATUS = "UNSET_STATUS"+        showEnum SUCCESS = "SUCCESS"+        showEnum LOCATION_UNSET = "LOCATION_UNSET"+        readEnum "UNSET_STATUS" = Prelude.Just UNSET_STATUS+        readEnum "SUCCESS" = Prelude.Just SUCCESS+        readEnum "LOCATION_UNSET" = Prelude.Just LOCATION_UNSET+        readEnum _ = Prelude.Nothing++instance Prelude.Enum MapObjectsStatus where+        toEnum k__+          = Prelude.maybe+              (Prelude.error+                 ((Prelude.++) "toEnum: unknown value for enum MapObjectsStatus: "+                    (Prelude.show k__)))+              Prelude.id+              (Data.ProtoLens.maybeToEnum k__)+        fromEnum UNSET_STATUS = 0+        fromEnum SUCCESS = 1+        fromEnum LOCATION_UNSET = 2+        succ LOCATION_UNSET+          = Prelude.error+              "Ident \"MapObjectsStatus\".Ident \"succ\": bad argument Ident \"LOCATION_UNSET\". This value would be out of bounds."+        succ UNSET_STATUS = SUCCESS+        succ SUCCESS = LOCATION_UNSET+        pred UNSET_STATUS+          = Prelude.error+              "Ident \"MapObjectsStatus\".Ident \"pred\": bad argument Ident \"UNSET_STATUS\". This value would be out of bounds."+        pred SUCCESS = UNSET_STATUS+        pred LOCATION_UNSET = SUCCESS+        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 MapObjectsStatus where+        minBound = UNSET_STATUS+        maxBound = LOCATION_UNSET
+ src/Proto/POGOProtos/Map/Pokemon/MapPokemon.hs view
@@ -0,0 +1,197 @@+{- This file was auto-generated from POGOProtos/Map/Pokemon/MapPokemon.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Map.Pokemon.MapPokemon 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 MapPokemon = MapPokemon{_MapPokemon'spawnPointId ::+                             Data.Text.Text,+                             _MapPokemon'encounterId :: Data.Word.Word64,+                             _MapPokemon'pokemonId ::+                             Proto.POGOProtos.Enums.PokemonId.PokemonId,+                             _MapPokemon'expirationTimestampMs :: Data.Int.Int64,+                             _MapPokemon'latitude :: Prelude.Double,+                             _MapPokemon'longitude :: Prelude.Double}+                deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "spawnPointId" MapPokemon =+     Data.Text.Text++instance Data.ProtoLens.HasField "spawnPointId" MapPokemon+         MapPokemon where+        field _+          = Lens.Family2.Unchecked.lens _MapPokemon'spawnPointId+              (\ x__ y__ -> x__{_MapPokemon'spawnPointId = y__})++type instance Data.ProtoLens.Field "encounterId" MapPokemon =+     Data.Word.Word64++instance Data.ProtoLens.HasField "encounterId" MapPokemon+         MapPokemon where+        field _+          = Lens.Family2.Unchecked.lens _MapPokemon'encounterId+              (\ x__ y__ -> x__{_MapPokemon'encounterId = y__})++type instance Data.ProtoLens.Field "pokemonId" MapPokemon =+     Proto.POGOProtos.Enums.PokemonId.PokemonId++instance Data.ProtoLens.HasField "pokemonId" MapPokemon MapPokemon+         where+        field _+          = Lens.Family2.Unchecked.lens _MapPokemon'pokemonId+              (\ x__ y__ -> x__{_MapPokemon'pokemonId = y__})++type instance+     Data.ProtoLens.Field "expirationTimestampMs" MapPokemon =+     Data.Int.Int64++instance Data.ProtoLens.HasField "expirationTimestampMs" MapPokemon+         MapPokemon where+        field _+          = Lens.Family2.Unchecked.lens _MapPokemon'expirationTimestampMs+              (\ x__ y__ -> x__{_MapPokemon'expirationTimestampMs = y__})++type instance Data.ProtoLens.Field "latitude" MapPokemon =+     Prelude.Double++instance Data.ProtoLens.HasField "latitude" MapPokemon MapPokemon+         where+        field _+          = Lens.Family2.Unchecked.lens _MapPokemon'latitude+              (\ x__ y__ -> x__{_MapPokemon'latitude = y__})++type instance Data.ProtoLens.Field "longitude" MapPokemon =+     Prelude.Double++instance Data.ProtoLens.HasField "longitude" MapPokemon MapPokemon+         where+        field _+          = Lens.Family2.Unchecked.lens _MapPokemon'longitude+              (\ x__ y__ -> x__{_MapPokemon'longitude = y__})++instance Data.Default.Class.Default MapPokemon where+        def+          = MapPokemon{_MapPokemon'spawnPointId =+                         Data.ProtoLens.fieldDefault,+                       _MapPokemon'encounterId = Data.ProtoLens.fieldDefault,+                       _MapPokemon'pokemonId = Data.Default.Class.def,+                       _MapPokemon'expirationTimestampMs = Data.ProtoLens.fieldDefault,+                       _MapPokemon'latitude = Data.ProtoLens.fieldDefault,+                       _MapPokemon'longitude = Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message MapPokemon where+        descriptor+          = let spawnPointId__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "spawn_point_id"+                      (Data.ProtoLens.StringField ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional spawnPointId)+                encounterId__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "encounter_id"+                      (Data.ProtoLens.Fixed64Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional encounterId)+                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)+                expirationTimestampMs__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "expiration_timestamp_ms"+                      (Data.ProtoLens.Int64Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         expirationTimestampMs)+                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)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, spawnPointId__field_descriptor),+                    (Data.ProtoLens.Tag 2, encounterId__field_descriptor),+                    (Data.ProtoLens.Tag 3, pokemonId__field_descriptor),+                    (Data.ProtoLens.Tag 4, expirationTimestampMs__field_descriptor),+                    (Data.ProtoLens.Tag 5, latitude__field_descriptor),+                    (Data.ProtoLens.Tag 6, longitude__field_descriptor)])+                (Data.Map.fromList+                   [("spawn_point_id", spawnPointId__field_descriptor),+                    ("encounter_id", encounterId__field_descriptor),+                    ("pokemon_id", pokemonId__field_descriptor),+                    ("expiration_timestamp_ms",+                     expirationTimestampMs__field_descriptor),+                    ("latitude", latitude__field_descriptor),+                    ("longitude", longitude__field_descriptor)])++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")++expirationTimestampMs ::+                      forall msg msg' .+                        Data.ProtoLens.HasField "expirationTimestampMs" msg msg' =>+                        Lens.Family2.Lens msg msg'+                          (Data.ProtoLens.Field "expirationTimestampMs" msg)+                          (Data.ProtoLens.Field "expirationTimestampMs" msg')+expirationTimestampMs+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "expirationTimestampMs")++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")++spawnPointId ::+             forall msg msg' .+               Data.ProtoLens.HasField "spawnPointId" msg msg' =>+               Lens.Family2.Lens msg msg'+                 (Data.ProtoLens.Field "spawnPointId" msg)+                 (Data.ProtoLens.Field "spawnPointId" msg')+spawnPointId+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "spawnPointId")
+ src/Proto/POGOProtos/Map/Pokemon/NearbyPokemon.hs view
@@ -0,0 +1,113 @@+{- This file was auto-generated from POGOProtos/Map/Pokemon/NearbyPokemon.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Map.Pokemon.NearbyPokemon 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 NearbyPokemon = NearbyPokemon{_NearbyPokemon'pokemonId ::+                                   Proto.POGOProtos.Enums.PokemonId.PokemonId,+                                   _NearbyPokemon'distanceInMeters :: Prelude.Float,+                                   _NearbyPokemon'encounterId :: Data.Word.Word64}+                   deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "pokemonId" NearbyPokemon =+     Proto.POGOProtos.Enums.PokemonId.PokemonId++instance Data.ProtoLens.HasField "pokemonId" NearbyPokemon+         NearbyPokemon where+        field _+          = Lens.Family2.Unchecked.lens _NearbyPokemon'pokemonId+              (\ x__ y__ -> x__{_NearbyPokemon'pokemonId = y__})++type instance Data.ProtoLens.Field "distanceInMeters" NearbyPokemon+     = Prelude.Float++instance Data.ProtoLens.HasField "distanceInMeters" NearbyPokemon+         NearbyPokemon where+        field _+          = Lens.Family2.Unchecked.lens _NearbyPokemon'distanceInMeters+              (\ x__ y__ -> x__{_NearbyPokemon'distanceInMeters = y__})++type instance Data.ProtoLens.Field "encounterId" NearbyPokemon =+     Data.Word.Word64++instance Data.ProtoLens.HasField "encounterId" NearbyPokemon+         NearbyPokemon where+        field _+          = Lens.Family2.Unchecked.lens _NearbyPokemon'encounterId+              (\ x__ y__ -> x__{_NearbyPokemon'encounterId = y__})++instance Data.Default.Class.Default NearbyPokemon where+        def+          = NearbyPokemon{_NearbyPokemon'pokemonId = Data.Default.Class.def,+                          _NearbyPokemon'distanceInMeters = Data.ProtoLens.fieldDefault,+                          _NearbyPokemon'encounterId = Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message NearbyPokemon where+        descriptor+          = let 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)+                distanceInMeters__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "distance_in_meters"+                      (Data.ProtoLens.FloatField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Float)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         distanceInMeters)+                encounterId__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "encounter_id"+                      (Data.ProtoLens.Fixed64Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional encounterId)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, pokemonId__field_descriptor),+                    (Data.ProtoLens.Tag 2, distanceInMeters__field_descriptor),+                    (Data.ProtoLens.Tag 3, encounterId__field_descriptor)])+                (Data.Map.fromList+                   [("pokemon_id", pokemonId__field_descriptor),+                    ("distance_in_meters", distanceInMeters__field_descriptor),+                    ("encounter_id", encounterId__field_descriptor)])++distanceInMeters ::+                 forall msg msg' .+                   Data.ProtoLens.HasField "distanceInMeters" msg msg' =>+                   Lens.Family2.Lens msg msg'+                     (Data.ProtoLens.Field "distanceInMeters" msg)+                     (Data.ProtoLens.Field "distanceInMeters" msg')+distanceInMeters+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "distanceInMeters")++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")++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")
+ src/Proto/POGOProtos/Map/Pokemon/WildPokemon.hs view
@@ -0,0 +1,247 @@+{- This file was auto-generated from POGOProtos/Map/Pokemon/WildPokemon.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Map.Pokemon.WildPokemon 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.PokemonData++data WildPokemon = WildPokemon{_WildPokemon'encounterId ::+                               Data.Word.Word64,+                               _WildPokemon'lastModifiedTimestampMs :: Data.Int.Int64,+                               _WildPokemon'latitude :: Prelude.Double,+                               _WildPokemon'longitude :: Prelude.Double,+                               _WildPokemon'spawnPointId :: Data.Text.Text,+                               _WildPokemon'pokemonData ::+                               Prelude.Maybe Proto.POGOProtos.Data.PokemonData.PokemonData,+                               _WildPokemon'timeTillHiddenMs :: Data.Int.Int32}+                 deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "encounterId" WildPokemon =+     Data.Word.Word64++instance Data.ProtoLens.HasField "encounterId" WildPokemon+         WildPokemon where+        field _+          = Lens.Family2.Unchecked.lens _WildPokemon'encounterId+              (\ x__ y__ -> x__{_WildPokemon'encounterId = y__})++type instance+     Data.ProtoLens.Field "lastModifiedTimestampMs" WildPokemon =+     Data.Int.Int64++instance Data.ProtoLens.HasField "lastModifiedTimestampMs"+         WildPokemon WildPokemon where+        field _+          = Lens.Family2.Unchecked.lens _WildPokemon'lastModifiedTimestampMs+              (\ x__ y__ -> x__{_WildPokemon'lastModifiedTimestampMs = y__})++type instance Data.ProtoLens.Field "latitude" WildPokemon =+     Prelude.Double++instance Data.ProtoLens.HasField "latitude" WildPokemon WildPokemon+         where+        field _+          = Lens.Family2.Unchecked.lens _WildPokemon'latitude+              (\ x__ y__ -> x__{_WildPokemon'latitude = y__})++type instance Data.ProtoLens.Field "longitude" WildPokemon =+     Prelude.Double++instance Data.ProtoLens.HasField "longitude" WildPokemon+         WildPokemon where+        field _+          = Lens.Family2.Unchecked.lens _WildPokemon'longitude+              (\ x__ y__ -> x__{_WildPokemon'longitude = y__})++type instance Data.ProtoLens.Field "spawnPointId" WildPokemon =+     Data.Text.Text++instance Data.ProtoLens.HasField "spawnPointId" WildPokemon+         WildPokemon where+        field _+          = Lens.Family2.Unchecked.lens _WildPokemon'spawnPointId+              (\ x__ y__ -> x__{_WildPokemon'spawnPointId = y__})++type instance Data.ProtoLens.Field "pokemonData" WildPokemon =+     Proto.POGOProtos.Data.PokemonData.PokemonData++instance Data.ProtoLens.HasField "pokemonData" WildPokemon+         WildPokemon where+        field _+          = (Prelude..) maybe'pokemonData+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance Data.ProtoLens.Field "maybe'pokemonData" WildPokemon+     = Prelude.Maybe Proto.POGOProtos.Data.PokemonData.PokemonData++instance Data.ProtoLens.HasField "maybe'pokemonData" WildPokemon+         WildPokemon where+        field _+          = Lens.Family2.Unchecked.lens _WildPokemon'pokemonData+              (\ x__ y__ -> x__{_WildPokemon'pokemonData = y__})++type instance Data.ProtoLens.Field "timeTillHiddenMs" WildPokemon =+     Data.Int.Int32++instance Data.ProtoLens.HasField "timeTillHiddenMs" WildPokemon+         WildPokemon where+        field _+          = Lens.Family2.Unchecked.lens _WildPokemon'timeTillHiddenMs+              (\ x__ y__ -> x__{_WildPokemon'timeTillHiddenMs = y__})++instance Data.Default.Class.Default WildPokemon where+        def+          = WildPokemon{_WildPokemon'encounterId =+                          Data.ProtoLens.fieldDefault,+                        _WildPokemon'lastModifiedTimestampMs = Data.ProtoLens.fieldDefault,+                        _WildPokemon'latitude = Data.ProtoLens.fieldDefault,+                        _WildPokemon'longitude = Data.ProtoLens.fieldDefault,+                        _WildPokemon'spawnPointId = Data.ProtoLens.fieldDefault,+                        _WildPokemon'pokemonData = Prelude.Nothing,+                        _WildPokemon'timeTillHiddenMs = Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message WildPokemon where+        descriptor+          = let encounterId__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "encounter_id"+                      (Data.ProtoLens.Fixed64Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional encounterId)+                lastModifiedTimestampMs__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "last_modified_timestamp_ms"+                      (Data.ProtoLens.Int64Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         lastModifiedTimestampMs)+                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)+                spawnPointId__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "spawn_point_id"+                      (Data.ProtoLens.StringField ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional spawnPointId)+                pokemonData__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "pokemon_data"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Data.PokemonData.PokemonData)+                      (Data.ProtoLens.OptionalField maybe'pokemonData)+                timeTillHiddenMs__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "time_till_hidden_ms"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         timeTillHiddenMs)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, encounterId__field_descriptor),+                    (Data.ProtoLens.Tag 2, lastModifiedTimestampMs__field_descriptor),+                    (Data.ProtoLens.Tag 3, latitude__field_descriptor),+                    (Data.ProtoLens.Tag 4, longitude__field_descriptor),+                    (Data.ProtoLens.Tag 5, spawnPointId__field_descriptor),+                    (Data.ProtoLens.Tag 7, pokemonData__field_descriptor),+                    (Data.ProtoLens.Tag 11, timeTillHiddenMs__field_descriptor)])+                (Data.Map.fromList+                   [("encounter_id", encounterId__field_descriptor),+                    ("last_modified_timestamp_ms",+                     lastModifiedTimestampMs__field_descriptor),+                    ("latitude", latitude__field_descriptor),+                    ("longitude", longitude__field_descriptor),+                    ("spawn_point_id", spawnPointId__field_descriptor),+                    ("pokemon_data", pokemonData__field_descriptor),+                    ("time_till_hidden_ms", timeTillHiddenMs__field_descriptor)])++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")++lastModifiedTimestampMs ::+                        forall msg msg' .+                          Data.ProtoLens.HasField "lastModifiedTimestampMs" msg msg' =>+                          Lens.Family2.Lens msg msg'+                            (Data.ProtoLens.Field "lastModifiedTimestampMs" msg)+                            (Data.ProtoLens.Field "lastModifiedTimestampMs" msg')+lastModifiedTimestampMs+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "lastModifiedTimestampMs")++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")++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")++spawnPointId ::+             forall msg msg' .+               Data.ProtoLens.HasField "spawnPointId" msg msg' =>+               Lens.Family2.Lens msg msg'+                 (Data.ProtoLens.Field "spawnPointId" msg)+                 (Data.ProtoLens.Field "spawnPointId" msg')+spawnPointId+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "spawnPointId")++timeTillHiddenMs ::+                 forall msg msg' .+                   Data.ProtoLens.HasField "timeTillHiddenMs" msg msg' =>+                   Lens.Family2.Lens msg msg'+                     (Data.ProtoLens.Field "timeTillHiddenMs" msg)+                     (Data.ProtoLens.Field "timeTillHiddenMs" msg')+timeTillHiddenMs+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "timeTillHiddenMs")
+ src/Proto/POGOProtos/Map/SpawnPoint.hs view
@@ -0,0 +1,81 @@+{- This file was auto-generated from POGOProtos/Map/SpawnPoint.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Map.SpawnPoint 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 SpawnPoint = SpawnPoint{_SpawnPoint'latitude ::+                             Prelude.Double,+                             _SpawnPoint'longitude :: Prelude.Double}+                deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "latitude" SpawnPoint =+     Prelude.Double++instance Data.ProtoLens.HasField "latitude" SpawnPoint SpawnPoint+         where+        field _+          = Lens.Family2.Unchecked.lens _SpawnPoint'latitude+              (\ x__ y__ -> x__{_SpawnPoint'latitude = y__})++type instance Data.ProtoLens.Field "longitude" SpawnPoint =+     Prelude.Double++instance Data.ProtoLens.HasField "longitude" SpawnPoint SpawnPoint+         where+        field _+          = Lens.Family2.Unchecked.lens _SpawnPoint'longitude+              (\ x__ y__ -> x__{_SpawnPoint'longitude = y__})++instance Data.Default.Class.Default SpawnPoint where+        def+          = SpawnPoint{_SpawnPoint'latitude = Data.ProtoLens.fieldDefault,+                       _SpawnPoint'longitude = Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message SpawnPoint where+        descriptor+          = let 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)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 2, latitude__field_descriptor),+                    (Data.ProtoLens.Tag 3, longitude__field_descriptor)])+                (Data.Map.fromList+                   [("latitude", latitude__field_descriptor),+                    ("longitude", longitude__field_descriptor)])++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")
+ src/Proto/POGOProtos/Networking/Envelopes/AuthTicket.hs view
@@ -0,0 +1,110 @@+{- This file was auto-generated from POGOProtos/Networking/Envelopes/AuthTicket.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Envelopes.AuthTicket 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 AuthTicket = AuthTicket{_AuthTicket'start ::+                             Data.ByteString.ByteString,+                             _AuthTicket'expireTimestampMs :: Data.Word.Word64,+                             _AuthTicket'end :: Data.ByteString.ByteString}+                deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "start" AuthTicket =+     Data.ByteString.ByteString++instance Data.ProtoLens.HasField "start" AuthTicket AuthTicket+         where+        field _+          = Lens.Family2.Unchecked.lens _AuthTicket'start+              (\ x__ y__ -> x__{_AuthTicket'start = y__})++type instance Data.ProtoLens.Field "expireTimestampMs" AuthTicket =+     Data.Word.Word64++instance Data.ProtoLens.HasField "expireTimestampMs" AuthTicket+         AuthTicket where+        field _+          = Lens.Family2.Unchecked.lens _AuthTicket'expireTimestampMs+              (\ x__ y__ -> x__{_AuthTicket'expireTimestampMs = y__})++type instance Data.ProtoLens.Field "end" AuthTicket =+     Data.ByteString.ByteString++instance Data.ProtoLens.HasField "end" AuthTicket AuthTicket where+        field _+          = Lens.Family2.Unchecked.lens _AuthTicket'end+              (\ x__ y__ -> x__{_AuthTicket'end = y__})++instance Data.Default.Class.Default AuthTicket where+        def+          = AuthTicket{_AuthTicket'start = Data.ProtoLens.fieldDefault,+                       _AuthTicket'expireTimestampMs = Data.ProtoLens.fieldDefault,+                       _AuthTicket'end = Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message AuthTicket where+        descriptor+          = let start__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "start"+                      (Data.ProtoLens.BytesField ::+                         Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional start)+                expireTimestampMs__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "expire_timestamp_ms"+                      (Data.ProtoLens.UInt64Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         expireTimestampMs)+                end__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "end"+                      (Data.ProtoLens.BytesField ::+                         Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional end)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, start__field_descriptor),+                    (Data.ProtoLens.Tag 2, expireTimestampMs__field_descriptor),+                    (Data.ProtoLens.Tag 3, end__field_descriptor)])+                (Data.Map.fromList+                   [("start", start__field_descriptor),+                    ("expire_timestamp_ms", expireTimestampMs__field_descriptor),+                    ("end", end__field_descriptor)])++end ::+    forall msg msg' . Data.ProtoLens.HasField "end" msg msg' =>+      Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "end" msg)+        (Data.ProtoLens.Field "end" msg')+end+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "end")++expireTimestampMs ::+                  forall msg msg' .+                    Data.ProtoLens.HasField "expireTimestampMs" msg msg' =>+                    Lens.Family2.Lens msg msg'+                      (Data.ProtoLens.Field "expireTimestampMs" msg)+                      (Data.ProtoLens.Field "expireTimestampMs" msg')+expireTimestampMs+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "expireTimestampMs")++start ::+      forall msg msg' . Data.ProtoLens.HasField "start" msg msg' =>+        Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "start" msg)+          (Data.ProtoLens.Field "start" msg')+start+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "start")
+ src/Proto/POGOProtos/Networking/Envelopes/RequestEnvelope.hs view
@@ -0,0 +1,525 @@+{- This file was auto-generated from POGOProtos/Networking/Envelopes/RequestEnvelope.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Envelopes.RequestEnvelope 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.Networking.Envelopes.AuthTicket+import qualified Proto.POGOProtos.Networking.Envelopes.Unknown6+import qualified Proto.POGOProtos.Networking.Requests.Request++data RequestEnvelope = RequestEnvelope{_RequestEnvelope'statusCode+                                       :: Data.Int.Int32,+                                       _RequestEnvelope'requestId :: Data.Word.Word64,+                                       _RequestEnvelope'requests ::+                                       [Proto.POGOProtos.Networking.Requests.Request.Request],+                                       _RequestEnvelope'unknown6 ::+                                       Prelude.Maybe+                                         Proto.POGOProtos.Networking.Envelopes.Unknown6.Unknown6,+                                       _RequestEnvelope'latitude :: Prelude.Double,+                                       _RequestEnvelope'longitude :: Prelude.Double,+                                       _RequestEnvelope'altitude :: Prelude.Double,+                                       _RequestEnvelope'authInfo ::+                                       Prelude.Maybe RequestEnvelope'AuthInfo,+                                       _RequestEnvelope'authTicket ::+                                       Prelude.Maybe+                                         Proto.POGOProtos.Networking.Envelopes.AuthTicket.AuthTicket,+                                       _RequestEnvelope'unknown12 :: Data.Int.Int64}+                     deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "statusCode" RequestEnvelope =+     Data.Int.Int32++instance Data.ProtoLens.HasField "statusCode" RequestEnvelope+         RequestEnvelope where+        field _+          = Lens.Family2.Unchecked.lens _RequestEnvelope'statusCode+              (\ x__ y__ -> x__{_RequestEnvelope'statusCode = y__})++type instance Data.ProtoLens.Field "requestId" RequestEnvelope =+     Data.Word.Word64++instance Data.ProtoLens.HasField "requestId" RequestEnvelope+         RequestEnvelope where+        field _+          = Lens.Family2.Unchecked.lens _RequestEnvelope'requestId+              (\ x__ y__ -> x__{_RequestEnvelope'requestId = y__})++type instance Data.ProtoLens.Field "requests" RequestEnvelope =+     [Proto.POGOProtos.Networking.Requests.Request.Request]++instance Data.ProtoLens.HasField "requests" RequestEnvelope+         RequestEnvelope where+        field _+          = Lens.Family2.Unchecked.lens _RequestEnvelope'requests+              (\ x__ y__ -> x__{_RequestEnvelope'requests = y__})++type instance Data.ProtoLens.Field "unknown6" RequestEnvelope =+     Proto.POGOProtos.Networking.Envelopes.Unknown6.Unknown6++instance Data.ProtoLens.HasField "unknown6" RequestEnvelope+         RequestEnvelope where+        field _+          = (Prelude..) maybe'unknown6+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance Data.ProtoLens.Field "maybe'unknown6" RequestEnvelope+     =+     Prelude.Maybe+       Proto.POGOProtos.Networking.Envelopes.Unknown6.Unknown6++instance Data.ProtoLens.HasField "maybe'unknown6" RequestEnvelope+         RequestEnvelope where+        field _+          = Lens.Family2.Unchecked.lens _RequestEnvelope'unknown6+              (\ x__ y__ -> x__{_RequestEnvelope'unknown6 = y__})++type instance Data.ProtoLens.Field "latitude" RequestEnvelope =+     Prelude.Double++instance Data.ProtoLens.HasField "latitude" RequestEnvelope+         RequestEnvelope where+        field _+          = Lens.Family2.Unchecked.lens _RequestEnvelope'latitude+              (\ x__ y__ -> x__{_RequestEnvelope'latitude = y__})++type instance Data.ProtoLens.Field "longitude" RequestEnvelope =+     Prelude.Double++instance Data.ProtoLens.HasField "longitude" RequestEnvelope+         RequestEnvelope where+        field _+          = Lens.Family2.Unchecked.lens _RequestEnvelope'longitude+              (\ x__ y__ -> x__{_RequestEnvelope'longitude = y__})++type instance Data.ProtoLens.Field "altitude" RequestEnvelope =+     Prelude.Double++instance Data.ProtoLens.HasField "altitude" RequestEnvelope+         RequestEnvelope where+        field _+          = Lens.Family2.Unchecked.lens _RequestEnvelope'altitude+              (\ x__ y__ -> x__{_RequestEnvelope'altitude = y__})++type instance Data.ProtoLens.Field "authInfo" RequestEnvelope =+     RequestEnvelope'AuthInfo++instance Data.ProtoLens.HasField "authInfo" RequestEnvelope+         RequestEnvelope where+        field _+          = (Prelude..) maybe'authInfo+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance Data.ProtoLens.Field "maybe'authInfo" RequestEnvelope+     = Prelude.Maybe RequestEnvelope'AuthInfo++instance Data.ProtoLens.HasField "maybe'authInfo" RequestEnvelope+         RequestEnvelope where+        field _+          = Lens.Family2.Unchecked.lens _RequestEnvelope'authInfo+              (\ x__ y__ -> x__{_RequestEnvelope'authInfo = y__})++type instance Data.ProtoLens.Field "authTicket" RequestEnvelope =+     Proto.POGOProtos.Networking.Envelopes.AuthTicket.AuthTicket++instance Data.ProtoLens.HasField "authTicket" RequestEnvelope+         RequestEnvelope where+        field _+          = (Prelude..) maybe'authTicket+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance+     Data.ProtoLens.Field "maybe'authTicket" RequestEnvelope =+     Prelude.Maybe+       Proto.POGOProtos.Networking.Envelopes.AuthTicket.AuthTicket++instance Data.ProtoLens.HasField "maybe'authTicket" RequestEnvelope+         RequestEnvelope where+        field _+          = Lens.Family2.Unchecked.lens _RequestEnvelope'authTicket+              (\ x__ y__ -> x__{_RequestEnvelope'authTicket = y__})++type instance Data.ProtoLens.Field "unknown12" RequestEnvelope =+     Data.Int.Int64++instance Data.ProtoLens.HasField "unknown12" RequestEnvelope+         RequestEnvelope where+        field _+          = Lens.Family2.Unchecked.lens _RequestEnvelope'unknown12+              (\ x__ y__ -> x__{_RequestEnvelope'unknown12 = y__})++instance Data.Default.Class.Default RequestEnvelope where+        def+          = RequestEnvelope{_RequestEnvelope'statusCode =+                              Data.ProtoLens.fieldDefault,+                            _RequestEnvelope'requestId = Data.ProtoLens.fieldDefault,+                            _RequestEnvelope'requests = [],+                            _RequestEnvelope'unknown6 = Prelude.Nothing,+                            _RequestEnvelope'latitude = Data.ProtoLens.fieldDefault,+                            _RequestEnvelope'longitude = Data.ProtoLens.fieldDefault,+                            _RequestEnvelope'altitude = Data.ProtoLens.fieldDefault,+                            _RequestEnvelope'authInfo = Prelude.Nothing,+                            _RequestEnvelope'authTicket = Prelude.Nothing,+                            _RequestEnvelope'unknown12 = Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message RequestEnvelope where+        descriptor+          = let statusCode__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "status_code"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional statusCode)+                requestId__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "request_id"+                      (Data.ProtoLens.UInt64Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional requestId)+                requests__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "requests"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Networking.Requests.Request.Request)+                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked requests)+                unknown6__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "unknown6"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Networking.Envelopes.Unknown6.Unknown6)+                      (Data.ProtoLens.OptionalField maybe'unknown6)+                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)+                altitude__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "altitude"+                      (Data.ProtoLens.DoubleField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Double)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional altitude)+                authInfo__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "auth_info"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor RequestEnvelope'AuthInfo)+                      (Data.ProtoLens.OptionalField maybe'authInfo)+                authTicket__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "auth_ticket"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Networking.Envelopes.AuthTicket.AuthTicket)+                      (Data.ProtoLens.OptionalField maybe'authTicket)+                unknown12__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "unknown12"+                      (Data.ProtoLens.Int64Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional unknown12)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, statusCode__field_descriptor),+                    (Data.ProtoLens.Tag 3, requestId__field_descriptor),+                    (Data.ProtoLens.Tag 4, requests__field_descriptor),+                    (Data.ProtoLens.Tag 6, unknown6__field_descriptor),+                    (Data.ProtoLens.Tag 7, latitude__field_descriptor),+                    (Data.ProtoLens.Tag 8, longitude__field_descriptor),+                    (Data.ProtoLens.Tag 9, altitude__field_descriptor),+                    (Data.ProtoLens.Tag 10, authInfo__field_descriptor),+                    (Data.ProtoLens.Tag 11, authTicket__field_descriptor),+                    (Data.ProtoLens.Tag 12, unknown12__field_descriptor)])+                (Data.Map.fromList+                   [("status_code", statusCode__field_descriptor),+                    ("request_id", requestId__field_descriptor),+                    ("requests", requests__field_descriptor),+                    ("unknown6", unknown6__field_descriptor),+                    ("latitude", latitude__field_descriptor),+                    ("longitude", longitude__field_descriptor),+                    ("altitude", altitude__field_descriptor),+                    ("auth_info", authInfo__field_descriptor),+                    ("auth_ticket", authTicket__field_descriptor),+                    ("unknown12", unknown12__field_descriptor)])++data RequestEnvelope'AuthInfo = RequestEnvelope'AuthInfo{_RequestEnvelope'AuthInfo'provider+                                                         :: Data.Text.Text,+                                                         _RequestEnvelope'AuthInfo'token ::+                                                         Prelude.Maybe RequestEnvelope'AuthInfo'JWT}+                              deriving (Prelude.Show, Prelude.Eq)++type instance+     Data.ProtoLens.Field "provider" RequestEnvelope'AuthInfo =+     Data.Text.Text++instance Data.ProtoLens.HasField "provider"+         RequestEnvelope'AuthInfo RequestEnvelope'AuthInfo where+        field _+          = Lens.Family2.Unchecked.lens _RequestEnvelope'AuthInfo'provider+              (\ x__ y__ -> x__{_RequestEnvelope'AuthInfo'provider = y__})++type instance Data.ProtoLens.Field "token" RequestEnvelope'AuthInfo+     = RequestEnvelope'AuthInfo'JWT++instance Data.ProtoLens.HasField "token" RequestEnvelope'AuthInfo+         RequestEnvelope'AuthInfo where+        field _+          = (Prelude..) maybe'token+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance+     Data.ProtoLens.Field "maybe'token" RequestEnvelope'AuthInfo =+     Prelude.Maybe RequestEnvelope'AuthInfo'JWT++instance Data.ProtoLens.HasField "maybe'token"+         RequestEnvelope'AuthInfo RequestEnvelope'AuthInfo where+        field _+          = Lens.Family2.Unchecked.lens _RequestEnvelope'AuthInfo'token+              (\ x__ y__ -> x__{_RequestEnvelope'AuthInfo'token = y__})++instance Data.Default.Class.Default RequestEnvelope'AuthInfo where+        def+          = RequestEnvelope'AuthInfo{_RequestEnvelope'AuthInfo'provider =+                                       Data.ProtoLens.fieldDefault,+                                     _RequestEnvelope'AuthInfo'token = Prelude.Nothing}++instance Data.ProtoLens.Message RequestEnvelope'AuthInfo where+        descriptor+          = let provider__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "provider"+                      (Data.ProtoLens.StringField ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional provider)+                token__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "token"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor RequestEnvelope'AuthInfo'JWT)+                      (Data.ProtoLens.OptionalField maybe'token)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, provider__field_descriptor),+                    (Data.ProtoLens.Tag 2, token__field_descriptor)])+                (Data.Map.fromList+                   [("provider", provider__field_descriptor),+                    ("token", token__field_descriptor)])++data RequestEnvelope'AuthInfo'JWT = RequestEnvelope'AuthInfo'JWT{_RequestEnvelope'AuthInfo'JWT'contents+                                                                 :: Data.Text.Text,+                                                                 _RequestEnvelope'AuthInfo'JWT'unknown2+                                                                 :: Data.Int.Int32}+                                  deriving (Prelude.Show, Prelude.Eq)++type instance+     Data.ProtoLens.Field "contents" RequestEnvelope'AuthInfo'JWT =+     Data.Text.Text++instance Data.ProtoLens.HasField "contents"+         RequestEnvelope'AuthInfo'JWT RequestEnvelope'AuthInfo'JWT where+        field _+          = Lens.Family2.Unchecked.lens+              _RequestEnvelope'AuthInfo'JWT'contents+              (\ x__ y__ -> x__{_RequestEnvelope'AuthInfo'JWT'contents = y__})++type instance+     Data.ProtoLens.Field "unknown2" RequestEnvelope'AuthInfo'JWT =+     Data.Int.Int32++instance Data.ProtoLens.HasField "unknown2"+         RequestEnvelope'AuthInfo'JWT RequestEnvelope'AuthInfo'JWT where+        field _+          = Lens.Family2.Unchecked.lens+              _RequestEnvelope'AuthInfo'JWT'unknown2+              (\ x__ y__ -> x__{_RequestEnvelope'AuthInfo'JWT'unknown2 = y__})++instance Data.Default.Class.Default RequestEnvelope'AuthInfo'JWT+         where+        def+          = RequestEnvelope'AuthInfo'JWT{_RequestEnvelope'AuthInfo'JWT'contents+                                           = Data.ProtoLens.fieldDefault,+                                         _RequestEnvelope'AuthInfo'JWT'unknown2 =+                                           Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message RequestEnvelope'AuthInfo'JWT where+        descriptor+          = let contents__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "contents"+                      (Data.ProtoLens.StringField ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional contents)+                unknown2__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "unknown2"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional unknown2)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, contents__field_descriptor),+                    (Data.ProtoLens.Tag 2, unknown2__field_descriptor)])+                (Data.Map.fromList+                   [("contents", contents__field_descriptor),+                    ("unknown2", unknown2__field_descriptor)])++altitude ::+         forall msg msg' . Data.ProtoLens.HasField "altitude" msg msg' =>+           Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "altitude" msg)+             (Data.ProtoLens.Field "altitude" msg')+altitude+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "altitude")++authInfo ::+         forall msg msg' . Data.ProtoLens.HasField "authInfo" msg msg' =>+           Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "authInfo" msg)+             (Data.ProtoLens.Field "authInfo" msg')+authInfo+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "authInfo")++authTicket ::+           forall msg msg' . Data.ProtoLens.HasField "authTicket" msg msg' =>+             Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "authTicket" msg)+               (Data.ProtoLens.Field "authTicket" msg')+authTicket+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "authTicket")++contents ::+         forall msg msg' . Data.ProtoLens.HasField "contents" msg msg' =>+           Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "contents" msg)+             (Data.ProtoLens.Field "contents" msg')+contents+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "contents")++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")++maybe'authInfo ::+               forall msg msg' .+                 Data.ProtoLens.HasField "maybe'authInfo" msg msg' =>+                 Lens.Family2.Lens msg msg'+                   (Data.ProtoLens.Field "maybe'authInfo" msg)+                   (Data.ProtoLens.Field "maybe'authInfo" msg')+maybe'authInfo+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "maybe'authInfo")++maybe'authTicket ::+                 forall msg msg' .+                   Data.ProtoLens.HasField "maybe'authTicket" msg msg' =>+                   Lens.Family2.Lens msg msg'+                     (Data.ProtoLens.Field "maybe'authTicket" msg)+                     (Data.ProtoLens.Field "maybe'authTicket" msg')+maybe'authTicket+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "maybe'authTicket")++maybe'token ::+            forall msg msg' . Data.ProtoLens.HasField "maybe'token" msg msg' =>+              Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "maybe'token" msg)+                (Data.ProtoLens.Field "maybe'token" msg')+maybe'token+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "maybe'token")++maybe'unknown6 ::+               forall msg msg' .+                 Data.ProtoLens.HasField "maybe'unknown6" msg msg' =>+                 Lens.Family2.Lens msg msg'+                   (Data.ProtoLens.Field "maybe'unknown6" msg)+                   (Data.ProtoLens.Field "maybe'unknown6" msg')+maybe'unknown6+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "maybe'unknown6")++provider ::+         forall msg msg' . Data.ProtoLens.HasField "provider" msg msg' =>+           Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "provider" msg)+             (Data.ProtoLens.Field "provider" msg')+provider+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "provider")++requestId ::+          forall msg msg' . Data.ProtoLens.HasField "requestId" msg msg' =>+            Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "requestId" msg)+              (Data.ProtoLens.Field "requestId" msg')+requestId+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "requestId")++requests ::+         forall msg msg' . Data.ProtoLens.HasField "requests" msg msg' =>+           Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "requests" msg)+             (Data.ProtoLens.Field "requests" msg')+requests+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "requests")++statusCode ::+           forall msg msg' . Data.ProtoLens.HasField "statusCode" msg msg' =>+             Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "statusCode" msg)+               (Data.ProtoLens.Field "statusCode" msg')+statusCode+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "statusCode")++token ::+      forall msg msg' . Data.ProtoLens.HasField "token" msg msg' =>+        Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "token" msg)+          (Data.ProtoLens.Field "token" msg')+token+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "token")++unknown12 ::+          forall msg msg' . Data.ProtoLens.HasField "unknown12" msg msg' =>+            Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "unknown12" msg)+              (Data.ProtoLens.Field "unknown12" msg')+unknown12+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "unknown12")++unknown2 ::+         forall msg msg' . Data.ProtoLens.HasField "unknown2" msg msg' =>+           Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "unknown2" msg)+             (Data.ProtoLens.Field "unknown2" msg')+unknown2+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "unknown2")++unknown6 ::+         forall msg msg' . Data.ProtoLens.HasField "unknown6" msg msg' =>+           Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "unknown6" msg)+             (Data.ProtoLens.Field "unknown6" msg')+unknown6+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "unknown6")
+ src/Proto/POGOProtos/Networking/Envelopes/ResponseEnvelope.hs view
@@ -0,0 +1,364 @@+{- This file was auto-generated from POGOProtos/Networking/Envelopes/ResponseEnvelope.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Envelopes.ResponseEnvelope 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.Networking.Envelopes.AuthTicket+import qualified+       Proto.POGOProtos.Networking.Envelopes.Unknown6Response++data ResponseEnvelope = ResponseEnvelope{_ResponseEnvelope'statusCode+                                         :: Data.Int.Int32,+                                         _ResponseEnvelope'requestId :: Data.Word.Word64,+                                         _ResponseEnvelope'apiUrl :: Data.Text.Text,+                                         _ResponseEnvelope'unknown6 ::+                                         Prelude.Maybe+                                           Proto.POGOProtos.Networking.Envelopes.Unknown6Response.Unknown6Response,+                                         _ResponseEnvelope'authTicket ::+                                         Prelude.Maybe+                                           Proto.POGOProtos.Networking.Envelopes.AuthTicket.AuthTicket,+                                         _ResponseEnvelope'returns :: [Data.ByteString.ByteString],+                                         _ResponseEnvelope'error :: Data.Text.Text}+                      deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "statusCode" ResponseEnvelope =+     Data.Int.Int32++instance Data.ProtoLens.HasField "statusCode" ResponseEnvelope+         ResponseEnvelope where+        field _+          = Lens.Family2.Unchecked.lens _ResponseEnvelope'statusCode+              (\ x__ y__ -> x__{_ResponseEnvelope'statusCode = y__})++type instance Data.ProtoLens.Field "requestId" ResponseEnvelope =+     Data.Word.Word64++instance Data.ProtoLens.HasField "requestId" ResponseEnvelope+         ResponseEnvelope where+        field _+          = Lens.Family2.Unchecked.lens _ResponseEnvelope'requestId+              (\ x__ y__ -> x__{_ResponseEnvelope'requestId = y__})++type instance Data.ProtoLens.Field "apiUrl" ResponseEnvelope =+     Data.Text.Text++instance Data.ProtoLens.HasField "apiUrl" ResponseEnvelope+         ResponseEnvelope where+        field _+          = Lens.Family2.Unchecked.lens _ResponseEnvelope'apiUrl+              (\ x__ y__ -> x__{_ResponseEnvelope'apiUrl = y__})++type instance Data.ProtoLens.Field "unknown6" ResponseEnvelope =+     Proto.POGOProtos.Networking.Envelopes.Unknown6Response.Unknown6Response++instance Data.ProtoLens.HasField "unknown6" ResponseEnvelope+         ResponseEnvelope where+        field _+          = (Prelude..) maybe'unknown6+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance+     Data.ProtoLens.Field "maybe'unknown6" ResponseEnvelope =+     Prelude.Maybe+       Proto.POGOProtos.Networking.Envelopes.Unknown6Response.Unknown6Response++instance Data.ProtoLens.HasField "maybe'unknown6" ResponseEnvelope+         ResponseEnvelope where+        field _+          = Lens.Family2.Unchecked.lens _ResponseEnvelope'unknown6+              (\ x__ y__ -> x__{_ResponseEnvelope'unknown6 = y__})++type instance Data.ProtoLens.Field "authTicket" ResponseEnvelope =+     Proto.POGOProtos.Networking.Envelopes.AuthTicket.AuthTicket++instance Data.ProtoLens.HasField "authTicket" ResponseEnvelope+         ResponseEnvelope where+        field _+          = (Prelude..) maybe'authTicket+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance+     Data.ProtoLens.Field "maybe'authTicket" ResponseEnvelope =+     Prelude.Maybe+       Proto.POGOProtos.Networking.Envelopes.AuthTicket.AuthTicket++instance Data.ProtoLens.HasField "maybe'authTicket"+         ResponseEnvelope ResponseEnvelope where+        field _+          = Lens.Family2.Unchecked.lens _ResponseEnvelope'authTicket+              (\ x__ y__ -> x__{_ResponseEnvelope'authTicket = y__})++type instance Data.ProtoLens.Field "returns" ResponseEnvelope =+     [Data.ByteString.ByteString]++instance Data.ProtoLens.HasField "returns" ResponseEnvelope+         ResponseEnvelope where+        field _+          = Lens.Family2.Unchecked.lens _ResponseEnvelope'returns+              (\ x__ y__ -> x__{_ResponseEnvelope'returns = y__})++type instance Data.ProtoLens.Field "error" ResponseEnvelope =+     Data.Text.Text++instance Data.ProtoLens.HasField "error" ResponseEnvelope+         ResponseEnvelope where+        field _+          = Lens.Family2.Unchecked.lens _ResponseEnvelope'error+              (\ x__ y__ -> x__{_ResponseEnvelope'error = y__})++instance Data.Default.Class.Default ResponseEnvelope where+        def+          = ResponseEnvelope{_ResponseEnvelope'statusCode =+                               Data.ProtoLens.fieldDefault,+                             _ResponseEnvelope'requestId = Data.ProtoLens.fieldDefault,+                             _ResponseEnvelope'apiUrl = Data.ProtoLens.fieldDefault,+                             _ResponseEnvelope'unknown6 = Prelude.Nothing,+                             _ResponseEnvelope'authTicket = Prelude.Nothing,+                             _ResponseEnvelope'returns = [],+                             _ResponseEnvelope'error = Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message ResponseEnvelope where+        descriptor+          = let statusCode__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "status_code"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional statusCode)+                requestId__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "request_id"+                      (Data.ProtoLens.UInt64Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional requestId)+                apiUrl__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "api_url"+                      (Data.ProtoLens.StringField ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional apiUrl)+                unknown6__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "unknown6"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Networking.Envelopes.Unknown6Response.Unknown6Response)+                      (Data.ProtoLens.OptionalField maybe'unknown6)+                authTicket__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "auth_ticket"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Networking.Envelopes.AuthTicket.AuthTicket)+                      (Data.ProtoLens.OptionalField maybe'authTicket)+                returns__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "returns"+                      (Data.ProtoLens.BytesField ::+                         Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)+                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked returns)+                error__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "error"+                      (Data.ProtoLens.StringField ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional error)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, statusCode__field_descriptor),+                    (Data.ProtoLens.Tag 2, requestId__field_descriptor),+                    (Data.ProtoLens.Tag 3, apiUrl__field_descriptor),+                    (Data.ProtoLens.Tag 6, unknown6__field_descriptor),+                    (Data.ProtoLens.Tag 7, authTicket__field_descriptor),+                    (Data.ProtoLens.Tag 100, returns__field_descriptor),+                    (Data.ProtoLens.Tag 101, error__field_descriptor)])+                (Data.Map.fromList+                   [("status_code", statusCode__field_descriptor),+                    ("request_id", requestId__field_descriptor),+                    ("api_url", apiUrl__field_descriptor),+                    ("unknown6", unknown6__field_descriptor),+                    ("auth_ticket", authTicket__field_descriptor),+                    ("returns", returns__field_descriptor),+                    ("error", error__field_descriptor)])++data ResponseEnvelope'Unknown7 = ResponseEnvelope'Unknown7{_ResponseEnvelope'Unknown7'unknown71+                                                           :: Data.ByteString.ByteString,+                                                           _ResponseEnvelope'Unknown7'unknown72 ::+                                                           Data.Int.Int64,+                                                           _ResponseEnvelope'Unknown7'unknown73 ::+                                                           Data.ByteString.ByteString}+                               deriving (Prelude.Show, Prelude.Eq)++type instance+     Data.ProtoLens.Field "unknown71" ResponseEnvelope'Unknown7 =+     Data.ByteString.ByteString++instance Data.ProtoLens.HasField "unknown71"+         ResponseEnvelope'Unknown7 ResponseEnvelope'Unknown7 where+        field _+          = Lens.Family2.Unchecked.lens _ResponseEnvelope'Unknown7'unknown71+              (\ x__ y__ -> x__{_ResponseEnvelope'Unknown7'unknown71 = y__})++type instance+     Data.ProtoLens.Field "unknown72" ResponseEnvelope'Unknown7 =+     Data.Int.Int64++instance Data.ProtoLens.HasField "unknown72"+         ResponseEnvelope'Unknown7 ResponseEnvelope'Unknown7 where+        field _+          = Lens.Family2.Unchecked.lens _ResponseEnvelope'Unknown7'unknown72+              (\ x__ y__ -> x__{_ResponseEnvelope'Unknown7'unknown72 = y__})++type instance+     Data.ProtoLens.Field "unknown73" ResponseEnvelope'Unknown7 =+     Data.ByteString.ByteString++instance Data.ProtoLens.HasField "unknown73"+         ResponseEnvelope'Unknown7 ResponseEnvelope'Unknown7 where+        field _+          = Lens.Family2.Unchecked.lens _ResponseEnvelope'Unknown7'unknown73+              (\ x__ y__ -> x__{_ResponseEnvelope'Unknown7'unknown73 = y__})++instance Data.Default.Class.Default ResponseEnvelope'Unknown7 where+        def+          = ResponseEnvelope'Unknown7{_ResponseEnvelope'Unknown7'unknown71 =+                                        Data.ProtoLens.fieldDefault,+                                      _ResponseEnvelope'Unknown7'unknown72 =+                                        Data.ProtoLens.fieldDefault,+                                      _ResponseEnvelope'Unknown7'unknown73 =+                                        Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message ResponseEnvelope'Unknown7 where+        descriptor+          = let unknown71__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "unknown71"+                      (Data.ProtoLens.BytesField ::+                         Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional unknown71)+                unknown72__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "unknown72"+                      (Data.ProtoLens.Int64Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional unknown72)+                unknown73__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "unknown73"+                      (Data.ProtoLens.BytesField ::+                         Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional unknown73)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, unknown71__field_descriptor),+                    (Data.ProtoLens.Tag 2, unknown72__field_descriptor),+                    (Data.ProtoLens.Tag 3, unknown73__field_descriptor)])+                (Data.Map.fromList+                   [("unknown71", unknown71__field_descriptor),+                    ("unknown72", unknown72__field_descriptor),+                    ("unknown73", unknown73__field_descriptor)])++apiUrl ::+       forall msg msg' . Data.ProtoLens.HasField "apiUrl" msg msg' =>+         Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "apiUrl" msg)+           (Data.ProtoLens.Field "apiUrl" msg')+apiUrl+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "apiUrl")++authTicket ::+           forall msg msg' . Data.ProtoLens.HasField "authTicket" msg msg' =>+             Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "authTicket" msg)+               (Data.ProtoLens.Field "authTicket" msg')+authTicket+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "authTicket")++error ::+      forall msg msg' . Data.ProtoLens.HasField "error" msg msg' =>+        Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "error" msg)+          (Data.ProtoLens.Field "error" msg')+error+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "error")++maybe'authTicket ::+                 forall msg msg' .+                   Data.ProtoLens.HasField "maybe'authTicket" msg msg' =>+                   Lens.Family2.Lens msg msg'+                     (Data.ProtoLens.Field "maybe'authTicket" msg)+                     (Data.ProtoLens.Field "maybe'authTicket" msg')+maybe'authTicket+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "maybe'authTicket")++maybe'unknown6 ::+               forall msg msg' .+                 Data.ProtoLens.HasField "maybe'unknown6" msg msg' =>+                 Lens.Family2.Lens msg msg'+                   (Data.ProtoLens.Field "maybe'unknown6" msg)+                   (Data.ProtoLens.Field "maybe'unknown6" msg')+maybe'unknown6+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "maybe'unknown6")++requestId ::+          forall msg msg' . Data.ProtoLens.HasField "requestId" msg msg' =>+            Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "requestId" msg)+              (Data.ProtoLens.Field "requestId" msg')+requestId+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "requestId")++returns ::+        forall msg msg' . Data.ProtoLens.HasField "returns" msg msg' =>+          Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "returns" msg)+            (Data.ProtoLens.Field "returns" msg')+returns+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "returns")++statusCode ::+           forall msg msg' . Data.ProtoLens.HasField "statusCode" msg msg' =>+             Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "statusCode" msg)+               (Data.ProtoLens.Field "statusCode" msg')+statusCode+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "statusCode")++unknown6 ::+         forall msg msg' . Data.ProtoLens.HasField "unknown6" msg msg' =>+           Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "unknown6" msg)+             (Data.ProtoLens.Field "unknown6" msg')+unknown6+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "unknown6")++unknown71 ::+          forall msg msg' . Data.ProtoLens.HasField "unknown71" msg msg' =>+            Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "unknown71" msg)+              (Data.ProtoLens.Field "unknown71" msg')+unknown71+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "unknown71")++unknown72 ::+          forall msg msg' . Data.ProtoLens.HasField "unknown72" msg msg' =>+            Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "unknown72" msg)+              (Data.ProtoLens.Field "unknown72" msg')+unknown72+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "unknown72")++unknown73 ::+          forall msg msg' . Data.ProtoLens.HasField "unknown73" msg msg' =>+            Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "unknown73" msg)+              (Data.ProtoLens.Field "unknown73" msg')+unknown73+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "unknown73")
+ src/Proto/POGOProtos/Networking/Envelopes/Unknown6.hs view
@@ -0,0 +1,129 @@+{- This file was auto-generated from POGOProtos/Networking/Envelopes/Unknown6.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Envelopes.Unknown6 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 Unknown6 = Unknown6{_Unknown6'unknown1 :: Data.Int.Int32,+                         _Unknown6'unknown2 :: Prelude.Maybe Unknown6'Unknown2}+              deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "unknown1" Unknown6 =+     Data.Int.Int32++instance Data.ProtoLens.HasField "unknown1" Unknown6 Unknown6 where+        field _+          = Lens.Family2.Unchecked.lens _Unknown6'unknown1+              (\ x__ y__ -> x__{_Unknown6'unknown1 = y__})++type instance Data.ProtoLens.Field "unknown2" Unknown6 =+     Unknown6'Unknown2++instance Data.ProtoLens.HasField "unknown2" Unknown6 Unknown6 where+        field _+          = (Prelude..) maybe'unknown2+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance Data.ProtoLens.Field "maybe'unknown2" Unknown6 =+     Prelude.Maybe Unknown6'Unknown2++instance Data.ProtoLens.HasField "maybe'unknown2" Unknown6 Unknown6+         where+        field _+          = Lens.Family2.Unchecked.lens _Unknown6'unknown2+              (\ x__ y__ -> x__{_Unknown6'unknown2 = y__})++instance Data.Default.Class.Default Unknown6 where+        def+          = Unknown6{_Unknown6'unknown1 = Data.ProtoLens.fieldDefault,+                     _Unknown6'unknown2 = Prelude.Nothing}++instance Data.ProtoLens.Message Unknown6 where+        descriptor+          = let unknown1__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "unknown1"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional unknown1)+                unknown2__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "unknown2"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor Unknown6'Unknown2)+                      (Data.ProtoLens.OptionalField maybe'unknown2)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, unknown1__field_descriptor),+                    (Data.ProtoLens.Tag 2, unknown2__field_descriptor)])+                (Data.Map.fromList+                   [("unknown1", unknown1__field_descriptor),+                    ("unknown2", unknown2__field_descriptor)])++data Unknown6'Unknown2 = Unknown6'Unknown2{_Unknown6'Unknown2'unknown1+                                           :: Data.ByteString.ByteString}+                       deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "unknown1" Unknown6'Unknown2 =+     Data.ByteString.ByteString++instance Data.ProtoLens.HasField "unknown1" Unknown6'Unknown2+         Unknown6'Unknown2 where+        field _+          = Lens.Family2.Unchecked.lens _Unknown6'Unknown2'unknown1+              (\ x__ y__ -> x__{_Unknown6'Unknown2'unknown1 = y__})++instance Data.Default.Class.Default Unknown6'Unknown2 where+        def+          = Unknown6'Unknown2{_Unknown6'Unknown2'unknown1 =+                                Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message Unknown6'Unknown2 where+        descriptor+          = let unknown1__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "unknown1"+                      (Data.ProtoLens.BytesField ::+                         Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional unknown1)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, unknown1__field_descriptor)])+                (Data.Map.fromList [("unknown1", unknown1__field_descriptor)])++maybe'unknown2 ::+               forall msg msg' .+                 Data.ProtoLens.HasField "maybe'unknown2" msg msg' =>+                 Lens.Family2.Lens msg msg'+                   (Data.ProtoLens.Field "maybe'unknown2" msg)+                   (Data.ProtoLens.Field "maybe'unknown2" msg')+maybe'unknown2+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "maybe'unknown2")++unknown1 ::+         forall msg msg' . Data.ProtoLens.HasField "unknown1" msg msg' =>+           Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "unknown1" msg)+             (Data.ProtoLens.Field "unknown1" msg')+unknown1+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "unknown1")++unknown2 ::+         forall msg msg' . Data.ProtoLens.HasField "unknown2" msg msg' =>+           Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "unknown2" msg)+             (Data.ProtoLens.Field "unknown2" msg')+unknown2+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "unknown2")
+ src/Proto/POGOProtos/Networking/Envelopes/Unknown6Response.hs view
@@ -0,0 +1,136 @@+{- This file was auto-generated from POGOProtos/Networking/Envelopes/Unknown6Response.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Envelopes.Unknown6Response 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 Unknown6Response = Unknown6Response{_Unknown6Response'unknown1+                                         :: Data.Int.Int32,+                                         _Unknown6Response'unknown2 ::+                                         Prelude.Maybe Unknown6Response'Unknown2}+                      deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "unknown1" Unknown6Response =+     Data.Int.Int32++instance Data.ProtoLens.HasField "unknown1" Unknown6Response+         Unknown6Response where+        field _+          = Lens.Family2.Unchecked.lens _Unknown6Response'unknown1+              (\ x__ y__ -> x__{_Unknown6Response'unknown1 = y__})++type instance Data.ProtoLens.Field "unknown2" Unknown6Response =+     Unknown6Response'Unknown2++instance Data.ProtoLens.HasField "unknown2" Unknown6Response+         Unknown6Response where+        field _+          = (Prelude..) maybe'unknown2+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance+     Data.ProtoLens.Field "maybe'unknown2" Unknown6Response =+     Prelude.Maybe Unknown6Response'Unknown2++instance Data.ProtoLens.HasField "maybe'unknown2" Unknown6Response+         Unknown6Response where+        field _+          = Lens.Family2.Unchecked.lens _Unknown6Response'unknown2+              (\ x__ y__ -> x__{_Unknown6Response'unknown2 = y__})++instance Data.Default.Class.Default Unknown6Response where+        def+          = Unknown6Response{_Unknown6Response'unknown1 =+                               Data.ProtoLens.fieldDefault,+                             _Unknown6Response'unknown2 = Prelude.Nothing}++instance Data.ProtoLens.Message Unknown6Response where+        descriptor+          = let unknown1__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "unknown1"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional unknown1)+                unknown2__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "unknown2"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor Unknown6Response'Unknown2)+                      (Data.ProtoLens.OptionalField maybe'unknown2)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, unknown1__field_descriptor),+                    (Data.ProtoLens.Tag 2, unknown2__field_descriptor)])+                (Data.Map.fromList+                   [("unknown1", unknown1__field_descriptor),+                    ("unknown2", unknown2__field_descriptor)])++data Unknown6Response'Unknown2 = Unknown6Response'Unknown2{_Unknown6Response'Unknown2'unknown1+                                                           :: Data.Word.Word64}+                               deriving (Prelude.Show, Prelude.Eq)++type instance+     Data.ProtoLens.Field "unknown1" Unknown6Response'Unknown2 =+     Data.Word.Word64++instance Data.ProtoLens.HasField "unknown1"+         Unknown6Response'Unknown2 Unknown6Response'Unknown2 where+        field _+          = Lens.Family2.Unchecked.lens _Unknown6Response'Unknown2'unknown1+              (\ x__ y__ -> x__{_Unknown6Response'Unknown2'unknown1 = y__})++instance Data.Default.Class.Default Unknown6Response'Unknown2 where+        def+          = Unknown6Response'Unknown2{_Unknown6Response'Unknown2'unknown1 =+                                        Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message Unknown6Response'Unknown2 where+        descriptor+          = let unknown1__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "unknown1"+                      (Data.ProtoLens.UInt64Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional unknown1)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, unknown1__field_descriptor)])+                (Data.Map.fromList [("unknown1", unknown1__field_descriptor)])++maybe'unknown2 ::+               forall msg msg' .+                 Data.ProtoLens.HasField "maybe'unknown2" msg msg' =>+                 Lens.Family2.Lens msg msg'+                   (Data.ProtoLens.Field "maybe'unknown2" msg)+                   (Data.ProtoLens.Field "maybe'unknown2" msg')+maybe'unknown2+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "maybe'unknown2")++unknown1 ::+         forall msg msg' . Data.ProtoLens.HasField "unknown1" msg msg' =>+           Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "unknown1" msg)+             (Data.ProtoLens.Field "unknown1" msg')+unknown1+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "unknown1")++unknown2 ::+         forall msg msg' . Data.ProtoLens.HasField "unknown2" msg msg' =>+           Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "unknown2" msg)+             (Data.ProtoLens.Field "unknown2" msg')+unknown2+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "unknown2")
+ src/Proto/POGOProtos/Networking/Requests/Messages/AddFortModifierMessage.hs view
@@ -0,0 +1,156 @@+{- This file was auto-generated from POGOProtos/Networking/Requests/Messages/AddFortModifierMessage.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Requests.Messages.AddFortModifierMessage+       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.Inventory.Item.ItemId++data AddFortModifierMessage = AddFortModifierMessage{_AddFortModifierMessage'modifierType+                                                     ::+                                                     Proto.POGOProtos.Inventory.Item.ItemId.ItemId,+                                                     _AddFortModifierMessage'fortId ::+                                                     Data.Text.Text,+                                                     _AddFortModifierMessage'playerLatitude ::+                                                     Prelude.Double,+                                                     _AddFortModifierMessage'playerLongitude ::+                                                     Prelude.Double}+                            deriving (Prelude.Show, Prelude.Eq)++type instance+     Data.ProtoLens.Field "modifierType" AddFortModifierMessage =+     Proto.POGOProtos.Inventory.Item.ItemId.ItemId++instance Data.ProtoLens.HasField "modifierType"+         AddFortModifierMessage AddFortModifierMessage where+        field _+          = Lens.Family2.Unchecked.lens _AddFortModifierMessage'modifierType+              (\ x__ y__ -> x__{_AddFortModifierMessage'modifierType = y__})++type instance Data.ProtoLens.Field "fortId" AddFortModifierMessage+     = Data.Text.Text++instance Data.ProtoLens.HasField "fortId" AddFortModifierMessage+         AddFortModifierMessage where+        field _+          = Lens.Family2.Unchecked.lens _AddFortModifierMessage'fortId+              (\ x__ y__ -> x__{_AddFortModifierMessage'fortId = y__})++type instance+     Data.ProtoLens.Field "playerLatitude" AddFortModifierMessage =+     Prelude.Double++instance Data.ProtoLens.HasField "playerLatitude"+         AddFortModifierMessage AddFortModifierMessage where+        field _+          = Lens.Family2.Unchecked.lens+              _AddFortModifierMessage'playerLatitude+              (\ x__ y__ -> x__{_AddFortModifierMessage'playerLatitude = y__})++type instance+     Data.ProtoLens.Field "playerLongitude" AddFortModifierMessage =+     Prelude.Double++instance Data.ProtoLens.HasField "playerLongitude"+         AddFortModifierMessage AddFortModifierMessage where+        field _+          = Lens.Family2.Unchecked.lens+              _AddFortModifierMessage'playerLongitude+              (\ x__ y__ -> x__{_AddFortModifierMessage'playerLongitude = y__})++instance Data.Default.Class.Default AddFortModifierMessage where+        def+          = AddFortModifierMessage{_AddFortModifierMessage'modifierType =+                                     Data.Default.Class.def,+                                   _AddFortModifierMessage'fortId = Data.ProtoLens.fieldDefault,+                                   _AddFortModifierMessage'playerLatitude =+                                     Data.ProtoLens.fieldDefault,+                                   _AddFortModifierMessage'playerLongitude =+                                     Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message AddFortModifierMessage where+        descriptor+          = let modifierType__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "modifier_type"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Inventory.Item.ItemId.ItemId)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional modifierType)+                fortId__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "fort_id"+                      (Data.ProtoLens.StringField ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional fortId)+                playerLatitude__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "player_latitude"+                      (Data.ProtoLens.DoubleField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Double)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional playerLatitude)+                playerLongitude__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "player_longitude"+                      (Data.ProtoLens.DoubleField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Double)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional playerLongitude)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, modifierType__field_descriptor),+                    (Data.ProtoLens.Tag 2, fortId__field_descriptor),+                    (Data.ProtoLens.Tag 3, playerLatitude__field_descriptor),+                    (Data.ProtoLens.Tag 4, playerLongitude__field_descriptor)])+                (Data.Map.fromList+                   [("modifier_type", modifierType__field_descriptor),+                    ("fort_id", fortId__field_descriptor),+                    ("player_latitude", playerLatitude__field_descriptor),+                    ("player_longitude", playerLongitude__field_descriptor)])++fortId ::+       forall msg msg' . Data.ProtoLens.HasField "fortId" msg msg' =>+         Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "fortId" msg)+           (Data.ProtoLens.Field "fortId" msg')+fortId+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "fortId")++modifierType ::+             forall msg msg' .+               Data.ProtoLens.HasField "modifierType" msg msg' =>+               Lens.Family2.Lens msg msg'+                 (Data.ProtoLens.Field "modifierType" msg)+                 (Data.ProtoLens.Field "modifierType" msg')+modifierType+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "modifierType")++playerLatitude ::+               forall msg msg' .+                 Data.ProtoLens.HasField "playerLatitude" msg msg' =>+                 Lens.Family2.Lens msg msg'+                   (Data.ProtoLens.Field "playerLatitude" msg)+                   (Data.ProtoLens.Field "playerLatitude" msg')+playerLatitude+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "playerLatitude")++playerLongitude ::+                forall msg msg' .+                  Data.ProtoLens.HasField "playerLongitude" msg msg' =>+                  Lens.Family2.Lens msg msg'+                    (Data.ProtoLens.Field "playerLongitude" msg)+                    (Data.ProtoLens.Field "playerLongitude" msg')+playerLongitude+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "playerLongitude")
+ src/Proto/POGOProtos/Networking/Requests/Messages/AttackGymMessage.hs view
@@ -0,0 +1,233 @@+{- This file was auto-generated from POGOProtos/Networking/Requests/Messages/AttackGymMessage.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Requests.Messages.AttackGymMessage+       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.Battle.BattleAction++data AttackGymMessage = AttackGymMessage{_AttackGymMessage'gymId ::+                                         Data.Text.Text,+                                         _AttackGymMessage'battleId :: Data.Text.Text,+                                         _AttackGymMessage'attackActions ::+                                         [Proto.POGOProtos.Data.Battle.BattleAction.BattleAction],+                                         _AttackGymMessage'lastRetrievedActions ::+                                         Prelude.Maybe+                                           Proto.POGOProtos.Data.Battle.BattleAction.BattleAction,+                                         _AttackGymMessage'playerLatitude :: Prelude.Double,+                                         _AttackGymMessage'playerLongitude :: Prelude.Double}+                      deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "gymId" AttackGymMessage =+     Data.Text.Text++instance Data.ProtoLens.HasField "gymId" AttackGymMessage+         AttackGymMessage where+        field _+          = Lens.Family2.Unchecked.lens _AttackGymMessage'gymId+              (\ x__ y__ -> x__{_AttackGymMessage'gymId = y__})++type instance Data.ProtoLens.Field "battleId" AttackGymMessage =+     Data.Text.Text++instance Data.ProtoLens.HasField "battleId" AttackGymMessage+         AttackGymMessage where+        field _+          = Lens.Family2.Unchecked.lens _AttackGymMessage'battleId+              (\ x__ y__ -> x__{_AttackGymMessage'battleId = y__})++type instance Data.ProtoLens.Field "attackActions" AttackGymMessage+     = [Proto.POGOProtos.Data.Battle.BattleAction.BattleAction]++instance Data.ProtoLens.HasField "attackActions" AttackGymMessage+         AttackGymMessage where+        field _+          = Lens.Family2.Unchecked.lens _AttackGymMessage'attackActions+              (\ x__ y__ -> x__{_AttackGymMessage'attackActions = y__})++type instance+     Data.ProtoLens.Field "lastRetrievedActions" AttackGymMessage =+     Proto.POGOProtos.Data.Battle.BattleAction.BattleAction++instance Data.ProtoLens.HasField "lastRetrievedActions"+         AttackGymMessage AttackGymMessage where+        field _+          = (Prelude..) maybe'lastRetrievedActions+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance+     Data.ProtoLens.Field "maybe'lastRetrievedActions" AttackGymMessage+     =+     Prelude.Maybe+       Proto.POGOProtos.Data.Battle.BattleAction.BattleAction++instance Data.ProtoLens.HasField "maybe'lastRetrievedActions"+         AttackGymMessage AttackGymMessage where+        field _+          = Lens.Family2.Unchecked.lens+              _AttackGymMessage'lastRetrievedActions+              (\ x__ y__ -> x__{_AttackGymMessage'lastRetrievedActions = y__})++type instance+     Data.ProtoLens.Field "playerLatitude" AttackGymMessage =+     Prelude.Double++instance Data.ProtoLens.HasField "playerLatitude" AttackGymMessage+         AttackGymMessage where+        field _+          = Lens.Family2.Unchecked.lens _AttackGymMessage'playerLatitude+              (\ x__ y__ -> x__{_AttackGymMessage'playerLatitude = y__})++type instance+     Data.ProtoLens.Field "playerLongitude" AttackGymMessage =+     Prelude.Double++instance Data.ProtoLens.HasField "playerLongitude" AttackGymMessage+         AttackGymMessage where+        field _+          = Lens.Family2.Unchecked.lens _AttackGymMessage'playerLongitude+              (\ x__ y__ -> x__{_AttackGymMessage'playerLongitude = y__})++instance Data.Default.Class.Default AttackGymMessage where+        def+          = AttackGymMessage{_AttackGymMessage'gymId =+                               Data.ProtoLens.fieldDefault,+                             _AttackGymMessage'battleId = Data.ProtoLens.fieldDefault,+                             _AttackGymMessage'attackActions = [],+                             _AttackGymMessage'lastRetrievedActions = Prelude.Nothing,+                             _AttackGymMessage'playerLatitude = Data.ProtoLens.fieldDefault,+                             _AttackGymMessage'playerLongitude = Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message AttackGymMessage where+        descriptor+          = let gymId__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "gym_id"+                      (Data.ProtoLens.StringField ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional gymId)+                battleId__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "battle_id"+                      (Data.ProtoLens.StringField ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional battleId)+                attackActions__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "attack_actions"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Data.Battle.BattleAction.BattleAction)+                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked+                         attackActions)+                lastRetrievedActions__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "last_retrieved_actions"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Data.Battle.BattleAction.BattleAction)+                      (Data.ProtoLens.OptionalField maybe'lastRetrievedActions)+                playerLatitude__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "player_latitude"+                      (Data.ProtoLens.DoubleField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Double)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional playerLatitude)+                playerLongitude__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "player_longitude"+                      (Data.ProtoLens.DoubleField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Double)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional playerLongitude)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, gymId__field_descriptor),+                    (Data.ProtoLens.Tag 2, battleId__field_descriptor),+                    (Data.ProtoLens.Tag 3, attackActions__field_descriptor),+                    (Data.ProtoLens.Tag 4, lastRetrievedActions__field_descriptor),+                    (Data.ProtoLens.Tag 5, playerLatitude__field_descriptor),+                    (Data.ProtoLens.Tag 6, playerLongitude__field_descriptor)])+                (Data.Map.fromList+                   [("gym_id", gymId__field_descriptor),+                    ("battle_id", battleId__field_descriptor),+                    ("attack_actions", attackActions__field_descriptor),+                    ("last_retrieved_actions", lastRetrievedActions__field_descriptor),+                    ("player_latitude", playerLatitude__field_descriptor),+                    ("player_longitude", playerLongitude__field_descriptor)])++attackActions ::+              forall msg msg' .+                Data.ProtoLens.HasField "attackActions" msg msg' =>+                Lens.Family2.Lens msg msg'+                  (Data.ProtoLens.Field "attackActions" msg)+                  (Data.ProtoLens.Field "attackActions" msg')+attackActions+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "attackActions")++battleId ::+         forall msg msg' . Data.ProtoLens.HasField "battleId" msg msg' =>+           Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "battleId" msg)+             (Data.ProtoLens.Field "battleId" msg')+battleId+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "battleId")++gymId ::+      forall msg msg' . Data.ProtoLens.HasField "gymId" msg msg' =>+        Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "gymId" msg)+          (Data.ProtoLens.Field "gymId" msg')+gymId+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "gymId")++lastRetrievedActions ::+                     forall msg msg' .+                       Data.ProtoLens.HasField "lastRetrievedActions" msg msg' =>+                       Lens.Family2.Lens msg msg'+                         (Data.ProtoLens.Field "lastRetrievedActions" msg)+                         (Data.ProtoLens.Field "lastRetrievedActions" msg')+lastRetrievedActions+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "lastRetrievedActions")++maybe'lastRetrievedActions ::+                           forall msg msg' .+                             Data.ProtoLens.HasField "maybe'lastRetrievedActions" msg msg' =>+                             Lens.Family2.Lens msg msg'+                               (Data.ProtoLens.Field "maybe'lastRetrievedActions" msg)+                               (Data.ProtoLens.Field "maybe'lastRetrievedActions" msg')+maybe'lastRetrievedActions+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "maybe'lastRetrievedActions")++playerLatitude ::+               forall msg msg' .+                 Data.ProtoLens.HasField "playerLatitude" msg msg' =>+                 Lens.Family2.Lens msg msg'+                   (Data.ProtoLens.Field "playerLatitude" msg)+                   (Data.ProtoLens.Field "playerLatitude" msg')+playerLatitude+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "playerLatitude")++playerLongitude ::+                forall msg msg' .+                  Data.ProtoLens.HasField "playerLongitude" msg msg' =>+                  Lens.Family2.Lens msg msg'+                    (Data.ProtoLens.Field "playerLongitude" msg)+                    (Data.ProtoLens.Field "playerLongitude" msg')+playerLongitude+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "playerLongitude")
+ src/Proto/POGOProtos/Networking/Requests/Messages/CatchPokemonMessage.hs view
@@ -0,0 +1,243 @@+{- This file was auto-generated from POGOProtos/Networking/Requests/Messages/CatchPokemonMessage.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Requests.Messages.CatchPokemonMessage+       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.Inventory.Item.ItemId++data CatchPokemonMessage = CatchPokemonMessage{_CatchPokemonMessage'encounterId+                                               :: Data.Word.Word64,+                                               _CatchPokemonMessage'pokeball ::+                                               Proto.POGOProtos.Inventory.Item.ItemId.ItemId,+                                               _CatchPokemonMessage'normalizedReticleSize ::+                                               Prelude.Double,+                                               _CatchPokemonMessage'spawnPointId :: Data.Text.Text,+                                               _CatchPokemonMessage'hitPokemon :: Prelude.Bool,+                                               _CatchPokemonMessage'spinModifier :: Prelude.Double,+                                               _CatchPokemonMessage'normalizedHitPosition ::+                                               Prelude.Double}+                         deriving (Prelude.Show, Prelude.Eq)++type instance+     Data.ProtoLens.Field "encounterId" CatchPokemonMessage =+     Data.Word.Word64++instance Data.ProtoLens.HasField "encounterId" CatchPokemonMessage+         CatchPokemonMessage where+        field _+          = Lens.Family2.Unchecked.lens _CatchPokemonMessage'encounterId+              (\ x__ y__ -> x__{_CatchPokemonMessage'encounterId = y__})++type instance Data.ProtoLens.Field "pokeball" CatchPokemonMessage =+     Proto.POGOProtos.Inventory.Item.ItemId.ItemId++instance Data.ProtoLens.HasField "pokeball" CatchPokemonMessage+         CatchPokemonMessage where+        field _+          = Lens.Family2.Unchecked.lens _CatchPokemonMessage'pokeball+              (\ x__ y__ -> x__{_CatchPokemonMessage'pokeball = y__})++type instance+     Data.ProtoLens.Field "normalizedReticleSize" CatchPokemonMessage =+     Prelude.Double++instance Data.ProtoLens.HasField "normalizedReticleSize"+         CatchPokemonMessage CatchPokemonMessage where+        field _+          = Lens.Family2.Unchecked.lens+              _CatchPokemonMessage'normalizedReticleSize+              (\ x__ y__ ->+                 x__{_CatchPokemonMessage'normalizedReticleSize = y__})++type instance+     Data.ProtoLens.Field "spawnPointId" CatchPokemonMessage =+     Data.Text.Text++instance Data.ProtoLens.HasField "spawnPointId" CatchPokemonMessage+         CatchPokemonMessage where+        field _+          = Lens.Family2.Unchecked.lens _CatchPokemonMessage'spawnPointId+              (\ x__ y__ -> x__{_CatchPokemonMessage'spawnPointId = y__})++type instance Data.ProtoLens.Field "hitPokemon" CatchPokemonMessage+     = Prelude.Bool++instance Data.ProtoLens.HasField "hitPokemon" CatchPokemonMessage+         CatchPokemonMessage where+        field _+          = Lens.Family2.Unchecked.lens _CatchPokemonMessage'hitPokemon+              (\ x__ y__ -> x__{_CatchPokemonMessage'hitPokemon = y__})++type instance+     Data.ProtoLens.Field "spinModifier" CatchPokemonMessage =+     Prelude.Double++instance Data.ProtoLens.HasField "spinModifier" CatchPokemonMessage+         CatchPokemonMessage where+        field _+          = Lens.Family2.Unchecked.lens _CatchPokemonMessage'spinModifier+              (\ x__ y__ -> x__{_CatchPokemonMessage'spinModifier = y__})++type instance+     Data.ProtoLens.Field "normalizedHitPosition" CatchPokemonMessage =+     Prelude.Double++instance Data.ProtoLens.HasField "normalizedHitPosition"+         CatchPokemonMessage CatchPokemonMessage where+        field _+          = Lens.Family2.Unchecked.lens+              _CatchPokemonMessage'normalizedHitPosition+              (\ x__ y__ ->+                 x__{_CatchPokemonMessage'normalizedHitPosition = y__})++instance Data.Default.Class.Default CatchPokemonMessage where+        def+          = CatchPokemonMessage{_CatchPokemonMessage'encounterId =+                                  Data.ProtoLens.fieldDefault,+                                _CatchPokemonMessage'pokeball = Data.Default.Class.def,+                                _CatchPokemonMessage'normalizedReticleSize =+                                  Data.ProtoLens.fieldDefault,+                                _CatchPokemonMessage'spawnPointId = Data.ProtoLens.fieldDefault,+                                _CatchPokemonMessage'hitPokemon = Data.ProtoLens.fieldDefault,+                                _CatchPokemonMessage'spinModifier = Data.ProtoLens.fieldDefault,+                                _CatchPokemonMessage'normalizedHitPosition =+                                  Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message CatchPokemonMessage where+        descriptor+          = let encounterId__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "encounter_id"+                      (Data.ProtoLens.Fixed64Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional encounterId)+                pokeball__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "pokeball"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Inventory.Item.ItemId.ItemId)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional pokeball)+                normalizedReticleSize__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "normalized_reticle_size"+                      (Data.ProtoLens.DoubleField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Double)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         normalizedReticleSize)+                spawnPointId__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "spawn_point_id"+                      (Data.ProtoLens.StringField ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional spawnPointId)+                hitPokemon__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "hit_pokemon"+                      (Data.ProtoLens.BoolField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional hitPokemon)+                spinModifier__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "spin_modifier"+                      (Data.ProtoLens.DoubleField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Double)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional spinModifier)+                normalizedHitPosition__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "normalized_hit_position"+                      (Data.ProtoLens.DoubleField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Double)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         normalizedHitPosition)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, encounterId__field_descriptor),+                    (Data.ProtoLens.Tag 2, pokeball__field_descriptor),+                    (Data.ProtoLens.Tag 3, normalizedReticleSize__field_descriptor),+                    (Data.ProtoLens.Tag 4, spawnPointId__field_descriptor),+                    (Data.ProtoLens.Tag 5, hitPokemon__field_descriptor),+                    (Data.ProtoLens.Tag 6, spinModifier__field_descriptor),+                    (Data.ProtoLens.Tag 7, normalizedHitPosition__field_descriptor)])+                (Data.Map.fromList+                   [("encounter_id", encounterId__field_descriptor),+                    ("pokeball", pokeball__field_descriptor),+                    ("normalized_reticle_size",+                     normalizedReticleSize__field_descriptor),+                    ("spawn_point_id", spawnPointId__field_descriptor),+                    ("hit_pokemon", hitPokemon__field_descriptor),+                    ("spin_modifier", spinModifier__field_descriptor),+                    ("normalized_hit_position",+                     normalizedHitPosition__field_descriptor)])++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")++hitPokemon ::+           forall msg msg' . Data.ProtoLens.HasField "hitPokemon" msg msg' =>+             Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "hitPokemon" msg)+               (Data.ProtoLens.Field "hitPokemon" msg')+hitPokemon+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "hitPokemon")++normalizedHitPosition ::+                      forall msg msg' .+                        Data.ProtoLens.HasField "normalizedHitPosition" msg msg' =>+                        Lens.Family2.Lens msg msg'+                          (Data.ProtoLens.Field "normalizedHitPosition" msg)+                          (Data.ProtoLens.Field "normalizedHitPosition" msg')+normalizedHitPosition+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "normalizedHitPosition")++normalizedReticleSize ::+                      forall msg msg' .+                        Data.ProtoLens.HasField "normalizedReticleSize" msg msg' =>+                        Lens.Family2.Lens msg msg'+                          (Data.ProtoLens.Field "normalizedReticleSize" msg)+                          (Data.ProtoLens.Field "normalizedReticleSize" msg')+normalizedReticleSize+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "normalizedReticleSize")++pokeball ::+         forall msg msg' . Data.ProtoLens.HasField "pokeball" msg msg' =>+           Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "pokeball" msg)+             (Data.ProtoLens.Field "pokeball" msg')+pokeball+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "pokeball")++spawnPointId ::+             forall msg msg' .+               Data.ProtoLens.HasField "spawnPointId" msg msg' =>+               Lens.Family2.Lens msg msg'+                 (Data.ProtoLens.Field "spawnPointId" msg)+                 (Data.ProtoLens.Field "spawnPointId" msg')+spawnPointId+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "spawnPointId")++spinModifier ::+             forall msg msg' .+               Data.ProtoLens.HasField "spinModifier" msg msg' =>+               Lens.Family2.Lens msg msg'+                 (Data.ProtoLens.Field "spinModifier" msg)+                 (Data.ProtoLens.Field "spinModifier" msg')+spinModifier+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "spinModifier")
+ src/Proto/POGOProtos/Networking/Requests/Messages/CheckAwardedBadgesMessage.hs view
@@ -0,0 +1,29 @@+{- This file was auto-generated from POGOProtos/Networking/Requests/Messages/CheckAwardedBadgesMessage.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Requests.Messages.CheckAwardedBadgesMessage+       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 CheckAwardedBadgesMessage = CheckAwardedBadgesMessage{}+                               deriving (Prelude.Show, Prelude.Eq)++instance Data.Default.Class.Default CheckAwardedBadgesMessage where+        def = CheckAwardedBadgesMessage{}++instance Data.ProtoLens.Message CheckAwardedBadgesMessage where+        descriptor+          = let in+              Data.ProtoLens.MessageDescriptor (Data.Map.fromList [])+                (Data.Map.fromList [])
+ src/Proto/POGOProtos/Networking/Requests/Messages/CheckCodenameAvailableMessage.hs view
@@ -0,0 +1,59 @@+{- This file was auto-generated from POGOProtos/Networking/Requests/Messages/CheckCodenameAvailableMessage.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Requests.Messages.CheckCodenameAvailableMessage+       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 CheckCodenameAvailableMessage = CheckCodenameAvailableMessage{_CheckCodenameAvailableMessage'codename+                                                                   :: Data.Text.Text}+                                   deriving (Prelude.Show, Prelude.Eq)++type instance+     Data.ProtoLens.Field "codename" CheckCodenameAvailableMessage =+     Data.Text.Text++instance Data.ProtoLens.HasField "codename"+         CheckCodenameAvailableMessage CheckCodenameAvailableMessage where+        field _+          = Lens.Family2.Unchecked.lens+              _CheckCodenameAvailableMessage'codename+              (\ x__ y__ -> x__{_CheckCodenameAvailableMessage'codename = y__})++instance Data.Default.Class.Default CheckCodenameAvailableMessage+         where+        def+          = CheckCodenameAvailableMessage{_CheckCodenameAvailableMessage'codename+                                            = Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message CheckCodenameAvailableMessage where+        descriptor+          = let codename__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "codename"+                      (Data.ProtoLens.StringField ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional codename)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, codename__field_descriptor)])+                (Data.Map.fromList [("codename", codename__field_descriptor)])++codename ::+         forall msg msg' . Data.ProtoLens.HasField "codename" msg msg' =>+           Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "codename" msg)+             (Data.ProtoLens.Field "codename" msg')+codename+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "codename")
+ src/Proto/POGOProtos/Networking/Requests/Messages/ClaimCodenameMessage.hs view
@@ -0,0 +1,56 @@+{- This file was auto-generated from POGOProtos/Networking/Requests/Messages/ClaimCodenameMessage.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Requests.Messages.ClaimCodenameMessage+       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 ClaimCodenameMessage = ClaimCodenameMessage{_ClaimCodenameMessage'codename+                                                 :: Data.Text.Text}+                          deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "codename" ClaimCodenameMessage+     = Data.Text.Text++instance Data.ProtoLens.HasField "codename" ClaimCodenameMessage+         ClaimCodenameMessage where+        field _+          = Lens.Family2.Unchecked.lens _ClaimCodenameMessage'codename+              (\ x__ y__ -> x__{_ClaimCodenameMessage'codename = y__})++instance Data.Default.Class.Default ClaimCodenameMessage where+        def+          = ClaimCodenameMessage{_ClaimCodenameMessage'codename =+                                   Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message ClaimCodenameMessage where+        descriptor+          = let codename__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "codename"+                      (Data.ProtoLens.StringField ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional codename)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, codename__field_descriptor)])+                (Data.Map.fromList [("codename", codename__field_descriptor)])++codename ::+         forall msg msg' . Data.ProtoLens.HasField "codename" msg msg' =>+           Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "codename" msg)+             (Data.ProtoLens.Field "codename" msg')+codename+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "codename")
+ src/Proto/POGOProtos/Networking/Requests/Messages/CollectDailyBonusMessage.hs view
@@ -0,0 +1,29 @@+{- This file was auto-generated from POGOProtos/Networking/Requests/Messages/CollectDailyBonusMessage.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Requests.Messages.CollectDailyBonusMessage+       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 CollectDailyBonusMessage = CollectDailyBonusMessage{}+                              deriving (Prelude.Show, Prelude.Eq)++instance Data.Default.Class.Default CollectDailyBonusMessage where+        def = CollectDailyBonusMessage{}++instance Data.ProtoLens.Message CollectDailyBonusMessage where+        descriptor+          = let in+              Data.ProtoLens.MessageDescriptor (Data.Map.fromList [])+                (Data.Map.fromList [])
+ src/Proto/POGOProtos/Networking/Requests/Messages/CollectDailyDefenderBonusMessage.hs view
@@ -0,0 +1,31 @@+{- This file was auto-generated from POGOProtos/Networking/Requests/Messages/CollectDailyDefenderBonusMessage.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Requests.Messages.CollectDailyDefenderBonusMessage+       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 CollectDailyDefenderBonusMessage = CollectDailyDefenderBonusMessage{}+                                      deriving (Prelude.Show, Prelude.Eq)++instance Data.Default.Class.Default+         CollectDailyDefenderBonusMessage where+        def = CollectDailyDefenderBonusMessage{}++instance Data.ProtoLens.Message CollectDailyDefenderBonusMessage+         where+        descriptor+          = let in+              Data.ProtoLens.MessageDescriptor (Data.Map.fromList [])+                (Data.Map.fromList [])
+ src/Proto/POGOProtos/Networking/Requests/Messages/DiskEncounterMessage.hs view
@@ -0,0 +1,147 @@+{- This file was auto-generated from POGOProtos/Networking/Requests/Messages/DiskEncounterMessage.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Requests.Messages.DiskEncounterMessage+       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 DiskEncounterMessage = DiskEncounterMessage{_DiskEncounterMessage'encounterId+                                                 :: Data.Word.Word64,+                                                 _DiskEncounterMessage'fortId :: Data.Text.Text,+                                                 _DiskEncounterMessage'playerLatitude ::+                                                 Prelude.Double,+                                                 _DiskEncounterMessage'playerLongitude ::+                                                 Prelude.Double}+                          deriving (Prelude.Show, Prelude.Eq)++type instance+     Data.ProtoLens.Field "encounterId" DiskEncounterMessage =+     Data.Word.Word64++instance Data.ProtoLens.HasField "encounterId" DiskEncounterMessage+         DiskEncounterMessage where+        field _+          = Lens.Family2.Unchecked.lens _DiskEncounterMessage'encounterId+              (\ x__ y__ -> x__{_DiskEncounterMessage'encounterId = y__})++type instance Data.ProtoLens.Field "fortId" DiskEncounterMessage =+     Data.Text.Text++instance Data.ProtoLens.HasField "fortId" DiskEncounterMessage+         DiskEncounterMessage where+        field _+          = Lens.Family2.Unchecked.lens _DiskEncounterMessage'fortId+              (\ x__ y__ -> x__{_DiskEncounterMessage'fortId = y__})++type instance+     Data.ProtoLens.Field "playerLatitude" DiskEncounterMessage =+     Prelude.Double++instance Data.ProtoLens.HasField "playerLatitude"+         DiskEncounterMessage DiskEncounterMessage where+        field _+          = Lens.Family2.Unchecked.lens _DiskEncounterMessage'playerLatitude+              (\ x__ y__ -> x__{_DiskEncounterMessage'playerLatitude = y__})++type instance+     Data.ProtoLens.Field "playerLongitude" DiskEncounterMessage =+     Prelude.Double++instance Data.ProtoLens.HasField "playerLongitude"+         DiskEncounterMessage DiskEncounterMessage where+        field _+          = Lens.Family2.Unchecked.lens _DiskEncounterMessage'playerLongitude+              (\ x__ y__ -> x__{_DiskEncounterMessage'playerLongitude = y__})++instance Data.Default.Class.Default DiskEncounterMessage where+        def+          = DiskEncounterMessage{_DiskEncounterMessage'encounterId =+                                   Data.ProtoLens.fieldDefault,+                                 _DiskEncounterMessage'fortId = Data.ProtoLens.fieldDefault,+                                 _DiskEncounterMessage'playerLatitude = Data.ProtoLens.fieldDefault,+                                 _DiskEncounterMessage'playerLongitude =+                                   Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message DiskEncounterMessage where+        descriptor+          = let encounterId__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "encounter_id"+                      (Data.ProtoLens.UInt64Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional encounterId)+                fortId__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "fort_id"+                      (Data.ProtoLens.StringField ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional fortId)+                playerLatitude__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "player_latitude"+                      (Data.ProtoLens.DoubleField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Double)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional playerLatitude)+                playerLongitude__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "player_longitude"+                      (Data.ProtoLens.DoubleField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Double)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional playerLongitude)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, encounterId__field_descriptor),+                    (Data.ProtoLens.Tag 2, fortId__field_descriptor),+                    (Data.ProtoLens.Tag 3, playerLatitude__field_descriptor),+                    (Data.ProtoLens.Tag 4, playerLongitude__field_descriptor)])+                (Data.Map.fromList+                   [("encounter_id", encounterId__field_descriptor),+                    ("fort_id", fortId__field_descriptor),+                    ("player_latitude", playerLatitude__field_descriptor),+                    ("player_longitude", playerLongitude__field_descriptor)])++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")++fortId ::+       forall msg msg' . Data.ProtoLens.HasField "fortId" msg msg' =>+         Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "fortId" msg)+           (Data.ProtoLens.Field "fortId" msg')+fortId+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "fortId")++playerLatitude ::+               forall msg msg' .+                 Data.ProtoLens.HasField "playerLatitude" msg msg' =>+                 Lens.Family2.Lens msg msg'+                   (Data.ProtoLens.Field "playerLatitude" msg)+                   (Data.ProtoLens.Field "playerLatitude" msg')+playerLatitude+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "playerLatitude")++playerLongitude ::+                forall msg msg' .+                  Data.ProtoLens.HasField "playerLongitude" msg msg' =>+                  Lens.Family2.Lens msg msg'+                    (Data.ProtoLens.Field "playerLongitude" msg)+                    (Data.ProtoLens.Field "playerLongitude" msg')+playerLongitude+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "playerLongitude")
+ src/Proto/POGOProtos/Networking/Requests/Messages/DownloadItemTemplatesMessage.hs view
@@ -0,0 +1,30 @@+{- This file was auto-generated from POGOProtos/Networking/Requests/Messages/DownloadItemTemplatesMessage.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Requests.Messages.DownloadItemTemplatesMessage+       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 DownloadItemTemplatesMessage = DownloadItemTemplatesMessage{}+                                  deriving (Prelude.Show, Prelude.Eq)++instance Data.Default.Class.Default DownloadItemTemplatesMessage+         where+        def = DownloadItemTemplatesMessage{}++instance Data.ProtoLens.Message DownloadItemTemplatesMessage where+        descriptor+          = let in+              Data.ProtoLens.MessageDescriptor (Data.Map.fromList [])+                (Data.Map.fromList [])
+ src/Proto/POGOProtos/Networking/Requests/Messages/DownloadRemoteConfigVersionMessage.hs view
@@ -0,0 +1,201 @@+{- This file was auto-generated from POGOProtos/Networking/Requests/Messages/DownloadRemoteConfigVersionMessage.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Requests.Messages.DownloadRemoteConfigVersionMessage+       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.Platform++data DownloadRemoteConfigVersionMessage = DownloadRemoteConfigVersionMessage{_DownloadRemoteConfigVersionMessage'platform+                                                                             ::+                                                                             Proto.POGOProtos.Enums.Platform.Platform,+                                                                             _DownloadRemoteConfigVersionMessage'deviceManufacturer+                                                                             :: Data.Text.Text,+                                                                             _DownloadRemoteConfigVersionMessage'deviceModel+                                                                             :: Data.Text.Text,+                                                                             _DownloadRemoteConfigVersionMessage'locale+                                                                             :: Data.Text.Text,+                                                                             _DownloadRemoteConfigVersionMessage'appVersion+                                                                             :: Data.Word.Word32}+                                        deriving (Prelude.Show, Prelude.Eq)++type instance+     Data.ProtoLens.Field "platform" DownloadRemoteConfigVersionMessage+     = Proto.POGOProtos.Enums.Platform.Platform++instance Data.ProtoLens.HasField "platform"+         DownloadRemoteConfigVersionMessage+         DownloadRemoteConfigVersionMessage where+        field _+          = Lens.Family2.Unchecked.lens+              _DownloadRemoteConfigVersionMessage'platform+              (\ x__ y__ ->+                 x__{_DownloadRemoteConfigVersionMessage'platform = y__})++type instance+     Data.ProtoLens.Field "deviceManufacturer"+       DownloadRemoteConfigVersionMessage+     = Data.Text.Text++instance Data.ProtoLens.HasField "deviceManufacturer"+         DownloadRemoteConfigVersionMessage+         DownloadRemoteConfigVersionMessage where+        field _+          = Lens.Family2.Unchecked.lens+              _DownloadRemoteConfigVersionMessage'deviceManufacturer+              (\ x__ y__ ->+                 x__{_DownloadRemoteConfigVersionMessage'deviceManufacturer = y__})++type instance+     Data.ProtoLens.Field "deviceModel"+       DownloadRemoteConfigVersionMessage+     = Data.Text.Text++instance Data.ProtoLens.HasField "deviceModel"+         DownloadRemoteConfigVersionMessage+         DownloadRemoteConfigVersionMessage where+        field _+          = Lens.Family2.Unchecked.lens+              _DownloadRemoteConfigVersionMessage'deviceModel+              (\ x__ y__ ->+                 x__{_DownloadRemoteConfigVersionMessage'deviceModel = y__})++type instance+     Data.ProtoLens.Field "locale" DownloadRemoteConfigVersionMessage =+     Data.Text.Text++instance Data.ProtoLens.HasField "locale"+         DownloadRemoteConfigVersionMessage+         DownloadRemoteConfigVersionMessage where+        field _+          = Lens.Family2.Unchecked.lens+              _DownloadRemoteConfigVersionMessage'locale+              (\ x__ y__ ->+                 x__{_DownloadRemoteConfigVersionMessage'locale = y__})++type instance+     Data.ProtoLens.Field "appVersion"+       DownloadRemoteConfigVersionMessage+     = Data.Word.Word32++instance Data.ProtoLens.HasField "appVersion"+         DownloadRemoteConfigVersionMessage+         DownloadRemoteConfigVersionMessage where+        field _+          = Lens.Family2.Unchecked.lens+              _DownloadRemoteConfigVersionMessage'appVersion+              (\ x__ y__ ->+                 x__{_DownloadRemoteConfigVersionMessage'appVersion = y__})++instance Data.Default.Class.Default+         DownloadRemoteConfigVersionMessage where+        def+          = DownloadRemoteConfigVersionMessage{_DownloadRemoteConfigVersionMessage'platform+                                                 = Data.Default.Class.def,+                                               _DownloadRemoteConfigVersionMessage'deviceManufacturer+                                                 = Data.ProtoLens.fieldDefault,+                                               _DownloadRemoteConfigVersionMessage'deviceModel =+                                                 Data.ProtoLens.fieldDefault,+                                               _DownloadRemoteConfigVersionMessage'locale =+                                                 Data.ProtoLens.fieldDefault,+                                               _DownloadRemoteConfigVersionMessage'appVersion =+                                                 Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message DownloadRemoteConfigVersionMessage+         where+        descriptor+          = let platform__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "platform"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Enums.Platform.Platform)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional platform)+                deviceManufacturer__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "device_manufacturer"+                      (Data.ProtoLens.StringField ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         deviceManufacturer)+                deviceModel__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "device_model"+                      (Data.ProtoLens.StringField ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional deviceModel)+                locale__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "locale"+                      (Data.ProtoLens.StringField ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional locale)+                appVersion__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "app_version"+                      (Data.ProtoLens.UInt32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional appVersion)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, platform__field_descriptor),+                    (Data.ProtoLens.Tag 2, deviceManufacturer__field_descriptor),+                    (Data.ProtoLens.Tag 3, deviceModel__field_descriptor),+                    (Data.ProtoLens.Tag 4, locale__field_descriptor),+                    (Data.ProtoLens.Tag 5, appVersion__field_descriptor)])+                (Data.Map.fromList+                   [("platform", platform__field_descriptor),+                    ("device_manufacturer", deviceManufacturer__field_descriptor),+                    ("device_model", deviceModel__field_descriptor),+                    ("locale", locale__field_descriptor),+                    ("app_version", appVersion__field_descriptor)])++appVersion ::+           forall msg msg' . Data.ProtoLens.HasField "appVersion" msg msg' =>+             Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "appVersion" msg)+               (Data.ProtoLens.Field "appVersion" msg')+appVersion+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "appVersion")++deviceManufacturer ::+                   forall msg msg' .+                     Data.ProtoLens.HasField "deviceManufacturer" msg msg' =>+                     Lens.Family2.Lens msg msg'+                       (Data.ProtoLens.Field "deviceManufacturer" msg)+                       (Data.ProtoLens.Field "deviceManufacturer" msg')+deviceManufacturer+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "deviceManufacturer")++deviceModel ::+            forall msg msg' . Data.ProtoLens.HasField "deviceModel" msg msg' =>+              Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "deviceModel" msg)+                (Data.ProtoLens.Field "deviceModel" msg')+deviceModel+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "deviceModel")++locale ::+       forall msg msg' . Data.ProtoLens.HasField "locale" msg msg' =>+         Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "locale" msg)+           (Data.ProtoLens.Field "locale" msg')+locale+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "locale")++platform ::+         forall msg msg' . Data.ProtoLens.HasField "platform" msg msg' =>+           Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "platform" msg)+             (Data.ProtoLens.Field "platform" msg')+platform+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "platform")
+ src/Proto/POGOProtos/Networking/Requests/Messages/DownloadSettingsMessage.hs view
@@ -0,0 +1,56 @@+{- This file was auto-generated from POGOProtos/Networking/Requests/Messages/DownloadSettingsMessage.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Requests.Messages.DownloadSettingsMessage+       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 DownloadSettingsMessage = DownloadSettingsMessage{_DownloadSettingsMessage'hash+                                                       :: Data.Text.Text}+                             deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "hash" DownloadSettingsMessage =+     Data.Text.Text++instance Data.ProtoLens.HasField "hash" DownloadSettingsMessage+         DownloadSettingsMessage where+        field _+          = Lens.Family2.Unchecked.lens _DownloadSettingsMessage'hash+              (\ x__ y__ -> x__{_DownloadSettingsMessage'hash = y__})++instance Data.Default.Class.Default DownloadSettingsMessage where+        def+          = DownloadSettingsMessage{_DownloadSettingsMessage'hash =+                                      Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message DownloadSettingsMessage where+        descriptor+          = let hash__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "hash"+                      (Data.ProtoLens.StringField ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional hash)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, hash__field_descriptor)])+                (Data.Map.fromList [("hash", hash__field_descriptor)])++hash ::+     forall msg msg' . Data.ProtoLens.HasField "hash" msg msg' =>+       Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "hash" msg)+         (Data.ProtoLens.Field "hash" msg')+hash+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "hash")
+ src/Proto/POGOProtos/Networking/Requests/Messages/EchoMessage.hs view
@@ -0,0 +1,29 @@+{- This file was auto-generated from POGOProtos/Networking/Requests/Messages/EchoMessage.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Requests.Messages.EchoMessage+       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 EchoMessage = EchoMessage{}+                 deriving (Prelude.Show, Prelude.Eq)++instance Data.Default.Class.Default EchoMessage where+        def = EchoMessage{}++instance Data.ProtoLens.Message EchoMessage where+        descriptor+          = let in+              Data.ProtoLens.MessageDescriptor (Data.Map.fromList [])+                (Data.Map.fromList [])
+ src/Proto/POGOProtos/Networking/Requests/Messages/EncounterMessage.hs view
@@ -0,0 +1,145 @@+{- This file was auto-generated from POGOProtos/Networking/Requests/Messages/EncounterMessage.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Requests.Messages.EncounterMessage+       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 EncounterMessage = EncounterMessage{_EncounterMessage'encounterId+                                         :: Data.Word.Word64,+                                         _EncounterMessage'spawnPointId :: Data.Text.Text,+                                         _EncounterMessage'playerLatitude :: Prelude.Double,+                                         _EncounterMessage'playerLongitude :: Prelude.Double}+                      deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "encounterId" EncounterMessage =+     Data.Word.Word64++instance Data.ProtoLens.HasField "encounterId" EncounterMessage+         EncounterMessage where+        field _+          = Lens.Family2.Unchecked.lens _EncounterMessage'encounterId+              (\ x__ y__ -> x__{_EncounterMessage'encounterId = y__})++type instance Data.ProtoLens.Field "spawnPointId" EncounterMessage+     = Data.Text.Text++instance Data.ProtoLens.HasField "spawnPointId" EncounterMessage+         EncounterMessage where+        field _+          = Lens.Family2.Unchecked.lens _EncounterMessage'spawnPointId+              (\ x__ y__ -> x__{_EncounterMessage'spawnPointId = y__})++type instance+     Data.ProtoLens.Field "playerLatitude" EncounterMessage =+     Prelude.Double++instance Data.ProtoLens.HasField "playerLatitude" EncounterMessage+         EncounterMessage where+        field _+          = Lens.Family2.Unchecked.lens _EncounterMessage'playerLatitude+              (\ x__ y__ -> x__{_EncounterMessage'playerLatitude = y__})++type instance+     Data.ProtoLens.Field "playerLongitude" EncounterMessage =+     Prelude.Double++instance Data.ProtoLens.HasField "playerLongitude" EncounterMessage+         EncounterMessage where+        field _+          = Lens.Family2.Unchecked.lens _EncounterMessage'playerLongitude+              (\ x__ y__ -> x__{_EncounterMessage'playerLongitude = y__})++instance Data.Default.Class.Default EncounterMessage where+        def+          = EncounterMessage{_EncounterMessage'encounterId =+                               Data.ProtoLens.fieldDefault,+                             _EncounterMessage'spawnPointId = Data.ProtoLens.fieldDefault,+                             _EncounterMessage'playerLatitude = Data.ProtoLens.fieldDefault,+                             _EncounterMessage'playerLongitude = Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message EncounterMessage where+        descriptor+          = let encounterId__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "encounter_id"+                      (Data.ProtoLens.Fixed64Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional encounterId)+                spawnPointId__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "spawn_point_id"+                      (Data.ProtoLens.StringField ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional spawnPointId)+                playerLatitude__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "player_latitude"+                      (Data.ProtoLens.DoubleField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Double)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional playerLatitude)+                playerLongitude__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "player_longitude"+                      (Data.ProtoLens.DoubleField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Double)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional playerLongitude)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, encounterId__field_descriptor),+                    (Data.ProtoLens.Tag 2, spawnPointId__field_descriptor),+                    (Data.ProtoLens.Tag 3, playerLatitude__field_descriptor),+                    (Data.ProtoLens.Tag 4, playerLongitude__field_descriptor)])+                (Data.Map.fromList+                   [("encounter_id", encounterId__field_descriptor),+                    ("spawn_point_id", spawnPointId__field_descriptor),+                    ("player_latitude", playerLatitude__field_descriptor),+                    ("player_longitude", playerLongitude__field_descriptor)])++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")++playerLatitude ::+               forall msg msg' .+                 Data.ProtoLens.HasField "playerLatitude" msg msg' =>+                 Lens.Family2.Lens msg msg'+                   (Data.ProtoLens.Field "playerLatitude" msg)+                   (Data.ProtoLens.Field "playerLatitude" msg')+playerLatitude+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "playerLatitude")++playerLongitude ::+                forall msg msg' .+                  Data.ProtoLens.HasField "playerLongitude" msg msg' =>+                  Lens.Family2.Lens msg msg'+                    (Data.ProtoLens.Field "playerLongitude" msg)+                    (Data.ProtoLens.Field "playerLongitude" msg')+playerLongitude+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "playerLongitude")++spawnPointId ::+             forall msg msg' .+               Data.ProtoLens.HasField "spawnPointId" msg msg' =>+               Lens.Family2.Lens msg msg'+                 (Data.ProtoLens.Field "spawnPointId" msg)+                 (Data.ProtoLens.Field "spawnPointId" msg')+spawnPointId+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "spawnPointId")
+ src/Proto/POGOProtos/Networking/Requests/Messages/EncounterTutorialCompleteMessage.hs view
@@ -0,0 +1,65 @@+{- This file was auto-generated from POGOProtos/Networking/Requests/Messages/EncounterTutorialCompleteMessage.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Requests.Messages.EncounterTutorialCompleteMessage+       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 EncounterTutorialCompleteMessage = EncounterTutorialCompleteMessage{_EncounterTutorialCompleteMessage'pokemonId+                                                                         ::+                                                                         Proto.POGOProtos.Enums.PokemonId.PokemonId}+                                      deriving (Prelude.Show, Prelude.Eq)++type instance+     Data.ProtoLens.Field "pokemonId" EncounterTutorialCompleteMessage =+     Proto.POGOProtos.Enums.PokemonId.PokemonId++instance Data.ProtoLens.HasField "pokemonId"+         EncounterTutorialCompleteMessage EncounterTutorialCompleteMessage+         where+        field _+          = Lens.Family2.Unchecked.lens+              _EncounterTutorialCompleteMessage'pokemonId+              (\ x__ y__ ->+                 x__{_EncounterTutorialCompleteMessage'pokemonId = y__})++instance Data.Default.Class.Default+         EncounterTutorialCompleteMessage where+        def+          = EncounterTutorialCompleteMessage{_EncounterTutorialCompleteMessage'pokemonId+                                               = Data.Default.Class.def}++instance Data.ProtoLens.Message EncounterTutorialCompleteMessage+         where+        descriptor+          = let 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)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, pokemonId__field_descriptor)])+                (Data.Map.fromList [("pokemon_id", pokemonId__field_descriptor)])++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")
+ src/Proto/POGOProtos/Networking/Requests/Messages/EquipBadgeMessage.hs view
@@ -0,0 +1,58 @@+{- This file was auto-generated from POGOProtos/Networking/Requests/Messages/EquipBadgeMessage.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Requests.Messages.EquipBadgeMessage+       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.BadgeType++data EquipBadgeMessage = EquipBadgeMessage{_EquipBadgeMessage'badgeType+                                           :: Proto.POGOProtos.Enums.BadgeType.BadgeType}+                       deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "badgeType" EquipBadgeMessage =+     Proto.POGOProtos.Enums.BadgeType.BadgeType++instance Data.ProtoLens.HasField "badgeType" EquipBadgeMessage+         EquipBadgeMessage where+        field _+          = Lens.Family2.Unchecked.lens _EquipBadgeMessage'badgeType+              (\ x__ y__ -> x__{_EquipBadgeMessage'badgeType = y__})++instance Data.Default.Class.Default EquipBadgeMessage where+        def+          = EquipBadgeMessage{_EquipBadgeMessage'badgeType =+                                Data.Default.Class.def}++instance Data.ProtoLens.Message EquipBadgeMessage where+        descriptor+          = let badgeType__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "badge_type"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Enums.BadgeType.BadgeType)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional badgeType)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, badgeType__field_descriptor)])+                (Data.Map.fromList [("badge_type", badgeType__field_descriptor)])++badgeType ::+          forall msg msg' . Data.ProtoLens.HasField "badgeType" msg msg' =>+            Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "badgeType" msg)+              (Data.ProtoLens.Field "badgeType" msg')+badgeType+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "badgeType")
+ src/Proto/POGOProtos/Networking/Requests/Messages/EvolvePokemonMessage.hs view
@@ -0,0 +1,56 @@+{- This file was auto-generated from POGOProtos/Networking/Requests/Messages/EvolvePokemonMessage.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Requests.Messages.EvolvePokemonMessage+       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 EvolvePokemonMessage = EvolvePokemonMessage{_EvolvePokemonMessage'pokemonId+                                                 :: Data.Word.Word64}+                          deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "pokemonId" EvolvePokemonMessage+     = Data.Word.Word64++instance Data.ProtoLens.HasField "pokemonId" EvolvePokemonMessage+         EvolvePokemonMessage where+        field _+          = Lens.Family2.Unchecked.lens _EvolvePokemonMessage'pokemonId+              (\ x__ y__ -> x__{_EvolvePokemonMessage'pokemonId = y__})++instance Data.Default.Class.Default EvolvePokemonMessage where+        def+          = EvolvePokemonMessage{_EvolvePokemonMessage'pokemonId =+                                   Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message EvolvePokemonMessage where+        descriptor+          = let pokemonId__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "pokemon_id"+                      (Data.ProtoLens.Fixed64Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional pokemonId)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, pokemonId__field_descriptor)])+                (Data.Map.fromList [("pokemon_id", pokemonId__field_descriptor)])++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")
+ src/Proto/POGOProtos/Networking/Requests/Messages/FortDeployPokemonMessage.hs view
@@ -0,0 +1,153 @@+{- This file was auto-generated from POGOProtos/Networking/Requests/Messages/FortDeployPokemonMessage.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Requests.Messages.FortDeployPokemonMessage+       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 FortDeployPokemonMessage = FortDeployPokemonMessage{_FortDeployPokemonMessage'fortId+                                                         :: Data.Text.Text,+                                                         _FortDeployPokemonMessage'pokemonId ::+                                                         Data.Word.Word64,+                                                         _FortDeployPokemonMessage'playerLatitude ::+                                                         Prelude.Double,+                                                         _FortDeployPokemonMessage'playerLongitude+                                                         :: Prelude.Double}+                              deriving (Prelude.Show, Prelude.Eq)++type instance+     Data.ProtoLens.Field "fortId" FortDeployPokemonMessage =+     Data.Text.Text++instance Data.ProtoLens.HasField "fortId" FortDeployPokemonMessage+         FortDeployPokemonMessage where+        field _+          = Lens.Family2.Unchecked.lens _FortDeployPokemonMessage'fortId+              (\ x__ y__ -> x__{_FortDeployPokemonMessage'fortId = y__})++type instance+     Data.ProtoLens.Field "pokemonId" FortDeployPokemonMessage =+     Data.Word.Word64++instance Data.ProtoLens.HasField "pokemonId"+         FortDeployPokemonMessage FortDeployPokemonMessage where+        field _+          = Lens.Family2.Unchecked.lens _FortDeployPokemonMessage'pokemonId+              (\ x__ y__ -> x__{_FortDeployPokemonMessage'pokemonId = y__})++type instance+     Data.ProtoLens.Field "playerLatitude" FortDeployPokemonMessage =+     Prelude.Double++instance Data.ProtoLens.HasField "playerLatitude"+         FortDeployPokemonMessage FortDeployPokemonMessage where+        field _+          = Lens.Family2.Unchecked.lens+              _FortDeployPokemonMessage'playerLatitude+              (\ x__ y__ -> x__{_FortDeployPokemonMessage'playerLatitude = y__})++type instance+     Data.ProtoLens.Field "playerLongitude" FortDeployPokemonMessage =+     Prelude.Double++instance Data.ProtoLens.HasField "playerLongitude"+         FortDeployPokemonMessage FortDeployPokemonMessage where+        field _+          = Lens.Family2.Unchecked.lens+              _FortDeployPokemonMessage'playerLongitude+              (\ x__ y__ -> x__{_FortDeployPokemonMessage'playerLongitude = y__})++instance Data.Default.Class.Default FortDeployPokemonMessage where+        def+          = FortDeployPokemonMessage{_FortDeployPokemonMessage'fortId =+                                       Data.ProtoLens.fieldDefault,+                                     _FortDeployPokemonMessage'pokemonId =+                                       Data.ProtoLens.fieldDefault,+                                     _FortDeployPokemonMessage'playerLatitude =+                                       Data.ProtoLens.fieldDefault,+                                     _FortDeployPokemonMessage'playerLongitude =+                                       Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message FortDeployPokemonMessage where+        descriptor+          = let fortId__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "fort_id"+                      (Data.ProtoLens.StringField ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional fortId)+                pokemonId__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "pokemon_id"+                      (Data.ProtoLens.Fixed64Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional pokemonId)+                playerLatitude__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "player_latitude"+                      (Data.ProtoLens.DoubleField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Double)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional playerLatitude)+                playerLongitude__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "player_longitude"+                      (Data.ProtoLens.DoubleField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Double)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional playerLongitude)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, fortId__field_descriptor),+                    (Data.ProtoLens.Tag 2, pokemonId__field_descriptor),+                    (Data.ProtoLens.Tag 3, playerLatitude__field_descriptor),+                    (Data.ProtoLens.Tag 4, playerLongitude__field_descriptor)])+                (Data.Map.fromList+                   [("fort_id", fortId__field_descriptor),+                    ("pokemon_id", pokemonId__field_descriptor),+                    ("player_latitude", playerLatitude__field_descriptor),+                    ("player_longitude", playerLongitude__field_descriptor)])++fortId ::+       forall msg msg' . Data.ProtoLens.HasField "fortId" msg msg' =>+         Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "fortId" msg)+           (Data.ProtoLens.Field "fortId" msg')+fortId+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "fortId")++playerLatitude ::+               forall msg msg' .+                 Data.ProtoLens.HasField "playerLatitude" msg msg' =>+                 Lens.Family2.Lens msg msg'+                   (Data.ProtoLens.Field "playerLatitude" msg)+                   (Data.ProtoLens.Field "playerLatitude" msg')+playerLatitude+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "playerLatitude")++playerLongitude ::+                forall msg msg' .+                  Data.ProtoLens.HasField "playerLongitude" msg msg' =>+                  Lens.Family2.Lens msg msg'+                    (Data.ProtoLens.Field "playerLongitude" msg)+                    (Data.ProtoLens.Field "playerLongitude" msg')+playerLongitude+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "playerLongitude")++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")
+ src/Proto/POGOProtos/Networking/Requests/Messages/FortDetailsMessage.hs view
@@ -0,0 +1,109 @@+{- This file was auto-generated from POGOProtos/Networking/Requests/Messages/FortDetailsMessage.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Requests.Messages.FortDetailsMessage+       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 FortDetailsMessage = FortDetailsMessage{_FortDetailsMessage'fortId+                                             :: Data.Text.Text,+                                             _FortDetailsMessage'latitude :: Prelude.Double,+                                             _FortDetailsMessage'longitude :: Prelude.Double}+                        deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "fortId" FortDetailsMessage =+     Data.Text.Text++instance Data.ProtoLens.HasField "fortId" FortDetailsMessage+         FortDetailsMessage where+        field _+          = Lens.Family2.Unchecked.lens _FortDetailsMessage'fortId+              (\ x__ y__ -> x__{_FortDetailsMessage'fortId = y__})++type instance Data.ProtoLens.Field "latitude" FortDetailsMessage =+     Prelude.Double++instance Data.ProtoLens.HasField "latitude" FortDetailsMessage+         FortDetailsMessage where+        field _+          = Lens.Family2.Unchecked.lens _FortDetailsMessage'latitude+              (\ x__ y__ -> x__{_FortDetailsMessage'latitude = y__})++type instance Data.ProtoLens.Field "longitude" FortDetailsMessage =+     Prelude.Double++instance Data.ProtoLens.HasField "longitude" FortDetailsMessage+         FortDetailsMessage where+        field _+          = Lens.Family2.Unchecked.lens _FortDetailsMessage'longitude+              (\ x__ y__ -> x__{_FortDetailsMessage'longitude = y__})++instance Data.Default.Class.Default FortDetailsMessage where+        def+          = FortDetailsMessage{_FortDetailsMessage'fortId =+                                 Data.ProtoLens.fieldDefault,+                               _FortDetailsMessage'latitude = Data.ProtoLens.fieldDefault,+                               _FortDetailsMessage'longitude = Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message FortDetailsMessage where+        descriptor+          = let fortId__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "fort_id"+                      (Data.ProtoLens.StringField ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional fortId)+                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)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, fortId__field_descriptor),+                    (Data.ProtoLens.Tag 2, latitude__field_descriptor),+                    (Data.ProtoLens.Tag 3, longitude__field_descriptor)])+                (Data.Map.fromList+                   [("fort_id", fortId__field_descriptor),+                    ("latitude", latitude__field_descriptor),+                    ("longitude", longitude__field_descriptor)])++fortId ::+       forall msg msg' . Data.ProtoLens.HasField "fortId" msg msg' =>+         Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "fortId" msg)+           (Data.ProtoLens.Field "fortId" msg')+fortId+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "fortId")++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")
+ src/Proto/POGOProtos/Networking/Requests/Messages/FortRecallPokemonMessage.hs view
@@ -0,0 +1,153 @@+{- This file was auto-generated from POGOProtos/Networking/Requests/Messages/FortRecallPokemonMessage.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Requests.Messages.FortRecallPokemonMessage+       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 FortRecallPokemonMessage = FortRecallPokemonMessage{_FortRecallPokemonMessage'fortId+                                                         :: Data.Text.Text,+                                                         _FortRecallPokemonMessage'pokemonId ::+                                                         Data.Word.Word64,+                                                         _FortRecallPokemonMessage'playerLatitude ::+                                                         Prelude.Double,+                                                         _FortRecallPokemonMessage'playerLongitude+                                                         :: Prelude.Double}+                              deriving (Prelude.Show, Prelude.Eq)++type instance+     Data.ProtoLens.Field "fortId" FortRecallPokemonMessage =+     Data.Text.Text++instance Data.ProtoLens.HasField "fortId" FortRecallPokemonMessage+         FortRecallPokemonMessage where+        field _+          = Lens.Family2.Unchecked.lens _FortRecallPokemonMessage'fortId+              (\ x__ y__ -> x__{_FortRecallPokemonMessage'fortId = y__})++type instance+     Data.ProtoLens.Field "pokemonId" FortRecallPokemonMessage =+     Data.Word.Word64++instance Data.ProtoLens.HasField "pokemonId"+         FortRecallPokemonMessage FortRecallPokemonMessage where+        field _+          = Lens.Family2.Unchecked.lens _FortRecallPokemonMessage'pokemonId+              (\ x__ y__ -> x__{_FortRecallPokemonMessage'pokemonId = y__})++type instance+     Data.ProtoLens.Field "playerLatitude" FortRecallPokemonMessage =+     Prelude.Double++instance Data.ProtoLens.HasField "playerLatitude"+         FortRecallPokemonMessage FortRecallPokemonMessage where+        field _+          = Lens.Family2.Unchecked.lens+              _FortRecallPokemonMessage'playerLatitude+              (\ x__ y__ -> x__{_FortRecallPokemonMessage'playerLatitude = y__})++type instance+     Data.ProtoLens.Field "playerLongitude" FortRecallPokemonMessage =+     Prelude.Double++instance Data.ProtoLens.HasField "playerLongitude"+         FortRecallPokemonMessage FortRecallPokemonMessage where+        field _+          = Lens.Family2.Unchecked.lens+              _FortRecallPokemonMessage'playerLongitude+              (\ x__ y__ -> x__{_FortRecallPokemonMessage'playerLongitude = y__})++instance Data.Default.Class.Default FortRecallPokemonMessage where+        def+          = FortRecallPokemonMessage{_FortRecallPokemonMessage'fortId =+                                       Data.ProtoLens.fieldDefault,+                                     _FortRecallPokemonMessage'pokemonId =+                                       Data.ProtoLens.fieldDefault,+                                     _FortRecallPokemonMessage'playerLatitude =+                                       Data.ProtoLens.fieldDefault,+                                     _FortRecallPokemonMessage'playerLongitude =+                                       Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message FortRecallPokemonMessage where+        descriptor+          = let fortId__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "fort_id"+                      (Data.ProtoLens.StringField ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional fortId)+                pokemonId__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "pokemon_id"+                      (Data.ProtoLens.Fixed64Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional pokemonId)+                playerLatitude__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "player_latitude"+                      (Data.ProtoLens.DoubleField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Double)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional playerLatitude)+                playerLongitude__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "player_longitude"+                      (Data.ProtoLens.DoubleField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Double)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional playerLongitude)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, fortId__field_descriptor),+                    (Data.ProtoLens.Tag 2, pokemonId__field_descriptor),+                    (Data.ProtoLens.Tag 3, playerLatitude__field_descriptor),+                    (Data.ProtoLens.Tag 4, playerLongitude__field_descriptor)])+                (Data.Map.fromList+                   [("fort_id", fortId__field_descriptor),+                    ("pokemon_id", pokemonId__field_descriptor),+                    ("player_latitude", playerLatitude__field_descriptor),+                    ("player_longitude", playerLongitude__field_descriptor)])++fortId ::+       forall msg msg' . Data.ProtoLens.HasField "fortId" msg msg' =>+         Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "fortId" msg)+           (Data.ProtoLens.Field "fortId" msg')+fortId+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "fortId")++playerLatitude ::+               forall msg msg' .+                 Data.ProtoLens.HasField "playerLatitude" msg msg' =>+                 Lens.Family2.Lens msg msg'+                   (Data.ProtoLens.Field "playerLatitude" msg)+                   (Data.ProtoLens.Field "playerLatitude" msg')+playerLatitude+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "playerLatitude")++playerLongitude ::+                forall msg msg' .+                  Data.ProtoLens.HasField "playerLongitude" msg msg' =>+                  Lens.Family2.Lens msg msg'+                    (Data.ProtoLens.Field "playerLongitude" msg)+                    (Data.ProtoLens.Field "playerLongitude" msg')+playerLongitude+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "playerLongitude")++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")
+ src/Proto/POGOProtos/Networking/Requests/Messages/FortSearchMessage.hs view
@@ -0,0 +1,175 @@+{- This file was auto-generated from POGOProtos/Networking/Requests/Messages/FortSearchMessage.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Requests.Messages.FortSearchMessage+       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 FortSearchMessage = FortSearchMessage{_FortSearchMessage'fortId+                                           :: Data.Text.Text,+                                           _FortSearchMessage'playerLatitude :: Prelude.Double,+                                           _FortSearchMessage'playerLongitude :: Prelude.Double,+                                           _FortSearchMessage'fortLatitude :: Prelude.Double,+                                           _FortSearchMessage'fortLongitude :: Prelude.Double}+                       deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "fortId" FortSearchMessage =+     Data.Text.Text++instance Data.ProtoLens.HasField "fortId" FortSearchMessage+         FortSearchMessage where+        field _+          = Lens.Family2.Unchecked.lens _FortSearchMessage'fortId+              (\ x__ y__ -> x__{_FortSearchMessage'fortId = y__})++type instance+     Data.ProtoLens.Field "playerLatitude" FortSearchMessage =+     Prelude.Double++instance Data.ProtoLens.HasField "playerLatitude" FortSearchMessage+         FortSearchMessage where+        field _+          = Lens.Family2.Unchecked.lens _FortSearchMessage'playerLatitude+              (\ x__ y__ -> x__{_FortSearchMessage'playerLatitude = y__})++type instance+     Data.ProtoLens.Field "playerLongitude" FortSearchMessage =+     Prelude.Double++instance Data.ProtoLens.HasField "playerLongitude"+         FortSearchMessage FortSearchMessage where+        field _+          = Lens.Family2.Unchecked.lens _FortSearchMessage'playerLongitude+              (\ x__ y__ -> x__{_FortSearchMessage'playerLongitude = y__})++type instance Data.ProtoLens.Field "fortLatitude" FortSearchMessage+     = Prelude.Double++instance Data.ProtoLens.HasField "fortLatitude" FortSearchMessage+         FortSearchMessage where+        field _+          = Lens.Family2.Unchecked.lens _FortSearchMessage'fortLatitude+              (\ x__ y__ -> x__{_FortSearchMessage'fortLatitude = y__})++type instance+     Data.ProtoLens.Field "fortLongitude" FortSearchMessage =+     Prelude.Double++instance Data.ProtoLens.HasField "fortLongitude" FortSearchMessage+         FortSearchMessage where+        field _+          = Lens.Family2.Unchecked.lens _FortSearchMessage'fortLongitude+              (\ x__ y__ -> x__{_FortSearchMessage'fortLongitude = y__})++instance Data.Default.Class.Default FortSearchMessage where+        def+          = FortSearchMessage{_FortSearchMessage'fortId =+                                Data.ProtoLens.fieldDefault,+                              _FortSearchMessage'playerLatitude = Data.ProtoLens.fieldDefault,+                              _FortSearchMessage'playerLongitude = Data.ProtoLens.fieldDefault,+                              _FortSearchMessage'fortLatitude = Data.ProtoLens.fieldDefault,+                              _FortSearchMessage'fortLongitude = Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message FortSearchMessage where+        descriptor+          = let fortId__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "fort_id"+                      (Data.ProtoLens.StringField ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional fortId)+                playerLatitude__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "player_latitude"+                      (Data.ProtoLens.DoubleField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Double)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional playerLatitude)+                playerLongitude__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "player_longitude"+                      (Data.ProtoLens.DoubleField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Double)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional playerLongitude)+                fortLatitude__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "fort_latitude"+                      (Data.ProtoLens.DoubleField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Double)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional fortLatitude)+                fortLongitude__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "fort_longitude"+                      (Data.ProtoLens.DoubleField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Double)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional fortLongitude)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, fortId__field_descriptor),+                    (Data.ProtoLens.Tag 2, playerLatitude__field_descriptor),+                    (Data.ProtoLens.Tag 3, playerLongitude__field_descriptor),+                    (Data.ProtoLens.Tag 4, fortLatitude__field_descriptor),+                    (Data.ProtoLens.Tag 5, fortLongitude__field_descriptor)])+                (Data.Map.fromList+                   [("fort_id", fortId__field_descriptor),+                    ("player_latitude", playerLatitude__field_descriptor),+                    ("player_longitude", playerLongitude__field_descriptor),+                    ("fort_latitude", fortLatitude__field_descriptor),+                    ("fort_longitude", fortLongitude__field_descriptor)])++fortId ::+       forall msg msg' . Data.ProtoLens.HasField "fortId" msg msg' =>+         Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "fortId" msg)+           (Data.ProtoLens.Field "fortId" msg')+fortId+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "fortId")++fortLatitude ::+             forall msg msg' .+               Data.ProtoLens.HasField "fortLatitude" msg msg' =>+               Lens.Family2.Lens msg msg'+                 (Data.ProtoLens.Field "fortLatitude" msg)+                 (Data.ProtoLens.Field "fortLatitude" msg')+fortLatitude+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "fortLatitude")++fortLongitude ::+              forall msg msg' .+                Data.ProtoLens.HasField "fortLongitude" msg msg' =>+                Lens.Family2.Lens msg msg'+                  (Data.ProtoLens.Field "fortLongitude" msg)+                  (Data.ProtoLens.Field "fortLongitude" msg')+fortLongitude+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "fortLongitude")++playerLatitude ::+               forall msg msg' .+                 Data.ProtoLens.HasField "playerLatitude" msg msg' =>+                 Lens.Family2.Lens msg msg'+                   (Data.ProtoLens.Field "playerLatitude" msg)+                   (Data.ProtoLens.Field "playerLatitude" msg')+playerLatitude+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "playerLatitude")++playerLongitude ::+                forall msg msg' .+                  Data.ProtoLens.HasField "playerLongitude" msg msg' =>+                  Lens.Family2.Lens msg msg'+                    (Data.ProtoLens.Field "playerLongitude" msg)+                    (Data.ProtoLens.Field "playerLongitude" msg')+playerLongitude+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "playerLongitude")
+ src/Proto/POGOProtos/Networking/Requests/Messages/GetAssetDigestMessage.hs view
@@ -0,0 +1,175 @@+{- This file was auto-generated from POGOProtos/Networking/Requests/Messages/GetAssetDigestMessage.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Requests.Messages.GetAssetDigestMessage+       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.Platform++data GetAssetDigestMessage = GetAssetDigestMessage{_GetAssetDigestMessage'platform+                                                   :: Proto.POGOProtos.Enums.Platform.Platform,+                                                   _GetAssetDigestMessage'deviceManufacturer ::+                                                   Data.Text.Text,+                                                   _GetAssetDigestMessage'deviceModel ::+                                                   Data.Text.Text,+                                                   _GetAssetDigestMessage'locale :: Data.Text.Text,+                                                   _GetAssetDigestMessage'appVersion ::+                                                   Data.Word.Word32}+                           deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "platform" GetAssetDigestMessage+     = Proto.POGOProtos.Enums.Platform.Platform++instance Data.ProtoLens.HasField "platform" GetAssetDigestMessage+         GetAssetDigestMessage where+        field _+          = Lens.Family2.Unchecked.lens _GetAssetDigestMessage'platform+              (\ x__ y__ -> x__{_GetAssetDigestMessage'platform = y__})++type instance+     Data.ProtoLens.Field "deviceManufacturer" GetAssetDigestMessage =+     Data.Text.Text++instance Data.ProtoLens.HasField "deviceManufacturer"+         GetAssetDigestMessage GetAssetDigestMessage where+        field _+          = Lens.Family2.Unchecked.lens+              _GetAssetDigestMessage'deviceManufacturer+              (\ x__ y__ -> x__{_GetAssetDigestMessage'deviceManufacturer = y__})++type instance+     Data.ProtoLens.Field "deviceModel" GetAssetDigestMessage =+     Data.Text.Text++instance Data.ProtoLens.HasField "deviceModel"+         GetAssetDigestMessage GetAssetDigestMessage where+        field _+          = Lens.Family2.Unchecked.lens _GetAssetDigestMessage'deviceModel+              (\ x__ y__ -> x__{_GetAssetDigestMessage'deviceModel = y__})++type instance Data.ProtoLens.Field "locale" GetAssetDigestMessage =+     Data.Text.Text++instance Data.ProtoLens.HasField "locale" GetAssetDigestMessage+         GetAssetDigestMessage where+        field _+          = Lens.Family2.Unchecked.lens _GetAssetDigestMessage'locale+              (\ x__ y__ -> x__{_GetAssetDigestMessage'locale = y__})++type instance+     Data.ProtoLens.Field "appVersion" GetAssetDigestMessage =+     Data.Word.Word32++instance Data.ProtoLens.HasField "appVersion" GetAssetDigestMessage+         GetAssetDigestMessage where+        field _+          = Lens.Family2.Unchecked.lens _GetAssetDigestMessage'appVersion+              (\ x__ y__ -> x__{_GetAssetDigestMessage'appVersion = y__})++instance Data.Default.Class.Default GetAssetDigestMessage where+        def+          = GetAssetDigestMessage{_GetAssetDigestMessage'platform =+                                    Data.Default.Class.def,+                                  _GetAssetDigestMessage'deviceManufacturer =+                                    Data.ProtoLens.fieldDefault,+                                  _GetAssetDigestMessage'deviceModel = Data.ProtoLens.fieldDefault,+                                  _GetAssetDigestMessage'locale = Data.ProtoLens.fieldDefault,+                                  _GetAssetDigestMessage'appVersion = Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message GetAssetDigestMessage where+        descriptor+          = let platform__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "platform"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Enums.Platform.Platform)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional platform)+                deviceManufacturer__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "device_manufacturer"+                      (Data.ProtoLens.StringField ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         deviceManufacturer)+                deviceModel__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "device_model"+                      (Data.ProtoLens.StringField ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional deviceModel)+                locale__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "locale"+                      (Data.ProtoLens.StringField ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional locale)+                appVersion__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "app_version"+                      (Data.ProtoLens.UInt32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional appVersion)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, platform__field_descriptor),+                    (Data.ProtoLens.Tag 2, deviceManufacturer__field_descriptor),+                    (Data.ProtoLens.Tag 3, deviceModel__field_descriptor),+                    (Data.ProtoLens.Tag 4, locale__field_descriptor),+                    (Data.ProtoLens.Tag 5, appVersion__field_descriptor)])+                (Data.Map.fromList+                   [("platform", platform__field_descriptor),+                    ("device_manufacturer", deviceManufacturer__field_descriptor),+                    ("device_model", deviceModel__field_descriptor),+                    ("locale", locale__field_descriptor),+                    ("app_version", appVersion__field_descriptor)])++appVersion ::+           forall msg msg' . Data.ProtoLens.HasField "appVersion" msg msg' =>+             Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "appVersion" msg)+               (Data.ProtoLens.Field "appVersion" msg')+appVersion+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "appVersion")++deviceManufacturer ::+                   forall msg msg' .+                     Data.ProtoLens.HasField "deviceManufacturer" msg msg' =>+                     Lens.Family2.Lens msg msg'+                       (Data.ProtoLens.Field "deviceManufacturer" msg)+                       (Data.ProtoLens.Field "deviceManufacturer" msg')+deviceManufacturer+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "deviceManufacturer")++deviceModel ::+            forall msg msg' . Data.ProtoLens.HasField "deviceModel" msg msg' =>+              Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "deviceModel" msg)+                (Data.ProtoLens.Field "deviceModel" msg')+deviceModel+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "deviceModel")++locale ::+       forall msg msg' . Data.ProtoLens.HasField "locale" msg msg' =>+         Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "locale" msg)+           (Data.ProtoLens.Field "locale" msg')+locale+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "locale")++platform ::+         forall msg msg' . Data.ProtoLens.HasField "platform" msg msg' =>+           Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "platform" msg)+             (Data.ProtoLens.Field "platform" msg')+platform+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "platform")
+ src/Proto/POGOProtos/Networking/Requests/Messages/GetDownloadUrlsMessage.hs view
@@ -0,0 +1,54 @@+{- This file was auto-generated from POGOProtos/Networking/Requests/Messages/GetDownloadUrlsMessage.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Requests.Messages.GetDownloadUrlsMessage+       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 GetDownloadUrlsMessage = GetDownloadUrlsMessage{_GetDownloadUrlsMessage'assetId+                                                     :: [Data.Text.Text]}+                            deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "assetId" GetDownloadUrlsMessage+     = [Data.Text.Text]++instance Data.ProtoLens.HasField "assetId" GetDownloadUrlsMessage+         GetDownloadUrlsMessage where+        field _+          = Lens.Family2.Unchecked.lens _GetDownloadUrlsMessage'assetId+              (\ x__ y__ -> x__{_GetDownloadUrlsMessage'assetId = y__})++instance Data.Default.Class.Default GetDownloadUrlsMessage where+        def = GetDownloadUrlsMessage{_GetDownloadUrlsMessage'assetId = []}++instance Data.ProtoLens.Message GetDownloadUrlsMessage where+        descriptor+          = let assetId__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "asset_id"+                      (Data.ProtoLens.StringField ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked assetId)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, assetId__field_descriptor)])+                (Data.Map.fromList [("asset_id", assetId__field_descriptor)])++assetId ::+        forall msg msg' . Data.ProtoLens.HasField "assetId" msg msg' =>+          Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "assetId" msg)+            (Data.ProtoLens.Field "assetId" msg')+assetId+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "assetId")
+ src/Proto/POGOProtos/Networking/Requests/Messages/GetGymDetailsMessage.hs view
@@ -0,0 +1,178 @@+{- This file was auto-generated from POGOProtos/Networking/Requests/Messages/GetGymDetailsMessage.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Requests.Messages.GetGymDetailsMessage+       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 GetGymDetailsMessage = GetGymDetailsMessage{_GetGymDetailsMessage'gymId+                                                 :: Data.Text.Text,+                                                 _GetGymDetailsMessage'playerLatitude ::+                                                 Prelude.Double,+                                                 _GetGymDetailsMessage'playerLongitude ::+                                                 Prelude.Double,+                                                 _GetGymDetailsMessage'gymLatitude ::+                                                 Prelude.Double,+                                                 _GetGymDetailsMessage'gymLongitude ::+                                                 Prelude.Double}+                          deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "gymId" GetGymDetailsMessage =+     Data.Text.Text++instance Data.ProtoLens.HasField "gymId" GetGymDetailsMessage+         GetGymDetailsMessage where+        field _+          = Lens.Family2.Unchecked.lens _GetGymDetailsMessage'gymId+              (\ x__ y__ -> x__{_GetGymDetailsMessage'gymId = y__})++type instance+     Data.ProtoLens.Field "playerLatitude" GetGymDetailsMessage =+     Prelude.Double++instance Data.ProtoLens.HasField "playerLatitude"+         GetGymDetailsMessage GetGymDetailsMessage where+        field _+          = Lens.Family2.Unchecked.lens _GetGymDetailsMessage'playerLatitude+              (\ x__ y__ -> x__{_GetGymDetailsMessage'playerLatitude = y__})++type instance+     Data.ProtoLens.Field "playerLongitude" GetGymDetailsMessage =+     Prelude.Double++instance Data.ProtoLens.HasField "playerLongitude"+         GetGymDetailsMessage GetGymDetailsMessage where+        field _+          = Lens.Family2.Unchecked.lens _GetGymDetailsMessage'playerLongitude+              (\ x__ y__ -> x__{_GetGymDetailsMessage'playerLongitude = y__})++type instance+     Data.ProtoLens.Field "gymLatitude" GetGymDetailsMessage =+     Prelude.Double++instance Data.ProtoLens.HasField "gymLatitude" GetGymDetailsMessage+         GetGymDetailsMessage where+        field _+          = Lens.Family2.Unchecked.lens _GetGymDetailsMessage'gymLatitude+              (\ x__ y__ -> x__{_GetGymDetailsMessage'gymLatitude = y__})++type instance+     Data.ProtoLens.Field "gymLongitude" GetGymDetailsMessage =+     Prelude.Double++instance Data.ProtoLens.HasField "gymLongitude"+         GetGymDetailsMessage GetGymDetailsMessage where+        field _+          = Lens.Family2.Unchecked.lens _GetGymDetailsMessage'gymLongitude+              (\ x__ y__ -> x__{_GetGymDetailsMessage'gymLongitude = y__})++instance Data.Default.Class.Default GetGymDetailsMessage where+        def+          = GetGymDetailsMessage{_GetGymDetailsMessage'gymId =+                                   Data.ProtoLens.fieldDefault,+                                 _GetGymDetailsMessage'playerLatitude = Data.ProtoLens.fieldDefault,+                                 _GetGymDetailsMessage'playerLongitude =+                                   Data.ProtoLens.fieldDefault,+                                 _GetGymDetailsMessage'gymLatitude = Data.ProtoLens.fieldDefault,+                                 _GetGymDetailsMessage'gymLongitude = Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message GetGymDetailsMessage where+        descriptor+          = let gymId__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "gym_id"+                      (Data.ProtoLens.StringField ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional gymId)+                playerLatitude__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "player_latitude"+                      (Data.ProtoLens.DoubleField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Double)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional playerLatitude)+                playerLongitude__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "player_longitude"+                      (Data.ProtoLens.DoubleField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Double)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional playerLongitude)+                gymLatitude__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "gym_latitude"+                      (Data.ProtoLens.DoubleField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Double)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional gymLatitude)+                gymLongitude__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "gym_longitude"+                      (Data.ProtoLens.DoubleField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Double)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional gymLongitude)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, gymId__field_descriptor),+                    (Data.ProtoLens.Tag 2, playerLatitude__field_descriptor),+                    (Data.ProtoLens.Tag 3, playerLongitude__field_descriptor),+                    (Data.ProtoLens.Tag 4, gymLatitude__field_descriptor),+                    (Data.ProtoLens.Tag 5, gymLongitude__field_descriptor)])+                (Data.Map.fromList+                   [("gym_id", gymId__field_descriptor),+                    ("player_latitude", playerLatitude__field_descriptor),+                    ("player_longitude", playerLongitude__field_descriptor),+                    ("gym_latitude", gymLatitude__field_descriptor),+                    ("gym_longitude", gymLongitude__field_descriptor)])++gymId ::+      forall msg msg' . Data.ProtoLens.HasField "gymId" msg msg' =>+        Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "gymId" msg)+          (Data.ProtoLens.Field "gymId" msg')+gymId+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "gymId")++gymLatitude ::+            forall msg msg' . Data.ProtoLens.HasField "gymLatitude" msg msg' =>+              Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "gymLatitude" msg)+                (Data.ProtoLens.Field "gymLatitude" msg')+gymLatitude+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "gymLatitude")++gymLongitude ::+             forall msg msg' .+               Data.ProtoLens.HasField "gymLongitude" msg msg' =>+               Lens.Family2.Lens msg msg'+                 (Data.ProtoLens.Field "gymLongitude" msg)+                 (Data.ProtoLens.Field "gymLongitude" msg')+gymLongitude+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "gymLongitude")++playerLatitude ::+               forall msg msg' .+                 Data.ProtoLens.HasField "playerLatitude" msg msg' =>+                 Lens.Family2.Lens msg msg'+                   (Data.ProtoLens.Field "playerLatitude" msg)+                   (Data.ProtoLens.Field "playerLatitude" msg')+playerLatitude+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "playerLatitude")++playerLongitude ::+                forall msg msg' .+                  Data.ProtoLens.HasField "playerLongitude" msg msg' =>+                  Lens.Family2.Lens msg msg'+                    (Data.ProtoLens.Field "playerLongitude" msg)+                    (Data.ProtoLens.Field "playerLongitude" msg')+playerLongitude+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "playerLongitude")
+ src/Proto/POGOProtos/Networking/Requests/Messages/GetHatchedEggsMessage.hs view
@@ -0,0 +1,29 @@+{- This file was auto-generated from POGOProtos/Networking/Requests/Messages/GetHatchedEggsMessage.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Requests.Messages.GetHatchedEggsMessage+       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 GetHatchedEggsMessage = GetHatchedEggsMessage{}+                           deriving (Prelude.Show, Prelude.Eq)++instance Data.Default.Class.Default GetHatchedEggsMessage where+        def = GetHatchedEggsMessage{}++instance Data.ProtoLens.Message GetHatchedEggsMessage where+        descriptor+          = let in+              Data.ProtoLens.MessageDescriptor (Data.Map.fromList [])+                (Data.Map.fromList [])
+ src/Proto/POGOProtos/Networking/Requests/Messages/GetIncensePokemonMessage.hs view
@@ -0,0 +1,95 @@+{- This file was auto-generated from POGOProtos/Networking/Requests/Messages/GetIncensePokemonMessage.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Requests.Messages.GetIncensePokemonMessage+       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 GetIncensePokemonMessage = GetIncensePokemonMessage{_GetIncensePokemonMessage'playerLatitude+                                                         :: Prelude.Double,+                                                         _GetIncensePokemonMessage'playerLongitude+                                                         :: Prelude.Double}+                              deriving (Prelude.Show, Prelude.Eq)++type instance+     Data.ProtoLens.Field "playerLatitude" GetIncensePokemonMessage =+     Prelude.Double++instance Data.ProtoLens.HasField "playerLatitude"+         GetIncensePokemonMessage GetIncensePokemonMessage where+        field _+          = Lens.Family2.Unchecked.lens+              _GetIncensePokemonMessage'playerLatitude+              (\ x__ y__ -> x__{_GetIncensePokemonMessage'playerLatitude = y__})++type instance+     Data.ProtoLens.Field "playerLongitude" GetIncensePokemonMessage =+     Prelude.Double++instance Data.ProtoLens.HasField "playerLongitude"+         GetIncensePokemonMessage GetIncensePokemonMessage where+        field _+          = Lens.Family2.Unchecked.lens+              _GetIncensePokemonMessage'playerLongitude+              (\ x__ y__ -> x__{_GetIncensePokemonMessage'playerLongitude = y__})++instance Data.Default.Class.Default GetIncensePokemonMessage where+        def+          = GetIncensePokemonMessage{_GetIncensePokemonMessage'playerLatitude+                                       = Data.ProtoLens.fieldDefault,+                                     _GetIncensePokemonMessage'playerLongitude =+                                       Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message GetIncensePokemonMessage where+        descriptor+          = let playerLatitude__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "player_latitude"+                      (Data.ProtoLens.DoubleField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Double)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional playerLatitude)+                playerLongitude__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "player_longitude"+                      (Data.ProtoLens.DoubleField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Double)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional playerLongitude)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, playerLatitude__field_descriptor),+                    (Data.ProtoLens.Tag 2, playerLongitude__field_descriptor)])+                (Data.Map.fromList+                   [("player_latitude", playerLatitude__field_descriptor),+                    ("player_longitude", playerLongitude__field_descriptor)])++playerLatitude ::+               forall msg msg' .+                 Data.ProtoLens.HasField "playerLatitude" msg msg' =>+                 Lens.Family2.Lens msg msg'+                   (Data.ProtoLens.Field "playerLatitude" msg)+                   (Data.ProtoLens.Field "playerLatitude" msg')+playerLatitude+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "playerLatitude")++playerLongitude ::+                forall msg msg' .+                  Data.ProtoLens.HasField "playerLongitude" msg msg' =>+                  Lens.Family2.Lens msg msg'+                    (Data.ProtoLens.Field "playerLongitude" msg)+                    (Data.ProtoLens.Field "playerLongitude" msg')+playerLongitude+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "playerLongitude")
+ src/Proto/POGOProtos/Networking/Requests/Messages/GetInventoryMessage.hs view
@@ -0,0 +1,90 @@+{- This file was auto-generated from POGOProtos/Networking/Requests/Messages/GetInventoryMessage.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Requests.Messages.GetInventoryMessage+       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 GetInventoryMessage = GetInventoryMessage{_GetInventoryMessage'lastTimestampMs+                                               :: Data.Int.Int64,+                                               _GetInventoryMessage'itemBeenSeen :: Data.Int.Int32}+                         deriving (Prelude.Show, Prelude.Eq)++type instance+     Data.ProtoLens.Field "lastTimestampMs" GetInventoryMessage =+     Data.Int.Int64++instance Data.ProtoLens.HasField "lastTimestampMs"+         GetInventoryMessage GetInventoryMessage where+        field _+          = Lens.Family2.Unchecked.lens _GetInventoryMessage'lastTimestampMs+              (\ x__ y__ -> x__{_GetInventoryMessage'lastTimestampMs = y__})++type instance+     Data.ProtoLens.Field "itemBeenSeen" GetInventoryMessage =+     Data.Int.Int32++instance Data.ProtoLens.HasField "itemBeenSeen" GetInventoryMessage+         GetInventoryMessage where+        field _+          = Lens.Family2.Unchecked.lens _GetInventoryMessage'itemBeenSeen+              (\ x__ y__ -> x__{_GetInventoryMessage'itemBeenSeen = y__})++instance Data.Default.Class.Default GetInventoryMessage where+        def+          = GetInventoryMessage{_GetInventoryMessage'lastTimestampMs =+                                  Data.ProtoLens.fieldDefault,+                                _GetInventoryMessage'itemBeenSeen = Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message GetInventoryMessage where+        descriptor+          = let lastTimestampMs__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "last_timestamp_ms"+                      (Data.ProtoLens.Int64Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional lastTimestampMs)+                itemBeenSeen__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "item_been_seen"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional itemBeenSeen)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, lastTimestampMs__field_descriptor),+                    (Data.ProtoLens.Tag 2, itemBeenSeen__field_descriptor)])+                (Data.Map.fromList+                   [("last_timestamp_ms", lastTimestampMs__field_descriptor),+                    ("item_been_seen", itemBeenSeen__field_descriptor)])++itemBeenSeen ::+             forall msg msg' .+               Data.ProtoLens.HasField "itemBeenSeen" msg msg' =>+               Lens.Family2.Lens msg msg'+                 (Data.ProtoLens.Field "itemBeenSeen" msg)+                 (Data.ProtoLens.Field "itemBeenSeen" msg')+itemBeenSeen+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "itemBeenSeen")++lastTimestampMs ::+                forall msg msg' .+                  Data.ProtoLens.HasField "lastTimestampMs" msg msg' =>+                  Lens.Family2.Lens msg msg'+                    (Data.ProtoLens.Field "lastTimestampMs" msg)+                    (Data.ProtoLens.Field "lastTimestampMs" msg')+lastTimestampMs+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "lastTimestampMs")
+ src/Proto/POGOProtos/Networking/Requests/Messages/GetMapObjectsMessage.hs view
@@ -0,0 +1,141 @@+{- This file was auto-generated from POGOProtos/Networking/Requests/Messages/GetMapObjectsMessage.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Requests.Messages.GetMapObjectsMessage+       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 GetMapObjectsMessage = GetMapObjectsMessage{_GetMapObjectsMessage'cellId+                                                 :: [Data.Word.Word64],+                                                 _GetMapObjectsMessage'sinceTimestampMs ::+                                                 [Data.Int.Int64],+                                                 _GetMapObjectsMessage'latitude :: Prelude.Double,+                                                 _GetMapObjectsMessage'longitude :: Prelude.Double}+                          deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "cellId" GetMapObjectsMessage =+     [Data.Word.Word64]++instance Data.ProtoLens.HasField "cellId" GetMapObjectsMessage+         GetMapObjectsMessage where+        field _+          = Lens.Family2.Unchecked.lens _GetMapObjectsMessage'cellId+              (\ x__ y__ -> x__{_GetMapObjectsMessage'cellId = y__})++type instance+     Data.ProtoLens.Field "sinceTimestampMs" GetMapObjectsMessage =+     [Data.Int.Int64]++instance Data.ProtoLens.HasField "sinceTimestampMs"+         GetMapObjectsMessage GetMapObjectsMessage where+        field _+          = Lens.Family2.Unchecked.lens+              _GetMapObjectsMessage'sinceTimestampMs+              (\ x__ y__ -> x__{_GetMapObjectsMessage'sinceTimestampMs = y__})++type instance Data.ProtoLens.Field "latitude" GetMapObjectsMessage+     = Prelude.Double++instance Data.ProtoLens.HasField "latitude" GetMapObjectsMessage+         GetMapObjectsMessage where+        field _+          = Lens.Family2.Unchecked.lens _GetMapObjectsMessage'latitude+              (\ x__ y__ -> x__{_GetMapObjectsMessage'latitude = y__})++type instance Data.ProtoLens.Field "longitude" GetMapObjectsMessage+     = Prelude.Double++instance Data.ProtoLens.HasField "longitude" GetMapObjectsMessage+         GetMapObjectsMessage where+        field _+          = Lens.Family2.Unchecked.lens _GetMapObjectsMessage'longitude+              (\ x__ y__ -> x__{_GetMapObjectsMessage'longitude = y__})++instance Data.Default.Class.Default GetMapObjectsMessage where+        def+          = GetMapObjectsMessage{_GetMapObjectsMessage'cellId = [],+                                 _GetMapObjectsMessage'sinceTimestampMs = [],+                                 _GetMapObjectsMessage'latitude = Data.ProtoLens.fieldDefault,+                                 _GetMapObjectsMessage'longitude = Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message GetMapObjectsMessage where+        descriptor+          = let cellId__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "cell_id"+                      (Data.ProtoLens.UInt64Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)+                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Packed cellId)+                sinceTimestampMs__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "since_timestamp_ms"+                      (Data.ProtoLens.Int64Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)+                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Packed+                         sinceTimestampMs)+                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)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, cellId__field_descriptor),+                    (Data.ProtoLens.Tag 2, sinceTimestampMs__field_descriptor),+                    (Data.ProtoLens.Tag 3, latitude__field_descriptor),+                    (Data.ProtoLens.Tag 4, longitude__field_descriptor)])+                (Data.Map.fromList+                   [("cell_id", cellId__field_descriptor),+                    ("since_timestamp_ms", sinceTimestampMs__field_descriptor),+                    ("latitude", latitude__field_descriptor),+                    ("longitude", longitude__field_descriptor)])++cellId ::+       forall msg msg' . Data.ProtoLens.HasField "cellId" msg msg' =>+         Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "cellId" msg)+           (Data.ProtoLens.Field "cellId" msg')+cellId+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "cellId")++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")++sinceTimestampMs ::+                 forall msg msg' .+                   Data.ProtoLens.HasField "sinceTimestampMs" msg msg' =>+                   Lens.Family2.Lens msg msg'+                     (Data.ProtoLens.Field "sinceTimestampMs" msg)+                     (Data.ProtoLens.Field "sinceTimestampMs" msg')+sinceTimestampMs+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "sinceTimestampMs")
+ src/Proto/POGOProtos/Networking/Requests/Messages/GetPlayerMessage.hs view
@@ -0,0 +1,29 @@+{- This file was auto-generated from POGOProtos/Networking/Requests/Messages/GetPlayerMessage.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Requests.Messages.GetPlayerMessage+       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 GetPlayerMessage = GetPlayerMessage{}+                      deriving (Prelude.Show, Prelude.Eq)++instance Data.Default.Class.Default GetPlayerMessage where+        def = GetPlayerMessage{}++instance Data.ProtoLens.Message GetPlayerMessage where+        descriptor+          = let in+              Data.ProtoLens.MessageDescriptor (Data.Map.fromList [])+                (Data.Map.fromList [])
+ src/Proto/POGOProtos/Networking/Requests/Messages/GetPlayerProfileMessage.hs view
@@ -0,0 +1,57 @@+{- This file was auto-generated from POGOProtos/Networking/Requests/Messages/GetPlayerProfileMessage.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Requests.Messages.GetPlayerProfileMessage+       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 GetPlayerProfileMessage = GetPlayerProfileMessage{_GetPlayerProfileMessage'playerName+                                                       :: Data.Text.Text}+                             deriving (Prelude.Show, Prelude.Eq)++type instance+     Data.ProtoLens.Field "playerName" GetPlayerProfileMessage =+     Data.Text.Text++instance Data.ProtoLens.HasField "playerName"+         GetPlayerProfileMessage GetPlayerProfileMessage where+        field _+          = Lens.Family2.Unchecked.lens _GetPlayerProfileMessage'playerName+              (\ x__ y__ -> x__{_GetPlayerProfileMessage'playerName = y__})++instance Data.Default.Class.Default GetPlayerProfileMessage where+        def+          = GetPlayerProfileMessage{_GetPlayerProfileMessage'playerName =+                                      Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message GetPlayerProfileMessage where+        descriptor+          = let playerName__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "player_name"+                      (Data.ProtoLens.StringField ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional playerName)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, playerName__field_descriptor)])+                (Data.Map.fromList [("player_name", playerName__field_descriptor)])++playerName ::+           forall msg msg' . Data.ProtoLens.HasField "playerName" msg msg' =>+             Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "playerName" msg)+               (Data.ProtoLens.Field "playerName" msg')+playerName+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "playerName")
+ src/Proto/POGOProtos/Networking/Requests/Messages/GetSuggestedCodenamesMessage.hs view
@@ -0,0 +1,30 @@+{- This file was auto-generated from POGOProtos/Networking/Requests/Messages/GetSuggestedCodenamesMessage.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Requests.Messages.GetSuggestedCodenamesMessage+       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 GetSuggestedCodenamesMessage = GetSuggestedCodenamesMessage{}+                                  deriving (Prelude.Show, Prelude.Eq)++instance Data.Default.Class.Default GetSuggestedCodenamesMessage+         where+        def = GetSuggestedCodenamesMessage{}++instance Data.ProtoLens.Message GetSuggestedCodenamesMessage where+        descriptor+          = let in+              Data.ProtoLens.MessageDescriptor (Data.Map.fromList [])+                (Data.Map.fromList [])
+ src/Proto/POGOProtos/Networking/Requests/Messages/IncenseEncounterMessage.hs view
@@ -0,0 +1,93 @@+{- This file was auto-generated from POGOProtos/Networking/Requests/Messages/IncenseEncounterMessage.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Requests.Messages.IncenseEncounterMessage+       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 IncenseEncounterMessage = IncenseEncounterMessage{_IncenseEncounterMessage'encounterId+                                                       :: Data.Int.Int64,+                                                       _IncenseEncounterMessage'encounterLocation ::+                                                       Data.Text.Text}+                             deriving (Prelude.Show, Prelude.Eq)++type instance+     Data.ProtoLens.Field "encounterId" IncenseEncounterMessage =+     Data.Int.Int64++instance Data.ProtoLens.HasField "encounterId"+         IncenseEncounterMessage IncenseEncounterMessage where+        field _+          = Lens.Family2.Unchecked.lens _IncenseEncounterMessage'encounterId+              (\ x__ y__ -> x__{_IncenseEncounterMessage'encounterId = y__})++type instance+     Data.ProtoLens.Field "encounterLocation" IncenseEncounterMessage =+     Data.Text.Text++instance Data.ProtoLens.HasField "encounterLocation"+         IncenseEncounterMessage IncenseEncounterMessage where+        field _+          = Lens.Family2.Unchecked.lens+              _IncenseEncounterMessage'encounterLocation+              (\ x__ y__ ->+                 x__{_IncenseEncounterMessage'encounterLocation = y__})++instance Data.Default.Class.Default IncenseEncounterMessage where+        def+          = IncenseEncounterMessage{_IncenseEncounterMessage'encounterId =+                                      Data.ProtoLens.fieldDefault,+                                    _IncenseEncounterMessage'encounterLocation =+                                      Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message IncenseEncounterMessage where+        descriptor+          = let encounterId__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "encounter_id"+                      (Data.ProtoLens.Int64Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional encounterId)+                encounterLocation__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "encounter_location"+                      (Data.ProtoLens.StringField ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         encounterLocation)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, encounterId__field_descriptor),+                    (Data.ProtoLens.Tag 2, encounterLocation__field_descriptor)])+                (Data.Map.fromList+                   [("encounter_id", encounterId__field_descriptor),+                    ("encounter_location", encounterLocation__field_descriptor)])++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")
+ src/Proto/POGOProtos/Networking/Requests/Messages/LevelUpRewardsMessage.hs view
@@ -0,0 +1,56 @@+{- This file was auto-generated from POGOProtos/Networking/Requests/Messages/LevelUpRewardsMessage.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Requests.Messages.LevelUpRewardsMessage+       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 LevelUpRewardsMessage = LevelUpRewardsMessage{_LevelUpRewardsMessage'level+                                                   :: Data.Int.Int32}+                           deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "level" LevelUpRewardsMessage =+     Data.Int.Int32++instance Data.ProtoLens.HasField "level" LevelUpRewardsMessage+         LevelUpRewardsMessage where+        field _+          = Lens.Family2.Unchecked.lens _LevelUpRewardsMessage'level+              (\ x__ y__ -> x__{_LevelUpRewardsMessage'level = y__})++instance Data.Default.Class.Default LevelUpRewardsMessage where+        def+          = LevelUpRewardsMessage{_LevelUpRewardsMessage'level =+                                    Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message LevelUpRewardsMessage where+        descriptor+          = let level__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "level"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional level)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, level__field_descriptor)])+                (Data.Map.fromList [("level", level__field_descriptor)])++level ::+      forall msg msg' . Data.ProtoLens.HasField "level" msg msg' =>+        Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "level" msg)+          (Data.ProtoLens.Field "level" msg')+level+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "level")
+ src/Proto/POGOProtos/Networking/Requests/Messages/MarkTutorialCompleteMessage.hs view
@@ -0,0 +1,142 @@+{- This file was auto-generated from POGOProtos/Networking/Requests/Messages/MarkTutorialCompleteMessage.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Requests.Messages.MarkTutorialCompleteMessage+       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.TutorialState++data MarkTutorialCompleteMessage = MarkTutorialCompleteMessage{_MarkTutorialCompleteMessage'tutorialsCompleted+                                                               ::+                                                               [Proto.POGOProtos.Enums.TutorialState.TutorialState],+                                                               _MarkTutorialCompleteMessage'sendMarketingEmails+                                                               :: Prelude.Bool,+                                                               _MarkTutorialCompleteMessage'sendPushNotifications+                                                               :: Prelude.Bool}+                                 deriving (Prelude.Show, Prelude.Eq)++type instance+     Data.ProtoLens.Field "tutorialsCompleted"+       MarkTutorialCompleteMessage+     = [Proto.POGOProtos.Enums.TutorialState.TutorialState]++instance Data.ProtoLens.HasField "tutorialsCompleted"+         MarkTutorialCompleteMessage MarkTutorialCompleteMessage where+        field _+          = Lens.Family2.Unchecked.lens+              _MarkTutorialCompleteMessage'tutorialsCompleted+              (\ x__ y__ ->+                 x__{_MarkTutorialCompleteMessage'tutorialsCompleted = y__})++type instance+     Data.ProtoLens.Field "sendMarketingEmails"+       MarkTutorialCompleteMessage+     = Prelude.Bool++instance Data.ProtoLens.HasField "sendMarketingEmails"+         MarkTutorialCompleteMessage MarkTutorialCompleteMessage where+        field _+          = Lens.Family2.Unchecked.lens+              _MarkTutorialCompleteMessage'sendMarketingEmails+              (\ x__ y__ ->+                 x__{_MarkTutorialCompleteMessage'sendMarketingEmails = y__})++type instance+     Data.ProtoLens.Field "sendPushNotifications"+       MarkTutorialCompleteMessage+     = Prelude.Bool++instance Data.ProtoLens.HasField "sendPushNotifications"+         MarkTutorialCompleteMessage MarkTutorialCompleteMessage where+        field _+          = Lens.Family2.Unchecked.lens+              _MarkTutorialCompleteMessage'sendPushNotifications+              (\ x__ y__ ->+                 x__{_MarkTutorialCompleteMessage'sendPushNotifications = y__})++instance Data.Default.Class.Default MarkTutorialCompleteMessage+         where+        def+          = MarkTutorialCompleteMessage{_MarkTutorialCompleteMessage'tutorialsCompleted+                                          = [],+                                        _MarkTutorialCompleteMessage'sendMarketingEmails =+                                          Data.ProtoLens.fieldDefault,+                                        _MarkTutorialCompleteMessage'sendPushNotifications =+                                          Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message MarkTutorialCompleteMessage where+        descriptor+          = let tutorialsCompleted__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "tutorials_completed"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Enums.TutorialState.TutorialState)+                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked+                         tutorialsCompleted)+                sendMarketingEmails__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "send_marketing_emails"+                      (Data.ProtoLens.BoolField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         sendMarketingEmails)+                sendPushNotifications__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "send_push_notifications"+                      (Data.ProtoLens.BoolField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         sendPushNotifications)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, tutorialsCompleted__field_descriptor),+                    (Data.ProtoLens.Tag 2, sendMarketingEmails__field_descriptor),+                    (Data.ProtoLens.Tag 3, sendPushNotifications__field_descriptor)])+                (Data.Map.fromList+                   [("tutorials_completed", tutorialsCompleted__field_descriptor),+                    ("send_marketing_emails", sendMarketingEmails__field_descriptor),+                    ("send_push_notifications",+                     sendPushNotifications__field_descriptor)])++sendMarketingEmails ::+                    forall msg msg' .+                      Data.ProtoLens.HasField "sendMarketingEmails" msg msg' =>+                      Lens.Family2.Lens msg msg'+                        (Data.ProtoLens.Field "sendMarketingEmails" msg)+                        (Data.ProtoLens.Field "sendMarketingEmails" msg')+sendMarketingEmails+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "sendMarketingEmails")++sendPushNotifications ::+                      forall msg msg' .+                        Data.ProtoLens.HasField "sendPushNotifications" msg msg' =>+                        Lens.Family2.Lens msg msg'+                          (Data.ProtoLens.Field "sendPushNotifications" msg)+                          (Data.ProtoLens.Field "sendPushNotifications" msg')+sendPushNotifications+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "sendPushNotifications")++tutorialsCompleted ::+                   forall msg msg' .+                     Data.ProtoLens.HasField "tutorialsCompleted" msg msg' =>+                     Lens.Family2.Lens msg msg'+                       (Data.ProtoLens.Field "tutorialsCompleted" msg)+                       (Data.ProtoLens.Field "tutorialsCompleted" msg')+tutorialsCompleted+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "tutorialsCompleted")
+ src/Proto/POGOProtos/Networking/Requests/Messages/NicknamePokemonMessage.hs view
@@ -0,0 +1,86 @@+{- This file was auto-generated from POGOProtos/Networking/Requests/Messages/NicknamePokemonMessage.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Requests.Messages.NicknamePokemonMessage+       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 NicknamePokemonMessage = NicknamePokemonMessage{_NicknamePokemonMessage'pokemonId+                                                     :: Data.Word.Word64,+                                                     _NicknamePokemonMessage'nickname ::+                                                     Data.Text.Text}+                            deriving (Prelude.Show, Prelude.Eq)++type instance+     Data.ProtoLens.Field "pokemonId" NicknamePokemonMessage =+     Data.Word.Word64++instance Data.ProtoLens.HasField "pokemonId" NicknamePokemonMessage+         NicknamePokemonMessage where+        field _+          = Lens.Family2.Unchecked.lens _NicknamePokemonMessage'pokemonId+              (\ x__ y__ -> x__{_NicknamePokemonMessage'pokemonId = y__})++type instance+     Data.ProtoLens.Field "nickname" NicknamePokemonMessage =+     Data.Text.Text++instance Data.ProtoLens.HasField "nickname" NicknamePokemonMessage+         NicknamePokemonMessage where+        field _+          = Lens.Family2.Unchecked.lens _NicknamePokemonMessage'nickname+              (\ x__ y__ -> x__{_NicknamePokemonMessage'nickname = y__})++instance Data.Default.Class.Default NicknamePokemonMessage where+        def+          = NicknamePokemonMessage{_NicknamePokemonMessage'pokemonId =+                                     Data.ProtoLens.fieldDefault,+                                   _NicknamePokemonMessage'nickname = Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message NicknamePokemonMessage where+        descriptor+          = let pokemonId__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "pokemon_id"+                      (Data.ProtoLens.Fixed64Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional pokemonId)+                nickname__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "nickname"+                      (Data.ProtoLens.StringField ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional nickname)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, pokemonId__field_descriptor),+                    (Data.ProtoLens.Tag 2, nickname__field_descriptor)])+                (Data.Map.fromList+                   [("pokemon_id", pokemonId__field_descriptor),+                    ("nickname", nickname__field_descriptor)])++nickname ::+         forall msg msg' . Data.ProtoLens.HasField "nickname" msg msg' =>+           Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "nickname" msg)+             (Data.ProtoLens.Field "nickname" msg')+nickname+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "nickname")++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")
+ src/Proto/POGOProtos/Networking/Requests/Messages/PlayerUpdateMessage.hs view
@@ -0,0 +1,83 @@+{- This file was auto-generated from POGOProtos/Networking/Requests/Messages/PlayerUpdateMessage.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Requests.Messages.PlayerUpdateMessage+       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 PlayerUpdateMessage = PlayerUpdateMessage{_PlayerUpdateMessage'latitude+                                               :: Prelude.Double,+                                               _PlayerUpdateMessage'longitude :: Prelude.Double}+                         deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "latitude" PlayerUpdateMessage =+     Prelude.Double++instance Data.ProtoLens.HasField "latitude" PlayerUpdateMessage+         PlayerUpdateMessage where+        field _+          = Lens.Family2.Unchecked.lens _PlayerUpdateMessage'latitude+              (\ x__ y__ -> x__{_PlayerUpdateMessage'latitude = y__})++type instance Data.ProtoLens.Field "longitude" PlayerUpdateMessage+     = Prelude.Double++instance Data.ProtoLens.HasField "longitude" PlayerUpdateMessage+         PlayerUpdateMessage where+        field _+          = Lens.Family2.Unchecked.lens _PlayerUpdateMessage'longitude+              (\ x__ y__ -> x__{_PlayerUpdateMessage'longitude = y__})++instance Data.Default.Class.Default PlayerUpdateMessage where+        def+          = PlayerUpdateMessage{_PlayerUpdateMessage'latitude =+                                  Data.ProtoLens.fieldDefault,+                                _PlayerUpdateMessage'longitude = Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message PlayerUpdateMessage where+        descriptor+          = let 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)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, latitude__field_descriptor),+                    (Data.ProtoLens.Tag 2, longitude__field_descriptor)])+                (Data.Map.fromList+                   [("latitude", latitude__field_descriptor),+                    ("longitude", longitude__field_descriptor)])++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")
+ src/Proto/POGOProtos/Networking/Requests/Messages/RecycleInventoryItemMessage.hs view
@@ -0,0 +1,91 @@+{- This file was auto-generated from POGOProtos/Networking/Requests/Messages/RecycleInventoryItemMessage.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Requests.Messages.RecycleInventoryItemMessage+       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.Inventory.Item.ItemId++data RecycleInventoryItemMessage = RecycleInventoryItemMessage{_RecycleInventoryItemMessage'itemId+                                                               ::+                                                               Proto.POGOProtos.Inventory.Item.ItemId.ItemId,+                                                               _RecycleInventoryItemMessage'count ::+                                                               Data.Int.Int32}+                                 deriving (Prelude.Show, Prelude.Eq)++type instance+     Data.ProtoLens.Field "itemId" RecycleInventoryItemMessage =+     Proto.POGOProtos.Inventory.Item.ItemId.ItemId++instance Data.ProtoLens.HasField "itemId"+         RecycleInventoryItemMessage RecycleInventoryItemMessage where+        field _+          = Lens.Family2.Unchecked.lens _RecycleInventoryItemMessage'itemId+              (\ x__ y__ -> x__{_RecycleInventoryItemMessage'itemId = y__})++type instance+     Data.ProtoLens.Field "count" RecycleInventoryItemMessage =+     Data.Int.Int32++instance Data.ProtoLens.HasField "count"+         RecycleInventoryItemMessage RecycleInventoryItemMessage where+        field _+          = Lens.Family2.Unchecked.lens _RecycleInventoryItemMessage'count+              (\ x__ y__ -> x__{_RecycleInventoryItemMessage'count = y__})++instance Data.Default.Class.Default RecycleInventoryItemMessage+         where+        def+          = RecycleInventoryItemMessage{_RecycleInventoryItemMessage'itemId =+                                          Data.Default.Class.def,+                                        _RecycleInventoryItemMessage'count =+                                          Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message RecycleInventoryItemMessage where+        descriptor+          = let itemId__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "item_id"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Inventory.Item.ItemId.ItemId)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional itemId)+                count__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "count"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional count)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, itemId__field_descriptor),+                    (Data.ProtoLens.Tag 2, count__field_descriptor)])+                (Data.Map.fromList+                   [("item_id", itemId__field_descriptor),+                    ("count", count__field_descriptor)])++count ::+      forall msg msg' . Data.ProtoLens.HasField "count" msg msg' =>+        Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "count" msg)+          (Data.ProtoLens.Field "count" msg')+count+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "count")++itemId ::+       forall msg msg' . Data.ProtoLens.HasField "itemId" msg msg' =>+         Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "itemId" msg)+           (Data.ProtoLens.Field "itemId" msg')+itemId+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "itemId")
+ src/Proto/POGOProtos/Networking/Requests/Messages/ReleasePokemonMessage.hs view
@@ -0,0 +1,57 @@+{- This file was auto-generated from POGOProtos/Networking/Requests/Messages/ReleasePokemonMessage.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Requests.Messages.ReleasePokemonMessage+       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 ReleasePokemonMessage = ReleasePokemonMessage{_ReleasePokemonMessage'pokemonId+                                                   :: Data.Word.Word64}+                           deriving (Prelude.Show, Prelude.Eq)++type instance+     Data.ProtoLens.Field "pokemonId" ReleasePokemonMessage =+     Data.Word.Word64++instance Data.ProtoLens.HasField "pokemonId" ReleasePokemonMessage+         ReleasePokemonMessage where+        field _+          = Lens.Family2.Unchecked.lens _ReleasePokemonMessage'pokemonId+              (\ x__ y__ -> x__{_ReleasePokemonMessage'pokemonId = y__})++instance Data.Default.Class.Default ReleasePokemonMessage where+        def+          = ReleasePokemonMessage{_ReleasePokemonMessage'pokemonId =+                                    Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message ReleasePokemonMessage where+        descriptor+          = let pokemonId__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "pokemon_id"+                      (Data.ProtoLens.Fixed64Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional pokemonId)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, pokemonId__field_descriptor)])+                (Data.Map.fromList [("pokemon_id", pokemonId__field_descriptor)])++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")
+ src/Proto/POGOProtos/Networking/Requests/Messages/SetAvatarMessage.hs view
@@ -0,0 +1,85 @@+{- This file was auto-generated from POGOProtos/Networking/Requests/Messages/SetAvatarMessage.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Requests.Messages.SetAvatarMessage+       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.Player.PlayerAvatar++data SetAvatarMessage = SetAvatarMessage{_SetAvatarMessage'playerAvatar+                                         ::+                                         Prelude.Maybe+                                           Proto.POGOProtos.Data.Player.PlayerAvatar.PlayerAvatar}+                      deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "playerAvatar" SetAvatarMessage+     = Proto.POGOProtos.Data.Player.PlayerAvatar.PlayerAvatar++instance Data.ProtoLens.HasField "playerAvatar" SetAvatarMessage+         SetAvatarMessage where+        field _+          = (Prelude..) maybe'playerAvatar+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance+     Data.ProtoLens.Field "maybe'playerAvatar" SetAvatarMessage =+     Prelude.Maybe+       Proto.POGOProtos.Data.Player.PlayerAvatar.PlayerAvatar++instance Data.ProtoLens.HasField "maybe'playerAvatar"+         SetAvatarMessage SetAvatarMessage where+        field _+          = Lens.Family2.Unchecked.lens _SetAvatarMessage'playerAvatar+              (\ x__ y__ -> x__{_SetAvatarMessage'playerAvatar = y__})++instance Data.Default.Class.Default SetAvatarMessage where+        def+          = SetAvatarMessage{_SetAvatarMessage'playerAvatar =+                               Prelude.Nothing}++instance Data.ProtoLens.Message SetAvatarMessage where+        descriptor+          = let playerAvatar__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "player_avatar"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Data.Player.PlayerAvatar.PlayerAvatar)+                      (Data.ProtoLens.OptionalField maybe'playerAvatar)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 2, playerAvatar__field_descriptor)])+                (Data.Map.fromList+                   [("player_avatar", playerAvatar__field_descriptor)])++maybe'playerAvatar ::+                   forall msg msg' .+                     Data.ProtoLens.HasField "maybe'playerAvatar" msg msg' =>+                     Lens.Family2.Lens msg msg'+                       (Data.ProtoLens.Field "maybe'playerAvatar" msg)+                       (Data.ProtoLens.Field "maybe'playerAvatar" msg')+maybe'playerAvatar+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "maybe'playerAvatar")++playerAvatar ::+             forall msg msg' .+               Data.ProtoLens.HasField "playerAvatar" msg msg' =>+               Lens.Family2.Lens msg msg'+                 (Data.ProtoLens.Field "playerAvatar" msg)+                 (Data.ProtoLens.Field "playerAvatar" msg')+playerAvatar+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "playerAvatar")
+ src/Proto/POGOProtos/Networking/Requests/Messages/SetContactSettingsMessage.hs view
@@ -0,0 +1,91 @@+{- This file was auto-generated from POGOProtos/Networking/Requests/Messages/SetContactSettingsMessage.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Requests.Messages.SetContactSettingsMessage+       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.Player.ContactSettings++data SetContactSettingsMessage = SetContactSettingsMessage{_SetContactSettingsMessage'contactSettings+                                                           ::+                                                           Prelude.Maybe+                                                             Proto.POGOProtos.Data.Player.ContactSettings.ContactSettings}+                               deriving (Prelude.Show, Prelude.Eq)++type instance+     Data.ProtoLens.Field "contactSettings" SetContactSettingsMessage =+     Proto.POGOProtos.Data.Player.ContactSettings.ContactSettings++instance Data.ProtoLens.HasField "contactSettings"+         SetContactSettingsMessage SetContactSettingsMessage where+        field _+          = (Prelude..) maybe'contactSettings+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance+     Data.ProtoLens.Field "maybe'contactSettings"+       SetContactSettingsMessage+     =+     Prelude.Maybe+       Proto.POGOProtos.Data.Player.ContactSettings.ContactSettings++instance Data.ProtoLens.HasField "maybe'contactSettings"+         SetContactSettingsMessage SetContactSettingsMessage where+        field _+          = Lens.Family2.Unchecked.lens+              _SetContactSettingsMessage'contactSettings+              (\ x__ y__ ->+                 x__{_SetContactSettingsMessage'contactSettings = y__})++instance Data.Default.Class.Default SetContactSettingsMessage where+        def+          = SetContactSettingsMessage{_SetContactSettingsMessage'contactSettings+                                        = Prelude.Nothing}++instance Data.ProtoLens.Message SetContactSettingsMessage where+        descriptor+          = let contactSettings__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "contact_settings"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Data.Player.ContactSettings.ContactSettings)+                      (Data.ProtoLens.OptionalField maybe'contactSettings)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, contactSettings__field_descriptor)])+                (Data.Map.fromList+                   [("contact_settings", contactSettings__field_descriptor)])++contactSettings ::+                forall msg msg' .+                  Data.ProtoLens.HasField "contactSettings" msg msg' =>+                  Lens.Family2.Lens msg msg'+                    (Data.ProtoLens.Field "contactSettings" msg)+                    (Data.ProtoLens.Field "contactSettings" msg')+contactSettings+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "contactSettings")++maybe'contactSettings ::+                      forall msg msg' .+                        Data.ProtoLens.HasField "maybe'contactSettings" msg msg' =>+                        Lens.Family2.Lens msg msg'+                          (Data.ProtoLens.Field "maybe'contactSettings" msg)+                          (Data.ProtoLens.Field "maybe'contactSettings" msg')+maybe'contactSettings+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "maybe'contactSettings")
+ src/Proto/POGOProtos/Networking/Requests/Messages/SetFavoritePokemonMessage.hs view
@@ -0,0 +1,87 @@+{- This file was auto-generated from POGOProtos/Networking/Requests/Messages/SetFavoritePokemonMessage.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Requests.Messages.SetFavoritePokemonMessage+       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 SetFavoritePokemonMessage = SetFavoritePokemonMessage{_SetFavoritePokemonMessage'pokemonId+                                                           :: Data.Word.Word64,+                                                           _SetFavoritePokemonMessage'isFavorite ::+                                                           Prelude.Bool}+                               deriving (Prelude.Show, Prelude.Eq)++type instance+     Data.ProtoLens.Field "pokemonId" SetFavoritePokemonMessage =+     Data.Word.Word64++instance Data.ProtoLens.HasField "pokemonId"+         SetFavoritePokemonMessage SetFavoritePokemonMessage where+        field _+          = Lens.Family2.Unchecked.lens _SetFavoritePokemonMessage'pokemonId+              (\ x__ y__ -> x__{_SetFavoritePokemonMessage'pokemonId = y__})++type instance+     Data.ProtoLens.Field "isFavorite" SetFavoritePokemonMessage =+     Prelude.Bool++instance Data.ProtoLens.HasField "isFavorite"+         SetFavoritePokemonMessage SetFavoritePokemonMessage where+        field _+          = Lens.Family2.Unchecked.lens _SetFavoritePokemonMessage'isFavorite+              (\ x__ y__ -> x__{_SetFavoritePokemonMessage'isFavorite = y__})++instance Data.Default.Class.Default SetFavoritePokemonMessage where+        def+          = SetFavoritePokemonMessage{_SetFavoritePokemonMessage'pokemonId =+                                        Data.ProtoLens.fieldDefault,+                                      _SetFavoritePokemonMessage'isFavorite =+                                        Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message SetFavoritePokemonMessage where+        descriptor+          = let pokemonId__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "pokemon_id"+                      (Data.ProtoLens.Fixed64Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional pokemonId)+                isFavorite__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "is_favorite"+                      (Data.ProtoLens.BoolField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional isFavorite)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, pokemonId__field_descriptor),+                    (Data.ProtoLens.Tag 2, isFavorite__field_descriptor)])+                (Data.Map.fromList+                   [("pokemon_id", pokemonId__field_descriptor),+                    ("is_favorite", isFavorite__field_descriptor)])++isFavorite ::+           forall msg msg' . Data.ProtoLens.HasField "isFavorite" msg msg' =>+             Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "isFavorite" msg)+               (Data.ProtoLens.Field "isFavorite" msg')+isFavorite+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "isFavorite")++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")
+ src/Proto/POGOProtos/Networking/Requests/Messages/SetPlayerTeamMessage.hs view
@@ -0,0 +1,58 @@+{- This file was auto-generated from POGOProtos/Networking/Requests/Messages/SetPlayerTeamMessage.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Requests.Messages.SetPlayerTeamMessage+       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.TeamColor++data SetPlayerTeamMessage = SetPlayerTeamMessage{_SetPlayerTeamMessage'team+                                                 :: Proto.POGOProtos.Enums.TeamColor.TeamColor}+                          deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "team" SetPlayerTeamMessage =+     Proto.POGOProtos.Enums.TeamColor.TeamColor++instance Data.ProtoLens.HasField "team" SetPlayerTeamMessage+         SetPlayerTeamMessage where+        field _+          = Lens.Family2.Unchecked.lens _SetPlayerTeamMessage'team+              (\ x__ y__ -> x__{_SetPlayerTeamMessage'team = y__})++instance Data.Default.Class.Default SetPlayerTeamMessage where+        def+          = SetPlayerTeamMessage{_SetPlayerTeamMessage'team =+                                   Data.Default.Class.def}++instance Data.ProtoLens.Message SetPlayerTeamMessage where+        descriptor+          = let team__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "team"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Enums.TeamColor.TeamColor)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional team)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, team__field_descriptor)])+                (Data.Map.fromList [("team", team__field_descriptor)])++team ::+     forall msg msg' . Data.ProtoLens.HasField "team" msg msg' =>+       Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "team" msg)+         (Data.ProtoLens.Field "team" msg')+team+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "team")
+ src/Proto/POGOProtos/Networking/Requests/Messages/SfidaActionLogMessage.hs view
@@ -0,0 +1,29 @@+{- This file was auto-generated from POGOProtos/Networking/Requests/Messages/SfidaActionLogMessage.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Requests.Messages.SfidaActionLogMessage+       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 SfidaActionLogMessage = SfidaActionLogMessage{}+                           deriving (Prelude.Show, Prelude.Eq)++instance Data.Default.Class.Default SfidaActionLogMessage where+        def = SfidaActionLogMessage{}++instance Data.ProtoLens.Message SfidaActionLogMessage where+        descriptor+          = let in+              Data.ProtoLens.MessageDescriptor (Data.Map.fromList [])+                (Data.Map.fromList [])
+ src/Proto/POGOProtos/Networking/Requests/Messages/StartGymBattleMessage.hs view
@@ -0,0 +1,190 @@+{- This file was auto-generated from POGOProtos/Networking/Requests/Messages/StartGymBattleMessage.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Requests.Messages.StartGymBattleMessage+       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 StartGymBattleMessage = StartGymBattleMessage{_StartGymBattleMessage'gymId+                                                   :: Data.Text.Text,+                                                   _StartGymBattleMessage'attackingPokemonIds ::+                                                   [Data.Word.Word64],+                                                   _StartGymBattleMessage'defendingPokemonId ::+                                                   Data.Word.Word64,+                                                   _StartGymBattleMessage'playerLatitude ::+                                                   Prelude.Double,+                                                   _StartGymBattleMessage'playerLongitude ::+                                                   Prelude.Double}+                           deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "gymId" StartGymBattleMessage =+     Data.Text.Text++instance Data.ProtoLens.HasField "gymId" StartGymBattleMessage+         StartGymBattleMessage where+        field _+          = Lens.Family2.Unchecked.lens _StartGymBattleMessage'gymId+              (\ x__ y__ -> x__{_StartGymBattleMessage'gymId = y__})++type instance+     Data.ProtoLens.Field "attackingPokemonIds" StartGymBattleMessage =+     [Data.Word.Word64]++instance Data.ProtoLens.HasField "attackingPokemonIds"+         StartGymBattleMessage StartGymBattleMessage where+        field _+          = Lens.Family2.Unchecked.lens+              _StartGymBattleMessage'attackingPokemonIds+              (\ x__ y__ ->+                 x__{_StartGymBattleMessage'attackingPokemonIds = y__})++type instance+     Data.ProtoLens.Field "defendingPokemonId" StartGymBattleMessage =+     Data.Word.Word64++instance Data.ProtoLens.HasField "defendingPokemonId"+         StartGymBattleMessage StartGymBattleMessage where+        field _+          = Lens.Family2.Unchecked.lens+              _StartGymBattleMessage'defendingPokemonId+              (\ x__ y__ -> x__{_StartGymBattleMessage'defendingPokemonId = y__})++type instance+     Data.ProtoLens.Field "playerLatitude" StartGymBattleMessage =+     Prelude.Double++instance Data.ProtoLens.HasField "playerLatitude"+         StartGymBattleMessage StartGymBattleMessage where+        field _+          = Lens.Family2.Unchecked.lens _StartGymBattleMessage'playerLatitude+              (\ x__ y__ -> x__{_StartGymBattleMessage'playerLatitude = y__})++type instance+     Data.ProtoLens.Field "playerLongitude" StartGymBattleMessage =+     Prelude.Double++instance Data.ProtoLens.HasField "playerLongitude"+         StartGymBattleMessage StartGymBattleMessage where+        field _+          = Lens.Family2.Unchecked.lens+              _StartGymBattleMessage'playerLongitude+              (\ x__ y__ -> x__{_StartGymBattleMessage'playerLongitude = y__})++instance Data.Default.Class.Default StartGymBattleMessage where+        def+          = StartGymBattleMessage{_StartGymBattleMessage'gymId =+                                    Data.ProtoLens.fieldDefault,+                                  _StartGymBattleMessage'attackingPokemonIds = [],+                                  _StartGymBattleMessage'defendingPokemonId =+                                    Data.ProtoLens.fieldDefault,+                                  _StartGymBattleMessage'playerLatitude =+                                    Data.ProtoLens.fieldDefault,+                                  _StartGymBattleMessage'playerLongitude =+                                    Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message StartGymBattleMessage where+        descriptor+          = let gymId__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "gym_id"+                      (Data.ProtoLens.StringField ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional gymId)+                attackingPokemonIds__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "attacking_pokemon_ids"+                      (Data.ProtoLens.Fixed64Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)+                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked+                         attackingPokemonIds)+                defendingPokemonId__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "defending_pokemon_id"+                      (Data.ProtoLens.UInt64Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         defendingPokemonId)+                playerLatitude__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "player_latitude"+                      (Data.ProtoLens.DoubleField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Double)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional playerLatitude)+                playerLongitude__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "player_longitude"+                      (Data.ProtoLens.DoubleField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Double)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional playerLongitude)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, gymId__field_descriptor),+                    (Data.ProtoLens.Tag 2, attackingPokemonIds__field_descriptor),+                    (Data.ProtoLens.Tag 3, defendingPokemonId__field_descriptor),+                    (Data.ProtoLens.Tag 4, playerLatitude__field_descriptor),+                    (Data.ProtoLens.Tag 5, playerLongitude__field_descriptor)])+                (Data.Map.fromList+                   [("gym_id", gymId__field_descriptor),+                    ("attacking_pokemon_ids", attackingPokemonIds__field_descriptor),+                    ("defending_pokemon_id", defendingPokemonId__field_descriptor),+                    ("player_latitude", playerLatitude__field_descriptor),+                    ("player_longitude", playerLongitude__field_descriptor)])++attackingPokemonIds ::+                    forall msg msg' .+                      Data.ProtoLens.HasField "attackingPokemonIds" msg msg' =>+                      Lens.Family2.Lens msg msg'+                        (Data.ProtoLens.Field "attackingPokemonIds" msg)+                        (Data.ProtoLens.Field "attackingPokemonIds" msg')+attackingPokemonIds+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "attackingPokemonIds")++defendingPokemonId ::+                   forall msg msg' .+                     Data.ProtoLens.HasField "defendingPokemonId" msg msg' =>+                     Lens.Family2.Lens msg msg'+                       (Data.ProtoLens.Field "defendingPokemonId" msg)+                       (Data.ProtoLens.Field "defendingPokemonId" msg')+defendingPokemonId+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "defendingPokemonId")++gymId ::+      forall msg msg' . Data.ProtoLens.HasField "gymId" msg msg' =>+        Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "gymId" msg)+          (Data.ProtoLens.Field "gymId" msg')+gymId+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "gymId")++playerLatitude ::+               forall msg msg' .+                 Data.ProtoLens.HasField "playerLatitude" msg msg' =>+                 Lens.Family2.Lens msg msg'+                   (Data.ProtoLens.Field "playerLatitude" msg)+                   (Data.ProtoLens.Field "playerLatitude" msg')+playerLatitude+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "playerLatitude")++playerLongitude ::+                forall msg msg' .+                  Data.ProtoLens.HasField "playerLongitude" msg msg' =>+                  Lens.Family2.Lens msg msg'+                    (Data.ProtoLens.Field "playerLongitude" msg)+                    (Data.ProtoLens.Field "playerLongitude" msg')+playerLongitude+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "playerLongitude")
+ src/Proto/POGOProtos/Networking/Requests/Messages/UpgradePokemonMessage.hs view
@@ -0,0 +1,57 @@+{- This file was auto-generated from POGOProtos/Networking/Requests/Messages/UpgradePokemonMessage.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Requests.Messages.UpgradePokemonMessage+       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 UpgradePokemonMessage = UpgradePokemonMessage{_UpgradePokemonMessage'pokemonId+                                                   :: Data.Word.Word64}+                           deriving (Prelude.Show, Prelude.Eq)++type instance+     Data.ProtoLens.Field "pokemonId" UpgradePokemonMessage =+     Data.Word.Word64++instance Data.ProtoLens.HasField "pokemonId" UpgradePokemonMessage+         UpgradePokemonMessage where+        field _+          = Lens.Family2.Unchecked.lens _UpgradePokemonMessage'pokemonId+              (\ x__ y__ -> x__{_UpgradePokemonMessage'pokemonId = y__})++instance Data.Default.Class.Default UpgradePokemonMessage where+        def+          = UpgradePokemonMessage{_UpgradePokemonMessage'pokemonId =+                                    Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message UpgradePokemonMessage where+        descriptor+          = let pokemonId__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "pokemon_id"+                      (Data.ProtoLens.Fixed64Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional pokemonId)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, pokemonId__field_descriptor)])+                (Data.Map.fromList [("pokemon_id", pokemonId__field_descriptor)])++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")
+ src/Proto/POGOProtos/Networking/Requests/Messages/UseIncenseMessage.hs view
@@ -0,0 +1,59 @@+{- This file was auto-generated from POGOProtos/Networking/Requests/Messages/UseIncenseMessage.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Requests.Messages.UseIncenseMessage+       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.Inventory.Item.ItemId++data UseIncenseMessage = UseIncenseMessage{_UseIncenseMessage'incenseType+                                           :: Proto.POGOProtos.Inventory.Item.ItemId.ItemId}+                       deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "incenseType" UseIncenseMessage+     = Proto.POGOProtos.Inventory.Item.ItemId.ItemId++instance Data.ProtoLens.HasField "incenseType" UseIncenseMessage+         UseIncenseMessage where+        field _+          = Lens.Family2.Unchecked.lens _UseIncenseMessage'incenseType+              (\ x__ y__ -> x__{_UseIncenseMessage'incenseType = y__})++instance Data.Default.Class.Default UseIncenseMessage where+        def+          = UseIncenseMessage{_UseIncenseMessage'incenseType =+                                Data.Default.Class.def}++instance Data.ProtoLens.Message UseIncenseMessage where+        descriptor+          = let incenseType__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "incense_type"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Inventory.Item.ItemId.ItemId)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional incenseType)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, incenseType__field_descriptor)])+                (Data.Map.fromList+                   [("incense_type", incenseType__field_descriptor)])++incenseType ::+            forall msg msg' . Data.ProtoLens.HasField "incenseType" msg msg' =>+              Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "incenseType" msg)+                (Data.ProtoLens.Field "incenseType" msg')+incenseType+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "incenseType")
+ src/Proto/POGOProtos/Networking/Requests/Messages/UseItemCaptureMessage.hs view
@@ -0,0 +1,117 @@+{- This file was auto-generated from POGOProtos/Networking/Requests/Messages/UseItemCaptureMessage.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Requests.Messages.UseItemCaptureMessage+       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.Inventory.Item.ItemId++data UseItemCaptureMessage = UseItemCaptureMessage{_UseItemCaptureMessage'itemId+                                                   :: Proto.POGOProtos.Inventory.Item.ItemId.ItemId,+                                                   _UseItemCaptureMessage'encounterId ::+                                                   Data.Word.Word64,+                                                   _UseItemCaptureMessage'spawnPointId ::+                                                   Data.Text.Text}+                           deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "itemId" UseItemCaptureMessage =+     Proto.POGOProtos.Inventory.Item.ItemId.ItemId++instance Data.ProtoLens.HasField "itemId" UseItemCaptureMessage+         UseItemCaptureMessage where+        field _+          = Lens.Family2.Unchecked.lens _UseItemCaptureMessage'itemId+              (\ x__ y__ -> x__{_UseItemCaptureMessage'itemId = y__})++type instance+     Data.ProtoLens.Field "encounterId" UseItemCaptureMessage =+     Data.Word.Word64++instance Data.ProtoLens.HasField "encounterId"+         UseItemCaptureMessage UseItemCaptureMessage where+        field _+          = Lens.Family2.Unchecked.lens _UseItemCaptureMessage'encounterId+              (\ x__ y__ -> x__{_UseItemCaptureMessage'encounterId = y__})++type instance+     Data.ProtoLens.Field "spawnPointId" UseItemCaptureMessage =+     Data.Text.Text++instance Data.ProtoLens.HasField "spawnPointId"+         UseItemCaptureMessage UseItemCaptureMessage where+        field _+          = Lens.Family2.Unchecked.lens _UseItemCaptureMessage'spawnPointId+              (\ x__ y__ -> x__{_UseItemCaptureMessage'spawnPointId = y__})++instance Data.Default.Class.Default UseItemCaptureMessage where+        def+          = UseItemCaptureMessage{_UseItemCaptureMessage'itemId =+                                    Data.Default.Class.def,+                                  _UseItemCaptureMessage'encounterId = Data.ProtoLens.fieldDefault,+                                  _UseItemCaptureMessage'spawnPointId = Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message UseItemCaptureMessage where+        descriptor+          = let itemId__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "item_id"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Inventory.Item.ItemId.ItemId)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional itemId)+                encounterId__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "encounter_id"+                      (Data.ProtoLens.Fixed64Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional encounterId)+                spawnPointId__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "spawn_point_id"+                      (Data.ProtoLens.StringField ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional spawnPointId)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, itemId__field_descriptor),+                    (Data.ProtoLens.Tag 2, encounterId__field_descriptor),+                    (Data.ProtoLens.Tag 3, spawnPointId__field_descriptor)])+                (Data.Map.fromList+                   [("item_id", itemId__field_descriptor),+                    ("encounter_id", encounterId__field_descriptor),+                    ("spawn_point_id", spawnPointId__field_descriptor)])++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")++itemId ::+       forall msg msg' . Data.ProtoLens.HasField "itemId" msg msg' =>+         Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "itemId" msg)+           (Data.ProtoLens.Field "itemId" msg')+itemId+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "itemId")++spawnPointId ::+             forall msg msg' .+               Data.ProtoLens.HasField "spawnPointId" msg msg' =>+               Lens.Family2.Lens msg msg'+                 (Data.ProtoLens.Field "spawnPointId" msg)+                 (Data.ProtoLens.Field "spawnPointId" msg')+spawnPointId+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "spawnPointId")
+ src/Proto/POGOProtos/Networking/Requests/Messages/UseItemEggIncubatorMessage.hs view
@@ -0,0 +1,88 @@+{- This file was auto-generated from POGOProtos/Networking/Requests/Messages/UseItemEggIncubatorMessage.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Requests.Messages.UseItemEggIncubatorMessage+       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 UseItemEggIncubatorMessage = UseItemEggIncubatorMessage{_UseItemEggIncubatorMessage'itemId+                                                             :: Data.Text.Text,+                                                             _UseItemEggIncubatorMessage'pokemonId+                                                             :: Data.Word.Word64}+                                deriving (Prelude.Show, Prelude.Eq)++type instance+     Data.ProtoLens.Field "itemId" UseItemEggIncubatorMessage =+     Data.Text.Text++instance Data.ProtoLens.HasField "itemId"+         UseItemEggIncubatorMessage UseItemEggIncubatorMessage where+        field _+          = Lens.Family2.Unchecked.lens _UseItemEggIncubatorMessage'itemId+              (\ x__ y__ -> x__{_UseItemEggIncubatorMessage'itemId = y__})++type instance+     Data.ProtoLens.Field "pokemonId" UseItemEggIncubatorMessage =+     Data.Word.Word64++instance Data.ProtoLens.HasField "pokemonId"+         UseItemEggIncubatorMessage UseItemEggIncubatorMessage where+        field _+          = Lens.Family2.Unchecked.lens _UseItemEggIncubatorMessage'pokemonId+              (\ x__ y__ -> x__{_UseItemEggIncubatorMessage'pokemonId = y__})++instance Data.Default.Class.Default UseItemEggIncubatorMessage+         where+        def+          = UseItemEggIncubatorMessage{_UseItemEggIncubatorMessage'itemId =+                                         Data.ProtoLens.fieldDefault,+                                       _UseItemEggIncubatorMessage'pokemonId =+                                         Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message UseItemEggIncubatorMessage where+        descriptor+          = let itemId__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "item_id"+                      (Data.ProtoLens.StringField ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional itemId)+                pokemonId__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "pokemon_id"+                      (Data.ProtoLens.UInt64Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional pokemonId)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, itemId__field_descriptor),+                    (Data.ProtoLens.Tag 2, pokemonId__field_descriptor)])+                (Data.Map.fromList+                   [("item_id", itemId__field_descriptor),+                    ("pokemon_id", pokemonId__field_descriptor)])++itemId ::+       forall msg msg' . Data.ProtoLens.HasField "itemId" msg msg' =>+         Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "itemId" msg)+           (Data.ProtoLens.Field "itemId" msg')+itemId+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "itemId")++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")
+ src/Proto/POGOProtos/Networking/Requests/Messages/UseItemGymMessage.hs view
@@ -0,0 +1,145 @@+{- This file was auto-generated from POGOProtos/Networking/Requests/Messages/UseItemGymMessage.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Requests.Messages.UseItemGymMessage+       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.Inventory.Item.ItemId++data UseItemGymMessage = UseItemGymMessage{_UseItemGymMessage'itemId+                                           :: Proto.POGOProtos.Inventory.Item.ItemId.ItemId,+                                           _UseItemGymMessage'gymId :: Data.Text.Text,+                                           _UseItemGymMessage'playerLatitude :: Prelude.Double,+                                           _UseItemGymMessage'playerLongitude :: Prelude.Double}+                       deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "itemId" UseItemGymMessage =+     Proto.POGOProtos.Inventory.Item.ItemId.ItemId++instance Data.ProtoLens.HasField "itemId" UseItemGymMessage+         UseItemGymMessage where+        field _+          = Lens.Family2.Unchecked.lens _UseItemGymMessage'itemId+              (\ x__ y__ -> x__{_UseItemGymMessage'itemId = y__})++type instance Data.ProtoLens.Field "gymId" UseItemGymMessage =+     Data.Text.Text++instance Data.ProtoLens.HasField "gymId" UseItemGymMessage+         UseItemGymMessage where+        field _+          = Lens.Family2.Unchecked.lens _UseItemGymMessage'gymId+              (\ x__ y__ -> x__{_UseItemGymMessage'gymId = y__})++type instance+     Data.ProtoLens.Field "playerLatitude" UseItemGymMessage =+     Prelude.Double++instance Data.ProtoLens.HasField "playerLatitude" UseItemGymMessage+         UseItemGymMessage where+        field _+          = Lens.Family2.Unchecked.lens _UseItemGymMessage'playerLatitude+              (\ x__ y__ -> x__{_UseItemGymMessage'playerLatitude = y__})++type instance+     Data.ProtoLens.Field "playerLongitude" UseItemGymMessage =+     Prelude.Double++instance Data.ProtoLens.HasField "playerLongitude"+         UseItemGymMessage UseItemGymMessage where+        field _+          = Lens.Family2.Unchecked.lens _UseItemGymMessage'playerLongitude+              (\ x__ y__ -> x__{_UseItemGymMessage'playerLongitude = y__})++instance Data.Default.Class.Default UseItemGymMessage where+        def+          = UseItemGymMessage{_UseItemGymMessage'itemId =+                                Data.Default.Class.def,+                              _UseItemGymMessage'gymId = Data.ProtoLens.fieldDefault,+                              _UseItemGymMessage'playerLatitude = Data.ProtoLens.fieldDefault,+                              _UseItemGymMessage'playerLongitude = Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message UseItemGymMessage where+        descriptor+          = let itemId__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "item_id"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Inventory.Item.ItemId.ItemId)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional itemId)+                gymId__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "gym_id"+                      (Data.ProtoLens.StringField ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional gymId)+                playerLatitude__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "player_latitude"+                      (Data.ProtoLens.DoubleField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Double)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional playerLatitude)+                playerLongitude__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "player_longitude"+                      (Data.ProtoLens.DoubleField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Double)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional playerLongitude)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, itemId__field_descriptor),+                    (Data.ProtoLens.Tag 2, gymId__field_descriptor),+                    (Data.ProtoLens.Tag 3, playerLatitude__field_descriptor),+                    (Data.ProtoLens.Tag 4, playerLongitude__field_descriptor)])+                (Data.Map.fromList+                   [("item_id", itemId__field_descriptor),+                    ("gym_id", gymId__field_descriptor),+                    ("player_latitude", playerLatitude__field_descriptor),+                    ("player_longitude", playerLongitude__field_descriptor)])++gymId ::+      forall msg msg' . Data.ProtoLens.HasField "gymId" msg msg' =>+        Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "gymId" msg)+          (Data.ProtoLens.Field "gymId" msg')+gymId+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "gymId")++itemId ::+       forall msg msg' . Data.ProtoLens.HasField "itemId" msg msg' =>+         Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "itemId" msg)+           (Data.ProtoLens.Field "itemId" msg')+itemId+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "itemId")++playerLatitude ::+               forall msg msg' .+                 Data.ProtoLens.HasField "playerLatitude" msg msg' =>+                 Lens.Family2.Lens msg msg'+                   (Data.ProtoLens.Field "playerLatitude" msg)+                   (Data.ProtoLens.Field "playerLatitude" msg')+playerLatitude+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "playerLatitude")++playerLongitude ::+                forall msg msg' .+                  Data.ProtoLens.HasField "playerLongitude" msg msg' =>+                  Lens.Family2.Lens msg msg'+                    (Data.ProtoLens.Field "playerLongitude" msg)+                    (Data.ProtoLens.Field "playerLongitude" msg')+playerLongitude+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "playerLongitude")
+ src/Proto/POGOProtos/Networking/Requests/Messages/UseItemPotionMessage.hs view
@@ -0,0 +1,86 @@+{- This file was auto-generated from POGOProtos/Networking/Requests/Messages/UseItemPotionMessage.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Requests.Messages.UseItemPotionMessage+       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.Inventory.Item.ItemId++data UseItemPotionMessage = UseItemPotionMessage{_UseItemPotionMessage'itemId+                                                 :: Proto.POGOProtos.Inventory.Item.ItemId.ItemId,+                                                 _UseItemPotionMessage'pokemonId ::+                                                 Data.Word.Word64}+                          deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "itemId" UseItemPotionMessage =+     Proto.POGOProtos.Inventory.Item.ItemId.ItemId++instance Data.ProtoLens.HasField "itemId" UseItemPotionMessage+         UseItemPotionMessage where+        field _+          = Lens.Family2.Unchecked.lens _UseItemPotionMessage'itemId+              (\ x__ y__ -> x__{_UseItemPotionMessage'itemId = y__})++type instance Data.ProtoLens.Field "pokemonId" UseItemPotionMessage+     = Data.Word.Word64++instance Data.ProtoLens.HasField "pokemonId" UseItemPotionMessage+         UseItemPotionMessage where+        field _+          = Lens.Family2.Unchecked.lens _UseItemPotionMessage'pokemonId+              (\ x__ y__ -> x__{_UseItemPotionMessage'pokemonId = y__})++instance Data.Default.Class.Default UseItemPotionMessage where+        def+          = UseItemPotionMessage{_UseItemPotionMessage'itemId =+                                   Data.Default.Class.def,+                                 _UseItemPotionMessage'pokemonId = Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message UseItemPotionMessage where+        descriptor+          = let itemId__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "item_id"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Inventory.Item.ItemId.ItemId)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional itemId)+                pokemonId__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "pokemon_id"+                      (Data.ProtoLens.Fixed64Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional pokemonId)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, itemId__field_descriptor),+                    (Data.ProtoLens.Tag 2, pokemonId__field_descriptor)])+                (Data.Map.fromList+                   [("item_id", itemId__field_descriptor),+                    ("pokemon_id", pokemonId__field_descriptor)])++itemId ::+       forall msg msg' . Data.ProtoLens.HasField "itemId" msg msg' =>+         Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "itemId" msg)+           (Data.ProtoLens.Field "itemId" msg')+itemId+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "itemId")++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")
+ src/Proto/POGOProtos/Networking/Requests/Messages/UseItemReviveMessage.hs view
@@ -0,0 +1,86 @@+{- This file was auto-generated from POGOProtos/Networking/Requests/Messages/UseItemReviveMessage.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Requests.Messages.UseItemReviveMessage+       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.Inventory.Item.ItemId++data UseItemReviveMessage = UseItemReviveMessage{_UseItemReviveMessage'itemId+                                                 :: Proto.POGOProtos.Inventory.Item.ItemId.ItemId,+                                                 _UseItemReviveMessage'pokemonId ::+                                                 Data.Word.Word64}+                          deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "itemId" UseItemReviveMessage =+     Proto.POGOProtos.Inventory.Item.ItemId.ItemId++instance Data.ProtoLens.HasField "itemId" UseItemReviveMessage+         UseItemReviveMessage where+        field _+          = Lens.Family2.Unchecked.lens _UseItemReviveMessage'itemId+              (\ x__ y__ -> x__{_UseItemReviveMessage'itemId = y__})++type instance Data.ProtoLens.Field "pokemonId" UseItemReviveMessage+     = Data.Word.Word64++instance Data.ProtoLens.HasField "pokemonId" UseItemReviveMessage+         UseItemReviveMessage where+        field _+          = Lens.Family2.Unchecked.lens _UseItemReviveMessage'pokemonId+              (\ x__ y__ -> x__{_UseItemReviveMessage'pokemonId = y__})++instance Data.Default.Class.Default UseItemReviveMessage where+        def+          = UseItemReviveMessage{_UseItemReviveMessage'itemId =+                                   Data.Default.Class.def,+                                 _UseItemReviveMessage'pokemonId = Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message UseItemReviveMessage where+        descriptor+          = let itemId__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "item_id"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Inventory.Item.ItemId.ItemId)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional itemId)+                pokemonId__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "pokemon_id"+                      (Data.ProtoLens.Fixed64Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional pokemonId)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, itemId__field_descriptor),+                    (Data.ProtoLens.Tag 2, pokemonId__field_descriptor)])+                (Data.Map.fromList+                   [("item_id", itemId__field_descriptor),+                    ("pokemon_id", pokemonId__field_descriptor)])++itemId ::+       forall msg msg' . Data.ProtoLens.HasField "itemId" msg msg' =>+         Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "itemId" msg)+           (Data.ProtoLens.Field "itemId" msg')+itemId+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "itemId")++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")
+ src/Proto/POGOProtos/Networking/Requests/Messages/UseItemXpBoostMessage.hs view
@@ -0,0 +1,58 @@+{- This file was auto-generated from POGOProtos/Networking/Requests/Messages/UseItemXpBoostMessage.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Requests.Messages.UseItemXpBoostMessage+       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.Inventory.Item.ItemId++data UseItemXpBoostMessage = UseItemXpBoostMessage{_UseItemXpBoostMessage'itemId+                                                   :: Proto.POGOProtos.Inventory.Item.ItemId.ItemId}+                           deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "itemId" UseItemXpBoostMessage =+     Proto.POGOProtos.Inventory.Item.ItemId.ItemId++instance Data.ProtoLens.HasField "itemId" UseItemXpBoostMessage+         UseItemXpBoostMessage where+        field _+          = Lens.Family2.Unchecked.lens _UseItemXpBoostMessage'itemId+              (\ x__ y__ -> x__{_UseItemXpBoostMessage'itemId = y__})++instance Data.Default.Class.Default UseItemXpBoostMessage where+        def+          = UseItemXpBoostMessage{_UseItemXpBoostMessage'itemId =+                                    Data.Default.Class.def}++instance Data.ProtoLens.Message UseItemXpBoostMessage where+        descriptor+          = let itemId__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "item_id"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Inventory.Item.ItemId.ItemId)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional itemId)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, itemId__field_descriptor)])+                (Data.Map.fromList [("item_id", itemId__field_descriptor)])++itemId ::+       forall msg msg' . Data.ProtoLens.HasField "itemId" msg msg' =>+         Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "itemId" msg)+           (Data.ProtoLens.Field "itemId" msg')+itemId+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "itemId")
+ src/Proto/POGOProtos/Networking/Requests/Request.hs view
@@ -0,0 +1,86 @@+{- This file was auto-generated from POGOProtos/Networking/Requests/Request.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Requests.Request 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.Networking.Requests.RequestType++data Request = Request{_Request'requestType ::+                       Proto.POGOProtos.Networking.Requests.RequestType.RequestType,+                       _Request'requestMessage :: Data.ByteString.ByteString}+             deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "requestType" Request =+     Proto.POGOProtos.Networking.Requests.RequestType.RequestType++instance Data.ProtoLens.HasField "requestType" Request Request+         where+        field _+          = Lens.Family2.Unchecked.lens _Request'requestType+              (\ x__ y__ -> x__{_Request'requestType = y__})++type instance Data.ProtoLens.Field "requestMessage" Request =+     Data.ByteString.ByteString++instance Data.ProtoLens.HasField "requestMessage" Request Request+         where+        field _+          = Lens.Family2.Unchecked.lens _Request'requestMessage+              (\ x__ y__ -> x__{_Request'requestMessage = y__})++instance Data.Default.Class.Default Request where+        def+          = Request{_Request'requestType = Data.Default.Class.def,+                    _Request'requestMessage = Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message Request where+        descriptor+          = let requestType__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "request_type"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Networking.Requests.RequestType.RequestType)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional requestType)+                requestMessage__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "request_message"+                      (Data.ProtoLens.BytesField ::+                         Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional requestMessage)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, requestType__field_descriptor),+                    (Data.ProtoLens.Tag 2, requestMessage__field_descriptor)])+                (Data.Map.fromList+                   [("request_type", requestType__field_descriptor),+                    ("request_message", requestMessage__field_descriptor)])++requestMessage ::+               forall msg msg' .+                 Data.ProtoLens.HasField "requestMessage" msg msg' =>+                 Lens.Family2.Lens msg msg'+                   (Data.ProtoLens.Field "requestMessage" msg)+                   (Data.ProtoLens.Field "requestMessage" msg')+requestMessage+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "requestMessage")++requestType ::+            forall msg msg' . Data.ProtoLens.HasField "requestType" msg msg' =>+              Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "requestType" msg)+                (Data.ProtoLens.Field "requestType" msg')+requestType+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "requestType")
+ src/Proto/POGOProtos/Networking/Requests/RequestType.hs view
@@ -0,0 +1,559 @@+{- This file was auto-generated from POGOProtos/Networking/Requests/RequestType.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Requests.RequestType 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 RequestType = METHOD_UNSET+                 | PLAYER_UPDATE+                 | GET_PLAYER+                 | GET_INVENTORY+                 | DOWNLOAD_SETTINGS+                 | DOWNLOAD_ITEM_TEMPLATES+                 | DOWNLOAD_REMOTE_CONFIG_VERSION+                 | FORT_SEARCH+                 | ENCOUNTER+                 | CATCH_POKEMON+                 | FORT_DETAILS+                 | ITEM_USE+                 | GET_MAP_OBJECTS+                 | FORT_DEPLOY_POKEMON+                 | FORT_RECALL_POKEMON+                 | RELEASE_POKEMON+                 | USE_ITEM_POTION+                 | USE_ITEM_CAPTURE+                 | USE_ITEM_FLEE+                 | USE_ITEM_REVIVE+                 | TRADE_SEARCH+                 | TRADE_OFFER+                 | TRADE_RESPONSE+                 | TRADE_RESULT+                 | GET_PLAYER_PROFILE+                 | GET_ITEM_PACK+                 | BUY_ITEM_PACK+                 | BUY_GEM_PACK+                 | EVOLVE_POKEMON+                 | GET_HATCHED_EGGS+                 | ENCOUNTER_TUTORIAL_COMPLETE+                 | LEVEL_UP_REWARDS+                 | CHECK_AWARDED_BADGES+                 | USE_ITEM_GYM+                 | GET_GYM_DETAILS+                 | START_GYM_BATTLE+                 | ATTACK_GYM+                 | RECYCLE_INVENTORY_ITEM+                 | COLLECT_DAILY_BONUS+                 | USE_ITEM_XP_BOOST+                 | USE_ITEM_EGG_INCUBATOR+                 | USE_INCENSE+                 | GET_INCENSE_POKEMON+                 | INCENSE_ENCOUNTER+                 | ADD_FORT_MODIFIER+                 | DISK_ENCOUNTER+                 | COLLECT_DAILY_DEFENDER_BONUS+                 | UPGRADE_POKEMON+                 | SET_FAVORITE_POKEMON+                 | NICKNAME_POKEMON+                 | EQUIP_BADGE+                 | SET_CONTACT_SETTINGS+                 | GET_ASSET_DIGEST+                 | GET_DOWNLOAD_URLS+                 | GET_SUGGESTED_CODENAMES+                 | CHECK_CODENAME_AVAILABLE+                 | CLAIM_CODENAME+                 | SET_AVATAR+                 | SET_PLAYER_TEAM+                 | MARK_TUTORIAL_COMPLETE+                 | LOAD_SPAWN_POINTS+                 | ECHO+                 | DEBUG_UPDATE_INVENTORY+                 | DEBUG_DELETE_PLAYER+                 | SFIDA_REGISTRATION+                 | SFIDA_ACTION_LOG+                 | SFIDA_CERTIFICATION+                 | SFIDA_UPDATE+                 | SFIDA_ACTION+                 | SFIDA_DOWSER+                 | SFIDA_CAPTURE+                 deriving (Prelude.Show, Prelude.Eq)++instance Data.Default.Class.Default RequestType where+        def = METHOD_UNSET++instance Data.ProtoLens.FieldDefault RequestType where+        fieldDefault = METHOD_UNSET++instance Data.ProtoLens.MessageEnum RequestType where+        maybeToEnum 0 = Prelude.Just METHOD_UNSET+        maybeToEnum 1 = Prelude.Just PLAYER_UPDATE+        maybeToEnum 2 = Prelude.Just GET_PLAYER+        maybeToEnum 4 = Prelude.Just GET_INVENTORY+        maybeToEnum 5 = Prelude.Just DOWNLOAD_SETTINGS+        maybeToEnum 6 = Prelude.Just DOWNLOAD_ITEM_TEMPLATES+        maybeToEnum 7 = Prelude.Just DOWNLOAD_REMOTE_CONFIG_VERSION+        maybeToEnum 101 = Prelude.Just FORT_SEARCH+        maybeToEnum 102 = Prelude.Just ENCOUNTER+        maybeToEnum 103 = Prelude.Just CATCH_POKEMON+        maybeToEnum 104 = Prelude.Just FORT_DETAILS+        maybeToEnum 105 = Prelude.Just ITEM_USE+        maybeToEnum 106 = Prelude.Just GET_MAP_OBJECTS+        maybeToEnum 110 = Prelude.Just FORT_DEPLOY_POKEMON+        maybeToEnum 111 = Prelude.Just FORT_RECALL_POKEMON+        maybeToEnum 112 = Prelude.Just RELEASE_POKEMON+        maybeToEnum 113 = Prelude.Just USE_ITEM_POTION+        maybeToEnum 114 = Prelude.Just USE_ITEM_CAPTURE+        maybeToEnum 115 = Prelude.Just USE_ITEM_FLEE+        maybeToEnum 116 = Prelude.Just USE_ITEM_REVIVE+        maybeToEnum 117 = Prelude.Just TRADE_SEARCH+        maybeToEnum 118 = Prelude.Just TRADE_OFFER+        maybeToEnum 119 = Prelude.Just TRADE_RESPONSE+        maybeToEnum 120 = Prelude.Just TRADE_RESULT+        maybeToEnum 121 = Prelude.Just GET_PLAYER_PROFILE+        maybeToEnum 122 = Prelude.Just GET_ITEM_PACK+        maybeToEnum 123 = Prelude.Just BUY_ITEM_PACK+        maybeToEnum 124 = Prelude.Just BUY_GEM_PACK+        maybeToEnum 125 = Prelude.Just EVOLVE_POKEMON+        maybeToEnum 126 = Prelude.Just GET_HATCHED_EGGS+        maybeToEnum 127 = Prelude.Just ENCOUNTER_TUTORIAL_COMPLETE+        maybeToEnum 128 = Prelude.Just LEVEL_UP_REWARDS+        maybeToEnum 129 = Prelude.Just CHECK_AWARDED_BADGES+        maybeToEnum 133 = Prelude.Just USE_ITEM_GYM+        maybeToEnum 134 = Prelude.Just GET_GYM_DETAILS+        maybeToEnum 135 = Prelude.Just START_GYM_BATTLE+        maybeToEnum 136 = Prelude.Just ATTACK_GYM+        maybeToEnum 137 = Prelude.Just RECYCLE_INVENTORY_ITEM+        maybeToEnum 138 = Prelude.Just COLLECT_DAILY_BONUS+        maybeToEnum 139 = Prelude.Just USE_ITEM_XP_BOOST+        maybeToEnum 140 = Prelude.Just USE_ITEM_EGG_INCUBATOR+        maybeToEnum 141 = Prelude.Just USE_INCENSE+        maybeToEnum 142 = Prelude.Just GET_INCENSE_POKEMON+        maybeToEnum 143 = Prelude.Just INCENSE_ENCOUNTER+        maybeToEnum 144 = Prelude.Just ADD_FORT_MODIFIER+        maybeToEnum 145 = Prelude.Just DISK_ENCOUNTER+        maybeToEnum 146 = Prelude.Just COLLECT_DAILY_DEFENDER_BONUS+        maybeToEnum 147 = Prelude.Just UPGRADE_POKEMON+        maybeToEnum 148 = Prelude.Just SET_FAVORITE_POKEMON+        maybeToEnum 149 = Prelude.Just NICKNAME_POKEMON+        maybeToEnum 150 = Prelude.Just EQUIP_BADGE+        maybeToEnum 151 = Prelude.Just SET_CONTACT_SETTINGS+        maybeToEnum 300 = Prelude.Just GET_ASSET_DIGEST+        maybeToEnum 301 = Prelude.Just GET_DOWNLOAD_URLS+        maybeToEnum 401 = Prelude.Just GET_SUGGESTED_CODENAMES+        maybeToEnum 402 = Prelude.Just CHECK_CODENAME_AVAILABLE+        maybeToEnum 403 = Prelude.Just CLAIM_CODENAME+        maybeToEnum 404 = Prelude.Just SET_AVATAR+        maybeToEnum 405 = Prelude.Just SET_PLAYER_TEAM+        maybeToEnum 406 = Prelude.Just MARK_TUTORIAL_COMPLETE+        maybeToEnum 500 = Prelude.Just LOAD_SPAWN_POINTS+        maybeToEnum 666 = Prelude.Just ECHO+        maybeToEnum 700 = Prelude.Just DEBUG_UPDATE_INVENTORY+        maybeToEnum 701 = Prelude.Just DEBUG_DELETE_PLAYER+        maybeToEnum 800 = Prelude.Just SFIDA_REGISTRATION+        maybeToEnum 801 = Prelude.Just SFIDA_ACTION_LOG+        maybeToEnum 802 = Prelude.Just SFIDA_CERTIFICATION+        maybeToEnum 803 = Prelude.Just SFIDA_UPDATE+        maybeToEnum 804 = Prelude.Just SFIDA_ACTION+        maybeToEnum 805 = Prelude.Just SFIDA_DOWSER+        maybeToEnum 806 = Prelude.Just SFIDA_CAPTURE+        maybeToEnum _ = Prelude.Nothing+        showEnum METHOD_UNSET = "METHOD_UNSET"+        showEnum PLAYER_UPDATE = "PLAYER_UPDATE"+        showEnum GET_PLAYER = "GET_PLAYER"+        showEnum GET_INVENTORY = "GET_INVENTORY"+        showEnum DOWNLOAD_SETTINGS = "DOWNLOAD_SETTINGS"+        showEnum DOWNLOAD_ITEM_TEMPLATES = "DOWNLOAD_ITEM_TEMPLATES"+        showEnum DOWNLOAD_REMOTE_CONFIG_VERSION+          = "DOWNLOAD_REMOTE_CONFIG_VERSION"+        showEnum FORT_SEARCH = "FORT_SEARCH"+        showEnum ENCOUNTER = "ENCOUNTER"+        showEnum CATCH_POKEMON = "CATCH_POKEMON"+        showEnum FORT_DETAILS = "FORT_DETAILS"+        showEnum ITEM_USE = "ITEM_USE"+        showEnum GET_MAP_OBJECTS = "GET_MAP_OBJECTS"+        showEnum FORT_DEPLOY_POKEMON = "FORT_DEPLOY_POKEMON"+        showEnum FORT_RECALL_POKEMON = "FORT_RECALL_POKEMON"+        showEnum RELEASE_POKEMON = "RELEASE_POKEMON"+        showEnum USE_ITEM_POTION = "USE_ITEM_POTION"+        showEnum USE_ITEM_CAPTURE = "USE_ITEM_CAPTURE"+        showEnum USE_ITEM_FLEE = "USE_ITEM_FLEE"+        showEnum USE_ITEM_REVIVE = "USE_ITEM_REVIVE"+        showEnum TRADE_SEARCH = "TRADE_SEARCH"+        showEnum TRADE_OFFER = "TRADE_OFFER"+        showEnum TRADE_RESPONSE = "TRADE_RESPONSE"+        showEnum TRADE_RESULT = "TRADE_RESULT"+        showEnum GET_PLAYER_PROFILE = "GET_PLAYER_PROFILE"+        showEnum GET_ITEM_PACK = "GET_ITEM_PACK"+        showEnum BUY_ITEM_PACK = "BUY_ITEM_PACK"+        showEnum BUY_GEM_PACK = "BUY_GEM_PACK"+        showEnum EVOLVE_POKEMON = "EVOLVE_POKEMON"+        showEnum GET_HATCHED_EGGS = "GET_HATCHED_EGGS"+        showEnum ENCOUNTER_TUTORIAL_COMPLETE+          = "ENCOUNTER_TUTORIAL_COMPLETE"+        showEnum LEVEL_UP_REWARDS = "LEVEL_UP_REWARDS"+        showEnum CHECK_AWARDED_BADGES = "CHECK_AWARDED_BADGES"+        showEnum USE_ITEM_GYM = "USE_ITEM_GYM"+        showEnum GET_GYM_DETAILS = "GET_GYM_DETAILS"+        showEnum START_GYM_BATTLE = "START_GYM_BATTLE"+        showEnum ATTACK_GYM = "ATTACK_GYM"+        showEnum RECYCLE_INVENTORY_ITEM = "RECYCLE_INVENTORY_ITEM"+        showEnum COLLECT_DAILY_BONUS = "COLLECT_DAILY_BONUS"+        showEnum USE_ITEM_XP_BOOST = "USE_ITEM_XP_BOOST"+        showEnum USE_ITEM_EGG_INCUBATOR = "USE_ITEM_EGG_INCUBATOR"+        showEnum USE_INCENSE = "USE_INCENSE"+        showEnum GET_INCENSE_POKEMON = "GET_INCENSE_POKEMON"+        showEnum INCENSE_ENCOUNTER = "INCENSE_ENCOUNTER"+        showEnum ADD_FORT_MODIFIER = "ADD_FORT_MODIFIER"+        showEnum DISK_ENCOUNTER = "DISK_ENCOUNTER"+        showEnum COLLECT_DAILY_DEFENDER_BONUS+          = "COLLECT_DAILY_DEFENDER_BONUS"+        showEnum UPGRADE_POKEMON = "UPGRADE_POKEMON"+        showEnum SET_FAVORITE_POKEMON = "SET_FAVORITE_POKEMON"+        showEnum NICKNAME_POKEMON = "NICKNAME_POKEMON"+        showEnum EQUIP_BADGE = "EQUIP_BADGE"+        showEnum SET_CONTACT_SETTINGS = "SET_CONTACT_SETTINGS"+        showEnum GET_ASSET_DIGEST = "GET_ASSET_DIGEST"+        showEnum GET_DOWNLOAD_URLS = "GET_DOWNLOAD_URLS"+        showEnum GET_SUGGESTED_CODENAMES = "GET_SUGGESTED_CODENAMES"+        showEnum CHECK_CODENAME_AVAILABLE = "CHECK_CODENAME_AVAILABLE"+        showEnum CLAIM_CODENAME = "CLAIM_CODENAME"+        showEnum SET_AVATAR = "SET_AVATAR"+        showEnum SET_PLAYER_TEAM = "SET_PLAYER_TEAM"+        showEnum MARK_TUTORIAL_COMPLETE = "MARK_TUTORIAL_COMPLETE"+        showEnum LOAD_SPAWN_POINTS = "LOAD_SPAWN_POINTS"+        showEnum ECHO = "ECHO"+        showEnum DEBUG_UPDATE_INVENTORY = "DEBUG_UPDATE_INVENTORY"+        showEnum DEBUG_DELETE_PLAYER = "DEBUG_DELETE_PLAYER"+        showEnum SFIDA_REGISTRATION = "SFIDA_REGISTRATION"+        showEnum SFIDA_ACTION_LOG = "SFIDA_ACTION_LOG"+        showEnum SFIDA_CERTIFICATION = "SFIDA_CERTIFICATION"+        showEnum SFIDA_UPDATE = "SFIDA_UPDATE"+        showEnum SFIDA_ACTION = "SFIDA_ACTION"+        showEnum SFIDA_DOWSER = "SFIDA_DOWSER"+        showEnum SFIDA_CAPTURE = "SFIDA_CAPTURE"+        readEnum "METHOD_UNSET" = Prelude.Just METHOD_UNSET+        readEnum "PLAYER_UPDATE" = Prelude.Just PLAYER_UPDATE+        readEnum "GET_PLAYER" = Prelude.Just GET_PLAYER+        readEnum "GET_INVENTORY" = Prelude.Just GET_INVENTORY+        readEnum "DOWNLOAD_SETTINGS" = Prelude.Just DOWNLOAD_SETTINGS+        readEnum "DOWNLOAD_ITEM_TEMPLATES"+          = Prelude.Just DOWNLOAD_ITEM_TEMPLATES+        readEnum "DOWNLOAD_REMOTE_CONFIG_VERSION"+          = Prelude.Just DOWNLOAD_REMOTE_CONFIG_VERSION+        readEnum "FORT_SEARCH" = Prelude.Just FORT_SEARCH+        readEnum "ENCOUNTER" = Prelude.Just ENCOUNTER+        readEnum "CATCH_POKEMON" = Prelude.Just CATCH_POKEMON+        readEnum "FORT_DETAILS" = Prelude.Just FORT_DETAILS+        readEnum "ITEM_USE" = Prelude.Just ITEM_USE+        readEnum "GET_MAP_OBJECTS" = Prelude.Just GET_MAP_OBJECTS+        readEnum "FORT_DEPLOY_POKEMON" = Prelude.Just FORT_DEPLOY_POKEMON+        readEnum "FORT_RECALL_POKEMON" = Prelude.Just FORT_RECALL_POKEMON+        readEnum "RELEASE_POKEMON" = Prelude.Just RELEASE_POKEMON+        readEnum "USE_ITEM_POTION" = Prelude.Just USE_ITEM_POTION+        readEnum "USE_ITEM_CAPTURE" = Prelude.Just USE_ITEM_CAPTURE+        readEnum "USE_ITEM_FLEE" = Prelude.Just USE_ITEM_FLEE+        readEnum "USE_ITEM_REVIVE" = Prelude.Just USE_ITEM_REVIVE+        readEnum "TRADE_SEARCH" = Prelude.Just TRADE_SEARCH+        readEnum "TRADE_OFFER" = Prelude.Just TRADE_OFFER+        readEnum "TRADE_RESPONSE" = Prelude.Just TRADE_RESPONSE+        readEnum "TRADE_RESULT" = Prelude.Just TRADE_RESULT+        readEnum "GET_PLAYER_PROFILE" = Prelude.Just GET_PLAYER_PROFILE+        readEnum "GET_ITEM_PACK" = Prelude.Just GET_ITEM_PACK+        readEnum "BUY_ITEM_PACK" = Prelude.Just BUY_ITEM_PACK+        readEnum "BUY_GEM_PACK" = Prelude.Just BUY_GEM_PACK+        readEnum "EVOLVE_POKEMON" = Prelude.Just EVOLVE_POKEMON+        readEnum "GET_HATCHED_EGGS" = Prelude.Just GET_HATCHED_EGGS+        readEnum "ENCOUNTER_TUTORIAL_COMPLETE"+          = Prelude.Just ENCOUNTER_TUTORIAL_COMPLETE+        readEnum "LEVEL_UP_REWARDS" = Prelude.Just LEVEL_UP_REWARDS+        readEnum "CHECK_AWARDED_BADGES" = Prelude.Just CHECK_AWARDED_BADGES+        readEnum "USE_ITEM_GYM" = Prelude.Just USE_ITEM_GYM+        readEnum "GET_GYM_DETAILS" = Prelude.Just GET_GYM_DETAILS+        readEnum "START_GYM_BATTLE" = Prelude.Just START_GYM_BATTLE+        readEnum "ATTACK_GYM" = Prelude.Just ATTACK_GYM+        readEnum "RECYCLE_INVENTORY_ITEM"+          = Prelude.Just RECYCLE_INVENTORY_ITEM+        readEnum "COLLECT_DAILY_BONUS" = Prelude.Just COLLECT_DAILY_BONUS+        readEnum "USE_ITEM_XP_BOOST" = Prelude.Just USE_ITEM_XP_BOOST+        readEnum "USE_ITEM_EGG_INCUBATOR"+          = Prelude.Just USE_ITEM_EGG_INCUBATOR+        readEnum "USE_INCENSE" = Prelude.Just USE_INCENSE+        readEnum "GET_INCENSE_POKEMON" = Prelude.Just GET_INCENSE_POKEMON+        readEnum "INCENSE_ENCOUNTER" = Prelude.Just INCENSE_ENCOUNTER+        readEnum "ADD_FORT_MODIFIER" = Prelude.Just ADD_FORT_MODIFIER+        readEnum "DISK_ENCOUNTER" = Prelude.Just DISK_ENCOUNTER+        readEnum "COLLECT_DAILY_DEFENDER_BONUS"+          = Prelude.Just COLLECT_DAILY_DEFENDER_BONUS+        readEnum "UPGRADE_POKEMON" = Prelude.Just UPGRADE_POKEMON+        readEnum "SET_FAVORITE_POKEMON" = Prelude.Just SET_FAVORITE_POKEMON+        readEnum "NICKNAME_POKEMON" = Prelude.Just NICKNAME_POKEMON+        readEnum "EQUIP_BADGE" = Prelude.Just EQUIP_BADGE+        readEnum "SET_CONTACT_SETTINGS" = Prelude.Just SET_CONTACT_SETTINGS+        readEnum "GET_ASSET_DIGEST" = Prelude.Just GET_ASSET_DIGEST+        readEnum "GET_DOWNLOAD_URLS" = Prelude.Just GET_DOWNLOAD_URLS+        readEnum "GET_SUGGESTED_CODENAMES"+          = Prelude.Just GET_SUGGESTED_CODENAMES+        readEnum "CHECK_CODENAME_AVAILABLE"+          = Prelude.Just CHECK_CODENAME_AVAILABLE+        readEnum "CLAIM_CODENAME" = Prelude.Just CLAIM_CODENAME+        readEnum "SET_AVATAR" = Prelude.Just SET_AVATAR+        readEnum "SET_PLAYER_TEAM" = Prelude.Just SET_PLAYER_TEAM+        readEnum "MARK_TUTORIAL_COMPLETE"+          = Prelude.Just MARK_TUTORIAL_COMPLETE+        readEnum "LOAD_SPAWN_POINTS" = Prelude.Just LOAD_SPAWN_POINTS+        readEnum "ECHO" = Prelude.Just ECHO+        readEnum "DEBUG_UPDATE_INVENTORY"+          = Prelude.Just DEBUG_UPDATE_INVENTORY+        readEnum "DEBUG_DELETE_PLAYER" = Prelude.Just DEBUG_DELETE_PLAYER+        readEnum "SFIDA_REGISTRATION" = Prelude.Just SFIDA_REGISTRATION+        readEnum "SFIDA_ACTION_LOG" = Prelude.Just SFIDA_ACTION_LOG+        readEnum "SFIDA_CERTIFICATION" = Prelude.Just SFIDA_CERTIFICATION+        readEnum "SFIDA_UPDATE" = Prelude.Just SFIDA_UPDATE+        readEnum "SFIDA_ACTION" = Prelude.Just SFIDA_ACTION+        readEnum "SFIDA_DOWSER" = Prelude.Just SFIDA_DOWSER+        readEnum "SFIDA_CAPTURE" = Prelude.Just SFIDA_CAPTURE+        readEnum _ = Prelude.Nothing++instance Prelude.Enum RequestType where+        toEnum k__+          = Prelude.maybe+              (Prelude.error+                 ((Prelude.++) "toEnum: unknown value for enum RequestType: "+                    (Prelude.show k__)))+              Prelude.id+              (Data.ProtoLens.maybeToEnum k__)+        fromEnum METHOD_UNSET = 0+        fromEnum PLAYER_UPDATE = 1+        fromEnum GET_PLAYER = 2+        fromEnum GET_INVENTORY = 4+        fromEnum DOWNLOAD_SETTINGS = 5+        fromEnum DOWNLOAD_ITEM_TEMPLATES = 6+        fromEnum DOWNLOAD_REMOTE_CONFIG_VERSION = 7+        fromEnum FORT_SEARCH = 101+        fromEnum ENCOUNTER = 102+        fromEnum CATCH_POKEMON = 103+        fromEnum FORT_DETAILS = 104+        fromEnum ITEM_USE = 105+        fromEnum GET_MAP_OBJECTS = 106+        fromEnum FORT_DEPLOY_POKEMON = 110+        fromEnum FORT_RECALL_POKEMON = 111+        fromEnum RELEASE_POKEMON = 112+        fromEnum USE_ITEM_POTION = 113+        fromEnum USE_ITEM_CAPTURE = 114+        fromEnum USE_ITEM_FLEE = 115+        fromEnum USE_ITEM_REVIVE = 116+        fromEnum TRADE_SEARCH = 117+        fromEnum TRADE_OFFER = 118+        fromEnum TRADE_RESPONSE = 119+        fromEnum TRADE_RESULT = 120+        fromEnum GET_PLAYER_PROFILE = 121+        fromEnum GET_ITEM_PACK = 122+        fromEnum BUY_ITEM_PACK = 123+        fromEnum BUY_GEM_PACK = 124+        fromEnum EVOLVE_POKEMON = 125+        fromEnum GET_HATCHED_EGGS = 126+        fromEnum ENCOUNTER_TUTORIAL_COMPLETE = 127+        fromEnum LEVEL_UP_REWARDS = 128+        fromEnum CHECK_AWARDED_BADGES = 129+        fromEnum USE_ITEM_GYM = 133+        fromEnum GET_GYM_DETAILS = 134+        fromEnum START_GYM_BATTLE = 135+        fromEnum ATTACK_GYM = 136+        fromEnum RECYCLE_INVENTORY_ITEM = 137+        fromEnum COLLECT_DAILY_BONUS = 138+        fromEnum USE_ITEM_XP_BOOST = 139+        fromEnum USE_ITEM_EGG_INCUBATOR = 140+        fromEnum USE_INCENSE = 141+        fromEnum GET_INCENSE_POKEMON = 142+        fromEnum INCENSE_ENCOUNTER = 143+        fromEnum ADD_FORT_MODIFIER = 144+        fromEnum DISK_ENCOUNTER = 145+        fromEnum COLLECT_DAILY_DEFENDER_BONUS = 146+        fromEnum UPGRADE_POKEMON = 147+        fromEnum SET_FAVORITE_POKEMON = 148+        fromEnum NICKNAME_POKEMON = 149+        fromEnum EQUIP_BADGE = 150+        fromEnum SET_CONTACT_SETTINGS = 151+        fromEnum GET_ASSET_DIGEST = 300+        fromEnum GET_DOWNLOAD_URLS = 301+        fromEnum GET_SUGGESTED_CODENAMES = 401+        fromEnum CHECK_CODENAME_AVAILABLE = 402+        fromEnum CLAIM_CODENAME = 403+        fromEnum SET_AVATAR = 404+        fromEnum SET_PLAYER_TEAM = 405+        fromEnum MARK_TUTORIAL_COMPLETE = 406+        fromEnum LOAD_SPAWN_POINTS = 500+        fromEnum ECHO = 666+        fromEnum DEBUG_UPDATE_INVENTORY = 700+        fromEnum DEBUG_DELETE_PLAYER = 701+        fromEnum SFIDA_REGISTRATION = 800+        fromEnum SFIDA_ACTION_LOG = 801+        fromEnum SFIDA_CERTIFICATION = 802+        fromEnum SFIDA_UPDATE = 803+        fromEnum SFIDA_ACTION = 804+        fromEnum SFIDA_DOWSER = 805+        fromEnum SFIDA_CAPTURE = 806+        succ SFIDA_CAPTURE+          = Prelude.error+              "Ident \"RequestType\".Ident \"succ\": bad argument Ident \"SFIDA_CAPTURE\". This value would be out of bounds."+        succ METHOD_UNSET = PLAYER_UPDATE+        succ PLAYER_UPDATE = GET_PLAYER+        succ GET_PLAYER = GET_INVENTORY+        succ GET_INVENTORY = DOWNLOAD_SETTINGS+        succ DOWNLOAD_SETTINGS = DOWNLOAD_ITEM_TEMPLATES+        succ DOWNLOAD_ITEM_TEMPLATES = DOWNLOAD_REMOTE_CONFIG_VERSION+        succ DOWNLOAD_REMOTE_CONFIG_VERSION = FORT_SEARCH+        succ FORT_SEARCH = ENCOUNTER+        succ ENCOUNTER = CATCH_POKEMON+        succ CATCH_POKEMON = FORT_DETAILS+        succ FORT_DETAILS = ITEM_USE+        succ ITEM_USE = GET_MAP_OBJECTS+        succ GET_MAP_OBJECTS = FORT_DEPLOY_POKEMON+        succ FORT_DEPLOY_POKEMON = FORT_RECALL_POKEMON+        succ FORT_RECALL_POKEMON = RELEASE_POKEMON+        succ RELEASE_POKEMON = USE_ITEM_POTION+        succ USE_ITEM_POTION = USE_ITEM_CAPTURE+        succ USE_ITEM_CAPTURE = USE_ITEM_FLEE+        succ USE_ITEM_FLEE = USE_ITEM_REVIVE+        succ USE_ITEM_REVIVE = TRADE_SEARCH+        succ TRADE_SEARCH = TRADE_OFFER+        succ TRADE_OFFER = TRADE_RESPONSE+        succ TRADE_RESPONSE = TRADE_RESULT+        succ TRADE_RESULT = GET_PLAYER_PROFILE+        succ GET_PLAYER_PROFILE = GET_ITEM_PACK+        succ GET_ITEM_PACK = BUY_ITEM_PACK+        succ BUY_ITEM_PACK = BUY_GEM_PACK+        succ BUY_GEM_PACK = EVOLVE_POKEMON+        succ EVOLVE_POKEMON = GET_HATCHED_EGGS+        succ GET_HATCHED_EGGS = ENCOUNTER_TUTORIAL_COMPLETE+        succ ENCOUNTER_TUTORIAL_COMPLETE = LEVEL_UP_REWARDS+        succ LEVEL_UP_REWARDS = CHECK_AWARDED_BADGES+        succ CHECK_AWARDED_BADGES = USE_ITEM_GYM+        succ USE_ITEM_GYM = GET_GYM_DETAILS+        succ GET_GYM_DETAILS = START_GYM_BATTLE+        succ START_GYM_BATTLE = ATTACK_GYM+        succ ATTACK_GYM = RECYCLE_INVENTORY_ITEM+        succ RECYCLE_INVENTORY_ITEM = COLLECT_DAILY_BONUS+        succ COLLECT_DAILY_BONUS = USE_ITEM_XP_BOOST+        succ USE_ITEM_XP_BOOST = USE_ITEM_EGG_INCUBATOR+        succ USE_ITEM_EGG_INCUBATOR = USE_INCENSE+        succ USE_INCENSE = GET_INCENSE_POKEMON+        succ GET_INCENSE_POKEMON = INCENSE_ENCOUNTER+        succ INCENSE_ENCOUNTER = ADD_FORT_MODIFIER+        succ ADD_FORT_MODIFIER = DISK_ENCOUNTER+        succ DISK_ENCOUNTER = COLLECT_DAILY_DEFENDER_BONUS+        succ COLLECT_DAILY_DEFENDER_BONUS = UPGRADE_POKEMON+        succ UPGRADE_POKEMON = SET_FAVORITE_POKEMON+        succ SET_FAVORITE_POKEMON = NICKNAME_POKEMON+        succ NICKNAME_POKEMON = EQUIP_BADGE+        succ EQUIP_BADGE = SET_CONTACT_SETTINGS+        succ SET_CONTACT_SETTINGS = GET_ASSET_DIGEST+        succ GET_ASSET_DIGEST = GET_DOWNLOAD_URLS+        succ GET_DOWNLOAD_URLS = GET_SUGGESTED_CODENAMES+        succ GET_SUGGESTED_CODENAMES = CHECK_CODENAME_AVAILABLE+        succ CHECK_CODENAME_AVAILABLE = CLAIM_CODENAME+        succ CLAIM_CODENAME = SET_AVATAR+        succ SET_AVATAR = SET_PLAYER_TEAM+        succ SET_PLAYER_TEAM = MARK_TUTORIAL_COMPLETE+        succ MARK_TUTORIAL_COMPLETE = LOAD_SPAWN_POINTS+        succ LOAD_SPAWN_POINTS = ECHO+        succ ECHO = DEBUG_UPDATE_INVENTORY+        succ DEBUG_UPDATE_INVENTORY = DEBUG_DELETE_PLAYER+        succ DEBUG_DELETE_PLAYER = SFIDA_REGISTRATION+        succ SFIDA_REGISTRATION = SFIDA_ACTION_LOG+        succ SFIDA_ACTION_LOG = SFIDA_CERTIFICATION+        succ SFIDA_CERTIFICATION = SFIDA_UPDATE+        succ SFIDA_UPDATE = SFIDA_ACTION+        succ SFIDA_ACTION = SFIDA_DOWSER+        succ SFIDA_DOWSER = SFIDA_CAPTURE+        pred METHOD_UNSET+          = Prelude.error+              "Ident \"RequestType\".Ident \"pred\": bad argument Ident \"METHOD_UNSET\". This value would be out of bounds."+        pred PLAYER_UPDATE = METHOD_UNSET+        pred GET_PLAYER = PLAYER_UPDATE+        pred GET_INVENTORY = GET_PLAYER+        pred DOWNLOAD_SETTINGS = GET_INVENTORY+        pred DOWNLOAD_ITEM_TEMPLATES = DOWNLOAD_SETTINGS+        pred DOWNLOAD_REMOTE_CONFIG_VERSION = DOWNLOAD_ITEM_TEMPLATES+        pred FORT_SEARCH = DOWNLOAD_REMOTE_CONFIG_VERSION+        pred ENCOUNTER = FORT_SEARCH+        pred CATCH_POKEMON = ENCOUNTER+        pred FORT_DETAILS = CATCH_POKEMON+        pred ITEM_USE = FORT_DETAILS+        pred GET_MAP_OBJECTS = ITEM_USE+        pred FORT_DEPLOY_POKEMON = GET_MAP_OBJECTS+        pred FORT_RECALL_POKEMON = FORT_DEPLOY_POKEMON+        pred RELEASE_POKEMON = FORT_RECALL_POKEMON+        pred USE_ITEM_POTION = RELEASE_POKEMON+        pred USE_ITEM_CAPTURE = USE_ITEM_POTION+        pred USE_ITEM_FLEE = USE_ITEM_CAPTURE+        pred USE_ITEM_REVIVE = USE_ITEM_FLEE+        pred TRADE_SEARCH = USE_ITEM_REVIVE+        pred TRADE_OFFER = TRADE_SEARCH+        pred TRADE_RESPONSE = TRADE_OFFER+        pred TRADE_RESULT = TRADE_RESPONSE+        pred GET_PLAYER_PROFILE = TRADE_RESULT+        pred GET_ITEM_PACK = GET_PLAYER_PROFILE+        pred BUY_ITEM_PACK = GET_ITEM_PACK+        pred BUY_GEM_PACK = BUY_ITEM_PACK+        pred EVOLVE_POKEMON = BUY_GEM_PACK+        pred GET_HATCHED_EGGS = EVOLVE_POKEMON+        pred ENCOUNTER_TUTORIAL_COMPLETE = GET_HATCHED_EGGS+        pred LEVEL_UP_REWARDS = ENCOUNTER_TUTORIAL_COMPLETE+        pred CHECK_AWARDED_BADGES = LEVEL_UP_REWARDS+        pred USE_ITEM_GYM = CHECK_AWARDED_BADGES+        pred GET_GYM_DETAILS = USE_ITEM_GYM+        pred START_GYM_BATTLE = GET_GYM_DETAILS+        pred ATTACK_GYM = START_GYM_BATTLE+        pred RECYCLE_INVENTORY_ITEM = ATTACK_GYM+        pred COLLECT_DAILY_BONUS = RECYCLE_INVENTORY_ITEM+        pred USE_ITEM_XP_BOOST = COLLECT_DAILY_BONUS+        pred USE_ITEM_EGG_INCUBATOR = USE_ITEM_XP_BOOST+        pred USE_INCENSE = USE_ITEM_EGG_INCUBATOR+        pred GET_INCENSE_POKEMON = USE_INCENSE+        pred INCENSE_ENCOUNTER = GET_INCENSE_POKEMON+        pred ADD_FORT_MODIFIER = INCENSE_ENCOUNTER+        pred DISK_ENCOUNTER = ADD_FORT_MODIFIER+        pred COLLECT_DAILY_DEFENDER_BONUS = DISK_ENCOUNTER+        pred UPGRADE_POKEMON = COLLECT_DAILY_DEFENDER_BONUS+        pred SET_FAVORITE_POKEMON = UPGRADE_POKEMON+        pred NICKNAME_POKEMON = SET_FAVORITE_POKEMON+        pred EQUIP_BADGE = NICKNAME_POKEMON+        pred SET_CONTACT_SETTINGS = EQUIP_BADGE+        pred GET_ASSET_DIGEST = SET_CONTACT_SETTINGS+        pred GET_DOWNLOAD_URLS = GET_ASSET_DIGEST+        pred GET_SUGGESTED_CODENAMES = GET_DOWNLOAD_URLS+        pred CHECK_CODENAME_AVAILABLE = GET_SUGGESTED_CODENAMES+        pred CLAIM_CODENAME = CHECK_CODENAME_AVAILABLE+        pred SET_AVATAR = CLAIM_CODENAME+        pred SET_PLAYER_TEAM = SET_AVATAR+        pred MARK_TUTORIAL_COMPLETE = SET_PLAYER_TEAM+        pred LOAD_SPAWN_POINTS = MARK_TUTORIAL_COMPLETE+        pred ECHO = LOAD_SPAWN_POINTS+        pred DEBUG_UPDATE_INVENTORY = ECHO+        pred DEBUG_DELETE_PLAYER = DEBUG_UPDATE_INVENTORY+        pred SFIDA_REGISTRATION = DEBUG_DELETE_PLAYER+        pred SFIDA_ACTION_LOG = SFIDA_REGISTRATION+        pred SFIDA_CERTIFICATION = SFIDA_ACTION_LOG+        pred SFIDA_UPDATE = SFIDA_CERTIFICATION+        pred SFIDA_ACTION = SFIDA_UPDATE+        pred SFIDA_DOWSER = SFIDA_ACTION+        pred SFIDA_CAPTURE = SFIDA_DOWSER+        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 RequestType where+        minBound = METHOD_UNSET+        maxBound = SFIDA_CAPTURE
+ src/Proto/POGOProtos/Networking/Responses/AddFortModifierResponse.hs view
@@ -0,0 +1,29 @@+{- This file was auto-generated from POGOProtos/Networking/Responses/AddFortModifierResponse.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Responses.AddFortModifierResponse+       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 AddFortModifierResponse = AddFortModifierResponse{}+                             deriving (Prelude.Show, Prelude.Eq)++instance Data.Default.Class.Default AddFortModifierResponse where+        def = AddFortModifierResponse{}++instance Data.ProtoLens.Message AddFortModifierResponse where+        descriptor+          = let in+              Data.ProtoLens.MessageDescriptor (Data.Map.fromList [])+                (Data.Map.fromList [])
+ src/Proto/POGOProtos/Networking/Responses/AttackGymResponse.hs view
@@ -0,0 +1,315 @@+{- This file was auto-generated from POGOProtos/Networking/Responses/AttackGymResponse.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Responses.AttackGymResponse+       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.Battle.BattleLog+import qualified Proto.POGOProtos.Data.Battle.BattlePokemonInfo++data AttackGymResponse = AttackGymResponse{_AttackGymResponse'result+                                           :: AttackGymResponse'Result,+                                           _AttackGymResponse'battleLog ::+                                           Prelude.Maybe+                                             Proto.POGOProtos.Data.Battle.BattleLog.BattleLog,+                                           _AttackGymResponse'battleId :: Data.Text.Text,+                                           _AttackGymResponse'activeDefender ::+                                           Prelude.Maybe+                                             Proto.POGOProtos.Data.Battle.BattlePokemonInfo.BattlePokemonInfo,+                                           _AttackGymResponse'activeAttacker ::+                                           Prelude.Maybe+                                             Proto.POGOProtos.Data.Battle.BattlePokemonInfo.BattlePokemonInfo}+                       deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "result" AttackGymResponse =+     AttackGymResponse'Result++instance Data.ProtoLens.HasField "result" AttackGymResponse+         AttackGymResponse where+        field _+          = Lens.Family2.Unchecked.lens _AttackGymResponse'result+              (\ x__ y__ -> x__{_AttackGymResponse'result = y__})++type instance Data.ProtoLens.Field "battleLog" AttackGymResponse =+     Proto.POGOProtos.Data.Battle.BattleLog.BattleLog++instance Data.ProtoLens.HasField "battleLog" AttackGymResponse+         AttackGymResponse where+        field _+          = (Prelude..) maybe'battleLog+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance+     Data.ProtoLens.Field "maybe'battleLog" AttackGymResponse =+     Prelude.Maybe Proto.POGOProtos.Data.Battle.BattleLog.BattleLog++instance Data.ProtoLens.HasField "maybe'battleLog"+         AttackGymResponse AttackGymResponse where+        field _+          = Lens.Family2.Unchecked.lens _AttackGymResponse'battleLog+              (\ x__ y__ -> x__{_AttackGymResponse'battleLog = y__})++type instance Data.ProtoLens.Field "battleId" AttackGymResponse =+     Data.Text.Text++instance Data.ProtoLens.HasField "battleId" AttackGymResponse+         AttackGymResponse where+        field _+          = Lens.Family2.Unchecked.lens _AttackGymResponse'battleId+              (\ x__ y__ -> x__{_AttackGymResponse'battleId = y__})++type instance+     Data.ProtoLens.Field "activeDefender" AttackGymResponse =+     Proto.POGOProtos.Data.Battle.BattlePokemonInfo.BattlePokemonInfo++instance Data.ProtoLens.HasField "activeDefender" AttackGymResponse+         AttackGymResponse where+        field _+          = (Prelude..) maybe'activeDefender+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance+     Data.ProtoLens.Field "maybe'activeDefender" AttackGymResponse =+     Prelude.Maybe+       Proto.POGOProtos.Data.Battle.BattlePokemonInfo.BattlePokemonInfo++instance Data.ProtoLens.HasField "maybe'activeDefender"+         AttackGymResponse AttackGymResponse where+        field _+          = Lens.Family2.Unchecked.lens _AttackGymResponse'activeDefender+              (\ x__ y__ -> x__{_AttackGymResponse'activeDefender = y__})++type instance+     Data.ProtoLens.Field "activeAttacker" AttackGymResponse =+     Proto.POGOProtos.Data.Battle.BattlePokemonInfo.BattlePokemonInfo++instance Data.ProtoLens.HasField "activeAttacker" AttackGymResponse+         AttackGymResponse where+        field _+          = (Prelude..) maybe'activeAttacker+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance+     Data.ProtoLens.Field "maybe'activeAttacker" AttackGymResponse =+     Prelude.Maybe+       Proto.POGOProtos.Data.Battle.BattlePokemonInfo.BattlePokemonInfo++instance Data.ProtoLens.HasField "maybe'activeAttacker"+         AttackGymResponse AttackGymResponse where+        field _+          = Lens.Family2.Unchecked.lens _AttackGymResponse'activeAttacker+              (\ x__ y__ -> x__{_AttackGymResponse'activeAttacker = y__})++instance Data.Default.Class.Default AttackGymResponse where+        def+          = AttackGymResponse{_AttackGymResponse'result =+                                Data.Default.Class.def,+                              _AttackGymResponse'battleLog = Prelude.Nothing,+                              _AttackGymResponse'battleId = Data.ProtoLens.fieldDefault,+                              _AttackGymResponse'activeDefender = Prelude.Nothing,+                              _AttackGymResponse'activeAttacker = Prelude.Nothing}++instance Data.ProtoLens.Message AttackGymResponse where+        descriptor+          = let result__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "result"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor AttackGymResponse'Result)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional result)+                battleLog__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "battle_log"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Data.Battle.BattleLog.BattleLog)+                      (Data.ProtoLens.OptionalField maybe'battleLog)+                battleId__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "battle_id"+                      (Data.ProtoLens.StringField ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional battleId)+                activeDefender__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "active_defender"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Data.Battle.BattlePokemonInfo.BattlePokemonInfo)+                      (Data.ProtoLens.OptionalField maybe'activeDefender)+                activeAttacker__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "active_attacker"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Data.Battle.BattlePokemonInfo.BattlePokemonInfo)+                      (Data.ProtoLens.OptionalField maybe'activeAttacker)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, result__field_descriptor),+                    (Data.ProtoLens.Tag 2, battleLog__field_descriptor),+                    (Data.ProtoLens.Tag 3, battleId__field_descriptor),+                    (Data.ProtoLens.Tag 4, activeDefender__field_descriptor),+                    (Data.ProtoLens.Tag 5, activeAttacker__field_descriptor)])+                (Data.Map.fromList+                   [("result", result__field_descriptor),+                    ("battle_log", battleLog__field_descriptor),+                    ("battle_id", battleId__field_descriptor),+                    ("active_defender", activeDefender__field_descriptor),+                    ("active_attacker", activeAttacker__field_descriptor)])++data AttackGymResponse'Result = AttackGymResponse'UNSET+                              | AttackGymResponse'SUCCESS+                              | AttackGymResponse'ERROR_INVALID_ATTACK_ACTIONS+                              | AttackGymResponse'ERROR_NOT_IN_RANGE+                              deriving (Prelude.Show, Prelude.Eq)++instance Data.Default.Class.Default AttackGymResponse'Result where+        def = AttackGymResponse'UNSET++instance Data.ProtoLens.FieldDefault AttackGymResponse'Result where+        fieldDefault = AttackGymResponse'UNSET++instance Data.ProtoLens.MessageEnum AttackGymResponse'Result where+        maybeToEnum 0 = Prelude.Just AttackGymResponse'UNSET+        maybeToEnum 1 = Prelude.Just AttackGymResponse'SUCCESS+        maybeToEnum 2+          = Prelude.Just AttackGymResponse'ERROR_INVALID_ATTACK_ACTIONS+        maybeToEnum 3 = Prelude.Just AttackGymResponse'ERROR_NOT_IN_RANGE+        maybeToEnum _ = Prelude.Nothing+        showEnum AttackGymResponse'UNSET = "UNSET"+        showEnum AttackGymResponse'SUCCESS = "SUCCESS"+        showEnum AttackGymResponse'ERROR_INVALID_ATTACK_ACTIONS+          = "ERROR_INVALID_ATTACK_ACTIONS"+        showEnum AttackGymResponse'ERROR_NOT_IN_RANGE+          = "ERROR_NOT_IN_RANGE"+        readEnum "UNSET" = Prelude.Just AttackGymResponse'UNSET+        readEnum "SUCCESS" = Prelude.Just AttackGymResponse'SUCCESS+        readEnum "ERROR_INVALID_ATTACK_ACTIONS"+          = Prelude.Just AttackGymResponse'ERROR_INVALID_ATTACK_ACTIONS+        readEnum "ERROR_NOT_IN_RANGE"+          = Prelude.Just AttackGymResponse'ERROR_NOT_IN_RANGE+        readEnum _ = Prelude.Nothing++instance Prelude.Enum AttackGymResponse'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 AttackGymResponse'UNSET = 0+        fromEnum AttackGymResponse'SUCCESS = 1+        fromEnum AttackGymResponse'ERROR_INVALID_ATTACK_ACTIONS = 2+        fromEnum AttackGymResponse'ERROR_NOT_IN_RANGE = 3+        succ AttackGymResponse'ERROR_NOT_IN_RANGE+          = Prelude.error+              "Ident \"AttackGymResponse'Result\".Ident \"succ\": bad argument Ident \"AttackGymResponse'ERROR_NOT_IN_RANGE\". This value would be out of bounds."+        succ AttackGymResponse'UNSET = AttackGymResponse'SUCCESS+        succ AttackGymResponse'SUCCESS+          = AttackGymResponse'ERROR_INVALID_ATTACK_ACTIONS+        succ AttackGymResponse'ERROR_INVALID_ATTACK_ACTIONS+          = AttackGymResponse'ERROR_NOT_IN_RANGE+        pred AttackGymResponse'UNSET+          = Prelude.error+              "Ident \"AttackGymResponse'Result\".Ident \"pred\": bad argument Ident \"AttackGymResponse'UNSET\". This value would be out of bounds."+        pred AttackGymResponse'SUCCESS = AttackGymResponse'UNSET+        pred AttackGymResponse'ERROR_INVALID_ATTACK_ACTIONS+          = AttackGymResponse'SUCCESS+        pred AttackGymResponse'ERROR_NOT_IN_RANGE+          = AttackGymResponse'ERROR_INVALID_ATTACK_ACTIONS+        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 AttackGymResponse'Result where+        minBound = AttackGymResponse'UNSET+        maxBound = AttackGymResponse'ERROR_NOT_IN_RANGE++activeAttacker ::+               forall msg msg' .+                 Data.ProtoLens.HasField "activeAttacker" msg msg' =>+                 Lens.Family2.Lens msg msg'+                   (Data.ProtoLens.Field "activeAttacker" msg)+                   (Data.ProtoLens.Field "activeAttacker" msg')+activeAttacker+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "activeAttacker")++activeDefender ::+               forall msg msg' .+                 Data.ProtoLens.HasField "activeDefender" msg msg' =>+                 Lens.Family2.Lens msg msg'+                   (Data.ProtoLens.Field "activeDefender" msg)+                   (Data.ProtoLens.Field "activeDefender" msg')+activeDefender+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "activeDefender")++battleId ::+         forall msg msg' . Data.ProtoLens.HasField "battleId" msg msg' =>+           Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "battleId" msg)+             (Data.ProtoLens.Field "battleId" msg')+battleId+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "battleId")++battleLog ::+          forall msg msg' . Data.ProtoLens.HasField "battleLog" msg msg' =>+            Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "battleLog" msg)+              (Data.ProtoLens.Field "battleLog" msg')+battleLog+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "battleLog")++maybe'activeAttacker ::+                     forall msg msg' .+                       Data.ProtoLens.HasField "maybe'activeAttacker" msg msg' =>+                       Lens.Family2.Lens msg msg'+                         (Data.ProtoLens.Field "maybe'activeAttacker" msg)+                         (Data.ProtoLens.Field "maybe'activeAttacker" msg')+maybe'activeAttacker+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "maybe'activeAttacker")++maybe'activeDefender ::+                     forall msg msg' .+                       Data.ProtoLens.HasField "maybe'activeDefender" msg msg' =>+                       Lens.Family2.Lens msg msg'+                         (Data.ProtoLens.Field "maybe'activeDefender" msg)+                         (Data.ProtoLens.Field "maybe'activeDefender" msg')+maybe'activeDefender+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "maybe'activeDefender")++maybe'battleLog ::+                forall msg msg' .+                  Data.ProtoLens.HasField "maybe'battleLog" msg msg' =>+                  Lens.Family2.Lens msg msg'+                    (Data.ProtoLens.Field "maybe'battleLog" msg)+                    (Data.ProtoLens.Field "maybe'battleLog" msg')+maybe'battleLog+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "maybe'battleLog")++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")
+ src/Proto/POGOProtos/Networking/Responses/CatchPokemonResponse.hs view
@@ -0,0 +1,259 @@+{- This file was auto-generated from POGOProtos/Networking/Responses/CatchPokemonResponse.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Responses.CatchPokemonResponse+       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.Capture.CaptureAward++data CatchPokemonResponse = CatchPokemonResponse{_CatchPokemonResponse'status+                                                 :: CatchPokemonResponse'CatchStatus,+                                                 _CatchPokemonResponse'missPercent ::+                                                 Prelude.Double,+                                                 _CatchPokemonResponse'capturedPokemonId ::+                                                 Data.Word.Word64,+                                                 _CatchPokemonResponse'captureAward ::+                                                 Prelude.Maybe+                                                   Proto.POGOProtos.Data.Capture.CaptureAward.CaptureAward}+                          deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "status" CatchPokemonResponse =+     CatchPokemonResponse'CatchStatus++instance Data.ProtoLens.HasField "status" CatchPokemonResponse+         CatchPokemonResponse where+        field _+          = Lens.Family2.Unchecked.lens _CatchPokemonResponse'status+              (\ x__ y__ -> x__{_CatchPokemonResponse'status = y__})++type instance+     Data.ProtoLens.Field "missPercent" CatchPokemonResponse =+     Prelude.Double++instance Data.ProtoLens.HasField "missPercent" CatchPokemonResponse+         CatchPokemonResponse where+        field _+          = Lens.Family2.Unchecked.lens _CatchPokemonResponse'missPercent+              (\ x__ y__ -> x__{_CatchPokemonResponse'missPercent = y__})++type instance+     Data.ProtoLens.Field "capturedPokemonId" CatchPokemonResponse =+     Data.Word.Word64++instance Data.ProtoLens.HasField "capturedPokemonId"+         CatchPokemonResponse CatchPokemonResponse where+        field _+          = Lens.Family2.Unchecked.lens+              _CatchPokemonResponse'capturedPokemonId+              (\ x__ y__ -> x__{_CatchPokemonResponse'capturedPokemonId = y__})++type instance+     Data.ProtoLens.Field "captureAward" CatchPokemonResponse =+     Proto.POGOProtos.Data.Capture.CaptureAward.CaptureAward++instance Data.ProtoLens.HasField "captureAward"+         CatchPokemonResponse CatchPokemonResponse where+        field _+          = (Prelude..) maybe'captureAward+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance+     Data.ProtoLens.Field "maybe'captureAward" CatchPokemonResponse =+     Prelude.Maybe+       Proto.POGOProtos.Data.Capture.CaptureAward.CaptureAward++instance Data.ProtoLens.HasField "maybe'captureAward"+         CatchPokemonResponse CatchPokemonResponse where+        field _+          = Lens.Family2.Unchecked.lens _CatchPokemonResponse'captureAward+              (\ x__ y__ -> x__{_CatchPokemonResponse'captureAward = y__})++instance Data.Default.Class.Default CatchPokemonResponse where+        def+          = CatchPokemonResponse{_CatchPokemonResponse'status =+                                   Data.Default.Class.def,+                                 _CatchPokemonResponse'missPercent = Data.ProtoLens.fieldDefault,+                                 _CatchPokemonResponse'capturedPokemonId =+                                   Data.ProtoLens.fieldDefault,+                                 _CatchPokemonResponse'captureAward = Prelude.Nothing}++instance Data.ProtoLens.Message CatchPokemonResponse where+        descriptor+          = let status__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "status"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           CatchPokemonResponse'CatchStatus)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional status)+                missPercent__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "miss_percent"+                      (Data.ProtoLens.DoubleField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Double)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional missPercent)+                capturedPokemonId__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "captured_pokemon_id"+                      (Data.ProtoLens.Fixed64Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         capturedPokemonId)+                captureAward__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "capture_award"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Data.Capture.CaptureAward.CaptureAward)+                      (Data.ProtoLens.OptionalField maybe'captureAward)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, status__field_descriptor),+                    (Data.ProtoLens.Tag 2, missPercent__field_descriptor),+                    (Data.ProtoLens.Tag 3, capturedPokemonId__field_descriptor),+                    (Data.ProtoLens.Tag 4, captureAward__field_descriptor)])+                (Data.Map.fromList+                   [("status", status__field_descriptor),+                    ("miss_percent", missPercent__field_descriptor),+                    ("captured_pokemon_id", capturedPokemonId__field_descriptor),+                    ("capture_award", captureAward__field_descriptor)])++data CatchPokemonResponse'CatchStatus = CatchPokemonResponse'CATCH_ERROR+                                      | CatchPokemonResponse'CATCH_SUCCESS+                                      | CatchPokemonResponse'CATCH_ESCAPE+                                      | CatchPokemonResponse'CATCH_FLEE+                                      | CatchPokemonResponse'CATCH_MISSED+                                      deriving (Prelude.Show, Prelude.Eq)++instance Data.Default.Class.Default+         CatchPokemonResponse'CatchStatus where+        def = CatchPokemonResponse'CATCH_ERROR++instance Data.ProtoLens.FieldDefault+         CatchPokemonResponse'CatchStatus where+        fieldDefault = CatchPokemonResponse'CATCH_ERROR++instance Data.ProtoLens.MessageEnum+         CatchPokemonResponse'CatchStatus where+        maybeToEnum 0 = Prelude.Just CatchPokemonResponse'CATCH_ERROR+        maybeToEnum 1 = Prelude.Just CatchPokemonResponse'CATCH_SUCCESS+        maybeToEnum 2 = Prelude.Just CatchPokemonResponse'CATCH_ESCAPE+        maybeToEnum 3 = Prelude.Just CatchPokemonResponse'CATCH_FLEE+        maybeToEnum 4 = Prelude.Just CatchPokemonResponse'CATCH_MISSED+        maybeToEnum _ = Prelude.Nothing+        showEnum CatchPokemonResponse'CATCH_ERROR = "CATCH_ERROR"+        showEnum CatchPokemonResponse'CATCH_SUCCESS = "CATCH_SUCCESS"+        showEnum CatchPokemonResponse'CATCH_ESCAPE = "CATCH_ESCAPE"+        showEnum CatchPokemonResponse'CATCH_FLEE = "CATCH_FLEE"+        showEnum CatchPokemonResponse'CATCH_MISSED = "CATCH_MISSED"+        readEnum "CATCH_ERROR"+          = Prelude.Just CatchPokemonResponse'CATCH_ERROR+        readEnum "CATCH_SUCCESS"+          = Prelude.Just CatchPokemonResponse'CATCH_SUCCESS+        readEnum "CATCH_ESCAPE"+          = Prelude.Just CatchPokemonResponse'CATCH_ESCAPE+        readEnum "CATCH_FLEE"+          = Prelude.Just CatchPokemonResponse'CATCH_FLEE+        readEnum "CATCH_MISSED"+          = Prelude.Just CatchPokemonResponse'CATCH_MISSED+        readEnum _ = Prelude.Nothing++instance Prelude.Enum CatchPokemonResponse'CatchStatus where+        toEnum k__+          = Prelude.maybe+              (Prelude.error+                 ((Prelude.++) "toEnum: unknown value for enum CatchStatus: "+                    (Prelude.show k__)))+              Prelude.id+              (Data.ProtoLens.maybeToEnum k__)+        fromEnum CatchPokemonResponse'CATCH_ERROR = 0+        fromEnum CatchPokemonResponse'CATCH_SUCCESS = 1+        fromEnum CatchPokemonResponse'CATCH_ESCAPE = 2+        fromEnum CatchPokemonResponse'CATCH_FLEE = 3+        fromEnum CatchPokemonResponse'CATCH_MISSED = 4+        succ CatchPokemonResponse'CATCH_MISSED+          = Prelude.error+              "Ident \"CatchPokemonResponse'CatchStatus\".Ident \"succ\": bad argument Ident \"CatchPokemonResponse'CATCH_MISSED\". This value would be out of bounds."+        succ CatchPokemonResponse'CATCH_ERROR+          = CatchPokemonResponse'CATCH_SUCCESS+        succ CatchPokemonResponse'CATCH_SUCCESS+          = CatchPokemonResponse'CATCH_ESCAPE+        succ CatchPokemonResponse'CATCH_ESCAPE+          = CatchPokemonResponse'CATCH_FLEE+        succ CatchPokemonResponse'CATCH_FLEE+          = CatchPokemonResponse'CATCH_MISSED+        pred CatchPokemonResponse'CATCH_ERROR+          = Prelude.error+              "Ident \"CatchPokemonResponse'CatchStatus\".Ident \"pred\": bad argument Ident \"CatchPokemonResponse'CATCH_ERROR\". This value would be out of bounds."+        pred CatchPokemonResponse'CATCH_SUCCESS+          = CatchPokemonResponse'CATCH_ERROR+        pred CatchPokemonResponse'CATCH_ESCAPE+          = CatchPokemonResponse'CATCH_SUCCESS+        pred CatchPokemonResponse'CATCH_FLEE+          = CatchPokemonResponse'CATCH_ESCAPE+        pred CatchPokemonResponse'CATCH_MISSED+          = CatchPokemonResponse'CATCH_FLEE+        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 CatchPokemonResponse'CatchStatus where+        minBound = CatchPokemonResponse'CATCH_ERROR+        maxBound = CatchPokemonResponse'CATCH_MISSED++captureAward ::+             forall msg msg' .+               Data.ProtoLens.HasField "captureAward" msg msg' =>+               Lens.Family2.Lens msg msg'+                 (Data.ProtoLens.Field "captureAward" msg)+                 (Data.ProtoLens.Field "captureAward" msg')+captureAward+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "captureAward")++capturedPokemonId ::+                  forall msg msg' .+                    Data.ProtoLens.HasField "capturedPokemonId" msg msg' =>+                    Lens.Family2.Lens msg msg'+                      (Data.ProtoLens.Field "capturedPokemonId" msg)+                      (Data.ProtoLens.Field "capturedPokemonId" msg')+capturedPokemonId+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "capturedPokemonId")++maybe'captureAward ::+                   forall msg msg' .+                     Data.ProtoLens.HasField "maybe'captureAward" msg msg' =>+                     Lens.Family2.Lens msg msg'+                       (Data.ProtoLens.Field "maybe'captureAward" msg)+                       (Data.ProtoLens.Field "maybe'captureAward" msg')+maybe'captureAward+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "maybe'captureAward")++missPercent ::+            forall msg msg' . Data.ProtoLens.HasField "missPercent" msg msg' =>+              Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "missPercent" msg)+                (Data.ProtoLens.Field "missPercent" msg')+missPercent+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "missPercent")++status ::+       forall msg msg' . Data.ProtoLens.HasField "status" msg msg' =>+         Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "status" msg)+           (Data.ProtoLens.Field "status" msg')+status+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "status")
+ src/Proto/POGOProtos/Networking/Responses/CheckAwardedBadgesResponse.hs view
@@ -0,0 +1,130 @@+{- This file was auto-generated from POGOProtos/Networking/Responses/CheckAwardedBadgesResponse.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Responses.CheckAwardedBadgesResponse+       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.BadgeType++data CheckAwardedBadgesResponse = CheckAwardedBadgesResponse{_CheckAwardedBadgesResponse'success+                                                             :: Prelude.Bool,+                                                             _CheckAwardedBadgesResponse'awardedBadges+                                                             ::+                                                             [Proto.POGOProtos.Enums.BadgeType.BadgeType],+                                                             _CheckAwardedBadgesResponse'awardedBadgeLevels+                                                             :: [Data.Int.Int32]}+                                deriving (Prelude.Show, Prelude.Eq)++type instance+     Data.ProtoLens.Field "success" CheckAwardedBadgesResponse =+     Prelude.Bool++instance Data.ProtoLens.HasField "success"+         CheckAwardedBadgesResponse CheckAwardedBadgesResponse where+        field _+          = Lens.Family2.Unchecked.lens _CheckAwardedBadgesResponse'success+              (\ x__ y__ -> x__{_CheckAwardedBadgesResponse'success = y__})++type instance+     Data.ProtoLens.Field "awardedBadges" CheckAwardedBadgesResponse =+     [Proto.POGOProtos.Enums.BadgeType.BadgeType]++instance Data.ProtoLens.HasField "awardedBadges"+         CheckAwardedBadgesResponse CheckAwardedBadgesResponse where+        field _+          = Lens.Family2.Unchecked.lens+              _CheckAwardedBadgesResponse'awardedBadges+              (\ x__ y__ -> x__{_CheckAwardedBadgesResponse'awardedBadges = y__})++type instance+     Data.ProtoLens.Field "awardedBadgeLevels"+       CheckAwardedBadgesResponse+     = [Data.Int.Int32]++instance Data.ProtoLens.HasField "awardedBadgeLevels"+         CheckAwardedBadgesResponse CheckAwardedBadgesResponse where+        field _+          = Lens.Family2.Unchecked.lens+              _CheckAwardedBadgesResponse'awardedBadgeLevels+              (\ x__ y__ ->+                 x__{_CheckAwardedBadgesResponse'awardedBadgeLevels = y__})++instance Data.Default.Class.Default CheckAwardedBadgesResponse+         where+        def+          = CheckAwardedBadgesResponse{_CheckAwardedBadgesResponse'success =+                                         Data.ProtoLens.fieldDefault,+                                       _CheckAwardedBadgesResponse'awardedBadges = [],+                                       _CheckAwardedBadgesResponse'awardedBadgeLevels = []}++instance Data.ProtoLens.Message CheckAwardedBadgesResponse where+        descriptor+          = let success__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "success"+                      (Data.ProtoLens.BoolField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional success)+                awardedBadges__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "awarded_badges"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Enums.BadgeType.BadgeType)+                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked+                         awardedBadges)+                awardedBadgeLevels__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "awarded_badge_levels"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked+                         awardedBadgeLevels)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, success__field_descriptor),+                    (Data.ProtoLens.Tag 2, awardedBadges__field_descriptor),+                    (Data.ProtoLens.Tag 3, awardedBadgeLevels__field_descriptor)])+                (Data.Map.fromList+                   [("success", success__field_descriptor),+                    ("awarded_badges", awardedBadges__field_descriptor),+                    ("awarded_badge_levels", awardedBadgeLevels__field_descriptor)])++awardedBadgeLevels ::+                   forall msg msg' .+                     Data.ProtoLens.HasField "awardedBadgeLevels" msg msg' =>+                     Lens.Family2.Lens msg msg'+                       (Data.ProtoLens.Field "awardedBadgeLevels" msg)+                       (Data.ProtoLens.Field "awardedBadgeLevels" msg')+awardedBadgeLevels+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "awardedBadgeLevels")++awardedBadges ::+              forall msg msg' .+                Data.ProtoLens.HasField "awardedBadges" msg msg' =>+                Lens.Family2.Lens msg msg'+                  (Data.ProtoLens.Field "awardedBadges" msg)+                  (Data.ProtoLens.Field "awardedBadges" msg')+awardedBadges+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "awardedBadges")++success ::+        forall msg msg' . Data.ProtoLens.HasField "success" msg msg' =>+          Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "success" msg)+            (Data.ProtoLens.Field "success" msg')+success+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "success")
+ src/Proto/POGOProtos/Networking/Responses/CheckCodenameAvailableResponse.hs view
@@ -0,0 +1,266 @@+{- This file was auto-generated from POGOProtos/Networking/Responses/CheckCodenameAvailableResponse.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Responses.CheckCodenameAvailableResponse+       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 CheckCodenameAvailableResponse = CheckCodenameAvailableResponse{_CheckCodenameAvailableResponse'codename+                                                                     :: Data.Text.Text,+                                                                     _CheckCodenameAvailableResponse'userMessage+                                                                     :: Data.Text.Text,+                                                                     _CheckCodenameAvailableResponse'isAssignable+                                                                     :: Prelude.Bool,+                                                                     _CheckCodenameAvailableResponse'status+                                                                     ::+                                                                     CheckCodenameAvailableResponse'Status}+                                    deriving (Prelude.Show, Prelude.Eq)++type instance+     Data.ProtoLens.Field "codename" CheckCodenameAvailableResponse =+     Data.Text.Text++instance Data.ProtoLens.HasField "codename"+         CheckCodenameAvailableResponse CheckCodenameAvailableResponse where+        field _+          = Lens.Family2.Unchecked.lens+              _CheckCodenameAvailableResponse'codename+              (\ x__ y__ -> x__{_CheckCodenameAvailableResponse'codename = y__})++type instance+     Data.ProtoLens.Field "userMessage" CheckCodenameAvailableResponse =+     Data.Text.Text++instance Data.ProtoLens.HasField "userMessage"+         CheckCodenameAvailableResponse CheckCodenameAvailableResponse where+        field _+          = Lens.Family2.Unchecked.lens+              _CheckCodenameAvailableResponse'userMessage+              (\ x__ y__ ->+                 x__{_CheckCodenameAvailableResponse'userMessage = y__})++type instance+     Data.ProtoLens.Field "isAssignable" CheckCodenameAvailableResponse+     = Prelude.Bool++instance Data.ProtoLens.HasField "isAssignable"+         CheckCodenameAvailableResponse CheckCodenameAvailableResponse where+        field _+          = Lens.Family2.Unchecked.lens+              _CheckCodenameAvailableResponse'isAssignable+              (\ x__ y__ ->+                 x__{_CheckCodenameAvailableResponse'isAssignable = y__})++type instance+     Data.ProtoLens.Field "status" CheckCodenameAvailableResponse =+     CheckCodenameAvailableResponse'Status++instance Data.ProtoLens.HasField "status"+         CheckCodenameAvailableResponse CheckCodenameAvailableResponse where+        field _+          = Lens.Family2.Unchecked.lens+              _CheckCodenameAvailableResponse'status+              (\ x__ y__ -> x__{_CheckCodenameAvailableResponse'status = y__})++instance Data.Default.Class.Default CheckCodenameAvailableResponse+         where+        def+          = CheckCodenameAvailableResponse{_CheckCodenameAvailableResponse'codename+                                             = Data.ProtoLens.fieldDefault,+                                           _CheckCodenameAvailableResponse'userMessage =+                                             Data.ProtoLens.fieldDefault,+                                           _CheckCodenameAvailableResponse'isAssignable =+                                             Data.ProtoLens.fieldDefault,+                                           _CheckCodenameAvailableResponse'status =+                                             Data.Default.Class.def}++instance Data.ProtoLens.Message CheckCodenameAvailableResponse+         where+        descriptor+          = let codename__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "codename"+                      (Data.ProtoLens.StringField ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional codename)+                userMessage__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "user_message"+                      (Data.ProtoLens.StringField ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional userMessage)+                isAssignable__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "is_assignable"+                      (Data.ProtoLens.BoolField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional isAssignable)+                status__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "status"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           CheckCodenameAvailableResponse'Status)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional status)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, codename__field_descriptor),+                    (Data.ProtoLens.Tag 2, userMessage__field_descriptor),+                    (Data.ProtoLens.Tag 3, isAssignable__field_descriptor),+                    (Data.ProtoLens.Tag 4, status__field_descriptor)])+                (Data.Map.fromList+                   [("codename", codename__field_descriptor),+                    ("user_message", userMessage__field_descriptor),+                    ("is_assignable", isAssignable__field_descriptor),+                    ("status", status__field_descriptor)])++data CheckCodenameAvailableResponse'Status = CheckCodenameAvailableResponse'UNSET+                                           | CheckCodenameAvailableResponse'SUCCESS+                                           | CheckCodenameAvailableResponse'CODENAME_NOT_AVAILABLE+                                           | CheckCodenameAvailableResponse'CODENAME_NOT_VALID+                                           | CheckCodenameAvailableResponse'CURRENT_OWNER+                                           | CheckCodenameAvailableResponse'CODENAME_CHANGE_NOT_ALLOWED+                                           deriving (Prelude.Show, Prelude.Eq)++instance Data.Default.Class.Default+         CheckCodenameAvailableResponse'Status where+        def = CheckCodenameAvailableResponse'UNSET++instance Data.ProtoLens.FieldDefault+         CheckCodenameAvailableResponse'Status where+        fieldDefault = CheckCodenameAvailableResponse'UNSET++instance Data.ProtoLens.MessageEnum+         CheckCodenameAvailableResponse'Status where+        maybeToEnum 0 = Prelude.Just CheckCodenameAvailableResponse'UNSET+        maybeToEnum 1 = Prelude.Just CheckCodenameAvailableResponse'SUCCESS+        maybeToEnum 2+          = Prelude.Just+              CheckCodenameAvailableResponse'CODENAME_NOT_AVAILABLE+        maybeToEnum 3+          = Prelude.Just CheckCodenameAvailableResponse'CODENAME_NOT_VALID+        maybeToEnum 4+          = Prelude.Just CheckCodenameAvailableResponse'CURRENT_OWNER+        maybeToEnum 5+          = Prelude.Just+              CheckCodenameAvailableResponse'CODENAME_CHANGE_NOT_ALLOWED+        maybeToEnum _ = Prelude.Nothing+        showEnum CheckCodenameAvailableResponse'UNSET = "UNSET"+        showEnum CheckCodenameAvailableResponse'SUCCESS = "SUCCESS"+        showEnum CheckCodenameAvailableResponse'CODENAME_NOT_AVAILABLE+          = "CODENAME_NOT_AVAILABLE"+        showEnum CheckCodenameAvailableResponse'CODENAME_NOT_VALID+          = "CODENAME_NOT_VALID"+        showEnum CheckCodenameAvailableResponse'CURRENT_OWNER+          = "CURRENT_OWNER"+        showEnum CheckCodenameAvailableResponse'CODENAME_CHANGE_NOT_ALLOWED+          = "CODENAME_CHANGE_NOT_ALLOWED"+        readEnum "UNSET"+          = Prelude.Just CheckCodenameAvailableResponse'UNSET+        readEnum "SUCCESS"+          = Prelude.Just CheckCodenameAvailableResponse'SUCCESS+        readEnum "CODENAME_NOT_AVAILABLE"+          = Prelude.Just+              CheckCodenameAvailableResponse'CODENAME_NOT_AVAILABLE+        readEnum "CODENAME_NOT_VALID"+          = Prelude.Just CheckCodenameAvailableResponse'CODENAME_NOT_VALID+        readEnum "CURRENT_OWNER"+          = Prelude.Just CheckCodenameAvailableResponse'CURRENT_OWNER+        readEnum "CODENAME_CHANGE_NOT_ALLOWED"+          = Prelude.Just+              CheckCodenameAvailableResponse'CODENAME_CHANGE_NOT_ALLOWED+        readEnum _ = Prelude.Nothing++instance Prelude.Enum CheckCodenameAvailableResponse'Status where+        toEnum k__+          = Prelude.maybe+              (Prelude.error+                 ((Prelude.++) "toEnum: unknown value for enum Status: "+                    (Prelude.show k__)))+              Prelude.id+              (Data.ProtoLens.maybeToEnum k__)+        fromEnum CheckCodenameAvailableResponse'UNSET = 0+        fromEnum CheckCodenameAvailableResponse'SUCCESS = 1+        fromEnum CheckCodenameAvailableResponse'CODENAME_NOT_AVAILABLE = 2+        fromEnum CheckCodenameAvailableResponse'CODENAME_NOT_VALID = 3+        fromEnum CheckCodenameAvailableResponse'CURRENT_OWNER = 4+        fromEnum CheckCodenameAvailableResponse'CODENAME_CHANGE_NOT_ALLOWED+          = 5+        succ CheckCodenameAvailableResponse'CODENAME_CHANGE_NOT_ALLOWED+          = Prelude.error+              "Ident \"CheckCodenameAvailableResponse'Status\".Ident \"succ\": bad argument Ident \"CheckCodenameAvailableResponse'CODENAME_CHANGE_NOT_ALLOWED\". This value would be out of bounds."+        succ CheckCodenameAvailableResponse'UNSET+          = CheckCodenameAvailableResponse'SUCCESS+        succ CheckCodenameAvailableResponse'SUCCESS+          = CheckCodenameAvailableResponse'CODENAME_NOT_AVAILABLE+        succ CheckCodenameAvailableResponse'CODENAME_NOT_AVAILABLE+          = CheckCodenameAvailableResponse'CODENAME_NOT_VALID+        succ CheckCodenameAvailableResponse'CODENAME_NOT_VALID+          = CheckCodenameAvailableResponse'CURRENT_OWNER+        succ CheckCodenameAvailableResponse'CURRENT_OWNER+          = CheckCodenameAvailableResponse'CODENAME_CHANGE_NOT_ALLOWED+        pred CheckCodenameAvailableResponse'UNSET+          = Prelude.error+              "Ident \"CheckCodenameAvailableResponse'Status\".Ident \"pred\": bad argument Ident \"CheckCodenameAvailableResponse'UNSET\". This value would be out of bounds."+        pred CheckCodenameAvailableResponse'SUCCESS+          = CheckCodenameAvailableResponse'UNSET+        pred CheckCodenameAvailableResponse'CODENAME_NOT_AVAILABLE+          = CheckCodenameAvailableResponse'SUCCESS+        pred CheckCodenameAvailableResponse'CODENAME_NOT_VALID+          = CheckCodenameAvailableResponse'CODENAME_NOT_AVAILABLE+        pred CheckCodenameAvailableResponse'CURRENT_OWNER+          = CheckCodenameAvailableResponse'CODENAME_NOT_VALID+        pred CheckCodenameAvailableResponse'CODENAME_CHANGE_NOT_ALLOWED+          = CheckCodenameAvailableResponse'CURRENT_OWNER+        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 CheckCodenameAvailableResponse'Status+         where+        minBound = CheckCodenameAvailableResponse'UNSET+        maxBound+          = CheckCodenameAvailableResponse'CODENAME_CHANGE_NOT_ALLOWED++codename ::+         forall msg msg' . Data.ProtoLens.HasField "codename" msg msg' =>+           Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "codename" msg)+             (Data.ProtoLens.Field "codename" msg')+codename+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "codename")++isAssignable ::+             forall msg msg' .+               Data.ProtoLens.HasField "isAssignable" msg msg' =>+               Lens.Family2.Lens msg msg'+                 (Data.ProtoLens.Field "isAssignable" msg)+                 (Data.ProtoLens.Field "isAssignable" msg')+isAssignable+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "isAssignable")++status ::+       forall msg msg' . Data.ProtoLens.HasField "status" msg msg' =>+         Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "status" msg)+           (Data.ProtoLens.Field "status" msg')+status+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "status")++userMessage ::+            forall msg msg' . Data.ProtoLens.HasField "userMessage" msg msg' =>+              Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "userMessage" msg)+                (Data.ProtoLens.Field "userMessage" msg')+userMessage+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "userMessage")
+ src/Proto/POGOProtos/Networking/Responses/ClaimCodenameResponse.hs view
@@ -0,0 +1,238 @@+{- This file was auto-generated from POGOProtos/Networking/Responses/ClaimCodenameResponse.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Responses.ClaimCodenameResponse+       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 ClaimCodenameResponse = ClaimCodenameResponse{_ClaimCodenameResponse'codename+                                                   :: Data.Text.Text,+                                                   _ClaimCodenameResponse'userMessage ::+                                                   Data.Text.Text,+                                                   _ClaimCodenameResponse'isAssignable ::+                                                   Prelude.Bool,+                                                   _ClaimCodenameResponse'status ::+                                                   ClaimCodenameResponse'Status}+                           deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "codename" ClaimCodenameResponse+     = Data.Text.Text++instance Data.ProtoLens.HasField "codename" ClaimCodenameResponse+         ClaimCodenameResponse where+        field _+          = Lens.Family2.Unchecked.lens _ClaimCodenameResponse'codename+              (\ x__ y__ -> x__{_ClaimCodenameResponse'codename = y__})++type instance+     Data.ProtoLens.Field "userMessage" ClaimCodenameResponse =+     Data.Text.Text++instance Data.ProtoLens.HasField "userMessage"+         ClaimCodenameResponse ClaimCodenameResponse where+        field _+          = Lens.Family2.Unchecked.lens _ClaimCodenameResponse'userMessage+              (\ x__ y__ -> x__{_ClaimCodenameResponse'userMessage = y__})++type instance+     Data.ProtoLens.Field "isAssignable" ClaimCodenameResponse =+     Prelude.Bool++instance Data.ProtoLens.HasField "isAssignable"+         ClaimCodenameResponse ClaimCodenameResponse where+        field _+          = Lens.Family2.Unchecked.lens _ClaimCodenameResponse'isAssignable+              (\ x__ y__ -> x__{_ClaimCodenameResponse'isAssignable = y__})++type instance Data.ProtoLens.Field "status" ClaimCodenameResponse =+     ClaimCodenameResponse'Status++instance Data.ProtoLens.HasField "status" ClaimCodenameResponse+         ClaimCodenameResponse where+        field _+          = Lens.Family2.Unchecked.lens _ClaimCodenameResponse'status+              (\ x__ y__ -> x__{_ClaimCodenameResponse'status = y__})++instance Data.Default.Class.Default ClaimCodenameResponse where+        def+          = ClaimCodenameResponse{_ClaimCodenameResponse'codename =+                                    Data.ProtoLens.fieldDefault,+                                  _ClaimCodenameResponse'userMessage = Data.ProtoLens.fieldDefault,+                                  _ClaimCodenameResponse'isAssignable = Data.ProtoLens.fieldDefault,+                                  _ClaimCodenameResponse'status = Data.Default.Class.def}++instance Data.ProtoLens.Message ClaimCodenameResponse where+        descriptor+          = let codename__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "codename"+                      (Data.ProtoLens.StringField ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional codename)+                userMessage__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "user_message"+                      (Data.ProtoLens.StringField ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional userMessage)+                isAssignable__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "is_assignable"+                      (Data.ProtoLens.BoolField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional isAssignable)+                status__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "status"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor ClaimCodenameResponse'Status)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional status)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, codename__field_descriptor),+                    (Data.ProtoLens.Tag 2, userMessage__field_descriptor),+                    (Data.ProtoLens.Tag 3, isAssignable__field_descriptor),+                    (Data.ProtoLens.Tag 4, status__field_descriptor)])+                (Data.Map.fromList+                   [("codename", codename__field_descriptor),+                    ("user_message", userMessage__field_descriptor),+                    ("is_assignable", isAssignable__field_descriptor),+                    ("status", status__field_descriptor)])++data ClaimCodenameResponse'Status = ClaimCodenameResponse'UNSET+                                  | ClaimCodenameResponse'SUCCESS+                                  | ClaimCodenameResponse'CODENAME_NOT_AVAILABLE+                                  | ClaimCodenameResponse'CODENAME_NOT_VALID+                                  | ClaimCodenameResponse'CURRENT_OWNER+                                  | ClaimCodenameResponse'CODENAME_CHANGE_NOT_ALLOWED+                                  deriving (Prelude.Show, Prelude.Eq)++instance Data.Default.Class.Default ClaimCodenameResponse'Status+         where+        def = ClaimCodenameResponse'UNSET++instance Data.ProtoLens.FieldDefault ClaimCodenameResponse'Status+         where+        fieldDefault = ClaimCodenameResponse'UNSET++instance Data.ProtoLens.MessageEnum ClaimCodenameResponse'Status+         where+        maybeToEnum 0 = Prelude.Just ClaimCodenameResponse'UNSET+        maybeToEnum 1 = Prelude.Just ClaimCodenameResponse'SUCCESS+        maybeToEnum 2+          = Prelude.Just ClaimCodenameResponse'CODENAME_NOT_AVAILABLE+        maybeToEnum 3+          = Prelude.Just ClaimCodenameResponse'CODENAME_NOT_VALID+        maybeToEnum 4 = Prelude.Just ClaimCodenameResponse'CURRENT_OWNER+        maybeToEnum 5+          = Prelude.Just ClaimCodenameResponse'CODENAME_CHANGE_NOT_ALLOWED+        maybeToEnum _ = Prelude.Nothing+        showEnum ClaimCodenameResponse'UNSET = "UNSET"+        showEnum ClaimCodenameResponse'SUCCESS = "SUCCESS"+        showEnum ClaimCodenameResponse'CODENAME_NOT_AVAILABLE+          = "CODENAME_NOT_AVAILABLE"+        showEnum ClaimCodenameResponse'CODENAME_NOT_VALID+          = "CODENAME_NOT_VALID"+        showEnum ClaimCodenameResponse'CURRENT_OWNER = "CURRENT_OWNER"+        showEnum ClaimCodenameResponse'CODENAME_CHANGE_NOT_ALLOWED+          = "CODENAME_CHANGE_NOT_ALLOWED"+        readEnum "UNSET" = Prelude.Just ClaimCodenameResponse'UNSET+        readEnum "SUCCESS" = Prelude.Just ClaimCodenameResponse'SUCCESS+        readEnum "CODENAME_NOT_AVAILABLE"+          = Prelude.Just ClaimCodenameResponse'CODENAME_NOT_AVAILABLE+        readEnum "CODENAME_NOT_VALID"+          = Prelude.Just ClaimCodenameResponse'CODENAME_NOT_VALID+        readEnum "CURRENT_OWNER"+          = Prelude.Just ClaimCodenameResponse'CURRENT_OWNER+        readEnum "CODENAME_CHANGE_NOT_ALLOWED"+          = Prelude.Just ClaimCodenameResponse'CODENAME_CHANGE_NOT_ALLOWED+        readEnum _ = Prelude.Nothing++instance Prelude.Enum ClaimCodenameResponse'Status where+        toEnum k__+          = Prelude.maybe+              (Prelude.error+                 ((Prelude.++) "toEnum: unknown value for enum Status: "+                    (Prelude.show k__)))+              Prelude.id+              (Data.ProtoLens.maybeToEnum k__)+        fromEnum ClaimCodenameResponse'UNSET = 0+        fromEnum ClaimCodenameResponse'SUCCESS = 1+        fromEnum ClaimCodenameResponse'CODENAME_NOT_AVAILABLE = 2+        fromEnum ClaimCodenameResponse'CODENAME_NOT_VALID = 3+        fromEnum ClaimCodenameResponse'CURRENT_OWNER = 4+        fromEnum ClaimCodenameResponse'CODENAME_CHANGE_NOT_ALLOWED = 5+        succ ClaimCodenameResponse'CODENAME_CHANGE_NOT_ALLOWED+          = Prelude.error+              "Ident \"ClaimCodenameResponse'Status\".Ident \"succ\": bad argument Ident \"ClaimCodenameResponse'CODENAME_CHANGE_NOT_ALLOWED\". This value would be out of bounds."+        succ ClaimCodenameResponse'UNSET = ClaimCodenameResponse'SUCCESS+        succ ClaimCodenameResponse'SUCCESS+          = ClaimCodenameResponse'CODENAME_NOT_AVAILABLE+        succ ClaimCodenameResponse'CODENAME_NOT_AVAILABLE+          = ClaimCodenameResponse'CODENAME_NOT_VALID+        succ ClaimCodenameResponse'CODENAME_NOT_VALID+          = ClaimCodenameResponse'CURRENT_OWNER+        succ ClaimCodenameResponse'CURRENT_OWNER+          = ClaimCodenameResponse'CODENAME_CHANGE_NOT_ALLOWED+        pred ClaimCodenameResponse'UNSET+          = Prelude.error+              "Ident \"ClaimCodenameResponse'Status\".Ident \"pred\": bad argument Ident \"ClaimCodenameResponse'UNSET\". This value would be out of bounds."+        pred ClaimCodenameResponse'SUCCESS = ClaimCodenameResponse'UNSET+        pred ClaimCodenameResponse'CODENAME_NOT_AVAILABLE+          = ClaimCodenameResponse'SUCCESS+        pred ClaimCodenameResponse'CODENAME_NOT_VALID+          = ClaimCodenameResponse'CODENAME_NOT_AVAILABLE+        pred ClaimCodenameResponse'CURRENT_OWNER+          = ClaimCodenameResponse'CODENAME_NOT_VALID+        pred ClaimCodenameResponse'CODENAME_CHANGE_NOT_ALLOWED+          = ClaimCodenameResponse'CURRENT_OWNER+        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 ClaimCodenameResponse'Status where+        minBound = ClaimCodenameResponse'UNSET+        maxBound = ClaimCodenameResponse'CODENAME_CHANGE_NOT_ALLOWED++codename ::+         forall msg msg' . Data.ProtoLens.HasField "codename" msg msg' =>+           Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "codename" msg)+             (Data.ProtoLens.Field "codename" msg')+codename+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "codename")++isAssignable ::+             forall msg msg' .+               Data.ProtoLens.HasField "isAssignable" msg msg' =>+               Lens.Family2.Lens msg msg'+                 (Data.ProtoLens.Field "isAssignable" msg)+                 (Data.ProtoLens.Field "isAssignable" msg')+isAssignable+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "isAssignable")++status ::+       forall msg msg' . Data.ProtoLens.HasField "status" msg msg' =>+         Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "status" msg)+           (Data.ProtoLens.Field "status" msg')+status+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "status")++userMessage ::+            forall msg msg' . Data.ProtoLens.HasField "userMessage" msg msg' =>+              Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "userMessage" msg)+                (Data.ProtoLens.Field "userMessage" msg')+userMessage+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "userMessage")
+ src/Proto/POGOProtos/Networking/Responses/CollectDailyBonusResponse.hs view
@@ -0,0 +1,129 @@+{- This file was auto-generated from POGOProtos/Networking/Responses/CollectDailyBonusResponse.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Responses.CollectDailyBonusResponse+       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 CollectDailyBonusResponse = CollectDailyBonusResponse{_CollectDailyBonusResponse'result+                                                           :: CollectDailyBonusResponse'Result}+                               deriving (Prelude.Show, Prelude.Eq)++type instance+     Data.ProtoLens.Field "result" CollectDailyBonusResponse =+     CollectDailyBonusResponse'Result++instance Data.ProtoLens.HasField "result" CollectDailyBonusResponse+         CollectDailyBonusResponse where+        field _+          = Lens.Family2.Unchecked.lens _CollectDailyBonusResponse'result+              (\ x__ y__ -> x__{_CollectDailyBonusResponse'result = y__})++instance Data.Default.Class.Default CollectDailyBonusResponse where+        def+          = CollectDailyBonusResponse{_CollectDailyBonusResponse'result =+                                        Data.Default.Class.def}++instance Data.ProtoLens.Message CollectDailyBonusResponse where+        descriptor+          = let result__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "result"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           CollectDailyBonusResponse'Result)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional result)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, result__field_descriptor)])+                (Data.Map.fromList [("result", result__field_descriptor)])++data CollectDailyBonusResponse'Result = CollectDailyBonusResponse'UNSET+                                      | CollectDailyBonusResponse'SUCCESS+                                      | CollectDailyBonusResponse'FAILURE+                                      | CollectDailyBonusResponse'TOO_SOON+                                      deriving (Prelude.Show, Prelude.Eq)++instance Data.Default.Class.Default+         CollectDailyBonusResponse'Result where+        def = CollectDailyBonusResponse'UNSET++instance Data.ProtoLens.FieldDefault+         CollectDailyBonusResponse'Result where+        fieldDefault = CollectDailyBonusResponse'UNSET++instance Data.ProtoLens.MessageEnum+         CollectDailyBonusResponse'Result where+        maybeToEnum 0 = Prelude.Just CollectDailyBonusResponse'UNSET+        maybeToEnum 1 = Prelude.Just CollectDailyBonusResponse'SUCCESS+        maybeToEnum 2 = Prelude.Just CollectDailyBonusResponse'FAILURE+        maybeToEnum 3 = Prelude.Just CollectDailyBonusResponse'TOO_SOON+        maybeToEnum _ = Prelude.Nothing+        showEnum CollectDailyBonusResponse'UNSET = "UNSET"+        showEnum CollectDailyBonusResponse'SUCCESS = "SUCCESS"+        showEnum CollectDailyBonusResponse'FAILURE = "FAILURE"+        showEnum CollectDailyBonusResponse'TOO_SOON = "TOO_SOON"+        readEnum "UNSET" = Prelude.Just CollectDailyBonusResponse'UNSET+        readEnum "SUCCESS" = Prelude.Just CollectDailyBonusResponse'SUCCESS+        readEnum "FAILURE" = Prelude.Just CollectDailyBonusResponse'FAILURE+        readEnum "TOO_SOON"+          = Prelude.Just CollectDailyBonusResponse'TOO_SOON+        readEnum _ = Prelude.Nothing++instance Prelude.Enum CollectDailyBonusResponse'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 CollectDailyBonusResponse'UNSET = 0+        fromEnum CollectDailyBonusResponse'SUCCESS = 1+        fromEnum CollectDailyBonusResponse'FAILURE = 2+        fromEnum CollectDailyBonusResponse'TOO_SOON = 3+        succ CollectDailyBonusResponse'TOO_SOON+          = Prelude.error+              "Ident \"CollectDailyBonusResponse'Result\".Ident \"succ\": bad argument Ident \"CollectDailyBonusResponse'TOO_SOON\". This value would be out of bounds."+        succ CollectDailyBonusResponse'UNSET+          = CollectDailyBonusResponse'SUCCESS+        succ CollectDailyBonusResponse'SUCCESS+          = CollectDailyBonusResponse'FAILURE+        succ CollectDailyBonusResponse'FAILURE+          = CollectDailyBonusResponse'TOO_SOON+        pred CollectDailyBonusResponse'UNSET+          = Prelude.error+              "Ident \"CollectDailyBonusResponse'Result\".Ident \"pred\": bad argument Ident \"CollectDailyBonusResponse'UNSET\". This value would be out of bounds."+        pred CollectDailyBonusResponse'SUCCESS+          = CollectDailyBonusResponse'UNSET+        pred CollectDailyBonusResponse'FAILURE+          = CollectDailyBonusResponse'SUCCESS+        pred CollectDailyBonusResponse'TOO_SOON+          = CollectDailyBonusResponse'FAILURE+        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 CollectDailyBonusResponse'Result where+        minBound = CollectDailyBonusResponse'UNSET+        maxBound = CollectDailyBonusResponse'TOO_SOON++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")
+ src/Proto/POGOProtos/Networking/Responses/CollectDailyDefenderBonusResponse.hs view
@@ -0,0 +1,263 @@+{- This file was auto-generated from POGOProtos/Networking/Responses/CollectDailyDefenderBonusResponse.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Responses.CollectDailyDefenderBonusResponse+       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 CollectDailyDefenderBonusResponse = CollectDailyDefenderBonusResponse{_CollectDailyDefenderBonusResponse'result+                                                                           ::+                                                                           CollectDailyDefenderBonusResponse'Result,+                                                                           _CollectDailyDefenderBonusResponse'currencyType+                                                                           :: [Data.Text.Text],+                                                                           _CollectDailyDefenderBonusResponse'currencyAwarded+                                                                           :: [Data.Int.Int32],+                                                                           _CollectDailyDefenderBonusResponse'defendersCount+                                                                           :: Data.Int.Int32}+                                       deriving (Prelude.Show, Prelude.Eq)++type instance+     Data.ProtoLens.Field "result" CollectDailyDefenderBonusResponse =+     CollectDailyDefenderBonusResponse'Result++instance Data.ProtoLens.HasField "result"+         CollectDailyDefenderBonusResponse CollectDailyDefenderBonusResponse+         where+        field _+          = Lens.Family2.Unchecked.lens+              _CollectDailyDefenderBonusResponse'result+              (\ x__ y__ -> x__{_CollectDailyDefenderBonusResponse'result = y__})++type instance+     Data.ProtoLens.Field "currencyType"+       CollectDailyDefenderBonusResponse+     = [Data.Text.Text]++instance Data.ProtoLens.HasField "currencyType"+         CollectDailyDefenderBonusResponse CollectDailyDefenderBonusResponse+         where+        field _+          = Lens.Family2.Unchecked.lens+              _CollectDailyDefenderBonusResponse'currencyType+              (\ x__ y__ ->+                 x__{_CollectDailyDefenderBonusResponse'currencyType = y__})++type instance+     Data.ProtoLens.Field "currencyAwarded"+       CollectDailyDefenderBonusResponse+     = [Data.Int.Int32]++instance Data.ProtoLens.HasField "currencyAwarded"+         CollectDailyDefenderBonusResponse CollectDailyDefenderBonusResponse+         where+        field _+          = Lens.Family2.Unchecked.lens+              _CollectDailyDefenderBonusResponse'currencyAwarded+              (\ x__ y__ ->+                 x__{_CollectDailyDefenderBonusResponse'currencyAwarded = y__})++type instance+     Data.ProtoLens.Field "defendersCount"+       CollectDailyDefenderBonusResponse+     = Data.Int.Int32++instance Data.ProtoLens.HasField "defendersCount"+         CollectDailyDefenderBonusResponse CollectDailyDefenderBonusResponse+         where+        field _+          = Lens.Family2.Unchecked.lens+              _CollectDailyDefenderBonusResponse'defendersCount+              (\ x__ y__ ->+                 x__{_CollectDailyDefenderBonusResponse'defendersCount = y__})++instance Data.Default.Class.Default+         CollectDailyDefenderBonusResponse where+        def+          = CollectDailyDefenderBonusResponse{_CollectDailyDefenderBonusResponse'result+                                                = Data.Default.Class.def,+                                              _CollectDailyDefenderBonusResponse'currencyType = [],+                                              _CollectDailyDefenderBonusResponse'currencyAwarded =+                                                [],+                                              _CollectDailyDefenderBonusResponse'defendersCount =+                                                Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message CollectDailyDefenderBonusResponse+         where+        descriptor+          = let result__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "result"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           CollectDailyDefenderBonusResponse'Result)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional result)+                currencyType__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "currency_type"+                      (Data.ProtoLens.StringField ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked currencyType)+                currencyAwarded__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "currency_awarded"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked+                         currencyAwarded)+                defendersCount__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "defenders_count"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional defendersCount)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, result__field_descriptor),+                    (Data.ProtoLens.Tag 2, currencyType__field_descriptor),+                    (Data.ProtoLens.Tag 3, currencyAwarded__field_descriptor),+                    (Data.ProtoLens.Tag 4, defendersCount__field_descriptor)])+                (Data.Map.fromList+                   [("result", result__field_descriptor),+                    ("currency_type", currencyType__field_descriptor),+                    ("currency_awarded", currencyAwarded__field_descriptor),+                    ("defenders_count", defendersCount__field_descriptor)])++data CollectDailyDefenderBonusResponse'Result = CollectDailyDefenderBonusResponse'UNSET+                                              | CollectDailyDefenderBonusResponse'SUCCESS+                                              | CollectDailyDefenderBonusResponse'FAILURE+                                              | CollectDailyDefenderBonusResponse'TOO_SOON+                                              | CollectDailyDefenderBonusResponse'NO_DEFENDERS+                                              deriving (Prelude.Show, Prelude.Eq)++instance Data.Default.Class.Default+         CollectDailyDefenderBonusResponse'Result where+        def = CollectDailyDefenderBonusResponse'UNSET++instance Data.ProtoLens.FieldDefault+         CollectDailyDefenderBonusResponse'Result where+        fieldDefault = CollectDailyDefenderBonusResponse'UNSET++instance Data.ProtoLens.MessageEnum+         CollectDailyDefenderBonusResponse'Result where+        maybeToEnum 0+          = Prelude.Just CollectDailyDefenderBonusResponse'UNSET+        maybeToEnum 1+          = Prelude.Just CollectDailyDefenderBonusResponse'SUCCESS+        maybeToEnum 2+          = Prelude.Just CollectDailyDefenderBonusResponse'FAILURE+        maybeToEnum 3+          = Prelude.Just CollectDailyDefenderBonusResponse'TOO_SOON+        maybeToEnum 4+          = Prelude.Just CollectDailyDefenderBonusResponse'NO_DEFENDERS+        maybeToEnum _ = Prelude.Nothing+        showEnum CollectDailyDefenderBonusResponse'UNSET = "UNSET"+        showEnum CollectDailyDefenderBonusResponse'SUCCESS = "SUCCESS"+        showEnum CollectDailyDefenderBonusResponse'FAILURE = "FAILURE"+        showEnum CollectDailyDefenderBonusResponse'TOO_SOON = "TOO_SOON"+        showEnum CollectDailyDefenderBonusResponse'NO_DEFENDERS+          = "NO_DEFENDERS"+        readEnum "UNSET"+          = Prelude.Just CollectDailyDefenderBonusResponse'UNSET+        readEnum "SUCCESS"+          = Prelude.Just CollectDailyDefenderBonusResponse'SUCCESS+        readEnum "FAILURE"+          = Prelude.Just CollectDailyDefenderBonusResponse'FAILURE+        readEnum "TOO_SOON"+          = Prelude.Just CollectDailyDefenderBonusResponse'TOO_SOON+        readEnum "NO_DEFENDERS"+          = Prelude.Just CollectDailyDefenderBonusResponse'NO_DEFENDERS+        readEnum _ = Prelude.Nothing++instance Prelude.Enum CollectDailyDefenderBonusResponse'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 CollectDailyDefenderBonusResponse'UNSET = 0+        fromEnum CollectDailyDefenderBonusResponse'SUCCESS = 1+        fromEnum CollectDailyDefenderBonusResponse'FAILURE = 2+        fromEnum CollectDailyDefenderBonusResponse'TOO_SOON = 3+        fromEnum CollectDailyDefenderBonusResponse'NO_DEFENDERS = 4+        succ CollectDailyDefenderBonusResponse'NO_DEFENDERS+          = Prelude.error+              "Ident \"CollectDailyDefenderBonusResponse'Result\".Ident \"succ\": bad argument Ident \"CollectDailyDefenderBonusResponse'NO_DEFENDERS\". This value would be out of bounds."+        succ CollectDailyDefenderBonusResponse'UNSET+          = CollectDailyDefenderBonusResponse'SUCCESS+        succ CollectDailyDefenderBonusResponse'SUCCESS+          = CollectDailyDefenderBonusResponse'FAILURE+        succ CollectDailyDefenderBonusResponse'FAILURE+          = CollectDailyDefenderBonusResponse'TOO_SOON+        succ CollectDailyDefenderBonusResponse'TOO_SOON+          = CollectDailyDefenderBonusResponse'NO_DEFENDERS+        pred CollectDailyDefenderBonusResponse'UNSET+          = Prelude.error+              "Ident \"CollectDailyDefenderBonusResponse'Result\".Ident \"pred\": bad argument Ident \"CollectDailyDefenderBonusResponse'UNSET\". This value would be out of bounds."+        pred CollectDailyDefenderBonusResponse'SUCCESS+          = CollectDailyDefenderBonusResponse'UNSET+        pred CollectDailyDefenderBonusResponse'FAILURE+          = CollectDailyDefenderBonusResponse'SUCCESS+        pred CollectDailyDefenderBonusResponse'TOO_SOON+          = CollectDailyDefenderBonusResponse'FAILURE+        pred CollectDailyDefenderBonusResponse'NO_DEFENDERS+          = CollectDailyDefenderBonusResponse'TOO_SOON+        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 CollectDailyDefenderBonusResponse'Result+         where+        minBound = CollectDailyDefenderBonusResponse'UNSET+        maxBound = CollectDailyDefenderBonusResponse'NO_DEFENDERS++currencyAwarded ::+                forall msg msg' .+                  Data.ProtoLens.HasField "currencyAwarded" msg msg' =>+                  Lens.Family2.Lens msg msg'+                    (Data.ProtoLens.Field "currencyAwarded" msg)+                    (Data.ProtoLens.Field "currencyAwarded" msg')+currencyAwarded+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "currencyAwarded")++currencyType ::+             forall msg msg' .+               Data.ProtoLens.HasField "currencyType" msg msg' =>+               Lens.Family2.Lens msg msg'+                 (Data.ProtoLens.Field "currencyType" msg)+                 (Data.ProtoLens.Field "currencyType" msg')+currencyType+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "currencyType")++defendersCount ::+               forall msg msg' .+                 Data.ProtoLens.HasField "defendersCount" msg msg' =>+                 Lens.Family2.Lens msg msg'+                   (Data.ProtoLens.Field "defendersCount" msg)+                   (Data.ProtoLens.Field "defendersCount" msg')+defendersCount+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "defendersCount")++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")
+ src/Proto/POGOProtos/Networking/Responses/DiskEncounterResponse.hs view
@@ -0,0 +1,262 @@+{- This file was auto-generated from POGOProtos/Networking/Responses/DiskEncounterResponse.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Responses.DiskEncounterResponse+       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.Capture.CaptureProbability+import qualified Proto.POGOProtos.Data.PokemonData++data DiskEncounterResponse = DiskEncounterResponse{_DiskEncounterResponse'result+                                                   :: DiskEncounterResponse'Result,+                                                   _DiskEncounterResponse'pokemonData ::+                                                   Prelude.Maybe+                                                     Proto.POGOProtos.Data.PokemonData.PokemonData,+                                                   _DiskEncounterResponse'captureProbability ::+                                                   Prelude.Maybe+                                                     Proto.POGOProtos.Data.Capture.CaptureProbability.CaptureProbability}+                           deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "result" DiskEncounterResponse =+     DiskEncounterResponse'Result++instance Data.ProtoLens.HasField "result" DiskEncounterResponse+         DiskEncounterResponse where+        field _+          = Lens.Family2.Unchecked.lens _DiskEncounterResponse'result+              (\ x__ y__ -> x__{_DiskEncounterResponse'result = y__})++type instance+     Data.ProtoLens.Field "pokemonData" DiskEncounterResponse =+     Proto.POGOProtos.Data.PokemonData.PokemonData++instance Data.ProtoLens.HasField "pokemonData"+         DiskEncounterResponse DiskEncounterResponse where+        field _+          = (Prelude..) maybe'pokemonData+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance+     Data.ProtoLens.Field "maybe'pokemonData" DiskEncounterResponse =+     Prelude.Maybe Proto.POGOProtos.Data.PokemonData.PokemonData++instance Data.ProtoLens.HasField "maybe'pokemonData"+         DiskEncounterResponse DiskEncounterResponse where+        field _+          = Lens.Family2.Unchecked.lens _DiskEncounterResponse'pokemonData+              (\ x__ y__ -> x__{_DiskEncounterResponse'pokemonData = y__})++type instance+     Data.ProtoLens.Field "captureProbability" DiskEncounterResponse =+     Proto.POGOProtos.Data.Capture.CaptureProbability.CaptureProbability++instance Data.ProtoLens.HasField "captureProbability"+         DiskEncounterResponse DiskEncounterResponse where+        field _+          = (Prelude..) maybe'captureProbability+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance+     Data.ProtoLens.Field "maybe'captureProbability"+       DiskEncounterResponse+     =+     Prelude.Maybe+       Proto.POGOProtos.Data.Capture.CaptureProbability.CaptureProbability++instance Data.ProtoLens.HasField "maybe'captureProbability"+         DiskEncounterResponse DiskEncounterResponse where+        field _+          = Lens.Family2.Unchecked.lens+              _DiskEncounterResponse'captureProbability+              (\ x__ y__ -> x__{_DiskEncounterResponse'captureProbability = y__})++instance Data.Default.Class.Default DiskEncounterResponse where+        def+          = DiskEncounterResponse{_DiskEncounterResponse'result =+                                    Data.Default.Class.def,+                                  _DiskEncounterResponse'pokemonData = Prelude.Nothing,+                                  _DiskEncounterResponse'captureProbability = Prelude.Nothing}++instance Data.ProtoLens.Message DiskEncounterResponse where+        descriptor+          = let result__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "result"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor DiskEncounterResponse'Result)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional result)+                pokemonData__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "pokemon_data"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Data.PokemonData.PokemonData)+                      (Data.ProtoLens.OptionalField maybe'pokemonData)+                captureProbability__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "capture_probability"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Data.Capture.CaptureProbability.CaptureProbability)+                      (Data.ProtoLens.OptionalField maybe'captureProbability)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, result__field_descriptor),+                    (Data.ProtoLens.Tag 2, pokemonData__field_descriptor),+                    (Data.ProtoLens.Tag 3, captureProbability__field_descriptor)])+                (Data.Map.fromList+                   [("result", result__field_descriptor),+                    ("pokemon_data", pokemonData__field_descriptor),+                    ("capture_probability", captureProbability__field_descriptor)])++data DiskEncounterResponse'Result = DiskEncounterResponse'UNKNOWN+                                  | DiskEncounterResponse'SUCCESS+                                  | DiskEncounterResponse'NOT_AVAILABLE+                                  | DiskEncounterResponse'NOT_IN_RANGE+                                  | DiskEncounterResponse'ENCOUNTER_ALREADY_FINISHED+                                  | DiskEncounterResponse'POKEMON_INVENTORY_FULL+                                  deriving (Prelude.Show, Prelude.Eq)++instance Data.Default.Class.Default DiskEncounterResponse'Result+         where+        def = DiskEncounterResponse'UNKNOWN++instance Data.ProtoLens.FieldDefault DiskEncounterResponse'Result+         where+        fieldDefault = DiskEncounterResponse'UNKNOWN++instance Data.ProtoLens.MessageEnum DiskEncounterResponse'Result+         where+        maybeToEnum 0 = Prelude.Just DiskEncounterResponse'UNKNOWN+        maybeToEnum 1 = Prelude.Just DiskEncounterResponse'SUCCESS+        maybeToEnum 2 = Prelude.Just DiskEncounterResponse'NOT_AVAILABLE+        maybeToEnum 3 = Prelude.Just DiskEncounterResponse'NOT_IN_RANGE+        maybeToEnum 4+          = Prelude.Just DiskEncounterResponse'ENCOUNTER_ALREADY_FINISHED+        maybeToEnum 5+          = Prelude.Just DiskEncounterResponse'POKEMON_INVENTORY_FULL+        maybeToEnum _ = Prelude.Nothing+        showEnum DiskEncounterResponse'UNKNOWN = "UNKNOWN"+        showEnum DiskEncounterResponse'SUCCESS = "SUCCESS"+        showEnum DiskEncounterResponse'NOT_AVAILABLE = "NOT_AVAILABLE"+        showEnum DiskEncounterResponse'NOT_IN_RANGE = "NOT_IN_RANGE"+        showEnum DiskEncounterResponse'ENCOUNTER_ALREADY_FINISHED+          = "ENCOUNTER_ALREADY_FINISHED"+        showEnum DiskEncounterResponse'POKEMON_INVENTORY_FULL+          = "POKEMON_INVENTORY_FULL"+        readEnum "UNKNOWN" = Prelude.Just DiskEncounterResponse'UNKNOWN+        readEnum "SUCCESS" = Prelude.Just DiskEncounterResponse'SUCCESS+        readEnum "NOT_AVAILABLE"+          = Prelude.Just DiskEncounterResponse'NOT_AVAILABLE+        readEnum "NOT_IN_RANGE"+          = Prelude.Just DiskEncounterResponse'NOT_IN_RANGE+        readEnum "ENCOUNTER_ALREADY_FINISHED"+          = Prelude.Just DiskEncounterResponse'ENCOUNTER_ALREADY_FINISHED+        readEnum "POKEMON_INVENTORY_FULL"+          = Prelude.Just DiskEncounterResponse'POKEMON_INVENTORY_FULL+        readEnum _ = Prelude.Nothing++instance Prelude.Enum DiskEncounterResponse'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 DiskEncounterResponse'UNKNOWN = 0+        fromEnum DiskEncounterResponse'SUCCESS = 1+        fromEnum DiskEncounterResponse'NOT_AVAILABLE = 2+        fromEnum DiskEncounterResponse'NOT_IN_RANGE = 3+        fromEnum DiskEncounterResponse'ENCOUNTER_ALREADY_FINISHED = 4+        fromEnum DiskEncounterResponse'POKEMON_INVENTORY_FULL = 5+        succ DiskEncounterResponse'POKEMON_INVENTORY_FULL+          = Prelude.error+              "Ident \"DiskEncounterResponse'Result\".Ident \"succ\": bad argument Ident \"DiskEncounterResponse'POKEMON_INVENTORY_FULL\". This value would be out of bounds."+        succ DiskEncounterResponse'UNKNOWN = DiskEncounterResponse'SUCCESS+        succ DiskEncounterResponse'SUCCESS+          = DiskEncounterResponse'NOT_AVAILABLE+        succ DiskEncounterResponse'NOT_AVAILABLE+          = DiskEncounterResponse'NOT_IN_RANGE+        succ DiskEncounterResponse'NOT_IN_RANGE+          = DiskEncounterResponse'ENCOUNTER_ALREADY_FINISHED+        succ DiskEncounterResponse'ENCOUNTER_ALREADY_FINISHED+          = DiskEncounterResponse'POKEMON_INVENTORY_FULL+        pred DiskEncounterResponse'UNKNOWN+          = Prelude.error+              "Ident \"DiskEncounterResponse'Result\".Ident \"pred\": bad argument Ident \"DiskEncounterResponse'UNKNOWN\". This value would be out of bounds."+        pred DiskEncounterResponse'SUCCESS = DiskEncounterResponse'UNKNOWN+        pred DiskEncounterResponse'NOT_AVAILABLE+          = DiskEncounterResponse'SUCCESS+        pred DiskEncounterResponse'NOT_IN_RANGE+          = DiskEncounterResponse'NOT_AVAILABLE+        pred DiskEncounterResponse'ENCOUNTER_ALREADY_FINISHED+          = DiskEncounterResponse'NOT_IN_RANGE+        pred DiskEncounterResponse'POKEMON_INVENTORY_FULL+          = DiskEncounterResponse'ENCOUNTER_ALREADY_FINISHED+        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 DiskEncounterResponse'Result where+        minBound = DiskEncounterResponse'UNKNOWN+        maxBound = DiskEncounterResponse'POKEMON_INVENTORY_FULL++captureProbability ::+                   forall msg msg' .+                     Data.ProtoLens.HasField "captureProbability" msg msg' =>+                     Lens.Family2.Lens msg msg'+                       (Data.ProtoLens.Field "captureProbability" msg)+                       (Data.ProtoLens.Field "captureProbability" msg')+captureProbability+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "captureProbability")++maybe'captureProbability ::+                         forall msg msg' .+                           Data.ProtoLens.HasField "maybe'captureProbability" msg msg' =>+                           Lens.Family2.Lens msg msg'+                             (Data.ProtoLens.Field "maybe'captureProbability" msg)+                             (Data.ProtoLens.Field "maybe'captureProbability" msg')+maybe'captureProbability+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "maybe'captureProbability")++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")
+ src/Proto/POGOProtos/Networking/Responses/DownloadItemTemplatesResponse.hs view
@@ -0,0 +1,1159 @@+{- This file was auto-generated from POGOProtos/Networking/Responses/DownloadItemTemplatesResponse.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Responses.DownloadItemTemplatesResponse+       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.Settings.Master.BadgeSettings+import qualified Proto.POGOProtos.Settings.Master.CameraSettings+import qualified Proto.POGOProtos.Settings.Master.EncounterSettings+import qualified+       Proto.POGOProtos.Settings.Master.EquippedBadgeSettings+import qualified Proto.POGOProtos.Settings.Master.GymBattleSettings+import qualified Proto.POGOProtos.Settings.Master.GymLevelSettings+import qualified Proto.POGOProtos.Settings.Master.IapItemDisplay+import qualified Proto.POGOProtos.Settings.Master.IapSettings+import qualified Proto.POGOProtos.Settings.Master.ItemSettings+import qualified+       Proto.POGOProtos.Settings.Master.MoveSequenceSettings+import qualified Proto.POGOProtos.Settings.Master.MoveSettings+import qualified+       Proto.POGOProtos.Settings.Master.PlayerLevelSettings+import qualified Proto.POGOProtos.Settings.Master.PokemonSettings+import qualified+       Proto.POGOProtos.Settings.Master.PokemonUpgradeSettings+import qualified+       Proto.POGOProtos.Settings.Master.TypeEffectiveSettings++data DownloadItemTemplatesResponse = DownloadItemTemplatesResponse{_DownloadItemTemplatesResponse'success+                                                                   :: Prelude.Bool,+                                                                   _DownloadItemTemplatesResponse'itemTemplates+                                                                   ::+                                                                   [DownloadItemTemplatesResponse'ItemTemplate],+                                                                   _DownloadItemTemplatesResponse'timestampMs+                                                                   :: Data.Word.Word64}+                                   deriving (Prelude.Show, Prelude.Eq)++type instance+     Data.ProtoLens.Field "success" DownloadItemTemplatesResponse =+     Prelude.Bool++instance Data.ProtoLens.HasField "success"+         DownloadItemTemplatesResponse DownloadItemTemplatesResponse where+        field _+          = Lens.Family2.Unchecked.lens+              _DownloadItemTemplatesResponse'success+              (\ x__ y__ -> x__{_DownloadItemTemplatesResponse'success = y__})++type instance+     Data.ProtoLens.Field "itemTemplates" DownloadItemTemplatesResponse+     = [DownloadItemTemplatesResponse'ItemTemplate]++instance Data.ProtoLens.HasField "itemTemplates"+         DownloadItemTemplatesResponse DownloadItemTemplatesResponse where+        field _+          = Lens.Family2.Unchecked.lens+              _DownloadItemTemplatesResponse'itemTemplates+              (\ x__ y__ ->+                 x__{_DownloadItemTemplatesResponse'itemTemplates = y__})++type instance+     Data.ProtoLens.Field "timestampMs" DownloadItemTemplatesResponse =+     Data.Word.Word64++instance Data.ProtoLens.HasField "timestampMs"+         DownloadItemTemplatesResponse DownloadItemTemplatesResponse where+        field _+          = Lens.Family2.Unchecked.lens+              _DownloadItemTemplatesResponse'timestampMs+              (\ x__ y__ ->+                 x__{_DownloadItemTemplatesResponse'timestampMs = y__})++instance Data.Default.Class.Default DownloadItemTemplatesResponse+         where+        def+          = DownloadItemTemplatesResponse{_DownloadItemTemplatesResponse'success+                                            = Data.ProtoLens.fieldDefault,+                                          _DownloadItemTemplatesResponse'itemTemplates = [],+                                          _DownloadItemTemplatesResponse'timestampMs =+                                            Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message DownloadItemTemplatesResponse where+        descriptor+          = let success__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "success"+                      (Data.ProtoLens.BoolField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional success)+                itemTemplates__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "item_templates"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           DownloadItemTemplatesResponse'ItemTemplate)+                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked+                         itemTemplates)+                timestampMs__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "timestamp_ms"+                      (Data.ProtoLens.UInt64Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional timestampMs)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, success__field_descriptor),+                    (Data.ProtoLens.Tag 2, itemTemplates__field_descriptor),+                    (Data.ProtoLens.Tag 3, timestampMs__field_descriptor)])+                (Data.Map.fromList+                   [("success", success__field_descriptor),+                    ("item_templates", itemTemplates__field_descriptor),+                    ("timestamp_ms", timestampMs__field_descriptor)])++data DownloadItemTemplatesResponse'ItemTemplate = DownloadItemTemplatesResponse'ItemTemplate{_DownloadItemTemplatesResponse'ItemTemplate'templateId+                                                                                             ::+                                                                                             Data.Text.Text,+                                                                                             _DownloadItemTemplatesResponse'ItemTemplate'pokemonSettings+                                                                                             ::+                                                                                             Prelude.Maybe+                                                                                               Proto.POGOProtos.Settings.Master.PokemonSettings.PokemonSettings,+                                                                                             _DownloadItemTemplatesResponse'ItemTemplate'itemSettings+                                                                                             ::+                                                                                             Prelude.Maybe+                                                                                               Proto.POGOProtos.Settings.Master.ItemSettings.ItemSettings,+                                                                                             _DownloadItemTemplatesResponse'ItemTemplate'moveSettings+                                                                                             ::+                                                                                             Prelude.Maybe+                                                                                               Proto.POGOProtos.Settings.Master.MoveSettings.MoveSettings,+                                                                                             _DownloadItemTemplatesResponse'ItemTemplate'moveSequenceSettings+                                                                                             ::+                                                                                             Prelude.Maybe+                                                                                               Proto.POGOProtos.Settings.Master.MoveSequenceSettings.MoveSequenceSettings,+                                                                                             _DownloadItemTemplatesResponse'ItemTemplate'typeEffective+                                                                                             ::+                                                                                             Prelude.Maybe+                                                                                               Proto.POGOProtos.Settings.Master.TypeEffectiveSettings.TypeEffectiveSettings,+                                                                                             _DownloadItemTemplatesResponse'ItemTemplate'badgeSettings+                                                                                             ::+                                                                                             Prelude.Maybe+                                                                                               Proto.POGOProtos.Settings.Master.BadgeSettings.BadgeSettings,+                                                                                             _DownloadItemTemplatesResponse'ItemTemplate'camera+                                                                                             ::+                                                                                             Prelude.Maybe+                                                                                               Proto.POGOProtos.Settings.Master.CameraSettings.CameraSettings,+                                                                                             _DownloadItemTemplatesResponse'ItemTemplate'playerLevel+                                                                                             ::+                                                                                             Prelude.Maybe+                                                                                               Proto.POGOProtos.Settings.Master.PlayerLevelSettings.PlayerLevelSettings,+                                                                                             _DownloadItemTemplatesResponse'ItemTemplate'gymLevel+                                                                                             ::+                                                                                             Prelude.Maybe+                                                                                               Proto.POGOProtos.Settings.Master.GymLevelSettings.GymLevelSettings,+                                                                                             _DownloadItemTemplatesResponse'ItemTemplate'battleSettings+                                                                                             ::+                                                                                             Prelude.Maybe+                                                                                               Proto.POGOProtos.Settings.Master.GymBattleSettings.GymBattleSettings,+                                                                                             _DownloadItemTemplatesResponse'ItemTemplate'encounterSettings+                                                                                             ::+                                                                                             Prelude.Maybe+                                                                                               Proto.POGOProtos.Settings.Master.EncounterSettings.EncounterSettings,+                                                                                             _DownloadItemTemplatesResponse'ItemTemplate'iapItemDisplay+                                                                                             ::+                                                                                             Prelude.Maybe+                                                                                               Proto.POGOProtos.Settings.Master.IapItemDisplay.IapItemDisplay,+                                                                                             _DownloadItemTemplatesResponse'ItemTemplate'iapSettings+                                                                                             ::+                                                                                             Prelude.Maybe+                                                                                               Proto.POGOProtos.Settings.Master.IapSettings.IapSettings,+                                                                                             _DownloadItemTemplatesResponse'ItemTemplate'pokemonUpgrades+                                                                                             ::+                                                                                             Prelude.Maybe+                                                                                               Proto.POGOProtos.Settings.Master.PokemonUpgradeSettings.PokemonUpgradeSettings,+                                                                                             _DownloadItemTemplatesResponse'ItemTemplate'equippedBadges+                                                                                             ::+                                                                                             Prelude.Maybe+                                                                                               Proto.POGOProtos.Settings.Master.EquippedBadgeSettings.EquippedBadgeSettings}+                                                deriving (Prelude.Show, Prelude.Eq)++type instance+     Data.ProtoLens.Field "templateId"+       DownloadItemTemplatesResponse'ItemTemplate+     = Data.Text.Text++instance Data.ProtoLens.HasField "templateId"+         DownloadItemTemplatesResponse'ItemTemplate+         DownloadItemTemplatesResponse'ItemTemplate where+        field _+          = Lens.Family2.Unchecked.lens+              _DownloadItemTemplatesResponse'ItemTemplate'templateId+              (\ x__ y__ ->+                 x__{_DownloadItemTemplatesResponse'ItemTemplate'templateId = y__})++type instance+     Data.ProtoLens.Field "pokemonSettings"+       DownloadItemTemplatesResponse'ItemTemplate+     = Proto.POGOProtos.Settings.Master.PokemonSettings.PokemonSettings++instance Data.ProtoLens.HasField "pokemonSettings"+         DownloadItemTemplatesResponse'ItemTemplate+         DownloadItemTemplatesResponse'ItemTemplate where+        field _+          = (Prelude..) maybe'pokemonSettings+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance+     Data.ProtoLens.Field "maybe'pokemonSettings"+       DownloadItemTemplatesResponse'ItemTemplate+     =+     Prelude.Maybe+       Proto.POGOProtos.Settings.Master.PokemonSettings.PokemonSettings++instance Data.ProtoLens.HasField "maybe'pokemonSettings"+         DownloadItemTemplatesResponse'ItemTemplate+         DownloadItemTemplatesResponse'ItemTemplate where+        field _+          = Lens.Family2.Unchecked.lens+              _DownloadItemTemplatesResponse'ItemTemplate'pokemonSettings+              (\ x__ y__ ->+                 x__{_DownloadItemTemplatesResponse'ItemTemplate'pokemonSettings =+                       y__})++type instance+     Data.ProtoLens.Field "itemSettings"+       DownloadItemTemplatesResponse'ItemTemplate+     = Proto.POGOProtos.Settings.Master.ItemSettings.ItemSettings++instance Data.ProtoLens.HasField "itemSettings"+         DownloadItemTemplatesResponse'ItemTemplate+         DownloadItemTemplatesResponse'ItemTemplate where+        field _+          = (Prelude..) maybe'itemSettings+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance+     Data.ProtoLens.Field "maybe'itemSettings"+       DownloadItemTemplatesResponse'ItemTemplate+     =+     Prelude.Maybe+       Proto.POGOProtos.Settings.Master.ItemSettings.ItemSettings++instance Data.ProtoLens.HasField "maybe'itemSettings"+         DownloadItemTemplatesResponse'ItemTemplate+         DownloadItemTemplatesResponse'ItemTemplate where+        field _+          = Lens.Family2.Unchecked.lens+              _DownloadItemTemplatesResponse'ItemTemplate'itemSettings+              (\ x__ y__ ->+                 x__{_DownloadItemTemplatesResponse'ItemTemplate'itemSettings =+                       y__})++type instance+     Data.ProtoLens.Field "moveSettings"+       DownloadItemTemplatesResponse'ItemTemplate+     = Proto.POGOProtos.Settings.Master.MoveSettings.MoveSettings++instance Data.ProtoLens.HasField "moveSettings"+         DownloadItemTemplatesResponse'ItemTemplate+         DownloadItemTemplatesResponse'ItemTemplate where+        field _+          = (Prelude..) maybe'moveSettings+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance+     Data.ProtoLens.Field "maybe'moveSettings"+       DownloadItemTemplatesResponse'ItemTemplate+     =+     Prelude.Maybe+       Proto.POGOProtos.Settings.Master.MoveSettings.MoveSettings++instance Data.ProtoLens.HasField "maybe'moveSettings"+         DownloadItemTemplatesResponse'ItemTemplate+         DownloadItemTemplatesResponse'ItemTemplate where+        field _+          = Lens.Family2.Unchecked.lens+              _DownloadItemTemplatesResponse'ItemTemplate'moveSettings+              (\ x__ y__ ->+                 x__{_DownloadItemTemplatesResponse'ItemTemplate'moveSettings =+                       y__})++type instance+     Data.ProtoLens.Field "moveSequenceSettings"+       DownloadItemTemplatesResponse'ItemTemplate+     =+     Proto.POGOProtos.Settings.Master.MoveSequenceSettings.MoveSequenceSettings++instance Data.ProtoLens.HasField "moveSequenceSettings"+         DownloadItemTemplatesResponse'ItemTemplate+         DownloadItemTemplatesResponse'ItemTemplate where+        field _+          = (Prelude..) maybe'moveSequenceSettings+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance+     Data.ProtoLens.Field "maybe'moveSequenceSettings"+       DownloadItemTemplatesResponse'ItemTemplate+     =+     Prelude.Maybe+       Proto.POGOProtos.Settings.Master.MoveSequenceSettings.MoveSequenceSettings++instance Data.ProtoLens.HasField "maybe'moveSequenceSettings"+         DownloadItemTemplatesResponse'ItemTemplate+         DownloadItemTemplatesResponse'ItemTemplate where+        field _+          = Lens.Family2.Unchecked.lens+              _DownloadItemTemplatesResponse'ItemTemplate'moveSequenceSettings+              (\ x__ y__ ->+                 x__{_DownloadItemTemplatesResponse'ItemTemplate'moveSequenceSettings+                       = y__})++type instance+     Data.ProtoLens.Field "typeEffective"+       DownloadItemTemplatesResponse'ItemTemplate+     =+     Proto.POGOProtos.Settings.Master.TypeEffectiveSettings.TypeEffectiveSettings++instance Data.ProtoLens.HasField "typeEffective"+         DownloadItemTemplatesResponse'ItemTemplate+         DownloadItemTemplatesResponse'ItemTemplate where+        field _+          = (Prelude..) maybe'typeEffective+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance+     Data.ProtoLens.Field "maybe'typeEffective"+       DownloadItemTemplatesResponse'ItemTemplate+     =+     Prelude.Maybe+       Proto.POGOProtos.Settings.Master.TypeEffectiveSettings.TypeEffectiveSettings++instance Data.ProtoLens.HasField "maybe'typeEffective"+         DownloadItemTemplatesResponse'ItemTemplate+         DownloadItemTemplatesResponse'ItemTemplate where+        field _+          = Lens.Family2.Unchecked.lens+              _DownloadItemTemplatesResponse'ItemTemplate'typeEffective+              (\ x__ y__ ->+                 x__{_DownloadItemTemplatesResponse'ItemTemplate'typeEffective =+                       y__})++type instance+     Data.ProtoLens.Field "badgeSettings"+       DownloadItemTemplatesResponse'ItemTemplate+     = Proto.POGOProtos.Settings.Master.BadgeSettings.BadgeSettings++instance Data.ProtoLens.HasField "badgeSettings"+         DownloadItemTemplatesResponse'ItemTemplate+         DownloadItemTemplatesResponse'ItemTemplate where+        field _+          = (Prelude..) maybe'badgeSettings+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance+     Data.ProtoLens.Field "maybe'badgeSettings"+       DownloadItemTemplatesResponse'ItemTemplate+     =+     Prelude.Maybe+       Proto.POGOProtos.Settings.Master.BadgeSettings.BadgeSettings++instance Data.ProtoLens.HasField "maybe'badgeSettings"+         DownloadItemTemplatesResponse'ItemTemplate+         DownloadItemTemplatesResponse'ItemTemplate where+        field _+          = Lens.Family2.Unchecked.lens+              _DownloadItemTemplatesResponse'ItemTemplate'badgeSettings+              (\ x__ y__ ->+                 x__{_DownloadItemTemplatesResponse'ItemTemplate'badgeSettings =+                       y__})++type instance+     Data.ProtoLens.Field "camera"+       DownloadItemTemplatesResponse'ItemTemplate+     = Proto.POGOProtos.Settings.Master.CameraSettings.CameraSettings++instance Data.ProtoLens.HasField "camera"+         DownloadItemTemplatesResponse'ItemTemplate+         DownloadItemTemplatesResponse'ItemTemplate where+        field _+          = (Prelude..) maybe'camera+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance+     Data.ProtoLens.Field "maybe'camera"+       DownloadItemTemplatesResponse'ItemTemplate+     =+     Prelude.Maybe+       Proto.POGOProtos.Settings.Master.CameraSettings.CameraSettings++instance Data.ProtoLens.HasField "maybe'camera"+         DownloadItemTemplatesResponse'ItemTemplate+         DownloadItemTemplatesResponse'ItemTemplate where+        field _+          = Lens.Family2.Unchecked.lens+              _DownloadItemTemplatesResponse'ItemTemplate'camera+              (\ x__ y__ ->+                 x__{_DownloadItemTemplatesResponse'ItemTemplate'camera = y__})++type instance+     Data.ProtoLens.Field "playerLevel"+       DownloadItemTemplatesResponse'ItemTemplate+     =+     Proto.POGOProtos.Settings.Master.PlayerLevelSettings.PlayerLevelSettings++instance Data.ProtoLens.HasField "playerLevel"+         DownloadItemTemplatesResponse'ItemTemplate+         DownloadItemTemplatesResponse'ItemTemplate where+        field _+          = (Prelude..) maybe'playerLevel+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance+     Data.ProtoLens.Field "maybe'playerLevel"+       DownloadItemTemplatesResponse'ItemTemplate+     =+     Prelude.Maybe+       Proto.POGOProtos.Settings.Master.PlayerLevelSettings.PlayerLevelSettings++instance Data.ProtoLens.HasField "maybe'playerLevel"+         DownloadItemTemplatesResponse'ItemTemplate+         DownloadItemTemplatesResponse'ItemTemplate where+        field _+          = Lens.Family2.Unchecked.lens+              _DownloadItemTemplatesResponse'ItemTemplate'playerLevel+              (\ x__ y__ ->+                 x__{_DownloadItemTemplatesResponse'ItemTemplate'playerLevel = y__})++type instance+     Data.ProtoLens.Field "gymLevel"+       DownloadItemTemplatesResponse'ItemTemplate+     =+     Proto.POGOProtos.Settings.Master.GymLevelSettings.GymLevelSettings++instance Data.ProtoLens.HasField "gymLevel"+         DownloadItemTemplatesResponse'ItemTemplate+         DownloadItemTemplatesResponse'ItemTemplate where+        field _+          = (Prelude..) maybe'gymLevel+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance+     Data.ProtoLens.Field "maybe'gymLevel"+       DownloadItemTemplatesResponse'ItemTemplate+     =+     Prelude.Maybe+       Proto.POGOProtos.Settings.Master.GymLevelSettings.GymLevelSettings++instance Data.ProtoLens.HasField "maybe'gymLevel"+         DownloadItemTemplatesResponse'ItemTemplate+         DownloadItemTemplatesResponse'ItemTemplate where+        field _+          = Lens.Family2.Unchecked.lens+              _DownloadItemTemplatesResponse'ItemTemplate'gymLevel+              (\ x__ y__ ->+                 x__{_DownloadItemTemplatesResponse'ItemTemplate'gymLevel = y__})++type instance+     Data.ProtoLens.Field "battleSettings"+       DownloadItemTemplatesResponse'ItemTemplate+     =+     Proto.POGOProtos.Settings.Master.GymBattleSettings.GymBattleSettings++instance Data.ProtoLens.HasField "battleSettings"+         DownloadItemTemplatesResponse'ItemTemplate+         DownloadItemTemplatesResponse'ItemTemplate where+        field _+          = (Prelude..) maybe'battleSettings+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance+     Data.ProtoLens.Field "maybe'battleSettings"+       DownloadItemTemplatesResponse'ItemTemplate+     =+     Prelude.Maybe+       Proto.POGOProtos.Settings.Master.GymBattleSettings.GymBattleSettings++instance Data.ProtoLens.HasField "maybe'battleSettings"+         DownloadItemTemplatesResponse'ItemTemplate+         DownloadItemTemplatesResponse'ItemTemplate where+        field _+          = Lens.Family2.Unchecked.lens+              _DownloadItemTemplatesResponse'ItemTemplate'battleSettings+              (\ x__ y__ ->+                 x__{_DownloadItemTemplatesResponse'ItemTemplate'battleSettings =+                       y__})++type instance+     Data.ProtoLens.Field "encounterSettings"+       DownloadItemTemplatesResponse'ItemTemplate+     =+     Proto.POGOProtos.Settings.Master.EncounterSettings.EncounterSettings++instance Data.ProtoLens.HasField "encounterSettings"+         DownloadItemTemplatesResponse'ItemTemplate+         DownloadItemTemplatesResponse'ItemTemplate where+        field _+          = (Prelude..) maybe'encounterSettings+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance+     Data.ProtoLens.Field "maybe'encounterSettings"+       DownloadItemTemplatesResponse'ItemTemplate+     =+     Prelude.Maybe+       Proto.POGOProtos.Settings.Master.EncounterSettings.EncounterSettings++instance Data.ProtoLens.HasField "maybe'encounterSettings"+         DownloadItemTemplatesResponse'ItemTemplate+         DownloadItemTemplatesResponse'ItemTemplate where+        field _+          = Lens.Family2.Unchecked.lens+              _DownloadItemTemplatesResponse'ItemTemplate'encounterSettings+              (\ x__ y__ ->+                 x__{_DownloadItemTemplatesResponse'ItemTemplate'encounterSettings =+                       y__})++type instance+     Data.ProtoLens.Field "iapItemDisplay"+       DownloadItemTemplatesResponse'ItemTemplate+     = Proto.POGOProtos.Settings.Master.IapItemDisplay.IapItemDisplay++instance Data.ProtoLens.HasField "iapItemDisplay"+         DownloadItemTemplatesResponse'ItemTemplate+         DownloadItemTemplatesResponse'ItemTemplate where+        field _+          = (Prelude..) maybe'iapItemDisplay+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance+     Data.ProtoLens.Field "maybe'iapItemDisplay"+       DownloadItemTemplatesResponse'ItemTemplate+     =+     Prelude.Maybe+       Proto.POGOProtos.Settings.Master.IapItemDisplay.IapItemDisplay++instance Data.ProtoLens.HasField "maybe'iapItemDisplay"+         DownloadItemTemplatesResponse'ItemTemplate+         DownloadItemTemplatesResponse'ItemTemplate where+        field _+          = Lens.Family2.Unchecked.lens+              _DownloadItemTemplatesResponse'ItemTemplate'iapItemDisplay+              (\ x__ y__ ->+                 x__{_DownloadItemTemplatesResponse'ItemTemplate'iapItemDisplay =+                       y__})++type instance+     Data.ProtoLens.Field "iapSettings"+       DownloadItemTemplatesResponse'ItemTemplate+     = Proto.POGOProtos.Settings.Master.IapSettings.IapSettings++instance Data.ProtoLens.HasField "iapSettings"+         DownloadItemTemplatesResponse'ItemTemplate+         DownloadItemTemplatesResponse'ItemTemplate where+        field _+          = (Prelude..) maybe'iapSettings+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance+     Data.ProtoLens.Field "maybe'iapSettings"+       DownloadItemTemplatesResponse'ItemTemplate+     =+     Prelude.Maybe+       Proto.POGOProtos.Settings.Master.IapSettings.IapSettings++instance Data.ProtoLens.HasField "maybe'iapSettings"+         DownloadItemTemplatesResponse'ItemTemplate+         DownloadItemTemplatesResponse'ItemTemplate where+        field _+          = Lens.Family2.Unchecked.lens+              _DownloadItemTemplatesResponse'ItemTemplate'iapSettings+              (\ x__ y__ ->+                 x__{_DownloadItemTemplatesResponse'ItemTemplate'iapSettings = y__})++type instance+     Data.ProtoLens.Field "pokemonUpgrades"+       DownloadItemTemplatesResponse'ItemTemplate+     =+     Proto.POGOProtos.Settings.Master.PokemonUpgradeSettings.PokemonUpgradeSettings++instance Data.ProtoLens.HasField "pokemonUpgrades"+         DownloadItemTemplatesResponse'ItemTemplate+         DownloadItemTemplatesResponse'ItemTemplate where+        field _+          = (Prelude..) maybe'pokemonUpgrades+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance+     Data.ProtoLens.Field "maybe'pokemonUpgrades"+       DownloadItemTemplatesResponse'ItemTemplate+     =+     Prelude.Maybe+       Proto.POGOProtos.Settings.Master.PokemonUpgradeSettings.PokemonUpgradeSettings++instance Data.ProtoLens.HasField "maybe'pokemonUpgrades"+         DownloadItemTemplatesResponse'ItemTemplate+         DownloadItemTemplatesResponse'ItemTemplate where+        field _+          = Lens.Family2.Unchecked.lens+              _DownloadItemTemplatesResponse'ItemTemplate'pokemonUpgrades+              (\ x__ y__ ->+                 x__{_DownloadItemTemplatesResponse'ItemTemplate'pokemonUpgrades =+                       y__})++type instance+     Data.ProtoLens.Field "equippedBadges"+       DownloadItemTemplatesResponse'ItemTemplate+     =+     Proto.POGOProtos.Settings.Master.EquippedBadgeSettings.EquippedBadgeSettings++instance Data.ProtoLens.HasField "equippedBadges"+         DownloadItemTemplatesResponse'ItemTemplate+         DownloadItemTemplatesResponse'ItemTemplate where+        field _+          = (Prelude..) maybe'equippedBadges+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance+     Data.ProtoLens.Field "maybe'equippedBadges"+       DownloadItemTemplatesResponse'ItemTemplate+     =+     Prelude.Maybe+       Proto.POGOProtos.Settings.Master.EquippedBadgeSettings.EquippedBadgeSettings++instance Data.ProtoLens.HasField "maybe'equippedBadges"+         DownloadItemTemplatesResponse'ItemTemplate+         DownloadItemTemplatesResponse'ItemTemplate where+        field _+          = Lens.Family2.Unchecked.lens+              _DownloadItemTemplatesResponse'ItemTemplate'equippedBadges+              (\ x__ y__ ->+                 x__{_DownloadItemTemplatesResponse'ItemTemplate'equippedBadges =+                       y__})++instance Data.Default.Class.Default+         DownloadItemTemplatesResponse'ItemTemplate where+        def+          = DownloadItemTemplatesResponse'ItemTemplate{_DownloadItemTemplatesResponse'ItemTemplate'templateId+                                                         = Data.ProtoLens.fieldDefault,+                                                       _DownloadItemTemplatesResponse'ItemTemplate'pokemonSettings+                                                         = Prelude.Nothing,+                                                       _DownloadItemTemplatesResponse'ItemTemplate'itemSettings+                                                         = Prelude.Nothing,+                                                       _DownloadItemTemplatesResponse'ItemTemplate'moveSettings+                                                         = Prelude.Nothing,+                                                       _DownloadItemTemplatesResponse'ItemTemplate'moveSequenceSettings+                                                         = Prelude.Nothing,+                                                       _DownloadItemTemplatesResponse'ItemTemplate'typeEffective+                                                         = Prelude.Nothing,+                                                       _DownloadItemTemplatesResponse'ItemTemplate'badgeSettings+                                                         = Prelude.Nothing,+                                                       _DownloadItemTemplatesResponse'ItemTemplate'camera+                                                         = Prelude.Nothing,+                                                       _DownloadItemTemplatesResponse'ItemTemplate'playerLevel+                                                         = Prelude.Nothing,+                                                       _DownloadItemTemplatesResponse'ItemTemplate'gymLevel+                                                         = Prelude.Nothing,+                                                       _DownloadItemTemplatesResponse'ItemTemplate'battleSettings+                                                         = Prelude.Nothing,+                                                       _DownloadItemTemplatesResponse'ItemTemplate'encounterSettings+                                                         = Prelude.Nothing,+                                                       _DownloadItemTemplatesResponse'ItemTemplate'iapItemDisplay+                                                         = Prelude.Nothing,+                                                       _DownloadItemTemplatesResponse'ItemTemplate'iapSettings+                                                         = Prelude.Nothing,+                                                       _DownloadItemTemplatesResponse'ItemTemplate'pokemonUpgrades+                                                         = Prelude.Nothing,+                                                       _DownloadItemTemplatesResponse'ItemTemplate'equippedBadges+                                                         = Prelude.Nothing}++instance Data.ProtoLens.Message+         DownloadItemTemplatesResponse'ItemTemplate where+        descriptor+          = let templateId__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "template_id"+                      (Data.ProtoLens.StringField ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional templateId)+                pokemonSettings__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "pokemon_settings"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Settings.Master.PokemonSettings.PokemonSettings)+                      (Data.ProtoLens.OptionalField maybe'pokemonSettings)+                itemSettings__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "item_settings"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Settings.Master.ItemSettings.ItemSettings)+                      (Data.ProtoLens.OptionalField maybe'itemSettings)+                moveSettings__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "move_settings"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Settings.Master.MoveSettings.MoveSettings)+                      (Data.ProtoLens.OptionalField maybe'moveSettings)+                moveSequenceSettings__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "move_sequence_settings"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Settings.Master.MoveSequenceSettings.MoveSequenceSettings)+                      (Data.ProtoLens.OptionalField maybe'moveSequenceSettings)+                typeEffective__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "type_effective"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Settings.Master.TypeEffectiveSettings.TypeEffectiveSettings)+                      (Data.ProtoLens.OptionalField maybe'typeEffective)+                badgeSettings__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "badge_settings"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Settings.Master.BadgeSettings.BadgeSettings)+                      (Data.ProtoLens.OptionalField maybe'badgeSettings)+                camera__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "camera"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Settings.Master.CameraSettings.CameraSettings)+                      (Data.ProtoLens.OptionalField maybe'camera)+                playerLevel__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "player_level"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Settings.Master.PlayerLevelSettings.PlayerLevelSettings)+                      (Data.ProtoLens.OptionalField maybe'playerLevel)+                gymLevel__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "gym_level"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Settings.Master.GymLevelSettings.GymLevelSettings)+                      (Data.ProtoLens.OptionalField maybe'gymLevel)+                battleSettings__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "battle_settings"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Settings.Master.GymBattleSettings.GymBattleSettings)+                      (Data.ProtoLens.OptionalField maybe'battleSettings)+                encounterSettings__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "encounter_settings"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Settings.Master.EncounterSettings.EncounterSettings)+                      (Data.ProtoLens.OptionalField maybe'encounterSettings)+                iapItemDisplay__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "iap_item_display"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Settings.Master.IapItemDisplay.IapItemDisplay)+                      (Data.ProtoLens.OptionalField maybe'iapItemDisplay)+                iapSettings__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "iap_settings"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Settings.Master.IapSettings.IapSettings)+                      (Data.ProtoLens.OptionalField maybe'iapSettings)+                pokemonUpgrades__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "pokemon_upgrades"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Settings.Master.PokemonUpgradeSettings.PokemonUpgradeSettings)+                      (Data.ProtoLens.OptionalField maybe'pokemonUpgrades)+                equippedBadges__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "equipped_badges"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Settings.Master.EquippedBadgeSettings.EquippedBadgeSettings)+                      (Data.ProtoLens.OptionalField maybe'equippedBadges)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, templateId__field_descriptor),+                    (Data.ProtoLens.Tag 2, pokemonSettings__field_descriptor),+                    (Data.ProtoLens.Tag 3, itemSettings__field_descriptor),+                    (Data.ProtoLens.Tag 4, moveSettings__field_descriptor),+                    (Data.ProtoLens.Tag 5, moveSequenceSettings__field_descriptor),+                    (Data.ProtoLens.Tag 8, typeEffective__field_descriptor),+                    (Data.ProtoLens.Tag 10, badgeSettings__field_descriptor),+                    (Data.ProtoLens.Tag 11, camera__field_descriptor),+                    (Data.ProtoLens.Tag 12, playerLevel__field_descriptor),+                    (Data.ProtoLens.Tag 13, gymLevel__field_descriptor),+                    (Data.ProtoLens.Tag 14, battleSettings__field_descriptor),+                    (Data.ProtoLens.Tag 15, encounterSettings__field_descriptor),+                    (Data.ProtoLens.Tag 16, iapItemDisplay__field_descriptor),+                    (Data.ProtoLens.Tag 17, iapSettings__field_descriptor),+                    (Data.ProtoLens.Tag 18, pokemonUpgrades__field_descriptor),+                    (Data.ProtoLens.Tag 19, equippedBadges__field_descriptor)])+                (Data.Map.fromList+                   [("template_id", templateId__field_descriptor),+                    ("pokemon_settings", pokemonSettings__field_descriptor),+                    ("item_settings", itemSettings__field_descriptor),+                    ("move_settings", moveSettings__field_descriptor),+                    ("move_sequence_settings", moveSequenceSettings__field_descriptor),+                    ("type_effective", typeEffective__field_descriptor),+                    ("badge_settings", badgeSettings__field_descriptor),+                    ("camera", camera__field_descriptor),+                    ("player_level", playerLevel__field_descriptor),+                    ("gym_level", gymLevel__field_descriptor),+                    ("battle_settings", battleSettings__field_descriptor),+                    ("encounter_settings", encounterSettings__field_descriptor),+                    ("iap_item_display", iapItemDisplay__field_descriptor),+                    ("iap_settings", iapSettings__field_descriptor),+                    ("pokemon_upgrades", pokemonUpgrades__field_descriptor),+                    ("equipped_badges", equippedBadges__field_descriptor)])++badgeSettings ::+              forall msg msg' .+                Data.ProtoLens.HasField "badgeSettings" msg msg' =>+                Lens.Family2.Lens msg msg'+                  (Data.ProtoLens.Field "badgeSettings" msg)+                  (Data.ProtoLens.Field "badgeSettings" msg')+badgeSettings+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "badgeSettings")++battleSettings ::+               forall msg msg' .+                 Data.ProtoLens.HasField "battleSettings" msg msg' =>+                 Lens.Family2.Lens msg msg'+                   (Data.ProtoLens.Field "battleSettings" msg)+                   (Data.ProtoLens.Field "battleSettings" msg')+battleSettings+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "battleSettings")++camera ::+       forall msg msg' . Data.ProtoLens.HasField "camera" msg msg' =>+         Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "camera" msg)+           (Data.ProtoLens.Field "camera" msg')+camera+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "camera")++encounterSettings ::+                  forall msg msg' .+                    Data.ProtoLens.HasField "encounterSettings" msg msg' =>+                    Lens.Family2.Lens msg msg'+                      (Data.ProtoLens.Field "encounterSettings" msg)+                      (Data.ProtoLens.Field "encounterSettings" msg')+encounterSettings+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "encounterSettings")++equippedBadges ::+               forall msg msg' .+                 Data.ProtoLens.HasField "equippedBadges" msg msg' =>+                 Lens.Family2.Lens msg msg'+                   (Data.ProtoLens.Field "equippedBadges" msg)+                   (Data.ProtoLens.Field "equippedBadges" msg')+equippedBadges+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "equippedBadges")++gymLevel ::+         forall msg msg' . Data.ProtoLens.HasField "gymLevel" msg msg' =>+           Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "gymLevel" msg)+             (Data.ProtoLens.Field "gymLevel" msg')+gymLevel+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "gymLevel")++iapItemDisplay ::+               forall msg msg' .+                 Data.ProtoLens.HasField "iapItemDisplay" msg msg' =>+                 Lens.Family2.Lens msg msg'+                   (Data.ProtoLens.Field "iapItemDisplay" msg)+                   (Data.ProtoLens.Field "iapItemDisplay" msg')+iapItemDisplay+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "iapItemDisplay")++iapSettings ::+            forall msg msg' . Data.ProtoLens.HasField "iapSettings" msg msg' =>+              Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "iapSettings" msg)+                (Data.ProtoLens.Field "iapSettings" msg')+iapSettings+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "iapSettings")++itemSettings ::+             forall msg msg' .+               Data.ProtoLens.HasField "itemSettings" msg msg' =>+               Lens.Family2.Lens msg msg'+                 (Data.ProtoLens.Field "itemSettings" msg)+                 (Data.ProtoLens.Field "itemSettings" msg')+itemSettings+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "itemSettings")++itemTemplates ::+              forall msg msg' .+                Data.ProtoLens.HasField "itemTemplates" msg msg' =>+                Lens.Family2.Lens msg msg'+                  (Data.ProtoLens.Field "itemTemplates" msg)+                  (Data.ProtoLens.Field "itemTemplates" msg')+itemTemplates+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "itemTemplates")++maybe'badgeSettings ::+                    forall msg msg' .+                      Data.ProtoLens.HasField "maybe'badgeSettings" msg msg' =>+                      Lens.Family2.Lens msg msg'+                        (Data.ProtoLens.Field "maybe'badgeSettings" msg)+                        (Data.ProtoLens.Field "maybe'badgeSettings" msg')+maybe'badgeSettings+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "maybe'badgeSettings")++maybe'battleSettings ::+                     forall msg msg' .+                       Data.ProtoLens.HasField "maybe'battleSettings" msg msg' =>+                       Lens.Family2.Lens msg msg'+                         (Data.ProtoLens.Field "maybe'battleSettings" msg)+                         (Data.ProtoLens.Field "maybe'battleSettings" msg')+maybe'battleSettings+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "maybe'battleSettings")++maybe'camera ::+             forall msg msg' .+               Data.ProtoLens.HasField "maybe'camera" msg msg' =>+               Lens.Family2.Lens msg msg'+                 (Data.ProtoLens.Field "maybe'camera" msg)+                 (Data.ProtoLens.Field "maybe'camera" msg')+maybe'camera+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "maybe'camera")++maybe'encounterSettings ::+                        forall msg msg' .+                          Data.ProtoLens.HasField "maybe'encounterSettings" msg msg' =>+                          Lens.Family2.Lens msg msg'+                            (Data.ProtoLens.Field "maybe'encounterSettings" msg)+                            (Data.ProtoLens.Field "maybe'encounterSettings" msg')+maybe'encounterSettings+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "maybe'encounterSettings")++maybe'equippedBadges ::+                     forall msg msg' .+                       Data.ProtoLens.HasField "maybe'equippedBadges" msg msg' =>+                       Lens.Family2.Lens msg msg'+                         (Data.ProtoLens.Field "maybe'equippedBadges" msg)+                         (Data.ProtoLens.Field "maybe'equippedBadges" msg')+maybe'equippedBadges+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "maybe'equippedBadges")++maybe'gymLevel ::+               forall msg msg' .+                 Data.ProtoLens.HasField "maybe'gymLevel" msg msg' =>+                 Lens.Family2.Lens msg msg'+                   (Data.ProtoLens.Field "maybe'gymLevel" msg)+                   (Data.ProtoLens.Field "maybe'gymLevel" msg')+maybe'gymLevel+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "maybe'gymLevel")++maybe'iapItemDisplay ::+                     forall msg msg' .+                       Data.ProtoLens.HasField "maybe'iapItemDisplay" msg msg' =>+                       Lens.Family2.Lens msg msg'+                         (Data.ProtoLens.Field "maybe'iapItemDisplay" msg)+                         (Data.ProtoLens.Field "maybe'iapItemDisplay" msg')+maybe'iapItemDisplay+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "maybe'iapItemDisplay")++maybe'iapSettings ::+                  forall msg msg' .+                    Data.ProtoLens.HasField "maybe'iapSettings" msg msg' =>+                    Lens.Family2.Lens msg msg'+                      (Data.ProtoLens.Field "maybe'iapSettings" msg)+                      (Data.ProtoLens.Field "maybe'iapSettings" msg')+maybe'iapSettings+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "maybe'iapSettings")++maybe'itemSettings ::+                   forall msg msg' .+                     Data.ProtoLens.HasField "maybe'itemSettings" msg msg' =>+                     Lens.Family2.Lens msg msg'+                       (Data.ProtoLens.Field "maybe'itemSettings" msg)+                       (Data.ProtoLens.Field "maybe'itemSettings" msg')+maybe'itemSettings+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "maybe'itemSettings")++maybe'moveSequenceSettings ::+                           forall msg msg' .+                             Data.ProtoLens.HasField "maybe'moveSequenceSettings" msg msg' =>+                             Lens.Family2.Lens msg msg'+                               (Data.ProtoLens.Field "maybe'moveSequenceSettings" msg)+                               (Data.ProtoLens.Field "maybe'moveSequenceSettings" msg')+maybe'moveSequenceSettings+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "maybe'moveSequenceSettings")++maybe'moveSettings ::+                   forall msg msg' .+                     Data.ProtoLens.HasField "maybe'moveSettings" msg msg' =>+                     Lens.Family2.Lens msg msg'+                       (Data.ProtoLens.Field "maybe'moveSettings" msg)+                       (Data.ProtoLens.Field "maybe'moveSettings" msg')+maybe'moveSettings+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "maybe'moveSettings")++maybe'playerLevel ::+                  forall msg msg' .+                    Data.ProtoLens.HasField "maybe'playerLevel" msg msg' =>+                    Lens.Family2.Lens msg msg'+                      (Data.ProtoLens.Field "maybe'playerLevel" msg)+                      (Data.ProtoLens.Field "maybe'playerLevel" msg')+maybe'playerLevel+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "maybe'playerLevel")++maybe'pokemonSettings ::+                      forall msg msg' .+                        Data.ProtoLens.HasField "maybe'pokemonSettings" msg msg' =>+                        Lens.Family2.Lens msg msg'+                          (Data.ProtoLens.Field "maybe'pokemonSettings" msg)+                          (Data.ProtoLens.Field "maybe'pokemonSettings" msg')+maybe'pokemonSettings+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "maybe'pokemonSettings")++maybe'pokemonUpgrades ::+                      forall msg msg' .+                        Data.ProtoLens.HasField "maybe'pokemonUpgrades" msg msg' =>+                        Lens.Family2.Lens msg msg'+                          (Data.ProtoLens.Field "maybe'pokemonUpgrades" msg)+                          (Data.ProtoLens.Field "maybe'pokemonUpgrades" msg')+maybe'pokemonUpgrades+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "maybe'pokemonUpgrades")++maybe'typeEffective ::+                    forall msg msg' .+                      Data.ProtoLens.HasField "maybe'typeEffective" msg msg' =>+                      Lens.Family2.Lens msg msg'+                        (Data.ProtoLens.Field "maybe'typeEffective" msg)+                        (Data.ProtoLens.Field "maybe'typeEffective" msg')+maybe'typeEffective+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "maybe'typeEffective")++moveSequenceSettings ::+                     forall msg msg' .+                       Data.ProtoLens.HasField "moveSequenceSettings" msg msg' =>+                       Lens.Family2.Lens msg msg'+                         (Data.ProtoLens.Field "moveSequenceSettings" msg)+                         (Data.ProtoLens.Field "moveSequenceSettings" msg')+moveSequenceSettings+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "moveSequenceSettings")++moveSettings ::+             forall msg msg' .+               Data.ProtoLens.HasField "moveSettings" msg msg' =>+               Lens.Family2.Lens msg msg'+                 (Data.ProtoLens.Field "moveSettings" msg)+                 (Data.ProtoLens.Field "moveSettings" msg')+moveSettings+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "moveSettings")++playerLevel ::+            forall msg msg' . Data.ProtoLens.HasField "playerLevel" msg msg' =>+              Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "playerLevel" msg)+                (Data.ProtoLens.Field "playerLevel" msg')+playerLevel+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "playerLevel")++pokemonSettings ::+                forall msg msg' .+                  Data.ProtoLens.HasField "pokemonSettings" msg msg' =>+                  Lens.Family2.Lens msg msg'+                    (Data.ProtoLens.Field "pokemonSettings" msg)+                    (Data.ProtoLens.Field "pokemonSettings" msg')+pokemonSettings+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "pokemonSettings")++pokemonUpgrades ::+                forall msg msg' .+                  Data.ProtoLens.HasField "pokemonUpgrades" msg msg' =>+                  Lens.Family2.Lens msg msg'+                    (Data.ProtoLens.Field "pokemonUpgrades" msg)+                    (Data.ProtoLens.Field "pokemonUpgrades" msg')+pokemonUpgrades+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "pokemonUpgrades")++success ::+        forall msg msg' . Data.ProtoLens.HasField "success" msg msg' =>+          Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "success" msg)+            (Data.ProtoLens.Field "success" msg')+success+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "success")++templateId ::+           forall msg msg' . Data.ProtoLens.HasField "templateId" msg msg' =>+             Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "templateId" msg)+               (Data.ProtoLens.Field "templateId" msg')+templateId+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "templateId")++timestampMs ::+            forall msg msg' . Data.ProtoLens.HasField "timestampMs" msg msg' =>+              Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "timestampMs" msg)+                (Data.ProtoLens.Field "timestampMs" msg')+timestampMs+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "timestampMs")++typeEffective ::+              forall msg msg' .+                Data.ProtoLens.HasField "typeEffective" msg msg' =>+                Lens.Family2.Lens msg msg'+                  (Data.ProtoLens.Field "typeEffective" msg)+                  (Data.ProtoLens.Field "typeEffective" msg')+typeEffective+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "typeEffective")
+ src/Proto/POGOProtos/Networking/Responses/DownloadRemoteConfigVersionResponse.hs view
@@ -0,0 +1,201 @@+{- This file was auto-generated from POGOProtos/Networking/Responses/DownloadRemoteConfigVersionResponse.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Responses.DownloadRemoteConfigVersionResponse+       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 DownloadRemoteConfigVersionResponse = DownloadRemoteConfigVersionResponse{_DownloadRemoteConfigVersionResponse'result+                                                                               ::+                                                                               DownloadRemoteConfigVersionResponse'Result,+                                                                               _DownloadRemoteConfigVersionResponse'itemTemplatesTimestampMs+                                                                               :: Data.Word.Word64,+                                                                               _DownloadRemoteConfigVersionResponse'assetDigestTimestampMs+                                                                               :: Data.Word.Word64}+                                         deriving (Prelude.Show, Prelude.Eq)++type instance+     Data.ProtoLens.Field "result" DownloadRemoteConfigVersionResponse =+     DownloadRemoteConfigVersionResponse'Result++instance Data.ProtoLens.HasField "result"+         DownloadRemoteConfigVersionResponse+         DownloadRemoteConfigVersionResponse where+        field _+          = Lens.Family2.Unchecked.lens+              _DownloadRemoteConfigVersionResponse'result+              (\ x__ y__ ->+                 x__{_DownloadRemoteConfigVersionResponse'result = y__})++type instance+     Data.ProtoLens.Field "itemTemplatesTimestampMs"+       DownloadRemoteConfigVersionResponse+     = Data.Word.Word64++instance Data.ProtoLens.HasField "itemTemplatesTimestampMs"+         DownloadRemoteConfigVersionResponse+         DownloadRemoteConfigVersionResponse where+        field _+          = Lens.Family2.Unchecked.lens+              _DownloadRemoteConfigVersionResponse'itemTemplatesTimestampMs+              (\ x__ y__ ->+                 x__{_DownloadRemoteConfigVersionResponse'itemTemplatesTimestampMs =+                       y__})++type instance+     Data.ProtoLens.Field "assetDigestTimestampMs"+       DownloadRemoteConfigVersionResponse+     = Data.Word.Word64++instance Data.ProtoLens.HasField "assetDigestTimestampMs"+         DownloadRemoteConfigVersionResponse+         DownloadRemoteConfigVersionResponse where+        field _+          = Lens.Family2.Unchecked.lens+              _DownloadRemoteConfigVersionResponse'assetDigestTimestampMs+              (\ x__ y__ ->+                 x__{_DownloadRemoteConfigVersionResponse'assetDigestTimestampMs =+                       y__})++instance Data.Default.Class.Default+         DownloadRemoteConfigVersionResponse where+        def+          = DownloadRemoteConfigVersionResponse{_DownloadRemoteConfigVersionResponse'result+                                                  = Data.Default.Class.def,+                                                _DownloadRemoteConfigVersionResponse'itemTemplatesTimestampMs+                                                  = Data.ProtoLens.fieldDefault,+                                                _DownloadRemoteConfigVersionResponse'assetDigestTimestampMs+                                                  = Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message DownloadRemoteConfigVersionResponse+         where+        descriptor+          = let result__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "result"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           DownloadRemoteConfigVersionResponse'Result)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional result)+                itemTemplatesTimestampMs__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "item_templates_timestamp_ms"+                      (Data.ProtoLens.UInt64Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         itemTemplatesTimestampMs)+                assetDigestTimestampMs__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "asset_digest_timestamp_ms"+                      (Data.ProtoLens.UInt64Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         assetDigestTimestampMs)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, result__field_descriptor),+                    (Data.ProtoLens.Tag 2, itemTemplatesTimestampMs__field_descriptor),+                    (Data.ProtoLens.Tag 3, assetDigestTimestampMs__field_descriptor)])+                (Data.Map.fromList+                   [("result", result__field_descriptor),+                    ("item_templates_timestamp_ms",+                     itemTemplatesTimestampMs__field_descriptor),+                    ("asset_digest_timestamp_ms",+                     assetDigestTimestampMs__field_descriptor)])++data DownloadRemoteConfigVersionResponse'Result = DownloadRemoteConfigVersionResponse'UNSET+                                                | DownloadRemoteConfigVersionResponse'SUCCESS+                                                deriving (Prelude.Show, Prelude.Eq)++instance Data.Default.Class.Default+         DownloadRemoteConfigVersionResponse'Result where+        def = DownloadRemoteConfigVersionResponse'UNSET++instance Data.ProtoLens.FieldDefault+         DownloadRemoteConfigVersionResponse'Result where+        fieldDefault = DownloadRemoteConfigVersionResponse'UNSET++instance Data.ProtoLens.MessageEnum+         DownloadRemoteConfigVersionResponse'Result where+        maybeToEnum 0+          = Prelude.Just DownloadRemoteConfigVersionResponse'UNSET+        maybeToEnum 1+          = Prelude.Just DownloadRemoteConfigVersionResponse'SUCCESS+        maybeToEnum _ = Prelude.Nothing+        showEnum DownloadRemoteConfigVersionResponse'UNSET = "UNSET"+        showEnum DownloadRemoteConfigVersionResponse'SUCCESS = "SUCCESS"+        readEnum "UNSET"+          = Prelude.Just DownloadRemoteConfigVersionResponse'UNSET+        readEnum "SUCCESS"+          = Prelude.Just DownloadRemoteConfigVersionResponse'SUCCESS+        readEnum _ = Prelude.Nothing++instance Prelude.Enum DownloadRemoteConfigVersionResponse'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 DownloadRemoteConfigVersionResponse'UNSET = 0+        fromEnum DownloadRemoteConfigVersionResponse'SUCCESS = 1+        succ DownloadRemoteConfigVersionResponse'SUCCESS+          = Prelude.error+              "Ident \"DownloadRemoteConfigVersionResponse'Result\".Ident \"succ\": bad argument Ident \"DownloadRemoteConfigVersionResponse'SUCCESS\". This value would be out of bounds."+        succ DownloadRemoteConfigVersionResponse'UNSET+          = DownloadRemoteConfigVersionResponse'SUCCESS+        pred DownloadRemoteConfigVersionResponse'UNSET+          = Prelude.error+              "Ident \"DownloadRemoteConfigVersionResponse'Result\".Ident \"pred\": bad argument Ident \"DownloadRemoteConfigVersionResponse'UNSET\". This value would be out of bounds."+        pred DownloadRemoteConfigVersionResponse'SUCCESS+          = DownloadRemoteConfigVersionResponse'UNSET+        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 DownloadRemoteConfigVersionResponse'Result+         where+        minBound = DownloadRemoteConfigVersionResponse'UNSET+        maxBound = DownloadRemoteConfigVersionResponse'SUCCESS++assetDigestTimestampMs ::+                       forall msg msg' .+                         Data.ProtoLens.HasField "assetDigestTimestampMs" msg msg' =>+                         Lens.Family2.Lens msg msg'+                           (Data.ProtoLens.Field "assetDigestTimestampMs" msg)+                           (Data.ProtoLens.Field "assetDigestTimestampMs" msg')+assetDigestTimestampMs+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "assetDigestTimestampMs")++itemTemplatesTimestampMs ::+                         forall msg msg' .+                           Data.ProtoLens.HasField "itemTemplatesTimestampMs" msg msg' =>+                           Lens.Family2.Lens msg msg'+                             (Data.ProtoLens.Field "itemTemplatesTimestampMs" msg)+                             (Data.ProtoLens.Field "itemTemplatesTimestampMs" msg')+itemTemplatesTimestampMs+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "itemTemplatesTimestampMs")++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")
+ src/Proto/POGOProtos/Networking/Responses/DownloadSettingsResponse.hs view
@@ -0,0 +1,137 @@+{- This file was auto-generated from POGOProtos/Networking/Responses/DownloadSettingsResponse.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Responses.DownloadSettingsResponse+       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.Settings.GlobalSettings++data DownloadSettingsResponse = DownloadSettingsResponse{_DownloadSettingsResponse'error+                                                         :: Data.Text.Text,+                                                         _DownloadSettingsResponse'hash ::+                                                         Data.Text.Text,+                                                         _DownloadSettingsResponse'settings ::+                                                         Prelude.Maybe+                                                           Proto.POGOProtos.Settings.GlobalSettings.GlobalSettings}+                              deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "error" DownloadSettingsResponse+     = Data.Text.Text++instance Data.ProtoLens.HasField "error" DownloadSettingsResponse+         DownloadSettingsResponse where+        field _+          = Lens.Family2.Unchecked.lens _DownloadSettingsResponse'error+              (\ x__ y__ -> x__{_DownloadSettingsResponse'error = y__})++type instance Data.ProtoLens.Field "hash" DownloadSettingsResponse+     = Data.Text.Text++instance Data.ProtoLens.HasField "hash" DownloadSettingsResponse+         DownloadSettingsResponse where+        field _+          = Lens.Family2.Unchecked.lens _DownloadSettingsResponse'hash+              (\ x__ y__ -> x__{_DownloadSettingsResponse'hash = y__})++type instance+     Data.ProtoLens.Field "settings" DownloadSettingsResponse =+     Proto.POGOProtos.Settings.GlobalSettings.GlobalSettings++instance Data.ProtoLens.HasField "settings"+         DownloadSettingsResponse DownloadSettingsResponse where+        field _+          = (Prelude..) maybe'settings+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance+     Data.ProtoLens.Field "maybe'settings" DownloadSettingsResponse =+     Prelude.Maybe+       Proto.POGOProtos.Settings.GlobalSettings.GlobalSettings++instance Data.ProtoLens.HasField "maybe'settings"+         DownloadSettingsResponse DownloadSettingsResponse where+        field _+          = Lens.Family2.Unchecked.lens _DownloadSettingsResponse'settings+              (\ x__ y__ -> x__{_DownloadSettingsResponse'settings = y__})++instance Data.Default.Class.Default DownloadSettingsResponse where+        def+          = DownloadSettingsResponse{_DownloadSettingsResponse'error =+                                       Data.ProtoLens.fieldDefault,+                                     _DownloadSettingsResponse'hash = Data.ProtoLens.fieldDefault,+                                     _DownloadSettingsResponse'settings = Prelude.Nothing}++instance Data.ProtoLens.Message DownloadSettingsResponse where+        descriptor+          = let error__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "error"+                      (Data.ProtoLens.StringField ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional error)+                hash__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "hash"+                      (Data.ProtoLens.StringField ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional hash)+                settings__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "settings"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Settings.GlobalSettings.GlobalSettings)+                      (Data.ProtoLens.OptionalField maybe'settings)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, error__field_descriptor),+                    (Data.ProtoLens.Tag 2, hash__field_descriptor),+                    (Data.ProtoLens.Tag 3, settings__field_descriptor)])+                (Data.Map.fromList+                   [("error", error__field_descriptor),+                    ("hash", hash__field_descriptor),+                    ("settings", settings__field_descriptor)])++error ::+      forall msg msg' . Data.ProtoLens.HasField "error" msg msg' =>+        Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "error" msg)+          (Data.ProtoLens.Field "error" msg')+error+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "error")++hash ::+     forall msg msg' . Data.ProtoLens.HasField "hash" msg msg' =>+       Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "hash" msg)+         (Data.ProtoLens.Field "hash" msg')+hash+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "hash")++maybe'settings ::+               forall msg msg' .+                 Data.ProtoLens.HasField "maybe'settings" msg msg' =>+                 Lens.Family2.Lens msg msg'+                   (Data.ProtoLens.Field "maybe'settings" msg)+                   (Data.ProtoLens.Field "maybe'settings" msg')+maybe'settings+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "maybe'settings")++settings ::+         forall msg msg' . Data.ProtoLens.HasField "settings" msg msg' =>+           Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "settings" msg)+             (Data.ProtoLens.Field "settings" msg')+settings+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "settings")
+ src/Proto/POGOProtos/Networking/Responses/EchoResponse.hs view
@@ -0,0 +1,54 @@+{- This file was auto-generated from POGOProtos/Networking/Responses/EchoResponse.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Responses.EchoResponse 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 EchoResponse = EchoResponse{_EchoResponse'context ::+                                 Data.Text.Text}+                  deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "context" EchoResponse =+     Data.Text.Text++instance Data.ProtoLens.HasField "context" EchoResponse+         EchoResponse where+        field _+          = Lens.Family2.Unchecked.lens _EchoResponse'context+              (\ x__ y__ -> x__{_EchoResponse'context = y__})++instance Data.Default.Class.Default EchoResponse where+        def+          = EchoResponse{_EchoResponse'context = Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message EchoResponse where+        descriptor+          = let context__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "context"+                      (Data.ProtoLens.StringField ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional context)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, context__field_descriptor)])+                (Data.Map.fromList [("context", context__field_descriptor)])++context ::+        forall msg msg' . Data.ProtoLens.HasField "context" msg msg' =>+          Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "context" msg)+            (Data.ProtoLens.Field "context" msg')+context+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "context")
+ src/Proto/POGOProtos/Networking/Responses/EncounterResponse.hs view
@@ -0,0 +1,361 @@+{- This file was auto-generated from POGOProtos/Networking/Responses/EncounterResponse.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Responses.EncounterResponse+       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.Capture.CaptureProbability+import qualified Proto.POGOProtos.Map.Pokemon.WildPokemon++data EncounterResponse = EncounterResponse{_EncounterResponse'wildPokemon+                                           ::+                                           Prelude.Maybe+                                             Proto.POGOProtos.Map.Pokemon.WildPokemon.WildPokemon,+                                           _EncounterResponse'background ::+                                           EncounterResponse'Background,+                                           _EncounterResponse'status :: EncounterResponse'Status,+                                           _EncounterResponse'captureProbability ::+                                           Prelude.Maybe+                                             Proto.POGOProtos.Data.Capture.CaptureProbability.CaptureProbability}+                       deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "wildPokemon" EncounterResponse+     = Proto.POGOProtos.Map.Pokemon.WildPokemon.WildPokemon++instance Data.ProtoLens.HasField "wildPokemon" EncounterResponse+         EncounterResponse where+        field _+          = (Prelude..) maybe'wildPokemon+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance+     Data.ProtoLens.Field "maybe'wildPokemon" EncounterResponse =+     Prelude.Maybe Proto.POGOProtos.Map.Pokemon.WildPokemon.WildPokemon++instance Data.ProtoLens.HasField "maybe'wildPokemon"+         EncounterResponse EncounterResponse where+        field _+          = Lens.Family2.Unchecked.lens _EncounterResponse'wildPokemon+              (\ x__ y__ -> x__{_EncounterResponse'wildPokemon = y__})++type instance Data.ProtoLens.Field "background" EncounterResponse =+     EncounterResponse'Background++instance Data.ProtoLens.HasField "background" EncounterResponse+         EncounterResponse where+        field _+          = Lens.Family2.Unchecked.lens _EncounterResponse'background+              (\ x__ y__ -> x__{_EncounterResponse'background = y__})++type instance Data.ProtoLens.Field "status" EncounterResponse =+     EncounterResponse'Status++instance Data.ProtoLens.HasField "status" EncounterResponse+         EncounterResponse where+        field _+          = Lens.Family2.Unchecked.lens _EncounterResponse'status+              (\ x__ y__ -> x__{_EncounterResponse'status = y__})++type instance+     Data.ProtoLens.Field "captureProbability" EncounterResponse =+     Proto.POGOProtos.Data.Capture.CaptureProbability.CaptureProbability++instance Data.ProtoLens.HasField "captureProbability"+         EncounterResponse EncounterResponse where+        field _+          = (Prelude..) maybe'captureProbability+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance+     Data.ProtoLens.Field "maybe'captureProbability" EncounterResponse =+     Prelude.Maybe+       Proto.POGOProtos.Data.Capture.CaptureProbability.CaptureProbability++instance Data.ProtoLens.HasField "maybe'captureProbability"+         EncounterResponse EncounterResponse where+        field _+          = Lens.Family2.Unchecked.lens _EncounterResponse'captureProbability+              (\ x__ y__ -> x__{_EncounterResponse'captureProbability = y__})++instance Data.Default.Class.Default EncounterResponse where+        def+          = EncounterResponse{_EncounterResponse'wildPokemon =+                                Prelude.Nothing,+                              _EncounterResponse'background = Data.Default.Class.def,+                              _EncounterResponse'status = Data.Default.Class.def,+                              _EncounterResponse'captureProbability = Prelude.Nothing}++instance Data.ProtoLens.Message EncounterResponse where+        descriptor+          = let wildPokemon__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "wild_pokemon"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Map.Pokemon.WildPokemon.WildPokemon)+                      (Data.ProtoLens.OptionalField maybe'wildPokemon)+                background__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "background"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor EncounterResponse'Background)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional background)+                status__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "status"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor EncounterResponse'Status)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional status)+                captureProbability__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "capture_probability"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Data.Capture.CaptureProbability.CaptureProbability)+                      (Data.ProtoLens.OptionalField maybe'captureProbability)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, wildPokemon__field_descriptor),+                    (Data.ProtoLens.Tag 2, background__field_descriptor),+                    (Data.ProtoLens.Tag 3, status__field_descriptor),+                    (Data.ProtoLens.Tag 4, captureProbability__field_descriptor)])+                (Data.Map.fromList+                   [("wild_pokemon", wildPokemon__field_descriptor),+                    ("background", background__field_descriptor),+                    ("status", status__field_descriptor),+                    ("capture_probability", captureProbability__field_descriptor)])++data EncounterResponse'Background = EncounterResponse'PARK+                                  | EncounterResponse'DESERT+                                  deriving (Prelude.Show, Prelude.Eq)++instance Data.Default.Class.Default EncounterResponse'Background+         where+        def = EncounterResponse'PARK++instance Data.ProtoLens.FieldDefault EncounterResponse'Background+         where+        fieldDefault = EncounterResponse'PARK++instance Data.ProtoLens.MessageEnum EncounterResponse'Background+         where+        maybeToEnum 0 = Prelude.Just EncounterResponse'PARK+        maybeToEnum 1 = Prelude.Just EncounterResponse'DESERT+        maybeToEnum _ = Prelude.Nothing+        showEnum EncounterResponse'PARK = "PARK"+        showEnum EncounterResponse'DESERT = "DESERT"+        readEnum "PARK" = Prelude.Just EncounterResponse'PARK+        readEnum "DESERT" = Prelude.Just EncounterResponse'DESERT+        readEnum _ = Prelude.Nothing++instance Prelude.Enum EncounterResponse'Background where+        toEnum k__+          = Prelude.maybe+              (Prelude.error+                 ((Prelude.++) "toEnum: unknown value for enum Background: "+                    (Prelude.show k__)))+              Prelude.id+              (Data.ProtoLens.maybeToEnum k__)+        fromEnum EncounterResponse'PARK = 0+        fromEnum EncounterResponse'DESERT = 1+        succ EncounterResponse'DESERT+          = Prelude.error+              "Ident \"EncounterResponse'Background\".Ident \"succ\": bad argument Ident \"EncounterResponse'DESERT\". This value would be out of bounds."+        succ EncounterResponse'PARK = EncounterResponse'DESERT+        pred EncounterResponse'PARK+          = Prelude.error+              "Ident \"EncounterResponse'Background\".Ident \"pred\": bad argument Ident \"EncounterResponse'PARK\". This value would be out of bounds."+        pred EncounterResponse'DESERT = EncounterResponse'PARK+        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 EncounterResponse'Background where+        minBound = EncounterResponse'PARK+        maxBound = EncounterResponse'DESERT++data EncounterResponse'Status = EncounterResponse'ENCOUNTER_ERROR+                              | EncounterResponse'ENCOUNTER_SUCCESS+                              | EncounterResponse'ENCOUNTER_NOT_FOUND+                              | EncounterResponse'ENCOUNTER_CLOSED+                              | EncounterResponse'ENCOUNTER_POKEMON_FLED+                              | EncounterResponse'ENCOUNTER_NOT_IN_RANGE+                              | EncounterResponse'ENCOUNTER_ALREADY_HAPPENED+                              | EncounterResponse'POKEMON_INVENTORY_FULL+                              deriving (Prelude.Show, Prelude.Eq)++instance Data.Default.Class.Default EncounterResponse'Status where+        def = EncounterResponse'ENCOUNTER_ERROR++instance Data.ProtoLens.FieldDefault EncounterResponse'Status where+        fieldDefault = EncounterResponse'ENCOUNTER_ERROR++instance Data.ProtoLens.MessageEnum EncounterResponse'Status where+        maybeToEnum 0 = Prelude.Just EncounterResponse'ENCOUNTER_ERROR+        maybeToEnum 1 = Prelude.Just EncounterResponse'ENCOUNTER_SUCCESS+        maybeToEnum 2 = Prelude.Just EncounterResponse'ENCOUNTER_NOT_FOUND+        maybeToEnum 3 = Prelude.Just EncounterResponse'ENCOUNTER_CLOSED+        maybeToEnum 4+          = Prelude.Just EncounterResponse'ENCOUNTER_POKEMON_FLED+        maybeToEnum 5+          = Prelude.Just EncounterResponse'ENCOUNTER_NOT_IN_RANGE+        maybeToEnum 6+          = Prelude.Just EncounterResponse'ENCOUNTER_ALREADY_HAPPENED+        maybeToEnum 7+          = Prelude.Just EncounterResponse'POKEMON_INVENTORY_FULL+        maybeToEnum _ = Prelude.Nothing+        showEnum EncounterResponse'ENCOUNTER_ERROR = "ENCOUNTER_ERROR"+        showEnum EncounterResponse'ENCOUNTER_SUCCESS = "ENCOUNTER_SUCCESS"+        showEnum EncounterResponse'ENCOUNTER_NOT_FOUND+          = "ENCOUNTER_NOT_FOUND"+        showEnum EncounterResponse'ENCOUNTER_CLOSED = "ENCOUNTER_CLOSED"+        showEnum EncounterResponse'ENCOUNTER_POKEMON_FLED+          = "ENCOUNTER_POKEMON_FLED"+        showEnum EncounterResponse'ENCOUNTER_NOT_IN_RANGE+          = "ENCOUNTER_NOT_IN_RANGE"+        showEnum EncounterResponse'ENCOUNTER_ALREADY_HAPPENED+          = "ENCOUNTER_ALREADY_HAPPENED"+        showEnum EncounterResponse'POKEMON_INVENTORY_FULL+          = "POKEMON_INVENTORY_FULL"+        readEnum "ENCOUNTER_ERROR"+          = Prelude.Just EncounterResponse'ENCOUNTER_ERROR+        readEnum "ENCOUNTER_SUCCESS"+          = Prelude.Just EncounterResponse'ENCOUNTER_SUCCESS+        readEnum "ENCOUNTER_NOT_FOUND"+          = Prelude.Just EncounterResponse'ENCOUNTER_NOT_FOUND+        readEnum "ENCOUNTER_CLOSED"+          = Prelude.Just EncounterResponse'ENCOUNTER_CLOSED+        readEnum "ENCOUNTER_POKEMON_FLED"+          = Prelude.Just EncounterResponse'ENCOUNTER_POKEMON_FLED+        readEnum "ENCOUNTER_NOT_IN_RANGE"+          = Prelude.Just EncounterResponse'ENCOUNTER_NOT_IN_RANGE+        readEnum "ENCOUNTER_ALREADY_HAPPENED"+          = Prelude.Just EncounterResponse'ENCOUNTER_ALREADY_HAPPENED+        readEnum "POKEMON_INVENTORY_FULL"+          = Prelude.Just EncounterResponse'POKEMON_INVENTORY_FULL+        readEnum _ = Prelude.Nothing++instance Prelude.Enum EncounterResponse'Status where+        toEnum k__+          = Prelude.maybe+              (Prelude.error+                 ((Prelude.++) "toEnum: unknown value for enum Status: "+                    (Prelude.show k__)))+              Prelude.id+              (Data.ProtoLens.maybeToEnum k__)+        fromEnum EncounterResponse'ENCOUNTER_ERROR = 0+        fromEnum EncounterResponse'ENCOUNTER_SUCCESS = 1+        fromEnum EncounterResponse'ENCOUNTER_NOT_FOUND = 2+        fromEnum EncounterResponse'ENCOUNTER_CLOSED = 3+        fromEnum EncounterResponse'ENCOUNTER_POKEMON_FLED = 4+        fromEnum EncounterResponse'ENCOUNTER_NOT_IN_RANGE = 5+        fromEnum EncounterResponse'ENCOUNTER_ALREADY_HAPPENED = 6+        fromEnum EncounterResponse'POKEMON_INVENTORY_FULL = 7+        succ EncounterResponse'POKEMON_INVENTORY_FULL+          = Prelude.error+              "Ident \"EncounterResponse'Status\".Ident \"succ\": bad argument Ident \"EncounterResponse'POKEMON_INVENTORY_FULL\". This value would be out of bounds."+        succ EncounterResponse'ENCOUNTER_ERROR+          = EncounterResponse'ENCOUNTER_SUCCESS+        succ EncounterResponse'ENCOUNTER_SUCCESS+          = EncounterResponse'ENCOUNTER_NOT_FOUND+        succ EncounterResponse'ENCOUNTER_NOT_FOUND+          = EncounterResponse'ENCOUNTER_CLOSED+        succ EncounterResponse'ENCOUNTER_CLOSED+          = EncounterResponse'ENCOUNTER_POKEMON_FLED+        succ EncounterResponse'ENCOUNTER_POKEMON_FLED+          = EncounterResponse'ENCOUNTER_NOT_IN_RANGE+        succ EncounterResponse'ENCOUNTER_NOT_IN_RANGE+          = EncounterResponse'ENCOUNTER_ALREADY_HAPPENED+        succ EncounterResponse'ENCOUNTER_ALREADY_HAPPENED+          = EncounterResponse'POKEMON_INVENTORY_FULL+        pred EncounterResponse'ENCOUNTER_ERROR+          = Prelude.error+              "Ident \"EncounterResponse'Status\".Ident \"pred\": bad argument Ident \"EncounterResponse'ENCOUNTER_ERROR\". This value would be out of bounds."+        pred EncounterResponse'ENCOUNTER_SUCCESS+          = EncounterResponse'ENCOUNTER_ERROR+        pred EncounterResponse'ENCOUNTER_NOT_FOUND+          = EncounterResponse'ENCOUNTER_SUCCESS+        pred EncounterResponse'ENCOUNTER_CLOSED+          = EncounterResponse'ENCOUNTER_NOT_FOUND+        pred EncounterResponse'ENCOUNTER_POKEMON_FLED+          = EncounterResponse'ENCOUNTER_CLOSED+        pred EncounterResponse'ENCOUNTER_NOT_IN_RANGE+          = EncounterResponse'ENCOUNTER_POKEMON_FLED+        pred EncounterResponse'ENCOUNTER_ALREADY_HAPPENED+          = EncounterResponse'ENCOUNTER_NOT_IN_RANGE+        pred EncounterResponse'POKEMON_INVENTORY_FULL+          = EncounterResponse'ENCOUNTER_ALREADY_HAPPENED+        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 EncounterResponse'Status where+        minBound = EncounterResponse'ENCOUNTER_ERROR+        maxBound = EncounterResponse'POKEMON_INVENTORY_FULL++background ::+           forall msg msg' . Data.ProtoLens.HasField "background" msg msg' =>+             Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "background" msg)+               (Data.ProtoLens.Field "background" msg')+background+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "background")++captureProbability ::+                   forall msg msg' .+                     Data.ProtoLens.HasField "captureProbability" msg msg' =>+                     Lens.Family2.Lens msg msg'+                       (Data.ProtoLens.Field "captureProbability" msg)+                       (Data.ProtoLens.Field "captureProbability" msg')+captureProbability+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "captureProbability")++maybe'captureProbability ::+                         forall msg msg' .+                           Data.ProtoLens.HasField "maybe'captureProbability" msg msg' =>+                           Lens.Family2.Lens msg msg'+                             (Data.ProtoLens.Field "maybe'captureProbability" msg)+                             (Data.ProtoLens.Field "maybe'captureProbability" msg')+maybe'captureProbability+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "maybe'captureProbability")++maybe'wildPokemon ::+                  forall msg msg' .+                    Data.ProtoLens.HasField "maybe'wildPokemon" msg msg' =>+                    Lens.Family2.Lens msg msg'+                      (Data.ProtoLens.Field "maybe'wildPokemon" msg)+                      (Data.ProtoLens.Field "maybe'wildPokemon" msg')+maybe'wildPokemon+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "maybe'wildPokemon")++status ::+       forall msg msg' . Data.ProtoLens.HasField "status" msg msg' =>+         Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "status" msg)+           (Data.ProtoLens.Field "status" msg')+status+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "status")++wildPokemon ::+            forall msg msg' . Data.ProtoLens.HasField "wildPokemon" msg msg' =>+              Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "wildPokemon" msg)+                (Data.ProtoLens.Field "wildPokemon" msg')+wildPokemon+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "wildPokemon")
+ src/Proto/POGOProtos/Networking/Responses/EncounterTutorialCompleteResponse.hs view
@@ -0,0 +1,261 @@+{- This file was auto-generated from POGOProtos/Networking/Responses/EncounterTutorialCompleteResponse.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Responses.EncounterTutorialCompleteResponse+       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.Capture.CaptureAward+import qualified Proto.POGOProtos.Data.PokemonData++data EncounterTutorialCompleteResponse = EncounterTutorialCompleteResponse{_EncounterTutorialCompleteResponse'result+                                                                           ::+                                                                           EncounterTutorialCompleteResponse'Result,+                                                                           _EncounterTutorialCompleteResponse'pokemonData+                                                                           ::+                                                                           Prelude.Maybe+                                                                             Proto.POGOProtos.Data.PokemonData.PokemonData,+                                                                           _EncounterTutorialCompleteResponse'captureAward+                                                                           ::+                                                                           Prelude.Maybe+                                                                             Proto.POGOProtos.Data.Capture.CaptureAward.CaptureAward}+                                       deriving (Prelude.Show, Prelude.Eq)++type instance+     Data.ProtoLens.Field "result" EncounterTutorialCompleteResponse =+     EncounterTutorialCompleteResponse'Result++instance Data.ProtoLens.HasField "result"+         EncounterTutorialCompleteResponse EncounterTutorialCompleteResponse+         where+        field _+          = Lens.Family2.Unchecked.lens+              _EncounterTutorialCompleteResponse'result+              (\ x__ y__ -> x__{_EncounterTutorialCompleteResponse'result = y__})++type instance+     Data.ProtoLens.Field "pokemonData"+       EncounterTutorialCompleteResponse+     = Proto.POGOProtos.Data.PokemonData.PokemonData++instance Data.ProtoLens.HasField "pokemonData"+         EncounterTutorialCompleteResponse EncounterTutorialCompleteResponse+         where+        field _+          = (Prelude..) maybe'pokemonData+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance+     Data.ProtoLens.Field "maybe'pokemonData"+       EncounterTutorialCompleteResponse+     = Prelude.Maybe Proto.POGOProtos.Data.PokemonData.PokemonData++instance Data.ProtoLens.HasField "maybe'pokemonData"+         EncounterTutorialCompleteResponse EncounterTutorialCompleteResponse+         where+        field _+          = Lens.Family2.Unchecked.lens+              _EncounterTutorialCompleteResponse'pokemonData+              (\ x__ y__ ->+                 x__{_EncounterTutorialCompleteResponse'pokemonData = y__})++type instance+     Data.ProtoLens.Field "captureAward"+       EncounterTutorialCompleteResponse+     = Proto.POGOProtos.Data.Capture.CaptureAward.CaptureAward++instance Data.ProtoLens.HasField "captureAward"+         EncounterTutorialCompleteResponse EncounterTutorialCompleteResponse+         where+        field _+          = (Prelude..) maybe'captureAward+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance+     Data.ProtoLens.Field "maybe'captureAward"+       EncounterTutorialCompleteResponse+     =+     Prelude.Maybe+       Proto.POGOProtos.Data.Capture.CaptureAward.CaptureAward++instance Data.ProtoLens.HasField "maybe'captureAward"+         EncounterTutorialCompleteResponse EncounterTutorialCompleteResponse+         where+        field _+          = Lens.Family2.Unchecked.lens+              _EncounterTutorialCompleteResponse'captureAward+              (\ x__ y__ ->+                 x__{_EncounterTutorialCompleteResponse'captureAward = y__})++instance Data.Default.Class.Default+         EncounterTutorialCompleteResponse where+        def+          = EncounterTutorialCompleteResponse{_EncounterTutorialCompleteResponse'result+                                                = Data.Default.Class.def,+                                              _EncounterTutorialCompleteResponse'pokemonData =+                                                Prelude.Nothing,+                                              _EncounterTutorialCompleteResponse'captureAward =+                                                Prelude.Nothing}++instance Data.ProtoLens.Message EncounterTutorialCompleteResponse+         where+        descriptor+          = let result__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "result"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           EncounterTutorialCompleteResponse'Result)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional result)+                pokemonData__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "pokemon_data"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Data.PokemonData.PokemonData)+                      (Data.ProtoLens.OptionalField maybe'pokemonData)+                captureAward__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "capture_award"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Data.Capture.CaptureAward.CaptureAward)+                      (Data.ProtoLens.OptionalField maybe'captureAward)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, result__field_descriptor),+                    (Data.ProtoLens.Tag 2, pokemonData__field_descriptor),+                    (Data.ProtoLens.Tag 3, captureAward__field_descriptor)])+                (Data.Map.fromList+                   [("result", result__field_descriptor),+                    ("pokemon_data", pokemonData__field_descriptor),+                    ("capture_award", captureAward__field_descriptor)])++data EncounterTutorialCompleteResponse'Result = EncounterTutorialCompleteResponse'UNSET+                                              | EncounterTutorialCompleteResponse'SUCCESS+                                              | EncounterTutorialCompleteResponse'ERROR_INVALID_POKEMON+                                              deriving (Prelude.Show, Prelude.Eq)++instance Data.Default.Class.Default+         EncounterTutorialCompleteResponse'Result where+        def = EncounterTutorialCompleteResponse'UNSET++instance Data.ProtoLens.FieldDefault+         EncounterTutorialCompleteResponse'Result where+        fieldDefault = EncounterTutorialCompleteResponse'UNSET++instance Data.ProtoLens.MessageEnum+         EncounterTutorialCompleteResponse'Result where+        maybeToEnum 0+          = Prelude.Just EncounterTutorialCompleteResponse'UNSET+        maybeToEnum 1+          = Prelude.Just EncounterTutorialCompleteResponse'SUCCESS+        maybeToEnum 2+          = Prelude.Just+              EncounterTutorialCompleteResponse'ERROR_INVALID_POKEMON+        maybeToEnum _ = Prelude.Nothing+        showEnum EncounterTutorialCompleteResponse'UNSET = "UNSET"+        showEnum EncounterTutorialCompleteResponse'SUCCESS = "SUCCESS"+        showEnum EncounterTutorialCompleteResponse'ERROR_INVALID_POKEMON+          = "ERROR_INVALID_POKEMON"+        readEnum "UNSET"+          = Prelude.Just EncounterTutorialCompleteResponse'UNSET+        readEnum "SUCCESS"+          = Prelude.Just EncounterTutorialCompleteResponse'SUCCESS+        readEnum "ERROR_INVALID_POKEMON"+          = Prelude.Just+              EncounterTutorialCompleteResponse'ERROR_INVALID_POKEMON+        readEnum _ = Prelude.Nothing++instance Prelude.Enum EncounterTutorialCompleteResponse'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 EncounterTutorialCompleteResponse'UNSET = 0+        fromEnum EncounterTutorialCompleteResponse'SUCCESS = 1+        fromEnum EncounterTutorialCompleteResponse'ERROR_INVALID_POKEMON+          = 2+        succ EncounterTutorialCompleteResponse'ERROR_INVALID_POKEMON+          = Prelude.error+              "Ident \"EncounterTutorialCompleteResponse'Result\".Ident \"succ\": bad argument Ident \"EncounterTutorialCompleteResponse'ERROR_INVALID_POKEMON\". This value would be out of bounds."+        succ EncounterTutorialCompleteResponse'UNSET+          = EncounterTutorialCompleteResponse'SUCCESS+        succ EncounterTutorialCompleteResponse'SUCCESS+          = EncounterTutorialCompleteResponse'ERROR_INVALID_POKEMON+        pred EncounterTutorialCompleteResponse'UNSET+          = Prelude.error+              "Ident \"EncounterTutorialCompleteResponse'Result\".Ident \"pred\": bad argument Ident \"EncounterTutorialCompleteResponse'UNSET\". This value would be out of bounds."+        pred EncounterTutorialCompleteResponse'SUCCESS+          = EncounterTutorialCompleteResponse'UNSET+        pred EncounterTutorialCompleteResponse'ERROR_INVALID_POKEMON+          = EncounterTutorialCompleteResponse'SUCCESS+        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 EncounterTutorialCompleteResponse'Result+         where+        minBound = EncounterTutorialCompleteResponse'UNSET+        maxBound = EncounterTutorialCompleteResponse'ERROR_INVALID_POKEMON++captureAward ::+             forall msg msg' .+               Data.ProtoLens.HasField "captureAward" msg msg' =>+               Lens.Family2.Lens msg msg'+                 (Data.ProtoLens.Field "captureAward" msg)+                 (Data.ProtoLens.Field "captureAward" msg')+captureAward+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "captureAward")++maybe'captureAward ::+                   forall msg msg' .+                     Data.ProtoLens.HasField "maybe'captureAward" msg msg' =>+                     Lens.Family2.Lens msg msg'+                       (Data.ProtoLens.Field "maybe'captureAward" msg)+                       (Data.ProtoLens.Field "maybe'captureAward" msg')+maybe'captureAward+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "maybe'captureAward")++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")
+ src/Proto/POGOProtos/Networking/Responses/EquipBadgeResponse.hs view
@@ -0,0 +1,177 @@+{- This file was auto-generated from POGOProtos/Networking/Responses/EquipBadgeResponse.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Responses.EquipBadgeResponse+       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.Player.EquippedBadge++data EquipBadgeResponse = EquipBadgeResponse{_EquipBadgeResponse'result+                                             :: EquipBadgeResponse'Result,+                                             _EquipBadgeResponse'equipped ::+                                             Prelude.Maybe+                                               Proto.POGOProtos.Data.Player.EquippedBadge.EquippedBadge}+                        deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "result" EquipBadgeResponse =+     EquipBadgeResponse'Result++instance Data.ProtoLens.HasField "result" EquipBadgeResponse+         EquipBadgeResponse where+        field _+          = Lens.Family2.Unchecked.lens _EquipBadgeResponse'result+              (\ x__ y__ -> x__{_EquipBadgeResponse'result = y__})++type instance Data.ProtoLens.Field "equipped" EquipBadgeResponse =+     Proto.POGOProtos.Data.Player.EquippedBadge.EquippedBadge++instance Data.ProtoLens.HasField "equipped" EquipBadgeResponse+         EquipBadgeResponse where+        field _+          = (Prelude..) maybe'equipped+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance+     Data.ProtoLens.Field "maybe'equipped" EquipBadgeResponse =+     Prelude.Maybe+       Proto.POGOProtos.Data.Player.EquippedBadge.EquippedBadge++instance Data.ProtoLens.HasField "maybe'equipped"+         EquipBadgeResponse EquipBadgeResponse where+        field _+          = Lens.Family2.Unchecked.lens _EquipBadgeResponse'equipped+              (\ x__ y__ -> x__{_EquipBadgeResponse'equipped = y__})++instance Data.Default.Class.Default EquipBadgeResponse where+        def+          = EquipBadgeResponse{_EquipBadgeResponse'result =+                                 Data.Default.Class.def,+                               _EquipBadgeResponse'equipped = Prelude.Nothing}++instance Data.ProtoLens.Message EquipBadgeResponse where+        descriptor+          = let result__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "result"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor EquipBadgeResponse'Result)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional result)+                equipped__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "equipped"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Data.Player.EquippedBadge.EquippedBadge)+                      (Data.ProtoLens.OptionalField maybe'equipped)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, result__field_descriptor),+                    (Data.ProtoLens.Tag 2, equipped__field_descriptor)])+                (Data.Map.fromList+                   [("result", result__field_descriptor),+                    ("equipped", equipped__field_descriptor)])++data EquipBadgeResponse'Result = EquipBadgeResponse'UNSET+                               | EquipBadgeResponse'SUCCESS+                               | EquipBadgeResponse'COOLDOWN_ACTIVE+                               | EquipBadgeResponse'NOT_QUALIFIED+                               deriving (Prelude.Show, Prelude.Eq)++instance Data.Default.Class.Default EquipBadgeResponse'Result where+        def = EquipBadgeResponse'UNSET++instance Data.ProtoLens.FieldDefault EquipBadgeResponse'Result+         where+        fieldDefault = EquipBadgeResponse'UNSET++instance Data.ProtoLens.MessageEnum EquipBadgeResponse'Result where+        maybeToEnum 0 = Prelude.Just EquipBadgeResponse'UNSET+        maybeToEnum 1 = Prelude.Just EquipBadgeResponse'SUCCESS+        maybeToEnum 2 = Prelude.Just EquipBadgeResponse'COOLDOWN_ACTIVE+        maybeToEnum 3 = Prelude.Just EquipBadgeResponse'NOT_QUALIFIED+        maybeToEnum _ = Prelude.Nothing+        showEnum EquipBadgeResponse'UNSET = "UNSET"+        showEnum EquipBadgeResponse'SUCCESS = "SUCCESS"+        showEnum EquipBadgeResponse'COOLDOWN_ACTIVE = "COOLDOWN_ACTIVE"+        showEnum EquipBadgeResponse'NOT_QUALIFIED = "NOT_QUALIFIED"+        readEnum "UNSET" = Prelude.Just EquipBadgeResponse'UNSET+        readEnum "SUCCESS" = Prelude.Just EquipBadgeResponse'SUCCESS+        readEnum "COOLDOWN_ACTIVE"+          = Prelude.Just EquipBadgeResponse'COOLDOWN_ACTIVE+        readEnum "NOT_QUALIFIED"+          = Prelude.Just EquipBadgeResponse'NOT_QUALIFIED+        readEnum _ = Prelude.Nothing++instance Prelude.Enum EquipBadgeResponse'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 EquipBadgeResponse'UNSET = 0+        fromEnum EquipBadgeResponse'SUCCESS = 1+        fromEnum EquipBadgeResponse'COOLDOWN_ACTIVE = 2+        fromEnum EquipBadgeResponse'NOT_QUALIFIED = 3+        succ EquipBadgeResponse'NOT_QUALIFIED+          = Prelude.error+              "Ident \"EquipBadgeResponse'Result\".Ident \"succ\": bad argument Ident \"EquipBadgeResponse'NOT_QUALIFIED\". This value would be out of bounds."+        succ EquipBadgeResponse'UNSET = EquipBadgeResponse'SUCCESS+        succ EquipBadgeResponse'SUCCESS+          = EquipBadgeResponse'COOLDOWN_ACTIVE+        succ EquipBadgeResponse'COOLDOWN_ACTIVE+          = EquipBadgeResponse'NOT_QUALIFIED+        pred EquipBadgeResponse'UNSET+          = Prelude.error+              "Ident \"EquipBadgeResponse'Result\".Ident \"pred\": bad argument Ident \"EquipBadgeResponse'UNSET\". This value would be out of bounds."+        pred EquipBadgeResponse'SUCCESS = EquipBadgeResponse'UNSET+        pred EquipBadgeResponse'COOLDOWN_ACTIVE+          = EquipBadgeResponse'SUCCESS+        pred EquipBadgeResponse'NOT_QUALIFIED+          = EquipBadgeResponse'COOLDOWN_ACTIVE+        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 EquipBadgeResponse'Result where+        minBound = EquipBadgeResponse'UNSET+        maxBound = EquipBadgeResponse'NOT_QUALIFIED++equipped ::+         forall msg msg' . Data.ProtoLens.HasField "equipped" msg msg' =>+           Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "equipped" msg)+             (Data.ProtoLens.Field "equipped" msg')+equipped+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "equipped")++maybe'equipped ::+               forall msg msg' .+                 Data.ProtoLens.HasField "maybe'equipped" msg msg' =>+                 Lens.Family2.Lens msg msg'+                   (Data.ProtoLens.Field "maybe'equipped" msg)+                   (Data.ProtoLens.Field "maybe'equipped" msg')+maybe'equipped+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "maybe'equipped")++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")
+ src/Proto/POGOProtos/Networking/Responses/EvolvePokemonResponse.hs view
@@ -0,0 +1,276 @@+{- This file was auto-generated from POGOProtos/Networking/Responses/EvolvePokemonResponse.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Responses.EvolvePokemonResponse+       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.PokemonData++data EvolvePokemonResponse = EvolvePokemonResponse{_EvolvePokemonResponse'result+                                                   :: EvolvePokemonResponse'Result,+                                                   _EvolvePokemonResponse'evolvedPokemonData ::+                                                   Prelude.Maybe+                                                     Proto.POGOProtos.Data.PokemonData.PokemonData,+                                                   _EvolvePokemonResponse'experienceAwarded ::+                                                   Data.Int.Int32,+                                                   _EvolvePokemonResponse'candyAwarded ::+                                                   Data.Int.Int32}+                           deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "result" EvolvePokemonResponse =+     EvolvePokemonResponse'Result++instance Data.ProtoLens.HasField "result" EvolvePokemonResponse+         EvolvePokemonResponse where+        field _+          = Lens.Family2.Unchecked.lens _EvolvePokemonResponse'result+              (\ x__ y__ -> x__{_EvolvePokemonResponse'result = y__})++type instance+     Data.ProtoLens.Field "evolvedPokemonData" EvolvePokemonResponse =+     Proto.POGOProtos.Data.PokemonData.PokemonData++instance Data.ProtoLens.HasField "evolvedPokemonData"+         EvolvePokemonResponse EvolvePokemonResponse where+        field _+          = (Prelude..) maybe'evolvedPokemonData+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance+     Data.ProtoLens.Field "maybe'evolvedPokemonData"+       EvolvePokemonResponse+     = Prelude.Maybe Proto.POGOProtos.Data.PokemonData.PokemonData++instance Data.ProtoLens.HasField "maybe'evolvedPokemonData"+         EvolvePokemonResponse EvolvePokemonResponse where+        field _+          = Lens.Family2.Unchecked.lens+              _EvolvePokemonResponse'evolvedPokemonData+              (\ x__ y__ -> x__{_EvolvePokemonResponse'evolvedPokemonData = y__})++type instance+     Data.ProtoLens.Field "experienceAwarded" EvolvePokemonResponse =+     Data.Int.Int32++instance Data.ProtoLens.HasField "experienceAwarded"+         EvolvePokemonResponse EvolvePokemonResponse where+        field _+          = Lens.Family2.Unchecked.lens+              _EvolvePokemonResponse'experienceAwarded+              (\ x__ y__ -> x__{_EvolvePokemonResponse'experienceAwarded = y__})++type instance+     Data.ProtoLens.Field "candyAwarded" EvolvePokemonResponse =+     Data.Int.Int32++instance Data.ProtoLens.HasField "candyAwarded"+         EvolvePokemonResponse EvolvePokemonResponse where+        field _+          = Lens.Family2.Unchecked.lens _EvolvePokemonResponse'candyAwarded+              (\ x__ y__ -> x__{_EvolvePokemonResponse'candyAwarded = y__})++instance Data.Default.Class.Default EvolvePokemonResponse where+        def+          = EvolvePokemonResponse{_EvolvePokemonResponse'result =+                                    Data.Default.Class.def,+                                  _EvolvePokemonResponse'evolvedPokemonData = Prelude.Nothing,+                                  _EvolvePokemonResponse'experienceAwarded =+                                    Data.ProtoLens.fieldDefault,+                                  _EvolvePokemonResponse'candyAwarded = Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message EvolvePokemonResponse where+        descriptor+          = let result__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "result"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor EvolvePokemonResponse'Result)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional result)+                evolvedPokemonData__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "evolved_pokemon_data"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Data.PokemonData.PokemonData)+                      (Data.ProtoLens.OptionalField maybe'evolvedPokemonData)+                experienceAwarded__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "experience_awarded"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         experienceAwarded)+                candyAwarded__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "candy_awarded"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional candyAwarded)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, result__field_descriptor),+                    (Data.ProtoLens.Tag 2, evolvedPokemonData__field_descriptor),+                    (Data.ProtoLens.Tag 3, experienceAwarded__field_descriptor),+                    (Data.ProtoLens.Tag 4, candyAwarded__field_descriptor)])+                (Data.Map.fromList+                   [("result", result__field_descriptor),+                    ("evolved_pokemon_data", evolvedPokemonData__field_descriptor),+                    ("experience_awarded", experienceAwarded__field_descriptor),+                    ("candy_awarded", candyAwarded__field_descriptor)])++data EvolvePokemonResponse'Result = EvolvePokemonResponse'UNSET+                                  | EvolvePokemonResponse'SUCCESS+                                  | EvolvePokemonResponse'FAILED_POKEMON_MISSING+                                  | EvolvePokemonResponse'FAILED_INSUFFICIENT_RESOURCES+                                  | EvolvePokemonResponse'FAILED_POKEMON_CANNOT_EVOLVE+                                  | EvolvePokemonResponse'FAILED_POKEMON_IS_DEPLOYED+                                  deriving (Prelude.Show, Prelude.Eq)++instance Data.Default.Class.Default EvolvePokemonResponse'Result+         where+        def = EvolvePokemonResponse'UNSET++instance Data.ProtoLens.FieldDefault EvolvePokemonResponse'Result+         where+        fieldDefault = EvolvePokemonResponse'UNSET++instance Data.ProtoLens.MessageEnum EvolvePokemonResponse'Result+         where+        maybeToEnum 0 = Prelude.Just EvolvePokemonResponse'UNSET+        maybeToEnum 1 = Prelude.Just EvolvePokemonResponse'SUCCESS+        maybeToEnum 2+          = Prelude.Just EvolvePokemonResponse'FAILED_POKEMON_MISSING+        maybeToEnum 3+          = Prelude.Just EvolvePokemonResponse'FAILED_INSUFFICIENT_RESOURCES+        maybeToEnum 4+          = Prelude.Just EvolvePokemonResponse'FAILED_POKEMON_CANNOT_EVOLVE+        maybeToEnum 5+          = Prelude.Just EvolvePokemonResponse'FAILED_POKEMON_IS_DEPLOYED+        maybeToEnum _ = Prelude.Nothing+        showEnum EvolvePokemonResponse'UNSET = "UNSET"+        showEnum EvolvePokemonResponse'SUCCESS = "SUCCESS"+        showEnum EvolvePokemonResponse'FAILED_POKEMON_MISSING+          = "FAILED_POKEMON_MISSING"+        showEnum EvolvePokemonResponse'FAILED_INSUFFICIENT_RESOURCES+          = "FAILED_INSUFFICIENT_RESOURCES"+        showEnum EvolvePokemonResponse'FAILED_POKEMON_CANNOT_EVOLVE+          = "FAILED_POKEMON_CANNOT_EVOLVE"+        showEnum EvolvePokemonResponse'FAILED_POKEMON_IS_DEPLOYED+          = "FAILED_POKEMON_IS_DEPLOYED"+        readEnum "UNSET" = Prelude.Just EvolvePokemonResponse'UNSET+        readEnum "SUCCESS" = Prelude.Just EvolvePokemonResponse'SUCCESS+        readEnum "FAILED_POKEMON_MISSING"+          = Prelude.Just EvolvePokemonResponse'FAILED_POKEMON_MISSING+        readEnum "FAILED_INSUFFICIENT_RESOURCES"+          = Prelude.Just EvolvePokemonResponse'FAILED_INSUFFICIENT_RESOURCES+        readEnum "FAILED_POKEMON_CANNOT_EVOLVE"+          = Prelude.Just EvolvePokemonResponse'FAILED_POKEMON_CANNOT_EVOLVE+        readEnum "FAILED_POKEMON_IS_DEPLOYED"+          = Prelude.Just EvolvePokemonResponse'FAILED_POKEMON_IS_DEPLOYED+        readEnum _ = Prelude.Nothing++instance Prelude.Enum EvolvePokemonResponse'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 EvolvePokemonResponse'UNSET = 0+        fromEnum EvolvePokemonResponse'SUCCESS = 1+        fromEnum EvolvePokemonResponse'FAILED_POKEMON_MISSING = 2+        fromEnum EvolvePokemonResponse'FAILED_INSUFFICIENT_RESOURCES = 3+        fromEnum EvolvePokemonResponse'FAILED_POKEMON_CANNOT_EVOLVE = 4+        fromEnum EvolvePokemonResponse'FAILED_POKEMON_IS_DEPLOYED = 5+        succ EvolvePokemonResponse'FAILED_POKEMON_IS_DEPLOYED+          = Prelude.error+              "Ident \"EvolvePokemonResponse'Result\".Ident \"succ\": bad argument Ident \"EvolvePokemonResponse'FAILED_POKEMON_IS_DEPLOYED\". This value would be out of bounds."+        succ EvolvePokemonResponse'UNSET = EvolvePokemonResponse'SUCCESS+        succ EvolvePokemonResponse'SUCCESS+          = EvolvePokemonResponse'FAILED_POKEMON_MISSING+        succ EvolvePokemonResponse'FAILED_POKEMON_MISSING+          = EvolvePokemonResponse'FAILED_INSUFFICIENT_RESOURCES+        succ EvolvePokemonResponse'FAILED_INSUFFICIENT_RESOURCES+          = EvolvePokemonResponse'FAILED_POKEMON_CANNOT_EVOLVE+        succ EvolvePokemonResponse'FAILED_POKEMON_CANNOT_EVOLVE+          = EvolvePokemonResponse'FAILED_POKEMON_IS_DEPLOYED+        pred EvolvePokemonResponse'UNSET+          = Prelude.error+              "Ident \"EvolvePokemonResponse'Result\".Ident \"pred\": bad argument Ident \"EvolvePokemonResponse'UNSET\". This value would be out of bounds."+        pred EvolvePokemonResponse'SUCCESS = EvolvePokemonResponse'UNSET+        pred EvolvePokemonResponse'FAILED_POKEMON_MISSING+          = EvolvePokemonResponse'SUCCESS+        pred EvolvePokemonResponse'FAILED_INSUFFICIENT_RESOURCES+          = EvolvePokemonResponse'FAILED_POKEMON_MISSING+        pred EvolvePokemonResponse'FAILED_POKEMON_CANNOT_EVOLVE+          = EvolvePokemonResponse'FAILED_INSUFFICIENT_RESOURCES+        pred EvolvePokemonResponse'FAILED_POKEMON_IS_DEPLOYED+          = EvolvePokemonResponse'FAILED_POKEMON_CANNOT_EVOLVE+        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 EvolvePokemonResponse'Result where+        minBound = EvolvePokemonResponse'UNSET+        maxBound = EvolvePokemonResponse'FAILED_POKEMON_IS_DEPLOYED++candyAwarded ::+             forall msg msg' .+               Data.ProtoLens.HasField "candyAwarded" msg msg' =>+               Lens.Family2.Lens msg msg'+                 (Data.ProtoLens.Field "candyAwarded" msg)+                 (Data.ProtoLens.Field "candyAwarded" msg')+candyAwarded+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "candyAwarded")++evolvedPokemonData ::+                   forall msg msg' .+                     Data.ProtoLens.HasField "evolvedPokemonData" msg msg' =>+                     Lens.Family2.Lens msg msg'+                       (Data.ProtoLens.Field "evolvedPokemonData" msg)+                       (Data.ProtoLens.Field "evolvedPokemonData" msg')+evolvedPokemonData+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "evolvedPokemonData")++experienceAwarded ::+                  forall msg msg' .+                    Data.ProtoLens.HasField "experienceAwarded" msg msg' =>+                    Lens.Family2.Lens msg msg'+                      (Data.ProtoLens.Field "experienceAwarded" msg)+                      (Data.ProtoLens.Field "experienceAwarded" msg')+experienceAwarded+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "experienceAwarded")++maybe'evolvedPokemonData ::+                         forall msg msg' .+                           Data.ProtoLens.HasField "maybe'evolvedPokemonData" msg msg' =>+                           Lens.Family2.Lens msg msg'+                             (Data.ProtoLens.Field "maybe'evolvedPokemonData" msg)+                             (Data.ProtoLens.Field "maybe'evolvedPokemonData" msg')+maybe'evolvedPokemonData+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "maybe'evolvedPokemonData")++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")
+ src/Proto/POGOProtos/Networking/Responses/FortDeployPokemonResponse.hs view
@@ -0,0 +1,369 @@+{- This file was auto-generated from POGOProtos/Networking/Responses/FortDeployPokemonResponse.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+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")
+ src/Proto/POGOProtos/Networking/Responses/FortDetailsResponse.hs view
@@ -0,0 +1,405 @@+{- This file was auto-generated from POGOProtos/Networking/Responses/FortDetailsResponse.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Responses.FortDetailsResponse+       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.PokemonData+import qualified Proto.POGOProtos.Enums.TeamColor+import qualified Proto.POGOProtos.Map.Fort.FortModifier+import qualified Proto.POGOProtos.Map.Fort.FortType++data FortDetailsResponse = FortDetailsResponse{_FortDetailsResponse'fortId+                                               :: Data.Text.Text,+                                               _FortDetailsResponse'teamColor ::+                                               Proto.POGOProtos.Enums.TeamColor.TeamColor,+                                               _FortDetailsResponse'pokemonData ::+                                               Prelude.Maybe+                                                 Proto.POGOProtos.Data.PokemonData.PokemonData,+                                               _FortDetailsResponse'name :: Data.Text.Text,+                                               _FortDetailsResponse'imageUrls :: [Data.Text.Text],+                                               _FortDetailsResponse'fp :: Data.Int.Int32,+                                               _FortDetailsResponse'stamina :: Data.Int.Int32,+                                               _FortDetailsResponse'maxStamina :: Data.Int.Int32,+                                               _FortDetailsResponse'type' ::+                                               Proto.POGOProtos.Map.Fort.FortType.FortType,+                                               _FortDetailsResponse'latitude :: Prelude.Double,+                                               _FortDetailsResponse'longitude :: Prelude.Double,+                                               _FortDetailsResponse'description :: Data.Text.Text,+                                               _FortDetailsResponse'modifiers ::+                                               [Proto.POGOProtos.Map.Fort.FortModifier.FortModifier]}+                         deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "fortId" FortDetailsResponse =+     Data.Text.Text++instance Data.ProtoLens.HasField "fortId" FortDetailsResponse+         FortDetailsResponse where+        field _+          = Lens.Family2.Unchecked.lens _FortDetailsResponse'fortId+              (\ x__ y__ -> x__{_FortDetailsResponse'fortId = y__})++type instance Data.ProtoLens.Field "teamColor" FortDetailsResponse+     = Proto.POGOProtos.Enums.TeamColor.TeamColor++instance Data.ProtoLens.HasField "teamColor" FortDetailsResponse+         FortDetailsResponse where+        field _+          = Lens.Family2.Unchecked.lens _FortDetailsResponse'teamColor+              (\ x__ y__ -> x__{_FortDetailsResponse'teamColor = y__})++type instance+     Data.ProtoLens.Field "pokemonData" FortDetailsResponse =+     Proto.POGOProtos.Data.PokemonData.PokemonData++instance Data.ProtoLens.HasField "pokemonData" FortDetailsResponse+         FortDetailsResponse where+        field _+          = (Prelude..) maybe'pokemonData+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance+     Data.ProtoLens.Field "maybe'pokemonData" FortDetailsResponse =+     Prelude.Maybe Proto.POGOProtos.Data.PokemonData.PokemonData++instance Data.ProtoLens.HasField "maybe'pokemonData"+         FortDetailsResponse FortDetailsResponse where+        field _+          = Lens.Family2.Unchecked.lens _FortDetailsResponse'pokemonData+              (\ x__ y__ -> x__{_FortDetailsResponse'pokemonData = y__})++type instance Data.ProtoLens.Field "name" FortDetailsResponse =+     Data.Text.Text++instance Data.ProtoLens.HasField "name" FortDetailsResponse+         FortDetailsResponse where+        field _+          = Lens.Family2.Unchecked.lens _FortDetailsResponse'name+              (\ x__ y__ -> x__{_FortDetailsResponse'name = y__})++type instance Data.ProtoLens.Field "imageUrls" FortDetailsResponse+     = [Data.Text.Text]++instance Data.ProtoLens.HasField "imageUrls" FortDetailsResponse+         FortDetailsResponse where+        field _+          = Lens.Family2.Unchecked.lens _FortDetailsResponse'imageUrls+              (\ x__ y__ -> x__{_FortDetailsResponse'imageUrls = y__})++type instance Data.ProtoLens.Field "fp" FortDetailsResponse =+     Data.Int.Int32++instance Data.ProtoLens.HasField "fp" FortDetailsResponse+         FortDetailsResponse where+        field _+          = Lens.Family2.Unchecked.lens _FortDetailsResponse'fp+              (\ x__ y__ -> x__{_FortDetailsResponse'fp = y__})++type instance Data.ProtoLens.Field "stamina" FortDetailsResponse =+     Data.Int.Int32++instance Data.ProtoLens.HasField "stamina" FortDetailsResponse+         FortDetailsResponse where+        field _+          = Lens.Family2.Unchecked.lens _FortDetailsResponse'stamina+              (\ x__ y__ -> x__{_FortDetailsResponse'stamina = y__})++type instance Data.ProtoLens.Field "maxStamina" FortDetailsResponse+     = Data.Int.Int32++instance Data.ProtoLens.HasField "maxStamina" FortDetailsResponse+         FortDetailsResponse where+        field _+          = Lens.Family2.Unchecked.lens _FortDetailsResponse'maxStamina+              (\ x__ y__ -> x__{_FortDetailsResponse'maxStamina = y__})++type instance Data.ProtoLens.Field "type'" FortDetailsResponse =+     Proto.POGOProtos.Map.Fort.FortType.FortType++instance Data.ProtoLens.HasField "type'" FortDetailsResponse+         FortDetailsResponse where+        field _+          = Lens.Family2.Unchecked.lens _FortDetailsResponse'type'+              (\ x__ y__ -> x__{_FortDetailsResponse'type' = y__})++type instance Data.ProtoLens.Field "latitude" FortDetailsResponse =+     Prelude.Double++instance Data.ProtoLens.HasField "latitude" FortDetailsResponse+         FortDetailsResponse where+        field _+          = Lens.Family2.Unchecked.lens _FortDetailsResponse'latitude+              (\ x__ y__ -> x__{_FortDetailsResponse'latitude = y__})++type instance Data.ProtoLens.Field "longitude" FortDetailsResponse+     = Prelude.Double++instance Data.ProtoLens.HasField "longitude" FortDetailsResponse+         FortDetailsResponse where+        field _+          = Lens.Family2.Unchecked.lens _FortDetailsResponse'longitude+              (\ x__ y__ -> x__{_FortDetailsResponse'longitude = y__})++type instance+     Data.ProtoLens.Field "description" FortDetailsResponse =+     Data.Text.Text++instance Data.ProtoLens.HasField "description" FortDetailsResponse+         FortDetailsResponse where+        field _+          = Lens.Family2.Unchecked.lens _FortDetailsResponse'description+              (\ x__ y__ -> x__{_FortDetailsResponse'description = y__})++type instance Data.ProtoLens.Field "modifiers" FortDetailsResponse+     = [Proto.POGOProtos.Map.Fort.FortModifier.FortModifier]++instance Data.ProtoLens.HasField "modifiers" FortDetailsResponse+         FortDetailsResponse where+        field _+          = Lens.Family2.Unchecked.lens _FortDetailsResponse'modifiers+              (\ x__ y__ -> x__{_FortDetailsResponse'modifiers = y__})++instance Data.Default.Class.Default FortDetailsResponse where+        def+          = FortDetailsResponse{_FortDetailsResponse'fortId =+                                  Data.ProtoLens.fieldDefault,+                                _FortDetailsResponse'teamColor = Data.Default.Class.def,+                                _FortDetailsResponse'pokemonData = Prelude.Nothing,+                                _FortDetailsResponse'name = Data.ProtoLens.fieldDefault,+                                _FortDetailsResponse'imageUrls = [],+                                _FortDetailsResponse'fp = Data.ProtoLens.fieldDefault,+                                _FortDetailsResponse'stamina = Data.ProtoLens.fieldDefault,+                                _FortDetailsResponse'maxStamina = Data.ProtoLens.fieldDefault,+                                _FortDetailsResponse'type' = Data.Default.Class.def,+                                _FortDetailsResponse'latitude = Data.ProtoLens.fieldDefault,+                                _FortDetailsResponse'longitude = Data.ProtoLens.fieldDefault,+                                _FortDetailsResponse'description = Data.ProtoLens.fieldDefault,+                                _FortDetailsResponse'modifiers = []}++instance Data.ProtoLens.Message FortDetailsResponse where+        descriptor+          = let fortId__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "fort_id"+                      (Data.ProtoLens.StringField ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional fortId)+                teamColor__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "team_color"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Enums.TeamColor.TeamColor)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional teamColor)+                pokemonData__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "pokemon_data"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Data.PokemonData.PokemonData)+                      (Data.ProtoLens.OptionalField maybe'pokemonData)+                name__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "name"+                      (Data.ProtoLens.StringField ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional name)+                imageUrls__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "image_urls"+                      (Data.ProtoLens.StringField ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked imageUrls)+                fp__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "fp"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional fp)+                stamina__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "stamina"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional stamina)+                maxStamina__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "max_stamina"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional maxStamina)+                type'__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "type"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Map.Fort.FortType.FortType)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional type')+                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)+                description__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "description"+                      (Data.ProtoLens.StringField ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional description)+                modifiers__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "modifiers"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Map.Fort.FortModifier.FortModifier)+                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked modifiers)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, fortId__field_descriptor),+                    (Data.ProtoLens.Tag 2, teamColor__field_descriptor),+                    (Data.ProtoLens.Tag 3, pokemonData__field_descriptor),+                    (Data.ProtoLens.Tag 4, name__field_descriptor),+                    (Data.ProtoLens.Tag 5, imageUrls__field_descriptor),+                    (Data.ProtoLens.Tag 6, fp__field_descriptor),+                    (Data.ProtoLens.Tag 7, stamina__field_descriptor),+                    (Data.ProtoLens.Tag 8, maxStamina__field_descriptor),+                    (Data.ProtoLens.Tag 9, type'__field_descriptor),+                    (Data.ProtoLens.Tag 10, latitude__field_descriptor),+                    (Data.ProtoLens.Tag 11, longitude__field_descriptor),+                    (Data.ProtoLens.Tag 12, description__field_descriptor),+                    (Data.ProtoLens.Tag 13, modifiers__field_descriptor)])+                (Data.Map.fromList+                   [("fort_id", fortId__field_descriptor),+                    ("team_color", teamColor__field_descriptor),+                    ("pokemon_data", pokemonData__field_descriptor),+                    ("name", name__field_descriptor),+                    ("image_urls", imageUrls__field_descriptor),+                    ("fp", fp__field_descriptor),+                    ("stamina", stamina__field_descriptor),+                    ("max_stamina", maxStamina__field_descriptor),+                    ("type", type'__field_descriptor),+                    ("latitude", latitude__field_descriptor),+                    ("longitude", longitude__field_descriptor),+                    ("description", description__field_descriptor),+                    ("modifiers", modifiers__field_descriptor)])++description ::+            forall msg msg' . Data.ProtoLens.HasField "description" msg msg' =>+              Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "description" msg)+                (Data.ProtoLens.Field "description" msg')+description+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "description")++fortId ::+       forall msg msg' . Data.ProtoLens.HasField "fortId" msg msg' =>+         Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "fortId" msg)+           (Data.ProtoLens.Field "fortId" msg')+fortId+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "fortId")++fp ::+   forall msg msg' . Data.ProtoLens.HasField "fp" msg msg' =>+     Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "fp" msg)+       (Data.ProtoLens.Field "fp" msg')+fp+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "fp")++imageUrls ::+          forall msg msg' . Data.ProtoLens.HasField "imageUrls" msg msg' =>+            Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "imageUrls" msg)+              (Data.ProtoLens.Field "imageUrls" msg')+imageUrls+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "imageUrls")++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")++maxStamina ::+           forall msg msg' . Data.ProtoLens.HasField "maxStamina" msg msg' =>+             Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "maxStamina" msg)+               (Data.ProtoLens.Field "maxStamina" msg')+maxStamina+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "maxStamina")++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")++modifiers ::+          forall msg msg' . Data.ProtoLens.HasField "modifiers" msg msg' =>+            Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "modifiers" msg)+              (Data.ProtoLens.Field "modifiers" msg')+modifiers+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "modifiers")++name ::+     forall msg msg' . Data.ProtoLens.HasField "name" msg msg' =>+       Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "name" msg)+         (Data.ProtoLens.Field "name" msg')+name+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "name")++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")++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")++teamColor ::+          forall msg msg' . Data.ProtoLens.HasField "teamColor" msg msg' =>+            Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "teamColor" msg)+              (Data.ProtoLens.Field "teamColor" msg')+teamColor+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "teamColor")++type' ::+      forall msg msg' . Data.ProtoLens.HasField "type'" msg msg' =>+        Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "type'" msg)+          (Data.ProtoLens.Field "type'" msg')+type'+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "type'")
+ src/Proto/POGOProtos/Networking/Responses/FortRecallPokemonResponse.hs view
@@ -0,0 +1,205 @@+{- This file was auto-generated from POGOProtos/Networking/Responses/FortRecallPokemonResponse.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Responses.FortRecallPokemonResponse+       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.Networking.Responses.FortDetailsResponse++data FortRecallPokemonResponse = FortRecallPokemonResponse{_FortRecallPokemonResponse'result+                                                           :: FortRecallPokemonResponse'Result,+                                                           _FortRecallPokemonResponse'fortDetails ::+                                                           Prelude.Maybe+                                                             Proto.POGOProtos.Networking.Responses.FortDetailsResponse.FortDetailsResponse}+                               deriving (Prelude.Show, Prelude.Eq)++type instance+     Data.ProtoLens.Field "result" FortRecallPokemonResponse =+     FortRecallPokemonResponse'Result++instance Data.ProtoLens.HasField "result" FortRecallPokemonResponse+         FortRecallPokemonResponse where+        field _+          = Lens.Family2.Unchecked.lens _FortRecallPokemonResponse'result+              (\ x__ y__ -> x__{_FortRecallPokemonResponse'result = y__})++type instance+     Data.ProtoLens.Field "fortDetails" FortRecallPokemonResponse =+     Proto.POGOProtos.Networking.Responses.FortDetailsResponse.FortDetailsResponse++instance Data.ProtoLens.HasField "fortDetails"+         FortRecallPokemonResponse FortRecallPokemonResponse where+        field _+          = (Prelude..) maybe'fortDetails+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance+     Data.ProtoLens.Field "maybe'fortDetails" FortRecallPokemonResponse+     =+     Prelude.Maybe+       Proto.POGOProtos.Networking.Responses.FortDetailsResponse.FortDetailsResponse++instance Data.ProtoLens.HasField "maybe'fortDetails"+         FortRecallPokemonResponse FortRecallPokemonResponse where+        field _+          = Lens.Family2.Unchecked.lens+              _FortRecallPokemonResponse'fortDetails+              (\ x__ y__ -> x__{_FortRecallPokemonResponse'fortDetails = y__})++instance Data.Default.Class.Default FortRecallPokemonResponse where+        def+          = FortRecallPokemonResponse{_FortRecallPokemonResponse'result =+                                        Data.Default.Class.def,+                                      _FortRecallPokemonResponse'fortDetails = Prelude.Nothing}++instance Data.ProtoLens.Message FortRecallPokemonResponse where+        descriptor+          = let result__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "result"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           FortRecallPokemonResponse'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)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, result__field_descriptor),+                    (Data.ProtoLens.Tag 2, fortDetails__field_descriptor)])+                (Data.Map.fromList+                   [("result", result__field_descriptor),+                    ("fort_details", fortDetails__field_descriptor)])++data FortRecallPokemonResponse'Result = FortRecallPokemonResponse'NO_RESULT_SET+                                      | FortRecallPokemonResponse'SUCCESS+                                      | FortRecallPokemonResponse'ERROR_NOT_IN_RANGE+                                      | FortRecallPokemonResponse'ERROR_POKEMON_NOT_ON_FORT+                                      | FortRecallPokemonResponse'ERROR_NO_PLAYER+                                      deriving (Prelude.Show, Prelude.Eq)++instance Data.Default.Class.Default+         FortRecallPokemonResponse'Result where+        def = FortRecallPokemonResponse'NO_RESULT_SET++instance Data.ProtoLens.FieldDefault+         FortRecallPokemonResponse'Result where+        fieldDefault = FortRecallPokemonResponse'NO_RESULT_SET++instance Data.ProtoLens.MessageEnum+         FortRecallPokemonResponse'Result where+        maybeToEnum 0+          = Prelude.Just FortRecallPokemonResponse'NO_RESULT_SET+        maybeToEnum 1 = Prelude.Just FortRecallPokemonResponse'SUCCESS+        maybeToEnum 2+          = Prelude.Just FortRecallPokemonResponse'ERROR_NOT_IN_RANGE+        maybeToEnum 3+          = Prelude.Just FortRecallPokemonResponse'ERROR_POKEMON_NOT_ON_FORT+        maybeToEnum 4+          = Prelude.Just FortRecallPokemonResponse'ERROR_NO_PLAYER+        maybeToEnum _ = Prelude.Nothing+        showEnum FortRecallPokemonResponse'NO_RESULT_SET = "NO_RESULT_SET"+        showEnum FortRecallPokemonResponse'SUCCESS = "SUCCESS"+        showEnum FortRecallPokemonResponse'ERROR_NOT_IN_RANGE+          = "ERROR_NOT_IN_RANGE"+        showEnum FortRecallPokemonResponse'ERROR_POKEMON_NOT_ON_FORT+          = "ERROR_POKEMON_NOT_ON_FORT"+        showEnum FortRecallPokemonResponse'ERROR_NO_PLAYER+          = "ERROR_NO_PLAYER"+        readEnum "NO_RESULT_SET"+          = Prelude.Just FortRecallPokemonResponse'NO_RESULT_SET+        readEnum "SUCCESS" = Prelude.Just FortRecallPokemonResponse'SUCCESS+        readEnum "ERROR_NOT_IN_RANGE"+          = Prelude.Just FortRecallPokemonResponse'ERROR_NOT_IN_RANGE+        readEnum "ERROR_POKEMON_NOT_ON_FORT"+          = Prelude.Just FortRecallPokemonResponse'ERROR_POKEMON_NOT_ON_FORT+        readEnum "ERROR_NO_PLAYER"+          = Prelude.Just FortRecallPokemonResponse'ERROR_NO_PLAYER+        readEnum _ = Prelude.Nothing++instance Prelude.Enum FortRecallPokemonResponse'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 FortRecallPokemonResponse'NO_RESULT_SET = 0+        fromEnum FortRecallPokemonResponse'SUCCESS = 1+        fromEnum FortRecallPokemonResponse'ERROR_NOT_IN_RANGE = 2+        fromEnum FortRecallPokemonResponse'ERROR_POKEMON_NOT_ON_FORT = 3+        fromEnum FortRecallPokemonResponse'ERROR_NO_PLAYER = 4+        succ FortRecallPokemonResponse'ERROR_NO_PLAYER+          = Prelude.error+              "Ident \"FortRecallPokemonResponse'Result\".Ident \"succ\": bad argument Ident \"FortRecallPokemonResponse'ERROR_NO_PLAYER\". This value would be out of bounds."+        succ FortRecallPokemonResponse'NO_RESULT_SET+          = FortRecallPokemonResponse'SUCCESS+        succ FortRecallPokemonResponse'SUCCESS+          = FortRecallPokemonResponse'ERROR_NOT_IN_RANGE+        succ FortRecallPokemonResponse'ERROR_NOT_IN_RANGE+          = FortRecallPokemonResponse'ERROR_POKEMON_NOT_ON_FORT+        succ FortRecallPokemonResponse'ERROR_POKEMON_NOT_ON_FORT+          = FortRecallPokemonResponse'ERROR_NO_PLAYER+        pred FortRecallPokemonResponse'NO_RESULT_SET+          = Prelude.error+              "Ident \"FortRecallPokemonResponse'Result\".Ident \"pred\": bad argument Ident \"FortRecallPokemonResponse'NO_RESULT_SET\". This value would be out of bounds."+        pred FortRecallPokemonResponse'SUCCESS+          = FortRecallPokemonResponse'NO_RESULT_SET+        pred FortRecallPokemonResponse'ERROR_NOT_IN_RANGE+          = FortRecallPokemonResponse'SUCCESS+        pred FortRecallPokemonResponse'ERROR_POKEMON_NOT_ON_FORT+          = FortRecallPokemonResponse'ERROR_NOT_IN_RANGE+        pred FortRecallPokemonResponse'ERROR_NO_PLAYER+          = FortRecallPokemonResponse'ERROR_POKEMON_NOT_ON_FORT+        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 FortRecallPokemonResponse'Result where+        minBound = FortRecallPokemonResponse'NO_RESULT_SET+        maxBound = FortRecallPokemonResponse'ERROR_NO_PLAYER++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")++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")++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")
+ src/Proto/POGOProtos/Networking/Responses/FortSearchResponse.hs view
@@ -0,0 +1,355 @@+{- This file was auto-generated from POGOProtos/Networking/Responses/FortSearchResponse.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Responses.FortSearchResponse+       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.PokemonData+import qualified Proto.POGOProtos.Inventory.Item.ItemAward++data FortSearchResponse = FortSearchResponse{_FortSearchResponse'result+                                             :: FortSearchResponse'Result,+                                             _FortSearchResponse'itemsAwarded ::+                                             [Proto.POGOProtos.Inventory.Item.ItemAward.ItemAward],+                                             _FortSearchResponse'gemsAwarded :: Data.Int.Int32,+                                             _FortSearchResponse'pokemonDataEgg ::+                                             Prelude.Maybe+                                               Proto.POGOProtos.Data.PokemonData.PokemonData,+                                             _FortSearchResponse'experienceAwarded ::+                                             Data.Int.Int32,+                                             _FortSearchResponse'cooldownCompleteTimestampMs ::+                                             Data.Int.Int64,+                                             _FortSearchResponse'chainHackSequenceNumber ::+                                             Data.Int.Int32}+                        deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "result" FortSearchResponse =+     FortSearchResponse'Result++instance Data.ProtoLens.HasField "result" FortSearchResponse+         FortSearchResponse where+        field _+          = Lens.Family2.Unchecked.lens _FortSearchResponse'result+              (\ x__ y__ -> x__{_FortSearchResponse'result = y__})++type instance+     Data.ProtoLens.Field "itemsAwarded" FortSearchResponse =+     [Proto.POGOProtos.Inventory.Item.ItemAward.ItemAward]++instance Data.ProtoLens.HasField "itemsAwarded" FortSearchResponse+         FortSearchResponse where+        field _+          = Lens.Family2.Unchecked.lens _FortSearchResponse'itemsAwarded+              (\ x__ y__ -> x__{_FortSearchResponse'itemsAwarded = y__})++type instance Data.ProtoLens.Field "gemsAwarded" FortSearchResponse+     = Data.Int.Int32++instance Data.ProtoLens.HasField "gemsAwarded" FortSearchResponse+         FortSearchResponse where+        field _+          = Lens.Family2.Unchecked.lens _FortSearchResponse'gemsAwarded+              (\ x__ y__ -> x__{_FortSearchResponse'gemsAwarded = y__})++type instance+     Data.ProtoLens.Field "pokemonDataEgg" FortSearchResponse =+     Proto.POGOProtos.Data.PokemonData.PokemonData++instance Data.ProtoLens.HasField "pokemonDataEgg"+         FortSearchResponse FortSearchResponse where+        field _+          = (Prelude..) maybe'pokemonDataEgg+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance+     Data.ProtoLens.Field "maybe'pokemonDataEgg" FortSearchResponse =+     Prelude.Maybe Proto.POGOProtos.Data.PokemonData.PokemonData++instance Data.ProtoLens.HasField "maybe'pokemonDataEgg"+         FortSearchResponse FortSearchResponse where+        field _+          = Lens.Family2.Unchecked.lens _FortSearchResponse'pokemonDataEgg+              (\ x__ y__ -> x__{_FortSearchResponse'pokemonDataEgg = y__})++type instance+     Data.ProtoLens.Field "experienceAwarded" FortSearchResponse =+     Data.Int.Int32++instance Data.ProtoLens.HasField "experienceAwarded"+         FortSearchResponse FortSearchResponse where+        field _+          = Lens.Family2.Unchecked.lens _FortSearchResponse'experienceAwarded+              (\ x__ y__ -> x__{_FortSearchResponse'experienceAwarded = y__})++type instance+     Data.ProtoLens.Field "cooldownCompleteTimestampMs"+       FortSearchResponse+     = Data.Int.Int64++instance Data.ProtoLens.HasField "cooldownCompleteTimestampMs"+         FortSearchResponse FortSearchResponse where+        field _+          = Lens.Family2.Unchecked.lens+              _FortSearchResponse'cooldownCompleteTimestampMs+              (\ x__ y__ ->+                 x__{_FortSearchResponse'cooldownCompleteTimestampMs = y__})++type instance+     Data.ProtoLens.Field "chainHackSequenceNumber" FortSearchResponse =+     Data.Int.Int32++instance Data.ProtoLens.HasField "chainHackSequenceNumber"+         FortSearchResponse FortSearchResponse where+        field _+          = Lens.Family2.Unchecked.lens+              _FortSearchResponse'chainHackSequenceNumber+              (\ x__ y__ ->+                 x__{_FortSearchResponse'chainHackSequenceNumber = y__})++instance Data.Default.Class.Default FortSearchResponse where+        def+          = FortSearchResponse{_FortSearchResponse'result =+                                 Data.Default.Class.def,+                               _FortSearchResponse'itemsAwarded = [],+                               _FortSearchResponse'gemsAwarded = Data.ProtoLens.fieldDefault,+                               _FortSearchResponse'pokemonDataEgg = Prelude.Nothing,+                               _FortSearchResponse'experienceAwarded =+                                 Data.ProtoLens.fieldDefault,+                               _FortSearchResponse'cooldownCompleteTimestampMs =+                                 Data.ProtoLens.fieldDefault,+                               _FortSearchResponse'chainHackSequenceNumber =+                                 Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message FortSearchResponse where+        descriptor+          = let result__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "result"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor FortSearchResponse'Result)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional result)+                itemsAwarded__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "items_awarded"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Inventory.Item.ItemAward.ItemAward)+                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked itemsAwarded)+                gemsAwarded__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "gems_awarded"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional gemsAwarded)+                pokemonDataEgg__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "pokemon_data_egg"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Data.PokemonData.PokemonData)+                      (Data.ProtoLens.OptionalField maybe'pokemonDataEgg)+                experienceAwarded__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "experience_awarded"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         experienceAwarded)+                cooldownCompleteTimestampMs__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "cooldown_complete_timestamp_ms"+                      (Data.ProtoLens.Int64Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         cooldownCompleteTimestampMs)+                chainHackSequenceNumber__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "chain_hack_sequence_number"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         chainHackSequenceNumber)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, result__field_descriptor),+                    (Data.ProtoLens.Tag 2, itemsAwarded__field_descriptor),+                    (Data.ProtoLens.Tag 3, gemsAwarded__field_descriptor),+                    (Data.ProtoLens.Tag 4, pokemonDataEgg__field_descriptor),+                    (Data.ProtoLens.Tag 5, experienceAwarded__field_descriptor),+                    (Data.ProtoLens.Tag 6,+                     cooldownCompleteTimestampMs__field_descriptor),+                    (Data.ProtoLens.Tag 7, chainHackSequenceNumber__field_descriptor)])+                (Data.Map.fromList+                   [("result", result__field_descriptor),+                    ("items_awarded", itemsAwarded__field_descriptor),+                    ("gems_awarded", gemsAwarded__field_descriptor),+                    ("pokemon_data_egg", pokemonDataEgg__field_descriptor),+                    ("experience_awarded", experienceAwarded__field_descriptor),+                    ("cooldown_complete_timestamp_ms",+                     cooldownCompleteTimestampMs__field_descriptor),+                    ("chain_hack_sequence_number",+                     chainHackSequenceNumber__field_descriptor)])++data FortSearchResponse'Result = FortSearchResponse'NO_RESULT_SET+                               | FortSearchResponse'SUCCESS+                               | FortSearchResponse'OUT_OF_RANGE+                               | FortSearchResponse'IN_COOLDOWN_PERIOD+                               | FortSearchResponse'INVENTORY_FULL+                               deriving (Prelude.Show, Prelude.Eq)++instance Data.Default.Class.Default FortSearchResponse'Result where+        def = FortSearchResponse'NO_RESULT_SET++instance Data.ProtoLens.FieldDefault FortSearchResponse'Result+         where+        fieldDefault = FortSearchResponse'NO_RESULT_SET++instance Data.ProtoLens.MessageEnum FortSearchResponse'Result where+        maybeToEnum 0 = Prelude.Just FortSearchResponse'NO_RESULT_SET+        maybeToEnum 1 = Prelude.Just FortSearchResponse'SUCCESS+        maybeToEnum 2 = Prelude.Just FortSearchResponse'OUT_OF_RANGE+        maybeToEnum 3 = Prelude.Just FortSearchResponse'IN_COOLDOWN_PERIOD+        maybeToEnum 4 = Prelude.Just FortSearchResponse'INVENTORY_FULL+        maybeToEnum _ = Prelude.Nothing+        showEnum FortSearchResponse'NO_RESULT_SET = "NO_RESULT_SET"+        showEnum FortSearchResponse'SUCCESS = "SUCCESS"+        showEnum FortSearchResponse'OUT_OF_RANGE = "OUT_OF_RANGE"+        showEnum FortSearchResponse'IN_COOLDOWN_PERIOD+          = "IN_COOLDOWN_PERIOD"+        showEnum FortSearchResponse'INVENTORY_FULL = "INVENTORY_FULL"+        readEnum "NO_RESULT_SET"+          = Prelude.Just FortSearchResponse'NO_RESULT_SET+        readEnum "SUCCESS" = Prelude.Just FortSearchResponse'SUCCESS+        readEnum "OUT_OF_RANGE"+          = Prelude.Just FortSearchResponse'OUT_OF_RANGE+        readEnum "IN_COOLDOWN_PERIOD"+          = Prelude.Just FortSearchResponse'IN_COOLDOWN_PERIOD+        readEnum "INVENTORY_FULL"+          = Prelude.Just FortSearchResponse'INVENTORY_FULL+        readEnum _ = Prelude.Nothing++instance Prelude.Enum FortSearchResponse'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 FortSearchResponse'NO_RESULT_SET = 0+        fromEnum FortSearchResponse'SUCCESS = 1+        fromEnum FortSearchResponse'OUT_OF_RANGE = 2+        fromEnum FortSearchResponse'IN_COOLDOWN_PERIOD = 3+        fromEnum FortSearchResponse'INVENTORY_FULL = 4+        succ FortSearchResponse'INVENTORY_FULL+          = Prelude.error+              "Ident \"FortSearchResponse'Result\".Ident \"succ\": bad argument Ident \"FortSearchResponse'INVENTORY_FULL\". This value would be out of bounds."+        succ FortSearchResponse'NO_RESULT_SET = FortSearchResponse'SUCCESS+        succ FortSearchResponse'SUCCESS = FortSearchResponse'OUT_OF_RANGE+        succ FortSearchResponse'OUT_OF_RANGE+          = FortSearchResponse'IN_COOLDOWN_PERIOD+        succ FortSearchResponse'IN_COOLDOWN_PERIOD+          = FortSearchResponse'INVENTORY_FULL+        pred FortSearchResponse'NO_RESULT_SET+          = Prelude.error+              "Ident \"FortSearchResponse'Result\".Ident \"pred\": bad argument Ident \"FortSearchResponse'NO_RESULT_SET\". This value would be out of bounds."+        pred FortSearchResponse'SUCCESS = FortSearchResponse'NO_RESULT_SET+        pred FortSearchResponse'OUT_OF_RANGE = FortSearchResponse'SUCCESS+        pred FortSearchResponse'IN_COOLDOWN_PERIOD+          = FortSearchResponse'OUT_OF_RANGE+        pred FortSearchResponse'INVENTORY_FULL+          = FortSearchResponse'IN_COOLDOWN_PERIOD+        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 FortSearchResponse'Result where+        minBound = FortSearchResponse'NO_RESULT_SET+        maxBound = FortSearchResponse'INVENTORY_FULL++chainHackSequenceNumber ::+                        forall msg msg' .+                          Data.ProtoLens.HasField "chainHackSequenceNumber" msg msg' =>+                          Lens.Family2.Lens msg msg'+                            (Data.ProtoLens.Field "chainHackSequenceNumber" msg)+                            (Data.ProtoLens.Field "chainHackSequenceNumber" msg')+chainHackSequenceNumber+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "chainHackSequenceNumber")++cooldownCompleteTimestampMs ::+                            forall msg msg' .+                              Data.ProtoLens.HasField "cooldownCompleteTimestampMs" msg msg' =>+                              Lens.Family2.Lens msg msg'+                                (Data.ProtoLens.Field "cooldownCompleteTimestampMs" msg)+                                (Data.ProtoLens.Field "cooldownCompleteTimestampMs" msg')+cooldownCompleteTimestampMs+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "cooldownCompleteTimestampMs")++experienceAwarded ::+                  forall msg msg' .+                    Data.ProtoLens.HasField "experienceAwarded" msg msg' =>+                    Lens.Family2.Lens msg msg'+                      (Data.ProtoLens.Field "experienceAwarded" msg)+                      (Data.ProtoLens.Field "experienceAwarded" msg')+experienceAwarded+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "experienceAwarded")++gemsAwarded ::+            forall msg msg' . Data.ProtoLens.HasField "gemsAwarded" msg msg' =>+              Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "gemsAwarded" msg)+                (Data.ProtoLens.Field "gemsAwarded" msg')+gemsAwarded+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "gemsAwarded")++itemsAwarded ::+             forall msg msg' .+               Data.ProtoLens.HasField "itemsAwarded" msg msg' =>+               Lens.Family2.Lens msg msg'+                 (Data.ProtoLens.Field "itemsAwarded" msg)+                 (Data.ProtoLens.Field "itemsAwarded" msg')+itemsAwarded+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "itemsAwarded")++maybe'pokemonDataEgg ::+                     forall msg msg' .+                       Data.ProtoLens.HasField "maybe'pokemonDataEgg" msg msg' =>+                       Lens.Family2.Lens msg msg'+                         (Data.ProtoLens.Field "maybe'pokemonDataEgg" msg)+                         (Data.ProtoLens.Field "maybe'pokemonDataEgg" msg')+maybe'pokemonDataEgg+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "maybe'pokemonDataEgg")++pokemonDataEgg ::+               forall msg msg' .+                 Data.ProtoLens.HasField "pokemonDataEgg" msg msg' =>+                 Lens.Family2.Lens msg msg'+                   (Data.ProtoLens.Field "pokemonDataEgg" msg)+                   (Data.ProtoLens.Field "pokemonDataEgg" msg')+pokemonDataEgg+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "pokemonDataEgg")++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")
+ src/Proto/POGOProtos/Networking/Responses/GetAssetDigestResponse.hs view
@@ -0,0 +1,88 @@+{- This file was auto-generated from POGOProtos/Networking/Responses/GetAssetDigestResponse.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Responses.GetAssetDigestResponse+       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.AssetDigestEntry++data GetAssetDigestResponse = GetAssetDigestResponse{_GetAssetDigestResponse'digest+                                                     ::+                                                     [Proto.POGOProtos.Data.AssetDigestEntry.AssetDigestEntry],+                                                     _GetAssetDigestResponse'timestampMs ::+                                                     Data.Word.Word64}+                            deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "digest" GetAssetDigestResponse+     = [Proto.POGOProtos.Data.AssetDigestEntry.AssetDigestEntry]++instance Data.ProtoLens.HasField "digest" GetAssetDigestResponse+         GetAssetDigestResponse where+        field _+          = Lens.Family2.Unchecked.lens _GetAssetDigestResponse'digest+              (\ x__ y__ -> x__{_GetAssetDigestResponse'digest = y__})++type instance+     Data.ProtoLens.Field "timestampMs" GetAssetDigestResponse =+     Data.Word.Word64++instance Data.ProtoLens.HasField "timestampMs"+         GetAssetDigestResponse GetAssetDigestResponse where+        field _+          = Lens.Family2.Unchecked.lens _GetAssetDigestResponse'timestampMs+              (\ x__ y__ -> x__{_GetAssetDigestResponse'timestampMs = y__})++instance Data.Default.Class.Default GetAssetDigestResponse where+        def+          = GetAssetDigestResponse{_GetAssetDigestResponse'digest = [],+                                   _GetAssetDigestResponse'timestampMs =+                                     Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message GetAssetDigestResponse where+        descriptor+          = let digest__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "digest"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Data.AssetDigestEntry.AssetDigestEntry)+                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked digest)+                timestampMs__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "timestamp_ms"+                      (Data.ProtoLens.UInt64Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional timestampMs)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, digest__field_descriptor),+                    (Data.ProtoLens.Tag 2, timestampMs__field_descriptor)])+                (Data.Map.fromList+                   [("digest", digest__field_descriptor),+                    ("timestamp_ms", timestampMs__field_descriptor)])++digest ::+       forall msg msg' . Data.ProtoLens.HasField "digest" msg msg' =>+         Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "digest" msg)+           (Data.ProtoLens.Field "digest" msg')+digest+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "digest")++timestampMs ::+            forall msg msg' . Data.ProtoLens.HasField "timestampMs" msg msg' =>+              Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "timestampMs" msg)+                (Data.ProtoLens.Field "timestampMs" msg')+timestampMs+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "timestampMs")
+ src/Proto/POGOProtos/Networking/Responses/GetDownloadUrlsResponse.hs view
@@ -0,0 +1,63 @@+{- This file was auto-generated from POGOProtos/Networking/Responses/GetDownloadUrlsResponse.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Responses.GetDownloadUrlsResponse+       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.DownloadUrlEntry++data GetDownloadUrlsResponse = GetDownloadUrlsResponse{_GetDownloadUrlsResponse'downloadUrls+                                                       ::+                                                       [Proto.POGOProtos.Data.DownloadUrlEntry.DownloadUrlEntry]}+                             deriving (Prelude.Show, Prelude.Eq)++type instance+     Data.ProtoLens.Field "downloadUrls" GetDownloadUrlsResponse =+     [Proto.POGOProtos.Data.DownloadUrlEntry.DownloadUrlEntry]++instance Data.ProtoLens.HasField "downloadUrls"+         GetDownloadUrlsResponse GetDownloadUrlsResponse where+        field _+          = Lens.Family2.Unchecked.lens _GetDownloadUrlsResponse'downloadUrls+              (\ x__ y__ -> x__{_GetDownloadUrlsResponse'downloadUrls = y__})++instance Data.Default.Class.Default GetDownloadUrlsResponse where+        def+          = GetDownloadUrlsResponse{_GetDownloadUrlsResponse'downloadUrls =+                                      []}++instance Data.ProtoLens.Message GetDownloadUrlsResponse where+        descriptor+          = let downloadUrls__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "download_urls"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Data.DownloadUrlEntry.DownloadUrlEntry)+                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked downloadUrls)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, downloadUrls__field_descriptor)])+                (Data.Map.fromList+                   [("download_urls", downloadUrls__field_descriptor)])++downloadUrls ::+             forall msg msg' .+               Data.ProtoLens.HasField "downloadUrls" msg msg' =>+               Lens.Family2.Lens msg msg'+                 (Data.ProtoLens.Field "downloadUrls" msg)+                 (Data.ProtoLens.Field "downloadUrls" msg')+downloadUrls+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "downloadUrls")
+ src/Proto/POGOProtos/Networking/Responses/GetGymDetailsResponse.hs view
@@ -0,0 +1,250 @@+{- This file was auto-generated from POGOProtos/Networking/Responses/GetGymDetailsResponse.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Responses.GetGymDetailsResponse+       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++data GetGymDetailsResponse = GetGymDetailsResponse{_GetGymDetailsResponse'gymState+                                                   ::+                                                   Prelude.Maybe+                                                     Proto.POGOProtos.Data.Gym.GymState.GymState,+                                                   _GetGymDetailsResponse'name :: Data.Text.Text,+                                                   _GetGymDetailsResponse'urls :: [Data.Text.Text],+                                                   _GetGymDetailsResponse'result ::+                                                   GetGymDetailsResponse'Result,+                                                   _GetGymDetailsResponse'description ::+                                                   Data.Text.Text}+                           deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "gymState" GetGymDetailsResponse+     = Proto.POGOProtos.Data.Gym.GymState.GymState++instance Data.ProtoLens.HasField "gymState" GetGymDetailsResponse+         GetGymDetailsResponse where+        field _+          = (Prelude..) maybe'gymState+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance+     Data.ProtoLens.Field "maybe'gymState" GetGymDetailsResponse =+     Prelude.Maybe Proto.POGOProtos.Data.Gym.GymState.GymState++instance Data.ProtoLens.HasField "maybe'gymState"+         GetGymDetailsResponse GetGymDetailsResponse where+        field _+          = Lens.Family2.Unchecked.lens _GetGymDetailsResponse'gymState+              (\ x__ y__ -> x__{_GetGymDetailsResponse'gymState = y__})++type instance Data.ProtoLens.Field "name" GetGymDetailsResponse =+     Data.Text.Text++instance Data.ProtoLens.HasField "name" GetGymDetailsResponse+         GetGymDetailsResponse where+        field _+          = Lens.Family2.Unchecked.lens _GetGymDetailsResponse'name+              (\ x__ y__ -> x__{_GetGymDetailsResponse'name = y__})++type instance Data.ProtoLens.Field "urls" GetGymDetailsResponse =+     [Data.Text.Text]++instance Data.ProtoLens.HasField "urls" GetGymDetailsResponse+         GetGymDetailsResponse where+        field _+          = Lens.Family2.Unchecked.lens _GetGymDetailsResponse'urls+              (\ x__ y__ -> x__{_GetGymDetailsResponse'urls = y__})++type instance Data.ProtoLens.Field "result" GetGymDetailsResponse =+     GetGymDetailsResponse'Result++instance Data.ProtoLens.HasField "result" GetGymDetailsResponse+         GetGymDetailsResponse where+        field _+          = Lens.Family2.Unchecked.lens _GetGymDetailsResponse'result+              (\ x__ y__ -> x__{_GetGymDetailsResponse'result = y__})++type instance+     Data.ProtoLens.Field "description" GetGymDetailsResponse =+     Data.Text.Text++instance Data.ProtoLens.HasField "description"+         GetGymDetailsResponse GetGymDetailsResponse where+        field _+          = Lens.Family2.Unchecked.lens _GetGymDetailsResponse'description+              (\ x__ y__ -> x__{_GetGymDetailsResponse'description = y__})++instance Data.Default.Class.Default GetGymDetailsResponse where+        def+          = GetGymDetailsResponse{_GetGymDetailsResponse'gymState =+                                    Prelude.Nothing,+                                  _GetGymDetailsResponse'name = Data.ProtoLens.fieldDefault,+                                  _GetGymDetailsResponse'urls = [],+                                  _GetGymDetailsResponse'result = Data.Default.Class.def,+                                  _GetGymDetailsResponse'description = Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message GetGymDetailsResponse where+        descriptor+          = let 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)+                name__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "name"+                      (Data.ProtoLens.StringField ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional name)+                urls__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "urls"+                      (Data.ProtoLens.StringField ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked urls)+                result__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "result"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor GetGymDetailsResponse'Result)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional result)+                description__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "description"+                      (Data.ProtoLens.StringField ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional description)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, gymState__field_descriptor),+                    (Data.ProtoLens.Tag 2, name__field_descriptor),+                    (Data.ProtoLens.Tag 3, urls__field_descriptor),+                    (Data.ProtoLens.Tag 4, result__field_descriptor),+                    (Data.ProtoLens.Tag 5, description__field_descriptor)])+                (Data.Map.fromList+                   [("gym_state", gymState__field_descriptor),+                    ("name", name__field_descriptor), ("urls", urls__field_descriptor),+                    ("result", result__field_descriptor),+                    ("description", description__field_descriptor)])++data GetGymDetailsResponse'Result = GetGymDetailsResponse'UNSET+                                  | GetGymDetailsResponse'SUCCESS+                                  | GetGymDetailsResponse'ERROR_NOT_IN_RANGE+                                  deriving (Prelude.Show, Prelude.Eq)++instance Data.Default.Class.Default GetGymDetailsResponse'Result+         where+        def = GetGymDetailsResponse'UNSET++instance Data.ProtoLens.FieldDefault GetGymDetailsResponse'Result+         where+        fieldDefault = GetGymDetailsResponse'UNSET++instance Data.ProtoLens.MessageEnum GetGymDetailsResponse'Result+         where+        maybeToEnum 0 = Prelude.Just GetGymDetailsResponse'UNSET+        maybeToEnum 1 = Prelude.Just GetGymDetailsResponse'SUCCESS+        maybeToEnum 2+          = Prelude.Just GetGymDetailsResponse'ERROR_NOT_IN_RANGE+        maybeToEnum _ = Prelude.Nothing+        showEnum GetGymDetailsResponse'UNSET = "UNSET"+        showEnum GetGymDetailsResponse'SUCCESS = "SUCCESS"+        showEnum GetGymDetailsResponse'ERROR_NOT_IN_RANGE+          = "ERROR_NOT_IN_RANGE"+        readEnum "UNSET" = Prelude.Just GetGymDetailsResponse'UNSET+        readEnum "SUCCESS" = Prelude.Just GetGymDetailsResponse'SUCCESS+        readEnum "ERROR_NOT_IN_RANGE"+          = Prelude.Just GetGymDetailsResponse'ERROR_NOT_IN_RANGE+        readEnum _ = Prelude.Nothing++instance Prelude.Enum GetGymDetailsResponse'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 GetGymDetailsResponse'UNSET = 0+        fromEnum GetGymDetailsResponse'SUCCESS = 1+        fromEnum GetGymDetailsResponse'ERROR_NOT_IN_RANGE = 2+        succ GetGymDetailsResponse'ERROR_NOT_IN_RANGE+          = Prelude.error+              "Ident \"GetGymDetailsResponse'Result\".Ident \"succ\": bad argument Ident \"GetGymDetailsResponse'ERROR_NOT_IN_RANGE\". This value would be out of bounds."+        succ GetGymDetailsResponse'UNSET = GetGymDetailsResponse'SUCCESS+        succ GetGymDetailsResponse'SUCCESS+          = GetGymDetailsResponse'ERROR_NOT_IN_RANGE+        pred GetGymDetailsResponse'UNSET+          = Prelude.error+              "Ident \"GetGymDetailsResponse'Result\".Ident \"pred\": bad argument Ident \"GetGymDetailsResponse'UNSET\". This value would be out of bounds."+        pred GetGymDetailsResponse'SUCCESS = GetGymDetailsResponse'UNSET+        pred GetGymDetailsResponse'ERROR_NOT_IN_RANGE+          = GetGymDetailsResponse'SUCCESS+        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 GetGymDetailsResponse'Result where+        minBound = GetGymDetailsResponse'UNSET+        maxBound = GetGymDetailsResponse'ERROR_NOT_IN_RANGE++description ::+            forall msg msg' . Data.ProtoLens.HasField "description" msg msg' =>+              Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "description" msg)+                (Data.ProtoLens.Field "description" msg')+description+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "description")++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'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")++name ::+     forall msg msg' . Data.ProtoLens.HasField "name" msg msg' =>+       Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "name" msg)+         (Data.ProtoLens.Field "name" msg')+name+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "name")++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")++urls ::+     forall msg msg' . Data.ProtoLens.HasField "urls" msg msg' =>+       Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "urls" msg)+         (Data.ProtoLens.Field "urls" msg')+urls+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "urls")
+ src/Proto/POGOProtos/Networking/Responses/GetHatchedEggsResponse.hs view
@@ -0,0 +1,181 @@+{- This file was auto-generated from POGOProtos/Networking/Responses/GetHatchedEggsResponse.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Responses.GetHatchedEggsResponse+       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 GetHatchedEggsResponse = GetHatchedEggsResponse{_GetHatchedEggsResponse'success+                                                     :: Prelude.Bool,+                                                     _GetHatchedEggsResponse'pokemonId ::+                                                     [Data.Word.Word64],+                                                     _GetHatchedEggsResponse'experienceAwarded ::+                                                     [Data.Int.Int32],+                                                     _GetHatchedEggsResponse'candyAwarded ::+                                                     [Data.Int.Int32],+                                                     _GetHatchedEggsResponse'stardustAwarded ::+                                                     [Data.Int.Int32]}+                            deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "success" GetHatchedEggsResponse+     = Prelude.Bool++instance Data.ProtoLens.HasField "success" GetHatchedEggsResponse+         GetHatchedEggsResponse where+        field _+          = Lens.Family2.Unchecked.lens _GetHatchedEggsResponse'success+              (\ x__ y__ -> x__{_GetHatchedEggsResponse'success = y__})++type instance+     Data.ProtoLens.Field "pokemonId" GetHatchedEggsResponse =+     [Data.Word.Word64]++instance Data.ProtoLens.HasField "pokemonId" GetHatchedEggsResponse+         GetHatchedEggsResponse where+        field _+          = Lens.Family2.Unchecked.lens _GetHatchedEggsResponse'pokemonId+              (\ x__ y__ -> x__{_GetHatchedEggsResponse'pokemonId = y__})++type instance+     Data.ProtoLens.Field "experienceAwarded" GetHatchedEggsResponse =+     [Data.Int.Int32]++instance Data.ProtoLens.HasField "experienceAwarded"+         GetHatchedEggsResponse GetHatchedEggsResponse where+        field _+          = Lens.Family2.Unchecked.lens+              _GetHatchedEggsResponse'experienceAwarded+              (\ x__ y__ -> x__{_GetHatchedEggsResponse'experienceAwarded = y__})++type instance+     Data.ProtoLens.Field "candyAwarded" GetHatchedEggsResponse =+     [Data.Int.Int32]++instance Data.ProtoLens.HasField "candyAwarded"+         GetHatchedEggsResponse GetHatchedEggsResponse where+        field _+          = Lens.Family2.Unchecked.lens _GetHatchedEggsResponse'candyAwarded+              (\ x__ y__ -> x__{_GetHatchedEggsResponse'candyAwarded = y__})++type instance+     Data.ProtoLens.Field "stardustAwarded" GetHatchedEggsResponse =+     [Data.Int.Int32]++instance Data.ProtoLens.HasField "stardustAwarded"+         GetHatchedEggsResponse GetHatchedEggsResponse where+        field _+          = Lens.Family2.Unchecked.lens+              _GetHatchedEggsResponse'stardustAwarded+              (\ x__ y__ -> x__{_GetHatchedEggsResponse'stardustAwarded = y__})++instance Data.Default.Class.Default GetHatchedEggsResponse where+        def+          = GetHatchedEggsResponse{_GetHatchedEggsResponse'success =+                                     Data.ProtoLens.fieldDefault,+                                   _GetHatchedEggsResponse'pokemonId = [],+                                   _GetHatchedEggsResponse'experienceAwarded = [],+                                   _GetHatchedEggsResponse'candyAwarded = [],+                                   _GetHatchedEggsResponse'stardustAwarded = []}++instance Data.ProtoLens.Message GetHatchedEggsResponse where+        descriptor+          = let success__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "success"+                      (Data.ProtoLens.BoolField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional success)+                pokemonId__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "pokemon_id"+                      (Data.ProtoLens.Fixed64Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)+                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Packed pokemonId)+                experienceAwarded__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "experience_awarded"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked+                         experienceAwarded)+                candyAwarded__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "candy_awarded"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked candyAwarded)+                stardustAwarded__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "stardust_awarded"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked+                         stardustAwarded)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, success__field_descriptor),+                    (Data.ProtoLens.Tag 2, pokemonId__field_descriptor),+                    (Data.ProtoLens.Tag 3, experienceAwarded__field_descriptor),+                    (Data.ProtoLens.Tag 4, candyAwarded__field_descriptor),+                    (Data.ProtoLens.Tag 5, stardustAwarded__field_descriptor)])+                (Data.Map.fromList+                   [("success", success__field_descriptor),+                    ("pokemon_id", pokemonId__field_descriptor),+                    ("experience_awarded", experienceAwarded__field_descriptor),+                    ("candy_awarded", candyAwarded__field_descriptor),+                    ("stardust_awarded", stardustAwarded__field_descriptor)])++candyAwarded ::+             forall msg msg' .+               Data.ProtoLens.HasField "candyAwarded" msg msg' =>+               Lens.Family2.Lens msg msg'+                 (Data.ProtoLens.Field "candyAwarded" msg)+                 (Data.ProtoLens.Field "candyAwarded" msg')+candyAwarded+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "candyAwarded")++experienceAwarded ::+                  forall msg msg' .+                    Data.ProtoLens.HasField "experienceAwarded" msg msg' =>+                    Lens.Family2.Lens msg msg'+                      (Data.ProtoLens.Field "experienceAwarded" msg)+                      (Data.ProtoLens.Field "experienceAwarded" msg')+experienceAwarded+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "experienceAwarded")++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")++stardustAwarded ::+                forall msg msg' .+                  Data.ProtoLens.HasField "stardustAwarded" msg msg' =>+                  Lens.Family2.Lens msg msg'+                    (Data.ProtoLens.Field "stardustAwarded" msg)+                    (Data.ProtoLens.Field "stardustAwarded" msg')+stardustAwarded+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "stardustAwarded")++success ::+        forall msg msg' . Data.ProtoLens.HasField "success" msg msg' =>+          Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "success" msg)+            (Data.ProtoLens.Field "success" msg')+success+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "success")
+ src/Proto/POGOProtos/Networking/Responses/GetIncensePokemonResponse.hs view
@@ -0,0 +1,325 @@+{- This file was auto-generated from POGOProtos/Networking/Responses/GetIncensePokemonResponse.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+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")
+ src/Proto/POGOProtos/Networking/Responses/GetInventoryResponse.hs view
@@ -0,0 +1,113 @@+{- This file was auto-generated from POGOProtos/Networking/Responses/GetInventoryResponse.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Responses.GetInventoryResponse+       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.Inventory.InventoryDelta++data GetInventoryResponse = GetInventoryResponse{_GetInventoryResponse'success+                                                 :: Prelude.Bool,+                                                 _GetInventoryResponse'inventoryDelta ::+                                                 Prelude.Maybe+                                                   Proto.POGOProtos.Inventory.InventoryDelta.InventoryDelta}+                          deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "success" GetInventoryResponse =+     Prelude.Bool++instance Data.ProtoLens.HasField "success" GetInventoryResponse+         GetInventoryResponse where+        field _+          = Lens.Family2.Unchecked.lens _GetInventoryResponse'success+              (\ x__ y__ -> x__{_GetInventoryResponse'success = y__})++type instance+     Data.ProtoLens.Field "inventoryDelta" GetInventoryResponse =+     Proto.POGOProtos.Inventory.InventoryDelta.InventoryDelta++instance Data.ProtoLens.HasField "inventoryDelta"+         GetInventoryResponse GetInventoryResponse where+        field _+          = (Prelude..) maybe'inventoryDelta+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance+     Data.ProtoLens.Field "maybe'inventoryDelta" GetInventoryResponse =+     Prelude.Maybe+       Proto.POGOProtos.Inventory.InventoryDelta.InventoryDelta++instance Data.ProtoLens.HasField "maybe'inventoryDelta"+         GetInventoryResponse GetInventoryResponse where+        field _+          = Lens.Family2.Unchecked.lens _GetInventoryResponse'inventoryDelta+              (\ x__ y__ -> x__{_GetInventoryResponse'inventoryDelta = y__})++instance Data.Default.Class.Default GetInventoryResponse where+        def+          = GetInventoryResponse{_GetInventoryResponse'success =+                                   Data.ProtoLens.fieldDefault,+                                 _GetInventoryResponse'inventoryDelta = Prelude.Nothing}++instance Data.ProtoLens.Message GetInventoryResponse where+        descriptor+          = let success__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "success"+                      (Data.ProtoLens.BoolField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional success)+                inventoryDelta__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "inventory_delta"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Inventory.InventoryDelta.InventoryDelta)+                      (Data.ProtoLens.OptionalField maybe'inventoryDelta)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, success__field_descriptor),+                    (Data.ProtoLens.Tag 2, inventoryDelta__field_descriptor)])+                (Data.Map.fromList+                   [("success", success__field_descriptor),+                    ("inventory_delta", inventoryDelta__field_descriptor)])++inventoryDelta ::+               forall msg msg' .+                 Data.ProtoLens.HasField "inventoryDelta" msg msg' =>+                 Lens.Family2.Lens msg msg'+                   (Data.ProtoLens.Field "inventoryDelta" msg)+                   (Data.ProtoLens.Field "inventoryDelta" msg')+inventoryDelta+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "inventoryDelta")++maybe'inventoryDelta ::+                     forall msg msg' .+                       Data.ProtoLens.HasField "maybe'inventoryDelta" msg msg' =>+                       Lens.Family2.Lens msg msg'+                         (Data.ProtoLens.Field "maybe'inventoryDelta" msg)+                         (Data.ProtoLens.Field "maybe'inventoryDelta" msg')+maybe'inventoryDelta+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "maybe'inventoryDelta")++success ::+        forall msg msg' . Data.ProtoLens.HasField "success" msg msg' =>+          Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "success" msg)+            (Data.ProtoLens.Field "success" msg')+success+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "success")
+ src/Proto/POGOProtos/Networking/Responses/GetMapObjectsResponse.hs view
@@ -0,0 +1,87 @@+{- This file was auto-generated from POGOProtos/Networking/Responses/GetMapObjectsResponse.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Responses.GetMapObjectsResponse+       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.Map.MapCell+import qualified Proto.POGOProtos.Map.MapObjectsStatus++data GetMapObjectsResponse = GetMapObjectsResponse{_GetMapObjectsResponse'mapCells+                                                   :: [Proto.POGOProtos.Map.MapCell.MapCell],+                                                   _GetMapObjectsResponse'status ::+                                                   Proto.POGOProtos.Map.MapObjectsStatus.MapObjectsStatus}+                           deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "mapCells" GetMapObjectsResponse+     = [Proto.POGOProtos.Map.MapCell.MapCell]++instance Data.ProtoLens.HasField "mapCells" GetMapObjectsResponse+         GetMapObjectsResponse where+        field _+          = Lens.Family2.Unchecked.lens _GetMapObjectsResponse'mapCells+              (\ x__ y__ -> x__{_GetMapObjectsResponse'mapCells = y__})++type instance Data.ProtoLens.Field "status" GetMapObjectsResponse =+     Proto.POGOProtos.Map.MapObjectsStatus.MapObjectsStatus++instance Data.ProtoLens.HasField "status" GetMapObjectsResponse+         GetMapObjectsResponse where+        field _+          = Lens.Family2.Unchecked.lens _GetMapObjectsResponse'status+              (\ x__ y__ -> x__{_GetMapObjectsResponse'status = y__})++instance Data.Default.Class.Default GetMapObjectsResponse where+        def+          = GetMapObjectsResponse{_GetMapObjectsResponse'mapCells = [],+                                  _GetMapObjectsResponse'status = Data.Default.Class.def}++instance Data.ProtoLens.Message GetMapObjectsResponse where+        descriptor+          = let mapCells__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "map_cells"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Map.MapCell.MapCell)+                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked mapCells)+                status__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "status"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Map.MapObjectsStatus.MapObjectsStatus)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional status)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, mapCells__field_descriptor),+                    (Data.ProtoLens.Tag 2, status__field_descriptor)])+                (Data.Map.fromList+                   [("map_cells", mapCells__field_descriptor),+                    ("status", status__field_descriptor)])++mapCells ::+         forall msg msg' . Data.ProtoLens.HasField "mapCells" msg msg' =>+           Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "mapCells" msg)+             (Data.ProtoLens.Field "mapCells" msg')+mapCells+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "mapCells")++status ::+       forall msg msg' . Data.ProtoLens.HasField "status" msg msg' =>+         Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "status" msg)+           (Data.ProtoLens.Field "status" msg')+status+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "status")
+ src/Proto/POGOProtos/Networking/Responses/GetPlayerProfileResponse.hs view
@@ -0,0 +1,169 @@+{- This file was auto-generated from POGOProtos/Networking/Responses/GetPlayerProfileResponse.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Responses.GetPlayerProfileResponse+       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.PlayerBadge++data GetPlayerProfileResponse = GetPlayerProfileResponse{_GetPlayerProfileResponse'result+                                                         :: GetPlayerProfileResponse'Result,+                                                         _GetPlayerProfileResponse'startTime ::+                                                         Data.Int.Int64,+                                                         _GetPlayerProfileResponse'badges ::+                                                         [Proto.POGOProtos.Data.PlayerBadge.PlayerBadge]}+                              deriving (Prelude.Show, Prelude.Eq)++type instance+     Data.ProtoLens.Field "result" GetPlayerProfileResponse =+     GetPlayerProfileResponse'Result++instance Data.ProtoLens.HasField "result" GetPlayerProfileResponse+         GetPlayerProfileResponse where+        field _+          = Lens.Family2.Unchecked.lens _GetPlayerProfileResponse'result+              (\ x__ y__ -> x__{_GetPlayerProfileResponse'result = y__})++type instance+     Data.ProtoLens.Field "startTime" GetPlayerProfileResponse =+     Data.Int.Int64++instance Data.ProtoLens.HasField "startTime"+         GetPlayerProfileResponse GetPlayerProfileResponse where+        field _+          = Lens.Family2.Unchecked.lens _GetPlayerProfileResponse'startTime+              (\ x__ y__ -> x__{_GetPlayerProfileResponse'startTime = y__})++type instance+     Data.ProtoLens.Field "badges" GetPlayerProfileResponse =+     [Proto.POGOProtos.Data.PlayerBadge.PlayerBadge]++instance Data.ProtoLens.HasField "badges" GetPlayerProfileResponse+         GetPlayerProfileResponse where+        field _+          = Lens.Family2.Unchecked.lens _GetPlayerProfileResponse'badges+              (\ x__ y__ -> x__{_GetPlayerProfileResponse'badges = y__})++instance Data.Default.Class.Default GetPlayerProfileResponse where+        def+          = GetPlayerProfileResponse{_GetPlayerProfileResponse'result =+                                       Data.Default.Class.def,+                                     _GetPlayerProfileResponse'startTime =+                                       Data.ProtoLens.fieldDefault,+                                     _GetPlayerProfileResponse'badges = []}++instance Data.ProtoLens.Message GetPlayerProfileResponse where+        descriptor+          = let result__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "result"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor GetPlayerProfileResponse'Result)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional result)+                startTime__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "start_time"+                      (Data.ProtoLens.Int64Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional startTime)+                badges__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "badges"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Data.PlayerBadge.PlayerBadge)+                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked badges)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, result__field_descriptor),+                    (Data.ProtoLens.Tag 2, startTime__field_descriptor),+                    (Data.ProtoLens.Tag 3, badges__field_descriptor)])+                (Data.Map.fromList+                   [("result", result__field_descriptor),+                    ("start_time", startTime__field_descriptor),+                    ("badges", badges__field_descriptor)])++data GetPlayerProfileResponse'Result = GetPlayerProfileResponse'UNSET+                                     | GetPlayerProfileResponse'SUCCESS+                                     deriving (Prelude.Show, Prelude.Eq)++instance Data.Default.Class.Default GetPlayerProfileResponse'Result+         where+        def = GetPlayerProfileResponse'UNSET++instance Data.ProtoLens.FieldDefault+         GetPlayerProfileResponse'Result where+        fieldDefault = GetPlayerProfileResponse'UNSET++instance Data.ProtoLens.MessageEnum GetPlayerProfileResponse'Result+         where+        maybeToEnum 0 = Prelude.Just GetPlayerProfileResponse'UNSET+        maybeToEnum 1 = Prelude.Just GetPlayerProfileResponse'SUCCESS+        maybeToEnum _ = Prelude.Nothing+        showEnum GetPlayerProfileResponse'UNSET = "UNSET"+        showEnum GetPlayerProfileResponse'SUCCESS = "SUCCESS"+        readEnum "UNSET" = Prelude.Just GetPlayerProfileResponse'UNSET+        readEnum "SUCCESS" = Prelude.Just GetPlayerProfileResponse'SUCCESS+        readEnum _ = Prelude.Nothing++instance Prelude.Enum GetPlayerProfileResponse'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 GetPlayerProfileResponse'UNSET = 0+        fromEnum GetPlayerProfileResponse'SUCCESS = 1+        succ GetPlayerProfileResponse'SUCCESS+          = Prelude.error+              "Ident \"GetPlayerProfileResponse'Result\".Ident \"succ\": bad argument Ident \"GetPlayerProfileResponse'SUCCESS\". This value would be out of bounds."+        succ GetPlayerProfileResponse'UNSET+          = GetPlayerProfileResponse'SUCCESS+        pred GetPlayerProfileResponse'UNSET+          = Prelude.error+              "Ident \"GetPlayerProfileResponse'Result\".Ident \"pred\": bad argument Ident \"GetPlayerProfileResponse'UNSET\". This value would be out of bounds."+        pred GetPlayerProfileResponse'SUCCESS+          = GetPlayerProfileResponse'UNSET+        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 GetPlayerProfileResponse'Result where+        minBound = GetPlayerProfileResponse'UNSET+        maxBound = GetPlayerProfileResponse'SUCCESS++badges ::+       forall msg msg' . Data.ProtoLens.HasField "badges" msg msg' =>+         Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "badges" msg)+           (Data.ProtoLens.Field "badges" msg')+badges+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "badges")++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")++startTime ::+          forall msg msg' . Data.ProtoLens.HasField "startTime" msg msg' =>+            Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "startTime" msg)+              (Data.ProtoLens.Field "startTime" msg')+startTime+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "startTime")
+ src/Proto/POGOProtos/Networking/Responses/GetPlayerResponse.hs view
@@ -0,0 +1,108 @@+{- This file was auto-generated from POGOProtos/Networking/Responses/GetPlayerResponse.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Responses.GetPlayerResponse+       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.PlayerData++data GetPlayerResponse = GetPlayerResponse{_GetPlayerResponse'success+                                           :: Prelude.Bool,+                                           _GetPlayerResponse'playerData ::+                                           Prelude.Maybe+                                             Proto.POGOProtos.Data.PlayerData.PlayerData}+                       deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "success" GetPlayerResponse =+     Prelude.Bool++instance Data.ProtoLens.HasField "success" GetPlayerResponse+         GetPlayerResponse where+        field _+          = Lens.Family2.Unchecked.lens _GetPlayerResponse'success+              (\ x__ y__ -> x__{_GetPlayerResponse'success = y__})++type instance Data.ProtoLens.Field "playerData" GetPlayerResponse =+     Proto.POGOProtos.Data.PlayerData.PlayerData++instance Data.ProtoLens.HasField "playerData" GetPlayerResponse+         GetPlayerResponse where+        field _+          = (Prelude..) maybe'playerData+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance+     Data.ProtoLens.Field "maybe'playerData" GetPlayerResponse =+     Prelude.Maybe Proto.POGOProtos.Data.PlayerData.PlayerData++instance Data.ProtoLens.HasField "maybe'playerData"+         GetPlayerResponse GetPlayerResponse where+        field _+          = Lens.Family2.Unchecked.lens _GetPlayerResponse'playerData+              (\ x__ y__ -> x__{_GetPlayerResponse'playerData = y__})++instance Data.Default.Class.Default GetPlayerResponse where+        def+          = GetPlayerResponse{_GetPlayerResponse'success =+                                Data.ProtoLens.fieldDefault,+                              _GetPlayerResponse'playerData = Prelude.Nothing}++instance Data.ProtoLens.Message GetPlayerResponse where+        descriptor+          = let success__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "success"+                      (Data.ProtoLens.BoolField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional success)+                playerData__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "player_data"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Data.PlayerData.PlayerData)+                      (Data.ProtoLens.OptionalField maybe'playerData)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, success__field_descriptor),+                    (Data.ProtoLens.Tag 2, playerData__field_descriptor)])+                (Data.Map.fromList+                   [("success", success__field_descriptor),+                    ("player_data", playerData__field_descriptor)])++maybe'playerData ::+                 forall msg msg' .+                   Data.ProtoLens.HasField "maybe'playerData" msg msg' =>+                   Lens.Family2.Lens msg msg'+                     (Data.ProtoLens.Field "maybe'playerData" msg)+                     (Data.ProtoLens.Field "maybe'playerData" msg')+maybe'playerData+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "maybe'playerData")++playerData ::+           forall msg msg' . Data.ProtoLens.HasField "playerData" msg msg' =>+             Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "playerData" msg)+               (Data.ProtoLens.Field "playerData" msg')+playerData+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "playerData")++success ::+        forall msg msg' . Data.ProtoLens.HasField "success" msg msg' =>+          Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "success" msg)+            (Data.ProtoLens.Field "success" msg')+success+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "success")
+ src/Proto/POGOProtos/Networking/Responses/GetSuggestedCodenamesResponse.hs view
@@ -0,0 +1,90 @@+{- This file was auto-generated from POGOProtos/Networking/Responses/GetSuggestedCodenamesResponse.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Responses.GetSuggestedCodenamesResponse+       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 GetSuggestedCodenamesResponse = GetSuggestedCodenamesResponse{_GetSuggestedCodenamesResponse'codenames+                                                                   :: [Data.Text.Text],+                                                                   _GetSuggestedCodenamesResponse'success+                                                                   :: Prelude.Bool}+                                   deriving (Prelude.Show, Prelude.Eq)++type instance+     Data.ProtoLens.Field "codenames" GetSuggestedCodenamesResponse =+     [Data.Text.Text]++instance Data.ProtoLens.HasField "codenames"+         GetSuggestedCodenamesResponse GetSuggestedCodenamesResponse where+        field _+          = Lens.Family2.Unchecked.lens+              _GetSuggestedCodenamesResponse'codenames+              (\ x__ y__ -> x__{_GetSuggestedCodenamesResponse'codenames = y__})++type instance+     Data.ProtoLens.Field "success" GetSuggestedCodenamesResponse =+     Prelude.Bool++instance Data.ProtoLens.HasField "success"+         GetSuggestedCodenamesResponse GetSuggestedCodenamesResponse where+        field _+          = Lens.Family2.Unchecked.lens+              _GetSuggestedCodenamesResponse'success+              (\ x__ y__ -> x__{_GetSuggestedCodenamesResponse'success = y__})++instance Data.Default.Class.Default GetSuggestedCodenamesResponse+         where+        def+          = GetSuggestedCodenamesResponse{_GetSuggestedCodenamesResponse'codenames+                                            = [],+                                          _GetSuggestedCodenamesResponse'success =+                                            Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message GetSuggestedCodenamesResponse where+        descriptor+          = let codenames__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "codenames"+                      (Data.ProtoLens.StringField ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked codenames)+                success__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "success"+                      (Data.ProtoLens.BoolField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional success)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, codenames__field_descriptor),+                    (Data.ProtoLens.Tag 2, success__field_descriptor)])+                (Data.Map.fromList+                   [("codenames", codenames__field_descriptor),+                    ("success", success__field_descriptor)])++codenames ::+          forall msg msg' . Data.ProtoLens.HasField "codenames" msg msg' =>+            Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "codenames" msg)+              (Data.ProtoLens.Field "codenames" msg')+codenames+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "codenames")++success ::+        forall msg msg' . Data.ProtoLens.HasField "success" msg msg' =>+          Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "success" msg)+            (Data.ProtoLens.Field "success" msg')+success+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "success")
+ src/Proto/POGOProtos/Networking/Responses/IncenseEncounterResponse.hs view
@@ -0,0 +1,257 @@+{- This file was auto-generated from POGOProtos/Networking/Responses/IncenseEncounterResponse.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Responses.IncenseEncounterResponse+       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.Capture.CaptureProbability+import qualified Proto.POGOProtos.Data.PokemonData++data IncenseEncounterResponse = IncenseEncounterResponse{_IncenseEncounterResponse'result+                                                         :: IncenseEncounterResponse'Result,+                                                         _IncenseEncounterResponse'pokemonData ::+                                                         Prelude.Maybe+                                                           Proto.POGOProtos.Data.PokemonData.PokemonData,+                                                         _IncenseEncounterResponse'captureProbability+                                                         ::+                                                         Prelude.Maybe+                                                           Proto.POGOProtos.Data.Capture.CaptureProbability.CaptureProbability}+                              deriving (Prelude.Show, Prelude.Eq)++type instance+     Data.ProtoLens.Field "result" IncenseEncounterResponse =+     IncenseEncounterResponse'Result++instance Data.ProtoLens.HasField "result" IncenseEncounterResponse+         IncenseEncounterResponse where+        field _+          = Lens.Family2.Unchecked.lens _IncenseEncounterResponse'result+              (\ x__ y__ -> x__{_IncenseEncounterResponse'result = y__})++type instance+     Data.ProtoLens.Field "pokemonData" IncenseEncounterResponse =+     Proto.POGOProtos.Data.PokemonData.PokemonData++instance Data.ProtoLens.HasField "pokemonData"+         IncenseEncounterResponse IncenseEncounterResponse where+        field _+          = (Prelude..) maybe'pokemonData+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance+     Data.ProtoLens.Field "maybe'pokemonData" IncenseEncounterResponse =+     Prelude.Maybe Proto.POGOProtos.Data.PokemonData.PokemonData++instance Data.ProtoLens.HasField "maybe'pokemonData"+         IncenseEncounterResponse IncenseEncounterResponse where+        field _+          = Lens.Family2.Unchecked.lens _IncenseEncounterResponse'pokemonData+              (\ x__ y__ -> x__{_IncenseEncounterResponse'pokemonData = y__})++type instance+     Data.ProtoLens.Field "captureProbability" IncenseEncounterResponse+     =+     Proto.POGOProtos.Data.Capture.CaptureProbability.CaptureProbability++instance Data.ProtoLens.HasField "captureProbability"+         IncenseEncounterResponse IncenseEncounterResponse where+        field _+          = (Prelude..) maybe'captureProbability+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance+     Data.ProtoLens.Field "maybe'captureProbability"+       IncenseEncounterResponse+     =+     Prelude.Maybe+       Proto.POGOProtos.Data.Capture.CaptureProbability.CaptureProbability++instance Data.ProtoLens.HasField "maybe'captureProbability"+         IncenseEncounterResponse IncenseEncounterResponse where+        field _+          = Lens.Family2.Unchecked.lens+              _IncenseEncounterResponse'captureProbability+              (\ x__ y__ ->+                 x__{_IncenseEncounterResponse'captureProbability = y__})++instance Data.Default.Class.Default IncenseEncounterResponse where+        def+          = IncenseEncounterResponse{_IncenseEncounterResponse'result =+                                       Data.Default.Class.def,+                                     _IncenseEncounterResponse'pokemonData = Prelude.Nothing,+                                     _IncenseEncounterResponse'captureProbability = Prelude.Nothing}++instance Data.ProtoLens.Message IncenseEncounterResponse where+        descriptor+          = let result__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "result"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor IncenseEncounterResponse'Result)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional result)+                pokemonData__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "pokemon_data"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Data.PokemonData.PokemonData)+                      (Data.ProtoLens.OptionalField maybe'pokemonData)+                captureProbability__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "capture_probability"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Data.Capture.CaptureProbability.CaptureProbability)+                      (Data.ProtoLens.OptionalField maybe'captureProbability)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, result__field_descriptor),+                    (Data.ProtoLens.Tag 2, pokemonData__field_descriptor),+                    (Data.ProtoLens.Tag 3, captureProbability__field_descriptor)])+                (Data.Map.fromList+                   [("result", result__field_descriptor),+                    ("pokemon_data", pokemonData__field_descriptor),+                    ("capture_probability", captureProbability__field_descriptor)])++data IncenseEncounterResponse'Result = IncenseEncounterResponse'INCENSE_ENCOUNTER_UNKNOWN+                                     | IncenseEncounterResponse'INCENSE_ENCOUNTER_SUCCESS+                                     | IncenseEncounterResponse'INCENSE_ENCOUNTER_NOT_AVAILABLE+                                     | IncenseEncounterResponse'POKEMON_INVENTORY_FULL+                                     deriving (Prelude.Show, Prelude.Eq)++instance Data.Default.Class.Default IncenseEncounterResponse'Result+         where+        def = IncenseEncounterResponse'INCENSE_ENCOUNTER_UNKNOWN++instance Data.ProtoLens.FieldDefault+         IncenseEncounterResponse'Result where+        fieldDefault = IncenseEncounterResponse'INCENSE_ENCOUNTER_UNKNOWN++instance Data.ProtoLens.MessageEnum IncenseEncounterResponse'Result+         where+        maybeToEnum 0+          = Prelude.Just IncenseEncounterResponse'INCENSE_ENCOUNTER_UNKNOWN+        maybeToEnum 1+          = Prelude.Just IncenseEncounterResponse'INCENSE_ENCOUNTER_SUCCESS+        maybeToEnum 2+          = Prelude.Just+              IncenseEncounterResponse'INCENSE_ENCOUNTER_NOT_AVAILABLE+        maybeToEnum 3+          = Prelude.Just IncenseEncounterResponse'POKEMON_INVENTORY_FULL+        maybeToEnum _ = Prelude.Nothing+        showEnum IncenseEncounterResponse'INCENSE_ENCOUNTER_UNKNOWN+          = "INCENSE_ENCOUNTER_UNKNOWN"+        showEnum IncenseEncounterResponse'INCENSE_ENCOUNTER_SUCCESS+          = "INCENSE_ENCOUNTER_SUCCESS"+        showEnum IncenseEncounterResponse'INCENSE_ENCOUNTER_NOT_AVAILABLE+          = "INCENSE_ENCOUNTER_NOT_AVAILABLE"+        showEnum IncenseEncounterResponse'POKEMON_INVENTORY_FULL+          = "POKEMON_INVENTORY_FULL"+        readEnum "INCENSE_ENCOUNTER_UNKNOWN"+          = Prelude.Just IncenseEncounterResponse'INCENSE_ENCOUNTER_UNKNOWN+        readEnum "INCENSE_ENCOUNTER_SUCCESS"+          = Prelude.Just IncenseEncounterResponse'INCENSE_ENCOUNTER_SUCCESS+        readEnum "INCENSE_ENCOUNTER_NOT_AVAILABLE"+          = Prelude.Just+              IncenseEncounterResponse'INCENSE_ENCOUNTER_NOT_AVAILABLE+        readEnum "POKEMON_INVENTORY_FULL"+          = Prelude.Just IncenseEncounterResponse'POKEMON_INVENTORY_FULL+        readEnum _ = Prelude.Nothing++instance Prelude.Enum IncenseEncounterResponse'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 IncenseEncounterResponse'INCENSE_ENCOUNTER_UNKNOWN = 0+        fromEnum IncenseEncounterResponse'INCENSE_ENCOUNTER_SUCCESS = 1+        fromEnum IncenseEncounterResponse'INCENSE_ENCOUNTER_NOT_AVAILABLE+          = 2+        fromEnum IncenseEncounterResponse'POKEMON_INVENTORY_FULL = 3+        succ IncenseEncounterResponse'POKEMON_INVENTORY_FULL+          = Prelude.error+              "Ident \"IncenseEncounterResponse'Result\".Ident \"succ\": bad argument Ident \"IncenseEncounterResponse'POKEMON_INVENTORY_FULL\". This value would be out of bounds."+        succ IncenseEncounterResponse'INCENSE_ENCOUNTER_UNKNOWN+          = IncenseEncounterResponse'INCENSE_ENCOUNTER_SUCCESS+        succ IncenseEncounterResponse'INCENSE_ENCOUNTER_SUCCESS+          = IncenseEncounterResponse'INCENSE_ENCOUNTER_NOT_AVAILABLE+        succ IncenseEncounterResponse'INCENSE_ENCOUNTER_NOT_AVAILABLE+          = IncenseEncounterResponse'POKEMON_INVENTORY_FULL+        pred IncenseEncounterResponse'INCENSE_ENCOUNTER_UNKNOWN+          = Prelude.error+              "Ident \"IncenseEncounterResponse'Result\".Ident \"pred\": bad argument Ident \"IncenseEncounterResponse'INCENSE_ENCOUNTER_UNKNOWN\". This value would be out of bounds."+        pred IncenseEncounterResponse'INCENSE_ENCOUNTER_SUCCESS+          = IncenseEncounterResponse'INCENSE_ENCOUNTER_UNKNOWN+        pred IncenseEncounterResponse'INCENSE_ENCOUNTER_NOT_AVAILABLE+          = IncenseEncounterResponse'INCENSE_ENCOUNTER_SUCCESS+        pred IncenseEncounterResponse'POKEMON_INVENTORY_FULL+          = IncenseEncounterResponse'INCENSE_ENCOUNTER_NOT_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 IncenseEncounterResponse'Result where+        minBound = IncenseEncounterResponse'INCENSE_ENCOUNTER_UNKNOWN+        maxBound = IncenseEncounterResponse'POKEMON_INVENTORY_FULL++captureProbability ::+                   forall msg msg' .+                     Data.ProtoLens.HasField "captureProbability" msg msg' =>+                     Lens.Family2.Lens msg msg'+                       (Data.ProtoLens.Field "captureProbability" msg)+                       (Data.ProtoLens.Field "captureProbability" msg')+captureProbability+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "captureProbability")++maybe'captureProbability ::+                         forall msg msg' .+                           Data.ProtoLens.HasField "maybe'captureProbability" msg msg' =>+                           Lens.Family2.Lens msg msg'+                             (Data.ProtoLens.Field "maybe'captureProbability" msg)+                             (Data.ProtoLens.Field "maybe'captureProbability" msg')+maybe'captureProbability+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "maybe'captureProbability")++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")
+ src/Proto/POGOProtos/Networking/Responses/LevelUpRewardsResponse.hs view
@@ -0,0 +1,183 @@+{- This file was auto-generated from POGOProtos/Networking/Responses/LevelUpRewardsResponse.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Responses.LevelUpRewardsResponse+       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.Inventory.Item.ItemAward+import qualified Proto.POGOProtos.Inventory.Item.ItemId++data LevelUpRewardsResponse = LevelUpRewardsResponse{_LevelUpRewardsResponse'result+                                                     :: LevelUpRewardsResponse'Result,+                                                     _LevelUpRewardsResponse'itemsAwarded ::+                                                     [Proto.POGOProtos.Inventory.Item.ItemAward.ItemAward],+                                                     _LevelUpRewardsResponse'itemsUnlocked ::+                                                     [Proto.POGOProtos.Inventory.Item.ItemId.ItemId]}+                            deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "result" LevelUpRewardsResponse+     = LevelUpRewardsResponse'Result++instance Data.ProtoLens.HasField "result" LevelUpRewardsResponse+         LevelUpRewardsResponse where+        field _+          = Lens.Family2.Unchecked.lens _LevelUpRewardsResponse'result+              (\ x__ y__ -> x__{_LevelUpRewardsResponse'result = y__})++type instance+     Data.ProtoLens.Field "itemsAwarded" LevelUpRewardsResponse =+     [Proto.POGOProtos.Inventory.Item.ItemAward.ItemAward]++instance Data.ProtoLens.HasField "itemsAwarded"+         LevelUpRewardsResponse LevelUpRewardsResponse where+        field _+          = Lens.Family2.Unchecked.lens _LevelUpRewardsResponse'itemsAwarded+              (\ x__ y__ -> x__{_LevelUpRewardsResponse'itemsAwarded = y__})++type instance+     Data.ProtoLens.Field "itemsUnlocked" LevelUpRewardsResponse =+     [Proto.POGOProtos.Inventory.Item.ItemId.ItemId]++instance Data.ProtoLens.HasField "itemsUnlocked"+         LevelUpRewardsResponse LevelUpRewardsResponse where+        field _+          = Lens.Family2.Unchecked.lens _LevelUpRewardsResponse'itemsUnlocked+              (\ x__ y__ -> x__{_LevelUpRewardsResponse'itemsUnlocked = y__})++instance Data.Default.Class.Default LevelUpRewardsResponse where+        def+          = LevelUpRewardsResponse{_LevelUpRewardsResponse'result =+                                     Data.Default.Class.def,+                                   _LevelUpRewardsResponse'itemsAwarded = [],+                                   _LevelUpRewardsResponse'itemsUnlocked = []}++instance Data.ProtoLens.Message LevelUpRewardsResponse where+        descriptor+          = let result__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "result"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor LevelUpRewardsResponse'Result)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional result)+                itemsAwarded__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "items_awarded"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Inventory.Item.ItemAward.ItemAward)+                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked itemsAwarded)+                itemsUnlocked__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "items_unlocked"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Inventory.Item.ItemId.ItemId)+                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked+                         itemsUnlocked)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, result__field_descriptor),+                    (Data.ProtoLens.Tag 2, itemsAwarded__field_descriptor),+                    (Data.ProtoLens.Tag 4, itemsUnlocked__field_descriptor)])+                (Data.Map.fromList+                   [("result", result__field_descriptor),+                    ("items_awarded", itemsAwarded__field_descriptor),+                    ("items_unlocked", itemsUnlocked__field_descriptor)])++data LevelUpRewardsResponse'Result = LevelUpRewardsResponse'UNSET+                                   | LevelUpRewardsResponse'SUCCESS+                                   | LevelUpRewardsResponse'AWARDED_ALREADY+                                   deriving (Prelude.Show, Prelude.Eq)++instance Data.Default.Class.Default LevelUpRewardsResponse'Result+         where+        def = LevelUpRewardsResponse'UNSET++instance Data.ProtoLens.FieldDefault LevelUpRewardsResponse'Result+         where+        fieldDefault = LevelUpRewardsResponse'UNSET++instance Data.ProtoLens.MessageEnum LevelUpRewardsResponse'Result+         where+        maybeToEnum 0 = Prelude.Just LevelUpRewardsResponse'UNSET+        maybeToEnum 1 = Prelude.Just LevelUpRewardsResponse'SUCCESS+        maybeToEnum 2 = Prelude.Just LevelUpRewardsResponse'AWARDED_ALREADY+        maybeToEnum _ = Prelude.Nothing+        showEnum LevelUpRewardsResponse'UNSET = "UNSET"+        showEnum LevelUpRewardsResponse'SUCCESS = "SUCCESS"+        showEnum LevelUpRewardsResponse'AWARDED_ALREADY = "AWARDED_ALREADY"+        readEnum "UNSET" = Prelude.Just LevelUpRewardsResponse'UNSET+        readEnum "SUCCESS" = Prelude.Just LevelUpRewardsResponse'SUCCESS+        readEnum "AWARDED_ALREADY"+          = Prelude.Just LevelUpRewardsResponse'AWARDED_ALREADY+        readEnum _ = Prelude.Nothing++instance Prelude.Enum LevelUpRewardsResponse'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 LevelUpRewardsResponse'UNSET = 0+        fromEnum LevelUpRewardsResponse'SUCCESS = 1+        fromEnum LevelUpRewardsResponse'AWARDED_ALREADY = 2+        succ LevelUpRewardsResponse'AWARDED_ALREADY+          = Prelude.error+              "Ident \"LevelUpRewardsResponse'Result\".Ident \"succ\": bad argument Ident \"LevelUpRewardsResponse'AWARDED_ALREADY\". This value would be out of bounds."+        succ LevelUpRewardsResponse'UNSET = LevelUpRewardsResponse'SUCCESS+        succ LevelUpRewardsResponse'SUCCESS+          = LevelUpRewardsResponse'AWARDED_ALREADY+        pred LevelUpRewardsResponse'UNSET+          = Prelude.error+              "Ident \"LevelUpRewardsResponse'Result\".Ident \"pred\": bad argument Ident \"LevelUpRewardsResponse'UNSET\". This value would be out of bounds."+        pred LevelUpRewardsResponse'SUCCESS = LevelUpRewardsResponse'UNSET+        pred LevelUpRewardsResponse'AWARDED_ALREADY+          = LevelUpRewardsResponse'SUCCESS+        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 LevelUpRewardsResponse'Result where+        minBound = LevelUpRewardsResponse'UNSET+        maxBound = LevelUpRewardsResponse'AWARDED_ALREADY++itemsAwarded ::+             forall msg msg' .+               Data.ProtoLens.HasField "itemsAwarded" msg msg' =>+               Lens.Family2.Lens msg msg'+                 (Data.ProtoLens.Field "itemsAwarded" msg)+                 (Data.ProtoLens.Field "itemsAwarded" msg')+itemsAwarded+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "itemsAwarded")++itemsUnlocked ::+              forall msg msg' .+                Data.ProtoLens.HasField "itemsUnlocked" msg msg' =>+                Lens.Family2.Lens msg msg'+                  (Data.ProtoLens.Field "itemsUnlocked" msg)+                  (Data.ProtoLens.Field "itemsUnlocked" msg')+itemsUnlocked+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "itemsUnlocked")++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")
+ src/Proto/POGOProtos/Networking/Responses/MarkTutorialCompleteResponse.hs view
@@ -0,0 +1,114 @@+{- This file was auto-generated from POGOProtos/Networking/Responses/MarkTutorialCompleteResponse.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Responses.MarkTutorialCompleteResponse+       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.PlayerData++data MarkTutorialCompleteResponse = MarkTutorialCompleteResponse{_MarkTutorialCompleteResponse'success+                                                                 :: Prelude.Bool,+                                                                 _MarkTutorialCompleteResponse'playerData+                                                                 ::+                                                                 Prelude.Maybe+                                                                   Proto.POGOProtos.Data.PlayerData.PlayerData}+                                  deriving (Prelude.Show, Prelude.Eq)++type instance+     Data.ProtoLens.Field "success" MarkTutorialCompleteResponse =+     Prelude.Bool++instance Data.ProtoLens.HasField "success"+         MarkTutorialCompleteResponse MarkTutorialCompleteResponse where+        field _+          = Lens.Family2.Unchecked.lens _MarkTutorialCompleteResponse'success+              (\ x__ y__ -> x__{_MarkTutorialCompleteResponse'success = y__})++type instance+     Data.ProtoLens.Field "playerData" MarkTutorialCompleteResponse =+     Proto.POGOProtos.Data.PlayerData.PlayerData++instance Data.ProtoLens.HasField "playerData"+         MarkTutorialCompleteResponse MarkTutorialCompleteResponse where+        field _+          = (Prelude..) maybe'playerData+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance+     Data.ProtoLens.Field "maybe'playerData"+       MarkTutorialCompleteResponse+     = Prelude.Maybe Proto.POGOProtos.Data.PlayerData.PlayerData++instance Data.ProtoLens.HasField "maybe'playerData"+         MarkTutorialCompleteResponse MarkTutorialCompleteResponse where+        field _+          = Lens.Family2.Unchecked.lens+              _MarkTutorialCompleteResponse'playerData+              (\ x__ y__ -> x__{_MarkTutorialCompleteResponse'playerData = y__})++instance Data.Default.Class.Default MarkTutorialCompleteResponse+         where+        def+          = MarkTutorialCompleteResponse{_MarkTutorialCompleteResponse'success+                                           = Data.ProtoLens.fieldDefault,+                                         _MarkTutorialCompleteResponse'playerData = Prelude.Nothing}++instance Data.ProtoLens.Message MarkTutorialCompleteResponse where+        descriptor+          = let success__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "success"+                      (Data.ProtoLens.BoolField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional success)+                playerData__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "player_data"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Data.PlayerData.PlayerData)+                      (Data.ProtoLens.OptionalField maybe'playerData)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, success__field_descriptor),+                    (Data.ProtoLens.Tag 2, playerData__field_descriptor)])+                (Data.Map.fromList+                   [("success", success__field_descriptor),+                    ("player_data", playerData__field_descriptor)])++maybe'playerData ::+                 forall msg msg' .+                   Data.ProtoLens.HasField "maybe'playerData" msg msg' =>+                   Lens.Family2.Lens msg msg'+                     (Data.ProtoLens.Field "maybe'playerData" msg)+                     (Data.ProtoLens.Field "maybe'playerData" msg')+maybe'playerData+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "maybe'playerData")++playerData ::+           forall msg msg' . Data.ProtoLens.HasField "playerData" msg msg' =>+             Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "playerData" msg)+               (Data.ProtoLens.Field "playerData" msg')+playerData+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "playerData")++success ::+        forall msg msg' . Data.ProtoLens.HasField "success" msg msg' =>+          Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "success" msg)+            (Data.ProtoLens.Field "success" msg')+success+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "success")
+ src/Proto/POGOProtos/Networking/Responses/NicknamePokemonResponse.hs view
@@ -0,0 +1,144 @@+{- This file was auto-generated from POGOProtos/Networking/Responses/NicknamePokemonResponse.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Responses.NicknamePokemonResponse+       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 NicknamePokemonResponse = NicknamePokemonResponse{_NicknamePokemonResponse'result+                                                       :: NicknamePokemonResponse'Result}+                             deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "result" NicknamePokemonResponse+     = NicknamePokemonResponse'Result++instance Data.ProtoLens.HasField "result" NicknamePokemonResponse+         NicknamePokemonResponse where+        field _+          = Lens.Family2.Unchecked.lens _NicknamePokemonResponse'result+              (\ x__ y__ -> x__{_NicknamePokemonResponse'result = y__})++instance Data.Default.Class.Default NicknamePokemonResponse where+        def+          = NicknamePokemonResponse{_NicknamePokemonResponse'result =+                                      Data.Default.Class.def}++instance Data.ProtoLens.Message NicknamePokemonResponse where+        descriptor+          = let result__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "result"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor NicknamePokemonResponse'Result)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional result)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, result__field_descriptor)])+                (Data.Map.fromList [("result", result__field_descriptor)])++data NicknamePokemonResponse'Result = NicknamePokemonResponse'UNSET+                                    | NicknamePokemonResponse'SUCCESS+                                    | NicknamePokemonResponse'ERROR_INVALID_NICKNAME+                                    | NicknamePokemonResponse'ERROR_POKEMON_NOT_FOUND+                                    | NicknamePokemonResponse'ERROR_POKEMON_IS_EGG+                                    deriving (Prelude.Show, Prelude.Eq)++instance Data.Default.Class.Default NicknamePokemonResponse'Result+         where+        def = NicknamePokemonResponse'UNSET++instance Data.ProtoLens.FieldDefault NicknamePokemonResponse'Result+         where+        fieldDefault = NicknamePokemonResponse'UNSET++instance Data.ProtoLens.MessageEnum NicknamePokemonResponse'Result+         where+        maybeToEnum 0 = Prelude.Just NicknamePokemonResponse'UNSET+        maybeToEnum 1 = Prelude.Just NicknamePokemonResponse'SUCCESS+        maybeToEnum 2+          = Prelude.Just NicknamePokemonResponse'ERROR_INVALID_NICKNAME+        maybeToEnum 3+          = Prelude.Just NicknamePokemonResponse'ERROR_POKEMON_NOT_FOUND+        maybeToEnum 4+          = Prelude.Just NicknamePokemonResponse'ERROR_POKEMON_IS_EGG+        maybeToEnum _ = Prelude.Nothing+        showEnum NicknamePokemonResponse'UNSET = "UNSET"+        showEnum NicknamePokemonResponse'SUCCESS = "SUCCESS"+        showEnum NicknamePokemonResponse'ERROR_INVALID_NICKNAME+          = "ERROR_INVALID_NICKNAME"+        showEnum NicknamePokemonResponse'ERROR_POKEMON_NOT_FOUND+          = "ERROR_POKEMON_NOT_FOUND"+        showEnum NicknamePokemonResponse'ERROR_POKEMON_IS_EGG+          = "ERROR_POKEMON_IS_EGG"+        readEnum "UNSET" = Prelude.Just NicknamePokemonResponse'UNSET+        readEnum "SUCCESS" = Prelude.Just NicknamePokemonResponse'SUCCESS+        readEnum "ERROR_INVALID_NICKNAME"+          = Prelude.Just NicknamePokemonResponse'ERROR_INVALID_NICKNAME+        readEnum "ERROR_POKEMON_NOT_FOUND"+          = Prelude.Just NicknamePokemonResponse'ERROR_POKEMON_NOT_FOUND+        readEnum "ERROR_POKEMON_IS_EGG"+          = Prelude.Just NicknamePokemonResponse'ERROR_POKEMON_IS_EGG+        readEnum _ = Prelude.Nothing++instance Prelude.Enum NicknamePokemonResponse'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 NicknamePokemonResponse'UNSET = 0+        fromEnum NicknamePokemonResponse'SUCCESS = 1+        fromEnum NicknamePokemonResponse'ERROR_INVALID_NICKNAME = 2+        fromEnum NicknamePokemonResponse'ERROR_POKEMON_NOT_FOUND = 3+        fromEnum NicknamePokemonResponse'ERROR_POKEMON_IS_EGG = 4+        succ NicknamePokemonResponse'ERROR_POKEMON_IS_EGG+          = Prelude.error+              "Ident \"NicknamePokemonResponse'Result\".Ident \"succ\": bad argument Ident \"NicknamePokemonResponse'ERROR_POKEMON_IS_EGG\". This value would be out of bounds."+        succ NicknamePokemonResponse'UNSET+          = NicknamePokemonResponse'SUCCESS+        succ NicknamePokemonResponse'SUCCESS+          = NicknamePokemonResponse'ERROR_INVALID_NICKNAME+        succ NicknamePokemonResponse'ERROR_INVALID_NICKNAME+          = NicknamePokemonResponse'ERROR_POKEMON_NOT_FOUND+        succ NicknamePokemonResponse'ERROR_POKEMON_NOT_FOUND+          = NicknamePokemonResponse'ERROR_POKEMON_IS_EGG+        pred NicknamePokemonResponse'UNSET+          = Prelude.error+              "Ident \"NicknamePokemonResponse'Result\".Ident \"pred\": bad argument Ident \"NicknamePokemonResponse'UNSET\". This value would be out of bounds."+        pred NicknamePokemonResponse'SUCCESS+          = NicknamePokemonResponse'UNSET+        pred NicknamePokemonResponse'ERROR_INVALID_NICKNAME+          = NicknamePokemonResponse'SUCCESS+        pred NicknamePokemonResponse'ERROR_POKEMON_NOT_FOUND+          = NicknamePokemonResponse'ERROR_INVALID_NICKNAME+        pred NicknamePokemonResponse'ERROR_POKEMON_IS_EGG+          = NicknamePokemonResponse'ERROR_POKEMON_NOT_FOUND+        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 NicknamePokemonResponse'Result where+        minBound = NicknamePokemonResponse'UNSET+        maxBound = NicknamePokemonResponse'ERROR_POKEMON_IS_EGG++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")
+ src/Proto/POGOProtos/Networking/Responses/PlayerUpdateResponse.hs view
@@ -0,0 +1,119 @@+{- This file was auto-generated from POGOProtos/Networking/Responses/PlayerUpdateResponse.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Responses.PlayerUpdateResponse+       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.Map.Fort.FortData+import qualified Proto.POGOProtos.Map.Pokemon.WildPokemon++data PlayerUpdateResponse = PlayerUpdateResponse{_PlayerUpdateResponse'wildPokemons+                                                 ::+                                                 [Proto.POGOProtos.Map.Pokemon.WildPokemon.WildPokemon],+                                                 _PlayerUpdateResponse'forts ::+                                                 [Proto.POGOProtos.Map.Fort.FortData.FortData],+                                                 _PlayerUpdateResponse'fortsNearby ::+                                                 Data.Int.Int32}+                          deriving (Prelude.Show, Prelude.Eq)++type instance+     Data.ProtoLens.Field "wildPokemons" PlayerUpdateResponse =+     [Proto.POGOProtos.Map.Pokemon.WildPokemon.WildPokemon]++instance Data.ProtoLens.HasField "wildPokemons"+         PlayerUpdateResponse PlayerUpdateResponse where+        field _+          = Lens.Family2.Unchecked.lens _PlayerUpdateResponse'wildPokemons+              (\ x__ y__ -> x__{_PlayerUpdateResponse'wildPokemons = y__})++type instance Data.ProtoLens.Field "forts" PlayerUpdateResponse =+     [Proto.POGOProtos.Map.Fort.FortData.FortData]++instance Data.ProtoLens.HasField "forts" PlayerUpdateResponse+         PlayerUpdateResponse where+        field _+          = Lens.Family2.Unchecked.lens _PlayerUpdateResponse'forts+              (\ x__ y__ -> x__{_PlayerUpdateResponse'forts = y__})++type instance+     Data.ProtoLens.Field "fortsNearby" PlayerUpdateResponse =+     Data.Int.Int32++instance Data.ProtoLens.HasField "fortsNearby" PlayerUpdateResponse+         PlayerUpdateResponse where+        field _+          = Lens.Family2.Unchecked.lens _PlayerUpdateResponse'fortsNearby+              (\ x__ y__ -> x__{_PlayerUpdateResponse'fortsNearby = y__})++instance Data.Default.Class.Default PlayerUpdateResponse where+        def+          = PlayerUpdateResponse{_PlayerUpdateResponse'wildPokemons = [],+                                 _PlayerUpdateResponse'forts = [],+                                 _PlayerUpdateResponse'fortsNearby = Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message PlayerUpdateResponse where+        descriptor+          = let wildPokemons__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "wild_pokemons"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Map.Pokemon.WildPokemon.WildPokemon)+                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked wildPokemons)+                forts__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "forts"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Map.Fort.FortData.FortData)+                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked forts)+                fortsNearby__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "forts_nearby"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional fortsNearby)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, wildPokemons__field_descriptor),+                    (Data.ProtoLens.Tag 2, forts__field_descriptor),+                    (Data.ProtoLens.Tag 3, fortsNearby__field_descriptor)])+                (Data.Map.fromList+                   [("wild_pokemons", wildPokemons__field_descriptor),+                    ("forts", forts__field_descriptor),+                    ("forts_nearby", fortsNearby__field_descriptor)])++forts ::+      forall msg msg' . Data.ProtoLens.HasField "forts" msg msg' =>+        Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "forts" msg)+          (Data.ProtoLens.Field "forts" msg')+forts+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "forts")++fortsNearby ::+            forall msg msg' . Data.ProtoLens.HasField "fortsNearby" msg msg' =>+              Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "fortsNearby" msg)+                (Data.ProtoLens.Field "fortsNearby" msg')+fortsNearby+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "fortsNearby")++wildPokemons ::+             forall msg msg' .+               Data.ProtoLens.HasField "wildPokemons" msg msg' =>+               Lens.Family2.Lens msg msg'+                 (Data.ProtoLens.Field "wildPokemons" msg)+                 (Data.ProtoLens.Field "wildPokemons" msg')+wildPokemons+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "wildPokemons")
+ src/Proto/POGOProtos/Networking/Responses/RecycleInventoryItemResponse.hs view
@@ -0,0 +1,173 @@+{- This file was auto-generated from POGOProtos/Networking/Responses/RecycleInventoryItemResponse.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Responses.RecycleInventoryItemResponse+       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 RecycleInventoryItemResponse = RecycleInventoryItemResponse{_RecycleInventoryItemResponse'result+                                                                 ::+                                                                 RecycleInventoryItemResponse'Result,+                                                                 _RecycleInventoryItemResponse'newCount+                                                                 :: Data.Int.Int32}+                                  deriving (Prelude.Show, Prelude.Eq)++type instance+     Data.ProtoLens.Field "result" RecycleInventoryItemResponse =+     RecycleInventoryItemResponse'Result++instance Data.ProtoLens.HasField "result"+         RecycleInventoryItemResponse RecycleInventoryItemResponse where+        field _+          = Lens.Family2.Unchecked.lens _RecycleInventoryItemResponse'result+              (\ x__ y__ -> x__{_RecycleInventoryItemResponse'result = y__})++type instance+     Data.ProtoLens.Field "newCount" RecycleInventoryItemResponse =+     Data.Int.Int32++instance Data.ProtoLens.HasField "newCount"+         RecycleInventoryItemResponse RecycleInventoryItemResponse where+        field _+          = Lens.Family2.Unchecked.lens+              _RecycleInventoryItemResponse'newCount+              (\ x__ y__ -> x__{_RecycleInventoryItemResponse'newCount = y__})++instance Data.Default.Class.Default RecycleInventoryItemResponse+         where+        def+          = RecycleInventoryItemResponse{_RecycleInventoryItemResponse'result+                                           = Data.Default.Class.def,+                                         _RecycleInventoryItemResponse'newCount =+                                           Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message RecycleInventoryItemResponse where+        descriptor+          = let result__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "result"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           RecycleInventoryItemResponse'Result)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional result)+                newCount__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "new_count"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional newCount)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, result__field_descriptor),+                    (Data.ProtoLens.Tag 2, newCount__field_descriptor)])+                (Data.Map.fromList+                   [("result", result__field_descriptor),+                    ("new_count", newCount__field_descriptor)])++data RecycleInventoryItemResponse'Result = RecycleInventoryItemResponse'UNSET+                                         | RecycleInventoryItemResponse'SUCCESS+                                         | RecycleInventoryItemResponse'ERROR_NOT_ENOUGH_COPIES+                                         | RecycleInventoryItemResponse'ERROR_CANNOT_RECYCLE_INCUBATORS+                                         deriving (Prelude.Show, Prelude.Eq)++instance Data.Default.Class.Default+         RecycleInventoryItemResponse'Result where+        def = RecycleInventoryItemResponse'UNSET++instance Data.ProtoLens.FieldDefault+         RecycleInventoryItemResponse'Result where+        fieldDefault = RecycleInventoryItemResponse'UNSET++instance Data.ProtoLens.MessageEnum+         RecycleInventoryItemResponse'Result where+        maybeToEnum 0 = Prelude.Just RecycleInventoryItemResponse'UNSET+        maybeToEnum 1 = Prelude.Just RecycleInventoryItemResponse'SUCCESS+        maybeToEnum 2+          = Prelude.Just RecycleInventoryItemResponse'ERROR_NOT_ENOUGH_COPIES+        maybeToEnum 3+          = Prelude.Just+              RecycleInventoryItemResponse'ERROR_CANNOT_RECYCLE_INCUBATORS+        maybeToEnum _ = Prelude.Nothing+        showEnum RecycleInventoryItemResponse'UNSET = "UNSET"+        showEnum RecycleInventoryItemResponse'SUCCESS = "SUCCESS"+        showEnum RecycleInventoryItemResponse'ERROR_NOT_ENOUGH_COPIES+          = "ERROR_NOT_ENOUGH_COPIES"+        showEnum+          RecycleInventoryItemResponse'ERROR_CANNOT_RECYCLE_INCUBATORS+          = "ERROR_CANNOT_RECYCLE_INCUBATORS"+        readEnum "UNSET" = Prelude.Just RecycleInventoryItemResponse'UNSET+        readEnum "SUCCESS"+          = Prelude.Just RecycleInventoryItemResponse'SUCCESS+        readEnum "ERROR_NOT_ENOUGH_COPIES"+          = Prelude.Just RecycleInventoryItemResponse'ERROR_NOT_ENOUGH_COPIES+        readEnum "ERROR_CANNOT_RECYCLE_INCUBATORS"+          = Prelude.Just+              RecycleInventoryItemResponse'ERROR_CANNOT_RECYCLE_INCUBATORS+        readEnum _ = Prelude.Nothing++instance Prelude.Enum RecycleInventoryItemResponse'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 RecycleInventoryItemResponse'UNSET = 0+        fromEnum RecycleInventoryItemResponse'SUCCESS = 1+        fromEnum RecycleInventoryItemResponse'ERROR_NOT_ENOUGH_COPIES = 2+        fromEnum+          RecycleInventoryItemResponse'ERROR_CANNOT_RECYCLE_INCUBATORS = 3+        succ RecycleInventoryItemResponse'ERROR_CANNOT_RECYCLE_INCUBATORS+          = Prelude.error+              "Ident \"RecycleInventoryItemResponse'Result\".Ident \"succ\": bad argument Ident \"RecycleInventoryItemResponse'ERROR_CANNOT_RECYCLE_INCUBATORS\". This value would be out of bounds."+        succ RecycleInventoryItemResponse'UNSET+          = RecycleInventoryItemResponse'SUCCESS+        succ RecycleInventoryItemResponse'SUCCESS+          = RecycleInventoryItemResponse'ERROR_NOT_ENOUGH_COPIES+        succ RecycleInventoryItemResponse'ERROR_NOT_ENOUGH_COPIES+          = RecycleInventoryItemResponse'ERROR_CANNOT_RECYCLE_INCUBATORS+        pred RecycleInventoryItemResponse'UNSET+          = Prelude.error+              "Ident \"RecycleInventoryItemResponse'Result\".Ident \"pred\": bad argument Ident \"RecycleInventoryItemResponse'UNSET\". This value would be out of bounds."+        pred RecycleInventoryItemResponse'SUCCESS+          = RecycleInventoryItemResponse'UNSET+        pred RecycleInventoryItemResponse'ERROR_NOT_ENOUGH_COPIES+          = RecycleInventoryItemResponse'SUCCESS+        pred RecycleInventoryItemResponse'ERROR_CANNOT_RECYCLE_INCUBATORS+          = RecycleInventoryItemResponse'ERROR_NOT_ENOUGH_COPIES+        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 RecycleInventoryItemResponse'Result where+        minBound = RecycleInventoryItemResponse'UNSET+        maxBound+          = RecycleInventoryItemResponse'ERROR_CANNOT_RECYCLE_INCUBATORS++newCount ::+         forall msg msg' . Data.ProtoLens.HasField "newCount" msg msg' =>+           Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "newCount" msg)+             (Data.ProtoLens.Field "newCount" msg')+newCount+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "newCount")++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")
+ src/Proto/POGOProtos/Networking/Responses/ReleasePokemonResponse.hs view
@@ -0,0 +1,171 @@+{- This file was auto-generated from POGOProtos/Networking/Responses/ReleasePokemonResponse.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Responses.ReleasePokemonResponse+       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 ReleasePokemonResponse = ReleasePokemonResponse{_ReleasePokemonResponse'result+                                                     :: ReleasePokemonResponse'Result,+                                                     _ReleasePokemonResponse'candyAwarded ::+                                                     Data.Int.Int32}+                            deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "result" ReleasePokemonResponse+     = ReleasePokemonResponse'Result++instance Data.ProtoLens.HasField "result" ReleasePokemonResponse+         ReleasePokemonResponse where+        field _+          = Lens.Family2.Unchecked.lens _ReleasePokemonResponse'result+              (\ x__ y__ -> x__{_ReleasePokemonResponse'result = y__})++type instance+     Data.ProtoLens.Field "candyAwarded" ReleasePokemonResponse =+     Data.Int.Int32++instance Data.ProtoLens.HasField "candyAwarded"+         ReleasePokemonResponse ReleasePokemonResponse where+        field _+          = Lens.Family2.Unchecked.lens _ReleasePokemonResponse'candyAwarded+              (\ x__ y__ -> x__{_ReleasePokemonResponse'candyAwarded = y__})++instance Data.Default.Class.Default ReleasePokemonResponse where+        def+          = ReleasePokemonResponse{_ReleasePokemonResponse'result =+                                     Data.Default.Class.def,+                                   _ReleasePokemonResponse'candyAwarded =+                                     Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message ReleasePokemonResponse where+        descriptor+          = let result__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "result"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor ReleasePokemonResponse'Result)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional result)+                candyAwarded__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "candy_awarded"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional candyAwarded)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, result__field_descriptor),+                    (Data.ProtoLens.Tag 2, candyAwarded__field_descriptor)])+                (Data.Map.fromList+                   [("result", result__field_descriptor),+                    ("candy_awarded", candyAwarded__field_descriptor)])++data ReleasePokemonResponse'Result = ReleasePokemonResponse'UNSET+                                   | ReleasePokemonResponse'SUCCESS+                                   | ReleasePokemonResponse'POKEMON_DEPLOYED+                                   | ReleasePokemonResponse'FAILED+                                   | ReleasePokemonResponse'ERROR_POKEMON_IS_EGG+                                   deriving (Prelude.Show, Prelude.Eq)++instance Data.Default.Class.Default ReleasePokemonResponse'Result+         where+        def = ReleasePokemonResponse'UNSET++instance Data.ProtoLens.FieldDefault ReleasePokemonResponse'Result+         where+        fieldDefault = ReleasePokemonResponse'UNSET++instance Data.ProtoLens.MessageEnum ReleasePokemonResponse'Result+         where+        maybeToEnum 0 = Prelude.Just ReleasePokemonResponse'UNSET+        maybeToEnum 1 = Prelude.Just ReleasePokemonResponse'SUCCESS+        maybeToEnum 2+          = Prelude.Just ReleasePokemonResponse'POKEMON_DEPLOYED+        maybeToEnum 3 = Prelude.Just ReleasePokemonResponse'FAILED+        maybeToEnum 4+          = Prelude.Just ReleasePokemonResponse'ERROR_POKEMON_IS_EGG+        maybeToEnum _ = Prelude.Nothing+        showEnum ReleasePokemonResponse'UNSET = "UNSET"+        showEnum ReleasePokemonResponse'SUCCESS = "SUCCESS"+        showEnum ReleasePokemonResponse'POKEMON_DEPLOYED+          = "POKEMON_DEPLOYED"+        showEnum ReleasePokemonResponse'FAILED = "FAILED"+        showEnum ReleasePokemonResponse'ERROR_POKEMON_IS_EGG+          = "ERROR_POKEMON_IS_EGG"+        readEnum "UNSET" = Prelude.Just ReleasePokemonResponse'UNSET+        readEnum "SUCCESS" = Prelude.Just ReleasePokemonResponse'SUCCESS+        readEnum "POKEMON_DEPLOYED"+          = Prelude.Just ReleasePokemonResponse'POKEMON_DEPLOYED+        readEnum "FAILED" = Prelude.Just ReleasePokemonResponse'FAILED+        readEnum "ERROR_POKEMON_IS_EGG"+          = Prelude.Just ReleasePokemonResponse'ERROR_POKEMON_IS_EGG+        readEnum _ = Prelude.Nothing++instance Prelude.Enum ReleasePokemonResponse'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 ReleasePokemonResponse'UNSET = 0+        fromEnum ReleasePokemonResponse'SUCCESS = 1+        fromEnum ReleasePokemonResponse'POKEMON_DEPLOYED = 2+        fromEnum ReleasePokemonResponse'FAILED = 3+        fromEnum ReleasePokemonResponse'ERROR_POKEMON_IS_EGG = 4+        succ ReleasePokemonResponse'ERROR_POKEMON_IS_EGG+          = Prelude.error+              "Ident \"ReleasePokemonResponse'Result\".Ident \"succ\": bad argument Ident \"ReleasePokemonResponse'ERROR_POKEMON_IS_EGG\". This value would be out of bounds."+        succ ReleasePokemonResponse'UNSET = ReleasePokemonResponse'SUCCESS+        succ ReleasePokemonResponse'SUCCESS+          = ReleasePokemonResponse'POKEMON_DEPLOYED+        succ ReleasePokemonResponse'POKEMON_DEPLOYED+          = ReleasePokemonResponse'FAILED+        succ ReleasePokemonResponse'FAILED+          = ReleasePokemonResponse'ERROR_POKEMON_IS_EGG+        pred ReleasePokemonResponse'UNSET+          = Prelude.error+              "Ident \"ReleasePokemonResponse'Result\".Ident \"pred\": bad argument Ident \"ReleasePokemonResponse'UNSET\". This value would be out of bounds."+        pred ReleasePokemonResponse'SUCCESS = ReleasePokemonResponse'UNSET+        pred ReleasePokemonResponse'POKEMON_DEPLOYED+          = ReleasePokemonResponse'SUCCESS+        pred ReleasePokemonResponse'FAILED+          = ReleasePokemonResponse'POKEMON_DEPLOYED+        pred ReleasePokemonResponse'ERROR_POKEMON_IS_EGG+          = ReleasePokemonResponse'FAILED+        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 ReleasePokemonResponse'Result where+        minBound = ReleasePokemonResponse'UNSET+        maxBound = ReleasePokemonResponse'ERROR_POKEMON_IS_EGG++candyAwarded ::+             forall msg msg' .+               Data.ProtoLens.HasField "candyAwarded" msg msg' =>+               Lens.Family2.Lens msg msg'+                 (Data.ProtoLens.Field "candyAwarded" msg)+                 (Data.ProtoLens.Field "candyAwarded" msg')+candyAwarded+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "candyAwarded")++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")
+ src/Proto/POGOProtos/Networking/Responses/SetAvatarResponse.hs view
@@ -0,0 +1,175 @@+{- This file was auto-generated from POGOProtos/Networking/Responses/SetAvatarResponse.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Responses.SetAvatarResponse+       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.PlayerData++data SetAvatarResponse = SetAvatarResponse{_SetAvatarResponse'status+                                           :: SetAvatarResponse'Status,+                                           _SetAvatarResponse'playerData ::+                                           Prelude.Maybe+                                             Proto.POGOProtos.Data.PlayerData.PlayerData}+                       deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "status" SetAvatarResponse =+     SetAvatarResponse'Status++instance Data.ProtoLens.HasField "status" SetAvatarResponse+         SetAvatarResponse where+        field _+          = Lens.Family2.Unchecked.lens _SetAvatarResponse'status+              (\ x__ y__ -> x__{_SetAvatarResponse'status = y__})++type instance Data.ProtoLens.Field "playerData" SetAvatarResponse =+     Proto.POGOProtos.Data.PlayerData.PlayerData++instance Data.ProtoLens.HasField "playerData" SetAvatarResponse+         SetAvatarResponse where+        field _+          = (Prelude..) maybe'playerData+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance+     Data.ProtoLens.Field "maybe'playerData" SetAvatarResponse =+     Prelude.Maybe Proto.POGOProtos.Data.PlayerData.PlayerData++instance Data.ProtoLens.HasField "maybe'playerData"+         SetAvatarResponse SetAvatarResponse where+        field _+          = Lens.Family2.Unchecked.lens _SetAvatarResponse'playerData+              (\ x__ y__ -> x__{_SetAvatarResponse'playerData = y__})++instance Data.Default.Class.Default SetAvatarResponse where+        def+          = SetAvatarResponse{_SetAvatarResponse'status =+                                Data.Default.Class.def,+                              _SetAvatarResponse'playerData = Prelude.Nothing}++instance Data.ProtoLens.Message SetAvatarResponse where+        descriptor+          = let status__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "status"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor SetAvatarResponse'Status)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional status)+                playerData__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "player_data"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Data.PlayerData.PlayerData)+                      (Data.ProtoLens.OptionalField maybe'playerData)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, status__field_descriptor),+                    (Data.ProtoLens.Tag 2, playerData__field_descriptor)])+                (Data.Map.fromList+                   [("status", status__field_descriptor),+                    ("player_data", playerData__field_descriptor)])++data SetAvatarResponse'Status = SetAvatarResponse'UNSET+                              | SetAvatarResponse'SUCCESS+                              | SetAvatarResponse'AVATAR_ALREADY_SET+                              | SetAvatarResponse'FAILURE+                              deriving (Prelude.Show, Prelude.Eq)++instance Data.Default.Class.Default SetAvatarResponse'Status where+        def = SetAvatarResponse'UNSET++instance Data.ProtoLens.FieldDefault SetAvatarResponse'Status where+        fieldDefault = SetAvatarResponse'UNSET++instance Data.ProtoLens.MessageEnum SetAvatarResponse'Status where+        maybeToEnum 0 = Prelude.Just SetAvatarResponse'UNSET+        maybeToEnum 1 = Prelude.Just SetAvatarResponse'SUCCESS+        maybeToEnum 2 = Prelude.Just SetAvatarResponse'AVATAR_ALREADY_SET+        maybeToEnum 3 = Prelude.Just SetAvatarResponse'FAILURE+        maybeToEnum _ = Prelude.Nothing+        showEnum SetAvatarResponse'UNSET = "UNSET"+        showEnum SetAvatarResponse'SUCCESS = "SUCCESS"+        showEnum SetAvatarResponse'AVATAR_ALREADY_SET+          = "AVATAR_ALREADY_SET"+        showEnum SetAvatarResponse'FAILURE = "FAILURE"+        readEnum "UNSET" = Prelude.Just SetAvatarResponse'UNSET+        readEnum "SUCCESS" = Prelude.Just SetAvatarResponse'SUCCESS+        readEnum "AVATAR_ALREADY_SET"+          = Prelude.Just SetAvatarResponse'AVATAR_ALREADY_SET+        readEnum "FAILURE" = Prelude.Just SetAvatarResponse'FAILURE+        readEnum _ = Prelude.Nothing++instance Prelude.Enum SetAvatarResponse'Status where+        toEnum k__+          = Prelude.maybe+              (Prelude.error+                 ((Prelude.++) "toEnum: unknown value for enum Status: "+                    (Prelude.show k__)))+              Prelude.id+              (Data.ProtoLens.maybeToEnum k__)+        fromEnum SetAvatarResponse'UNSET = 0+        fromEnum SetAvatarResponse'SUCCESS = 1+        fromEnum SetAvatarResponse'AVATAR_ALREADY_SET = 2+        fromEnum SetAvatarResponse'FAILURE = 3+        succ SetAvatarResponse'FAILURE+          = Prelude.error+              "Ident \"SetAvatarResponse'Status\".Ident \"succ\": bad argument Ident \"SetAvatarResponse'FAILURE\". This value would be out of bounds."+        succ SetAvatarResponse'UNSET = SetAvatarResponse'SUCCESS+        succ SetAvatarResponse'SUCCESS+          = SetAvatarResponse'AVATAR_ALREADY_SET+        succ SetAvatarResponse'AVATAR_ALREADY_SET+          = SetAvatarResponse'FAILURE+        pred SetAvatarResponse'UNSET+          = Prelude.error+              "Ident \"SetAvatarResponse'Status\".Ident \"pred\": bad argument Ident \"SetAvatarResponse'UNSET\". This value would be out of bounds."+        pred SetAvatarResponse'SUCCESS = SetAvatarResponse'UNSET+        pred SetAvatarResponse'AVATAR_ALREADY_SET+          = SetAvatarResponse'SUCCESS+        pred SetAvatarResponse'FAILURE+          = SetAvatarResponse'AVATAR_ALREADY_SET+        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 SetAvatarResponse'Status where+        minBound = SetAvatarResponse'UNSET+        maxBound = SetAvatarResponse'FAILURE++maybe'playerData ::+                 forall msg msg' .+                   Data.ProtoLens.HasField "maybe'playerData" msg msg' =>+                   Lens.Family2.Lens msg msg'+                     (Data.ProtoLens.Field "maybe'playerData" msg)+                     (Data.ProtoLens.Field "maybe'playerData" msg')+maybe'playerData+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "maybe'playerData")++playerData ::+           forall msg msg' . Data.ProtoLens.HasField "playerData" msg msg' =>+             Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "playerData" msg)+               (Data.ProtoLens.Field "playerData" msg')+playerData+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "playerData")++status ::+       forall msg msg' . Data.ProtoLens.HasField "status" msg msg' =>+         Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "status" msg)+           (Data.ProtoLens.Field "status" msg')+status+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "status")
+ src/Proto/POGOProtos/Networking/Responses/SetContactSettingsResponse.hs view
@@ -0,0 +1,177 @@+{- This file was auto-generated from POGOProtos/Networking/Responses/SetContactSettingsResponse.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Responses.SetContactSettingsResponse+       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.PlayerData++data SetContactSettingsResponse = SetContactSettingsResponse{_SetContactSettingsResponse'status+                                                             :: SetContactSettingsResponse'Status,+                                                             _SetContactSettingsResponse'playerData+                                                             ::+                                                             Prelude.Maybe+                                                               Proto.POGOProtos.Data.PlayerData.PlayerData}+                                deriving (Prelude.Show, Prelude.Eq)++type instance+     Data.ProtoLens.Field "status" SetContactSettingsResponse =+     SetContactSettingsResponse'Status++instance Data.ProtoLens.HasField "status"+         SetContactSettingsResponse SetContactSettingsResponse where+        field _+          = Lens.Family2.Unchecked.lens _SetContactSettingsResponse'status+              (\ x__ y__ -> x__{_SetContactSettingsResponse'status = y__})++type instance+     Data.ProtoLens.Field "playerData" SetContactSettingsResponse =+     Proto.POGOProtos.Data.PlayerData.PlayerData++instance Data.ProtoLens.HasField "playerData"+         SetContactSettingsResponse SetContactSettingsResponse where+        field _+          = (Prelude..) maybe'playerData+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance+     Data.ProtoLens.Field "maybe'playerData" SetContactSettingsResponse+     = Prelude.Maybe Proto.POGOProtos.Data.PlayerData.PlayerData++instance Data.ProtoLens.HasField "maybe'playerData"+         SetContactSettingsResponse SetContactSettingsResponse where+        field _+          = Lens.Family2.Unchecked.lens+              _SetContactSettingsResponse'playerData+              (\ x__ y__ -> x__{_SetContactSettingsResponse'playerData = y__})++instance Data.Default.Class.Default SetContactSettingsResponse+         where+        def+          = SetContactSettingsResponse{_SetContactSettingsResponse'status =+                                         Data.Default.Class.def,+                                       _SetContactSettingsResponse'playerData = Prelude.Nothing}++instance Data.ProtoLens.Message SetContactSettingsResponse where+        descriptor+          = let status__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "status"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           SetContactSettingsResponse'Status)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional status)+                playerData__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "player_data"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Data.PlayerData.PlayerData)+                      (Data.ProtoLens.OptionalField maybe'playerData)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, status__field_descriptor),+                    (Data.ProtoLens.Tag 2, playerData__field_descriptor)])+                (Data.Map.fromList+                   [("status", status__field_descriptor),+                    ("player_data", playerData__field_descriptor)])++data SetContactSettingsResponse'Status = SetContactSettingsResponse'UNSET+                                       | SetContactSettingsResponse'SUCCESS+                                       | SetContactSettingsResponse'FAILURE+                                       deriving (Prelude.Show, Prelude.Eq)++instance Data.Default.Class.Default+         SetContactSettingsResponse'Status where+        def = SetContactSettingsResponse'UNSET++instance Data.ProtoLens.FieldDefault+         SetContactSettingsResponse'Status where+        fieldDefault = SetContactSettingsResponse'UNSET++instance Data.ProtoLens.MessageEnum+         SetContactSettingsResponse'Status where+        maybeToEnum 0 = Prelude.Just SetContactSettingsResponse'UNSET+        maybeToEnum 1 = Prelude.Just SetContactSettingsResponse'SUCCESS+        maybeToEnum 2 = Prelude.Just SetContactSettingsResponse'FAILURE+        maybeToEnum _ = Prelude.Nothing+        showEnum SetContactSettingsResponse'UNSET = "UNSET"+        showEnum SetContactSettingsResponse'SUCCESS = "SUCCESS"+        showEnum SetContactSettingsResponse'FAILURE = "FAILURE"+        readEnum "UNSET" = Prelude.Just SetContactSettingsResponse'UNSET+        readEnum "SUCCESS"+          = Prelude.Just SetContactSettingsResponse'SUCCESS+        readEnum "FAILURE"+          = Prelude.Just SetContactSettingsResponse'FAILURE+        readEnum _ = Prelude.Nothing++instance Prelude.Enum SetContactSettingsResponse'Status where+        toEnum k__+          = Prelude.maybe+              (Prelude.error+                 ((Prelude.++) "toEnum: unknown value for enum Status: "+                    (Prelude.show k__)))+              Prelude.id+              (Data.ProtoLens.maybeToEnum k__)+        fromEnum SetContactSettingsResponse'UNSET = 0+        fromEnum SetContactSettingsResponse'SUCCESS = 1+        fromEnum SetContactSettingsResponse'FAILURE = 2+        succ SetContactSettingsResponse'FAILURE+          = Prelude.error+              "Ident \"SetContactSettingsResponse'Status\".Ident \"succ\": bad argument Ident \"SetContactSettingsResponse'FAILURE\". This value would be out of bounds."+        succ SetContactSettingsResponse'UNSET+          = SetContactSettingsResponse'SUCCESS+        succ SetContactSettingsResponse'SUCCESS+          = SetContactSettingsResponse'FAILURE+        pred SetContactSettingsResponse'UNSET+          = Prelude.error+              "Ident \"SetContactSettingsResponse'Status\".Ident \"pred\": bad argument Ident \"SetContactSettingsResponse'UNSET\". This value would be out of bounds."+        pred SetContactSettingsResponse'SUCCESS+          = SetContactSettingsResponse'UNSET+        pred SetContactSettingsResponse'FAILURE+          = SetContactSettingsResponse'SUCCESS+        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 SetContactSettingsResponse'Status where+        minBound = SetContactSettingsResponse'UNSET+        maxBound = SetContactSettingsResponse'FAILURE++maybe'playerData ::+                 forall msg msg' .+                   Data.ProtoLens.HasField "maybe'playerData" msg msg' =>+                   Lens.Family2.Lens msg msg'+                     (Data.ProtoLens.Field "maybe'playerData" msg)+                     (Data.ProtoLens.Field "maybe'playerData" msg')+maybe'playerData+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "maybe'playerData")++playerData ::+           forall msg msg' . Data.ProtoLens.HasField "playerData" msg msg' =>+             Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "playerData" msg)+               (Data.ProtoLens.Field "playerData" msg')+playerData+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "playerData")++status ::+       forall msg msg' . Data.ProtoLens.HasField "status" msg msg' =>+         Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "status" msg)+           (Data.ProtoLens.Field "status" msg')+status+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "status")
+ src/Proto/POGOProtos/Networking/Responses/SetFavoritePokemonResponse.hs view
@@ -0,0 +1,136 @@+{- This file was auto-generated from POGOProtos/Networking/Responses/SetFavoritePokemonResponse.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Responses.SetFavoritePokemonResponse+       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 SetFavoritePokemonResponse = SetFavoritePokemonResponse{_SetFavoritePokemonResponse'result+                                                             :: SetFavoritePokemonResponse'Result}+                                deriving (Prelude.Show, Prelude.Eq)++type instance+     Data.ProtoLens.Field "result" SetFavoritePokemonResponse =+     SetFavoritePokemonResponse'Result++instance Data.ProtoLens.HasField "result"+         SetFavoritePokemonResponse SetFavoritePokemonResponse where+        field _+          = Lens.Family2.Unchecked.lens _SetFavoritePokemonResponse'result+              (\ x__ y__ -> x__{_SetFavoritePokemonResponse'result = y__})++instance Data.Default.Class.Default SetFavoritePokemonResponse+         where+        def+          = SetFavoritePokemonResponse{_SetFavoritePokemonResponse'result =+                                         Data.Default.Class.def}++instance Data.ProtoLens.Message SetFavoritePokemonResponse where+        descriptor+          = let result__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "result"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           SetFavoritePokemonResponse'Result)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional result)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, result__field_descriptor)])+                (Data.Map.fromList [("result", result__field_descriptor)])++data SetFavoritePokemonResponse'Result = SetFavoritePokemonResponse'UNSET+                                       | SetFavoritePokemonResponse'SUCCESS+                                       | SetFavoritePokemonResponse'ERROR_POKEMON_NOT_FOUND+                                       | SetFavoritePokemonResponse'ERROR_POKEMON_IS_EGG+                                       deriving (Prelude.Show, Prelude.Eq)++instance Data.Default.Class.Default+         SetFavoritePokemonResponse'Result where+        def = SetFavoritePokemonResponse'UNSET++instance Data.ProtoLens.FieldDefault+         SetFavoritePokemonResponse'Result where+        fieldDefault = SetFavoritePokemonResponse'UNSET++instance Data.ProtoLens.MessageEnum+         SetFavoritePokemonResponse'Result where+        maybeToEnum 0 = Prelude.Just SetFavoritePokemonResponse'UNSET+        maybeToEnum 1 = Prelude.Just SetFavoritePokemonResponse'SUCCESS+        maybeToEnum 2+          = Prelude.Just SetFavoritePokemonResponse'ERROR_POKEMON_NOT_FOUND+        maybeToEnum 3+          = Prelude.Just SetFavoritePokemonResponse'ERROR_POKEMON_IS_EGG+        maybeToEnum _ = Prelude.Nothing+        showEnum SetFavoritePokemonResponse'UNSET = "UNSET"+        showEnum SetFavoritePokemonResponse'SUCCESS = "SUCCESS"+        showEnum SetFavoritePokemonResponse'ERROR_POKEMON_NOT_FOUND+          = "ERROR_POKEMON_NOT_FOUND"+        showEnum SetFavoritePokemonResponse'ERROR_POKEMON_IS_EGG+          = "ERROR_POKEMON_IS_EGG"+        readEnum "UNSET" = Prelude.Just SetFavoritePokemonResponse'UNSET+        readEnum "SUCCESS"+          = Prelude.Just SetFavoritePokemonResponse'SUCCESS+        readEnum "ERROR_POKEMON_NOT_FOUND"+          = Prelude.Just SetFavoritePokemonResponse'ERROR_POKEMON_NOT_FOUND+        readEnum "ERROR_POKEMON_IS_EGG"+          = Prelude.Just SetFavoritePokemonResponse'ERROR_POKEMON_IS_EGG+        readEnum _ = Prelude.Nothing++instance Prelude.Enum SetFavoritePokemonResponse'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 SetFavoritePokemonResponse'UNSET = 0+        fromEnum SetFavoritePokemonResponse'SUCCESS = 1+        fromEnum SetFavoritePokemonResponse'ERROR_POKEMON_NOT_FOUND = 2+        fromEnum SetFavoritePokemonResponse'ERROR_POKEMON_IS_EGG = 3+        succ SetFavoritePokemonResponse'ERROR_POKEMON_IS_EGG+          = Prelude.error+              "Ident \"SetFavoritePokemonResponse'Result\".Ident \"succ\": bad argument Ident \"SetFavoritePokemonResponse'ERROR_POKEMON_IS_EGG\". This value would be out of bounds."+        succ SetFavoritePokemonResponse'UNSET+          = SetFavoritePokemonResponse'SUCCESS+        succ SetFavoritePokemonResponse'SUCCESS+          = SetFavoritePokemonResponse'ERROR_POKEMON_NOT_FOUND+        succ SetFavoritePokemonResponse'ERROR_POKEMON_NOT_FOUND+          = SetFavoritePokemonResponse'ERROR_POKEMON_IS_EGG+        pred SetFavoritePokemonResponse'UNSET+          = Prelude.error+              "Ident \"SetFavoritePokemonResponse'Result\".Ident \"pred\": bad argument Ident \"SetFavoritePokemonResponse'UNSET\". This value would be out of bounds."+        pred SetFavoritePokemonResponse'SUCCESS+          = SetFavoritePokemonResponse'UNSET+        pred SetFavoritePokemonResponse'ERROR_POKEMON_NOT_FOUND+          = SetFavoritePokemonResponse'SUCCESS+        pred SetFavoritePokemonResponse'ERROR_POKEMON_IS_EGG+          = SetFavoritePokemonResponse'ERROR_POKEMON_NOT_FOUND+        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 SetFavoritePokemonResponse'Result where+        minBound = SetFavoritePokemonResponse'UNSET+        maxBound = SetFavoritePokemonResponse'ERROR_POKEMON_IS_EGG++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")
+ src/Proto/POGOProtos/Networking/Responses/SetPlayerTeamResponse.hs view
@@ -0,0 +1,179 @@+{- This file was auto-generated from POGOProtos/Networking/Responses/SetPlayerTeamResponse.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Responses.SetPlayerTeamResponse+       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.PlayerData++data SetPlayerTeamResponse = SetPlayerTeamResponse{_SetPlayerTeamResponse'status+                                                   :: SetPlayerTeamResponse'Status,+                                                   _SetPlayerTeamResponse'playerData ::+                                                   Prelude.Maybe+                                                     Proto.POGOProtos.Data.PlayerData.PlayerData}+                           deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "status" SetPlayerTeamResponse =+     SetPlayerTeamResponse'Status++instance Data.ProtoLens.HasField "status" SetPlayerTeamResponse+         SetPlayerTeamResponse where+        field _+          = Lens.Family2.Unchecked.lens _SetPlayerTeamResponse'status+              (\ x__ y__ -> x__{_SetPlayerTeamResponse'status = y__})++type instance+     Data.ProtoLens.Field "playerData" SetPlayerTeamResponse =+     Proto.POGOProtos.Data.PlayerData.PlayerData++instance Data.ProtoLens.HasField "playerData" SetPlayerTeamResponse+         SetPlayerTeamResponse where+        field _+          = (Prelude..) maybe'playerData+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance+     Data.ProtoLens.Field "maybe'playerData" SetPlayerTeamResponse =+     Prelude.Maybe Proto.POGOProtos.Data.PlayerData.PlayerData++instance Data.ProtoLens.HasField "maybe'playerData"+         SetPlayerTeamResponse SetPlayerTeamResponse where+        field _+          = Lens.Family2.Unchecked.lens _SetPlayerTeamResponse'playerData+              (\ x__ y__ -> x__{_SetPlayerTeamResponse'playerData = y__})++instance Data.Default.Class.Default SetPlayerTeamResponse where+        def+          = SetPlayerTeamResponse{_SetPlayerTeamResponse'status =+                                    Data.Default.Class.def,+                                  _SetPlayerTeamResponse'playerData = Prelude.Nothing}++instance Data.ProtoLens.Message SetPlayerTeamResponse where+        descriptor+          = let status__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "status"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor SetPlayerTeamResponse'Status)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional status)+                playerData__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "player_data"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Data.PlayerData.PlayerData)+                      (Data.ProtoLens.OptionalField maybe'playerData)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, status__field_descriptor),+                    (Data.ProtoLens.Tag 2, playerData__field_descriptor)])+                (Data.Map.fromList+                   [("status", status__field_descriptor),+                    ("player_data", playerData__field_descriptor)])++data SetPlayerTeamResponse'Status = SetPlayerTeamResponse'UNSET+                                  | SetPlayerTeamResponse'SUCCESS+                                  | SetPlayerTeamResponse'TEAM_ALREADY_SET+                                  | SetPlayerTeamResponse'FAILURE+                                  deriving (Prelude.Show, Prelude.Eq)++instance Data.Default.Class.Default SetPlayerTeamResponse'Status+         where+        def = SetPlayerTeamResponse'UNSET++instance Data.ProtoLens.FieldDefault SetPlayerTeamResponse'Status+         where+        fieldDefault = SetPlayerTeamResponse'UNSET++instance Data.ProtoLens.MessageEnum SetPlayerTeamResponse'Status+         where+        maybeToEnum 0 = Prelude.Just SetPlayerTeamResponse'UNSET+        maybeToEnum 1 = Prelude.Just SetPlayerTeamResponse'SUCCESS+        maybeToEnum 2 = Prelude.Just SetPlayerTeamResponse'TEAM_ALREADY_SET+        maybeToEnum 3 = Prelude.Just SetPlayerTeamResponse'FAILURE+        maybeToEnum _ = Prelude.Nothing+        showEnum SetPlayerTeamResponse'UNSET = "UNSET"+        showEnum SetPlayerTeamResponse'SUCCESS = "SUCCESS"+        showEnum SetPlayerTeamResponse'TEAM_ALREADY_SET+          = "TEAM_ALREADY_SET"+        showEnum SetPlayerTeamResponse'FAILURE = "FAILURE"+        readEnum "UNSET" = Prelude.Just SetPlayerTeamResponse'UNSET+        readEnum "SUCCESS" = Prelude.Just SetPlayerTeamResponse'SUCCESS+        readEnum "TEAM_ALREADY_SET"+          = Prelude.Just SetPlayerTeamResponse'TEAM_ALREADY_SET+        readEnum "FAILURE" = Prelude.Just SetPlayerTeamResponse'FAILURE+        readEnum _ = Prelude.Nothing++instance Prelude.Enum SetPlayerTeamResponse'Status where+        toEnum k__+          = Prelude.maybe+              (Prelude.error+                 ((Prelude.++) "toEnum: unknown value for enum Status: "+                    (Prelude.show k__)))+              Prelude.id+              (Data.ProtoLens.maybeToEnum k__)+        fromEnum SetPlayerTeamResponse'UNSET = 0+        fromEnum SetPlayerTeamResponse'SUCCESS = 1+        fromEnum SetPlayerTeamResponse'TEAM_ALREADY_SET = 2+        fromEnum SetPlayerTeamResponse'FAILURE = 3+        succ SetPlayerTeamResponse'FAILURE+          = Prelude.error+              "Ident \"SetPlayerTeamResponse'Status\".Ident \"succ\": bad argument Ident \"SetPlayerTeamResponse'FAILURE\". This value would be out of bounds."+        succ SetPlayerTeamResponse'UNSET = SetPlayerTeamResponse'SUCCESS+        succ SetPlayerTeamResponse'SUCCESS+          = SetPlayerTeamResponse'TEAM_ALREADY_SET+        succ SetPlayerTeamResponse'TEAM_ALREADY_SET+          = SetPlayerTeamResponse'FAILURE+        pred SetPlayerTeamResponse'UNSET+          = Prelude.error+              "Ident \"SetPlayerTeamResponse'Status\".Ident \"pred\": bad argument Ident \"SetPlayerTeamResponse'UNSET\". This value would be out of bounds."+        pred SetPlayerTeamResponse'SUCCESS = SetPlayerTeamResponse'UNSET+        pred SetPlayerTeamResponse'TEAM_ALREADY_SET+          = SetPlayerTeamResponse'SUCCESS+        pred SetPlayerTeamResponse'FAILURE+          = SetPlayerTeamResponse'TEAM_ALREADY_SET+        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 SetPlayerTeamResponse'Status where+        minBound = SetPlayerTeamResponse'UNSET+        maxBound = SetPlayerTeamResponse'FAILURE++maybe'playerData ::+                 forall msg msg' .+                   Data.ProtoLens.HasField "maybe'playerData" msg msg' =>+                   Lens.Family2.Lens msg msg'+                     (Data.ProtoLens.Field "maybe'playerData" msg)+                     (Data.ProtoLens.Field "maybe'playerData" msg')+maybe'playerData+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "maybe'playerData")++playerData ::+           forall msg msg' . Data.ProtoLens.HasField "playerData" msg msg' =>+             Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "playerData" msg)+               (Data.ProtoLens.Field "playerData" msg')+playerData+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "playerData")++status ::+       forall msg msg' . Data.ProtoLens.HasField "status" msg msg' =>+         Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "status" msg)+           (Data.ProtoLens.Field "status" msg')+status+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "status")
+ src/Proto/POGOProtos/Networking/Responses/SfidaActionLogResponse.hs view
@@ -0,0 +1,137 @@+{- This file was auto-generated from POGOProtos/Networking/Responses/SfidaActionLogResponse.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Responses.SfidaActionLogResponse+       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.Logs.ActionLogEntry++data SfidaActionLogResponse = SfidaActionLogResponse{_SfidaActionLogResponse'result+                                                     :: SfidaActionLogResponse'Result,+                                                     _SfidaActionLogResponse'logEntries ::+                                                     [Proto.POGOProtos.Data.Logs.ActionLogEntry.ActionLogEntry]}+                            deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "result" SfidaActionLogResponse+     = SfidaActionLogResponse'Result++instance Data.ProtoLens.HasField "result" SfidaActionLogResponse+         SfidaActionLogResponse where+        field _+          = Lens.Family2.Unchecked.lens _SfidaActionLogResponse'result+              (\ x__ y__ -> x__{_SfidaActionLogResponse'result = y__})++type instance+     Data.ProtoLens.Field "logEntries" SfidaActionLogResponse =+     [Proto.POGOProtos.Data.Logs.ActionLogEntry.ActionLogEntry]++instance Data.ProtoLens.HasField "logEntries"+         SfidaActionLogResponse SfidaActionLogResponse where+        field _+          = Lens.Family2.Unchecked.lens _SfidaActionLogResponse'logEntries+              (\ x__ y__ -> x__{_SfidaActionLogResponse'logEntries = y__})++instance Data.Default.Class.Default SfidaActionLogResponse where+        def+          = SfidaActionLogResponse{_SfidaActionLogResponse'result =+                                     Data.Default.Class.def,+                                   _SfidaActionLogResponse'logEntries = []}++instance Data.ProtoLens.Message SfidaActionLogResponse where+        descriptor+          = let result__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "result"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor SfidaActionLogResponse'Result)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional result)+                logEntries__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "log_entries"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Data.Logs.ActionLogEntry.ActionLogEntry)+                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked logEntries)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, result__field_descriptor),+                    (Data.ProtoLens.Tag 2, logEntries__field_descriptor)])+                (Data.Map.fromList+                   [("result", result__field_descriptor),+                    ("log_entries", logEntries__field_descriptor)])++data SfidaActionLogResponse'Result = SfidaActionLogResponse'UNSET+                                   | SfidaActionLogResponse'SUCCESS+                                   deriving (Prelude.Show, Prelude.Eq)++instance Data.Default.Class.Default SfidaActionLogResponse'Result+         where+        def = SfidaActionLogResponse'UNSET++instance Data.ProtoLens.FieldDefault SfidaActionLogResponse'Result+         where+        fieldDefault = SfidaActionLogResponse'UNSET++instance Data.ProtoLens.MessageEnum SfidaActionLogResponse'Result+         where+        maybeToEnum 0 = Prelude.Just SfidaActionLogResponse'UNSET+        maybeToEnum 1 = Prelude.Just SfidaActionLogResponse'SUCCESS+        maybeToEnum _ = Prelude.Nothing+        showEnum SfidaActionLogResponse'UNSET = "UNSET"+        showEnum SfidaActionLogResponse'SUCCESS = "SUCCESS"+        readEnum "UNSET" = Prelude.Just SfidaActionLogResponse'UNSET+        readEnum "SUCCESS" = Prelude.Just SfidaActionLogResponse'SUCCESS+        readEnum _ = Prelude.Nothing++instance Prelude.Enum SfidaActionLogResponse'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 SfidaActionLogResponse'UNSET = 0+        fromEnum SfidaActionLogResponse'SUCCESS = 1+        succ SfidaActionLogResponse'SUCCESS+          = Prelude.error+              "Ident \"SfidaActionLogResponse'Result\".Ident \"succ\": bad argument Ident \"SfidaActionLogResponse'SUCCESS\". This value would be out of bounds."+        succ SfidaActionLogResponse'UNSET = SfidaActionLogResponse'SUCCESS+        pred SfidaActionLogResponse'UNSET+          = Prelude.error+              "Ident \"SfidaActionLogResponse'Result\".Ident \"pred\": bad argument Ident \"SfidaActionLogResponse'UNSET\". This value would be out of bounds."+        pred SfidaActionLogResponse'SUCCESS = SfidaActionLogResponse'UNSET+        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 SfidaActionLogResponse'Result where+        minBound = SfidaActionLogResponse'UNSET+        maxBound = SfidaActionLogResponse'SUCCESS++logEntries ::+           forall msg msg' . Data.ProtoLens.HasField "logEntries" msg msg' =>+             Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "logEntries" msg)+               (Data.ProtoLens.Field "logEntries" msg')+logEntries+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "logEntries")++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")
+ src/Proto/POGOProtos/Networking/Responses/StartGymBattleResponse.hs view
@@ -0,0 +1,462 @@+{- This file was auto-generated from POGOProtos/Networking/Responses/StartGymBattleResponse.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Responses.StartGymBattleResponse+       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.Battle.BattleLog+import qualified Proto.POGOProtos.Data.Battle.BattleParticipant++data StartGymBattleResponse = StartGymBattleResponse{_StartGymBattleResponse'result+                                                     :: StartGymBattleResponse'Result,+                                                     _StartGymBattleResponse'battleStartTimestampMs+                                                     :: Data.Int.Int64,+                                                     _StartGymBattleResponse'battleEndTimestampMs ::+                                                     Data.Int.Int64,+                                                     _StartGymBattleResponse'battleId ::+                                                     Data.Text.Text,+                                                     _StartGymBattleResponse'defender ::+                                                     Prelude.Maybe+                                                       Proto.POGOProtos.Data.Battle.BattleParticipant.BattleParticipant,+                                                     _StartGymBattleResponse'battleLog ::+                                                     Prelude.Maybe+                                                       Proto.POGOProtos.Data.Battle.BattleLog.BattleLog}+                            deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "result" StartGymBattleResponse+     = StartGymBattleResponse'Result++instance Data.ProtoLens.HasField "result" StartGymBattleResponse+         StartGymBattleResponse where+        field _+          = Lens.Family2.Unchecked.lens _StartGymBattleResponse'result+              (\ x__ y__ -> x__{_StartGymBattleResponse'result = y__})++type instance+     Data.ProtoLens.Field "battleStartTimestampMs"+       StartGymBattleResponse+     = Data.Int.Int64++instance Data.ProtoLens.HasField "battleStartTimestampMs"+         StartGymBattleResponse StartGymBattleResponse where+        field _+          = Lens.Family2.Unchecked.lens+              _StartGymBattleResponse'battleStartTimestampMs+              (\ x__ y__ ->+                 x__{_StartGymBattleResponse'battleStartTimestampMs = y__})++type instance+     Data.ProtoLens.Field "battleEndTimestampMs" StartGymBattleResponse+     = Data.Int.Int64++instance Data.ProtoLens.HasField "battleEndTimestampMs"+         StartGymBattleResponse StartGymBattleResponse where+        field _+          = Lens.Family2.Unchecked.lens+              _StartGymBattleResponse'battleEndTimestampMs+              (\ x__ y__ ->+                 x__{_StartGymBattleResponse'battleEndTimestampMs = y__})++type instance+     Data.ProtoLens.Field "battleId" StartGymBattleResponse =+     Data.Text.Text++instance Data.ProtoLens.HasField "battleId" StartGymBattleResponse+         StartGymBattleResponse where+        field _+          = Lens.Family2.Unchecked.lens _StartGymBattleResponse'battleId+              (\ x__ y__ -> x__{_StartGymBattleResponse'battleId = y__})++type instance+     Data.ProtoLens.Field "defender" StartGymBattleResponse =+     Proto.POGOProtos.Data.Battle.BattleParticipant.BattleParticipant++instance Data.ProtoLens.HasField "defender" StartGymBattleResponse+         StartGymBattleResponse where+        field _+          = (Prelude..) maybe'defender+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance+     Data.ProtoLens.Field "maybe'defender" StartGymBattleResponse =+     Prelude.Maybe+       Proto.POGOProtos.Data.Battle.BattleParticipant.BattleParticipant++instance Data.ProtoLens.HasField "maybe'defender"+         StartGymBattleResponse StartGymBattleResponse where+        field _+          = Lens.Family2.Unchecked.lens _StartGymBattleResponse'defender+              (\ x__ y__ -> x__{_StartGymBattleResponse'defender = y__})++type instance+     Data.ProtoLens.Field "battleLog" StartGymBattleResponse =+     Proto.POGOProtos.Data.Battle.BattleLog.BattleLog++instance Data.ProtoLens.HasField "battleLog" StartGymBattleResponse+         StartGymBattleResponse where+        field _+          = (Prelude..) maybe'battleLog+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance+     Data.ProtoLens.Field "maybe'battleLog" StartGymBattleResponse =+     Prelude.Maybe Proto.POGOProtos.Data.Battle.BattleLog.BattleLog++instance Data.ProtoLens.HasField "maybe'battleLog"+         StartGymBattleResponse StartGymBattleResponse where+        field _+          = Lens.Family2.Unchecked.lens _StartGymBattleResponse'battleLog+              (\ x__ y__ -> x__{_StartGymBattleResponse'battleLog = y__})++instance Data.Default.Class.Default StartGymBattleResponse where+        def+          = StartGymBattleResponse{_StartGymBattleResponse'result =+                                     Data.Default.Class.def,+                                   _StartGymBattleResponse'battleStartTimestampMs =+                                     Data.ProtoLens.fieldDefault,+                                   _StartGymBattleResponse'battleEndTimestampMs =+                                     Data.ProtoLens.fieldDefault,+                                   _StartGymBattleResponse'battleId = Data.ProtoLens.fieldDefault,+                                   _StartGymBattleResponse'defender = Prelude.Nothing,+                                   _StartGymBattleResponse'battleLog = Prelude.Nothing}++instance Data.ProtoLens.Message StartGymBattleResponse where+        descriptor+          = let result__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "result"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor StartGymBattleResponse'Result)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional result)+                battleStartTimestampMs__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "battle_start_timestamp_ms"+                      (Data.ProtoLens.Int64Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         battleStartTimestampMs)+                battleEndTimestampMs__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "battle_end_timestamp_ms"+                      (Data.ProtoLens.Int64Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         battleEndTimestampMs)+                battleId__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "battle_id"+                      (Data.ProtoLens.StringField ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional battleId)+                defender__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "defender"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Data.Battle.BattleParticipant.BattleParticipant)+                      (Data.ProtoLens.OptionalField maybe'defender)+                battleLog__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "battle_log"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Data.Battle.BattleLog.BattleLog)+                      (Data.ProtoLens.OptionalField maybe'battleLog)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, result__field_descriptor),+                    (Data.ProtoLens.Tag 2, battleStartTimestampMs__field_descriptor),+                    (Data.ProtoLens.Tag 3, battleEndTimestampMs__field_descriptor),+                    (Data.ProtoLens.Tag 4, battleId__field_descriptor),+                    (Data.ProtoLens.Tag 5, defender__field_descriptor),+                    (Data.ProtoLens.Tag 6, battleLog__field_descriptor)])+                (Data.Map.fromList+                   [("result", result__field_descriptor),+                    ("battle_start_timestamp_ms",+                     battleStartTimestampMs__field_descriptor),+                    ("battle_end_timestamp_ms",+                     battleEndTimestampMs__field_descriptor),+                    ("battle_id", battleId__field_descriptor),+                    ("defender", defender__field_descriptor),+                    ("battle_log", battleLog__field_descriptor)])++data StartGymBattleResponse'Result = StartGymBattleResponse'UNSET+                                   | StartGymBattleResponse'SUCCESS+                                   | StartGymBattleResponse'ERROR_GYM_NOT_FOUND+                                   | StartGymBattleResponse'ERROR_GYM_NEUTRAL+                                   | StartGymBattleResponse'ERROR_GYM_WRONG_TEAM+                                   | StartGymBattleResponse'ERROR_GYM_EMPTY+                                   | StartGymBattleResponse'ERROR_INVALID_DEFENDER+                                   | StartGymBattleResponse'ERROR_TRAINING_INVALID_ATTACKER_COUNT+                                   | StartGymBattleResponse'ERROR_ALL_POKEMON_FAINTED+                                   | StartGymBattleResponse'ERROR_TOO_MANY_BATTLES+                                   | StartGymBattleResponse'ERROR_TOO_MANY_PLAYERS+                                   | StartGymBattleResponse'ERROR_GYM_BATTLE_LOCKOUT+                                   | StartGymBattleResponse'ERROR_PLAYER_BELOW_MINIMUM_LEVEL+                                   | StartGymBattleResponse'ERROR_NOT_IN_RANGE+                                   deriving (Prelude.Show, Prelude.Eq)++instance Data.Default.Class.Default StartGymBattleResponse'Result+         where+        def = StartGymBattleResponse'UNSET++instance Data.ProtoLens.FieldDefault StartGymBattleResponse'Result+         where+        fieldDefault = StartGymBattleResponse'UNSET++instance Data.ProtoLens.MessageEnum StartGymBattleResponse'Result+         where+        maybeToEnum 0 = Prelude.Just StartGymBattleResponse'UNSET+        maybeToEnum 1 = Prelude.Just StartGymBattleResponse'SUCCESS+        maybeToEnum 2+          = Prelude.Just StartGymBattleResponse'ERROR_GYM_NOT_FOUND+        maybeToEnum 3+          = Prelude.Just StartGymBattleResponse'ERROR_GYM_NEUTRAL+        maybeToEnum 4+          = Prelude.Just StartGymBattleResponse'ERROR_GYM_WRONG_TEAM+        maybeToEnum 5 = Prelude.Just StartGymBattleResponse'ERROR_GYM_EMPTY+        maybeToEnum 6+          = Prelude.Just StartGymBattleResponse'ERROR_INVALID_DEFENDER+        maybeToEnum 7+          = Prelude.Just+              StartGymBattleResponse'ERROR_TRAINING_INVALID_ATTACKER_COUNT+        maybeToEnum 8+          = Prelude.Just StartGymBattleResponse'ERROR_ALL_POKEMON_FAINTED+        maybeToEnum 9+          = Prelude.Just StartGymBattleResponse'ERROR_TOO_MANY_BATTLES+        maybeToEnum 10+          = Prelude.Just StartGymBattleResponse'ERROR_TOO_MANY_PLAYERS+        maybeToEnum 11+          = Prelude.Just StartGymBattleResponse'ERROR_GYM_BATTLE_LOCKOUT+        maybeToEnum 12+          = Prelude.Just+              StartGymBattleResponse'ERROR_PLAYER_BELOW_MINIMUM_LEVEL+        maybeToEnum 13+          = Prelude.Just StartGymBattleResponse'ERROR_NOT_IN_RANGE+        maybeToEnum _ = Prelude.Nothing+        showEnum StartGymBattleResponse'UNSET = "UNSET"+        showEnum StartGymBattleResponse'SUCCESS = "SUCCESS"+        showEnum StartGymBattleResponse'ERROR_GYM_NOT_FOUND+          = "ERROR_GYM_NOT_FOUND"+        showEnum StartGymBattleResponse'ERROR_GYM_NEUTRAL+          = "ERROR_GYM_NEUTRAL"+        showEnum StartGymBattleResponse'ERROR_GYM_WRONG_TEAM+          = "ERROR_GYM_WRONG_TEAM"+        showEnum StartGymBattleResponse'ERROR_GYM_EMPTY = "ERROR_GYM_EMPTY"+        showEnum StartGymBattleResponse'ERROR_INVALID_DEFENDER+          = "ERROR_INVALID_DEFENDER"+        showEnum+          StartGymBattleResponse'ERROR_TRAINING_INVALID_ATTACKER_COUNT+          = "ERROR_TRAINING_INVALID_ATTACKER_COUNT"+        showEnum StartGymBattleResponse'ERROR_ALL_POKEMON_FAINTED+          = "ERROR_ALL_POKEMON_FAINTED"+        showEnum StartGymBattleResponse'ERROR_TOO_MANY_BATTLES+          = "ERROR_TOO_MANY_BATTLES"+        showEnum StartGymBattleResponse'ERROR_TOO_MANY_PLAYERS+          = "ERROR_TOO_MANY_PLAYERS"+        showEnum StartGymBattleResponse'ERROR_GYM_BATTLE_LOCKOUT+          = "ERROR_GYM_BATTLE_LOCKOUT"+        showEnum StartGymBattleResponse'ERROR_PLAYER_BELOW_MINIMUM_LEVEL+          = "ERROR_PLAYER_BELOW_MINIMUM_LEVEL"+        showEnum StartGymBattleResponse'ERROR_NOT_IN_RANGE+          = "ERROR_NOT_IN_RANGE"+        readEnum "UNSET" = Prelude.Just StartGymBattleResponse'UNSET+        readEnum "SUCCESS" = Prelude.Just StartGymBattleResponse'SUCCESS+        readEnum "ERROR_GYM_NOT_FOUND"+          = Prelude.Just StartGymBattleResponse'ERROR_GYM_NOT_FOUND+        readEnum "ERROR_GYM_NEUTRAL"+          = Prelude.Just StartGymBattleResponse'ERROR_GYM_NEUTRAL+        readEnum "ERROR_GYM_WRONG_TEAM"+          = Prelude.Just StartGymBattleResponse'ERROR_GYM_WRONG_TEAM+        readEnum "ERROR_GYM_EMPTY"+          = Prelude.Just StartGymBattleResponse'ERROR_GYM_EMPTY+        readEnum "ERROR_INVALID_DEFENDER"+          = Prelude.Just StartGymBattleResponse'ERROR_INVALID_DEFENDER+        readEnum "ERROR_TRAINING_INVALID_ATTACKER_COUNT"+          = Prelude.Just+              StartGymBattleResponse'ERROR_TRAINING_INVALID_ATTACKER_COUNT+        readEnum "ERROR_ALL_POKEMON_FAINTED"+          = Prelude.Just StartGymBattleResponse'ERROR_ALL_POKEMON_FAINTED+        readEnum "ERROR_TOO_MANY_BATTLES"+          = Prelude.Just StartGymBattleResponse'ERROR_TOO_MANY_BATTLES+        readEnum "ERROR_TOO_MANY_PLAYERS"+          = Prelude.Just StartGymBattleResponse'ERROR_TOO_MANY_PLAYERS+        readEnum "ERROR_GYM_BATTLE_LOCKOUT"+          = Prelude.Just StartGymBattleResponse'ERROR_GYM_BATTLE_LOCKOUT+        readEnum "ERROR_PLAYER_BELOW_MINIMUM_LEVEL"+          = Prelude.Just+              StartGymBattleResponse'ERROR_PLAYER_BELOW_MINIMUM_LEVEL+        readEnum "ERROR_NOT_IN_RANGE"+          = Prelude.Just StartGymBattleResponse'ERROR_NOT_IN_RANGE+        readEnum _ = Prelude.Nothing++instance Prelude.Enum StartGymBattleResponse'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 StartGymBattleResponse'UNSET = 0+        fromEnum StartGymBattleResponse'SUCCESS = 1+        fromEnum StartGymBattleResponse'ERROR_GYM_NOT_FOUND = 2+        fromEnum StartGymBattleResponse'ERROR_GYM_NEUTRAL = 3+        fromEnum StartGymBattleResponse'ERROR_GYM_WRONG_TEAM = 4+        fromEnum StartGymBattleResponse'ERROR_GYM_EMPTY = 5+        fromEnum StartGymBattleResponse'ERROR_INVALID_DEFENDER = 6+        fromEnum+          StartGymBattleResponse'ERROR_TRAINING_INVALID_ATTACKER_COUNT = 7+        fromEnum StartGymBattleResponse'ERROR_ALL_POKEMON_FAINTED = 8+        fromEnum StartGymBattleResponse'ERROR_TOO_MANY_BATTLES = 9+        fromEnum StartGymBattleResponse'ERROR_TOO_MANY_PLAYERS = 10+        fromEnum StartGymBattleResponse'ERROR_GYM_BATTLE_LOCKOUT = 11+        fromEnum StartGymBattleResponse'ERROR_PLAYER_BELOW_MINIMUM_LEVEL+          = 12+        fromEnum StartGymBattleResponse'ERROR_NOT_IN_RANGE = 13+        succ StartGymBattleResponse'ERROR_NOT_IN_RANGE+          = Prelude.error+              "Ident \"StartGymBattleResponse'Result\".Ident \"succ\": bad argument Ident \"StartGymBattleResponse'ERROR_NOT_IN_RANGE\". This value would be out of bounds."+        succ StartGymBattleResponse'UNSET = StartGymBattleResponse'SUCCESS+        succ StartGymBattleResponse'SUCCESS+          = StartGymBattleResponse'ERROR_GYM_NOT_FOUND+        succ StartGymBattleResponse'ERROR_GYM_NOT_FOUND+          = StartGymBattleResponse'ERROR_GYM_NEUTRAL+        succ StartGymBattleResponse'ERROR_GYM_NEUTRAL+          = StartGymBattleResponse'ERROR_GYM_WRONG_TEAM+        succ StartGymBattleResponse'ERROR_GYM_WRONG_TEAM+          = StartGymBattleResponse'ERROR_GYM_EMPTY+        succ StartGymBattleResponse'ERROR_GYM_EMPTY+          = StartGymBattleResponse'ERROR_INVALID_DEFENDER+        succ StartGymBattleResponse'ERROR_INVALID_DEFENDER+          = StartGymBattleResponse'ERROR_TRAINING_INVALID_ATTACKER_COUNT+        succ StartGymBattleResponse'ERROR_TRAINING_INVALID_ATTACKER_COUNT+          = StartGymBattleResponse'ERROR_ALL_POKEMON_FAINTED+        succ StartGymBattleResponse'ERROR_ALL_POKEMON_FAINTED+          = StartGymBattleResponse'ERROR_TOO_MANY_BATTLES+        succ StartGymBattleResponse'ERROR_TOO_MANY_BATTLES+          = StartGymBattleResponse'ERROR_TOO_MANY_PLAYERS+        succ StartGymBattleResponse'ERROR_TOO_MANY_PLAYERS+          = StartGymBattleResponse'ERROR_GYM_BATTLE_LOCKOUT+        succ StartGymBattleResponse'ERROR_GYM_BATTLE_LOCKOUT+          = StartGymBattleResponse'ERROR_PLAYER_BELOW_MINIMUM_LEVEL+        succ StartGymBattleResponse'ERROR_PLAYER_BELOW_MINIMUM_LEVEL+          = StartGymBattleResponse'ERROR_NOT_IN_RANGE+        pred StartGymBattleResponse'UNSET+          = Prelude.error+              "Ident \"StartGymBattleResponse'Result\".Ident \"pred\": bad argument Ident \"StartGymBattleResponse'UNSET\". This value would be out of bounds."+        pred StartGymBattleResponse'SUCCESS = StartGymBattleResponse'UNSET+        pred StartGymBattleResponse'ERROR_GYM_NOT_FOUND+          = StartGymBattleResponse'SUCCESS+        pred StartGymBattleResponse'ERROR_GYM_NEUTRAL+          = StartGymBattleResponse'ERROR_GYM_NOT_FOUND+        pred StartGymBattleResponse'ERROR_GYM_WRONG_TEAM+          = StartGymBattleResponse'ERROR_GYM_NEUTRAL+        pred StartGymBattleResponse'ERROR_GYM_EMPTY+          = StartGymBattleResponse'ERROR_GYM_WRONG_TEAM+        pred StartGymBattleResponse'ERROR_INVALID_DEFENDER+          = StartGymBattleResponse'ERROR_GYM_EMPTY+        pred StartGymBattleResponse'ERROR_TRAINING_INVALID_ATTACKER_COUNT+          = StartGymBattleResponse'ERROR_INVALID_DEFENDER+        pred StartGymBattleResponse'ERROR_ALL_POKEMON_FAINTED+          = StartGymBattleResponse'ERROR_TRAINING_INVALID_ATTACKER_COUNT+        pred StartGymBattleResponse'ERROR_TOO_MANY_BATTLES+          = StartGymBattleResponse'ERROR_ALL_POKEMON_FAINTED+        pred StartGymBattleResponse'ERROR_TOO_MANY_PLAYERS+          = StartGymBattleResponse'ERROR_TOO_MANY_BATTLES+        pred StartGymBattleResponse'ERROR_GYM_BATTLE_LOCKOUT+          = StartGymBattleResponse'ERROR_TOO_MANY_PLAYERS+        pred StartGymBattleResponse'ERROR_PLAYER_BELOW_MINIMUM_LEVEL+          = StartGymBattleResponse'ERROR_GYM_BATTLE_LOCKOUT+        pred StartGymBattleResponse'ERROR_NOT_IN_RANGE+          = StartGymBattleResponse'ERROR_PLAYER_BELOW_MINIMUM_LEVEL+        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 StartGymBattleResponse'Result where+        minBound = StartGymBattleResponse'UNSET+        maxBound = StartGymBattleResponse'ERROR_NOT_IN_RANGE++battleEndTimestampMs ::+                     forall msg msg' .+                       Data.ProtoLens.HasField "battleEndTimestampMs" msg msg' =>+                       Lens.Family2.Lens msg msg'+                         (Data.ProtoLens.Field "battleEndTimestampMs" msg)+                         (Data.ProtoLens.Field "battleEndTimestampMs" msg')+battleEndTimestampMs+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "battleEndTimestampMs")++battleId ::+         forall msg msg' . Data.ProtoLens.HasField "battleId" msg msg' =>+           Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "battleId" msg)+             (Data.ProtoLens.Field "battleId" msg')+battleId+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "battleId")++battleLog ::+          forall msg msg' . Data.ProtoLens.HasField "battleLog" msg msg' =>+            Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "battleLog" msg)+              (Data.ProtoLens.Field "battleLog" msg')+battleLog+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "battleLog")++battleStartTimestampMs ::+                       forall msg msg' .+                         Data.ProtoLens.HasField "battleStartTimestampMs" msg msg' =>+                         Lens.Family2.Lens msg msg'+                           (Data.ProtoLens.Field "battleStartTimestampMs" msg)+                           (Data.ProtoLens.Field "battleStartTimestampMs" msg')+battleStartTimestampMs+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "battleStartTimestampMs")++defender ::+         forall msg msg' . Data.ProtoLens.HasField "defender" msg msg' =>+           Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "defender" msg)+             (Data.ProtoLens.Field "defender" msg')+defender+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "defender")++maybe'battleLog ::+                forall msg msg' .+                  Data.ProtoLens.HasField "maybe'battleLog" msg msg' =>+                  Lens.Family2.Lens msg msg'+                    (Data.ProtoLens.Field "maybe'battleLog" msg)+                    (Data.ProtoLens.Field "maybe'battleLog" msg')+maybe'battleLog+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "maybe'battleLog")++maybe'defender ::+               forall msg msg' .+                 Data.ProtoLens.HasField "maybe'defender" msg msg' =>+                 Lens.Family2.Lens msg msg'+                   (Data.ProtoLens.Field "maybe'defender" msg)+                   (Data.ProtoLens.Field "maybe'defender" msg')+maybe'defender+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "maybe'defender")++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")
+ src/Proto/POGOProtos/Networking/Responses/UpgradePokemonResponse.hs view
@@ -0,0 +1,211 @@+{- This file was auto-generated from POGOProtos/Networking/Responses/UpgradePokemonResponse.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Responses.UpgradePokemonResponse+       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.PokemonData++data UpgradePokemonResponse = UpgradePokemonResponse{_UpgradePokemonResponse'result+                                                     :: UpgradePokemonResponse'Result,+                                                     _UpgradePokemonResponse'upgradedPokemon ::+                                                     Prelude.Maybe+                                                       Proto.POGOProtos.Data.PokemonData.PokemonData}+                            deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "result" UpgradePokemonResponse+     = UpgradePokemonResponse'Result++instance Data.ProtoLens.HasField "result" UpgradePokemonResponse+         UpgradePokemonResponse where+        field _+          = Lens.Family2.Unchecked.lens _UpgradePokemonResponse'result+              (\ x__ y__ -> x__{_UpgradePokemonResponse'result = y__})++type instance+     Data.ProtoLens.Field "upgradedPokemon" UpgradePokemonResponse =+     Proto.POGOProtos.Data.PokemonData.PokemonData++instance Data.ProtoLens.HasField "upgradedPokemon"+         UpgradePokemonResponse UpgradePokemonResponse where+        field _+          = (Prelude..) maybe'upgradedPokemon+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance+     Data.ProtoLens.Field "maybe'upgradedPokemon" UpgradePokemonResponse+     = Prelude.Maybe Proto.POGOProtos.Data.PokemonData.PokemonData++instance Data.ProtoLens.HasField "maybe'upgradedPokemon"+         UpgradePokemonResponse UpgradePokemonResponse where+        field _+          = Lens.Family2.Unchecked.lens+              _UpgradePokemonResponse'upgradedPokemon+              (\ x__ y__ -> x__{_UpgradePokemonResponse'upgradedPokemon = y__})++instance Data.Default.Class.Default UpgradePokemonResponse where+        def+          = UpgradePokemonResponse{_UpgradePokemonResponse'result =+                                     Data.Default.Class.def,+                                   _UpgradePokemonResponse'upgradedPokemon = Prelude.Nothing}++instance Data.ProtoLens.Message UpgradePokemonResponse where+        descriptor+          = let result__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "result"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor UpgradePokemonResponse'Result)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional result)+                upgradedPokemon__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "upgraded_pokemon"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Data.PokemonData.PokemonData)+                      (Data.ProtoLens.OptionalField maybe'upgradedPokemon)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, result__field_descriptor),+                    (Data.ProtoLens.Tag 2, upgradedPokemon__field_descriptor)])+                (Data.Map.fromList+                   [("result", result__field_descriptor),+                    ("upgraded_pokemon", upgradedPokemon__field_descriptor)])++data UpgradePokemonResponse'Result = UpgradePokemonResponse'UNSET+                                   | UpgradePokemonResponse'SUCCESS+                                   | UpgradePokemonResponse'ERROR_POKEMON_NOT_FOUND+                                   | UpgradePokemonResponse'ERROR_INSUFFICIENT_RESOURCES+                                   | UpgradePokemonResponse'ERROR_UPGRADE_NOT_AVAILABLE+                                   | UpgradePokemonResponse'ERROR_POKEMON_IS_DEPLOYED+                                   deriving (Prelude.Show, Prelude.Eq)++instance Data.Default.Class.Default UpgradePokemonResponse'Result+         where+        def = UpgradePokemonResponse'UNSET++instance Data.ProtoLens.FieldDefault UpgradePokemonResponse'Result+         where+        fieldDefault = UpgradePokemonResponse'UNSET++instance Data.ProtoLens.MessageEnum UpgradePokemonResponse'Result+         where+        maybeToEnum 0 = Prelude.Just UpgradePokemonResponse'UNSET+        maybeToEnum 1 = Prelude.Just UpgradePokemonResponse'SUCCESS+        maybeToEnum 2+          = Prelude.Just UpgradePokemonResponse'ERROR_POKEMON_NOT_FOUND+        maybeToEnum 3+          = Prelude.Just UpgradePokemonResponse'ERROR_INSUFFICIENT_RESOURCES+        maybeToEnum 4+          = Prelude.Just UpgradePokemonResponse'ERROR_UPGRADE_NOT_AVAILABLE+        maybeToEnum 5+          = Prelude.Just UpgradePokemonResponse'ERROR_POKEMON_IS_DEPLOYED+        maybeToEnum _ = Prelude.Nothing+        showEnum UpgradePokemonResponse'UNSET = "UNSET"+        showEnum UpgradePokemonResponse'SUCCESS = "SUCCESS"+        showEnum UpgradePokemonResponse'ERROR_POKEMON_NOT_FOUND+          = "ERROR_POKEMON_NOT_FOUND"+        showEnum UpgradePokemonResponse'ERROR_INSUFFICIENT_RESOURCES+          = "ERROR_INSUFFICIENT_RESOURCES"+        showEnum UpgradePokemonResponse'ERROR_UPGRADE_NOT_AVAILABLE+          = "ERROR_UPGRADE_NOT_AVAILABLE"+        showEnum UpgradePokemonResponse'ERROR_POKEMON_IS_DEPLOYED+          = "ERROR_POKEMON_IS_DEPLOYED"+        readEnum "UNSET" = Prelude.Just UpgradePokemonResponse'UNSET+        readEnum "SUCCESS" = Prelude.Just UpgradePokemonResponse'SUCCESS+        readEnum "ERROR_POKEMON_NOT_FOUND"+          = Prelude.Just UpgradePokemonResponse'ERROR_POKEMON_NOT_FOUND+        readEnum "ERROR_INSUFFICIENT_RESOURCES"+          = Prelude.Just UpgradePokemonResponse'ERROR_INSUFFICIENT_RESOURCES+        readEnum "ERROR_UPGRADE_NOT_AVAILABLE"+          = Prelude.Just UpgradePokemonResponse'ERROR_UPGRADE_NOT_AVAILABLE+        readEnum "ERROR_POKEMON_IS_DEPLOYED"+          = Prelude.Just UpgradePokemonResponse'ERROR_POKEMON_IS_DEPLOYED+        readEnum _ = Prelude.Nothing++instance Prelude.Enum UpgradePokemonResponse'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 UpgradePokemonResponse'UNSET = 0+        fromEnum UpgradePokemonResponse'SUCCESS = 1+        fromEnum UpgradePokemonResponse'ERROR_POKEMON_NOT_FOUND = 2+        fromEnum UpgradePokemonResponse'ERROR_INSUFFICIENT_RESOURCES = 3+        fromEnum UpgradePokemonResponse'ERROR_UPGRADE_NOT_AVAILABLE = 4+        fromEnum UpgradePokemonResponse'ERROR_POKEMON_IS_DEPLOYED = 5+        succ UpgradePokemonResponse'ERROR_POKEMON_IS_DEPLOYED+          = Prelude.error+              "Ident \"UpgradePokemonResponse'Result\".Ident \"succ\": bad argument Ident \"UpgradePokemonResponse'ERROR_POKEMON_IS_DEPLOYED\". This value would be out of bounds."+        succ UpgradePokemonResponse'UNSET = UpgradePokemonResponse'SUCCESS+        succ UpgradePokemonResponse'SUCCESS+          = UpgradePokemonResponse'ERROR_POKEMON_NOT_FOUND+        succ UpgradePokemonResponse'ERROR_POKEMON_NOT_FOUND+          = UpgradePokemonResponse'ERROR_INSUFFICIENT_RESOURCES+        succ UpgradePokemonResponse'ERROR_INSUFFICIENT_RESOURCES+          = UpgradePokemonResponse'ERROR_UPGRADE_NOT_AVAILABLE+        succ UpgradePokemonResponse'ERROR_UPGRADE_NOT_AVAILABLE+          = UpgradePokemonResponse'ERROR_POKEMON_IS_DEPLOYED+        pred UpgradePokemonResponse'UNSET+          = Prelude.error+              "Ident \"UpgradePokemonResponse'Result\".Ident \"pred\": bad argument Ident \"UpgradePokemonResponse'UNSET\". This value would be out of bounds."+        pred UpgradePokemonResponse'SUCCESS = UpgradePokemonResponse'UNSET+        pred UpgradePokemonResponse'ERROR_POKEMON_NOT_FOUND+          = UpgradePokemonResponse'SUCCESS+        pred UpgradePokemonResponse'ERROR_INSUFFICIENT_RESOURCES+          = UpgradePokemonResponse'ERROR_POKEMON_NOT_FOUND+        pred UpgradePokemonResponse'ERROR_UPGRADE_NOT_AVAILABLE+          = UpgradePokemonResponse'ERROR_INSUFFICIENT_RESOURCES+        pred UpgradePokemonResponse'ERROR_POKEMON_IS_DEPLOYED+          = UpgradePokemonResponse'ERROR_UPGRADE_NOT_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 UpgradePokemonResponse'Result where+        minBound = UpgradePokemonResponse'UNSET+        maxBound = UpgradePokemonResponse'ERROR_POKEMON_IS_DEPLOYED++maybe'upgradedPokemon ::+                      forall msg msg' .+                        Data.ProtoLens.HasField "maybe'upgradedPokemon" msg msg' =>+                        Lens.Family2.Lens msg msg'+                          (Data.ProtoLens.Field "maybe'upgradedPokemon" msg)+                          (Data.ProtoLens.Field "maybe'upgradedPokemon" msg')+maybe'upgradedPokemon+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "maybe'upgradedPokemon")++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")++upgradedPokemon ::+                forall msg msg' .+                  Data.ProtoLens.HasField "upgradedPokemon" msg msg' =>+                  Lens.Family2.Lens msg msg'+                    (Data.ProtoLens.Field "upgradedPokemon" msg)+                    (Data.ProtoLens.Field "upgradedPokemon" msg')+upgradedPokemon+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "upgradedPokemon")
+ src/Proto/POGOProtos/Networking/Responses/UseIncenseResponse.hs view
@@ -0,0 +1,192 @@+{- This file was auto-generated from POGOProtos/Networking/Responses/UseIncenseResponse.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Responses.UseIncenseResponse+       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.Inventory.AppliedItem++data UseIncenseResponse = UseIncenseResponse{_UseIncenseResponse'result+                                             :: UseIncenseResponse'Result,+                                             _UseIncenseResponse'appliedIncense ::+                                             Prelude.Maybe+                                               Proto.POGOProtos.Inventory.AppliedItem.AppliedItem}+                        deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "result" UseIncenseResponse =+     UseIncenseResponse'Result++instance Data.ProtoLens.HasField "result" UseIncenseResponse+         UseIncenseResponse where+        field _+          = Lens.Family2.Unchecked.lens _UseIncenseResponse'result+              (\ x__ y__ -> x__{_UseIncenseResponse'result = y__})++type instance+     Data.ProtoLens.Field "appliedIncense" UseIncenseResponse =+     Proto.POGOProtos.Inventory.AppliedItem.AppliedItem++instance Data.ProtoLens.HasField "appliedIncense"+         UseIncenseResponse UseIncenseResponse where+        field _+          = (Prelude..) maybe'appliedIncense+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance+     Data.ProtoLens.Field "maybe'appliedIncense" UseIncenseResponse =+     Prelude.Maybe Proto.POGOProtos.Inventory.AppliedItem.AppliedItem++instance Data.ProtoLens.HasField "maybe'appliedIncense"+         UseIncenseResponse UseIncenseResponse where+        field _+          = Lens.Family2.Unchecked.lens _UseIncenseResponse'appliedIncense+              (\ x__ y__ -> x__{_UseIncenseResponse'appliedIncense = y__})++instance Data.Default.Class.Default UseIncenseResponse where+        def+          = UseIncenseResponse{_UseIncenseResponse'result =+                                 Data.Default.Class.def,+                               _UseIncenseResponse'appliedIncense = Prelude.Nothing}++instance Data.ProtoLens.Message UseIncenseResponse where+        descriptor+          = let result__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "result"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor UseIncenseResponse'Result)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional result)+                appliedIncense__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "applied_incense"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Inventory.AppliedItem.AppliedItem)+                      (Data.ProtoLens.OptionalField maybe'appliedIncense)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, result__field_descriptor),+                    (Data.ProtoLens.Tag 2, appliedIncense__field_descriptor)])+                (Data.Map.fromList+                   [("result", result__field_descriptor),+                    ("applied_incense", appliedIncense__field_descriptor)])++data UseIncenseResponse'Result = UseIncenseResponse'UNKNOWN+                               | UseIncenseResponse'SUCCESS+                               | UseIncenseResponse'INCENSE_ALREADY_ACTIVE+                               | UseIncenseResponse'NONE_IN_INVENTORY+                               | UseIncenseResponse'LOCATION_UNSET+                               deriving (Prelude.Show, Prelude.Eq)++instance Data.Default.Class.Default UseIncenseResponse'Result where+        def = UseIncenseResponse'UNKNOWN++instance Data.ProtoLens.FieldDefault UseIncenseResponse'Result+         where+        fieldDefault = UseIncenseResponse'UNKNOWN++instance Data.ProtoLens.MessageEnum UseIncenseResponse'Result where+        maybeToEnum 0 = Prelude.Just UseIncenseResponse'UNKNOWN+        maybeToEnum 1 = Prelude.Just UseIncenseResponse'SUCCESS+        maybeToEnum 2+          = Prelude.Just UseIncenseResponse'INCENSE_ALREADY_ACTIVE+        maybeToEnum 3 = Prelude.Just UseIncenseResponse'NONE_IN_INVENTORY+        maybeToEnum 4 = Prelude.Just UseIncenseResponse'LOCATION_UNSET+        maybeToEnum _ = Prelude.Nothing+        showEnum UseIncenseResponse'UNKNOWN = "UNKNOWN"+        showEnum UseIncenseResponse'SUCCESS = "SUCCESS"+        showEnum UseIncenseResponse'INCENSE_ALREADY_ACTIVE+          = "INCENSE_ALREADY_ACTIVE"+        showEnum UseIncenseResponse'NONE_IN_INVENTORY = "NONE_IN_INVENTORY"+        showEnum UseIncenseResponse'LOCATION_UNSET = "LOCATION_UNSET"+        readEnum "UNKNOWN" = Prelude.Just UseIncenseResponse'UNKNOWN+        readEnum "SUCCESS" = Prelude.Just UseIncenseResponse'SUCCESS+        readEnum "INCENSE_ALREADY_ACTIVE"+          = Prelude.Just UseIncenseResponse'INCENSE_ALREADY_ACTIVE+        readEnum "NONE_IN_INVENTORY"+          = Prelude.Just UseIncenseResponse'NONE_IN_INVENTORY+        readEnum "LOCATION_UNSET"+          = Prelude.Just UseIncenseResponse'LOCATION_UNSET+        readEnum _ = Prelude.Nothing++instance Prelude.Enum UseIncenseResponse'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 UseIncenseResponse'UNKNOWN = 0+        fromEnum UseIncenseResponse'SUCCESS = 1+        fromEnum UseIncenseResponse'INCENSE_ALREADY_ACTIVE = 2+        fromEnum UseIncenseResponse'NONE_IN_INVENTORY = 3+        fromEnum UseIncenseResponse'LOCATION_UNSET = 4+        succ UseIncenseResponse'LOCATION_UNSET+          = Prelude.error+              "Ident \"UseIncenseResponse'Result\".Ident \"succ\": bad argument Ident \"UseIncenseResponse'LOCATION_UNSET\". This value would be out of bounds."+        succ UseIncenseResponse'UNKNOWN = UseIncenseResponse'SUCCESS+        succ UseIncenseResponse'SUCCESS+          = UseIncenseResponse'INCENSE_ALREADY_ACTIVE+        succ UseIncenseResponse'INCENSE_ALREADY_ACTIVE+          = UseIncenseResponse'NONE_IN_INVENTORY+        succ UseIncenseResponse'NONE_IN_INVENTORY+          = UseIncenseResponse'LOCATION_UNSET+        pred UseIncenseResponse'UNKNOWN+          = Prelude.error+              "Ident \"UseIncenseResponse'Result\".Ident \"pred\": bad argument Ident \"UseIncenseResponse'UNKNOWN\". This value would be out of bounds."+        pred UseIncenseResponse'SUCCESS = UseIncenseResponse'UNKNOWN+        pred UseIncenseResponse'INCENSE_ALREADY_ACTIVE+          = UseIncenseResponse'SUCCESS+        pred UseIncenseResponse'NONE_IN_INVENTORY+          = UseIncenseResponse'INCENSE_ALREADY_ACTIVE+        pred UseIncenseResponse'LOCATION_UNSET+          = UseIncenseResponse'NONE_IN_INVENTORY+        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 UseIncenseResponse'Result where+        minBound = UseIncenseResponse'UNKNOWN+        maxBound = UseIncenseResponse'LOCATION_UNSET++appliedIncense ::+               forall msg msg' .+                 Data.ProtoLens.HasField "appliedIncense" msg msg' =>+                 Lens.Family2.Lens msg msg'+                   (Data.ProtoLens.Field "appliedIncense" msg)+                   (Data.ProtoLens.Field "appliedIncense" msg')+appliedIncense+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "appliedIncense")++maybe'appliedIncense ::+                     forall msg msg' .+                       Data.ProtoLens.HasField "maybe'appliedIncense" msg msg' =>+                       Lens.Family2.Lens msg msg'+                         (Data.ProtoLens.Field "maybe'appliedIncense" msg)+                         (Data.ProtoLens.Field "maybe'appliedIncense" msg')+maybe'appliedIncense+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "maybe'appliedIncense")++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")
+ src/Proto/POGOProtos/Networking/Responses/UseItemCaptureResponse.hs view
@@ -0,0 +1,236 @@+{- This file was auto-generated from POGOProtos/Networking/Responses/UseItemCaptureResponse.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Responses.UseItemCaptureResponse+       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 UseItemCaptureResponse = UseItemCaptureResponse{_UseItemCaptureResponse'success+                                                     :: Prelude.Bool,+                                                     _UseItemCaptureResponse'itemCaptureMult ::+                                                     Prelude.Double,+                                                     _UseItemCaptureResponse'itemFleeMult ::+                                                     Prelude.Double,+                                                     _UseItemCaptureResponse'stopMovement ::+                                                     Prelude.Bool,+                                                     _UseItemCaptureResponse'stopAttack ::+                                                     Prelude.Bool,+                                                     _UseItemCaptureResponse'targetMax ::+                                                     Prelude.Bool,+                                                     _UseItemCaptureResponse'targetSlow ::+                                                     Prelude.Bool}+                            deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "success" UseItemCaptureResponse+     = Prelude.Bool++instance Data.ProtoLens.HasField "success" UseItemCaptureResponse+         UseItemCaptureResponse where+        field _+          = Lens.Family2.Unchecked.lens _UseItemCaptureResponse'success+              (\ x__ y__ -> x__{_UseItemCaptureResponse'success = y__})++type instance+     Data.ProtoLens.Field "itemCaptureMult" UseItemCaptureResponse =+     Prelude.Double++instance Data.ProtoLens.HasField "itemCaptureMult"+         UseItemCaptureResponse UseItemCaptureResponse where+        field _+          = Lens.Family2.Unchecked.lens+              _UseItemCaptureResponse'itemCaptureMult+              (\ x__ y__ -> x__{_UseItemCaptureResponse'itemCaptureMult = y__})++type instance+     Data.ProtoLens.Field "itemFleeMult" UseItemCaptureResponse =+     Prelude.Double++instance Data.ProtoLens.HasField "itemFleeMult"+         UseItemCaptureResponse UseItemCaptureResponse where+        field _+          = Lens.Family2.Unchecked.lens _UseItemCaptureResponse'itemFleeMult+              (\ x__ y__ -> x__{_UseItemCaptureResponse'itemFleeMult = y__})++type instance+     Data.ProtoLens.Field "stopMovement" UseItemCaptureResponse =+     Prelude.Bool++instance Data.ProtoLens.HasField "stopMovement"+         UseItemCaptureResponse UseItemCaptureResponse where+        field _+          = Lens.Family2.Unchecked.lens _UseItemCaptureResponse'stopMovement+              (\ x__ y__ -> x__{_UseItemCaptureResponse'stopMovement = y__})++type instance+     Data.ProtoLens.Field "stopAttack" UseItemCaptureResponse =+     Prelude.Bool++instance Data.ProtoLens.HasField "stopAttack"+         UseItemCaptureResponse UseItemCaptureResponse where+        field _+          = Lens.Family2.Unchecked.lens _UseItemCaptureResponse'stopAttack+              (\ x__ y__ -> x__{_UseItemCaptureResponse'stopAttack = y__})++type instance+     Data.ProtoLens.Field "targetMax" UseItemCaptureResponse =+     Prelude.Bool++instance Data.ProtoLens.HasField "targetMax" UseItemCaptureResponse+         UseItemCaptureResponse where+        field _+          = Lens.Family2.Unchecked.lens _UseItemCaptureResponse'targetMax+              (\ x__ y__ -> x__{_UseItemCaptureResponse'targetMax = y__})++type instance+     Data.ProtoLens.Field "targetSlow" UseItemCaptureResponse =+     Prelude.Bool++instance Data.ProtoLens.HasField "targetSlow"+         UseItemCaptureResponse UseItemCaptureResponse where+        field _+          = Lens.Family2.Unchecked.lens _UseItemCaptureResponse'targetSlow+              (\ x__ y__ -> x__{_UseItemCaptureResponse'targetSlow = y__})++instance Data.Default.Class.Default UseItemCaptureResponse where+        def+          = UseItemCaptureResponse{_UseItemCaptureResponse'success =+                                     Data.ProtoLens.fieldDefault,+                                   _UseItemCaptureResponse'itemCaptureMult =+                                     Data.ProtoLens.fieldDefault,+                                   _UseItemCaptureResponse'itemFleeMult =+                                     Data.ProtoLens.fieldDefault,+                                   _UseItemCaptureResponse'stopMovement =+                                     Data.ProtoLens.fieldDefault,+                                   _UseItemCaptureResponse'stopAttack = Data.ProtoLens.fieldDefault,+                                   _UseItemCaptureResponse'targetMax = Data.ProtoLens.fieldDefault,+                                   _UseItemCaptureResponse'targetSlow = Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message UseItemCaptureResponse where+        descriptor+          = let success__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "success"+                      (Data.ProtoLens.BoolField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional success)+                itemCaptureMult__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "item_capture_mult"+                      (Data.ProtoLens.DoubleField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Double)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional itemCaptureMult)+                itemFleeMult__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "item_flee_mult"+                      (Data.ProtoLens.DoubleField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Double)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional itemFleeMult)+                stopMovement__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "stop_movement"+                      (Data.ProtoLens.BoolField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional stopMovement)+                stopAttack__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "stop_attack"+                      (Data.ProtoLens.BoolField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional stopAttack)+                targetMax__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "target_max"+                      (Data.ProtoLens.BoolField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional targetMax)+                targetSlow__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "target_slow"+                      (Data.ProtoLens.BoolField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional targetSlow)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, success__field_descriptor),+                    (Data.ProtoLens.Tag 2, itemCaptureMult__field_descriptor),+                    (Data.ProtoLens.Tag 3, itemFleeMult__field_descriptor),+                    (Data.ProtoLens.Tag 4, stopMovement__field_descriptor),+                    (Data.ProtoLens.Tag 5, stopAttack__field_descriptor),+                    (Data.ProtoLens.Tag 6, targetMax__field_descriptor),+                    (Data.ProtoLens.Tag 7, targetSlow__field_descriptor)])+                (Data.Map.fromList+                   [("success", success__field_descriptor),+                    ("item_capture_mult", itemCaptureMult__field_descriptor),+                    ("item_flee_mult", itemFleeMult__field_descriptor),+                    ("stop_movement", stopMovement__field_descriptor),+                    ("stop_attack", stopAttack__field_descriptor),+                    ("target_max", targetMax__field_descriptor),+                    ("target_slow", targetSlow__field_descriptor)])++itemCaptureMult ::+                forall msg msg' .+                  Data.ProtoLens.HasField "itemCaptureMult" msg msg' =>+                  Lens.Family2.Lens msg msg'+                    (Data.ProtoLens.Field "itemCaptureMult" msg)+                    (Data.ProtoLens.Field "itemCaptureMult" msg')+itemCaptureMult+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "itemCaptureMult")++itemFleeMult ::+             forall msg msg' .+               Data.ProtoLens.HasField "itemFleeMult" msg msg' =>+               Lens.Family2.Lens msg msg'+                 (Data.ProtoLens.Field "itemFleeMult" msg)+                 (Data.ProtoLens.Field "itemFleeMult" msg')+itemFleeMult+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "itemFleeMult")++stopAttack ::+           forall msg msg' . Data.ProtoLens.HasField "stopAttack" msg msg' =>+             Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "stopAttack" msg)+               (Data.ProtoLens.Field "stopAttack" msg')+stopAttack+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "stopAttack")++stopMovement ::+             forall msg msg' .+               Data.ProtoLens.HasField "stopMovement" msg msg' =>+               Lens.Family2.Lens msg msg'+                 (Data.ProtoLens.Field "stopMovement" msg)+                 (Data.ProtoLens.Field "stopMovement" msg')+stopMovement+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "stopMovement")++success ::+        forall msg msg' . Data.ProtoLens.HasField "success" msg msg' =>+          Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "success" msg)+            (Data.ProtoLens.Field "success" msg')+success+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "success")++targetMax ::+          forall msg msg' . Data.ProtoLens.HasField "targetMax" msg msg' =>+            Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "targetMax" msg)+              (Data.ProtoLens.Field "targetMax" msg')+targetMax+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "targetMax")++targetSlow ::+           forall msg msg' . Data.ProtoLens.HasField "targetSlow" msg msg' =>+             Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "targetSlow" msg)+               (Data.ProtoLens.Field "targetSlow" msg')+targetSlow+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "targetSlow")
+ src/Proto/POGOProtos/Networking/Responses/UseItemEggIncubatorResponse.hs view
@@ -0,0 +1,261 @@+{- This file was auto-generated from POGOProtos/Networking/Responses/UseItemEggIncubatorResponse.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Responses.UseItemEggIncubatorResponse+       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.Inventory.EggIncubator++data UseItemEggIncubatorResponse = UseItemEggIncubatorResponse{_UseItemEggIncubatorResponse'result+                                                               ::+                                                               UseItemEggIncubatorResponse'Result,+                                                               _UseItemEggIncubatorResponse'eggIncubator+                                                               ::+                                                               Prelude.Maybe+                                                                 Proto.POGOProtos.Inventory.EggIncubator.EggIncubator}+                                 deriving (Prelude.Show, Prelude.Eq)++type instance+     Data.ProtoLens.Field "result" UseItemEggIncubatorResponse =+     UseItemEggIncubatorResponse'Result++instance Data.ProtoLens.HasField "result"+         UseItemEggIncubatorResponse UseItemEggIncubatorResponse where+        field _+          = Lens.Family2.Unchecked.lens _UseItemEggIncubatorResponse'result+              (\ x__ y__ -> x__{_UseItemEggIncubatorResponse'result = y__})++type instance+     Data.ProtoLens.Field "eggIncubator" UseItemEggIncubatorResponse =+     Proto.POGOProtos.Inventory.EggIncubator.EggIncubator++instance Data.ProtoLens.HasField "eggIncubator"+         UseItemEggIncubatorResponse UseItemEggIncubatorResponse where+        field _+          = (Prelude..) maybe'eggIncubator+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance+     Data.ProtoLens.Field "maybe'eggIncubator"+       UseItemEggIncubatorResponse+     =+     Prelude.Maybe Proto.POGOProtos.Inventory.EggIncubator.EggIncubator++instance Data.ProtoLens.HasField "maybe'eggIncubator"+         UseItemEggIncubatorResponse UseItemEggIncubatorResponse where+        field _+          = Lens.Family2.Unchecked.lens+              _UseItemEggIncubatorResponse'eggIncubator+              (\ x__ y__ -> x__{_UseItemEggIncubatorResponse'eggIncubator = y__})++instance Data.Default.Class.Default UseItemEggIncubatorResponse+         where+        def+          = UseItemEggIncubatorResponse{_UseItemEggIncubatorResponse'result =+                                          Data.Default.Class.def,+                                        _UseItemEggIncubatorResponse'eggIncubator = Prelude.Nothing}++instance Data.ProtoLens.Message UseItemEggIncubatorResponse where+        descriptor+          = let result__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "result"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           UseItemEggIncubatorResponse'Result)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional result)+                eggIncubator__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "egg_incubator"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Inventory.EggIncubator.EggIncubator)+                      (Data.ProtoLens.OptionalField maybe'eggIncubator)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, result__field_descriptor),+                    (Data.ProtoLens.Tag 2, eggIncubator__field_descriptor)])+                (Data.Map.fromList+                   [("result", result__field_descriptor),+                    ("egg_incubator", eggIncubator__field_descriptor)])++data UseItemEggIncubatorResponse'Result = UseItemEggIncubatorResponse'UNSET+                                        | UseItemEggIncubatorResponse'SUCCESS+                                        | UseItemEggIncubatorResponse'ERROR_INCUBATOR_NOT_FOUND+                                        | UseItemEggIncubatorResponse'ERROR_POKEMON_EGG_NOT_FOUND+                                        | UseItemEggIncubatorResponse'ERROR_POKEMON_ID_NOT_EGG+                                        | UseItemEggIncubatorResponse'ERROR_INCUBATOR_ALREADY_IN_USE+                                        | UseItemEggIncubatorResponse'ERROR_POKEMON_ALREADY_INCUBATING+                                        | UseItemEggIncubatorResponse'ERROR_INCUBATOR_NO_USES_REMAINING+                                        deriving (Prelude.Show, Prelude.Eq)++instance Data.Default.Class.Default+         UseItemEggIncubatorResponse'Result where+        def = UseItemEggIncubatorResponse'UNSET++instance Data.ProtoLens.FieldDefault+         UseItemEggIncubatorResponse'Result where+        fieldDefault = UseItemEggIncubatorResponse'UNSET++instance Data.ProtoLens.MessageEnum+         UseItemEggIncubatorResponse'Result where+        maybeToEnum 0 = Prelude.Just UseItemEggIncubatorResponse'UNSET+        maybeToEnum 1 = Prelude.Just UseItemEggIncubatorResponse'SUCCESS+        maybeToEnum 2+          = Prelude.Just+              UseItemEggIncubatorResponse'ERROR_INCUBATOR_NOT_FOUND+        maybeToEnum 3+          = Prelude.Just+              UseItemEggIncubatorResponse'ERROR_POKEMON_EGG_NOT_FOUND+        maybeToEnum 4+          = Prelude.Just UseItemEggIncubatorResponse'ERROR_POKEMON_ID_NOT_EGG+        maybeToEnum 5+          = Prelude.Just+              UseItemEggIncubatorResponse'ERROR_INCUBATOR_ALREADY_IN_USE+        maybeToEnum 6+          = Prelude.Just+              UseItemEggIncubatorResponse'ERROR_POKEMON_ALREADY_INCUBATING+        maybeToEnum 7+          = Prelude.Just+              UseItemEggIncubatorResponse'ERROR_INCUBATOR_NO_USES_REMAINING+        maybeToEnum _ = Prelude.Nothing+        showEnum UseItemEggIncubatorResponse'UNSET = "UNSET"+        showEnum UseItemEggIncubatorResponse'SUCCESS = "SUCCESS"+        showEnum UseItemEggIncubatorResponse'ERROR_INCUBATOR_NOT_FOUND+          = "ERROR_INCUBATOR_NOT_FOUND"+        showEnum UseItemEggIncubatorResponse'ERROR_POKEMON_EGG_NOT_FOUND+          = "ERROR_POKEMON_EGG_NOT_FOUND"+        showEnum UseItemEggIncubatorResponse'ERROR_POKEMON_ID_NOT_EGG+          = "ERROR_POKEMON_ID_NOT_EGG"+        showEnum UseItemEggIncubatorResponse'ERROR_INCUBATOR_ALREADY_IN_USE+          = "ERROR_INCUBATOR_ALREADY_IN_USE"+        showEnum+          UseItemEggIncubatorResponse'ERROR_POKEMON_ALREADY_INCUBATING+          = "ERROR_POKEMON_ALREADY_INCUBATING"+        showEnum+          UseItemEggIncubatorResponse'ERROR_INCUBATOR_NO_USES_REMAINING+          = "ERROR_INCUBATOR_NO_USES_REMAINING"+        readEnum "UNSET" = Prelude.Just UseItemEggIncubatorResponse'UNSET+        readEnum "SUCCESS"+          = Prelude.Just UseItemEggIncubatorResponse'SUCCESS+        readEnum "ERROR_INCUBATOR_NOT_FOUND"+          = Prelude.Just+              UseItemEggIncubatorResponse'ERROR_INCUBATOR_NOT_FOUND+        readEnum "ERROR_POKEMON_EGG_NOT_FOUND"+          = Prelude.Just+              UseItemEggIncubatorResponse'ERROR_POKEMON_EGG_NOT_FOUND+        readEnum "ERROR_POKEMON_ID_NOT_EGG"+          = Prelude.Just UseItemEggIncubatorResponse'ERROR_POKEMON_ID_NOT_EGG+        readEnum "ERROR_INCUBATOR_ALREADY_IN_USE"+          = Prelude.Just+              UseItemEggIncubatorResponse'ERROR_INCUBATOR_ALREADY_IN_USE+        readEnum "ERROR_POKEMON_ALREADY_INCUBATING"+          = Prelude.Just+              UseItemEggIncubatorResponse'ERROR_POKEMON_ALREADY_INCUBATING+        readEnum "ERROR_INCUBATOR_NO_USES_REMAINING"+          = Prelude.Just+              UseItemEggIncubatorResponse'ERROR_INCUBATOR_NO_USES_REMAINING+        readEnum _ = Prelude.Nothing++instance Prelude.Enum UseItemEggIncubatorResponse'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 UseItemEggIncubatorResponse'UNSET = 0+        fromEnum UseItemEggIncubatorResponse'SUCCESS = 1+        fromEnum UseItemEggIncubatorResponse'ERROR_INCUBATOR_NOT_FOUND = 2+        fromEnum UseItemEggIncubatorResponse'ERROR_POKEMON_EGG_NOT_FOUND+          = 3+        fromEnum UseItemEggIncubatorResponse'ERROR_POKEMON_ID_NOT_EGG = 4+        fromEnum UseItemEggIncubatorResponse'ERROR_INCUBATOR_ALREADY_IN_USE+          = 5+        fromEnum+          UseItemEggIncubatorResponse'ERROR_POKEMON_ALREADY_INCUBATING = 6+        fromEnum+          UseItemEggIncubatorResponse'ERROR_INCUBATOR_NO_USES_REMAINING = 7+        succ UseItemEggIncubatorResponse'ERROR_INCUBATOR_NO_USES_REMAINING+          = Prelude.error+              "Ident \"UseItemEggIncubatorResponse'Result\".Ident \"succ\": bad argument Ident \"UseItemEggIncubatorResponse'ERROR_INCUBATOR_NO_USES_REMAINING\". This value would be out of bounds."+        succ UseItemEggIncubatorResponse'UNSET+          = UseItemEggIncubatorResponse'SUCCESS+        succ UseItemEggIncubatorResponse'SUCCESS+          = UseItemEggIncubatorResponse'ERROR_INCUBATOR_NOT_FOUND+        succ UseItemEggIncubatorResponse'ERROR_INCUBATOR_NOT_FOUND+          = UseItemEggIncubatorResponse'ERROR_POKEMON_EGG_NOT_FOUND+        succ UseItemEggIncubatorResponse'ERROR_POKEMON_EGG_NOT_FOUND+          = UseItemEggIncubatorResponse'ERROR_POKEMON_ID_NOT_EGG+        succ UseItemEggIncubatorResponse'ERROR_POKEMON_ID_NOT_EGG+          = UseItemEggIncubatorResponse'ERROR_INCUBATOR_ALREADY_IN_USE+        succ UseItemEggIncubatorResponse'ERROR_INCUBATOR_ALREADY_IN_USE+          = UseItemEggIncubatorResponse'ERROR_POKEMON_ALREADY_INCUBATING+        succ UseItemEggIncubatorResponse'ERROR_POKEMON_ALREADY_INCUBATING+          = UseItemEggIncubatorResponse'ERROR_INCUBATOR_NO_USES_REMAINING+        pred UseItemEggIncubatorResponse'UNSET+          = Prelude.error+              "Ident \"UseItemEggIncubatorResponse'Result\".Ident \"pred\": bad argument Ident \"UseItemEggIncubatorResponse'UNSET\". This value would be out of bounds."+        pred UseItemEggIncubatorResponse'SUCCESS+          = UseItemEggIncubatorResponse'UNSET+        pred UseItemEggIncubatorResponse'ERROR_INCUBATOR_NOT_FOUND+          = UseItemEggIncubatorResponse'SUCCESS+        pred UseItemEggIncubatorResponse'ERROR_POKEMON_EGG_NOT_FOUND+          = UseItemEggIncubatorResponse'ERROR_INCUBATOR_NOT_FOUND+        pred UseItemEggIncubatorResponse'ERROR_POKEMON_ID_NOT_EGG+          = UseItemEggIncubatorResponse'ERROR_POKEMON_EGG_NOT_FOUND+        pred UseItemEggIncubatorResponse'ERROR_INCUBATOR_ALREADY_IN_USE+          = UseItemEggIncubatorResponse'ERROR_POKEMON_ID_NOT_EGG+        pred UseItemEggIncubatorResponse'ERROR_POKEMON_ALREADY_INCUBATING+          = UseItemEggIncubatorResponse'ERROR_INCUBATOR_ALREADY_IN_USE+        pred UseItemEggIncubatorResponse'ERROR_INCUBATOR_NO_USES_REMAINING+          = UseItemEggIncubatorResponse'ERROR_POKEMON_ALREADY_INCUBATING+        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 UseItemEggIncubatorResponse'Result where+        minBound = UseItemEggIncubatorResponse'UNSET+        maxBound+          = UseItemEggIncubatorResponse'ERROR_INCUBATOR_NO_USES_REMAINING++eggIncubator ::+             forall msg msg' .+               Data.ProtoLens.HasField "eggIncubator" msg msg' =>+               Lens.Family2.Lens msg msg'+                 (Data.ProtoLens.Field "eggIncubator" msg)+                 (Data.ProtoLens.Field "eggIncubator" msg')+eggIncubator+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "eggIncubator")++maybe'eggIncubator ::+                   forall msg msg' .+                     Data.ProtoLens.HasField "maybe'eggIncubator" msg msg' =>+                     Lens.Family2.Lens msg msg'+                       (Data.ProtoLens.Field "maybe'eggIncubator" msg)+                       (Data.ProtoLens.Field "maybe'eggIncubator" msg')+maybe'eggIncubator+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "maybe'eggIncubator")++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")
+ src/Proto/POGOProtos/Networking/Responses/UseItemGymResponse.hs view
@@ -0,0 +1,152 @@+{- This file was auto-generated from POGOProtos/Networking/Responses/UseItemGymResponse.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+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")
+ src/Proto/POGOProtos/Networking/Responses/UseItemPotionResponse.hs view
@@ -0,0 +1,167 @@+{- This file was auto-generated from POGOProtos/Networking/Responses/UseItemPotionResponse.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Responses.UseItemPotionResponse+       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 UseItemPotionResponse = UseItemPotionResponse{_UseItemPotionResponse'result+                                                   :: UseItemPotionResponse'Result,+                                                   _UseItemPotionResponse'stamina :: Data.Int.Int32}+                           deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "result" UseItemPotionResponse =+     UseItemPotionResponse'Result++instance Data.ProtoLens.HasField "result" UseItemPotionResponse+         UseItemPotionResponse where+        field _+          = Lens.Family2.Unchecked.lens _UseItemPotionResponse'result+              (\ x__ y__ -> x__{_UseItemPotionResponse'result = y__})++type instance Data.ProtoLens.Field "stamina" UseItemPotionResponse+     = Data.Int.Int32++instance Data.ProtoLens.HasField "stamina" UseItemPotionResponse+         UseItemPotionResponse where+        field _+          = Lens.Family2.Unchecked.lens _UseItemPotionResponse'stamina+              (\ x__ y__ -> x__{_UseItemPotionResponse'stamina = y__})++instance Data.Default.Class.Default UseItemPotionResponse where+        def+          = UseItemPotionResponse{_UseItemPotionResponse'result =+                                    Data.Default.Class.def,+                                  _UseItemPotionResponse'stamina = Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message UseItemPotionResponse where+        descriptor+          = let result__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "result"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor UseItemPotionResponse'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 UseItemPotionResponse'Result = UseItemPotionResponse'UNSET+                                  | UseItemPotionResponse'SUCCESS+                                  | UseItemPotionResponse'ERROR_NO_POKEMON+                                  | UseItemPotionResponse'ERROR_CANNOT_USE+                                  | UseItemPotionResponse'ERROR_DEPLOYED_TO_FORT+                                  deriving (Prelude.Show, Prelude.Eq)++instance Data.Default.Class.Default UseItemPotionResponse'Result+         where+        def = UseItemPotionResponse'UNSET++instance Data.ProtoLens.FieldDefault UseItemPotionResponse'Result+         where+        fieldDefault = UseItemPotionResponse'UNSET++instance Data.ProtoLens.MessageEnum UseItemPotionResponse'Result+         where+        maybeToEnum 0 = Prelude.Just UseItemPotionResponse'UNSET+        maybeToEnum 1 = Prelude.Just UseItemPotionResponse'SUCCESS+        maybeToEnum 2 = Prelude.Just UseItemPotionResponse'ERROR_NO_POKEMON+        maybeToEnum 3 = Prelude.Just UseItemPotionResponse'ERROR_CANNOT_USE+        maybeToEnum 4+          = Prelude.Just UseItemPotionResponse'ERROR_DEPLOYED_TO_FORT+        maybeToEnum _ = Prelude.Nothing+        showEnum UseItemPotionResponse'UNSET = "UNSET"+        showEnum UseItemPotionResponse'SUCCESS = "SUCCESS"+        showEnum UseItemPotionResponse'ERROR_NO_POKEMON+          = "ERROR_NO_POKEMON"+        showEnum UseItemPotionResponse'ERROR_CANNOT_USE+          = "ERROR_CANNOT_USE"+        showEnum UseItemPotionResponse'ERROR_DEPLOYED_TO_FORT+          = "ERROR_DEPLOYED_TO_FORT"+        readEnum "UNSET" = Prelude.Just UseItemPotionResponse'UNSET+        readEnum "SUCCESS" = Prelude.Just UseItemPotionResponse'SUCCESS+        readEnum "ERROR_NO_POKEMON"+          = Prelude.Just UseItemPotionResponse'ERROR_NO_POKEMON+        readEnum "ERROR_CANNOT_USE"+          = Prelude.Just UseItemPotionResponse'ERROR_CANNOT_USE+        readEnum "ERROR_DEPLOYED_TO_FORT"+          = Prelude.Just UseItemPotionResponse'ERROR_DEPLOYED_TO_FORT+        readEnum _ = Prelude.Nothing++instance Prelude.Enum UseItemPotionResponse'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 UseItemPotionResponse'UNSET = 0+        fromEnum UseItemPotionResponse'SUCCESS = 1+        fromEnum UseItemPotionResponse'ERROR_NO_POKEMON = 2+        fromEnum UseItemPotionResponse'ERROR_CANNOT_USE = 3+        fromEnum UseItemPotionResponse'ERROR_DEPLOYED_TO_FORT = 4+        succ UseItemPotionResponse'ERROR_DEPLOYED_TO_FORT+          = Prelude.error+              "Ident \"UseItemPotionResponse'Result\".Ident \"succ\": bad argument Ident \"UseItemPotionResponse'ERROR_DEPLOYED_TO_FORT\". This value would be out of bounds."+        succ UseItemPotionResponse'UNSET = UseItemPotionResponse'SUCCESS+        succ UseItemPotionResponse'SUCCESS+          = UseItemPotionResponse'ERROR_NO_POKEMON+        succ UseItemPotionResponse'ERROR_NO_POKEMON+          = UseItemPotionResponse'ERROR_CANNOT_USE+        succ UseItemPotionResponse'ERROR_CANNOT_USE+          = UseItemPotionResponse'ERROR_DEPLOYED_TO_FORT+        pred UseItemPotionResponse'UNSET+          = Prelude.error+              "Ident \"UseItemPotionResponse'Result\".Ident \"pred\": bad argument Ident \"UseItemPotionResponse'UNSET\". This value would be out of bounds."+        pred UseItemPotionResponse'SUCCESS = UseItemPotionResponse'UNSET+        pred UseItemPotionResponse'ERROR_NO_POKEMON+          = UseItemPotionResponse'SUCCESS+        pred UseItemPotionResponse'ERROR_CANNOT_USE+          = UseItemPotionResponse'ERROR_NO_POKEMON+        pred UseItemPotionResponse'ERROR_DEPLOYED_TO_FORT+          = UseItemPotionResponse'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 UseItemPotionResponse'Result where+        minBound = UseItemPotionResponse'UNSET+        maxBound = UseItemPotionResponse'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")
+ src/Proto/POGOProtos/Networking/Responses/UseItemReviveResponse.hs view
@@ -0,0 +1,167 @@+{- This file was auto-generated from POGOProtos/Networking/Responses/UseItemReviveResponse.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+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")
+ src/Proto/POGOProtos/Networking/Responses/UseItemXpBoostResponse.hs view
@@ -0,0 +1,209 @@+{- This file was auto-generated from POGOProtos/Networking/Responses/UseItemXpBoostResponse.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Networking.Responses.UseItemXpBoostResponse+       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.Inventory.AppliedItems++data UseItemXpBoostResponse = UseItemXpBoostResponse{_UseItemXpBoostResponse'result+                                                     :: UseItemXpBoostResponse'Result,+                                                     _UseItemXpBoostResponse'appliedItems ::+                                                     Prelude.Maybe+                                                       Proto.POGOProtos.Inventory.AppliedItems.AppliedItems}+                            deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "result" UseItemXpBoostResponse+     = UseItemXpBoostResponse'Result++instance Data.ProtoLens.HasField "result" UseItemXpBoostResponse+         UseItemXpBoostResponse where+        field _+          = Lens.Family2.Unchecked.lens _UseItemXpBoostResponse'result+              (\ x__ y__ -> x__{_UseItemXpBoostResponse'result = y__})++type instance+     Data.ProtoLens.Field "appliedItems" UseItemXpBoostResponse =+     Proto.POGOProtos.Inventory.AppliedItems.AppliedItems++instance Data.ProtoLens.HasField "appliedItems"+         UseItemXpBoostResponse UseItemXpBoostResponse where+        field _+          = (Prelude..) maybe'appliedItems+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance+     Data.ProtoLens.Field "maybe'appliedItems" UseItemXpBoostResponse =+     Prelude.Maybe Proto.POGOProtos.Inventory.AppliedItems.AppliedItems++instance Data.ProtoLens.HasField "maybe'appliedItems"+         UseItemXpBoostResponse UseItemXpBoostResponse where+        field _+          = Lens.Family2.Unchecked.lens _UseItemXpBoostResponse'appliedItems+              (\ x__ y__ -> x__{_UseItemXpBoostResponse'appliedItems = y__})++instance Data.Default.Class.Default UseItemXpBoostResponse where+        def+          = UseItemXpBoostResponse{_UseItemXpBoostResponse'result =+                                     Data.Default.Class.def,+                                   _UseItemXpBoostResponse'appliedItems = Prelude.Nothing}++instance Data.ProtoLens.Message UseItemXpBoostResponse where+        descriptor+          = let result__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "result"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor UseItemXpBoostResponse'Result)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional result)+                appliedItems__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "applied_items"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Inventory.AppliedItems.AppliedItems)+                      (Data.ProtoLens.OptionalField maybe'appliedItems)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, result__field_descriptor),+                    (Data.ProtoLens.Tag 2, appliedItems__field_descriptor)])+                (Data.Map.fromList+                   [("result", result__field_descriptor),+                    ("applied_items", appliedItems__field_descriptor)])++data UseItemXpBoostResponse'Result = UseItemXpBoostResponse'UNSET+                                   | UseItemXpBoostResponse'SUCCESS+                                   | UseItemXpBoostResponse'ERROR_INVALID_ITEM_TYPE+                                   | UseItemXpBoostResponse'ERROR_XP_BOOST_ALREADY_ACTIVE+                                   | UseItemXpBoostResponse'ERROR_NO_ITEMS_REMAINING+                                   | UseItemXpBoostResponse'ERROR_LOCATION_UNSET+                                   deriving (Prelude.Show, Prelude.Eq)++instance Data.Default.Class.Default UseItemXpBoostResponse'Result+         where+        def = UseItemXpBoostResponse'UNSET++instance Data.ProtoLens.FieldDefault UseItemXpBoostResponse'Result+         where+        fieldDefault = UseItemXpBoostResponse'UNSET++instance Data.ProtoLens.MessageEnum UseItemXpBoostResponse'Result+         where+        maybeToEnum 0 = Prelude.Just UseItemXpBoostResponse'UNSET+        maybeToEnum 1 = Prelude.Just UseItemXpBoostResponse'SUCCESS+        maybeToEnum 2+          = Prelude.Just UseItemXpBoostResponse'ERROR_INVALID_ITEM_TYPE+        maybeToEnum 3+          = Prelude.Just UseItemXpBoostResponse'ERROR_XP_BOOST_ALREADY_ACTIVE+        maybeToEnum 4+          = Prelude.Just UseItemXpBoostResponse'ERROR_NO_ITEMS_REMAINING+        maybeToEnum 5+          = Prelude.Just UseItemXpBoostResponse'ERROR_LOCATION_UNSET+        maybeToEnum _ = Prelude.Nothing+        showEnum UseItemXpBoostResponse'UNSET = "UNSET"+        showEnum UseItemXpBoostResponse'SUCCESS = "SUCCESS"+        showEnum UseItemXpBoostResponse'ERROR_INVALID_ITEM_TYPE+          = "ERROR_INVALID_ITEM_TYPE"+        showEnum UseItemXpBoostResponse'ERROR_XP_BOOST_ALREADY_ACTIVE+          = "ERROR_XP_BOOST_ALREADY_ACTIVE"+        showEnum UseItemXpBoostResponse'ERROR_NO_ITEMS_REMAINING+          = "ERROR_NO_ITEMS_REMAINING"+        showEnum UseItemXpBoostResponse'ERROR_LOCATION_UNSET+          = "ERROR_LOCATION_UNSET"+        readEnum "UNSET" = Prelude.Just UseItemXpBoostResponse'UNSET+        readEnum "SUCCESS" = Prelude.Just UseItemXpBoostResponse'SUCCESS+        readEnum "ERROR_INVALID_ITEM_TYPE"+          = Prelude.Just UseItemXpBoostResponse'ERROR_INVALID_ITEM_TYPE+        readEnum "ERROR_XP_BOOST_ALREADY_ACTIVE"+          = Prelude.Just UseItemXpBoostResponse'ERROR_XP_BOOST_ALREADY_ACTIVE+        readEnum "ERROR_NO_ITEMS_REMAINING"+          = Prelude.Just UseItemXpBoostResponse'ERROR_NO_ITEMS_REMAINING+        readEnum "ERROR_LOCATION_UNSET"+          = Prelude.Just UseItemXpBoostResponse'ERROR_LOCATION_UNSET+        readEnum _ = Prelude.Nothing++instance Prelude.Enum UseItemXpBoostResponse'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 UseItemXpBoostResponse'UNSET = 0+        fromEnum UseItemXpBoostResponse'SUCCESS = 1+        fromEnum UseItemXpBoostResponse'ERROR_INVALID_ITEM_TYPE = 2+        fromEnum UseItemXpBoostResponse'ERROR_XP_BOOST_ALREADY_ACTIVE = 3+        fromEnum UseItemXpBoostResponse'ERROR_NO_ITEMS_REMAINING = 4+        fromEnum UseItemXpBoostResponse'ERROR_LOCATION_UNSET = 5+        succ UseItemXpBoostResponse'ERROR_LOCATION_UNSET+          = Prelude.error+              "Ident \"UseItemXpBoostResponse'Result\".Ident \"succ\": bad argument Ident \"UseItemXpBoostResponse'ERROR_LOCATION_UNSET\". This value would be out of bounds."+        succ UseItemXpBoostResponse'UNSET = UseItemXpBoostResponse'SUCCESS+        succ UseItemXpBoostResponse'SUCCESS+          = UseItemXpBoostResponse'ERROR_INVALID_ITEM_TYPE+        succ UseItemXpBoostResponse'ERROR_INVALID_ITEM_TYPE+          = UseItemXpBoostResponse'ERROR_XP_BOOST_ALREADY_ACTIVE+        succ UseItemXpBoostResponse'ERROR_XP_BOOST_ALREADY_ACTIVE+          = UseItemXpBoostResponse'ERROR_NO_ITEMS_REMAINING+        succ UseItemXpBoostResponse'ERROR_NO_ITEMS_REMAINING+          = UseItemXpBoostResponse'ERROR_LOCATION_UNSET+        pred UseItemXpBoostResponse'UNSET+          = Prelude.error+              "Ident \"UseItemXpBoostResponse'Result\".Ident \"pred\": bad argument Ident \"UseItemXpBoostResponse'UNSET\". This value would be out of bounds."+        pred UseItemXpBoostResponse'SUCCESS = UseItemXpBoostResponse'UNSET+        pred UseItemXpBoostResponse'ERROR_INVALID_ITEM_TYPE+          = UseItemXpBoostResponse'SUCCESS+        pred UseItemXpBoostResponse'ERROR_XP_BOOST_ALREADY_ACTIVE+          = UseItemXpBoostResponse'ERROR_INVALID_ITEM_TYPE+        pred UseItemXpBoostResponse'ERROR_NO_ITEMS_REMAINING+          = UseItemXpBoostResponse'ERROR_XP_BOOST_ALREADY_ACTIVE+        pred UseItemXpBoostResponse'ERROR_LOCATION_UNSET+          = UseItemXpBoostResponse'ERROR_NO_ITEMS_REMAINING+        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 UseItemXpBoostResponse'Result where+        minBound = UseItemXpBoostResponse'UNSET+        maxBound = UseItemXpBoostResponse'ERROR_LOCATION_UNSET++appliedItems ::+             forall msg msg' .+               Data.ProtoLens.HasField "appliedItems" msg msg' =>+               Lens.Family2.Lens msg msg'+                 (Data.ProtoLens.Field "appliedItems" msg)+                 (Data.ProtoLens.Field "appliedItems" msg')+appliedItems+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "appliedItems")++maybe'appliedItems ::+                   forall msg msg' .+                     Data.ProtoLens.HasField "maybe'appliedItems" msg msg' =>+                     Lens.Family2.Lens msg msg'+                       (Data.ProtoLens.Field "maybe'appliedItems" msg)+                       (Data.ProtoLens.Field "maybe'appliedItems" msg')+maybe'appliedItems+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "maybe'appliedItems")++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")
+ src/Proto/POGOProtos/Settings/DownloadSettingsAction.hs view
@@ -0,0 +1,55 @@+{- This file was auto-generated from POGOProtos/Settings/DownloadSettingsAction.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Settings.DownloadSettingsAction 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 DownloadSettingsAction = DownloadSettingsAction{_DownloadSettingsAction'hash+                                                     :: Data.Text.Text}+                            deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "hash" DownloadSettingsAction =+     Data.Text.Text++instance Data.ProtoLens.HasField "hash" DownloadSettingsAction+         DownloadSettingsAction where+        field _+          = Lens.Family2.Unchecked.lens _DownloadSettingsAction'hash+              (\ x__ y__ -> x__{_DownloadSettingsAction'hash = y__})++instance Data.Default.Class.Default DownloadSettingsAction where+        def+          = DownloadSettingsAction{_DownloadSettingsAction'hash =+                                     Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message DownloadSettingsAction where+        descriptor+          = let hash__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "hash"+                      (Data.ProtoLens.StringField ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional hash)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, hash__field_descriptor)])+                (Data.Map.fromList [("hash", hash__field_descriptor)])++hash ::+     forall msg msg' . Data.ProtoLens.HasField "hash" msg msg' =>+       Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "hash" msg)+         (Data.ProtoLens.Field "hash" msg')+hash+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "hash")
+ src/Proto/POGOProtos/Settings/FortSettings.hs view
@@ -0,0 +1,229 @@+{- This file was auto-generated from POGOProtos/Settings/FortSettings.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Settings.FortSettings 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 FortSettings = FortSettings{_FortSettings'interactionRangeMeters+                                 :: Prelude.Double,+                                 _FortSettings'maxTotalDeployedPokemon :: Data.Int.Int32,+                                 _FortSettings'maxPlayerDeployedPokemon :: Data.Int.Int32,+                                 _FortSettings'deployStaminaMultiplier :: Prelude.Double,+                                 _FortSettings'deployAttackMultiplier :: Prelude.Double,+                                 _FortSettings'farInteractionRangeMeters :: Prelude.Double}+                  deriving (Prelude.Show, Prelude.Eq)++type instance+     Data.ProtoLens.Field "interactionRangeMeters" FortSettings =+     Prelude.Double++instance Data.ProtoLens.HasField "interactionRangeMeters"+         FortSettings FortSettings where+        field _+          = Lens.Family2.Unchecked.lens _FortSettings'interactionRangeMeters+              (\ x__ y__ -> x__{_FortSettings'interactionRangeMeters = y__})++type instance+     Data.ProtoLens.Field "maxTotalDeployedPokemon" FortSettings =+     Data.Int.Int32++instance Data.ProtoLens.HasField "maxTotalDeployedPokemon"+         FortSettings FortSettings where+        field _+          = Lens.Family2.Unchecked.lens _FortSettings'maxTotalDeployedPokemon+              (\ x__ y__ -> x__{_FortSettings'maxTotalDeployedPokemon = y__})++type instance+     Data.ProtoLens.Field "maxPlayerDeployedPokemon" FortSettings =+     Data.Int.Int32++instance Data.ProtoLens.HasField "maxPlayerDeployedPokemon"+         FortSettings FortSettings where+        field _+          = Lens.Family2.Unchecked.lens+              _FortSettings'maxPlayerDeployedPokemon+              (\ x__ y__ -> x__{_FortSettings'maxPlayerDeployedPokemon = y__})++type instance+     Data.ProtoLens.Field "deployStaminaMultiplier" FortSettings =+     Prelude.Double++instance Data.ProtoLens.HasField "deployStaminaMultiplier"+         FortSettings FortSettings where+        field _+          = Lens.Family2.Unchecked.lens _FortSettings'deployStaminaMultiplier+              (\ x__ y__ -> x__{_FortSettings'deployStaminaMultiplier = y__})++type instance+     Data.ProtoLens.Field "deployAttackMultiplier" FortSettings =+     Prelude.Double++instance Data.ProtoLens.HasField "deployAttackMultiplier"+         FortSettings FortSettings where+        field _+          = Lens.Family2.Unchecked.lens _FortSettings'deployAttackMultiplier+              (\ x__ y__ -> x__{_FortSettings'deployAttackMultiplier = y__})++type instance+     Data.ProtoLens.Field "farInteractionRangeMeters" FortSettings =+     Prelude.Double++instance Data.ProtoLens.HasField "farInteractionRangeMeters"+         FortSettings FortSettings where+        field _+          = Lens.Family2.Unchecked.lens+              _FortSettings'farInteractionRangeMeters+              (\ x__ y__ -> x__{_FortSettings'farInteractionRangeMeters = y__})++instance Data.Default.Class.Default FortSettings where+        def+          = FortSettings{_FortSettings'interactionRangeMeters =+                           Data.ProtoLens.fieldDefault,+                         _FortSettings'maxTotalDeployedPokemon =+                           Data.ProtoLens.fieldDefault,+                         _FortSettings'maxPlayerDeployedPokemon =+                           Data.ProtoLens.fieldDefault,+                         _FortSettings'deployStaminaMultiplier =+                           Data.ProtoLens.fieldDefault,+                         _FortSettings'deployAttackMultiplier = Data.ProtoLens.fieldDefault,+                         _FortSettings'farInteractionRangeMeters =+                           Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message FortSettings where+        descriptor+          = let interactionRangeMeters__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "interaction_range_meters"+                      (Data.ProtoLens.DoubleField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Double)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         interactionRangeMeters)+                maxTotalDeployedPokemon__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "max_total_deployed_pokemon"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         maxTotalDeployedPokemon)+                maxPlayerDeployedPokemon__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "max_player_deployed_pokemon"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         maxPlayerDeployedPokemon)+                deployStaminaMultiplier__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "deploy_stamina_multiplier"+                      (Data.ProtoLens.DoubleField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Double)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         deployStaminaMultiplier)+                deployAttackMultiplier__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "deploy_attack_multiplier"+                      (Data.ProtoLens.DoubleField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Double)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         deployAttackMultiplier)+                farInteractionRangeMeters__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "far_interaction_range_meters"+                      (Data.ProtoLens.DoubleField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Double)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         farInteractionRangeMeters)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, interactionRangeMeters__field_descriptor),+                    (Data.ProtoLens.Tag 2, maxTotalDeployedPokemon__field_descriptor),+                    (Data.ProtoLens.Tag 3, maxPlayerDeployedPokemon__field_descriptor),+                    (Data.ProtoLens.Tag 4, deployStaminaMultiplier__field_descriptor),+                    (Data.ProtoLens.Tag 5, deployAttackMultiplier__field_descriptor),+                    (Data.ProtoLens.Tag 6,+                     farInteractionRangeMeters__field_descriptor)])+                (Data.Map.fromList+                   [("interaction_range_meters",+                     interactionRangeMeters__field_descriptor),+                    ("max_total_deployed_pokemon",+                     maxTotalDeployedPokemon__field_descriptor),+                    ("max_player_deployed_pokemon",+                     maxPlayerDeployedPokemon__field_descriptor),+                    ("deploy_stamina_multiplier",+                     deployStaminaMultiplier__field_descriptor),+                    ("deploy_attack_multiplier",+                     deployAttackMultiplier__field_descriptor),+                    ("far_interaction_range_meters",+                     farInteractionRangeMeters__field_descriptor)])++deployAttackMultiplier ::+                       forall msg msg' .+                         Data.ProtoLens.HasField "deployAttackMultiplier" msg msg' =>+                         Lens.Family2.Lens msg msg'+                           (Data.ProtoLens.Field "deployAttackMultiplier" msg)+                           (Data.ProtoLens.Field "deployAttackMultiplier" msg')+deployAttackMultiplier+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "deployAttackMultiplier")++deployStaminaMultiplier ::+                        forall msg msg' .+                          Data.ProtoLens.HasField "deployStaminaMultiplier" msg msg' =>+                          Lens.Family2.Lens msg msg'+                            (Data.ProtoLens.Field "deployStaminaMultiplier" msg)+                            (Data.ProtoLens.Field "deployStaminaMultiplier" msg')+deployStaminaMultiplier+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "deployStaminaMultiplier")++farInteractionRangeMeters ::+                          forall msg msg' .+                            Data.ProtoLens.HasField "farInteractionRangeMeters" msg msg' =>+                            Lens.Family2.Lens msg msg'+                              (Data.ProtoLens.Field "farInteractionRangeMeters" msg)+                              (Data.ProtoLens.Field "farInteractionRangeMeters" msg')+farInteractionRangeMeters+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "farInteractionRangeMeters")++interactionRangeMeters ::+                       forall msg msg' .+                         Data.ProtoLens.HasField "interactionRangeMeters" msg msg' =>+                         Lens.Family2.Lens msg msg'+                           (Data.ProtoLens.Field "interactionRangeMeters" msg)+                           (Data.ProtoLens.Field "interactionRangeMeters" msg')+interactionRangeMeters+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "interactionRangeMeters")++maxPlayerDeployedPokemon ::+                         forall msg msg' .+                           Data.ProtoLens.HasField "maxPlayerDeployedPokemon" msg msg' =>+                           Lens.Family2.Lens msg msg'+                             (Data.ProtoLens.Field "maxPlayerDeployedPokemon" msg)+                             (Data.ProtoLens.Field "maxPlayerDeployedPokemon" msg')+maxPlayerDeployedPokemon+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "maxPlayerDeployedPokemon")++maxTotalDeployedPokemon ::+                        forall msg msg' .+                          Data.ProtoLens.HasField "maxTotalDeployedPokemon" msg msg' =>+                          Lens.Family2.Lens msg msg'+                            (Data.ProtoLens.Field "maxTotalDeployedPokemon" msg)+                            (Data.ProtoLens.Field "maxTotalDeployedPokemon" msg')+maxTotalDeployedPokemon+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "maxTotalDeployedPokemon")
+ src/Proto/POGOProtos/Settings/GlobalSettings.hs view
@@ -0,0 +1,275 @@+{- This file was auto-generated from POGOProtos/Settings/GlobalSettings.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Settings.GlobalSettings 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.Settings.FortSettings+import qualified Proto.POGOProtos.Settings.InventorySettings+import qualified Proto.POGOProtos.Settings.LevelSettings+import qualified Proto.POGOProtos.Settings.MapSettings++data GlobalSettings = GlobalSettings{_GlobalSettings'fortSettings+                                     ::+                                     Prelude.Maybe+                                       Proto.POGOProtos.Settings.FortSettings.FortSettings,+                                     _GlobalSettings'mapSettings ::+                                     Prelude.Maybe+                                       Proto.POGOProtos.Settings.MapSettings.MapSettings,+                                     _GlobalSettings'levelSettings ::+                                     Prelude.Maybe+                                       Proto.POGOProtos.Settings.LevelSettings.LevelSettings,+                                     _GlobalSettings'inventorySettings ::+                                     Prelude.Maybe+                                       Proto.POGOProtos.Settings.InventorySettings.InventorySettings,+                                     _GlobalSettings'minimumClientVersion :: Data.Text.Text}+                    deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "fortSettings" GlobalSettings =+     Proto.POGOProtos.Settings.FortSettings.FortSettings++instance Data.ProtoLens.HasField "fortSettings" GlobalSettings+         GlobalSettings where+        field _+          = (Prelude..) maybe'fortSettings+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance+     Data.ProtoLens.Field "maybe'fortSettings" GlobalSettings =+     Prelude.Maybe Proto.POGOProtos.Settings.FortSettings.FortSettings++instance Data.ProtoLens.HasField "maybe'fortSettings"+         GlobalSettings GlobalSettings where+        field _+          = Lens.Family2.Unchecked.lens _GlobalSettings'fortSettings+              (\ x__ y__ -> x__{_GlobalSettings'fortSettings = y__})++type instance Data.ProtoLens.Field "mapSettings" GlobalSettings =+     Proto.POGOProtos.Settings.MapSettings.MapSettings++instance Data.ProtoLens.HasField "mapSettings" GlobalSettings+         GlobalSettings where+        field _+          = (Prelude..) maybe'mapSettings+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance+     Data.ProtoLens.Field "maybe'mapSettings" GlobalSettings =+     Prelude.Maybe Proto.POGOProtos.Settings.MapSettings.MapSettings++instance Data.ProtoLens.HasField "maybe'mapSettings" GlobalSettings+         GlobalSettings where+        field _+          = Lens.Family2.Unchecked.lens _GlobalSettings'mapSettings+              (\ x__ y__ -> x__{_GlobalSettings'mapSettings = y__})++type instance Data.ProtoLens.Field "levelSettings" GlobalSettings =+     Proto.POGOProtos.Settings.LevelSettings.LevelSettings++instance Data.ProtoLens.HasField "levelSettings" GlobalSettings+         GlobalSettings where+        field _+          = (Prelude..) maybe'levelSettings+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance+     Data.ProtoLens.Field "maybe'levelSettings" GlobalSettings =+     Prelude.Maybe Proto.POGOProtos.Settings.LevelSettings.LevelSettings++instance Data.ProtoLens.HasField "maybe'levelSettings"+         GlobalSettings GlobalSettings where+        field _+          = Lens.Family2.Unchecked.lens _GlobalSettings'levelSettings+              (\ x__ y__ -> x__{_GlobalSettings'levelSettings = y__})++type instance+     Data.ProtoLens.Field "inventorySettings" GlobalSettings =+     Proto.POGOProtos.Settings.InventorySettings.InventorySettings++instance Data.ProtoLens.HasField "inventorySettings" GlobalSettings+         GlobalSettings where+        field _+          = (Prelude..) maybe'inventorySettings+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance+     Data.ProtoLens.Field "maybe'inventorySettings" GlobalSettings =+     Prelude.Maybe+       Proto.POGOProtos.Settings.InventorySettings.InventorySettings++instance Data.ProtoLens.HasField "maybe'inventorySettings"+         GlobalSettings GlobalSettings where+        field _+          = Lens.Family2.Unchecked.lens _GlobalSettings'inventorySettings+              (\ x__ y__ -> x__{_GlobalSettings'inventorySettings = y__})++type instance+     Data.ProtoLens.Field "minimumClientVersion" GlobalSettings =+     Data.Text.Text++instance Data.ProtoLens.HasField "minimumClientVersion"+         GlobalSettings GlobalSettings where+        field _+          = Lens.Family2.Unchecked.lens _GlobalSettings'minimumClientVersion+              (\ x__ y__ -> x__{_GlobalSettings'minimumClientVersion = y__})++instance Data.Default.Class.Default GlobalSettings where+        def+          = GlobalSettings{_GlobalSettings'fortSettings = Prelude.Nothing,+                           _GlobalSettings'mapSettings = Prelude.Nothing,+                           _GlobalSettings'levelSettings = Prelude.Nothing,+                           _GlobalSettings'inventorySettings = Prelude.Nothing,+                           _GlobalSettings'minimumClientVersion = Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message GlobalSettings where+        descriptor+          = let fortSettings__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "fort_settings"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Settings.FortSettings.FortSettings)+                      (Data.ProtoLens.OptionalField maybe'fortSettings)+                mapSettings__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "map_settings"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Settings.MapSettings.MapSettings)+                      (Data.ProtoLens.OptionalField maybe'mapSettings)+                levelSettings__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "level_settings"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Settings.LevelSettings.LevelSettings)+                      (Data.ProtoLens.OptionalField maybe'levelSettings)+                inventorySettings__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "inventory_settings"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Settings.InventorySettings.InventorySettings)+                      (Data.ProtoLens.OptionalField maybe'inventorySettings)+                minimumClientVersion__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "minimum_client_version"+                      (Data.ProtoLens.StringField ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         minimumClientVersion)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 2, fortSettings__field_descriptor),+                    (Data.ProtoLens.Tag 3, mapSettings__field_descriptor),+                    (Data.ProtoLens.Tag 4, levelSettings__field_descriptor),+                    (Data.ProtoLens.Tag 5, inventorySettings__field_descriptor),+                    (Data.ProtoLens.Tag 6, minimumClientVersion__field_descriptor)])+                (Data.Map.fromList+                   [("fort_settings", fortSettings__field_descriptor),+                    ("map_settings", mapSettings__field_descriptor),+                    ("level_settings", levelSettings__field_descriptor),+                    ("inventory_settings", inventorySettings__field_descriptor),+                    ("minimum_client_version",+                     minimumClientVersion__field_descriptor)])++fortSettings ::+             forall msg msg' .+               Data.ProtoLens.HasField "fortSettings" msg msg' =>+               Lens.Family2.Lens msg msg'+                 (Data.ProtoLens.Field "fortSettings" msg)+                 (Data.ProtoLens.Field "fortSettings" msg')+fortSettings+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "fortSettings")++inventorySettings ::+                  forall msg msg' .+                    Data.ProtoLens.HasField "inventorySettings" msg msg' =>+                    Lens.Family2.Lens msg msg'+                      (Data.ProtoLens.Field "inventorySettings" msg)+                      (Data.ProtoLens.Field "inventorySettings" msg')+inventorySettings+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "inventorySettings")++levelSettings ::+              forall msg msg' .+                Data.ProtoLens.HasField "levelSettings" msg msg' =>+                Lens.Family2.Lens msg msg'+                  (Data.ProtoLens.Field "levelSettings" msg)+                  (Data.ProtoLens.Field "levelSettings" msg')+levelSettings+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "levelSettings")++mapSettings ::+            forall msg msg' . Data.ProtoLens.HasField "mapSettings" msg msg' =>+              Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "mapSettings" msg)+                (Data.ProtoLens.Field "mapSettings" msg')+mapSettings+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "mapSettings")++maybe'fortSettings ::+                   forall msg msg' .+                     Data.ProtoLens.HasField "maybe'fortSettings" msg msg' =>+                     Lens.Family2.Lens msg msg'+                       (Data.ProtoLens.Field "maybe'fortSettings" msg)+                       (Data.ProtoLens.Field "maybe'fortSettings" msg')+maybe'fortSettings+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "maybe'fortSettings")++maybe'inventorySettings ::+                        forall msg msg' .+                          Data.ProtoLens.HasField "maybe'inventorySettings" msg msg' =>+                          Lens.Family2.Lens msg msg'+                            (Data.ProtoLens.Field "maybe'inventorySettings" msg)+                            (Data.ProtoLens.Field "maybe'inventorySettings" msg')+maybe'inventorySettings+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "maybe'inventorySettings")++maybe'levelSettings ::+                    forall msg msg' .+                      Data.ProtoLens.HasField "maybe'levelSettings" msg msg' =>+                      Lens.Family2.Lens msg msg'+                        (Data.ProtoLens.Field "maybe'levelSettings" msg)+                        (Data.ProtoLens.Field "maybe'levelSettings" msg')+maybe'levelSettings+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "maybe'levelSettings")++maybe'mapSettings ::+                  forall msg msg' .+                    Data.ProtoLens.HasField "maybe'mapSettings" msg msg' =>+                    Lens.Family2.Lens msg msg'+                      (Data.ProtoLens.Field "maybe'mapSettings" msg)+                      (Data.ProtoLens.Field "maybe'mapSettings" msg')+maybe'mapSettings+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "maybe'mapSettings")++minimumClientVersion ::+                     forall msg msg' .+                       Data.ProtoLens.HasField "minimumClientVersion" msg msg' =>+                       Lens.Family2.Lens msg msg'+                         (Data.ProtoLens.Field "minimumClientVersion" msg)+                         (Data.ProtoLens.Field "minimumClientVersion" msg')+minimumClientVersion+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "minimumClientVersion")
+ src/Proto/POGOProtos/Settings/InventorySettings.hs view
@@ -0,0 +1,162 @@+{- This file was auto-generated from POGOProtos/Settings/InventorySettings.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Settings.InventorySettings 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 InventorySettings = InventorySettings{_InventorySettings'maxPokemon+                                           :: Data.Int.Int32,+                                           _InventorySettings'maxBagItems :: Data.Int.Int32,+                                           _InventorySettings'basePokemon :: Data.Int.Int32,+                                           _InventorySettings'baseBagItems :: Data.Int.Int32,+                                           _InventorySettings'baseEggs :: Data.Int.Int32}+                       deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "maxPokemon" InventorySettings =+     Data.Int.Int32++instance Data.ProtoLens.HasField "maxPokemon" InventorySettings+         InventorySettings where+        field _+          = Lens.Family2.Unchecked.lens _InventorySettings'maxPokemon+              (\ x__ y__ -> x__{_InventorySettings'maxPokemon = y__})++type instance Data.ProtoLens.Field "maxBagItems" InventorySettings+     = Data.Int.Int32++instance Data.ProtoLens.HasField "maxBagItems" InventorySettings+         InventorySettings where+        field _+          = Lens.Family2.Unchecked.lens _InventorySettings'maxBagItems+              (\ x__ y__ -> x__{_InventorySettings'maxBagItems = y__})++type instance Data.ProtoLens.Field "basePokemon" InventorySettings+     = Data.Int.Int32++instance Data.ProtoLens.HasField "basePokemon" InventorySettings+         InventorySettings where+        field _+          = Lens.Family2.Unchecked.lens _InventorySettings'basePokemon+              (\ x__ y__ -> x__{_InventorySettings'basePokemon = y__})++type instance Data.ProtoLens.Field "baseBagItems" InventorySettings+     = Data.Int.Int32++instance Data.ProtoLens.HasField "baseBagItems" InventorySettings+         InventorySettings where+        field _+          = Lens.Family2.Unchecked.lens _InventorySettings'baseBagItems+              (\ x__ y__ -> x__{_InventorySettings'baseBagItems = y__})++type instance Data.ProtoLens.Field "baseEggs" InventorySettings =+     Data.Int.Int32++instance Data.ProtoLens.HasField "baseEggs" InventorySettings+         InventorySettings where+        field _+          = Lens.Family2.Unchecked.lens _InventorySettings'baseEggs+              (\ x__ y__ -> x__{_InventorySettings'baseEggs = y__})++instance Data.Default.Class.Default InventorySettings where+        def+          = InventorySettings{_InventorySettings'maxPokemon =+                                Data.ProtoLens.fieldDefault,+                              _InventorySettings'maxBagItems = Data.ProtoLens.fieldDefault,+                              _InventorySettings'basePokemon = Data.ProtoLens.fieldDefault,+                              _InventorySettings'baseBagItems = Data.ProtoLens.fieldDefault,+                              _InventorySettings'baseEggs = Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message InventorySettings where+        descriptor+          = let maxPokemon__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "max_pokemon"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional maxPokemon)+                maxBagItems__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "max_bag_items"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional maxBagItems)+                basePokemon__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "base_pokemon"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional basePokemon)+                baseBagItems__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "base_bag_items"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional baseBagItems)+                baseEggs__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "base_eggs"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional baseEggs)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, maxPokemon__field_descriptor),+                    (Data.ProtoLens.Tag 2, maxBagItems__field_descriptor),+                    (Data.ProtoLens.Tag 3, basePokemon__field_descriptor),+                    (Data.ProtoLens.Tag 4, baseBagItems__field_descriptor),+                    (Data.ProtoLens.Tag 5, baseEggs__field_descriptor)])+                (Data.Map.fromList+                   [("max_pokemon", maxPokemon__field_descriptor),+                    ("max_bag_items", maxBagItems__field_descriptor),+                    ("base_pokemon", basePokemon__field_descriptor),+                    ("base_bag_items", baseBagItems__field_descriptor),+                    ("base_eggs", baseEggs__field_descriptor)])++baseBagItems ::+             forall msg msg' .+               Data.ProtoLens.HasField "baseBagItems" msg msg' =>+               Lens.Family2.Lens msg msg'+                 (Data.ProtoLens.Field "baseBagItems" msg)+                 (Data.ProtoLens.Field "baseBagItems" msg')+baseBagItems+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "baseBagItems")++baseEggs ::+         forall msg msg' . Data.ProtoLens.HasField "baseEggs" msg msg' =>+           Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "baseEggs" msg)+             (Data.ProtoLens.Field "baseEggs" msg')+baseEggs+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "baseEggs")++basePokemon ::+            forall msg msg' . Data.ProtoLens.HasField "basePokemon" msg msg' =>+              Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "basePokemon" msg)+                (Data.ProtoLens.Field "basePokemon" msg')+basePokemon+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "basePokemon")++maxBagItems ::+            forall msg msg' . Data.ProtoLens.HasField "maxBagItems" msg msg' =>+              Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "maxBagItems" msg)+                (Data.ProtoLens.Field "maxBagItems" msg')+maxBagItems+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "maxBagItems")++maxPokemon ::+           forall msg msg' . Data.ProtoLens.HasField "maxPokemon" msg msg' =>+             Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "maxPokemon" msg)+               (Data.ProtoLens.Field "maxPokemon" msg')+maxPokemon+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "maxPokemon")
+ src/Proto/POGOProtos/Settings/LevelSettings.hs view
@@ -0,0 +1,96 @@+{- This file was auto-generated from POGOProtos/Settings/LevelSettings.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Settings.LevelSettings 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 LevelSettings = LevelSettings{_LevelSettings'trainerCpModifier+                                   :: Prelude.Double,+                                   _LevelSettings'trainerDifficultyModifier :: Prelude.Double}+                   deriving (Prelude.Show, Prelude.Eq)++type instance+     Data.ProtoLens.Field "trainerCpModifier" LevelSettings =+     Prelude.Double++instance Data.ProtoLens.HasField "trainerCpModifier" LevelSettings+         LevelSettings where+        field _+          = Lens.Family2.Unchecked.lens _LevelSettings'trainerCpModifier+              (\ x__ y__ -> x__{_LevelSettings'trainerCpModifier = y__})++type instance+     Data.ProtoLens.Field "trainerDifficultyModifier" LevelSettings =+     Prelude.Double++instance Data.ProtoLens.HasField "trainerDifficultyModifier"+         LevelSettings LevelSettings where+        field _+          = Lens.Family2.Unchecked.lens+              _LevelSettings'trainerDifficultyModifier+              (\ x__ y__ -> x__{_LevelSettings'trainerDifficultyModifier = y__})++instance Data.Default.Class.Default LevelSettings where+        def+          = LevelSettings{_LevelSettings'trainerCpModifier =+                            Data.ProtoLens.fieldDefault,+                          _LevelSettings'trainerDifficultyModifier =+                            Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message LevelSettings where+        descriptor+          = let trainerCpModifier__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "trainer_cp_modifier"+                      (Data.ProtoLens.DoubleField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Double)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         trainerCpModifier)+                trainerDifficultyModifier__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "trainer_difficulty_modifier"+                      (Data.ProtoLens.DoubleField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Double)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         trainerDifficultyModifier)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 2, trainerCpModifier__field_descriptor),+                    (Data.ProtoLens.Tag 3,+                     trainerDifficultyModifier__field_descriptor)])+                (Data.Map.fromList+                   [("trainer_cp_modifier", trainerCpModifier__field_descriptor),+                    ("trainer_difficulty_modifier",+                     trainerDifficultyModifier__field_descriptor)])++trainerCpModifier ::+                  forall msg msg' .+                    Data.ProtoLens.HasField "trainerCpModifier" msg msg' =>+                    Lens.Family2.Lens msg msg'+                      (Data.ProtoLens.Field "trainerCpModifier" msg)+                      (Data.ProtoLens.Field "trainerCpModifier" msg')+trainerCpModifier+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "trainerCpModifier")++trainerDifficultyModifier ::+                          forall msg msg' .+                            Data.ProtoLens.HasField "trainerDifficultyModifier" msg msg' =>+                            Lens.Family2.Lens msg msg'+                              (Data.ProtoLens.Field "trainerDifficultyModifier" msg)+                              (Data.ProtoLens.Field "trainerDifficultyModifier" msg')+trainerDifficultyModifier+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "trainerDifficultyModifier")
+ src/Proto/POGOProtos/Settings/MapSettings.hs view
@@ -0,0 +1,266 @@+{- This file was auto-generated from POGOProtos/Settings/MapSettings.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Settings.MapSettings 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 MapSettings = MapSettings{_MapSettings'pokemonVisibleRange ::+                               Prelude.Double,+                               _MapSettings'pokeNavRangeMeters :: Prelude.Double,+                               _MapSettings'encounterRangeMeters :: Prelude.Double,+                               _MapSettings'getMapObjectsMinRefreshSeconds :: Prelude.Float,+                               _MapSettings'getMapObjectsMaxRefreshSeconds :: Prelude.Float,+                               _MapSettings'getMapObjectsMinDistanceMeters :: Prelude.Float,+                               _MapSettings'googleMapsApiKey :: Data.Text.Text}+                 deriving (Prelude.Show, Prelude.Eq)++type instance+     Data.ProtoLens.Field "pokemonVisibleRange" MapSettings =+     Prelude.Double++instance Data.ProtoLens.HasField "pokemonVisibleRange" MapSettings+         MapSettings where+        field _+          = Lens.Family2.Unchecked.lens _MapSettings'pokemonVisibleRange+              (\ x__ y__ -> x__{_MapSettings'pokemonVisibleRange = y__})++type instance Data.ProtoLens.Field "pokeNavRangeMeters" MapSettings+     = Prelude.Double++instance Data.ProtoLens.HasField "pokeNavRangeMeters" MapSettings+         MapSettings where+        field _+          = Lens.Family2.Unchecked.lens _MapSettings'pokeNavRangeMeters+              (\ x__ y__ -> x__{_MapSettings'pokeNavRangeMeters = y__})++type instance+     Data.ProtoLens.Field "encounterRangeMeters" MapSettings =+     Prelude.Double++instance Data.ProtoLens.HasField "encounterRangeMeters" MapSettings+         MapSettings where+        field _+          = Lens.Family2.Unchecked.lens _MapSettings'encounterRangeMeters+              (\ x__ y__ -> x__{_MapSettings'encounterRangeMeters = y__})++type instance+     Data.ProtoLens.Field "getMapObjectsMinRefreshSeconds" MapSettings =+     Prelude.Float++instance Data.ProtoLens.HasField "getMapObjectsMinRefreshSeconds"+         MapSettings MapSettings where+        field _+          = Lens.Family2.Unchecked.lens+              _MapSettings'getMapObjectsMinRefreshSeconds+              (\ x__ y__ ->+                 x__{_MapSettings'getMapObjectsMinRefreshSeconds = y__})++type instance+     Data.ProtoLens.Field "getMapObjectsMaxRefreshSeconds" MapSettings =+     Prelude.Float++instance Data.ProtoLens.HasField "getMapObjectsMaxRefreshSeconds"+         MapSettings MapSettings where+        field _+          = Lens.Family2.Unchecked.lens+              _MapSettings'getMapObjectsMaxRefreshSeconds+              (\ x__ y__ ->+                 x__{_MapSettings'getMapObjectsMaxRefreshSeconds = y__})++type instance+     Data.ProtoLens.Field "getMapObjectsMinDistanceMeters" MapSettings =+     Prelude.Float++instance Data.ProtoLens.HasField "getMapObjectsMinDistanceMeters"+         MapSettings MapSettings where+        field _+          = Lens.Family2.Unchecked.lens+              _MapSettings'getMapObjectsMinDistanceMeters+              (\ x__ y__ ->+                 x__{_MapSettings'getMapObjectsMinDistanceMeters = y__})++type instance Data.ProtoLens.Field "googleMapsApiKey" MapSettings =+     Data.Text.Text++instance Data.ProtoLens.HasField "googleMapsApiKey" MapSettings+         MapSettings where+        field _+          = Lens.Family2.Unchecked.lens _MapSettings'googleMapsApiKey+              (\ x__ y__ -> x__{_MapSettings'googleMapsApiKey = y__})++instance Data.Default.Class.Default MapSettings where+        def+          = MapSettings{_MapSettings'pokemonVisibleRange =+                          Data.ProtoLens.fieldDefault,+                        _MapSettings'pokeNavRangeMeters = Data.ProtoLens.fieldDefault,+                        _MapSettings'encounterRangeMeters = Data.ProtoLens.fieldDefault,+                        _MapSettings'getMapObjectsMinRefreshSeconds =+                          Data.ProtoLens.fieldDefault,+                        _MapSettings'getMapObjectsMaxRefreshSeconds =+                          Data.ProtoLens.fieldDefault,+                        _MapSettings'getMapObjectsMinDistanceMeters =+                          Data.ProtoLens.fieldDefault,+                        _MapSettings'googleMapsApiKey = Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message MapSettings where+        descriptor+          = let pokemonVisibleRange__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "pokemon_visible_range"+                      (Data.ProtoLens.DoubleField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Double)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         pokemonVisibleRange)+                pokeNavRangeMeters__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "poke_nav_range_meters"+                      (Data.ProtoLens.DoubleField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Double)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         pokeNavRangeMeters)+                encounterRangeMeters__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "encounter_range_meters"+                      (Data.ProtoLens.DoubleField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Double)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         encounterRangeMeters)+                getMapObjectsMinRefreshSeconds__field_descriptor+                  = Data.ProtoLens.FieldDescriptor+                      "get_map_objects_min_refresh_seconds"+                      (Data.ProtoLens.FloatField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Float)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         getMapObjectsMinRefreshSeconds)+                getMapObjectsMaxRefreshSeconds__field_descriptor+                  = Data.ProtoLens.FieldDescriptor+                      "get_map_objects_max_refresh_seconds"+                      (Data.ProtoLens.FloatField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Float)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         getMapObjectsMaxRefreshSeconds)+                getMapObjectsMinDistanceMeters__field_descriptor+                  = Data.ProtoLens.FieldDescriptor+                      "get_map_objects_min_distance_meters"+                      (Data.ProtoLens.FloatField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Float)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         getMapObjectsMinDistanceMeters)+                googleMapsApiKey__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "google_maps_api_key"+                      (Data.ProtoLens.StringField ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         googleMapsApiKey)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, pokemonVisibleRange__field_descriptor),+                    (Data.ProtoLens.Tag 2, pokeNavRangeMeters__field_descriptor),+                    (Data.ProtoLens.Tag 3, encounterRangeMeters__field_descriptor),+                    (Data.ProtoLens.Tag 4,+                     getMapObjectsMinRefreshSeconds__field_descriptor),+                    (Data.ProtoLens.Tag 5,+                     getMapObjectsMaxRefreshSeconds__field_descriptor),+                    (Data.ProtoLens.Tag 6,+                     getMapObjectsMinDistanceMeters__field_descriptor),+                    (Data.ProtoLens.Tag 7, googleMapsApiKey__field_descriptor)])+                (Data.Map.fromList+                   [("pokemon_visible_range", pokemonVisibleRange__field_descriptor),+                    ("poke_nav_range_meters", pokeNavRangeMeters__field_descriptor),+                    ("encounter_range_meters", encounterRangeMeters__field_descriptor),+                    ("get_map_objects_min_refresh_seconds",+                     getMapObjectsMinRefreshSeconds__field_descriptor),+                    ("get_map_objects_max_refresh_seconds",+                     getMapObjectsMaxRefreshSeconds__field_descriptor),+                    ("get_map_objects_min_distance_meters",+                     getMapObjectsMinDistanceMeters__field_descriptor),+                    ("google_maps_api_key", googleMapsApiKey__field_descriptor)])++encounterRangeMeters ::+                     forall msg msg' .+                       Data.ProtoLens.HasField "encounterRangeMeters" msg msg' =>+                       Lens.Family2.Lens msg msg'+                         (Data.ProtoLens.Field "encounterRangeMeters" msg)+                         (Data.ProtoLens.Field "encounterRangeMeters" msg')+encounterRangeMeters+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "encounterRangeMeters")++getMapObjectsMaxRefreshSeconds ::+                               forall msg msg' .+                                 Data.ProtoLens.HasField "getMapObjectsMaxRefreshSeconds" msg+                                   msg' =>+                                 Lens.Family2.Lens msg msg'+                                   (Data.ProtoLens.Field "getMapObjectsMaxRefreshSeconds" msg)+                                   (Data.ProtoLens.Field "getMapObjectsMaxRefreshSeconds" msg')+getMapObjectsMaxRefreshSeconds+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "getMapObjectsMaxRefreshSeconds")++getMapObjectsMinDistanceMeters ::+                               forall msg msg' .+                                 Data.ProtoLens.HasField "getMapObjectsMinDistanceMeters" msg+                                   msg' =>+                                 Lens.Family2.Lens msg msg'+                                   (Data.ProtoLens.Field "getMapObjectsMinDistanceMeters" msg)+                                   (Data.ProtoLens.Field "getMapObjectsMinDistanceMeters" msg')+getMapObjectsMinDistanceMeters+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "getMapObjectsMinDistanceMeters")++getMapObjectsMinRefreshSeconds ::+                               forall msg msg' .+                                 Data.ProtoLens.HasField "getMapObjectsMinRefreshSeconds" msg+                                   msg' =>+                                 Lens.Family2.Lens msg msg'+                                   (Data.ProtoLens.Field "getMapObjectsMinRefreshSeconds" msg)+                                   (Data.ProtoLens.Field "getMapObjectsMinRefreshSeconds" msg')+getMapObjectsMinRefreshSeconds+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "getMapObjectsMinRefreshSeconds")++googleMapsApiKey ::+                 forall msg msg' .+                   Data.ProtoLens.HasField "googleMapsApiKey" msg msg' =>+                   Lens.Family2.Lens msg msg'+                     (Data.ProtoLens.Field "googleMapsApiKey" msg)+                     (Data.ProtoLens.Field "googleMapsApiKey" msg')+googleMapsApiKey+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "googleMapsApiKey")++pokeNavRangeMeters ::+                   forall msg msg' .+                     Data.ProtoLens.HasField "pokeNavRangeMeters" msg msg' =>+                     Lens.Family2.Lens msg msg'+                       (Data.ProtoLens.Field "pokeNavRangeMeters" msg)+                       (Data.ProtoLens.Field "pokeNavRangeMeters" msg')+pokeNavRangeMeters+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "pokeNavRangeMeters")++pokemonVisibleRange ::+                    forall msg msg' .+                      Data.ProtoLens.HasField "pokemonVisibleRange" msg msg' =>+                      Lens.Family2.Lens msg msg'+                        (Data.ProtoLens.Field "pokemonVisibleRange" msg)+                        (Data.ProtoLens.Field "pokemonVisibleRange" msg')+pokemonVisibleRange+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "pokemonVisibleRange")
+ src/Proto/POGOProtos/Settings/Master/BadgeSettings.hs view
@@ -0,0 +1,109 @@+{- This file was auto-generated from POGOProtos/Settings/Master/BadgeSettings.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Settings.Master.BadgeSettings 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.BadgeType++data BadgeSettings = BadgeSettings{_BadgeSettings'badgeType ::+                                   Proto.POGOProtos.Enums.BadgeType.BadgeType,+                                   _BadgeSettings'badgeRank :: Data.Int.Int32,+                                   _BadgeSettings'targets :: [Data.Int.Int32]}+                   deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "badgeType" BadgeSettings =+     Proto.POGOProtos.Enums.BadgeType.BadgeType++instance Data.ProtoLens.HasField "badgeType" BadgeSettings+         BadgeSettings where+        field _+          = Lens.Family2.Unchecked.lens _BadgeSettings'badgeType+              (\ x__ y__ -> x__{_BadgeSettings'badgeType = y__})++type instance Data.ProtoLens.Field "badgeRank" BadgeSettings =+     Data.Int.Int32++instance Data.ProtoLens.HasField "badgeRank" BadgeSettings+         BadgeSettings where+        field _+          = Lens.Family2.Unchecked.lens _BadgeSettings'badgeRank+              (\ x__ y__ -> x__{_BadgeSettings'badgeRank = y__})++type instance Data.ProtoLens.Field "targets" BadgeSettings =+     [Data.Int.Int32]++instance Data.ProtoLens.HasField "targets" BadgeSettings+         BadgeSettings where+        field _+          = Lens.Family2.Unchecked.lens _BadgeSettings'targets+              (\ x__ y__ -> x__{_BadgeSettings'targets = y__})++instance Data.Default.Class.Default BadgeSettings where+        def+          = BadgeSettings{_BadgeSettings'badgeType = Data.Default.Class.def,+                          _BadgeSettings'badgeRank = Data.ProtoLens.fieldDefault,+                          _BadgeSettings'targets = []}++instance Data.ProtoLens.Message BadgeSettings where+        descriptor+          = let badgeType__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "badge_type"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Enums.BadgeType.BadgeType)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional badgeType)+                badgeRank__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "badge_rank"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional badgeRank)+                targets__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "targets"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked targets)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, badgeType__field_descriptor),+                    (Data.ProtoLens.Tag 2, badgeRank__field_descriptor),+                    (Data.ProtoLens.Tag 3, targets__field_descriptor)])+                (Data.Map.fromList+                   [("badge_type", badgeType__field_descriptor),+                    ("badge_rank", badgeRank__field_descriptor),+                    ("targets", targets__field_descriptor)])++badgeRank ::+          forall msg msg' . Data.ProtoLens.HasField "badgeRank" msg msg' =>+            Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "badgeRank" msg)+              (Data.ProtoLens.Field "badgeRank" msg')+badgeRank+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "badgeRank")++badgeType ::+          forall msg msg' . Data.ProtoLens.HasField "badgeType" msg msg' =>+            Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "badgeType" msg)+              (Data.ProtoLens.Field "badgeType" msg')+badgeType+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "badgeType")++targets ::+        forall msg msg' . Data.ProtoLens.HasField "targets" msg msg' =>+          Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "targets" msg)+            (Data.ProtoLens.Field "targets" msg')+targets+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "targets")
+ src/Proto/POGOProtos/Settings/Master/CameraSettings.hs view
@@ -0,0 +1,486 @@+{- This file was auto-generated from POGOProtos/Settings/Master/CameraSettings.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Settings.Master.CameraSettings 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.CameraInterpolation+import qualified Proto.POGOProtos.Enums.CameraTarget++data CameraSettings = CameraSettings{_CameraSettings'nextCamera ::+                                     Data.Text.Text,+                                     _CameraSettings'interpolation ::+                                     [Proto.POGOProtos.Enums.CameraInterpolation.CameraInterpolation],+                                     _CameraSettings'targetType ::+                                     [Proto.POGOProtos.Enums.CameraTarget.CameraTarget],+                                     _CameraSettings'easeInSpeed :: [Prelude.Float],+                                     _CameraSettings'eastOutSpeed :: [Prelude.Float],+                                     _CameraSettings'durationSeconds :: [Prelude.Float],+                                     _CameraSettings'waitSeconds :: [Prelude.Float],+                                     _CameraSettings'transitionSeconds :: [Prelude.Float],+                                     _CameraSettings'angleDegree :: [Prelude.Float],+                                     _CameraSettings'angleOffsetDegree :: [Prelude.Float],+                                     _CameraSettings'pitchDegree :: [Prelude.Float],+                                     _CameraSettings'pitchOffsetDegree :: [Prelude.Float],+                                     _CameraSettings'rollDegree :: [Prelude.Float],+                                     _CameraSettings'distanceMeters :: [Prelude.Float],+                                     _CameraSettings'heightPercent :: [Prelude.Float],+                                     _CameraSettings'vertCtrRatio :: [Prelude.Float]}+                    deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "nextCamera" CameraSettings =+     Data.Text.Text++instance Data.ProtoLens.HasField "nextCamera" CameraSettings+         CameraSettings where+        field _+          = Lens.Family2.Unchecked.lens _CameraSettings'nextCamera+              (\ x__ y__ -> x__{_CameraSettings'nextCamera = y__})++type instance Data.ProtoLens.Field "interpolation" CameraSettings =+     [Proto.POGOProtos.Enums.CameraInterpolation.CameraInterpolation]++instance Data.ProtoLens.HasField "interpolation" CameraSettings+         CameraSettings where+        field _+          = Lens.Family2.Unchecked.lens _CameraSettings'interpolation+              (\ x__ y__ -> x__{_CameraSettings'interpolation = y__})++type instance Data.ProtoLens.Field "targetType" CameraSettings =+     [Proto.POGOProtos.Enums.CameraTarget.CameraTarget]++instance Data.ProtoLens.HasField "targetType" CameraSettings+         CameraSettings where+        field _+          = Lens.Family2.Unchecked.lens _CameraSettings'targetType+              (\ x__ y__ -> x__{_CameraSettings'targetType = y__})++type instance Data.ProtoLens.Field "easeInSpeed" CameraSettings =+     [Prelude.Float]++instance Data.ProtoLens.HasField "easeInSpeed" CameraSettings+         CameraSettings where+        field _+          = Lens.Family2.Unchecked.lens _CameraSettings'easeInSpeed+              (\ x__ y__ -> x__{_CameraSettings'easeInSpeed = y__})++type instance Data.ProtoLens.Field "eastOutSpeed" CameraSettings =+     [Prelude.Float]++instance Data.ProtoLens.HasField "eastOutSpeed" CameraSettings+         CameraSettings where+        field _+          = Lens.Family2.Unchecked.lens _CameraSettings'eastOutSpeed+              (\ x__ y__ -> x__{_CameraSettings'eastOutSpeed = y__})++type instance Data.ProtoLens.Field "durationSeconds" CameraSettings+     = [Prelude.Float]++instance Data.ProtoLens.HasField "durationSeconds" CameraSettings+         CameraSettings where+        field _+          = Lens.Family2.Unchecked.lens _CameraSettings'durationSeconds+              (\ x__ y__ -> x__{_CameraSettings'durationSeconds = y__})++type instance Data.ProtoLens.Field "waitSeconds" CameraSettings =+     [Prelude.Float]++instance Data.ProtoLens.HasField "waitSeconds" CameraSettings+         CameraSettings where+        field _+          = Lens.Family2.Unchecked.lens _CameraSettings'waitSeconds+              (\ x__ y__ -> x__{_CameraSettings'waitSeconds = y__})++type instance+     Data.ProtoLens.Field "transitionSeconds" CameraSettings =+     [Prelude.Float]++instance Data.ProtoLens.HasField "transitionSeconds" CameraSettings+         CameraSettings where+        field _+          = Lens.Family2.Unchecked.lens _CameraSettings'transitionSeconds+              (\ x__ y__ -> x__{_CameraSettings'transitionSeconds = y__})++type instance Data.ProtoLens.Field "angleDegree" CameraSettings =+     [Prelude.Float]++instance Data.ProtoLens.HasField "angleDegree" CameraSettings+         CameraSettings where+        field _+          = Lens.Family2.Unchecked.lens _CameraSettings'angleDegree+              (\ x__ y__ -> x__{_CameraSettings'angleDegree = y__})++type instance+     Data.ProtoLens.Field "angleOffsetDegree" CameraSettings =+     [Prelude.Float]++instance Data.ProtoLens.HasField "angleOffsetDegree" CameraSettings+         CameraSettings where+        field _+          = Lens.Family2.Unchecked.lens _CameraSettings'angleOffsetDegree+              (\ x__ y__ -> x__{_CameraSettings'angleOffsetDegree = y__})++type instance Data.ProtoLens.Field "pitchDegree" CameraSettings =+     [Prelude.Float]++instance Data.ProtoLens.HasField "pitchDegree" CameraSettings+         CameraSettings where+        field _+          = Lens.Family2.Unchecked.lens _CameraSettings'pitchDegree+              (\ x__ y__ -> x__{_CameraSettings'pitchDegree = y__})++type instance+     Data.ProtoLens.Field "pitchOffsetDegree" CameraSettings =+     [Prelude.Float]++instance Data.ProtoLens.HasField "pitchOffsetDegree" CameraSettings+         CameraSettings where+        field _+          = Lens.Family2.Unchecked.lens _CameraSettings'pitchOffsetDegree+              (\ x__ y__ -> x__{_CameraSettings'pitchOffsetDegree = y__})++type instance Data.ProtoLens.Field "rollDegree" CameraSettings =+     [Prelude.Float]++instance Data.ProtoLens.HasField "rollDegree" CameraSettings+         CameraSettings where+        field _+          = Lens.Family2.Unchecked.lens _CameraSettings'rollDegree+              (\ x__ y__ -> x__{_CameraSettings'rollDegree = y__})++type instance Data.ProtoLens.Field "distanceMeters" CameraSettings+     = [Prelude.Float]++instance Data.ProtoLens.HasField "distanceMeters" CameraSettings+         CameraSettings where+        field _+          = Lens.Family2.Unchecked.lens _CameraSettings'distanceMeters+              (\ x__ y__ -> x__{_CameraSettings'distanceMeters = y__})++type instance Data.ProtoLens.Field "heightPercent" CameraSettings =+     [Prelude.Float]++instance Data.ProtoLens.HasField "heightPercent" CameraSettings+         CameraSettings where+        field _+          = Lens.Family2.Unchecked.lens _CameraSettings'heightPercent+              (\ x__ y__ -> x__{_CameraSettings'heightPercent = y__})++type instance Data.ProtoLens.Field "vertCtrRatio" CameraSettings =+     [Prelude.Float]++instance Data.ProtoLens.HasField "vertCtrRatio" CameraSettings+         CameraSettings where+        field _+          = Lens.Family2.Unchecked.lens _CameraSettings'vertCtrRatio+              (\ x__ y__ -> x__{_CameraSettings'vertCtrRatio = y__})++instance Data.Default.Class.Default CameraSettings where+        def+          = CameraSettings{_CameraSettings'nextCamera =+                             Data.ProtoLens.fieldDefault,+                           _CameraSettings'interpolation = [],+                           _CameraSettings'targetType = [], _CameraSettings'easeInSpeed = [],+                           _CameraSettings'eastOutSpeed = [],+                           _CameraSettings'durationSeconds = [],+                           _CameraSettings'waitSeconds = [],+                           _CameraSettings'transitionSeconds = [],+                           _CameraSettings'angleDegree = [],+                           _CameraSettings'angleOffsetDegree = [],+                           _CameraSettings'pitchDegree = [],+                           _CameraSettings'pitchOffsetDegree = [],+                           _CameraSettings'rollDegree = [],+                           _CameraSettings'distanceMeters = [],+                           _CameraSettings'heightPercent = [],+                           _CameraSettings'vertCtrRatio = []}++instance Data.ProtoLens.Message CameraSettings where+        descriptor+          = let nextCamera__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "next_camera"+                      (Data.ProtoLens.StringField ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional nextCamera)+                interpolation__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "interpolation"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Enums.CameraInterpolation.CameraInterpolation)+                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked+                         interpolation)+                targetType__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "target_type"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Enums.CameraTarget.CameraTarget)+                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked targetType)+                easeInSpeed__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "ease_in_speed"+                      (Data.ProtoLens.FloatField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Float)+                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked easeInSpeed)+                eastOutSpeed__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "east_out_speed"+                      (Data.ProtoLens.FloatField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Float)+                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked eastOutSpeed)+                durationSeconds__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "duration_seconds"+                      (Data.ProtoLens.FloatField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Float)+                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked+                         durationSeconds)+                waitSeconds__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "wait_seconds"+                      (Data.ProtoLens.FloatField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Float)+                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked waitSeconds)+                transitionSeconds__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "transition_seconds"+                      (Data.ProtoLens.FloatField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Float)+                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked+                         transitionSeconds)+                angleDegree__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "angle_degree"+                      (Data.ProtoLens.FloatField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Float)+                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked angleDegree)+                angleOffsetDegree__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "angle_offset_degree"+                      (Data.ProtoLens.FloatField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Float)+                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked+                         angleOffsetDegree)+                pitchDegree__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "pitch_degree"+                      (Data.ProtoLens.FloatField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Float)+                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked pitchDegree)+                pitchOffsetDegree__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "pitch_offset_degree"+                      (Data.ProtoLens.FloatField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Float)+                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked+                         pitchOffsetDegree)+                rollDegree__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "roll_degree"+                      (Data.ProtoLens.FloatField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Float)+                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked rollDegree)+                distanceMeters__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "distance_meters"+                      (Data.ProtoLens.FloatField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Float)+                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked+                         distanceMeters)+                heightPercent__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "height_percent"+                      (Data.ProtoLens.FloatField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Float)+                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked+                         heightPercent)+                vertCtrRatio__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "vert_ctr_ratio"+                      (Data.ProtoLens.FloatField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Float)+                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked vertCtrRatio)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, nextCamera__field_descriptor),+                    (Data.ProtoLens.Tag 2, interpolation__field_descriptor),+                    (Data.ProtoLens.Tag 3, targetType__field_descriptor),+                    (Data.ProtoLens.Tag 4, easeInSpeed__field_descriptor),+                    (Data.ProtoLens.Tag 5, eastOutSpeed__field_descriptor),+                    (Data.ProtoLens.Tag 6, durationSeconds__field_descriptor),+                    (Data.ProtoLens.Tag 7, waitSeconds__field_descriptor),+                    (Data.ProtoLens.Tag 8, transitionSeconds__field_descriptor),+                    (Data.ProtoLens.Tag 9, angleDegree__field_descriptor),+                    (Data.ProtoLens.Tag 10, angleOffsetDegree__field_descriptor),+                    (Data.ProtoLens.Tag 11, pitchDegree__field_descriptor),+                    (Data.ProtoLens.Tag 12, pitchOffsetDegree__field_descriptor),+                    (Data.ProtoLens.Tag 13, rollDegree__field_descriptor),+                    (Data.ProtoLens.Tag 14, distanceMeters__field_descriptor),+                    (Data.ProtoLens.Tag 15, heightPercent__field_descriptor),+                    (Data.ProtoLens.Tag 16, vertCtrRatio__field_descriptor)])+                (Data.Map.fromList+                   [("next_camera", nextCamera__field_descriptor),+                    ("interpolation", interpolation__field_descriptor),+                    ("target_type", targetType__field_descriptor),+                    ("ease_in_speed", easeInSpeed__field_descriptor),+                    ("east_out_speed", eastOutSpeed__field_descriptor),+                    ("duration_seconds", durationSeconds__field_descriptor),+                    ("wait_seconds", waitSeconds__field_descriptor),+                    ("transition_seconds", transitionSeconds__field_descriptor),+                    ("angle_degree", angleDegree__field_descriptor),+                    ("angle_offset_degree", angleOffsetDegree__field_descriptor),+                    ("pitch_degree", pitchDegree__field_descriptor),+                    ("pitch_offset_degree", pitchOffsetDegree__field_descriptor),+                    ("roll_degree", rollDegree__field_descriptor),+                    ("distance_meters", distanceMeters__field_descriptor),+                    ("height_percent", heightPercent__field_descriptor),+                    ("vert_ctr_ratio", vertCtrRatio__field_descriptor)])++angleDegree ::+            forall msg msg' . Data.ProtoLens.HasField "angleDegree" msg msg' =>+              Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "angleDegree" msg)+                (Data.ProtoLens.Field "angleDegree" msg')+angleDegree+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "angleDegree")++angleOffsetDegree ::+                  forall msg msg' .+                    Data.ProtoLens.HasField "angleOffsetDegree" msg msg' =>+                    Lens.Family2.Lens msg msg'+                      (Data.ProtoLens.Field "angleOffsetDegree" msg)+                      (Data.ProtoLens.Field "angleOffsetDegree" msg')+angleOffsetDegree+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "angleOffsetDegree")++distanceMeters ::+               forall msg msg' .+                 Data.ProtoLens.HasField "distanceMeters" msg msg' =>+                 Lens.Family2.Lens msg msg'+                   (Data.ProtoLens.Field "distanceMeters" msg)+                   (Data.ProtoLens.Field "distanceMeters" msg')+distanceMeters+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "distanceMeters")++durationSeconds ::+                forall msg msg' .+                  Data.ProtoLens.HasField "durationSeconds" msg msg' =>+                  Lens.Family2.Lens msg msg'+                    (Data.ProtoLens.Field "durationSeconds" msg)+                    (Data.ProtoLens.Field "durationSeconds" msg')+durationSeconds+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "durationSeconds")++easeInSpeed ::+            forall msg msg' . Data.ProtoLens.HasField "easeInSpeed" msg msg' =>+              Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "easeInSpeed" msg)+                (Data.ProtoLens.Field "easeInSpeed" msg')+easeInSpeed+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "easeInSpeed")++eastOutSpeed ::+             forall msg msg' .+               Data.ProtoLens.HasField "eastOutSpeed" msg msg' =>+               Lens.Family2.Lens msg msg'+                 (Data.ProtoLens.Field "eastOutSpeed" msg)+                 (Data.ProtoLens.Field "eastOutSpeed" msg')+eastOutSpeed+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "eastOutSpeed")++heightPercent ::+              forall msg msg' .+                Data.ProtoLens.HasField "heightPercent" msg msg' =>+                Lens.Family2.Lens msg msg'+                  (Data.ProtoLens.Field "heightPercent" msg)+                  (Data.ProtoLens.Field "heightPercent" msg')+heightPercent+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "heightPercent")++interpolation ::+              forall msg msg' .+                Data.ProtoLens.HasField "interpolation" msg msg' =>+                Lens.Family2.Lens msg msg'+                  (Data.ProtoLens.Field "interpolation" msg)+                  (Data.ProtoLens.Field "interpolation" msg')+interpolation+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "interpolation")++nextCamera ::+           forall msg msg' . Data.ProtoLens.HasField "nextCamera" msg msg' =>+             Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "nextCamera" msg)+               (Data.ProtoLens.Field "nextCamera" msg')+nextCamera+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "nextCamera")++pitchDegree ::+            forall msg msg' . Data.ProtoLens.HasField "pitchDegree" msg msg' =>+              Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "pitchDegree" msg)+                (Data.ProtoLens.Field "pitchDegree" msg')+pitchDegree+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "pitchDegree")++pitchOffsetDegree ::+                  forall msg msg' .+                    Data.ProtoLens.HasField "pitchOffsetDegree" msg msg' =>+                    Lens.Family2.Lens msg msg'+                      (Data.ProtoLens.Field "pitchOffsetDegree" msg)+                      (Data.ProtoLens.Field "pitchOffsetDegree" msg')+pitchOffsetDegree+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "pitchOffsetDegree")++rollDegree ::+           forall msg msg' . Data.ProtoLens.HasField "rollDegree" msg msg' =>+             Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "rollDegree" msg)+               (Data.ProtoLens.Field "rollDegree" msg')+rollDegree+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "rollDegree")++targetType ::+           forall msg msg' . Data.ProtoLens.HasField "targetType" msg msg' =>+             Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "targetType" msg)+               (Data.ProtoLens.Field "targetType" msg')+targetType+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "targetType")++transitionSeconds ::+                  forall msg msg' .+                    Data.ProtoLens.HasField "transitionSeconds" msg msg' =>+                    Lens.Family2.Lens msg msg'+                      (Data.ProtoLens.Field "transitionSeconds" msg)+                      (Data.ProtoLens.Field "transitionSeconds" msg')+transitionSeconds+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "transitionSeconds")++vertCtrRatio ::+             forall msg msg' .+               Data.ProtoLens.HasField "vertCtrRatio" msg msg' =>+               Lens.Family2.Lens msg msg'+                 (Data.ProtoLens.Field "vertCtrRatio" msg)+                 (Data.ProtoLens.Field "vertCtrRatio" msg')+vertCtrRatio+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "vertCtrRatio")++waitSeconds ::+            forall msg msg' . Data.ProtoLens.HasField "waitSeconds" msg msg' =>+              Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "waitSeconds" msg)+                (Data.ProtoLens.Field "waitSeconds" msg')+waitSeconds+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "waitSeconds")
+ src/Proto/POGOProtos/Settings/Master/EncounterSettings.hs view
@@ -0,0 +1,194 @@+{- This file was auto-generated from POGOProtos/Settings/Master/EncounterSettings.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Settings.Master.EncounterSettings 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 EncounterSettings = EncounterSettings{_EncounterSettings'spinBonusThreshold+                                           :: Prelude.Float,+                                           _EncounterSettings'excellentThrowThreshold ::+                                           Prelude.Float,+                                           _EncounterSettings'greatThrowThreshold :: Prelude.Float,+                                           _EncounterSettings'niceThrowThreshold :: Prelude.Float,+                                           _EncounterSettings'milestoneThreshold :: Data.Int.Int32}+                       deriving (Prelude.Show, Prelude.Eq)++type instance+     Data.ProtoLens.Field "spinBonusThreshold" EncounterSettings =+     Prelude.Float++instance Data.ProtoLens.HasField "spinBonusThreshold"+         EncounterSettings EncounterSettings where+        field _+          = Lens.Family2.Unchecked.lens _EncounterSettings'spinBonusThreshold+              (\ x__ y__ -> x__{_EncounterSettings'spinBonusThreshold = y__})++type instance+     Data.ProtoLens.Field "excellentThrowThreshold" EncounterSettings =+     Prelude.Float++instance Data.ProtoLens.HasField "excellentThrowThreshold"+         EncounterSettings EncounterSettings where+        field _+          = Lens.Family2.Unchecked.lens+              _EncounterSettings'excellentThrowThreshold+              (\ x__ y__ ->+                 x__{_EncounterSettings'excellentThrowThreshold = y__})++type instance+     Data.ProtoLens.Field "greatThrowThreshold" EncounterSettings =+     Prelude.Float++instance Data.ProtoLens.HasField "greatThrowThreshold"+         EncounterSettings EncounterSettings where+        field _+          = Lens.Family2.Unchecked.lens+              _EncounterSettings'greatThrowThreshold+              (\ x__ y__ -> x__{_EncounterSettings'greatThrowThreshold = y__})++type instance+     Data.ProtoLens.Field "niceThrowThreshold" EncounterSettings =+     Prelude.Float++instance Data.ProtoLens.HasField "niceThrowThreshold"+         EncounterSettings EncounterSettings where+        field _+          = Lens.Family2.Unchecked.lens _EncounterSettings'niceThrowThreshold+              (\ x__ y__ -> x__{_EncounterSettings'niceThrowThreshold = y__})++type instance+     Data.ProtoLens.Field "milestoneThreshold" EncounterSettings =+     Data.Int.Int32++instance Data.ProtoLens.HasField "milestoneThreshold"+         EncounterSettings EncounterSettings where+        field _+          = Lens.Family2.Unchecked.lens _EncounterSettings'milestoneThreshold+              (\ x__ y__ -> x__{_EncounterSettings'milestoneThreshold = y__})++instance Data.Default.Class.Default EncounterSettings where+        def+          = EncounterSettings{_EncounterSettings'spinBonusThreshold =+                                Data.ProtoLens.fieldDefault,+                              _EncounterSettings'excellentThrowThreshold =+                                Data.ProtoLens.fieldDefault,+                              _EncounterSettings'greatThrowThreshold =+                                Data.ProtoLens.fieldDefault,+                              _EncounterSettings'niceThrowThreshold =+                                Data.ProtoLens.fieldDefault,+                              _EncounterSettings'milestoneThreshold =+                                Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message EncounterSettings where+        descriptor+          = let spinBonusThreshold__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "spin_bonus_threshold"+                      (Data.ProtoLens.FloatField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Float)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         spinBonusThreshold)+                excellentThrowThreshold__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "excellent_throw_threshold"+                      (Data.ProtoLens.FloatField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Float)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         excellentThrowThreshold)+                greatThrowThreshold__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "great_throw_threshold"+                      (Data.ProtoLens.FloatField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Float)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         greatThrowThreshold)+                niceThrowThreshold__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "nice_throw_threshold"+                      (Data.ProtoLens.FloatField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Float)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         niceThrowThreshold)+                milestoneThreshold__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "milestone_threshold"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         milestoneThreshold)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, spinBonusThreshold__field_descriptor),+                    (Data.ProtoLens.Tag 2, excellentThrowThreshold__field_descriptor),+                    (Data.ProtoLens.Tag 3, greatThrowThreshold__field_descriptor),+                    (Data.ProtoLens.Tag 4, niceThrowThreshold__field_descriptor),+                    (Data.ProtoLens.Tag 5, milestoneThreshold__field_descriptor)])+                (Data.Map.fromList+                   [("spin_bonus_threshold", spinBonusThreshold__field_descriptor),+                    ("excellent_throw_threshold",+                     excellentThrowThreshold__field_descriptor),+                    ("great_throw_threshold", greatThrowThreshold__field_descriptor),+                    ("nice_throw_threshold", niceThrowThreshold__field_descriptor),+                    ("milestone_threshold", milestoneThreshold__field_descriptor)])++excellentThrowThreshold ::+                        forall msg msg' .+                          Data.ProtoLens.HasField "excellentThrowThreshold" msg msg' =>+                          Lens.Family2.Lens msg msg'+                            (Data.ProtoLens.Field "excellentThrowThreshold" msg)+                            (Data.ProtoLens.Field "excellentThrowThreshold" msg')+excellentThrowThreshold+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "excellentThrowThreshold")++greatThrowThreshold ::+                    forall msg msg' .+                      Data.ProtoLens.HasField "greatThrowThreshold" msg msg' =>+                      Lens.Family2.Lens msg msg'+                        (Data.ProtoLens.Field "greatThrowThreshold" msg)+                        (Data.ProtoLens.Field "greatThrowThreshold" msg')+greatThrowThreshold+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "greatThrowThreshold")++milestoneThreshold ::+                   forall msg msg' .+                     Data.ProtoLens.HasField "milestoneThreshold" msg msg' =>+                     Lens.Family2.Lens msg msg'+                       (Data.ProtoLens.Field "milestoneThreshold" msg)+                       (Data.ProtoLens.Field "milestoneThreshold" msg')+milestoneThreshold+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "milestoneThreshold")++niceThrowThreshold ::+                   forall msg msg' .+                     Data.ProtoLens.HasField "niceThrowThreshold" msg msg' =>+                     Lens.Family2.Lens msg msg'+                       (Data.ProtoLens.Field "niceThrowThreshold" msg)+                       (Data.ProtoLens.Field "niceThrowThreshold" msg')+niceThrowThreshold+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "niceThrowThreshold")++spinBonusThreshold ::+                   forall msg msg' .+                     Data.ProtoLens.HasField "spinBonusThreshold" msg msg' =>+                     Lens.Family2.Lens msg msg'+                       (Data.ProtoLens.Field "spinBonusThreshold" msg)+                       (Data.ProtoLens.Field "spinBonusThreshold" msg')+spinBonusThreshold+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "spinBonusThreshold")
+ src/Proto/POGOProtos/Settings/Master/EquippedBadgeSettings.hs view
@@ -0,0 +1,134 @@+{- This file was auto-generated from POGOProtos/Settings/Master/EquippedBadgeSettings.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Settings.Master.EquippedBadgeSettings 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 EquippedBadgeSettings = EquippedBadgeSettings{_EquippedBadgeSettings'equipBadgeCooldownMs+                                                   :: Data.Int.Int64,+                                                   _EquippedBadgeSettings'catchProbabilityBonus ::+                                                   [Prelude.Float],+                                                   _EquippedBadgeSettings'fleeProbabilityBonus ::+                                                   [Prelude.Float]}+                           deriving (Prelude.Show, Prelude.Eq)++type instance+     Data.ProtoLens.Field "equipBadgeCooldownMs" EquippedBadgeSettings =+     Data.Int.Int64++instance Data.ProtoLens.HasField "equipBadgeCooldownMs"+         EquippedBadgeSettings EquippedBadgeSettings where+        field _+          = Lens.Family2.Unchecked.lens+              _EquippedBadgeSettings'equipBadgeCooldownMs+              (\ x__ y__ ->+                 x__{_EquippedBadgeSettings'equipBadgeCooldownMs = y__})++type instance+     Data.ProtoLens.Field "catchProbabilityBonus" EquippedBadgeSettings+     = [Prelude.Float]++instance Data.ProtoLens.HasField "catchProbabilityBonus"+         EquippedBadgeSettings EquippedBadgeSettings where+        field _+          = Lens.Family2.Unchecked.lens+              _EquippedBadgeSettings'catchProbabilityBonus+              (\ x__ y__ ->+                 x__{_EquippedBadgeSettings'catchProbabilityBonus = y__})++type instance+     Data.ProtoLens.Field "fleeProbabilityBonus" EquippedBadgeSettings =+     [Prelude.Float]++instance Data.ProtoLens.HasField "fleeProbabilityBonus"+         EquippedBadgeSettings EquippedBadgeSettings where+        field _+          = Lens.Family2.Unchecked.lens+              _EquippedBadgeSettings'fleeProbabilityBonus+              (\ x__ y__ ->+                 x__{_EquippedBadgeSettings'fleeProbabilityBonus = y__})++instance Data.Default.Class.Default EquippedBadgeSettings where+        def+          = EquippedBadgeSettings{_EquippedBadgeSettings'equipBadgeCooldownMs+                                    = Data.ProtoLens.fieldDefault,+                                  _EquippedBadgeSettings'catchProbabilityBonus = [],+                                  _EquippedBadgeSettings'fleeProbabilityBonus = []}++instance Data.ProtoLens.Message EquippedBadgeSettings where+        descriptor+          = let equipBadgeCooldownMs__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "equip_badge_cooldown_ms"+                      (Data.ProtoLens.Int64Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         equipBadgeCooldownMs)+                catchProbabilityBonus__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "catch_probability_bonus"+                      (Data.ProtoLens.FloatField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Float)+                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked+                         catchProbabilityBonus)+                fleeProbabilityBonus__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "flee_probability_bonus"+                      (Data.ProtoLens.FloatField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Float)+                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked+                         fleeProbabilityBonus)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, equipBadgeCooldownMs__field_descriptor),+                    (Data.ProtoLens.Tag 2, catchProbabilityBonus__field_descriptor),+                    (Data.ProtoLens.Tag 3, fleeProbabilityBonus__field_descriptor)])+                (Data.Map.fromList+                   [("equip_badge_cooldown_ms",+                     equipBadgeCooldownMs__field_descriptor),+                    ("catch_probability_bonus",+                     catchProbabilityBonus__field_descriptor),+                    ("flee_probability_bonus",+                     fleeProbabilityBonus__field_descriptor)])++catchProbabilityBonus ::+                      forall msg msg' .+                        Data.ProtoLens.HasField "catchProbabilityBonus" msg msg' =>+                        Lens.Family2.Lens msg msg'+                          (Data.ProtoLens.Field "catchProbabilityBonus" msg)+                          (Data.ProtoLens.Field "catchProbabilityBonus" msg')+catchProbabilityBonus+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "catchProbabilityBonus")++equipBadgeCooldownMs ::+                     forall msg msg' .+                       Data.ProtoLens.HasField "equipBadgeCooldownMs" msg msg' =>+                       Lens.Family2.Lens msg msg'+                         (Data.ProtoLens.Field "equipBadgeCooldownMs" msg)+                         (Data.ProtoLens.Field "equipBadgeCooldownMs" msg')+equipBadgeCooldownMs+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "equipBadgeCooldownMs")++fleeProbabilityBonus ::+                     forall msg msg' .+                       Data.ProtoLens.HasField "fleeProbabilityBonus" msg msg' =>+                       Lens.Family2.Lens msg msg'+                         (Data.ProtoLens.Field "fleeProbabilityBonus" msg)+                         (Data.ProtoLens.Field "fleeProbabilityBonus" msg')+fleeProbabilityBonus+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "fleeProbabilityBonus")
+ src/Proto/POGOProtos/Settings/Master/GymBattleSettings.hs view
@@ -0,0 +1,488 @@+{- This file was auto-generated from POGOProtos/Settings/Master/GymBattleSettings.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Settings.Master.GymBattleSettings 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 GymBattleSettings = GymBattleSettings{_GymBattleSettings'energyPerSec+                                           :: Prelude.Float,+                                           _GymBattleSettings'dodgeEnergyCost :: Prelude.Float,+                                           _GymBattleSettings'retargetSeconds :: Prelude.Float,+                                           _GymBattleSettings'enemyAttackInterval :: Prelude.Float,+                                           _GymBattleSettings'attackServerInterval :: Prelude.Float,+                                           _GymBattleSettings'roundDurationSeconds :: Prelude.Float,+                                           _GymBattleSettings'bonusTimePerAllySeconds ::+                                           Prelude.Float,+                                           _GymBattleSettings'maximumAttackersPerBattle ::+                                           Data.Int.Int32,+                                           _GymBattleSettings'sameTypeAttackBonusMultiplier ::+                                           Prelude.Float,+                                           _GymBattleSettings'maximumEnergy :: Data.Int.Int32,+                                           _GymBattleSettings'energyDeltaPerHealthLost ::+                                           Prelude.Float,+                                           _GymBattleSettings'dodgeDurationMs :: Data.Int.Int32,+                                           _GymBattleSettings'minimumPlayerLevel :: Data.Int.Int32,+                                           _GymBattleSettings'swapDurationMs :: Data.Int.Int32}+                       deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "energyPerSec" GymBattleSettings+     = Prelude.Float++instance Data.ProtoLens.HasField "energyPerSec" GymBattleSettings+         GymBattleSettings where+        field _+          = Lens.Family2.Unchecked.lens _GymBattleSettings'energyPerSec+              (\ x__ y__ -> x__{_GymBattleSettings'energyPerSec = y__})++type instance+     Data.ProtoLens.Field "dodgeEnergyCost" GymBattleSettings =+     Prelude.Float++instance Data.ProtoLens.HasField "dodgeEnergyCost"+         GymBattleSettings GymBattleSettings where+        field _+          = Lens.Family2.Unchecked.lens _GymBattleSettings'dodgeEnergyCost+              (\ x__ y__ -> x__{_GymBattleSettings'dodgeEnergyCost = y__})++type instance+     Data.ProtoLens.Field "retargetSeconds" GymBattleSettings =+     Prelude.Float++instance Data.ProtoLens.HasField "retargetSeconds"+         GymBattleSettings GymBattleSettings where+        field _+          = Lens.Family2.Unchecked.lens _GymBattleSettings'retargetSeconds+              (\ x__ y__ -> x__{_GymBattleSettings'retargetSeconds = y__})++type instance+     Data.ProtoLens.Field "enemyAttackInterval" GymBattleSettings =+     Prelude.Float++instance Data.ProtoLens.HasField "enemyAttackInterval"+         GymBattleSettings GymBattleSettings where+        field _+          = Lens.Family2.Unchecked.lens+              _GymBattleSettings'enemyAttackInterval+              (\ x__ y__ -> x__{_GymBattleSettings'enemyAttackInterval = y__})++type instance+     Data.ProtoLens.Field "attackServerInterval" GymBattleSettings =+     Prelude.Float++instance Data.ProtoLens.HasField "attackServerInterval"+         GymBattleSettings GymBattleSettings where+        field _+          = Lens.Family2.Unchecked.lens+              _GymBattleSettings'attackServerInterval+              (\ x__ y__ -> x__{_GymBattleSettings'attackServerInterval = y__})++type instance+     Data.ProtoLens.Field "roundDurationSeconds" GymBattleSettings =+     Prelude.Float++instance Data.ProtoLens.HasField "roundDurationSeconds"+         GymBattleSettings GymBattleSettings where+        field _+          = Lens.Family2.Unchecked.lens+              _GymBattleSettings'roundDurationSeconds+              (\ x__ y__ -> x__{_GymBattleSettings'roundDurationSeconds = y__})++type instance+     Data.ProtoLens.Field "bonusTimePerAllySeconds" GymBattleSettings =+     Prelude.Float++instance Data.ProtoLens.HasField "bonusTimePerAllySeconds"+         GymBattleSettings GymBattleSettings where+        field _+          = Lens.Family2.Unchecked.lens+              _GymBattleSettings'bonusTimePerAllySeconds+              (\ x__ y__ ->+                 x__{_GymBattleSettings'bonusTimePerAllySeconds = y__})++type instance+     Data.ProtoLens.Field "maximumAttackersPerBattle" GymBattleSettings+     = Data.Int.Int32++instance Data.ProtoLens.HasField "maximumAttackersPerBattle"+         GymBattleSettings GymBattleSettings where+        field _+          = Lens.Family2.Unchecked.lens+              _GymBattleSettings'maximumAttackersPerBattle+              (\ x__ y__ ->+                 x__{_GymBattleSettings'maximumAttackersPerBattle = y__})++type instance+     Data.ProtoLens.Field "sameTypeAttackBonusMultiplier"+       GymBattleSettings+     = Prelude.Float++instance Data.ProtoLens.HasField "sameTypeAttackBonusMultiplier"+         GymBattleSettings GymBattleSettings where+        field _+          = Lens.Family2.Unchecked.lens+              _GymBattleSettings'sameTypeAttackBonusMultiplier+              (\ x__ y__ ->+                 x__{_GymBattleSettings'sameTypeAttackBonusMultiplier = y__})++type instance+     Data.ProtoLens.Field "maximumEnergy" GymBattleSettings =+     Data.Int.Int32++instance Data.ProtoLens.HasField "maximumEnergy" GymBattleSettings+         GymBattleSettings where+        field _+          = Lens.Family2.Unchecked.lens _GymBattleSettings'maximumEnergy+              (\ x__ y__ -> x__{_GymBattleSettings'maximumEnergy = y__})++type instance+     Data.ProtoLens.Field "energyDeltaPerHealthLost" GymBattleSettings =+     Prelude.Float++instance Data.ProtoLens.HasField "energyDeltaPerHealthLost"+         GymBattleSettings GymBattleSettings where+        field _+          = Lens.Family2.Unchecked.lens+              _GymBattleSettings'energyDeltaPerHealthLost+              (\ x__ y__ ->+                 x__{_GymBattleSettings'energyDeltaPerHealthLost = y__})++type instance+     Data.ProtoLens.Field "dodgeDurationMs" GymBattleSettings =+     Data.Int.Int32++instance Data.ProtoLens.HasField "dodgeDurationMs"+         GymBattleSettings GymBattleSettings where+        field _+          = Lens.Family2.Unchecked.lens _GymBattleSettings'dodgeDurationMs+              (\ x__ y__ -> x__{_GymBattleSettings'dodgeDurationMs = y__})++type instance+     Data.ProtoLens.Field "minimumPlayerLevel" GymBattleSettings =+     Data.Int.Int32++instance Data.ProtoLens.HasField "minimumPlayerLevel"+         GymBattleSettings GymBattleSettings where+        field _+          = Lens.Family2.Unchecked.lens _GymBattleSettings'minimumPlayerLevel+              (\ x__ y__ -> x__{_GymBattleSettings'minimumPlayerLevel = y__})++type instance+     Data.ProtoLens.Field "swapDurationMs" GymBattleSettings =+     Data.Int.Int32++instance Data.ProtoLens.HasField "swapDurationMs" GymBattleSettings+         GymBattleSettings where+        field _+          = Lens.Family2.Unchecked.lens _GymBattleSettings'swapDurationMs+              (\ x__ y__ -> x__{_GymBattleSettings'swapDurationMs = y__})++instance Data.Default.Class.Default GymBattleSettings where+        def+          = GymBattleSettings{_GymBattleSettings'energyPerSec =+                                Data.ProtoLens.fieldDefault,+                              _GymBattleSettings'dodgeEnergyCost = Data.ProtoLens.fieldDefault,+                              _GymBattleSettings'retargetSeconds = Data.ProtoLens.fieldDefault,+                              _GymBattleSettings'enemyAttackInterval =+                                Data.ProtoLens.fieldDefault,+                              _GymBattleSettings'attackServerInterval =+                                Data.ProtoLens.fieldDefault,+                              _GymBattleSettings'roundDurationSeconds =+                                Data.ProtoLens.fieldDefault,+                              _GymBattleSettings'bonusTimePerAllySeconds =+                                Data.ProtoLens.fieldDefault,+                              _GymBattleSettings'maximumAttackersPerBattle =+                                Data.ProtoLens.fieldDefault,+                              _GymBattleSettings'sameTypeAttackBonusMultiplier =+                                Data.ProtoLens.fieldDefault,+                              _GymBattleSettings'maximumEnergy = Data.ProtoLens.fieldDefault,+                              _GymBattleSettings'energyDeltaPerHealthLost =+                                Data.ProtoLens.fieldDefault,+                              _GymBattleSettings'dodgeDurationMs = Data.ProtoLens.fieldDefault,+                              _GymBattleSettings'minimumPlayerLevel =+                                Data.ProtoLens.fieldDefault,+                              _GymBattleSettings'swapDurationMs = Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message GymBattleSettings where+        descriptor+          = let energyPerSec__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "energy_per_sec"+                      (Data.ProtoLens.FloatField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Float)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional energyPerSec)+                dodgeEnergyCost__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "dodge_energy_cost"+                      (Data.ProtoLens.FloatField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Float)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional dodgeEnergyCost)+                retargetSeconds__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "retarget_seconds"+                      (Data.ProtoLens.FloatField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Float)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional retargetSeconds)+                enemyAttackInterval__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "enemy_attack_interval"+                      (Data.ProtoLens.FloatField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Float)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         enemyAttackInterval)+                attackServerInterval__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "attack_server_interval"+                      (Data.ProtoLens.FloatField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Float)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         attackServerInterval)+                roundDurationSeconds__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "round_duration_seconds"+                      (Data.ProtoLens.FloatField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Float)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         roundDurationSeconds)+                bonusTimePerAllySeconds__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "bonus_time_per_ally_seconds"+                      (Data.ProtoLens.FloatField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Float)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         bonusTimePerAllySeconds)+                maximumAttackersPerBattle__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "maximum_attackers_per_battle"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         maximumAttackersPerBattle)+                sameTypeAttackBonusMultiplier__field_descriptor+                  = Data.ProtoLens.FieldDescriptor+                      "same_type_attack_bonus_multiplier"+                      (Data.ProtoLens.FloatField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Float)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         sameTypeAttackBonusMultiplier)+                maximumEnergy__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "maximum_energy"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional maximumEnergy)+                energyDeltaPerHealthLost__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "energy_delta_per_health_lost"+                      (Data.ProtoLens.FloatField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Float)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         energyDeltaPerHealthLost)+                dodgeDurationMs__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "dodge_duration_ms"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional dodgeDurationMs)+                minimumPlayerLevel__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "minimum_player_level"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         minimumPlayerLevel)+                swapDurationMs__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "swap_duration_ms"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional swapDurationMs)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, energyPerSec__field_descriptor),+                    (Data.ProtoLens.Tag 2, dodgeEnergyCost__field_descriptor),+                    (Data.ProtoLens.Tag 3, retargetSeconds__field_descriptor),+                    (Data.ProtoLens.Tag 4, enemyAttackInterval__field_descriptor),+                    (Data.ProtoLens.Tag 5, attackServerInterval__field_descriptor),+                    (Data.ProtoLens.Tag 6, roundDurationSeconds__field_descriptor),+                    (Data.ProtoLens.Tag 7, bonusTimePerAllySeconds__field_descriptor),+                    (Data.ProtoLens.Tag 8,+                     maximumAttackersPerBattle__field_descriptor),+                    (Data.ProtoLens.Tag 9,+                     sameTypeAttackBonusMultiplier__field_descriptor),+                    (Data.ProtoLens.Tag 10, maximumEnergy__field_descriptor),+                    (Data.ProtoLens.Tag 11,+                     energyDeltaPerHealthLost__field_descriptor),+                    (Data.ProtoLens.Tag 12, dodgeDurationMs__field_descriptor),+                    (Data.ProtoLens.Tag 13, minimumPlayerLevel__field_descriptor),+                    (Data.ProtoLens.Tag 14, swapDurationMs__field_descriptor)])+                (Data.Map.fromList+                   [("energy_per_sec", energyPerSec__field_descriptor),+                    ("dodge_energy_cost", dodgeEnergyCost__field_descriptor),+                    ("retarget_seconds", retargetSeconds__field_descriptor),+                    ("enemy_attack_interval", enemyAttackInterval__field_descriptor),+                    ("attack_server_interval", attackServerInterval__field_descriptor),+                    ("round_duration_seconds", roundDurationSeconds__field_descriptor),+                    ("bonus_time_per_ally_seconds",+                     bonusTimePerAllySeconds__field_descriptor),+                    ("maximum_attackers_per_battle",+                     maximumAttackersPerBattle__field_descriptor),+                    ("same_type_attack_bonus_multiplier",+                     sameTypeAttackBonusMultiplier__field_descriptor),+                    ("maximum_energy", maximumEnergy__field_descriptor),+                    ("energy_delta_per_health_lost",+                     energyDeltaPerHealthLost__field_descriptor),+                    ("dodge_duration_ms", dodgeDurationMs__field_descriptor),+                    ("minimum_player_level", minimumPlayerLevel__field_descriptor),+                    ("swap_duration_ms", swapDurationMs__field_descriptor)])++attackServerInterval ::+                     forall msg msg' .+                       Data.ProtoLens.HasField "attackServerInterval" msg msg' =>+                       Lens.Family2.Lens msg msg'+                         (Data.ProtoLens.Field "attackServerInterval" msg)+                         (Data.ProtoLens.Field "attackServerInterval" msg')+attackServerInterval+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "attackServerInterval")++bonusTimePerAllySeconds ::+                        forall msg msg' .+                          Data.ProtoLens.HasField "bonusTimePerAllySeconds" msg msg' =>+                          Lens.Family2.Lens msg msg'+                            (Data.ProtoLens.Field "bonusTimePerAllySeconds" msg)+                            (Data.ProtoLens.Field "bonusTimePerAllySeconds" msg')+bonusTimePerAllySeconds+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "bonusTimePerAllySeconds")++dodgeDurationMs ::+                forall msg msg' .+                  Data.ProtoLens.HasField "dodgeDurationMs" msg msg' =>+                  Lens.Family2.Lens msg msg'+                    (Data.ProtoLens.Field "dodgeDurationMs" msg)+                    (Data.ProtoLens.Field "dodgeDurationMs" msg')+dodgeDurationMs+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "dodgeDurationMs")++dodgeEnergyCost ::+                forall msg msg' .+                  Data.ProtoLens.HasField "dodgeEnergyCost" msg msg' =>+                  Lens.Family2.Lens msg msg'+                    (Data.ProtoLens.Field "dodgeEnergyCost" msg)+                    (Data.ProtoLens.Field "dodgeEnergyCost" msg')+dodgeEnergyCost+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "dodgeEnergyCost")++enemyAttackInterval ::+                    forall msg msg' .+                      Data.ProtoLens.HasField "enemyAttackInterval" msg msg' =>+                      Lens.Family2.Lens msg msg'+                        (Data.ProtoLens.Field "enemyAttackInterval" msg)+                        (Data.ProtoLens.Field "enemyAttackInterval" msg')+enemyAttackInterval+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "enemyAttackInterval")++energyDeltaPerHealthLost ::+                         forall msg msg' .+                           Data.ProtoLens.HasField "energyDeltaPerHealthLost" msg msg' =>+                           Lens.Family2.Lens msg msg'+                             (Data.ProtoLens.Field "energyDeltaPerHealthLost" msg)+                             (Data.ProtoLens.Field "energyDeltaPerHealthLost" msg')+energyDeltaPerHealthLost+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "energyDeltaPerHealthLost")++energyPerSec ::+             forall msg msg' .+               Data.ProtoLens.HasField "energyPerSec" msg msg' =>+               Lens.Family2.Lens msg msg'+                 (Data.ProtoLens.Field "energyPerSec" msg)+                 (Data.ProtoLens.Field "energyPerSec" msg')+energyPerSec+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "energyPerSec")++maximumAttackersPerBattle ::+                          forall msg msg' .+                            Data.ProtoLens.HasField "maximumAttackersPerBattle" msg msg' =>+                            Lens.Family2.Lens msg msg'+                              (Data.ProtoLens.Field "maximumAttackersPerBattle" msg)+                              (Data.ProtoLens.Field "maximumAttackersPerBattle" msg')+maximumAttackersPerBattle+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "maximumAttackersPerBattle")++maximumEnergy ::+              forall msg msg' .+                Data.ProtoLens.HasField "maximumEnergy" msg msg' =>+                Lens.Family2.Lens msg msg'+                  (Data.ProtoLens.Field "maximumEnergy" msg)+                  (Data.ProtoLens.Field "maximumEnergy" msg')+maximumEnergy+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "maximumEnergy")++minimumPlayerLevel ::+                   forall msg msg' .+                     Data.ProtoLens.HasField "minimumPlayerLevel" msg msg' =>+                     Lens.Family2.Lens msg msg'+                       (Data.ProtoLens.Field "minimumPlayerLevel" msg)+                       (Data.ProtoLens.Field "minimumPlayerLevel" msg')+minimumPlayerLevel+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "minimumPlayerLevel")++retargetSeconds ::+                forall msg msg' .+                  Data.ProtoLens.HasField "retargetSeconds" msg msg' =>+                  Lens.Family2.Lens msg msg'+                    (Data.ProtoLens.Field "retargetSeconds" msg)+                    (Data.ProtoLens.Field "retargetSeconds" msg')+retargetSeconds+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "retargetSeconds")++roundDurationSeconds ::+                     forall msg msg' .+                       Data.ProtoLens.HasField "roundDurationSeconds" msg msg' =>+                       Lens.Family2.Lens msg msg'+                         (Data.ProtoLens.Field "roundDurationSeconds" msg)+                         (Data.ProtoLens.Field "roundDurationSeconds" msg')+roundDurationSeconds+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "roundDurationSeconds")++sameTypeAttackBonusMultiplier ::+                              forall msg msg' .+                                Data.ProtoLens.HasField "sameTypeAttackBonusMultiplier" msg msg' =>+                                Lens.Family2.Lens msg msg'+                                  (Data.ProtoLens.Field "sameTypeAttackBonusMultiplier" msg)+                                  (Data.ProtoLens.Field "sameTypeAttackBonusMultiplier" msg')+sameTypeAttackBonusMultiplier+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "sameTypeAttackBonusMultiplier")++swapDurationMs ::+               forall msg msg' .+                 Data.ProtoLens.HasField "swapDurationMs" msg msg' =>+                 Lens.Family2.Lens msg msg'+                   (Data.ProtoLens.Field "swapDurationMs" msg)+                   (Data.ProtoLens.Field "swapDurationMs" msg')+swapDurationMs+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "swapDurationMs")
+ src/Proto/POGOProtos/Settings/Master/GymLevelSettings.hs view
@@ -0,0 +1,145 @@+{- This file was auto-generated from POGOProtos/Settings/Master/GymLevelSettings.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Settings.Master.GymLevelSettings 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 GymLevelSettings = GymLevelSettings{_GymLevelSettings'requiredExperience+                                         :: [Data.Int.Int32],+                                         _GymLevelSettings'leaderSlots :: [Data.Int.Int32],+                                         _GymLevelSettings'trainerSlots :: [Data.Int.Int32],+                                         _GymLevelSettings'searchRollBonus :: [Data.Int.Int32]}+                      deriving (Prelude.Show, Prelude.Eq)++type instance+     Data.ProtoLens.Field "requiredExperience" GymLevelSettings =+     [Data.Int.Int32]++instance Data.ProtoLens.HasField "requiredExperience"+         GymLevelSettings GymLevelSettings where+        field _+          = Lens.Family2.Unchecked.lens _GymLevelSettings'requiredExperience+              (\ x__ y__ -> x__{_GymLevelSettings'requiredExperience = y__})++type instance Data.ProtoLens.Field "leaderSlots" GymLevelSettings =+     [Data.Int.Int32]++instance Data.ProtoLens.HasField "leaderSlots" GymLevelSettings+         GymLevelSettings where+        field _+          = Lens.Family2.Unchecked.lens _GymLevelSettings'leaderSlots+              (\ x__ y__ -> x__{_GymLevelSettings'leaderSlots = y__})++type instance Data.ProtoLens.Field "trainerSlots" GymLevelSettings+     = [Data.Int.Int32]++instance Data.ProtoLens.HasField "trainerSlots" GymLevelSettings+         GymLevelSettings where+        field _+          = Lens.Family2.Unchecked.lens _GymLevelSettings'trainerSlots+              (\ x__ y__ -> x__{_GymLevelSettings'trainerSlots = y__})++type instance+     Data.ProtoLens.Field "searchRollBonus" GymLevelSettings =+     [Data.Int.Int32]++instance Data.ProtoLens.HasField "searchRollBonus" GymLevelSettings+         GymLevelSettings where+        field _+          = Lens.Family2.Unchecked.lens _GymLevelSettings'searchRollBonus+              (\ x__ y__ -> x__{_GymLevelSettings'searchRollBonus = y__})++instance Data.Default.Class.Default GymLevelSettings where+        def+          = GymLevelSettings{_GymLevelSettings'requiredExperience = [],+                             _GymLevelSettings'leaderSlots = [],+                             _GymLevelSettings'trainerSlots = [],+                             _GymLevelSettings'searchRollBonus = []}++instance Data.ProtoLens.Message GymLevelSettings where+        descriptor+          = let requiredExperience__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "required_experience"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked+                         requiredExperience)+                leaderSlots__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "leader_slots"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked leaderSlots)+                trainerSlots__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "trainer_slots"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked trainerSlots)+                searchRollBonus__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "search_roll_bonus"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked+                         searchRollBonus)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, requiredExperience__field_descriptor),+                    (Data.ProtoLens.Tag 2, leaderSlots__field_descriptor),+                    (Data.ProtoLens.Tag 3, trainerSlots__field_descriptor),+                    (Data.ProtoLens.Tag 4, searchRollBonus__field_descriptor)])+                (Data.Map.fromList+                   [("required_experience", requiredExperience__field_descriptor),+                    ("leader_slots", leaderSlots__field_descriptor),+                    ("trainer_slots", trainerSlots__field_descriptor),+                    ("search_roll_bonus", searchRollBonus__field_descriptor)])++leaderSlots ::+            forall msg msg' . Data.ProtoLens.HasField "leaderSlots" msg msg' =>+              Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "leaderSlots" msg)+                (Data.ProtoLens.Field "leaderSlots" msg')+leaderSlots+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "leaderSlots")++requiredExperience ::+                   forall msg msg' .+                     Data.ProtoLens.HasField "requiredExperience" msg msg' =>+                     Lens.Family2.Lens msg msg'+                       (Data.ProtoLens.Field "requiredExperience" msg)+                       (Data.ProtoLens.Field "requiredExperience" msg')+requiredExperience+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "requiredExperience")++searchRollBonus ::+                forall msg msg' .+                  Data.ProtoLens.HasField "searchRollBonus" msg msg' =>+                  Lens.Family2.Lens msg msg'+                    (Data.ProtoLens.Field "searchRollBonus" msg)+                    (Data.ProtoLens.Field "searchRollBonus" msg')+searchRollBonus+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "searchRollBonus")++trainerSlots ::+             forall msg msg' .+               Data.ProtoLens.HasField "trainerSlots" msg msg' =>+               Lens.Family2.Lens msg msg'+                 (Data.ProtoLens.Field "trainerSlots" msg)+                 (Data.ProtoLens.Field "trainerSlots" msg')+trainerSlots+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "trainerSlots")
+ src/Proto/POGOProtos/Settings/Master/IapItemDisplay.hs view
@@ -0,0 +1,164 @@+{- This file was auto-generated from POGOProtos/Settings/Master/IapItemDisplay.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Settings.Master.IapItemDisplay 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.IapItemCategory+import qualified Proto.POGOProtos.Inventory.Item.ItemId++data IapItemDisplay = IapItemDisplay{_IapItemDisplay'sku ::+                                     Data.Text.Text,+                                     _IapItemDisplay'category ::+                                     Proto.POGOProtos.Enums.IapItemCategory.HoloIapItemCategory,+                                     _IapItemDisplay'sortOrder :: Data.Int.Int32,+                                     _IapItemDisplay'itemIds ::+                                     [Proto.POGOProtos.Inventory.Item.ItemId.ItemId],+                                     _IapItemDisplay'counts :: [Data.Int.Int32]}+                    deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "sku" IapItemDisplay =+     Data.Text.Text++instance Data.ProtoLens.HasField "sku" IapItemDisplay+         IapItemDisplay where+        field _+          = Lens.Family2.Unchecked.lens _IapItemDisplay'sku+              (\ x__ y__ -> x__{_IapItemDisplay'sku = y__})++type instance Data.ProtoLens.Field "category" IapItemDisplay =+     Proto.POGOProtos.Enums.IapItemCategory.HoloIapItemCategory++instance Data.ProtoLens.HasField "category" IapItemDisplay+         IapItemDisplay where+        field _+          = Lens.Family2.Unchecked.lens _IapItemDisplay'category+              (\ x__ y__ -> x__{_IapItemDisplay'category = y__})++type instance Data.ProtoLens.Field "sortOrder" IapItemDisplay =+     Data.Int.Int32++instance Data.ProtoLens.HasField "sortOrder" IapItemDisplay+         IapItemDisplay where+        field _+          = Lens.Family2.Unchecked.lens _IapItemDisplay'sortOrder+              (\ x__ y__ -> x__{_IapItemDisplay'sortOrder = y__})++type instance Data.ProtoLens.Field "itemIds" IapItemDisplay =+     [Proto.POGOProtos.Inventory.Item.ItemId.ItemId]++instance Data.ProtoLens.HasField "itemIds" IapItemDisplay+         IapItemDisplay where+        field _+          = Lens.Family2.Unchecked.lens _IapItemDisplay'itemIds+              (\ x__ y__ -> x__{_IapItemDisplay'itemIds = y__})++type instance Data.ProtoLens.Field "counts" IapItemDisplay =+     [Data.Int.Int32]++instance Data.ProtoLens.HasField "counts" IapItemDisplay+         IapItemDisplay where+        field _+          = Lens.Family2.Unchecked.lens _IapItemDisplay'counts+              (\ x__ y__ -> x__{_IapItemDisplay'counts = y__})++instance Data.Default.Class.Default IapItemDisplay where+        def+          = IapItemDisplay{_IapItemDisplay'sku = Data.ProtoLens.fieldDefault,+                           _IapItemDisplay'category = Data.Default.Class.def,+                           _IapItemDisplay'sortOrder = Data.ProtoLens.fieldDefault,+                           _IapItemDisplay'itemIds = [], _IapItemDisplay'counts = []}++instance Data.ProtoLens.Message IapItemDisplay where+        descriptor+          = let sku__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "sku"+                      (Data.ProtoLens.StringField ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional sku)+                category__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "category"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Enums.IapItemCategory.HoloIapItemCategory)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional category)+                sortOrder__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "sort_order"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional sortOrder)+                itemIds__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "item_ids"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Inventory.Item.ItemId.ItemId)+                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked itemIds)+                counts__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "counts"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked counts)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, sku__field_descriptor),+                    (Data.ProtoLens.Tag 2, category__field_descriptor),+                    (Data.ProtoLens.Tag 3, sortOrder__field_descriptor),+                    (Data.ProtoLens.Tag 4, itemIds__field_descriptor),+                    (Data.ProtoLens.Tag 5, counts__field_descriptor)])+                (Data.Map.fromList+                   [("sku", sku__field_descriptor),+                    ("category", category__field_descriptor),+                    ("sort_order", sortOrder__field_descriptor),+                    ("item_ids", itemIds__field_descriptor),+                    ("counts", counts__field_descriptor)])++category ::+         forall msg msg' . Data.ProtoLens.HasField "category" msg msg' =>+           Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "category" msg)+             (Data.ProtoLens.Field "category" msg')+category+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "category")++counts ::+       forall msg msg' . Data.ProtoLens.HasField "counts" msg msg' =>+         Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "counts" msg)+           (Data.ProtoLens.Field "counts" msg')+counts+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "counts")++itemIds ::+        forall msg msg' . Data.ProtoLens.HasField "itemIds" msg msg' =>+          Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "itemIds" msg)+            (Data.ProtoLens.Field "itemIds" msg')+itemIds+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "itemIds")++sku ::+    forall msg msg' . Data.ProtoLens.HasField "sku" msg msg' =>+      Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "sku" msg)+        (Data.ProtoLens.Field "sku" msg')+sku+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "sku")++sortOrder ::+          forall msg msg' . Data.ProtoLens.HasField "sortOrder" msg msg' =>+            Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "sortOrder" msg)+              (Data.ProtoLens.Field "sortOrder" msg')+sortOrder+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "sortOrder")
+ src/Proto/POGOProtos/Settings/Master/IapSettings.hs view
@@ -0,0 +1,262 @@+{- This file was auto-generated from POGOProtos/Settings/Master/IapSettings.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Settings.Master.IapSettings 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 IapSettings = IapSettings{_IapSettings'dailyBonusCoins ::+                               Data.Int.Int32,+                               _IapSettings'dailyDefenderBonusPerPokemon :: [Data.Int.Int32],+                               _IapSettings'dailyDefenderBonusMaxDefenders :: Data.Int.Int32,+                               _IapSettings'dailyDefenderBonusCurrency :: [Data.Text.Text],+                               _IapSettings'minTimeBetweenClaimsMs :: Data.Int.Int64,+                               _IapSettings'dailyBonusEnabled :: Prelude.Bool,+                               _IapSettings'dailyDefenderBonusEnabled :: Prelude.Bool}+                 deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "dailyBonusCoins" IapSettings =+     Data.Int.Int32++instance Data.ProtoLens.HasField "dailyBonusCoins" IapSettings+         IapSettings where+        field _+          = Lens.Family2.Unchecked.lens _IapSettings'dailyBonusCoins+              (\ x__ y__ -> x__{_IapSettings'dailyBonusCoins = y__})++type instance+     Data.ProtoLens.Field "dailyDefenderBonusPerPokemon" IapSettings =+     [Data.Int.Int32]++instance Data.ProtoLens.HasField "dailyDefenderBonusPerPokemon"+         IapSettings IapSettings where+        field _+          = Lens.Family2.Unchecked.lens+              _IapSettings'dailyDefenderBonusPerPokemon+              (\ x__ y__ -> x__{_IapSettings'dailyDefenderBonusPerPokemon = y__})++type instance+     Data.ProtoLens.Field "dailyDefenderBonusMaxDefenders" IapSettings =+     Data.Int.Int32++instance Data.ProtoLens.HasField "dailyDefenderBonusMaxDefenders"+         IapSettings IapSettings where+        field _+          = Lens.Family2.Unchecked.lens+              _IapSettings'dailyDefenderBonusMaxDefenders+              (\ x__ y__ ->+                 x__{_IapSettings'dailyDefenderBonusMaxDefenders = y__})++type instance+     Data.ProtoLens.Field "dailyDefenderBonusCurrency" IapSettings =+     [Data.Text.Text]++instance Data.ProtoLens.HasField "dailyDefenderBonusCurrency"+         IapSettings IapSettings where+        field _+          = Lens.Family2.Unchecked.lens+              _IapSettings'dailyDefenderBonusCurrency+              (\ x__ y__ -> x__{_IapSettings'dailyDefenderBonusCurrency = y__})++type instance+     Data.ProtoLens.Field "minTimeBetweenClaimsMs" IapSettings =+     Data.Int.Int64++instance Data.ProtoLens.HasField "minTimeBetweenClaimsMs"+         IapSettings IapSettings where+        field _+          = Lens.Family2.Unchecked.lens _IapSettings'minTimeBetweenClaimsMs+              (\ x__ y__ -> x__{_IapSettings'minTimeBetweenClaimsMs = y__})++type instance Data.ProtoLens.Field "dailyBonusEnabled" IapSettings+     = Prelude.Bool++instance Data.ProtoLens.HasField "dailyBonusEnabled" IapSettings+         IapSettings where+        field _+          = Lens.Family2.Unchecked.lens _IapSettings'dailyBonusEnabled+              (\ x__ y__ -> x__{_IapSettings'dailyBonusEnabled = y__})++type instance+     Data.ProtoLens.Field "dailyDefenderBonusEnabled" IapSettings =+     Prelude.Bool++instance Data.ProtoLens.HasField "dailyDefenderBonusEnabled"+         IapSettings IapSettings where+        field _+          = Lens.Family2.Unchecked.lens+              _IapSettings'dailyDefenderBonusEnabled+              (\ x__ y__ -> x__{_IapSettings'dailyDefenderBonusEnabled = y__})++instance Data.Default.Class.Default IapSettings where+        def+          = IapSettings{_IapSettings'dailyBonusCoins =+                          Data.ProtoLens.fieldDefault,+                        _IapSettings'dailyDefenderBonusPerPokemon = [],+                        _IapSettings'dailyDefenderBonusMaxDefenders =+                          Data.ProtoLens.fieldDefault,+                        _IapSettings'dailyDefenderBonusCurrency = [],+                        _IapSettings'minTimeBetweenClaimsMs = Data.ProtoLens.fieldDefault,+                        _IapSettings'dailyBonusEnabled = Data.ProtoLens.fieldDefault,+                        _IapSettings'dailyDefenderBonusEnabled =+                          Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message IapSettings where+        descriptor+          = let dailyBonusCoins__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "daily_bonus_coins"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional dailyBonusCoins)+                dailyDefenderBonusPerPokemon__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "daily_defender_bonus_per_pokemon"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked+                         dailyDefenderBonusPerPokemon)+                dailyDefenderBonusMaxDefenders__field_descriptor+                  = Data.ProtoLens.FieldDescriptor+                      "daily_defender_bonus_max_defenders"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         dailyDefenderBonusMaxDefenders)+                dailyDefenderBonusCurrency__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "daily_defender_bonus_currency"+                      (Data.ProtoLens.StringField ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked+                         dailyDefenderBonusCurrency)+                minTimeBetweenClaimsMs__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "min_time_between_claims_ms"+                      (Data.ProtoLens.Int64Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         minTimeBetweenClaimsMs)+                dailyBonusEnabled__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "daily_bonus_enabled"+                      (Data.ProtoLens.BoolField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         dailyBonusEnabled)+                dailyDefenderBonusEnabled__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "daily_defender_bonus_enabled"+                      (Data.ProtoLens.BoolField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         dailyDefenderBonusEnabled)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, dailyBonusCoins__field_descriptor),+                    (Data.ProtoLens.Tag 2,+                     dailyDefenderBonusPerPokemon__field_descriptor),+                    (Data.ProtoLens.Tag 3,+                     dailyDefenderBonusMaxDefenders__field_descriptor),+                    (Data.ProtoLens.Tag 4,+                     dailyDefenderBonusCurrency__field_descriptor),+                    (Data.ProtoLens.Tag 5, minTimeBetweenClaimsMs__field_descriptor),+                    (Data.ProtoLens.Tag 6, dailyBonusEnabled__field_descriptor),+                    (Data.ProtoLens.Tag 7,+                     dailyDefenderBonusEnabled__field_descriptor)])+                (Data.Map.fromList+                   [("daily_bonus_coins", dailyBonusCoins__field_descriptor),+                    ("daily_defender_bonus_per_pokemon",+                     dailyDefenderBonusPerPokemon__field_descriptor),+                    ("daily_defender_bonus_max_defenders",+                     dailyDefenderBonusMaxDefenders__field_descriptor),+                    ("daily_defender_bonus_currency",+                     dailyDefenderBonusCurrency__field_descriptor),+                    ("min_time_between_claims_ms",+                     minTimeBetweenClaimsMs__field_descriptor),+                    ("daily_bonus_enabled", dailyBonusEnabled__field_descriptor),+                    ("daily_defender_bonus_enabled",+                     dailyDefenderBonusEnabled__field_descriptor)])++dailyBonusCoins ::+                forall msg msg' .+                  Data.ProtoLens.HasField "dailyBonusCoins" msg msg' =>+                  Lens.Family2.Lens msg msg'+                    (Data.ProtoLens.Field "dailyBonusCoins" msg)+                    (Data.ProtoLens.Field "dailyBonusCoins" msg')+dailyBonusCoins+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "dailyBonusCoins")++dailyBonusEnabled ::+                  forall msg msg' .+                    Data.ProtoLens.HasField "dailyBonusEnabled" msg msg' =>+                    Lens.Family2.Lens msg msg'+                      (Data.ProtoLens.Field "dailyBonusEnabled" msg)+                      (Data.ProtoLens.Field "dailyBonusEnabled" msg')+dailyBonusEnabled+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "dailyBonusEnabled")++dailyDefenderBonusCurrency ::+                           forall msg msg' .+                             Data.ProtoLens.HasField "dailyDefenderBonusCurrency" msg msg' =>+                             Lens.Family2.Lens msg msg'+                               (Data.ProtoLens.Field "dailyDefenderBonusCurrency" msg)+                               (Data.ProtoLens.Field "dailyDefenderBonusCurrency" msg')+dailyDefenderBonusCurrency+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "dailyDefenderBonusCurrency")++dailyDefenderBonusEnabled ::+                          forall msg msg' .+                            Data.ProtoLens.HasField "dailyDefenderBonusEnabled" msg msg' =>+                            Lens.Family2.Lens msg msg'+                              (Data.ProtoLens.Field "dailyDefenderBonusEnabled" msg)+                              (Data.ProtoLens.Field "dailyDefenderBonusEnabled" msg')+dailyDefenderBonusEnabled+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "dailyDefenderBonusEnabled")++dailyDefenderBonusMaxDefenders ::+                               forall msg msg' .+                                 Data.ProtoLens.HasField "dailyDefenderBonusMaxDefenders" msg+                                   msg' =>+                                 Lens.Family2.Lens msg msg'+                                   (Data.ProtoLens.Field "dailyDefenderBonusMaxDefenders" msg)+                                   (Data.ProtoLens.Field "dailyDefenderBonusMaxDefenders" msg')+dailyDefenderBonusMaxDefenders+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "dailyDefenderBonusMaxDefenders")++dailyDefenderBonusPerPokemon ::+                             forall msg msg' .+                               Data.ProtoLens.HasField "dailyDefenderBonusPerPokemon" msg msg' =>+                               Lens.Family2.Lens msg msg'+                                 (Data.ProtoLens.Field "dailyDefenderBonusPerPokemon" msg)+                                 (Data.ProtoLens.Field "dailyDefenderBonusPerPokemon" msg')+dailyDefenderBonusPerPokemon+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "dailyDefenderBonusPerPokemon")++minTimeBetweenClaimsMs ::+                       forall msg msg' .+                         Data.ProtoLens.HasField "minTimeBetweenClaimsMs" msg msg' =>+                         Lens.Family2.Lens msg msg'+                           (Data.ProtoLens.Field "minTimeBetweenClaimsMs" msg)+                           (Data.ProtoLens.Field "minTimeBetweenClaimsMs" msg')+minTimeBetweenClaimsMs+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "minTimeBetweenClaimsMs")
+ src/Proto/POGOProtos/Settings/Master/Item/BattleAttributes.hs view
@@ -0,0 +1,55 @@+{- This file was auto-generated from POGOProtos/Settings/Master/Item/BattleAttributes.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Settings.Master.Item.BattleAttributes 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 BattleAttributes = BattleAttributes{_BattleAttributes'staPercent+                                         :: Prelude.Float}+                      deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "staPercent" BattleAttributes =+     Prelude.Float++instance Data.ProtoLens.HasField "staPercent" BattleAttributes+         BattleAttributes where+        field _+          = Lens.Family2.Unchecked.lens _BattleAttributes'staPercent+              (\ x__ y__ -> x__{_BattleAttributes'staPercent = y__})++instance Data.Default.Class.Default BattleAttributes where+        def+          = BattleAttributes{_BattleAttributes'staPercent =+                               Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message BattleAttributes where+        descriptor+          = let staPercent__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "sta_percent"+                      (Data.ProtoLens.FloatField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Float)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional staPercent)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, staPercent__field_descriptor)])+                (Data.Map.fromList [("sta_percent", staPercent__field_descriptor)])++staPercent ::+           forall msg msg' . Data.ProtoLens.HasField "staPercent" msg msg' =>+             Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "staPercent" msg)+               (Data.ProtoLens.Field "staPercent" msg')+staPercent+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "staPercent")
+ src/Proto/POGOProtos/Settings/Master/Item/EggIncubatorAttributes.hs view
@@ -0,0 +1,125 @@+{- This file was auto-generated from POGOProtos/Settings/Master/Item/EggIncubatorAttributes.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Settings.Master.Item.EggIncubatorAttributes+       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.Inventory.EggIncubatorType++data EggIncubatorAttributes = EggIncubatorAttributes{_EggIncubatorAttributes'incubatorType+                                                     ::+                                                     Proto.POGOProtos.Inventory.EggIncubatorType.EggIncubatorType,+                                                     _EggIncubatorAttributes'uses :: Data.Int.Int32,+                                                     _EggIncubatorAttributes'distanceMultiplier ::+                                                     Prelude.Float}+                            deriving (Prelude.Show, Prelude.Eq)++type instance+     Data.ProtoLens.Field "incubatorType" EggIncubatorAttributes =+     Proto.POGOProtos.Inventory.EggIncubatorType.EggIncubatorType++instance Data.ProtoLens.HasField "incubatorType"+         EggIncubatorAttributes EggIncubatorAttributes where+        field _+          = Lens.Family2.Unchecked.lens _EggIncubatorAttributes'incubatorType+              (\ x__ y__ -> x__{_EggIncubatorAttributes'incubatorType = y__})++type instance Data.ProtoLens.Field "uses" EggIncubatorAttributes =+     Data.Int.Int32++instance Data.ProtoLens.HasField "uses" EggIncubatorAttributes+         EggIncubatorAttributes where+        field _+          = Lens.Family2.Unchecked.lens _EggIncubatorAttributes'uses+              (\ x__ y__ -> x__{_EggIncubatorAttributes'uses = y__})++type instance+     Data.ProtoLens.Field "distanceMultiplier" EggIncubatorAttributes =+     Prelude.Float++instance Data.ProtoLens.HasField "distanceMultiplier"+         EggIncubatorAttributes EggIncubatorAttributes where+        field _+          = Lens.Family2.Unchecked.lens+              _EggIncubatorAttributes'distanceMultiplier+              (\ x__ y__ ->+                 x__{_EggIncubatorAttributes'distanceMultiplier = y__})++instance Data.Default.Class.Default EggIncubatorAttributes where+        def+          = EggIncubatorAttributes{_EggIncubatorAttributes'incubatorType =+                                     Data.Default.Class.def,+                                   _EggIncubatorAttributes'uses = Data.ProtoLens.fieldDefault,+                                   _EggIncubatorAttributes'distanceMultiplier =+                                     Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message EggIncubatorAttributes where+        descriptor+          = let incubatorType__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "incubator_type"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Inventory.EggIncubatorType.EggIncubatorType)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional incubatorType)+                uses__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "uses"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional uses)+                distanceMultiplier__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "distance_multiplier"+                      (Data.ProtoLens.FloatField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Float)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         distanceMultiplier)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, incubatorType__field_descriptor),+                    (Data.ProtoLens.Tag 2, uses__field_descriptor),+                    (Data.ProtoLens.Tag 3, distanceMultiplier__field_descriptor)])+                (Data.Map.fromList+                   [("incubator_type", incubatorType__field_descriptor),+                    ("uses", uses__field_descriptor),+                    ("distance_multiplier", distanceMultiplier__field_descriptor)])++distanceMultiplier ::+                   forall msg msg' .+                     Data.ProtoLens.HasField "distanceMultiplier" msg msg' =>+                     Lens.Family2.Lens msg msg'+                       (Data.ProtoLens.Field "distanceMultiplier" msg)+                       (Data.ProtoLens.Field "distanceMultiplier" msg')+distanceMultiplier+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "distanceMultiplier")++incubatorType ::+              forall msg msg' .+                Data.ProtoLens.HasField "incubatorType" msg msg' =>+                Lens.Family2.Lens msg msg'+                  (Data.ProtoLens.Field "incubatorType" msg)+                  (Data.ProtoLens.Field "incubatorType" msg')+incubatorType+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "incubatorType")++uses ::+     forall msg msg' . Data.ProtoLens.HasField "uses" msg msg' =>+       Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "uses" msg)+         (Data.ProtoLens.Field "uses" msg')+uses+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "uses")
+ src/Proto/POGOProtos/Settings/Master/Item/ExperienceBoostAttributes.hs view
@@ -0,0 +1,95 @@+{- This file was auto-generated from POGOProtos/Settings/Master/Item/ExperienceBoostAttributes.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Settings.Master.Item.ExperienceBoostAttributes+       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 ExperienceBoostAttributes = ExperienceBoostAttributes{_ExperienceBoostAttributes'xpMultiplier+                                                           :: Prelude.Float,+                                                           _ExperienceBoostAttributes'boostDurationMs+                                                           :: Data.Int.Int32}+                               deriving (Prelude.Show, Prelude.Eq)++type instance+     Data.ProtoLens.Field "xpMultiplier" ExperienceBoostAttributes =+     Prelude.Float++instance Data.ProtoLens.HasField "xpMultiplier"+         ExperienceBoostAttributes ExperienceBoostAttributes where+        field _+          = Lens.Family2.Unchecked.lens+              _ExperienceBoostAttributes'xpMultiplier+              (\ x__ y__ -> x__{_ExperienceBoostAttributes'xpMultiplier = y__})++type instance+     Data.ProtoLens.Field "boostDurationMs" ExperienceBoostAttributes =+     Data.Int.Int32++instance Data.ProtoLens.HasField "boostDurationMs"+         ExperienceBoostAttributes ExperienceBoostAttributes where+        field _+          = Lens.Family2.Unchecked.lens+              _ExperienceBoostAttributes'boostDurationMs+              (\ x__ y__ ->+                 x__{_ExperienceBoostAttributes'boostDurationMs = y__})++instance Data.Default.Class.Default ExperienceBoostAttributes where+        def+          = ExperienceBoostAttributes{_ExperienceBoostAttributes'xpMultiplier+                                        = Data.ProtoLens.fieldDefault,+                                      _ExperienceBoostAttributes'boostDurationMs =+                                        Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message ExperienceBoostAttributes where+        descriptor+          = let xpMultiplier__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "xp_multiplier"+                      (Data.ProtoLens.FloatField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Float)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional xpMultiplier)+                boostDurationMs__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "boost_duration_ms"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional boostDurationMs)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, xpMultiplier__field_descriptor),+                    (Data.ProtoLens.Tag 2, boostDurationMs__field_descriptor)])+                (Data.Map.fromList+                   [("xp_multiplier", xpMultiplier__field_descriptor),+                    ("boost_duration_ms", boostDurationMs__field_descriptor)])++boostDurationMs ::+                forall msg msg' .+                  Data.ProtoLens.HasField "boostDurationMs" msg msg' =>+                  Lens.Family2.Lens msg msg'+                    (Data.ProtoLens.Field "boostDurationMs" msg)+                    (Data.ProtoLens.Field "boostDurationMs" msg')+boostDurationMs+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "boostDurationMs")++xpMultiplier ::+             forall msg msg' .+               Data.ProtoLens.HasField "xpMultiplier" msg msg' =>+               Lens.Family2.Lens msg msg'+                 (Data.ProtoLens.Field "xpMultiplier" msg)+                 (Data.ProtoLens.Field "xpMultiplier" msg')+xpMultiplier+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "xpMultiplier")
+ src/Proto/POGOProtos/Settings/Master/Item/FoodAttributes.hs view
@@ -0,0 +1,117 @@+{- This file was auto-generated from POGOProtos/Settings/Master/Item/FoodAttributes.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Settings.Master.Item.FoodAttributes 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.ItemEffect++data FoodAttributes = FoodAttributes{_FoodAttributes'itemEffect ::+                                     [Proto.POGOProtos.Enums.ItemEffect.ItemEffect],+                                     _FoodAttributes'itemEffectPercent :: [Prelude.Float],+                                     _FoodAttributes'growthPercent :: Prelude.Float}+                    deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "itemEffect" FoodAttributes =+     [Proto.POGOProtos.Enums.ItemEffect.ItemEffect]++instance Data.ProtoLens.HasField "itemEffect" FoodAttributes+         FoodAttributes where+        field _+          = Lens.Family2.Unchecked.lens _FoodAttributes'itemEffect+              (\ x__ y__ -> x__{_FoodAttributes'itemEffect = y__})++type instance+     Data.ProtoLens.Field "itemEffectPercent" FoodAttributes =+     [Prelude.Float]++instance Data.ProtoLens.HasField "itemEffectPercent" FoodAttributes+         FoodAttributes where+        field _+          = Lens.Family2.Unchecked.lens _FoodAttributes'itemEffectPercent+              (\ x__ y__ -> x__{_FoodAttributes'itemEffectPercent = y__})++type instance Data.ProtoLens.Field "growthPercent" FoodAttributes =+     Prelude.Float++instance Data.ProtoLens.HasField "growthPercent" FoodAttributes+         FoodAttributes where+        field _+          = Lens.Family2.Unchecked.lens _FoodAttributes'growthPercent+              (\ x__ y__ -> x__{_FoodAttributes'growthPercent = y__})++instance Data.Default.Class.Default FoodAttributes where+        def+          = FoodAttributes{_FoodAttributes'itemEffect = [],+                           _FoodAttributes'itemEffectPercent = [],+                           _FoodAttributes'growthPercent = Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message FoodAttributes where+        descriptor+          = let itemEffect__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "item_effect"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Enums.ItemEffect.ItemEffect)+                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked itemEffect)+                itemEffectPercent__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "item_effect_percent"+                      (Data.ProtoLens.FloatField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Float)+                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked+                         itemEffectPercent)+                growthPercent__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "growth_percent"+                      (Data.ProtoLens.FloatField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Float)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional growthPercent)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, itemEffect__field_descriptor),+                    (Data.ProtoLens.Tag 2, itemEffectPercent__field_descriptor),+                    (Data.ProtoLens.Tag 3, growthPercent__field_descriptor)])+                (Data.Map.fromList+                   [("item_effect", itemEffect__field_descriptor),+                    ("item_effect_percent", itemEffectPercent__field_descriptor),+                    ("growth_percent", growthPercent__field_descriptor)])++growthPercent ::+              forall msg msg' .+                Data.ProtoLens.HasField "growthPercent" msg msg' =>+                Lens.Family2.Lens msg msg'+                  (Data.ProtoLens.Field "growthPercent" msg)+                  (Data.ProtoLens.Field "growthPercent" msg')+growthPercent+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "growthPercent")++itemEffect ::+           forall msg msg' . Data.ProtoLens.HasField "itemEffect" msg msg' =>+             Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "itemEffect" msg)+               (Data.ProtoLens.Field "itemEffect" msg')+itemEffect+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "itemEffect")++itemEffectPercent ::+                  forall msg msg' .+                    Data.ProtoLens.HasField "itemEffectPercent" msg msg' =>+                    Lens.Family2.Lens msg msg'+                      (Data.ProtoLens.Field "itemEffectPercent" msg)+                      (Data.ProtoLens.Field "itemEffectPercent" msg')+itemEffectPercent+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "itemEffectPercent")
+ src/Proto/POGOProtos/Settings/Master/Item/FortModifierAttributes.hs view
@@ -0,0 +1,104 @@+{- This file was auto-generated from POGOProtos/Settings/Master/Item/FortModifierAttributes.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Settings.Master.Item.FortModifierAttributes+       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 FortModifierAttributes = FortModifierAttributes{_FortModifierAttributes'modifierLifetimeSeconds+                                                     :: Data.Int.Int32,+                                                     _FortModifierAttributes'troyDiskNumPokemonSpawned+                                                     :: Data.Int.Int32}+                            deriving (Prelude.Show, Prelude.Eq)++type instance+     Data.ProtoLens.Field "modifierLifetimeSeconds"+       FortModifierAttributes+     = Data.Int.Int32++instance Data.ProtoLens.HasField "modifierLifetimeSeconds"+         FortModifierAttributes FortModifierAttributes where+        field _+          = Lens.Family2.Unchecked.lens+              _FortModifierAttributes'modifierLifetimeSeconds+              (\ x__ y__ ->+                 x__{_FortModifierAttributes'modifierLifetimeSeconds = y__})++type instance+     Data.ProtoLens.Field "troyDiskNumPokemonSpawned"+       FortModifierAttributes+     = Data.Int.Int32++instance Data.ProtoLens.HasField "troyDiskNumPokemonSpawned"+         FortModifierAttributes FortModifierAttributes where+        field _+          = Lens.Family2.Unchecked.lens+              _FortModifierAttributes'troyDiskNumPokemonSpawned+              (\ x__ y__ ->+                 x__{_FortModifierAttributes'troyDiskNumPokemonSpawned = y__})++instance Data.Default.Class.Default FortModifierAttributes where+        def+          = FortModifierAttributes{_FortModifierAttributes'modifierLifetimeSeconds+                                     = Data.ProtoLens.fieldDefault,+                                   _FortModifierAttributes'troyDiskNumPokemonSpawned =+                                     Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message FortModifierAttributes where+        descriptor+          = let modifierLifetimeSeconds__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "modifier_lifetime_seconds"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         modifierLifetimeSeconds)+                troyDiskNumPokemonSpawned__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "troy_disk_num_pokemon_spawned"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         troyDiskNumPokemonSpawned)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, modifierLifetimeSeconds__field_descriptor),+                    (Data.ProtoLens.Tag 2,+                     troyDiskNumPokemonSpawned__field_descriptor)])+                (Data.Map.fromList+                   [("modifier_lifetime_seconds",+                     modifierLifetimeSeconds__field_descriptor),+                    ("troy_disk_num_pokemon_spawned",+                     troyDiskNumPokemonSpawned__field_descriptor)])++modifierLifetimeSeconds ::+                        forall msg msg' .+                          Data.ProtoLens.HasField "modifierLifetimeSeconds" msg msg' =>+                          Lens.Family2.Lens msg msg'+                            (Data.ProtoLens.Field "modifierLifetimeSeconds" msg)+                            (Data.ProtoLens.Field "modifierLifetimeSeconds" msg')+modifierLifetimeSeconds+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "modifierLifetimeSeconds")++troyDiskNumPokemonSpawned ::+                          forall msg msg' .+                            Data.ProtoLens.HasField "troyDiskNumPokemonSpawned" msg msg' =>+                            Lens.Family2.Lens msg msg'+                              (Data.ProtoLens.Field "troyDiskNumPokemonSpawned" msg)+                              (Data.ProtoLens.Field "troyDiskNumPokemonSpawned" msg')+troyDiskNumPokemonSpawned+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "troyDiskNumPokemonSpawned")
+ src/Proto/POGOProtos/Settings/Master/Item/IncenseAttributes.hs view
@@ -0,0 +1,301 @@+{- This file was auto-generated from POGOProtos/Settings/Master/Item/IncenseAttributes.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Settings.Master.Item.IncenseAttributes+       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.PokemonType++data IncenseAttributes = IncenseAttributes{_IncenseAttributes'incenseLifetimeSeconds+                                           :: Data.Int.Int32,+                                           _IncenseAttributes'pokemonType ::+                                           [Proto.POGOProtos.Enums.PokemonType.PokemonType],+                                           _IncenseAttributes'pokemonIncenseTypeProbability ::+                                           Prelude.Float,+                                           _IncenseAttributes'standingTimeBetweenEncountersSeconds+                                           :: Data.Int.Int32,+                                           _IncenseAttributes'movingTimeBetweenEncounterSeconds ::+                                           Data.Int.Int32,+                                           _IncenseAttributes'distanceRequiredForShorterIntervalMeters+                                           :: Data.Int.Int32,+                                           _IncenseAttributes'pokemonAttractedLengthSec ::+                                           Data.Int.Int32}+                       deriving (Prelude.Show, Prelude.Eq)++type instance+     Data.ProtoLens.Field "incenseLifetimeSeconds" IncenseAttributes =+     Data.Int.Int32++instance Data.ProtoLens.HasField "incenseLifetimeSeconds"+         IncenseAttributes IncenseAttributes where+        field _+          = Lens.Family2.Unchecked.lens+              _IncenseAttributes'incenseLifetimeSeconds+              (\ x__ y__ -> x__{_IncenseAttributes'incenseLifetimeSeconds = y__})++type instance Data.ProtoLens.Field "pokemonType" IncenseAttributes+     = [Proto.POGOProtos.Enums.PokemonType.PokemonType]++instance Data.ProtoLens.HasField "pokemonType" IncenseAttributes+         IncenseAttributes where+        field _+          = Lens.Family2.Unchecked.lens _IncenseAttributes'pokemonType+              (\ x__ y__ -> x__{_IncenseAttributes'pokemonType = y__})++type instance+     Data.ProtoLens.Field "pokemonIncenseTypeProbability"+       IncenseAttributes+     = Prelude.Float++instance Data.ProtoLens.HasField "pokemonIncenseTypeProbability"+         IncenseAttributes IncenseAttributes where+        field _+          = Lens.Family2.Unchecked.lens+              _IncenseAttributes'pokemonIncenseTypeProbability+              (\ x__ y__ ->+                 x__{_IncenseAttributes'pokemonIncenseTypeProbability = y__})++type instance+     Data.ProtoLens.Field "standingTimeBetweenEncountersSeconds"+       IncenseAttributes+     = Data.Int.Int32++instance Data.ProtoLens.HasField+         "standingTimeBetweenEncountersSeconds" IncenseAttributes+         IncenseAttributes where+        field _+          = Lens.Family2.Unchecked.lens+              _IncenseAttributes'standingTimeBetweenEncountersSeconds+              (\ x__ y__ ->+                 x__{_IncenseAttributes'standingTimeBetweenEncountersSeconds = y__})++type instance+     Data.ProtoLens.Field "movingTimeBetweenEncounterSeconds"+       IncenseAttributes+     = Data.Int.Int32++instance Data.ProtoLens.HasField+         "movingTimeBetweenEncounterSeconds" IncenseAttributes+         IncenseAttributes where+        field _+          = Lens.Family2.Unchecked.lens+              _IncenseAttributes'movingTimeBetweenEncounterSeconds+              (\ x__ y__ ->+                 x__{_IncenseAttributes'movingTimeBetweenEncounterSeconds = y__})++type instance+     Data.ProtoLens.Field "distanceRequiredForShorterIntervalMeters"+       IncenseAttributes+     = Data.Int.Int32++instance Data.ProtoLens.HasField+         "distanceRequiredForShorterIntervalMeters" IncenseAttributes+         IncenseAttributes where+        field _+          = Lens.Family2.Unchecked.lens+              _IncenseAttributes'distanceRequiredForShorterIntervalMeters+              (\ x__ y__ ->+                 x__{_IncenseAttributes'distanceRequiredForShorterIntervalMeters =+                       y__})++type instance+     Data.ProtoLens.Field "pokemonAttractedLengthSec" IncenseAttributes+     = Data.Int.Int32++instance Data.ProtoLens.HasField "pokemonAttractedLengthSec"+         IncenseAttributes IncenseAttributes where+        field _+          = Lens.Family2.Unchecked.lens+              _IncenseAttributes'pokemonAttractedLengthSec+              (\ x__ y__ ->+                 x__{_IncenseAttributes'pokemonAttractedLengthSec = y__})++instance Data.Default.Class.Default IncenseAttributes where+        def+          = IncenseAttributes{_IncenseAttributes'incenseLifetimeSeconds =+                                Data.ProtoLens.fieldDefault,+                              _IncenseAttributes'pokemonType = [],+                              _IncenseAttributes'pokemonIncenseTypeProbability =+                                Data.ProtoLens.fieldDefault,+                              _IncenseAttributes'standingTimeBetweenEncountersSeconds =+                                Data.ProtoLens.fieldDefault,+                              _IncenseAttributes'movingTimeBetweenEncounterSeconds =+                                Data.ProtoLens.fieldDefault,+                              _IncenseAttributes'distanceRequiredForShorterIntervalMeters =+                                Data.ProtoLens.fieldDefault,+                              _IncenseAttributes'pokemonAttractedLengthSec =+                                Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message IncenseAttributes where+        descriptor+          = let incenseLifetimeSeconds__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "incense_lifetime_seconds"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         incenseLifetimeSeconds)+                pokemonType__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "pokemon_type"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Enums.PokemonType.PokemonType)+                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked pokemonType)+                pokemonIncenseTypeProbability__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "pokemon_incense_type_probability"+                      (Data.ProtoLens.FloatField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Float)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         pokemonIncenseTypeProbability)+                standingTimeBetweenEncountersSeconds__field_descriptor+                  = Data.ProtoLens.FieldDescriptor+                      "standing_time_between_encounters_seconds"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         standingTimeBetweenEncountersSeconds)+                movingTimeBetweenEncounterSeconds__field_descriptor+                  = Data.ProtoLens.FieldDescriptor+                      "moving_time_between_encounter_seconds"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         movingTimeBetweenEncounterSeconds)+                distanceRequiredForShorterIntervalMeters__field_descriptor+                  = Data.ProtoLens.FieldDescriptor+                      "distance_required_for_shorter_interval_meters"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         distanceRequiredForShorterIntervalMeters)+                pokemonAttractedLengthSec__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "pokemon_attracted_length_sec"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         pokemonAttractedLengthSec)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, incenseLifetimeSeconds__field_descriptor),+                    (Data.ProtoLens.Tag 2, pokemonType__field_descriptor),+                    (Data.ProtoLens.Tag 3,+                     pokemonIncenseTypeProbability__field_descriptor),+                    (Data.ProtoLens.Tag 4,+                     standingTimeBetweenEncountersSeconds__field_descriptor),+                    (Data.ProtoLens.Tag 5,+                     movingTimeBetweenEncounterSeconds__field_descriptor),+                    (Data.ProtoLens.Tag 6,+                     distanceRequiredForShorterIntervalMeters__field_descriptor),+                    (Data.ProtoLens.Tag 7,+                     pokemonAttractedLengthSec__field_descriptor)])+                (Data.Map.fromList+                   [("incense_lifetime_seconds",+                     incenseLifetimeSeconds__field_descriptor),+                    ("pokemon_type", pokemonType__field_descriptor),+                    ("pokemon_incense_type_probability",+                     pokemonIncenseTypeProbability__field_descriptor),+                    ("standing_time_between_encounters_seconds",+                     standingTimeBetweenEncountersSeconds__field_descriptor),+                    ("moving_time_between_encounter_seconds",+                     movingTimeBetweenEncounterSeconds__field_descriptor),+                    ("distance_required_for_shorter_interval_meters",+                     distanceRequiredForShorterIntervalMeters__field_descriptor),+                    ("pokemon_attracted_length_sec",+                     pokemonAttractedLengthSec__field_descriptor)])++distanceRequiredForShorterIntervalMeters ::+                                         forall msg msg' .+                                           Data.ProtoLens.HasField+                                             "distanceRequiredForShorterIntervalMeters" msg msg' =>+                                           Lens.Family2.Lens msg msg'+                                             (Data.ProtoLens.Field+                                                "distanceRequiredForShorterIntervalMeters"+                                                msg)+                                             (Data.ProtoLens.Field+                                                "distanceRequiredForShorterIntervalMeters"+                                                msg')+distanceRequiredForShorterIntervalMeters+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "distanceRequiredForShorterIntervalMeters")++incenseLifetimeSeconds ::+                       forall msg msg' .+                         Data.ProtoLens.HasField "incenseLifetimeSeconds" msg msg' =>+                         Lens.Family2.Lens msg msg'+                           (Data.ProtoLens.Field "incenseLifetimeSeconds" msg)+                           (Data.ProtoLens.Field "incenseLifetimeSeconds" msg')+incenseLifetimeSeconds+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "incenseLifetimeSeconds")++movingTimeBetweenEncounterSeconds ::+                                  forall msg msg' .+                                    Data.ProtoLens.HasField "movingTimeBetweenEncounterSeconds" msg+                                      msg' =>+                                    Lens.Family2.Lens msg msg'+                                      (Data.ProtoLens.Field "movingTimeBetweenEncounterSeconds" msg)+                                      (Data.ProtoLens.Field "movingTimeBetweenEncounterSeconds"+                                         msg')+movingTimeBetweenEncounterSeconds+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "movingTimeBetweenEncounterSeconds")++pokemonAttractedLengthSec ::+                          forall msg msg' .+                            Data.ProtoLens.HasField "pokemonAttractedLengthSec" msg msg' =>+                            Lens.Family2.Lens msg msg'+                              (Data.ProtoLens.Field "pokemonAttractedLengthSec" msg)+                              (Data.ProtoLens.Field "pokemonAttractedLengthSec" msg')+pokemonAttractedLengthSec+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "pokemonAttractedLengthSec")++pokemonIncenseTypeProbability ::+                              forall msg msg' .+                                Data.ProtoLens.HasField "pokemonIncenseTypeProbability" msg msg' =>+                                Lens.Family2.Lens msg msg'+                                  (Data.ProtoLens.Field "pokemonIncenseTypeProbability" msg)+                                  (Data.ProtoLens.Field "pokemonIncenseTypeProbability" msg')+pokemonIncenseTypeProbability+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "pokemonIncenseTypeProbability")++pokemonType ::+            forall msg msg' . Data.ProtoLens.HasField "pokemonType" msg msg' =>+              Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "pokemonType" msg)+                (Data.ProtoLens.Field "pokemonType" msg')+pokemonType+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "pokemonType")++standingTimeBetweenEncountersSeconds ::+                                     forall msg msg' .+                                       Data.ProtoLens.HasField+                                         "standingTimeBetweenEncountersSeconds" msg msg' =>+                                       Lens.Family2.Lens msg msg'+                                         (Data.ProtoLens.Field+                                            "standingTimeBetweenEncountersSeconds"+                                            msg)+                                         (Data.ProtoLens.Field+                                            "standingTimeBetweenEncountersSeconds"+                                            msg')+standingTimeBetweenEncountersSeconds+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "standingTimeBetweenEncountersSeconds")
+ src/Proto/POGOProtos/Settings/Master/Item/InventoryUpgradeAttributes.hs view
@@ -0,0 +1,98 @@+{- This file was auto-generated from POGOProtos/Settings/Master/Item/InventoryUpgradeAttributes.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Settings.Master.Item.InventoryUpgradeAttributes+       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.Inventory.InventoryUpgradeType++data InventoryUpgradeAttributes = InventoryUpgradeAttributes{_InventoryUpgradeAttributes'additionalStorage+                                                             :: Data.Int.Int32,+                                                             _InventoryUpgradeAttributes'upgradeType+                                                             ::+                                                             Proto.POGOProtos.Inventory.InventoryUpgradeType.InventoryUpgradeType}+                                deriving (Prelude.Show, Prelude.Eq)++type instance+     Data.ProtoLens.Field "additionalStorage" InventoryUpgradeAttributes+     = Data.Int.Int32++instance Data.ProtoLens.HasField "additionalStorage"+         InventoryUpgradeAttributes InventoryUpgradeAttributes where+        field _+          = Lens.Family2.Unchecked.lens+              _InventoryUpgradeAttributes'additionalStorage+              (\ x__ y__ ->+                 x__{_InventoryUpgradeAttributes'additionalStorage = y__})++type instance+     Data.ProtoLens.Field "upgradeType" InventoryUpgradeAttributes =+     Proto.POGOProtos.Inventory.InventoryUpgradeType.InventoryUpgradeType++instance Data.ProtoLens.HasField "upgradeType"+         InventoryUpgradeAttributes InventoryUpgradeAttributes where+        field _+          = Lens.Family2.Unchecked.lens+              _InventoryUpgradeAttributes'upgradeType+              (\ x__ y__ -> x__{_InventoryUpgradeAttributes'upgradeType = y__})++instance Data.Default.Class.Default InventoryUpgradeAttributes+         where+        def+          = InventoryUpgradeAttributes{_InventoryUpgradeAttributes'additionalStorage+                                         = Data.ProtoLens.fieldDefault,+                                       _InventoryUpgradeAttributes'upgradeType =+                                         Data.Default.Class.def}++instance Data.ProtoLens.Message InventoryUpgradeAttributes where+        descriptor+          = let additionalStorage__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "additional_storage"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         additionalStorage)+                upgradeType__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "upgrade_type"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Inventory.InventoryUpgradeType.InventoryUpgradeType)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional upgradeType)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, additionalStorage__field_descriptor),+                    (Data.ProtoLens.Tag 2, upgradeType__field_descriptor)])+                (Data.Map.fromList+                   [("additional_storage", additionalStorage__field_descriptor),+                    ("upgrade_type", upgradeType__field_descriptor)])++additionalStorage ::+                  forall msg msg' .+                    Data.ProtoLens.HasField "additionalStorage" msg msg' =>+                    Lens.Family2.Lens msg msg'+                      (Data.ProtoLens.Field "additionalStorage" msg)+                      (Data.ProtoLens.Field "additionalStorage" msg')+additionalStorage+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "additionalStorage")++upgradeType ::+            forall msg msg' . Data.ProtoLens.HasField "upgradeType" msg msg' =>+              Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "upgradeType" msg)+                (Data.ProtoLens.Field "upgradeType" msg')+upgradeType+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "upgradeType")
+ src/Proto/POGOProtos/Settings/Master/Item/PokeballAttributes.hs view
@@ -0,0 +1,152 @@+{- This file was auto-generated from POGOProtos/Settings/Master/Item/PokeballAttributes.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Settings.Master.Item.PokeballAttributes+       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.ItemEffect++data PokeballAttributes = PokeballAttributes{_PokeballAttributes'itemEffect+                                             :: Proto.POGOProtos.Enums.ItemEffect.ItemEffect,+                                             _PokeballAttributes'captureMulti :: Prelude.Float,+                                             _PokeballAttributes'captureMultiEffect ::+                                             Prelude.Float,+                                             _PokeballAttributes'itemEffectMod :: Prelude.Float}+                        deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "itemEffect" PokeballAttributes+     = Proto.POGOProtos.Enums.ItemEffect.ItemEffect++instance Data.ProtoLens.HasField "itemEffect" PokeballAttributes+         PokeballAttributes where+        field _+          = Lens.Family2.Unchecked.lens _PokeballAttributes'itemEffect+              (\ x__ y__ -> x__{_PokeballAttributes'itemEffect = y__})++type instance+     Data.ProtoLens.Field "captureMulti" PokeballAttributes =+     Prelude.Float++instance Data.ProtoLens.HasField "captureMulti" PokeballAttributes+         PokeballAttributes where+        field _+          = Lens.Family2.Unchecked.lens _PokeballAttributes'captureMulti+              (\ x__ y__ -> x__{_PokeballAttributes'captureMulti = y__})++type instance+     Data.ProtoLens.Field "captureMultiEffect" PokeballAttributes =+     Prelude.Float++instance Data.ProtoLens.HasField "captureMultiEffect"+         PokeballAttributes PokeballAttributes where+        field _+          = Lens.Family2.Unchecked.lens+              _PokeballAttributes'captureMultiEffect+              (\ x__ y__ -> x__{_PokeballAttributes'captureMultiEffect = y__})++type instance+     Data.ProtoLens.Field "itemEffectMod" PokeballAttributes =+     Prelude.Float++instance Data.ProtoLens.HasField "itemEffectMod" PokeballAttributes+         PokeballAttributes where+        field _+          = Lens.Family2.Unchecked.lens _PokeballAttributes'itemEffectMod+              (\ x__ y__ -> x__{_PokeballAttributes'itemEffectMod = y__})++instance Data.Default.Class.Default PokeballAttributes where+        def+          = PokeballAttributes{_PokeballAttributes'itemEffect =+                                 Data.Default.Class.def,+                               _PokeballAttributes'captureMulti = Data.ProtoLens.fieldDefault,+                               _PokeballAttributes'captureMultiEffect =+                                 Data.ProtoLens.fieldDefault,+                               _PokeballAttributes'itemEffectMod = Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message PokeballAttributes where+        descriptor+          = let itemEffect__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "item_effect"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Enums.ItemEffect.ItemEffect)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional itemEffect)+                captureMulti__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "capture_multi"+                      (Data.ProtoLens.FloatField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Float)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional captureMulti)+                captureMultiEffect__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "capture_multi_effect"+                      (Data.ProtoLens.FloatField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Float)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         captureMultiEffect)+                itemEffectMod__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "item_effect_mod"+                      (Data.ProtoLens.FloatField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Float)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional itemEffectMod)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, itemEffect__field_descriptor),+                    (Data.ProtoLens.Tag 2, captureMulti__field_descriptor),+                    (Data.ProtoLens.Tag 3, captureMultiEffect__field_descriptor),+                    (Data.ProtoLens.Tag 4, itemEffectMod__field_descriptor)])+                (Data.Map.fromList+                   [("item_effect", itemEffect__field_descriptor),+                    ("capture_multi", captureMulti__field_descriptor),+                    ("capture_multi_effect", captureMultiEffect__field_descriptor),+                    ("item_effect_mod", itemEffectMod__field_descriptor)])++captureMulti ::+             forall msg msg' .+               Data.ProtoLens.HasField "captureMulti" msg msg' =>+               Lens.Family2.Lens msg msg'+                 (Data.ProtoLens.Field "captureMulti" msg)+                 (Data.ProtoLens.Field "captureMulti" msg')+captureMulti+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "captureMulti")++captureMultiEffect ::+                   forall msg msg' .+                     Data.ProtoLens.HasField "captureMultiEffect" msg msg' =>+                     Lens.Family2.Lens msg msg'+                       (Data.ProtoLens.Field "captureMultiEffect" msg)+                       (Data.ProtoLens.Field "captureMultiEffect" msg')+captureMultiEffect+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "captureMultiEffect")++itemEffect ::+           forall msg msg' . Data.ProtoLens.HasField "itemEffect" msg msg' =>+             Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "itemEffect" msg)+               (Data.ProtoLens.Field "itemEffect" msg')+itemEffect+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "itemEffect")++itemEffectMod ::+              forall msg msg' .+                Data.ProtoLens.HasField "itemEffectMod" msg msg' =>+                Lens.Family2.Lens msg msg'+                  (Data.ProtoLens.Field "itemEffectMod" msg)+                  (Data.ProtoLens.Field "itemEffectMod" msg')+itemEffectMod+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "itemEffectMod")
+ src/Proto/POGOProtos/Settings/Master/Item/PotionAttributes.hs view
@@ -0,0 +1,82 @@+{- This file was auto-generated from POGOProtos/Settings/Master/Item/PotionAttributes.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Settings.Master.Item.PotionAttributes 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 PotionAttributes = PotionAttributes{_PotionAttributes'staPercent+                                         :: Prelude.Float,+                                         _PotionAttributes'staAmount :: Data.Int.Int32}+                      deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "staPercent" PotionAttributes =+     Prelude.Float++instance Data.ProtoLens.HasField "staPercent" PotionAttributes+         PotionAttributes where+        field _+          = Lens.Family2.Unchecked.lens _PotionAttributes'staPercent+              (\ x__ y__ -> x__{_PotionAttributes'staPercent = y__})++type instance Data.ProtoLens.Field "staAmount" PotionAttributes =+     Data.Int.Int32++instance Data.ProtoLens.HasField "staAmount" PotionAttributes+         PotionAttributes where+        field _+          = Lens.Family2.Unchecked.lens _PotionAttributes'staAmount+              (\ x__ y__ -> x__{_PotionAttributes'staAmount = y__})++instance Data.Default.Class.Default PotionAttributes where+        def+          = PotionAttributes{_PotionAttributes'staPercent =+                               Data.ProtoLens.fieldDefault,+                             _PotionAttributes'staAmount = Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message PotionAttributes where+        descriptor+          = let staPercent__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "sta_percent"+                      (Data.ProtoLens.FloatField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Float)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional staPercent)+                staAmount__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "sta_amount"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional staAmount)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, staPercent__field_descriptor),+                    (Data.ProtoLens.Tag 2, staAmount__field_descriptor)])+                (Data.Map.fromList+                   [("sta_percent", staPercent__field_descriptor),+                    ("sta_amount", staAmount__field_descriptor)])++staAmount ::+          forall msg msg' . Data.ProtoLens.HasField "staAmount" msg msg' =>+            Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "staAmount" msg)+              (Data.ProtoLens.Field "staAmount" msg')+staAmount+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "staAmount")++staPercent ::+           forall msg msg' . Data.ProtoLens.HasField "staPercent" msg msg' =>+             Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "staPercent" msg)+               (Data.ProtoLens.Field "staPercent" msg')+staPercent+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "staPercent")
+ src/Proto/POGOProtos/Settings/Master/Item/ReviveAttributes.hs view
@@ -0,0 +1,55 @@+{- This file was auto-generated from POGOProtos/Settings/Master/Item/ReviveAttributes.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Settings.Master.Item.ReviveAttributes 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 ReviveAttributes = ReviveAttributes{_ReviveAttributes'staPercent+                                         :: Prelude.Float}+                      deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "staPercent" ReviveAttributes =+     Prelude.Float++instance Data.ProtoLens.HasField "staPercent" ReviveAttributes+         ReviveAttributes where+        field _+          = Lens.Family2.Unchecked.lens _ReviveAttributes'staPercent+              (\ x__ y__ -> x__{_ReviveAttributes'staPercent = y__})++instance Data.Default.Class.Default ReviveAttributes where+        def+          = ReviveAttributes{_ReviveAttributes'staPercent =+                               Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message ReviveAttributes where+        descriptor+          = let staPercent__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "sta_percent"+                      (Data.ProtoLens.FloatField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Float)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional staPercent)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, staPercent__field_descriptor)])+                (Data.Map.fromList [("sta_percent", staPercent__field_descriptor)])++staPercent ::+           forall msg msg' . Data.ProtoLens.HasField "staPercent" msg msg' =>+             Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "staPercent" msg)+               (Data.ProtoLens.Field "staPercent" msg')+staPercent+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "staPercent")
+ src/Proto/POGOProtos/Settings/Master/ItemSettings.hs view
@@ -0,0 +1,696 @@+{- This file was auto-generated from POGOProtos/Settings/Master/ItemSettings.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Settings.Master.ItemSettings 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.ItemCategory+import qualified Proto.POGOProtos.Inventory.Item.ItemId+import qualified Proto.POGOProtos.Inventory.Item.ItemType+import qualified+       Proto.POGOProtos.Settings.Master.Item.BattleAttributes+import qualified+       Proto.POGOProtos.Settings.Master.Item.EggIncubatorAttributes+import qualified+       Proto.POGOProtos.Settings.Master.Item.ExperienceBoostAttributes+import qualified+       Proto.POGOProtos.Settings.Master.Item.FoodAttributes+import qualified+       Proto.POGOProtos.Settings.Master.Item.FortModifierAttributes+import qualified+       Proto.POGOProtos.Settings.Master.Item.IncenseAttributes+import qualified+       Proto.POGOProtos.Settings.Master.Item.InventoryUpgradeAttributes+import qualified+       Proto.POGOProtos.Settings.Master.Item.PokeballAttributes+import qualified+       Proto.POGOProtos.Settings.Master.Item.PotionAttributes+import qualified+       Proto.POGOProtos.Settings.Master.Item.ReviveAttributes++data ItemSettings = ItemSettings{_ItemSettings'itemId ::+                                 Proto.POGOProtos.Inventory.Item.ItemId.ItemId,+                                 _ItemSettings'itemType ::+                                 Proto.POGOProtos.Inventory.Item.ItemType.ItemType,+                                 _ItemSettings'category ::+                                 Proto.POGOProtos.Enums.ItemCategory.ItemCategory,+                                 _ItemSettings'dropFreq :: Prelude.Float,+                                 _ItemSettings'dropTrainerLevel :: Data.Int.Int32,+                                 _ItemSettings'pokeball ::+                                 Prelude.Maybe+                                   Proto.POGOProtos.Settings.Master.Item.PokeballAttributes.PokeballAttributes,+                                 _ItemSettings'potion ::+                                 Prelude.Maybe+                                   Proto.POGOProtos.Settings.Master.Item.PotionAttributes.PotionAttributes,+                                 _ItemSettings'revive ::+                                 Prelude.Maybe+                                   Proto.POGOProtos.Settings.Master.Item.ReviveAttributes.ReviveAttributes,+                                 _ItemSettings'battle ::+                                 Prelude.Maybe+                                   Proto.POGOProtos.Settings.Master.Item.BattleAttributes.BattleAttributes,+                                 _ItemSettings'food ::+                                 Prelude.Maybe+                                   Proto.POGOProtos.Settings.Master.Item.FoodAttributes.FoodAttributes,+                                 _ItemSettings'inventoryUpgrade ::+                                 Prelude.Maybe+                                   Proto.POGOProtos.Settings.Master.Item.InventoryUpgradeAttributes.InventoryUpgradeAttributes,+                                 _ItemSettings'xpBoost ::+                                 Prelude.Maybe+                                   Proto.POGOProtos.Settings.Master.Item.ExperienceBoostAttributes.ExperienceBoostAttributes,+                                 _ItemSettings'incense ::+                                 Prelude.Maybe+                                   Proto.POGOProtos.Settings.Master.Item.IncenseAttributes.IncenseAttributes,+                                 _ItemSettings'eggIncubator ::+                                 Prelude.Maybe+                                   Proto.POGOProtos.Settings.Master.Item.EggIncubatorAttributes.EggIncubatorAttributes,+                                 _ItemSettings'fortModifier ::+                                 Prelude.Maybe+                                   Proto.POGOProtos.Settings.Master.Item.FortModifierAttributes.FortModifierAttributes}+                  deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "itemId" ItemSettings =+     Proto.POGOProtos.Inventory.Item.ItemId.ItemId++instance Data.ProtoLens.HasField "itemId" ItemSettings ItemSettings+         where+        field _+          = Lens.Family2.Unchecked.lens _ItemSettings'itemId+              (\ x__ y__ -> x__{_ItemSettings'itemId = y__})++type instance Data.ProtoLens.Field "itemType" ItemSettings =+     Proto.POGOProtos.Inventory.Item.ItemType.ItemType++instance Data.ProtoLens.HasField "itemType" ItemSettings+         ItemSettings where+        field _+          = Lens.Family2.Unchecked.lens _ItemSettings'itemType+              (\ x__ y__ -> x__{_ItemSettings'itemType = y__})++type instance Data.ProtoLens.Field "category" ItemSettings =+     Proto.POGOProtos.Enums.ItemCategory.ItemCategory++instance Data.ProtoLens.HasField "category" ItemSettings+         ItemSettings where+        field _+          = Lens.Family2.Unchecked.lens _ItemSettings'category+              (\ x__ y__ -> x__{_ItemSettings'category = y__})++type instance Data.ProtoLens.Field "dropFreq" ItemSettings =+     Prelude.Float++instance Data.ProtoLens.HasField "dropFreq" ItemSettings+         ItemSettings where+        field _+          = Lens.Family2.Unchecked.lens _ItemSettings'dropFreq+              (\ x__ y__ -> x__{_ItemSettings'dropFreq = y__})++type instance Data.ProtoLens.Field "dropTrainerLevel" ItemSettings+     = Data.Int.Int32++instance Data.ProtoLens.HasField "dropTrainerLevel" ItemSettings+         ItemSettings where+        field _+          = Lens.Family2.Unchecked.lens _ItemSettings'dropTrainerLevel+              (\ x__ y__ -> x__{_ItemSettings'dropTrainerLevel = y__})++type instance Data.ProtoLens.Field "pokeball" ItemSettings =+     Proto.POGOProtos.Settings.Master.Item.PokeballAttributes.PokeballAttributes++instance Data.ProtoLens.HasField "pokeball" ItemSettings+         ItemSettings where+        field _+          = (Prelude..) maybe'pokeball+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance Data.ProtoLens.Field "maybe'pokeball" ItemSettings =+     Prelude.Maybe+       Proto.POGOProtos.Settings.Master.Item.PokeballAttributes.PokeballAttributes++instance Data.ProtoLens.HasField "maybe'pokeball" ItemSettings+         ItemSettings where+        field _+          = Lens.Family2.Unchecked.lens _ItemSettings'pokeball+              (\ x__ y__ -> x__{_ItemSettings'pokeball = y__})++type instance Data.ProtoLens.Field "potion" ItemSettings =+     Proto.POGOProtos.Settings.Master.Item.PotionAttributes.PotionAttributes++instance Data.ProtoLens.HasField "potion" ItemSettings ItemSettings+         where+        field _+          = (Prelude..) maybe'potion+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance Data.ProtoLens.Field "maybe'potion" ItemSettings =+     Prelude.Maybe+       Proto.POGOProtos.Settings.Master.Item.PotionAttributes.PotionAttributes++instance Data.ProtoLens.HasField "maybe'potion" ItemSettings+         ItemSettings where+        field _+          = Lens.Family2.Unchecked.lens _ItemSettings'potion+              (\ x__ y__ -> x__{_ItemSettings'potion = y__})++type instance Data.ProtoLens.Field "revive" ItemSettings =+     Proto.POGOProtos.Settings.Master.Item.ReviveAttributes.ReviveAttributes++instance Data.ProtoLens.HasField "revive" ItemSettings ItemSettings+         where+        field _+          = (Prelude..) maybe'revive+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance Data.ProtoLens.Field "maybe'revive" ItemSettings =+     Prelude.Maybe+       Proto.POGOProtos.Settings.Master.Item.ReviveAttributes.ReviveAttributes++instance Data.ProtoLens.HasField "maybe'revive" ItemSettings+         ItemSettings where+        field _+          = Lens.Family2.Unchecked.lens _ItemSettings'revive+              (\ x__ y__ -> x__{_ItemSettings'revive = y__})++type instance Data.ProtoLens.Field "battle" ItemSettings =+     Proto.POGOProtos.Settings.Master.Item.BattleAttributes.BattleAttributes++instance Data.ProtoLens.HasField "battle" ItemSettings ItemSettings+         where+        field _+          = (Prelude..) maybe'battle+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance Data.ProtoLens.Field "maybe'battle" ItemSettings =+     Prelude.Maybe+       Proto.POGOProtos.Settings.Master.Item.BattleAttributes.BattleAttributes++instance Data.ProtoLens.HasField "maybe'battle" ItemSettings+         ItemSettings where+        field _+          = Lens.Family2.Unchecked.lens _ItemSettings'battle+              (\ x__ y__ -> x__{_ItemSettings'battle = y__})++type instance Data.ProtoLens.Field "food" ItemSettings =+     Proto.POGOProtos.Settings.Master.Item.FoodAttributes.FoodAttributes++instance Data.ProtoLens.HasField "food" ItemSettings ItemSettings+         where+        field _+          = (Prelude..) maybe'food+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance Data.ProtoLens.Field "maybe'food" ItemSettings =+     Prelude.Maybe+       Proto.POGOProtos.Settings.Master.Item.FoodAttributes.FoodAttributes++instance Data.ProtoLens.HasField "maybe'food" ItemSettings+         ItemSettings where+        field _+          = Lens.Family2.Unchecked.lens _ItemSettings'food+              (\ x__ y__ -> x__{_ItemSettings'food = y__})++type instance Data.ProtoLens.Field "inventoryUpgrade" ItemSettings+     =+     Proto.POGOProtos.Settings.Master.Item.InventoryUpgradeAttributes.InventoryUpgradeAttributes++instance Data.ProtoLens.HasField "inventoryUpgrade" ItemSettings+         ItemSettings where+        field _+          = (Prelude..) maybe'inventoryUpgrade+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance+     Data.ProtoLens.Field "maybe'inventoryUpgrade" ItemSettings =+     Prelude.Maybe+       Proto.POGOProtos.Settings.Master.Item.InventoryUpgradeAttributes.InventoryUpgradeAttributes++instance Data.ProtoLens.HasField "maybe'inventoryUpgrade"+         ItemSettings ItemSettings where+        field _+          = Lens.Family2.Unchecked.lens _ItemSettings'inventoryUpgrade+              (\ x__ y__ -> x__{_ItemSettings'inventoryUpgrade = y__})++type instance Data.ProtoLens.Field "xpBoost" ItemSettings =+     Proto.POGOProtos.Settings.Master.Item.ExperienceBoostAttributes.ExperienceBoostAttributes++instance Data.ProtoLens.HasField "xpBoost" ItemSettings+         ItemSettings where+        field _+          = (Prelude..) maybe'xpBoost+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance Data.ProtoLens.Field "maybe'xpBoost" ItemSettings =+     Prelude.Maybe+       Proto.POGOProtos.Settings.Master.Item.ExperienceBoostAttributes.ExperienceBoostAttributes++instance Data.ProtoLens.HasField "maybe'xpBoost" ItemSettings+         ItemSettings where+        field _+          = Lens.Family2.Unchecked.lens _ItemSettings'xpBoost+              (\ x__ y__ -> x__{_ItemSettings'xpBoost = y__})++type instance Data.ProtoLens.Field "incense" ItemSettings =+     Proto.POGOProtos.Settings.Master.Item.IncenseAttributes.IncenseAttributes++instance Data.ProtoLens.HasField "incense" ItemSettings+         ItemSettings where+        field _+          = (Prelude..) maybe'incense+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance Data.ProtoLens.Field "maybe'incense" ItemSettings =+     Prelude.Maybe+       Proto.POGOProtos.Settings.Master.Item.IncenseAttributes.IncenseAttributes++instance Data.ProtoLens.HasField "maybe'incense" ItemSettings+         ItemSettings where+        field _+          = Lens.Family2.Unchecked.lens _ItemSettings'incense+              (\ x__ y__ -> x__{_ItemSettings'incense = y__})++type instance Data.ProtoLens.Field "eggIncubator" ItemSettings =+     Proto.POGOProtos.Settings.Master.Item.EggIncubatorAttributes.EggIncubatorAttributes++instance Data.ProtoLens.HasField "eggIncubator" ItemSettings+         ItemSettings where+        field _+          = (Prelude..) maybe'eggIncubator+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance+     Data.ProtoLens.Field "maybe'eggIncubator" ItemSettings =+     Prelude.Maybe+       Proto.POGOProtos.Settings.Master.Item.EggIncubatorAttributes.EggIncubatorAttributes++instance Data.ProtoLens.HasField "maybe'eggIncubator" ItemSettings+         ItemSettings where+        field _+          = Lens.Family2.Unchecked.lens _ItemSettings'eggIncubator+              (\ x__ y__ -> x__{_ItemSettings'eggIncubator = y__})++type instance Data.ProtoLens.Field "fortModifier" ItemSettings =+     Proto.POGOProtos.Settings.Master.Item.FortModifierAttributes.FortModifierAttributes++instance Data.ProtoLens.HasField "fortModifier" ItemSettings+         ItemSettings where+        field _+          = (Prelude..) maybe'fortModifier+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance+     Data.ProtoLens.Field "maybe'fortModifier" ItemSettings =+     Prelude.Maybe+       Proto.POGOProtos.Settings.Master.Item.FortModifierAttributes.FortModifierAttributes++instance Data.ProtoLens.HasField "maybe'fortModifier" ItemSettings+         ItemSettings where+        field _+          = Lens.Family2.Unchecked.lens _ItemSettings'fortModifier+              (\ x__ y__ -> x__{_ItemSettings'fortModifier = y__})++instance Data.Default.Class.Default ItemSettings where+        def+          = ItemSettings{_ItemSettings'itemId = Data.Default.Class.def,+                         _ItemSettings'itemType = Data.Default.Class.def,+                         _ItemSettings'category = Data.Default.Class.def,+                         _ItemSettings'dropFreq = Data.ProtoLens.fieldDefault,+                         _ItemSettings'dropTrainerLevel = Data.ProtoLens.fieldDefault,+                         _ItemSettings'pokeball = Prelude.Nothing,+                         _ItemSettings'potion = Prelude.Nothing,+                         _ItemSettings'revive = Prelude.Nothing,+                         _ItemSettings'battle = Prelude.Nothing,+                         _ItemSettings'food = Prelude.Nothing,+                         _ItemSettings'inventoryUpgrade = Prelude.Nothing,+                         _ItemSettings'xpBoost = Prelude.Nothing,+                         _ItemSettings'incense = Prelude.Nothing,+                         _ItemSettings'eggIncubator = Prelude.Nothing,+                         _ItemSettings'fortModifier = Prelude.Nothing}++instance Data.ProtoLens.Message ItemSettings where+        descriptor+          = let itemId__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "item_id"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Inventory.Item.ItemId.ItemId)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional itemId)+                itemType__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "item_type"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Inventory.Item.ItemType.ItemType)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional itemType)+                category__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "category"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Enums.ItemCategory.ItemCategory)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional category)+                dropFreq__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "drop_freq"+                      (Data.ProtoLens.FloatField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Float)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional dropFreq)+                dropTrainerLevel__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "drop_trainer_level"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         dropTrainerLevel)+                pokeball__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "pokeball"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Settings.Master.Item.PokeballAttributes.PokeballAttributes)+                      (Data.ProtoLens.OptionalField maybe'pokeball)+                potion__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "potion"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Settings.Master.Item.PotionAttributes.PotionAttributes)+                      (Data.ProtoLens.OptionalField maybe'potion)+                revive__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "revive"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Settings.Master.Item.ReviveAttributes.ReviveAttributes)+                      (Data.ProtoLens.OptionalField maybe'revive)+                battle__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "battle"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Settings.Master.Item.BattleAttributes.BattleAttributes)+                      (Data.ProtoLens.OptionalField maybe'battle)+                food__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "food"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Settings.Master.Item.FoodAttributes.FoodAttributes)+                      (Data.ProtoLens.OptionalField maybe'food)+                inventoryUpgrade__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "inventory_upgrade"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Settings.Master.Item.InventoryUpgradeAttributes.InventoryUpgradeAttributes)+                      (Data.ProtoLens.OptionalField maybe'inventoryUpgrade)+                xpBoost__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "xp_boost"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Settings.Master.Item.ExperienceBoostAttributes.ExperienceBoostAttributes)+                      (Data.ProtoLens.OptionalField maybe'xpBoost)+                incense__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "incense"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Settings.Master.Item.IncenseAttributes.IncenseAttributes)+                      (Data.ProtoLens.OptionalField maybe'incense)+                eggIncubator__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "egg_incubator"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Settings.Master.Item.EggIncubatorAttributes.EggIncubatorAttributes)+                      (Data.ProtoLens.OptionalField maybe'eggIncubator)+                fortModifier__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "fort_modifier"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Settings.Master.Item.FortModifierAttributes.FortModifierAttributes)+                      (Data.ProtoLens.OptionalField maybe'fortModifier)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, itemId__field_descriptor),+                    (Data.ProtoLens.Tag 2, itemType__field_descriptor),+                    (Data.ProtoLens.Tag 3, category__field_descriptor),+                    (Data.ProtoLens.Tag 4, dropFreq__field_descriptor),+                    (Data.ProtoLens.Tag 5, dropTrainerLevel__field_descriptor),+                    (Data.ProtoLens.Tag 6, pokeball__field_descriptor),+                    (Data.ProtoLens.Tag 7, potion__field_descriptor),+                    (Data.ProtoLens.Tag 8, revive__field_descriptor),+                    (Data.ProtoLens.Tag 9, battle__field_descriptor),+                    (Data.ProtoLens.Tag 10, food__field_descriptor),+                    (Data.ProtoLens.Tag 11, inventoryUpgrade__field_descriptor),+                    (Data.ProtoLens.Tag 12, xpBoost__field_descriptor),+                    (Data.ProtoLens.Tag 13, incense__field_descriptor),+                    (Data.ProtoLens.Tag 14, eggIncubator__field_descriptor),+                    (Data.ProtoLens.Tag 15, fortModifier__field_descriptor)])+                (Data.Map.fromList+                   [("item_id", itemId__field_descriptor),+                    ("item_type", itemType__field_descriptor),+                    ("category", category__field_descriptor),+                    ("drop_freq", dropFreq__field_descriptor),+                    ("drop_trainer_level", dropTrainerLevel__field_descriptor),+                    ("pokeball", pokeball__field_descriptor),+                    ("potion", potion__field_descriptor),+                    ("revive", revive__field_descriptor),+                    ("battle", battle__field_descriptor),+                    ("food", food__field_descriptor),+                    ("inventory_upgrade", inventoryUpgrade__field_descriptor),+                    ("xp_boost", xpBoost__field_descriptor),+                    ("incense", incense__field_descriptor),+                    ("egg_incubator", eggIncubator__field_descriptor),+                    ("fort_modifier", fortModifier__field_descriptor)])++battle ::+       forall msg msg' . Data.ProtoLens.HasField "battle" msg msg' =>+         Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "battle" msg)+           (Data.ProtoLens.Field "battle" msg')+battle+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "battle")++category ::+         forall msg msg' . Data.ProtoLens.HasField "category" msg msg' =>+           Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "category" msg)+             (Data.ProtoLens.Field "category" msg')+category+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "category")++dropFreq ::+         forall msg msg' . Data.ProtoLens.HasField "dropFreq" msg msg' =>+           Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "dropFreq" msg)+             (Data.ProtoLens.Field "dropFreq" msg')+dropFreq+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "dropFreq")++dropTrainerLevel ::+                 forall msg msg' .+                   Data.ProtoLens.HasField "dropTrainerLevel" msg msg' =>+                   Lens.Family2.Lens msg msg'+                     (Data.ProtoLens.Field "dropTrainerLevel" msg)+                     (Data.ProtoLens.Field "dropTrainerLevel" msg')+dropTrainerLevel+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "dropTrainerLevel")++eggIncubator ::+             forall msg msg' .+               Data.ProtoLens.HasField "eggIncubator" msg msg' =>+               Lens.Family2.Lens msg msg'+                 (Data.ProtoLens.Field "eggIncubator" msg)+                 (Data.ProtoLens.Field "eggIncubator" msg')+eggIncubator+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "eggIncubator")++food ::+     forall msg msg' . Data.ProtoLens.HasField "food" msg msg' =>+       Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "food" msg)+         (Data.ProtoLens.Field "food" msg')+food+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "food")++fortModifier ::+             forall msg msg' .+               Data.ProtoLens.HasField "fortModifier" msg msg' =>+               Lens.Family2.Lens msg msg'+                 (Data.ProtoLens.Field "fortModifier" msg)+                 (Data.ProtoLens.Field "fortModifier" msg')+fortModifier+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "fortModifier")++incense ::+        forall msg msg' . Data.ProtoLens.HasField "incense" msg msg' =>+          Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "incense" msg)+            (Data.ProtoLens.Field "incense" msg')+incense+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "incense")++inventoryUpgrade ::+                 forall msg msg' .+                   Data.ProtoLens.HasField "inventoryUpgrade" msg msg' =>+                   Lens.Family2.Lens msg msg'+                     (Data.ProtoLens.Field "inventoryUpgrade" msg)+                     (Data.ProtoLens.Field "inventoryUpgrade" msg')+inventoryUpgrade+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "inventoryUpgrade")++itemId ::+       forall msg msg' . Data.ProtoLens.HasField "itemId" msg msg' =>+         Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "itemId" msg)+           (Data.ProtoLens.Field "itemId" msg')+itemId+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "itemId")++itemType ::+         forall msg msg' . Data.ProtoLens.HasField "itemType" msg msg' =>+           Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "itemType" msg)+             (Data.ProtoLens.Field "itemType" msg')+itemType+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "itemType")++maybe'battle ::+             forall msg msg' .+               Data.ProtoLens.HasField "maybe'battle" msg msg' =>+               Lens.Family2.Lens msg msg'+                 (Data.ProtoLens.Field "maybe'battle" msg)+                 (Data.ProtoLens.Field "maybe'battle" msg')+maybe'battle+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "maybe'battle")++maybe'eggIncubator ::+                   forall msg msg' .+                     Data.ProtoLens.HasField "maybe'eggIncubator" msg msg' =>+                     Lens.Family2.Lens msg msg'+                       (Data.ProtoLens.Field "maybe'eggIncubator" msg)+                       (Data.ProtoLens.Field "maybe'eggIncubator" msg')+maybe'eggIncubator+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "maybe'eggIncubator")++maybe'food ::+           forall msg msg' . Data.ProtoLens.HasField "maybe'food" msg msg' =>+             Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "maybe'food" msg)+               (Data.ProtoLens.Field "maybe'food" msg')+maybe'food+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "maybe'food")++maybe'fortModifier ::+                   forall msg msg' .+                     Data.ProtoLens.HasField "maybe'fortModifier" msg msg' =>+                     Lens.Family2.Lens msg msg'+                       (Data.ProtoLens.Field "maybe'fortModifier" msg)+                       (Data.ProtoLens.Field "maybe'fortModifier" msg')+maybe'fortModifier+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "maybe'fortModifier")++maybe'incense ::+              forall msg msg' .+                Data.ProtoLens.HasField "maybe'incense" msg msg' =>+                Lens.Family2.Lens msg msg'+                  (Data.ProtoLens.Field "maybe'incense" msg)+                  (Data.ProtoLens.Field "maybe'incense" msg')+maybe'incense+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "maybe'incense")++maybe'inventoryUpgrade ::+                       forall msg msg' .+                         Data.ProtoLens.HasField "maybe'inventoryUpgrade" msg msg' =>+                         Lens.Family2.Lens msg msg'+                           (Data.ProtoLens.Field "maybe'inventoryUpgrade" msg)+                           (Data.ProtoLens.Field "maybe'inventoryUpgrade" msg')+maybe'inventoryUpgrade+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "maybe'inventoryUpgrade")++maybe'pokeball ::+               forall msg msg' .+                 Data.ProtoLens.HasField "maybe'pokeball" msg msg' =>+                 Lens.Family2.Lens msg msg'+                   (Data.ProtoLens.Field "maybe'pokeball" msg)+                   (Data.ProtoLens.Field "maybe'pokeball" msg')+maybe'pokeball+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "maybe'pokeball")++maybe'potion ::+             forall msg msg' .+               Data.ProtoLens.HasField "maybe'potion" msg msg' =>+               Lens.Family2.Lens msg msg'+                 (Data.ProtoLens.Field "maybe'potion" msg)+                 (Data.ProtoLens.Field "maybe'potion" msg')+maybe'potion+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "maybe'potion")++maybe'revive ::+             forall msg msg' .+               Data.ProtoLens.HasField "maybe'revive" msg msg' =>+               Lens.Family2.Lens msg msg'+                 (Data.ProtoLens.Field "maybe'revive" msg)+                 (Data.ProtoLens.Field "maybe'revive" msg')+maybe'revive+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "maybe'revive")++maybe'xpBoost ::+              forall msg msg' .+                Data.ProtoLens.HasField "maybe'xpBoost" msg msg' =>+                Lens.Family2.Lens msg msg'+                  (Data.ProtoLens.Field "maybe'xpBoost" msg)+                  (Data.ProtoLens.Field "maybe'xpBoost" msg')+maybe'xpBoost+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "maybe'xpBoost")++pokeball ::+         forall msg msg' . Data.ProtoLens.HasField "pokeball" msg msg' =>+           Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "pokeball" msg)+             (Data.ProtoLens.Field "pokeball" msg')+pokeball+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "pokeball")++potion ::+       forall msg msg' . Data.ProtoLens.HasField "potion" msg msg' =>+         Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "potion" msg)+           (Data.ProtoLens.Field "potion" msg')+potion+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "potion")++revive ::+       forall msg msg' . Data.ProtoLens.HasField "revive" msg msg' =>+         Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "revive" msg)+           (Data.ProtoLens.Field "revive" msg')+revive+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "revive")++xpBoost ::+        forall msg msg' . Data.ProtoLens.HasField "xpBoost" msg msg' =>+          Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "xpBoost" msg)+            (Data.ProtoLens.Field "xpBoost" msg')+xpBoost+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "xpBoost")
+ src/Proto/POGOProtos/Settings/Master/MoveSequenceSettings.hs view
@@ -0,0 +1,53 @@+{- This file was auto-generated from POGOProtos/Settings/Master/MoveSequenceSettings.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Settings.Master.MoveSequenceSettings 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 MoveSequenceSettings = MoveSequenceSettings{_MoveSequenceSettings'sequence+                                                 :: [Data.Text.Text]}+                          deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "sequence" MoveSequenceSettings+     = [Data.Text.Text]++instance Data.ProtoLens.HasField "sequence" MoveSequenceSettings+         MoveSequenceSettings where+        field _+          = Lens.Family2.Unchecked.lens _MoveSequenceSettings'sequence+              (\ x__ y__ -> x__{_MoveSequenceSettings'sequence = y__})++instance Data.Default.Class.Default MoveSequenceSettings where+        def = MoveSequenceSettings{_MoveSequenceSettings'sequence = []}++instance Data.ProtoLens.Message MoveSequenceSettings where+        descriptor+          = let sequence__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "sequence"+                      (Data.ProtoLens.StringField ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked sequence)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, sequence__field_descriptor)])+                (Data.Map.fromList [("sequence", sequence__field_descriptor)])++sequence ::+         forall msg msg' . Data.ProtoLens.HasField "sequence" msg msg' =>+           Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "sequence" msg)+             (Data.ProtoLens.Field "sequence" msg')+sequence+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "sequence")
+ src/Proto/POGOProtos/Settings/Master/MoveSettings.hs view
@@ -0,0 +1,449 @@+{- This file was auto-generated from POGOProtos/Settings/Master/MoveSettings.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Settings.Master.MoveSettings 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.PokemonMovementType+import qualified Proto.POGOProtos.Enums.PokemonType++data MoveSettings = MoveSettings{_MoveSettings'movementId ::+                                 Proto.POGOProtos.Enums.PokemonMovementType.PokemonMovementType,+                                 _MoveSettings'animationId :: Data.Int.Int32,+                                 _MoveSettings'pokemonType ::+                                 Proto.POGOProtos.Enums.PokemonType.PokemonType,+                                 _MoveSettings'power :: Prelude.Float,+                                 _MoveSettings'accuracyChance :: Prelude.Float,+                                 _MoveSettings'criticalChance :: Prelude.Float,+                                 _MoveSettings'healScalar :: Prelude.Float,+                                 _MoveSettings'staminaLossScalar :: Prelude.Float,+                                 _MoveSettings'trainerLevelMin :: Data.Int.Int32,+                                 _MoveSettings'trainerLevelMax :: Data.Int.Int32,+                                 _MoveSettings'vfxName :: Data.Text.Text,+                                 _MoveSettings'durationMs :: Data.Int.Int32,+                                 _MoveSettings'damageWindowStartMs :: Data.Int.Int32,+                                 _MoveSettings'damageWindowEndMs :: Data.Int.Int32,+                                 _MoveSettings'energyDelta :: Data.Int.Int32}+                  deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "movementId" MoveSettings =+     Proto.POGOProtos.Enums.PokemonMovementType.PokemonMovementType++instance Data.ProtoLens.HasField "movementId" MoveSettings+         MoveSettings where+        field _+          = Lens.Family2.Unchecked.lens _MoveSettings'movementId+              (\ x__ y__ -> x__{_MoveSettings'movementId = y__})++type instance Data.ProtoLens.Field "animationId" MoveSettings =+     Data.Int.Int32++instance Data.ProtoLens.HasField "animationId" MoveSettings+         MoveSettings where+        field _+          = Lens.Family2.Unchecked.lens _MoveSettings'animationId+              (\ x__ y__ -> x__{_MoveSettings'animationId = y__})++type instance Data.ProtoLens.Field "pokemonType" MoveSettings =+     Proto.POGOProtos.Enums.PokemonType.PokemonType++instance Data.ProtoLens.HasField "pokemonType" MoveSettings+         MoveSettings where+        field _+          = Lens.Family2.Unchecked.lens _MoveSettings'pokemonType+              (\ x__ y__ -> x__{_MoveSettings'pokemonType = y__})++type instance Data.ProtoLens.Field "power" MoveSettings =+     Prelude.Float++instance Data.ProtoLens.HasField "power" MoveSettings MoveSettings+         where+        field _+          = Lens.Family2.Unchecked.lens _MoveSettings'power+              (\ x__ y__ -> x__{_MoveSettings'power = y__})++type instance Data.ProtoLens.Field "accuracyChance" MoveSettings =+     Prelude.Float++instance Data.ProtoLens.HasField "accuracyChance" MoveSettings+         MoveSettings where+        field _+          = Lens.Family2.Unchecked.lens _MoveSettings'accuracyChance+              (\ x__ y__ -> x__{_MoveSettings'accuracyChance = y__})++type instance Data.ProtoLens.Field "criticalChance" MoveSettings =+     Prelude.Float++instance Data.ProtoLens.HasField "criticalChance" MoveSettings+         MoveSettings where+        field _+          = Lens.Family2.Unchecked.lens _MoveSettings'criticalChance+              (\ x__ y__ -> x__{_MoveSettings'criticalChance = y__})++type instance Data.ProtoLens.Field "healScalar" MoveSettings =+     Prelude.Float++instance Data.ProtoLens.HasField "healScalar" MoveSettings+         MoveSettings where+        field _+          = Lens.Family2.Unchecked.lens _MoveSettings'healScalar+              (\ x__ y__ -> x__{_MoveSettings'healScalar = y__})++type instance Data.ProtoLens.Field "staminaLossScalar" MoveSettings+     = Prelude.Float++instance Data.ProtoLens.HasField "staminaLossScalar" MoveSettings+         MoveSettings where+        field _+          = Lens.Family2.Unchecked.lens _MoveSettings'staminaLossScalar+              (\ x__ y__ -> x__{_MoveSettings'staminaLossScalar = y__})++type instance Data.ProtoLens.Field "trainerLevelMin" MoveSettings =+     Data.Int.Int32++instance Data.ProtoLens.HasField "trainerLevelMin" MoveSettings+         MoveSettings where+        field _+          = Lens.Family2.Unchecked.lens _MoveSettings'trainerLevelMin+              (\ x__ y__ -> x__{_MoveSettings'trainerLevelMin = y__})++type instance Data.ProtoLens.Field "trainerLevelMax" MoveSettings =+     Data.Int.Int32++instance Data.ProtoLens.HasField "trainerLevelMax" MoveSettings+         MoveSettings where+        field _+          = Lens.Family2.Unchecked.lens _MoveSettings'trainerLevelMax+              (\ x__ y__ -> x__{_MoveSettings'trainerLevelMax = y__})++type instance Data.ProtoLens.Field "vfxName" MoveSettings =+     Data.Text.Text++instance Data.ProtoLens.HasField "vfxName" MoveSettings+         MoveSettings where+        field _+          = Lens.Family2.Unchecked.lens _MoveSettings'vfxName+              (\ x__ y__ -> x__{_MoveSettings'vfxName = y__})++type instance Data.ProtoLens.Field "durationMs" MoveSettings =+     Data.Int.Int32++instance Data.ProtoLens.HasField "durationMs" MoveSettings+         MoveSettings where+        field _+          = Lens.Family2.Unchecked.lens _MoveSettings'durationMs+              (\ x__ y__ -> x__{_MoveSettings'durationMs = y__})++type instance+     Data.ProtoLens.Field "damageWindowStartMs" MoveSettings =+     Data.Int.Int32++instance Data.ProtoLens.HasField "damageWindowStartMs" MoveSettings+         MoveSettings where+        field _+          = Lens.Family2.Unchecked.lens _MoveSettings'damageWindowStartMs+              (\ x__ y__ -> x__{_MoveSettings'damageWindowStartMs = y__})++type instance Data.ProtoLens.Field "damageWindowEndMs" MoveSettings+     = Data.Int.Int32++instance Data.ProtoLens.HasField "damageWindowEndMs" MoveSettings+         MoveSettings where+        field _+          = Lens.Family2.Unchecked.lens _MoveSettings'damageWindowEndMs+              (\ x__ y__ -> x__{_MoveSettings'damageWindowEndMs = y__})++type instance Data.ProtoLens.Field "energyDelta" MoveSettings =+     Data.Int.Int32++instance Data.ProtoLens.HasField "energyDelta" MoveSettings+         MoveSettings where+        field _+          = Lens.Family2.Unchecked.lens _MoveSettings'energyDelta+              (\ x__ y__ -> x__{_MoveSettings'energyDelta = y__})++instance Data.Default.Class.Default MoveSettings where+        def+          = MoveSettings{_MoveSettings'movementId = Data.Default.Class.def,+                         _MoveSettings'animationId = Data.ProtoLens.fieldDefault,+                         _MoveSettings'pokemonType = Data.Default.Class.def,+                         _MoveSettings'power = Data.ProtoLens.fieldDefault,+                         _MoveSettings'accuracyChance = Data.ProtoLens.fieldDefault,+                         _MoveSettings'criticalChance = Data.ProtoLens.fieldDefault,+                         _MoveSettings'healScalar = Data.ProtoLens.fieldDefault,+                         _MoveSettings'staminaLossScalar = Data.ProtoLens.fieldDefault,+                         _MoveSettings'trainerLevelMin = Data.ProtoLens.fieldDefault,+                         _MoveSettings'trainerLevelMax = Data.ProtoLens.fieldDefault,+                         _MoveSettings'vfxName = Data.ProtoLens.fieldDefault,+                         _MoveSettings'durationMs = Data.ProtoLens.fieldDefault,+                         _MoveSettings'damageWindowStartMs = Data.ProtoLens.fieldDefault,+                         _MoveSettings'damageWindowEndMs = Data.ProtoLens.fieldDefault,+                         _MoveSettings'energyDelta = Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message MoveSettings where+        descriptor+          = let movementId__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "movement_id"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Enums.PokemonMovementType.PokemonMovementType)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional movementId)+                animationId__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "animation_id"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional animationId)+                pokemonType__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "pokemon_type"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Enums.PokemonType.PokemonType)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional pokemonType)+                power__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "power"+                      (Data.ProtoLens.FloatField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Float)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional power)+                accuracyChance__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "accuracy_chance"+                      (Data.ProtoLens.FloatField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Float)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional accuracyChance)+                criticalChance__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "critical_chance"+                      (Data.ProtoLens.FloatField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Float)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional criticalChance)+                healScalar__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "heal_scalar"+                      (Data.ProtoLens.FloatField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Float)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional healScalar)+                staminaLossScalar__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "stamina_loss_scalar"+                      (Data.ProtoLens.FloatField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Float)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         staminaLossScalar)+                trainerLevelMin__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "trainer_level_min"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional trainerLevelMin)+                trainerLevelMax__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "trainer_level_max"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional trainerLevelMax)+                vfxName__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "vfx_name"+                      (Data.ProtoLens.StringField ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional vfxName)+                durationMs__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "duration_ms"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional durationMs)+                damageWindowStartMs__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "damage_window_start_ms"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         damageWindowStartMs)+                damageWindowEndMs__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "damage_window_end_ms"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         damageWindowEndMs)+                energyDelta__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "energy_delta"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional energyDelta)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, movementId__field_descriptor),+                    (Data.ProtoLens.Tag 2, animationId__field_descriptor),+                    (Data.ProtoLens.Tag 3, pokemonType__field_descriptor),+                    (Data.ProtoLens.Tag 4, power__field_descriptor),+                    (Data.ProtoLens.Tag 5, accuracyChance__field_descriptor),+                    (Data.ProtoLens.Tag 6, criticalChance__field_descriptor),+                    (Data.ProtoLens.Tag 7, healScalar__field_descriptor),+                    (Data.ProtoLens.Tag 8, staminaLossScalar__field_descriptor),+                    (Data.ProtoLens.Tag 9, trainerLevelMin__field_descriptor),+                    (Data.ProtoLens.Tag 10, trainerLevelMax__field_descriptor),+                    (Data.ProtoLens.Tag 11, vfxName__field_descriptor),+                    (Data.ProtoLens.Tag 12, durationMs__field_descriptor),+                    (Data.ProtoLens.Tag 13, damageWindowStartMs__field_descriptor),+                    (Data.ProtoLens.Tag 14, damageWindowEndMs__field_descriptor),+                    (Data.ProtoLens.Tag 15, energyDelta__field_descriptor)])+                (Data.Map.fromList+                   [("movement_id", movementId__field_descriptor),+                    ("animation_id", animationId__field_descriptor),+                    ("pokemon_type", pokemonType__field_descriptor),+                    ("power", power__field_descriptor),+                    ("accuracy_chance", accuracyChance__field_descriptor),+                    ("critical_chance", criticalChance__field_descriptor),+                    ("heal_scalar", healScalar__field_descriptor),+                    ("stamina_loss_scalar", staminaLossScalar__field_descriptor),+                    ("trainer_level_min", trainerLevelMin__field_descriptor),+                    ("trainer_level_max", trainerLevelMax__field_descriptor),+                    ("vfx_name", vfxName__field_descriptor),+                    ("duration_ms", durationMs__field_descriptor),+                    ("damage_window_start_ms", damageWindowStartMs__field_descriptor),+                    ("damage_window_end_ms", damageWindowEndMs__field_descriptor),+                    ("energy_delta", energyDelta__field_descriptor)])++accuracyChance ::+               forall msg msg' .+                 Data.ProtoLens.HasField "accuracyChance" msg msg' =>+                 Lens.Family2.Lens msg msg'+                   (Data.ProtoLens.Field "accuracyChance" msg)+                   (Data.ProtoLens.Field "accuracyChance" msg')+accuracyChance+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "accuracyChance")++animationId ::+            forall msg msg' . Data.ProtoLens.HasField "animationId" msg msg' =>+              Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "animationId" msg)+                (Data.ProtoLens.Field "animationId" msg')+animationId+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "animationId")++criticalChance ::+               forall msg msg' .+                 Data.ProtoLens.HasField "criticalChance" msg msg' =>+                 Lens.Family2.Lens msg msg'+                   (Data.ProtoLens.Field "criticalChance" msg)+                   (Data.ProtoLens.Field "criticalChance" msg')+criticalChance+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "criticalChance")++damageWindowEndMs ::+                  forall msg msg' .+                    Data.ProtoLens.HasField "damageWindowEndMs" msg msg' =>+                    Lens.Family2.Lens msg msg'+                      (Data.ProtoLens.Field "damageWindowEndMs" msg)+                      (Data.ProtoLens.Field "damageWindowEndMs" msg')+damageWindowEndMs+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "damageWindowEndMs")++damageWindowStartMs ::+                    forall msg msg' .+                      Data.ProtoLens.HasField "damageWindowStartMs" msg msg' =>+                      Lens.Family2.Lens msg msg'+                        (Data.ProtoLens.Field "damageWindowStartMs" msg)+                        (Data.ProtoLens.Field "damageWindowStartMs" msg')+damageWindowStartMs+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "damageWindowStartMs")++durationMs ::+           forall msg msg' . Data.ProtoLens.HasField "durationMs" msg msg' =>+             Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "durationMs" msg)+               (Data.ProtoLens.Field "durationMs" msg')+durationMs+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "durationMs")++energyDelta ::+            forall msg msg' . Data.ProtoLens.HasField "energyDelta" msg msg' =>+              Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "energyDelta" msg)+                (Data.ProtoLens.Field "energyDelta" msg')+energyDelta+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "energyDelta")++healScalar ::+           forall msg msg' . Data.ProtoLens.HasField "healScalar" msg msg' =>+             Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "healScalar" msg)+               (Data.ProtoLens.Field "healScalar" msg')+healScalar+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "healScalar")++movementId ::+           forall msg msg' . Data.ProtoLens.HasField "movementId" msg msg' =>+             Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "movementId" msg)+               (Data.ProtoLens.Field "movementId" msg')+movementId+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "movementId")++pokemonType ::+            forall msg msg' . Data.ProtoLens.HasField "pokemonType" msg msg' =>+              Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "pokemonType" msg)+                (Data.ProtoLens.Field "pokemonType" msg')+pokemonType+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "pokemonType")++power ::+      forall msg msg' . Data.ProtoLens.HasField "power" msg msg' =>+        Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "power" msg)+          (Data.ProtoLens.Field "power" msg')+power+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "power")++staminaLossScalar ::+                  forall msg msg' .+                    Data.ProtoLens.HasField "staminaLossScalar" msg msg' =>+                    Lens.Family2.Lens msg msg'+                      (Data.ProtoLens.Field "staminaLossScalar" msg)+                      (Data.ProtoLens.Field "staminaLossScalar" msg')+staminaLossScalar+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "staminaLossScalar")++trainerLevelMax ::+                forall msg msg' .+                  Data.ProtoLens.HasField "trainerLevelMax" msg msg' =>+                  Lens.Family2.Lens msg msg'+                    (Data.ProtoLens.Field "trainerLevelMax" msg)+                    (Data.ProtoLens.Field "trainerLevelMax" msg')+trainerLevelMax+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "trainerLevelMax")++trainerLevelMin ::+                forall msg msg' .+                  Data.ProtoLens.HasField "trainerLevelMin" msg msg' =>+                  Lens.Family2.Lens msg msg'+                    (Data.ProtoLens.Field "trainerLevelMin" msg)+                    (Data.ProtoLens.Field "trainerLevelMin" msg')+trainerLevelMin+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "trainerLevelMin")++vfxName ::+        forall msg msg' . Data.ProtoLens.HasField "vfxName" msg msg' =>+          Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "vfxName" msg)+            (Data.ProtoLens.Field "vfxName" msg')+vfxName+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "vfxName")
+ src/Proto/POGOProtos/Settings/Master/PlayerLevelSettings.hs view
@@ -0,0 +1,187 @@+{- This file was auto-generated from POGOProtos/Settings/Master/PlayerLevelSettings.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Settings.Master.PlayerLevelSettings 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 PlayerLevelSettings = PlayerLevelSettings{_PlayerLevelSettings'rankNum+                                               :: [Data.Int.Int32],+                                               _PlayerLevelSettings'requiredExperience ::+                                               [Data.Int.Int32],+                                               _PlayerLevelSettings'cpMultiplier :: [Prelude.Float],+                                               _PlayerLevelSettings'maxEggPlayerLevel ::+                                               Data.Int.Int32,+                                               _PlayerLevelSettings'maxEncounterPlayerLevel ::+                                               Data.Int.Int32}+                         deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "rankNum" PlayerLevelSettings =+     [Data.Int.Int32]++instance Data.ProtoLens.HasField "rankNum" PlayerLevelSettings+         PlayerLevelSettings where+        field _+          = Lens.Family2.Unchecked.lens _PlayerLevelSettings'rankNum+              (\ x__ y__ -> x__{_PlayerLevelSettings'rankNum = y__})++type instance+     Data.ProtoLens.Field "requiredExperience" PlayerLevelSettings =+     [Data.Int.Int32]++instance Data.ProtoLens.HasField "requiredExperience"+         PlayerLevelSettings PlayerLevelSettings where+        field _+          = Lens.Family2.Unchecked.lens+              _PlayerLevelSettings'requiredExperience+              (\ x__ y__ -> x__{_PlayerLevelSettings'requiredExperience = y__})++type instance+     Data.ProtoLens.Field "cpMultiplier" PlayerLevelSettings =+     [Prelude.Float]++instance Data.ProtoLens.HasField "cpMultiplier" PlayerLevelSettings+         PlayerLevelSettings where+        field _+          = Lens.Family2.Unchecked.lens _PlayerLevelSettings'cpMultiplier+              (\ x__ y__ -> x__{_PlayerLevelSettings'cpMultiplier = y__})++type instance+     Data.ProtoLens.Field "maxEggPlayerLevel" PlayerLevelSettings =+     Data.Int.Int32++instance Data.ProtoLens.HasField "maxEggPlayerLevel"+         PlayerLevelSettings PlayerLevelSettings where+        field _+          = Lens.Family2.Unchecked.lens+              _PlayerLevelSettings'maxEggPlayerLevel+              (\ x__ y__ -> x__{_PlayerLevelSettings'maxEggPlayerLevel = y__})++type instance+     Data.ProtoLens.Field "maxEncounterPlayerLevel" PlayerLevelSettings+     = Data.Int.Int32++instance Data.ProtoLens.HasField "maxEncounterPlayerLevel"+         PlayerLevelSettings PlayerLevelSettings where+        field _+          = Lens.Family2.Unchecked.lens+              _PlayerLevelSettings'maxEncounterPlayerLevel+              (\ x__ y__ ->+                 x__{_PlayerLevelSettings'maxEncounterPlayerLevel = y__})++instance Data.Default.Class.Default PlayerLevelSettings where+        def+          = PlayerLevelSettings{_PlayerLevelSettings'rankNum = [],+                                _PlayerLevelSettings'requiredExperience = [],+                                _PlayerLevelSettings'cpMultiplier = [],+                                _PlayerLevelSettings'maxEggPlayerLevel =+                                  Data.ProtoLens.fieldDefault,+                                _PlayerLevelSettings'maxEncounterPlayerLevel =+                                  Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message PlayerLevelSettings where+        descriptor+          = let rankNum__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "rank_num"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked rankNum)+                requiredExperience__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "required_experience"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked+                         requiredExperience)+                cpMultiplier__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "cp_multiplier"+                      (Data.ProtoLens.FloatField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Float)+                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked cpMultiplier)+                maxEggPlayerLevel__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "max_egg_player_level"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         maxEggPlayerLevel)+                maxEncounterPlayerLevel__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "max_encounter_player_level"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         maxEncounterPlayerLevel)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, rankNum__field_descriptor),+                    (Data.ProtoLens.Tag 2, requiredExperience__field_descriptor),+                    (Data.ProtoLens.Tag 3, cpMultiplier__field_descriptor),+                    (Data.ProtoLens.Tag 4, maxEggPlayerLevel__field_descriptor),+                    (Data.ProtoLens.Tag 5, maxEncounterPlayerLevel__field_descriptor)])+                (Data.Map.fromList+                   [("rank_num", rankNum__field_descriptor),+                    ("required_experience", requiredExperience__field_descriptor),+                    ("cp_multiplier", cpMultiplier__field_descriptor),+                    ("max_egg_player_level", maxEggPlayerLevel__field_descriptor),+                    ("max_encounter_player_level",+                     maxEncounterPlayerLevel__field_descriptor)])++cpMultiplier ::+             forall msg msg' .+               Data.ProtoLens.HasField "cpMultiplier" msg msg' =>+               Lens.Family2.Lens msg msg'+                 (Data.ProtoLens.Field "cpMultiplier" msg)+                 (Data.ProtoLens.Field "cpMultiplier" msg')+cpMultiplier+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "cpMultiplier")++maxEggPlayerLevel ::+                  forall msg msg' .+                    Data.ProtoLens.HasField "maxEggPlayerLevel" msg msg' =>+                    Lens.Family2.Lens msg msg'+                      (Data.ProtoLens.Field "maxEggPlayerLevel" msg)+                      (Data.ProtoLens.Field "maxEggPlayerLevel" msg')+maxEggPlayerLevel+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "maxEggPlayerLevel")++maxEncounterPlayerLevel ::+                        forall msg msg' .+                          Data.ProtoLens.HasField "maxEncounterPlayerLevel" msg msg' =>+                          Lens.Family2.Lens msg msg'+                            (Data.ProtoLens.Field "maxEncounterPlayerLevel" msg)+                            (Data.ProtoLens.Field "maxEncounterPlayerLevel" msg')+maxEncounterPlayerLevel+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "maxEncounterPlayerLevel")++rankNum ::+        forall msg msg' . Data.ProtoLens.HasField "rankNum" msg msg' =>+          Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "rankNum" msg)+            (Data.ProtoLens.Field "rankNum" msg')+rankNum+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "rankNum")++requiredExperience ::+                   forall msg msg' .+                     Data.ProtoLens.HasField "requiredExperience" msg msg' =>+                     Lens.Family2.Lens msg msg'+                       (Data.ProtoLens.Field "requiredExperience" msg)+                       (Data.ProtoLens.Field "requiredExperience" msg')+requiredExperience+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "requiredExperience")
+ src/Proto/POGOProtos/Settings/Master/Pokemon/CameraAttributes.hs view
@@ -0,0 +1,178 @@+{- This file was auto-generated from POGOProtos/Settings/Master/Pokemon/CameraAttributes.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Settings.Master.Pokemon.CameraAttributes+       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 CameraAttributes = CameraAttributes{_CameraAttributes'diskRadiusM+                                         :: Prelude.Float,+                                         _CameraAttributes'cylinderRadiusM :: Prelude.Float,+                                         _CameraAttributes'cylinderHeightM :: Prelude.Float,+                                         _CameraAttributes'cylinderGroundM :: Prelude.Float,+                                         _CameraAttributes'shoulderModeScale :: Prelude.Float}+                      deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "diskRadiusM" CameraAttributes =+     Prelude.Float++instance Data.ProtoLens.HasField "diskRadiusM" CameraAttributes+         CameraAttributes where+        field _+          = Lens.Family2.Unchecked.lens _CameraAttributes'diskRadiusM+              (\ x__ y__ -> x__{_CameraAttributes'diskRadiusM = y__})++type instance+     Data.ProtoLens.Field "cylinderRadiusM" CameraAttributes =+     Prelude.Float++instance Data.ProtoLens.HasField "cylinderRadiusM" CameraAttributes+         CameraAttributes where+        field _+          = Lens.Family2.Unchecked.lens _CameraAttributes'cylinderRadiusM+              (\ x__ y__ -> x__{_CameraAttributes'cylinderRadiusM = y__})++type instance+     Data.ProtoLens.Field "cylinderHeightM" CameraAttributes =+     Prelude.Float++instance Data.ProtoLens.HasField "cylinderHeightM" CameraAttributes+         CameraAttributes where+        field _+          = Lens.Family2.Unchecked.lens _CameraAttributes'cylinderHeightM+              (\ x__ y__ -> x__{_CameraAttributes'cylinderHeightM = y__})++type instance+     Data.ProtoLens.Field "cylinderGroundM" CameraAttributes =+     Prelude.Float++instance Data.ProtoLens.HasField "cylinderGroundM" CameraAttributes+         CameraAttributes where+        field _+          = Lens.Family2.Unchecked.lens _CameraAttributes'cylinderGroundM+              (\ x__ y__ -> x__{_CameraAttributes'cylinderGroundM = y__})++type instance+     Data.ProtoLens.Field "shoulderModeScale" CameraAttributes =+     Prelude.Float++instance Data.ProtoLens.HasField "shoulderModeScale"+         CameraAttributes CameraAttributes where+        field _+          = Lens.Family2.Unchecked.lens _CameraAttributes'shoulderModeScale+              (\ x__ y__ -> x__{_CameraAttributes'shoulderModeScale = y__})++instance Data.Default.Class.Default CameraAttributes where+        def+          = CameraAttributes{_CameraAttributes'diskRadiusM =+                               Data.ProtoLens.fieldDefault,+                             _CameraAttributes'cylinderRadiusM = Data.ProtoLens.fieldDefault,+                             _CameraAttributes'cylinderHeightM = Data.ProtoLens.fieldDefault,+                             _CameraAttributes'cylinderGroundM = Data.ProtoLens.fieldDefault,+                             _CameraAttributes'shoulderModeScale = Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message CameraAttributes where+        descriptor+          = let diskRadiusM__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "disk_radius_m"+                      (Data.ProtoLens.FloatField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Float)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional diskRadiusM)+                cylinderRadiusM__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "cylinder_radius_m"+                      (Data.ProtoLens.FloatField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Float)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional cylinderRadiusM)+                cylinderHeightM__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "cylinder_height_m"+                      (Data.ProtoLens.FloatField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Float)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional cylinderHeightM)+                cylinderGroundM__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "cylinder_ground_m"+                      (Data.ProtoLens.FloatField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Float)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional cylinderGroundM)+                shoulderModeScale__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "shoulder_mode_scale"+                      (Data.ProtoLens.FloatField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Float)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         shoulderModeScale)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, diskRadiusM__field_descriptor),+                    (Data.ProtoLens.Tag 2, cylinderRadiusM__field_descriptor),+                    (Data.ProtoLens.Tag 3, cylinderHeightM__field_descriptor),+                    (Data.ProtoLens.Tag 4, cylinderGroundM__field_descriptor),+                    (Data.ProtoLens.Tag 5, shoulderModeScale__field_descriptor)])+                (Data.Map.fromList+                   [("disk_radius_m", diskRadiusM__field_descriptor),+                    ("cylinder_radius_m", cylinderRadiusM__field_descriptor),+                    ("cylinder_height_m", cylinderHeightM__field_descriptor),+                    ("cylinder_ground_m", cylinderGroundM__field_descriptor),+                    ("shoulder_mode_scale", shoulderModeScale__field_descriptor)])++cylinderGroundM ::+                forall msg msg' .+                  Data.ProtoLens.HasField "cylinderGroundM" msg msg' =>+                  Lens.Family2.Lens msg msg'+                    (Data.ProtoLens.Field "cylinderGroundM" msg)+                    (Data.ProtoLens.Field "cylinderGroundM" msg')+cylinderGroundM+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "cylinderGroundM")++cylinderHeightM ::+                forall msg msg' .+                  Data.ProtoLens.HasField "cylinderHeightM" msg msg' =>+                  Lens.Family2.Lens msg msg'+                    (Data.ProtoLens.Field "cylinderHeightM" msg)+                    (Data.ProtoLens.Field "cylinderHeightM" msg')+cylinderHeightM+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "cylinderHeightM")++cylinderRadiusM ::+                forall msg msg' .+                  Data.ProtoLens.HasField "cylinderRadiusM" msg msg' =>+                  Lens.Family2.Lens msg msg'+                    (Data.ProtoLens.Field "cylinderRadiusM" msg)+                    (Data.ProtoLens.Field "cylinderRadiusM" msg')+cylinderRadiusM+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "cylinderRadiusM")++diskRadiusM ::+            forall msg msg' . Data.ProtoLens.HasField "diskRadiusM" msg msg' =>+              Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "diskRadiusM" msg)+                (Data.ProtoLens.Field "diskRadiusM" msg')+diskRadiusM+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "diskRadiusM")++shoulderModeScale ::+                  forall msg msg' .+                    Data.ProtoLens.HasField "shoulderModeScale" msg msg' =>+                    Lens.Family2.Lens msg msg'+                      (Data.ProtoLens.Field "shoulderModeScale" msg)+                      (Data.ProtoLens.Field "shoulderModeScale" msg')+shoulderModeScale+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "shoulderModeScale")
+ src/Proto/POGOProtos/Settings/Master/Pokemon/EncounterAttributes.hs view
@@ -0,0 +1,308 @@+{- This file was auto-generated from POGOProtos/Settings/Master/Pokemon/EncounterAttributes.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Settings.Master.Pokemon.EncounterAttributes+       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.PokemonMovementType++data EncounterAttributes = EncounterAttributes{_EncounterAttributes'baseCaptureRate+                                               :: Prelude.Float,+                                               _EncounterAttributes'baseFleeRate :: Prelude.Float,+                                               _EncounterAttributes'collisionRadiusM ::+                                               Prelude.Float,+                                               _EncounterAttributes'collisionHeightM ::+                                               Prelude.Float,+                                               _EncounterAttributes'collisionHeadRadiusM ::+                                               Prelude.Float,+                                               _EncounterAttributes'movementType ::+                                               Proto.POGOProtos.Enums.PokemonMovementType.PokemonMovementType,+                                               _EncounterAttributes'movementTimerS :: Prelude.Float,+                                               _EncounterAttributes'jumpTimeS :: Prelude.Float,+                                               _EncounterAttributes'attackTimerS :: Prelude.Float}+                         deriving (Prelude.Show, Prelude.Eq)++type instance+     Data.ProtoLens.Field "baseCaptureRate" EncounterAttributes =+     Prelude.Float++instance Data.ProtoLens.HasField "baseCaptureRate"+         EncounterAttributes EncounterAttributes where+        field _+          = Lens.Family2.Unchecked.lens _EncounterAttributes'baseCaptureRate+              (\ x__ y__ -> x__{_EncounterAttributes'baseCaptureRate = y__})++type instance+     Data.ProtoLens.Field "baseFleeRate" EncounterAttributes =+     Prelude.Float++instance Data.ProtoLens.HasField "baseFleeRate" EncounterAttributes+         EncounterAttributes where+        field _+          = Lens.Family2.Unchecked.lens _EncounterAttributes'baseFleeRate+              (\ x__ y__ -> x__{_EncounterAttributes'baseFleeRate = y__})++type instance+     Data.ProtoLens.Field "collisionRadiusM" EncounterAttributes =+     Prelude.Float++instance Data.ProtoLens.HasField "collisionRadiusM"+         EncounterAttributes EncounterAttributes where+        field _+          = Lens.Family2.Unchecked.lens _EncounterAttributes'collisionRadiusM+              (\ x__ y__ -> x__{_EncounterAttributes'collisionRadiusM = y__})++type instance+     Data.ProtoLens.Field "collisionHeightM" EncounterAttributes =+     Prelude.Float++instance Data.ProtoLens.HasField "collisionHeightM"+         EncounterAttributes EncounterAttributes where+        field _+          = Lens.Family2.Unchecked.lens _EncounterAttributes'collisionHeightM+              (\ x__ y__ -> x__{_EncounterAttributes'collisionHeightM = y__})++type instance+     Data.ProtoLens.Field "collisionHeadRadiusM" EncounterAttributes =+     Prelude.Float++instance Data.ProtoLens.HasField "collisionHeadRadiusM"+         EncounterAttributes EncounterAttributes where+        field _+          = Lens.Family2.Unchecked.lens+              _EncounterAttributes'collisionHeadRadiusM+              (\ x__ y__ -> x__{_EncounterAttributes'collisionHeadRadiusM = y__})++type instance+     Data.ProtoLens.Field "movementType" EncounterAttributes =+     Proto.POGOProtos.Enums.PokemonMovementType.PokemonMovementType++instance Data.ProtoLens.HasField "movementType" EncounterAttributes+         EncounterAttributes where+        field _+          = Lens.Family2.Unchecked.lens _EncounterAttributes'movementType+              (\ x__ y__ -> x__{_EncounterAttributes'movementType = y__})++type instance+     Data.ProtoLens.Field "movementTimerS" EncounterAttributes =+     Prelude.Float++instance Data.ProtoLens.HasField "movementTimerS"+         EncounterAttributes EncounterAttributes where+        field _+          = Lens.Family2.Unchecked.lens _EncounterAttributes'movementTimerS+              (\ x__ y__ -> x__{_EncounterAttributes'movementTimerS = y__})++type instance Data.ProtoLens.Field "jumpTimeS" EncounterAttributes+     = Prelude.Float++instance Data.ProtoLens.HasField "jumpTimeS" EncounterAttributes+         EncounterAttributes where+        field _+          = Lens.Family2.Unchecked.lens _EncounterAttributes'jumpTimeS+              (\ x__ y__ -> x__{_EncounterAttributes'jumpTimeS = y__})++type instance+     Data.ProtoLens.Field "attackTimerS" EncounterAttributes =+     Prelude.Float++instance Data.ProtoLens.HasField "attackTimerS" EncounterAttributes+         EncounterAttributes where+        field _+          = Lens.Family2.Unchecked.lens _EncounterAttributes'attackTimerS+              (\ x__ y__ -> x__{_EncounterAttributes'attackTimerS = y__})++instance Data.Default.Class.Default EncounterAttributes where+        def+          = EncounterAttributes{_EncounterAttributes'baseCaptureRate =+                                  Data.ProtoLens.fieldDefault,+                                _EncounterAttributes'baseFleeRate = Data.ProtoLens.fieldDefault,+                                _EncounterAttributes'collisionRadiusM =+                                  Data.ProtoLens.fieldDefault,+                                _EncounterAttributes'collisionHeightM =+                                  Data.ProtoLens.fieldDefault,+                                _EncounterAttributes'collisionHeadRadiusM =+                                  Data.ProtoLens.fieldDefault,+                                _EncounterAttributes'movementType = Data.Default.Class.def,+                                _EncounterAttributes'movementTimerS = Data.ProtoLens.fieldDefault,+                                _EncounterAttributes'jumpTimeS = Data.ProtoLens.fieldDefault,+                                _EncounterAttributes'attackTimerS = Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message EncounterAttributes where+        descriptor+          = let baseCaptureRate__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "base_capture_rate"+                      (Data.ProtoLens.FloatField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Float)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional baseCaptureRate)+                baseFleeRate__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "base_flee_rate"+                      (Data.ProtoLens.FloatField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Float)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional baseFleeRate)+                collisionRadiusM__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "collision_radius_m"+                      (Data.ProtoLens.FloatField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Float)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         collisionRadiusM)+                collisionHeightM__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "collision_height_m"+                      (Data.ProtoLens.FloatField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Float)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         collisionHeightM)+                collisionHeadRadiusM__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "collision_head_radius_m"+                      (Data.ProtoLens.FloatField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Float)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         collisionHeadRadiusM)+                movementType__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "movement_type"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Enums.PokemonMovementType.PokemonMovementType)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional movementType)+                movementTimerS__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "movement_timer_s"+                      (Data.ProtoLens.FloatField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Float)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional movementTimerS)+                jumpTimeS__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "jump_time_s"+                      (Data.ProtoLens.FloatField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Float)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional jumpTimeS)+                attackTimerS__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "attack_timer_s"+                      (Data.ProtoLens.FloatField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Float)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional attackTimerS)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, baseCaptureRate__field_descriptor),+                    (Data.ProtoLens.Tag 2, baseFleeRate__field_descriptor),+                    (Data.ProtoLens.Tag 3, collisionRadiusM__field_descriptor),+                    (Data.ProtoLens.Tag 4, collisionHeightM__field_descriptor),+                    (Data.ProtoLens.Tag 5, collisionHeadRadiusM__field_descriptor),+                    (Data.ProtoLens.Tag 6, movementType__field_descriptor),+                    (Data.ProtoLens.Tag 7, movementTimerS__field_descriptor),+                    (Data.ProtoLens.Tag 8, jumpTimeS__field_descriptor),+                    (Data.ProtoLens.Tag 9, attackTimerS__field_descriptor)])+                (Data.Map.fromList+                   [("base_capture_rate", baseCaptureRate__field_descriptor),+                    ("base_flee_rate", baseFleeRate__field_descriptor),+                    ("collision_radius_m", collisionRadiusM__field_descriptor),+                    ("collision_height_m", collisionHeightM__field_descriptor),+                    ("collision_head_radius_m",+                     collisionHeadRadiusM__field_descriptor),+                    ("movement_type", movementType__field_descriptor),+                    ("movement_timer_s", movementTimerS__field_descriptor),+                    ("jump_time_s", jumpTimeS__field_descriptor),+                    ("attack_timer_s", attackTimerS__field_descriptor)])++attackTimerS ::+             forall msg msg' .+               Data.ProtoLens.HasField "attackTimerS" msg msg' =>+               Lens.Family2.Lens msg msg'+                 (Data.ProtoLens.Field "attackTimerS" msg)+                 (Data.ProtoLens.Field "attackTimerS" msg')+attackTimerS+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "attackTimerS")++baseCaptureRate ::+                forall msg msg' .+                  Data.ProtoLens.HasField "baseCaptureRate" msg msg' =>+                  Lens.Family2.Lens msg msg'+                    (Data.ProtoLens.Field "baseCaptureRate" msg)+                    (Data.ProtoLens.Field "baseCaptureRate" msg')+baseCaptureRate+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "baseCaptureRate")++baseFleeRate ::+             forall msg msg' .+               Data.ProtoLens.HasField "baseFleeRate" msg msg' =>+               Lens.Family2.Lens msg msg'+                 (Data.ProtoLens.Field "baseFleeRate" msg)+                 (Data.ProtoLens.Field "baseFleeRate" msg')+baseFleeRate+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "baseFleeRate")++collisionHeadRadiusM ::+                     forall msg msg' .+                       Data.ProtoLens.HasField "collisionHeadRadiusM" msg msg' =>+                       Lens.Family2.Lens msg msg'+                         (Data.ProtoLens.Field "collisionHeadRadiusM" msg)+                         (Data.ProtoLens.Field "collisionHeadRadiusM" msg')+collisionHeadRadiusM+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "collisionHeadRadiusM")++collisionHeightM ::+                 forall msg msg' .+                   Data.ProtoLens.HasField "collisionHeightM" msg msg' =>+                   Lens.Family2.Lens msg msg'+                     (Data.ProtoLens.Field "collisionHeightM" msg)+                     (Data.ProtoLens.Field "collisionHeightM" msg')+collisionHeightM+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "collisionHeightM")++collisionRadiusM ::+                 forall msg msg' .+                   Data.ProtoLens.HasField "collisionRadiusM" msg msg' =>+                   Lens.Family2.Lens msg msg'+                     (Data.ProtoLens.Field "collisionRadiusM" msg)+                     (Data.ProtoLens.Field "collisionRadiusM" msg')+collisionRadiusM+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "collisionRadiusM")++jumpTimeS ::+          forall msg msg' . Data.ProtoLens.HasField "jumpTimeS" msg msg' =>+            Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "jumpTimeS" msg)+              (Data.ProtoLens.Field "jumpTimeS" msg')+jumpTimeS+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "jumpTimeS")++movementTimerS ::+               forall msg msg' .+                 Data.ProtoLens.HasField "movementTimerS" msg msg' =>+                 Lens.Family2.Lens msg msg'+                   (Data.ProtoLens.Field "movementTimerS" msg)+                   (Data.ProtoLens.Field "movementTimerS" msg')+movementTimerS+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "movementTimerS")++movementType ::+             forall msg msg' .+               Data.ProtoLens.HasField "movementType" msg msg' =>+               Lens.Family2.Lens msg msg'+                 (Data.ProtoLens.Field "movementType" msg)+                 (Data.ProtoLens.Field "movementType" msg')+movementType+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "movementType")
+ src/Proto/POGOProtos/Settings/Master/Pokemon/StatsAttributes.hs view
@@ -0,0 +1,140 @@+{- This file was auto-generated from POGOProtos/Settings/Master/Pokemon/StatsAttributes.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Settings.Master.Pokemon.StatsAttributes+       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 StatsAttributes = StatsAttributes{_StatsAttributes'baseStamina+                                       :: Data.Int.Int32,+                                       _StatsAttributes'baseAttack :: Data.Int.Int32,+                                       _StatsAttributes'baseDefense :: Data.Int.Int32,+                                       _StatsAttributes'dodgeEnergyDelta :: Data.Int.Int32}+                     deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "baseStamina" StatsAttributes =+     Data.Int.Int32++instance Data.ProtoLens.HasField "baseStamina" StatsAttributes+         StatsAttributes where+        field _+          = Lens.Family2.Unchecked.lens _StatsAttributes'baseStamina+              (\ x__ y__ -> x__{_StatsAttributes'baseStamina = y__})++type instance Data.ProtoLens.Field "baseAttack" StatsAttributes =+     Data.Int.Int32++instance Data.ProtoLens.HasField "baseAttack" StatsAttributes+         StatsAttributes where+        field _+          = Lens.Family2.Unchecked.lens _StatsAttributes'baseAttack+              (\ x__ y__ -> x__{_StatsAttributes'baseAttack = y__})++type instance Data.ProtoLens.Field "baseDefense" StatsAttributes =+     Data.Int.Int32++instance Data.ProtoLens.HasField "baseDefense" StatsAttributes+         StatsAttributes where+        field _+          = Lens.Family2.Unchecked.lens _StatsAttributes'baseDefense+              (\ x__ y__ -> x__{_StatsAttributes'baseDefense = y__})++type instance+     Data.ProtoLens.Field "dodgeEnergyDelta" StatsAttributes =+     Data.Int.Int32++instance Data.ProtoLens.HasField "dodgeEnergyDelta" StatsAttributes+         StatsAttributes where+        field _+          = Lens.Family2.Unchecked.lens _StatsAttributes'dodgeEnergyDelta+              (\ x__ y__ -> x__{_StatsAttributes'dodgeEnergyDelta = y__})++instance Data.Default.Class.Default StatsAttributes where+        def+          = StatsAttributes{_StatsAttributes'baseStamina =+                              Data.ProtoLens.fieldDefault,+                            _StatsAttributes'baseAttack = Data.ProtoLens.fieldDefault,+                            _StatsAttributes'baseDefense = Data.ProtoLens.fieldDefault,+                            _StatsAttributes'dodgeEnergyDelta = Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message StatsAttributes where+        descriptor+          = let baseStamina__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "base_stamina"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional baseStamina)+                baseAttack__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "base_attack"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional baseAttack)+                baseDefense__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "base_defense"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional baseDefense)+                dodgeEnergyDelta__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "dodge_energy_delta"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         dodgeEnergyDelta)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, baseStamina__field_descriptor),+                    (Data.ProtoLens.Tag 2, baseAttack__field_descriptor),+                    (Data.ProtoLens.Tag 3, baseDefense__field_descriptor),+                    (Data.ProtoLens.Tag 8, dodgeEnergyDelta__field_descriptor)])+                (Data.Map.fromList+                   [("base_stamina", baseStamina__field_descriptor),+                    ("base_attack", baseAttack__field_descriptor),+                    ("base_defense", baseDefense__field_descriptor),+                    ("dodge_energy_delta", dodgeEnergyDelta__field_descriptor)])++baseAttack ::+           forall msg msg' . Data.ProtoLens.HasField "baseAttack" msg msg' =>+             Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "baseAttack" msg)+               (Data.ProtoLens.Field "baseAttack" msg')+baseAttack+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "baseAttack")++baseDefense ::+            forall msg msg' . Data.ProtoLens.HasField "baseDefense" msg msg' =>+              Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "baseDefense" msg)+                (Data.ProtoLens.Field "baseDefense" msg')+baseDefense+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "baseDefense")++baseStamina ::+            forall msg msg' . Data.ProtoLens.HasField "baseStamina" msg msg' =>+              Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "baseStamina" msg)+                (Data.ProtoLens.Field "baseStamina" msg')+baseStamina+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "baseStamina")++dodgeEnergyDelta ::+                 forall msg msg' .+                   Data.ProtoLens.HasField "dodgeEnergyDelta" msg msg' =>+                   Lens.Family2.Lens msg msg'+                     (Data.ProtoLens.Field "dodgeEnergyDelta" msg)+                     (Data.ProtoLens.Field "dodgeEnergyDelta" msg')+dodgeEnergyDelta+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "dodgeEnergyDelta")
+ src/Proto/POGOProtos/Settings/Master/PokemonSettings.hs view
@@ -0,0 +1,708 @@+{- This file was auto-generated from POGOProtos/Settings/Master/PokemonSettings.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Settings.Master.PokemonSettings 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+import qualified Proto.POGOProtos.Enums.PokemonMove+import qualified Proto.POGOProtos.Enums.PokemonRarity+import qualified Proto.POGOProtos.Enums.PokemonType+import qualified+       Proto.POGOProtos.Settings.Master.Pokemon.CameraAttributes+import qualified+       Proto.POGOProtos.Settings.Master.Pokemon.EncounterAttributes+import qualified+       Proto.POGOProtos.Settings.Master.Pokemon.StatsAttributes++data PokemonSettings = PokemonSettings{_PokemonSettings'pokemonId+                                       :: Proto.POGOProtos.Enums.PokemonId.PokemonId,+                                       _PokemonSettings'modelScale :: Prelude.Float,+                                       _PokemonSettings'type' ::+                                       Proto.POGOProtos.Enums.PokemonType.PokemonType,+                                       _PokemonSettings'type2 ::+                                       Proto.POGOProtos.Enums.PokemonType.PokemonType,+                                       _PokemonSettings'camera ::+                                       Prelude.Maybe+                                         Proto.POGOProtos.Settings.Master.Pokemon.CameraAttributes.CameraAttributes,+                                       _PokemonSettings'encounter ::+                                       Prelude.Maybe+                                         Proto.POGOProtos.Settings.Master.Pokemon.EncounterAttributes.EncounterAttributes,+                                       _PokemonSettings'stats ::+                                       Prelude.Maybe+                                         Proto.POGOProtos.Settings.Master.Pokemon.StatsAttributes.StatsAttributes,+                                       _PokemonSettings'quickMoves ::+                                       [Proto.POGOProtos.Enums.PokemonMove.PokemonMove],+                                       _PokemonSettings'cinematicMoves ::+                                       [Proto.POGOProtos.Enums.PokemonMove.PokemonMove],+                                       _PokemonSettings'animationTime :: [Prelude.Float],+                                       _PokemonSettings'evolutionIds ::+                                       [Proto.POGOProtos.Enums.PokemonId.PokemonId],+                                       _PokemonSettings'evolutionPips :: Data.Int.Int32,+                                       _PokemonSettings'rarity ::+                                       Proto.POGOProtos.Enums.PokemonRarity.PokemonRarity,+                                       _PokemonSettings'pokedexHeightM :: Prelude.Float,+                                       _PokemonSettings'pokedexWeightKg :: Prelude.Float,+                                       _PokemonSettings'parentPokemonId ::+                                       Proto.POGOProtos.Enums.PokemonId.PokemonId,+                                       _PokemonSettings'heightStdDev :: Prelude.Float,+                                       _PokemonSettings'weightStdDev :: Prelude.Float,+                                       _PokemonSettings'kmDistanceToHatch :: Prelude.Float,+                                       _PokemonSettings'familyId ::+                                       Proto.POGOProtos.Enums.PokemonId.PokemonId,+                                       _PokemonSettings'candyToEvolve :: Data.Int.Int32}+                     deriving (Prelude.Show, Prelude.Eq)++type instance Data.ProtoLens.Field "pokemonId" PokemonSettings =+     Proto.POGOProtos.Enums.PokemonId.PokemonId++instance Data.ProtoLens.HasField "pokemonId" PokemonSettings+         PokemonSettings where+        field _+          = Lens.Family2.Unchecked.lens _PokemonSettings'pokemonId+              (\ x__ y__ -> x__{_PokemonSettings'pokemonId = y__})++type instance Data.ProtoLens.Field "modelScale" PokemonSettings =+     Prelude.Float++instance Data.ProtoLens.HasField "modelScale" PokemonSettings+         PokemonSettings where+        field _+          = Lens.Family2.Unchecked.lens _PokemonSettings'modelScale+              (\ x__ y__ -> x__{_PokemonSettings'modelScale = y__})++type instance Data.ProtoLens.Field "type'" PokemonSettings =+     Proto.POGOProtos.Enums.PokemonType.PokemonType++instance Data.ProtoLens.HasField "type'" PokemonSettings+         PokemonSettings where+        field _+          = Lens.Family2.Unchecked.lens _PokemonSettings'type'+              (\ x__ y__ -> x__{_PokemonSettings'type' = y__})++type instance Data.ProtoLens.Field "type2" PokemonSettings =+     Proto.POGOProtos.Enums.PokemonType.PokemonType++instance Data.ProtoLens.HasField "type2" PokemonSettings+         PokemonSettings where+        field _+          = Lens.Family2.Unchecked.lens _PokemonSettings'type2+              (\ x__ y__ -> x__{_PokemonSettings'type2 = y__})++type instance Data.ProtoLens.Field "camera" PokemonSettings =+     Proto.POGOProtos.Settings.Master.Pokemon.CameraAttributes.CameraAttributes++instance Data.ProtoLens.HasField "camera" PokemonSettings+         PokemonSettings where+        field _+          = (Prelude..) maybe'camera+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance Data.ProtoLens.Field "maybe'camera" PokemonSettings =+     Prelude.Maybe+       Proto.POGOProtos.Settings.Master.Pokemon.CameraAttributes.CameraAttributes++instance Data.ProtoLens.HasField "maybe'camera" PokemonSettings+         PokemonSettings where+        field _+          = Lens.Family2.Unchecked.lens _PokemonSettings'camera+              (\ x__ y__ -> x__{_PokemonSettings'camera = y__})++type instance Data.ProtoLens.Field "encounter" PokemonSettings =+     Proto.POGOProtos.Settings.Master.Pokemon.EncounterAttributes.EncounterAttributes++instance Data.ProtoLens.HasField "encounter" PokemonSettings+         PokemonSettings where+        field _+          = (Prelude..) maybe'encounter+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance+     Data.ProtoLens.Field "maybe'encounter" PokemonSettings =+     Prelude.Maybe+       Proto.POGOProtos.Settings.Master.Pokemon.EncounterAttributes.EncounterAttributes++instance Data.ProtoLens.HasField "maybe'encounter" PokemonSettings+         PokemonSettings where+        field _+          = Lens.Family2.Unchecked.lens _PokemonSettings'encounter+              (\ x__ y__ -> x__{_PokemonSettings'encounter = y__})++type instance Data.ProtoLens.Field "stats" PokemonSettings =+     Proto.POGOProtos.Settings.Master.Pokemon.StatsAttributes.StatsAttributes++instance Data.ProtoLens.HasField "stats" PokemonSettings+         PokemonSettings where+        field _+          = (Prelude..) maybe'stats+              (Data.ProtoLens.maybeLens Data.Default.Class.def)++type instance Data.ProtoLens.Field "maybe'stats" PokemonSettings =+     Prelude.Maybe+       Proto.POGOProtos.Settings.Master.Pokemon.StatsAttributes.StatsAttributes++instance Data.ProtoLens.HasField "maybe'stats" PokemonSettings+         PokemonSettings where+        field _+          = Lens.Family2.Unchecked.lens _PokemonSettings'stats+              (\ x__ y__ -> x__{_PokemonSettings'stats = y__})++type instance Data.ProtoLens.Field "quickMoves" PokemonSettings =+     [Proto.POGOProtos.Enums.PokemonMove.PokemonMove]++instance Data.ProtoLens.HasField "quickMoves" PokemonSettings+         PokemonSettings where+        field _+          = Lens.Family2.Unchecked.lens _PokemonSettings'quickMoves+              (\ x__ y__ -> x__{_PokemonSettings'quickMoves = y__})++type instance Data.ProtoLens.Field "cinematicMoves" PokemonSettings+     = [Proto.POGOProtos.Enums.PokemonMove.PokemonMove]++instance Data.ProtoLens.HasField "cinematicMoves" PokemonSettings+         PokemonSettings where+        field _+          = Lens.Family2.Unchecked.lens _PokemonSettings'cinematicMoves+              (\ x__ y__ -> x__{_PokemonSettings'cinematicMoves = y__})++type instance Data.ProtoLens.Field "animationTime" PokemonSettings+     = [Prelude.Float]++instance Data.ProtoLens.HasField "animationTime" PokemonSettings+         PokemonSettings where+        field _+          = Lens.Family2.Unchecked.lens _PokemonSettings'animationTime+              (\ x__ y__ -> x__{_PokemonSettings'animationTime = y__})++type instance Data.ProtoLens.Field "evolutionIds" PokemonSettings =+     [Proto.POGOProtos.Enums.PokemonId.PokemonId]++instance Data.ProtoLens.HasField "evolutionIds" PokemonSettings+         PokemonSettings where+        field _+          = Lens.Family2.Unchecked.lens _PokemonSettings'evolutionIds+              (\ x__ y__ -> x__{_PokemonSettings'evolutionIds = y__})++type instance Data.ProtoLens.Field "evolutionPips" PokemonSettings+     = Data.Int.Int32++instance Data.ProtoLens.HasField "evolutionPips" PokemonSettings+         PokemonSettings where+        field _+          = Lens.Family2.Unchecked.lens _PokemonSettings'evolutionPips+              (\ x__ y__ -> x__{_PokemonSettings'evolutionPips = y__})++type instance Data.ProtoLens.Field "rarity" PokemonSettings =+     Proto.POGOProtos.Enums.PokemonRarity.PokemonRarity++instance Data.ProtoLens.HasField "rarity" PokemonSettings+         PokemonSettings where+        field _+          = Lens.Family2.Unchecked.lens _PokemonSettings'rarity+              (\ x__ y__ -> x__{_PokemonSettings'rarity = y__})++type instance Data.ProtoLens.Field "pokedexHeightM" PokemonSettings+     = Prelude.Float++instance Data.ProtoLens.HasField "pokedexHeightM" PokemonSettings+         PokemonSettings where+        field _+          = Lens.Family2.Unchecked.lens _PokemonSettings'pokedexHeightM+              (\ x__ y__ -> x__{_PokemonSettings'pokedexHeightM = y__})++type instance+     Data.ProtoLens.Field "pokedexWeightKg" PokemonSettings =+     Prelude.Float++instance Data.ProtoLens.HasField "pokedexWeightKg" PokemonSettings+         PokemonSettings where+        field _+          = Lens.Family2.Unchecked.lens _PokemonSettings'pokedexWeightKg+              (\ x__ y__ -> x__{_PokemonSettings'pokedexWeightKg = y__})++type instance+     Data.ProtoLens.Field "parentPokemonId" PokemonSettings =+     Proto.POGOProtos.Enums.PokemonId.PokemonId++instance Data.ProtoLens.HasField "parentPokemonId" PokemonSettings+         PokemonSettings where+        field _+          = Lens.Family2.Unchecked.lens _PokemonSettings'parentPokemonId+              (\ x__ y__ -> x__{_PokemonSettings'parentPokemonId = y__})++type instance Data.ProtoLens.Field "heightStdDev" PokemonSettings =+     Prelude.Float++instance Data.ProtoLens.HasField "heightStdDev" PokemonSettings+         PokemonSettings where+        field _+          = Lens.Family2.Unchecked.lens _PokemonSettings'heightStdDev+              (\ x__ y__ -> x__{_PokemonSettings'heightStdDev = y__})++type instance Data.ProtoLens.Field "weightStdDev" PokemonSettings =+     Prelude.Float++instance Data.ProtoLens.HasField "weightStdDev" PokemonSettings+         PokemonSettings where+        field _+          = Lens.Family2.Unchecked.lens _PokemonSettings'weightStdDev+              (\ x__ y__ -> x__{_PokemonSettings'weightStdDev = y__})++type instance+     Data.ProtoLens.Field "kmDistanceToHatch" PokemonSettings =+     Prelude.Float++instance Data.ProtoLens.HasField "kmDistanceToHatch"+         PokemonSettings PokemonSettings where+        field _+          = Lens.Family2.Unchecked.lens _PokemonSettings'kmDistanceToHatch+              (\ x__ y__ -> x__{_PokemonSettings'kmDistanceToHatch = y__})++type instance Data.ProtoLens.Field "familyId" PokemonSettings =+     Proto.POGOProtos.Enums.PokemonId.PokemonId++instance Data.ProtoLens.HasField "familyId" PokemonSettings+         PokemonSettings where+        field _+          = Lens.Family2.Unchecked.lens _PokemonSettings'familyId+              (\ x__ y__ -> x__{_PokemonSettings'familyId = y__})++type instance Data.ProtoLens.Field "candyToEvolve" PokemonSettings+     = Data.Int.Int32++instance Data.ProtoLens.HasField "candyToEvolve" PokemonSettings+         PokemonSettings where+        field _+          = Lens.Family2.Unchecked.lens _PokemonSettings'candyToEvolve+              (\ x__ y__ -> x__{_PokemonSettings'candyToEvolve = y__})++instance Data.Default.Class.Default PokemonSettings where+        def+          = PokemonSettings{_PokemonSettings'pokemonId =+                              Data.Default.Class.def,+                            _PokemonSettings'modelScale = Data.ProtoLens.fieldDefault,+                            _PokemonSettings'type' = Data.Default.Class.def,+                            _PokemonSettings'type2 = Data.Default.Class.def,+                            _PokemonSettings'camera = Prelude.Nothing,+                            _PokemonSettings'encounter = Prelude.Nothing,+                            _PokemonSettings'stats = Prelude.Nothing,+                            _PokemonSettings'quickMoves = [],+                            _PokemonSettings'cinematicMoves = [],+                            _PokemonSettings'animationTime = [],+                            _PokemonSettings'evolutionIds = [],+                            _PokemonSettings'evolutionPips = Data.ProtoLens.fieldDefault,+                            _PokemonSettings'rarity = Data.Default.Class.def,+                            _PokemonSettings'pokedexHeightM = Data.ProtoLens.fieldDefault,+                            _PokemonSettings'pokedexWeightKg = Data.ProtoLens.fieldDefault,+                            _PokemonSettings'parentPokemonId = Data.Default.Class.def,+                            _PokemonSettings'heightStdDev = Data.ProtoLens.fieldDefault,+                            _PokemonSettings'weightStdDev = Data.ProtoLens.fieldDefault,+                            _PokemonSettings'kmDistanceToHatch = Data.ProtoLens.fieldDefault,+                            _PokemonSettings'familyId = Data.Default.Class.def,+                            _PokemonSettings'candyToEvolve = Data.ProtoLens.fieldDefault}++instance Data.ProtoLens.Message PokemonSettings where+        descriptor+          = let 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)+                modelScale__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "model_scale"+                      (Data.ProtoLens.FloatField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Float)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional modelScale)+                type'__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "type"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Enums.PokemonType.PokemonType)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional type')+                type2__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "type_2"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Enums.PokemonType.PokemonType)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional type2)+                camera__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "camera"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Settings.Master.Pokemon.CameraAttributes.CameraAttributes)+                      (Data.ProtoLens.OptionalField maybe'camera)+                encounter__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "encounter"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Settings.Master.Pokemon.EncounterAttributes.EncounterAttributes)+                      (Data.ProtoLens.OptionalField maybe'encounter)+                stats__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "stats"+                      (Data.ProtoLens.MessageField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Settings.Master.Pokemon.StatsAttributes.StatsAttributes)+                      (Data.ProtoLens.OptionalField maybe'stats)+                quickMoves__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "quick_moves"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Enums.PokemonMove.PokemonMove)+                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked quickMoves)+                cinematicMoves__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "cinematic_moves"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Enums.PokemonMove.PokemonMove)+                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked+                         cinematicMoves)+                animationTime__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "animation_time"+                      (Data.ProtoLens.FloatField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Float)+                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked+                         animationTime)+                evolutionIds__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "evolution_ids"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Enums.PokemonId.PokemonId)+                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked evolutionIds)+                evolutionPips__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "evolution_pips"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional evolutionPips)+                rarity__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "rarity"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Enums.PokemonRarity.PokemonRarity)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional rarity)+                pokedexHeightM__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "pokedex_height_m"+                      (Data.ProtoLens.FloatField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Float)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional pokedexHeightM)+                pokedexWeightKg__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "pokedex_weight_kg"+                      (Data.ProtoLens.FloatField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Float)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional pokedexWeightKg)+                parentPokemonId__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "parent_pokemon_id"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Enums.PokemonId.PokemonId)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional parentPokemonId)+                heightStdDev__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "height_std_dev"+                      (Data.ProtoLens.FloatField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Float)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional heightStdDev)+                weightStdDev__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "weight_std_dev"+                      (Data.ProtoLens.FloatField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Float)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional weightStdDev)+                kmDistanceToHatch__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "km_distance_to_hatch"+                      (Data.ProtoLens.FloatField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Float)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         kmDistanceToHatch)+                familyId__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "family_id"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Enums.PokemonId.PokemonId)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional familyId)+                candyToEvolve__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "candy_to_evolve"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional candyToEvolve)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, pokemonId__field_descriptor),+                    (Data.ProtoLens.Tag 3, modelScale__field_descriptor),+                    (Data.ProtoLens.Tag 4, type'__field_descriptor),+                    (Data.ProtoLens.Tag 5, type2__field_descriptor),+                    (Data.ProtoLens.Tag 6, camera__field_descriptor),+                    (Data.ProtoLens.Tag 7, encounter__field_descriptor),+                    (Data.ProtoLens.Tag 8, stats__field_descriptor),+                    (Data.ProtoLens.Tag 9, quickMoves__field_descriptor),+                    (Data.ProtoLens.Tag 10, cinematicMoves__field_descriptor),+                    (Data.ProtoLens.Tag 11, animationTime__field_descriptor),+                    (Data.ProtoLens.Tag 12, evolutionIds__field_descriptor),+                    (Data.ProtoLens.Tag 13, evolutionPips__field_descriptor),+                    (Data.ProtoLens.Tag 14, rarity__field_descriptor),+                    (Data.ProtoLens.Tag 15, pokedexHeightM__field_descriptor),+                    (Data.ProtoLens.Tag 16, pokedexWeightKg__field_descriptor),+                    (Data.ProtoLens.Tag 17, parentPokemonId__field_descriptor),+                    (Data.ProtoLens.Tag 18, heightStdDev__field_descriptor),+                    (Data.ProtoLens.Tag 19, weightStdDev__field_descriptor),+                    (Data.ProtoLens.Tag 20, kmDistanceToHatch__field_descriptor),+                    (Data.ProtoLens.Tag 21, familyId__field_descriptor),+                    (Data.ProtoLens.Tag 22, candyToEvolve__field_descriptor)])+                (Data.Map.fromList+                   [("pokemon_id", pokemonId__field_descriptor),+                    ("model_scale", modelScale__field_descriptor),+                    ("type", type'__field_descriptor),+                    ("type_2", type2__field_descriptor),+                    ("camera", camera__field_descriptor),+                    ("encounter", encounter__field_descriptor),+                    ("stats", stats__field_descriptor),+                    ("quick_moves", quickMoves__field_descriptor),+                    ("cinematic_moves", cinematicMoves__field_descriptor),+                    ("animation_time", animationTime__field_descriptor),+                    ("evolution_ids", evolutionIds__field_descriptor),+                    ("evolution_pips", evolutionPips__field_descriptor),+                    ("rarity", rarity__field_descriptor),+                    ("pokedex_height_m", pokedexHeightM__field_descriptor),+                    ("pokedex_weight_kg", pokedexWeightKg__field_descriptor),+                    ("parent_pokemon_id", parentPokemonId__field_descriptor),+                    ("height_std_dev", heightStdDev__field_descriptor),+                    ("weight_std_dev", weightStdDev__field_descriptor),+                    ("km_distance_to_hatch", kmDistanceToHatch__field_descriptor),+                    ("family_id", familyId__field_descriptor),+                    ("candy_to_evolve", candyToEvolve__field_descriptor)])++animationTime ::+              forall msg msg' .+                Data.ProtoLens.HasField "animationTime" msg msg' =>+                Lens.Family2.Lens msg msg'+                  (Data.ProtoLens.Field "animationTime" msg)+                  (Data.ProtoLens.Field "animationTime" msg')+animationTime+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "animationTime")++camera ::+       forall msg msg' . Data.ProtoLens.HasField "camera" msg msg' =>+         Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "camera" msg)+           (Data.ProtoLens.Field "camera" msg')+camera+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "camera")++candyToEvolve ::+              forall msg msg' .+                Data.ProtoLens.HasField "candyToEvolve" msg msg' =>+                Lens.Family2.Lens msg msg'+                  (Data.ProtoLens.Field "candyToEvolve" msg)+                  (Data.ProtoLens.Field "candyToEvolve" msg')+candyToEvolve+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "candyToEvolve")++cinematicMoves ::+               forall msg msg' .+                 Data.ProtoLens.HasField "cinematicMoves" msg msg' =>+                 Lens.Family2.Lens msg msg'+                   (Data.ProtoLens.Field "cinematicMoves" msg)+                   (Data.ProtoLens.Field "cinematicMoves" msg')+cinematicMoves+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "cinematicMoves")++encounter ::+          forall msg msg' . Data.ProtoLens.HasField "encounter" msg msg' =>+            Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "encounter" msg)+              (Data.ProtoLens.Field "encounter" msg')+encounter+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "encounter")++evolutionIds ::+             forall msg msg' .+               Data.ProtoLens.HasField "evolutionIds" msg msg' =>+               Lens.Family2.Lens msg msg'+                 (Data.ProtoLens.Field "evolutionIds" msg)+                 (Data.ProtoLens.Field "evolutionIds" msg')+evolutionIds+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "evolutionIds")++evolutionPips ::+              forall msg msg' .+                Data.ProtoLens.HasField "evolutionPips" msg msg' =>+                Lens.Family2.Lens msg msg'+                  (Data.ProtoLens.Field "evolutionPips" msg)+                  (Data.ProtoLens.Field "evolutionPips" msg')+evolutionPips+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "evolutionPips")++familyId ::+         forall msg msg' . Data.ProtoLens.HasField "familyId" msg msg' =>+           Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "familyId" msg)+             (Data.ProtoLens.Field "familyId" msg')+familyId+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "familyId")++heightStdDev ::+             forall msg msg' .+               Data.ProtoLens.HasField "heightStdDev" msg msg' =>+               Lens.Family2.Lens msg msg'+                 (Data.ProtoLens.Field "heightStdDev" msg)+                 (Data.ProtoLens.Field "heightStdDev" msg')+heightStdDev+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "heightStdDev")++kmDistanceToHatch ::+                  forall msg msg' .+                    Data.ProtoLens.HasField "kmDistanceToHatch" msg msg' =>+                    Lens.Family2.Lens msg msg'+                      (Data.ProtoLens.Field "kmDistanceToHatch" msg)+                      (Data.ProtoLens.Field "kmDistanceToHatch" msg')+kmDistanceToHatch+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "kmDistanceToHatch")++maybe'camera ::+             forall msg msg' .+               Data.ProtoLens.HasField "maybe'camera" msg msg' =>+               Lens.Family2.Lens msg msg'+                 (Data.ProtoLens.Field "maybe'camera" msg)+                 (Data.ProtoLens.Field "maybe'camera" msg')+maybe'camera+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "maybe'camera")++maybe'encounter ::+                forall msg msg' .+                  Data.ProtoLens.HasField "maybe'encounter" msg msg' =>+                  Lens.Family2.Lens msg msg'+                    (Data.ProtoLens.Field "maybe'encounter" msg)+                    (Data.ProtoLens.Field "maybe'encounter" msg')+maybe'encounter+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "maybe'encounter")++maybe'stats ::+            forall msg msg' . Data.ProtoLens.HasField "maybe'stats" msg msg' =>+              Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "maybe'stats" msg)+                (Data.ProtoLens.Field "maybe'stats" msg')+maybe'stats+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "maybe'stats")++modelScale ::+           forall msg msg' . Data.ProtoLens.HasField "modelScale" msg msg' =>+             Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "modelScale" msg)+               (Data.ProtoLens.Field "modelScale" msg')+modelScale+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "modelScale")++parentPokemonId ::+                forall msg msg' .+                  Data.ProtoLens.HasField "parentPokemonId" msg msg' =>+                  Lens.Family2.Lens msg msg'+                    (Data.ProtoLens.Field "parentPokemonId" msg)+                    (Data.ProtoLens.Field "parentPokemonId" msg')+parentPokemonId+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "parentPokemonId")++pokedexHeightM ::+               forall msg msg' .+                 Data.ProtoLens.HasField "pokedexHeightM" msg msg' =>+                 Lens.Family2.Lens msg msg'+                   (Data.ProtoLens.Field "pokedexHeightM" msg)+                   (Data.ProtoLens.Field "pokedexHeightM" msg')+pokedexHeightM+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "pokedexHeightM")++pokedexWeightKg ::+                forall msg msg' .+                  Data.ProtoLens.HasField "pokedexWeightKg" msg msg' =>+                  Lens.Family2.Lens msg msg'+                    (Data.ProtoLens.Field "pokedexWeightKg" msg)+                    (Data.ProtoLens.Field "pokedexWeightKg" msg')+pokedexWeightKg+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "pokedexWeightKg")++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")++quickMoves ::+           forall msg msg' . Data.ProtoLens.HasField "quickMoves" msg msg' =>+             Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "quickMoves" msg)+               (Data.ProtoLens.Field "quickMoves" msg')+quickMoves+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "quickMoves")++rarity ::+       forall msg msg' . Data.ProtoLens.HasField "rarity" msg msg' =>+         Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "rarity" msg)+           (Data.ProtoLens.Field "rarity" msg')+rarity+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "rarity")++stats ::+      forall msg msg' . Data.ProtoLens.HasField "stats" msg msg' =>+        Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "stats" msg)+          (Data.ProtoLens.Field "stats" msg')+stats+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "stats")++type' ::+      forall msg msg' . Data.ProtoLens.HasField "type'" msg msg' =>+        Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "type'" msg)+          (Data.ProtoLens.Field "type'" msg')+type'+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "type'")++type2 ::+      forall msg msg' . Data.ProtoLens.HasField "type2" msg msg' =>+        Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "type2" msg)+          (Data.ProtoLens.Field "type2" msg')+type2+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "type2")++weightStdDev ::+             forall msg msg' .+               Data.ProtoLens.HasField "weightStdDev" msg msg' =>+               Lens.Family2.Lens msg msg'+                 (Data.ProtoLens.Field "weightStdDev" msg)+                 (Data.ProtoLens.Field "weightStdDev" msg')+weightStdDev+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "weightStdDev")
+ src/Proto/POGOProtos/Settings/Master/PokemonUpgradeSettings.hs view
@@ -0,0 +1,158 @@+{- This file was auto-generated from POGOProtos/Settings/Master/PokemonUpgradeSettings.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Settings.Master.PokemonUpgradeSettings+       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 PokemonUpgradeSettings = PokemonUpgradeSettings{_PokemonUpgradeSettings'upgradesPerLevel+                                                     :: Data.Int.Int32,+                                                     _PokemonUpgradeSettings'allowedLevelsAbovePlayer+                                                     :: Data.Int.Int32,+                                                     _PokemonUpgradeSettings'candyCost ::+                                                     [Data.Int.Int32],+                                                     _PokemonUpgradeSettings'stardustCost ::+                                                     [Data.Int.Int32]}+                            deriving (Prelude.Show, Prelude.Eq)++type instance+     Data.ProtoLens.Field "upgradesPerLevel" PokemonUpgradeSettings =+     Data.Int.Int32++instance Data.ProtoLens.HasField "upgradesPerLevel"+         PokemonUpgradeSettings PokemonUpgradeSettings where+        field _+          = Lens.Family2.Unchecked.lens+              _PokemonUpgradeSettings'upgradesPerLevel+              (\ x__ y__ -> x__{_PokemonUpgradeSettings'upgradesPerLevel = y__})++type instance+     Data.ProtoLens.Field "allowedLevelsAbovePlayer"+       PokemonUpgradeSettings+     = Data.Int.Int32++instance Data.ProtoLens.HasField "allowedLevelsAbovePlayer"+         PokemonUpgradeSettings PokemonUpgradeSettings where+        field _+          = Lens.Family2.Unchecked.lens+              _PokemonUpgradeSettings'allowedLevelsAbovePlayer+              (\ x__ y__ ->+                 x__{_PokemonUpgradeSettings'allowedLevelsAbovePlayer = y__})++type instance+     Data.ProtoLens.Field "candyCost" PokemonUpgradeSettings =+     [Data.Int.Int32]++instance Data.ProtoLens.HasField "candyCost" PokemonUpgradeSettings+         PokemonUpgradeSettings where+        field _+          = Lens.Family2.Unchecked.lens _PokemonUpgradeSettings'candyCost+              (\ x__ y__ -> x__{_PokemonUpgradeSettings'candyCost = y__})++type instance+     Data.ProtoLens.Field "stardustCost" PokemonUpgradeSettings =+     [Data.Int.Int32]++instance Data.ProtoLens.HasField "stardustCost"+         PokemonUpgradeSettings PokemonUpgradeSettings where+        field _+          = Lens.Family2.Unchecked.lens _PokemonUpgradeSettings'stardustCost+              (\ x__ y__ -> x__{_PokemonUpgradeSettings'stardustCost = y__})++instance Data.Default.Class.Default PokemonUpgradeSettings where+        def+          = PokemonUpgradeSettings{_PokemonUpgradeSettings'upgradesPerLevel =+                                     Data.ProtoLens.fieldDefault,+                                   _PokemonUpgradeSettings'allowedLevelsAbovePlayer =+                                     Data.ProtoLens.fieldDefault,+                                   _PokemonUpgradeSettings'candyCost = [],+                                   _PokemonUpgradeSettings'stardustCost = []}++instance Data.ProtoLens.Message PokemonUpgradeSettings where+        descriptor+          = let upgradesPerLevel__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "upgrades_per_level"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         upgradesPerLevel)+                allowedLevelsAbovePlayer__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "allowed_levels_above_player"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional+                         allowedLevelsAbovePlayer)+                candyCost__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "candy_cost"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked candyCost)+                stardustCost__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "stardust_cost"+                      (Data.ProtoLens.Int32Field ::+                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked stardustCost)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, upgradesPerLevel__field_descriptor),+                    (Data.ProtoLens.Tag 2, allowedLevelsAbovePlayer__field_descriptor),+                    (Data.ProtoLens.Tag 3, candyCost__field_descriptor),+                    (Data.ProtoLens.Tag 4, stardustCost__field_descriptor)])+                (Data.Map.fromList+                   [("upgrades_per_level", upgradesPerLevel__field_descriptor),+                    ("allowed_levels_above_player",+                     allowedLevelsAbovePlayer__field_descriptor),+                    ("candy_cost", candyCost__field_descriptor),+                    ("stardust_cost", stardustCost__field_descriptor)])++allowedLevelsAbovePlayer ::+                         forall msg msg' .+                           Data.ProtoLens.HasField "allowedLevelsAbovePlayer" msg msg' =>+                           Lens.Family2.Lens msg msg'+                             (Data.ProtoLens.Field "allowedLevelsAbovePlayer" msg)+                             (Data.ProtoLens.Field "allowedLevelsAbovePlayer" msg')+allowedLevelsAbovePlayer+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "allowedLevelsAbovePlayer")++candyCost ::+          forall msg msg' . Data.ProtoLens.HasField "candyCost" msg msg' =>+            Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "candyCost" msg)+              (Data.ProtoLens.Field "candyCost" msg')+candyCost+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "candyCost")++stardustCost ::+             forall msg msg' .+               Data.ProtoLens.HasField "stardustCost" msg msg' =>+               Lens.Family2.Lens msg msg'+                 (Data.ProtoLens.Field "stardustCost" msg)+                 (Data.ProtoLens.Field "stardustCost" msg')+stardustCost+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "stardustCost")++upgradesPerLevel ::+                 forall msg msg' .+                   Data.ProtoLens.HasField "upgradesPerLevel" msg msg' =>+                   Lens.Family2.Lens msg msg'+                     (Data.ProtoLens.Field "upgradesPerLevel" msg)+                     (Data.ProtoLens.Field "upgradesPerLevel" msg')+upgradesPerLevel+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym ::+         Data.ProtoLens.ProxySym "upgradesPerLevel")
+ src/Proto/POGOProtos/Settings/Master/TypeEffectiveSettings.hs view
@@ -0,0 +1,88 @@+{- This file was auto-generated from POGOProtos/Settings/Master/TypeEffectiveSettings.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+module Proto.POGOProtos.Settings.Master.TypeEffectiveSettings 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.PokemonType++data TypeEffectiveSettings = TypeEffectiveSettings{_TypeEffectiveSettings'attackScalar+                                                   :: [Prelude.Float],+                                                   _TypeEffectiveSettings'attackType ::+                                                   Proto.POGOProtos.Enums.PokemonType.PokemonType}+                           deriving (Prelude.Show, Prelude.Eq)++type instance+     Data.ProtoLens.Field "attackScalar" TypeEffectiveSettings =+     [Prelude.Float]++instance Data.ProtoLens.HasField "attackScalar"+         TypeEffectiveSettings TypeEffectiveSettings where+        field _+          = Lens.Family2.Unchecked.lens _TypeEffectiveSettings'attackScalar+              (\ x__ y__ -> x__{_TypeEffectiveSettings'attackScalar = y__})++type instance+     Data.ProtoLens.Field "attackType" TypeEffectiveSettings =+     Proto.POGOProtos.Enums.PokemonType.PokemonType++instance Data.ProtoLens.HasField "attackType" TypeEffectiveSettings+         TypeEffectiveSettings where+        field _+          = Lens.Family2.Unchecked.lens _TypeEffectiveSettings'attackType+              (\ x__ y__ -> x__{_TypeEffectiveSettings'attackType = y__})++instance Data.Default.Class.Default TypeEffectiveSettings where+        def+          = TypeEffectiveSettings{_TypeEffectiveSettings'attackScalar = [],+                                  _TypeEffectiveSettings'attackType = Data.Default.Class.def}++instance Data.ProtoLens.Message TypeEffectiveSettings where+        descriptor+          = let attackScalar__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "attack_scalar"+                      (Data.ProtoLens.FloatField ::+                         Data.ProtoLens.FieldTypeDescriptor Prelude.Float)+                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked attackScalar)+                attackType__field_descriptor+                  = Data.ProtoLens.FieldDescriptor "attack_type"+                      (Data.ProtoLens.EnumField ::+                         Data.ProtoLens.FieldTypeDescriptor+                           Proto.POGOProtos.Enums.PokemonType.PokemonType)+                      (Data.ProtoLens.PlainField Data.ProtoLens.Optional attackType)+              in+              Data.ProtoLens.MessageDescriptor+                (Data.Map.fromList+                   [(Data.ProtoLens.Tag 1, attackScalar__field_descriptor),+                    (Data.ProtoLens.Tag 2, attackType__field_descriptor)])+                (Data.Map.fromList+                   [("attack_scalar", attackScalar__field_descriptor),+                    ("attack_type", attackType__field_descriptor)])++attackScalar ::+             forall msg msg' .+               Data.ProtoLens.HasField "attackScalar" msg msg' =>+               Lens.Family2.Lens msg msg'+                 (Data.ProtoLens.Field "attackScalar" msg)+                 (Data.ProtoLens.Field "attackScalar" msg')+attackScalar+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "attackScalar")++attackType ::+           forall msg msg' . Data.ProtoLens.HasField "attackType" msg msg' =>+             Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "attackType" msg)+               (Data.ProtoLens.Field "attackType" msg')+attackType+  = Data.ProtoLens.field+      (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "attackType")