module Network.AWS.IAM.UpdateServerCertificate
(
UpdateServerCertificate
, updateServerCertificate
, usc1NewPath
, usc1NewServerCertificateName
, usc1ServerCertificateName
, UpdateServerCertificateResponse
, updateServerCertificateResponse
) where
import Network.AWS.Prelude
import Network.AWS.Request.Query
import Network.AWS.IAM.Types
import qualified GHC.Exts
data UpdateServerCertificate = UpdateServerCertificate
{ _usc1NewPath :: Maybe Text
, _usc1NewServerCertificateName :: Maybe Text
, _usc1ServerCertificateName :: Text
} deriving (Eq, Ord, Show)
updateServerCertificate :: Text
-> UpdateServerCertificate
updateServerCertificate p1 = UpdateServerCertificate
{ _usc1ServerCertificateName = p1
, _usc1NewPath = Nothing
, _usc1NewServerCertificateName = Nothing
}
usc1NewPath :: Lens' UpdateServerCertificate (Maybe Text)
usc1NewPath = lens _usc1NewPath (\s a -> s { _usc1NewPath = a })
usc1NewServerCertificateName :: Lens' UpdateServerCertificate (Maybe Text)
usc1NewServerCertificateName =
lens _usc1NewServerCertificateName
(\s a -> s { _usc1NewServerCertificateName = a })
usc1ServerCertificateName :: Lens' UpdateServerCertificate Text
usc1ServerCertificateName =
lens _usc1ServerCertificateName
(\s a -> s { _usc1ServerCertificateName = a })
data UpdateServerCertificateResponse = UpdateServerCertificateResponse
deriving (Eq, Ord, Show, Generic)
updateServerCertificateResponse :: UpdateServerCertificateResponse
updateServerCertificateResponse = UpdateServerCertificateResponse
instance ToPath UpdateServerCertificate where
toPath = const "/"
instance ToQuery UpdateServerCertificate where
toQuery UpdateServerCertificate{..} = mconcat
[ "NewPath" =? _usc1NewPath
, "NewServerCertificateName" =? _usc1NewServerCertificateName
, "ServerCertificateName" =? _usc1ServerCertificateName
]
instance ToHeaders UpdateServerCertificate
instance AWSRequest UpdateServerCertificate where
type Sv UpdateServerCertificate = IAM
type Rs UpdateServerCertificate = UpdateServerCertificateResponse
request = post "UpdateServerCertificate"
response = nullResponse UpdateServerCertificateResponse