{-# 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.WAF.DeleteSqlInjectionMatchSet
(
DeleteSqlInjectionMatchSet (..),
newDeleteSqlInjectionMatchSet,
deleteSqlInjectionMatchSet_sqlInjectionMatchSetId,
deleteSqlInjectionMatchSet_changeToken,
DeleteSqlInjectionMatchSetResponse (..),
newDeleteSqlInjectionMatchSetResponse,
deleteSqlInjectionMatchSetResponse_changeToken,
deleteSqlInjectionMatchSetResponse_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.WAF.Types
data DeleteSqlInjectionMatchSet = DeleteSqlInjectionMatchSet'
{
DeleteSqlInjectionMatchSet -> Text
sqlInjectionMatchSetId :: Prelude.Text,
DeleteSqlInjectionMatchSet -> Text
changeToken :: Prelude.Text
}
deriving (DeleteSqlInjectionMatchSet -> DeleteSqlInjectionMatchSet -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteSqlInjectionMatchSet -> DeleteSqlInjectionMatchSet -> Bool
$c/= :: DeleteSqlInjectionMatchSet -> DeleteSqlInjectionMatchSet -> Bool
== :: DeleteSqlInjectionMatchSet -> DeleteSqlInjectionMatchSet -> Bool
$c== :: DeleteSqlInjectionMatchSet -> DeleteSqlInjectionMatchSet -> Bool
Prelude.Eq, ReadPrec [DeleteSqlInjectionMatchSet]
ReadPrec DeleteSqlInjectionMatchSet
Int -> ReadS DeleteSqlInjectionMatchSet
ReadS [DeleteSqlInjectionMatchSet]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteSqlInjectionMatchSet]
$creadListPrec :: ReadPrec [DeleteSqlInjectionMatchSet]
readPrec :: ReadPrec DeleteSqlInjectionMatchSet
$creadPrec :: ReadPrec DeleteSqlInjectionMatchSet
readList :: ReadS [DeleteSqlInjectionMatchSet]
$creadList :: ReadS [DeleteSqlInjectionMatchSet]
readsPrec :: Int -> ReadS DeleteSqlInjectionMatchSet
$creadsPrec :: Int -> ReadS DeleteSqlInjectionMatchSet
Prelude.Read, Int -> DeleteSqlInjectionMatchSet -> ShowS
[DeleteSqlInjectionMatchSet] -> ShowS
DeleteSqlInjectionMatchSet -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteSqlInjectionMatchSet] -> ShowS
$cshowList :: [DeleteSqlInjectionMatchSet] -> ShowS
show :: DeleteSqlInjectionMatchSet -> String
$cshow :: DeleteSqlInjectionMatchSet -> String
showsPrec :: Int -> DeleteSqlInjectionMatchSet -> ShowS
$cshowsPrec :: Int -> DeleteSqlInjectionMatchSet -> ShowS
Prelude.Show, forall x.
Rep DeleteSqlInjectionMatchSet x -> DeleteSqlInjectionMatchSet
forall x.
DeleteSqlInjectionMatchSet -> Rep DeleteSqlInjectionMatchSet x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeleteSqlInjectionMatchSet x -> DeleteSqlInjectionMatchSet
$cfrom :: forall x.
DeleteSqlInjectionMatchSet -> Rep DeleteSqlInjectionMatchSet x
Prelude.Generic)
newDeleteSqlInjectionMatchSet ::
Prelude.Text ->
Prelude.Text ->
DeleteSqlInjectionMatchSet
newDeleteSqlInjectionMatchSet :: Text -> Text -> DeleteSqlInjectionMatchSet
newDeleteSqlInjectionMatchSet
Text
pSqlInjectionMatchSetId_
Text
pChangeToken_ =
DeleteSqlInjectionMatchSet'
{ $sel:sqlInjectionMatchSetId:DeleteSqlInjectionMatchSet' :: Text
sqlInjectionMatchSetId =
Text
pSqlInjectionMatchSetId_,
$sel:changeToken:DeleteSqlInjectionMatchSet' :: Text
changeToken = Text
pChangeToken_
}
deleteSqlInjectionMatchSet_sqlInjectionMatchSetId :: Lens.Lens' DeleteSqlInjectionMatchSet Prelude.Text
deleteSqlInjectionMatchSet_sqlInjectionMatchSetId :: Lens' DeleteSqlInjectionMatchSet Text
deleteSqlInjectionMatchSet_sqlInjectionMatchSetId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteSqlInjectionMatchSet' {Text
sqlInjectionMatchSetId :: Text
$sel:sqlInjectionMatchSetId:DeleteSqlInjectionMatchSet' :: DeleteSqlInjectionMatchSet -> Text
sqlInjectionMatchSetId} -> Text
sqlInjectionMatchSetId) (\s :: DeleteSqlInjectionMatchSet
s@DeleteSqlInjectionMatchSet' {} Text
a -> DeleteSqlInjectionMatchSet
s {$sel:sqlInjectionMatchSetId:DeleteSqlInjectionMatchSet' :: Text
sqlInjectionMatchSetId = Text
a} :: DeleteSqlInjectionMatchSet)
deleteSqlInjectionMatchSet_changeToken :: Lens.Lens' DeleteSqlInjectionMatchSet Prelude.Text
deleteSqlInjectionMatchSet_changeToken :: Lens' DeleteSqlInjectionMatchSet Text
deleteSqlInjectionMatchSet_changeToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteSqlInjectionMatchSet' {Text
changeToken :: Text
$sel:changeToken:DeleteSqlInjectionMatchSet' :: DeleteSqlInjectionMatchSet -> Text
changeToken} -> Text
changeToken) (\s :: DeleteSqlInjectionMatchSet
s@DeleteSqlInjectionMatchSet' {} Text
a -> DeleteSqlInjectionMatchSet
s {$sel:changeToken:DeleteSqlInjectionMatchSet' :: Text
changeToken = Text
a} :: DeleteSqlInjectionMatchSet)
instance Core.AWSRequest DeleteSqlInjectionMatchSet where
type
AWSResponse DeleteSqlInjectionMatchSet =
DeleteSqlInjectionMatchSetResponse
request :: (Service -> Service)
-> DeleteSqlInjectionMatchSet -> Request DeleteSqlInjectionMatchSet
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 DeleteSqlInjectionMatchSet
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse DeleteSqlInjectionMatchSet)))
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 -> DeleteSqlInjectionMatchSetResponse
DeleteSqlInjectionMatchSetResponse'
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 DeleteSqlInjectionMatchSet where
hashWithSalt :: Int -> DeleteSqlInjectionMatchSet -> Int
hashWithSalt Int
_salt DeleteSqlInjectionMatchSet' {Text
changeToken :: Text
sqlInjectionMatchSetId :: Text
$sel:changeToken:DeleteSqlInjectionMatchSet' :: DeleteSqlInjectionMatchSet -> Text
$sel:sqlInjectionMatchSetId:DeleteSqlInjectionMatchSet' :: DeleteSqlInjectionMatchSet -> Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
sqlInjectionMatchSetId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
changeToken
instance Prelude.NFData DeleteSqlInjectionMatchSet where
rnf :: DeleteSqlInjectionMatchSet -> ()
rnf DeleteSqlInjectionMatchSet' {Text
changeToken :: Text
sqlInjectionMatchSetId :: Text
$sel:changeToken:DeleteSqlInjectionMatchSet' :: DeleteSqlInjectionMatchSet -> Text
$sel:sqlInjectionMatchSetId:DeleteSqlInjectionMatchSet' :: DeleteSqlInjectionMatchSet -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
sqlInjectionMatchSetId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
changeToken
instance Data.ToHeaders DeleteSqlInjectionMatchSet where
toHeaders :: DeleteSqlInjectionMatchSet -> 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_20150824.DeleteSqlInjectionMatchSet" ::
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 DeleteSqlInjectionMatchSet where
toJSON :: DeleteSqlInjectionMatchSet -> Value
toJSON DeleteSqlInjectionMatchSet' {Text
changeToken :: Text
sqlInjectionMatchSetId :: Text
$sel:changeToken:DeleteSqlInjectionMatchSet' :: DeleteSqlInjectionMatchSet -> Text
$sel:sqlInjectionMatchSetId:DeleteSqlInjectionMatchSet' :: DeleteSqlInjectionMatchSet -> Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ forall a. a -> Maybe a
Prelude.Just
( Key
"SqlInjectionMatchSetId"
forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
sqlInjectionMatchSetId
),
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 DeleteSqlInjectionMatchSet where
toPath :: DeleteSqlInjectionMatchSet -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery DeleteSqlInjectionMatchSet where
toQuery :: DeleteSqlInjectionMatchSet -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DeleteSqlInjectionMatchSetResponse = DeleteSqlInjectionMatchSetResponse'
{
DeleteSqlInjectionMatchSetResponse -> Maybe Text
changeToken :: Prelude.Maybe Prelude.Text,
DeleteSqlInjectionMatchSetResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DeleteSqlInjectionMatchSetResponse
-> DeleteSqlInjectionMatchSetResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteSqlInjectionMatchSetResponse
-> DeleteSqlInjectionMatchSetResponse -> Bool
$c/= :: DeleteSqlInjectionMatchSetResponse
-> DeleteSqlInjectionMatchSetResponse -> Bool
== :: DeleteSqlInjectionMatchSetResponse
-> DeleteSqlInjectionMatchSetResponse -> Bool
$c== :: DeleteSqlInjectionMatchSetResponse
-> DeleteSqlInjectionMatchSetResponse -> Bool
Prelude.Eq, ReadPrec [DeleteSqlInjectionMatchSetResponse]
ReadPrec DeleteSqlInjectionMatchSetResponse
Int -> ReadS DeleteSqlInjectionMatchSetResponse
ReadS [DeleteSqlInjectionMatchSetResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteSqlInjectionMatchSetResponse]
$creadListPrec :: ReadPrec [DeleteSqlInjectionMatchSetResponse]
readPrec :: ReadPrec DeleteSqlInjectionMatchSetResponse
$creadPrec :: ReadPrec DeleteSqlInjectionMatchSetResponse
readList :: ReadS [DeleteSqlInjectionMatchSetResponse]
$creadList :: ReadS [DeleteSqlInjectionMatchSetResponse]
readsPrec :: Int -> ReadS DeleteSqlInjectionMatchSetResponse
$creadsPrec :: Int -> ReadS DeleteSqlInjectionMatchSetResponse
Prelude.Read, Int -> DeleteSqlInjectionMatchSetResponse -> ShowS
[DeleteSqlInjectionMatchSetResponse] -> ShowS
DeleteSqlInjectionMatchSetResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteSqlInjectionMatchSetResponse] -> ShowS
$cshowList :: [DeleteSqlInjectionMatchSetResponse] -> ShowS
show :: DeleteSqlInjectionMatchSetResponse -> String
$cshow :: DeleteSqlInjectionMatchSetResponse -> String
showsPrec :: Int -> DeleteSqlInjectionMatchSetResponse -> ShowS
$cshowsPrec :: Int -> DeleteSqlInjectionMatchSetResponse -> ShowS
Prelude.Show, forall x.
Rep DeleteSqlInjectionMatchSetResponse x
-> DeleteSqlInjectionMatchSetResponse
forall x.
DeleteSqlInjectionMatchSetResponse
-> Rep DeleteSqlInjectionMatchSetResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeleteSqlInjectionMatchSetResponse x
-> DeleteSqlInjectionMatchSetResponse
$cfrom :: forall x.
DeleteSqlInjectionMatchSetResponse
-> Rep DeleteSqlInjectionMatchSetResponse x
Prelude.Generic)
newDeleteSqlInjectionMatchSetResponse ::
Prelude.Int ->
DeleteSqlInjectionMatchSetResponse
newDeleteSqlInjectionMatchSetResponse :: Int -> DeleteSqlInjectionMatchSetResponse
newDeleteSqlInjectionMatchSetResponse Int
pHttpStatus_ =
DeleteSqlInjectionMatchSetResponse'
{ $sel:changeToken:DeleteSqlInjectionMatchSetResponse' :: Maybe Text
changeToken =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:DeleteSqlInjectionMatchSetResponse' :: Int
httpStatus = Int
pHttpStatus_
}
deleteSqlInjectionMatchSetResponse_changeToken :: Lens.Lens' DeleteSqlInjectionMatchSetResponse (Prelude.Maybe Prelude.Text)
deleteSqlInjectionMatchSetResponse_changeToken :: Lens' DeleteSqlInjectionMatchSetResponse (Maybe Text)
deleteSqlInjectionMatchSetResponse_changeToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteSqlInjectionMatchSetResponse' {Maybe Text
changeToken :: Maybe Text
$sel:changeToken:DeleteSqlInjectionMatchSetResponse' :: DeleteSqlInjectionMatchSetResponse -> Maybe Text
changeToken} -> Maybe Text
changeToken) (\s :: DeleteSqlInjectionMatchSetResponse
s@DeleteSqlInjectionMatchSetResponse' {} Maybe Text
a -> DeleteSqlInjectionMatchSetResponse
s {$sel:changeToken:DeleteSqlInjectionMatchSetResponse' :: Maybe Text
changeToken = Maybe Text
a} :: DeleteSqlInjectionMatchSetResponse)
deleteSqlInjectionMatchSetResponse_httpStatus :: Lens.Lens' DeleteSqlInjectionMatchSetResponse Prelude.Int
deleteSqlInjectionMatchSetResponse_httpStatus :: Lens' DeleteSqlInjectionMatchSetResponse Int
deleteSqlInjectionMatchSetResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteSqlInjectionMatchSetResponse' {Int
httpStatus :: Int
$sel:httpStatus:DeleteSqlInjectionMatchSetResponse' :: DeleteSqlInjectionMatchSetResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DeleteSqlInjectionMatchSetResponse
s@DeleteSqlInjectionMatchSetResponse' {} Int
a -> DeleteSqlInjectionMatchSetResponse
s {$sel:httpStatus:DeleteSqlInjectionMatchSetResponse' :: Int
httpStatus = Int
a} :: DeleteSqlInjectionMatchSetResponse)
instance
Prelude.NFData
DeleteSqlInjectionMatchSetResponse
where
rnf :: DeleteSqlInjectionMatchSetResponse -> ()
rnf DeleteSqlInjectionMatchSetResponse' {Int
Maybe Text
httpStatus :: Int
changeToken :: Maybe Text
$sel:httpStatus:DeleteSqlInjectionMatchSetResponse' :: DeleteSqlInjectionMatchSetResponse -> Int
$sel:changeToken:DeleteSqlInjectionMatchSetResponse' :: DeleteSqlInjectionMatchSetResponse -> 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