{-# 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.QuickSight.DescribeAccountSettings
(
DescribeAccountSettings (..),
newDescribeAccountSettings,
describeAccountSettings_awsAccountId,
DescribeAccountSettingsResponse (..),
newDescribeAccountSettingsResponse,
describeAccountSettingsResponse_accountSettings,
describeAccountSettingsResponse_requestId,
describeAccountSettingsResponse_status,
)
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 Amazonka.QuickSight.Types
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data DescribeAccountSettings = DescribeAccountSettings'
{
DescribeAccountSettings -> Text
awsAccountId :: Prelude.Text
}
deriving (DescribeAccountSettings -> DescribeAccountSettings -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeAccountSettings -> DescribeAccountSettings -> Bool
$c/= :: DescribeAccountSettings -> DescribeAccountSettings -> Bool
== :: DescribeAccountSettings -> DescribeAccountSettings -> Bool
$c== :: DescribeAccountSettings -> DescribeAccountSettings -> Bool
Prelude.Eq, ReadPrec [DescribeAccountSettings]
ReadPrec DescribeAccountSettings
Int -> ReadS DescribeAccountSettings
ReadS [DescribeAccountSettings]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeAccountSettings]
$creadListPrec :: ReadPrec [DescribeAccountSettings]
readPrec :: ReadPrec DescribeAccountSettings
$creadPrec :: ReadPrec DescribeAccountSettings
readList :: ReadS [DescribeAccountSettings]
$creadList :: ReadS [DescribeAccountSettings]
readsPrec :: Int -> ReadS DescribeAccountSettings
$creadsPrec :: Int -> ReadS DescribeAccountSettings
Prelude.Read, Int -> DescribeAccountSettings -> ShowS
[DescribeAccountSettings] -> ShowS
DescribeAccountSettings -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeAccountSettings] -> ShowS
$cshowList :: [DescribeAccountSettings] -> ShowS
show :: DescribeAccountSettings -> String
$cshow :: DescribeAccountSettings -> String
showsPrec :: Int -> DescribeAccountSettings -> ShowS
$cshowsPrec :: Int -> DescribeAccountSettings -> ShowS
Prelude.Show, forall x. Rep DescribeAccountSettings x -> DescribeAccountSettings
forall x. DescribeAccountSettings -> Rep DescribeAccountSettings x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DescribeAccountSettings x -> DescribeAccountSettings
$cfrom :: forall x. DescribeAccountSettings -> Rep DescribeAccountSettings x
Prelude.Generic)
newDescribeAccountSettings ::
Prelude.Text ->
DescribeAccountSettings
newDescribeAccountSettings :: Text -> DescribeAccountSettings
newDescribeAccountSettings Text
pAwsAccountId_ =
DescribeAccountSettings'
{ $sel:awsAccountId:DescribeAccountSettings' :: Text
awsAccountId =
Text
pAwsAccountId_
}
describeAccountSettings_awsAccountId :: Lens.Lens' DescribeAccountSettings Prelude.Text
describeAccountSettings_awsAccountId :: Lens' DescribeAccountSettings Text
describeAccountSettings_awsAccountId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeAccountSettings' {Text
awsAccountId :: Text
$sel:awsAccountId:DescribeAccountSettings' :: DescribeAccountSettings -> Text
awsAccountId} -> Text
awsAccountId) (\s :: DescribeAccountSettings
s@DescribeAccountSettings' {} Text
a -> DescribeAccountSettings
s {$sel:awsAccountId:DescribeAccountSettings' :: Text
awsAccountId = Text
a} :: DescribeAccountSettings)
instance Core.AWSRequest DescribeAccountSettings where
type
AWSResponse DescribeAccountSettings =
DescribeAccountSettingsResponse
request :: (Service -> Service)
-> DescribeAccountSettings -> Request DescribeAccountSettings
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 DescribeAccountSettings
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse DescribeAccountSettings)))
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 AccountSettings
-> Maybe Text -> Int -> DescribeAccountSettingsResponse
DescribeAccountSettingsResponse'
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
"AccountSettings")
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
"RequestId")
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 DescribeAccountSettings where
hashWithSalt :: Int -> DescribeAccountSettings -> Int
hashWithSalt Int
_salt DescribeAccountSettings' {Text
awsAccountId :: Text
$sel:awsAccountId:DescribeAccountSettings' :: DescribeAccountSettings -> Text
..} =
Int
_salt forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
awsAccountId
instance Prelude.NFData DescribeAccountSettings where
rnf :: DescribeAccountSettings -> ()
rnf DescribeAccountSettings' {Text
awsAccountId :: Text
$sel:awsAccountId:DescribeAccountSettings' :: DescribeAccountSettings -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
awsAccountId
instance Data.ToHeaders DescribeAccountSettings where
toHeaders :: DescribeAccountSettings -> ResponseHeaders
toHeaders =
forall a b. a -> b -> a
Prelude.const
( forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.0" ::
Prelude.ByteString
)
]
)
instance Data.ToPath DescribeAccountSettings where
toPath :: DescribeAccountSettings -> ByteString
toPath DescribeAccountSettings' {Text
awsAccountId :: Text
$sel:awsAccountId:DescribeAccountSettings' :: DescribeAccountSettings -> Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ByteString
"/accounts/", forall a. ToByteString a => a -> ByteString
Data.toBS Text
awsAccountId, ByteString
"/settings"]
instance Data.ToQuery DescribeAccountSettings where
toQuery :: DescribeAccountSettings -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DescribeAccountSettingsResponse = DescribeAccountSettingsResponse'
{
DescribeAccountSettingsResponse -> Maybe AccountSettings
accountSettings :: Prelude.Maybe AccountSettings,
DescribeAccountSettingsResponse -> Maybe Text
requestId :: Prelude.Maybe Prelude.Text,
DescribeAccountSettingsResponse -> Int
status :: Prelude.Int
}
deriving (DescribeAccountSettingsResponse
-> DescribeAccountSettingsResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeAccountSettingsResponse
-> DescribeAccountSettingsResponse -> Bool
$c/= :: DescribeAccountSettingsResponse
-> DescribeAccountSettingsResponse -> Bool
== :: DescribeAccountSettingsResponse
-> DescribeAccountSettingsResponse -> Bool
$c== :: DescribeAccountSettingsResponse
-> DescribeAccountSettingsResponse -> Bool
Prelude.Eq, ReadPrec [DescribeAccountSettingsResponse]
ReadPrec DescribeAccountSettingsResponse
Int -> ReadS DescribeAccountSettingsResponse
ReadS [DescribeAccountSettingsResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeAccountSettingsResponse]
$creadListPrec :: ReadPrec [DescribeAccountSettingsResponse]
readPrec :: ReadPrec DescribeAccountSettingsResponse
$creadPrec :: ReadPrec DescribeAccountSettingsResponse
readList :: ReadS [DescribeAccountSettingsResponse]
$creadList :: ReadS [DescribeAccountSettingsResponse]
readsPrec :: Int -> ReadS DescribeAccountSettingsResponse
$creadsPrec :: Int -> ReadS DescribeAccountSettingsResponse
Prelude.Read, Int -> DescribeAccountSettingsResponse -> ShowS
[DescribeAccountSettingsResponse] -> ShowS
DescribeAccountSettingsResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeAccountSettingsResponse] -> ShowS
$cshowList :: [DescribeAccountSettingsResponse] -> ShowS
show :: DescribeAccountSettingsResponse -> String
$cshow :: DescribeAccountSettingsResponse -> String
showsPrec :: Int -> DescribeAccountSettingsResponse -> ShowS
$cshowsPrec :: Int -> DescribeAccountSettingsResponse -> ShowS
Prelude.Show, forall x.
Rep DescribeAccountSettingsResponse x
-> DescribeAccountSettingsResponse
forall x.
DescribeAccountSettingsResponse
-> Rep DescribeAccountSettingsResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeAccountSettingsResponse x
-> DescribeAccountSettingsResponse
$cfrom :: forall x.
DescribeAccountSettingsResponse
-> Rep DescribeAccountSettingsResponse x
Prelude.Generic)
newDescribeAccountSettingsResponse ::
Prelude.Int ->
DescribeAccountSettingsResponse
newDescribeAccountSettingsResponse :: Int -> DescribeAccountSettingsResponse
newDescribeAccountSettingsResponse Int
pStatus_ =
DescribeAccountSettingsResponse'
{ $sel:accountSettings:DescribeAccountSettingsResponse' :: Maybe AccountSettings
accountSettings =
forall a. Maybe a
Prelude.Nothing,
$sel:requestId:DescribeAccountSettingsResponse' :: Maybe Text
requestId = forall a. Maybe a
Prelude.Nothing,
$sel:status:DescribeAccountSettingsResponse' :: Int
status = Int
pStatus_
}
describeAccountSettingsResponse_accountSettings :: Lens.Lens' DescribeAccountSettingsResponse (Prelude.Maybe AccountSettings)
describeAccountSettingsResponse_accountSettings :: Lens' DescribeAccountSettingsResponse (Maybe AccountSettings)
describeAccountSettingsResponse_accountSettings = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeAccountSettingsResponse' {Maybe AccountSettings
accountSettings :: Maybe AccountSettings
$sel:accountSettings:DescribeAccountSettingsResponse' :: DescribeAccountSettingsResponse -> Maybe AccountSettings
accountSettings} -> Maybe AccountSettings
accountSettings) (\s :: DescribeAccountSettingsResponse
s@DescribeAccountSettingsResponse' {} Maybe AccountSettings
a -> DescribeAccountSettingsResponse
s {$sel:accountSettings:DescribeAccountSettingsResponse' :: Maybe AccountSettings
accountSettings = Maybe AccountSettings
a} :: DescribeAccountSettingsResponse)
describeAccountSettingsResponse_requestId :: Lens.Lens' DescribeAccountSettingsResponse (Prelude.Maybe Prelude.Text)
describeAccountSettingsResponse_requestId :: Lens' DescribeAccountSettingsResponse (Maybe Text)
describeAccountSettingsResponse_requestId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeAccountSettingsResponse' {Maybe Text
requestId :: Maybe Text
$sel:requestId:DescribeAccountSettingsResponse' :: DescribeAccountSettingsResponse -> Maybe Text
requestId} -> Maybe Text
requestId) (\s :: DescribeAccountSettingsResponse
s@DescribeAccountSettingsResponse' {} Maybe Text
a -> DescribeAccountSettingsResponse
s {$sel:requestId:DescribeAccountSettingsResponse' :: Maybe Text
requestId = Maybe Text
a} :: DescribeAccountSettingsResponse)
describeAccountSettingsResponse_status :: Lens.Lens' DescribeAccountSettingsResponse Prelude.Int
describeAccountSettingsResponse_status :: Lens' DescribeAccountSettingsResponse Int
describeAccountSettingsResponse_status = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeAccountSettingsResponse' {Int
status :: Int
$sel:status:DescribeAccountSettingsResponse' :: DescribeAccountSettingsResponse -> Int
status} -> Int
status) (\s :: DescribeAccountSettingsResponse
s@DescribeAccountSettingsResponse' {} Int
a -> DescribeAccountSettingsResponse
s {$sel:status:DescribeAccountSettingsResponse' :: Int
status = Int
a} :: DescribeAccountSettingsResponse)
instance
Prelude.NFData
DescribeAccountSettingsResponse
where
rnf :: DescribeAccountSettingsResponse -> ()
rnf DescribeAccountSettingsResponse' {Int
Maybe Text
Maybe AccountSettings
status :: Int
requestId :: Maybe Text
accountSettings :: Maybe AccountSettings
$sel:status:DescribeAccountSettingsResponse' :: DescribeAccountSettingsResponse -> Int
$sel:requestId:DescribeAccountSettingsResponse' :: DescribeAccountSettingsResponse -> Maybe Text
$sel:accountSettings:DescribeAccountSettingsResponse' :: DescribeAccountSettingsResponse -> Maybe AccountSettings
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe AccountSettings
accountSettings
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
requestId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
status