{-# 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.DeleteAuthorizer
(
deleteAuthorizer
, DeleteAuthorizer
, dAuthorizerName
, deleteAuthorizerResponse
, DeleteAuthorizerResponse
, delrsResponseStatus
) 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 DeleteAuthorizer = DeleteAuthorizer'
{ _dAuthorizerName :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteAuthorizer
:: Text
-> DeleteAuthorizer
deleteAuthorizer pAuthorizerName_ =
DeleteAuthorizer' {_dAuthorizerName = pAuthorizerName_}
dAuthorizerName :: Lens' DeleteAuthorizer Text
dAuthorizerName = lens _dAuthorizerName (\ s a -> s{_dAuthorizerName = a})
instance AWSRequest DeleteAuthorizer where
type Rs DeleteAuthorizer = DeleteAuthorizerResponse
request = delete ioT
response
= receiveEmpty
(\ s h x ->
DeleteAuthorizerResponse' <$> (pure (fromEnum s)))
instance Hashable DeleteAuthorizer where
instance NFData DeleteAuthorizer where
instance ToHeaders DeleteAuthorizer where
toHeaders = const mempty
instance ToPath DeleteAuthorizer where
toPath DeleteAuthorizer'{..}
= mconcat ["/authorizer/", toBS _dAuthorizerName]
instance ToQuery DeleteAuthorizer where
toQuery = const mempty
newtype DeleteAuthorizerResponse = DeleteAuthorizerResponse'
{ _delrsResponseStatus :: Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteAuthorizerResponse
:: Int
-> DeleteAuthorizerResponse
deleteAuthorizerResponse pResponseStatus_ =
DeleteAuthorizerResponse' {_delrsResponseStatus = pResponseStatus_}
delrsResponseStatus :: Lens' DeleteAuthorizerResponse Int
delrsResponseStatus = lens _delrsResponseStatus (\ s a -> s{_delrsResponseStatus = a})
instance NFData DeleteAuthorizerResponse where