{-# 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.RobOMaker.ListSimulationApplications
(
ListSimulationApplications (..),
newListSimulationApplications,
listSimulationApplications_filters,
listSimulationApplications_maxResults,
listSimulationApplications_nextToken,
listSimulationApplications_versionQualifier,
ListSimulationApplicationsResponse (..),
newListSimulationApplicationsResponse,
listSimulationApplicationsResponse_nextToken,
listSimulationApplicationsResponse_simulationApplicationSummaries,
listSimulationApplicationsResponse_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.RobOMaker.Types
data ListSimulationApplications = ListSimulationApplications'
{
ListSimulationApplications -> Maybe (NonEmpty Filter)
filters :: Prelude.Maybe (Prelude.NonEmpty Filter),
ListSimulationApplications -> Maybe Int
maxResults :: Prelude.Maybe Prelude.Int,
ListSimulationApplications -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
ListSimulationApplications -> Maybe Text
versionQualifier :: Prelude.Maybe Prelude.Text
}
deriving (ListSimulationApplications -> ListSimulationApplications -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListSimulationApplications -> ListSimulationApplications -> Bool
$c/= :: ListSimulationApplications -> ListSimulationApplications -> Bool
== :: ListSimulationApplications -> ListSimulationApplications -> Bool
$c== :: ListSimulationApplications -> ListSimulationApplications -> Bool
Prelude.Eq, ReadPrec [ListSimulationApplications]
ReadPrec ListSimulationApplications
Int -> ReadS ListSimulationApplications
ReadS [ListSimulationApplications]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListSimulationApplications]
$creadListPrec :: ReadPrec [ListSimulationApplications]
readPrec :: ReadPrec ListSimulationApplications
$creadPrec :: ReadPrec ListSimulationApplications
readList :: ReadS [ListSimulationApplications]
$creadList :: ReadS [ListSimulationApplications]
readsPrec :: Int -> ReadS ListSimulationApplications
$creadsPrec :: Int -> ReadS ListSimulationApplications
Prelude.Read, Int -> ListSimulationApplications -> ShowS
[ListSimulationApplications] -> ShowS
ListSimulationApplications -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListSimulationApplications] -> ShowS
$cshowList :: [ListSimulationApplications] -> ShowS
show :: ListSimulationApplications -> String
$cshow :: ListSimulationApplications -> String
showsPrec :: Int -> ListSimulationApplications -> ShowS
$cshowsPrec :: Int -> ListSimulationApplications -> ShowS
Prelude.Show, forall x.
Rep ListSimulationApplications x -> ListSimulationApplications
forall x.
ListSimulationApplications -> Rep ListSimulationApplications x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep ListSimulationApplications x -> ListSimulationApplications
$cfrom :: forall x.
ListSimulationApplications -> Rep ListSimulationApplications x
Prelude.Generic)
newListSimulationApplications ::
ListSimulationApplications
newListSimulationApplications :: ListSimulationApplications
newListSimulationApplications =
ListSimulationApplications'
{ $sel:filters:ListSimulationApplications' :: Maybe (NonEmpty Filter)
filters =
forall a. Maybe a
Prelude.Nothing,
$sel:maxResults:ListSimulationApplications' :: Maybe Int
maxResults = forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:ListSimulationApplications' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
$sel:versionQualifier:ListSimulationApplications' :: Maybe Text
versionQualifier = forall a. Maybe a
Prelude.Nothing
}
listSimulationApplications_filters :: Lens.Lens' ListSimulationApplications (Prelude.Maybe (Prelude.NonEmpty Filter))
listSimulationApplications_filters :: Lens' ListSimulationApplications (Maybe (NonEmpty Filter))
listSimulationApplications_filters = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListSimulationApplications' {Maybe (NonEmpty Filter)
filters :: Maybe (NonEmpty Filter)
$sel:filters:ListSimulationApplications' :: ListSimulationApplications -> Maybe (NonEmpty Filter)
filters} -> Maybe (NonEmpty Filter)
filters) (\s :: ListSimulationApplications
s@ListSimulationApplications' {} Maybe (NonEmpty Filter)
a -> ListSimulationApplications
s {$sel:filters:ListSimulationApplications' :: Maybe (NonEmpty Filter)
filters = Maybe (NonEmpty Filter)
a} :: ListSimulationApplications) 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
listSimulationApplications_maxResults :: Lens.Lens' ListSimulationApplications (Prelude.Maybe Prelude.Int)
listSimulationApplications_maxResults :: Lens' ListSimulationApplications (Maybe Int)
listSimulationApplications_maxResults = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListSimulationApplications' {Maybe Int
maxResults :: Maybe Int
$sel:maxResults:ListSimulationApplications' :: ListSimulationApplications -> Maybe Int
maxResults} -> Maybe Int
maxResults) (\s :: ListSimulationApplications
s@ListSimulationApplications' {} Maybe Int
a -> ListSimulationApplications
s {$sel:maxResults:ListSimulationApplications' :: Maybe Int
maxResults = Maybe Int
a} :: ListSimulationApplications)
listSimulationApplications_nextToken :: Lens.Lens' ListSimulationApplications (Prelude.Maybe Prelude.Text)
listSimulationApplications_nextToken :: Lens' ListSimulationApplications (Maybe Text)
listSimulationApplications_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListSimulationApplications' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:ListSimulationApplications' :: ListSimulationApplications -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: ListSimulationApplications
s@ListSimulationApplications' {} Maybe Text
a -> ListSimulationApplications
s {$sel:nextToken:ListSimulationApplications' :: Maybe Text
nextToken = Maybe Text
a} :: ListSimulationApplications)
listSimulationApplications_versionQualifier :: Lens.Lens' ListSimulationApplications (Prelude.Maybe Prelude.Text)
listSimulationApplications_versionQualifier :: Lens' ListSimulationApplications (Maybe Text)
listSimulationApplications_versionQualifier = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListSimulationApplications' {Maybe Text
versionQualifier :: Maybe Text
$sel:versionQualifier:ListSimulationApplications' :: ListSimulationApplications -> Maybe Text
versionQualifier} -> Maybe Text
versionQualifier) (\s :: ListSimulationApplications
s@ListSimulationApplications' {} Maybe Text
a -> ListSimulationApplications
s {$sel:versionQualifier:ListSimulationApplications' :: Maybe Text
versionQualifier = Maybe Text
a} :: ListSimulationApplications)
instance Core.AWSPager ListSimulationApplications where
page :: ListSimulationApplications
-> AWSResponse ListSimulationApplications
-> Maybe ListSimulationApplications
page ListSimulationApplications
rq AWSResponse ListSimulationApplications
rs
| forall a. AWSTruncated a => a -> Bool
Core.stop
( AWSResponse ListSimulationApplications
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' ListSimulationApplicationsResponse (Maybe Text)
listSimulationApplicationsResponse_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 ListSimulationApplications
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens'
ListSimulationApplicationsResponse
(Maybe [SimulationApplicationSummary])
listSimulationApplicationsResponse_simulationApplicationSummaries
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.$ ListSimulationApplications
rq
forall a b. a -> (a -> b) -> b
Prelude.& Lens' ListSimulationApplications (Maybe Text)
listSimulationApplications_nextToken
forall s t a b. ASetter s t a b -> b -> s -> t
Lens..~ AWSResponse ListSimulationApplications
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' ListSimulationApplicationsResponse (Maybe Text)
listSimulationApplicationsResponse_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 ListSimulationApplications where
type
AWSResponse ListSimulationApplications =
ListSimulationApplicationsResponse
request :: (Service -> Service)
-> ListSimulationApplications -> Request ListSimulationApplications
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 ListSimulationApplications
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse ListSimulationApplications)))
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 [SimulationApplicationSummary]
-> Int
-> ListSimulationApplicationsResponse
ListSimulationApplicationsResponse'
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
"simulationApplicationSummaries"
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 ListSimulationApplications where
hashWithSalt :: Int -> ListSimulationApplications -> Int
hashWithSalt Int
_salt ListSimulationApplications' {Maybe Int
Maybe (NonEmpty Filter)
Maybe Text
versionQualifier :: Maybe Text
nextToken :: Maybe Text
maxResults :: Maybe Int
filters :: Maybe (NonEmpty Filter)
$sel:versionQualifier:ListSimulationApplications' :: ListSimulationApplications -> Maybe Text
$sel:nextToken:ListSimulationApplications' :: ListSimulationApplications -> Maybe Text
$sel:maxResults:ListSimulationApplications' :: ListSimulationApplications -> Maybe Int
$sel:filters:ListSimulationApplications' :: ListSimulationApplications -> Maybe (NonEmpty Filter)
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe (NonEmpty Filter)
filters
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Int
maxResults
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
nextToken
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
versionQualifier
instance Prelude.NFData ListSimulationApplications where
rnf :: ListSimulationApplications -> ()
rnf ListSimulationApplications' {Maybe Int
Maybe (NonEmpty Filter)
Maybe Text
versionQualifier :: Maybe Text
nextToken :: Maybe Text
maxResults :: Maybe Int
filters :: Maybe (NonEmpty Filter)
$sel:versionQualifier:ListSimulationApplications' :: ListSimulationApplications -> Maybe Text
$sel:nextToken:ListSimulationApplications' :: ListSimulationApplications -> Maybe Text
$sel:maxResults:ListSimulationApplications' :: ListSimulationApplications -> Maybe Int
$sel:filters:ListSimulationApplications' :: ListSimulationApplications -> Maybe (NonEmpty Filter)
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe (NonEmpty Filter)
filters
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Int
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
versionQualifier
instance Data.ToHeaders ListSimulationApplications where
toHeaders :: ListSimulationApplications -> 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.ToJSON ListSimulationApplications where
toJSON :: ListSimulationApplications -> Value
toJSON ListSimulationApplications' {Maybe Int
Maybe (NonEmpty Filter)
Maybe Text
versionQualifier :: Maybe Text
nextToken :: Maybe Text
maxResults :: Maybe Int
filters :: Maybe (NonEmpty Filter)
$sel:versionQualifier:ListSimulationApplications' :: ListSimulationApplications -> Maybe Text
$sel:nextToken:ListSimulationApplications' :: ListSimulationApplications -> Maybe Text
$sel:maxResults:ListSimulationApplications' :: ListSimulationApplications -> Maybe Int
$sel:filters:ListSimulationApplications' :: ListSimulationApplications -> Maybe (NonEmpty Filter)
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"filters" 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 (NonEmpty Filter)
filters,
(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 Int
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
"versionQualifier" 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
versionQualifier
]
)
instance Data.ToPath ListSimulationApplications where
toPath :: ListSimulationApplications -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/listSimulationApplications"
instance Data.ToQuery ListSimulationApplications where
toQuery :: ListSimulationApplications -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data ListSimulationApplicationsResponse = ListSimulationApplicationsResponse'
{
ListSimulationApplicationsResponse -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
ListSimulationApplicationsResponse
-> Maybe [SimulationApplicationSummary]
simulationApplicationSummaries :: Prelude.Maybe [SimulationApplicationSummary],
ListSimulationApplicationsResponse -> Int
httpStatus :: Prelude.Int
}
deriving (ListSimulationApplicationsResponse
-> ListSimulationApplicationsResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListSimulationApplicationsResponse
-> ListSimulationApplicationsResponse -> Bool
$c/= :: ListSimulationApplicationsResponse
-> ListSimulationApplicationsResponse -> Bool
== :: ListSimulationApplicationsResponse
-> ListSimulationApplicationsResponse -> Bool
$c== :: ListSimulationApplicationsResponse
-> ListSimulationApplicationsResponse -> Bool
Prelude.Eq, ReadPrec [ListSimulationApplicationsResponse]
ReadPrec ListSimulationApplicationsResponse
Int -> ReadS ListSimulationApplicationsResponse
ReadS [ListSimulationApplicationsResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListSimulationApplicationsResponse]
$creadListPrec :: ReadPrec [ListSimulationApplicationsResponse]
readPrec :: ReadPrec ListSimulationApplicationsResponse
$creadPrec :: ReadPrec ListSimulationApplicationsResponse
readList :: ReadS [ListSimulationApplicationsResponse]
$creadList :: ReadS [ListSimulationApplicationsResponse]
readsPrec :: Int -> ReadS ListSimulationApplicationsResponse
$creadsPrec :: Int -> ReadS ListSimulationApplicationsResponse
Prelude.Read, Int -> ListSimulationApplicationsResponse -> ShowS
[ListSimulationApplicationsResponse] -> ShowS
ListSimulationApplicationsResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListSimulationApplicationsResponse] -> ShowS
$cshowList :: [ListSimulationApplicationsResponse] -> ShowS
show :: ListSimulationApplicationsResponse -> String
$cshow :: ListSimulationApplicationsResponse -> String
showsPrec :: Int -> ListSimulationApplicationsResponse -> ShowS
$cshowsPrec :: Int -> ListSimulationApplicationsResponse -> ShowS
Prelude.Show, forall x.
Rep ListSimulationApplicationsResponse x
-> ListSimulationApplicationsResponse
forall x.
ListSimulationApplicationsResponse
-> Rep ListSimulationApplicationsResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep ListSimulationApplicationsResponse x
-> ListSimulationApplicationsResponse
$cfrom :: forall x.
ListSimulationApplicationsResponse
-> Rep ListSimulationApplicationsResponse x
Prelude.Generic)
newListSimulationApplicationsResponse ::
Prelude.Int ->
ListSimulationApplicationsResponse
newListSimulationApplicationsResponse :: Int -> ListSimulationApplicationsResponse
newListSimulationApplicationsResponse Int
pHttpStatus_ =
ListSimulationApplicationsResponse'
{ $sel:nextToken:ListSimulationApplicationsResponse' :: Maybe Text
nextToken =
forall a. Maybe a
Prelude.Nothing,
$sel:simulationApplicationSummaries:ListSimulationApplicationsResponse' :: Maybe [SimulationApplicationSummary]
simulationApplicationSummaries =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:ListSimulationApplicationsResponse' :: Int
httpStatus = Int
pHttpStatus_
}
listSimulationApplicationsResponse_nextToken :: Lens.Lens' ListSimulationApplicationsResponse (Prelude.Maybe Prelude.Text)
listSimulationApplicationsResponse_nextToken :: Lens' ListSimulationApplicationsResponse (Maybe Text)
listSimulationApplicationsResponse_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListSimulationApplicationsResponse' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:ListSimulationApplicationsResponse' :: ListSimulationApplicationsResponse -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: ListSimulationApplicationsResponse
s@ListSimulationApplicationsResponse' {} Maybe Text
a -> ListSimulationApplicationsResponse
s {$sel:nextToken:ListSimulationApplicationsResponse' :: Maybe Text
nextToken = Maybe Text
a} :: ListSimulationApplicationsResponse)
listSimulationApplicationsResponse_simulationApplicationSummaries :: Lens.Lens' ListSimulationApplicationsResponse (Prelude.Maybe [SimulationApplicationSummary])
listSimulationApplicationsResponse_simulationApplicationSummaries :: Lens'
ListSimulationApplicationsResponse
(Maybe [SimulationApplicationSummary])
listSimulationApplicationsResponse_simulationApplicationSummaries = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListSimulationApplicationsResponse' {Maybe [SimulationApplicationSummary]
simulationApplicationSummaries :: Maybe [SimulationApplicationSummary]
$sel:simulationApplicationSummaries:ListSimulationApplicationsResponse' :: ListSimulationApplicationsResponse
-> Maybe [SimulationApplicationSummary]
simulationApplicationSummaries} -> Maybe [SimulationApplicationSummary]
simulationApplicationSummaries) (\s :: ListSimulationApplicationsResponse
s@ListSimulationApplicationsResponse' {} Maybe [SimulationApplicationSummary]
a -> ListSimulationApplicationsResponse
s {$sel:simulationApplicationSummaries:ListSimulationApplicationsResponse' :: Maybe [SimulationApplicationSummary]
simulationApplicationSummaries = Maybe [SimulationApplicationSummary]
a} :: ListSimulationApplicationsResponse) 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
listSimulationApplicationsResponse_httpStatus :: Lens.Lens' ListSimulationApplicationsResponse Prelude.Int
listSimulationApplicationsResponse_httpStatus :: Lens' ListSimulationApplicationsResponse Int
listSimulationApplicationsResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListSimulationApplicationsResponse' {Int
httpStatus :: Int
$sel:httpStatus:ListSimulationApplicationsResponse' :: ListSimulationApplicationsResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: ListSimulationApplicationsResponse
s@ListSimulationApplicationsResponse' {} Int
a -> ListSimulationApplicationsResponse
s {$sel:httpStatus:ListSimulationApplicationsResponse' :: Int
httpStatus = Int
a} :: ListSimulationApplicationsResponse)
instance
Prelude.NFData
ListSimulationApplicationsResponse
where
rnf :: ListSimulationApplicationsResponse -> ()
rnf ListSimulationApplicationsResponse' {Int
Maybe [SimulationApplicationSummary]
Maybe Text
httpStatus :: Int
simulationApplicationSummaries :: Maybe [SimulationApplicationSummary]
nextToken :: Maybe Text
$sel:httpStatus:ListSimulationApplicationsResponse' :: ListSimulationApplicationsResponse -> Int
$sel:simulationApplicationSummaries:ListSimulationApplicationsResponse' :: ListSimulationApplicationsResponse
-> Maybe [SimulationApplicationSummary]
$sel:nextToken:ListSimulationApplicationsResponse' :: ListSimulationApplicationsResponse -> 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 [SimulationApplicationSummary]
simulationApplicationSummaries
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus