{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies, UndecidableInstances, GeneralizedNewtypeDeriving, MultiParamTypeClasses, FlexibleContexts, FlexibleInstances, PatternSynonyms, MagicHash, NoImplicitPrelude, DataKinds, BangPatterns, TypeApplications, OverloadedStrings, DerivingStrategies#-}
{-# OPTIONS_GHC -Wno-unused-imports#-}
{-# OPTIONS_GHC -Wno-duplicate-exports#-}
{-# OPTIONS_GHC -Wno-dodgy-exports#-}
module Proto.Google.Api.Http (
CustomHttpPattern(), Http(), HttpRule(), HttpRule'Pattern(..),
_HttpRule'Get, _HttpRule'Put, _HttpRule'Post, _HttpRule'Delete,
_HttpRule'Patch, _HttpRule'Custom
) where
import qualified Data.ProtoLens.Runtime.Control.DeepSeq as Control.DeepSeq
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Prism as Data.ProtoLens.Prism
import qualified Data.ProtoLens.Runtime.Prelude as Prelude
import qualified Data.ProtoLens.Runtime.Data.Int as Data.Int
import qualified Data.ProtoLens.Runtime.Data.Monoid as Data.Monoid
import qualified Data.ProtoLens.Runtime.Data.Word as Data.Word
import qualified Data.ProtoLens.Runtime.Data.ProtoLens as Data.ProtoLens
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Bytes as Data.ProtoLens.Encoding.Bytes
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Growing as Data.ProtoLens.Encoding.Growing
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Parser.Unsafe as Data.ProtoLens.Encoding.Parser.Unsafe
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Wire as Data.ProtoLens.Encoding.Wire
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Field as Data.ProtoLens.Field
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Message.Enum as Data.ProtoLens.Message.Enum
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Service.Types as Data.ProtoLens.Service.Types
import qualified Data.ProtoLens.Runtime.Lens.Family2 as Lens.Family2
import qualified Data.ProtoLens.Runtime.Lens.Family2.Unchecked as Lens.Family2.Unchecked
import qualified Data.ProtoLens.Runtime.Data.Text as Data.Text
import qualified Data.ProtoLens.Runtime.Data.Map as Data.Map
import qualified Data.ProtoLens.Runtime.Data.ByteString as Data.ByteString
import qualified Data.ProtoLens.Runtime.Data.ByteString.Char8 as Data.ByteString.Char8
import qualified Data.ProtoLens.Runtime.Data.Text.Encoding as Data.Text.Encoding
import qualified Data.ProtoLens.Runtime.Data.Vector as Data.Vector
import qualified Data.ProtoLens.Runtime.Data.Vector.Generic as Data.Vector.Generic
import qualified Data.ProtoLens.Runtime.Data.Vector.Unboxed as Data.Vector.Unboxed
import qualified Data.ProtoLens.Runtime.Text.Read as Text.Read
data CustomHttpPattern
= CustomHttpPattern'_constructor {CustomHttpPattern -> Text
_CustomHttpPattern'kind :: !Data.Text.Text,
CustomHttpPattern -> Text
_CustomHttpPattern'path :: !Data.Text.Text,
CustomHttpPattern -> FieldSet
_CustomHttpPattern'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (CustomHttpPattern -> CustomHttpPattern -> Bool
(CustomHttpPattern -> CustomHttpPattern -> Bool)
-> (CustomHttpPattern -> CustomHttpPattern -> Bool)
-> Eq CustomHttpPattern
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: CustomHttpPattern -> CustomHttpPattern -> Bool
== :: CustomHttpPattern -> CustomHttpPattern -> Bool
$c/= :: CustomHttpPattern -> CustomHttpPattern -> Bool
/= :: CustomHttpPattern -> CustomHttpPattern -> Bool
Prelude.Eq, Eq CustomHttpPattern
Eq CustomHttpPattern =>
(CustomHttpPattern -> CustomHttpPattern -> Ordering)
-> (CustomHttpPattern -> CustomHttpPattern -> Bool)
-> (CustomHttpPattern -> CustomHttpPattern -> Bool)
-> (CustomHttpPattern -> CustomHttpPattern -> Bool)
-> (CustomHttpPattern -> CustomHttpPattern -> Bool)
-> (CustomHttpPattern -> CustomHttpPattern -> CustomHttpPattern)
-> (CustomHttpPattern -> CustomHttpPattern -> CustomHttpPattern)
-> Ord CustomHttpPattern
CustomHttpPattern -> CustomHttpPattern -> Bool
CustomHttpPattern -> CustomHttpPattern -> Ordering
CustomHttpPattern -> CustomHttpPattern -> CustomHttpPattern
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: CustomHttpPattern -> CustomHttpPattern -> Ordering
compare :: CustomHttpPattern -> CustomHttpPattern -> Ordering
$c< :: CustomHttpPattern -> CustomHttpPattern -> Bool
< :: CustomHttpPattern -> CustomHttpPattern -> Bool
$c<= :: CustomHttpPattern -> CustomHttpPattern -> Bool
<= :: CustomHttpPattern -> CustomHttpPattern -> Bool
$c> :: CustomHttpPattern -> CustomHttpPattern -> Bool
> :: CustomHttpPattern -> CustomHttpPattern -> Bool
$c>= :: CustomHttpPattern -> CustomHttpPattern -> Bool
>= :: CustomHttpPattern -> CustomHttpPattern -> Bool
$cmax :: CustomHttpPattern -> CustomHttpPattern -> CustomHttpPattern
max :: CustomHttpPattern -> CustomHttpPattern -> CustomHttpPattern
$cmin :: CustomHttpPattern -> CustomHttpPattern -> CustomHttpPattern
min :: CustomHttpPattern -> CustomHttpPattern -> CustomHttpPattern
Prelude.Ord)
instance Prelude.Show CustomHttpPattern where
showsPrec :: Int -> CustomHttpPattern -> ShowS
showsPrec Int
_ CustomHttpPattern
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(CustomHttpPattern -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort CustomHttpPattern
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField CustomHttpPattern "kind" Data.Text.Text where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "kind"
-> (Text -> f Text) -> CustomHttpPattern -> f CustomHttpPattern
fieldOf Proxy# "kind"
_
= ((Text -> f Text) -> CustomHttpPattern -> f CustomHttpPattern)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> CustomHttpPattern
-> f CustomHttpPattern
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((CustomHttpPattern -> Text)
-> (CustomHttpPattern -> Text -> CustomHttpPattern)
-> Lens CustomHttpPattern CustomHttpPattern Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
CustomHttpPattern -> Text
_CustomHttpPattern'kind
(\ CustomHttpPattern
x__ Text
y__ -> CustomHttpPattern
x__ {_CustomHttpPattern'kind = y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField CustomHttpPattern "path" Data.Text.Text where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "path"
-> (Text -> f Text) -> CustomHttpPattern -> f CustomHttpPattern
fieldOf Proxy# "path"
_
= ((Text -> f Text) -> CustomHttpPattern -> f CustomHttpPattern)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> CustomHttpPattern
-> f CustomHttpPattern
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((CustomHttpPattern -> Text)
-> (CustomHttpPattern -> Text -> CustomHttpPattern)
-> Lens CustomHttpPattern CustomHttpPattern Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
CustomHttpPattern -> Text
_CustomHttpPattern'path
(\ CustomHttpPattern
x__ Text
y__ -> CustomHttpPattern
x__ {_CustomHttpPattern'path = y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message CustomHttpPattern where
messageName :: Proxy CustomHttpPattern -> Text
messageName Proxy CustomHttpPattern
_ = String -> Text
Data.Text.pack String
"google.api.CustomHttpPattern"
packedMessageDescriptor :: Proxy CustomHttpPattern -> ByteString
packedMessageDescriptor Proxy CustomHttpPattern
_
= ByteString
"\n\
\\DC1CustomHttpPattern\DC2\DC2\n\
\\EOTkind\CAN\SOH \SOH(\tR\EOTkind\DC2\DC2\n\
\\EOTpath\CAN\STX \SOH(\tR\EOTpath"
packedFileDescriptor :: Proxy CustomHttpPattern -> ByteString
packedFileDescriptor Proxy CustomHttpPattern
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor CustomHttpPattern)
fieldsByTag
= let
kind__field_descriptor :: FieldDescriptor CustomHttpPattern
kind__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor CustomHttpPattern Text
-> FieldDescriptor CustomHttpPattern
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"kind"
(ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(WireDefault Text
-> Lens CustomHttpPattern CustomHttpPattern Text Text
-> FieldAccessor CustomHttpPattern Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"kind")) ::
Data.ProtoLens.FieldDescriptor CustomHttpPattern
path__field_descriptor :: FieldDescriptor CustomHttpPattern
path__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor CustomHttpPattern Text
-> FieldDescriptor CustomHttpPattern
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"path"
(ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(WireDefault Text
-> Lens CustomHttpPattern CustomHttpPattern Text Text
-> FieldAccessor CustomHttpPattern Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"path")) ::
Data.ProtoLens.FieldDescriptor CustomHttpPattern
in
[(Tag, FieldDescriptor CustomHttpPattern)]
-> Map Tag (FieldDescriptor CustomHttpPattern)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor CustomHttpPattern
kind__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor CustomHttpPattern
path__field_descriptor)]
unknownFields :: Lens' CustomHttpPattern FieldSet
unknownFields
= (CustomHttpPattern -> FieldSet)
-> (CustomHttpPattern -> FieldSet -> CustomHttpPattern)
-> Lens' CustomHttpPattern FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
CustomHttpPattern -> FieldSet
_CustomHttpPattern'_unknownFields
(\ CustomHttpPattern
x__ FieldSet
y__ -> CustomHttpPattern
x__ {_CustomHttpPattern'_unknownFields = y__})
defMessage :: CustomHttpPattern
defMessage
= CustomHttpPattern'_constructor
{_CustomHttpPattern'kind :: Text
_CustomHttpPattern'kind = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_CustomHttpPattern'path :: Text
_CustomHttpPattern'path = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_CustomHttpPattern'_unknownFields :: FieldSet
_CustomHttpPattern'_unknownFields = []}
parseMessage :: Parser CustomHttpPattern
parseMessage
= let
loop ::
CustomHttpPattern
-> Data.ProtoLens.Encoding.Bytes.Parser CustomHttpPattern
loop :: CustomHttpPattern -> Parser CustomHttpPattern
loop CustomHttpPattern
x
= do end <- Parser Bool
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 (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
else
do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
case tag of
Word64
10
-> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.getText
(Prelude.fromIntegral len))
String
"kind"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"kind") y x)
Word64
18
-> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.getText
(Prelude.fromIntegral len))
String
"path"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"path") y x)
Word64
wire
-> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
loop
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
in
Parser CustomHttpPattern -> String -> Parser CustomHttpPattern
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do CustomHttpPattern -> Parser CustomHttpPattern
loop CustomHttpPattern
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"CustomHttpPattern"
buildMessage :: CustomHttpPattern -> Builder
buildMessage
= \ CustomHttpPattern
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let _v :: Text
_v = FoldLike Text CustomHttpPattern CustomHttpPattern Text Text
-> CustomHttpPattern -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"kind") CustomHttpPattern
_x
in
if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let _v :: Text
_v = FoldLike Text CustomHttpPattern CustomHttpPattern Text Text
-> CustomHttpPattern -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"path") CustomHttpPattern
_x
in
if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet CustomHttpPattern CustomHttpPattern FieldSet FieldSet
-> CustomHttpPattern -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet CustomHttpPattern CustomHttpPattern FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' CustomHttpPattern FieldSet
Data.ProtoLens.unknownFields CustomHttpPattern
_x)))
instance Control.DeepSeq.NFData CustomHttpPattern where
rnf :: CustomHttpPattern -> ()
rnf
= \ CustomHttpPattern
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(CustomHttpPattern -> FieldSet
_CustomHttpPattern'_unknownFields CustomHttpPattern
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(CustomHttpPattern -> Text
_CustomHttpPattern'kind CustomHttpPattern
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (CustomHttpPattern -> Text
_CustomHttpPattern'path CustomHttpPattern
x__) ()))
data Http
= Http'_constructor {Http -> Vector HttpRule
_Http'rules :: !(Data.Vector.Vector HttpRule),
Http -> Bool
_Http'fullyDecodeReservedExpansion :: !Prelude.Bool,
Http -> FieldSet
_Http'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Http -> Http -> Bool
(Http -> Http -> Bool) -> (Http -> Http -> Bool) -> Eq Http
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Http -> Http -> Bool
== :: Http -> Http -> Bool
$c/= :: Http -> Http -> Bool
/= :: Http -> Http -> Bool
Prelude.Eq, Eq Http
Eq Http =>
(Http -> Http -> Ordering)
-> (Http -> Http -> Bool)
-> (Http -> Http -> Bool)
-> (Http -> Http -> Bool)
-> (Http -> Http -> Bool)
-> (Http -> Http -> Http)
-> (Http -> Http -> Http)
-> Ord Http
Http -> Http -> Bool
Http -> Http -> Ordering
Http -> Http -> Http
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: Http -> Http -> Ordering
compare :: Http -> Http -> Ordering
$c< :: Http -> Http -> Bool
< :: Http -> Http -> Bool
$c<= :: Http -> Http -> Bool
<= :: Http -> Http -> Bool
$c> :: Http -> Http -> Bool
> :: Http -> Http -> Bool
$c>= :: Http -> Http -> Bool
>= :: Http -> Http -> Bool
$cmax :: Http -> Http -> Http
max :: Http -> Http -> Http
$cmin :: Http -> Http -> Http
min :: Http -> Http -> Http
Prelude.Ord)
instance Prelude.Show Http where
showsPrec :: Int -> Http -> ShowS
showsPrec Int
_ Http
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(Http -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort Http
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField Http "rules" [HttpRule] where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "rules" -> ([HttpRule] -> f [HttpRule]) -> Http -> f Http
fieldOf Proxy# "rules"
_
= ((Vector HttpRule -> f (Vector HttpRule)) -> Http -> f Http)
-> (([HttpRule] -> f [HttpRule])
-> Vector HttpRule -> f (Vector HttpRule))
-> ([HttpRule] -> f [HttpRule])
-> Http
-> f Http
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Http -> Vector HttpRule)
-> (Http -> Vector HttpRule -> Http)
-> Lens Http Http (Vector HttpRule) (Vector HttpRule)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Http -> Vector HttpRule
_Http'rules (\ Http
x__ Vector HttpRule
y__ -> Http
x__ {_Http'rules = y__}))
((Vector HttpRule -> [HttpRule])
-> (Vector HttpRule -> [HttpRule] -> Vector HttpRule)
-> Lens (Vector HttpRule) (Vector HttpRule) [HttpRule] [HttpRule]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector HttpRule -> [HttpRule]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ Vector HttpRule
_ [HttpRule]
y__ -> [HttpRule] -> Vector HttpRule
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [HttpRule]
y__))
instance Data.ProtoLens.Field.HasField Http "vec'rules" (Data.Vector.Vector HttpRule) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'rules"
-> (Vector HttpRule -> f (Vector HttpRule)) -> Http -> f Http
fieldOf Proxy# "vec'rules"
_
= ((Vector HttpRule -> f (Vector HttpRule)) -> Http -> f Http)
-> ((Vector HttpRule -> f (Vector HttpRule))
-> Vector HttpRule -> f (Vector HttpRule))
-> (Vector HttpRule -> f (Vector HttpRule))
-> Http
-> f Http
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Http -> Vector HttpRule)
-> (Http -> Vector HttpRule -> Http)
-> Lens Http Http (Vector HttpRule) (Vector HttpRule)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Http -> Vector HttpRule
_Http'rules (\ Http
x__ Vector HttpRule
y__ -> Http
x__ {_Http'rules = y__}))
(Vector HttpRule -> f (Vector HttpRule))
-> Vector HttpRule -> f (Vector HttpRule)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Http "fullyDecodeReservedExpansion" Prelude.Bool where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "fullyDecodeReservedExpansion"
-> (Bool -> f Bool) -> Http -> f Http
fieldOf Proxy# "fullyDecodeReservedExpansion"
_
= ((Bool -> f Bool) -> Http -> f Http)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> Http
-> f Http
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Http -> Bool)
-> (Http -> Bool -> Http) -> Lens Http Http Bool Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Http -> Bool
_Http'fullyDecodeReservedExpansion
(\ Http
x__ Bool
y__ -> Http
x__ {_Http'fullyDecodeReservedExpansion = y__}))
(Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message Http where
messageName :: Proxy Http -> Text
messageName Proxy Http
_ = String -> Text
Data.Text.pack String
"google.api.Http"
packedMessageDescriptor :: Proxy Http -> ByteString
packedMessageDescriptor Proxy Http
_
= ByteString
"\n\
\\EOTHttp\DC2*\n\
\\ENQrules\CAN\SOH \ETX(\v2\DC4.google.api.HttpRuleR\ENQrules\DC2E\n\
\\USfully_decode_reserved_expansion\CAN\STX \SOH(\bR\FSfullyDecodeReservedExpansion"
packedFileDescriptor :: Proxy Http -> ByteString
packedFileDescriptor Proxy Http
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor Http)
fieldsByTag
= let
rules__field_descriptor :: FieldDescriptor Http
rules__field_descriptor
= String
-> FieldTypeDescriptor HttpRule
-> FieldAccessor Http HttpRule
-> FieldDescriptor Http
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"rules"
(MessageOrGroup -> FieldTypeDescriptor HttpRule
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor HttpRule)
(Packing -> Lens' Http [HttpRule] -> FieldAccessor Http HttpRule
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Unpacked (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"rules")) ::
Data.ProtoLens.FieldDescriptor Http
fullyDecodeReservedExpansion__field_descriptor :: FieldDescriptor Http
fullyDecodeReservedExpansion__field_descriptor
= String
-> FieldTypeDescriptor Bool
-> FieldAccessor Http Bool
-> FieldDescriptor Http
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"fully_decode_reserved_expansion"
(ScalarField Bool -> FieldTypeDescriptor Bool
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Bool
Data.ProtoLens.BoolField ::
Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
(WireDefault Bool
-> Lens Http Http Bool Bool -> FieldAccessor Http Bool
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Bool
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"fullyDecodeReservedExpansion")) ::
Data.ProtoLens.FieldDescriptor Http
in
[(Tag, FieldDescriptor Http)] -> Map Tag (FieldDescriptor Http)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor Http
rules__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
2,
FieldDescriptor Http
fullyDecodeReservedExpansion__field_descriptor)]
unknownFields :: Lens' Http FieldSet
unknownFields
= (Http -> FieldSet)
-> (Http -> FieldSet -> Http) -> Lens' Http FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Http -> FieldSet
_Http'_unknownFields
(\ Http
x__ FieldSet
y__ -> Http
x__ {_Http'_unknownFields = y__})
defMessage :: Http
defMessage
= Http'_constructor
{_Http'rules :: Vector HttpRule
_Http'rules = Vector HttpRule
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_Http'fullyDecodeReservedExpansion :: Bool
_Http'fullyDecodeReservedExpansion = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_Http'_unknownFields :: FieldSet
_Http'_unknownFields = []}
parseMessage :: Parser Http
parseMessage
= let
loop ::
Http
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld HttpRule
-> Data.ProtoLens.Encoding.Bytes.Parser Http
loop :: Http -> Growing Vector RealWorld HttpRule -> Parser Http
loop Http
x Growing Vector RealWorld HttpRule
mutable'rules
= do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if end then
do frozen'rules <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'rules)
(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 (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
(Lens.Family2.set
(Data.ProtoLens.Field.field @"vec'rules") frozen'rules x))
else
do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
case tag of
Word64
10
-> do !y <- Parser HttpRule -> String -> Parser HttpRule
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.isolate
(Prelude.fromIntegral len)
Data.ProtoLens.parseMessage)
String
"rules"
v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.append mutable'rules y)
loop x v
Word64
16
-> do y <- Parser Bool -> String -> Parser Bool
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Word64 -> Bool) -> Parser Word64 -> Parser Bool
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
(Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude./=) Word64
0) Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
String
"fully_decode_reserved_expansion"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"fullyDecodeReservedExpansion") y
x)
mutable'rules
Word64
wire
-> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
loop
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
mutable'rules
in
Parser Http -> String -> Parser Http
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do mutable'rules <- IO (Growing Vector RealWorld HttpRule)
-> Parser (Growing Vector RealWorld HttpRule)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld HttpRule)
IO (Growing Vector (PrimState IO) HttpRule)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
loop Data.ProtoLens.defMessage mutable'rules)
String
"Http"
buildMessage :: Http -> Builder
buildMessage
= \ Http
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
((HttpRule -> Builder) -> Vector HttpRule -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ HttpRule
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
((ByteString -> Builder)
-> (HttpRule -> ByteString) -> HttpRule -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
HttpRule -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage HttpRule
_v))
(FoldLike
(Vector HttpRule) Http Http (Vector HttpRule) (Vector HttpRule)
-> Http -> Vector HttpRule
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'rules") Http
_x))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Bool
_v
= FoldLike Bool Http Http Bool Bool -> Http -> Bool
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"fullyDecodeReservedExpansion") Http
_x
in
if Bool -> Bool -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Bool
_v Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
16)
((Word64 -> Builder) -> (Bool -> Word64) -> Bool -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt (\ Bool
b -> if Bool
b then Word64
1 else Word64
0)
Bool
_v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike FieldSet Http Http FieldSet FieldSet -> Http -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet Http Http FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' Http FieldSet
Data.ProtoLens.unknownFields Http
_x)))
instance Control.DeepSeq.NFData Http where
rnf :: Http -> ()
rnf
= \ Http
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(Http -> FieldSet
_Http'_unknownFields Http
x__)
(Vector HttpRule -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(Http -> Vector HttpRule
_Http'rules Http
x__)
(Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(Http -> Bool
_Http'fullyDecodeReservedExpansion Http
x__) ()))
data HttpRule
= HttpRule'_constructor {HttpRule -> Text
_HttpRule'selector :: !Data.Text.Text,
HttpRule -> Text
_HttpRule'body :: !Data.Text.Text,
HttpRule -> Text
_HttpRule'responseBody :: !Data.Text.Text,
HttpRule -> Vector HttpRule
_HttpRule'additionalBindings :: !(Data.Vector.Vector HttpRule),
HttpRule -> Maybe HttpRule'Pattern
_HttpRule'pattern' :: !(Prelude.Maybe HttpRule'Pattern),
HttpRule -> FieldSet
_HttpRule'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (HttpRule -> HttpRule -> Bool
(HttpRule -> HttpRule -> Bool)
-> (HttpRule -> HttpRule -> Bool) -> Eq HttpRule
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: HttpRule -> HttpRule -> Bool
== :: HttpRule -> HttpRule -> Bool
$c/= :: HttpRule -> HttpRule -> Bool
/= :: HttpRule -> HttpRule -> Bool
Prelude.Eq, Eq HttpRule
Eq HttpRule =>
(HttpRule -> HttpRule -> Ordering)
-> (HttpRule -> HttpRule -> Bool)
-> (HttpRule -> HttpRule -> Bool)
-> (HttpRule -> HttpRule -> Bool)
-> (HttpRule -> HttpRule -> Bool)
-> (HttpRule -> HttpRule -> HttpRule)
-> (HttpRule -> HttpRule -> HttpRule)
-> Ord HttpRule
HttpRule -> HttpRule -> Bool
HttpRule -> HttpRule -> Ordering
HttpRule -> HttpRule -> HttpRule
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: HttpRule -> HttpRule -> Ordering
compare :: HttpRule -> HttpRule -> Ordering
$c< :: HttpRule -> HttpRule -> Bool
< :: HttpRule -> HttpRule -> Bool
$c<= :: HttpRule -> HttpRule -> Bool
<= :: HttpRule -> HttpRule -> Bool
$c> :: HttpRule -> HttpRule -> Bool
> :: HttpRule -> HttpRule -> Bool
$c>= :: HttpRule -> HttpRule -> Bool
>= :: HttpRule -> HttpRule -> Bool
$cmax :: HttpRule -> HttpRule -> HttpRule
max :: HttpRule -> HttpRule -> HttpRule
$cmin :: HttpRule -> HttpRule -> HttpRule
min :: HttpRule -> HttpRule -> HttpRule
Prelude.Ord)
instance Prelude.Show HttpRule where
showsPrec :: Int -> HttpRule -> ShowS
showsPrec Int
_ HttpRule
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(HttpRule -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort HttpRule
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
data HttpRule'Pattern
= HttpRule'Get !Data.Text.Text |
HttpRule'Put !Data.Text.Text |
HttpRule'Post !Data.Text.Text |
HttpRule'Delete !Data.Text.Text |
HttpRule'Patch !Data.Text.Text |
HttpRule'Custom !CustomHttpPattern
deriving stock (Int -> HttpRule'Pattern -> ShowS
[HttpRule'Pattern] -> ShowS
HttpRule'Pattern -> String
(Int -> HttpRule'Pattern -> ShowS)
-> (HttpRule'Pattern -> String)
-> ([HttpRule'Pattern] -> ShowS)
-> Show HttpRule'Pattern
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> HttpRule'Pattern -> ShowS
showsPrec :: Int -> HttpRule'Pattern -> ShowS
$cshow :: HttpRule'Pattern -> String
show :: HttpRule'Pattern -> String
$cshowList :: [HttpRule'Pattern] -> ShowS
showList :: [HttpRule'Pattern] -> ShowS
Prelude.Show, HttpRule'Pattern -> HttpRule'Pattern -> Bool
(HttpRule'Pattern -> HttpRule'Pattern -> Bool)
-> (HttpRule'Pattern -> HttpRule'Pattern -> Bool)
-> Eq HttpRule'Pattern
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: HttpRule'Pattern -> HttpRule'Pattern -> Bool
== :: HttpRule'Pattern -> HttpRule'Pattern -> Bool
$c/= :: HttpRule'Pattern -> HttpRule'Pattern -> Bool
/= :: HttpRule'Pattern -> HttpRule'Pattern -> Bool
Prelude.Eq, Eq HttpRule'Pattern
Eq HttpRule'Pattern =>
(HttpRule'Pattern -> HttpRule'Pattern -> Ordering)
-> (HttpRule'Pattern -> HttpRule'Pattern -> Bool)
-> (HttpRule'Pattern -> HttpRule'Pattern -> Bool)
-> (HttpRule'Pattern -> HttpRule'Pattern -> Bool)
-> (HttpRule'Pattern -> HttpRule'Pattern -> Bool)
-> (HttpRule'Pattern -> HttpRule'Pattern -> HttpRule'Pattern)
-> (HttpRule'Pattern -> HttpRule'Pattern -> HttpRule'Pattern)
-> Ord HttpRule'Pattern
HttpRule'Pattern -> HttpRule'Pattern -> Bool
HttpRule'Pattern -> HttpRule'Pattern -> Ordering
HttpRule'Pattern -> HttpRule'Pattern -> HttpRule'Pattern
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: HttpRule'Pattern -> HttpRule'Pattern -> Ordering
compare :: HttpRule'Pattern -> HttpRule'Pattern -> Ordering
$c< :: HttpRule'Pattern -> HttpRule'Pattern -> Bool
< :: HttpRule'Pattern -> HttpRule'Pattern -> Bool
$c<= :: HttpRule'Pattern -> HttpRule'Pattern -> Bool
<= :: HttpRule'Pattern -> HttpRule'Pattern -> Bool
$c> :: HttpRule'Pattern -> HttpRule'Pattern -> Bool
> :: HttpRule'Pattern -> HttpRule'Pattern -> Bool
$c>= :: HttpRule'Pattern -> HttpRule'Pattern -> Bool
>= :: HttpRule'Pattern -> HttpRule'Pattern -> Bool
$cmax :: HttpRule'Pattern -> HttpRule'Pattern -> HttpRule'Pattern
max :: HttpRule'Pattern -> HttpRule'Pattern -> HttpRule'Pattern
$cmin :: HttpRule'Pattern -> HttpRule'Pattern -> HttpRule'Pattern
min :: HttpRule'Pattern -> HttpRule'Pattern -> HttpRule'Pattern
Prelude.Ord)
instance Data.ProtoLens.Field.HasField HttpRule "selector" Data.Text.Text where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "selector" -> (Text -> f Text) -> HttpRule -> f HttpRule
fieldOf Proxy# "selector"
_
= ((Text -> f Text) -> HttpRule -> f HttpRule)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> HttpRule
-> f HttpRule
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((HttpRule -> Text)
-> (HttpRule -> Text -> HttpRule)
-> Lens HttpRule HttpRule Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
HttpRule -> Text
_HttpRule'selector (\ HttpRule
x__ Text
y__ -> HttpRule
x__ {_HttpRule'selector = y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField HttpRule "body" Data.Text.Text where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "body" -> (Text -> f Text) -> HttpRule -> f HttpRule
fieldOf Proxy# "body"
_
= ((Text -> f Text) -> HttpRule -> f HttpRule)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> HttpRule
-> f HttpRule
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((HttpRule -> Text)
-> (HttpRule -> Text -> HttpRule)
-> Lens HttpRule HttpRule Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
HttpRule -> Text
_HttpRule'body (\ HttpRule
x__ Text
y__ -> HttpRule
x__ {_HttpRule'body = y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField HttpRule "responseBody" Data.Text.Text where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "responseBody" -> (Text -> f Text) -> HttpRule -> f HttpRule
fieldOf Proxy# "responseBody"
_
= ((Text -> f Text) -> HttpRule -> f HttpRule)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> HttpRule
-> f HttpRule
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((HttpRule -> Text)
-> (HttpRule -> Text -> HttpRule)
-> Lens HttpRule HttpRule Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
HttpRule -> Text
_HttpRule'responseBody
(\ HttpRule
x__ Text
y__ -> HttpRule
x__ {_HttpRule'responseBody = y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField HttpRule "additionalBindings" [HttpRule] where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "additionalBindings"
-> ([HttpRule] -> f [HttpRule]) -> HttpRule -> f HttpRule
fieldOf Proxy# "additionalBindings"
_
= ((Vector HttpRule -> f (Vector HttpRule))
-> HttpRule -> f HttpRule)
-> (([HttpRule] -> f [HttpRule])
-> Vector HttpRule -> f (Vector HttpRule))
-> ([HttpRule] -> f [HttpRule])
-> HttpRule
-> f HttpRule
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((HttpRule -> Vector HttpRule)
-> (HttpRule -> Vector HttpRule -> HttpRule)
-> Lens HttpRule HttpRule (Vector HttpRule) (Vector HttpRule)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
HttpRule -> Vector HttpRule
_HttpRule'additionalBindings
(\ HttpRule
x__ Vector HttpRule
y__ -> HttpRule
x__ {_HttpRule'additionalBindings = y__}))
((Vector HttpRule -> [HttpRule])
-> (Vector HttpRule -> [HttpRule] -> Vector HttpRule)
-> Lens (Vector HttpRule) (Vector HttpRule) [HttpRule] [HttpRule]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector HttpRule -> [HttpRule]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ Vector HttpRule
_ [HttpRule]
y__ -> [HttpRule] -> Vector HttpRule
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [HttpRule]
y__))
instance Data.ProtoLens.Field.HasField HttpRule "vec'additionalBindings" (Data.Vector.Vector HttpRule) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'additionalBindings"
-> (Vector HttpRule -> f (Vector HttpRule))
-> HttpRule
-> f HttpRule
fieldOf Proxy# "vec'additionalBindings"
_
= ((Vector HttpRule -> f (Vector HttpRule))
-> HttpRule -> f HttpRule)
-> ((Vector HttpRule -> f (Vector HttpRule))
-> Vector HttpRule -> f (Vector HttpRule))
-> (Vector HttpRule -> f (Vector HttpRule))
-> HttpRule
-> f HttpRule
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((HttpRule -> Vector HttpRule)
-> (HttpRule -> Vector HttpRule -> HttpRule)
-> Lens HttpRule HttpRule (Vector HttpRule) (Vector HttpRule)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
HttpRule -> Vector HttpRule
_HttpRule'additionalBindings
(\ HttpRule
x__ Vector HttpRule
y__ -> HttpRule
x__ {_HttpRule'additionalBindings = y__}))
(Vector HttpRule -> f (Vector HttpRule))
-> Vector HttpRule -> f (Vector HttpRule)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField HttpRule "maybe'pattern'" (Prelude.Maybe HttpRule'Pattern) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'pattern'"
-> (Maybe HttpRule'Pattern -> f (Maybe HttpRule'Pattern))
-> HttpRule
-> f HttpRule
fieldOf Proxy# "maybe'pattern'"
_
= ((Maybe HttpRule'Pattern -> f (Maybe HttpRule'Pattern))
-> HttpRule -> f HttpRule)
-> ((Maybe HttpRule'Pattern -> f (Maybe HttpRule'Pattern))
-> Maybe HttpRule'Pattern -> f (Maybe HttpRule'Pattern))
-> (Maybe HttpRule'Pattern -> f (Maybe HttpRule'Pattern))
-> HttpRule
-> f HttpRule
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((HttpRule -> Maybe HttpRule'Pattern)
-> (HttpRule -> Maybe HttpRule'Pattern -> HttpRule)
-> Lens
HttpRule HttpRule (Maybe HttpRule'Pattern) (Maybe HttpRule'Pattern)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
HttpRule -> Maybe HttpRule'Pattern
_HttpRule'pattern' (\ HttpRule
x__ Maybe HttpRule'Pattern
y__ -> HttpRule
x__ {_HttpRule'pattern' = y__}))
(Maybe HttpRule'Pattern -> f (Maybe HttpRule'Pattern))
-> Maybe HttpRule'Pattern -> f (Maybe HttpRule'Pattern)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField HttpRule "maybe'get" (Prelude.Maybe Data.Text.Text) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'get"
-> (Maybe Text -> f (Maybe Text)) -> HttpRule -> f HttpRule
fieldOf Proxy# "maybe'get"
_
= ((Maybe HttpRule'Pattern -> f (Maybe HttpRule'Pattern))
-> HttpRule -> f HttpRule)
-> ((Maybe Text -> f (Maybe Text))
-> Maybe HttpRule'Pattern -> f (Maybe HttpRule'Pattern))
-> (Maybe Text -> f (Maybe Text))
-> HttpRule
-> f HttpRule
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((HttpRule -> Maybe HttpRule'Pattern)
-> (HttpRule -> Maybe HttpRule'Pattern -> HttpRule)
-> Lens
HttpRule HttpRule (Maybe HttpRule'Pattern) (Maybe HttpRule'Pattern)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
HttpRule -> Maybe HttpRule'Pattern
_HttpRule'pattern' (\ HttpRule
x__ Maybe HttpRule'Pattern
y__ -> HttpRule
x__ {_HttpRule'pattern' = y__}))
((Maybe HttpRule'Pattern -> Maybe Text)
-> (Maybe HttpRule'Pattern -> Maybe Text -> Maybe HttpRule'Pattern)
-> Lens
(Maybe HttpRule'Pattern)
(Maybe HttpRule'Pattern)
(Maybe Text)
(Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe HttpRule'Pattern
x__
-> case Maybe HttpRule'Pattern
x__ of
(Prelude.Just (HttpRule'Get Text
x__val)) -> Text -> Maybe Text
forall a. a -> Maybe a
Prelude.Just Text
x__val
Maybe HttpRule'Pattern
_otherwise -> Maybe Text
forall a. Maybe a
Prelude.Nothing)
(\ Maybe HttpRule'Pattern
_ Maybe Text
y__ -> (Text -> HttpRule'Pattern) -> Maybe Text -> Maybe HttpRule'Pattern
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Text -> HttpRule'Pattern
HttpRule'Get Maybe Text
y__))
instance Data.ProtoLens.Field.HasField HttpRule "get" Data.Text.Text where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "get" -> (Text -> f Text) -> HttpRule -> f HttpRule
fieldOf Proxy# "get"
_
= ((Maybe HttpRule'Pattern -> f (Maybe HttpRule'Pattern))
-> HttpRule -> f HttpRule)
-> ((Text -> f Text)
-> Maybe HttpRule'Pattern -> f (Maybe HttpRule'Pattern))
-> (Text -> f Text)
-> HttpRule
-> f HttpRule
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((HttpRule -> Maybe HttpRule'Pattern)
-> (HttpRule -> Maybe HttpRule'Pattern -> HttpRule)
-> Lens
HttpRule HttpRule (Maybe HttpRule'Pattern) (Maybe HttpRule'Pattern)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
HttpRule -> Maybe HttpRule'Pattern
_HttpRule'pattern' (\ HttpRule
x__ Maybe HttpRule'Pattern
y__ -> HttpRule
x__ {_HttpRule'pattern' = y__}))
(((Maybe Text -> f (Maybe Text))
-> Maybe HttpRule'Pattern -> f (Maybe HttpRule'Pattern))
-> ((Text -> f Text) -> Maybe Text -> f (Maybe Text))
-> (Text -> f Text)
-> Maybe HttpRule'Pattern
-> f (Maybe HttpRule'Pattern)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Maybe HttpRule'Pattern -> Maybe Text)
-> (Maybe HttpRule'Pattern -> Maybe Text -> Maybe HttpRule'Pattern)
-> Lens
(Maybe HttpRule'Pattern)
(Maybe HttpRule'Pattern)
(Maybe Text)
(Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe HttpRule'Pattern
x__
-> case Maybe HttpRule'Pattern
x__ of
(Prelude.Just (HttpRule'Get Text
x__val)) -> Text -> Maybe Text
forall a. a -> Maybe a
Prelude.Just Text
x__val
Maybe HttpRule'Pattern
_otherwise -> Maybe Text
forall a. Maybe a
Prelude.Nothing)
(\ Maybe HttpRule'Pattern
_ Maybe Text
y__ -> (Text -> HttpRule'Pattern) -> Maybe Text -> Maybe HttpRule'Pattern
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Text -> HttpRule'Pattern
HttpRule'Get Maybe Text
y__))
(Text -> Lens' (Maybe Text) Text
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault))
instance Data.ProtoLens.Field.HasField HttpRule "maybe'put" (Prelude.Maybe Data.Text.Text) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'put"
-> (Maybe Text -> f (Maybe Text)) -> HttpRule -> f HttpRule
fieldOf Proxy# "maybe'put"
_
= ((Maybe HttpRule'Pattern -> f (Maybe HttpRule'Pattern))
-> HttpRule -> f HttpRule)
-> ((Maybe Text -> f (Maybe Text))
-> Maybe HttpRule'Pattern -> f (Maybe HttpRule'Pattern))
-> (Maybe Text -> f (Maybe Text))
-> HttpRule
-> f HttpRule
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((HttpRule -> Maybe HttpRule'Pattern)
-> (HttpRule -> Maybe HttpRule'Pattern -> HttpRule)
-> Lens
HttpRule HttpRule (Maybe HttpRule'Pattern) (Maybe HttpRule'Pattern)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
HttpRule -> Maybe HttpRule'Pattern
_HttpRule'pattern' (\ HttpRule
x__ Maybe HttpRule'Pattern
y__ -> HttpRule
x__ {_HttpRule'pattern' = y__}))
((Maybe HttpRule'Pattern -> Maybe Text)
-> (Maybe HttpRule'Pattern -> Maybe Text -> Maybe HttpRule'Pattern)
-> Lens
(Maybe HttpRule'Pattern)
(Maybe HttpRule'Pattern)
(Maybe Text)
(Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe HttpRule'Pattern
x__
-> case Maybe HttpRule'Pattern
x__ of
(Prelude.Just (HttpRule'Put Text
x__val)) -> Text -> Maybe Text
forall a. a -> Maybe a
Prelude.Just Text
x__val
Maybe HttpRule'Pattern
_otherwise -> Maybe Text
forall a. Maybe a
Prelude.Nothing)
(\ Maybe HttpRule'Pattern
_ Maybe Text
y__ -> (Text -> HttpRule'Pattern) -> Maybe Text -> Maybe HttpRule'Pattern
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Text -> HttpRule'Pattern
HttpRule'Put Maybe Text
y__))
instance Data.ProtoLens.Field.HasField HttpRule "put" Data.Text.Text where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "put" -> (Text -> f Text) -> HttpRule -> f HttpRule
fieldOf Proxy# "put"
_
= ((Maybe HttpRule'Pattern -> f (Maybe HttpRule'Pattern))
-> HttpRule -> f HttpRule)
-> ((Text -> f Text)
-> Maybe HttpRule'Pattern -> f (Maybe HttpRule'Pattern))
-> (Text -> f Text)
-> HttpRule
-> f HttpRule
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((HttpRule -> Maybe HttpRule'Pattern)
-> (HttpRule -> Maybe HttpRule'Pattern -> HttpRule)
-> Lens
HttpRule HttpRule (Maybe HttpRule'Pattern) (Maybe HttpRule'Pattern)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
HttpRule -> Maybe HttpRule'Pattern
_HttpRule'pattern' (\ HttpRule
x__ Maybe HttpRule'Pattern
y__ -> HttpRule
x__ {_HttpRule'pattern' = y__}))
(((Maybe Text -> f (Maybe Text))
-> Maybe HttpRule'Pattern -> f (Maybe HttpRule'Pattern))
-> ((Text -> f Text) -> Maybe Text -> f (Maybe Text))
-> (Text -> f Text)
-> Maybe HttpRule'Pattern
-> f (Maybe HttpRule'Pattern)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Maybe HttpRule'Pattern -> Maybe Text)
-> (Maybe HttpRule'Pattern -> Maybe Text -> Maybe HttpRule'Pattern)
-> Lens
(Maybe HttpRule'Pattern)
(Maybe HttpRule'Pattern)
(Maybe Text)
(Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe HttpRule'Pattern
x__
-> case Maybe HttpRule'Pattern
x__ of
(Prelude.Just (HttpRule'Put Text
x__val)) -> Text -> Maybe Text
forall a. a -> Maybe a
Prelude.Just Text
x__val
Maybe HttpRule'Pattern
_otherwise -> Maybe Text
forall a. Maybe a
Prelude.Nothing)
(\ Maybe HttpRule'Pattern
_ Maybe Text
y__ -> (Text -> HttpRule'Pattern) -> Maybe Text -> Maybe HttpRule'Pattern
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Text -> HttpRule'Pattern
HttpRule'Put Maybe Text
y__))
(Text -> Lens' (Maybe Text) Text
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault))
instance Data.ProtoLens.Field.HasField HttpRule "maybe'post" (Prelude.Maybe Data.Text.Text) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'post"
-> (Maybe Text -> f (Maybe Text)) -> HttpRule -> f HttpRule
fieldOf Proxy# "maybe'post"
_
= ((Maybe HttpRule'Pattern -> f (Maybe HttpRule'Pattern))
-> HttpRule -> f HttpRule)
-> ((Maybe Text -> f (Maybe Text))
-> Maybe HttpRule'Pattern -> f (Maybe HttpRule'Pattern))
-> (Maybe Text -> f (Maybe Text))
-> HttpRule
-> f HttpRule
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((HttpRule -> Maybe HttpRule'Pattern)
-> (HttpRule -> Maybe HttpRule'Pattern -> HttpRule)
-> Lens
HttpRule HttpRule (Maybe HttpRule'Pattern) (Maybe HttpRule'Pattern)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
HttpRule -> Maybe HttpRule'Pattern
_HttpRule'pattern' (\ HttpRule
x__ Maybe HttpRule'Pattern
y__ -> HttpRule
x__ {_HttpRule'pattern' = y__}))
((Maybe HttpRule'Pattern -> Maybe Text)
-> (Maybe HttpRule'Pattern -> Maybe Text -> Maybe HttpRule'Pattern)
-> Lens
(Maybe HttpRule'Pattern)
(Maybe HttpRule'Pattern)
(Maybe Text)
(Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe HttpRule'Pattern
x__
-> case Maybe HttpRule'Pattern
x__ of
(Prelude.Just (HttpRule'Post Text
x__val)) -> Text -> Maybe Text
forall a. a -> Maybe a
Prelude.Just Text
x__val
Maybe HttpRule'Pattern
_otherwise -> Maybe Text
forall a. Maybe a
Prelude.Nothing)
(\ Maybe HttpRule'Pattern
_ Maybe Text
y__ -> (Text -> HttpRule'Pattern) -> Maybe Text -> Maybe HttpRule'Pattern
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Text -> HttpRule'Pattern
HttpRule'Post Maybe Text
y__))
instance Data.ProtoLens.Field.HasField HttpRule "post" Data.Text.Text where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "post" -> (Text -> f Text) -> HttpRule -> f HttpRule
fieldOf Proxy# "post"
_
= ((Maybe HttpRule'Pattern -> f (Maybe HttpRule'Pattern))
-> HttpRule -> f HttpRule)
-> ((Text -> f Text)
-> Maybe HttpRule'Pattern -> f (Maybe HttpRule'Pattern))
-> (Text -> f Text)
-> HttpRule
-> f HttpRule
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((HttpRule -> Maybe HttpRule'Pattern)
-> (HttpRule -> Maybe HttpRule'Pattern -> HttpRule)
-> Lens
HttpRule HttpRule (Maybe HttpRule'Pattern) (Maybe HttpRule'Pattern)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
HttpRule -> Maybe HttpRule'Pattern
_HttpRule'pattern' (\ HttpRule
x__ Maybe HttpRule'Pattern
y__ -> HttpRule
x__ {_HttpRule'pattern' = y__}))
(((Maybe Text -> f (Maybe Text))
-> Maybe HttpRule'Pattern -> f (Maybe HttpRule'Pattern))
-> ((Text -> f Text) -> Maybe Text -> f (Maybe Text))
-> (Text -> f Text)
-> Maybe HttpRule'Pattern
-> f (Maybe HttpRule'Pattern)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Maybe HttpRule'Pattern -> Maybe Text)
-> (Maybe HttpRule'Pattern -> Maybe Text -> Maybe HttpRule'Pattern)
-> Lens
(Maybe HttpRule'Pattern)
(Maybe HttpRule'Pattern)
(Maybe Text)
(Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe HttpRule'Pattern
x__
-> case Maybe HttpRule'Pattern
x__ of
(Prelude.Just (HttpRule'Post Text
x__val)) -> Text -> Maybe Text
forall a. a -> Maybe a
Prelude.Just Text
x__val
Maybe HttpRule'Pattern
_otherwise -> Maybe Text
forall a. Maybe a
Prelude.Nothing)
(\ Maybe HttpRule'Pattern
_ Maybe Text
y__ -> (Text -> HttpRule'Pattern) -> Maybe Text -> Maybe HttpRule'Pattern
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Text -> HttpRule'Pattern
HttpRule'Post Maybe Text
y__))
(Text -> Lens' (Maybe Text) Text
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault))
instance Data.ProtoLens.Field.HasField HttpRule "maybe'delete" (Prelude.Maybe Data.Text.Text) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'delete"
-> (Maybe Text -> f (Maybe Text)) -> HttpRule -> f HttpRule
fieldOf Proxy# "maybe'delete"
_
= ((Maybe HttpRule'Pattern -> f (Maybe HttpRule'Pattern))
-> HttpRule -> f HttpRule)
-> ((Maybe Text -> f (Maybe Text))
-> Maybe HttpRule'Pattern -> f (Maybe HttpRule'Pattern))
-> (Maybe Text -> f (Maybe Text))
-> HttpRule
-> f HttpRule
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((HttpRule -> Maybe HttpRule'Pattern)
-> (HttpRule -> Maybe HttpRule'Pattern -> HttpRule)
-> Lens
HttpRule HttpRule (Maybe HttpRule'Pattern) (Maybe HttpRule'Pattern)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
HttpRule -> Maybe HttpRule'Pattern
_HttpRule'pattern' (\ HttpRule
x__ Maybe HttpRule'Pattern
y__ -> HttpRule
x__ {_HttpRule'pattern' = y__}))
((Maybe HttpRule'Pattern -> Maybe Text)
-> (Maybe HttpRule'Pattern -> Maybe Text -> Maybe HttpRule'Pattern)
-> Lens
(Maybe HttpRule'Pattern)
(Maybe HttpRule'Pattern)
(Maybe Text)
(Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe HttpRule'Pattern
x__
-> case Maybe HttpRule'Pattern
x__ of
(Prelude.Just (HttpRule'Delete Text
x__val)) -> Text -> Maybe Text
forall a. a -> Maybe a
Prelude.Just Text
x__val
Maybe HttpRule'Pattern
_otherwise -> Maybe Text
forall a. Maybe a
Prelude.Nothing)
(\ Maybe HttpRule'Pattern
_ Maybe Text
y__ -> (Text -> HttpRule'Pattern) -> Maybe Text -> Maybe HttpRule'Pattern
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Text -> HttpRule'Pattern
HttpRule'Delete Maybe Text
y__))
instance Data.ProtoLens.Field.HasField HttpRule "delete" Data.Text.Text where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "delete" -> (Text -> f Text) -> HttpRule -> f HttpRule
fieldOf Proxy# "delete"
_
= ((Maybe HttpRule'Pattern -> f (Maybe HttpRule'Pattern))
-> HttpRule -> f HttpRule)
-> ((Text -> f Text)
-> Maybe HttpRule'Pattern -> f (Maybe HttpRule'Pattern))
-> (Text -> f Text)
-> HttpRule
-> f HttpRule
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((HttpRule -> Maybe HttpRule'Pattern)
-> (HttpRule -> Maybe HttpRule'Pattern -> HttpRule)
-> Lens
HttpRule HttpRule (Maybe HttpRule'Pattern) (Maybe HttpRule'Pattern)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
HttpRule -> Maybe HttpRule'Pattern
_HttpRule'pattern' (\ HttpRule
x__ Maybe HttpRule'Pattern
y__ -> HttpRule
x__ {_HttpRule'pattern' = y__}))
(((Maybe Text -> f (Maybe Text))
-> Maybe HttpRule'Pattern -> f (Maybe HttpRule'Pattern))
-> ((Text -> f Text) -> Maybe Text -> f (Maybe Text))
-> (Text -> f Text)
-> Maybe HttpRule'Pattern
-> f (Maybe HttpRule'Pattern)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Maybe HttpRule'Pattern -> Maybe Text)
-> (Maybe HttpRule'Pattern -> Maybe Text -> Maybe HttpRule'Pattern)
-> Lens
(Maybe HttpRule'Pattern)
(Maybe HttpRule'Pattern)
(Maybe Text)
(Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe HttpRule'Pattern
x__
-> case Maybe HttpRule'Pattern
x__ of
(Prelude.Just (HttpRule'Delete Text
x__val)) -> Text -> Maybe Text
forall a. a -> Maybe a
Prelude.Just Text
x__val
Maybe HttpRule'Pattern
_otherwise -> Maybe Text
forall a. Maybe a
Prelude.Nothing)
(\ Maybe HttpRule'Pattern
_ Maybe Text
y__ -> (Text -> HttpRule'Pattern) -> Maybe Text -> Maybe HttpRule'Pattern
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Text -> HttpRule'Pattern
HttpRule'Delete Maybe Text
y__))
(Text -> Lens' (Maybe Text) Text
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault))
instance Data.ProtoLens.Field.HasField HttpRule "maybe'patch" (Prelude.Maybe Data.Text.Text) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'patch"
-> (Maybe Text -> f (Maybe Text)) -> HttpRule -> f HttpRule
fieldOf Proxy# "maybe'patch"
_
= ((Maybe HttpRule'Pattern -> f (Maybe HttpRule'Pattern))
-> HttpRule -> f HttpRule)
-> ((Maybe Text -> f (Maybe Text))
-> Maybe HttpRule'Pattern -> f (Maybe HttpRule'Pattern))
-> (Maybe Text -> f (Maybe Text))
-> HttpRule
-> f HttpRule
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((HttpRule -> Maybe HttpRule'Pattern)
-> (HttpRule -> Maybe HttpRule'Pattern -> HttpRule)
-> Lens
HttpRule HttpRule (Maybe HttpRule'Pattern) (Maybe HttpRule'Pattern)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
HttpRule -> Maybe HttpRule'Pattern
_HttpRule'pattern' (\ HttpRule
x__ Maybe HttpRule'Pattern
y__ -> HttpRule
x__ {_HttpRule'pattern' = y__}))
((Maybe HttpRule'Pattern -> Maybe Text)
-> (Maybe HttpRule'Pattern -> Maybe Text -> Maybe HttpRule'Pattern)
-> Lens
(Maybe HttpRule'Pattern)
(Maybe HttpRule'Pattern)
(Maybe Text)
(Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe HttpRule'Pattern
x__
-> case Maybe HttpRule'Pattern
x__ of
(Prelude.Just (HttpRule'Patch Text
x__val)) -> Text -> Maybe Text
forall a. a -> Maybe a
Prelude.Just Text
x__val
Maybe HttpRule'Pattern
_otherwise -> Maybe Text
forall a. Maybe a
Prelude.Nothing)
(\ Maybe HttpRule'Pattern
_ Maybe Text
y__ -> (Text -> HttpRule'Pattern) -> Maybe Text -> Maybe HttpRule'Pattern
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Text -> HttpRule'Pattern
HttpRule'Patch Maybe Text
y__))
instance Data.ProtoLens.Field.HasField HttpRule "patch" Data.Text.Text where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "patch" -> (Text -> f Text) -> HttpRule -> f HttpRule
fieldOf Proxy# "patch"
_
= ((Maybe HttpRule'Pattern -> f (Maybe HttpRule'Pattern))
-> HttpRule -> f HttpRule)
-> ((Text -> f Text)
-> Maybe HttpRule'Pattern -> f (Maybe HttpRule'Pattern))
-> (Text -> f Text)
-> HttpRule
-> f HttpRule
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((HttpRule -> Maybe HttpRule'Pattern)
-> (HttpRule -> Maybe HttpRule'Pattern -> HttpRule)
-> Lens
HttpRule HttpRule (Maybe HttpRule'Pattern) (Maybe HttpRule'Pattern)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
HttpRule -> Maybe HttpRule'Pattern
_HttpRule'pattern' (\ HttpRule
x__ Maybe HttpRule'Pattern
y__ -> HttpRule
x__ {_HttpRule'pattern' = y__}))
(((Maybe Text -> f (Maybe Text))
-> Maybe HttpRule'Pattern -> f (Maybe HttpRule'Pattern))
-> ((Text -> f Text) -> Maybe Text -> f (Maybe Text))
-> (Text -> f Text)
-> Maybe HttpRule'Pattern
-> f (Maybe HttpRule'Pattern)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Maybe HttpRule'Pattern -> Maybe Text)
-> (Maybe HttpRule'Pattern -> Maybe Text -> Maybe HttpRule'Pattern)
-> Lens
(Maybe HttpRule'Pattern)
(Maybe HttpRule'Pattern)
(Maybe Text)
(Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe HttpRule'Pattern
x__
-> case Maybe HttpRule'Pattern
x__ of
(Prelude.Just (HttpRule'Patch Text
x__val)) -> Text -> Maybe Text
forall a. a -> Maybe a
Prelude.Just Text
x__val
Maybe HttpRule'Pattern
_otherwise -> Maybe Text
forall a. Maybe a
Prelude.Nothing)
(\ Maybe HttpRule'Pattern
_ Maybe Text
y__ -> (Text -> HttpRule'Pattern) -> Maybe Text -> Maybe HttpRule'Pattern
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Text -> HttpRule'Pattern
HttpRule'Patch Maybe Text
y__))
(Text -> Lens' (Maybe Text) Text
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault))
instance Data.ProtoLens.Field.HasField HttpRule "maybe'custom" (Prelude.Maybe CustomHttpPattern) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'custom"
-> (Maybe CustomHttpPattern -> f (Maybe CustomHttpPattern))
-> HttpRule
-> f HttpRule
fieldOf Proxy# "maybe'custom"
_
= ((Maybe HttpRule'Pattern -> f (Maybe HttpRule'Pattern))
-> HttpRule -> f HttpRule)
-> ((Maybe CustomHttpPattern -> f (Maybe CustomHttpPattern))
-> Maybe HttpRule'Pattern -> f (Maybe HttpRule'Pattern))
-> (Maybe CustomHttpPattern -> f (Maybe CustomHttpPattern))
-> HttpRule
-> f HttpRule
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((HttpRule -> Maybe HttpRule'Pattern)
-> (HttpRule -> Maybe HttpRule'Pattern -> HttpRule)
-> Lens
HttpRule HttpRule (Maybe HttpRule'Pattern) (Maybe HttpRule'Pattern)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
HttpRule -> Maybe HttpRule'Pattern
_HttpRule'pattern' (\ HttpRule
x__ Maybe HttpRule'Pattern
y__ -> HttpRule
x__ {_HttpRule'pattern' = y__}))
((Maybe HttpRule'Pattern -> Maybe CustomHttpPattern)
-> (Maybe HttpRule'Pattern
-> Maybe CustomHttpPattern -> Maybe HttpRule'Pattern)
-> Lens
(Maybe HttpRule'Pattern)
(Maybe HttpRule'Pattern)
(Maybe CustomHttpPattern)
(Maybe CustomHttpPattern)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe HttpRule'Pattern
x__
-> case Maybe HttpRule'Pattern
x__ of
(Prelude.Just (HttpRule'Custom CustomHttpPattern
x__val)) -> CustomHttpPattern -> Maybe CustomHttpPattern
forall a. a -> Maybe a
Prelude.Just CustomHttpPattern
x__val
Maybe HttpRule'Pattern
_otherwise -> Maybe CustomHttpPattern
forall a. Maybe a
Prelude.Nothing)
(\ Maybe HttpRule'Pattern
_ Maybe CustomHttpPattern
y__ -> (CustomHttpPattern -> HttpRule'Pattern)
-> Maybe CustomHttpPattern -> Maybe HttpRule'Pattern
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap CustomHttpPattern -> HttpRule'Pattern
HttpRule'Custom Maybe CustomHttpPattern
y__))
instance Data.ProtoLens.Field.HasField HttpRule "custom" CustomHttpPattern where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "custom"
-> (CustomHttpPattern -> f CustomHttpPattern)
-> HttpRule
-> f HttpRule
fieldOf Proxy# "custom"
_
= ((Maybe HttpRule'Pattern -> f (Maybe HttpRule'Pattern))
-> HttpRule -> f HttpRule)
-> ((CustomHttpPattern -> f CustomHttpPattern)
-> Maybe HttpRule'Pattern -> f (Maybe HttpRule'Pattern))
-> (CustomHttpPattern -> f CustomHttpPattern)
-> HttpRule
-> f HttpRule
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((HttpRule -> Maybe HttpRule'Pattern)
-> (HttpRule -> Maybe HttpRule'Pattern -> HttpRule)
-> Lens
HttpRule HttpRule (Maybe HttpRule'Pattern) (Maybe HttpRule'Pattern)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
HttpRule -> Maybe HttpRule'Pattern
_HttpRule'pattern' (\ HttpRule
x__ Maybe HttpRule'Pattern
y__ -> HttpRule
x__ {_HttpRule'pattern' = y__}))
(((Maybe CustomHttpPattern -> f (Maybe CustomHttpPattern))
-> Maybe HttpRule'Pattern -> f (Maybe HttpRule'Pattern))
-> ((CustomHttpPattern -> f CustomHttpPattern)
-> Maybe CustomHttpPattern -> f (Maybe CustomHttpPattern))
-> (CustomHttpPattern -> f CustomHttpPattern)
-> Maybe HttpRule'Pattern
-> f (Maybe HttpRule'Pattern)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Maybe HttpRule'Pattern -> Maybe CustomHttpPattern)
-> (Maybe HttpRule'Pattern
-> Maybe CustomHttpPattern -> Maybe HttpRule'Pattern)
-> Lens
(Maybe HttpRule'Pattern)
(Maybe HttpRule'Pattern)
(Maybe CustomHttpPattern)
(Maybe CustomHttpPattern)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe HttpRule'Pattern
x__
-> case Maybe HttpRule'Pattern
x__ of
(Prelude.Just (HttpRule'Custom CustomHttpPattern
x__val)) -> CustomHttpPattern -> Maybe CustomHttpPattern
forall a. a -> Maybe a
Prelude.Just CustomHttpPattern
x__val
Maybe HttpRule'Pattern
_otherwise -> Maybe CustomHttpPattern
forall a. Maybe a
Prelude.Nothing)
(\ Maybe HttpRule'Pattern
_ Maybe CustomHttpPattern
y__ -> (CustomHttpPattern -> HttpRule'Pattern)
-> Maybe CustomHttpPattern -> Maybe HttpRule'Pattern
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap CustomHttpPattern -> HttpRule'Pattern
HttpRule'Custom Maybe CustomHttpPattern
y__))
(CustomHttpPattern
-> Lens' (Maybe CustomHttpPattern) CustomHttpPattern
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens CustomHttpPattern
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Message HttpRule where
messageName :: Proxy HttpRule -> Text
messageName Proxy HttpRule
_ = String -> Text
Data.Text.pack String
"google.api.HttpRule"
packedMessageDescriptor :: Proxy HttpRule -> ByteString
packedMessageDescriptor Proxy HttpRule
_
= ByteString
"\n\
\\bHttpRule\DC2\SUB\n\
\\bselector\CAN\SOH \SOH(\tR\bselector\DC2\DC2\n\
\\ETXget\CAN\STX \SOH(\tH\NULR\ETXget\DC2\DC2\n\
\\ETXput\CAN\ETX \SOH(\tH\NULR\ETXput\DC2\DC4\n\
\\EOTpost\CAN\EOT \SOH(\tH\NULR\EOTpost\DC2\CAN\n\
\\ACKdelete\CAN\ENQ \SOH(\tH\NULR\ACKdelete\DC2\SYN\n\
\\ENQpatch\CAN\ACK \SOH(\tH\NULR\ENQpatch\DC27\n\
\\ACKcustom\CAN\b \SOH(\v2\GS.google.api.CustomHttpPatternH\NULR\ACKcustom\DC2\DC2\n\
\\EOTbody\CAN\a \SOH(\tR\EOTbody\DC2#\n\
\\rresponse_body\CAN\f \SOH(\tR\fresponseBody\DC2E\n\
\\DC3additional_bindings\CAN\v \ETX(\v2\DC4.google.api.HttpRuleR\DC2additionalBindingsB\t\n\
\\apattern"
packedFileDescriptor :: Proxy HttpRule -> ByteString
packedFileDescriptor Proxy HttpRule
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor HttpRule)
fieldsByTag
= let
selector__field_descriptor :: FieldDescriptor HttpRule
selector__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor HttpRule Text
-> FieldDescriptor HttpRule
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"selector"
(ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(WireDefault Text
-> Lens HttpRule HttpRule Text Text -> FieldAccessor HttpRule Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"selector")) ::
Data.ProtoLens.FieldDescriptor HttpRule
body__field_descriptor :: FieldDescriptor HttpRule
body__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor HttpRule Text
-> FieldDescriptor HttpRule
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"body"
(ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(WireDefault Text
-> Lens HttpRule HttpRule Text Text -> FieldAccessor HttpRule Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"body")) ::
Data.ProtoLens.FieldDescriptor HttpRule
responseBody__field_descriptor :: FieldDescriptor HttpRule
responseBody__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor HttpRule Text
-> FieldDescriptor HttpRule
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"response_body"
(ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(WireDefault Text
-> Lens HttpRule HttpRule Text Text -> FieldAccessor HttpRule Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"responseBody")) ::
Data.ProtoLens.FieldDescriptor HttpRule
additionalBindings__field_descriptor :: FieldDescriptor HttpRule
additionalBindings__field_descriptor
= String
-> FieldTypeDescriptor HttpRule
-> FieldAccessor HttpRule HttpRule
-> FieldDescriptor HttpRule
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"additional_bindings"
(MessageOrGroup -> FieldTypeDescriptor HttpRule
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor HttpRule)
(Packing
-> Lens' HttpRule [HttpRule] -> FieldAccessor HttpRule HttpRule
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Unpacked
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"additionalBindings")) ::
Data.ProtoLens.FieldDescriptor HttpRule
get__field_descriptor :: FieldDescriptor HttpRule
get__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor HttpRule Text
-> FieldDescriptor HttpRule
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"get"
(ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Lens' HttpRule (Maybe Text) -> FieldAccessor HttpRule Text
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'get")) ::
Data.ProtoLens.FieldDescriptor HttpRule
put__field_descriptor :: FieldDescriptor HttpRule
put__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor HttpRule Text
-> FieldDescriptor HttpRule
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"put"
(ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Lens' HttpRule (Maybe Text) -> FieldAccessor HttpRule Text
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'put")) ::
Data.ProtoLens.FieldDescriptor HttpRule
post__field_descriptor :: FieldDescriptor HttpRule
post__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor HttpRule Text
-> FieldDescriptor HttpRule
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"post"
(ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Lens' HttpRule (Maybe Text) -> FieldAccessor HttpRule Text
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'post")) ::
Data.ProtoLens.FieldDescriptor HttpRule
delete__field_descriptor :: FieldDescriptor HttpRule
delete__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor HttpRule Text
-> FieldDescriptor HttpRule
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"delete"
(ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Lens' HttpRule (Maybe Text) -> FieldAccessor HttpRule Text
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'delete")) ::
Data.ProtoLens.FieldDescriptor HttpRule
patch__field_descriptor :: FieldDescriptor HttpRule
patch__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor HttpRule Text
-> FieldDescriptor HttpRule
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"patch"
(ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Lens' HttpRule (Maybe Text) -> FieldAccessor HttpRule Text
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'patch")) ::
Data.ProtoLens.FieldDescriptor HttpRule
custom__field_descriptor :: FieldDescriptor HttpRule
custom__field_descriptor
= String
-> FieldTypeDescriptor CustomHttpPattern
-> FieldAccessor HttpRule CustomHttpPattern
-> FieldDescriptor HttpRule
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"custom"
(MessageOrGroup -> FieldTypeDescriptor CustomHttpPattern
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor CustomHttpPattern)
(Lens' HttpRule (Maybe CustomHttpPattern)
-> FieldAccessor HttpRule CustomHttpPattern
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'custom")) ::
Data.ProtoLens.FieldDescriptor HttpRule
in
[(Tag, FieldDescriptor HttpRule)]
-> Map Tag (FieldDescriptor HttpRule)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor HttpRule
selector__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
7, FieldDescriptor HttpRule
body__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
12, FieldDescriptor HttpRule
responseBody__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
11, FieldDescriptor HttpRule
additionalBindings__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor HttpRule
get__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor HttpRule
put__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
4, FieldDescriptor HttpRule
post__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
5, FieldDescriptor HttpRule
delete__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
6, FieldDescriptor HttpRule
patch__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
8, FieldDescriptor HttpRule
custom__field_descriptor)]
unknownFields :: Lens' HttpRule FieldSet
unknownFields
= (HttpRule -> FieldSet)
-> (HttpRule -> FieldSet -> HttpRule) -> Lens' HttpRule FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
HttpRule -> FieldSet
_HttpRule'_unknownFields
(\ HttpRule
x__ FieldSet
y__ -> HttpRule
x__ {_HttpRule'_unknownFields = y__})
defMessage :: HttpRule
defMessage
= HttpRule'_constructor
{_HttpRule'selector :: Text
_HttpRule'selector = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_HttpRule'body :: Text
_HttpRule'body = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_HttpRule'responseBody :: Text
_HttpRule'responseBody = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_HttpRule'additionalBindings :: Vector HttpRule
_HttpRule'additionalBindings = Vector HttpRule
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_HttpRule'pattern' :: Maybe HttpRule'Pattern
_HttpRule'pattern' = Maybe HttpRule'Pattern
forall a. Maybe a
Prelude.Nothing,
_HttpRule'_unknownFields :: FieldSet
_HttpRule'_unknownFields = []}
parseMessage :: Parser HttpRule
parseMessage
= let
loop ::
HttpRule
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld HttpRule
-> Data.ProtoLens.Encoding.Bytes.Parser HttpRule
loop :: HttpRule -> Growing Vector RealWorld HttpRule -> Parser HttpRule
loop HttpRule
x Growing Vector RealWorld HttpRule
mutable'additionalBindings
= do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if end then
do frozen'additionalBindings <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.unsafeFreeze
mutable'additionalBindings)
(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 (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
(Lens.Family2.set
(Data.ProtoLens.Field.field @"vec'additionalBindings")
frozen'additionalBindings x))
else
do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
case tag of
Word64
10
-> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.getText
(Prelude.fromIntegral len))
String
"selector"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"selector") y x)
mutable'additionalBindings
Word64
58
-> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.getText
(Prelude.fromIntegral len))
String
"body"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"body") y x)
mutable'additionalBindings
Word64
98
-> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.getText
(Prelude.fromIntegral len))
String
"response_body"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"responseBody") y x)
mutable'additionalBindings
Word64
90
-> do !y <- Parser HttpRule -> String -> Parser HttpRule
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.isolate
(Prelude.fromIntegral len)
Data.ProtoLens.parseMessage)
String
"additional_bindings"
v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.append
mutable'additionalBindings y)
loop x v
Word64
18
-> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.getText
(Prelude.fromIntegral len))
String
"get"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"get") y x)
mutable'additionalBindings
Word64
26
-> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.getText
(Prelude.fromIntegral len))
String
"put"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"put") y x)
mutable'additionalBindings
Word64
34
-> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.getText
(Prelude.fromIntegral len))
String
"post"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"post") y x)
mutable'additionalBindings
Word64
42
-> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.getText
(Prelude.fromIntegral len))
String
"delete"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"delete") y x)
mutable'additionalBindings
Word64
50
-> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.getText
(Prelude.fromIntegral len))
String
"patch"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"patch") y x)
mutable'additionalBindings
Word64
66
-> do y <- Parser CustomHttpPattern -> String -> Parser CustomHttpPattern
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.isolate
(Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
String
"custom"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"custom") y x)
mutable'additionalBindings
Word64
wire
-> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
loop
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
mutable'additionalBindings
in
Parser HttpRule -> String -> Parser HttpRule
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do mutable'additionalBindings <- IO (Growing Vector RealWorld HttpRule)
-> Parser (Growing Vector RealWorld HttpRule)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld HttpRule)
IO (Growing Vector (PrimState IO) HttpRule)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
loop Data.ProtoLens.defMessage mutable'additionalBindings)
String
"HttpRule"
buildMessage :: HttpRule -> Builder
buildMessage
= \ HttpRule
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Text
_v = FoldLike Text HttpRule HttpRule Text Text -> HttpRule -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"selector") HttpRule
_x
in
if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let _v :: Text
_v = FoldLike Text HttpRule HttpRule Text Text -> HttpRule -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"body") HttpRule
_x
in
if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
58)
((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Text
_v
= FoldLike Text HttpRule HttpRule Text Text -> HttpRule -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"responseBody") HttpRule
_x
in
if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
98)
((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
((HttpRule -> Builder) -> Vector HttpRule -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ HttpRule
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
90)
((ByteString -> Builder)
-> (HttpRule -> ByteString) -> HttpRule -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
HttpRule -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage HttpRule
_v))
(FoldLike
(Vector HttpRule)
HttpRule
HttpRule
(Vector HttpRule)
(Vector HttpRule)
-> HttpRule -> Vector HttpRule
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'additionalBindings") HttpRule
_x))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe HttpRule'Pattern)
HttpRule
HttpRule
(Maybe HttpRule'Pattern)
(Maybe HttpRule'Pattern)
-> HttpRule -> Maybe HttpRule'Pattern
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'pattern'") HttpRule
_x
of
Maybe HttpRule'Pattern
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just (HttpRule'Get Text
v))
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
v)
(Prelude.Just (HttpRule'Put Text
v))
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
26)
((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
v)
(Prelude.Just (HttpRule'Post Text
v))
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
34)
((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
v)
(Prelude.Just (HttpRule'Delete Text
v))
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
42)
((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
v)
(Prelude.Just (HttpRule'Patch Text
v))
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
50)
((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
v)
(Prelude.Just (HttpRule'Custom CustomHttpPattern
v))
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
66)
((ByteString -> Builder)
-> (CustomHttpPattern -> ByteString)
-> CustomHttpPattern
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
CustomHttpPattern -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage CustomHttpPattern
v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike FieldSet HttpRule HttpRule FieldSet FieldSet
-> HttpRule -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet HttpRule HttpRule FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' HttpRule FieldSet
Data.ProtoLens.unknownFields HttpRule
_x))))))
instance Control.DeepSeq.NFData HttpRule where
rnf :: HttpRule -> ()
rnf
= \ HttpRule
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(HttpRule -> FieldSet
_HttpRule'_unknownFields HttpRule
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(HttpRule -> Text
_HttpRule'selector HttpRule
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(HttpRule -> Text
_HttpRule'body HttpRule
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(HttpRule -> Text
_HttpRule'responseBody HttpRule
x__)
(Vector HttpRule -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(HttpRule -> Vector HttpRule
_HttpRule'additionalBindings HttpRule
x__)
(Maybe HttpRule'Pattern -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (HttpRule -> Maybe HttpRule'Pattern
_HttpRule'pattern' HttpRule
x__) ())))))
instance Control.DeepSeq.NFData HttpRule'Pattern where
rnf :: HttpRule'Pattern -> ()
rnf (HttpRule'Get Text
x__) = Text -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf Text
x__
rnf (HttpRule'Put Text
x__) = Text -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf Text
x__
rnf (HttpRule'Post Text
x__) = Text -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf Text
x__
rnf (HttpRule'Delete Text
x__) = Text -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf Text
x__
rnf (HttpRule'Patch Text
x__) = Text -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf Text
x__
rnf (HttpRule'Custom CustomHttpPattern
x__) = CustomHttpPattern -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf CustomHttpPattern
x__
_HttpRule'Get ::
Data.ProtoLens.Prism.Prism' HttpRule'Pattern Data.Text.Text
_HttpRule'Get :: Prism' HttpRule'Pattern Text
_HttpRule'Get
= (Text -> HttpRule'Pattern)
-> (HttpRule'Pattern -> Maybe Text) -> Prism' HttpRule'Pattern Text
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
Text -> HttpRule'Pattern
HttpRule'Get
(\ HttpRule'Pattern
p__
-> case HttpRule'Pattern
p__ of
(HttpRule'Get Text
p__val) -> Text -> Maybe Text
forall a. a -> Maybe a
Prelude.Just Text
p__val
HttpRule'Pattern
_otherwise -> Maybe Text
forall a. Maybe a
Prelude.Nothing)
_HttpRule'Put ::
Data.ProtoLens.Prism.Prism' HttpRule'Pattern Data.Text.Text
_HttpRule'Put :: Prism' HttpRule'Pattern Text
_HttpRule'Put
= (Text -> HttpRule'Pattern)
-> (HttpRule'Pattern -> Maybe Text) -> Prism' HttpRule'Pattern Text
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
Text -> HttpRule'Pattern
HttpRule'Put
(\ HttpRule'Pattern
p__
-> case HttpRule'Pattern
p__ of
(HttpRule'Put Text
p__val) -> Text -> Maybe Text
forall a. a -> Maybe a
Prelude.Just Text
p__val
HttpRule'Pattern
_otherwise -> Maybe Text
forall a. Maybe a
Prelude.Nothing)
_HttpRule'Post ::
Data.ProtoLens.Prism.Prism' HttpRule'Pattern Data.Text.Text
_HttpRule'Post :: Prism' HttpRule'Pattern Text
_HttpRule'Post
= (Text -> HttpRule'Pattern)
-> (HttpRule'Pattern -> Maybe Text) -> Prism' HttpRule'Pattern Text
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
Text -> HttpRule'Pattern
HttpRule'Post
(\ HttpRule'Pattern
p__
-> case HttpRule'Pattern
p__ of
(HttpRule'Post Text
p__val) -> Text -> Maybe Text
forall a. a -> Maybe a
Prelude.Just Text
p__val
HttpRule'Pattern
_otherwise -> Maybe Text
forall a. Maybe a
Prelude.Nothing)
_HttpRule'Delete ::
Data.ProtoLens.Prism.Prism' HttpRule'Pattern Data.Text.Text
_HttpRule'Delete :: Prism' HttpRule'Pattern Text
_HttpRule'Delete
= (Text -> HttpRule'Pattern)
-> (HttpRule'Pattern -> Maybe Text) -> Prism' HttpRule'Pattern Text
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
Text -> HttpRule'Pattern
HttpRule'Delete
(\ HttpRule'Pattern
p__
-> case HttpRule'Pattern
p__ of
(HttpRule'Delete Text
p__val) -> Text -> Maybe Text
forall a. a -> Maybe a
Prelude.Just Text
p__val
HttpRule'Pattern
_otherwise -> Maybe Text
forall a. Maybe a
Prelude.Nothing)
_HttpRule'Patch ::
Data.ProtoLens.Prism.Prism' HttpRule'Pattern Data.Text.Text
_HttpRule'Patch :: Prism' HttpRule'Pattern Text
_HttpRule'Patch
= (Text -> HttpRule'Pattern)
-> (HttpRule'Pattern -> Maybe Text) -> Prism' HttpRule'Pattern Text
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
Text -> HttpRule'Pattern
HttpRule'Patch
(\ HttpRule'Pattern
p__
-> case HttpRule'Pattern
p__ of
(HttpRule'Patch Text
p__val) -> Text -> Maybe Text
forall a. a -> Maybe a
Prelude.Just Text
p__val
HttpRule'Pattern
_otherwise -> Maybe Text
forall a. Maybe a
Prelude.Nothing)
_HttpRule'Custom ::
Data.ProtoLens.Prism.Prism' HttpRule'Pattern CustomHttpPattern
_HttpRule'Custom :: Prism' HttpRule'Pattern CustomHttpPattern
_HttpRule'Custom
= (CustomHttpPattern -> HttpRule'Pattern)
-> (HttpRule'Pattern -> Maybe CustomHttpPattern)
-> Prism' HttpRule'Pattern CustomHttpPattern
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
CustomHttpPattern -> HttpRule'Pattern
HttpRule'Custom
(\ HttpRule'Pattern
p__
-> case HttpRule'Pattern
p__ of
(HttpRule'Custom CustomHttpPattern
p__val) -> CustomHttpPattern -> Maybe CustomHttpPattern
forall a. a -> Maybe a
Prelude.Just CustomHttpPattern
p__val
HttpRule'Pattern
_otherwise -> Maybe CustomHttpPattern
forall a. Maybe a
Prelude.Nothing)
packedFileDescriptor :: Data.ByteString.ByteString
packedFileDescriptor :: ByteString
packedFileDescriptor
= ByteString
"\n\
\\NAKgoogle/api/http.proto\DC2\n\
\google.api\"y\n\
\\EOTHttp\DC2*\n\
\\ENQrules\CAN\SOH \ETX(\v2\DC4.google.api.HttpRuleR\ENQrules\DC2E\n\
\\USfully_decode_reserved_expansion\CAN\STX \SOH(\bR\FSfullyDecodeReservedExpansion\"\218\STX\n\
\\bHttpRule\DC2\SUB\n\
\\bselector\CAN\SOH \SOH(\tR\bselector\DC2\DC2\n\
\\ETXget\CAN\STX \SOH(\tH\NULR\ETXget\DC2\DC2\n\
\\ETXput\CAN\ETX \SOH(\tH\NULR\ETXput\DC2\DC4\n\
\\EOTpost\CAN\EOT \SOH(\tH\NULR\EOTpost\DC2\CAN\n\
\\ACKdelete\CAN\ENQ \SOH(\tH\NULR\ACKdelete\DC2\SYN\n\
\\ENQpatch\CAN\ACK \SOH(\tH\NULR\ENQpatch\DC27\n\
\\ACKcustom\CAN\b \SOH(\v2\GS.google.api.CustomHttpPatternH\NULR\ACKcustom\DC2\DC2\n\
\\EOTbody\CAN\a \SOH(\tR\EOTbody\DC2#\n\
\\rresponse_body\CAN\f \SOH(\tR\fresponseBody\DC2E\n\
\\DC3additional_bindings\CAN\v \ETX(\v2\DC4.google.api.HttpRuleR\DC2additionalBindingsB\t\n\
\\apattern\";\n\
\\DC1CustomHttpPattern\DC2\DC2\n\
\\EOTkind\CAN\SOH \SOH(\tR\EOTkind\DC2\DC2\n\
\\EOTpath\CAN\STX \SOH(\tR\EOTpathBj\n\
\\SOcom.google.apiB\tHttpProtoP\SOHZAgoogle.golang.org/genproto/googleapis/api/annotations;annotations\248\SOH\SOH\162\STX\EOTGAPIJ\178s\n\
\\a\DC2\ENQ\SO\NUL\250\STX\SOH\n\
\\188\EOT\n\
\\SOH\f\DC2\ETX\SO\NUL\DC22\177\EOT Copyright 2023 Google LLC\n\
\\n\
\ Licensed under the Apache License, Version 2.0 (the \"License\");\n\
\ you may not use this file except in compliance with the License.\n\
\ You may obtain a copy of the License at\n\
\\n\
\ http://www.apache.org/licenses/LICENSE-2.0\n\
\\n\
\ Unless required by applicable law or agreed to in writing, software\n\
\ distributed under the License is distributed on an \"AS IS\" BASIS,\n\
\ WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.\n\
\ See the License for the specific language governing permissions and\n\
\ limitations under the License.\n\
\\n\
\\b\n\
\\SOH\STX\DC2\ETX\DLE\NUL\DC3\n\
\\b\n\
\\SOH\b\DC2\ETX\DC2\NUL\US\n\
\\t\n\
\\STX\b\US\DC2\ETX\DC2\NUL\US\n\
\\b\n\
\\SOH\b\DC2\ETX\DC3\NULX\n\
\\t\n\
\\STX\b\v\DC2\ETX\DC3\NULX\n\
\\b\n\
\\SOH\b\DC2\ETX\DC4\NUL\"\n\
\\t\n\
\\STX\b\n\
\\DC2\ETX\DC4\NUL\"\n\
\\b\n\
\\SOH\b\DC2\ETX\NAK\NUL*\n\
\\t\n\
\\STX\b\b\DC2\ETX\NAK\NUL*\n\
\\b\n\
\\SOH\b\DC2\ETX\SYN\NUL'\n\
\\t\n\
\\STX\b\SOH\DC2\ETX\SYN\NUL'\n\
\\b\n\
\\SOH\b\DC2\ETX\ETB\NUL\"\n\
\\t\n\
\\STX\b$\DC2\ETX\ETB\NUL\"\n\
\\205\SOH\n\
\\STX\EOT\NUL\DC2\EOT\FS\NUL)\SOH\SUB\192\SOH Defines the HTTP configuration for an API service. It contains a list of\n\
\ [HttpRule][google.api.HttpRule], each specifying the mapping of an RPC method\n\
\ to one or more HTTP REST API methods.\n\
\\n\
\\n\
\\n\
\\ETX\EOT\NUL\SOH\DC2\ETX\FS\b\f\n\
\\162\SOH\n\
\\EOT\EOT\NUL\STX\NUL\DC2\ETX \STX\RS\SUB\148\SOH A list of HTTP configuration rules that apply to individual API methods.\n\
\\n\
\ **NOTE:** All service configuration rules follow \"last one wins\" order.\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\NUL\EOT\DC2\ETX \STX\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\NUL\ACK\DC2\ETX \v\DC3\n\
\\f\n\
\\ENQ\EOT\NUL\STX\NUL\SOH\DC2\ETX \DC4\EM\n\
\\f\n\
\\ENQ\EOT\NUL\STX\NUL\ETX\DC2\ETX \FS\GS\n\
\\148\STX\n\
\\EOT\EOT\NUL\STX\SOH\DC2\ETX(\STX+\SUB\134\STX When set to true, URL path parameters will be fully URI-decoded except in\n\
\ cases of single segment matches in reserved expansion, where \"%2F\" will be\n\
\ left encoded.\n\
\\n\
\ The default behavior is to not decode RFC 6570 reserved characters in multi\n\
\ segment matches.\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\SOH\ENQ\DC2\ETX(\STX\ACK\n\
\\f\n\
\\ENQ\EOT\NUL\STX\SOH\SOH\DC2\ETX(\a&\n\
\\f\n\
\\ENQ\EOT\NUL\STX\SOH\ETX\DC2\ETX()*\n\
\\187S\n\
\\STX\EOT\SOH\DC2\ACK\187\STX\NUL\241\STX\SOH\SUB\172S # gRPC Transcoding\n\
\\n\
\ gRPC Transcoding is a feature for mapping between a gRPC method and one or\n\
\ more HTTP REST endpoints. It allows developers to build a single API service\n\
\ that supports both gRPC APIs and REST APIs. Many systems, including [Google\n\
\ APIs](https://github.com/googleapis/googleapis),\n\
\ [Cloud Endpoints](https://cloud.google.com/endpoints), [gRPC\n\
\ Gateway](https://github.com/grpc-ecosystem/grpc-gateway),\n\
\ and [Envoy](https://github.com/envoyproxy/envoy) proxy support this feature\n\
\ and use it for large scale production services.\n\
\\n\
\ `HttpRule` defines the schema of the gRPC/REST mapping. The mapping specifies\n\
\ how different portions of the gRPC request message are mapped to the URL\n\
\ path, URL query parameters, and HTTP request body. It also controls how the\n\
\ gRPC response message is mapped to the HTTP response body. `HttpRule` is\n\
\ typically specified as an `google.api.http` annotation on the gRPC method.\n\
\\n\
\ Each mapping specifies a URL path template and an HTTP method. The path\n\
\ template may refer to one or more fields in the gRPC request message, as long\n\
\ as each field is a non-repeated field with a primitive (non-message) type.\n\
\ The path template controls how fields of the request message are mapped to\n\
\ the URL path.\n\
\\n\
\ Example:\n\
\\n\
\ service Messaging {\n\
\ rpc GetMessage(GetMessageRequest) returns (Message) {\n\
\ option (google.api.http) = {\n\
\ get: \"/v1/{name=messages/*}\"\n\
\ };\n\
\ }\n\
\ }\n\
\ message GetMessageRequest {\n\
\ string name = 1; // Mapped to URL path.\n\
\ }\n\
\ message Message {\n\
\ string text = 1; // The resource content.\n\
\ }\n\
\\n\
\ This enables an HTTP REST to gRPC mapping as below:\n\
\\n\
\ HTTP | gRPC\n\
\ -----|-----\n\
\ `GET /v1/messages/123456` | `GetMessage(name: \"messages/123456\")`\n\
\\n\
\ Any fields in the request message which are not bound by the path template\n\
\ automatically become HTTP query parameters if there is no HTTP request body.\n\
\ For example:\n\
\\n\
\ service Messaging {\n\
\ rpc GetMessage(GetMessageRequest) returns (Message) {\n\
\ option (google.api.http) = {\n\
\ get:\"/v1/messages/{message_id}\"\n\
\ };\n\
\ }\n\
\ }\n\
\ message GetMessageRequest {\n\
\ message SubMessage {\n\
\ string subfield = 1;\n\
\ }\n\
\ string message_id = 1; // Mapped to URL path.\n\
\ int64 revision = 2; // Mapped to URL query parameter `revision`.\n\
\ SubMessage sub = 3; // Mapped to URL query parameter `sub.subfield`.\n\
\ }\n\
\\n\
\ This enables a HTTP JSON to RPC mapping as below:\n\
\\n\
\ HTTP | gRPC\n\
\ -----|-----\n\
\ `GET /v1/messages/123456?revision=2&sub.subfield=foo` |\n\
\ `GetMessage(message_id: \"123456\" revision: 2 sub: SubMessage(subfield:\n\
\ \"foo\"))`\n\
\\n\
\ Note that fields which are mapped to URL query parameters must have a\n\
\ primitive type or a repeated primitive type or a non-repeated message type.\n\
\ In the case of a repeated type, the parameter can be repeated in the URL\n\
\ as `...?param=A¶m=B`. In the case of a message type, each field of the\n\
\ message is mapped to a separate parameter, such as\n\
\ `...?foo.a=A&foo.b=B&foo.c=C`.\n\
\\n\
\ For HTTP methods that allow a request body, the `body` field\n\
\ specifies the mapping. Consider a REST update method on the\n\
\ message resource collection:\n\
\\n\
\ service Messaging {\n\
\ rpc UpdateMessage(UpdateMessageRequest) returns (Message) {\n\
\ option (google.api.http) = {\n\
\ patch: \"/v1/messages/{message_id}\"\n\
\ body: \"message\"\n\
\ };\n\
\ }\n\
\ }\n\
\ message UpdateMessageRequest {\n\
\ string message_id = 1; // mapped to the URL\n\
\ Message message = 2; // mapped to the body\n\
\ }\n\
\\n\
\ The following HTTP JSON to RPC mapping is enabled, where the\n\
\ representation of the JSON in the request body is determined by\n\
\ protos JSON encoding:\n\
\\n\
\ HTTP | gRPC\n\
\ -----|-----\n\
\ `PATCH /v1/messages/123456 { \"text\": \"Hi!\" }` | `UpdateMessage(message_id:\n\
\ \"123456\" message { text: \"Hi!\" })`\n\
\\n\
\ The special name `*` can be used in the body mapping to define that\n\
\ every field not bound by the path template should be mapped to the\n\
\ request body. This enables the following alternative definition of\n\
\ the update method:\n\
\\n\
\ service Messaging {\n\
\ rpc UpdateMessage(Message) returns (Message) {\n\
\ option (google.api.http) = {\n\
\ patch: \"/v1/messages/{message_id}\"\n\
\ body: \"*\"\n\
\ };\n\
\ }\n\
\ }\n\
\ message Message {\n\
\ string message_id = 1;\n\
\ string text = 2;\n\
\ }\n\
\\n\
\\n\
\ The following HTTP JSON to RPC mapping is enabled:\n\
\\n\
\ HTTP | gRPC\n\
\ -----|-----\n\
\ `PATCH /v1/messages/123456 { \"text\": \"Hi!\" }` | `UpdateMessage(message_id:\n\
\ \"123456\" text: \"Hi!\")`\n\
\\n\
\ Note that when using `*` in the body mapping, it is not possible to\n\
\ have HTTP parameters, as all fields not bound by the path end in\n\
\ the body. This makes this option more rarely used in practice when\n\
\ defining REST APIs. The common usage of `*` is in custom methods\n\
\ which don't use the URL at all for transferring data.\n\
\\n\
\ It is possible to define multiple HTTP methods for one RPC by using\n\
\ the `additional_bindings` option. Example:\n\
\\n\
\ service Messaging {\n\
\ rpc GetMessage(GetMessageRequest) returns (Message) {\n\
\ option (google.api.http) = {\n\
\ get: \"/v1/messages/{message_id}\"\n\
\ additional_bindings {\n\
\ get: \"/v1/users/{user_id}/messages/{message_id}\"\n\
\ }\n\
\ };\n\
\ }\n\
\ }\n\
\ message GetMessageRequest {\n\
\ string message_id = 1;\n\
\ string user_id = 2;\n\
\ }\n\
\\n\
\ This enables the following two alternative HTTP JSON to RPC mappings:\n\
\\n\
\ HTTP | gRPC\n\
\ -----|-----\n\
\ `GET /v1/messages/123456` | `GetMessage(message_id: \"123456\")`\n\
\ `GET /v1/users/me/messages/123456` | `GetMessage(user_id: \"me\" message_id:\n\
\ \"123456\")`\n\
\\n\
\ ## Rules for HTTP mapping\n\
\\n\
\ 1. Leaf request fields (recursive expansion nested messages in the request\n\
\ message) are classified into three categories:\n\
\ - Fields referred by the path template. They are passed via the URL path.\n\
\ - Fields referred by the [HttpRule.body][google.api.HttpRule.body]. They\n\
\ are passed via the HTTP\n\
\ request body.\n\
\ - All other fields are passed via the URL query parameters, and the\n\
\ parameter name is the field path in the request message. A repeated\n\
\ field can be represented as multiple query parameters under the same\n\
\ name.\n\
\ 2. If [HttpRule.body][google.api.HttpRule.body] is \"*\", there is no URL\n\
\ query parameter, all fields\n\
\ are passed via URL path and HTTP request body.\n\
\ 3. If [HttpRule.body][google.api.HttpRule.body] is omitted, there is no HTTP\n\
\ request body, all\n\
\ fields are passed via URL path and URL query parameters.\n\
\\n\
\ ### Path template syntax\n\
\\n\
\ Template = \"/\" Segments [ Verb ] ;\n\
\ Segments = Segment { \"/\" Segment } ;\n\
\ Segment = \"*\" | \"**\" | LITERAL | Variable ;\n\
\ Variable = \"{\" FieldPath [ \"=\" Segments ] \"}\" ;\n\
\ FieldPath = IDENT { \".\" IDENT } ;\n\
\ Verb = \":\" LITERAL ;\n\
\\n\
\ The syntax `*` matches a single URL path segment. The syntax `**` matches\n\
\ zero or more URL path segments, which must be the last part of the URL path\n\
\ except the `Verb`.\n\
\\n\
\ The syntax `Variable` matches part of the URL path as specified by its\n\
\ template. A variable template must not contain other variables. If a variable\n\
\ matches a single path segment, its template may be omitted, e.g. `{var}`\n\
\ is equivalent to `{var=*}`.\n\
\\n\
\ The syntax `LITERAL` matches literal text in the URL path. If the `LITERAL`\n\
\ contains any reserved character, such characters should be percent-encoded\n\
\ before the matching.\n\
\\n\
\ If a variable contains exactly one path segment, such as `\"{var}\"` or\n\
\ `\"{var=*}\"`, when such a variable is expanded into a URL path on the client\n\
\ side, all characters except `[-_.~0-9a-zA-Z]` are percent-encoded. The\n\
\ server side does the reverse decoding. Such variables show up in the\n\
\ [Discovery\n\
\ Document](https://developers.google.com/discovery/v1/reference/apis) as\n\
\ `{var}`.\n\
\\n\
\ If a variable contains multiple path segments, such as `\"{var=foo/*}\"`\n\
\ or `\"{var=**}\"`, when such a variable is expanded into a URL path on the\n\
\ client side, all characters except `[-_.~/0-9a-zA-Z]` are percent-encoded.\n\
\ The server side does the reverse decoding, except \"%2F\" and \"%2f\" are left\n\
\ unchanged. Such variables show up in the\n\
\ [Discovery\n\
\ Document](https://developers.google.com/discovery/v1/reference/apis) as\n\
\ `{+var}`.\n\
\\n\
\ ## Using gRPC API Service Configuration\n\
\\n\
\ gRPC API Service Configuration (service config) is a configuration language\n\
\ for configuring a gRPC service to become a user-facing product. The\n\
\ service config is simply the YAML representation of the `google.api.Service`\n\
\ proto message.\n\
\\n\
\ As an alternative to annotating your proto file, you can configure gRPC\n\
\ transcoding in your service config YAML files. You do this by specifying a\n\
\ `HttpRule` that maps the gRPC method to a REST endpoint, achieving the same\n\
\ effect as the proto annotation. This can be particularly useful if you\n\
\ have a proto that is reused in multiple services. Note that any transcoding\n\
\ specified in the service config will override any matching transcoding\n\
\ configuration in the proto.\n\
\\n\
\ Example:\n\
\\n\
\ http:\n\
\ rules:\n\
\ # Selects a gRPC method and applies HttpRule to it.\n\
\ - selector: example.v1.Messaging.GetMessage\n\
\ get: /v1/messages/{message_id}/{sub.subfield}\n\
\\n\
\ ## Special notes\n\
\\n\
\ When gRPC Transcoding is used to map a gRPC to JSON REST endpoints, the\n\
\ proto to JSON conversion must follow the [proto3\n\
\ specification](https://developers.google.com/protocol-buffers/docs/proto3#json).\n\
\\n\
\ While the single segment variable follows the semantics of\n\
\ [RFC 6570](https://tools.ietf.org/html/rfc6570) Section 3.2.2 Simple String\n\
\ Expansion, the multi segment variable **does not** follow RFC 6570 Section\n\
\ 3.2.3 Reserved Expansion. The reason is that the Reserved Expansion\n\
\ does not expand special characters like `?` and `#`, which would lead\n\
\ to invalid URLs. As the result, gRPC Transcoding uses a custom encoding\n\
\ for multi segment variables.\n\
\\n\
\ The path variables **must not** refer to any repeated or mapped field,\n\
\ because client libraries are not capable of handling such variable expansion.\n\
\\n\
\ The path variables **must not** capture the leading \"/\" character. The reason\n\
\ is that the most common use case \"{var}\" does not capture the leading \"/\"\n\
\ character. For consistency, all path variables must share the same behavior.\n\
\\n\
\ Repeated message fields must not be mapped to URL query parameters, because\n\
\ no client library can support such complicated mapping.\n\
\\n\
\ If an API needs to use a JSON array for request or response body, it can map\n\
\ the request or response body to a repeated field. However, some gRPC\n\
\ Transcoding implementations may not support this feature.\n\
\\n\
\\v\n\
\\ETX\EOT\SOH\SOH\DC2\EOT\187\STX\b\DLE\n\
\\143\SOH\n\
\\EOT\EOT\SOH\STX\NUL\DC2\EOT\192\STX\STX\SYN\SUB\128\SOH Selects a method to which this rule applies.\n\
\\n\
\ Refer to [selector][google.api.DocumentationRule.selector] for syntax\n\
\ details.\n\
\\n\
\\r\n\
\\ENQ\EOT\SOH\STX\NUL\ENQ\DC2\EOT\192\STX\STX\b\n\
\\r\n\
\\ENQ\EOT\SOH\STX\NUL\SOH\DC2\EOT\192\STX\t\DC1\n\
\\r\n\
\\ENQ\EOT\SOH\STX\NUL\ETX\DC2\EOT\192\STX\DC4\NAK\n\
\\208\SOH\n\
\\EOT\EOT\SOH\b\NUL\DC2\ACK\197\STX\STX\219\STX\ETX\SUB\191\SOH Determines the URL pattern is matched by this rules. This pattern can be\n\
\ used with any of the {get|put|post|delete|patch} methods. A custom method\n\
\ can be defined using the 'custom' field.\n\
\\n\
\\r\n\
\\ENQ\EOT\SOH\b\NUL\SOH\DC2\EOT\197\STX\b\SI\n\
\\\\n\
\\EOT\EOT\SOH\STX\SOH\DC2\EOT\200\STX\EOT\DC3\SUBN Maps to HTTP GET. Used for listing and getting information about\n\
\ resources.\n\
\\n\
\\r\n\
\\ENQ\EOT\SOH\STX\SOH\ENQ\DC2\EOT\200\STX\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT\SOH\STX\SOH\SOH\DC2\EOT\200\STX\v\SO\n\
\\r\n\
\\ENQ\EOT\SOH\STX\SOH\ETX\DC2\EOT\200\STX\DC1\DC2\n\
\@\n\
\\EOT\EOT\SOH\STX\STX\DC2\EOT\203\STX\EOT\DC3\SUB2 Maps to HTTP PUT. Used for replacing a resource.\n\
\\n\
\\r\n\
\\ENQ\EOT\SOH\STX\STX\ENQ\DC2\EOT\203\STX\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT\SOH\STX\STX\SOH\DC2\EOT\203\STX\v\SO\n\
\\r\n\
\\ENQ\EOT\SOH\STX\STX\ETX\DC2\EOT\203\STX\DC1\DC2\n\
\X\n\
\\EOT\EOT\SOH\STX\ETX\DC2\EOT\206\STX\EOT\DC4\SUBJ Maps to HTTP POST. Used for creating a resource or performing an action.\n\
\\n\
\\r\n\
\\ENQ\EOT\SOH\STX\ETX\ENQ\DC2\EOT\206\STX\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT\SOH\STX\ETX\SOH\DC2\EOT\206\STX\v\SI\n\
\\r\n\
\\ENQ\EOT\SOH\STX\ETX\ETX\DC2\EOT\206\STX\DC2\DC3\n\
\B\n\
\\EOT\EOT\SOH\STX\EOT\DC2\EOT\209\STX\EOT\SYN\SUB4 Maps to HTTP DELETE. Used for deleting a resource.\n\
\\n\
\\r\n\
\\ENQ\EOT\SOH\STX\EOT\ENQ\DC2\EOT\209\STX\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT\SOH\STX\EOT\SOH\DC2\EOT\209\STX\v\DC1\n\
\\r\n\
\\ENQ\EOT\SOH\STX\EOT\ETX\DC2\EOT\209\STX\DC4\NAK\n\
\A\n\
\\EOT\EOT\SOH\STX\ENQ\DC2\EOT\212\STX\EOT\NAK\SUB3 Maps to HTTP PATCH. Used for updating a resource.\n\
\\n\
\\r\n\
\\ENQ\EOT\SOH\STX\ENQ\ENQ\DC2\EOT\212\STX\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT\SOH\STX\ENQ\SOH\DC2\EOT\212\STX\v\DLE\n\
\\r\n\
\\ENQ\EOT\SOH\STX\ENQ\ETX\DC2\EOT\212\STX\DC3\DC4\n\
\\152\STX\n\
\\EOT\EOT\SOH\STX\ACK\DC2\EOT\218\STX\EOT!\SUB\137\STX The custom pattern is used for specifying an HTTP method that is not\n\
\ included in the `pattern` field, such as HEAD, or \"*\" to leave the\n\
\ HTTP method unspecified for this rule. The wild-card rule is useful\n\
\ for services that provide content to Web (HTML) clients.\n\
\\n\
\\r\n\
\\ENQ\EOT\SOH\STX\ACK\ACK\DC2\EOT\218\STX\EOT\NAK\n\
\\r\n\
\\ENQ\EOT\SOH\STX\ACK\SOH\DC2\EOT\218\STX\SYN\FS\n\
\\r\n\
\\ENQ\EOT\SOH\STX\ACK\ETX\DC2\EOT\218\STX\US \n\
\\196\STX\n\
\\EOT\EOT\SOH\STX\a\DC2\EOT\227\STX\STX\DC2\SUB\181\STX The name of the request field whose value is mapped to the HTTP request\n\
\ body, or `*` for mapping all request fields not captured by the path\n\
\ pattern to the HTTP body, or omitted for not having any HTTP request body.\n\
\\n\
\ NOTE: the referred field must be present at the top-level of the request\n\
\ message type.\n\
\\n\
\\r\n\
\\ENQ\EOT\SOH\STX\a\ENQ\DC2\EOT\227\STX\STX\b\n\
\\r\n\
\\ENQ\EOT\SOH\STX\a\SOH\DC2\EOT\227\STX\t\r\n\
\\r\n\
\\ENQ\EOT\SOH\STX\a\ETX\DC2\EOT\227\STX\DLE\DC1\n\
\\153\STX\n\
\\EOT\EOT\SOH\STX\b\DC2\EOT\235\STX\STX\FS\SUB\138\STX Optional. The name of the response field whose value is mapped to the HTTP\n\
\ response body. When omitted, the entire response message will be used\n\
\ as the HTTP response body.\n\
\\n\
\ NOTE: The referred field must be present at the top-level of the response\n\
\ message type.\n\
\\n\
\\r\n\
\\ENQ\EOT\SOH\STX\b\ENQ\DC2\EOT\235\STX\STX\b\n\
\\r\n\
\\ENQ\EOT\SOH\STX\b\SOH\DC2\EOT\235\STX\t\SYN\n\
\\r\n\
\\ENQ\EOT\SOH\STX\b\ETX\DC2\EOT\235\STX\EM\ESC\n\
\\187\SOH\n\
\\EOT\EOT\SOH\STX\t\DC2\EOT\240\STX\STX-\SUB\172\SOH Additional HTTP bindings for the selector. Nested bindings must\n\
\ not contain an `additional_bindings` field themselves (that is,\n\
\ the nesting may only be one level deep).\n\
\\n\
\\r\n\
\\ENQ\EOT\SOH\STX\t\EOT\DC2\EOT\240\STX\STX\n\
\\n\
\\r\n\
\\ENQ\EOT\SOH\STX\t\ACK\DC2\EOT\240\STX\v\DC3\n\
\\r\n\
\\ENQ\EOT\SOH\STX\t\SOH\DC2\EOT\240\STX\DC4'\n\
\\r\n\
\\ENQ\EOT\SOH\STX\t\ETX\DC2\EOT\240\STX*,\n\
\G\n\
\\STX\EOT\STX\DC2\ACK\244\STX\NUL\250\STX\SOH\SUB9 A custom pattern is used for defining custom HTTP verb.\n\
\\n\
\\v\n\
\\ETX\EOT\STX\SOH\DC2\EOT\244\STX\b\EM\n\
\2\n\
\\EOT\EOT\STX\STX\NUL\DC2\EOT\246\STX\STX\DC2\SUB$ The name of this custom HTTP verb.\n\
\\n\
\\r\n\
\\ENQ\EOT\STX\STX\NUL\ENQ\DC2\EOT\246\STX\STX\b\n\
\\r\n\
\\ENQ\EOT\STX\STX\NUL\SOH\DC2\EOT\246\STX\t\r\n\
\\r\n\
\\ENQ\EOT\STX\STX\NUL\ETX\DC2\EOT\246\STX\DLE\DC1\n\
\5\n\
\\EOT\EOT\STX\STX\SOH\DC2\EOT\249\STX\STX\DC2\SUB' The path matched by this custom verb.\n\
\\n\
\\r\n\
\\ENQ\EOT\STX\STX\SOH\ENQ\DC2\EOT\249\STX\STX\b\n\
\\r\n\
\\ENQ\EOT\STX\STX\SOH\SOH\DC2\EOT\249\STX\t\r\n\
\\r\n\
\\ENQ\EOT\STX\STX\SOH\ETX\DC2\EOT\249\STX\DLE\DC1b\ACKproto3"