{- This file was auto-generated from google/protobuf/compiler/plugin.proto by the proto-lens-protoc program. -} {-# 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 {- | Fields : * 'Proto.Google.Protobuf.Compiler.Plugin_Fields.fileToGenerate' @:: Lens' CodeGeneratorRequest [Data.Text.Text]@ * 'Proto.Google.Protobuf.Compiler.Plugin_Fields.vec'fileToGenerate' @:: Lens' CodeGeneratorRequest (Data.Vector.Vector Data.Text.Text)@ * 'Proto.Google.Protobuf.Compiler.Plugin_Fields.parameter' @:: Lens' CodeGeneratorRequest Data.Text.Text@ * 'Proto.Google.Protobuf.Compiler.Plugin_Fields.maybe'parameter' @:: Lens' CodeGeneratorRequest (Prelude.Maybe Data.Text.Text)@ * 'Proto.Google.Protobuf.Compiler.Plugin_Fields.protoFile' @:: Lens' CodeGeneratorRequest [Proto.Google.Protobuf.Descriptor.FileDescriptorProto]@ * 'Proto.Google.Protobuf.Compiler.Plugin_Fields.vec'protoFile' @:: Lens' CodeGeneratorRequest (Data.Vector.Vector Proto.Google.Protobuf.Descriptor.FileDescriptorProto)@ * 'Proto.Google.Protobuf.Compiler.Plugin_Fields.compilerVersion' @:: Lens' CodeGeneratorRequest Version@ * 'Proto.Google.Protobuf.Compiler.Plugin_Fields.maybe'compilerVersion' @:: Lens' CodeGeneratorRequest (Prelude.Maybe Version)@ -} 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__) (())))))) {- | Fields : * 'Proto.Google.Protobuf.Compiler.Plugin_Fields.error' @:: Lens' CodeGeneratorResponse Data.Text.Text@ * 'Proto.Google.Protobuf.Compiler.Plugin_Fields.maybe'error' @:: Lens' CodeGeneratorResponse (Prelude.Maybe Data.Text.Text)@ * 'Proto.Google.Protobuf.Compiler.Plugin_Fields.file' @:: Lens' CodeGeneratorResponse [CodeGeneratorResponse'File]@ * 'Proto.Google.Protobuf.Compiler.Plugin_Fields.vec'file' @:: Lens' CodeGeneratorResponse (Data.Vector.Vector CodeGeneratorResponse'File)@ -} 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__) (())))) {- | Fields : * 'Proto.Google.Protobuf.Compiler.Plugin_Fields.name' @:: Lens' CodeGeneratorResponse'File Data.Text.Text@ * 'Proto.Google.Protobuf.Compiler.Plugin_Fields.maybe'name' @:: Lens' CodeGeneratorResponse'File (Prelude.Maybe Data.Text.Text)@ * 'Proto.Google.Protobuf.Compiler.Plugin_Fields.insertionPoint' @:: Lens' CodeGeneratorResponse'File Data.Text.Text@ * 'Proto.Google.Protobuf.Compiler.Plugin_Fields.maybe'insertionPoint' @:: Lens' CodeGeneratorResponse'File (Prelude.Maybe Data.Text.Text)@ * 'Proto.Google.Protobuf.Compiler.Plugin_Fields.content' @:: Lens' CodeGeneratorResponse'File Data.Text.Text@ * 'Proto.Google.Protobuf.Compiler.Plugin_Fields.maybe'content' @:: Lens' CodeGeneratorResponse'File (Prelude.Maybe Data.Text.Text)@ -} 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__) (()))))) {- | Fields : * 'Proto.Google.Protobuf.Compiler.Plugin_Fields.major' @:: Lens' Version Data.Int.Int32@ * 'Proto.Google.Protobuf.Compiler.Plugin_Fields.maybe'major' @:: Lens' Version (Prelude.Maybe Data.Int.Int32)@ * 'Proto.Google.Protobuf.Compiler.Plugin_Fields.minor' @:: Lens' Version Data.Int.Int32@ * 'Proto.Google.Protobuf.Compiler.Plugin_Fields.maybe'minor' @:: Lens' Version (Prelude.Maybe Data.Int.Int32)@ * 'Proto.Google.Protobuf.Compiler.Plugin_Fields.patch' @:: Lens' Version Data.Int.Int32@ * 'Proto.Google.Protobuf.Compiler.Plugin_Fields.maybe'patch' @:: Lens' Version (Prelude.Maybe Data.Int.Int32)@ * 'Proto.Google.Protobuf.Compiler.Plugin_Fields.suffix' @:: Lens' Version Data.Text.Text@ * 'Proto.Google.Protobuf.Compiler.Plugin_Fields.maybe'suffix' @:: Lens' Version (Prelude.Maybe Data.Text.Text)@ -} 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__) (()))))))