{-# 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.IAM.UpdateServiceSpecificCredential
(
updateServiceSpecificCredential
, UpdateServiceSpecificCredential
, usscUserName
, usscServiceSpecificCredentialId
, usscStatus
, updateServiceSpecificCredentialResponse
, UpdateServiceSpecificCredentialResponse
) 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 UpdateServiceSpecificCredential = UpdateServiceSpecificCredential'
{ _usscUserName :: !(Maybe Text)
, _usscServiceSpecificCredentialId :: !Text
, _usscStatus :: !StatusType
} deriving (Eq, Read, Show, Data, Typeable, Generic)
updateServiceSpecificCredential
:: Text
-> StatusType
-> UpdateServiceSpecificCredential
updateServiceSpecificCredential pServiceSpecificCredentialId_ pStatus_ =
UpdateServiceSpecificCredential'
{ _usscUserName = Nothing
, _usscServiceSpecificCredentialId = pServiceSpecificCredentialId_
, _usscStatus = pStatus_
}
usscUserName :: Lens' UpdateServiceSpecificCredential (Maybe Text)
usscUserName = lens _usscUserName (\ s a -> s{_usscUserName = a})
usscServiceSpecificCredentialId :: Lens' UpdateServiceSpecificCredential Text
usscServiceSpecificCredentialId = lens _usscServiceSpecificCredentialId (\ s a -> s{_usscServiceSpecificCredentialId = a})
usscStatus :: Lens' UpdateServiceSpecificCredential StatusType
usscStatus = lens _usscStatus (\ s a -> s{_usscStatus = a})
instance AWSRequest UpdateServiceSpecificCredential
where
type Rs UpdateServiceSpecificCredential =
UpdateServiceSpecificCredentialResponse
request = postQuery iam
response
= receiveNull
UpdateServiceSpecificCredentialResponse'
instance Hashable UpdateServiceSpecificCredential
where
instance NFData UpdateServiceSpecificCredential where
instance ToHeaders UpdateServiceSpecificCredential
where
toHeaders = const mempty
instance ToPath UpdateServiceSpecificCredential where
toPath = const "/"
instance ToQuery UpdateServiceSpecificCredential
where
toQuery UpdateServiceSpecificCredential'{..}
= mconcat
["Action" =:
("UpdateServiceSpecificCredential" :: ByteString),
"Version" =: ("2010-05-08" :: ByteString),
"UserName" =: _usscUserName,
"ServiceSpecificCredentialId" =:
_usscServiceSpecificCredentialId,
"Status" =: _usscStatus]
data UpdateServiceSpecificCredentialResponse =
UpdateServiceSpecificCredentialResponse'
deriving (Eq, Read, Show, Data, Typeable, Generic)
updateServiceSpecificCredentialResponse
:: UpdateServiceSpecificCredentialResponse
updateServiceSpecificCredentialResponse =
UpdateServiceSpecificCredentialResponse'
instance NFData
UpdateServiceSpecificCredentialResponse
where