{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DuplicateRecordFields #-}
{-# LANGUAGE NamedFieldPuns #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Amazonka.APIGateway.DeleteRequestValidator
(
DeleteRequestValidator (..),
newDeleteRequestValidator,
deleteRequestValidator_restApiId,
deleteRequestValidator_requestValidatorId,
DeleteRequestValidatorResponse (..),
newDeleteRequestValidatorResponse,
)
where
import Amazonka.APIGateway.Types
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data DeleteRequestValidator = DeleteRequestValidator'
{
DeleteRequestValidator -> Text
restApiId :: Prelude.Text,
DeleteRequestValidator -> Text
requestValidatorId :: Prelude.Text
}
deriving (DeleteRequestValidator -> DeleteRequestValidator -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteRequestValidator -> DeleteRequestValidator -> Bool
$c/= :: DeleteRequestValidator -> DeleteRequestValidator -> Bool
== :: DeleteRequestValidator -> DeleteRequestValidator -> Bool
$c== :: DeleteRequestValidator -> DeleteRequestValidator -> Bool
Prelude.Eq, ReadPrec [DeleteRequestValidator]
ReadPrec DeleteRequestValidator
Int -> ReadS DeleteRequestValidator
ReadS [DeleteRequestValidator]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteRequestValidator]
$creadListPrec :: ReadPrec [DeleteRequestValidator]
readPrec :: ReadPrec DeleteRequestValidator
$creadPrec :: ReadPrec DeleteRequestValidator
readList :: ReadS [DeleteRequestValidator]
$creadList :: ReadS [DeleteRequestValidator]
readsPrec :: Int -> ReadS DeleteRequestValidator
$creadsPrec :: Int -> ReadS DeleteRequestValidator
Prelude.Read, Int -> DeleteRequestValidator -> ShowS
[DeleteRequestValidator] -> ShowS
DeleteRequestValidator -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteRequestValidator] -> ShowS
$cshowList :: [DeleteRequestValidator] -> ShowS
show :: DeleteRequestValidator -> String
$cshow :: DeleteRequestValidator -> String
showsPrec :: Int -> DeleteRequestValidator -> ShowS
$cshowsPrec :: Int -> DeleteRequestValidator -> ShowS
Prelude.Show, forall x. Rep DeleteRequestValidator x -> DeleteRequestValidator
forall x. DeleteRequestValidator -> Rep DeleteRequestValidator x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DeleteRequestValidator x -> DeleteRequestValidator
$cfrom :: forall x. DeleteRequestValidator -> Rep DeleteRequestValidator x
Prelude.Generic)
newDeleteRequestValidator ::
Prelude.Text ->
Prelude.Text ->
DeleteRequestValidator
newDeleteRequestValidator :: Text -> Text -> DeleteRequestValidator
newDeleteRequestValidator
Text
pRestApiId_
Text
pRequestValidatorId_ =
DeleteRequestValidator'
{ $sel:restApiId:DeleteRequestValidator' :: Text
restApiId = Text
pRestApiId_,
$sel:requestValidatorId:DeleteRequestValidator' :: Text
requestValidatorId = Text
pRequestValidatorId_
}
deleteRequestValidator_restApiId :: Lens.Lens' DeleteRequestValidator Prelude.Text
deleteRequestValidator_restApiId :: Lens' DeleteRequestValidator Text
deleteRequestValidator_restApiId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteRequestValidator' {Text
restApiId :: Text
$sel:restApiId:DeleteRequestValidator' :: DeleteRequestValidator -> Text
restApiId} -> Text
restApiId) (\s :: DeleteRequestValidator
s@DeleteRequestValidator' {} Text
a -> DeleteRequestValidator
s {$sel:restApiId:DeleteRequestValidator' :: Text
restApiId = Text
a} :: DeleteRequestValidator)
deleteRequestValidator_requestValidatorId :: Lens.Lens' DeleteRequestValidator Prelude.Text
deleteRequestValidator_requestValidatorId :: Lens' DeleteRequestValidator Text
deleteRequestValidator_requestValidatorId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteRequestValidator' {Text
requestValidatorId :: Text
$sel:requestValidatorId:DeleteRequestValidator' :: DeleteRequestValidator -> Text
requestValidatorId} -> Text
requestValidatorId) (\s :: DeleteRequestValidator
s@DeleteRequestValidator' {} Text
a -> DeleteRequestValidator
s {$sel:requestValidatorId:DeleteRequestValidator' :: Text
requestValidatorId = Text
a} :: DeleteRequestValidator)
instance Core.AWSRequest DeleteRequestValidator where
type
AWSResponse DeleteRequestValidator =
DeleteRequestValidatorResponse
request :: (Service -> Service)
-> DeleteRequestValidator -> Request DeleteRequestValidator
request Service -> Service
overrides =
forall a. ToRequest a => Service -> a -> Request a
Request.delete (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy DeleteRequestValidator
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse DeleteRequestValidator)))
response =
forall (m :: * -> *) a.
MonadResource m =>
AWSResponse a
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveNull
DeleteRequestValidatorResponse
DeleteRequestValidatorResponse'
instance Prelude.Hashable DeleteRequestValidator where
hashWithSalt :: Int -> DeleteRequestValidator -> Int
hashWithSalt Int
_salt DeleteRequestValidator' {Text
requestValidatorId :: Text
restApiId :: Text
$sel:requestValidatorId:DeleteRequestValidator' :: DeleteRequestValidator -> Text
$sel:restApiId:DeleteRequestValidator' :: DeleteRequestValidator -> Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
restApiId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
requestValidatorId
instance Prelude.NFData DeleteRequestValidator where
rnf :: DeleteRequestValidator -> ()
rnf DeleteRequestValidator' {Text
requestValidatorId :: Text
restApiId :: Text
$sel:requestValidatorId:DeleteRequestValidator' :: DeleteRequestValidator -> Text
$sel:restApiId:DeleteRequestValidator' :: DeleteRequestValidator -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
restApiId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
requestValidatorId
instance Data.ToHeaders DeleteRequestValidator where
toHeaders :: DeleteRequestValidator -> [Header]
toHeaders =
forall a b. a -> b -> a
Prelude.const
( forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"Accept"
forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# (ByteString
"application/json" :: Prelude.ByteString)
]
)
instance Data.ToPath DeleteRequestValidator where
toPath :: DeleteRequestValidator -> ByteString
toPath DeleteRequestValidator' {Text
requestValidatorId :: Text
restApiId :: Text
$sel:requestValidatorId:DeleteRequestValidator' :: DeleteRequestValidator -> Text
$sel:restApiId:DeleteRequestValidator' :: DeleteRequestValidator -> Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"/restapis/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
restApiId,
ByteString
"/requestvalidators/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
requestValidatorId
]
instance Data.ToQuery DeleteRequestValidator where
toQuery :: DeleteRequestValidator -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DeleteRequestValidatorResponse = DeleteRequestValidatorResponse'
{
}
deriving (DeleteRequestValidatorResponse
-> DeleteRequestValidatorResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteRequestValidatorResponse
-> DeleteRequestValidatorResponse -> Bool
$c/= :: DeleteRequestValidatorResponse
-> DeleteRequestValidatorResponse -> Bool
== :: DeleteRequestValidatorResponse
-> DeleteRequestValidatorResponse -> Bool
$c== :: DeleteRequestValidatorResponse
-> DeleteRequestValidatorResponse -> Bool
Prelude.Eq, ReadPrec [DeleteRequestValidatorResponse]
ReadPrec DeleteRequestValidatorResponse
Int -> ReadS DeleteRequestValidatorResponse
ReadS [DeleteRequestValidatorResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteRequestValidatorResponse]
$creadListPrec :: ReadPrec [DeleteRequestValidatorResponse]
readPrec :: ReadPrec DeleteRequestValidatorResponse
$creadPrec :: ReadPrec DeleteRequestValidatorResponse
readList :: ReadS [DeleteRequestValidatorResponse]
$creadList :: ReadS [DeleteRequestValidatorResponse]
readsPrec :: Int -> ReadS DeleteRequestValidatorResponse
$creadsPrec :: Int -> ReadS DeleteRequestValidatorResponse
Prelude.Read, Int -> DeleteRequestValidatorResponse -> ShowS
[DeleteRequestValidatorResponse] -> ShowS
DeleteRequestValidatorResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteRequestValidatorResponse] -> ShowS
$cshowList :: [DeleteRequestValidatorResponse] -> ShowS
show :: DeleteRequestValidatorResponse -> String
$cshow :: DeleteRequestValidatorResponse -> String
showsPrec :: Int -> DeleteRequestValidatorResponse -> ShowS
$cshowsPrec :: Int -> DeleteRequestValidatorResponse -> ShowS
Prelude.Show, forall x.
Rep DeleteRequestValidatorResponse x
-> DeleteRequestValidatorResponse
forall x.
DeleteRequestValidatorResponse
-> Rep DeleteRequestValidatorResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeleteRequestValidatorResponse x
-> DeleteRequestValidatorResponse
$cfrom :: forall x.
DeleteRequestValidatorResponse
-> Rep DeleteRequestValidatorResponse x
Prelude.Generic)
newDeleteRequestValidatorResponse ::
DeleteRequestValidatorResponse
newDeleteRequestValidatorResponse :: DeleteRequestValidatorResponse
newDeleteRequestValidatorResponse =
DeleteRequestValidatorResponse
DeleteRequestValidatorResponse'
instance
Prelude.NFData
DeleteRequestValidatorResponse
where
rnf :: DeleteRequestValidatorResponse -> ()
rnf DeleteRequestValidatorResponse
_ = ()