{-# 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.DeleteServiceSpecificCredential
(
deleteServiceSpecificCredential
, DeleteServiceSpecificCredential
, dsscUserName
, dsscServiceSpecificCredentialId
, deleteServiceSpecificCredentialResponse
, DeleteServiceSpecificCredentialResponse
) 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 DeleteServiceSpecificCredential = DeleteServiceSpecificCredential'
{ _dsscUserName :: !(Maybe Text)
, _dsscServiceSpecificCredentialId :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteServiceSpecificCredential
:: Text
-> DeleteServiceSpecificCredential
deleteServiceSpecificCredential pServiceSpecificCredentialId_ =
DeleteServiceSpecificCredential'
{ _dsscUserName = Nothing
, _dsscServiceSpecificCredentialId = pServiceSpecificCredentialId_
}
dsscUserName :: Lens' DeleteServiceSpecificCredential (Maybe Text)
dsscUserName = lens _dsscUserName (\ s a -> s{_dsscUserName = a})
dsscServiceSpecificCredentialId :: Lens' DeleteServiceSpecificCredential Text
dsscServiceSpecificCredentialId = lens _dsscServiceSpecificCredentialId (\ s a -> s{_dsscServiceSpecificCredentialId = a})
instance AWSRequest DeleteServiceSpecificCredential
where
type Rs DeleteServiceSpecificCredential =
DeleteServiceSpecificCredentialResponse
request = postQuery iam
response
= receiveNull
DeleteServiceSpecificCredentialResponse'
instance Hashable DeleteServiceSpecificCredential
where
instance NFData DeleteServiceSpecificCredential where
instance ToHeaders DeleteServiceSpecificCredential
where
toHeaders = const mempty
instance ToPath DeleteServiceSpecificCredential where
toPath = const "/"
instance ToQuery DeleteServiceSpecificCredential
where
toQuery DeleteServiceSpecificCredential'{..}
= mconcat
["Action" =:
("DeleteServiceSpecificCredential" :: ByteString),
"Version" =: ("2010-05-08" :: ByteString),
"UserName" =: _dsscUserName,
"ServiceSpecificCredentialId" =:
_dsscServiceSpecificCredentialId]
data DeleteServiceSpecificCredentialResponse =
DeleteServiceSpecificCredentialResponse'
deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteServiceSpecificCredentialResponse
:: DeleteServiceSpecificCredentialResponse
deleteServiceSpecificCredentialResponse =
DeleteServiceSpecificCredentialResponse'
instance NFData
DeleteServiceSpecificCredentialResponse
where