{-# 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.Panorama.DescribeApplicationInstance
(
DescribeApplicationInstance (..),
newDescribeApplicationInstance,
describeApplicationInstance_applicationInstanceId,
DescribeApplicationInstanceResponse (..),
newDescribeApplicationInstanceResponse,
describeApplicationInstanceResponse_applicationInstanceId,
describeApplicationInstanceResponse_applicationInstanceIdToReplace,
describeApplicationInstanceResponse_arn,
describeApplicationInstanceResponse_createdTime,
describeApplicationInstanceResponse_defaultRuntimeContextDevice,
describeApplicationInstanceResponse_defaultRuntimeContextDeviceName,
describeApplicationInstanceResponse_description,
describeApplicationInstanceResponse_healthStatus,
describeApplicationInstanceResponse_lastUpdatedTime,
describeApplicationInstanceResponse_name,
describeApplicationInstanceResponse_runtimeContextStates,
describeApplicationInstanceResponse_runtimeRoleArn,
describeApplicationInstanceResponse_status,
describeApplicationInstanceResponse_statusDescription,
describeApplicationInstanceResponse_tags,
describeApplicationInstanceResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.Panorama.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data DescribeApplicationInstance = DescribeApplicationInstance'
{
DescribeApplicationInstance -> Text
applicationInstanceId :: Prelude.Text
}
deriving (DescribeApplicationInstance -> DescribeApplicationInstance -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeApplicationInstance -> DescribeApplicationInstance -> Bool
$c/= :: DescribeApplicationInstance -> DescribeApplicationInstance -> Bool
== :: DescribeApplicationInstance -> DescribeApplicationInstance -> Bool
$c== :: DescribeApplicationInstance -> DescribeApplicationInstance -> Bool
Prelude.Eq, ReadPrec [DescribeApplicationInstance]
ReadPrec DescribeApplicationInstance
Int -> ReadS DescribeApplicationInstance
ReadS [DescribeApplicationInstance]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeApplicationInstance]
$creadListPrec :: ReadPrec [DescribeApplicationInstance]
readPrec :: ReadPrec DescribeApplicationInstance
$creadPrec :: ReadPrec DescribeApplicationInstance
readList :: ReadS [DescribeApplicationInstance]
$creadList :: ReadS [DescribeApplicationInstance]
readsPrec :: Int -> ReadS DescribeApplicationInstance
$creadsPrec :: Int -> ReadS DescribeApplicationInstance
Prelude.Read, Int -> DescribeApplicationInstance -> ShowS
[DescribeApplicationInstance] -> ShowS
DescribeApplicationInstance -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeApplicationInstance] -> ShowS
$cshowList :: [DescribeApplicationInstance] -> ShowS
show :: DescribeApplicationInstance -> String
$cshow :: DescribeApplicationInstance -> String
showsPrec :: Int -> DescribeApplicationInstance -> ShowS
$cshowsPrec :: Int -> DescribeApplicationInstance -> ShowS
Prelude.Show, forall x.
Rep DescribeApplicationInstance x -> DescribeApplicationInstance
forall x.
DescribeApplicationInstance -> Rep DescribeApplicationInstance x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeApplicationInstance x -> DescribeApplicationInstance
$cfrom :: forall x.
DescribeApplicationInstance -> Rep DescribeApplicationInstance x
Prelude.Generic)
newDescribeApplicationInstance ::
Prelude.Text ->
DescribeApplicationInstance
newDescribeApplicationInstance :: Text -> DescribeApplicationInstance
newDescribeApplicationInstance
Text
pApplicationInstanceId_ =
DescribeApplicationInstance'
{ $sel:applicationInstanceId:DescribeApplicationInstance' :: Text
applicationInstanceId =
Text
pApplicationInstanceId_
}
describeApplicationInstance_applicationInstanceId :: Lens.Lens' DescribeApplicationInstance Prelude.Text
describeApplicationInstance_applicationInstanceId :: Lens' DescribeApplicationInstance Text
describeApplicationInstance_applicationInstanceId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeApplicationInstance' {Text
applicationInstanceId :: Text
$sel:applicationInstanceId:DescribeApplicationInstance' :: DescribeApplicationInstance -> Text
applicationInstanceId} -> Text
applicationInstanceId) (\s :: DescribeApplicationInstance
s@DescribeApplicationInstance' {} Text
a -> DescribeApplicationInstance
s {$sel:applicationInstanceId:DescribeApplicationInstance' :: Text
applicationInstanceId = Text
a} :: DescribeApplicationInstance)
instance Core.AWSRequest DescribeApplicationInstance where
type
AWSResponse DescribeApplicationInstance =
DescribeApplicationInstanceResponse
request :: (Service -> Service)
-> DescribeApplicationInstance
-> Request DescribeApplicationInstance
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 DescribeApplicationInstance
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse DescribeApplicationInstance)))
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 Text
-> Maybe POSIX
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe ApplicationInstanceHealthStatus
-> Maybe POSIX
-> Maybe Text
-> Maybe [ReportedRuntimeContextState]
-> Maybe Text
-> Maybe ApplicationInstanceStatus
-> Maybe Text
-> Maybe (HashMap Text Text)
-> Int
-> DescribeApplicationInstanceResponse
DescribeApplicationInstanceResponse'
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
"ApplicationInstanceId")
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
"ApplicationInstanceIdToReplace")
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
"Arn")
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
"CreatedTime")
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
"DefaultRuntimeContextDevice")
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
"DefaultRuntimeContextDeviceName")
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
"Description")
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
"HealthStatus")
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
"LastUpdatedTime")
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
"Name")
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
"RuntimeContextStates"
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
"RuntimeRoleArn")
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
"Status")
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
"StatusDescription")
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 DescribeApplicationInstance where
hashWithSalt :: Int -> DescribeApplicationInstance -> Int
hashWithSalt Int
_salt DescribeApplicationInstance' {Text
applicationInstanceId :: Text
$sel:applicationInstanceId:DescribeApplicationInstance' :: DescribeApplicationInstance -> Text
..} =
Int
_salt forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
applicationInstanceId
instance Prelude.NFData DescribeApplicationInstance where
rnf :: DescribeApplicationInstance -> ()
rnf DescribeApplicationInstance' {Text
applicationInstanceId :: Text
$sel:applicationInstanceId:DescribeApplicationInstance' :: DescribeApplicationInstance -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
applicationInstanceId
instance Data.ToHeaders DescribeApplicationInstance where
toHeaders :: DescribeApplicationInstance -> 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 DescribeApplicationInstance where
toPath :: DescribeApplicationInstance -> ByteString
toPath DescribeApplicationInstance' {Text
applicationInstanceId :: Text
$sel:applicationInstanceId:DescribeApplicationInstance' :: DescribeApplicationInstance -> Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"/application-instances/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
applicationInstanceId
]
instance Data.ToQuery DescribeApplicationInstance where
toQuery :: DescribeApplicationInstance -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DescribeApplicationInstanceResponse = DescribeApplicationInstanceResponse'
{
DescribeApplicationInstanceResponse -> Maybe Text
applicationInstanceId :: Prelude.Maybe Prelude.Text,
DescribeApplicationInstanceResponse -> Maybe Text
applicationInstanceIdToReplace :: Prelude.Maybe Prelude.Text,
DescribeApplicationInstanceResponse -> Maybe Text
arn :: Prelude.Maybe Prelude.Text,
DescribeApplicationInstanceResponse -> Maybe POSIX
createdTime :: Prelude.Maybe Data.POSIX,
DescribeApplicationInstanceResponse -> Maybe Text
defaultRuntimeContextDevice :: Prelude.Maybe Prelude.Text,
DescribeApplicationInstanceResponse -> Maybe Text
defaultRuntimeContextDeviceName :: Prelude.Maybe Prelude.Text,
DescribeApplicationInstanceResponse -> Maybe Text
description :: Prelude.Maybe Prelude.Text,
DescribeApplicationInstanceResponse
-> Maybe ApplicationInstanceHealthStatus
healthStatus :: Prelude.Maybe ApplicationInstanceHealthStatus,
DescribeApplicationInstanceResponse -> Maybe POSIX
lastUpdatedTime :: Prelude.Maybe Data.POSIX,
DescribeApplicationInstanceResponse -> Maybe Text
name :: Prelude.Maybe Prelude.Text,
DescribeApplicationInstanceResponse
-> Maybe [ReportedRuntimeContextState]
runtimeContextStates :: Prelude.Maybe [ReportedRuntimeContextState],
DescribeApplicationInstanceResponse -> Maybe Text
runtimeRoleArn :: Prelude.Maybe Prelude.Text,
DescribeApplicationInstanceResponse
-> Maybe ApplicationInstanceStatus
status :: Prelude.Maybe ApplicationInstanceStatus,
DescribeApplicationInstanceResponse -> Maybe Text
statusDescription :: Prelude.Maybe Prelude.Text,
DescribeApplicationInstanceResponse -> Maybe (HashMap Text Text)
tags :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),
DescribeApplicationInstanceResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DescribeApplicationInstanceResponse
-> DescribeApplicationInstanceResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeApplicationInstanceResponse
-> DescribeApplicationInstanceResponse -> Bool
$c/= :: DescribeApplicationInstanceResponse
-> DescribeApplicationInstanceResponse -> Bool
== :: DescribeApplicationInstanceResponse
-> DescribeApplicationInstanceResponse -> Bool
$c== :: DescribeApplicationInstanceResponse
-> DescribeApplicationInstanceResponse -> Bool
Prelude.Eq, ReadPrec [DescribeApplicationInstanceResponse]
ReadPrec DescribeApplicationInstanceResponse
Int -> ReadS DescribeApplicationInstanceResponse
ReadS [DescribeApplicationInstanceResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeApplicationInstanceResponse]
$creadListPrec :: ReadPrec [DescribeApplicationInstanceResponse]
readPrec :: ReadPrec DescribeApplicationInstanceResponse
$creadPrec :: ReadPrec DescribeApplicationInstanceResponse
readList :: ReadS [DescribeApplicationInstanceResponse]
$creadList :: ReadS [DescribeApplicationInstanceResponse]
readsPrec :: Int -> ReadS DescribeApplicationInstanceResponse
$creadsPrec :: Int -> ReadS DescribeApplicationInstanceResponse
Prelude.Read, Int -> DescribeApplicationInstanceResponse -> ShowS
[DescribeApplicationInstanceResponse] -> ShowS
DescribeApplicationInstanceResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeApplicationInstanceResponse] -> ShowS
$cshowList :: [DescribeApplicationInstanceResponse] -> ShowS
show :: DescribeApplicationInstanceResponse -> String
$cshow :: DescribeApplicationInstanceResponse -> String
showsPrec :: Int -> DescribeApplicationInstanceResponse -> ShowS
$cshowsPrec :: Int -> DescribeApplicationInstanceResponse -> ShowS
Prelude.Show, forall x.
Rep DescribeApplicationInstanceResponse x
-> DescribeApplicationInstanceResponse
forall x.
DescribeApplicationInstanceResponse
-> Rep DescribeApplicationInstanceResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeApplicationInstanceResponse x
-> DescribeApplicationInstanceResponse
$cfrom :: forall x.
DescribeApplicationInstanceResponse
-> Rep DescribeApplicationInstanceResponse x
Prelude.Generic)
newDescribeApplicationInstanceResponse ::
Prelude.Int ->
DescribeApplicationInstanceResponse
newDescribeApplicationInstanceResponse :: Int -> DescribeApplicationInstanceResponse
newDescribeApplicationInstanceResponse Int
pHttpStatus_ =
DescribeApplicationInstanceResponse'
{ $sel:applicationInstanceId:DescribeApplicationInstanceResponse' :: Maybe Text
applicationInstanceId =
forall a. Maybe a
Prelude.Nothing,
$sel:applicationInstanceIdToReplace:DescribeApplicationInstanceResponse' :: Maybe Text
applicationInstanceIdToReplace =
forall a. Maybe a
Prelude.Nothing,
$sel:arn:DescribeApplicationInstanceResponse' :: Maybe Text
arn = forall a. Maybe a
Prelude.Nothing,
$sel:createdTime:DescribeApplicationInstanceResponse' :: Maybe POSIX
createdTime = forall a. Maybe a
Prelude.Nothing,
$sel:defaultRuntimeContextDevice:DescribeApplicationInstanceResponse' :: Maybe Text
defaultRuntimeContextDevice =
forall a. Maybe a
Prelude.Nothing,
$sel:defaultRuntimeContextDeviceName:DescribeApplicationInstanceResponse' :: Maybe Text
defaultRuntimeContextDeviceName =
forall a. Maybe a
Prelude.Nothing,
$sel:description:DescribeApplicationInstanceResponse' :: Maybe Text
description = forall a. Maybe a
Prelude.Nothing,
$sel:healthStatus:DescribeApplicationInstanceResponse' :: Maybe ApplicationInstanceHealthStatus
healthStatus = forall a. Maybe a
Prelude.Nothing,
$sel:lastUpdatedTime:DescribeApplicationInstanceResponse' :: Maybe POSIX
lastUpdatedTime = forall a. Maybe a
Prelude.Nothing,
$sel:name:DescribeApplicationInstanceResponse' :: Maybe Text
name = forall a. Maybe a
Prelude.Nothing,
$sel:runtimeContextStates:DescribeApplicationInstanceResponse' :: Maybe [ReportedRuntimeContextState]
runtimeContextStates = forall a. Maybe a
Prelude.Nothing,
$sel:runtimeRoleArn:DescribeApplicationInstanceResponse' :: Maybe Text
runtimeRoleArn = forall a. Maybe a
Prelude.Nothing,
$sel:status:DescribeApplicationInstanceResponse' :: Maybe ApplicationInstanceStatus
status = forall a. Maybe a
Prelude.Nothing,
$sel:statusDescription:DescribeApplicationInstanceResponse' :: Maybe Text
statusDescription = forall a. Maybe a
Prelude.Nothing,
$sel:tags:DescribeApplicationInstanceResponse' :: Maybe (HashMap Text Text)
tags = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:DescribeApplicationInstanceResponse' :: Int
httpStatus = Int
pHttpStatus_
}
describeApplicationInstanceResponse_applicationInstanceId :: Lens.Lens' DescribeApplicationInstanceResponse (Prelude.Maybe Prelude.Text)
describeApplicationInstanceResponse_applicationInstanceId :: Lens' DescribeApplicationInstanceResponse (Maybe Text)
describeApplicationInstanceResponse_applicationInstanceId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeApplicationInstanceResponse' {Maybe Text
applicationInstanceId :: Maybe Text
$sel:applicationInstanceId:DescribeApplicationInstanceResponse' :: DescribeApplicationInstanceResponse -> Maybe Text
applicationInstanceId} -> Maybe Text
applicationInstanceId) (\s :: DescribeApplicationInstanceResponse
s@DescribeApplicationInstanceResponse' {} Maybe Text
a -> DescribeApplicationInstanceResponse
s {$sel:applicationInstanceId:DescribeApplicationInstanceResponse' :: Maybe Text
applicationInstanceId = Maybe Text
a} :: DescribeApplicationInstanceResponse)
describeApplicationInstanceResponse_applicationInstanceIdToReplace :: Lens.Lens' DescribeApplicationInstanceResponse (Prelude.Maybe Prelude.Text)
describeApplicationInstanceResponse_applicationInstanceIdToReplace :: Lens' DescribeApplicationInstanceResponse (Maybe Text)
describeApplicationInstanceResponse_applicationInstanceIdToReplace = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeApplicationInstanceResponse' {Maybe Text
applicationInstanceIdToReplace :: Maybe Text
$sel:applicationInstanceIdToReplace:DescribeApplicationInstanceResponse' :: DescribeApplicationInstanceResponse -> Maybe Text
applicationInstanceIdToReplace} -> Maybe Text
applicationInstanceIdToReplace) (\s :: DescribeApplicationInstanceResponse
s@DescribeApplicationInstanceResponse' {} Maybe Text
a -> DescribeApplicationInstanceResponse
s {$sel:applicationInstanceIdToReplace:DescribeApplicationInstanceResponse' :: Maybe Text
applicationInstanceIdToReplace = Maybe Text
a} :: DescribeApplicationInstanceResponse)
describeApplicationInstanceResponse_arn :: Lens.Lens' DescribeApplicationInstanceResponse (Prelude.Maybe Prelude.Text)
describeApplicationInstanceResponse_arn :: Lens' DescribeApplicationInstanceResponse (Maybe Text)
describeApplicationInstanceResponse_arn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeApplicationInstanceResponse' {Maybe Text
arn :: Maybe Text
$sel:arn:DescribeApplicationInstanceResponse' :: DescribeApplicationInstanceResponse -> Maybe Text
arn} -> Maybe Text
arn) (\s :: DescribeApplicationInstanceResponse
s@DescribeApplicationInstanceResponse' {} Maybe Text
a -> DescribeApplicationInstanceResponse
s {$sel:arn:DescribeApplicationInstanceResponse' :: Maybe Text
arn = Maybe Text
a} :: DescribeApplicationInstanceResponse)
describeApplicationInstanceResponse_createdTime :: Lens.Lens' DescribeApplicationInstanceResponse (Prelude.Maybe Prelude.UTCTime)
describeApplicationInstanceResponse_createdTime :: Lens' DescribeApplicationInstanceResponse (Maybe UTCTime)
describeApplicationInstanceResponse_createdTime = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeApplicationInstanceResponse' {Maybe POSIX
createdTime :: Maybe POSIX
$sel:createdTime:DescribeApplicationInstanceResponse' :: DescribeApplicationInstanceResponse -> Maybe POSIX
createdTime} -> Maybe POSIX
createdTime) (\s :: DescribeApplicationInstanceResponse
s@DescribeApplicationInstanceResponse' {} Maybe POSIX
a -> DescribeApplicationInstanceResponse
s {$sel:createdTime:DescribeApplicationInstanceResponse' :: Maybe POSIX
createdTime = Maybe POSIX
a} :: DescribeApplicationInstanceResponse) 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
describeApplicationInstanceResponse_defaultRuntimeContextDevice :: Lens.Lens' DescribeApplicationInstanceResponse (Prelude.Maybe Prelude.Text)
describeApplicationInstanceResponse_defaultRuntimeContextDevice :: Lens' DescribeApplicationInstanceResponse (Maybe Text)
describeApplicationInstanceResponse_defaultRuntimeContextDevice = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeApplicationInstanceResponse' {Maybe Text
defaultRuntimeContextDevice :: Maybe Text
$sel:defaultRuntimeContextDevice:DescribeApplicationInstanceResponse' :: DescribeApplicationInstanceResponse -> Maybe Text
defaultRuntimeContextDevice} -> Maybe Text
defaultRuntimeContextDevice) (\s :: DescribeApplicationInstanceResponse
s@DescribeApplicationInstanceResponse' {} Maybe Text
a -> DescribeApplicationInstanceResponse
s {$sel:defaultRuntimeContextDevice:DescribeApplicationInstanceResponse' :: Maybe Text
defaultRuntimeContextDevice = Maybe Text
a} :: DescribeApplicationInstanceResponse)
describeApplicationInstanceResponse_defaultRuntimeContextDeviceName :: Lens.Lens' DescribeApplicationInstanceResponse (Prelude.Maybe Prelude.Text)
describeApplicationInstanceResponse_defaultRuntimeContextDeviceName :: Lens' DescribeApplicationInstanceResponse (Maybe Text)
describeApplicationInstanceResponse_defaultRuntimeContextDeviceName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeApplicationInstanceResponse' {Maybe Text
defaultRuntimeContextDeviceName :: Maybe Text
$sel:defaultRuntimeContextDeviceName:DescribeApplicationInstanceResponse' :: DescribeApplicationInstanceResponse -> Maybe Text
defaultRuntimeContextDeviceName} -> Maybe Text
defaultRuntimeContextDeviceName) (\s :: DescribeApplicationInstanceResponse
s@DescribeApplicationInstanceResponse' {} Maybe Text
a -> DescribeApplicationInstanceResponse
s {$sel:defaultRuntimeContextDeviceName:DescribeApplicationInstanceResponse' :: Maybe Text
defaultRuntimeContextDeviceName = Maybe Text
a} :: DescribeApplicationInstanceResponse)
describeApplicationInstanceResponse_description :: Lens.Lens' DescribeApplicationInstanceResponse (Prelude.Maybe Prelude.Text)
describeApplicationInstanceResponse_description :: Lens' DescribeApplicationInstanceResponse (Maybe Text)
describeApplicationInstanceResponse_description = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeApplicationInstanceResponse' {Maybe Text
description :: Maybe Text
$sel:description:DescribeApplicationInstanceResponse' :: DescribeApplicationInstanceResponse -> Maybe Text
description} -> Maybe Text
description) (\s :: DescribeApplicationInstanceResponse
s@DescribeApplicationInstanceResponse' {} Maybe Text
a -> DescribeApplicationInstanceResponse
s {$sel:description:DescribeApplicationInstanceResponse' :: Maybe Text
description = Maybe Text
a} :: DescribeApplicationInstanceResponse)
describeApplicationInstanceResponse_healthStatus :: Lens.Lens' DescribeApplicationInstanceResponse (Prelude.Maybe ApplicationInstanceHealthStatus)
describeApplicationInstanceResponse_healthStatus :: Lens'
DescribeApplicationInstanceResponse
(Maybe ApplicationInstanceHealthStatus)
describeApplicationInstanceResponse_healthStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeApplicationInstanceResponse' {Maybe ApplicationInstanceHealthStatus
healthStatus :: Maybe ApplicationInstanceHealthStatus
$sel:healthStatus:DescribeApplicationInstanceResponse' :: DescribeApplicationInstanceResponse
-> Maybe ApplicationInstanceHealthStatus
healthStatus} -> Maybe ApplicationInstanceHealthStatus
healthStatus) (\s :: DescribeApplicationInstanceResponse
s@DescribeApplicationInstanceResponse' {} Maybe ApplicationInstanceHealthStatus
a -> DescribeApplicationInstanceResponse
s {$sel:healthStatus:DescribeApplicationInstanceResponse' :: Maybe ApplicationInstanceHealthStatus
healthStatus = Maybe ApplicationInstanceHealthStatus
a} :: DescribeApplicationInstanceResponse)
describeApplicationInstanceResponse_lastUpdatedTime :: Lens.Lens' DescribeApplicationInstanceResponse (Prelude.Maybe Prelude.UTCTime)
describeApplicationInstanceResponse_lastUpdatedTime :: Lens' DescribeApplicationInstanceResponse (Maybe UTCTime)
describeApplicationInstanceResponse_lastUpdatedTime = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeApplicationInstanceResponse' {Maybe POSIX
lastUpdatedTime :: Maybe POSIX
$sel:lastUpdatedTime:DescribeApplicationInstanceResponse' :: DescribeApplicationInstanceResponse -> Maybe POSIX
lastUpdatedTime} -> Maybe POSIX
lastUpdatedTime) (\s :: DescribeApplicationInstanceResponse
s@DescribeApplicationInstanceResponse' {} Maybe POSIX
a -> DescribeApplicationInstanceResponse
s {$sel:lastUpdatedTime:DescribeApplicationInstanceResponse' :: Maybe POSIX
lastUpdatedTime = Maybe POSIX
a} :: DescribeApplicationInstanceResponse) 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
describeApplicationInstanceResponse_name :: Lens.Lens' DescribeApplicationInstanceResponse (Prelude.Maybe Prelude.Text)
describeApplicationInstanceResponse_name :: Lens' DescribeApplicationInstanceResponse (Maybe Text)
describeApplicationInstanceResponse_name = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeApplicationInstanceResponse' {Maybe Text
name :: Maybe Text
$sel:name:DescribeApplicationInstanceResponse' :: DescribeApplicationInstanceResponse -> Maybe Text
name} -> Maybe Text
name) (\s :: DescribeApplicationInstanceResponse
s@DescribeApplicationInstanceResponse' {} Maybe Text
a -> DescribeApplicationInstanceResponse
s {$sel:name:DescribeApplicationInstanceResponse' :: Maybe Text
name = Maybe Text
a} :: DescribeApplicationInstanceResponse)
describeApplicationInstanceResponse_runtimeContextStates :: Lens.Lens' DescribeApplicationInstanceResponse (Prelude.Maybe [ReportedRuntimeContextState])
describeApplicationInstanceResponse_runtimeContextStates :: Lens'
DescribeApplicationInstanceResponse
(Maybe [ReportedRuntimeContextState])
describeApplicationInstanceResponse_runtimeContextStates = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeApplicationInstanceResponse' {Maybe [ReportedRuntimeContextState]
runtimeContextStates :: Maybe [ReportedRuntimeContextState]
$sel:runtimeContextStates:DescribeApplicationInstanceResponse' :: DescribeApplicationInstanceResponse
-> Maybe [ReportedRuntimeContextState]
runtimeContextStates} -> Maybe [ReportedRuntimeContextState]
runtimeContextStates) (\s :: DescribeApplicationInstanceResponse
s@DescribeApplicationInstanceResponse' {} Maybe [ReportedRuntimeContextState]
a -> DescribeApplicationInstanceResponse
s {$sel:runtimeContextStates:DescribeApplicationInstanceResponse' :: Maybe [ReportedRuntimeContextState]
runtimeContextStates = Maybe [ReportedRuntimeContextState]
a} :: DescribeApplicationInstanceResponse) 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
describeApplicationInstanceResponse_runtimeRoleArn :: Lens.Lens' DescribeApplicationInstanceResponse (Prelude.Maybe Prelude.Text)
describeApplicationInstanceResponse_runtimeRoleArn :: Lens' DescribeApplicationInstanceResponse (Maybe Text)
describeApplicationInstanceResponse_runtimeRoleArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeApplicationInstanceResponse' {Maybe Text
runtimeRoleArn :: Maybe Text
$sel:runtimeRoleArn:DescribeApplicationInstanceResponse' :: DescribeApplicationInstanceResponse -> Maybe Text
runtimeRoleArn} -> Maybe Text
runtimeRoleArn) (\s :: DescribeApplicationInstanceResponse
s@DescribeApplicationInstanceResponse' {} Maybe Text
a -> DescribeApplicationInstanceResponse
s {$sel:runtimeRoleArn:DescribeApplicationInstanceResponse' :: Maybe Text
runtimeRoleArn = Maybe Text
a} :: DescribeApplicationInstanceResponse)
describeApplicationInstanceResponse_status :: Lens.Lens' DescribeApplicationInstanceResponse (Prelude.Maybe ApplicationInstanceStatus)
describeApplicationInstanceResponse_status :: Lens'
DescribeApplicationInstanceResponse
(Maybe ApplicationInstanceStatus)
describeApplicationInstanceResponse_status = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeApplicationInstanceResponse' {Maybe ApplicationInstanceStatus
status :: Maybe ApplicationInstanceStatus
$sel:status:DescribeApplicationInstanceResponse' :: DescribeApplicationInstanceResponse
-> Maybe ApplicationInstanceStatus
status} -> Maybe ApplicationInstanceStatus
status) (\s :: DescribeApplicationInstanceResponse
s@DescribeApplicationInstanceResponse' {} Maybe ApplicationInstanceStatus
a -> DescribeApplicationInstanceResponse
s {$sel:status:DescribeApplicationInstanceResponse' :: Maybe ApplicationInstanceStatus
status = Maybe ApplicationInstanceStatus
a} :: DescribeApplicationInstanceResponse)
describeApplicationInstanceResponse_statusDescription :: Lens.Lens' DescribeApplicationInstanceResponse (Prelude.Maybe Prelude.Text)
describeApplicationInstanceResponse_statusDescription :: Lens' DescribeApplicationInstanceResponse (Maybe Text)
describeApplicationInstanceResponse_statusDescription = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeApplicationInstanceResponse' {Maybe Text
statusDescription :: Maybe Text
$sel:statusDescription:DescribeApplicationInstanceResponse' :: DescribeApplicationInstanceResponse -> Maybe Text
statusDescription} -> Maybe Text
statusDescription) (\s :: DescribeApplicationInstanceResponse
s@DescribeApplicationInstanceResponse' {} Maybe Text
a -> DescribeApplicationInstanceResponse
s {$sel:statusDescription:DescribeApplicationInstanceResponse' :: Maybe Text
statusDescription = Maybe Text
a} :: DescribeApplicationInstanceResponse)
describeApplicationInstanceResponse_tags :: Lens.Lens' DescribeApplicationInstanceResponse (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))
describeApplicationInstanceResponse_tags :: Lens'
DescribeApplicationInstanceResponse (Maybe (HashMap Text Text))
describeApplicationInstanceResponse_tags = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeApplicationInstanceResponse' {Maybe (HashMap Text Text)
tags :: Maybe (HashMap Text Text)
$sel:tags:DescribeApplicationInstanceResponse' :: DescribeApplicationInstanceResponse -> Maybe (HashMap Text Text)
tags} -> Maybe (HashMap Text Text)
tags) (\s :: DescribeApplicationInstanceResponse
s@DescribeApplicationInstanceResponse' {} Maybe (HashMap Text Text)
a -> DescribeApplicationInstanceResponse
s {$sel:tags:DescribeApplicationInstanceResponse' :: Maybe (HashMap Text Text)
tags = Maybe (HashMap Text Text)
a} :: DescribeApplicationInstanceResponse) 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
describeApplicationInstanceResponse_httpStatus :: Lens.Lens' DescribeApplicationInstanceResponse Prelude.Int
describeApplicationInstanceResponse_httpStatus :: Lens' DescribeApplicationInstanceResponse Int
describeApplicationInstanceResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeApplicationInstanceResponse' {Int
httpStatus :: Int
$sel:httpStatus:DescribeApplicationInstanceResponse' :: DescribeApplicationInstanceResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DescribeApplicationInstanceResponse
s@DescribeApplicationInstanceResponse' {} Int
a -> DescribeApplicationInstanceResponse
s {$sel:httpStatus:DescribeApplicationInstanceResponse' :: Int
httpStatus = Int
a} :: DescribeApplicationInstanceResponse)
instance
Prelude.NFData
DescribeApplicationInstanceResponse
where
rnf :: DescribeApplicationInstanceResponse -> ()
rnf DescribeApplicationInstanceResponse' {Int
Maybe [ReportedRuntimeContextState]
Maybe Text
Maybe (HashMap Text Text)
Maybe POSIX
Maybe ApplicationInstanceHealthStatus
Maybe ApplicationInstanceStatus
httpStatus :: Int
tags :: Maybe (HashMap Text Text)
statusDescription :: Maybe Text
status :: Maybe ApplicationInstanceStatus
runtimeRoleArn :: Maybe Text
runtimeContextStates :: Maybe [ReportedRuntimeContextState]
name :: Maybe Text
lastUpdatedTime :: Maybe POSIX
healthStatus :: Maybe ApplicationInstanceHealthStatus
description :: Maybe Text
defaultRuntimeContextDeviceName :: Maybe Text
defaultRuntimeContextDevice :: Maybe Text
createdTime :: Maybe POSIX
arn :: Maybe Text
applicationInstanceIdToReplace :: Maybe Text
applicationInstanceId :: Maybe Text
$sel:httpStatus:DescribeApplicationInstanceResponse' :: DescribeApplicationInstanceResponse -> Int
$sel:tags:DescribeApplicationInstanceResponse' :: DescribeApplicationInstanceResponse -> Maybe (HashMap Text Text)
$sel:statusDescription:DescribeApplicationInstanceResponse' :: DescribeApplicationInstanceResponse -> Maybe Text
$sel:status:DescribeApplicationInstanceResponse' :: DescribeApplicationInstanceResponse
-> Maybe ApplicationInstanceStatus
$sel:runtimeRoleArn:DescribeApplicationInstanceResponse' :: DescribeApplicationInstanceResponse -> Maybe Text
$sel:runtimeContextStates:DescribeApplicationInstanceResponse' :: DescribeApplicationInstanceResponse
-> Maybe [ReportedRuntimeContextState]
$sel:name:DescribeApplicationInstanceResponse' :: DescribeApplicationInstanceResponse -> Maybe Text
$sel:lastUpdatedTime:DescribeApplicationInstanceResponse' :: DescribeApplicationInstanceResponse -> Maybe POSIX
$sel:healthStatus:DescribeApplicationInstanceResponse' :: DescribeApplicationInstanceResponse
-> Maybe ApplicationInstanceHealthStatus
$sel:description:DescribeApplicationInstanceResponse' :: DescribeApplicationInstanceResponse -> Maybe Text
$sel:defaultRuntimeContextDeviceName:DescribeApplicationInstanceResponse' :: DescribeApplicationInstanceResponse -> Maybe Text
$sel:defaultRuntimeContextDevice:DescribeApplicationInstanceResponse' :: DescribeApplicationInstanceResponse -> Maybe Text
$sel:createdTime:DescribeApplicationInstanceResponse' :: DescribeApplicationInstanceResponse -> Maybe POSIX
$sel:arn:DescribeApplicationInstanceResponse' :: DescribeApplicationInstanceResponse -> Maybe Text
$sel:applicationInstanceIdToReplace:DescribeApplicationInstanceResponse' :: DescribeApplicationInstanceResponse -> Maybe Text
$sel:applicationInstanceId:DescribeApplicationInstanceResponse' :: DescribeApplicationInstanceResponse -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
applicationInstanceId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
applicationInstanceIdToReplace
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
arn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe POSIX
createdTime
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
defaultRuntimeContextDevice
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
defaultRuntimeContextDeviceName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
description
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe ApplicationInstanceHealthStatus
healthStatus
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe POSIX
lastUpdatedTime
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
name
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [ReportedRuntimeContextState]
runtimeContextStates
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
runtimeRoleArn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe ApplicationInstanceStatus
status
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
statusDescription
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