module Network.AWS.IAM.GetAccountPasswordPolicy
(
getAccountPasswordPolicy
, GetAccountPasswordPolicy
, getAccountPasswordPolicyResponse
, GetAccountPasswordPolicyResponse
, gapprsResponseStatus
, gapprsPasswordPolicy
) 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 GetAccountPasswordPolicy =
GetAccountPasswordPolicy'
deriving (Eq,Read,Show,Data,Typeable,Generic)
getAccountPasswordPolicy
:: GetAccountPasswordPolicy
getAccountPasswordPolicy = GetAccountPasswordPolicy'
instance AWSRequest GetAccountPasswordPolicy where
type Rs GetAccountPasswordPolicy =
GetAccountPasswordPolicyResponse
request = postQuery iAM
response
= receiveXMLWrapper "GetAccountPasswordPolicyResult"
(\ s h x ->
GetAccountPasswordPolicyResponse' <$>
(pure (fromEnum s)) <*> (x .@ "PasswordPolicy"))
instance ToHeaders GetAccountPasswordPolicy where
toHeaders = const mempty
instance ToPath GetAccountPasswordPolicy where
toPath = const "/"
instance ToQuery GetAccountPasswordPolicy where
toQuery
= const
(mconcat
["Action" =:
("GetAccountPasswordPolicy" :: ByteString),
"Version" =: ("2010-05-08" :: ByteString)])
data GetAccountPasswordPolicyResponse = GetAccountPasswordPolicyResponse'
{ _gapprsResponseStatus :: !Int
, _gapprsPasswordPolicy :: !PasswordPolicy
} deriving (Eq,Read,Show,Data,Typeable,Generic)
getAccountPasswordPolicyResponse
:: Int
-> PasswordPolicy
-> GetAccountPasswordPolicyResponse
getAccountPasswordPolicyResponse pResponseStatus_ pPasswordPolicy_ =
GetAccountPasswordPolicyResponse'
{ _gapprsResponseStatus = pResponseStatus_
, _gapprsPasswordPolicy = pPasswordPolicy_
}
gapprsResponseStatus :: Lens' GetAccountPasswordPolicyResponse Int
gapprsResponseStatus = lens _gapprsResponseStatus (\ s a -> s{_gapprsResponseStatus = a});
gapprsPasswordPolicy :: Lens' GetAccountPasswordPolicyResponse PasswordPolicy
gapprsPasswordPolicy = lens _gapprsPasswordPolicy (\ s a -> s{_gapprsPasswordPolicy = a});