{-# 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.SnowDeviceManagement.DescribeDevice
(
DescribeDevice (..),
newDescribeDevice,
describeDevice_managedDeviceId,
DescribeDeviceResponse (..),
newDescribeDeviceResponse,
describeDeviceResponse_associatedWithJob,
describeDeviceResponse_deviceCapacities,
describeDeviceResponse_deviceState,
describeDeviceResponse_deviceType,
describeDeviceResponse_lastReachedOutAt,
describeDeviceResponse_lastUpdatedAt,
describeDeviceResponse_managedDeviceArn,
describeDeviceResponse_managedDeviceId,
describeDeviceResponse_physicalNetworkInterfaces,
describeDeviceResponse_software,
describeDeviceResponse_tags,
describeDeviceResponse_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.SnowDeviceManagement.Types
data DescribeDevice = DescribeDevice'
{
DescribeDevice -> Text
managedDeviceId :: Prelude.Text
}
deriving (DescribeDevice -> DescribeDevice -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeDevice -> DescribeDevice -> Bool
$c/= :: DescribeDevice -> DescribeDevice -> Bool
== :: DescribeDevice -> DescribeDevice -> Bool
$c== :: DescribeDevice -> DescribeDevice -> Bool
Prelude.Eq, ReadPrec [DescribeDevice]
ReadPrec DescribeDevice
Int -> ReadS DescribeDevice
ReadS [DescribeDevice]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeDevice]
$creadListPrec :: ReadPrec [DescribeDevice]
readPrec :: ReadPrec DescribeDevice
$creadPrec :: ReadPrec DescribeDevice
readList :: ReadS [DescribeDevice]
$creadList :: ReadS [DescribeDevice]
readsPrec :: Int -> ReadS DescribeDevice
$creadsPrec :: Int -> ReadS DescribeDevice
Prelude.Read, Int -> DescribeDevice -> ShowS
[DescribeDevice] -> ShowS
DescribeDevice -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeDevice] -> ShowS
$cshowList :: [DescribeDevice] -> ShowS
show :: DescribeDevice -> String
$cshow :: DescribeDevice -> String
showsPrec :: Int -> DescribeDevice -> ShowS
$cshowsPrec :: Int -> DescribeDevice -> ShowS
Prelude.Show, forall x. Rep DescribeDevice x -> DescribeDevice
forall x. DescribeDevice -> Rep DescribeDevice x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DescribeDevice x -> DescribeDevice
$cfrom :: forall x. DescribeDevice -> Rep DescribeDevice x
Prelude.Generic)
newDescribeDevice ::
Prelude.Text ->
DescribeDevice
newDescribeDevice :: Text -> DescribeDevice
newDescribeDevice Text
pManagedDeviceId_ =
DescribeDevice'
{ $sel:managedDeviceId:DescribeDevice' :: Text
managedDeviceId =
Text
pManagedDeviceId_
}
describeDevice_managedDeviceId :: Lens.Lens' DescribeDevice Prelude.Text
describeDevice_managedDeviceId :: Lens' DescribeDevice Text
describeDevice_managedDeviceId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeDevice' {Text
managedDeviceId :: Text
$sel:managedDeviceId:DescribeDevice' :: DescribeDevice -> Text
managedDeviceId} -> Text
managedDeviceId) (\s :: DescribeDevice
s@DescribeDevice' {} Text
a -> DescribeDevice
s {$sel:managedDeviceId:DescribeDevice' :: Text
managedDeviceId = Text
a} :: DescribeDevice)
instance Core.AWSRequest DescribeDevice where
type
AWSResponse DescribeDevice =
DescribeDeviceResponse
request :: (Service -> Service) -> DescribeDevice -> Request DescribeDevice
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 DescribeDevice
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse DescribeDevice)))
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 [Capacity]
-> Maybe UnlockState
-> Maybe Text
-> Maybe POSIX
-> Maybe POSIX
-> Maybe Text
-> Maybe Text
-> Maybe [PhysicalNetworkInterface]
-> Maybe SoftwareInformation
-> Maybe (HashMap Text Text)
-> Int
-> DescribeDeviceResponse
DescribeDeviceResponse'
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
"associatedWithJob")
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
"deviceCapacities"
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
"deviceState")
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
"deviceType")
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
"lastReachedOutAt")
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
"lastUpdatedAt")
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
"managedDeviceArn")
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
"managedDeviceId")
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
"physicalNetworkInterfaces"
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
"software")
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 DescribeDevice where
hashWithSalt :: Int -> DescribeDevice -> Int
hashWithSalt Int
_salt DescribeDevice' {Text
managedDeviceId :: Text
$sel:managedDeviceId:DescribeDevice' :: DescribeDevice -> Text
..} =
Int
_salt forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
managedDeviceId
instance Prelude.NFData DescribeDevice where
rnf :: DescribeDevice -> ()
rnf DescribeDevice' {Text
managedDeviceId :: Text
$sel:managedDeviceId:DescribeDevice' :: DescribeDevice -> Text
..} = forall a. NFData a => a -> ()
Prelude.rnf Text
managedDeviceId
instance Data.ToHeaders DescribeDevice where
toHeaders :: DescribeDevice -> 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 DescribeDevice where
toJSON :: DescribeDevice -> Value
toJSON = forall a b. a -> b -> a
Prelude.const (Object -> Value
Data.Object forall a. Monoid a => a
Prelude.mempty)
instance Data.ToPath DescribeDevice where
toPath :: DescribeDevice -> ByteString
toPath DescribeDevice' {Text
managedDeviceId :: Text
$sel:managedDeviceId:DescribeDevice' :: DescribeDevice -> Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"/managed-device/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
managedDeviceId,
ByteString
"/describe"
]
instance Data.ToQuery DescribeDevice where
toQuery :: DescribeDevice -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DescribeDeviceResponse = DescribeDeviceResponse'
{
DescribeDeviceResponse -> Maybe Text
associatedWithJob :: Prelude.Maybe Prelude.Text,
DescribeDeviceResponse -> Maybe [Capacity]
deviceCapacities :: Prelude.Maybe [Capacity],
DescribeDeviceResponse -> Maybe UnlockState
deviceState :: Prelude.Maybe UnlockState,
DescribeDeviceResponse -> Maybe Text
deviceType :: Prelude.Maybe Prelude.Text,
DescribeDeviceResponse -> Maybe POSIX
lastReachedOutAt :: Prelude.Maybe Data.POSIX,
DescribeDeviceResponse -> Maybe POSIX
lastUpdatedAt :: Prelude.Maybe Data.POSIX,
DescribeDeviceResponse -> Maybe Text
managedDeviceArn :: Prelude.Maybe Prelude.Text,
DescribeDeviceResponse -> Maybe Text
managedDeviceId :: Prelude.Maybe Prelude.Text,
DescribeDeviceResponse -> Maybe [PhysicalNetworkInterface]
physicalNetworkInterfaces :: Prelude.Maybe [PhysicalNetworkInterface],
DescribeDeviceResponse -> Maybe SoftwareInformation
software :: Prelude.Maybe SoftwareInformation,
DescribeDeviceResponse -> Maybe (HashMap Text Text)
tags :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),
DescribeDeviceResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DescribeDeviceResponse -> DescribeDeviceResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeDeviceResponse -> DescribeDeviceResponse -> Bool
$c/= :: DescribeDeviceResponse -> DescribeDeviceResponse -> Bool
== :: DescribeDeviceResponse -> DescribeDeviceResponse -> Bool
$c== :: DescribeDeviceResponse -> DescribeDeviceResponse -> Bool
Prelude.Eq, ReadPrec [DescribeDeviceResponse]
ReadPrec DescribeDeviceResponse
Int -> ReadS DescribeDeviceResponse
ReadS [DescribeDeviceResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeDeviceResponse]
$creadListPrec :: ReadPrec [DescribeDeviceResponse]
readPrec :: ReadPrec DescribeDeviceResponse
$creadPrec :: ReadPrec DescribeDeviceResponse
readList :: ReadS [DescribeDeviceResponse]
$creadList :: ReadS [DescribeDeviceResponse]
readsPrec :: Int -> ReadS DescribeDeviceResponse
$creadsPrec :: Int -> ReadS DescribeDeviceResponse
Prelude.Read, Int -> DescribeDeviceResponse -> ShowS
[DescribeDeviceResponse] -> ShowS
DescribeDeviceResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeDeviceResponse] -> ShowS
$cshowList :: [DescribeDeviceResponse] -> ShowS
show :: DescribeDeviceResponse -> String
$cshow :: DescribeDeviceResponse -> String
showsPrec :: Int -> DescribeDeviceResponse -> ShowS
$cshowsPrec :: Int -> DescribeDeviceResponse -> ShowS
Prelude.Show, forall x. Rep DescribeDeviceResponse x -> DescribeDeviceResponse
forall x. DescribeDeviceResponse -> Rep DescribeDeviceResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DescribeDeviceResponse x -> DescribeDeviceResponse
$cfrom :: forall x. DescribeDeviceResponse -> Rep DescribeDeviceResponse x
Prelude.Generic)
newDescribeDeviceResponse ::
Prelude.Int ->
DescribeDeviceResponse
newDescribeDeviceResponse :: Int -> DescribeDeviceResponse
newDescribeDeviceResponse Int
pHttpStatus_ =
DescribeDeviceResponse'
{ $sel:associatedWithJob:DescribeDeviceResponse' :: Maybe Text
associatedWithJob =
forall a. Maybe a
Prelude.Nothing,
$sel:deviceCapacities:DescribeDeviceResponse' :: Maybe [Capacity]
deviceCapacities = forall a. Maybe a
Prelude.Nothing,
$sel:deviceState:DescribeDeviceResponse' :: Maybe UnlockState
deviceState = forall a. Maybe a
Prelude.Nothing,
$sel:deviceType:DescribeDeviceResponse' :: Maybe Text
deviceType = forall a. Maybe a
Prelude.Nothing,
$sel:lastReachedOutAt:DescribeDeviceResponse' :: Maybe POSIX
lastReachedOutAt = forall a. Maybe a
Prelude.Nothing,
$sel:lastUpdatedAt:DescribeDeviceResponse' :: Maybe POSIX
lastUpdatedAt = forall a. Maybe a
Prelude.Nothing,
$sel:managedDeviceArn:DescribeDeviceResponse' :: Maybe Text
managedDeviceArn = forall a. Maybe a
Prelude.Nothing,
$sel:managedDeviceId:DescribeDeviceResponse' :: Maybe Text
managedDeviceId = forall a. Maybe a
Prelude.Nothing,
$sel:physicalNetworkInterfaces:DescribeDeviceResponse' :: Maybe [PhysicalNetworkInterface]
physicalNetworkInterfaces = forall a. Maybe a
Prelude.Nothing,
$sel:software:DescribeDeviceResponse' :: Maybe SoftwareInformation
software = forall a. Maybe a
Prelude.Nothing,
$sel:tags:DescribeDeviceResponse' :: Maybe (HashMap Text Text)
tags = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:DescribeDeviceResponse' :: Int
httpStatus = Int
pHttpStatus_
}
describeDeviceResponse_associatedWithJob :: Lens.Lens' DescribeDeviceResponse (Prelude.Maybe Prelude.Text)
describeDeviceResponse_associatedWithJob :: Lens' DescribeDeviceResponse (Maybe Text)
describeDeviceResponse_associatedWithJob = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeDeviceResponse' {Maybe Text
associatedWithJob :: Maybe Text
$sel:associatedWithJob:DescribeDeviceResponse' :: DescribeDeviceResponse -> Maybe Text
associatedWithJob} -> Maybe Text
associatedWithJob) (\s :: DescribeDeviceResponse
s@DescribeDeviceResponse' {} Maybe Text
a -> DescribeDeviceResponse
s {$sel:associatedWithJob:DescribeDeviceResponse' :: Maybe Text
associatedWithJob = Maybe Text
a} :: DescribeDeviceResponse)
describeDeviceResponse_deviceCapacities :: Lens.Lens' DescribeDeviceResponse (Prelude.Maybe [Capacity])
describeDeviceResponse_deviceCapacities :: Lens' DescribeDeviceResponse (Maybe [Capacity])
describeDeviceResponse_deviceCapacities = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeDeviceResponse' {Maybe [Capacity]
deviceCapacities :: Maybe [Capacity]
$sel:deviceCapacities:DescribeDeviceResponse' :: DescribeDeviceResponse -> Maybe [Capacity]
deviceCapacities} -> Maybe [Capacity]
deviceCapacities) (\s :: DescribeDeviceResponse
s@DescribeDeviceResponse' {} Maybe [Capacity]
a -> DescribeDeviceResponse
s {$sel:deviceCapacities:DescribeDeviceResponse' :: Maybe [Capacity]
deviceCapacities = Maybe [Capacity]
a} :: DescribeDeviceResponse) 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
describeDeviceResponse_deviceState :: Lens.Lens' DescribeDeviceResponse (Prelude.Maybe UnlockState)
describeDeviceResponse_deviceState :: Lens' DescribeDeviceResponse (Maybe UnlockState)
describeDeviceResponse_deviceState = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeDeviceResponse' {Maybe UnlockState
deviceState :: Maybe UnlockState
$sel:deviceState:DescribeDeviceResponse' :: DescribeDeviceResponse -> Maybe UnlockState
deviceState} -> Maybe UnlockState
deviceState) (\s :: DescribeDeviceResponse
s@DescribeDeviceResponse' {} Maybe UnlockState
a -> DescribeDeviceResponse
s {$sel:deviceState:DescribeDeviceResponse' :: Maybe UnlockState
deviceState = Maybe UnlockState
a} :: DescribeDeviceResponse)
describeDeviceResponse_deviceType :: Lens.Lens' DescribeDeviceResponse (Prelude.Maybe Prelude.Text)
describeDeviceResponse_deviceType :: Lens' DescribeDeviceResponse (Maybe Text)
describeDeviceResponse_deviceType = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeDeviceResponse' {Maybe Text
deviceType :: Maybe Text
$sel:deviceType:DescribeDeviceResponse' :: DescribeDeviceResponse -> Maybe Text
deviceType} -> Maybe Text
deviceType) (\s :: DescribeDeviceResponse
s@DescribeDeviceResponse' {} Maybe Text
a -> DescribeDeviceResponse
s {$sel:deviceType:DescribeDeviceResponse' :: Maybe Text
deviceType = Maybe Text
a} :: DescribeDeviceResponse)
describeDeviceResponse_lastReachedOutAt :: Lens.Lens' DescribeDeviceResponse (Prelude.Maybe Prelude.UTCTime)
describeDeviceResponse_lastReachedOutAt :: Lens' DescribeDeviceResponse (Maybe UTCTime)
describeDeviceResponse_lastReachedOutAt = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeDeviceResponse' {Maybe POSIX
lastReachedOutAt :: Maybe POSIX
$sel:lastReachedOutAt:DescribeDeviceResponse' :: DescribeDeviceResponse -> Maybe POSIX
lastReachedOutAt} -> Maybe POSIX
lastReachedOutAt) (\s :: DescribeDeviceResponse
s@DescribeDeviceResponse' {} Maybe POSIX
a -> DescribeDeviceResponse
s {$sel:lastReachedOutAt:DescribeDeviceResponse' :: Maybe POSIX
lastReachedOutAt = Maybe POSIX
a} :: DescribeDeviceResponse) 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
describeDeviceResponse_lastUpdatedAt :: Lens.Lens' DescribeDeviceResponse (Prelude.Maybe Prelude.UTCTime)
describeDeviceResponse_lastUpdatedAt :: Lens' DescribeDeviceResponse (Maybe UTCTime)
describeDeviceResponse_lastUpdatedAt = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeDeviceResponse' {Maybe POSIX
lastUpdatedAt :: Maybe POSIX
$sel:lastUpdatedAt:DescribeDeviceResponse' :: DescribeDeviceResponse -> Maybe POSIX
lastUpdatedAt} -> Maybe POSIX
lastUpdatedAt) (\s :: DescribeDeviceResponse
s@DescribeDeviceResponse' {} Maybe POSIX
a -> DescribeDeviceResponse
s {$sel:lastUpdatedAt:DescribeDeviceResponse' :: Maybe POSIX
lastUpdatedAt = Maybe POSIX
a} :: DescribeDeviceResponse) 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
describeDeviceResponse_managedDeviceArn :: Lens.Lens' DescribeDeviceResponse (Prelude.Maybe Prelude.Text)
describeDeviceResponse_managedDeviceArn :: Lens' DescribeDeviceResponse (Maybe Text)
describeDeviceResponse_managedDeviceArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeDeviceResponse' {Maybe Text
managedDeviceArn :: Maybe Text
$sel:managedDeviceArn:DescribeDeviceResponse' :: DescribeDeviceResponse -> Maybe Text
managedDeviceArn} -> Maybe Text
managedDeviceArn) (\s :: DescribeDeviceResponse
s@DescribeDeviceResponse' {} Maybe Text
a -> DescribeDeviceResponse
s {$sel:managedDeviceArn:DescribeDeviceResponse' :: Maybe Text
managedDeviceArn = Maybe Text
a} :: DescribeDeviceResponse)
describeDeviceResponse_managedDeviceId :: Lens.Lens' DescribeDeviceResponse (Prelude.Maybe Prelude.Text)
describeDeviceResponse_managedDeviceId :: Lens' DescribeDeviceResponse (Maybe Text)
describeDeviceResponse_managedDeviceId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeDeviceResponse' {Maybe Text
managedDeviceId :: Maybe Text
$sel:managedDeviceId:DescribeDeviceResponse' :: DescribeDeviceResponse -> Maybe Text
managedDeviceId} -> Maybe Text
managedDeviceId) (\s :: DescribeDeviceResponse
s@DescribeDeviceResponse' {} Maybe Text
a -> DescribeDeviceResponse
s {$sel:managedDeviceId:DescribeDeviceResponse' :: Maybe Text
managedDeviceId = Maybe Text
a} :: DescribeDeviceResponse)
describeDeviceResponse_physicalNetworkInterfaces :: Lens.Lens' DescribeDeviceResponse (Prelude.Maybe [PhysicalNetworkInterface])
describeDeviceResponse_physicalNetworkInterfaces :: Lens' DescribeDeviceResponse (Maybe [PhysicalNetworkInterface])
describeDeviceResponse_physicalNetworkInterfaces = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeDeviceResponse' {Maybe [PhysicalNetworkInterface]
physicalNetworkInterfaces :: Maybe [PhysicalNetworkInterface]
$sel:physicalNetworkInterfaces:DescribeDeviceResponse' :: DescribeDeviceResponse -> Maybe [PhysicalNetworkInterface]
physicalNetworkInterfaces} -> Maybe [PhysicalNetworkInterface]
physicalNetworkInterfaces) (\s :: DescribeDeviceResponse
s@DescribeDeviceResponse' {} Maybe [PhysicalNetworkInterface]
a -> DescribeDeviceResponse
s {$sel:physicalNetworkInterfaces:DescribeDeviceResponse' :: Maybe [PhysicalNetworkInterface]
physicalNetworkInterfaces = Maybe [PhysicalNetworkInterface]
a} :: DescribeDeviceResponse) 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
describeDeviceResponse_software :: Lens.Lens' DescribeDeviceResponse (Prelude.Maybe SoftwareInformation)
describeDeviceResponse_software :: Lens' DescribeDeviceResponse (Maybe SoftwareInformation)
describeDeviceResponse_software = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeDeviceResponse' {Maybe SoftwareInformation
software :: Maybe SoftwareInformation
$sel:software:DescribeDeviceResponse' :: DescribeDeviceResponse -> Maybe SoftwareInformation
software} -> Maybe SoftwareInformation
software) (\s :: DescribeDeviceResponse
s@DescribeDeviceResponse' {} Maybe SoftwareInformation
a -> DescribeDeviceResponse
s {$sel:software:DescribeDeviceResponse' :: Maybe SoftwareInformation
software = Maybe SoftwareInformation
a} :: DescribeDeviceResponse)
describeDeviceResponse_tags :: Lens.Lens' DescribeDeviceResponse (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))
describeDeviceResponse_tags :: Lens' DescribeDeviceResponse (Maybe (HashMap Text Text))
describeDeviceResponse_tags = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeDeviceResponse' {Maybe (HashMap Text Text)
tags :: Maybe (HashMap Text Text)
$sel:tags:DescribeDeviceResponse' :: DescribeDeviceResponse -> Maybe (HashMap Text Text)
tags} -> Maybe (HashMap Text Text)
tags) (\s :: DescribeDeviceResponse
s@DescribeDeviceResponse' {} Maybe (HashMap Text Text)
a -> DescribeDeviceResponse
s {$sel:tags:DescribeDeviceResponse' :: Maybe (HashMap Text Text)
tags = Maybe (HashMap Text Text)
a} :: DescribeDeviceResponse) 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
describeDeviceResponse_httpStatus :: Lens.Lens' DescribeDeviceResponse Prelude.Int
describeDeviceResponse_httpStatus :: Lens' DescribeDeviceResponse Int
describeDeviceResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeDeviceResponse' {Int
httpStatus :: Int
$sel:httpStatus:DescribeDeviceResponse' :: DescribeDeviceResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DescribeDeviceResponse
s@DescribeDeviceResponse' {} Int
a -> DescribeDeviceResponse
s {$sel:httpStatus:DescribeDeviceResponse' :: Int
httpStatus = Int
a} :: DescribeDeviceResponse)
instance Prelude.NFData DescribeDeviceResponse where
rnf :: DescribeDeviceResponse -> ()
rnf DescribeDeviceResponse' {Int
Maybe [Capacity]
Maybe [PhysicalNetworkInterface]
Maybe Text
Maybe (HashMap Text Text)
Maybe POSIX
Maybe SoftwareInformation
Maybe UnlockState
httpStatus :: Int
tags :: Maybe (HashMap Text Text)
software :: Maybe SoftwareInformation
physicalNetworkInterfaces :: Maybe [PhysicalNetworkInterface]
managedDeviceId :: Maybe Text
managedDeviceArn :: Maybe Text
lastUpdatedAt :: Maybe POSIX
lastReachedOutAt :: Maybe POSIX
deviceType :: Maybe Text
deviceState :: Maybe UnlockState
deviceCapacities :: Maybe [Capacity]
associatedWithJob :: Maybe Text
$sel:httpStatus:DescribeDeviceResponse' :: DescribeDeviceResponse -> Int
$sel:tags:DescribeDeviceResponse' :: DescribeDeviceResponse -> Maybe (HashMap Text Text)
$sel:software:DescribeDeviceResponse' :: DescribeDeviceResponse -> Maybe SoftwareInformation
$sel:physicalNetworkInterfaces:DescribeDeviceResponse' :: DescribeDeviceResponse -> Maybe [PhysicalNetworkInterface]
$sel:managedDeviceId:DescribeDeviceResponse' :: DescribeDeviceResponse -> Maybe Text
$sel:managedDeviceArn:DescribeDeviceResponse' :: DescribeDeviceResponse -> Maybe Text
$sel:lastUpdatedAt:DescribeDeviceResponse' :: DescribeDeviceResponse -> Maybe POSIX
$sel:lastReachedOutAt:DescribeDeviceResponse' :: DescribeDeviceResponse -> Maybe POSIX
$sel:deviceType:DescribeDeviceResponse' :: DescribeDeviceResponse -> Maybe Text
$sel:deviceState:DescribeDeviceResponse' :: DescribeDeviceResponse -> Maybe UnlockState
$sel:deviceCapacities:DescribeDeviceResponse' :: DescribeDeviceResponse -> Maybe [Capacity]
$sel:associatedWithJob:DescribeDeviceResponse' :: DescribeDeviceResponse -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
associatedWithJob
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Capacity]
deviceCapacities
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe UnlockState
deviceState
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
deviceType
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe POSIX
lastReachedOutAt
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe POSIX
lastUpdatedAt
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
managedDeviceArn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
managedDeviceId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [PhysicalNetworkInterface]
physicalNetworkInterfaces
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe SoftwareInformation
software
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