{-# 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.DeleteAccountAlias
(
deleteAccountAlias
, DeleteAccountAlias
, daaAccountAlias
, deleteAccountAliasResponse
, DeleteAccountAliasResponse
) 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
newtype DeleteAccountAlias = DeleteAccountAlias'
{ _daaAccountAlias :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteAccountAlias
:: Text
-> DeleteAccountAlias
deleteAccountAlias pAccountAlias_ =
DeleteAccountAlias' {_daaAccountAlias = pAccountAlias_}
daaAccountAlias :: Lens' DeleteAccountAlias Text
daaAccountAlias = lens _daaAccountAlias (\ s a -> s{_daaAccountAlias = a})
instance AWSRequest DeleteAccountAlias where
type Rs DeleteAccountAlias =
DeleteAccountAliasResponse
request = postQuery iam
response = receiveNull DeleteAccountAliasResponse'
instance Hashable DeleteAccountAlias where
instance NFData DeleteAccountAlias where
instance ToHeaders DeleteAccountAlias where
toHeaders = const mempty
instance ToPath DeleteAccountAlias where
toPath = const "/"
instance ToQuery DeleteAccountAlias where
toQuery DeleteAccountAlias'{..}
= mconcat
["Action" =: ("DeleteAccountAlias" :: ByteString),
"Version" =: ("2010-05-08" :: ByteString),
"AccountAlias" =: _daaAccountAlias]
data DeleteAccountAliasResponse =
DeleteAccountAliasResponse'
deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteAccountAliasResponse
:: DeleteAccountAliasResponse
deleteAccountAliasResponse = DeleteAccountAliasResponse'
instance NFData DeleteAccountAliasResponse where