wireform-proto-0.2.0.0: bench/compare/gen/Proto/Bench.hs
{- This file was auto-generated from bench.proto by the proto-lens-protoc program. -}
{-# LANGUAGE BangPatterns #-}
{- This file was auto-generated from bench.proto by the proto-lens-protoc program. -}
{-# LANGUAGE DataKinds #-}
{- This file was auto-generated from bench.proto by the proto-lens-protoc program. -}
{-# LANGUAGE DerivingStrategies #-}
{- This file was auto-generated from bench.proto by the proto-lens-protoc program. -}
{-# LANGUAGE FlexibleContexts #-}
{- This file was auto-generated from bench.proto by the proto-lens-protoc program. -}
{-# LANGUAGE FlexibleInstances #-}
{- This file was auto-generated from bench.proto by the proto-lens-protoc program. -}
{-# LANGUAGE GeneralizedNewtypeDeriving #-}
{- This file was auto-generated from bench.proto by the proto-lens-protoc program. -}
{-# LANGUAGE MagicHash #-}
{- This file was auto-generated from bench.proto by the proto-lens-protoc program. -}
{-# LANGUAGE MultiParamTypeClasses #-}
{- This file was auto-generated from bench.proto by the proto-lens-protoc program. -}
{-# LANGUAGE OverloadedStrings #-}
{- This file was auto-generated from bench.proto by the proto-lens-protoc program. -}
{-# LANGUAGE PatternSynonyms #-}
{- This file was auto-generated from bench.proto by the proto-lens-protoc program. -}
{-# LANGUAGE ScopedTypeVariables #-}
{- This file was auto-generated from bench.proto by the proto-lens-protoc program. -}
{-# LANGUAGE TypeApplications #-}
{- This file was auto-generated from bench.proto by the proto-lens-protoc program. -}
{-# LANGUAGE TypeFamilies #-}
{- This file was auto-generated from bench.proto by the proto-lens-protoc program. -}
{-# LANGUAGE UndecidableInstances #-}
{- This file was auto-generated from bench.proto by the proto-lens-protoc program. -}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_GHC -Wno-dodgy-exports #-}
{-# OPTIONS_GHC -Wno-duplicate-exports #-}
{-# OPTIONS_GHC -Wno-unused-imports #-}
module Proto.Bench (
Medium (),
Small (),
WithNested (),
WithRepeated (),
) where
import Data.ProtoLens.Runtime.Control.DeepSeq qualified as Control.DeepSeq
import Data.ProtoLens.Runtime.Data.ByteString qualified as Data.ByteString
import Data.ProtoLens.Runtime.Data.ByteString.Char8 qualified as Data.ByteString.Char8
import Data.ProtoLens.Runtime.Data.Int qualified as Data.Int
import Data.ProtoLens.Runtime.Data.Map qualified as Data.Map
import Data.ProtoLens.Runtime.Data.Monoid qualified as Data.Monoid
import Data.ProtoLens.Runtime.Data.ProtoLens qualified as Data.ProtoLens
import Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Bytes qualified as Data.ProtoLens.Encoding.Bytes
import Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Growing qualified as Data.ProtoLens.Encoding.Growing
import Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Parser.Unsafe qualified as Data.ProtoLens.Encoding.Parser.Unsafe
import Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Wire qualified as Data.ProtoLens.Encoding.Wire
import Data.ProtoLens.Runtime.Data.ProtoLens.Field qualified as Data.ProtoLens.Field
import Data.ProtoLens.Runtime.Data.ProtoLens.Message.Enum qualified as Data.ProtoLens.Message.Enum
import Data.ProtoLens.Runtime.Data.ProtoLens.Prism qualified as Data.ProtoLens.Prism
import Data.ProtoLens.Runtime.Data.ProtoLens.Service.Types qualified as Data.ProtoLens.Service.Types
import Data.ProtoLens.Runtime.Data.Text qualified as Data.Text
import Data.ProtoLens.Runtime.Data.Text.Encoding qualified as Data.Text.Encoding
import Data.ProtoLens.Runtime.Data.Vector qualified as Data.Vector
import Data.ProtoLens.Runtime.Data.Vector.Generic qualified as Data.Vector.Generic
import Data.ProtoLens.Runtime.Data.Vector.Unboxed qualified as Data.Vector.Unboxed
import Data.ProtoLens.Runtime.Data.Word qualified as Data.Word
import Data.ProtoLens.Runtime.Lens.Family2 qualified as Lens.Family2
import Data.ProtoLens.Runtime.Lens.Family2.Unchecked qualified as Lens.Family2.Unchecked
import Data.ProtoLens.Runtime.Prelude qualified as Prelude
import Data.ProtoLens.Runtime.Text.Read qualified as Text.Read
{- | Fields :
* 'Proto.Bench_Fields.title' @:: Lens' Medium Data.Text.Text@
* 'Proto.Bench_Fields.count' @:: Lens' Medium Data.Int.Int32@
* 'Proto.Bench_Fields.score' @:: Lens' Medium Prelude.Double@
* 'Proto.Bench_Fields.payload' @:: Lens' Medium Data.ByteString.ByteString@
* 'Proto.Bench_Fields.enabled' @:: Lens' Medium Prelude.Bool@
* 'Proto.Bench_Fields.timestamp' @:: Lens' Medium Data.Int.Int64@
* 'Proto.Bench_Fields.description' @:: Lens' Medium Data.Text.Text@
* 'Proto.Bench_Fields.ratio' @:: Lens' Medium Prelude.Float@
-}
data Medium
= Medium'_constructor
{ _Medium'title :: !Data.Text.Text
, _Medium'count :: !Data.Int.Int32
, _Medium'score :: !Prelude.Double
, _Medium'payload :: !Data.ByteString.ByteString
, _Medium'enabled :: !Prelude.Bool
, _Medium'timestamp :: !Data.Int.Int64
, _Medium'description :: !Data.Text.Text
, _Medium'ratio :: !Prelude.Float
, _Medium'_unknownFields :: !Data.ProtoLens.FieldSet
}
deriving stock (Prelude.Eq, Prelude.Ord)
instance Prelude.Show Medium where
showsPrec _ __x __s =
Prelude.showChar
'{'
( Prelude.showString
(Data.ProtoLens.showMessageShort __x)
(Prelude.showChar '}' __s)
)
instance Data.ProtoLens.Field.HasField Medium "title" Data.Text.Text where
fieldOf _ =
(Prelude..)
( Lens.Family2.Unchecked.lens
_Medium'title
(\x__ y__ -> x__ {_Medium'title = y__})
)
Prelude.id
instance Data.ProtoLens.Field.HasField Medium "count" Data.Int.Int32 where
fieldOf _ =
(Prelude..)
( Lens.Family2.Unchecked.lens
_Medium'count
(\x__ y__ -> x__ {_Medium'count = y__})
)
Prelude.id
instance Data.ProtoLens.Field.HasField Medium "score" Prelude.Double where
fieldOf _ =
(Prelude..)
( Lens.Family2.Unchecked.lens
_Medium'score
(\x__ y__ -> x__ {_Medium'score = y__})
)
Prelude.id
instance Data.ProtoLens.Field.HasField Medium "payload" Data.ByteString.ByteString where
fieldOf _ =
(Prelude..)
( Lens.Family2.Unchecked.lens
_Medium'payload
(\x__ y__ -> x__ {_Medium'payload = y__})
)
Prelude.id
instance Data.ProtoLens.Field.HasField Medium "enabled" Prelude.Bool where
fieldOf _ =
(Prelude..)
( Lens.Family2.Unchecked.lens
_Medium'enabled
(\x__ y__ -> x__ {_Medium'enabled = y__})
)
Prelude.id
instance Data.ProtoLens.Field.HasField Medium "timestamp" Data.Int.Int64 where
fieldOf _ =
(Prelude..)
( Lens.Family2.Unchecked.lens
_Medium'timestamp
(\x__ y__ -> x__ {_Medium'timestamp = y__})
)
Prelude.id
instance Data.ProtoLens.Field.HasField Medium "description" Data.Text.Text where
fieldOf _ =
(Prelude..)
( Lens.Family2.Unchecked.lens
_Medium'description
(\x__ y__ -> x__ {_Medium'description = y__})
)
Prelude.id
instance Data.ProtoLens.Field.HasField Medium "ratio" Prelude.Float where
fieldOf _ =
(Prelude..)
( Lens.Family2.Unchecked.lens
_Medium'ratio
(\x__ y__ -> x__ {_Medium'ratio = y__})
)
Prelude.id
instance Data.ProtoLens.Message Medium where
messageName _ = Data.Text.pack "bench.Medium"
packedMessageDescriptor _ =
"\n\
\\ACKMedium\DC2\DC4\n\
\\ENQtitle\CAN\SOH \SOH(\tR\ENQtitle\DC2\DC4\n\
\\ENQcount\CAN\STX \SOH(\ENQR\ENQcount\DC2\DC4\n\
\\ENQscore\CAN\ETX \SOH(\SOHR\ENQscore\DC2\CAN\n\
\\apayload\CAN\EOT \SOH(\fR\apayload\DC2\CAN\n\
\\aenabled\CAN\ENQ \SOH(\bR\aenabled\DC2\FS\n\
\\ttimestamp\CAN\ACK \SOH(\ETXR\ttimestamp\DC2 \n\
\\vdescription\CAN\a \SOH(\tR\vdescription\DC2\DC4\n\
\\ENQratio\CAN\b \SOH(\STXR\ENQratio"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag =
let
title__field_descriptor =
Data.ProtoLens.FieldDescriptor
"title"
( Data.ProtoLens.ScalarField Data.ProtoLens.StringField
:: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text
)
( Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"title")
)
:: Data.ProtoLens.FieldDescriptor Medium
count__field_descriptor =
Data.ProtoLens.FieldDescriptor
"count"
( Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field
:: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32
)
( Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"count")
)
:: Data.ProtoLens.FieldDescriptor Medium
score__field_descriptor =
Data.ProtoLens.FieldDescriptor
"score"
( Data.ProtoLens.ScalarField Data.ProtoLens.DoubleField
:: Data.ProtoLens.FieldTypeDescriptor Prelude.Double
)
( Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"score")
)
:: Data.ProtoLens.FieldDescriptor Medium
payload__field_descriptor =
Data.ProtoLens.FieldDescriptor
"payload"
( Data.ProtoLens.ScalarField Data.ProtoLens.BytesField
:: Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString
)
( Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"payload")
)
:: Data.ProtoLens.FieldDescriptor Medium
enabled__field_descriptor =
Data.ProtoLens.FieldDescriptor
"enabled"
( Data.ProtoLens.ScalarField Data.ProtoLens.BoolField
:: Data.ProtoLens.FieldTypeDescriptor Prelude.Bool
)
( Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"enabled")
)
:: Data.ProtoLens.FieldDescriptor Medium
timestamp__field_descriptor =
Data.ProtoLens.FieldDescriptor
"timestamp"
( Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field
:: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64
)
( Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"timestamp")
)
:: Data.ProtoLens.FieldDescriptor Medium
description__field_descriptor =
Data.ProtoLens.FieldDescriptor
"description"
( Data.ProtoLens.ScalarField Data.ProtoLens.StringField
:: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text
)
( Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"description")
)
:: Data.ProtoLens.FieldDescriptor Medium
ratio__field_descriptor =
Data.ProtoLens.FieldDescriptor
"ratio"
( Data.ProtoLens.ScalarField Data.ProtoLens.FloatField
:: Data.ProtoLens.FieldTypeDescriptor Prelude.Float
)
( Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"ratio")
)
:: Data.ProtoLens.FieldDescriptor Medium
in
Data.Map.fromList
[ (Data.ProtoLens.Tag 1, title__field_descriptor)
, (Data.ProtoLens.Tag 2, count__field_descriptor)
, (Data.ProtoLens.Tag 3, score__field_descriptor)
, (Data.ProtoLens.Tag 4, payload__field_descriptor)
, (Data.ProtoLens.Tag 5, enabled__field_descriptor)
, (Data.ProtoLens.Tag 6, timestamp__field_descriptor)
, (Data.ProtoLens.Tag 7, description__field_descriptor)
, (Data.ProtoLens.Tag 8, ratio__field_descriptor)
]
unknownFields =
Lens.Family2.Unchecked.lens
_Medium'_unknownFields
(\x__ y__ -> x__ {_Medium'_unknownFields = y__})
defMessage =
Medium'_constructor
{ _Medium'title = Data.ProtoLens.fieldDefault
, _Medium'count = Data.ProtoLens.fieldDefault
, _Medium'score = Data.ProtoLens.fieldDefault
, _Medium'payload = Data.ProtoLens.fieldDefault
, _Medium'enabled = Data.ProtoLens.fieldDefault
, _Medium'timestamp = Data.ProtoLens.fieldDefault
, _Medium'description = Data.ProtoLens.fieldDefault
, _Medium'ratio = Data.ProtoLens.fieldDefault
, _Medium'_unknownFields = []
}
parseMessage =
let
loop :: Medium -> Data.ProtoLens.Encoding.Bytes.Parser Medium
loop x =
do
end <- Data.ProtoLens.Encoding.Bytes.atEnd
if end
then do
( let missing = []
in if Prelude.null missing
then
Prelude.return ()
else
Prelude.fail
( (Prelude.++)
"Missing required fields: "
(Prelude.show (missing :: [Prelude.String]))
)
)
Prelude.return
( Lens.Family2.over
Data.ProtoLens.unknownFields
(\ !t -> Prelude.reverse t)
x
)
else do
tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
case tag of
10 ->
do
y <-
(Data.ProtoLens.Encoding.Bytes.<?>)
( do
len <- Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.getText
(Prelude.fromIntegral len)
)
"title"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"title") y x)
16 ->
do
y <-
(Data.ProtoLens.Encoding.Bytes.<?>)
( Prelude.fmap
Prelude.fromIntegral
Data.ProtoLens.Encoding.Bytes.getVarInt
)
"count"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"count") y x)
25 ->
do
y <-
(Data.ProtoLens.Encoding.Bytes.<?>)
( Prelude.fmap
Data.ProtoLens.Encoding.Bytes.wordToDouble
Data.ProtoLens.Encoding.Bytes.getFixed64
)
"score"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"score") y x)
34 ->
do
y <-
(Data.ProtoLens.Encoding.Bytes.<?>)
( do
len <- Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.getBytes
(Prelude.fromIntegral len)
)
"payload"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"payload") y x)
40 ->
do
y <-
(Data.ProtoLens.Encoding.Bytes.<?>)
( Prelude.fmap
((Prelude./=) 0)
Data.ProtoLens.Encoding.Bytes.getVarInt
)
"enabled"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"enabled") y x)
48 ->
do
y <-
(Data.ProtoLens.Encoding.Bytes.<?>)
( Prelude.fmap
Prelude.fromIntegral
Data.ProtoLens.Encoding.Bytes.getVarInt
)
"timestamp"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"timestamp") y x)
58 ->
do
y <-
(Data.ProtoLens.Encoding.Bytes.<?>)
( do
len <- Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.getText
(Prelude.fromIntegral len)
)
"description"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"description") y x)
69 ->
do
y <-
(Data.ProtoLens.Encoding.Bytes.<?>)
( Prelude.fmap
Data.ProtoLens.Encoding.Bytes.wordToFloat
Data.ProtoLens.Encoding.Bytes.getFixed32
)
"ratio"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"ratio") y x)
wire ->
do
!y <-
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
wire
loop
( Lens.Family2.over
Data.ProtoLens.unknownFields
(\ !t -> (:) y t)
x
)
in
(Data.ProtoLens.Encoding.Bytes.<?>)
(do loop Data.ProtoLens.defMessage)
"Medium"
buildMessage =
\_x ->
(Data.Monoid.<>)
( let
_v = Lens.Family2.view (Data.ProtoLens.Field.field @"title") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault
then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 10)
( (Prelude..)
( \bs ->
(Data.Monoid.<>)
( Data.ProtoLens.Encoding.Bytes.putVarInt
(Prelude.fromIntegral (Data.ByteString.length bs))
)
(Data.ProtoLens.Encoding.Bytes.putBytes bs)
)
Data.Text.Encoding.encodeUtf8
_v
)
)
( (Data.Monoid.<>)
( let
_v = Lens.Family2.view (Data.ProtoLens.Field.field @"count") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault
then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 16)
( (Prelude..)
Data.ProtoLens.Encoding.Bytes.putVarInt
Prelude.fromIntegral
_v
)
)
( (Data.Monoid.<>)
( let
_v = Lens.Family2.view (Data.ProtoLens.Field.field @"score") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault
then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 25)
( (Prelude..)
Data.ProtoLens.Encoding.Bytes.putFixed64
Data.ProtoLens.Encoding.Bytes.doubleToWord
_v
)
)
( (Data.Monoid.<>)
( let
_v = Lens.Family2.view (Data.ProtoLens.Field.field @"payload") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault
then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 34)
( ( \bs ->
(Data.Monoid.<>)
( Data.ProtoLens.Encoding.Bytes.putVarInt
(Prelude.fromIntegral (Data.ByteString.length bs))
)
(Data.ProtoLens.Encoding.Bytes.putBytes bs)
)
_v
)
)
( (Data.Monoid.<>)
( let
_v = Lens.Family2.view (Data.ProtoLens.Field.field @"enabled") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault
then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 40)
( (Prelude..)
Data.ProtoLens.Encoding.Bytes.putVarInt
(\b -> if b then 1 else 0)
_v
)
)
( (Data.Monoid.<>)
( let
_v = Lens.Family2.view (Data.ProtoLens.Field.field @"timestamp") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault
then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 48)
( (Prelude..)
Data.ProtoLens.Encoding.Bytes.putVarInt
Prelude.fromIntegral
_v
)
)
( (Data.Monoid.<>)
( let
_v =
Lens.Family2.view
(Data.ProtoLens.Field.field @"description")
_x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault
then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 58)
( (Prelude..)
( \bs ->
(Data.Monoid.<>)
( Data.ProtoLens.Encoding.Bytes.putVarInt
( Prelude.fromIntegral
(Data.ByteString.length bs)
)
)
(Data.ProtoLens.Encoding.Bytes.putBytes bs)
)
Data.Text.Encoding.encodeUtf8
_v
)
)
( (Data.Monoid.<>)
( let
_v = Lens.Family2.view (Data.ProtoLens.Field.field @"ratio") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault
then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 69)
( (Prelude..)
Data.ProtoLens.Encoding.Bytes.putFixed32
Data.ProtoLens.Encoding.Bytes.floatToWord
_v
)
)
( Data.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x)
)
)
)
)
)
)
)
)
instance Control.DeepSeq.NFData Medium where
rnf =
\x__ ->
Control.DeepSeq.deepseq
(_Medium'_unknownFields x__)
( Control.DeepSeq.deepseq
(_Medium'title x__)
( Control.DeepSeq.deepseq
(_Medium'count x__)
( Control.DeepSeq.deepseq
(_Medium'score x__)
( Control.DeepSeq.deepseq
(_Medium'payload x__)
( Control.DeepSeq.deepseq
(_Medium'enabled x__)
( Control.DeepSeq.deepseq
(_Medium'timestamp x__)
( Control.DeepSeq.deepseq
(_Medium'description x__)
(Control.DeepSeq.deepseq (_Medium'ratio x__) ())
)
)
)
)
)
)
)
{- | Fields :
* 'Proto.Bench_Fields.id' @:: Lens' Small Data.Int.Int64@
* 'Proto.Bench_Fields.name' @:: Lens' Small Data.Text.Text@
* 'Proto.Bench_Fields.active' @:: Lens' Small Prelude.Bool@
-}
data Small
= Small'_constructor
{ _Small'id :: !Data.Int.Int64
, _Small'name :: !Data.Text.Text
, _Small'active :: !Prelude.Bool
, _Small'_unknownFields :: !Data.ProtoLens.FieldSet
}
deriving stock (Prelude.Eq, Prelude.Ord)
instance Prelude.Show Small where
showsPrec _ __x __s =
Prelude.showChar
'{'
( Prelude.showString
(Data.ProtoLens.showMessageShort __x)
(Prelude.showChar '}' __s)
)
instance Data.ProtoLens.Field.HasField Small "id" Data.Int.Int64 where
fieldOf _ =
(Prelude..)
( Lens.Family2.Unchecked.lens
_Small'id
(\x__ y__ -> x__ {_Small'id = y__})
)
Prelude.id
instance Data.ProtoLens.Field.HasField Small "name" Data.Text.Text where
fieldOf _ =
(Prelude..)
( Lens.Family2.Unchecked.lens
_Small'name
(\x__ y__ -> x__ {_Small'name = y__})
)
Prelude.id
instance Data.ProtoLens.Field.HasField Small "active" Prelude.Bool where
fieldOf _ =
(Prelude..)
( Lens.Family2.Unchecked.lens
_Small'active
(\x__ y__ -> x__ {_Small'active = y__})
)
Prelude.id
instance Data.ProtoLens.Message Small where
messageName _ = Data.Text.pack "bench.Small"
packedMessageDescriptor _ =
"\n\
\\ENQSmall\DC2\SO\n\
\\STXid\CAN\SOH \SOH(\ETXR\STXid\DC2\DC2\n\
\\EOTname\CAN\STX \SOH(\tR\EOTname\DC2\SYN\n\
\\ACKactive\CAN\ETX \SOH(\bR\ACKactive"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag =
let
id__field_descriptor =
Data.ProtoLens.FieldDescriptor
"id"
( Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field
:: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64
)
( Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"id")
)
:: Data.ProtoLens.FieldDescriptor Small
name__field_descriptor =
Data.ProtoLens.FieldDescriptor
"name"
( Data.ProtoLens.ScalarField Data.ProtoLens.StringField
:: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text
)
( Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"name")
)
:: Data.ProtoLens.FieldDescriptor Small
active__field_descriptor =
Data.ProtoLens.FieldDescriptor
"active"
( Data.ProtoLens.ScalarField Data.ProtoLens.BoolField
:: Data.ProtoLens.FieldTypeDescriptor Prelude.Bool
)
( Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"active")
)
:: Data.ProtoLens.FieldDescriptor Small
in
Data.Map.fromList
[ (Data.ProtoLens.Tag 1, id__field_descriptor)
, (Data.ProtoLens.Tag 2, name__field_descriptor)
, (Data.ProtoLens.Tag 3, active__field_descriptor)
]
unknownFields =
Lens.Family2.Unchecked.lens
_Small'_unknownFields
(\x__ y__ -> x__ {_Small'_unknownFields = y__})
defMessage =
Small'_constructor
{ _Small'id = Data.ProtoLens.fieldDefault
, _Small'name = Data.ProtoLens.fieldDefault
, _Small'active = Data.ProtoLens.fieldDefault
, _Small'_unknownFields = []
}
parseMessage =
let
loop :: Small -> Data.ProtoLens.Encoding.Bytes.Parser Small
loop x =
do
end <- Data.ProtoLens.Encoding.Bytes.atEnd
if end
then do
( let missing = []
in if Prelude.null missing
then
Prelude.return ()
else
Prelude.fail
( (Prelude.++)
"Missing required fields: "
(Prelude.show (missing :: [Prelude.String]))
)
)
Prelude.return
( Lens.Family2.over
Data.ProtoLens.unknownFields
(\ !t -> Prelude.reverse t)
x
)
else do
tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
case tag of
8 -> do
y <-
(Data.ProtoLens.Encoding.Bytes.<?>)
( Prelude.fmap
Prelude.fromIntegral
Data.ProtoLens.Encoding.Bytes.getVarInt
)
"id"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"id") y x)
18 ->
do
y <-
(Data.ProtoLens.Encoding.Bytes.<?>)
( do
len <- Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.getText
(Prelude.fromIntegral len)
)
"name"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"name") y x)
24 ->
do
y <-
(Data.ProtoLens.Encoding.Bytes.<?>)
( Prelude.fmap
((Prelude./=) 0)
Data.ProtoLens.Encoding.Bytes.getVarInt
)
"active"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"active") y x)
wire ->
do
!y <-
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
wire
loop
( Lens.Family2.over
Data.ProtoLens.unknownFields
(\ !t -> (:) y t)
x
)
in
(Data.ProtoLens.Encoding.Bytes.<?>)
(do loop Data.ProtoLens.defMessage)
"Small"
buildMessage =
\_x ->
(Data.Monoid.<>)
( let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"id") _x
in if (Prelude.==) _v Data.ProtoLens.fieldDefault
then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 8)
( (Prelude..)
Data.ProtoLens.Encoding.Bytes.putVarInt
Prelude.fromIntegral
_v
)
)
( (Data.Monoid.<>)
( let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"name") _x
in if (Prelude.==) _v Data.ProtoLens.fieldDefault
then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 18)
( (Prelude..)
( \bs ->
(Data.Monoid.<>)
( Data.ProtoLens.Encoding.Bytes.putVarInt
(Prelude.fromIntegral (Data.ByteString.length bs))
)
(Data.ProtoLens.Encoding.Bytes.putBytes bs)
)
Data.Text.Encoding.encodeUtf8
_v
)
)
( (Data.Monoid.<>)
( let
_v = Lens.Family2.view (Data.ProtoLens.Field.field @"active") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault
then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 24)
( (Prelude..)
Data.ProtoLens.Encoding.Bytes.putVarInt
(\b -> if b then 1 else 0)
_v
)
)
( Data.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x)
)
)
)
instance Control.DeepSeq.NFData Small where
rnf =
\x__ ->
Control.DeepSeq.deepseq
(_Small'_unknownFields x__)
( Control.DeepSeq.deepseq
(_Small'id x__)
( Control.DeepSeq.deepseq
(_Small'name x__)
(Control.DeepSeq.deepseq (_Small'active x__) ())
)
)
{- | Fields :
* 'Proto.Bench_Fields.id' @:: Lens' WithNested Data.Int.Int64@
* 'Proto.Bench_Fields.inner' @:: Lens' WithNested Small@
* 'Proto.Bench_Fields.maybe'inner' @:: Lens' WithNested (Prelude.Maybe Small)@
* 'Proto.Bench_Fields.label' @:: Lens' WithNested Data.Text.Text@
-}
data WithNested
= WithNested'_constructor
{ _WithNested'id :: !Data.Int.Int64
, _WithNested'inner :: !(Prelude.Maybe Small)
, _WithNested'label :: !Data.Text.Text
, _WithNested'_unknownFields :: !Data.ProtoLens.FieldSet
}
deriving stock (Prelude.Eq, Prelude.Ord)
instance Prelude.Show WithNested where
showsPrec _ __x __s =
Prelude.showChar
'{'
( Prelude.showString
(Data.ProtoLens.showMessageShort __x)
(Prelude.showChar '}' __s)
)
instance Data.ProtoLens.Field.HasField WithNested "id" Data.Int.Int64 where
fieldOf _ =
(Prelude..)
( Lens.Family2.Unchecked.lens
_WithNested'id
(\x__ y__ -> x__ {_WithNested'id = y__})
)
Prelude.id
instance Data.ProtoLens.Field.HasField WithNested "inner" Small where
fieldOf _ =
(Prelude..)
( Lens.Family2.Unchecked.lens
_WithNested'inner
(\x__ y__ -> x__ {_WithNested'inner = y__})
)
(Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField WithNested "maybe'inner" (Prelude.Maybe Small) where
fieldOf _ =
(Prelude..)
( Lens.Family2.Unchecked.lens
_WithNested'inner
(\x__ y__ -> x__ {_WithNested'inner = y__})
)
Prelude.id
instance Data.ProtoLens.Field.HasField WithNested "label" Data.Text.Text where
fieldOf _ =
(Prelude..)
( Lens.Family2.Unchecked.lens
_WithNested'label
(\x__ y__ -> x__ {_WithNested'label = y__})
)
Prelude.id
instance Data.ProtoLens.Message WithNested where
messageName _ = Data.Text.pack "bench.WithNested"
packedMessageDescriptor _ =
"\n\
\\n\
\WithNested\DC2\SO\n\
\\STXid\CAN\SOH \SOH(\ETXR\STXid\DC2\"\n\
\\ENQinner\CAN\STX \SOH(\v2\f.bench.SmallR\ENQinner\DC2\DC4\n\
\\ENQlabel\CAN\ETX \SOH(\tR\ENQlabel"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag =
let
id__field_descriptor =
Data.ProtoLens.FieldDescriptor
"id"
( Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field
:: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64
)
( Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"id")
)
:: Data.ProtoLens.FieldDescriptor WithNested
inner__field_descriptor =
Data.ProtoLens.FieldDescriptor
"inner"
( Data.ProtoLens.MessageField Data.ProtoLens.MessageType
:: Data.ProtoLens.FieldTypeDescriptor Small
)
( Data.ProtoLens.OptionalField
(Data.ProtoLens.Field.field @"maybe'inner")
)
:: Data.ProtoLens.FieldDescriptor WithNested
label__field_descriptor =
Data.ProtoLens.FieldDescriptor
"label"
( Data.ProtoLens.ScalarField Data.ProtoLens.StringField
:: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text
)
( Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"label")
)
:: Data.ProtoLens.FieldDescriptor WithNested
in
Data.Map.fromList
[ (Data.ProtoLens.Tag 1, id__field_descriptor)
, (Data.ProtoLens.Tag 2, inner__field_descriptor)
, (Data.ProtoLens.Tag 3, label__field_descriptor)
]
unknownFields =
Lens.Family2.Unchecked.lens
_WithNested'_unknownFields
(\x__ y__ -> x__ {_WithNested'_unknownFields = y__})
defMessage =
WithNested'_constructor
{ _WithNested'id = Data.ProtoLens.fieldDefault
, _WithNested'inner = Prelude.Nothing
, _WithNested'label = Data.ProtoLens.fieldDefault
, _WithNested'_unknownFields = []
}
parseMessage =
let
loop
:: WithNested -> Data.ProtoLens.Encoding.Bytes.Parser WithNested
loop x =
do
end <- Data.ProtoLens.Encoding.Bytes.atEnd
if end
then do
( let missing = []
in if Prelude.null missing
then
Prelude.return ()
else
Prelude.fail
( (Prelude.++)
"Missing required fields: "
(Prelude.show (missing :: [Prelude.String]))
)
)
Prelude.return
( Lens.Family2.over
Data.ProtoLens.unknownFields
(\ !t -> Prelude.reverse t)
x
)
else do
tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
case tag of
8 -> do
y <-
(Data.ProtoLens.Encoding.Bytes.<?>)
( Prelude.fmap
Prelude.fromIntegral
Data.ProtoLens.Encoding.Bytes.getVarInt
)
"id"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"id") y x)
18 ->
do
y <-
(Data.ProtoLens.Encoding.Bytes.<?>)
( do
len <- Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.isolate
(Prelude.fromIntegral len)
Data.ProtoLens.parseMessage
)
"inner"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"inner") y x)
26 ->
do
y <-
(Data.ProtoLens.Encoding.Bytes.<?>)
( do
len <- Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.getText
(Prelude.fromIntegral len)
)
"label"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"label") y x)
wire ->
do
!y <-
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
wire
loop
( Lens.Family2.over
Data.ProtoLens.unknownFields
(\ !t -> (:) y t)
x
)
in
(Data.ProtoLens.Encoding.Bytes.<?>)
(do loop Data.ProtoLens.defMessage)
"WithNested"
buildMessage =
\_x ->
(Data.Monoid.<>)
( let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"id") _x
in if (Prelude.==) _v Data.ProtoLens.fieldDefault
then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 8)
( (Prelude..)
Data.ProtoLens.Encoding.Bytes.putVarInt
Prelude.fromIntegral
_v
)
)
( (Data.Monoid.<>)
( case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'inner") _x of
Prelude.Nothing -> Data.Monoid.mempty
(Prelude.Just _v) ->
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 18)
( (Prelude..)
( \bs ->
(Data.Monoid.<>)
( Data.ProtoLens.Encoding.Bytes.putVarInt
(Prelude.fromIntegral (Data.ByteString.length bs))
)
(Data.ProtoLens.Encoding.Bytes.putBytes bs)
)
Data.ProtoLens.encodeMessage
_v
)
)
( (Data.Monoid.<>)
( let
_v = Lens.Family2.view (Data.ProtoLens.Field.field @"label") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault
then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 26)
( (Prelude..)
( \bs ->
(Data.Monoid.<>)
( Data.ProtoLens.Encoding.Bytes.putVarInt
(Prelude.fromIntegral (Data.ByteString.length bs))
)
(Data.ProtoLens.Encoding.Bytes.putBytes bs)
)
Data.Text.Encoding.encodeUtf8
_v
)
)
( Data.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x)
)
)
)
instance Control.DeepSeq.NFData WithNested where
rnf =
\x__ ->
Control.DeepSeq.deepseq
(_WithNested'_unknownFields x__)
( Control.DeepSeq.deepseq
(_WithNested'id x__)
( Control.DeepSeq.deepseq
(_WithNested'inner x__)
(Control.DeepSeq.deepseq (_WithNested'label x__) ())
)
)
{- | Fields :
* 'Proto.Bench_Fields.values' @:: Lens' WithRepeated [Data.Int.Int32]@
* 'Proto.Bench_Fields.vec'values' @:: Lens' WithRepeated (Data.Vector.Unboxed.Vector Data.Int.Int32)@
* 'Proto.Bench_Fields.tags' @:: Lens' WithRepeated [Data.Text.Text]@
* 'Proto.Bench_Fields.vec'tags' @:: Lens' WithRepeated (Data.Vector.Vector Data.Text.Text)@
* 'Proto.Bench_Fields.items' @:: Lens' WithRepeated [Small]@
* 'Proto.Bench_Fields.vec'items' @:: Lens' WithRepeated (Data.Vector.Vector Small)@
-}
data WithRepeated
= WithRepeated'_constructor
{ _WithRepeated'values :: !(Data.Vector.Unboxed.Vector Data.Int.Int32)
, _WithRepeated'tags :: !(Data.Vector.Vector Data.Text.Text)
, _WithRepeated'items :: !(Data.Vector.Vector Small)
, _WithRepeated'_unknownFields :: !Data.ProtoLens.FieldSet
}
deriving stock (Prelude.Eq, Prelude.Ord)
instance Prelude.Show WithRepeated where
showsPrec _ __x __s =
Prelude.showChar
'{'
( Prelude.showString
(Data.ProtoLens.showMessageShort __x)
(Prelude.showChar '}' __s)
)
instance Data.ProtoLens.Field.HasField WithRepeated "values" [Data.Int.Int32] where
fieldOf _ =
(Prelude..)
( Lens.Family2.Unchecked.lens
_WithRepeated'values
(\x__ y__ -> x__ {_WithRepeated'values = y__})
)
( Lens.Family2.Unchecked.lens
Data.Vector.Generic.toList
(\_ y__ -> Data.Vector.Generic.fromList y__)
)
instance Data.ProtoLens.Field.HasField WithRepeated "vec'values" (Data.Vector.Unboxed.Vector Data.Int.Int32) where
fieldOf _ =
(Prelude..)
( Lens.Family2.Unchecked.lens
_WithRepeated'values
(\x__ y__ -> x__ {_WithRepeated'values = y__})
)
Prelude.id
instance Data.ProtoLens.Field.HasField WithRepeated "tags" [Data.Text.Text] where
fieldOf _ =
(Prelude..)
( Lens.Family2.Unchecked.lens
_WithRepeated'tags
(\x__ y__ -> x__ {_WithRepeated'tags = y__})
)
( Lens.Family2.Unchecked.lens
Data.Vector.Generic.toList
(\_ y__ -> Data.Vector.Generic.fromList y__)
)
instance Data.ProtoLens.Field.HasField WithRepeated "vec'tags" (Data.Vector.Vector Data.Text.Text) where
fieldOf _ =
(Prelude..)
( Lens.Family2.Unchecked.lens
_WithRepeated'tags
(\x__ y__ -> x__ {_WithRepeated'tags = y__})
)
Prelude.id
instance Data.ProtoLens.Field.HasField WithRepeated "items" [Small] where
fieldOf _ =
(Prelude..)
( Lens.Family2.Unchecked.lens
_WithRepeated'items
(\x__ y__ -> x__ {_WithRepeated'items = y__})
)
( Lens.Family2.Unchecked.lens
Data.Vector.Generic.toList
(\_ y__ -> Data.Vector.Generic.fromList y__)
)
instance Data.ProtoLens.Field.HasField WithRepeated "vec'items" (Data.Vector.Vector Small) where
fieldOf _ =
(Prelude..)
( Lens.Family2.Unchecked.lens
_WithRepeated'items
(\x__ y__ -> x__ {_WithRepeated'items = y__})
)
Prelude.id
instance Data.ProtoLens.Message WithRepeated where
messageName _ = Data.Text.pack "bench.WithRepeated"
packedMessageDescriptor _ =
"\n\
\\fWithRepeated\DC2\SYN\n\
\\ACKvalues\CAN\SOH \ETX(\ENQR\ACKvalues\DC2\DC2\n\
\\EOTtags\CAN\STX \ETX(\tR\EOTtags\DC2\"\n\
\\ENQitems\CAN\ETX \ETX(\v2\f.bench.SmallR\ENQitems"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag =
let
values__field_descriptor =
Data.ProtoLens.FieldDescriptor
"values"
( Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field
:: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32
)
( Data.ProtoLens.RepeatedField
Data.ProtoLens.Packed
(Data.ProtoLens.Field.field @"values")
)
:: Data.ProtoLens.FieldDescriptor WithRepeated
tags__field_descriptor =
Data.ProtoLens.FieldDescriptor
"tags"
( Data.ProtoLens.ScalarField Data.ProtoLens.StringField
:: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text
)
( Data.ProtoLens.RepeatedField
Data.ProtoLens.Unpacked
(Data.ProtoLens.Field.field @"tags")
)
:: Data.ProtoLens.FieldDescriptor WithRepeated
items__field_descriptor =
Data.ProtoLens.FieldDescriptor
"items"
( Data.ProtoLens.MessageField Data.ProtoLens.MessageType
:: Data.ProtoLens.FieldTypeDescriptor Small
)
( Data.ProtoLens.RepeatedField
Data.ProtoLens.Unpacked
(Data.ProtoLens.Field.field @"items")
)
:: Data.ProtoLens.FieldDescriptor WithRepeated
in
Data.Map.fromList
[ (Data.ProtoLens.Tag 1, values__field_descriptor)
, (Data.ProtoLens.Tag 2, tags__field_descriptor)
, (Data.ProtoLens.Tag 3, items__field_descriptor)
]
unknownFields =
Lens.Family2.Unchecked.lens
_WithRepeated'_unknownFields
(\x__ y__ -> x__ {_WithRepeated'_unknownFields = y__})
defMessage =
WithRepeated'_constructor
{ _WithRepeated'values = Data.Vector.Generic.empty
, _WithRepeated'tags = Data.Vector.Generic.empty
, _WithRepeated'items = Data.Vector.Generic.empty
, _WithRepeated'_unknownFields = []
}
parseMessage =
let
loop
:: WithRepeated
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Small
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.Text.Text
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Unboxed.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.Int.Int32
-> Data.ProtoLens.Encoding.Bytes.Parser WithRepeated
loop x mutable'items mutable'tags mutable'values =
do
end <- Data.ProtoLens.Encoding.Bytes.atEnd
if end
then do
frozen'items <-
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'items)
frozen'tags <-
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'tags)
frozen'values <-
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
( Data.ProtoLens.Encoding.Growing.unsafeFreeze
mutable'values
)
( let missing = []
in if Prelude.null missing
then
Prelude.return ()
else
Prelude.fail
( (Prelude.++)
"Missing required fields: "
(Prelude.show (missing :: [Prelude.String]))
)
)
Prelude.return
( Lens.Family2.over
Data.ProtoLens.unknownFields
(\ !t -> Prelude.reverse t)
( Lens.Family2.set
(Data.ProtoLens.Field.field @"vec'items")
frozen'items
( Lens.Family2.set
(Data.ProtoLens.Field.field @"vec'tags")
frozen'tags
( Lens.Family2.set
(Data.ProtoLens.Field.field @"vec'values")
frozen'values
x
)
)
)
)
else do
tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
case tag of
8 -> do
!y <-
(Data.ProtoLens.Encoding.Bytes.<?>)
( Prelude.fmap
Prelude.fromIntegral
Data.ProtoLens.Encoding.Bytes.getVarInt
)
"values"
v <-
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.append mutable'values y)
loop x mutable'items mutable'tags v
10 ->
do
y <- do
len <- Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.isolate
(Prelude.fromIntegral len)
( ( let
ploop qs =
do
packedEnd <- Data.ProtoLens.Encoding.Bytes.atEnd
if packedEnd
then
Prelude.return qs
else do
!q <-
(Data.ProtoLens.Encoding.Bytes.<?>)
( Prelude.fmap
Prelude.fromIntegral
Data.ProtoLens.Encoding.Bytes.getVarInt
)
"values"
qs' <-
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
( Data.ProtoLens.Encoding.Growing.append
qs
q
)
ploop qs'
in
ploop
)
mutable'values
)
loop x mutable'items mutable'tags y
18 ->
do
!y <-
(Data.ProtoLens.Encoding.Bytes.<?>)
( do
len <- Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.getText
(Prelude.fromIntegral len)
)
"tags"
v <-
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.append mutable'tags y)
loop x mutable'items v mutable'values
26 ->
do
!y <-
(Data.ProtoLens.Encoding.Bytes.<?>)
( do
len <- Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.isolate
(Prelude.fromIntegral len)
Data.ProtoLens.parseMessage
)
"items"
v <-
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.append mutable'items y)
loop x v mutable'tags mutable'values
wire ->
do
!y <-
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
wire
loop
( Lens.Family2.over
Data.ProtoLens.unknownFields
(\ !t -> (:) y t)
x
)
mutable'items
mutable'tags
mutable'values
in
(Data.ProtoLens.Encoding.Bytes.<?>)
( do
mutable'items <-
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
Data.ProtoLens.Encoding.Growing.new
mutable'tags <-
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
Data.ProtoLens.Encoding.Growing.new
mutable'values <-
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
Data.ProtoLens.Encoding.Growing.new
loop
Data.ProtoLens.defMessage
mutable'items
mutable'tags
mutable'values
)
"WithRepeated"
buildMessage =
\_x ->
(Data.Monoid.<>)
( let
p = Lens.Family2.view (Data.ProtoLens.Field.field @"vec'values") _x
in
if Data.Vector.Generic.null p
then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 10)
( ( \bs ->
(Data.Monoid.<>)
( Data.ProtoLens.Encoding.Bytes.putVarInt
(Prelude.fromIntegral (Data.ByteString.length bs))
)
(Data.ProtoLens.Encoding.Bytes.putBytes bs)
)
( Data.ProtoLens.Encoding.Bytes.runBuilder
( Data.ProtoLens.Encoding.Bytes.foldMapBuilder
( (Prelude..)
Data.ProtoLens.Encoding.Bytes.putVarInt
Prelude.fromIntegral
)
p
)
)
)
)
( (Data.Monoid.<>)
( Data.ProtoLens.Encoding.Bytes.foldMapBuilder
( \_v ->
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 18)
( (Prelude..)
( \bs ->
(Data.Monoid.<>)
( Data.ProtoLens.Encoding.Bytes.putVarInt
(Prelude.fromIntegral (Data.ByteString.length bs))
)
(Data.ProtoLens.Encoding.Bytes.putBytes bs)
)
Data.Text.Encoding.encodeUtf8
_v
)
)
(Lens.Family2.view (Data.ProtoLens.Field.field @"vec'tags") _x)
)
( (Data.Monoid.<>)
( Data.ProtoLens.Encoding.Bytes.foldMapBuilder
( \_v ->
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 26)
( (Prelude..)
( \bs ->
(Data.Monoid.<>)
( Data.ProtoLens.Encoding.Bytes.putVarInt
(Prelude.fromIntegral (Data.ByteString.length bs))
)
(Data.ProtoLens.Encoding.Bytes.putBytes bs)
)
Data.ProtoLens.encodeMessage
_v
)
)
(Lens.Family2.view (Data.ProtoLens.Field.field @"vec'items") _x)
)
( Data.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x)
)
)
)
instance Control.DeepSeq.NFData WithRepeated where
rnf =
\x__ ->
Control.DeepSeq.deepseq
(_WithRepeated'_unknownFields x__)
( Control.DeepSeq.deepseq
(_WithRepeated'values x__)
( Control.DeepSeq.deepseq
(_WithRepeated'tags x__)
(Control.DeepSeq.deepseq (_WithRepeated'items x__) ())
)
)
packedFileDescriptor :: Data.ByteString.ByteString
packedFileDescriptor =
"\n\
\\vbench.proto\DC2\ENQbench\"C\n\
\\ENQSmall\DC2\SO\n\
\\STXid\CAN\SOH \SOH(\ETXR\STXid\DC2\DC2\n\
\\EOTname\CAN\STX \SOH(\tR\EOTname\DC2\SYN\n\
\\ACKactive\CAN\ETX \SOH(\bR\ACKactive\"\212\SOH\n\
\\ACKMedium\DC2\DC4\n\
\\ENQtitle\CAN\SOH \SOH(\tR\ENQtitle\DC2\DC4\n\
\\ENQcount\CAN\STX \SOH(\ENQR\ENQcount\DC2\DC4\n\
\\ENQscore\CAN\ETX \SOH(\SOHR\ENQscore\DC2\CAN\n\
\\apayload\CAN\EOT \SOH(\fR\apayload\DC2\CAN\n\
\\aenabled\CAN\ENQ \SOH(\bR\aenabled\DC2\FS\n\
\\ttimestamp\CAN\ACK \SOH(\ETXR\ttimestamp\DC2 \n\
\\vdescription\CAN\a \SOH(\tR\vdescription\DC2\DC4\n\
\\ENQratio\CAN\b \SOH(\STXR\ENQratio\"V\n\
\\n\
\WithNested\DC2\SO\n\
\\STXid\CAN\SOH \SOH(\ETXR\STXid\DC2\"\n\
\\ENQinner\CAN\STX \SOH(\v2\f.bench.SmallR\ENQinner\DC2\DC4\n\
\\ENQlabel\CAN\ETX \SOH(\tR\ENQlabel\"^\n\
\\fWithRepeated\DC2\SYN\n\
\\ACKvalues\CAN\SOH \ETX(\ENQR\ACKvalues\DC2\DC2\n\
\\EOTtags\CAN\STX \ETX(\tR\EOTtags\DC2\"\n\
\\ENQitems\CAN\ETX \ETX(\v2\f.bench.SmallR\ENQitemsJ\139\n\
\\n\
\\ACK\DC2\EOT\NUL\NUL#\SOH\n\
\\b\n\
\\SOH\f\DC2\ETX\NUL\NUL\DC2\n\
\\b\n\
\\SOH\STX\DC2\ETX\STX\NUL\SO\n\
\8\n\
\\STX\EOT\NUL\DC2\EOT\ENQ\NUL\t\SOH\SUB, Small message for tight-loop benchmarking.\n\
\\n\
\\n\
\\n\
\\ETX\EOT\NUL\SOH\DC2\ETX\ENQ\b\r\n\
\\v\n\
\\EOT\EOT\NUL\STX\NUL\DC2\ETX\ACK\STX\SI\n\
\\f\n\
\\ENQ\EOT\NUL\STX\NUL\ENQ\DC2\ETX\ACK\STX\a\n\
\\f\n\
\\ENQ\EOT\NUL\STX\NUL\SOH\DC2\ETX\ACK\b\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\NUL\ETX\DC2\ETX\ACK\r\SO\n\
\\v\n\
\\EOT\EOT\NUL\STX\SOH\DC2\ETX\a\STX\DC2\n\
\\f\n\
\\ENQ\EOT\NUL\STX\SOH\ENQ\DC2\ETX\a\STX\b\n\
\\f\n\
\\ENQ\EOT\NUL\STX\SOH\SOH\DC2\ETX\a\t\r\n\
\\f\n\
\\ENQ\EOT\NUL\STX\SOH\ETX\DC2\ETX\a\DLE\DC1\n\
\\v\n\
\\EOT\EOT\NUL\STX\STX\DC2\ETX\b\STX\DC2\n\
\\f\n\
\\ENQ\EOT\NUL\STX\STX\ENQ\DC2\ETX\b\STX\ACK\n\
\\f\n\
\\ENQ\EOT\NUL\STX\STX\SOH\DC2\ETX\b\a\r\n\
\\f\n\
\\ENQ\EOT\NUL\STX\STX\ETX\DC2\ETX\b\DLE\DC1\n\
\5\n\
\\STX\EOT\SOH\DC2\EOT\f\NUL\NAK\SOH\SUB) Medium message with more field variety.\n\
\\n\
\\n\
\\n\
\\ETX\EOT\SOH\SOH\DC2\ETX\f\b\SO\n\
\\v\n\
\\EOT\EOT\SOH\STX\NUL\DC2\ETX\r\STX\DC3\n\
\\f\n\
\\ENQ\EOT\SOH\STX\NUL\ENQ\DC2\ETX\r\STX\b\n\
\\f\n\
\\ENQ\EOT\SOH\STX\NUL\SOH\DC2\ETX\r\t\SO\n\
\\f\n\
\\ENQ\EOT\SOH\STX\NUL\ETX\DC2\ETX\r\DC1\DC2\n\
\\v\n\
\\EOT\EOT\SOH\STX\SOH\DC2\ETX\SO\STX\DC2\n\
\\f\n\
\\ENQ\EOT\SOH\STX\SOH\ENQ\DC2\ETX\SO\STX\a\n\
\\f\n\
\\ENQ\EOT\SOH\STX\SOH\SOH\DC2\ETX\SO\b\r\n\
\\f\n\
\\ENQ\EOT\SOH\STX\SOH\ETX\DC2\ETX\SO\DLE\DC1\n\
\\v\n\
\\EOT\EOT\SOH\STX\STX\DC2\ETX\SI\STX\DC3\n\
\\f\n\
\\ENQ\EOT\SOH\STX\STX\ENQ\DC2\ETX\SI\STX\b\n\
\\f\n\
\\ENQ\EOT\SOH\STX\STX\SOH\DC2\ETX\SI\t\SO\n\
\\f\n\
\\ENQ\EOT\SOH\STX\STX\ETX\DC2\ETX\SI\DC1\DC2\n\
\\v\n\
\\EOT\EOT\SOH\STX\ETX\DC2\ETX\DLE\STX\DC4\n\
\\f\n\
\\ENQ\EOT\SOH\STX\ETX\ENQ\DC2\ETX\DLE\STX\a\n\
\\f\n\
\\ENQ\EOT\SOH\STX\ETX\SOH\DC2\ETX\DLE\b\SI\n\
\\f\n\
\\ENQ\EOT\SOH\STX\ETX\ETX\DC2\ETX\DLE\DC2\DC3\n\
\\v\n\
\\EOT\EOT\SOH\STX\EOT\DC2\ETX\DC1\STX\DC3\n\
\\f\n\
\\ENQ\EOT\SOH\STX\EOT\ENQ\DC2\ETX\DC1\STX\ACK\n\
\\f\n\
\\ENQ\EOT\SOH\STX\EOT\SOH\DC2\ETX\DC1\a\SO\n\
\\f\n\
\\ENQ\EOT\SOH\STX\EOT\ETX\DC2\ETX\DC1\DC1\DC2\n\
\\v\n\
\\EOT\EOT\SOH\STX\ENQ\DC2\ETX\DC2\STX\SYN\n\
\\f\n\
\\ENQ\EOT\SOH\STX\ENQ\ENQ\DC2\ETX\DC2\STX\a\n\
\\f\n\
\\ENQ\EOT\SOH\STX\ENQ\SOH\DC2\ETX\DC2\b\DC1\n\
\\f\n\
\\ENQ\EOT\SOH\STX\ENQ\ETX\DC2\ETX\DC2\DC4\NAK\n\
\\v\n\
\\EOT\EOT\SOH\STX\ACK\DC2\ETX\DC3\STX\EM\n\
\\f\n\
\\ENQ\EOT\SOH\STX\ACK\ENQ\DC2\ETX\DC3\STX\b\n\
\\f\n\
\\ENQ\EOT\SOH\STX\ACK\SOH\DC2\ETX\DC3\t\DC4\n\
\\f\n\
\\ENQ\EOT\SOH\STX\ACK\ETX\DC2\ETX\DC3\ETB\CAN\n\
\\v\n\
\\EOT\EOT\SOH\STX\a\DC2\ETX\DC4\STX\DC2\n\
\\f\n\
\\ENQ\EOT\SOH\STX\a\ENQ\DC2\ETX\DC4\STX\a\n\
\\f\n\
\\ENQ\EOT\SOH\STX\a\SOH\DC2\ETX\DC4\b\r\n\
\\f\n\
\\ENQ\EOT\SOH\STX\a\ETX\DC2\ETX\DC4\DLE\DC1\n\
\N\n\
\\STX\EOT\STX\DC2\EOT\CAN\NUL\FS\SOH\SUBB Message with a submessage for nested encode/decode benchmarking.\n\
\\n\
\\n\
\\n\
\\ETX\EOT\STX\SOH\DC2\ETX\CAN\b\DC2\n\
\\v\n\
\\EOT\EOT\STX\STX\NUL\DC2\ETX\EM\STX\SI\n\
\\f\n\
\\ENQ\EOT\STX\STX\NUL\ENQ\DC2\ETX\EM\STX\a\n\
\\f\n\
\\ENQ\EOT\STX\STX\NUL\SOH\DC2\ETX\EM\b\n\
\\n\
\\f\n\
\\ENQ\EOT\STX\STX\NUL\ETX\DC2\ETX\EM\r\SO\n\
\\v\n\
\\EOT\EOT\STX\STX\SOH\DC2\ETX\SUB\STX\DC2\n\
\\f\n\
\\ENQ\EOT\STX\STX\SOH\ACK\DC2\ETX\SUB\STX\a\n\
\\f\n\
\\ENQ\EOT\STX\STX\SOH\SOH\DC2\ETX\SUB\b\r\n\
\\f\n\
\\ENQ\EOT\STX\STX\SOH\ETX\DC2\ETX\SUB\DLE\DC1\n\
\\v\n\
\\EOT\EOT\STX\STX\STX\DC2\ETX\ESC\STX\DC3\n\
\\f\n\
\\ENQ\EOT\STX\STX\STX\ENQ\DC2\ETX\ESC\STX\b\n\
\\f\n\
\\ENQ\EOT\STX\STX\STX\SOH\DC2\ETX\ESC\t\SO\n\
\\f\n\
\\ENQ\EOT\STX\STX\STX\ETX\DC2\ETX\ESC\DC1\DC2\n\
\+\n\
\\STX\EOT\ETX\DC2\EOT\US\NUL#\SOH\SUB\US Message with repeated fields.\n\
\\n\
\\n\
\\n\
\\ETX\EOT\ETX\SOH\DC2\ETX\US\b\DC4\n\
\\v\n\
\\EOT\EOT\ETX\STX\NUL\DC2\ETX \STX\FS\n\
\\f\n\
\\ENQ\EOT\ETX\STX\NUL\EOT\DC2\ETX \STX\n\
\\n\
\\f\n\
\\ENQ\EOT\ETX\STX\NUL\ENQ\DC2\ETX \v\DLE\n\
\\f\n\
\\ENQ\EOT\ETX\STX\NUL\SOH\DC2\ETX \DC1\ETB\n\
\\f\n\
\\ENQ\EOT\ETX\STX\NUL\ETX\DC2\ETX \SUB\ESC\n\
\\v\n\
\\EOT\EOT\ETX\STX\SOH\DC2\ETX!\STX\ESC\n\
\\f\n\
\\ENQ\EOT\ETX\STX\SOH\EOT\DC2\ETX!\STX\n\
\\n\
\\f\n\
\\ENQ\EOT\ETX\STX\SOH\ENQ\DC2\ETX!\v\DC1\n\
\\f\n\
\\ENQ\EOT\ETX\STX\SOH\SOH\DC2\ETX!\DC2\SYN\n\
\\f\n\
\\ENQ\EOT\ETX\STX\SOH\ETX\DC2\ETX!\EM\SUB\n\
\\v\n\
\\EOT\EOT\ETX\STX\STX\DC2\ETX\"\STX\ESC\n\
\\f\n\
\\ENQ\EOT\ETX\STX\STX\EOT\DC2\ETX\"\STX\n\
\\n\
\\f\n\
\\ENQ\EOT\ETX\STX\STX\ACK\DC2\ETX\"\v\DLE\n\
\\f\n\
\\ENQ\EOT\ETX\STX\STX\SOH\DC2\ETX\"\DC1\SYN\n\
\\f\n\
\\ENQ\EOT\ETX\STX\STX\ETX\DC2\ETX\"\EM\SUBb\ACKproto3"