{-# 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.QuickSight.ListTemplateAliases
(
ListTemplateAliases (..),
newListTemplateAliases,
listTemplateAliases_maxResults,
listTemplateAliases_nextToken,
listTemplateAliases_awsAccountId,
listTemplateAliases_templateId,
ListTemplateAliasesResponse (..),
newListTemplateAliasesResponse,
listTemplateAliasesResponse_nextToken,
listTemplateAliasesResponse_requestId,
listTemplateAliasesResponse_templateAliasList,
listTemplateAliasesResponse_status,
)
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 Amazonka.QuickSight.Types
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data ListTemplateAliases = ListTemplateAliases'
{
ListTemplateAliases -> Maybe Natural
maxResults :: Prelude.Maybe Prelude.Natural,
ListTemplateAliases -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
ListTemplateAliases -> Text
awsAccountId :: Prelude.Text,
ListTemplateAliases -> Text
templateId :: Prelude.Text
}
deriving (ListTemplateAliases -> ListTemplateAliases -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListTemplateAliases -> ListTemplateAliases -> Bool
$c/= :: ListTemplateAliases -> ListTemplateAliases -> Bool
== :: ListTemplateAliases -> ListTemplateAliases -> Bool
$c== :: ListTemplateAliases -> ListTemplateAliases -> Bool
Prelude.Eq, ReadPrec [ListTemplateAliases]
ReadPrec ListTemplateAliases
Int -> ReadS ListTemplateAliases
ReadS [ListTemplateAliases]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListTemplateAliases]
$creadListPrec :: ReadPrec [ListTemplateAliases]
readPrec :: ReadPrec ListTemplateAliases
$creadPrec :: ReadPrec ListTemplateAliases
readList :: ReadS [ListTemplateAliases]
$creadList :: ReadS [ListTemplateAliases]
readsPrec :: Int -> ReadS ListTemplateAliases
$creadsPrec :: Int -> ReadS ListTemplateAliases
Prelude.Read, Int -> ListTemplateAliases -> ShowS
[ListTemplateAliases] -> ShowS
ListTemplateAliases -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListTemplateAliases] -> ShowS
$cshowList :: [ListTemplateAliases] -> ShowS
show :: ListTemplateAliases -> String
$cshow :: ListTemplateAliases -> String
showsPrec :: Int -> ListTemplateAliases -> ShowS
$cshowsPrec :: Int -> ListTemplateAliases -> ShowS
Prelude.Show, forall x. Rep ListTemplateAliases x -> ListTemplateAliases
forall x. ListTemplateAliases -> Rep ListTemplateAliases x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep ListTemplateAliases x -> ListTemplateAliases
$cfrom :: forall x. ListTemplateAliases -> Rep ListTemplateAliases x
Prelude.Generic)
newListTemplateAliases ::
Prelude.Text ->
Prelude.Text ->
ListTemplateAliases
newListTemplateAliases :: Text -> Text -> ListTemplateAliases
newListTemplateAliases Text
pAwsAccountId_ Text
pTemplateId_ =
ListTemplateAliases'
{ $sel:maxResults:ListTemplateAliases' :: Maybe Natural
maxResults = forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:ListTemplateAliases' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
$sel:awsAccountId:ListTemplateAliases' :: Text
awsAccountId = Text
pAwsAccountId_,
$sel:templateId:ListTemplateAliases' :: Text
templateId = Text
pTemplateId_
}
listTemplateAliases_maxResults :: Lens.Lens' ListTemplateAliases (Prelude.Maybe Prelude.Natural)
listTemplateAliases_maxResults :: Lens' ListTemplateAliases (Maybe Natural)
listTemplateAliases_maxResults = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListTemplateAliases' {Maybe Natural
maxResults :: Maybe Natural
$sel:maxResults:ListTemplateAliases' :: ListTemplateAliases -> Maybe Natural
maxResults} -> Maybe Natural
maxResults) (\s :: ListTemplateAliases
s@ListTemplateAliases' {} Maybe Natural
a -> ListTemplateAliases
s {$sel:maxResults:ListTemplateAliases' :: Maybe Natural
maxResults = Maybe Natural
a} :: ListTemplateAliases)
listTemplateAliases_nextToken :: Lens.Lens' ListTemplateAliases (Prelude.Maybe Prelude.Text)
listTemplateAliases_nextToken :: Lens' ListTemplateAliases (Maybe Text)
listTemplateAliases_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListTemplateAliases' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:ListTemplateAliases' :: ListTemplateAliases -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: ListTemplateAliases
s@ListTemplateAliases' {} Maybe Text
a -> ListTemplateAliases
s {$sel:nextToken:ListTemplateAliases' :: Maybe Text
nextToken = Maybe Text
a} :: ListTemplateAliases)
listTemplateAliases_awsAccountId :: Lens.Lens' ListTemplateAliases Prelude.Text
listTemplateAliases_awsAccountId :: Lens' ListTemplateAliases Text
listTemplateAliases_awsAccountId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListTemplateAliases' {Text
awsAccountId :: Text
$sel:awsAccountId:ListTemplateAliases' :: ListTemplateAliases -> Text
awsAccountId} -> Text
awsAccountId) (\s :: ListTemplateAliases
s@ListTemplateAliases' {} Text
a -> ListTemplateAliases
s {$sel:awsAccountId:ListTemplateAliases' :: Text
awsAccountId = Text
a} :: ListTemplateAliases)
listTemplateAliases_templateId :: Lens.Lens' ListTemplateAliases Prelude.Text
listTemplateAliases_templateId :: Lens' ListTemplateAliases Text
listTemplateAliases_templateId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListTemplateAliases' {Text
templateId :: Text
$sel:templateId:ListTemplateAliases' :: ListTemplateAliases -> Text
templateId} -> Text
templateId) (\s :: ListTemplateAliases
s@ListTemplateAliases' {} Text
a -> ListTemplateAliases
s {$sel:templateId:ListTemplateAliases' :: Text
templateId = Text
a} :: ListTemplateAliases)
instance Core.AWSPager ListTemplateAliases where
page :: ListTemplateAliases
-> AWSResponse ListTemplateAliases -> Maybe ListTemplateAliases
page ListTemplateAliases
rq AWSResponse ListTemplateAliases
rs
| forall a. AWSTruncated a => a -> Bool
Core.stop
( AWSResponse ListTemplateAliases
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' ListTemplateAliasesResponse (Maybe Text)
listTemplateAliasesResponse_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 ListTemplateAliases
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' ListTemplateAliasesResponse (Maybe [TemplateAlias])
listTemplateAliasesResponse_templateAliasList
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.$ ListTemplateAliases
rq
forall a b. a -> (a -> b) -> b
Prelude.& Lens' ListTemplateAliases (Maybe Text)
listTemplateAliases_nextToken
forall s t a b. ASetter s t a b -> b -> s -> t
Lens..~ AWSResponse ListTemplateAliases
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' ListTemplateAliasesResponse (Maybe Text)
listTemplateAliasesResponse_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 ListTemplateAliases where
type
AWSResponse ListTemplateAliases =
ListTemplateAliasesResponse
request :: (Service -> Service)
-> ListTemplateAliases -> Request ListTemplateAliases
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 ListTemplateAliases
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse ListTemplateAliases)))
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
-> Maybe [TemplateAlias]
-> Int
-> ListTemplateAliasesResponse
ListTemplateAliasesResponse'
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
"NextToken")
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
"RequestId")
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
"TemplateAliasList"
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 ListTemplateAliases where
hashWithSalt :: Int -> ListTemplateAliases -> Int
hashWithSalt Int
_salt ListTemplateAliases' {Maybe Natural
Maybe Text
Text
templateId :: Text
awsAccountId :: Text
nextToken :: Maybe Text
maxResults :: Maybe Natural
$sel:templateId:ListTemplateAliases' :: ListTemplateAliases -> Text
$sel:awsAccountId:ListTemplateAliases' :: ListTemplateAliases -> Text
$sel:nextToken:ListTemplateAliases' :: ListTemplateAliases -> Maybe Text
$sel:maxResults:ListTemplateAliases' :: ListTemplateAliases -> 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
awsAccountId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
templateId
instance Prelude.NFData ListTemplateAliases where
rnf :: ListTemplateAliases -> ()
rnf ListTemplateAliases' {Maybe Natural
Maybe Text
Text
templateId :: Text
awsAccountId :: Text
nextToken :: Maybe Text
maxResults :: Maybe Natural
$sel:templateId:ListTemplateAliases' :: ListTemplateAliases -> Text
$sel:awsAccountId:ListTemplateAliases' :: ListTemplateAliases -> Text
$sel:nextToken:ListTemplateAliases' :: ListTemplateAliases -> Maybe Text
$sel:maxResults:ListTemplateAliases' :: ListTemplateAliases -> 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
awsAccountId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
templateId
instance Data.ToHeaders ListTemplateAliases where
toHeaders :: ListTemplateAliases -> 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.0" ::
Prelude.ByteString
)
]
)
instance Data.ToPath ListTemplateAliases where
toPath :: ListTemplateAliases -> ByteString
toPath ListTemplateAliases' {Maybe Natural
Maybe Text
Text
templateId :: Text
awsAccountId :: Text
nextToken :: Maybe Text
maxResults :: Maybe Natural
$sel:templateId:ListTemplateAliases' :: ListTemplateAliases -> Text
$sel:awsAccountId:ListTemplateAliases' :: ListTemplateAliases -> Text
$sel:nextToken:ListTemplateAliases' :: ListTemplateAliases -> Maybe Text
$sel:maxResults:ListTemplateAliases' :: ListTemplateAliases -> Maybe Natural
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"/accounts/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
awsAccountId,
ByteString
"/templates/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
templateId,
ByteString
"/aliases"
]
instance Data.ToQuery ListTemplateAliases where
toQuery :: ListTemplateAliases -> QueryString
toQuery ListTemplateAliases' {Maybe Natural
Maybe Text
Text
templateId :: Text
awsAccountId :: Text
nextToken :: Maybe Text
maxResults :: Maybe Natural
$sel:templateId:ListTemplateAliases' :: ListTemplateAliases -> Text
$sel:awsAccountId:ListTemplateAliases' :: ListTemplateAliases -> Text
$sel:nextToken:ListTemplateAliases' :: ListTemplateAliases -> Maybe Text
$sel:maxResults:ListTemplateAliases' :: ListTemplateAliases -> Maybe Natural
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"max-result" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Natural
maxResults,
ByteString
"next-token" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
nextToken
]
data ListTemplateAliasesResponse = ListTemplateAliasesResponse'
{
ListTemplateAliasesResponse -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
ListTemplateAliasesResponse -> Maybe Text
requestId :: Prelude.Maybe Prelude.Text,
ListTemplateAliasesResponse -> Maybe [TemplateAlias]
templateAliasList :: Prelude.Maybe [TemplateAlias],
ListTemplateAliasesResponse -> Int
status :: Prelude.Int
}
deriving (ListTemplateAliasesResponse -> ListTemplateAliasesResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListTemplateAliasesResponse -> ListTemplateAliasesResponse -> Bool
$c/= :: ListTemplateAliasesResponse -> ListTemplateAliasesResponse -> Bool
== :: ListTemplateAliasesResponse -> ListTemplateAliasesResponse -> Bool
$c== :: ListTemplateAliasesResponse -> ListTemplateAliasesResponse -> Bool
Prelude.Eq, ReadPrec [ListTemplateAliasesResponse]
ReadPrec ListTemplateAliasesResponse
Int -> ReadS ListTemplateAliasesResponse
ReadS [ListTemplateAliasesResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListTemplateAliasesResponse]
$creadListPrec :: ReadPrec [ListTemplateAliasesResponse]
readPrec :: ReadPrec ListTemplateAliasesResponse
$creadPrec :: ReadPrec ListTemplateAliasesResponse
readList :: ReadS [ListTemplateAliasesResponse]
$creadList :: ReadS [ListTemplateAliasesResponse]
readsPrec :: Int -> ReadS ListTemplateAliasesResponse
$creadsPrec :: Int -> ReadS ListTemplateAliasesResponse
Prelude.Read, Int -> ListTemplateAliasesResponse -> ShowS
[ListTemplateAliasesResponse] -> ShowS
ListTemplateAliasesResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListTemplateAliasesResponse] -> ShowS
$cshowList :: [ListTemplateAliasesResponse] -> ShowS
show :: ListTemplateAliasesResponse -> String
$cshow :: ListTemplateAliasesResponse -> String
showsPrec :: Int -> ListTemplateAliasesResponse -> ShowS
$cshowsPrec :: Int -> ListTemplateAliasesResponse -> ShowS
Prelude.Show, forall x.
Rep ListTemplateAliasesResponse x -> ListTemplateAliasesResponse
forall x.
ListTemplateAliasesResponse -> Rep ListTemplateAliasesResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep ListTemplateAliasesResponse x -> ListTemplateAliasesResponse
$cfrom :: forall x.
ListTemplateAliasesResponse -> Rep ListTemplateAliasesResponse x
Prelude.Generic)
newListTemplateAliasesResponse ::
Prelude.Int ->
ListTemplateAliasesResponse
newListTemplateAliasesResponse :: Int -> ListTemplateAliasesResponse
newListTemplateAliasesResponse Int
pStatus_ =
ListTemplateAliasesResponse'
{ $sel:nextToken:ListTemplateAliasesResponse' :: Maybe Text
nextToken =
forall a. Maybe a
Prelude.Nothing,
$sel:requestId:ListTemplateAliasesResponse' :: Maybe Text
requestId = forall a. Maybe a
Prelude.Nothing,
$sel:templateAliasList:ListTemplateAliasesResponse' :: Maybe [TemplateAlias]
templateAliasList = forall a. Maybe a
Prelude.Nothing,
$sel:status:ListTemplateAliasesResponse' :: Int
status = Int
pStatus_
}
listTemplateAliasesResponse_nextToken :: Lens.Lens' ListTemplateAliasesResponse (Prelude.Maybe Prelude.Text)
listTemplateAliasesResponse_nextToken :: Lens' ListTemplateAliasesResponse (Maybe Text)
listTemplateAliasesResponse_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListTemplateAliasesResponse' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:ListTemplateAliasesResponse' :: ListTemplateAliasesResponse -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: ListTemplateAliasesResponse
s@ListTemplateAliasesResponse' {} Maybe Text
a -> ListTemplateAliasesResponse
s {$sel:nextToken:ListTemplateAliasesResponse' :: Maybe Text
nextToken = Maybe Text
a} :: ListTemplateAliasesResponse)
listTemplateAliasesResponse_requestId :: Lens.Lens' ListTemplateAliasesResponse (Prelude.Maybe Prelude.Text)
listTemplateAliasesResponse_requestId :: Lens' ListTemplateAliasesResponse (Maybe Text)
listTemplateAliasesResponse_requestId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListTemplateAliasesResponse' {Maybe Text
requestId :: Maybe Text
$sel:requestId:ListTemplateAliasesResponse' :: ListTemplateAliasesResponse -> Maybe Text
requestId} -> Maybe Text
requestId) (\s :: ListTemplateAliasesResponse
s@ListTemplateAliasesResponse' {} Maybe Text
a -> ListTemplateAliasesResponse
s {$sel:requestId:ListTemplateAliasesResponse' :: Maybe Text
requestId = Maybe Text
a} :: ListTemplateAliasesResponse)
listTemplateAliasesResponse_templateAliasList :: Lens.Lens' ListTemplateAliasesResponse (Prelude.Maybe [TemplateAlias])
listTemplateAliasesResponse_templateAliasList :: Lens' ListTemplateAliasesResponse (Maybe [TemplateAlias])
listTemplateAliasesResponse_templateAliasList = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListTemplateAliasesResponse' {Maybe [TemplateAlias]
templateAliasList :: Maybe [TemplateAlias]
$sel:templateAliasList:ListTemplateAliasesResponse' :: ListTemplateAliasesResponse -> Maybe [TemplateAlias]
templateAliasList} -> Maybe [TemplateAlias]
templateAliasList) (\s :: ListTemplateAliasesResponse
s@ListTemplateAliasesResponse' {} Maybe [TemplateAlias]
a -> ListTemplateAliasesResponse
s {$sel:templateAliasList:ListTemplateAliasesResponse' :: Maybe [TemplateAlias]
templateAliasList = Maybe [TemplateAlias]
a} :: ListTemplateAliasesResponse) 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
listTemplateAliasesResponse_status :: Lens.Lens' ListTemplateAliasesResponse Prelude.Int
listTemplateAliasesResponse_status :: Lens' ListTemplateAliasesResponse Int
listTemplateAliasesResponse_status = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListTemplateAliasesResponse' {Int
status :: Int
$sel:status:ListTemplateAliasesResponse' :: ListTemplateAliasesResponse -> Int
status} -> Int
status) (\s :: ListTemplateAliasesResponse
s@ListTemplateAliasesResponse' {} Int
a -> ListTemplateAliasesResponse
s {$sel:status:ListTemplateAliasesResponse' :: Int
status = Int
a} :: ListTemplateAliasesResponse)
instance Prelude.NFData ListTemplateAliasesResponse where
rnf :: ListTemplateAliasesResponse -> ()
rnf ListTemplateAliasesResponse' {Int
Maybe [TemplateAlias]
Maybe Text
status :: Int
templateAliasList :: Maybe [TemplateAlias]
requestId :: Maybe Text
nextToken :: Maybe Text
$sel:status:ListTemplateAliasesResponse' :: ListTemplateAliasesResponse -> Int
$sel:templateAliasList:ListTemplateAliasesResponse' :: ListTemplateAliasesResponse -> Maybe [TemplateAlias]
$sel:requestId:ListTemplateAliasesResponse' :: ListTemplateAliasesResponse -> Maybe Text
$sel:nextToken:ListTemplateAliasesResponse' :: ListTemplateAliasesResponse -> Maybe Text
..} =
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
requestId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [TemplateAlias]
templateAliasList
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
status