{-# 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.MigrationHubConfig.DescribeHomeRegionControls
(
DescribeHomeRegionControls (..),
newDescribeHomeRegionControls,
describeHomeRegionControls_controlId,
describeHomeRegionControls_homeRegion,
describeHomeRegionControls_maxResults,
describeHomeRegionControls_nextToken,
describeHomeRegionControls_target,
DescribeHomeRegionControlsResponse (..),
newDescribeHomeRegionControlsResponse,
describeHomeRegionControlsResponse_homeRegionControls,
describeHomeRegionControlsResponse_nextToken,
describeHomeRegionControlsResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.MigrationHubConfig.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data DescribeHomeRegionControls = DescribeHomeRegionControls'
{
DescribeHomeRegionControls -> Maybe Text
controlId :: Prelude.Maybe Prelude.Text,
DescribeHomeRegionControls -> Maybe Text
homeRegion :: Prelude.Maybe Prelude.Text,
DescribeHomeRegionControls -> Maybe Natural
maxResults :: Prelude.Maybe Prelude.Natural,
DescribeHomeRegionControls -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
DescribeHomeRegionControls -> Maybe Target
target :: Prelude.Maybe Target
}
deriving (DescribeHomeRegionControls -> DescribeHomeRegionControls -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeHomeRegionControls -> DescribeHomeRegionControls -> Bool
$c/= :: DescribeHomeRegionControls -> DescribeHomeRegionControls -> Bool
== :: DescribeHomeRegionControls -> DescribeHomeRegionControls -> Bool
$c== :: DescribeHomeRegionControls -> DescribeHomeRegionControls -> Bool
Prelude.Eq, ReadPrec [DescribeHomeRegionControls]
ReadPrec DescribeHomeRegionControls
Int -> ReadS DescribeHomeRegionControls
ReadS [DescribeHomeRegionControls]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeHomeRegionControls]
$creadListPrec :: ReadPrec [DescribeHomeRegionControls]
readPrec :: ReadPrec DescribeHomeRegionControls
$creadPrec :: ReadPrec DescribeHomeRegionControls
readList :: ReadS [DescribeHomeRegionControls]
$creadList :: ReadS [DescribeHomeRegionControls]
readsPrec :: Int -> ReadS DescribeHomeRegionControls
$creadsPrec :: Int -> ReadS DescribeHomeRegionControls
Prelude.Read, Int -> DescribeHomeRegionControls -> ShowS
[DescribeHomeRegionControls] -> ShowS
DescribeHomeRegionControls -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeHomeRegionControls] -> ShowS
$cshowList :: [DescribeHomeRegionControls] -> ShowS
show :: DescribeHomeRegionControls -> String
$cshow :: DescribeHomeRegionControls -> String
showsPrec :: Int -> DescribeHomeRegionControls -> ShowS
$cshowsPrec :: Int -> DescribeHomeRegionControls -> ShowS
Prelude.Show, forall x.
Rep DescribeHomeRegionControls x -> DescribeHomeRegionControls
forall x.
DescribeHomeRegionControls -> Rep DescribeHomeRegionControls x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeHomeRegionControls x -> DescribeHomeRegionControls
$cfrom :: forall x.
DescribeHomeRegionControls -> Rep DescribeHomeRegionControls x
Prelude.Generic)
newDescribeHomeRegionControls ::
DescribeHomeRegionControls
newDescribeHomeRegionControls :: DescribeHomeRegionControls
newDescribeHomeRegionControls =
DescribeHomeRegionControls'
{ $sel:controlId:DescribeHomeRegionControls' :: Maybe Text
controlId =
forall a. Maybe a
Prelude.Nothing,
$sel:homeRegion:DescribeHomeRegionControls' :: Maybe Text
homeRegion = forall a. Maybe a
Prelude.Nothing,
$sel:maxResults:DescribeHomeRegionControls' :: Maybe Natural
maxResults = forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:DescribeHomeRegionControls' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
$sel:target:DescribeHomeRegionControls' :: Maybe Target
target = forall a. Maybe a
Prelude.Nothing
}
describeHomeRegionControls_controlId :: Lens.Lens' DescribeHomeRegionControls (Prelude.Maybe Prelude.Text)
describeHomeRegionControls_controlId :: Lens' DescribeHomeRegionControls (Maybe Text)
describeHomeRegionControls_controlId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeHomeRegionControls' {Maybe Text
controlId :: Maybe Text
$sel:controlId:DescribeHomeRegionControls' :: DescribeHomeRegionControls -> Maybe Text
controlId} -> Maybe Text
controlId) (\s :: DescribeHomeRegionControls
s@DescribeHomeRegionControls' {} Maybe Text
a -> DescribeHomeRegionControls
s {$sel:controlId:DescribeHomeRegionControls' :: Maybe Text
controlId = Maybe Text
a} :: DescribeHomeRegionControls)
describeHomeRegionControls_homeRegion :: Lens.Lens' DescribeHomeRegionControls (Prelude.Maybe Prelude.Text)
describeHomeRegionControls_homeRegion :: Lens' DescribeHomeRegionControls (Maybe Text)
describeHomeRegionControls_homeRegion = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeHomeRegionControls' {Maybe Text
homeRegion :: Maybe Text
$sel:homeRegion:DescribeHomeRegionControls' :: DescribeHomeRegionControls -> Maybe Text
homeRegion} -> Maybe Text
homeRegion) (\s :: DescribeHomeRegionControls
s@DescribeHomeRegionControls' {} Maybe Text
a -> DescribeHomeRegionControls
s {$sel:homeRegion:DescribeHomeRegionControls' :: Maybe Text
homeRegion = Maybe Text
a} :: DescribeHomeRegionControls)
describeHomeRegionControls_maxResults :: Lens.Lens' DescribeHomeRegionControls (Prelude.Maybe Prelude.Natural)
describeHomeRegionControls_maxResults :: Lens' DescribeHomeRegionControls (Maybe Natural)
describeHomeRegionControls_maxResults = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeHomeRegionControls' {Maybe Natural
maxResults :: Maybe Natural
$sel:maxResults:DescribeHomeRegionControls' :: DescribeHomeRegionControls -> Maybe Natural
maxResults} -> Maybe Natural
maxResults) (\s :: DescribeHomeRegionControls
s@DescribeHomeRegionControls' {} Maybe Natural
a -> DescribeHomeRegionControls
s {$sel:maxResults:DescribeHomeRegionControls' :: Maybe Natural
maxResults = Maybe Natural
a} :: DescribeHomeRegionControls)
describeHomeRegionControls_nextToken :: Lens.Lens' DescribeHomeRegionControls (Prelude.Maybe Prelude.Text)
describeHomeRegionControls_nextToken :: Lens' DescribeHomeRegionControls (Maybe Text)
describeHomeRegionControls_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeHomeRegionControls' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:DescribeHomeRegionControls' :: DescribeHomeRegionControls -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: DescribeHomeRegionControls
s@DescribeHomeRegionControls' {} Maybe Text
a -> DescribeHomeRegionControls
s {$sel:nextToken:DescribeHomeRegionControls' :: Maybe Text
nextToken = Maybe Text
a} :: DescribeHomeRegionControls)
describeHomeRegionControls_target :: Lens.Lens' DescribeHomeRegionControls (Prelude.Maybe Target)
describeHomeRegionControls_target :: Lens' DescribeHomeRegionControls (Maybe Target)
describeHomeRegionControls_target = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeHomeRegionControls' {Maybe Target
target :: Maybe Target
$sel:target:DescribeHomeRegionControls' :: DescribeHomeRegionControls -> Maybe Target
target} -> Maybe Target
target) (\s :: DescribeHomeRegionControls
s@DescribeHomeRegionControls' {} Maybe Target
a -> DescribeHomeRegionControls
s {$sel:target:DescribeHomeRegionControls' :: Maybe Target
target = Maybe Target
a} :: DescribeHomeRegionControls)
instance Core.AWSRequest DescribeHomeRegionControls where
type
AWSResponse DescribeHomeRegionControls =
DescribeHomeRegionControlsResponse
request :: (Service -> Service)
-> DescribeHomeRegionControls -> Request DescribeHomeRegionControls
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 DescribeHomeRegionControls
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse DescribeHomeRegionControls)))
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 [HomeRegionControl]
-> Maybe Text -> Int -> DescribeHomeRegionControlsResponse
DescribeHomeRegionControlsResponse'
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
"HomeRegionControls"
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
"NextToken")
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 DescribeHomeRegionControls where
hashWithSalt :: Int -> DescribeHomeRegionControls -> Int
hashWithSalt Int
_salt DescribeHomeRegionControls' {Maybe Natural
Maybe Text
Maybe Target
target :: Maybe Target
nextToken :: Maybe Text
maxResults :: Maybe Natural
homeRegion :: Maybe Text
controlId :: Maybe Text
$sel:target:DescribeHomeRegionControls' :: DescribeHomeRegionControls -> Maybe Target
$sel:nextToken:DescribeHomeRegionControls' :: DescribeHomeRegionControls -> Maybe Text
$sel:maxResults:DescribeHomeRegionControls' :: DescribeHomeRegionControls -> Maybe Natural
$sel:homeRegion:DescribeHomeRegionControls' :: DescribeHomeRegionControls -> Maybe Text
$sel:controlId:DescribeHomeRegionControls' :: DescribeHomeRegionControls -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
controlId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
homeRegion
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Natural
maxResults
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
nextToken
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Target
target
instance Prelude.NFData DescribeHomeRegionControls where
rnf :: DescribeHomeRegionControls -> ()
rnf DescribeHomeRegionControls' {Maybe Natural
Maybe Text
Maybe Target
target :: Maybe Target
nextToken :: Maybe Text
maxResults :: Maybe Natural
homeRegion :: Maybe Text
controlId :: Maybe Text
$sel:target:DescribeHomeRegionControls' :: DescribeHomeRegionControls -> Maybe Target
$sel:nextToken:DescribeHomeRegionControls' :: DescribeHomeRegionControls -> Maybe Text
$sel:maxResults:DescribeHomeRegionControls' :: DescribeHomeRegionControls -> Maybe Natural
$sel:homeRegion:DescribeHomeRegionControls' :: DescribeHomeRegionControls -> Maybe Text
$sel:controlId:DescribeHomeRegionControls' :: DescribeHomeRegionControls -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
controlId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
homeRegion
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Natural
maxResults
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
nextToken
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Target
target
instance Data.ToHeaders DescribeHomeRegionControls where
toHeaders :: DescribeHomeRegionControls -> 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
"AWSMigrationHubMultiAccountService.DescribeHomeRegionControls" ::
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 DescribeHomeRegionControls where
toJSON :: DescribeHomeRegionControls -> Value
toJSON DescribeHomeRegionControls' {Maybe Natural
Maybe Text
Maybe Target
target :: Maybe Target
nextToken :: Maybe Text
maxResults :: Maybe Natural
homeRegion :: Maybe Text
controlId :: Maybe Text
$sel:target:DescribeHomeRegionControls' :: DescribeHomeRegionControls -> Maybe Target
$sel:nextToken:DescribeHomeRegionControls' :: DescribeHomeRegionControls -> Maybe Text
$sel:maxResults:DescribeHomeRegionControls' :: DescribeHomeRegionControls -> Maybe Natural
$sel:homeRegion:DescribeHomeRegionControls' :: DescribeHomeRegionControls -> Maybe Text
$sel:controlId:DescribeHomeRegionControls' :: DescribeHomeRegionControls -> Maybe Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"ControlId" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
controlId,
(Key
"HomeRegion" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
homeRegion,
(Key
"MaxResults" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Natural
maxResults,
(Key
"NextToken" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
nextToken,
(Key
"Target" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Target
target
]
)
instance Data.ToPath DescribeHomeRegionControls where
toPath :: DescribeHomeRegionControls -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery DescribeHomeRegionControls where
toQuery :: DescribeHomeRegionControls -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DescribeHomeRegionControlsResponse = DescribeHomeRegionControlsResponse'
{
DescribeHomeRegionControlsResponse -> Maybe [HomeRegionControl]
homeRegionControls :: Prelude.Maybe [HomeRegionControl],
DescribeHomeRegionControlsResponse -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
DescribeHomeRegionControlsResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DescribeHomeRegionControlsResponse
-> DescribeHomeRegionControlsResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeHomeRegionControlsResponse
-> DescribeHomeRegionControlsResponse -> Bool
$c/= :: DescribeHomeRegionControlsResponse
-> DescribeHomeRegionControlsResponse -> Bool
== :: DescribeHomeRegionControlsResponse
-> DescribeHomeRegionControlsResponse -> Bool
$c== :: DescribeHomeRegionControlsResponse
-> DescribeHomeRegionControlsResponse -> Bool
Prelude.Eq, ReadPrec [DescribeHomeRegionControlsResponse]
ReadPrec DescribeHomeRegionControlsResponse
Int -> ReadS DescribeHomeRegionControlsResponse
ReadS [DescribeHomeRegionControlsResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeHomeRegionControlsResponse]
$creadListPrec :: ReadPrec [DescribeHomeRegionControlsResponse]
readPrec :: ReadPrec DescribeHomeRegionControlsResponse
$creadPrec :: ReadPrec DescribeHomeRegionControlsResponse
readList :: ReadS [DescribeHomeRegionControlsResponse]
$creadList :: ReadS [DescribeHomeRegionControlsResponse]
readsPrec :: Int -> ReadS DescribeHomeRegionControlsResponse
$creadsPrec :: Int -> ReadS DescribeHomeRegionControlsResponse
Prelude.Read, Int -> DescribeHomeRegionControlsResponse -> ShowS
[DescribeHomeRegionControlsResponse] -> ShowS
DescribeHomeRegionControlsResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeHomeRegionControlsResponse] -> ShowS
$cshowList :: [DescribeHomeRegionControlsResponse] -> ShowS
show :: DescribeHomeRegionControlsResponse -> String
$cshow :: DescribeHomeRegionControlsResponse -> String
showsPrec :: Int -> DescribeHomeRegionControlsResponse -> ShowS
$cshowsPrec :: Int -> DescribeHomeRegionControlsResponse -> ShowS
Prelude.Show, forall x.
Rep DescribeHomeRegionControlsResponse x
-> DescribeHomeRegionControlsResponse
forall x.
DescribeHomeRegionControlsResponse
-> Rep DescribeHomeRegionControlsResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeHomeRegionControlsResponse x
-> DescribeHomeRegionControlsResponse
$cfrom :: forall x.
DescribeHomeRegionControlsResponse
-> Rep DescribeHomeRegionControlsResponse x
Prelude.Generic)
newDescribeHomeRegionControlsResponse ::
Prelude.Int ->
DescribeHomeRegionControlsResponse
newDescribeHomeRegionControlsResponse :: Int -> DescribeHomeRegionControlsResponse
newDescribeHomeRegionControlsResponse Int
pHttpStatus_ =
DescribeHomeRegionControlsResponse'
{ $sel:homeRegionControls:DescribeHomeRegionControlsResponse' :: Maybe [HomeRegionControl]
homeRegionControls =
forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:DescribeHomeRegionControlsResponse' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:DescribeHomeRegionControlsResponse' :: Int
httpStatus = Int
pHttpStatus_
}
describeHomeRegionControlsResponse_homeRegionControls :: Lens.Lens' DescribeHomeRegionControlsResponse (Prelude.Maybe [HomeRegionControl])
describeHomeRegionControlsResponse_homeRegionControls :: Lens'
DescribeHomeRegionControlsResponse (Maybe [HomeRegionControl])
describeHomeRegionControlsResponse_homeRegionControls = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeHomeRegionControlsResponse' {Maybe [HomeRegionControl]
homeRegionControls :: Maybe [HomeRegionControl]
$sel:homeRegionControls:DescribeHomeRegionControlsResponse' :: DescribeHomeRegionControlsResponse -> Maybe [HomeRegionControl]
homeRegionControls} -> Maybe [HomeRegionControl]
homeRegionControls) (\s :: DescribeHomeRegionControlsResponse
s@DescribeHomeRegionControlsResponse' {} Maybe [HomeRegionControl]
a -> DescribeHomeRegionControlsResponse
s {$sel:homeRegionControls:DescribeHomeRegionControlsResponse' :: Maybe [HomeRegionControl]
homeRegionControls = Maybe [HomeRegionControl]
a} :: DescribeHomeRegionControlsResponse) 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
describeHomeRegionControlsResponse_nextToken :: Lens.Lens' DescribeHomeRegionControlsResponse (Prelude.Maybe Prelude.Text)
describeHomeRegionControlsResponse_nextToken :: Lens' DescribeHomeRegionControlsResponse (Maybe Text)
describeHomeRegionControlsResponse_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeHomeRegionControlsResponse' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:DescribeHomeRegionControlsResponse' :: DescribeHomeRegionControlsResponse -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: DescribeHomeRegionControlsResponse
s@DescribeHomeRegionControlsResponse' {} Maybe Text
a -> DescribeHomeRegionControlsResponse
s {$sel:nextToken:DescribeHomeRegionControlsResponse' :: Maybe Text
nextToken = Maybe Text
a} :: DescribeHomeRegionControlsResponse)
describeHomeRegionControlsResponse_httpStatus :: Lens.Lens' DescribeHomeRegionControlsResponse Prelude.Int
describeHomeRegionControlsResponse_httpStatus :: Lens' DescribeHomeRegionControlsResponse Int
describeHomeRegionControlsResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeHomeRegionControlsResponse' {Int
httpStatus :: Int
$sel:httpStatus:DescribeHomeRegionControlsResponse' :: DescribeHomeRegionControlsResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DescribeHomeRegionControlsResponse
s@DescribeHomeRegionControlsResponse' {} Int
a -> DescribeHomeRegionControlsResponse
s {$sel:httpStatus:DescribeHomeRegionControlsResponse' :: Int
httpStatus = Int
a} :: DescribeHomeRegionControlsResponse)
instance
Prelude.NFData
DescribeHomeRegionControlsResponse
where
rnf :: DescribeHomeRegionControlsResponse -> ()
rnf DescribeHomeRegionControlsResponse' {Int
Maybe [HomeRegionControl]
Maybe Text
httpStatus :: Int
nextToken :: Maybe Text
homeRegionControls :: Maybe [HomeRegionControl]
$sel:httpStatus:DescribeHomeRegionControlsResponse' :: DescribeHomeRegionControlsResponse -> Int
$sel:nextToken:DescribeHomeRegionControlsResponse' :: DescribeHomeRegionControlsResponse -> Maybe Text
$sel:homeRegionControls:DescribeHomeRegionControlsResponse' :: DescribeHomeRegionControlsResponse -> Maybe [HomeRegionControl]
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe [HomeRegionControl]
homeRegionControls
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
nextToken
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus