{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DuplicateRecordFields #-}
{-# LANGUAGE NamedFieldPuns #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Amazonka.IoT.DescribeDefaultAuthorizer
(
DescribeDefaultAuthorizer (..),
newDescribeDefaultAuthorizer,
DescribeDefaultAuthorizerResponse (..),
newDescribeDefaultAuthorizerResponse,
describeDefaultAuthorizerResponse_authorizerDescription,
describeDefaultAuthorizerResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.IoT.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data DescribeDefaultAuthorizer = DescribeDefaultAuthorizer'
{
}
deriving (DescribeDefaultAuthorizer -> DescribeDefaultAuthorizer -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeDefaultAuthorizer -> DescribeDefaultAuthorizer -> Bool
$c/= :: DescribeDefaultAuthorizer -> DescribeDefaultAuthorizer -> Bool
== :: DescribeDefaultAuthorizer -> DescribeDefaultAuthorizer -> Bool
$c== :: DescribeDefaultAuthorizer -> DescribeDefaultAuthorizer -> Bool
Prelude.Eq, ReadPrec [DescribeDefaultAuthorizer]
ReadPrec DescribeDefaultAuthorizer
Int -> ReadS DescribeDefaultAuthorizer
ReadS [DescribeDefaultAuthorizer]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeDefaultAuthorizer]
$creadListPrec :: ReadPrec [DescribeDefaultAuthorizer]
readPrec :: ReadPrec DescribeDefaultAuthorizer
$creadPrec :: ReadPrec DescribeDefaultAuthorizer
readList :: ReadS [DescribeDefaultAuthorizer]
$creadList :: ReadS [DescribeDefaultAuthorizer]
readsPrec :: Int -> ReadS DescribeDefaultAuthorizer
$creadsPrec :: Int -> ReadS DescribeDefaultAuthorizer
Prelude.Read, Int -> DescribeDefaultAuthorizer -> ShowS
[DescribeDefaultAuthorizer] -> ShowS
DescribeDefaultAuthorizer -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeDefaultAuthorizer] -> ShowS
$cshowList :: [DescribeDefaultAuthorizer] -> ShowS
show :: DescribeDefaultAuthorizer -> String
$cshow :: DescribeDefaultAuthorizer -> String
showsPrec :: Int -> DescribeDefaultAuthorizer -> ShowS
$cshowsPrec :: Int -> DescribeDefaultAuthorizer -> ShowS
Prelude.Show, forall x.
Rep DescribeDefaultAuthorizer x -> DescribeDefaultAuthorizer
forall x.
DescribeDefaultAuthorizer -> Rep DescribeDefaultAuthorizer x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeDefaultAuthorizer x -> DescribeDefaultAuthorizer
$cfrom :: forall x.
DescribeDefaultAuthorizer -> Rep DescribeDefaultAuthorizer x
Prelude.Generic)
newDescribeDefaultAuthorizer ::
DescribeDefaultAuthorizer
newDescribeDefaultAuthorizer :: DescribeDefaultAuthorizer
newDescribeDefaultAuthorizer =
DescribeDefaultAuthorizer
DescribeDefaultAuthorizer'
instance Core.AWSRequest DescribeDefaultAuthorizer where
type
AWSResponse DescribeDefaultAuthorizer =
DescribeDefaultAuthorizerResponse
request :: (Service -> Service)
-> DescribeDefaultAuthorizer -> Request DescribeDefaultAuthorizer
request Service -> Service
overrides =
forall a. ToRequest a => Service -> a -> Request a
Request.get (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy DescribeDefaultAuthorizer
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse DescribeDefaultAuthorizer)))
response =
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> Object -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveJSON
( \Int
s ResponseHeaders
h Object
x ->
Maybe AuthorizerDescription
-> Int -> DescribeDefaultAuthorizerResponse
DescribeDefaultAuthorizerResponse'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"authorizerDescription")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
)
instance Prelude.Hashable DescribeDefaultAuthorizer where
hashWithSalt :: Int -> DescribeDefaultAuthorizer -> Int
hashWithSalt Int
_salt DescribeDefaultAuthorizer
_ =
Int
_salt forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` ()
instance Prelude.NFData DescribeDefaultAuthorizer where
rnf :: DescribeDefaultAuthorizer -> ()
rnf DescribeDefaultAuthorizer
_ = ()
instance Data.ToHeaders DescribeDefaultAuthorizer where
toHeaders :: DescribeDefaultAuthorizer -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToPath DescribeDefaultAuthorizer where
toPath :: DescribeDefaultAuthorizer -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/default-authorizer"
instance Data.ToQuery DescribeDefaultAuthorizer where
toQuery :: DescribeDefaultAuthorizer -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DescribeDefaultAuthorizerResponse = DescribeDefaultAuthorizerResponse'
{
DescribeDefaultAuthorizerResponse -> Maybe AuthorizerDescription
authorizerDescription :: Prelude.Maybe AuthorizerDescription,
DescribeDefaultAuthorizerResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DescribeDefaultAuthorizerResponse
-> DescribeDefaultAuthorizerResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeDefaultAuthorizerResponse
-> DescribeDefaultAuthorizerResponse -> Bool
$c/= :: DescribeDefaultAuthorizerResponse
-> DescribeDefaultAuthorizerResponse -> Bool
== :: DescribeDefaultAuthorizerResponse
-> DescribeDefaultAuthorizerResponse -> Bool
$c== :: DescribeDefaultAuthorizerResponse
-> DescribeDefaultAuthorizerResponse -> Bool
Prelude.Eq, ReadPrec [DescribeDefaultAuthorizerResponse]
ReadPrec DescribeDefaultAuthorizerResponse
Int -> ReadS DescribeDefaultAuthorizerResponse
ReadS [DescribeDefaultAuthorizerResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeDefaultAuthorizerResponse]
$creadListPrec :: ReadPrec [DescribeDefaultAuthorizerResponse]
readPrec :: ReadPrec DescribeDefaultAuthorizerResponse
$creadPrec :: ReadPrec DescribeDefaultAuthorizerResponse
readList :: ReadS [DescribeDefaultAuthorizerResponse]
$creadList :: ReadS [DescribeDefaultAuthorizerResponse]
readsPrec :: Int -> ReadS DescribeDefaultAuthorizerResponse
$creadsPrec :: Int -> ReadS DescribeDefaultAuthorizerResponse
Prelude.Read, Int -> DescribeDefaultAuthorizerResponse -> ShowS
[DescribeDefaultAuthorizerResponse] -> ShowS
DescribeDefaultAuthorizerResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeDefaultAuthorizerResponse] -> ShowS
$cshowList :: [DescribeDefaultAuthorizerResponse] -> ShowS
show :: DescribeDefaultAuthorizerResponse -> String
$cshow :: DescribeDefaultAuthorizerResponse -> String
showsPrec :: Int -> DescribeDefaultAuthorizerResponse -> ShowS
$cshowsPrec :: Int -> DescribeDefaultAuthorizerResponse -> ShowS
Prelude.Show, forall x.
Rep DescribeDefaultAuthorizerResponse x
-> DescribeDefaultAuthorizerResponse
forall x.
DescribeDefaultAuthorizerResponse
-> Rep DescribeDefaultAuthorizerResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeDefaultAuthorizerResponse x
-> DescribeDefaultAuthorizerResponse
$cfrom :: forall x.
DescribeDefaultAuthorizerResponse
-> Rep DescribeDefaultAuthorizerResponse x
Prelude.Generic)
newDescribeDefaultAuthorizerResponse ::
Prelude.Int ->
DescribeDefaultAuthorizerResponse
newDescribeDefaultAuthorizerResponse :: Int -> DescribeDefaultAuthorizerResponse
newDescribeDefaultAuthorizerResponse Int
pHttpStatus_ =
DescribeDefaultAuthorizerResponse'
{ $sel:authorizerDescription:DescribeDefaultAuthorizerResponse' :: Maybe AuthorizerDescription
authorizerDescription =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:DescribeDefaultAuthorizerResponse' :: Int
httpStatus = Int
pHttpStatus_
}
describeDefaultAuthorizerResponse_authorizerDescription :: Lens.Lens' DescribeDefaultAuthorizerResponse (Prelude.Maybe AuthorizerDescription)
describeDefaultAuthorizerResponse_authorizerDescription :: Lens'
DescribeDefaultAuthorizerResponse (Maybe AuthorizerDescription)
describeDefaultAuthorizerResponse_authorizerDescription = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeDefaultAuthorizerResponse' {Maybe AuthorizerDescription
authorizerDescription :: Maybe AuthorizerDescription
$sel:authorizerDescription:DescribeDefaultAuthorizerResponse' :: DescribeDefaultAuthorizerResponse -> Maybe AuthorizerDescription
authorizerDescription} -> Maybe AuthorizerDescription
authorizerDescription) (\s :: DescribeDefaultAuthorizerResponse
s@DescribeDefaultAuthorizerResponse' {} Maybe AuthorizerDescription
a -> DescribeDefaultAuthorizerResponse
s {$sel:authorizerDescription:DescribeDefaultAuthorizerResponse' :: Maybe AuthorizerDescription
authorizerDescription = Maybe AuthorizerDescription
a} :: DescribeDefaultAuthorizerResponse)
describeDefaultAuthorizerResponse_httpStatus :: Lens.Lens' DescribeDefaultAuthorizerResponse Prelude.Int
describeDefaultAuthorizerResponse_httpStatus :: Lens' DescribeDefaultAuthorizerResponse Int
describeDefaultAuthorizerResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeDefaultAuthorizerResponse' {Int
httpStatus :: Int
$sel:httpStatus:DescribeDefaultAuthorizerResponse' :: DescribeDefaultAuthorizerResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DescribeDefaultAuthorizerResponse
s@DescribeDefaultAuthorizerResponse' {} Int
a -> DescribeDefaultAuthorizerResponse
s {$sel:httpStatus:DescribeDefaultAuthorizerResponse' :: Int
httpStatus = Int
a} :: DescribeDefaultAuthorizerResponse)
instance
Prelude.NFData
DescribeDefaultAuthorizerResponse
where
rnf :: DescribeDefaultAuthorizerResponse -> ()
rnf DescribeDefaultAuthorizerResponse' {Int
Maybe AuthorizerDescription
httpStatus :: Int
authorizerDescription :: Maybe AuthorizerDescription
$sel:httpStatus:DescribeDefaultAuthorizerResponse' :: DescribeDefaultAuthorizerResponse -> Int
$sel:authorizerDescription:DescribeDefaultAuthorizerResponse' :: DescribeDefaultAuthorizerResponse -> Maybe AuthorizerDescription
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe AuthorizerDescription
authorizerDescription
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus