{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,
UndecidableInstances, GeneralizedNewtypeDeriving,
MultiParamTypeClasses, FlexibleContexts, FlexibleInstances,
PatternSynonyms, MagicHash, NoImplicitPrelude, DataKinds #-}
{-# OPTIONS_GHC -fno-warn-unused-imports#-}
{-# OPTIONS_GHC -fno-warn-duplicate-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.Lens.Labels.Prism
as Lens.Labels.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.Word as Data.Word
import qualified Data.ProtoLens.Runtime.Data.ProtoLens
as Data.ProtoLens
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.Lens.Labels as Lens.Labels
import qualified Data.ProtoLens.Runtime.Text.Read as Text.Read
data CustomHttpPattern = CustomHttpPattern{_CustomHttpPattern'kind
:: !Data.Text.Text,
_CustomHttpPattern'path :: !Data.Text.Text,
_CustomHttpPattern'_unknownFields ::
!Data.ProtoLens.FieldSet}
deriving (Prelude.Eq, Prelude.Ord)
instance Prelude.Show CustomHttpPattern where
showsPrec _ __x __s
= Prelude.showChar '{'
(Prelude.showString (Data.ProtoLens.showMessageShort __x)
(Prelude.showChar '}' __s))
instance Lens.Labels.HasLens' CustomHttpPattern "kind"
(Data.Text.Text)
where
lensOf' _
= (Prelude..)
(Lens.Family2.Unchecked.lens _CustomHttpPattern'kind
(\ x__ y__ -> x__{_CustomHttpPattern'kind = y__}))
Prelude.id
instance Lens.Labels.HasLens' CustomHttpPattern "path"
(Data.Text.Text)
where
lensOf' _
= (Prelude..)
(Lens.Family2.Unchecked.lens _CustomHttpPattern'path
(\ x__ y__ -> x__{_CustomHttpPattern'path = y__}))
Prelude.id
instance Data.ProtoLens.Message CustomHttpPattern where
messageName _ = Data.Text.pack "google.api.CustomHttpPattern"
fieldsByTag
= let kind__field_descriptor
= Data.ProtoLens.FieldDescriptor "kind"
(Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Data.ProtoLens.PlainField Data.ProtoLens.Optional
(Lens.Labels.lensOf'
((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "kind")))
:: Data.ProtoLens.FieldDescriptor CustomHttpPattern
path__field_descriptor
= Data.ProtoLens.FieldDescriptor "path"
(Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Data.ProtoLens.PlainField Data.ProtoLens.Optional
(Lens.Labels.lensOf'
((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "path")))
:: Data.ProtoLens.FieldDescriptor CustomHttpPattern
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, kind__field_descriptor),
(Data.ProtoLens.Tag 2, path__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens _CustomHttpPattern'_unknownFields
(\ x__ y__ -> x__{_CustomHttpPattern'_unknownFields = y__})
defMessage
= CustomHttpPattern{_CustomHttpPattern'kind =
Data.ProtoLens.fieldDefault,
_CustomHttpPattern'path = Data.ProtoLens.fieldDefault,
_CustomHttpPattern'_unknownFields = ([])}
instance Control.DeepSeq.NFData CustomHttpPattern where
rnf
= \ x__ ->
Control.DeepSeq.deepseq (_CustomHttpPattern'_unknownFields x__)
(Control.DeepSeq.deepseq (_CustomHttpPattern'kind x__)
(Control.DeepSeq.deepseq (_CustomHttpPattern'path x__) (())))
data Http = Http{_Http'rules :: ![HttpRule],
_Http'fullyDecodeReservedExpansion :: !Prelude.Bool,
_Http'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving (Prelude.Eq, Prelude.Ord)
instance Prelude.Show Http where
showsPrec _ __x __s
= Prelude.showChar '{'
(Prelude.showString (Data.ProtoLens.showMessageShort __x)
(Prelude.showChar '}' __s))
instance Lens.Labels.HasLens' Http "rules" ([HttpRule]) where
lensOf' _
= (Prelude..)
(Lens.Family2.Unchecked.lens _Http'rules
(\ x__ y__ -> x__{_Http'rules = y__}))
Prelude.id
instance Lens.Labels.HasLens' Http "fullyDecodeReservedExpansion"
(Prelude.Bool)
where
lensOf' _
= (Prelude..)
(Lens.Family2.Unchecked.lens _Http'fullyDecodeReservedExpansion
(\ x__ y__ -> x__{_Http'fullyDecodeReservedExpansion = y__}))
Prelude.id
instance Data.ProtoLens.Message Http where
messageName _ = Data.Text.pack "google.api.Http"
fieldsByTag
= let rules__field_descriptor
= Data.ProtoLens.FieldDescriptor "rules"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor HttpRule)
(Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked
(Lens.Labels.lensOf'
((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "rules")))
:: Data.ProtoLens.FieldDescriptor Http
fullyDecodeReservedExpansion__field_descriptor
= Data.ProtoLens.FieldDescriptor "fully_decode_reserved_expansion"
(Data.ProtoLens.ScalarField Data.ProtoLens.BoolField ::
Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
(Data.ProtoLens.PlainField Data.ProtoLens.Optional
(Lens.Labels.lensOf'
((Lens.Labels.proxy#) ::
(Lens.Labels.Proxy#) "fullyDecodeReservedExpansion")))
:: Data.ProtoLens.FieldDescriptor Http
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, rules__field_descriptor),
(Data.ProtoLens.Tag 2,
fullyDecodeReservedExpansion__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens _Http'_unknownFields
(\ x__ y__ -> x__{_Http'_unknownFields = y__})
defMessage
= Http{_Http'rules = [],
_Http'fullyDecodeReservedExpansion = Data.ProtoLens.fieldDefault,
_Http'_unknownFields = ([])}
instance Control.DeepSeq.NFData Http where
rnf
= \ x__ ->
Control.DeepSeq.deepseq (_Http'_unknownFields x__)
(Control.DeepSeq.deepseq (_Http'rules x__)
(Control.DeepSeq.deepseq (_Http'fullyDecodeReservedExpansion x__)
(())))
data HttpRule = HttpRule{_HttpRule'selector :: !Data.Text.Text,
_HttpRule'body :: !Data.Text.Text,
_HttpRule'responseBody :: !Data.Text.Text,
_HttpRule'additionalBindings :: ![HttpRule],
_HttpRule'pattern' :: !(Prelude.Maybe HttpRule'Pattern),
_HttpRule'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving (Prelude.Eq, Prelude.Ord)
instance Prelude.Show HttpRule where
showsPrec _ __x __s
= Prelude.showChar '{'
(Prelude.showString (Data.ProtoLens.showMessageShort __x)
(Prelude.showChar '}' __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 (Prelude.Show, Prelude.Eq, Prelude.Ord)
instance Lens.Labels.HasLens' HttpRule "selector" (Data.Text.Text)
where
lensOf' _
= (Prelude..)
(Lens.Family2.Unchecked.lens _HttpRule'selector
(\ x__ y__ -> x__{_HttpRule'selector = y__}))
Prelude.id
instance Lens.Labels.HasLens' HttpRule "body" (Data.Text.Text)
where
lensOf' _
= (Prelude..)
(Lens.Family2.Unchecked.lens _HttpRule'body
(\ x__ y__ -> x__{_HttpRule'body = y__}))
Prelude.id
instance Lens.Labels.HasLens' HttpRule "responseBody"
(Data.Text.Text)
where
lensOf' _
= (Prelude..)
(Lens.Family2.Unchecked.lens _HttpRule'responseBody
(\ x__ y__ -> x__{_HttpRule'responseBody = y__}))
Prelude.id
instance Lens.Labels.HasLens' HttpRule "additionalBindings"
([HttpRule])
where
lensOf' _
= (Prelude..)
(Lens.Family2.Unchecked.lens _HttpRule'additionalBindings
(\ x__ y__ -> x__{_HttpRule'additionalBindings = y__}))
Prelude.id
instance Lens.Labels.HasLens' HttpRule "maybe'pattern'"
(Prelude.Maybe HttpRule'Pattern)
where
lensOf' _
= (Prelude..)
(Lens.Family2.Unchecked.lens _HttpRule'pattern'
(\ x__ y__ -> x__{_HttpRule'pattern' = y__}))
Prelude.id
instance Lens.Labels.HasLens' HttpRule "maybe'get"
(Prelude.Maybe Data.Text.Text)
where
lensOf' _
= (Prelude..)
(Lens.Family2.Unchecked.lens _HttpRule'pattern'
(\ x__ y__ -> x__{_HttpRule'pattern' = y__}))
(Lens.Family2.Unchecked.lens
(\ x__ ->
case x__ of
Prelude.Just (HttpRule'Get x__val) -> Prelude.Just x__val
_otherwise -> Prelude.Nothing)
(\ _ y__ -> Prelude.fmap HttpRule'Get y__))
instance Lens.Labels.HasLens' HttpRule "get" (Data.Text.Text) where
lensOf' _
= (Prelude..)
(Lens.Family2.Unchecked.lens _HttpRule'pattern'
(\ x__ y__ -> x__{_HttpRule'pattern' = y__}))
((Prelude..)
(Lens.Family2.Unchecked.lens
(\ x__ ->
case x__ of
Prelude.Just (HttpRule'Get x__val) -> Prelude.Just x__val
_otherwise -> Prelude.Nothing)
(\ _ y__ -> Prelude.fmap HttpRule'Get y__))
(Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault))
instance Lens.Labels.HasLens' HttpRule "maybe'put"
(Prelude.Maybe Data.Text.Text)
where
lensOf' _
= (Prelude..)
(Lens.Family2.Unchecked.lens _HttpRule'pattern'
(\ x__ y__ -> x__{_HttpRule'pattern' = y__}))
(Lens.Family2.Unchecked.lens
(\ x__ ->
case x__ of
Prelude.Just (HttpRule'Put x__val) -> Prelude.Just x__val
_otherwise -> Prelude.Nothing)
(\ _ y__ -> Prelude.fmap HttpRule'Put y__))
instance Lens.Labels.HasLens' HttpRule "put" (Data.Text.Text) where
lensOf' _
= (Prelude..)
(Lens.Family2.Unchecked.lens _HttpRule'pattern'
(\ x__ y__ -> x__{_HttpRule'pattern' = y__}))
((Prelude..)
(Lens.Family2.Unchecked.lens
(\ x__ ->
case x__ of
Prelude.Just (HttpRule'Put x__val) -> Prelude.Just x__val
_otherwise -> Prelude.Nothing)
(\ _ y__ -> Prelude.fmap HttpRule'Put y__))
(Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault))
instance Lens.Labels.HasLens' HttpRule "maybe'post"
(Prelude.Maybe Data.Text.Text)
where
lensOf' _
= (Prelude..)
(Lens.Family2.Unchecked.lens _HttpRule'pattern'
(\ x__ y__ -> x__{_HttpRule'pattern' = y__}))
(Lens.Family2.Unchecked.lens
(\ x__ ->
case x__ of
Prelude.Just (HttpRule'Post x__val) -> Prelude.Just x__val
_otherwise -> Prelude.Nothing)
(\ _ y__ -> Prelude.fmap HttpRule'Post y__))
instance Lens.Labels.HasLens' HttpRule "post" (Data.Text.Text)
where
lensOf' _
= (Prelude..)
(Lens.Family2.Unchecked.lens _HttpRule'pattern'
(\ x__ y__ -> x__{_HttpRule'pattern' = y__}))
((Prelude..)
(Lens.Family2.Unchecked.lens
(\ x__ ->
case x__ of
Prelude.Just (HttpRule'Post x__val) -> Prelude.Just x__val
_otherwise -> Prelude.Nothing)
(\ _ y__ -> Prelude.fmap HttpRule'Post y__))
(Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault))
instance Lens.Labels.HasLens' HttpRule "maybe'delete"
(Prelude.Maybe Data.Text.Text)
where
lensOf' _
= (Prelude..)
(Lens.Family2.Unchecked.lens _HttpRule'pattern'
(\ x__ y__ -> x__{_HttpRule'pattern' = y__}))
(Lens.Family2.Unchecked.lens
(\ x__ ->
case x__ of
Prelude.Just (HttpRule'Delete x__val) -> Prelude.Just x__val
_otherwise -> Prelude.Nothing)
(\ _ y__ -> Prelude.fmap HttpRule'Delete y__))
instance Lens.Labels.HasLens' HttpRule "delete" (Data.Text.Text)
where
lensOf' _
= (Prelude..)
(Lens.Family2.Unchecked.lens _HttpRule'pattern'
(\ x__ y__ -> x__{_HttpRule'pattern' = y__}))
((Prelude..)
(Lens.Family2.Unchecked.lens
(\ x__ ->
case x__ of
Prelude.Just (HttpRule'Delete x__val) -> Prelude.Just x__val
_otherwise -> Prelude.Nothing)
(\ _ y__ -> Prelude.fmap HttpRule'Delete y__))
(Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault))
instance Lens.Labels.HasLens' HttpRule "maybe'patch"
(Prelude.Maybe Data.Text.Text)
where
lensOf' _
= (Prelude..)
(Lens.Family2.Unchecked.lens _HttpRule'pattern'
(\ x__ y__ -> x__{_HttpRule'pattern' = y__}))
(Lens.Family2.Unchecked.lens
(\ x__ ->
case x__ of
Prelude.Just (HttpRule'Patch x__val) -> Prelude.Just x__val
_otherwise -> Prelude.Nothing)
(\ _ y__ -> Prelude.fmap HttpRule'Patch y__))
instance Lens.Labels.HasLens' HttpRule "patch" (Data.Text.Text)
where
lensOf' _
= (Prelude..)
(Lens.Family2.Unchecked.lens _HttpRule'pattern'
(\ x__ y__ -> x__{_HttpRule'pattern' = y__}))
((Prelude..)
(Lens.Family2.Unchecked.lens
(\ x__ ->
case x__ of
Prelude.Just (HttpRule'Patch x__val) -> Prelude.Just x__val
_otherwise -> Prelude.Nothing)
(\ _ y__ -> Prelude.fmap HttpRule'Patch y__))
(Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault))
instance Lens.Labels.HasLens' HttpRule "maybe'custom"
(Prelude.Maybe CustomHttpPattern)
where
lensOf' _
= (Prelude..)
(Lens.Family2.Unchecked.lens _HttpRule'pattern'
(\ x__ y__ -> x__{_HttpRule'pattern' = y__}))
(Lens.Family2.Unchecked.lens
(\ x__ ->
case x__ of
Prelude.Just (HttpRule'Custom x__val) -> Prelude.Just x__val
_otherwise -> Prelude.Nothing)
(\ _ y__ -> Prelude.fmap HttpRule'Custom y__))
instance Lens.Labels.HasLens' HttpRule "custom" (CustomHttpPattern)
where
lensOf' _
= (Prelude..)
(Lens.Family2.Unchecked.lens _HttpRule'pattern'
(\ x__ y__ -> x__{_HttpRule'pattern' = y__}))
((Prelude..)
(Lens.Family2.Unchecked.lens
(\ x__ ->
case x__ of
Prelude.Just (HttpRule'Custom x__val) -> Prelude.Just x__val
_otherwise -> Prelude.Nothing)
(\ _ y__ -> Prelude.fmap HttpRule'Custom y__))
(Data.ProtoLens.maybeLens Data.ProtoLens.defMessage))
instance Data.ProtoLens.Message HttpRule where
messageName _ = Data.Text.pack "google.api.HttpRule"
fieldsByTag
= let selector__field_descriptor
= Data.ProtoLens.FieldDescriptor "selector"
(Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Data.ProtoLens.PlainField Data.ProtoLens.Optional
(Lens.Labels.lensOf'
((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "selector")))
:: Data.ProtoLens.FieldDescriptor HttpRule
body__field_descriptor
= Data.ProtoLens.FieldDescriptor "body"
(Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Data.ProtoLens.PlainField Data.ProtoLens.Optional
(Lens.Labels.lensOf'
((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "body")))
:: Data.ProtoLens.FieldDescriptor HttpRule
responseBody__field_descriptor
= Data.ProtoLens.FieldDescriptor "response_body"
(Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Data.ProtoLens.PlainField Data.ProtoLens.Optional
(Lens.Labels.lensOf'
((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "responseBody")))
:: Data.ProtoLens.FieldDescriptor HttpRule
additionalBindings__field_descriptor
= Data.ProtoLens.FieldDescriptor "additional_bindings"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor HttpRule)
(Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked
(Lens.Labels.lensOf'
((Lens.Labels.proxy#) ::
(Lens.Labels.Proxy#) "additionalBindings")))
:: Data.ProtoLens.FieldDescriptor HttpRule
get__field_descriptor
= Data.ProtoLens.FieldDescriptor "get"
(Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Data.ProtoLens.OptionalField
(Lens.Labels.lensOf'
((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'get")))
:: Data.ProtoLens.FieldDescriptor HttpRule
put__field_descriptor
= Data.ProtoLens.FieldDescriptor "put"
(Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Data.ProtoLens.OptionalField
(Lens.Labels.lensOf'
((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'put")))
:: Data.ProtoLens.FieldDescriptor HttpRule
post__field_descriptor
= Data.ProtoLens.FieldDescriptor "post"
(Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Data.ProtoLens.OptionalField
(Lens.Labels.lensOf'
((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'post")))
:: Data.ProtoLens.FieldDescriptor HttpRule
delete__field_descriptor
= Data.ProtoLens.FieldDescriptor "delete"
(Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Data.ProtoLens.OptionalField
(Lens.Labels.lensOf'
((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'delete")))
:: Data.ProtoLens.FieldDescriptor HttpRule
patch__field_descriptor
= Data.ProtoLens.FieldDescriptor "patch"
(Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Data.ProtoLens.OptionalField
(Lens.Labels.lensOf'
((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'patch")))
:: Data.ProtoLens.FieldDescriptor HttpRule
custom__field_descriptor
= Data.ProtoLens.FieldDescriptor "custom"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor CustomHttpPattern)
(Data.ProtoLens.OptionalField
(Lens.Labels.lensOf'
((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'custom")))
:: Data.ProtoLens.FieldDescriptor HttpRule
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, selector__field_descriptor),
(Data.ProtoLens.Tag 7, body__field_descriptor),
(Data.ProtoLens.Tag 12, responseBody__field_descriptor),
(Data.ProtoLens.Tag 11, additionalBindings__field_descriptor),
(Data.ProtoLens.Tag 2, get__field_descriptor),
(Data.ProtoLens.Tag 3, put__field_descriptor),
(Data.ProtoLens.Tag 4, post__field_descriptor),
(Data.ProtoLens.Tag 5, delete__field_descriptor),
(Data.ProtoLens.Tag 6, patch__field_descriptor),
(Data.ProtoLens.Tag 8, custom__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens _HttpRule'_unknownFields
(\ x__ y__ -> x__{_HttpRule'_unknownFields = y__})
defMessage
= HttpRule{_HttpRule'selector = Data.ProtoLens.fieldDefault,
_HttpRule'body = Data.ProtoLens.fieldDefault,
_HttpRule'responseBody = Data.ProtoLens.fieldDefault,
_HttpRule'additionalBindings = [],
_HttpRule'pattern' = Prelude.Nothing,
_HttpRule'_unknownFields = ([])}
instance Control.DeepSeq.NFData HttpRule where
rnf
= \ x__ ->
Control.DeepSeq.deepseq (_HttpRule'_unknownFields x__)
(Control.DeepSeq.deepseq (_HttpRule'selector x__)
(Control.DeepSeq.deepseq (_HttpRule'body x__)
(Control.DeepSeq.deepseq (_HttpRule'responseBody x__)
(Control.DeepSeq.deepseq (_HttpRule'additionalBindings x__)
(Control.DeepSeq.deepseq (_HttpRule'pattern' x__) (()))))))
instance Control.DeepSeq.NFData HttpRule'Pattern where
rnf (HttpRule'Get x__) = Control.DeepSeq.rnf x__
rnf (HttpRule'Put x__) = Control.DeepSeq.rnf x__
rnf (HttpRule'Post x__) = Control.DeepSeq.rnf x__
rnf (HttpRule'Delete x__) = Control.DeepSeq.rnf x__
rnf (HttpRule'Patch x__) = Control.DeepSeq.rnf x__
rnf (HttpRule'Custom x__) = Control.DeepSeq.rnf x__
_HttpRule'Get ::
Lens.Labels.Prism.Prism' HttpRule'Pattern Data.Text.Text
_HttpRule'Get
= Lens.Labels.Prism.prism' HttpRule'Get
(\ p__ ->
case p__ of
HttpRule'Get p__val -> Prelude.Just p__val
_otherwise -> Prelude.Nothing)
_HttpRule'Put ::
Lens.Labels.Prism.Prism' HttpRule'Pattern Data.Text.Text
_HttpRule'Put
= Lens.Labels.Prism.prism' HttpRule'Put
(\ p__ ->
case p__ of
HttpRule'Put p__val -> Prelude.Just p__val
_otherwise -> Prelude.Nothing)
_HttpRule'Post ::
Lens.Labels.Prism.Prism' HttpRule'Pattern Data.Text.Text
_HttpRule'Post
= Lens.Labels.Prism.prism' HttpRule'Post
(\ p__ ->
case p__ of
HttpRule'Post p__val -> Prelude.Just p__val
_otherwise -> Prelude.Nothing)
_HttpRule'Delete ::
Lens.Labels.Prism.Prism' HttpRule'Pattern Data.Text.Text
_HttpRule'Delete
= Lens.Labels.Prism.prism' HttpRule'Delete
(\ p__ ->
case p__ of
HttpRule'Delete p__val -> Prelude.Just p__val
_otherwise -> Prelude.Nothing)
_HttpRule'Patch ::
Lens.Labels.Prism.Prism' HttpRule'Pattern Data.Text.Text
_HttpRule'Patch
= Lens.Labels.Prism.prism' HttpRule'Patch
(\ p__ ->
case p__ of
HttpRule'Patch p__val -> Prelude.Just p__val
_otherwise -> Prelude.Nothing)
_HttpRule'Custom ::
Lens.Labels.Prism.Prism' HttpRule'Pattern CustomHttpPattern
_HttpRule'Custom
= Lens.Labels.Prism.prism' HttpRule'Custom
(\ p__ ->
case p__ of
HttpRule'Custom p__val -> Prelude.Just p__val
_otherwise -> Prelude.Nothing)