{-# 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.UpdateAccountSendingEnabled
(
UpdateAccountSendingEnabled (..),
newUpdateAccountSendingEnabled,
updateAccountSendingEnabled_enabled,
UpdateAccountSendingEnabledResponse (..),
newUpdateAccountSendingEnabledResponse,
)
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 UpdateAccountSendingEnabled = UpdateAccountSendingEnabled'
{
UpdateAccountSendingEnabled -> Maybe Bool
enabled :: Prelude.Maybe Prelude.Bool
}
deriving (UpdateAccountSendingEnabled -> UpdateAccountSendingEnabled -> Bool
(UpdateAccountSendingEnabled
-> UpdateAccountSendingEnabled -> Bool)
-> (UpdateAccountSendingEnabled
-> UpdateAccountSendingEnabled -> Bool)
-> Eq UpdateAccountSendingEnabled
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: UpdateAccountSendingEnabled -> UpdateAccountSendingEnabled -> Bool
== :: UpdateAccountSendingEnabled -> UpdateAccountSendingEnabled -> Bool
$c/= :: UpdateAccountSendingEnabled -> UpdateAccountSendingEnabled -> Bool
/= :: UpdateAccountSendingEnabled -> UpdateAccountSendingEnabled -> Bool
Prelude.Eq, ReadPrec [UpdateAccountSendingEnabled]
ReadPrec UpdateAccountSendingEnabled
Int -> ReadS UpdateAccountSendingEnabled
ReadS [UpdateAccountSendingEnabled]
(Int -> ReadS UpdateAccountSendingEnabled)
-> ReadS [UpdateAccountSendingEnabled]
-> ReadPrec UpdateAccountSendingEnabled
-> ReadPrec [UpdateAccountSendingEnabled]
-> Read UpdateAccountSendingEnabled
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS UpdateAccountSendingEnabled
readsPrec :: Int -> ReadS UpdateAccountSendingEnabled
$creadList :: ReadS [UpdateAccountSendingEnabled]
readList :: ReadS [UpdateAccountSendingEnabled]
$creadPrec :: ReadPrec UpdateAccountSendingEnabled
readPrec :: ReadPrec UpdateAccountSendingEnabled
$creadListPrec :: ReadPrec [UpdateAccountSendingEnabled]
readListPrec :: ReadPrec [UpdateAccountSendingEnabled]
Prelude.Read, Int -> UpdateAccountSendingEnabled -> ShowS
[UpdateAccountSendingEnabled] -> ShowS
UpdateAccountSendingEnabled -> String
(Int -> UpdateAccountSendingEnabled -> ShowS)
-> (UpdateAccountSendingEnabled -> String)
-> ([UpdateAccountSendingEnabled] -> ShowS)
-> Show UpdateAccountSendingEnabled
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> UpdateAccountSendingEnabled -> ShowS
showsPrec :: Int -> UpdateAccountSendingEnabled -> ShowS
$cshow :: UpdateAccountSendingEnabled -> String
show :: UpdateAccountSendingEnabled -> String
$cshowList :: [UpdateAccountSendingEnabled] -> ShowS
showList :: [UpdateAccountSendingEnabled] -> ShowS
Prelude.Show, (forall x.
UpdateAccountSendingEnabled -> Rep UpdateAccountSendingEnabled x)
-> (forall x.
Rep UpdateAccountSendingEnabled x -> UpdateAccountSendingEnabled)
-> Generic UpdateAccountSendingEnabled
forall x.
Rep UpdateAccountSendingEnabled x -> UpdateAccountSendingEnabled
forall x.
UpdateAccountSendingEnabled -> Rep UpdateAccountSendingEnabled x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cfrom :: forall x.
UpdateAccountSendingEnabled -> Rep UpdateAccountSendingEnabled x
from :: forall x.
UpdateAccountSendingEnabled -> Rep UpdateAccountSendingEnabled x
$cto :: forall x.
Rep UpdateAccountSendingEnabled x -> UpdateAccountSendingEnabled
to :: forall x.
Rep UpdateAccountSendingEnabled x -> UpdateAccountSendingEnabled
Prelude.Generic)
newUpdateAccountSendingEnabled ::
UpdateAccountSendingEnabled
newUpdateAccountSendingEnabled :: UpdateAccountSendingEnabled
newUpdateAccountSendingEnabled =
UpdateAccountSendingEnabled'
{ $sel:enabled:UpdateAccountSendingEnabled' :: Maybe Bool
enabled =
Maybe Bool
forall a. Maybe a
Prelude.Nothing
}
updateAccountSendingEnabled_enabled :: Lens.Lens' UpdateAccountSendingEnabled (Prelude.Maybe Prelude.Bool)
updateAccountSendingEnabled_enabled :: Lens' UpdateAccountSendingEnabled (Maybe Bool)
updateAccountSendingEnabled_enabled = (UpdateAccountSendingEnabled -> Maybe Bool)
-> (UpdateAccountSendingEnabled
-> Maybe Bool -> UpdateAccountSendingEnabled)
-> Lens' UpdateAccountSendingEnabled (Maybe Bool)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateAccountSendingEnabled' {Maybe Bool
$sel:enabled:UpdateAccountSendingEnabled' :: UpdateAccountSendingEnabled -> Maybe Bool
enabled :: Maybe Bool
enabled} -> Maybe Bool
enabled) (\s :: UpdateAccountSendingEnabled
s@UpdateAccountSendingEnabled' {} Maybe Bool
a -> UpdateAccountSendingEnabled
s {enabled = a} :: UpdateAccountSendingEnabled)
instance Core.AWSRequest UpdateAccountSendingEnabled where
type
AWSResponse UpdateAccountSendingEnabled =
UpdateAccountSendingEnabledResponse
request :: (Service -> Service)
-> UpdateAccountSendingEnabled
-> Request UpdateAccountSendingEnabled
request Service -> Service
overrides =
Service
-> UpdateAccountSendingEnabled
-> Request UpdateAccountSendingEnabled
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 UpdateAccountSendingEnabled
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse UpdateAccountSendingEnabled)))
response =
AWSResponse UpdateAccountSendingEnabled
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy UpdateAccountSendingEnabled
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse UpdateAccountSendingEnabled)))
forall (m :: * -> *) a.
MonadResource m =>
AWSResponse a
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveNull
AWSResponse UpdateAccountSendingEnabled
UpdateAccountSendingEnabledResponse
UpdateAccountSendingEnabledResponse'
instance Prelude.Hashable UpdateAccountSendingEnabled where
hashWithSalt :: Int -> UpdateAccountSendingEnabled -> Int
hashWithSalt Int
_salt UpdateAccountSendingEnabled' {Maybe Bool
$sel:enabled:UpdateAccountSendingEnabled' :: UpdateAccountSendingEnabled -> Maybe Bool
enabled :: Maybe Bool
..} =
Int
_salt Int -> Maybe Bool -> Int
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
enabled
instance Prelude.NFData UpdateAccountSendingEnabled where
rnf :: UpdateAccountSendingEnabled -> ()
rnf UpdateAccountSendingEnabled' {Maybe Bool
$sel:enabled:UpdateAccountSendingEnabled' :: UpdateAccountSendingEnabled -> Maybe Bool
enabled :: Maybe Bool
..} =
Maybe Bool -> ()
forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
enabled
instance Data.ToHeaders UpdateAccountSendingEnabled where
toHeaders :: UpdateAccountSendingEnabled -> [Header]
toHeaders = [Header] -> UpdateAccountSendingEnabled -> [Header]
forall a b. a -> b -> a
Prelude.const [Header]
forall a. Monoid a => a
Prelude.mempty
instance Data.ToPath UpdateAccountSendingEnabled where
toPath :: UpdateAccountSendingEnabled -> ByteString
toPath = ByteString -> UpdateAccountSendingEnabled -> ByteString
forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery UpdateAccountSendingEnabled where
toQuery :: UpdateAccountSendingEnabled -> QueryString
toQuery UpdateAccountSendingEnabled' {Maybe Bool
$sel:enabled:UpdateAccountSendingEnabled' :: UpdateAccountSendingEnabled -> Maybe Bool
enabled :: Maybe Bool
..} =
[QueryString] -> QueryString
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"Action"
ByteString -> ByteString -> QueryString
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: ( ByteString
"UpdateAccountSendingEnabled" ::
Prelude.ByteString
),
ByteString
"Version"
ByteString -> ByteString -> QueryString
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"2010-12-01" :: Prelude.ByteString),
ByteString
"Enabled" ByteString -> Maybe Bool -> QueryString
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Bool
enabled
]
data UpdateAccountSendingEnabledResponse = UpdateAccountSendingEnabledResponse'
{
}
deriving (UpdateAccountSendingEnabledResponse
-> UpdateAccountSendingEnabledResponse -> Bool
(UpdateAccountSendingEnabledResponse
-> UpdateAccountSendingEnabledResponse -> Bool)
-> (UpdateAccountSendingEnabledResponse
-> UpdateAccountSendingEnabledResponse -> Bool)
-> Eq UpdateAccountSendingEnabledResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: UpdateAccountSendingEnabledResponse
-> UpdateAccountSendingEnabledResponse -> Bool
== :: UpdateAccountSendingEnabledResponse
-> UpdateAccountSendingEnabledResponse -> Bool
$c/= :: UpdateAccountSendingEnabledResponse
-> UpdateAccountSendingEnabledResponse -> Bool
/= :: UpdateAccountSendingEnabledResponse
-> UpdateAccountSendingEnabledResponse -> Bool
Prelude.Eq, ReadPrec [UpdateAccountSendingEnabledResponse]
ReadPrec UpdateAccountSendingEnabledResponse
Int -> ReadS UpdateAccountSendingEnabledResponse
ReadS [UpdateAccountSendingEnabledResponse]
(Int -> ReadS UpdateAccountSendingEnabledResponse)
-> ReadS [UpdateAccountSendingEnabledResponse]
-> ReadPrec UpdateAccountSendingEnabledResponse
-> ReadPrec [UpdateAccountSendingEnabledResponse]
-> Read UpdateAccountSendingEnabledResponse
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS UpdateAccountSendingEnabledResponse
readsPrec :: Int -> ReadS UpdateAccountSendingEnabledResponse
$creadList :: ReadS [UpdateAccountSendingEnabledResponse]
readList :: ReadS [UpdateAccountSendingEnabledResponse]
$creadPrec :: ReadPrec UpdateAccountSendingEnabledResponse
readPrec :: ReadPrec UpdateAccountSendingEnabledResponse
$creadListPrec :: ReadPrec [UpdateAccountSendingEnabledResponse]
readListPrec :: ReadPrec [UpdateAccountSendingEnabledResponse]
Prelude.Read, Int -> UpdateAccountSendingEnabledResponse -> ShowS
[UpdateAccountSendingEnabledResponse] -> ShowS
UpdateAccountSendingEnabledResponse -> String
(Int -> UpdateAccountSendingEnabledResponse -> ShowS)
-> (UpdateAccountSendingEnabledResponse -> String)
-> ([UpdateAccountSendingEnabledResponse] -> ShowS)
-> Show UpdateAccountSendingEnabledResponse
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> UpdateAccountSendingEnabledResponse -> ShowS
showsPrec :: Int -> UpdateAccountSendingEnabledResponse -> ShowS
$cshow :: UpdateAccountSendingEnabledResponse -> String
show :: UpdateAccountSendingEnabledResponse -> String
$cshowList :: [UpdateAccountSendingEnabledResponse] -> ShowS
showList :: [UpdateAccountSendingEnabledResponse] -> ShowS
Prelude.Show, (forall x.
UpdateAccountSendingEnabledResponse
-> Rep UpdateAccountSendingEnabledResponse x)
-> (forall x.
Rep UpdateAccountSendingEnabledResponse x
-> UpdateAccountSendingEnabledResponse)
-> Generic UpdateAccountSendingEnabledResponse
forall x.
Rep UpdateAccountSendingEnabledResponse x
-> UpdateAccountSendingEnabledResponse
forall x.
UpdateAccountSendingEnabledResponse
-> Rep UpdateAccountSendingEnabledResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cfrom :: forall x.
UpdateAccountSendingEnabledResponse
-> Rep UpdateAccountSendingEnabledResponse x
from :: forall x.
UpdateAccountSendingEnabledResponse
-> Rep UpdateAccountSendingEnabledResponse x
$cto :: forall x.
Rep UpdateAccountSendingEnabledResponse x
-> UpdateAccountSendingEnabledResponse
to :: forall x.
Rep UpdateAccountSendingEnabledResponse x
-> UpdateAccountSendingEnabledResponse
Prelude.Generic)
newUpdateAccountSendingEnabledResponse ::
UpdateAccountSendingEnabledResponse
newUpdateAccountSendingEnabledResponse :: UpdateAccountSendingEnabledResponse
newUpdateAccountSendingEnabledResponse =
UpdateAccountSendingEnabledResponse
UpdateAccountSendingEnabledResponse'
instance
Prelude.NFData
UpdateAccountSendingEnabledResponse
where
rnf :: UpdateAccountSendingEnabledResponse -> ()
rnf UpdateAccountSendingEnabledResponse
_ = ()