{- This file was auto-generated from google/api/http.proto by the proto-lens-protoc program. -}
{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies, UndecidableInstances, GeneralizedNewtypeDeriving, MultiParamTypeClasses, FlexibleContexts, FlexibleInstances, PatternSynonyms, MagicHash, NoImplicitPrelude, DataKinds, BangPatterns, TypeApplications#-}
{-# 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
{- | Fields :
     
         * 'Proto.Google.Api.Http_Fields.kind' @:: Lens' CustomHttpPattern Data.Text.Text@
         * 'Proto.Google.Api.Http_Fields.path' @:: Lens' CustomHttpPattern Data.Text.Text@ -}
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 (CustomHttpPattern -> CustomHttpPattern -> Bool
(CustomHttpPattern -> CustomHttpPattern -> Bool)
-> (CustomHttpPattern -> CustomHttpPattern -> Bool)
-> Eq CustomHttpPattern
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CustomHttpPattern -> CustomHttpPattern -> Bool
$c/= :: CustomHttpPattern -> CustomHttpPattern -> Bool
== :: CustomHttpPattern -> CustomHttpPattern -> Bool
$c== :: 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
min :: CustomHttpPattern -> CustomHttpPattern -> CustomHttpPattern
$cmin :: CustomHttpPattern -> CustomHttpPattern -> CustomHttpPattern
max :: CustomHttpPattern -> CustomHttpPattern -> CustomHttpPattern
$cmax :: CustomHttpPattern -> CustomHttpPattern -> CustomHttpPattern
>= :: CustomHttpPattern -> CustomHttpPattern -> Bool
$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
compare :: CustomHttpPattern -> CustomHttpPattern -> Ordering
$ccompare :: CustomHttpPattern -> CustomHttpPattern -> Ordering
$cp1Ord :: Eq CustomHttpPattern
Prelude.Ord)
instance Prelude.Show CustomHttpPattern where
  showsPrec :: Int -> CustomHttpPattern -> ShowS
showsPrec _ __x :: CustomHttpPattern
__x __s :: String
__s
    = Char -> ShowS
Prelude.showChar
        '{'
        (String -> ShowS
Prelude.showString
           (CustomHttpPattern -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort CustomHttpPattern
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField CustomHttpPattern "kind" Data.Text.Text where
  fieldOf :: Proxy# "kind"
-> (Text -> f Text) -> CustomHttpPattern -> f CustomHttpPattern
fieldOf _
    = ((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
           (\ x__ :: CustomHttpPattern
x__ y__ :: Text
y__ -> CustomHttpPattern
x__ {_CustomHttpPattern'kind :: Text
_CustomHttpPattern'kind = Text
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 :: Proxy# "path"
-> (Text -> f Text) -> CustomHttpPattern -> f CustomHttpPattern
fieldOf _
    = ((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
           (\ x__ :: CustomHttpPattern
x__ y__ :: Text
y__ -> CustomHttpPattern
x__ {_CustomHttpPattern'path :: Text
_CustomHttpPattern'path = Text
y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message CustomHttpPattern where
  messageName :: Proxy CustomHttpPattern -> Text
messageName _ = String -> Text
Data.Text.pack "google.api.CustomHttpPattern"
  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
              "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 s a (f :: * -> *).
(HasField s "kind" a, Functor f) =>
(a -> f a) -> s -> f s
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
              "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 s a (f :: * -> *).
(HasField s "path" a, Functor f) =>
(a -> f a) -> s -> f s
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 1, FieldDescriptor CustomHttpPattern
kind__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor CustomHttpPattern
path__field_descriptor)]
  unknownFields :: LensLike' f 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
        (\ x__ :: CustomHttpPattern
x__ y__ :: FieldSet
y__ -> CustomHttpPattern
x__ {_CustomHttpPattern'_unknownFields :: FieldSet
_CustomHttpPattern'_unknownFields = FieldSet
y__})
  defMessage :: CustomHttpPattern
defMessage
    = $WCustomHttpPattern'_constructor :: Text -> Text -> FieldSet -> CustomHttpPattern
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 x :: CustomHttpPattern
x
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  "Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      CustomHttpPattern -> Parser CustomHttpPattern
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter CustomHttpPattern CustomHttpPattern FieldSet FieldSet
-> (FieldSet -> FieldSet) -> CustomHttpPattern -> CustomHttpPattern
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           forall msg. Message msg => Lens' msg FieldSet
Setter CustomHttpPattern CustomHttpPattern FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) CustomHttpPattern
x)
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        10
                          -> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                       Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                                         (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                           Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
                                             (case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
                                                (Prelude.Left err :: UnicodeException
err)
                                                  -> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
                                                (Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
                                       "kind"
                                CustomHttpPattern -> Parser CustomHttpPattern
loop (Setter CustomHttpPattern CustomHttpPattern Text Text
-> Text -> CustomHttpPattern -> CustomHttpPattern
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "kind" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"kind") Text
y CustomHttpPattern
x)
                        18
                          -> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                       Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                                         (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                           Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
                                             (case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
                                                (Prelude.Left err :: UnicodeException
err)
                                                  -> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
                                                (Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
                                       "path"
                                CustomHttpPattern -> Parser CustomHttpPattern
loop (Setter CustomHttpPattern CustomHttpPattern Text Text
-> Text -> CustomHttpPattern -> CustomHttpPattern
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "path" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"path") Text
y CustomHttpPattern
x)
                        wire :: Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                CustomHttpPattern -> Parser CustomHttpPattern
loop
                                  (Setter CustomHttpPattern CustomHttpPattern FieldSet FieldSet
-> (FieldSet -> FieldSet) -> CustomHttpPattern -> CustomHttpPattern
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     forall msg. Message msg => Lens' msg FieldSet
Setter CustomHttpPattern CustomHttpPattern FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) CustomHttpPattern
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) "CustomHttpPattern"
  buildMessage :: CustomHttpPattern -> Builder
buildMessage
    = \ _x :: 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 s a (f :: * -> *).
(HasField s "kind" a, Functor f) =>
(a -> f a) -> s -> f s
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 10)
                      ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                         (\ bs :: 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 s a (f :: * -> *).
(HasField s "path" a, Functor f) =>
(a -> f a) -> s -> f s
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 18)
                         ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                            (\ bs :: 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
Data.ProtoLens.unknownFields CustomHttpPattern
_x)))
instance Control.DeepSeq.NFData CustomHttpPattern where
  rnf :: CustomHttpPattern -> ()
rnf
    = \ x__ :: 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__) ()))
{- | Fields :
     
         * 'Proto.Google.Api.Http_Fields.rules' @:: Lens' Http [HttpRule]@
         * 'Proto.Google.Api.Http_Fields.vec'rules' @:: Lens' Http (Data.Vector.Vector HttpRule)@
         * 'Proto.Google.Api.Http_Fields.fullyDecodeReservedExpansion' @:: Lens' Http Prelude.Bool@ -}
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 (Http -> Http -> Bool
(Http -> Http -> Bool) -> (Http -> Http -> Bool) -> Eq Http
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Http -> Http -> Bool
$c/= :: Http -> Http -> Bool
== :: Http -> Http -> Bool
$c== :: 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
min :: Http -> Http -> Http
$cmin :: Http -> Http -> Http
max :: Http -> Http -> Http
$cmax :: Http -> Http -> Http
>= :: Http -> Http -> Bool
$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
compare :: Http -> Http -> Ordering
$ccompare :: Http -> Http -> Ordering
$cp1Ord :: Eq Http
Prelude.Ord)
instance Prelude.Show Http where
  showsPrec :: Int -> Http -> ShowS
showsPrec _ __x :: Http
__x __s :: String
__s
    = Char -> ShowS
Prelude.showChar
        '{'
        (String -> ShowS
Prelude.showString
           (Http -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort Http
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField Http "rules" [HttpRule] where
  fieldOf :: Proxy# "rules" -> ([HttpRule] -> f [HttpRule]) -> Http -> f Http
fieldOf _
    = ((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 (\ x__ :: Http
x__ y__ :: Vector HttpRule
y__ -> Http
x__ {_Http'rules :: Vector HttpRule
_Http'rules = Vector HttpRule
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
           (\ _ y__ :: [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 :: Proxy# "vec'rules"
-> (Vector HttpRule -> f (Vector HttpRule)) -> Http -> f Http
fieldOf _
    = ((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 (\ x__ :: Http
x__ y__ :: Vector HttpRule
y__ -> Http
x__ {_Http'rules :: Vector HttpRule
_Http'rules = Vector HttpRule
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 :: Proxy# "fullyDecodeReservedExpansion"
-> (Bool -> f Bool) -> Http -> f Http
fieldOf _
    = ((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
           (\ x__ :: Http
x__ y__ :: Bool
y__ -> Http
x__ {_Http'fullyDecodeReservedExpansion :: Bool
_Http'fullyDecodeReservedExpansion = Bool
y__}))
        (Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message Http where
  messageName :: Proxy Http -> Text
messageName _ = String -> Text
Data.Text.pack "google.api.Http"
  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
              "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 s a (f :: * -> *).
(HasField s "rules" a, Functor f) =>
(a -> f a) -> s -> f s
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
              "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 s a (f :: * -> *).
(HasField s "fullyDecodeReservedExpansion" a, Functor f) =>
(a -> f a) -> s -> f s
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 1, FieldDescriptor Http
rules__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 2, 
            FieldDescriptor Http
fullyDecodeReservedExpansion__field_descriptor)]
  unknownFields :: LensLike' f 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
        (\ x__ :: Http
x__ y__ :: FieldSet
y__ -> Http
x__ {_Http'_unknownFields :: FieldSet
_Http'_unknownFields = FieldSet
y__})
  defMessage :: Http
defMessage
    = $WHttp'_constructor :: Vector HttpRule -> Bool -> FieldSet -> Http
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 x :: Http
x mutable'rules :: Growing Vector RealWorld HttpRule
mutable'rules
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do Vector HttpRule
frozen'rules <- IO (Vector HttpRule) -> Parser (Vector HttpRule)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                        (Growing Vector (PrimState IO) HttpRule -> IO (Vector HttpRule)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze Growing Vector RealWorld HttpRule
Growing Vector (PrimState IO) HttpRule
mutable'rules)
                      (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  "Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      Http -> Parser Http
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter Http Http FieldSet FieldSet
-> (FieldSet -> FieldSet) -> Http -> Http
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           forall msg. Message msg => Lens' msg FieldSet
Setter Http Http FieldSet FieldSet
Data.ProtoLens.unknownFields
                           (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Setter Http Http (Vector HttpRule) (Vector HttpRule)
-> Vector HttpRule -> Http -> Http
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                              (forall s a (f :: * -> *).
(HasField s "vec'rules" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'rules") Vector HttpRule
frozen'rules Http
x))
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        10
                          -> do !HttpRule
y <- Parser HttpRule -> String -> Parser HttpRule
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Int -> Parser HttpRule -> Parser HttpRule
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                              (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                              Parser HttpRule
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                        "rules"
                                Growing Vector RealWorld HttpRule
v <- IO (Growing Vector RealWorld HttpRule)
-> Parser (Growing Vector RealWorld HttpRule)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) HttpRule
-> HttpRule -> IO (Growing Vector (PrimState IO) HttpRule)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld HttpRule
Growing Vector (PrimState IO) HttpRule
mutable'rules HttpRule
y)
                                Http -> Growing Vector RealWorld HttpRule -> Parser Http
loop Http
x Growing Vector RealWorld HttpRule
v
                        16
                          -> do Bool
y <- Parser Bool -> String -> Parser Bool
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Bool) -> Parser Word64 -> Parser Bool
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./=) 0) Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       "fully_decode_reserved_expansion"
                                Http -> Growing Vector RealWorld HttpRule -> Parser Http
loop
                                  (Setter Http Http Bool Bool -> Bool -> Http -> Http
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                     (forall s a (f :: * -> *).
(HasField s "fullyDecodeReservedExpansion" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"fullyDecodeReservedExpansion")
                                     Bool
y
                                     Http
x)
                                  Growing Vector RealWorld HttpRule
mutable'rules
                        wire :: Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                Http -> Growing Vector RealWorld HttpRule -> Parser Http
loop
                                  (Setter Http Http FieldSet FieldSet
-> (FieldSet -> FieldSet) -> Http -> Http
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     forall msg. Message msg => Lens' msg FieldSet
Setter Http Http FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) Http
x)
                                  Growing Vector RealWorld HttpRule
mutable'rules
      in
        Parser Http -> String -> Parser Http
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Growing Vector RealWorld HttpRule
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)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              Http -> Growing Vector RealWorld HttpRule -> Parser Http
loop Http
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld HttpRule
mutable'rules)
          "Http"
  buildMessage :: Http -> Builder
buildMessage
    = \ _x :: 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
                (\ _v :: HttpRule
_v
                   -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                        (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 10)
                        ((ByteString -> Builder)
-> (HttpRule -> ByteString) -> HttpRule -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                           (\ bs :: 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 s a (f :: * -> *).
(HasField s "vec'rules" a, Functor f) =>
(a -> f a) -> s -> f s
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 s a (f :: * -> *).
(HasField s "fullyDecodeReservedExpansion" a, Functor f) =>
(a -> f a) -> s -> f s
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 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
                            (\ b :: Bool
b -> if Bool
b then 1 else 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
Data.ProtoLens.unknownFields Http
_x)))
instance Control.DeepSeq.NFData Http where
  rnf :: Http -> ()
rnf
    = \ x__ :: 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__) ()))
{- | Fields :
     
         * 'Proto.Google.Api.Http_Fields.selector' @:: Lens' HttpRule Data.Text.Text@
         * 'Proto.Google.Api.Http_Fields.body' @:: Lens' HttpRule Data.Text.Text@
         * 'Proto.Google.Api.Http_Fields.responseBody' @:: Lens' HttpRule Data.Text.Text@
         * 'Proto.Google.Api.Http_Fields.additionalBindings' @:: Lens' HttpRule [HttpRule]@
         * 'Proto.Google.Api.Http_Fields.vec'additionalBindings' @:: Lens' HttpRule (Data.Vector.Vector HttpRule)@
         * 'Proto.Google.Api.Http_Fields.maybe'pattern'' @:: Lens' HttpRule (Prelude.Maybe HttpRule'Pattern)@
         * 'Proto.Google.Api.Http_Fields.maybe'get' @:: Lens' HttpRule (Prelude.Maybe Data.Text.Text)@
         * 'Proto.Google.Api.Http_Fields.get' @:: Lens' HttpRule Data.Text.Text@
         * 'Proto.Google.Api.Http_Fields.maybe'put' @:: Lens' HttpRule (Prelude.Maybe Data.Text.Text)@
         * 'Proto.Google.Api.Http_Fields.put' @:: Lens' HttpRule Data.Text.Text@
         * 'Proto.Google.Api.Http_Fields.maybe'post' @:: Lens' HttpRule (Prelude.Maybe Data.Text.Text)@
         * 'Proto.Google.Api.Http_Fields.post' @:: Lens' HttpRule Data.Text.Text@
         * 'Proto.Google.Api.Http_Fields.maybe'delete' @:: Lens' HttpRule (Prelude.Maybe Data.Text.Text)@
         * 'Proto.Google.Api.Http_Fields.delete' @:: Lens' HttpRule Data.Text.Text@
         * 'Proto.Google.Api.Http_Fields.maybe'patch' @:: Lens' HttpRule (Prelude.Maybe Data.Text.Text)@
         * 'Proto.Google.Api.Http_Fields.patch' @:: Lens' HttpRule Data.Text.Text@
         * 'Proto.Google.Api.Http_Fields.maybe'custom' @:: Lens' HttpRule (Prelude.Maybe CustomHttpPattern)@
         * 'Proto.Google.Api.Http_Fields.custom' @:: Lens' HttpRule CustomHttpPattern@ -}
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 (HttpRule -> HttpRule -> Bool
(HttpRule -> HttpRule -> Bool)
-> (HttpRule -> HttpRule -> Bool) -> Eq HttpRule
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: HttpRule -> HttpRule -> Bool
$c/= :: HttpRule -> HttpRule -> Bool
== :: HttpRule -> HttpRule -> Bool
$c== :: 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
min :: HttpRule -> HttpRule -> HttpRule
$cmin :: HttpRule -> HttpRule -> HttpRule
max :: HttpRule -> HttpRule -> HttpRule
$cmax :: HttpRule -> HttpRule -> HttpRule
>= :: HttpRule -> HttpRule -> Bool
$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
compare :: HttpRule -> HttpRule -> Ordering
$ccompare :: HttpRule -> HttpRule -> Ordering
$cp1Ord :: Eq HttpRule
Prelude.Ord)
instance Prelude.Show HttpRule where
  showsPrec :: Int -> HttpRule -> ShowS
showsPrec _ __x :: HttpRule
__x __s :: String
__s
    = Char -> ShowS
Prelude.showChar
        '{'
        (String -> ShowS
Prelude.showString
           (HttpRule -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort HttpRule
__x) (Char -> ShowS
Prelude.showChar '}' 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 (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
showList :: [HttpRule'Pattern] -> ShowS
$cshowList :: [HttpRule'Pattern] -> ShowS
show :: HttpRule'Pattern -> String
$cshow :: HttpRule'Pattern -> String
showsPrec :: Int -> HttpRule'Pattern -> ShowS
$cshowsPrec :: Int -> 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
/= :: HttpRule'Pattern -> HttpRule'Pattern -> Bool
$c/= :: HttpRule'Pattern -> HttpRule'Pattern -> Bool
== :: HttpRule'Pattern -> HttpRule'Pattern -> Bool
$c== :: 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
min :: HttpRule'Pattern -> HttpRule'Pattern -> HttpRule'Pattern
$cmin :: HttpRule'Pattern -> HttpRule'Pattern -> HttpRule'Pattern
max :: HttpRule'Pattern -> HttpRule'Pattern -> HttpRule'Pattern
$cmax :: HttpRule'Pattern -> HttpRule'Pattern -> HttpRule'Pattern
>= :: 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
$c< :: HttpRule'Pattern -> HttpRule'Pattern -> Bool
compare :: HttpRule'Pattern -> HttpRule'Pattern -> Ordering
$ccompare :: HttpRule'Pattern -> HttpRule'Pattern -> Ordering
$cp1Ord :: Eq HttpRule'Pattern
Prelude.Ord)
instance Data.ProtoLens.Field.HasField HttpRule "selector" Data.Text.Text where
  fieldOf :: Proxy# "selector" -> (Text -> f Text) -> HttpRule -> f HttpRule
fieldOf _
    = ((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 (\ x__ :: HttpRule
x__ y__ :: Text
y__ -> HttpRule
x__ {_HttpRule'selector :: Text
_HttpRule'selector = Text
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 :: Proxy# "body" -> (Text -> f Text) -> HttpRule -> f HttpRule
fieldOf _
    = ((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 (\ x__ :: HttpRule
x__ y__ :: Text
y__ -> HttpRule
x__ {_HttpRule'body :: Text
_HttpRule'body = Text
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 :: Proxy# "responseBody" -> (Text -> f Text) -> HttpRule -> f HttpRule
fieldOf _
    = ((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
           (\ x__ :: HttpRule
x__ y__ :: Text
y__ -> HttpRule
x__ {_HttpRule'responseBody :: Text
_HttpRule'responseBody = Text
y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField HttpRule "additionalBindings" [HttpRule] where
  fieldOf :: Proxy# "additionalBindings"
-> ([HttpRule] -> f [HttpRule]) -> HttpRule -> f HttpRule
fieldOf _
    = ((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
           (\ x__ :: HttpRule
x__ y__ :: Vector HttpRule
y__ -> HttpRule
x__ {_HttpRule'additionalBindings :: Vector HttpRule
_HttpRule'additionalBindings = Vector HttpRule
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
           (\ _ y__ :: [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 :: Proxy# "vec'additionalBindings"
-> (Vector HttpRule -> f (Vector HttpRule))
-> HttpRule
-> f HttpRule
fieldOf _
    = ((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
           (\ x__ :: HttpRule
x__ y__ :: Vector HttpRule
y__ -> HttpRule
x__ {_HttpRule'additionalBindings :: Vector HttpRule
_HttpRule'additionalBindings = Vector HttpRule
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 :: Proxy# "maybe'pattern'"
-> (Maybe HttpRule'Pattern -> f (Maybe HttpRule'Pattern))
-> HttpRule
-> f HttpRule
fieldOf _
    = ((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' (\ x__ :: HttpRule
x__ y__ :: Maybe HttpRule'Pattern
y__ -> HttpRule
x__ {_HttpRule'pattern' :: Maybe HttpRule'Pattern
_HttpRule'pattern' = Maybe 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 :: Proxy# "maybe'get"
-> (Maybe Text -> f (Maybe Text)) -> HttpRule -> f HttpRule
fieldOf _
    = ((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' (\ x__ :: HttpRule
x__ y__ :: Maybe HttpRule'Pattern
y__ -> HttpRule
x__ {_HttpRule'pattern' :: Maybe HttpRule'Pattern
_HttpRule'pattern' = Maybe 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
           (\ x__ :: Maybe HttpRule'Pattern
x__
              -> case Maybe HttpRule'Pattern
x__ of
                   (Prelude.Just (HttpRule'Get x__val :: Text
x__val)) -> Text -> Maybe Text
forall a. a -> Maybe a
Prelude.Just Text
x__val
                   _otherwise :: Maybe HttpRule'Pattern
_otherwise -> Maybe Text
forall a. Maybe a
Prelude.Nothing)
           (\ _ y__ :: Maybe Text
y__ -> (Text -> HttpRule'Pattern) -> Maybe Text -> Maybe HttpRule'Pattern
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 :: Proxy# "get" -> (Text -> f Text) -> HttpRule -> f HttpRule
fieldOf _
    = ((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' (\ x__ :: HttpRule
x__ y__ :: Maybe HttpRule'Pattern
y__ -> HttpRule
x__ {_HttpRule'pattern' :: Maybe HttpRule'Pattern
_HttpRule'pattern' = Maybe 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
              (\ x__ :: Maybe HttpRule'Pattern
x__
                 -> case Maybe HttpRule'Pattern
x__ of
                      (Prelude.Just (HttpRule'Get x__val :: Text
x__val)) -> Text -> Maybe Text
forall a. a -> Maybe a
Prelude.Just Text
x__val
                      _otherwise :: Maybe HttpRule'Pattern
_otherwise -> Maybe Text
forall a. Maybe a
Prelude.Nothing)
              (\ _ y__ :: Maybe Text
y__ -> (Text -> HttpRule'Pattern) -> Maybe Text -> Maybe HttpRule'Pattern
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 :: Proxy# "maybe'put"
-> (Maybe Text -> f (Maybe Text)) -> HttpRule -> f HttpRule
fieldOf _
    = ((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' (\ x__ :: HttpRule
x__ y__ :: Maybe HttpRule'Pattern
y__ -> HttpRule
x__ {_HttpRule'pattern' :: Maybe HttpRule'Pattern
_HttpRule'pattern' = Maybe 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
           (\ x__ :: Maybe HttpRule'Pattern
x__
              -> case Maybe HttpRule'Pattern
x__ of
                   (Prelude.Just (HttpRule'Put x__val :: Text
x__val)) -> Text -> Maybe Text
forall a. a -> Maybe a
Prelude.Just Text
x__val
                   _otherwise :: Maybe HttpRule'Pattern
_otherwise -> Maybe Text
forall a. Maybe a
Prelude.Nothing)
           (\ _ y__ :: Maybe Text
y__ -> (Text -> HttpRule'Pattern) -> Maybe Text -> Maybe HttpRule'Pattern
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 :: Proxy# "put" -> (Text -> f Text) -> HttpRule -> f HttpRule
fieldOf _
    = ((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' (\ x__ :: HttpRule
x__ y__ :: Maybe HttpRule'Pattern
y__ -> HttpRule
x__ {_HttpRule'pattern' :: Maybe HttpRule'Pattern
_HttpRule'pattern' = Maybe 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
              (\ x__ :: Maybe HttpRule'Pattern
x__
                 -> case Maybe HttpRule'Pattern
x__ of
                      (Prelude.Just (HttpRule'Put x__val :: Text
x__val)) -> Text -> Maybe Text
forall a. a -> Maybe a
Prelude.Just Text
x__val
                      _otherwise :: Maybe HttpRule'Pattern
_otherwise -> Maybe Text
forall a. Maybe a
Prelude.Nothing)
              (\ _ y__ :: Maybe Text
y__ -> (Text -> HttpRule'Pattern) -> Maybe Text -> Maybe HttpRule'Pattern
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 :: Proxy# "maybe'post"
-> (Maybe Text -> f (Maybe Text)) -> HttpRule -> f HttpRule
fieldOf _
    = ((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' (\ x__ :: HttpRule
x__ y__ :: Maybe HttpRule'Pattern
y__ -> HttpRule
x__ {_HttpRule'pattern' :: Maybe HttpRule'Pattern
_HttpRule'pattern' = Maybe 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
           (\ x__ :: Maybe HttpRule'Pattern
x__
              -> case Maybe HttpRule'Pattern
x__ of
                   (Prelude.Just (HttpRule'Post x__val :: Text
x__val)) -> Text -> Maybe Text
forall a. a -> Maybe a
Prelude.Just Text
x__val
                   _otherwise :: Maybe HttpRule'Pattern
_otherwise -> Maybe Text
forall a. Maybe a
Prelude.Nothing)
           (\ _ y__ :: Maybe Text
y__ -> (Text -> HttpRule'Pattern) -> Maybe Text -> Maybe HttpRule'Pattern
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 :: Proxy# "post" -> (Text -> f Text) -> HttpRule -> f HttpRule
fieldOf _
    = ((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' (\ x__ :: HttpRule
x__ y__ :: Maybe HttpRule'Pattern
y__ -> HttpRule
x__ {_HttpRule'pattern' :: Maybe HttpRule'Pattern
_HttpRule'pattern' = Maybe 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
              (\ x__ :: Maybe HttpRule'Pattern
x__
                 -> case Maybe HttpRule'Pattern
x__ of
                      (Prelude.Just (HttpRule'Post x__val :: Text
x__val)) -> Text -> Maybe Text
forall a. a -> Maybe a
Prelude.Just Text
x__val
                      _otherwise :: Maybe HttpRule'Pattern
_otherwise -> Maybe Text
forall a. Maybe a
Prelude.Nothing)
              (\ _ y__ :: Maybe Text
y__ -> (Text -> HttpRule'Pattern) -> Maybe Text -> Maybe HttpRule'Pattern
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 :: Proxy# "maybe'delete"
-> (Maybe Text -> f (Maybe Text)) -> HttpRule -> f HttpRule
fieldOf _
    = ((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' (\ x__ :: HttpRule
x__ y__ :: Maybe HttpRule'Pattern
y__ -> HttpRule
x__ {_HttpRule'pattern' :: Maybe HttpRule'Pattern
_HttpRule'pattern' = Maybe 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
           (\ x__ :: Maybe HttpRule'Pattern
x__
              -> case Maybe HttpRule'Pattern
x__ of
                   (Prelude.Just (HttpRule'Delete x__val :: Text
x__val)) -> Text -> Maybe Text
forall a. a -> Maybe a
Prelude.Just Text
x__val
                   _otherwise :: Maybe HttpRule'Pattern
_otherwise -> Maybe Text
forall a. Maybe a
Prelude.Nothing)
           (\ _ y__ :: Maybe Text
y__ -> (Text -> HttpRule'Pattern) -> Maybe Text -> Maybe HttpRule'Pattern
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 :: Proxy# "delete" -> (Text -> f Text) -> HttpRule -> f HttpRule
fieldOf _
    = ((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' (\ x__ :: HttpRule
x__ y__ :: Maybe HttpRule'Pattern
y__ -> HttpRule
x__ {_HttpRule'pattern' :: Maybe HttpRule'Pattern
_HttpRule'pattern' = Maybe 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
              (\ x__ :: Maybe HttpRule'Pattern
x__
                 -> case Maybe HttpRule'Pattern
x__ of
                      (Prelude.Just (HttpRule'Delete x__val :: Text
x__val)) -> Text -> Maybe Text
forall a. a -> Maybe a
Prelude.Just Text
x__val
                      _otherwise :: Maybe HttpRule'Pattern
_otherwise -> Maybe Text
forall a. Maybe a
Prelude.Nothing)
              (\ _ y__ :: Maybe Text
y__ -> (Text -> HttpRule'Pattern) -> Maybe Text -> Maybe HttpRule'Pattern
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 :: Proxy# "maybe'patch"
-> (Maybe Text -> f (Maybe Text)) -> HttpRule -> f HttpRule
fieldOf _
    = ((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' (\ x__ :: HttpRule
x__ y__ :: Maybe HttpRule'Pattern
y__ -> HttpRule
x__ {_HttpRule'pattern' :: Maybe HttpRule'Pattern
_HttpRule'pattern' = Maybe 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
           (\ x__ :: Maybe HttpRule'Pattern
x__
              -> case Maybe HttpRule'Pattern
x__ of
                   (Prelude.Just (HttpRule'Patch x__val :: Text
x__val)) -> Text -> Maybe Text
forall a. a -> Maybe a
Prelude.Just Text
x__val
                   _otherwise :: Maybe HttpRule'Pattern
_otherwise -> Maybe Text
forall a. Maybe a
Prelude.Nothing)
           (\ _ y__ :: Maybe Text
y__ -> (Text -> HttpRule'Pattern) -> Maybe Text -> Maybe HttpRule'Pattern
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 :: Proxy# "patch" -> (Text -> f Text) -> HttpRule -> f HttpRule
fieldOf _
    = ((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' (\ x__ :: HttpRule
x__ y__ :: Maybe HttpRule'Pattern
y__ -> HttpRule
x__ {_HttpRule'pattern' :: Maybe HttpRule'Pattern
_HttpRule'pattern' = Maybe 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
              (\ x__ :: Maybe HttpRule'Pattern
x__
                 -> case Maybe HttpRule'Pattern
x__ of
                      (Prelude.Just (HttpRule'Patch x__val :: Text
x__val)) -> Text -> Maybe Text
forall a. a -> Maybe a
Prelude.Just Text
x__val
                      _otherwise :: Maybe HttpRule'Pattern
_otherwise -> Maybe Text
forall a. Maybe a
Prelude.Nothing)
              (\ _ y__ :: Maybe Text
y__ -> (Text -> HttpRule'Pattern) -> Maybe Text -> Maybe HttpRule'Pattern
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 :: Proxy# "maybe'custom"
-> (Maybe CustomHttpPattern -> f (Maybe CustomHttpPattern))
-> HttpRule
-> f HttpRule
fieldOf _
    = ((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' (\ x__ :: HttpRule
x__ y__ :: Maybe HttpRule'Pattern
y__ -> HttpRule
x__ {_HttpRule'pattern' :: Maybe HttpRule'Pattern
_HttpRule'pattern' = Maybe 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
           (\ x__ :: Maybe HttpRule'Pattern
x__
              -> case Maybe HttpRule'Pattern
x__ of
                   (Prelude.Just (HttpRule'Custom x__val :: CustomHttpPattern
x__val)) -> CustomHttpPattern -> Maybe CustomHttpPattern
forall a. a -> Maybe a
Prelude.Just CustomHttpPattern
x__val
                   _otherwise :: Maybe HttpRule'Pattern
_otherwise -> Maybe CustomHttpPattern
forall a. Maybe a
Prelude.Nothing)
           (\ _ y__ :: Maybe CustomHttpPattern
y__ -> (CustomHttpPattern -> HttpRule'Pattern)
-> Maybe CustomHttpPattern -> Maybe HttpRule'Pattern
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 :: Proxy# "custom"
-> (CustomHttpPattern -> f CustomHttpPattern)
-> HttpRule
-> f HttpRule
fieldOf _
    = ((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' (\ x__ :: HttpRule
x__ y__ :: Maybe HttpRule'Pattern
y__ -> HttpRule
x__ {_HttpRule'pattern' :: Maybe HttpRule'Pattern
_HttpRule'pattern' = Maybe 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
              (\ x__ :: Maybe HttpRule'Pattern
x__
                 -> case Maybe HttpRule'Pattern
x__ of
                      (Prelude.Just (HttpRule'Custom x__val :: CustomHttpPattern
x__val)) -> CustomHttpPattern -> Maybe CustomHttpPattern
forall a. a -> Maybe a
Prelude.Just CustomHttpPattern
x__val
                      _otherwise :: Maybe HttpRule'Pattern
_otherwise -> Maybe CustomHttpPattern
forall a. Maybe a
Prelude.Nothing)
              (\ _ y__ :: Maybe CustomHttpPattern
y__ -> (CustomHttpPattern -> HttpRule'Pattern)
-> Maybe CustomHttpPattern -> Maybe HttpRule'Pattern
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 _ = String -> Text
Data.Text.pack "google.api.HttpRule"
  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
              "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 s a (f :: * -> *).
(HasField s "selector" a, Functor f) =>
(a -> f a) -> s -> f s
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
              "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 s a (f :: * -> *).
(HasField s "body" a, Functor f) =>
(a -> f a) -> s -> f s
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
              "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 s a (f :: * -> *).
(HasField s "responseBody" a, Functor f) =>
(a -> f a) -> s -> f s
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
              "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 s a (f :: * -> *).
(HasField s "additionalBindings" a, Functor f) =>
(a -> f a) -> s -> f s
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
              "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 s a (f :: * -> *).
(HasField s "maybe'get" a, Functor f) =>
(a -> f a) -> s -> f s
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
              "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 s a (f :: * -> *).
(HasField s "maybe'put" a, Functor f) =>
(a -> f a) -> s -> f s
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
              "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 s a (f :: * -> *).
(HasField s "maybe'post" a, Functor f) =>
(a -> f a) -> s -> f s
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
              "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 s a (f :: * -> *).
(HasField s "maybe'delete" a, Functor f) =>
(a -> f a) -> s -> f s
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
              "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 s a (f :: * -> *).
(HasField s "maybe'patch" a, Functor f) =>
(a -> f a) -> s -> f s
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
              "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 s a (f :: * -> *).
(HasField s "maybe'custom" a, Functor f) =>
(a -> f a) -> s -> f s
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 1, FieldDescriptor HttpRule
selector__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 7, FieldDescriptor HttpRule
body__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 12, FieldDescriptor HttpRule
responseBody__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 11, FieldDescriptor HttpRule
additionalBindings__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor HttpRule
get__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 3, FieldDescriptor HttpRule
put__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 4, FieldDescriptor HttpRule
post__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 5, FieldDescriptor HttpRule
delete__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 6, FieldDescriptor HttpRule
patch__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 8, FieldDescriptor HttpRule
custom__field_descriptor)]
  unknownFields :: LensLike' f 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
        (\ x__ :: HttpRule
x__ y__ :: FieldSet
y__ -> HttpRule
x__ {_HttpRule'_unknownFields :: FieldSet
_HttpRule'_unknownFields = FieldSet
y__})
  defMessage :: HttpRule
defMessage
    = $WHttpRule'_constructor :: Text
-> Text
-> Text
-> Vector HttpRule
-> Maybe HttpRule'Pattern
-> FieldSet
-> HttpRule
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 x :: HttpRule
x mutable'additionalBindings :: Growing Vector RealWorld HttpRule
mutable'additionalBindings
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do Vector HttpRule
frozen'additionalBindings <- IO (Vector HttpRule) -> Parser (Vector HttpRule)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                                     (Growing Vector (PrimState IO) HttpRule -> IO (Vector HttpRule)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                                        Growing Vector RealWorld HttpRule
Growing Vector (PrimState IO) HttpRule
mutable'additionalBindings)
                      (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  "Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      HttpRule -> Parser HttpRule
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter HttpRule HttpRule FieldSet FieldSet
-> (FieldSet -> FieldSet) -> HttpRule -> HttpRule
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           forall msg. Message msg => Lens' msg FieldSet
Setter HttpRule HttpRule FieldSet FieldSet
Data.ProtoLens.unknownFields
                           (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Setter HttpRule HttpRule (Vector HttpRule) (Vector HttpRule)
-> Vector HttpRule -> HttpRule -> HttpRule
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                              (forall s a (f :: * -> *).
(HasField s "vec'additionalBindings" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'additionalBindings")
                              Vector HttpRule
frozen'additionalBindings
                              HttpRule
x))
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        10
                          -> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                       Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                                         (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                           Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
                                             (case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
                                                (Prelude.Left err :: UnicodeException
err)
                                                  -> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
                                                (Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
                                       "selector"
                                HttpRule -> Growing Vector RealWorld HttpRule -> Parser HttpRule
loop
                                  (Setter HttpRule HttpRule Text Text -> Text -> HttpRule -> HttpRule
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "selector" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"selector") Text
y HttpRule
x)
                                  Growing Vector RealWorld HttpRule
mutable'additionalBindings
                        58
                          -> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                       Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                                         (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                           Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
                                             (case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
                                                (Prelude.Left err :: UnicodeException
err)
                                                  -> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
                                                (Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
                                       "body"
                                HttpRule -> Growing Vector RealWorld HttpRule -> Parser HttpRule
loop
                                  (Setter HttpRule HttpRule Text Text -> Text -> HttpRule -> HttpRule
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "body" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"body") Text
y HttpRule
x)
                                  Growing Vector RealWorld HttpRule
mutable'additionalBindings
                        98
                          -> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                       Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                                         (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                           Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
                                             (case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
                                                (Prelude.Left err :: UnicodeException
err)
                                                  -> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
                                                (Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
                                       "response_body"
                                HttpRule -> Growing Vector RealWorld HttpRule -> Parser HttpRule
loop
                                  (Setter HttpRule HttpRule Text Text -> Text -> HttpRule -> HttpRule
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                     (forall s a (f :: * -> *).
(HasField s "responseBody" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"responseBody") Text
y HttpRule
x)
                                  Growing Vector RealWorld HttpRule
mutable'additionalBindings
                        90
                          -> do !HttpRule
y <- Parser HttpRule -> String -> Parser HttpRule
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Int -> Parser HttpRule -> Parser HttpRule
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                              (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                              Parser HttpRule
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                        "additional_bindings"
                                Growing Vector RealWorld HttpRule
v <- IO (Growing Vector RealWorld HttpRule)
-> Parser (Growing Vector RealWorld HttpRule)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) HttpRule
-> HttpRule -> IO (Growing Vector (PrimState IO) HttpRule)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append
                                          Growing Vector RealWorld HttpRule
Growing Vector (PrimState IO) HttpRule
mutable'additionalBindings HttpRule
y)
                                HttpRule -> Growing Vector RealWorld HttpRule -> Parser HttpRule
loop HttpRule
x Growing Vector RealWorld HttpRule
v
                        18
                          -> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                       Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                                         (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                           Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
                                             (case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
                                                (Prelude.Left err :: UnicodeException
err)
                                                  -> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
                                                (Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
                                       "get"
                                HttpRule -> Growing Vector RealWorld HttpRule -> Parser HttpRule
loop
                                  (Setter HttpRule HttpRule Text Text -> Text -> HttpRule -> HttpRule
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "get" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"get") Text
y HttpRule
x)
                                  Growing Vector RealWorld HttpRule
mutable'additionalBindings
                        26
                          -> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                       Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                                         (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                           Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
                                             (case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
                                                (Prelude.Left err :: UnicodeException
err)
                                                  -> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
                                                (Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
                                       "put"
                                HttpRule -> Growing Vector RealWorld HttpRule -> Parser HttpRule
loop
                                  (Setter HttpRule HttpRule Text Text -> Text -> HttpRule -> HttpRule
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "put" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"put") Text
y HttpRule
x)
                                  Growing Vector RealWorld HttpRule
mutable'additionalBindings
                        34
                          -> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                       Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                                         (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                           Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
                                             (case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
                                                (Prelude.Left err :: UnicodeException
err)
                                                  -> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
                                                (Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
                                       "post"
                                HttpRule -> Growing Vector RealWorld HttpRule -> Parser HttpRule
loop
                                  (Setter HttpRule HttpRule Text Text -> Text -> HttpRule -> HttpRule
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "post" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"post") Text
y HttpRule
x)
                                  Growing Vector RealWorld HttpRule
mutable'additionalBindings
                        42
                          -> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                       Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                                         (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                           Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
                                             (case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
                                                (Prelude.Left err :: UnicodeException
err)
                                                  -> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
                                                (Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
                                       "delete"
                                HttpRule -> Growing Vector RealWorld HttpRule -> Parser HttpRule
loop
                                  (Setter HttpRule HttpRule Text Text -> Text -> HttpRule -> HttpRule
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "delete" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"delete") Text
y HttpRule
x)
                                  Growing Vector RealWorld HttpRule
mutable'additionalBindings
                        50
                          -> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                       Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                                         (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                           Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
                                             (case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
                                                (Prelude.Left err :: UnicodeException
err)
                                                  -> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
                                                (Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
                                       "patch"
                                HttpRule -> Growing Vector RealWorld HttpRule -> Parser HttpRule
loop
                                  (Setter HttpRule HttpRule Text Text -> Text -> HttpRule -> HttpRule
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "patch" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"patch") Text
y HttpRule
x)
                                  Growing Vector RealWorld HttpRule
mutable'additionalBindings
                        66
                          -> do CustomHttpPattern
y <- Parser CustomHttpPattern -> String -> Parser CustomHttpPattern
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser CustomHttpPattern -> Parser CustomHttpPattern
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser CustomHttpPattern
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       "custom"
                                HttpRule -> Growing Vector RealWorld HttpRule -> Parser HttpRule
loop
                                  (Setter HttpRule HttpRule CustomHttpPattern CustomHttpPattern
-> CustomHttpPattern -> HttpRule -> HttpRule
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "custom" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"custom") CustomHttpPattern
y HttpRule
x)
                                  Growing Vector RealWorld HttpRule
mutable'additionalBindings
                        wire :: Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                HttpRule -> Growing Vector RealWorld HttpRule -> Parser HttpRule
loop
                                  (Setter HttpRule HttpRule FieldSet FieldSet
-> (FieldSet -> FieldSet) -> HttpRule -> HttpRule
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     forall msg. Message msg => Lens' msg FieldSet
Setter HttpRule HttpRule FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) HttpRule
x)
                                  Growing Vector RealWorld HttpRule
mutable'additionalBindings
      in
        Parser HttpRule -> String -> Parser HttpRule
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Growing Vector RealWorld HttpRule
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)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              HttpRule -> Growing Vector RealWorld HttpRule -> Parser HttpRule
loop HttpRule
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld HttpRule
mutable'additionalBindings)
          "HttpRule"
  buildMessage :: HttpRule -> Builder
buildMessage
    = \ _x :: 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 s a (f :: * -> *).
(HasField s "selector" a, Functor f) =>
(a -> f a) -> s -> f s
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 10)
                      ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                         (\ bs :: 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 s a (f :: * -> *).
(HasField s "body" a, Functor f) =>
(a -> f a) -> s -> f s
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 58)
                         ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                            (\ bs :: 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 s a (f :: * -> *).
(HasField s "responseBody" a, Functor f) =>
(a -> f a) -> s -> f s
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 98)
                            ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                               (\ bs :: 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
                         (\ _v :: HttpRule
_v
                            -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                 (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 90)
                                 ((ByteString -> Builder)
-> (HttpRule -> ByteString) -> HttpRule -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                    (\ bs :: 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 s a (f :: * -> *).
(HasField s "vec'additionalBindings" a, Functor f) =>
(a -> f a) -> s -> f s
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 s a (f :: * -> *).
(HasField s "maybe'pattern'" a, Functor f) =>
(a -> f a) -> s -> f s
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
                            Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                            (Prelude.Just (HttpRule'Get v :: Text
v))
                              -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                   (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 18)
                                   ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                      (\ bs :: 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 v :: Text
v))
                              -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                   (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 26)
                                   ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                      (\ bs :: 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 v :: Text
v))
                              -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                   (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 34)
                                   ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                      (\ bs :: 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 v :: Text
v))
                              -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                   (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 42)
                                   ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                      (\ bs :: 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 v :: Text
v))
                              -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                   (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 50)
                                   ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                      (\ bs :: 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 v :: CustomHttpPattern
v))
                              -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                   (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 66)
                                   ((ByteString -> Builder)
-> (CustomHttpPattern -> ByteString)
-> CustomHttpPattern
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                      (\ bs :: 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
Data.ProtoLens.unknownFields HttpRule
_x))))))
instance Control.DeepSeq.NFData HttpRule where
  rnf :: HttpRule -> ()
rnf
    = \ x__ :: 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 x__ :: Text
x__) = Text -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf Text
x__
  rnf (HttpRule'Put x__ :: Text
x__) = Text -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf Text
x__
  rnf (HttpRule'Post x__ :: Text
x__) = Text -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf Text
x__
  rnf (HttpRule'Delete x__ :: Text
x__) = Text -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf Text
x__
  rnf (HttpRule'Patch x__ :: Text
x__) = Text -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf Text
x__
  rnf (HttpRule'Custom x__ :: 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 :: p Text (f Text) -> p HttpRule'Pattern (f HttpRule'Pattern)
_HttpRule'Get
  = (Text -> HttpRule'Pattern)
-> (HttpRule'Pattern -> Maybe Text)
-> Prism HttpRule'Pattern HttpRule'Pattern Text Text
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      Text -> HttpRule'Pattern
HttpRule'Get
      (\ p__ :: HttpRule'Pattern
p__
         -> case HttpRule'Pattern
p__ of
              (HttpRule'Get p__val :: Text
p__val) -> Text -> Maybe Text
forall a. a -> Maybe a
Prelude.Just Text
p__val
              _otherwise :: HttpRule'Pattern
_otherwise -> Maybe Text
forall a. Maybe a
Prelude.Nothing)
_HttpRule'Put ::
  Data.ProtoLens.Prism.Prism' HttpRule'Pattern Data.Text.Text
_HttpRule'Put :: p Text (f Text) -> p HttpRule'Pattern (f HttpRule'Pattern)
_HttpRule'Put
  = (Text -> HttpRule'Pattern)
-> (HttpRule'Pattern -> Maybe Text)
-> Prism HttpRule'Pattern HttpRule'Pattern Text Text
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      Text -> HttpRule'Pattern
HttpRule'Put
      (\ p__ :: HttpRule'Pattern
p__
         -> case HttpRule'Pattern
p__ of
              (HttpRule'Put p__val :: Text
p__val) -> Text -> Maybe Text
forall a. a -> Maybe a
Prelude.Just Text
p__val
              _otherwise :: HttpRule'Pattern
_otherwise -> Maybe Text
forall a. Maybe a
Prelude.Nothing)
_HttpRule'Post ::
  Data.ProtoLens.Prism.Prism' HttpRule'Pattern Data.Text.Text
_HttpRule'Post :: p Text (f Text) -> p HttpRule'Pattern (f HttpRule'Pattern)
_HttpRule'Post
  = (Text -> HttpRule'Pattern)
-> (HttpRule'Pattern -> Maybe Text)
-> Prism HttpRule'Pattern HttpRule'Pattern Text Text
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      Text -> HttpRule'Pattern
HttpRule'Post
      (\ p__ :: HttpRule'Pattern
p__
         -> case HttpRule'Pattern
p__ of
              (HttpRule'Post p__val :: Text
p__val) -> Text -> Maybe Text
forall a. a -> Maybe a
Prelude.Just Text
p__val
              _otherwise :: HttpRule'Pattern
_otherwise -> Maybe Text
forall a. Maybe a
Prelude.Nothing)
_HttpRule'Delete ::
  Data.ProtoLens.Prism.Prism' HttpRule'Pattern Data.Text.Text
_HttpRule'Delete :: p Text (f Text) -> p HttpRule'Pattern (f HttpRule'Pattern)
_HttpRule'Delete
  = (Text -> HttpRule'Pattern)
-> (HttpRule'Pattern -> Maybe Text)
-> Prism HttpRule'Pattern HttpRule'Pattern Text Text
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      Text -> HttpRule'Pattern
HttpRule'Delete
      (\ p__ :: HttpRule'Pattern
p__
         -> case HttpRule'Pattern
p__ of
              (HttpRule'Delete p__val :: Text
p__val) -> Text -> Maybe Text
forall a. a -> Maybe a
Prelude.Just Text
p__val
              _otherwise :: HttpRule'Pattern
_otherwise -> Maybe Text
forall a. Maybe a
Prelude.Nothing)
_HttpRule'Patch ::
  Data.ProtoLens.Prism.Prism' HttpRule'Pattern Data.Text.Text
_HttpRule'Patch :: p Text (f Text) -> p HttpRule'Pattern (f HttpRule'Pattern)
_HttpRule'Patch
  = (Text -> HttpRule'Pattern)
-> (HttpRule'Pattern -> Maybe Text)
-> Prism HttpRule'Pattern HttpRule'Pattern Text Text
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      Text -> HttpRule'Pattern
HttpRule'Patch
      (\ p__ :: HttpRule'Pattern
p__
         -> case HttpRule'Pattern
p__ of
              (HttpRule'Patch p__val :: Text
p__val) -> Text -> Maybe Text
forall a. a -> Maybe a
Prelude.Just Text
p__val
              _otherwise :: HttpRule'Pattern
_otherwise -> Maybe Text
forall a. Maybe a
Prelude.Nothing)
_HttpRule'Custom ::
  Data.ProtoLens.Prism.Prism' HttpRule'Pattern CustomHttpPattern
_HttpRule'Custom :: p CustomHttpPattern (f CustomHttpPattern)
-> p HttpRule'Pattern (f HttpRule'Pattern)
_HttpRule'Custom
  = (CustomHttpPattern -> HttpRule'Pattern)
-> (HttpRule'Pattern -> Maybe CustomHttpPattern)
-> Prism
     HttpRule'Pattern
     HttpRule'Pattern
     CustomHttpPattern
     CustomHttpPattern
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      CustomHttpPattern -> HttpRule'Pattern
HttpRule'Custom
      (\ p__ :: HttpRule'Pattern
p__
         -> case HttpRule'Pattern
p__ of
              (HttpRule'Custom p__val :: CustomHttpPattern
p__val) -> CustomHttpPattern -> Maybe CustomHttpPattern
forall a. a -> Maybe a
Prelude.Just CustomHttpPattern
p__val
              _otherwise :: HttpRule'Pattern
_otherwise -> Maybe CustomHttpPattern
forall a. Maybe a
Prelude.Nothing)