{-# 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.Shield.DescribeDRTAccess
(
DescribeDRTAccess (..),
newDescribeDRTAccess,
DescribeDRTAccessResponse (..),
newDescribeDRTAccessResponse,
describeDRTAccessResponse_logBucketList,
describeDRTAccessResponse_roleArn,
describeDRTAccessResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
import Amazonka.Shield.Types
data DescribeDRTAccess = DescribeDRTAccess'
{
}
deriving (DescribeDRTAccess -> DescribeDRTAccess -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeDRTAccess -> DescribeDRTAccess -> Bool
$c/= :: DescribeDRTAccess -> DescribeDRTAccess -> Bool
== :: DescribeDRTAccess -> DescribeDRTAccess -> Bool
$c== :: DescribeDRTAccess -> DescribeDRTAccess -> Bool
Prelude.Eq, ReadPrec [DescribeDRTAccess]
ReadPrec DescribeDRTAccess
Int -> ReadS DescribeDRTAccess
ReadS [DescribeDRTAccess]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeDRTAccess]
$creadListPrec :: ReadPrec [DescribeDRTAccess]
readPrec :: ReadPrec DescribeDRTAccess
$creadPrec :: ReadPrec DescribeDRTAccess
readList :: ReadS [DescribeDRTAccess]
$creadList :: ReadS [DescribeDRTAccess]
readsPrec :: Int -> ReadS DescribeDRTAccess
$creadsPrec :: Int -> ReadS DescribeDRTAccess
Prelude.Read, Int -> DescribeDRTAccess -> ShowS
[DescribeDRTAccess] -> ShowS
DescribeDRTAccess -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeDRTAccess] -> ShowS
$cshowList :: [DescribeDRTAccess] -> ShowS
show :: DescribeDRTAccess -> String
$cshow :: DescribeDRTAccess -> String
showsPrec :: Int -> DescribeDRTAccess -> ShowS
$cshowsPrec :: Int -> DescribeDRTAccess -> ShowS
Prelude.Show, forall x. Rep DescribeDRTAccess x -> DescribeDRTAccess
forall x. DescribeDRTAccess -> Rep DescribeDRTAccess x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DescribeDRTAccess x -> DescribeDRTAccess
$cfrom :: forall x. DescribeDRTAccess -> Rep DescribeDRTAccess x
Prelude.Generic)
newDescribeDRTAccess ::
DescribeDRTAccess
newDescribeDRTAccess :: DescribeDRTAccess
newDescribeDRTAccess = DescribeDRTAccess
DescribeDRTAccess'
instance Core.AWSRequest DescribeDRTAccess where
type
AWSResponse DescribeDRTAccess =
DescribeDRTAccessResponse
request :: (Service -> Service)
-> DescribeDRTAccess -> Request DescribeDRTAccess
request Service -> Service
overrides =
forall a. (ToRequest a, ToJSON a) => Service -> a -> Request a
Request.postJSON (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy DescribeDRTAccess
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse DescribeDRTAccess)))
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 [Text] -> Maybe Text -> Int -> DescribeDRTAccessResponse
DescribeDRTAccessResponse'
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
"LogBucketList" forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ forall a. Monoid a => a
Prelude.mempty)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"RoleArn")
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 DescribeDRTAccess where
hashWithSalt :: Int -> DescribeDRTAccess -> Int
hashWithSalt Int
_salt DescribeDRTAccess
_ =
Int
_salt forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` ()
instance Prelude.NFData DescribeDRTAccess where
rnf :: DescribeDRTAccess -> ()
rnf DescribeDRTAccess
_ = ()
instance Data.ToHeaders DescribeDRTAccess where
toHeaders :: DescribeDRTAccess -> ResponseHeaders
toHeaders =
forall a b. a -> b -> a
Prelude.const
( forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"X-Amz-Target"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"AWSShield_20160616.DescribeDRTAccess" ::
Prelude.ByteString
),
HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON DescribeDRTAccess where
toJSON :: DescribeDRTAccess -> Value
toJSON = forall a b. a -> b -> a
Prelude.const (Object -> Value
Data.Object forall a. Monoid a => a
Prelude.mempty)
instance Data.ToPath DescribeDRTAccess where
toPath :: DescribeDRTAccess -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery DescribeDRTAccess where
toQuery :: DescribeDRTAccess -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DescribeDRTAccessResponse = DescribeDRTAccessResponse'
{
DescribeDRTAccessResponse -> Maybe [Text]
logBucketList :: Prelude.Maybe [Prelude.Text],
DescribeDRTAccessResponse -> Maybe Text
roleArn :: Prelude.Maybe Prelude.Text,
DescribeDRTAccessResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DescribeDRTAccessResponse -> DescribeDRTAccessResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeDRTAccessResponse -> DescribeDRTAccessResponse -> Bool
$c/= :: DescribeDRTAccessResponse -> DescribeDRTAccessResponse -> Bool
== :: DescribeDRTAccessResponse -> DescribeDRTAccessResponse -> Bool
$c== :: DescribeDRTAccessResponse -> DescribeDRTAccessResponse -> Bool
Prelude.Eq, ReadPrec [DescribeDRTAccessResponse]
ReadPrec DescribeDRTAccessResponse
Int -> ReadS DescribeDRTAccessResponse
ReadS [DescribeDRTAccessResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeDRTAccessResponse]
$creadListPrec :: ReadPrec [DescribeDRTAccessResponse]
readPrec :: ReadPrec DescribeDRTAccessResponse
$creadPrec :: ReadPrec DescribeDRTAccessResponse
readList :: ReadS [DescribeDRTAccessResponse]
$creadList :: ReadS [DescribeDRTAccessResponse]
readsPrec :: Int -> ReadS DescribeDRTAccessResponse
$creadsPrec :: Int -> ReadS DescribeDRTAccessResponse
Prelude.Read, Int -> DescribeDRTAccessResponse -> ShowS
[DescribeDRTAccessResponse] -> ShowS
DescribeDRTAccessResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeDRTAccessResponse] -> ShowS
$cshowList :: [DescribeDRTAccessResponse] -> ShowS
show :: DescribeDRTAccessResponse -> String
$cshow :: DescribeDRTAccessResponse -> String
showsPrec :: Int -> DescribeDRTAccessResponse -> ShowS
$cshowsPrec :: Int -> DescribeDRTAccessResponse -> ShowS
Prelude.Show, forall x.
Rep DescribeDRTAccessResponse x -> DescribeDRTAccessResponse
forall x.
DescribeDRTAccessResponse -> Rep DescribeDRTAccessResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeDRTAccessResponse x -> DescribeDRTAccessResponse
$cfrom :: forall x.
DescribeDRTAccessResponse -> Rep DescribeDRTAccessResponse x
Prelude.Generic)
newDescribeDRTAccessResponse ::
Prelude.Int ->
DescribeDRTAccessResponse
newDescribeDRTAccessResponse :: Int -> DescribeDRTAccessResponse
newDescribeDRTAccessResponse Int
pHttpStatus_ =
DescribeDRTAccessResponse'
{ $sel:logBucketList:DescribeDRTAccessResponse' :: Maybe [Text]
logBucketList =
forall a. Maybe a
Prelude.Nothing,
$sel:roleArn:DescribeDRTAccessResponse' :: Maybe Text
roleArn = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:DescribeDRTAccessResponse' :: Int
httpStatus = Int
pHttpStatus_
}
describeDRTAccessResponse_logBucketList :: Lens.Lens' DescribeDRTAccessResponse (Prelude.Maybe [Prelude.Text])
describeDRTAccessResponse_logBucketList :: Lens' DescribeDRTAccessResponse (Maybe [Text])
describeDRTAccessResponse_logBucketList = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeDRTAccessResponse' {Maybe [Text]
logBucketList :: Maybe [Text]
$sel:logBucketList:DescribeDRTAccessResponse' :: DescribeDRTAccessResponse -> Maybe [Text]
logBucketList} -> Maybe [Text]
logBucketList) (\s :: DescribeDRTAccessResponse
s@DescribeDRTAccessResponse' {} Maybe [Text]
a -> DescribeDRTAccessResponse
s {$sel:logBucketList:DescribeDRTAccessResponse' :: Maybe [Text]
logBucketList = Maybe [Text]
a} :: DescribeDRTAccessResponse) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
describeDRTAccessResponse_roleArn :: Lens.Lens' DescribeDRTAccessResponse (Prelude.Maybe Prelude.Text)
describeDRTAccessResponse_roleArn :: Lens' DescribeDRTAccessResponse (Maybe Text)
describeDRTAccessResponse_roleArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeDRTAccessResponse' {Maybe Text
roleArn :: Maybe Text
$sel:roleArn:DescribeDRTAccessResponse' :: DescribeDRTAccessResponse -> Maybe Text
roleArn} -> Maybe Text
roleArn) (\s :: DescribeDRTAccessResponse
s@DescribeDRTAccessResponse' {} Maybe Text
a -> DescribeDRTAccessResponse
s {$sel:roleArn:DescribeDRTAccessResponse' :: Maybe Text
roleArn = Maybe Text
a} :: DescribeDRTAccessResponse)
describeDRTAccessResponse_httpStatus :: Lens.Lens' DescribeDRTAccessResponse Prelude.Int
describeDRTAccessResponse_httpStatus :: Lens' DescribeDRTAccessResponse Int
describeDRTAccessResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeDRTAccessResponse' {Int
httpStatus :: Int
$sel:httpStatus:DescribeDRTAccessResponse' :: DescribeDRTAccessResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DescribeDRTAccessResponse
s@DescribeDRTAccessResponse' {} Int
a -> DescribeDRTAccessResponse
s {$sel:httpStatus:DescribeDRTAccessResponse' :: Int
httpStatus = Int
a} :: DescribeDRTAccessResponse)
instance Prelude.NFData DescribeDRTAccessResponse where
rnf :: DescribeDRTAccessResponse -> ()
rnf DescribeDRTAccessResponse' {Int
Maybe [Text]
Maybe Text
httpStatus :: Int
roleArn :: Maybe Text
logBucketList :: Maybe [Text]
$sel:httpStatus:DescribeDRTAccessResponse' :: DescribeDRTAccessResponse -> Int
$sel:roleArn:DescribeDRTAccessResponse' :: DescribeDRTAccessResponse -> Maybe Text
$sel:logBucketList:DescribeDRTAccessResponse' :: DescribeDRTAccessResponse -> Maybe [Text]
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe [Text]
logBucketList
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
roleArn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus