{-# 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.Backup.DescribeRegionSettings
(
DescribeRegionSettings (..),
newDescribeRegionSettings,
DescribeRegionSettingsResponse (..),
newDescribeRegionSettingsResponse,
describeRegionSettingsResponse_resourceTypeManagementPreference,
describeRegionSettingsResponse_resourceTypeOptInPreference,
describeRegionSettingsResponse_httpStatus,
)
where
import Amazonka.Backup.Types
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
data DescribeRegionSettings = DescribeRegionSettings'
{
}
deriving (DescribeRegionSettings -> DescribeRegionSettings -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeRegionSettings -> DescribeRegionSettings -> Bool
$c/= :: DescribeRegionSettings -> DescribeRegionSettings -> Bool
== :: DescribeRegionSettings -> DescribeRegionSettings -> Bool
$c== :: DescribeRegionSettings -> DescribeRegionSettings -> Bool
Prelude.Eq, ReadPrec [DescribeRegionSettings]
ReadPrec DescribeRegionSettings
Int -> ReadS DescribeRegionSettings
ReadS [DescribeRegionSettings]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeRegionSettings]
$creadListPrec :: ReadPrec [DescribeRegionSettings]
readPrec :: ReadPrec DescribeRegionSettings
$creadPrec :: ReadPrec DescribeRegionSettings
readList :: ReadS [DescribeRegionSettings]
$creadList :: ReadS [DescribeRegionSettings]
readsPrec :: Int -> ReadS DescribeRegionSettings
$creadsPrec :: Int -> ReadS DescribeRegionSettings
Prelude.Read, Int -> DescribeRegionSettings -> ShowS
[DescribeRegionSettings] -> ShowS
DescribeRegionSettings -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeRegionSettings] -> ShowS
$cshowList :: [DescribeRegionSettings] -> ShowS
show :: DescribeRegionSettings -> String
$cshow :: DescribeRegionSettings -> String
showsPrec :: Int -> DescribeRegionSettings -> ShowS
$cshowsPrec :: Int -> DescribeRegionSettings -> ShowS
Prelude.Show, forall x. Rep DescribeRegionSettings x -> DescribeRegionSettings
forall x. DescribeRegionSettings -> Rep DescribeRegionSettings x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DescribeRegionSettings x -> DescribeRegionSettings
$cfrom :: forall x. DescribeRegionSettings -> Rep DescribeRegionSettings x
Prelude.Generic)
newDescribeRegionSettings ::
DescribeRegionSettings
newDescribeRegionSettings :: DescribeRegionSettings
newDescribeRegionSettings = DescribeRegionSettings
DescribeRegionSettings'
instance Core.AWSRequest DescribeRegionSettings where
type
AWSResponse DescribeRegionSettings =
DescribeRegionSettingsResponse
request :: (Service -> Service)
-> DescribeRegionSettings -> Request DescribeRegionSettings
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 DescribeRegionSettings
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse DescribeRegionSettings)))
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 (HashMap Text Bool)
-> Maybe (HashMap Text Bool)
-> Int
-> DescribeRegionSettingsResponse
DescribeRegionSettingsResponse'
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
"ResourceTypeManagementPreference"
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
"ResourceTypeOptInPreference"
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.<*> (forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
)
instance Prelude.Hashable DescribeRegionSettings where
hashWithSalt :: Int -> DescribeRegionSettings -> Int
hashWithSalt Int
_salt DescribeRegionSettings
_ =
Int
_salt forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` ()
instance Prelude.NFData DescribeRegionSettings where
rnf :: DescribeRegionSettings -> ()
rnf DescribeRegionSettings
_ = ()
instance Data.ToHeaders DescribeRegionSettings where
toHeaders :: DescribeRegionSettings -> 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.1" ::
Prelude.ByteString
)
]
)
instance Data.ToPath DescribeRegionSettings where
toPath :: DescribeRegionSettings -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/account-settings"
instance Data.ToQuery DescribeRegionSettings where
toQuery :: DescribeRegionSettings -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DescribeRegionSettingsResponse = DescribeRegionSettingsResponse'
{
DescribeRegionSettingsResponse -> Maybe (HashMap Text Bool)
resourceTypeManagementPreference :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Bool),
DescribeRegionSettingsResponse -> Maybe (HashMap Text Bool)
resourceTypeOptInPreference :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Bool),
DescribeRegionSettingsResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DescribeRegionSettingsResponse
-> DescribeRegionSettingsResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeRegionSettingsResponse
-> DescribeRegionSettingsResponse -> Bool
$c/= :: DescribeRegionSettingsResponse
-> DescribeRegionSettingsResponse -> Bool
== :: DescribeRegionSettingsResponse
-> DescribeRegionSettingsResponse -> Bool
$c== :: DescribeRegionSettingsResponse
-> DescribeRegionSettingsResponse -> Bool
Prelude.Eq, ReadPrec [DescribeRegionSettingsResponse]
ReadPrec DescribeRegionSettingsResponse
Int -> ReadS DescribeRegionSettingsResponse
ReadS [DescribeRegionSettingsResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeRegionSettingsResponse]
$creadListPrec :: ReadPrec [DescribeRegionSettingsResponse]
readPrec :: ReadPrec DescribeRegionSettingsResponse
$creadPrec :: ReadPrec DescribeRegionSettingsResponse
readList :: ReadS [DescribeRegionSettingsResponse]
$creadList :: ReadS [DescribeRegionSettingsResponse]
readsPrec :: Int -> ReadS DescribeRegionSettingsResponse
$creadsPrec :: Int -> ReadS DescribeRegionSettingsResponse
Prelude.Read, Int -> DescribeRegionSettingsResponse -> ShowS
[DescribeRegionSettingsResponse] -> ShowS
DescribeRegionSettingsResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeRegionSettingsResponse] -> ShowS
$cshowList :: [DescribeRegionSettingsResponse] -> ShowS
show :: DescribeRegionSettingsResponse -> String
$cshow :: DescribeRegionSettingsResponse -> String
showsPrec :: Int -> DescribeRegionSettingsResponse -> ShowS
$cshowsPrec :: Int -> DescribeRegionSettingsResponse -> ShowS
Prelude.Show, forall x.
Rep DescribeRegionSettingsResponse x
-> DescribeRegionSettingsResponse
forall x.
DescribeRegionSettingsResponse
-> Rep DescribeRegionSettingsResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeRegionSettingsResponse x
-> DescribeRegionSettingsResponse
$cfrom :: forall x.
DescribeRegionSettingsResponse
-> Rep DescribeRegionSettingsResponse x
Prelude.Generic)
newDescribeRegionSettingsResponse ::
Prelude.Int ->
DescribeRegionSettingsResponse
newDescribeRegionSettingsResponse :: Int -> DescribeRegionSettingsResponse
newDescribeRegionSettingsResponse Int
pHttpStatus_ =
DescribeRegionSettingsResponse'
{ $sel:resourceTypeManagementPreference:DescribeRegionSettingsResponse' :: Maybe (HashMap Text Bool)
resourceTypeManagementPreference =
forall a. Maybe a
Prelude.Nothing,
$sel:resourceTypeOptInPreference:DescribeRegionSettingsResponse' :: Maybe (HashMap Text Bool)
resourceTypeOptInPreference =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:DescribeRegionSettingsResponse' :: Int
httpStatus = Int
pHttpStatus_
}
describeRegionSettingsResponse_resourceTypeManagementPreference :: Lens.Lens' DescribeRegionSettingsResponse (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Bool))
describeRegionSettingsResponse_resourceTypeManagementPreference :: Lens' DescribeRegionSettingsResponse (Maybe (HashMap Text Bool))
describeRegionSettingsResponse_resourceTypeManagementPreference = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeRegionSettingsResponse' {Maybe (HashMap Text Bool)
resourceTypeManagementPreference :: Maybe (HashMap Text Bool)
$sel:resourceTypeManagementPreference:DescribeRegionSettingsResponse' :: DescribeRegionSettingsResponse -> Maybe (HashMap Text Bool)
resourceTypeManagementPreference} -> Maybe (HashMap Text Bool)
resourceTypeManagementPreference) (\s :: DescribeRegionSettingsResponse
s@DescribeRegionSettingsResponse' {} Maybe (HashMap Text Bool)
a -> DescribeRegionSettingsResponse
s {$sel:resourceTypeManagementPreference:DescribeRegionSettingsResponse' :: Maybe (HashMap Text Bool)
resourceTypeManagementPreference = Maybe (HashMap Text Bool)
a} :: DescribeRegionSettingsResponse) 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
describeRegionSettingsResponse_resourceTypeOptInPreference :: Lens.Lens' DescribeRegionSettingsResponse (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Bool))
describeRegionSettingsResponse_resourceTypeOptInPreference :: Lens' DescribeRegionSettingsResponse (Maybe (HashMap Text Bool))
describeRegionSettingsResponse_resourceTypeOptInPreference = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeRegionSettingsResponse' {Maybe (HashMap Text Bool)
resourceTypeOptInPreference :: Maybe (HashMap Text Bool)
$sel:resourceTypeOptInPreference:DescribeRegionSettingsResponse' :: DescribeRegionSettingsResponse -> Maybe (HashMap Text Bool)
resourceTypeOptInPreference} -> Maybe (HashMap Text Bool)
resourceTypeOptInPreference) (\s :: DescribeRegionSettingsResponse
s@DescribeRegionSettingsResponse' {} Maybe (HashMap Text Bool)
a -> DescribeRegionSettingsResponse
s {$sel:resourceTypeOptInPreference:DescribeRegionSettingsResponse' :: Maybe (HashMap Text Bool)
resourceTypeOptInPreference = Maybe (HashMap Text Bool)
a} :: DescribeRegionSettingsResponse) 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
describeRegionSettingsResponse_httpStatus :: Lens.Lens' DescribeRegionSettingsResponse Prelude.Int
describeRegionSettingsResponse_httpStatus :: Lens' DescribeRegionSettingsResponse Int
describeRegionSettingsResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeRegionSettingsResponse' {Int
httpStatus :: Int
$sel:httpStatus:DescribeRegionSettingsResponse' :: DescribeRegionSettingsResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DescribeRegionSettingsResponse
s@DescribeRegionSettingsResponse' {} Int
a -> DescribeRegionSettingsResponse
s {$sel:httpStatus:DescribeRegionSettingsResponse' :: Int
httpStatus = Int
a} :: DescribeRegionSettingsResponse)
instance
Prelude.NFData
DescribeRegionSettingsResponse
where
rnf :: DescribeRegionSettingsResponse -> ()
rnf DescribeRegionSettingsResponse' {Int
Maybe (HashMap Text Bool)
httpStatus :: Int
resourceTypeOptInPreference :: Maybe (HashMap Text Bool)
resourceTypeManagementPreference :: Maybe (HashMap Text Bool)
$sel:httpStatus:DescribeRegionSettingsResponse' :: DescribeRegionSettingsResponse -> Int
$sel:resourceTypeOptInPreference:DescribeRegionSettingsResponse' :: DescribeRegionSettingsResponse -> Maybe (HashMap Text Bool)
$sel:resourceTypeManagementPreference:DescribeRegionSettingsResponse' :: DescribeRegionSettingsResponse -> Maybe (HashMap Text Bool)
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe (HashMap Text Bool)
resourceTypeManagementPreference
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe (HashMap Text Bool)
resourceTypeOptInPreference
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus