{-# 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.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 Hashable GetAccountPasswordPolicy where
instance NFData GetAccountPasswordPolicy where
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})
instance NFData GetAccountPasswordPolicyResponse
where