{-# 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.IoTDeviceAdvisor.GetSuiteDefinition
(
GetSuiteDefinition (..),
newGetSuiteDefinition,
getSuiteDefinition_suiteDefinitionVersion,
getSuiteDefinition_suiteDefinitionId,
GetSuiteDefinitionResponse (..),
newGetSuiteDefinitionResponse,
getSuiteDefinitionResponse_createdAt,
getSuiteDefinitionResponse_lastModifiedAt,
getSuiteDefinitionResponse_latestVersion,
getSuiteDefinitionResponse_suiteDefinitionArn,
getSuiteDefinitionResponse_suiteDefinitionConfiguration,
getSuiteDefinitionResponse_suiteDefinitionId,
getSuiteDefinitionResponse_suiteDefinitionVersion,
getSuiteDefinitionResponse_tags,
getSuiteDefinitionResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.IoTDeviceAdvisor.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data GetSuiteDefinition = GetSuiteDefinition'
{
GetSuiteDefinition -> Maybe Text
suiteDefinitionVersion :: Prelude.Maybe Prelude.Text,
GetSuiteDefinition -> Text
suiteDefinitionId :: Prelude.Text
}
deriving (GetSuiteDefinition -> GetSuiteDefinition -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetSuiteDefinition -> GetSuiteDefinition -> Bool
$c/= :: GetSuiteDefinition -> GetSuiteDefinition -> Bool
== :: GetSuiteDefinition -> GetSuiteDefinition -> Bool
$c== :: GetSuiteDefinition -> GetSuiteDefinition -> Bool
Prelude.Eq, ReadPrec [GetSuiteDefinition]
ReadPrec GetSuiteDefinition
Int -> ReadS GetSuiteDefinition
ReadS [GetSuiteDefinition]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetSuiteDefinition]
$creadListPrec :: ReadPrec [GetSuiteDefinition]
readPrec :: ReadPrec GetSuiteDefinition
$creadPrec :: ReadPrec GetSuiteDefinition
readList :: ReadS [GetSuiteDefinition]
$creadList :: ReadS [GetSuiteDefinition]
readsPrec :: Int -> ReadS GetSuiteDefinition
$creadsPrec :: Int -> ReadS GetSuiteDefinition
Prelude.Read, Int -> GetSuiteDefinition -> ShowS
[GetSuiteDefinition] -> ShowS
GetSuiteDefinition -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetSuiteDefinition] -> ShowS
$cshowList :: [GetSuiteDefinition] -> ShowS
show :: GetSuiteDefinition -> String
$cshow :: GetSuiteDefinition -> String
showsPrec :: Int -> GetSuiteDefinition -> ShowS
$cshowsPrec :: Int -> GetSuiteDefinition -> ShowS
Prelude.Show, forall x. Rep GetSuiteDefinition x -> GetSuiteDefinition
forall x. GetSuiteDefinition -> Rep GetSuiteDefinition x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep GetSuiteDefinition x -> GetSuiteDefinition
$cfrom :: forall x. GetSuiteDefinition -> Rep GetSuiteDefinition x
Prelude.Generic)
newGetSuiteDefinition ::
Prelude.Text ->
GetSuiteDefinition
newGetSuiteDefinition :: Text -> GetSuiteDefinition
newGetSuiteDefinition Text
pSuiteDefinitionId_ =
GetSuiteDefinition'
{ $sel:suiteDefinitionVersion:GetSuiteDefinition' :: Maybe Text
suiteDefinitionVersion =
forall a. Maybe a
Prelude.Nothing,
$sel:suiteDefinitionId:GetSuiteDefinition' :: Text
suiteDefinitionId = Text
pSuiteDefinitionId_
}
getSuiteDefinition_suiteDefinitionVersion :: Lens.Lens' GetSuiteDefinition (Prelude.Maybe Prelude.Text)
getSuiteDefinition_suiteDefinitionVersion :: Lens' GetSuiteDefinition (Maybe Text)
getSuiteDefinition_suiteDefinitionVersion = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetSuiteDefinition' {Maybe Text
suiteDefinitionVersion :: Maybe Text
$sel:suiteDefinitionVersion:GetSuiteDefinition' :: GetSuiteDefinition -> Maybe Text
suiteDefinitionVersion} -> Maybe Text
suiteDefinitionVersion) (\s :: GetSuiteDefinition
s@GetSuiteDefinition' {} Maybe Text
a -> GetSuiteDefinition
s {$sel:suiteDefinitionVersion:GetSuiteDefinition' :: Maybe Text
suiteDefinitionVersion = Maybe Text
a} :: GetSuiteDefinition)
getSuiteDefinition_suiteDefinitionId :: Lens.Lens' GetSuiteDefinition Prelude.Text
getSuiteDefinition_suiteDefinitionId :: Lens' GetSuiteDefinition Text
getSuiteDefinition_suiteDefinitionId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetSuiteDefinition' {Text
suiteDefinitionId :: Text
$sel:suiteDefinitionId:GetSuiteDefinition' :: GetSuiteDefinition -> Text
suiteDefinitionId} -> Text
suiteDefinitionId) (\s :: GetSuiteDefinition
s@GetSuiteDefinition' {} Text
a -> GetSuiteDefinition
s {$sel:suiteDefinitionId:GetSuiteDefinition' :: Text
suiteDefinitionId = Text
a} :: GetSuiteDefinition)
instance Core.AWSRequest GetSuiteDefinition where
type
AWSResponse GetSuiteDefinition =
GetSuiteDefinitionResponse
request :: (Service -> Service)
-> GetSuiteDefinition -> Request GetSuiteDefinition
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 GetSuiteDefinition
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse GetSuiteDefinition)))
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 POSIX
-> Maybe POSIX
-> Maybe Text
-> Maybe Text
-> Maybe SuiteDefinitionConfiguration
-> Maybe Text
-> Maybe Text
-> Maybe (HashMap Text Text)
-> Int
-> GetSuiteDefinitionResponse
GetSuiteDefinitionResponse'
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
"createdAt")
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
"lastModifiedAt")
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
"latestVersion")
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
"suiteDefinitionArn")
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
"suiteDefinitionConfiguration")
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
"suiteDefinitionId")
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
"suiteDefinitionVersion")
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
"tags" 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 GetSuiteDefinition where
hashWithSalt :: Int -> GetSuiteDefinition -> Int
hashWithSalt Int
_salt GetSuiteDefinition' {Maybe Text
Text
suiteDefinitionId :: Text
suiteDefinitionVersion :: Maybe Text
$sel:suiteDefinitionId:GetSuiteDefinition' :: GetSuiteDefinition -> Text
$sel:suiteDefinitionVersion:GetSuiteDefinition' :: GetSuiteDefinition -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
suiteDefinitionVersion
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
suiteDefinitionId
instance Prelude.NFData GetSuiteDefinition where
rnf :: GetSuiteDefinition -> ()
rnf GetSuiteDefinition' {Maybe Text
Text
suiteDefinitionId :: Text
suiteDefinitionVersion :: Maybe Text
$sel:suiteDefinitionId:GetSuiteDefinition' :: GetSuiteDefinition -> Text
$sel:suiteDefinitionVersion:GetSuiteDefinition' :: GetSuiteDefinition -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
suiteDefinitionVersion
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
suiteDefinitionId
instance Data.ToHeaders GetSuiteDefinition where
toHeaders :: GetSuiteDefinition -> 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 GetSuiteDefinition where
toPath :: GetSuiteDefinition -> ByteString
toPath GetSuiteDefinition' {Maybe Text
Text
suiteDefinitionId :: Text
suiteDefinitionVersion :: Maybe Text
$sel:suiteDefinitionId:GetSuiteDefinition' :: GetSuiteDefinition -> Text
$sel:suiteDefinitionVersion:GetSuiteDefinition' :: GetSuiteDefinition -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ByteString
"/suiteDefinitions/", forall a. ToByteString a => a -> ByteString
Data.toBS Text
suiteDefinitionId]
instance Data.ToQuery GetSuiteDefinition where
toQuery :: GetSuiteDefinition -> QueryString
toQuery GetSuiteDefinition' {Maybe Text
Text
suiteDefinitionId :: Text
suiteDefinitionVersion :: Maybe Text
$sel:suiteDefinitionId:GetSuiteDefinition' :: GetSuiteDefinition -> Text
$sel:suiteDefinitionVersion:GetSuiteDefinition' :: GetSuiteDefinition -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"suiteDefinitionVersion"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
suiteDefinitionVersion
]
data GetSuiteDefinitionResponse = GetSuiteDefinitionResponse'
{
GetSuiteDefinitionResponse -> Maybe POSIX
createdAt :: Prelude.Maybe Data.POSIX,
GetSuiteDefinitionResponse -> Maybe POSIX
lastModifiedAt :: Prelude.Maybe Data.POSIX,
GetSuiteDefinitionResponse -> Maybe Text
latestVersion :: Prelude.Maybe Prelude.Text,
GetSuiteDefinitionResponse -> Maybe Text
suiteDefinitionArn :: Prelude.Maybe Prelude.Text,
GetSuiteDefinitionResponse -> Maybe SuiteDefinitionConfiguration
suiteDefinitionConfiguration :: Prelude.Maybe SuiteDefinitionConfiguration,
GetSuiteDefinitionResponse -> Maybe Text
suiteDefinitionId :: Prelude.Maybe Prelude.Text,
GetSuiteDefinitionResponse -> Maybe Text
suiteDefinitionVersion :: Prelude.Maybe Prelude.Text,
GetSuiteDefinitionResponse -> Maybe (HashMap Text Text)
tags :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),
GetSuiteDefinitionResponse -> Int
httpStatus :: Prelude.Int
}
deriving (GetSuiteDefinitionResponse -> GetSuiteDefinitionResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetSuiteDefinitionResponse -> GetSuiteDefinitionResponse -> Bool
$c/= :: GetSuiteDefinitionResponse -> GetSuiteDefinitionResponse -> Bool
== :: GetSuiteDefinitionResponse -> GetSuiteDefinitionResponse -> Bool
$c== :: GetSuiteDefinitionResponse -> GetSuiteDefinitionResponse -> Bool
Prelude.Eq, ReadPrec [GetSuiteDefinitionResponse]
ReadPrec GetSuiteDefinitionResponse
Int -> ReadS GetSuiteDefinitionResponse
ReadS [GetSuiteDefinitionResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetSuiteDefinitionResponse]
$creadListPrec :: ReadPrec [GetSuiteDefinitionResponse]
readPrec :: ReadPrec GetSuiteDefinitionResponse
$creadPrec :: ReadPrec GetSuiteDefinitionResponse
readList :: ReadS [GetSuiteDefinitionResponse]
$creadList :: ReadS [GetSuiteDefinitionResponse]
readsPrec :: Int -> ReadS GetSuiteDefinitionResponse
$creadsPrec :: Int -> ReadS GetSuiteDefinitionResponse
Prelude.Read, Int -> GetSuiteDefinitionResponse -> ShowS
[GetSuiteDefinitionResponse] -> ShowS
GetSuiteDefinitionResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetSuiteDefinitionResponse] -> ShowS
$cshowList :: [GetSuiteDefinitionResponse] -> ShowS
show :: GetSuiteDefinitionResponse -> String
$cshow :: GetSuiteDefinitionResponse -> String
showsPrec :: Int -> GetSuiteDefinitionResponse -> ShowS
$cshowsPrec :: Int -> GetSuiteDefinitionResponse -> ShowS
Prelude.Show, forall x.
Rep GetSuiteDefinitionResponse x -> GetSuiteDefinitionResponse
forall x.
GetSuiteDefinitionResponse -> Rep GetSuiteDefinitionResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep GetSuiteDefinitionResponse x -> GetSuiteDefinitionResponse
$cfrom :: forall x.
GetSuiteDefinitionResponse -> Rep GetSuiteDefinitionResponse x
Prelude.Generic)
newGetSuiteDefinitionResponse ::
Prelude.Int ->
GetSuiteDefinitionResponse
newGetSuiteDefinitionResponse :: Int -> GetSuiteDefinitionResponse
newGetSuiteDefinitionResponse Int
pHttpStatus_ =
GetSuiteDefinitionResponse'
{ $sel:createdAt:GetSuiteDefinitionResponse' :: Maybe POSIX
createdAt =
forall a. Maybe a
Prelude.Nothing,
$sel:lastModifiedAt:GetSuiteDefinitionResponse' :: Maybe POSIX
lastModifiedAt = forall a. Maybe a
Prelude.Nothing,
$sel:latestVersion:GetSuiteDefinitionResponse' :: Maybe Text
latestVersion = forall a. Maybe a
Prelude.Nothing,
$sel:suiteDefinitionArn:GetSuiteDefinitionResponse' :: Maybe Text
suiteDefinitionArn = forall a. Maybe a
Prelude.Nothing,
$sel:suiteDefinitionConfiguration:GetSuiteDefinitionResponse' :: Maybe SuiteDefinitionConfiguration
suiteDefinitionConfiguration = forall a. Maybe a
Prelude.Nothing,
$sel:suiteDefinitionId:GetSuiteDefinitionResponse' :: Maybe Text
suiteDefinitionId = forall a. Maybe a
Prelude.Nothing,
$sel:suiteDefinitionVersion:GetSuiteDefinitionResponse' :: Maybe Text
suiteDefinitionVersion = forall a. Maybe a
Prelude.Nothing,
$sel:tags:GetSuiteDefinitionResponse' :: Maybe (HashMap Text Text)
tags = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:GetSuiteDefinitionResponse' :: Int
httpStatus = Int
pHttpStatus_
}
getSuiteDefinitionResponse_createdAt :: Lens.Lens' GetSuiteDefinitionResponse (Prelude.Maybe Prelude.UTCTime)
getSuiteDefinitionResponse_createdAt :: Lens' GetSuiteDefinitionResponse (Maybe UTCTime)
getSuiteDefinitionResponse_createdAt = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetSuiteDefinitionResponse' {Maybe POSIX
createdAt :: Maybe POSIX
$sel:createdAt:GetSuiteDefinitionResponse' :: GetSuiteDefinitionResponse -> Maybe POSIX
createdAt} -> Maybe POSIX
createdAt) (\s :: GetSuiteDefinitionResponse
s@GetSuiteDefinitionResponse' {} Maybe POSIX
a -> GetSuiteDefinitionResponse
s {$sel:createdAt:GetSuiteDefinitionResponse' :: Maybe POSIX
createdAt = Maybe POSIX
a} :: GetSuiteDefinitionResponse) 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 (a :: Format). Iso' (Time a) UTCTime
Data._Time
getSuiteDefinitionResponse_lastModifiedAt :: Lens.Lens' GetSuiteDefinitionResponse (Prelude.Maybe Prelude.UTCTime)
getSuiteDefinitionResponse_lastModifiedAt :: Lens' GetSuiteDefinitionResponse (Maybe UTCTime)
getSuiteDefinitionResponse_lastModifiedAt = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetSuiteDefinitionResponse' {Maybe POSIX
lastModifiedAt :: Maybe POSIX
$sel:lastModifiedAt:GetSuiteDefinitionResponse' :: GetSuiteDefinitionResponse -> Maybe POSIX
lastModifiedAt} -> Maybe POSIX
lastModifiedAt) (\s :: GetSuiteDefinitionResponse
s@GetSuiteDefinitionResponse' {} Maybe POSIX
a -> GetSuiteDefinitionResponse
s {$sel:lastModifiedAt:GetSuiteDefinitionResponse' :: Maybe POSIX
lastModifiedAt = Maybe POSIX
a} :: GetSuiteDefinitionResponse) 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 (a :: Format). Iso' (Time a) UTCTime
Data._Time
getSuiteDefinitionResponse_latestVersion :: Lens.Lens' GetSuiteDefinitionResponse (Prelude.Maybe Prelude.Text)
getSuiteDefinitionResponse_latestVersion :: Lens' GetSuiteDefinitionResponse (Maybe Text)
getSuiteDefinitionResponse_latestVersion = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetSuiteDefinitionResponse' {Maybe Text
latestVersion :: Maybe Text
$sel:latestVersion:GetSuiteDefinitionResponse' :: GetSuiteDefinitionResponse -> Maybe Text
latestVersion} -> Maybe Text
latestVersion) (\s :: GetSuiteDefinitionResponse
s@GetSuiteDefinitionResponse' {} Maybe Text
a -> GetSuiteDefinitionResponse
s {$sel:latestVersion:GetSuiteDefinitionResponse' :: Maybe Text
latestVersion = Maybe Text
a} :: GetSuiteDefinitionResponse)
getSuiteDefinitionResponse_suiteDefinitionArn :: Lens.Lens' GetSuiteDefinitionResponse (Prelude.Maybe Prelude.Text)
getSuiteDefinitionResponse_suiteDefinitionArn :: Lens' GetSuiteDefinitionResponse (Maybe Text)
getSuiteDefinitionResponse_suiteDefinitionArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetSuiteDefinitionResponse' {Maybe Text
suiteDefinitionArn :: Maybe Text
$sel:suiteDefinitionArn:GetSuiteDefinitionResponse' :: GetSuiteDefinitionResponse -> Maybe Text
suiteDefinitionArn} -> Maybe Text
suiteDefinitionArn) (\s :: GetSuiteDefinitionResponse
s@GetSuiteDefinitionResponse' {} Maybe Text
a -> GetSuiteDefinitionResponse
s {$sel:suiteDefinitionArn:GetSuiteDefinitionResponse' :: Maybe Text
suiteDefinitionArn = Maybe Text
a} :: GetSuiteDefinitionResponse)
getSuiteDefinitionResponse_suiteDefinitionConfiguration :: Lens.Lens' GetSuiteDefinitionResponse (Prelude.Maybe SuiteDefinitionConfiguration)
getSuiteDefinitionResponse_suiteDefinitionConfiguration :: Lens'
GetSuiteDefinitionResponse (Maybe SuiteDefinitionConfiguration)
getSuiteDefinitionResponse_suiteDefinitionConfiguration = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetSuiteDefinitionResponse' {Maybe SuiteDefinitionConfiguration
suiteDefinitionConfiguration :: Maybe SuiteDefinitionConfiguration
$sel:suiteDefinitionConfiguration:GetSuiteDefinitionResponse' :: GetSuiteDefinitionResponse -> Maybe SuiteDefinitionConfiguration
suiteDefinitionConfiguration} -> Maybe SuiteDefinitionConfiguration
suiteDefinitionConfiguration) (\s :: GetSuiteDefinitionResponse
s@GetSuiteDefinitionResponse' {} Maybe SuiteDefinitionConfiguration
a -> GetSuiteDefinitionResponse
s {$sel:suiteDefinitionConfiguration:GetSuiteDefinitionResponse' :: Maybe SuiteDefinitionConfiguration
suiteDefinitionConfiguration = Maybe SuiteDefinitionConfiguration
a} :: GetSuiteDefinitionResponse)
getSuiteDefinitionResponse_suiteDefinitionId :: Lens.Lens' GetSuiteDefinitionResponse (Prelude.Maybe Prelude.Text)
getSuiteDefinitionResponse_suiteDefinitionId :: Lens' GetSuiteDefinitionResponse (Maybe Text)
getSuiteDefinitionResponse_suiteDefinitionId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetSuiteDefinitionResponse' {Maybe Text
suiteDefinitionId :: Maybe Text
$sel:suiteDefinitionId:GetSuiteDefinitionResponse' :: GetSuiteDefinitionResponse -> Maybe Text
suiteDefinitionId} -> Maybe Text
suiteDefinitionId) (\s :: GetSuiteDefinitionResponse
s@GetSuiteDefinitionResponse' {} Maybe Text
a -> GetSuiteDefinitionResponse
s {$sel:suiteDefinitionId:GetSuiteDefinitionResponse' :: Maybe Text
suiteDefinitionId = Maybe Text
a} :: GetSuiteDefinitionResponse)
getSuiteDefinitionResponse_suiteDefinitionVersion :: Lens.Lens' GetSuiteDefinitionResponse (Prelude.Maybe Prelude.Text)
getSuiteDefinitionResponse_suiteDefinitionVersion :: Lens' GetSuiteDefinitionResponse (Maybe Text)
getSuiteDefinitionResponse_suiteDefinitionVersion = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetSuiteDefinitionResponse' {Maybe Text
suiteDefinitionVersion :: Maybe Text
$sel:suiteDefinitionVersion:GetSuiteDefinitionResponse' :: GetSuiteDefinitionResponse -> Maybe Text
suiteDefinitionVersion} -> Maybe Text
suiteDefinitionVersion) (\s :: GetSuiteDefinitionResponse
s@GetSuiteDefinitionResponse' {} Maybe Text
a -> GetSuiteDefinitionResponse
s {$sel:suiteDefinitionVersion:GetSuiteDefinitionResponse' :: Maybe Text
suiteDefinitionVersion = Maybe Text
a} :: GetSuiteDefinitionResponse)
getSuiteDefinitionResponse_tags :: Lens.Lens' GetSuiteDefinitionResponse (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))
getSuiteDefinitionResponse_tags :: Lens' GetSuiteDefinitionResponse (Maybe (HashMap Text Text))
getSuiteDefinitionResponse_tags = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetSuiteDefinitionResponse' {Maybe (HashMap Text Text)
tags :: Maybe (HashMap Text Text)
$sel:tags:GetSuiteDefinitionResponse' :: GetSuiteDefinitionResponse -> Maybe (HashMap Text Text)
tags} -> Maybe (HashMap Text Text)
tags) (\s :: GetSuiteDefinitionResponse
s@GetSuiteDefinitionResponse' {} Maybe (HashMap Text Text)
a -> GetSuiteDefinitionResponse
s {$sel:tags:GetSuiteDefinitionResponse' :: Maybe (HashMap Text Text)
tags = Maybe (HashMap Text Text)
a} :: GetSuiteDefinitionResponse) 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
getSuiteDefinitionResponse_httpStatus :: Lens.Lens' GetSuiteDefinitionResponse Prelude.Int
getSuiteDefinitionResponse_httpStatus :: Lens' GetSuiteDefinitionResponse Int
getSuiteDefinitionResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetSuiteDefinitionResponse' {Int
httpStatus :: Int
$sel:httpStatus:GetSuiteDefinitionResponse' :: GetSuiteDefinitionResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: GetSuiteDefinitionResponse
s@GetSuiteDefinitionResponse' {} Int
a -> GetSuiteDefinitionResponse
s {$sel:httpStatus:GetSuiteDefinitionResponse' :: Int
httpStatus = Int
a} :: GetSuiteDefinitionResponse)
instance Prelude.NFData GetSuiteDefinitionResponse where
rnf :: GetSuiteDefinitionResponse -> ()
rnf GetSuiteDefinitionResponse' {Int
Maybe Text
Maybe (HashMap Text Text)
Maybe POSIX
Maybe SuiteDefinitionConfiguration
httpStatus :: Int
tags :: Maybe (HashMap Text Text)
suiteDefinitionVersion :: Maybe Text
suiteDefinitionId :: Maybe Text
suiteDefinitionConfiguration :: Maybe SuiteDefinitionConfiguration
suiteDefinitionArn :: Maybe Text
latestVersion :: Maybe Text
lastModifiedAt :: Maybe POSIX
createdAt :: Maybe POSIX
$sel:httpStatus:GetSuiteDefinitionResponse' :: GetSuiteDefinitionResponse -> Int
$sel:tags:GetSuiteDefinitionResponse' :: GetSuiteDefinitionResponse -> Maybe (HashMap Text Text)
$sel:suiteDefinitionVersion:GetSuiteDefinitionResponse' :: GetSuiteDefinitionResponse -> Maybe Text
$sel:suiteDefinitionId:GetSuiteDefinitionResponse' :: GetSuiteDefinitionResponse -> Maybe Text
$sel:suiteDefinitionConfiguration:GetSuiteDefinitionResponse' :: GetSuiteDefinitionResponse -> Maybe SuiteDefinitionConfiguration
$sel:suiteDefinitionArn:GetSuiteDefinitionResponse' :: GetSuiteDefinitionResponse -> Maybe Text
$sel:latestVersion:GetSuiteDefinitionResponse' :: GetSuiteDefinitionResponse -> Maybe Text
$sel:lastModifiedAt:GetSuiteDefinitionResponse' :: GetSuiteDefinitionResponse -> Maybe POSIX
$sel:createdAt:GetSuiteDefinitionResponse' :: GetSuiteDefinitionResponse -> Maybe POSIX
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe POSIX
createdAt
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe POSIX
lastModifiedAt
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
latestVersion
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
suiteDefinitionArn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe SuiteDefinitionConfiguration
suiteDefinitionConfiguration
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
suiteDefinitionId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
suiteDefinitionVersion
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe (HashMap Text Text)
tags
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus