{-# 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.ResetServiceSpecificCredential
(
resetServiceSpecificCredential
, ResetServiceSpecificCredential
, rsscUserName
, rsscServiceSpecificCredentialId
, resetServiceSpecificCredentialResponse
, ResetServiceSpecificCredentialResponse
, rsscrsServiceSpecificCredential
, rsscrsResponseStatus
) 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 ResetServiceSpecificCredential = ResetServiceSpecificCredential'
{ _rsscUserName :: !(Maybe Text)
, _rsscServiceSpecificCredentialId :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
resetServiceSpecificCredential
:: Text
-> ResetServiceSpecificCredential
resetServiceSpecificCredential pServiceSpecificCredentialId_ =
ResetServiceSpecificCredential'
{ _rsscUserName = Nothing
, _rsscServiceSpecificCredentialId = pServiceSpecificCredentialId_
}
rsscUserName :: Lens' ResetServiceSpecificCredential (Maybe Text)
rsscUserName = lens _rsscUserName (\ s a -> s{_rsscUserName = a})
rsscServiceSpecificCredentialId :: Lens' ResetServiceSpecificCredential Text
rsscServiceSpecificCredentialId = lens _rsscServiceSpecificCredentialId (\ s a -> s{_rsscServiceSpecificCredentialId = a})
instance AWSRequest ResetServiceSpecificCredential
where
type Rs ResetServiceSpecificCredential =
ResetServiceSpecificCredentialResponse
request = postQuery iam
response
= receiveXMLWrapper
"ResetServiceSpecificCredentialResult"
(\ s h x ->
ResetServiceSpecificCredentialResponse' <$>
(x .@? "ServiceSpecificCredential") <*>
(pure (fromEnum s)))
instance Hashable ResetServiceSpecificCredential
where
instance NFData ResetServiceSpecificCredential where
instance ToHeaders ResetServiceSpecificCredential
where
toHeaders = const mempty
instance ToPath ResetServiceSpecificCredential where
toPath = const "/"
instance ToQuery ResetServiceSpecificCredential where
toQuery ResetServiceSpecificCredential'{..}
= mconcat
["Action" =:
("ResetServiceSpecificCredential" :: ByteString),
"Version" =: ("2010-05-08" :: ByteString),
"UserName" =: _rsscUserName,
"ServiceSpecificCredentialId" =:
_rsscServiceSpecificCredentialId]
data ResetServiceSpecificCredentialResponse = ResetServiceSpecificCredentialResponse'
{ _rsscrsServiceSpecificCredential :: !(Maybe ServiceSpecificCredential)
, _rsscrsResponseStatus :: !Int
} deriving (Eq, Show, Data, Typeable, Generic)
resetServiceSpecificCredentialResponse
:: Int
-> ResetServiceSpecificCredentialResponse
resetServiceSpecificCredentialResponse pResponseStatus_ =
ResetServiceSpecificCredentialResponse'
{ _rsscrsServiceSpecificCredential = Nothing
, _rsscrsResponseStatus = pResponseStatus_
}
rsscrsServiceSpecificCredential :: Lens' ResetServiceSpecificCredentialResponse (Maybe ServiceSpecificCredential)
rsscrsServiceSpecificCredential = lens _rsscrsServiceSpecificCredential (\ s a -> s{_rsscrsServiceSpecificCredential = a})
rsscrsResponseStatus :: Lens' ResetServiceSpecificCredentialResponse Int
rsscrsResponseStatus = lens _rsscrsResponseStatus (\ s a -> s{_rsscrsResponseStatus = a})
instance NFData
ResetServiceSpecificCredentialResponse
where