{-# 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.NetworkManager.GetLinks
(
GetLinks (..),
newGetLinks,
getLinks_linkIds,
getLinks_maxResults,
getLinks_nextToken,
getLinks_provider,
getLinks_siteId,
getLinks_type,
getLinks_globalNetworkId,
GetLinksResponse (..),
newGetLinksResponse,
getLinksResponse_links,
getLinksResponse_nextToken,
getLinksResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.NetworkManager.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data GetLinks = GetLinks'
{
GetLinks -> Maybe [Text]
linkIds :: Prelude.Maybe [Prelude.Text],
GetLinks -> Maybe Natural
maxResults :: Prelude.Maybe Prelude.Natural,
GetLinks -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
GetLinks -> Maybe Text
provider :: Prelude.Maybe Prelude.Text,
GetLinks -> Maybe Text
siteId :: Prelude.Maybe Prelude.Text,
GetLinks -> Maybe Text
type' :: Prelude.Maybe Prelude.Text,
GetLinks -> Text
globalNetworkId :: Prelude.Text
}
deriving (GetLinks -> GetLinks -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetLinks -> GetLinks -> Bool
$c/= :: GetLinks -> GetLinks -> Bool
== :: GetLinks -> GetLinks -> Bool
$c== :: GetLinks -> GetLinks -> Bool
Prelude.Eq, ReadPrec [GetLinks]
ReadPrec GetLinks
Int -> ReadS GetLinks
ReadS [GetLinks]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetLinks]
$creadListPrec :: ReadPrec [GetLinks]
readPrec :: ReadPrec GetLinks
$creadPrec :: ReadPrec GetLinks
readList :: ReadS [GetLinks]
$creadList :: ReadS [GetLinks]
readsPrec :: Int -> ReadS GetLinks
$creadsPrec :: Int -> ReadS GetLinks
Prelude.Read, Int -> GetLinks -> ShowS
[GetLinks] -> ShowS
GetLinks -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetLinks] -> ShowS
$cshowList :: [GetLinks] -> ShowS
show :: GetLinks -> String
$cshow :: GetLinks -> String
showsPrec :: Int -> GetLinks -> ShowS
$cshowsPrec :: Int -> GetLinks -> ShowS
Prelude.Show, forall x. Rep GetLinks x -> GetLinks
forall x. GetLinks -> Rep GetLinks x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep GetLinks x -> GetLinks
$cfrom :: forall x. GetLinks -> Rep GetLinks x
Prelude.Generic)
newGetLinks ::
Prelude.Text ->
GetLinks
newGetLinks :: Text -> GetLinks
newGetLinks Text
pGlobalNetworkId_ =
GetLinks'
{ $sel:linkIds:GetLinks' :: Maybe [Text]
linkIds = forall a. Maybe a
Prelude.Nothing,
$sel:maxResults:GetLinks' :: Maybe Natural
maxResults = forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:GetLinks' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
$sel:provider:GetLinks' :: Maybe Text
provider = forall a. Maybe a
Prelude.Nothing,
$sel:siteId:GetLinks' :: Maybe Text
siteId = forall a. Maybe a
Prelude.Nothing,
$sel:type':GetLinks' :: Maybe Text
type' = forall a. Maybe a
Prelude.Nothing,
$sel:globalNetworkId:GetLinks' :: Text
globalNetworkId = Text
pGlobalNetworkId_
}
getLinks_linkIds :: Lens.Lens' GetLinks (Prelude.Maybe [Prelude.Text])
getLinks_linkIds :: Lens' GetLinks (Maybe [Text])
getLinks_linkIds = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetLinks' {Maybe [Text]
linkIds :: Maybe [Text]
$sel:linkIds:GetLinks' :: GetLinks -> Maybe [Text]
linkIds} -> Maybe [Text]
linkIds) (\s :: GetLinks
s@GetLinks' {} Maybe [Text]
a -> GetLinks
s {$sel:linkIds:GetLinks' :: Maybe [Text]
linkIds = Maybe [Text]
a} :: GetLinks) 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
getLinks_maxResults :: Lens.Lens' GetLinks (Prelude.Maybe Prelude.Natural)
getLinks_maxResults :: Lens' GetLinks (Maybe Natural)
getLinks_maxResults = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetLinks' {Maybe Natural
maxResults :: Maybe Natural
$sel:maxResults:GetLinks' :: GetLinks -> Maybe Natural
maxResults} -> Maybe Natural
maxResults) (\s :: GetLinks
s@GetLinks' {} Maybe Natural
a -> GetLinks
s {$sel:maxResults:GetLinks' :: Maybe Natural
maxResults = Maybe Natural
a} :: GetLinks)
getLinks_nextToken :: Lens.Lens' GetLinks (Prelude.Maybe Prelude.Text)
getLinks_nextToken :: Lens' GetLinks (Maybe Text)
getLinks_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetLinks' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:GetLinks' :: GetLinks -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: GetLinks
s@GetLinks' {} Maybe Text
a -> GetLinks
s {$sel:nextToken:GetLinks' :: Maybe Text
nextToken = Maybe Text
a} :: GetLinks)
getLinks_provider :: Lens.Lens' GetLinks (Prelude.Maybe Prelude.Text)
getLinks_provider :: Lens' GetLinks (Maybe Text)
getLinks_provider = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetLinks' {Maybe Text
provider :: Maybe Text
$sel:provider:GetLinks' :: GetLinks -> Maybe Text
provider} -> Maybe Text
provider) (\s :: GetLinks
s@GetLinks' {} Maybe Text
a -> GetLinks
s {$sel:provider:GetLinks' :: Maybe Text
provider = Maybe Text
a} :: GetLinks)
getLinks_siteId :: Lens.Lens' GetLinks (Prelude.Maybe Prelude.Text)
getLinks_siteId :: Lens' GetLinks (Maybe Text)
getLinks_siteId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetLinks' {Maybe Text
siteId :: Maybe Text
$sel:siteId:GetLinks' :: GetLinks -> Maybe Text
siteId} -> Maybe Text
siteId) (\s :: GetLinks
s@GetLinks' {} Maybe Text
a -> GetLinks
s {$sel:siteId:GetLinks' :: Maybe Text
siteId = Maybe Text
a} :: GetLinks)
getLinks_type :: Lens.Lens' GetLinks (Prelude.Maybe Prelude.Text)
getLinks_type :: Lens' GetLinks (Maybe Text)
getLinks_type = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetLinks' {Maybe Text
type' :: Maybe Text
$sel:type':GetLinks' :: GetLinks -> Maybe Text
type'} -> Maybe Text
type') (\s :: GetLinks
s@GetLinks' {} Maybe Text
a -> GetLinks
s {$sel:type':GetLinks' :: Maybe Text
type' = Maybe Text
a} :: GetLinks)
getLinks_globalNetworkId :: Lens.Lens' GetLinks Prelude.Text
getLinks_globalNetworkId :: Lens' GetLinks Text
getLinks_globalNetworkId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetLinks' {Text
globalNetworkId :: Text
$sel:globalNetworkId:GetLinks' :: GetLinks -> Text
globalNetworkId} -> Text
globalNetworkId) (\s :: GetLinks
s@GetLinks' {} Text
a -> GetLinks
s {$sel:globalNetworkId:GetLinks' :: Text
globalNetworkId = Text
a} :: GetLinks)
instance Core.AWSPager GetLinks where
page :: GetLinks -> AWSResponse GetLinks -> Maybe GetLinks
page GetLinks
rq AWSResponse GetLinks
rs
| forall a. AWSTruncated a => a -> Bool
Core.stop
( AWSResponse GetLinks
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' GetLinksResponse (Maybe Text)
getLinksResponse_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 GetLinks
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' GetLinksResponse (Maybe [Link])
getLinksResponse_links
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.$ GetLinks
rq
forall a b. a -> (a -> b) -> b
Prelude.& Lens' GetLinks (Maybe Text)
getLinks_nextToken
forall s t a b. ASetter s t a b -> b -> s -> t
Lens..~ AWSResponse GetLinks
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' GetLinksResponse (Maybe Text)
getLinksResponse_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 GetLinks where
type AWSResponse GetLinks = GetLinksResponse
request :: (Service -> Service) -> GetLinks -> Request GetLinks
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 GetLinks
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse GetLinks)))
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 [Link] -> Maybe Text -> Int -> GetLinksResponse
GetLinksResponse'
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
"Links" 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 GetLinks where
hashWithSalt :: Int -> GetLinks -> Int
hashWithSalt Int
_salt GetLinks' {Maybe Natural
Maybe [Text]
Maybe Text
Text
globalNetworkId :: Text
type' :: Maybe Text
siteId :: Maybe Text
provider :: Maybe Text
nextToken :: Maybe Text
maxResults :: Maybe Natural
linkIds :: Maybe [Text]
$sel:globalNetworkId:GetLinks' :: GetLinks -> Text
$sel:type':GetLinks' :: GetLinks -> Maybe Text
$sel:siteId:GetLinks' :: GetLinks -> Maybe Text
$sel:provider:GetLinks' :: GetLinks -> Maybe Text
$sel:nextToken:GetLinks' :: GetLinks -> Maybe Text
$sel:maxResults:GetLinks' :: GetLinks -> Maybe Natural
$sel:linkIds:GetLinks' :: GetLinks -> Maybe [Text]
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Text]
linkIds
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 Text
provider
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
siteId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
type'
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
globalNetworkId
instance Prelude.NFData GetLinks where
rnf :: GetLinks -> ()
rnf GetLinks' {Maybe Natural
Maybe [Text]
Maybe Text
Text
globalNetworkId :: Text
type' :: Maybe Text
siteId :: Maybe Text
provider :: Maybe Text
nextToken :: Maybe Text
maxResults :: Maybe Natural
linkIds :: Maybe [Text]
$sel:globalNetworkId:GetLinks' :: GetLinks -> Text
$sel:type':GetLinks' :: GetLinks -> Maybe Text
$sel:siteId:GetLinks' :: GetLinks -> Maybe Text
$sel:provider:GetLinks' :: GetLinks -> Maybe Text
$sel:nextToken:GetLinks' :: GetLinks -> Maybe Text
$sel:maxResults:GetLinks' :: GetLinks -> Maybe Natural
$sel:linkIds:GetLinks' :: GetLinks -> Maybe [Text]
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe [Text]
linkIds
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 Text
provider
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
siteId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
type'
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
globalNetworkId
instance Data.ToHeaders GetLinks where
toHeaders :: GetLinks -> 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 GetLinks where
toPath :: GetLinks -> ByteString
toPath GetLinks' {Maybe Natural
Maybe [Text]
Maybe Text
Text
globalNetworkId :: Text
type' :: Maybe Text
siteId :: Maybe Text
provider :: Maybe Text
nextToken :: Maybe Text
maxResults :: Maybe Natural
linkIds :: Maybe [Text]
$sel:globalNetworkId:GetLinks' :: GetLinks -> Text
$sel:type':GetLinks' :: GetLinks -> Maybe Text
$sel:siteId:GetLinks' :: GetLinks -> Maybe Text
$sel:provider:GetLinks' :: GetLinks -> Maybe Text
$sel:nextToken:GetLinks' :: GetLinks -> Maybe Text
$sel:maxResults:GetLinks' :: GetLinks -> Maybe Natural
$sel:linkIds:GetLinks' :: GetLinks -> Maybe [Text]
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"/global-networks/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
globalNetworkId,
ByteString
"/links"
]
instance Data.ToQuery GetLinks where
toQuery :: GetLinks -> QueryString
toQuery GetLinks' {Maybe Natural
Maybe [Text]
Maybe Text
Text
globalNetworkId :: Text
type' :: Maybe Text
siteId :: Maybe Text
provider :: Maybe Text
nextToken :: Maybe Text
maxResults :: Maybe Natural
linkIds :: Maybe [Text]
$sel:globalNetworkId:GetLinks' :: GetLinks -> Text
$sel:type':GetLinks' :: GetLinks -> Maybe Text
$sel:siteId:GetLinks' :: GetLinks -> Maybe Text
$sel:provider:GetLinks' :: GetLinks -> Maybe Text
$sel:nextToken:GetLinks' :: GetLinks -> Maybe Text
$sel:maxResults:GetLinks' :: GetLinks -> Maybe Natural
$sel:linkIds:GetLinks' :: GetLinks -> Maybe [Text]
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"linkIds"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: forall a. ToQuery a => a -> QueryString
Data.toQuery
(forall a.
(IsList a, ToQuery (Item a)) =>
ByteString -> a -> QueryString
Data.toQueryList ByteString
"member" forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [Text]
linkIds),
ByteString
"maxResults" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Natural
maxResults,
ByteString
"nextToken" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
nextToken,
ByteString
"provider" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
provider,
ByteString
"siteId" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
siteId,
ByteString
"type" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
type'
]
data GetLinksResponse = GetLinksResponse'
{
GetLinksResponse -> Maybe [Link]
links :: Prelude.Maybe [Link],
GetLinksResponse -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
GetLinksResponse -> Int
httpStatus :: Prelude.Int
}
deriving (GetLinksResponse -> GetLinksResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetLinksResponse -> GetLinksResponse -> Bool
$c/= :: GetLinksResponse -> GetLinksResponse -> Bool
== :: GetLinksResponse -> GetLinksResponse -> Bool
$c== :: GetLinksResponse -> GetLinksResponse -> Bool
Prelude.Eq, ReadPrec [GetLinksResponse]
ReadPrec GetLinksResponse
Int -> ReadS GetLinksResponse
ReadS [GetLinksResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetLinksResponse]
$creadListPrec :: ReadPrec [GetLinksResponse]
readPrec :: ReadPrec GetLinksResponse
$creadPrec :: ReadPrec GetLinksResponse
readList :: ReadS [GetLinksResponse]
$creadList :: ReadS [GetLinksResponse]
readsPrec :: Int -> ReadS GetLinksResponse
$creadsPrec :: Int -> ReadS GetLinksResponse
Prelude.Read, Int -> GetLinksResponse -> ShowS
[GetLinksResponse] -> ShowS
GetLinksResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetLinksResponse] -> ShowS
$cshowList :: [GetLinksResponse] -> ShowS
show :: GetLinksResponse -> String
$cshow :: GetLinksResponse -> String
showsPrec :: Int -> GetLinksResponse -> ShowS
$cshowsPrec :: Int -> GetLinksResponse -> ShowS
Prelude.Show, forall x. Rep GetLinksResponse x -> GetLinksResponse
forall x. GetLinksResponse -> Rep GetLinksResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep GetLinksResponse x -> GetLinksResponse
$cfrom :: forall x. GetLinksResponse -> Rep GetLinksResponse x
Prelude.Generic)
newGetLinksResponse ::
Prelude.Int ->
GetLinksResponse
newGetLinksResponse :: Int -> GetLinksResponse
newGetLinksResponse Int
pHttpStatus_ =
GetLinksResponse'
{ $sel:links:GetLinksResponse' :: Maybe [Link]
links = forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:GetLinksResponse' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:GetLinksResponse' :: Int
httpStatus = Int
pHttpStatus_
}
getLinksResponse_links :: Lens.Lens' GetLinksResponse (Prelude.Maybe [Link])
getLinksResponse_links :: Lens' GetLinksResponse (Maybe [Link])
getLinksResponse_links = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetLinksResponse' {Maybe [Link]
links :: Maybe [Link]
$sel:links:GetLinksResponse' :: GetLinksResponse -> Maybe [Link]
links} -> Maybe [Link]
links) (\s :: GetLinksResponse
s@GetLinksResponse' {} Maybe [Link]
a -> GetLinksResponse
s {$sel:links:GetLinksResponse' :: Maybe [Link]
links = Maybe [Link]
a} :: GetLinksResponse) 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
getLinksResponse_nextToken :: Lens.Lens' GetLinksResponse (Prelude.Maybe Prelude.Text)
getLinksResponse_nextToken :: Lens' GetLinksResponse (Maybe Text)
getLinksResponse_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetLinksResponse' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:GetLinksResponse' :: GetLinksResponse -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: GetLinksResponse
s@GetLinksResponse' {} Maybe Text
a -> GetLinksResponse
s {$sel:nextToken:GetLinksResponse' :: Maybe Text
nextToken = Maybe Text
a} :: GetLinksResponse)
getLinksResponse_httpStatus :: Lens.Lens' GetLinksResponse Prelude.Int
getLinksResponse_httpStatus :: Lens' GetLinksResponse Int
getLinksResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetLinksResponse' {Int
httpStatus :: Int
$sel:httpStatus:GetLinksResponse' :: GetLinksResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: GetLinksResponse
s@GetLinksResponse' {} Int
a -> GetLinksResponse
s {$sel:httpStatus:GetLinksResponse' :: Int
httpStatus = Int
a} :: GetLinksResponse)
instance Prelude.NFData GetLinksResponse where
rnf :: GetLinksResponse -> ()
rnf GetLinksResponse' {Int
Maybe [Link]
Maybe Text
httpStatus :: Int
nextToken :: Maybe Text
links :: Maybe [Link]
$sel:httpStatus:GetLinksResponse' :: GetLinksResponse -> Int
$sel:nextToken:GetLinksResponse' :: GetLinksResponse -> Maybe Text
$sel:links:GetLinksResponse' :: GetLinksResponse -> Maybe [Link]
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe [Link]
links
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