{-# 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.ClearDefaultAuthorizer
(
clearDefaultAuthorizer
, ClearDefaultAuthorizer
, clearDefaultAuthorizerResponse
, ClearDefaultAuthorizerResponse
, cdarsResponseStatus
) 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
data ClearDefaultAuthorizer =
ClearDefaultAuthorizer'
deriving (Eq, Read, Show, Data, Typeable, Generic)
clearDefaultAuthorizer
:: ClearDefaultAuthorizer
clearDefaultAuthorizer = ClearDefaultAuthorizer'
instance AWSRequest ClearDefaultAuthorizer where
type Rs ClearDefaultAuthorizer =
ClearDefaultAuthorizerResponse
request = delete ioT
response
= receiveEmpty
(\ s h x ->
ClearDefaultAuthorizerResponse' <$>
(pure (fromEnum s)))
instance Hashable ClearDefaultAuthorizer where
instance NFData ClearDefaultAuthorizer where
instance ToHeaders ClearDefaultAuthorizer where
toHeaders = const mempty
instance ToPath ClearDefaultAuthorizer where
toPath = const "/default-authorizer"
instance ToQuery ClearDefaultAuthorizer where
toQuery = const mempty
newtype ClearDefaultAuthorizerResponse = ClearDefaultAuthorizerResponse'
{ _cdarsResponseStatus :: Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
clearDefaultAuthorizerResponse
:: Int
-> ClearDefaultAuthorizerResponse
clearDefaultAuthorizerResponse pResponseStatus_ =
ClearDefaultAuthorizerResponse' {_cdarsResponseStatus = pResponseStatus_}
cdarsResponseStatus :: Lens' ClearDefaultAuthorizerResponse Int
cdarsResponseStatus = lens _cdarsResponseStatus (\ s a -> s{_cdarsResponseStatus = a})
instance NFData ClearDefaultAuthorizerResponse where