{-# 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.WorkSpaces.ListAvailableManagementCidrRanges
(
ListAvailableManagementCidrRanges (..),
newListAvailableManagementCidrRanges,
listAvailableManagementCidrRanges_maxResults,
listAvailableManagementCidrRanges_nextToken,
listAvailableManagementCidrRanges_managementCidrRangeConstraint,
ListAvailableManagementCidrRangesResponse (..),
newListAvailableManagementCidrRangesResponse,
listAvailableManagementCidrRangesResponse_managementCidrRanges,
listAvailableManagementCidrRangesResponse_nextToken,
listAvailableManagementCidrRangesResponse_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.WorkSpaces.Types
data ListAvailableManagementCidrRanges = ListAvailableManagementCidrRanges'
{
ListAvailableManagementCidrRanges -> Maybe Natural
maxResults :: Prelude.Maybe Prelude.Natural,
ListAvailableManagementCidrRanges -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
ListAvailableManagementCidrRanges -> Text
managementCidrRangeConstraint :: Prelude.Text
}
deriving (ListAvailableManagementCidrRanges
-> ListAvailableManagementCidrRanges -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListAvailableManagementCidrRanges
-> ListAvailableManagementCidrRanges -> Bool
$c/= :: ListAvailableManagementCidrRanges
-> ListAvailableManagementCidrRanges -> Bool
== :: ListAvailableManagementCidrRanges
-> ListAvailableManagementCidrRanges -> Bool
$c== :: ListAvailableManagementCidrRanges
-> ListAvailableManagementCidrRanges -> Bool
Prelude.Eq, ReadPrec [ListAvailableManagementCidrRanges]
ReadPrec ListAvailableManagementCidrRanges
Int -> ReadS ListAvailableManagementCidrRanges
ReadS [ListAvailableManagementCidrRanges]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListAvailableManagementCidrRanges]
$creadListPrec :: ReadPrec [ListAvailableManagementCidrRanges]
readPrec :: ReadPrec ListAvailableManagementCidrRanges
$creadPrec :: ReadPrec ListAvailableManagementCidrRanges
readList :: ReadS [ListAvailableManagementCidrRanges]
$creadList :: ReadS [ListAvailableManagementCidrRanges]
readsPrec :: Int -> ReadS ListAvailableManagementCidrRanges
$creadsPrec :: Int -> ReadS ListAvailableManagementCidrRanges
Prelude.Read, Int -> ListAvailableManagementCidrRanges -> ShowS
[ListAvailableManagementCidrRanges] -> ShowS
ListAvailableManagementCidrRanges -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListAvailableManagementCidrRanges] -> ShowS
$cshowList :: [ListAvailableManagementCidrRanges] -> ShowS
show :: ListAvailableManagementCidrRanges -> String
$cshow :: ListAvailableManagementCidrRanges -> String
showsPrec :: Int -> ListAvailableManagementCidrRanges -> ShowS
$cshowsPrec :: Int -> ListAvailableManagementCidrRanges -> ShowS
Prelude.Show, forall x.
Rep ListAvailableManagementCidrRanges x
-> ListAvailableManagementCidrRanges
forall x.
ListAvailableManagementCidrRanges
-> Rep ListAvailableManagementCidrRanges x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep ListAvailableManagementCidrRanges x
-> ListAvailableManagementCidrRanges
$cfrom :: forall x.
ListAvailableManagementCidrRanges
-> Rep ListAvailableManagementCidrRanges x
Prelude.Generic)
newListAvailableManagementCidrRanges ::
Prelude.Text ->
ListAvailableManagementCidrRanges
newListAvailableManagementCidrRanges :: Text -> ListAvailableManagementCidrRanges
newListAvailableManagementCidrRanges
Text
pManagementCidrRangeConstraint_ =
ListAvailableManagementCidrRanges'
{ $sel:maxResults:ListAvailableManagementCidrRanges' :: Maybe Natural
maxResults =
forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:ListAvailableManagementCidrRanges' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
$sel:managementCidrRangeConstraint:ListAvailableManagementCidrRanges' :: Text
managementCidrRangeConstraint =
Text
pManagementCidrRangeConstraint_
}
listAvailableManagementCidrRanges_maxResults :: Lens.Lens' ListAvailableManagementCidrRanges (Prelude.Maybe Prelude.Natural)
listAvailableManagementCidrRanges_maxResults :: Lens' ListAvailableManagementCidrRanges (Maybe Natural)
listAvailableManagementCidrRanges_maxResults = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListAvailableManagementCidrRanges' {Maybe Natural
maxResults :: Maybe Natural
$sel:maxResults:ListAvailableManagementCidrRanges' :: ListAvailableManagementCidrRanges -> Maybe Natural
maxResults} -> Maybe Natural
maxResults) (\s :: ListAvailableManagementCidrRanges
s@ListAvailableManagementCidrRanges' {} Maybe Natural
a -> ListAvailableManagementCidrRanges
s {$sel:maxResults:ListAvailableManagementCidrRanges' :: Maybe Natural
maxResults = Maybe Natural
a} :: ListAvailableManagementCidrRanges)
listAvailableManagementCidrRanges_nextToken :: Lens.Lens' ListAvailableManagementCidrRanges (Prelude.Maybe Prelude.Text)
listAvailableManagementCidrRanges_nextToken :: Lens' ListAvailableManagementCidrRanges (Maybe Text)
listAvailableManagementCidrRanges_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListAvailableManagementCidrRanges' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:ListAvailableManagementCidrRanges' :: ListAvailableManagementCidrRanges -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: ListAvailableManagementCidrRanges
s@ListAvailableManagementCidrRanges' {} Maybe Text
a -> ListAvailableManagementCidrRanges
s {$sel:nextToken:ListAvailableManagementCidrRanges' :: Maybe Text
nextToken = Maybe Text
a} :: ListAvailableManagementCidrRanges)
listAvailableManagementCidrRanges_managementCidrRangeConstraint :: Lens.Lens' ListAvailableManagementCidrRanges Prelude.Text
listAvailableManagementCidrRanges_managementCidrRangeConstraint :: Lens' ListAvailableManagementCidrRanges Text
listAvailableManagementCidrRanges_managementCidrRangeConstraint = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListAvailableManagementCidrRanges' {Text
managementCidrRangeConstraint :: Text
$sel:managementCidrRangeConstraint:ListAvailableManagementCidrRanges' :: ListAvailableManagementCidrRanges -> Text
managementCidrRangeConstraint} -> Text
managementCidrRangeConstraint) (\s :: ListAvailableManagementCidrRanges
s@ListAvailableManagementCidrRanges' {} Text
a -> ListAvailableManagementCidrRanges
s {$sel:managementCidrRangeConstraint:ListAvailableManagementCidrRanges' :: Text
managementCidrRangeConstraint = Text
a} :: ListAvailableManagementCidrRanges)
instance
Core.AWSPager
ListAvailableManagementCidrRanges
where
page :: ListAvailableManagementCidrRanges
-> AWSResponse ListAvailableManagementCidrRanges
-> Maybe ListAvailableManagementCidrRanges
page ListAvailableManagementCidrRanges
rq AWSResponse ListAvailableManagementCidrRanges
rs
| forall a. AWSTruncated a => a -> Bool
Core.stop
( AWSResponse ListAvailableManagementCidrRanges
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' ListAvailableManagementCidrRangesResponse (Maybe Text)
listAvailableManagementCidrRangesResponse_nextToken
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
) =
forall a. Maybe a
Prelude.Nothing
| forall a. AWSTruncated a => a -> Bool
Core.stop
( AWSResponse ListAvailableManagementCidrRanges
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' ListAvailableManagementCidrRangesResponse (Maybe [Text])
listAvailableManagementCidrRangesResponse_managementCidrRanges
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
) =
forall a. Maybe a
Prelude.Nothing
| Bool
Prelude.otherwise =
forall a. a -> Maybe a
Prelude.Just
forall a b. (a -> b) -> a -> b
Prelude.$ ListAvailableManagementCidrRanges
rq
forall a b. a -> (a -> b) -> b
Prelude.& Lens' ListAvailableManagementCidrRanges (Maybe Text)
listAvailableManagementCidrRanges_nextToken
forall s t a b. ASetter s t a b -> b -> s -> t
Lens..~ AWSResponse ListAvailableManagementCidrRanges
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' ListAvailableManagementCidrRangesResponse (Maybe Text)
listAvailableManagementCidrRangesResponse_nextToken
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
instance
Core.AWSRequest
ListAvailableManagementCidrRanges
where
type
AWSResponse ListAvailableManagementCidrRanges =
ListAvailableManagementCidrRangesResponse
request :: (Service -> Service)
-> ListAvailableManagementCidrRanges
-> Request ListAvailableManagementCidrRanges
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 ListAvailableManagementCidrRanges
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse (AWSResponse ListAvailableManagementCidrRanges)))
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 -> ListAvailableManagementCidrRangesResponse
ListAvailableManagementCidrRangesResponse'
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
"ManagementCidrRanges"
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
ListAvailableManagementCidrRanges
where
hashWithSalt :: Int -> ListAvailableManagementCidrRanges -> Int
hashWithSalt
Int
_salt
ListAvailableManagementCidrRanges' {Maybe Natural
Maybe Text
Text
managementCidrRangeConstraint :: Text
nextToken :: Maybe Text
maxResults :: Maybe Natural
$sel:managementCidrRangeConstraint:ListAvailableManagementCidrRanges' :: ListAvailableManagementCidrRanges -> Text
$sel:nextToken:ListAvailableManagementCidrRanges' :: ListAvailableManagementCidrRanges -> Maybe Text
$sel:maxResults:ListAvailableManagementCidrRanges' :: ListAvailableManagementCidrRanges -> Maybe Natural
..} =
Int
_salt
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` Text
managementCidrRangeConstraint
instance
Prelude.NFData
ListAvailableManagementCidrRanges
where
rnf :: ListAvailableManagementCidrRanges -> ()
rnf ListAvailableManagementCidrRanges' {Maybe Natural
Maybe Text
Text
managementCidrRangeConstraint :: Text
nextToken :: Maybe Text
maxResults :: Maybe Natural
$sel:managementCidrRangeConstraint:ListAvailableManagementCidrRanges' :: ListAvailableManagementCidrRanges -> Text
$sel:nextToken:ListAvailableManagementCidrRanges' :: ListAvailableManagementCidrRanges -> Maybe Text
$sel:maxResults:ListAvailableManagementCidrRanges' :: ListAvailableManagementCidrRanges -> Maybe Natural
..} =
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 Text
managementCidrRangeConstraint
instance
Data.ToHeaders
ListAvailableManagementCidrRanges
where
toHeaders :: ListAvailableManagementCidrRanges -> 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
"WorkspacesService.ListAvailableManagementCidrRanges" ::
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
ListAvailableManagementCidrRanges
where
toJSON :: ListAvailableManagementCidrRanges -> Value
toJSON ListAvailableManagementCidrRanges' {Maybe Natural
Maybe Text
Text
managementCidrRangeConstraint :: Text
nextToken :: Maybe Text
maxResults :: Maybe Natural
$sel:managementCidrRangeConstraint:ListAvailableManagementCidrRanges' :: ListAvailableManagementCidrRanges -> Text
$sel:nextToken:ListAvailableManagementCidrRanges' :: ListAvailableManagementCidrRanges -> Maybe Text
$sel:maxResults:ListAvailableManagementCidrRanges' :: ListAvailableManagementCidrRanges -> Maybe Natural
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (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,
forall a. a -> Maybe a
Prelude.Just
( Key
"ManagementCidrRangeConstraint"
forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
managementCidrRangeConstraint
)
]
)
instance
Data.ToPath
ListAvailableManagementCidrRanges
where
toPath :: ListAvailableManagementCidrRanges -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance
Data.ToQuery
ListAvailableManagementCidrRanges
where
toQuery :: ListAvailableManagementCidrRanges -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data ListAvailableManagementCidrRangesResponse = ListAvailableManagementCidrRangesResponse'
{
ListAvailableManagementCidrRangesResponse -> Maybe [Text]
managementCidrRanges :: Prelude.Maybe [Prelude.Text],
ListAvailableManagementCidrRangesResponse -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
ListAvailableManagementCidrRangesResponse -> Int
httpStatus :: Prelude.Int
}
deriving (ListAvailableManagementCidrRangesResponse
-> ListAvailableManagementCidrRangesResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListAvailableManagementCidrRangesResponse
-> ListAvailableManagementCidrRangesResponse -> Bool
$c/= :: ListAvailableManagementCidrRangesResponse
-> ListAvailableManagementCidrRangesResponse -> Bool
== :: ListAvailableManagementCidrRangesResponse
-> ListAvailableManagementCidrRangesResponse -> Bool
$c== :: ListAvailableManagementCidrRangesResponse
-> ListAvailableManagementCidrRangesResponse -> Bool
Prelude.Eq, ReadPrec [ListAvailableManagementCidrRangesResponse]
ReadPrec ListAvailableManagementCidrRangesResponse
Int -> ReadS ListAvailableManagementCidrRangesResponse
ReadS [ListAvailableManagementCidrRangesResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListAvailableManagementCidrRangesResponse]
$creadListPrec :: ReadPrec [ListAvailableManagementCidrRangesResponse]
readPrec :: ReadPrec ListAvailableManagementCidrRangesResponse
$creadPrec :: ReadPrec ListAvailableManagementCidrRangesResponse
readList :: ReadS [ListAvailableManagementCidrRangesResponse]
$creadList :: ReadS [ListAvailableManagementCidrRangesResponse]
readsPrec :: Int -> ReadS ListAvailableManagementCidrRangesResponse
$creadsPrec :: Int -> ReadS ListAvailableManagementCidrRangesResponse
Prelude.Read, Int -> ListAvailableManagementCidrRangesResponse -> ShowS
[ListAvailableManagementCidrRangesResponse] -> ShowS
ListAvailableManagementCidrRangesResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListAvailableManagementCidrRangesResponse] -> ShowS
$cshowList :: [ListAvailableManagementCidrRangesResponse] -> ShowS
show :: ListAvailableManagementCidrRangesResponse -> String
$cshow :: ListAvailableManagementCidrRangesResponse -> String
showsPrec :: Int -> ListAvailableManagementCidrRangesResponse -> ShowS
$cshowsPrec :: Int -> ListAvailableManagementCidrRangesResponse -> ShowS
Prelude.Show, forall x.
Rep ListAvailableManagementCidrRangesResponse x
-> ListAvailableManagementCidrRangesResponse
forall x.
ListAvailableManagementCidrRangesResponse
-> Rep ListAvailableManagementCidrRangesResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep ListAvailableManagementCidrRangesResponse x
-> ListAvailableManagementCidrRangesResponse
$cfrom :: forall x.
ListAvailableManagementCidrRangesResponse
-> Rep ListAvailableManagementCidrRangesResponse x
Prelude.Generic)
newListAvailableManagementCidrRangesResponse ::
Prelude.Int ->
ListAvailableManagementCidrRangesResponse
newListAvailableManagementCidrRangesResponse :: Int -> ListAvailableManagementCidrRangesResponse
newListAvailableManagementCidrRangesResponse
Int
pHttpStatus_ =
ListAvailableManagementCidrRangesResponse'
{ $sel:managementCidrRanges:ListAvailableManagementCidrRangesResponse' :: Maybe [Text]
managementCidrRanges =
forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:ListAvailableManagementCidrRangesResponse' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:ListAvailableManagementCidrRangesResponse' :: Int
httpStatus = Int
pHttpStatus_
}
listAvailableManagementCidrRangesResponse_managementCidrRanges :: Lens.Lens' ListAvailableManagementCidrRangesResponse (Prelude.Maybe [Prelude.Text])
listAvailableManagementCidrRangesResponse_managementCidrRanges :: Lens' ListAvailableManagementCidrRangesResponse (Maybe [Text])
listAvailableManagementCidrRangesResponse_managementCidrRanges = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListAvailableManagementCidrRangesResponse' {Maybe [Text]
managementCidrRanges :: Maybe [Text]
$sel:managementCidrRanges:ListAvailableManagementCidrRangesResponse' :: ListAvailableManagementCidrRangesResponse -> Maybe [Text]
managementCidrRanges} -> Maybe [Text]
managementCidrRanges) (\s :: ListAvailableManagementCidrRangesResponse
s@ListAvailableManagementCidrRangesResponse' {} Maybe [Text]
a -> ListAvailableManagementCidrRangesResponse
s {$sel:managementCidrRanges:ListAvailableManagementCidrRangesResponse' :: Maybe [Text]
managementCidrRanges = Maybe [Text]
a} :: ListAvailableManagementCidrRangesResponse) 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
listAvailableManagementCidrRangesResponse_nextToken :: Lens.Lens' ListAvailableManagementCidrRangesResponse (Prelude.Maybe Prelude.Text)
listAvailableManagementCidrRangesResponse_nextToken :: Lens' ListAvailableManagementCidrRangesResponse (Maybe Text)
listAvailableManagementCidrRangesResponse_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListAvailableManagementCidrRangesResponse' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:ListAvailableManagementCidrRangesResponse' :: ListAvailableManagementCidrRangesResponse -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: ListAvailableManagementCidrRangesResponse
s@ListAvailableManagementCidrRangesResponse' {} Maybe Text
a -> ListAvailableManagementCidrRangesResponse
s {$sel:nextToken:ListAvailableManagementCidrRangesResponse' :: Maybe Text
nextToken = Maybe Text
a} :: ListAvailableManagementCidrRangesResponse)
listAvailableManagementCidrRangesResponse_httpStatus :: Lens.Lens' ListAvailableManagementCidrRangesResponse Prelude.Int
listAvailableManagementCidrRangesResponse_httpStatus :: Lens' ListAvailableManagementCidrRangesResponse Int
listAvailableManagementCidrRangesResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListAvailableManagementCidrRangesResponse' {Int
httpStatus :: Int
$sel:httpStatus:ListAvailableManagementCidrRangesResponse' :: ListAvailableManagementCidrRangesResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: ListAvailableManagementCidrRangesResponse
s@ListAvailableManagementCidrRangesResponse' {} Int
a -> ListAvailableManagementCidrRangesResponse
s {$sel:httpStatus:ListAvailableManagementCidrRangesResponse' :: Int
httpStatus = Int
a} :: ListAvailableManagementCidrRangesResponse)
instance
Prelude.NFData
ListAvailableManagementCidrRangesResponse
where
rnf :: ListAvailableManagementCidrRangesResponse -> ()
rnf ListAvailableManagementCidrRangesResponse' {Int
Maybe [Text]
Maybe Text
httpStatus :: Int
nextToken :: Maybe Text
managementCidrRanges :: Maybe [Text]
$sel:httpStatus:ListAvailableManagementCidrRangesResponse' :: ListAvailableManagementCidrRangesResponse -> Int
$sel:nextToken:ListAvailableManagementCidrRangesResponse' :: ListAvailableManagementCidrRangesResponse -> Maybe Text
$sel:managementCidrRanges:ListAvailableManagementCidrRangesResponse' :: ListAvailableManagementCidrRangesResponse -> Maybe [Text]
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe [Text]
managementCidrRanges
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