{-# 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.WAFRegional.DeleteSizeConstraintSet
(
DeleteSizeConstraintSet (..),
newDeleteSizeConstraintSet,
deleteSizeConstraintSet_sizeConstraintSetId,
deleteSizeConstraintSet_changeToken,
DeleteSizeConstraintSetResponse (..),
newDeleteSizeConstraintSetResponse,
deleteSizeConstraintSetResponse_changeToken,
deleteSizeConstraintSetResponse_httpStatus,
)
where
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
import Amazonka.WAFRegional.Types
data DeleteSizeConstraintSet = DeleteSizeConstraintSet'
{
DeleteSizeConstraintSet -> Text
sizeConstraintSetId :: Prelude.Text,
DeleteSizeConstraintSet -> Text
changeToken :: Prelude.Text
}
deriving (DeleteSizeConstraintSet -> DeleteSizeConstraintSet -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteSizeConstraintSet -> DeleteSizeConstraintSet -> Bool
$c/= :: DeleteSizeConstraintSet -> DeleteSizeConstraintSet -> Bool
== :: DeleteSizeConstraintSet -> DeleteSizeConstraintSet -> Bool
$c== :: DeleteSizeConstraintSet -> DeleteSizeConstraintSet -> Bool
Prelude.Eq, ReadPrec [DeleteSizeConstraintSet]
ReadPrec DeleteSizeConstraintSet
Int -> ReadS DeleteSizeConstraintSet
ReadS [DeleteSizeConstraintSet]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteSizeConstraintSet]
$creadListPrec :: ReadPrec [DeleteSizeConstraintSet]
readPrec :: ReadPrec DeleteSizeConstraintSet
$creadPrec :: ReadPrec DeleteSizeConstraintSet
readList :: ReadS [DeleteSizeConstraintSet]
$creadList :: ReadS [DeleteSizeConstraintSet]
readsPrec :: Int -> ReadS DeleteSizeConstraintSet
$creadsPrec :: Int -> ReadS DeleteSizeConstraintSet
Prelude.Read, Int -> DeleteSizeConstraintSet -> ShowS
[DeleteSizeConstraintSet] -> ShowS
DeleteSizeConstraintSet -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteSizeConstraintSet] -> ShowS
$cshowList :: [DeleteSizeConstraintSet] -> ShowS
show :: DeleteSizeConstraintSet -> String
$cshow :: DeleteSizeConstraintSet -> String
showsPrec :: Int -> DeleteSizeConstraintSet -> ShowS
$cshowsPrec :: Int -> DeleteSizeConstraintSet -> ShowS
Prelude.Show, forall x. Rep DeleteSizeConstraintSet x -> DeleteSizeConstraintSet
forall x. DeleteSizeConstraintSet -> Rep DeleteSizeConstraintSet x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DeleteSizeConstraintSet x -> DeleteSizeConstraintSet
$cfrom :: forall x. DeleteSizeConstraintSet -> Rep DeleteSizeConstraintSet x
Prelude.Generic)
newDeleteSizeConstraintSet ::
Prelude.Text ->
Prelude.Text ->
DeleteSizeConstraintSet
newDeleteSizeConstraintSet :: Text -> Text -> DeleteSizeConstraintSet
newDeleteSizeConstraintSet
Text
pSizeConstraintSetId_
Text
pChangeToken_ =
DeleteSizeConstraintSet'
{ $sel:sizeConstraintSetId:DeleteSizeConstraintSet' :: Text
sizeConstraintSetId =
Text
pSizeConstraintSetId_,
$sel:changeToken:DeleteSizeConstraintSet' :: Text
changeToken = Text
pChangeToken_
}
deleteSizeConstraintSet_sizeConstraintSetId :: Lens.Lens' DeleteSizeConstraintSet Prelude.Text
deleteSizeConstraintSet_sizeConstraintSetId :: Lens' DeleteSizeConstraintSet Text
deleteSizeConstraintSet_sizeConstraintSetId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteSizeConstraintSet' {Text
sizeConstraintSetId :: Text
$sel:sizeConstraintSetId:DeleteSizeConstraintSet' :: DeleteSizeConstraintSet -> Text
sizeConstraintSetId} -> Text
sizeConstraintSetId) (\s :: DeleteSizeConstraintSet
s@DeleteSizeConstraintSet' {} Text
a -> DeleteSizeConstraintSet
s {$sel:sizeConstraintSetId:DeleteSizeConstraintSet' :: Text
sizeConstraintSetId = Text
a} :: DeleteSizeConstraintSet)
deleteSizeConstraintSet_changeToken :: Lens.Lens' DeleteSizeConstraintSet Prelude.Text
deleteSizeConstraintSet_changeToken :: Lens' DeleteSizeConstraintSet Text
deleteSizeConstraintSet_changeToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteSizeConstraintSet' {Text
changeToken :: Text
$sel:changeToken:DeleteSizeConstraintSet' :: DeleteSizeConstraintSet -> Text
changeToken} -> Text
changeToken) (\s :: DeleteSizeConstraintSet
s@DeleteSizeConstraintSet' {} Text
a -> DeleteSizeConstraintSet
s {$sel:changeToken:DeleteSizeConstraintSet' :: Text
changeToken = Text
a} :: DeleteSizeConstraintSet)
instance Core.AWSRequest DeleteSizeConstraintSet where
type
AWSResponse DeleteSizeConstraintSet =
DeleteSizeConstraintSetResponse
request :: (Service -> Service)
-> DeleteSizeConstraintSet -> Request DeleteSizeConstraintSet
request Service -> Service
overrides =
forall a. (ToRequest a, ToJSON a) => Service -> a -> Request a
Request.postJSON (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy DeleteSizeConstraintSet
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse DeleteSizeConstraintSet)))
response =
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> Object -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveJSON
( \Int
s ResponseHeaders
h Object
x ->
Maybe Text -> Int -> DeleteSizeConstraintSetResponse
DeleteSizeConstraintSetResponse'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"ChangeToken")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
)
instance Prelude.Hashable DeleteSizeConstraintSet where
hashWithSalt :: Int -> DeleteSizeConstraintSet -> Int
hashWithSalt Int
_salt DeleteSizeConstraintSet' {Text
changeToken :: Text
sizeConstraintSetId :: Text
$sel:changeToken:DeleteSizeConstraintSet' :: DeleteSizeConstraintSet -> Text
$sel:sizeConstraintSetId:DeleteSizeConstraintSet' :: DeleteSizeConstraintSet -> Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
sizeConstraintSetId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
changeToken
instance Prelude.NFData DeleteSizeConstraintSet where
rnf :: DeleteSizeConstraintSet -> ()
rnf DeleteSizeConstraintSet' {Text
changeToken :: Text
sizeConstraintSetId :: Text
$sel:changeToken:DeleteSizeConstraintSet' :: DeleteSizeConstraintSet -> Text
$sel:sizeConstraintSetId:DeleteSizeConstraintSet' :: DeleteSizeConstraintSet -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
sizeConstraintSetId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
changeToken
instance Data.ToHeaders DeleteSizeConstraintSet where
toHeaders :: DeleteSizeConstraintSet -> ResponseHeaders
toHeaders =
forall a b. a -> b -> a
Prelude.const
( forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"X-Amz-Target"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"AWSWAF_Regional_20161128.DeleteSizeConstraintSet" ::
Prelude.ByteString
),
HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON DeleteSizeConstraintSet where
toJSON :: DeleteSizeConstraintSet -> Value
toJSON DeleteSizeConstraintSet' {Text
changeToken :: Text
sizeConstraintSetId :: Text
$sel:changeToken:DeleteSizeConstraintSet' :: DeleteSizeConstraintSet -> Text
$sel:sizeConstraintSetId:DeleteSizeConstraintSet' :: DeleteSizeConstraintSet -> Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ forall a. a -> Maybe a
Prelude.Just
(Key
"SizeConstraintSetId" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
sizeConstraintSetId),
forall a. a -> Maybe a
Prelude.Just (Key
"ChangeToken" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
changeToken)
]
)
instance Data.ToPath DeleteSizeConstraintSet where
toPath :: DeleteSizeConstraintSet -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery DeleteSizeConstraintSet where
toQuery :: DeleteSizeConstraintSet -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DeleteSizeConstraintSetResponse = DeleteSizeConstraintSetResponse'
{
DeleteSizeConstraintSetResponse -> Maybe Text
changeToken :: Prelude.Maybe Prelude.Text,
DeleteSizeConstraintSetResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DeleteSizeConstraintSetResponse
-> DeleteSizeConstraintSetResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteSizeConstraintSetResponse
-> DeleteSizeConstraintSetResponse -> Bool
$c/= :: DeleteSizeConstraintSetResponse
-> DeleteSizeConstraintSetResponse -> Bool
== :: DeleteSizeConstraintSetResponse
-> DeleteSizeConstraintSetResponse -> Bool
$c== :: DeleteSizeConstraintSetResponse
-> DeleteSizeConstraintSetResponse -> Bool
Prelude.Eq, ReadPrec [DeleteSizeConstraintSetResponse]
ReadPrec DeleteSizeConstraintSetResponse
Int -> ReadS DeleteSizeConstraintSetResponse
ReadS [DeleteSizeConstraintSetResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteSizeConstraintSetResponse]
$creadListPrec :: ReadPrec [DeleteSizeConstraintSetResponse]
readPrec :: ReadPrec DeleteSizeConstraintSetResponse
$creadPrec :: ReadPrec DeleteSizeConstraintSetResponse
readList :: ReadS [DeleteSizeConstraintSetResponse]
$creadList :: ReadS [DeleteSizeConstraintSetResponse]
readsPrec :: Int -> ReadS DeleteSizeConstraintSetResponse
$creadsPrec :: Int -> ReadS DeleteSizeConstraintSetResponse
Prelude.Read, Int -> DeleteSizeConstraintSetResponse -> ShowS
[DeleteSizeConstraintSetResponse] -> ShowS
DeleteSizeConstraintSetResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteSizeConstraintSetResponse] -> ShowS
$cshowList :: [DeleteSizeConstraintSetResponse] -> ShowS
show :: DeleteSizeConstraintSetResponse -> String
$cshow :: DeleteSizeConstraintSetResponse -> String
showsPrec :: Int -> DeleteSizeConstraintSetResponse -> ShowS
$cshowsPrec :: Int -> DeleteSizeConstraintSetResponse -> ShowS
Prelude.Show, forall x.
Rep DeleteSizeConstraintSetResponse x
-> DeleteSizeConstraintSetResponse
forall x.
DeleteSizeConstraintSetResponse
-> Rep DeleteSizeConstraintSetResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeleteSizeConstraintSetResponse x
-> DeleteSizeConstraintSetResponse
$cfrom :: forall x.
DeleteSizeConstraintSetResponse
-> Rep DeleteSizeConstraintSetResponse x
Prelude.Generic)
newDeleteSizeConstraintSetResponse ::
Prelude.Int ->
DeleteSizeConstraintSetResponse
newDeleteSizeConstraintSetResponse :: Int -> DeleteSizeConstraintSetResponse
newDeleteSizeConstraintSetResponse Int
pHttpStatus_ =
DeleteSizeConstraintSetResponse'
{ $sel:changeToken:DeleteSizeConstraintSetResponse' :: Maybe Text
changeToken =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:DeleteSizeConstraintSetResponse' :: Int
httpStatus = Int
pHttpStatus_
}
deleteSizeConstraintSetResponse_changeToken :: Lens.Lens' DeleteSizeConstraintSetResponse (Prelude.Maybe Prelude.Text)
deleteSizeConstraintSetResponse_changeToken :: Lens' DeleteSizeConstraintSetResponse (Maybe Text)
deleteSizeConstraintSetResponse_changeToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteSizeConstraintSetResponse' {Maybe Text
changeToken :: Maybe Text
$sel:changeToken:DeleteSizeConstraintSetResponse' :: DeleteSizeConstraintSetResponse -> Maybe Text
changeToken} -> Maybe Text
changeToken) (\s :: DeleteSizeConstraintSetResponse
s@DeleteSizeConstraintSetResponse' {} Maybe Text
a -> DeleteSizeConstraintSetResponse
s {$sel:changeToken:DeleteSizeConstraintSetResponse' :: Maybe Text
changeToken = Maybe Text
a} :: DeleteSizeConstraintSetResponse)
deleteSizeConstraintSetResponse_httpStatus :: Lens.Lens' DeleteSizeConstraintSetResponse Prelude.Int
deleteSizeConstraintSetResponse_httpStatus :: Lens' DeleteSizeConstraintSetResponse Int
deleteSizeConstraintSetResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteSizeConstraintSetResponse' {Int
httpStatus :: Int
$sel:httpStatus:DeleteSizeConstraintSetResponse' :: DeleteSizeConstraintSetResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DeleteSizeConstraintSetResponse
s@DeleteSizeConstraintSetResponse' {} Int
a -> DeleteSizeConstraintSetResponse
s {$sel:httpStatus:DeleteSizeConstraintSetResponse' :: Int
httpStatus = Int
a} :: DeleteSizeConstraintSetResponse)
instance
Prelude.NFData
DeleteSizeConstraintSetResponse
where
rnf :: DeleteSizeConstraintSetResponse -> ()
rnf DeleteSizeConstraintSetResponse' {Int
Maybe Text
httpStatus :: Int
changeToken :: Maybe Text
$sel:httpStatus:DeleteSizeConstraintSetResponse' :: DeleteSizeConstraintSetResponse -> Int
$sel:changeToken:DeleteSizeConstraintSetResponse' :: DeleteSizeConstraintSetResponse -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
changeToken
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus