{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,
UndecidableInstances, GeneralizedNewtypeDeriving,
MultiParamTypeClasses, FlexibleContexts, FlexibleInstances,
PatternSynonyms, MagicHash, NoImplicitPrelude, DataKinds,
BangPatterns, TypeApplications #-}
{-# OPTIONS_GHC -fno-warn-unused-imports#-}
{-# OPTIONS_GHC -fno-warn-duplicate-exports#-}
module Proto.Google.Protobuf.Compiler.Plugin
(CodeGeneratorRequest(), CodeGeneratorResponse(),
CodeGeneratorResponse'File(), Version())
where
import qualified Control.DeepSeq
import qualified Data.ProtoLens.Prism
import qualified Prelude
import qualified Data.Int
import qualified Data.Monoid
import qualified Data.Word
import qualified Data.ProtoLens
import qualified Data.ProtoLens.Encoding.Bytes
import qualified Data.ProtoLens.Encoding.Growing
import qualified Data.ProtoLens.Encoding.Parser.Unsafe
import qualified Data.ProtoLens.Encoding.Wire
import qualified Data.ProtoLens.Field
import qualified Data.ProtoLens.Message.Enum
import qualified Data.ProtoLens.Service.Types
import qualified Lens.Family2
import qualified Lens.Family2.Unchecked
import qualified Data.Text
import qualified Data.Map
import qualified Data.ByteString
import qualified Data.ByteString.Char8
import qualified Data.Text.Encoding
import qualified Data.Vector
import qualified Data.Vector.Generic
import qualified Data.Vector.Unboxed
import qualified Text.Read
import qualified Proto.Google.Protobuf.Descriptor
data CodeGeneratorRequest = CodeGeneratorRequest{_CodeGeneratorRequest'fileToGenerate
:: !(Data.Vector.Vector Data.Text.Text),
_CodeGeneratorRequest'parameter ::
!(Prelude.Maybe Data.Text.Text),
_CodeGeneratorRequest'protoFile ::
!(Data.Vector.Vector
Proto.Google.Protobuf.Descriptor.FileDescriptorProto),
_CodeGeneratorRequest'compilerVersion ::
!(Prelude.Maybe Version),
_CodeGeneratorRequest'_unknownFields ::
!Data.ProtoLens.FieldSet}
deriving (Prelude.Eq, Prelude.Ord)
instance Prelude.Show CodeGeneratorRequest where
showsPrec _ __x __s
= Prelude.showChar '{'
(Prelude.showString (Data.ProtoLens.showMessageShort __x)
(Prelude.showChar '}' __s))
instance Data.ProtoLens.Field.HasField CodeGeneratorRequest
"fileToGenerate"
([Data.Text.Text])
where
fieldOf _
= (Lens.Family2.Unchecked.lens _CodeGeneratorRequest'fileToGenerate
(\ x__ y__ -> x__{_CodeGeneratorRequest'fileToGenerate = y__}))
Prelude..
Lens.Family2.Unchecked.lens Data.Vector.Generic.toList
(\ _ y__ -> Data.Vector.Generic.fromList y__)
instance Data.ProtoLens.Field.HasField CodeGeneratorRequest
"vec'fileToGenerate"
(Data.Vector.Vector Data.Text.Text)
where
fieldOf _
= (Lens.Family2.Unchecked.lens _CodeGeneratorRequest'fileToGenerate
(\ x__ y__ -> x__{_CodeGeneratorRequest'fileToGenerate = y__}))
Prelude.. Prelude.id
instance Data.ProtoLens.Field.HasField CodeGeneratorRequest
"parameter"
(Data.Text.Text)
where
fieldOf _
= (Lens.Family2.Unchecked.lens _CodeGeneratorRequest'parameter
(\ x__ y__ -> x__{_CodeGeneratorRequest'parameter = y__}))
Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault
instance Data.ProtoLens.Field.HasField CodeGeneratorRequest
"maybe'parameter"
(Prelude.Maybe Data.Text.Text)
where
fieldOf _
= (Lens.Family2.Unchecked.lens _CodeGeneratorRequest'parameter
(\ x__ y__ -> x__{_CodeGeneratorRequest'parameter = y__}))
Prelude.. Prelude.id
instance Data.ProtoLens.Field.HasField CodeGeneratorRequest
"protoFile"
([Proto.Google.Protobuf.Descriptor.FileDescriptorProto])
where
fieldOf _
= (Lens.Family2.Unchecked.lens _CodeGeneratorRequest'protoFile
(\ x__ y__ -> x__{_CodeGeneratorRequest'protoFile = y__}))
Prelude..
Lens.Family2.Unchecked.lens Data.Vector.Generic.toList
(\ _ y__ -> Data.Vector.Generic.fromList y__)
instance Data.ProtoLens.Field.HasField CodeGeneratorRequest
"vec'protoFile"
(Data.Vector.Vector
Proto.Google.Protobuf.Descriptor.FileDescriptorProto)
where
fieldOf _
= (Lens.Family2.Unchecked.lens _CodeGeneratorRequest'protoFile
(\ x__ y__ -> x__{_CodeGeneratorRequest'protoFile = y__}))
Prelude.. Prelude.id
instance Data.ProtoLens.Field.HasField CodeGeneratorRequest
"compilerVersion"
(Version)
where
fieldOf _
= (Lens.Family2.Unchecked.lens
_CodeGeneratorRequest'compilerVersion
(\ x__ y__ -> x__{_CodeGeneratorRequest'compilerVersion = y__}))
Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.defMessage
instance Data.ProtoLens.Field.HasField CodeGeneratorRequest
"maybe'compilerVersion"
(Prelude.Maybe Version)
where
fieldOf _
= (Lens.Family2.Unchecked.lens
_CodeGeneratorRequest'compilerVersion
(\ x__ y__ -> x__{_CodeGeneratorRequest'compilerVersion = y__}))
Prelude.. Prelude.id
instance Data.ProtoLens.Message CodeGeneratorRequest where
messageName _
= Data.Text.pack "google.protobuf.compiler.CodeGeneratorRequest"
fieldsByTag
= let fileToGenerate__field_descriptor
= Data.ProtoLens.FieldDescriptor "file_to_generate"
(Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked
(Data.ProtoLens.Field.field @"fileToGenerate"))
:: Data.ProtoLens.FieldDescriptor CodeGeneratorRequest
parameter__field_descriptor
= Data.ProtoLens.FieldDescriptor "parameter"
(Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Data.ProtoLens.OptionalField
(Data.ProtoLens.Field.field @"maybe'parameter"))
:: Data.ProtoLens.FieldDescriptor CodeGeneratorRequest
protoFile__field_descriptor
= Data.ProtoLens.FieldDescriptor "proto_file"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor
Proto.Google.Protobuf.Descriptor.FileDescriptorProto)
(Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked
(Data.ProtoLens.Field.field @"protoFile"))
:: Data.ProtoLens.FieldDescriptor CodeGeneratorRequest
compilerVersion__field_descriptor
= Data.ProtoLens.FieldDescriptor "compiler_version"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Version)
(Data.ProtoLens.OptionalField
(Data.ProtoLens.Field.field @"maybe'compilerVersion"))
:: Data.ProtoLens.FieldDescriptor CodeGeneratorRequest
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, fileToGenerate__field_descriptor),
(Data.ProtoLens.Tag 2, parameter__field_descriptor),
(Data.ProtoLens.Tag 15, protoFile__field_descriptor),
(Data.ProtoLens.Tag 3, compilerVersion__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens _CodeGeneratorRequest'_unknownFields
(\ x__ y__ -> x__{_CodeGeneratorRequest'_unknownFields = y__})
defMessage
= CodeGeneratorRequest{_CodeGeneratorRequest'fileToGenerate =
Data.Vector.Generic.empty,
_CodeGeneratorRequest'parameter = Prelude.Nothing,
_CodeGeneratorRequest'protoFile = Data.Vector.Generic.empty,
_CodeGeneratorRequest'compilerVersion = Prelude.Nothing,
_CodeGeneratorRequest'_unknownFields = ([])}
parseMessage
= let loop ::
CodeGeneratorRequest ->
Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector
Data.ProtoLens.Encoding.Growing.RealWorld
Data.Text.Text
->
Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector
Data.ProtoLens.Encoding.Growing.RealWorld
Proto.Google.Protobuf.Descriptor.FileDescriptorProto
-> Data.ProtoLens.Encoding.Bytes.Parser CodeGeneratorRequest
loop x mutable'fileToGenerate mutable'protoFile
= do end <- Data.ProtoLens.Encoding.Bytes.atEnd
if end then
do frozen'fileToGenerate <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.unsafeFreeze
mutable'fileToGenerate)
frozen'protoFile <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.unsafeFreeze
mutable'protoFile)
let missing = [] in
if Prelude.null missing then Prelude.return () else
Prelude.fail
(("Missing required fields: ") Prelude.++
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'fileToGenerate")
frozen'fileToGenerate
(Lens.Family2.set (Data.ProtoLens.Field.field @"vec'protoFile")
frozen'protoFile
x)))
else
do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
case tag of
10 -> do !y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.getBytes
(Prelude.fromIntegral len)
Data.ProtoLens.Encoding.Bytes.runEither
(case Data.Text.Encoding.decodeUtf8' value of
Prelude.Left err -> Prelude.Left
(Prelude.show err)
Prelude.Right r -> Prelude.Right r))
Data.ProtoLens.Encoding.Bytes.<?>
"file_to_generate"
v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.append
mutable'fileToGenerate
y)
loop x v mutable'protoFile
18 -> do y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.getBytes
(Prelude.fromIntegral len)
Data.ProtoLens.Encoding.Bytes.runEither
(case Data.Text.Encoding.decodeUtf8' value of
Prelude.Left err -> Prelude.Left
(Prelude.show err)
Prelude.Right r -> Prelude.Right r))
Data.ProtoLens.Encoding.Bytes.<?> "parameter"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"parameter")
y
x)
mutable'fileToGenerate
mutable'protoFile
122 -> do !y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.isolate
(Prelude.fromIntegral len)
Data.ProtoLens.parseMessage)
Data.ProtoLens.Encoding.Bytes.<?> "proto_file"
v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.append
mutable'protoFile
y)
loop x mutable'fileToGenerate v
26 -> do y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.isolate
(Prelude.fromIntegral len)
Data.ProtoLens.parseMessage)
Data.ProtoLens.Encoding.Bytes.<?> "compiler_version"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"compilerVersion")
y
x)
mutable'fileToGenerate
mutable'protoFile
wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
wire
loop
(Lens.Family2.over Data.ProtoLens.unknownFields
(\ !t -> (:) y t)
x)
mutable'fileToGenerate
mutable'protoFile
in
(do mutable'fileToGenerate <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
Data.ProtoLens.Encoding.Growing.new
mutable'protoFile <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
Data.ProtoLens.Encoding.Growing.new
loop Data.ProtoLens.defMessage mutable'fileToGenerate
mutable'protoFile)
Data.ProtoLens.Encoding.Bytes.<?> "CodeGeneratorRequest"
buildMessage
= (\ _x ->
(Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ _v ->
(Data.ProtoLens.Encoding.Bytes.putVarInt 10) Data.Monoid.<>
(((\ bs ->
(Data.ProtoLens.Encoding.Bytes.putVarInt
(Prelude.fromIntegral (Data.ByteString.length bs)))
Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs))
Prelude.. Data.Text.Encoding.encodeUtf8)
_v)
(Lens.Family2.view
(Data.ProtoLens.Field.field @"vec'fileToGenerate")
_x))
Data.Monoid.<>
(case
Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'parameter")
_x
of
(Prelude.Nothing) -> Data.Monoid.mempty
Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 18)
Data.Monoid.<>
(((\ bs ->
(Data.ProtoLens.Encoding.Bytes.putVarInt
(Prelude.fromIntegral
(Data.ByteString.length bs)))
Data.Monoid.<>
Data.ProtoLens.Encoding.Bytes.putBytes bs))
Prelude.. Data.Text.Encoding.encodeUtf8)
_v)
Data.Monoid.<>
(Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ _v ->
(Data.ProtoLens.Encoding.Bytes.putVarInt 122) Data.Monoid.<>
(((\ bs ->
(Data.ProtoLens.Encoding.Bytes.putVarInt
(Prelude.fromIntegral (Data.ByteString.length bs)))
Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs))
Prelude.. Data.ProtoLens.encodeMessage)
_v)
(Lens.Family2.view (Data.ProtoLens.Field.field @"vec'protoFile")
_x))
Data.Monoid.<>
(case
Lens.Family2.view
(Data.ProtoLens.Field.field @"maybe'compilerVersion")
_x
of
(Prelude.Nothing) -> Data.Monoid.mempty
Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 26)
Data.Monoid.<>
(((\ bs ->
(Data.ProtoLens.Encoding.Bytes.putVarInt
(Prelude.fromIntegral
(Data.ByteString.length bs)))
Data.Monoid.<>
Data.ProtoLens.Encoding.Bytes.putBytes bs))
Prelude.. Data.ProtoLens.encodeMessage)
_v)
Data.Monoid.<>
Data.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x))
instance Control.DeepSeq.NFData CodeGeneratorRequest where
rnf
= (\ x__ ->
Control.DeepSeq.deepseq (_CodeGeneratorRequest'_unknownFields x__)
(Control.DeepSeq.deepseq (_CodeGeneratorRequest'fileToGenerate x__)
(Control.DeepSeq.deepseq (_CodeGeneratorRequest'parameter x__)
(Control.DeepSeq.deepseq (_CodeGeneratorRequest'protoFile x__)
(Control.DeepSeq.deepseq
(_CodeGeneratorRequest'compilerVersion x__)
(()))))))
data CodeGeneratorResponse = CodeGeneratorResponse{_CodeGeneratorResponse'error
:: !(Prelude.Maybe Data.Text.Text),
_CodeGeneratorResponse'file ::
!(Data.Vector.Vector CodeGeneratorResponse'File),
_CodeGeneratorResponse'_unknownFields ::
!Data.ProtoLens.FieldSet}
deriving (Prelude.Eq, Prelude.Ord)
instance Prelude.Show CodeGeneratorResponse where
showsPrec _ __x __s
= Prelude.showChar '{'
(Prelude.showString (Data.ProtoLens.showMessageShort __x)
(Prelude.showChar '}' __s))
instance Data.ProtoLens.Field.HasField CodeGeneratorResponse
"error"
(Data.Text.Text)
where
fieldOf _
= (Lens.Family2.Unchecked.lens _CodeGeneratorResponse'error
(\ x__ y__ -> x__{_CodeGeneratorResponse'error = y__}))
Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault
instance Data.ProtoLens.Field.HasField CodeGeneratorResponse
"maybe'error"
(Prelude.Maybe Data.Text.Text)
where
fieldOf _
= (Lens.Family2.Unchecked.lens _CodeGeneratorResponse'error
(\ x__ y__ -> x__{_CodeGeneratorResponse'error = y__}))
Prelude.. Prelude.id
instance Data.ProtoLens.Field.HasField CodeGeneratorResponse "file"
([CodeGeneratorResponse'File])
where
fieldOf _
= (Lens.Family2.Unchecked.lens _CodeGeneratorResponse'file
(\ x__ y__ -> x__{_CodeGeneratorResponse'file = y__}))
Prelude..
Lens.Family2.Unchecked.lens Data.Vector.Generic.toList
(\ _ y__ -> Data.Vector.Generic.fromList y__)
instance Data.ProtoLens.Field.HasField CodeGeneratorResponse
"vec'file"
(Data.Vector.Vector CodeGeneratorResponse'File)
where
fieldOf _
= (Lens.Family2.Unchecked.lens _CodeGeneratorResponse'file
(\ x__ y__ -> x__{_CodeGeneratorResponse'file = y__}))
Prelude.. Prelude.id
instance Data.ProtoLens.Message CodeGeneratorResponse where
messageName _
= Data.Text.pack "google.protobuf.compiler.CodeGeneratorResponse"
fieldsByTag
= let error__field_descriptor
= Data.ProtoLens.FieldDescriptor "error"
(Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Data.ProtoLens.OptionalField
(Data.ProtoLens.Field.field @"maybe'error"))
:: Data.ProtoLens.FieldDescriptor CodeGeneratorResponse
file__field_descriptor
= Data.ProtoLens.FieldDescriptor "file"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor CodeGeneratorResponse'File)
(Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked
(Data.ProtoLens.Field.field @"file"))
:: Data.ProtoLens.FieldDescriptor CodeGeneratorResponse
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, error__field_descriptor),
(Data.ProtoLens.Tag 15, file__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens _CodeGeneratorResponse'_unknownFields
(\ x__ y__ -> x__{_CodeGeneratorResponse'_unknownFields = y__})
defMessage
= CodeGeneratorResponse{_CodeGeneratorResponse'error =
Prelude.Nothing,
_CodeGeneratorResponse'file = Data.Vector.Generic.empty,
_CodeGeneratorResponse'_unknownFields = ([])}
parseMessage
= let loop ::
CodeGeneratorResponse ->
Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector
Data.ProtoLens.Encoding.Growing.RealWorld
CodeGeneratorResponse'File
-> Data.ProtoLens.Encoding.Bytes.Parser CodeGeneratorResponse
loop x mutable'file
= do end <- Data.ProtoLens.Encoding.Bytes.atEnd
if end then
do frozen'file <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.unsafeFreeze
mutable'file)
let missing = [] in
if Prelude.null missing then Prelude.return () else
Prelude.fail
(("Missing required fields: ") Prelude.++
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'file")
frozen'file
x))
else
do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
case tag of
10 -> do y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.getBytes
(Prelude.fromIntegral len)
Data.ProtoLens.Encoding.Bytes.runEither
(case Data.Text.Encoding.decodeUtf8' value of
Prelude.Left err -> Prelude.Left
(Prelude.show err)
Prelude.Right r -> Prelude.Right r))
Data.ProtoLens.Encoding.Bytes.<?> "error"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"error") y
x)
mutable'file
122 -> do !y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.isolate
(Prelude.fromIntegral len)
Data.ProtoLens.parseMessage)
Data.ProtoLens.Encoding.Bytes.<?> "file"
v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.append
mutable'file
y)
loop x v
wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
wire
loop
(Lens.Family2.over Data.ProtoLens.unknownFields
(\ !t -> (:) y t)
x)
mutable'file
in
(do mutable'file <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
Data.ProtoLens.Encoding.Growing.new
loop Data.ProtoLens.defMessage mutable'file)
Data.ProtoLens.Encoding.Bytes.<?> "CodeGeneratorResponse"
buildMessage
= (\ _x ->
(case
Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'error") _x of
(Prelude.Nothing) -> Data.Monoid.mempty
Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 10)
Data.Monoid.<>
(((\ bs ->
(Data.ProtoLens.Encoding.Bytes.putVarInt
(Prelude.fromIntegral (Data.ByteString.length bs)))
Data.Monoid.<>
Data.ProtoLens.Encoding.Bytes.putBytes bs))
Prelude.. Data.Text.Encoding.encodeUtf8)
_v)
Data.Monoid.<>
(Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ _v ->
(Data.ProtoLens.Encoding.Bytes.putVarInt 122) Data.Monoid.<>
(((\ bs ->
(Data.ProtoLens.Encoding.Bytes.putVarInt
(Prelude.fromIntegral (Data.ByteString.length bs)))
Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs))
Prelude.. Data.ProtoLens.encodeMessage)
_v)
(Lens.Family2.view (Data.ProtoLens.Field.field @"vec'file") _x))
Data.Monoid.<>
Data.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x))
instance Control.DeepSeq.NFData CodeGeneratorResponse where
rnf
= (\ x__ ->
Control.DeepSeq.deepseq (_CodeGeneratorResponse'_unknownFields x__)
(Control.DeepSeq.deepseq (_CodeGeneratorResponse'error x__)
(Control.DeepSeq.deepseq (_CodeGeneratorResponse'file x__) (()))))
data CodeGeneratorResponse'File = CodeGeneratorResponse'File{_CodeGeneratorResponse'File'name
:: !(Prelude.Maybe Data.Text.Text),
_CodeGeneratorResponse'File'insertionPoint
:: !(Prelude.Maybe Data.Text.Text),
_CodeGeneratorResponse'File'content ::
!(Prelude.Maybe Data.Text.Text),
_CodeGeneratorResponse'File'_unknownFields
:: !Data.ProtoLens.FieldSet}
deriving (Prelude.Eq, Prelude.Ord)
instance Prelude.Show CodeGeneratorResponse'File where
showsPrec _ __x __s
= Prelude.showChar '{'
(Prelude.showString (Data.ProtoLens.showMessageShort __x)
(Prelude.showChar '}' __s))
instance Data.ProtoLens.Field.HasField CodeGeneratorResponse'File
"name"
(Data.Text.Text)
where
fieldOf _
= (Lens.Family2.Unchecked.lens _CodeGeneratorResponse'File'name
(\ x__ y__ -> x__{_CodeGeneratorResponse'File'name = y__}))
Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault
instance Data.ProtoLens.Field.HasField CodeGeneratorResponse'File
"maybe'name"
(Prelude.Maybe Data.Text.Text)
where
fieldOf _
= (Lens.Family2.Unchecked.lens _CodeGeneratorResponse'File'name
(\ x__ y__ -> x__{_CodeGeneratorResponse'File'name = y__}))
Prelude.. Prelude.id
instance Data.ProtoLens.Field.HasField CodeGeneratorResponse'File
"insertionPoint"
(Data.Text.Text)
where
fieldOf _
= (Lens.Family2.Unchecked.lens
_CodeGeneratorResponse'File'insertionPoint
(\ x__ y__ ->
x__{_CodeGeneratorResponse'File'insertionPoint = y__}))
Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault
instance Data.ProtoLens.Field.HasField CodeGeneratorResponse'File
"maybe'insertionPoint"
(Prelude.Maybe Data.Text.Text)
where
fieldOf _
= (Lens.Family2.Unchecked.lens
_CodeGeneratorResponse'File'insertionPoint
(\ x__ y__ ->
x__{_CodeGeneratorResponse'File'insertionPoint = y__}))
Prelude.. Prelude.id
instance Data.ProtoLens.Field.HasField CodeGeneratorResponse'File
"content"
(Data.Text.Text)
where
fieldOf _
= (Lens.Family2.Unchecked.lens _CodeGeneratorResponse'File'content
(\ x__ y__ -> x__{_CodeGeneratorResponse'File'content = y__}))
Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault
instance Data.ProtoLens.Field.HasField CodeGeneratorResponse'File
"maybe'content"
(Prelude.Maybe Data.Text.Text)
where
fieldOf _
= (Lens.Family2.Unchecked.lens _CodeGeneratorResponse'File'content
(\ x__ y__ -> x__{_CodeGeneratorResponse'File'content = y__}))
Prelude.. Prelude.id
instance Data.ProtoLens.Message CodeGeneratorResponse'File where
messageName _
= Data.Text.pack
"google.protobuf.compiler.CodeGeneratorResponse.File"
fieldsByTag
= let name__field_descriptor
= Data.ProtoLens.FieldDescriptor "name"
(Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Data.ProtoLens.OptionalField
(Data.ProtoLens.Field.field @"maybe'name"))
:: Data.ProtoLens.FieldDescriptor CodeGeneratorResponse'File
insertionPoint__field_descriptor
= Data.ProtoLens.FieldDescriptor "insertion_point"
(Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Data.ProtoLens.OptionalField
(Data.ProtoLens.Field.field @"maybe'insertionPoint"))
:: Data.ProtoLens.FieldDescriptor CodeGeneratorResponse'File
content__field_descriptor
= Data.ProtoLens.FieldDescriptor "content"
(Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Data.ProtoLens.OptionalField
(Data.ProtoLens.Field.field @"maybe'content"))
:: Data.ProtoLens.FieldDescriptor CodeGeneratorResponse'File
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, name__field_descriptor),
(Data.ProtoLens.Tag 2, insertionPoint__field_descriptor),
(Data.ProtoLens.Tag 15, content__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_CodeGeneratorResponse'File'_unknownFields
(\ x__ y__ ->
x__{_CodeGeneratorResponse'File'_unknownFields = y__})
defMessage
= CodeGeneratorResponse'File{_CodeGeneratorResponse'File'name =
Prelude.Nothing,
_CodeGeneratorResponse'File'insertionPoint = Prelude.Nothing,
_CodeGeneratorResponse'File'content = Prelude.Nothing,
_CodeGeneratorResponse'File'_unknownFields = ([])}
parseMessage
= let loop ::
CodeGeneratorResponse'File ->
Data.ProtoLens.Encoding.Bytes.Parser CodeGeneratorResponse'File
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
(("Missing required fields: ") Prelude.++
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 <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.getBytes
(Prelude.fromIntegral len)
Data.ProtoLens.Encoding.Bytes.runEither
(case Data.Text.Encoding.decodeUtf8' value of
Prelude.Left err -> Prelude.Left
(Prelude.show err)
Prelude.Right r -> Prelude.Right r))
Data.ProtoLens.Encoding.Bytes.<?> "name"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"name") y
x)
18 -> do y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.getBytes
(Prelude.fromIntegral len)
Data.ProtoLens.Encoding.Bytes.runEither
(case Data.Text.Encoding.decodeUtf8' value of
Prelude.Left err -> Prelude.Left
(Prelude.show err)
Prelude.Right r -> Prelude.Right r))
Data.ProtoLens.Encoding.Bytes.<?> "insertion_point"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"insertionPoint")
y
x)
122 -> do y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.getBytes
(Prelude.fromIntegral len)
Data.ProtoLens.Encoding.Bytes.runEither
(case Data.Text.Encoding.decodeUtf8' value of
Prelude.Left err -> Prelude.Left
(Prelude.show err)
Prelude.Right r -> Prelude.Right r))
Data.ProtoLens.Encoding.Bytes.<?> "content"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"content")
y
x)
wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
wire
loop
(Lens.Family2.over Data.ProtoLens.unknownFields
(\ !t -> (:) y t)
x)
in
(do loop Data.ProtoLens.defMessage)
Data.ProtoLens.Encoding.Bytes.<?> "File"
buildMessage
= (\ _x ->
(case
Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'name") _x of
(Prelude.Nothing) -> Data.Monoid.mempty
Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 10)
Data.Monoid.<>
(((\ bs ->
(Data.ProtoLens.Encoding.Bytes.putVarInt
(Prelude.fromIntegral (Data.ByteString.length bs)))
Data.Monoid.<>
Data.ProtoLens.Encoding.Bytes.putBytes bs))
Prelude.. Data.Text.Encoding.encodeUtf8)
_v)
Data.Monoid.<>
(case
Lens.Family2.view
(Data.ProtoLens.Field.field @"maybe'insertionPoint")
_x
of
(Prelude.Nothing) -> Data.Monoid.mempty
Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 18)
Data.Monoid.<>
(((\ bs ->
(Data.ProtoLens.Encoding.Bytes.putVarInt
(Prelude.fromIntegral
(Data.ByteString.length bs)))
Data.Monoid.<>
Data.ProtoLens.Encoding.Bytes.putBytes bs))
Prelude.. Data.Text.Encoding.encodeUtf8)
_v)
Data.Monoid.<>
(case
Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'content") _x
of
(Prelude.Nothing) -> Data.Monoid.mempty
Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 122)
Data.Monoid.<>
(((\ bs ->
(Data.ProtoLens.Encoding.Bytes.putVarInt
(Prelude.fromIntegral
(Data.ByteString.length bs)))
Data.Monoid.<>
Data.ProtoLens.Encoding.Bytes.putBytes bs))
Prelude.. Data.Text.Encoding.encodeUtf8)
_v)
Data.Monoid.<>
Data.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x))
instance Control.DeepSeq.NFData CodeGeneratorResponse'File where
rnf
= (\ x__ ->
Control.DeepSeq.deepseq
(_CodeGeneratorResponse'File'_unknownFields x__)
(Control.DeepSeq.deepseq (_CodeGeneratorResponse'File'name x__)
(Control.DeepSeq.deepseq
(_CodeGeneratorResponse'File'insertionPoint x__)
(Control.DeepSeq.deepseq (_CodeGeneratorResponse'File'content x__)
(())))))
data Version = Version{_Version'major ::
!(Prelude.Maybe Data.Int.Int32),
_Version'minor :: !(Prelude.Maybe Data.Int.Int32),
_Version'patch :: !(Prelude.Maybe Data.Int.Int32),
_Version'suffix :: !(Prelude.Maybe Data.Text.Text),
_Version'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving (Prelude.Eq, Prelude.Ord)
instance Prelude.Show Version where
showsPrec _ __x __s
= Prelude.showChar '{'
(Prelude.showString (Data.ProtoLens.showMessageShort __x)
(Prelude.showChar '}' __s))
instance Data.ProtoLens.Field.HasField Version "major"
(Data.Int.Int32)
where
fieldOf _
= (Lens.Family2.Unchecked.lens _Version'major
(\ x__ y__ -> x__{_Version'major = y__}))
Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault
instance Data.ProtoLens.Field.HasField Version "maybe'major"
(Prelude.Maybe Data.Int.Int32)
where
fieldOf _
= (Lens.Family2.Unchecked.lens _Version'major
(\ x__ y__ -> x__{_Version'major = y__}))
Prelude.. Prelude.id
instance Data.ProtoLens.Field.HasField Version "minor"
(Data.Int.Int32)
where
fieldOf _
= (Lens.Family2.Unchecked.lens _Version'minor
(\ x__ y__ -> x__{_Version'minor = y__}))
Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault
instance Data.ProtoLens.Field.HasField Version "maybe'minor"
(Prelude.Maybe Data.Int.Int32)
where
fieldOf _
= (Lens.Family2.Unchecked.lens _Version'minor
(\ x__ y__ -> x__{_Version'minor = y__}))
Prelude.. Prelude.id
instance Data.ProtoLens.Field.HasField Version "patch"
(Data.Int.Int32)
where
fieldOf _
= (Lens.Family2.Unchecked.lens _Version'patch
(\ x__ y__ -> x__{_Version'patch = y__}))
Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault
instance Data.ProtoLens.Field.HasField Version "maybe'patch"
(Prelude.Maybe Data.Int.Int32)
where
fieldOf _
= (Lens.Family2.Unchecked.lens _Version'patch
(\ x__ y__ -> x__{_Version'patch = y__}))
Prelude.. Prelude.id
instance Data.ProtoLens.Field.HasField Version "suffix"
(Data.Text.Text)
where
fieldOf _
= (Lens.Family2.Unchecked.lens _Version'suffix
(\ x__ y__ -> x__{_Version'suffix = y__}))
Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault
instance Data.ProtoLens.Field.HasField Version "maybe'suffix"
(Prelude.Maybe Data.Text.Text)
where
fieldOf _
= (Lens.Family2.Unchecked.lens _Version'suffix
(\ x__ y__ -> x__{_Version'suffix = y__}))
Prelude.. Prelude.id
instance Data.ProtoLens.Message Version where
messageName _ = Data.Text.pack "google.protobuf.compiler.Version"
fieldsByTag
= let major__field_descriptor
= Data.ProtoLens.FieldDescriptor "major"
(Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)
(Data.ProtoLens.OptionalField
(Data.ProtoLens.Field.field @"maybe'major"))
:: Data.ProtoLens.FieldDescriptor Version
minor__field_descriptor
= Data.ProtoLens.FieldDescriptor "minor"
(Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)
(Data.ProtoLens.OptionalField
(Data.ProtoLens.Field.field @"maybe'minor"))
:: Data.ProtoLens.FieldDescriptor Version
patch__field_descriptor
= Data.ProtoLens.FieldDescriptor "patch"
(Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)
(Data.ProtoLens.OptionalField
(Data.ProtoLens.Field.field @"maybe'patch"))
:: Data.ProtoLens.FieldDescriptor Version
suffix__field_descriptor
= Data.ProtoLens.FieldDescriptor "suffix"
(Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Data.ProtoLens.OptionalField
(Data.ProtoLens.Field.field @"maybe'suffix"))
:: Data.ProtoLens.FieldDescriptor Version
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, major__field_descriptor),
(Data.ProtoLens.Tag 2, minor__field_descriptor),
(Data.ProtoLens.Tag 3, patch__field_descriptor),
(Data.ProtoLens.Tag 4, suffix__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens _Version'_unknownFields
(\ x__ y__ -> x__{_Version'_unknownFields = y__})
defMessage
= Version{_Version'major = Prelude.Nothing,
_Version'minor = Prelude.Nothing, _Version'patch = Prelude.Nothing,
_Version'suffix = Prelude.Nothing, _Version'_unknownFields = ([])}
parseMessage
= let loop ::
Version -> Data.ProtoLens.Encoding.Bytes.Parser Version
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
(("Missing required fields: ") Prelude.++
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 <- (Prelude.fmap Prelude.fromIntegral
Data.ProtoLens.Encoding.Bytes.getVarInt)
Data.ProtoLens.Encoding.Bytes.<?> "major"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"major") y
x)
16 -> do y <- (Prelude.fmap Prelude.fromIntegral
Data.ProtoLens.Encoding.Bytes.getVarInt)
Data.ProtoLens.Encoding.Bytes.<?> "minor"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"minor") y
x)
24 -> do y <- (Prelude.fmap Prelude.fromIntegral
Data.ProtoLens.Encoding.Bytes.getVarInt)
Data.ProtoLens.Encoding.Bytes.<?> "patch"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"patch") y
x)
34 -> do y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.getBytes
(Prelude.fromIntegral len)
Data.ProtoLens.Encoding.Bytes.runEither
(case Data.Text.Encoding.decodeUtf8' value of
Prelude.Left err -> Prelude.Left
(Prelude.show err)
Prelude.Right r -> Prelude.Right r))
Data.ProtoLens.Encoding.Bytes.<?> "suffix"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"suffix")
y
x)
wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
wire
loop
(Lens.Family2.over Data.ProtoLens.unknownFields
(\ !t -> (:) y t)
x)
in
(do loop Data.ProtoLens.defMessage)
Data.ProtoLens.Encoding.Bytes.<?> "Version"
buildMessage
= (\ _x ->
(case
Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'major") _x of
(Prelude.Nothing) -> Data.Monoid.mempty
Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 8)
Data.Monoid.<>
((Data.ProtoLens.Encoding.Bytes.putVarInt) Prelude..
Prelude.fromIntegral)
_v)
Data.Monoid.<>
(case
Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'minor") _x of
(Prelude.Nothing) -> Data.Monoid.mempty
Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 16)
Data.Monoid.<>
((Data.ProtoLens.Encoding.Bytes.putVarInt) Prelude..
Prelude.fromIntegral)
_v)
Data.Monoid.<>
(case
Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'patch") _x of
(Prelude.Nothing) -> Data.Monoid.mempty
Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 24)
Data.Monoid.<>
((Data.ProtoLens.Encoding.Bytes.putVarInt) Prelude..
Prelude.fromIntegral)
_v)
Data.Monoid.<>
(case
Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'suffix") _x
of
(Prelude.Nothing) -> Data.Monoid.mempty
Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 34)
Data.Monoid.<>
(((\ bs ->
(Data.ProtoLens.Encoding.Bytes.putVarInt
(Prelude.fromIntegral
(Data.ByteString.length bs)))
Data.Monoid.<>
Data.ProtoLens.Encoding.Bytes.putBytes bs))
Prelude.. Data.Text.Encoding.encodeUtf8)
_v)
Data.Monoid.<>
Data.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x))
instance Control.DeepSeq.NFData Version where
rnf
= (\ x__ ->
Control.DeepSeq.deepseq (_Version'_unknownFields x__)
(Control.DeepSeq.deepseq (_Version'major x__)
(Control.DeepSeq.deepseq (_Version'minor x__)
(Control.DeepSeq.deepseq (_Version'patch x__)
(Control.DeepSeq.deepseq (_Version'suffix x__) (()))))))