{-# 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.DescribeDefaultAuthorizer
(
describeDefaultAuthorizer
, DescribeDefaultAuthorizer
, describeDefaultAuthorizerResponse
, DescribeDefaultAuthorizerResponse
, ddarsAuthorizerDescription
, ddarsResponseStatus
) 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 DescribeDefaultAuthorizer =
DescribeDefaultAuthorizer'
deriving (Eq, Read, Show, Data, Typeable, Generic)
describeDefaultAuthorizer
:: DescribeDefaultAuthorizer
describeDefaultAuthorizer = DescribeDefaultAuthorizer'
instance AWSRequest DescribeDefaultAuthorizer where
type Rs DescribeDefaultAuthorizer =
DescribeDefaultAuthorizerResponse
request = get ioT
response
= receiveJSON
(\ s h x ->
DescribeDefaultAuthorizerResponse' <$>
(x .?> "authorizerDescription") <*>
(pure (fromEnum s)))
instance Hashable DescribeDefaultAuthorizer where
instance NFData DescribeDefaultAuthorizer where
instance ToHeaders DescribeDefaultAuthorizer where
toHeaders = const mempty
instance ToPath DescribeDefaultAuthorizer where
toPath = const "/default-authorizer"
instance ToQuery DescribeDefaultAuthorizer where
toQuery = const mempty
data DescribeDefaultAuthorizerResponse = DescribeDefaultAuthorizerResponse'
{ _ddarsAuthorizerDescription :: !(Maybe AuthorizerDescription)
, _ddarsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeDefaultAuthorizerResponse
:: Int
-> DescribeDefaultAuthorizerResponse
describeDefaultAuthorizerResponse pResponseStatus_ =
DescribeDefaultAuthorizerResponse'
{ _ddarsAuthorizerDescription = Nothing
, _ddarsResponseStatus = pResponseStatus_
}
ddarsAuthorizerDescription :: Lens' DescribeDefaultAuthorizerResponse (Maybe AuthorizerDescription)
ddarsAuthorizerDescription = lens _ddarsAuthorizerDescription (\ s a -> s{_ddarsAuthorizerDescription = a})
ddarsResponseStatus :: Lens' DescribeDefaultAuthorizerResponse Int
ddarsResponseStatus = lens _ddarsResponseStatus (\ s a -> s{_ddarsResponseStatus = a})
instance NFData DescribeDefaultAuthorizerResponse
where