module Network.AWS.IAM.UpdateSigningCertificate
(
updateSigningCertificate
, UpdateSigningCertificate
, uscUserName
, uscCertificateId
, uscStatus
, updateSigningCertificateResponse
, UpdateSigningCertificateResponse
) where
import Network.AWS.IAM.Types
import Network.AWS.IAM.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data UpdateSigningCertificate = UpdateSigningCertificate'
{ _uscUserName :: !(Maybe Text)
, _uscCertificateId :: !Text
, _uscStatus :: !StatusType
} deriving (Eq,Read,Show,Data,Typeable,Generic)
updateSigningCertificate
:: Text
-> StatusType
-> UpdateSigningCertificate
updateSigningCertificate pCertificateId_ pStatus_ =
UpdateSigningCertificate'
{ _uscUserName = Nothing
, _uscCertificateId = pCertificateId_
, _uscStatus = pStatus_
}
uscUserName :: Lens' UpdateSigningCertificate (Maybe Text)
uscUserName = lens _uscUserName (\ s a -> s{_uscUserName = a});
uscCertificateId :: Lens' UpdateSigningCertificate Text
uscCertificateId = lens _uscCertificateId (\ s a -> s{_uscCertificateId = a});
uscStatus :: Lens' UpdateSigningCertificate StatusType
uscStatus = lens _uscStatus (\ s a -> s{_uscStatus = a});
instance AWSRequest UpdateSigningCertificate where
type Rs UpdateSigningCertificate =
UpdateSigningCertificateResponse
request = postQuery iam
response
= receiveNull UpdateSigningCertificateResponse'
instance Hashable UpdateSigningCertificate
instance ToHeaders UpdateSigningCertificate where
toHeaders = const mempty
instance ToPath UpdateSigningCertificate where
toPath = const "/"
instance ToQuery UpdateSigningCertificate where
toQuery UpdateSigningCertificate'{..}
= mconcat
["Action" =:
("UpdateSigningCertificate" :: ByteString),
"Version" =: ("2010-05-08" :: ByteString),
"UserName" =: _uscUserName,
"CertificateId" =: _uscCertificateId,
"Status" =: _uscStatus]
data UpdateSigningCertificateResponse =
UpdateSigningCertificateResponse'
deriving (Eq,Read,Show,Data,Typeable,Generic)
updateSigningCertificateResponse
:: UpdateSigningCertificateResponse
updateSigningCertificateResponse = UpdateSigningCertificateResponse'