{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE TypeFamilies #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Network.AWS.SES.SetIdentityDkimEnabled
(
setIdentityDkimEnabled
, SetIdentityDkimEnabled
, sideIdentity
, sideDkimEnabled
, setIdentityDkimEnabledResponse
, SetIdentityDkimEnabledResponse
, sidersResponseStatus
) where
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
import Network.AWS.SES.Types
import Network.AWS.SES.Types.Product
data SetIdentityDkimEnabled = SetIdentityDkimEnabled'
{ _sideIdentity :: !Text
, _sideDkimEnabled :: !Bool
} deriving (Eq,Read,Show,Data,Typeable,Generic)
setIdentityDkimEnabled
:: Text
-> Bool
-> SetIdentityDkimEnabled
setIdentityDkimEnabled pIdentity_ pDkimEnabled_ =
SetIdentityDkimEnabled'
{ _sideIdentity = pIdentity_
, _sideDkimEnabled = pDkimEnabled_
}
sideIdentity :: Lens' SetIdentityDkimEnabled Text
sideIdentity = lens _sideIdentity (\ s a -> s{_sideIdentity = a});
sideDkimEnabled :: Lens' SetIdentityDkimEnabled Bool
sideDkimEnabled = lens _sideDkimEnabled (\ s a -> s{_sideDkimEnabled = a});
instance AWSRequest SetIdentityDkimEnabled where
type Rs SetIdentityDkimEnabled =
SetIdentityDkimEnabledResponse
request = postQuery ses
response
= receiveXMLWrapper "SetIdentityDkimEnabledResult"
(\ s h x ->
SetIdentityDkimEnabledResponse' <$>
(pure (fromEnum s)))
instance Hashable SetIdentityDkimEnabled
instance NFData SetIdentityDkimEnabled
instance ToHeaders SetIdentityDkimEnabled where
toHeaders = const mempty
instance ToPath SetIdentityDkimEnabled where
toPath = const "/"
instance ToQuery SetIdentityDkimEnabled where
toQuery SetIdentityDkimEnabled'{..}
= mconcat
["Action" =:
("SetIdentityDkimEnabled" :: ByteString),
"Version" =: ("2010-12-01" :: ByteString),
"Identity" =: _sideIdentity,
"DkimEnabled" =: _sideDkimEnabled]
newtype SetIdentityDkimEnabledResponse = SetIdentityDkimEnabledResponse'
{ _sidersResponseStatus :: Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
setIdentityDkimEnabledResponse
:: Int
-> SetIdentityDkimEnabledResponse
setIdentityDkimEnabledResponse pResponseStatus_ =
SetIdentityDkimEnabledResponse'
{ _sidersResponseStatus = pResponseStatus_
}
sidersResponseStatus :: Lens' SetIdentityDkimEnabledResponse Int
sidersResponseStatus = lens _sidersResponseStatus (\ s a -> s{_sidersResponseStatus = a});
instance NFData SetIdentityDkimEnabledResponse