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")