{-# 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.IoT.DeleteRoleAlias
(
deleteRoleAlias
, DeleteRoleAlias
, dRoleAlias
, deleteRoleAliasResponse
, DeleteRoleAliasResponse
, drsResponseStatus
) where
import Network.AWS.IoT.Types
import Network.AWS.IoT.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
newtype DeleteRoleAlias = DeleteRoleAlias'
{ _dRoleAlias :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteRoleAlias
:: Text
-> DeleteRoleAlias
deleteRoleAlias pRoleAlias_ = DeleteRoleAlias' {_dRoleAlias = pRoleAlias_}
dRoleAlias :: Lens' DeleteRoleAlias Text
dRoleAlias = lens _dRoleAlias (\ s a -> s{_dRoleAlias = a})
instance AWSRequest DeleteRoleAlias where
type Rs DeleteRoleAlias = DeleteRoleAliasResponse
request = delete ioT
response
= receiveEmpty
(\ s h x ->
DeleteRoleAliasResponse' <$> (pure (fromEnum s)))
instance Hashable DeleteRoleAlias where
instance NFData DeleteRoleAlias where
instance ToHeaders DeleteRoleAlias where
toHeaders = const mempty
instance ToPath DeleteRoleAlias where
toPath DeleteRoleAlias'{..}
= mconcat ["/role-aliases/", toBS _dRoleAlias]
instance ToQuery DeleteRoleAlias where
toQuery = const mempty
newtype DeleteRoleAliasResponse = DeleteRoleAliasResponse'
{ _drsResponseStatus :: Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteRoleAliasResponse
:: Int
-> DeleteRoleAliasResponse
deleteRoleAliasResponse pResponseStatus_ =
DeleteRoleAliasResponse' {_drsResponseStatus = pResponseStatus_}
drsResponseStatus :: Lens' DeleteRoleAliasResponse Int
drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a})
instance NFData DeleteRoleAliasResponse where