{-# 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.CloudDirectory.ListTypedLinkFacetNames
(
ListTypedLinkFacetNames (..),
newListTypedLinkFacetNames,
listTypedLinkFacetNames_maxResults,
listTypedLinkFacetNames_nextToken,
listTypedLinkFacetNames_schemaArn,
ListTypedLinkFacetNamesResponse (..),
newListTypedLinkFacetNamesResponse,
listTypedLinkFacetNamesResponse_facetNames,
listTypedLinkFacetNamesResponse_nextToken,
listTypedLinkFacetNamesResponse_httpStatus,
)
where
import Amazonka.CloudDirectory.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 ListTypedLinkFacetNames = ListTypedLinkFacetNames'
{
ListTypedLinkFacetNames -> Maybe Natural
maxResults :: Prelude.Maybe Prelude.Natural,
ListTypedLinkFacetNames -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
ListTypedLinkFacetNames -> Text
schemaArn :: Prelude.Text
}
deriving (ListTypedLinkFacetNames -> ListTypedLinkFacetNames -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListTypedLinkFacetNames -> ListTypedLinkFacetNames -> Bool
$c/= :: ListTypedLinkFacetNames -> ListTypedLinkFacetNames -> Bool
== :: ListTypedLinkFacetNames -> ListTypedLinkFacetNames -> Bool
$c== :: ListTypedLinkFacetNames -> ListTypedLinkFacetNames -> Bool
Prelude.Eq, ReadPrec [ListTypedLinkFacetNames]
ReadPrec ListTypedLinkFacetNames
Int -> ReadS ListTypedLinkFacetNames
ReadS [ListTypedLinkFacetNames]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListTypedLinkFacetNames]
$creadListPrec :: ReadPrec [ListTypedLinkFacetNames]
readPrec :: ReadPrec ListTypedLinkFacetNames
$creadPrec :: ReadPrec ListTypedLinkFacetNames
readList :: ReadS [ListTypedLinkFacetNames]
$creadList :: ReadS [ListTypedLinkFacetNames]
readsPrec :: Int -> ReadS ListTypedLinkFacetNames
$creadsPrec :: Int -> ReadS ListTypedLinkFacetNames
Prelude.Read, Int -> ListTypedLinkFacetNames -> ShowS
[ListTypedLinkFacetNames] -> ShowS
ListTypedLinkFacetNames -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListTypedLinkFacetNames] -> ShowS
$cshowList :: [ListTypedLinkFacetNames] -> ShowS
show :: ListTypedLinkFacetNames -> String
$cshow :: ListTypedLinkFacetNames -> String
showsPrec :: Int -> ListTypedLinkFacetNames -> ShowS
$cshowsPrec :: Int -> ListTypedLinkFacetNames -> ShowS
Prelude.Show, forall x. Rep ListTypedLinkFacetNames x -> ListTypedLinkFacetNames
forall x. ListTypedLinkFacetNames -> Rep ListTypedLinkFacetNames x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep ListTypedLinkFacetNames x -> ListTypedLinkFacetNames
$cfrom :: forall x. ListTypedLinkFacetNames -> Rep ListTypedLinkFacetNames x
Prelude.Generic)
newListTypedLinkFacetNames ::
Prelude.Text ->
ListTypedLinkFacetNames
newListTypedLinkFacetNames :: Text -> ListTypedLinkFacetNames
newListTypedLinkFacetNames Text
pSchemaArn_ =
ListTypedLinkFacetNames'
{ $sel:maxResults:ListTypedLinkFacetNames' :: Maybe Natural
maxResults =
forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:ListTypedLinkFacetNames' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
$sel:schemaArn:ListTypedLinkFacetNames' :: Text
schemaArn = Text
pSchemaArn_
}
listTypedLinkFacetNames_maxResults :: Lens.Lens' ListTypedLinkFacetNames (Prelude.Maybe Prelude.Natural)
listTypedLinkFacetNames_maxResults :: Lens' ListTypedLinkFacetNames (Maybe Natural)
listTypedLinkFacetNames_maxResults = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListTypedLinkFacetNames' {Maybe Natural
maxResults :: Maybe Natural
$sel:maxResults:ListTypedLinkFacetNames' :: ListTypedLinkFacetNames -> Maybe Natural
maxResults} -> Maybe Natural
maxResults) (\s :: ListTypedLinkFacetNames
s@ListTypedLinkFacetNames' {} Maybe Natural
a -> ListTypedLinkFacetNames
s {$sel:maxResults:ListTypedLinkFacetNames' :: Maybe Natural
maxResults = Maybe Natural
a} :: ListTypedLinkFacetNames)
listTypedLinkFacetNames_nextToken :: Lens.Lens' ListTypedLinkFacetNames (Prelude.Maybe Prelude.Text)
listTypedLinkFacetNames_nextToken :: Lens' ListTypedLinkFacetNames (Maybe Text)
listTypedLinkFacetNames_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListTypedLinkFacetNames' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:ListTypedLinkFacetNames' :: ListTypedLinkFacetNames -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: ListTypedLinkFacetNames
s@ListTypedLinkFacetNames' {} Maybe Text
a -> ListTypedLinkFacetNames
s {$sel:nextToken:ListTypedLinkFacetNames' :: Maybe Text
nextToken = Maybe Text
a} :: ListTypedLinkFacetNames)
listTypedLinkFacetNames_schemaArn :: Lens.Lens' ListTypedLinkFacetNames Prelude.Text
listTypedLinkFacetNames_schemaArn :: Lens' ListTypedLinkFacetNames Text
listTypedLinkFacetNames_schemaArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListTypedLinkFacetNames' {Text
schemaArn :: Text
$sel:schemaArn:ListTypedLinkFacetNames' :: ListTypedLinkFacetNames -> Text
schemaArn} -> Text
schemaArn) (\s :: ListTypedLinkFacetNames
s@ListTypedLinkFacetNames' {} Text
a -> ListTypedLinkFacetNames
s {$sel:schemaArn:ListTypedLinkFacetNames' :: Text
schemaArn = Text
a} :: ListTypedLinkFacetNames)
instance Core.AWSPager ListTypedLinkFacetNames where
page :: ListTypedLinkFacetNames
-> AWSResponse ListTypedLinkFacetNames
-> Maybe ListTypedLinkFacetNames
page ListTypedLinkFacetNames
rq AWSResponse ListTypedLinkFacetNames
rs
| forall a. AWSTruncated a => a -> Bool
Core.stop
( AWSResponse ListTypedLinkFacetNames
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' ListTypedLinkFacetNamesResponse (Maybe Text)
listTypedLinkFacetNamesResponse_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 ListTypedLinkFacetNames
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' ListTypedLinkFacetNamesResponse (Maybe [Text])
listTypedLinkFacetNamesResponse_facetNames
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.$ ListTypedLinkFacetNames
rq
forall a b. a -> (a -> b) -> b
Prelude.& Lens' ListTypedLinkFacetNames (Maybe Text)
listTypedLinkFacetNames_nextToken
forall s t a b. ASetter s t a b -> b -> s -> t
Lens..~ AWSResponse ListTypedLinkFacetNames
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' ListTypedLinkFacetNamesResponse (Maybe Text)
listTypedLinkFacetNamesResponse_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 ListTypedLinkFacetNames where
type
AWSResponse ListTypedLinkFacetNames =
ListTypedLinkFacetNamesResponse
request :: (Service -> Service)
-> ListTypedLinkFacetNames -> Request ListTypedLinkFacetNames
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 ListTypedLinkFacetNames
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse ListTypedLinkFacetNames)))
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 -> ListTypedLinkFacetNamesResponse
ListTypedLinkFacetNamesResponse'
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
"FacetNames" 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 ListTypedLinkFacetNames where
hashWithSalt :: Int -> ListTypedLinkFacetNames -> Int
hashWithSalt Int
_salt ListTypedLinkFacetNames' {Maybe Natural
Maybe Text
Text
schemaArn :: Text
nextToken :: Maybe Text
maxResults :: Maybe Natural
$sel:schemaArn:ListTypedLinkFacetNames' :: ListTypedLinkFacetNames -> Text
$sel:nextToken:ListTypedLinkFacetNames' :: ListTypedLinkFacetNames -> Maybe Text
$sel:maxResults:ListTypedLinkFacetNames' :: ListTypedLinkFacetNames -> 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
schemaArn
instance Prelude.NFData ListTypedLinkFacetNames where
rnf :: ListTypedLinkFacetNames -> ()
rnf ListTypedLinkFacetNames' {Maybe Natural
Maybe Text
Text
schemaArn :: Text
nextToken :: Maybe Text
maxResults :: Maybe Natural
$sel:schemaArn:ListTypedLinkFacetNames' :: ListTypedLinkFacetNames -> Text
$sel:nextToken:ListTypedLinkFacetNames' :: ListTypedLinkFacetNames -> Maybe Text
$sel:maxResults:ListTypedLinkFacetNames' :: ListTypedLinkFacetNames -> 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
schemaArn
instance Data.ToHeaders ListTypedLinkFacetNames where
toHeaders :: ListTypedLinkFacetNames -> ResponseHeaders
toHeaders ListTypedLinkFacetNames' {Maybe Natural
Maybe Text
Text
schemaArn :: Text
nextToken :: Maybe Text
maxResults :: Maybe Natural
$sel:schemaArn:ListTypedLinkFacetNames' :: ListTypedLinkFacetNames -> Text
$sel:nextToken:ListTypedLinkFacetNames' :: ListTypedLinkFacetNames -> Maybe Text
$sel:maxResults:ListTypedLinkFacetNames' :: ListTypedLinkFacetNames -> Maybe Natural
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[HeaderName
"x-amz-data-partition" forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# Text
schemaArn]
instance Data.ToJSON ListTypedLinkFacetNames where
toJSON :: ListTypedLinkFacetNames -> Value
toJSON ListTypedLinkFacetNames' {Maybe Natural
Maybe Text
Text
schemaArn :: Text
nextToken :: Maybe Text
maxResults :: Maybe Natural
$sel:schemaArn:ListTypedLinkFacetNames' :: ListTypedLinkFacetNames -> Text
$sel:nextToken:ListTypedLinkFacetNames' :: ListTypedLinkFacetNames -> Maybe Text
$sel:maxResults:ListTypedLinkFacetNames' :: ListTypedLinkFacetNames -> 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
]
)
instance Data.ToPath ListTypedLinkFacetNames where
toPath :: ListTypedLinkFacetNames -> ByteString
toPath =
forall a b. a -> b -> a
Prelude.const
ByteString
"/amazonclouddirectory/2017-01-11/typedlink/facet/list"
instance Data.ToQuery ListTypedLinkFacetNames where
toQuery :: ListTypedLinkFacetNames -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data ListTypedLinkFacetNamesResponse = ListTypedLinkFacetNamesResponse'
{
ListTypedLinkFacetNamesResponse -> Maybe [Text]
facetNames :: Prelude.Maybe [Prelude.Text],
ListTypedLinkFacetNamesResponse -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
ListTypedLinkFacetNamesResponse -> Int
httpStatus :: Prelude.Int
}
deriving (ListTypedLinkFacetNamesResponse
-> ListTypedLinkFacetNamesResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListTypedLinkFacetNamesResponse
-> ListTypedLinkFacetNamesResponse -> Bool
$c/= :: ListTypedLinkFacetNamesResponse
-> ListTypedLinkFacetNamesResponse -> Bool
== :: ListTypedLinkFacetNamesResponse
-> ListTypedLinkFacetNamesResponse -> Bool
$c== :: ListTypedLinkFacetNamesResponse
-> ListTypedLinkFacetNamesResponse -> Bool
Prelude.Eq, ReadPrec [ListTypedLinkFacetNamesResponse]
ReadPrec ListTypedLinkFacetNamesResponse
Int -> ReadS ListTypedLinkFacetNamesResponse
ReadS [ListTypedLinkFacetNamesResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListTypedLinkFacetNamesResponse]
$creadListPrec :: ReadPrec [ListTypedLinkFacetNamesResponse]
readPrec :: ReadPrec ListTypedLinkFacetNamesResponse
$creadPrec :: ReadPrec ListTypedLinkFacetNamesResponse
readList :: ReadS [ListTypedLinkFacetNamesResponse]
$creadList :: ReadS [ListTypedLinkFacetNamesResponse]
readsPrec :: Int -> ReadS ListTypedLinkFacetNamesResponse
$creadsPrec :: Int -> ReadS ListTypedLinkFacetNamesResponse
Prelude.Read, Int -> ListTypedLinkFacetNamesResponse -> ShowS
[ListTypedLinkFacetNamesResponse] -> ShowS
ListTypedLinkFacetNamesResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListTypedLinkFacetNamesResponse] -> ShowS
$cshowList :: [ListTypedLinkFacetNamesResponse] -> ShowS
show :: ListTypedLinkFacetNamesResponse -> String
$cshow :: ListTypedLinkFacetNamesResponse -> String
showsPrec :: Int -> ListTypedLinkFacetNamesResponse -> ShowS
$cshowsPrec :: Int -> ListTypedLinkFacetNamesResponse -> ShowS
Prelude.Show, forall x.
Rep ListTypedLinkFacetNamesResponse x
-> ListTypedLinkFacetNamesResponse
forall x.
ListTypedLinkFacetNamesResponse
-> Rep ListTypedLinkFacetNamesResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep ListTypedLinkFacetNamesResponse x
-> ListTypedLinkFacetNamesResponse
$cfrom :: forall x.
ListTypedLinkFacetNamesResponse
-> Rep ListTypedLinkFacetNamesResponse x
Prelude.Generic)
newListTypedLinkFacetNamesResponse ::
Prelude.Int ->
ListTypedLinkFacetNamesResponse
newListTypedLinkFacetNamesResponse :: Int -> ListTypedLinkFacetNamesResponse
newListTypedLinkFacetNamesResponse Int
pHttpStatus_ =
ListTypedLinkFacetNamesResponse'
{ $sel:facetNames:ListTypedLinkFacetNamesResponse' :: Maybe [Text]
facetNames =
forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:ListTypedLinkFacetNamesResponse' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:ListTypedLinkFacetNamesResponse' :: Int
httpStatus = Int
pHttpStatus_
}
listTypedLinkFacetNamesResponse_facetNames :: Lens.Lens' ListTypedLinkFacetNamesResponse (Prelude.Maybe [Prelude.Text])
listTypedLinkFacetNamesResponse_facetNames :: Lens' ListTypedLinkFacetNamesResponse (Maybe [Text])
listTypedLinkFacetNamesResponse_facetNames = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListTypedLinkFacetNamesResponse' {Maybe [Text]
facetNames :: Maybe [Text]
$sel:facetNames:ListTypedLinkFacetNamesResponse' :: ListTypedLinkFacetNamesResponse -> Maybe [Text]
facetNames} -> Maybe [Text]
facetNames) (\s :: ListTypedLinkFacetNamesResponse
s@ListTypedLinkFacetNamesResponse' {} Maybe [Text]
a -> ListTypedLinkFacetNamesResponse
s {$sel:facetNames:ListTypedLinkFacetNamesResponse' :: Maybe [Text]
facetNames = Maybe [Text]
a} :: ListTypedLinkFacetNamesResponse) 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
listTypedLinkFacetNamesResponse_nextToken :: Lens.Lens' ListTypedLinkFacetNamesResponse (Prelude.Maybe Prelude.Text)
listTypedLinkFacetNamesResponse_nextToken :: Lens' ListTypedLinkFacetNamesResponse (Maybe Text)
listTypedLinkFacetNamesResponse_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListTypedLinkFacetNamesResponse' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:ListTypedLinkFacetNamesResponse' :: ListTypedLinkFacetNamesResponse -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: ListTypedLinkFacetNamesResponse
s@ListTypedLinkFacetNamesResponse' {} Maybe Text
a -> ListTypedLinkFacetNamesResponse
s {$sel:nextToken:ListTypedLinkFacetNamesResponse' :: Maybe Text
nextToken = Maybe Text
a} :: ListTypedLinkFacetNamesResponse)
listTypedLinkFacetNamesResponse_httpStatus :: Lens.Lens' ListTypedLinkFacetNamesResponse Prelude.Int
listTypedLinkFacetNamesResponse_httpStatus :: Lens' ListTypedLinkFacetNamesResponse Int
listTypedLinkFacetNamesResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListTypedLinkFacetNamesResponse' {Int
httpStatus :: Int
$sel:httpStatus:ListTypedLinkFacetNamesResponse' :: ListTypedLinkFacetNamesResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: ListTypedLinkFacetNamesResponse
s@ListTypedLinkFacetNamesResponse' {} Int
a -> ListTypedLinkFacetNamesResponse
s {$sel:httpStatus:ListTypedLinkFacetNamesResponse' :: Int
httpStatus = Int
a} :: ListTypedLinkFacetNamesResponse)
instance
Prelude.NFData
ListTypedLinkFacetNamesResponse
where
rnf :: ListTypedLinkFacetNamesResponse -> ()
rnf ListTypedLinkFacetNamesResponse' {Int
Maybe [Text]
Maybe Text
httpStatus :: Int
nextToken :: Maybe Text
facetNames :: Maybe [Text]
$sel:httpStatus:ListTypedLinkFacetNamesResponse' :: ListTypedLinkFacetNamesResponse -> Int
$sel:nextToken:ListTypedLinkFacetNamesResponse' :: ListTypedLinkFacetNamesResponse -> Maybe Text
$sel:facetNames:ListTypedLinkFacetNamesResponse' :: ListTypedLinkFacetNamesResponse -> Maybe [Text]
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe [Text]
facetNames
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