module Network.AWS.IAM.GetAccountPasswordPolicy
(
GetAccountPasswordPolicy
, getAccountPasswordPolicy
, GetAccountPasswordPolicyResponse
, getAccountPasswordPolicyResponse
, gapprPasswordPolicy
) where
import Network.AWS.Prelude
import Network.AWS.Request.Query
import Network.AWS.IAM.Types
import qualified GHC.Exts
data GetAccountPasswordPolicy = GetAccountPasswordPolicy
deriving (Eq, Ord, Show, Generic)
getAccountPasswordPolicy :: GetAccountPasswordPolicy
getAccountPasswordPolicy = GetAccountPasswordPolicy
newtype GetAccountPasswordPolicyResponse = GetAccountPasswordPolicyResponse
{ _gapprPasswordPolicy :: PasswordPolicy
} deriving (Eq, Show)
getAccountPasswordPolicyResponse :: PasswordPolicy
-> GetAccountPasswordPolicyResponse
getAccountPasswordPolicyResponse p1 = GetAccountPasswordPolicyResponse
{ _gapprPasswordPolicy = p1
}
gapprPasswordPolicy :: Lens' GetAccountPasswordPolicyResponse PasswordPolicy
gapprPasswordPolicy =
lens _gapprPasswordPolicy (\s a -> s { _gapprPasswordPolicy = a })
instance ToPath GetAccountPasswordPolicy where
toPath = const "/"
instance ToQuery GetAccountPasswordPolicy where
toQuery = const mempty
instance ToHeaders GetAccountPasswordPolicy
instance AWSRequest GetAccountPasswordPolicy where
type Sv GetAccountPasswordPolicy = IAM
type Rs GetAccountPasswordPolicy = GetAccountPasswordPolicyResponse
request = post "GetAccountPasswordPolicy"
response = xmlResponse
instance FromXML GetAccountPasswordPolicyResponse where
parseXML = withElement "GetAccountPasswordPolicyResult" $ \x -> GetAccountPasswordPolicyResponse
<$> x .@ "PasswordPolicy"