module Network.AWS.IAM.GetAccountPasswordPolicy
(
getAccountPasswordPolicy
, GetAccountPasswordPolicy
, getAccountPasswordPolicyResponse
, GetAccountPasswordPolicyResponse
, gapprsStatus
, gapprsPasswordPolicy
) where
import Network.AWS.IAM.Types
import Network.AWS.IAM.Types.Product
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 Sv GetAccountPasswordPolicy = IAM
type Rs GetAccountPasswordPolicy =
GetAccountPasswordPolicyResponse
request = postQuery
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'
{ _gapprsStatus :: !Int
, _gapprsPasswordPolicy :: !PasswordPolicy
} deriving (Eq,Read,Show,Data,Typeable,Generic)
getAccountPasswordPolicyResponse
:: Int
-> PasswordPolicy
-> GetAccountPasswordPolicyResponse
getAccountPasswordPolicyResponse pStatus_ pPasswordPolicy_ =
GetAccountPasswordPolicyResponse'
{ _gapprsStatus = pStatus_
, _gapprsPasswordPolicy = pPasswordPolicy_
}
gapprsStatus :: Lens' GetAccountPasswordPolicyResponse Int
gapprsStatus = lens _gapprsStatus (\ s a -> s{_gapprsStatus = a});
gapprsPasswordPolicy :: Lens' GetAccountPasswordPolicyResponse PasswordPolicy
gapprsPasswordPolicy = lens _gapprsPasswordPolicy (\ s a -> s{_gapprsPasswordPolicy = a});