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 ::
[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 _
= 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 = [],
_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.RepeatedField Data.ProtoLens.Unpacked 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")
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")