{-# 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.SES.SetActiveReceiptRuleSet
(
SetActiveReceiptRuleSet (..),
newSetActiveReceiptRuleSet,
setActiveReceiptRuleSet_ruleSetName,
SetActiveReceiptRuleSetResponse (..),
newSetActiveReceiptRuleSetResponse,
setActiveReceiptRuleSetResponse_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.SES.Types
data SetActiveReceiptRuleSet = SetActiveReceiptRuleSet'
{
SetActiveReceiptRuleSet -> Maybe Text
ruleSetName :: Prelude.Maybe Prelude.Text
}
deriving (SetActiveReceiptRuleSet -> SetActiveReceiptRuleSet -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: SetActiveReceiptRuleSet -> SetActiveReceiptRuleSet -> Bool
$c/= :: SetActiveReceiptRuleSet -> SetActiveReceiptRuleSet -> Bool
== :: SetActiveReceiptRuleSet -> SetActiveReceiptRuleSet -> Bool
$c== :: SetActiveReceiptRuleSet -> SetActiveReceiptRuleSet -> Bool
Prelude.Eq, ReadPrec [SetActiveReceiptRuleSet]
ReadPrec SetActiveReceiptRuleSet
Int -> ReadS SetActiveReceiptRuleSet
ReadS [SetActiveReceiptRuleSet]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [SetActiveReceiptRuleSet]
$creadListPrec :: ReadPrec [SetActiveReceiptRuleSet]
readPrec :: ReadPrec SetActiveReceiptRuleSet
$creadPrec :: ReadPrec SetActiveReceiptRuleSet
readList :: ReadS [SetActiveReceiptRuleSet]
$creadList :: ReadS [SetActiveReceiptRuleSet]
readsPrec :: Int -> ReadS SetActiveReceiptRuleSet
$creadsPrec :: Int -> ReadS SetActiveReceiptRuleSet
Prelude.Read, Int -> SetActiveReceiptRuleSet -> ShowS
[SetActiveReceiptRuleSet] -> ShowS
SetActiveReceiptRuleSet -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [SetActiveReceiptRuleSet] -> ShowS
$cshowList :: [SetActiveReceiptRuleSet] -> ShowS
show :: SetActiveReceiptRuleSet -> String
$cshow :: SetActiveReceiptRuleSet -> String
showsPrec :: Int -> SetActiveReceiptRuleSet -> ShowS
$cshowsPrec :: Int -> SetActiveReceiptRuleSet -> ShowS
Prelude.Show, forall x. Rep SetActiveReceiptRuleSet x -> SetActiveReceiptRuleSet
forall x. SetActiveReceiptRuleSet -> Rep SetActiveReceiptRuleSet x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep SetActiveReceiptRuleSet x -> SetActiveReceiptRuleSet
$cfrom :: forall x. SetActiveReceiptRuleSet -> Rep SetActiveReceiptRuleSet x
Prelude.Generic)
newSetActiveReceiptRuleSet ::
SetActiveReceiptRuleSet
newSetActiveReceiptRuleSet :: SetActiveReceiptRuleSet
newSetActiveReceiptRuleSet =
SetActiveReceiptRuleSet'
{ $sel:ruleSetName:SetActiveReceiptRuleSet' :: Maybe Text
ruleSetName =
forall a. Maybe a
Prelude.Nothing
}
setActiveReceiptRuleSet_ruleSetName :: Lens.Lens' SetActiveReceiptRuleSet (Prelude.Maybe Prelude.Text)
setActiveReceiptRuleSet_ruleSetName :: Lens' SetActiveReceiptRuleSet (Maybe Text)
setActiveReceiptRuleSet_ruleSetName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SetActiveReceiptRuleSet' {Maybe Text
ruleSetName :: Maybe Text
$sel:ruleSetName:SetActiveReceiptRuleSet' :: SetActiveReceiptRuleSet -> Maybe Text
ruleSetName} -> Maybe Text
ruleSetName) (\s :: SetActiveReceiptRuleSet
s@SetActiveReceiptRuleSet' {} Maybe Text
a -> SetActiveReceiptRuleSet
s {$sel:ruleSetName:SetActiveReceiptRuleSet' :: Maybe Text
ruleSetName = Maybe Text
a} :: SetActiveReceiptRuleSet)
instance Core.AWSRequest SetActiveReceiptRuleSet where
type
AWSResponse SetActiveReceiptRuleSet =
SetActiveReceiptRuleSetResponse
request :: (Service -> Service)
-> SetActiveReceiptRuleSet -> Request SetActiveReceiptRuleSet
request Service -> Service
overrides =
forall a. ToRequest a => Service -> a -> Request a
Request.postQuery (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy SetActiveReceiptRuleSet
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse SetActiveReceiptRuleSet)))
response =
forall (m :: * -> *) a.
MonadResource m =>
Text
-> (Int
-> ResponseHeaders -> [Node] -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveXMLWrapper
Text
"SetActiveReceiptRuleSetResult"
( \Int
s ResponseHeaders
h [Node]
x ->
Int -> SetActiveReceiptRuleSetResponse
SetActiveReceiptRuleSetResponse'
forall (f :: * -> *) a b. Functor 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 SetActiveReceiptRuleSet where
hashWithSalt :: Int -> SetActiveReceiptRuleSet -> Int
hashWithSalt Int
_salt SetActiveReceiptRuleSet' {Maybe Text
ruleSetName :: Maybe Text
$sel:ruleSetName:SetActiveReceiptRuleSet' :: SetActiveReceiptRuleSet -> Maybe Text
..} =
Int
_salt forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
ruleSetName
instance Prelude.NFData SetActiveReceiptRuleSet where
rnf :: SetActiveReceiptRuleSet -> ()
rnf SetActiveReceiptRuleSet' {Maybe Text
ruleSetName :: Maybe Text
$sel:ruleSetName:SetActiveReceiptRuleSet' :: SetActiveReceiptRuleSet -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
ruleSetName
instance Data.ToHeaders SetActiveReceiptRuleSet where
toHeaders :: SetActiveReceiptRuleSet -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToPath SetActiveReceiptRuleSet where
toPath :: SetActiveReceiptRuleSet -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery SetActiveReceiptRuleSet where
toQuery :: SetActiveReceiptRuleSet -> QueryString
toQuery SetActiveReceiptRuleSet' {Maybe Text
ruleSetName :: Maybe Text
$sel:ruleSetName:SetActiveReceiptRuleSet' :: SetActiveReceiptRuleSet -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"Action"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"SetActiveReceiptRuleSet" :: Prelude.ByteString),
ByteString
"Version"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"2010-12-01" :: Prelude.ByteString),
ByteString
"RuleSetName" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
ruleSetName
]
data SetActiveReceiptRuleSetResponse = SetActiveReceiptRuleSetResponse'
{
SetActiveReceiptRuleSetResponse -> Int
httpStatus :: Prelude.Int
}
deriving (SetActiveReceiptRuleSetResponse
-> SetActiveReceiptRuleSetResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: SetActiveReceiptRuleSetResponse
-> SetActiveReceiptRuleSetResponse -> Bool
$c/= :: SetActiveReceiptRuleSetResponse
-> SetActiveReceiptRuleSetResponse -> Bool
== :: SetActiveReceiptRuleSetResponse
-> SetActiveReceiptRuleSetResponse -> Bool
$c== :: SetActiveReceiptRuleSetResponse
-> SetActiveReceiptRuleSetResponse -> Bool
Prelude.Eq, ReadPrec [SetActiveReceiptRuleSetResponse]
ReadPrec SetActiveReceiptRuleSetResponse
Int -> ReadS SetActiveReceiptRuleSetResponse
ReadS [SetActiveReceiptRuleSetResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [SetActiveReceiptRuleSetResponse]
$creadListPrec :: ReadPrec [SetActiveReceiptRuleSetResponse]
readPrec :: ReadPrec SetActiveReceiptRuleSetResponse
$creadPrec :: ReadPrec SetActiveReceiptRuleSetResponse
readList :: ReadS [SetActiveReceiptRuleSetResponse]
$creadList :: ReadS [SetActiveReceiptRuleSetResponse]
readsPrec :: Int -> ReadS SetActiveReceiptRuleSetResponse
$creadsPrec :: Int -> ReadS SetActiveReceiptRuleSetResponse
Prelude.Read, Int -> SetActiveReceiptRuleSetResponse -> ShowS
[SetActiveReceiptRuleSetResponse] -> ShowS
SetActiveReceiptRuleSetResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [SetActiveReceiptRuleSetResponse] -> ShowS
$cshowList :: [SetActiveReceiptRuleSetResponse] -> ShowS
show :: SetActiveReceiptRuleSetResponse -> String
$cshow :: SetActiveReceiptRuleSetResponse -> String
showsPrec :: Int -> SetActiveReceiptRuleSetResponse -> ShowS
$cshowsPrec :: Int -> SetActiveReceiptRuleSetResponse -> ShowS
Prelude.Show, forall x.
Rep SetActiveReceiptRuleSetResponse x
-> SetActiveReceiptRuleSetResponse
forall x.
SetActiveReceiptRuleSetResponse
-> Rep SetActiveReceiptRuleSetResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep SetActiveReceiptRuleSetResponse x
-> SetActiveReceiptRuleSetResponse
$cfrom :: forall x.
SetActiveReceiptRuleSetResponse
-> Rep SetActiveReceiptRuleSetResponse x
Prelude.Generic)
newSetActiveReceiptRuleSetResponse ::
Prelude.Int ->
SetActiveReceiptRuleSetResponse
newSetActiveReceiptRuleSetResponse :: Int -> SetActiveReceiptRuleSetResponse
newSetActiveReceiptRuleSetResponse Int
pHttpStatus_ =
SetActiveReceiptRuleSetResponse'
{ $sel:httpStatus:SetActiveReceiptRuleSetResponse' :: Int
httpStatus =
Int
pHttpStatus_
}
setActiveReceiptRuleSetResponse_httpStatus :: Lens.Lens' SetActiveReceiptRuleSetResponse Prelude.Int
setActiveReceiptRuleSetResponse_httpStatus :: Lens' SetActiveReceiptRuleSetResponse Int
setActiveReceiptRuleSetResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SetActiveReceiptRuleSetResponse' {Int
httpStatus :: Int
$sel:httpStatus:SetActiveReceiptRuleSetResponse' :: SetActiveReceiptRuleSetResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: SetActiveReceiptRuleSetResponse
s@SetActiveReceiptRuleSetResponse' {} Int
a -> SetActiveReceiptRuleSetResponse
s {$sel:httpStatus:SetActiveReceiptRuleSetResponse' :: Int
httpStatus = Int
a} :: SetActiveReceiptRuleSetResponse)
instance
Prelude.NFData
SetActiveReceiptRuleSetResponse
where
rnf :: SetActiveReceiptRuleSetResponse -> ()
rnf SetActiveReceiptRuleSetResponse' {Int
httpStatus :: Int
$sel:httpStatus:SetActiveReceiptRuleSetResponse' :: SetActiveReceiptRuleSetResponse -> Int
..} =
forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus