{-# 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.SetReceiptRulePosition
(
SetReceiptRulePosition (..),
newSetReceiptRulePosition,
setReceiptRulePosition_after,
setReceiptRulePosition_ruleSetName,
setReceiptRulePosition_ruleName,
SetReceiptRulePositionResponse (..),
newSetReceiptRulePositionResponse,
setReceiptRulePositionResponse_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 SetReceiptRulePosition = SetReceiptRulePosition'
{
SetReceiptRulePosition -> Maybe Text
after :: Prelude.Maybe Prelude.Text,
SetReceiptRulePosition -> Text
ruleSetName :: Prelude.Text,
SetReceiptRulePosition -> Text
ruleName :: Prelude.Text
}
deriving (SetReceiptRulePosition -> SetReceiptRulePosition -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: SetReceiptRulePosition -> SetReceiptRulePosition -> Bool
$c/= :: SetReceiptRulePosition -> SetReceiptRulePosition -> Bool
== :: SetReceiptRulePosition -> SetReceiptRulePosition -> Bool
$c== :: SetReceiptRulePosition -> SetReceiptRulePosition -> Bool
Prelude.Eq, ReadPrec [SetReceiptRulePosition]
ReadPrec SetReceiptRulePosition
Int -> ReadS SetReceiptRulePosition
ReadS [SetReceiptRulePosition]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [SetReceiptRulePosition]
$creadListPrec :: ReadPrec [SetReceiptRulePosition]
readPrec :: ReadPrec SetReceiptRulePosition
$creadPrec :: ReadPrec SetReceiptRulePosition
readList :: ReadS [SetReceiptRulePosition]
$creadList :: ReadS [SetReceiptRulePosition]
readsPrec :: Int -> ReadS SetReceiptRulePosition
$creadsPrec :: Int -> ReadS SetReceiptRulePosition
Prelude.Read, Int -> SetReceiptRulePosition -> ShowS
[SetReceiptRulePosition] -> ShowS
SetReceiptRulePosition -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [SetReceiptRulePosition] -> ShowS
$cshowList :: [SetReceiptRulePosition] -> ShowS
show :: SetReceiptRulePosition -> String
$cshow :: SetReceiptRulePosition -> String
showsPrec :: Int -> SetReceiptRulePosition -> ShowS
$cshowsPrec :: Int -> SetReceiptRulePosition -> ShowS
Prelude.Show, forall x. Rep SetReceiptRulePosition x -> SetReceiptRulePosition
forall x. SetReceiptRulePosition -> Rep SetReceiptRulePosition x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep SetReceiptRulePosition x -> SetReceiptRulePosition
$cfrom :: forall x. SetReceiptRulePosition -> Rep SetReceiptRulePosition x
Prelude.Generic)
newSetReceiptRulePosition ::
Prelude.Text ->
Prelude.Text ->
SetReceiptRulePosition
newSetReceiptRulePosition :: Text -> Text -> SetReceiptRulePosition
newSetReceiptRulePosition Text
pRuleSetName_ Text
pRuleName_ =
SetReceiptRulePosition'
{ $sel:after:SetReceiptRulePosition' :: Maybe Text
after = forall a. Maybe a
Prelude.Nothing,
$sel:ruleSetName:SetReceiptRulePosition' :: Text
ruleSetName = Text
pRuleSetName_,
$sel:ruleName:SetReceiptRulePosition' :: Text
ruleName = Text
pRuleName_
}
setReceiptRulePosition_after :: Lens.Lens' SetReceiptRulePosition (Prelude.Maybe Prelude.Text)
setReceiptRulePosition_after :: Lens' SetReceiptRulePosition (Maybe Text)
setReceiptRulePosition_after = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SetReceiptRulePosition' {Maybe Text
after :: Maybe Text
$sel:after:SetReceiptRulePosition' :: SetReceiptRulePosition -> Maybe Text
after} -> Maybe Text
after) (\s :: SetReceiptRulePosition
s@SetReceiptRulePosition' {} Maybe Text
a -> SetReceiptRulePosition
s {$sel:after:SetReceiptRulePosition' :: Maybe Text
after = Maybe Text
a} :: SetReceiptRulePosition)
setReceiptRulePosition_ruleSetName :: Lens.Lens' SetReceiptRulePosition Prelude.Text
setReceiptRulePosition_ruleSetName :: Lens' SetReceiptRulePosition Text
setReceiptRulePosition_ruleSetName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SetReceiptRulePosition' {Text
ruleSetName :: Text
$sel:ruleSetName:SetReceiptRulePosition' :: SetReceiptRulePosition -> Text
ruleSetName} -> Text
ruleSetName) (\s :: SetReceiptRulePosition
s@SetReceiptRulePosition' {} Text
a -> SetReceiptRulePosition
s {$sel:ruleSetName:SetReceiptRulePosition' :: Text
ruleSetName = Text
a} :: SetReceiptRulePosition)
setReceiptRulePosition_ruleName :: Lens.Lens' SetReceiptRulePosition Prelude.Text
setReceiptRulePosition_ruleName :: Lens' SetReceiptRulePosition Text
setReceiptRulePosition_ruleName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SetReceiptRulePosition' {Text
ruleName :: Text
$sel:ruleName:SetReceiptRulePosition' :: SetReceiptRulePosition -> Text
ruleName} -> Text
ruleName) (\s :: SetReceiptRulePosition
s@SetReceiptRulePosition' {} Text
a -> SetReceiptRulePosition
s {$sel:ruleName:SetReceiptRulePosition' :: Text
ruleName = Text
a} :: SetReceiptRulePosition)
instance Core.AWSRequest SetReceiptRulePosition where
type
AWSResponse SetReceiptRulePosition =
SetReceiptRulePositionResponse
request :: (Service -> Service)
-> SetReceiptRulePosition -> Request SetReceiptRulePosition
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 SetReceiptRulePosition
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse SetReceiptRulePosition)))
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
"SetReceiptRulePositionResult"
( \Int
s ResponseHeaders
h [Node]
x ->
Int -> SetReceiptRulePositionResponse
SetReceiptRulePositionResponse'
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 SetReceiptRulePosition where
hashWithSalt :: Int -> SetReceiptRulePosition -> Int
hashWithSalt Int
_salt SetReceiptRulePosition' {Maybe Text
Text
ruleName :: Text
ruleSetName :: Text
after :: Maybe Text
$sel:ruleName:SetReceiptRulePosition' :: SetReceiptRulePosition -> Text
$sel:ruleSetName:SetReceiptRulePosition' :: SetReceiptRulePosition -> Text
$sel:after:SetReceiptRulePosition' :: SetReceiptRulePosition -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
after
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
ruleSetName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
ruleName
instance Prelude.NFData SetReceiptRulePosition where
rnf :: SetReceiptRulePosition -> ()
rnf SetReceiptRulePosition' {Maybe Text
Text
ruleName :: Text
ruleSetName :: Text
after :: Maybe Text
$sel:ruleName:SetReceiptRulePosition' :: SetReceiptRulePosition -> Text
$sel:ruleSetName:SetReceiptRulePosition' :: SetReceiptRulePosition -> Text
$sel:after:SetReceiptRulePosition' :: SetReceiptRulePosition -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
after
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
ruleSetName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
ruleName
instance Data.ToHeaders SetReceiptRulePosition where
toHeaders :: SetReceiptRulePosition -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToPath SetReceiptRulePosition where
toPath :: SetReceiptRulePosition -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery SetReceiptRulePosition where
toQuery :: SetReceiptRulePosition -> QueryString
toQuery SetReceiptRulePosition' {Maybe Text
Text
ruleName :: Text
ruleSetName :: Text
after :: Maybe Text
$sel:ruleName:SetReceiptRulePosition' :: SetReceiptRulePosition -> Text
$sel:ruleSetName:SetReceiptRulePosition' :: SetReceiptRulePosition -> Text
$sel:after:SetReceiptRulePosition' :: SetReceiptRulePosition -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"Action"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"SetReceiptRulePosition" :: Prelude.ByteString),
ByteString
"Version"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"2010-12-01" :: Prelude.ByteString),
ByteString
"After" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
after,
ByteString
"RuleSetName" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
ruleSetName,
ByteString
"RuleName" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
ruleName
]
data SetReceiptRulePositionResponse = SetReceiptRulePositionResponse'
{
SetReceiptRulePositionResponse -> Int
httpStatus :: Prelude.Int
}
deriving (SetReceiptRulePositionResponse
-> SetReceiptRulePositionResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: SetReceiptRulePositionResponse
-> SetReceiptRulePositionResponse -> Bool
$c/= :: SetReceiptRulePositionResponse
-> SetReceiptRulePositionResponse -> Bool
== :: SetReceiptRulePositionResponse
-> SetReceiptRulePositionResponse -> Bool
$c== :: SetReceiptRulePositionResponse
-> SetReceiptRulePositionResponse -> Bool
Prelude.Eq, ReadPrec [SetReceiptRulePositionResponse]
ReadPrec SetReceiptRulePositionResponse
Int -> ReadS SetReceiptRulePositionResponse
ReadS [SetReceiptRulePositionResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [SetReceiptRulePositionResponse]
$creadListPrec :: ReadPrec [SetReceiptRulePositionResponse]
readPrec :: ReadPrec SetReceiptRulePositionResponse
$creadPrec :: ReadPrec SetReceiptRulePositionResponse
readList :: ReadS [SetReceiptRulePositionResponse]
$creadList :: ReadS [SetReceiptRulePositionResponse]
readsPrec :: Int -> ReadS SetReceiptRulePositionResponse
$creadsPrec :: Int -> ReadS SetReceiptRulePositionResponse
Prelude.Read, Int -> SetReceiptRulePositionResponse -> ShowS
[SetReceiptRulePositionResponse] -> ShowS
SetReceiptRulePositionResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [SetReceiptRulePositionResponse] -> ShowS
$cshowList :: [SetReceiptRulePositionResponse] -> ShowS
show :: SetReceiptRulePositionResponse -> String
$cshow :: SetReceiptRulePositionResponse -> String
showsPrec :: Int -> SetReceiptRulePositionResponse -> ShowS
$cshowsPrec :: Int -> SetReceiptRulePositionResponse -> ShowS
Prelude.Show, forall x.
Rep SetReceiptRulePositionResponse x
-> SetReceiptRulePositionResponse
forall x.
SetReceiptRulePositionResponse
-> Rep SetReceiptRulePositionResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep SetReceiptRulePositionResponse x
-> SetReceiptRulePositionResponse
$cfrom :: forall x.
SetReceiptRulePositionResponse
-> Rep SetReceiptRulePositionResponse x
Prelude.Generic)
newSetReceiptRulePositionResponse ::
Prelude.Int ->
SetReceiptRulePositionResponse
newSetReceiptRulePositionResponse :: Int -> SetReceiptRulePositionResponse
newSetReceiptRulePositionResponse Int
pHttpStatus_ =
SetReceiptRulePositionResponse'
{ $sel:httpStatus:SetReceiptRulePositionResponse' :: Int
httpStatus =
Int
pHttpStatus_
}
setReceiptRulePositionResponse_httpStatus :: Lens.Lens' SetReceiptRulePositionResponse Prelude.Int
setReceiptRulePositionResponse_httpStatus :: Lens' SetReceiptRulePositionResponse Int
setReceiptRulePositionResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SetReceiptRulePositionResponse' {Int
httpStatus :: Int
$sel:httpStatus:SetReceiptRulePositionResponse' :: SetReceiptRulePositionResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: SetReceiptRulePositionResponse
s@SetReceiptRulePositionResponse' {} Int
a -> SetReceiptRulePositionResponse
s {$sel:httpStatus:SetReceiptRulePositionResponse' :: Int
httpStatus = Int
a} :: SetReceiptRulePositionResponse)
instance
Prelude.NFData
SetReceiptRulePositionResponse
where
rnf :: SetReceiptRulePositionResponse -> ()
rnf SetReceiptRulePositionResponse' {Int
httpStatus :: Int
$sel:httpStatus:SetReceiptRulePositionResponse' :: SetReceiptRulePositionResponse -> Int
..} =
forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus