{-# 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.IoTWireless.GetWirelessDevice
(
GetWirelessDevice (..),
newGetWirelessDevice,
getWirelessDevice_identifier,
getWirelessDevice_identifierType,
GetWirelessDeviceResponse (..),
newGetWirelessDeviceResponse,
getWirelessDeviceResponse_sidewalk,
getWirelessDeviceResponse_arn,
getWirelessDeviceResponse_loRaWAN,
getWirelessDeviceResponse_thingArn,
getWirelessDeviceResponse_name,
getWirelessDeviceResponse_id,
getWirelessDeviceResponse_type,
getWirelessDeviceResponse_destinationName,
getWirelessDeviceResponse_thingName,
getWirelessDeviceResponse_description,
getWirelessDeviceResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import Amazonka.IoTWireless.Types
import qualified Amazonka.Lens as Lens
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data GetWirelessDevice = GetWirelessDevice'
{
GetWirelessDevice -> Text
identifier :: Prelude.Text,
GetWirelessDevice -> WirelessDeviceIdType
identifierType :: WirelessDeviceIdType
}
deriving (GetWirelessDevice -> GetWirelessDevice -> Bool
(GetWirelessDevice -> GetWirelessDevice -> Bool)
-> (GetWirelessDevice -> GetWirelessDevice -> Bool)
-> Eq GetWirelessDevice
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetWirelessDevice -> GetWirelessDevice -> Bool
$c/= :: GetWirelessDevice -> GetWirelessDevice -> Bool
== :: GetWirelessDevice -> GetWirelessDevice -> Bool
$c== :: GetWirelessDevice -> GetWirelessDevice -> Bool
Prelude.Eq, ReadPrec [GetWirelessDevice]
ReadPrec GetWirelessDevice
Int -> ReadS GetWirelessDevice
ReadS [GetWirelessDevice]
(Int -> ReadS GetWirelessDevice)
-> ReadS [GetWirelessDevice]
-> ReadPrec GetWirelessDevice
-> ReadPrec [GetWirelessDevice]
-> Read GetWirelessDevice
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetWirelessDevice]
$creadListPrec :: ReadPrec [GetWirelessDevice]
readPrec :: ReadPrec GetWirelessDevice
$creadPrec :: ReadPrec GetWirelessDevice
readList :: ReadS [GetWirelessDevice]
$creadList :: ReadS [GetWirelessDevice]
readsPrec :: Int -> ReadS GetWirelessDevice
$creadsPrec :: Int -> ReadS GetWirelessDevice
Prelude.Read, Int -> GetWirelessDevice -> ShowS
[GetWirelessDevice] -> ShowS
GetWirelessDevice -> String
(Int -> GetWirelessDevice -> ShowS)
-> (GetWirelessDevice -> String)
-> ([GetWirelessDevice] -> ShowS)
-> Show GetWirelessDevice
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetWirelessDevice] -> ShowS
$cshowList :: [GetWirelessDevice] -> ShowS
show :: GetWirelessDevice -> String
$cshow :: GetWirelessDevice -> String
showsPrec :: Int -> GetWirelessDevice -> ShowS
$cshowsPrec :: Int -> GetWirelessDevice -> ShowS
Prelude.Show, (forall x. GetWirelessDevice -> Rep GetWirelessDevice x)
-> (forall x. Rep GetWirelessDevice x -> GetWirelessDevice)
-> Generic GetWirelessDevice
forall x. Rep GetWirelessDevice x -> GetWirelessDevice
forall x. GetWirelessDevice -> Rep GetWirelessDevice x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep GetWirelessDevice x -> GetWirelessDevice
$cfrom :: forall x. GetWirelessDevice -> Rep GetWirelessDevice x
Prelude.Generic)
newGetWirelessDevice ::
Prelude.Text ->
WirelessDeviceIdType ->
GetWirelessDevice
newGetWirelessDevice :: Text -> WirelessDeviceIdType -> GetWirelessDevice
newGetWirelessDevice Text
pIdentifier_ WirelessDeviceIdType
pIdentifierType_ =
GetWirelessDevice' :: Text -> WirelessDeviceIdType -> GetWirelessDevice
GetWirelessDevice'
{ $sel:identifier:GetWirelessDevice' :: Text
identifier = Text
pIdentifier_,
$sel:identifierType:GetWirelessDevice' :: WirelessDeviceIdType
identifierType = WirelessDeviceIdType
pIdentifierType_
}
getWirelessDevice_identifier :: Lens.Lens' GetWirelessDevice Prelude.Text
getWirelessDevice_identifier :: (Text -> f Text) -> GetWirelessDevice -> f GetWirelessDevice
getWirelessDevice_identifier = (GetWirelessDevice -> Text)
-> (GetWirelessDevice -> Text -> GetWirelessDevice)
-> Lens GetWirelessDevice GetWirelessDevice Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetWirelessDevice' {Text
identifier :: Text
$sel:identifier:GetWirelessDevice' :: GetWirelessDevice -> Text
identifier} -> Text
identifier) (\s :: GetWirelessDevice
s@GetWirelessDevice' {} Text
a -> GetWirelessDevice
s {$sel:identifier:GetWirelessDevice' :: Text
identifier = Text
a} :: GetWirelessDevice)
getWirelessDevice_identifierType :: Lens.Lens' GetWirelessDevice WirelessDeviceIdType
getWirelessDevice_identifierType :: (WirelessDeviceIdType -> f WirelessDeviceIdType)
-> GetWirelessDevice -> f GetWirelessDevice
getWirelessDevice_identifierType = (GetWirelessDevice -> WirelessDeviceIdType)
-> (GetWirelessDevice -> WirelessDeviceIdType -> GetWirelessDevice)
-> Lens
GetWirelessDevice
GetWirelessDevice
WirelessDeviceIdType
WirelessDeviceIdType
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetWirelessDevice' {WirelessDeviceIdType
identifierType :: WirelessDeviceIdType
$sel:identifierType:GetWirelessDevice' :: GetWirelessDevice -> WirelessDeviceIdType
identifierType} -> WirelessDeviceIdType
identifierType) (\s :: GetWirelessDevice
s@GetWirelessDevice' {} WirelessDeviceIdType
a -> GetWirelessDevice
s {$sel:identifierType:GetWirelessDevice' :: WirelessDeviceIdType
identifierType = WirelessDeviceIdType
a} :: GetWirelessDevice)
instance Core.AWSRequest GetWirelessDevice where
type
AWSResponse GetWirelessDevice =
GetWirelessDeviceResponse
request :: GetWirelessDevice -> Request GetWirelessDevice
request = Service -> GetWirelessDevice -> Request GetWirelessDevice
forall a. ToRequest a => Service -> a -> Request a
Request.get Service
defaultService
response :: Logger
-> Service
-> Proxy GetWirelessDevice
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse GetWirelessDevice)))
response =
(Int
-> ResponseHeaders
-> Object
-> Either String (AWSResponse GetWirelessDevice))
-> Logger
-> Service
-> Proxy GetWirelessDevice
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse GetWirelessDevice)))
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> Object -> Either String (AWSResponse a))
-> Logger
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveJSON
( \Int
s ResponseHeaders
h Object
x ->
Maybe SidewalkDevice
-> Maybe Text
-> Maybe LoRaWANDevice
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe WirelessDeviceType
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Int
-> GetWirelessDeviceResponse
GetWirelessDeviceResponse'
(Maybe SidewalkDevice
-> Maybe Text
-> Maybe LoRaWANDevice
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe WirelessDeviceType
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Int
-> GetWirelessDeviceResponse)
-> Either String (Maybe SidewalkDevice)
-> Either
String
(Maybe Text
-> Maybe LoRaWANDevice
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe WirelessDeviceType
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Int
-> GetWirelessDeviceResponse)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x Object -> Text -> Either String (Maybe SidewalkDevice)
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"Sidewalk")
Either
String
(Maybe Text
-> Maybe LoRaWANDevice
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe WirelessDeviceType
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Int
-> GetWirelessDeviceResponse)
-> Either String (Maybe Text)
-> Either
String
(Maybe LoRaWANDevice
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe WirelessDeviceType
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Int
-> GetWirelessDeviceResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Either String (Maybe Text)
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"Arn")
Either
String
(Maybe LoRaWANDevice
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe WirelessDeviceType
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Int
-> GetWirelessDeviceResponse)
-> Either String (Maybe LoRaWANDevice)
-> Either
String
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe WirelessDeviceType
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Int
-> GetWirelessDeviceResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Either String (Maybe LoRaWANDevice)
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"LoRaWAN")
Either
String
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe WirelessDeviceType
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Int
-> GetWirelessDeviceResponse)
-> Either String (Maybe Text)
-> Either
String
(Maybe Text
-> Maybe Text
-> Maybe WirelessDeviceType
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Int
-> GetWirelessDeviceResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Either String (Maybe Text)
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"ThingArn")
Either
String
(Maybe Text
-> Maybe Text
-> Maybe WirelessDeviceType
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Int
-> GetWirelessDeviceResponse)
-> Either String (Maybe Text)
-> Either
String
(Maybe Text
-> Maybe WirelessDeviceType
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Int
-> GetWirelessDeviceResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Either String (Maybe Text)
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"Name")
Either
String
(Maybe Text
-> Maybe WirelessDeviceType
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Int
-> GetWirelessDeviceResponse)
-> Either String (Maybe Text)
-> Either
String
(Maybe WirelessDeviceType
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Int
-> GetWirelessDeviceResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Either String (Maybe Text)
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"Id")
Either
String
(Maybe WirelessDeviceType
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Int
-> GetWirelessDeviceResponse)
-> Either String (Maybe WirelessDeviceType)
-> Either
String
(Maybe Text
-> Maybe Text -> Maybe Text -> Int -> GetWirelessDeviceResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Either String (Maybe WirelessDeviceType)
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"Type")
Either
String
(Maybe Text
-> Maybe Text -> Maybe Text -> Int -> GetWirelessDeviceResponse)
-> Either String (Maybe Text)
-> Either
String
(Maybe Text -> Maybe Text -> Int -> GetWirelessDeviceResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Either String (Maybe Text)
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"DestinationName")
Either
String
(Maybe Text -> Maybe Text -> Int -> GetWirelessDeviceResponse)
-> Either String (Maybe Text)
-> Either String (Maybe Text -> Int -> GetWirelessDeviceResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Either String (Maybe Text)
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"ThingName")
Either String (Maybe Text -> Int -> GetWirelessDeviceResponse)
-> Either String (Maybe Text)
-> Either String (Int -> GetWirelessDeviceResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Either String (Maybe Text)
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"Description")
Either String (Int -> GetWirelessDeviceResponse)
-> Either String Int -> Either String GetWirelessDeviceResponse
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Int -> Either String Int
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (Int -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
)
instance Prelude.Hashable GetWirelessDevice
instance Prelude.NFData GetWirelessDevice
instance Core.ToHeaders GetWirelessDevice where
toHeaders :: GetWirelessDevice -> ResponseHeaders
toHeaders = ResponseHeaders -> GetWirelessDevice -> ResponseHeaders
forall a b. a -> b -> a
Prelude.const ResponseHeaders
forall a. Monoid a => a
Prelude.mempty
instance Core.ToPath GetWirelessDevice where
toPath :: GetWirelessDevice -> ByteString
toPath GetWirelessDevice' {Text
WirelessDeviceIdType
identifierType :: WirelessDeviceIdType
identifier :: Text
$sel:identifierType:GetWirelessDevice' :: GetWirelessDevice -> WirelessDeviceIdType
$sel:identifier:GetWirelessDevice' :: GetWirelessDevice -> Text
..} =
[ByteString] -> ByteString
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ByteString
"/wireless-devices/", Text -> ByteString
forall a. ToByteString a => a -> ByteString
Core.toBS Text
identifier]
instance Core.ToQuery GetWirelessDevice where
toQuery :: GetWirelessDevice -> QueryString
toQuery GetWirelessDevice' {Text
WirelessDeviceIdType
identifierType :: WirelessDeviceIdType
identifier :: Text
$sel:identifierType:GetWirelessDevice' :: GetWirelessDevice -> WirelessDeviceIdType
$sel:identifier:GetWirelessDevice' :: GetWirelessDevice -> Text
..} =
[QueryString] -> QueryString
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ByteString
"identifierType" ByteString -> WirelessDeviceIdType -> QueryString
forall a. ToQuery a => ByteString -> a -> QueryString
Core.=: WirelessDeviceIdType
identifierType]
data GetWirelessDeviceResponse = GetWirelessDeviceResponse'
{
GetWirelessDeviceResponse -> Maybe SidewalkDevice
sidewalk :: Prelude.Maybe SidewalkDevice,
GetWirelessDeviceResponse -> Maybe Text
arn :: Prelude.Maybe Prelude.Text,
GetWirelessDeviceResponse -> Maybe LoRaWANDevice
loRaWAN :: Prelude.Maybe LoRaWANDevice,
GetWirelessDeviceResponse -> Maybe Text
thingArn :: Prelude.Maybe Prelude.Text,
GetWirelessDeviceResponse -> Maybe Text
name :: Prelude.Maybe Prelude.Text,
GetWirelessDeviceResponse -> Maybe Text
id :: Prelude.Maybe Prelude.Text,
GetWirelessDeviceResponse -> Maybe WirelessDeviceType
type' :: Prelude.Maybe WirelessDeviceType,
GetWirelessDeviceResponse -> Maybe Text
destinationName :: Prelude.Maybe Prelude.Text,
GetWirelessDeviceResponse -> Maybe Text
thingName :: Prelude.Maybe Prelude.Text,
GetWirelessDeviceResponse -> Maybe Text
description :: Prelude.Maybe Prelude.Text,
GetWirelessDeviceResponse -> Int
httpStatus :: Prelude.Int
}
deriving (GetWirelessDeviceResponse -> GetWirelessDeviceResponse -> Bool
(GetWirelessDeviceResponse -> GetWirelessDeviceResponse -> Bool)
-> (GetWirelessDeviceResponse -> GetWirelessDeviceResponse -> Bool)
-> Eq GetWirelessDeviceResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetWirelessDeviceResponse -> GetWirelessDeviceResponse -> Bool
$c/= :: GetWirelessDeviceResponse -> GetWirelessDeviceResponse -> Bool
== :: GetWirelessDeviceResponse -> GetWirelessDeviceResponse -> Bool
$c== :: GetWirelessDeviceResponse -> GetWirelessDeviceResponse -> Bool
Prelude.Eq, ReadPrec [GetWirelessDeviceResponse]
ReadPrec GetWirelessDeviceResponse
Int -> ReadS GetWirelessDeviceResponse
ReadS [GetWirelessDeviceResponse]
(Int -> ReadS GetWirelessDeviceResponse)
-> ReadS [GetWirelessDeviceResponse]
-> ReadPrec GetWirelessDeviceResponse
-> ReadPrec [GetWirelessDeviceResponse]
-> Read GetWirelessDeviceResponse
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetWirelessDeviceResponse]
$creadListPrec :: ReadPrec [GetWirelessDeviceResponse]
readPrec :: ReadPrec GetWirelessDeviceResponse
$creadPrec :: ReadPrec GetWirelessDeviceResponse
readList :: ReadS [GetWirelessDeviceResponse]
$creadList :: ReadS [GetWirelessDeviceResponse]
readsPrec :: Int -> ReadS GetWirelessDeviceResponse
$creadsPrec :: Int -> ReadS GetWirelessDeviceResponse
Prelude.Read, Int -> GetWirelessDeviceResponse -> ShowS
[GetWirelessDeviceResponse] -> ShowS
GetWirelessDeviceResponse -> String
(Int -> GetWirelessDeviceResponse -> ShowS)
-> (GetWirelessDeviceResponse -> String)
-> ([GetWirelessDeviceResponse] -> ShowS)
-> Show GetWirelessDeviceResponse
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetWirelessDeviceResponse] -> ShowS
$cshowList :: [GetWirelessDeviceResponse] -> ShowS
show :: GetWirelessDeviceResponse -> String
$cshow :: GetWirelessDeviceResponse -> String
showsPrec :: Int -> GetWirelessDeviceResponse -> ShowS
$cshowsPrec :: Int -> GetWirelessDeviceResponse -> ShowS
Prelude.Show, (forall x.
GetWirelessDeviceResponse -> Rep GetWirelessDeviceResponse x)
-> (forall x.
Rep GetWirelessDeviceResponse x -> GetWirelessDeviceResponse)
-> Generic GetWirelessDeviceResponse
forall x.
Rep GetWirelessDeviceResponse x -> GetWirelessDeviceResponse
forall x.
GetWirelessDeviceResponse -> Rep GetWirelessDeviceResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep GetWirelessDeviceResponse x -> GetWirelessDeviceResponse
$cfrom :: forall x.
GetWirelessDeviceResponse -> Rep GetWirelessDeviceResponse x
Prelude.Generic)
newGetWirelessDeviceResponse ::
Prelude.Int ->
GetWirelessDeviceResponse
newGetWirelessDeviceResponse :: Int -> GetWirelessDeviceResponse
newGetWirelessDeviceResponse Int
pHttpStatus_ =
GetWirelessDeviceResponse' :: Maybe SidewalkDevice
-> Maybe Text
-> Maybe LoRaWANDevice
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe WirelessDeviceType
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Int
-> GetWirelessDeviceResponse
GetWirelessDeviceResponse'
{ $sel:sidewalk:GetWirelessDeviceResponse' :: Maybe SidewalkDevice
sidewalk =
Maybe SidewalkDevice
forall a. Maybe a
Prelude.Nothing,
$sel:arn:GetWirelessDeviceResponse' :: Maybe Text
arn = Maybe Text
forall a. Maybe a
Prelude.Nothing,
$sel:loRaWAN:GetWirelessDeviceResponse' :: Maybe LoRaWANDevice
loRaWAN = Maybe LoRaWANDevice
forall a. Maybe a
Prelude.Nothing,
$sel:thingArn:GetWirelessDeviceResponse' :: Maybe Text
thingArn = Maybe Text
forall a. Maybe a
Prelude.Nothing,
$sel:name:GetWirelessDeviceResponse' :: Maybe Text
name = Maybe Text
forall a. Maybe a
Prelude.Nothing,
$sel:id:GetWirelessDeviceResponse' :: Maybe Text
id = Maybe Text
forall a. Maybe a
Prelude.Nothing,
$sel:type':GetWirelessDeviceResponse' :: Maybe WirelessDeviceType
type' = Maybe WirelessDeviceType
forall a. Maybe a
Prelude.Nothing,
$sel:destinationName:GetWirelessDeviceResponse' :: Maybe Text
destinationName = Maybe Text
forall a. Maybe a
Prelude.Nothing,
$sel:thingName:GetWirelessDeviceResponse' :: Maybe Text
thingName = Maybe Text
forall a. Maybe a
Prelude.Nothing,
$sel:description:GetWirelessDeviceResponse' :: Maybe Text
description = Maybe Text
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:GetWirelessDeviceResponse' :: Int
httpStatus = Int
pHttpStatus_
}
getWirelessDeviceResponse_sidewalk :: Lens.Lens' GetWirelessDeviceResponse (Prelude.Maybe SidewalkDevice)
getWirelessDeviceResponse_sidewalk :: (Maybe SidewalkDevice -> f (Maybe SidewalkDevice))
-> GetWirelessDeviceResponse -> f GetWirelessDeviceResponse
getWirelessDeviceResponse_sidewalk = (GetWirelessDeviceResponse -> Maybe SidewalkDevice)
-> (GetWirelessDeviceResponse
-> Maybe SidewalkDevice -> GetWirelessDeviceResponse)
-> Lens
GetWirelessDeviceResponse
GetWirelessDeviceResponse
(Maybe SidewalkDevice)
(Maybe SidewalkDevice)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetWirelessDeviceResponse' {Maybe SidewalkDevice
sidewalk :: Maybe SidewalkDevice
$sel:sidewalk:GetWirelessDeviceResponse' :: GetWirelessDeviceResponse -> Maybe SidewalkDevice
sidewalk} -> Maybe SidewalkDevice
sidewalk) (\s :: GetWirelessDeviceResponse
s@GetWirelessDeviceResponse' {} Maybe SidewalkDevice
a -> GetWirelessDeviceResponse
s {$sel:sidewalk:GetWirelessDeviceResponse' :: Maybe SidewalkDevice
sidewalk = Maybe SidewalkDevice
a} :: GetWirelessDeviceResponse)
getWirelessDeviceResponse_arn :: Lens.Lens' GetWirelessDeviceResponse (Prelude.Maybe Prelude.Text)
getWirelessDeviceResponse_arn :: (Maybe Text -> f (Maybe Text))
-> GetWirelessDeviceResponse -> f GetWirelessDeviceResponse
getWirelessDeviceResponse_arn = (GetWirelessDeviceResponse -> Maybe Text)
-> (GetWirelessDeviceResponse
-> Maybe Text -> GetWirelessDeviceResponse)
-> Lens
GetWirelessDeviceResponse
GetWirelessDeviceResponse
(Maybe Text)
(Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetWirelessDeviceResponse' {Maybe Text
arn :: Maybe Text
$sel:arn:GetWirelessDeviceResponse' :: GetWirelessDeviceResponse -> Maybe Text
arn} -> Maybe Text
arn) (\s :: GetWirelessDeviceResponse
s@GetWirelessDeviceResponse' {} Maybe Text
a -> GetWirelessDeviceResponse
s {$sel:arn:GetWirelessDeviceResponse' :: Maybe Text
arn = Maybe Text
a} :: GetWirelessDeviceResponse)
getWirelessDeviceResponse_loRaWAN :: Lens.Lens' GetWirelessDeviceResponse (Prelude.Maybe LoRaWANDevice)
getWirelessDeviceResponse_loRaWAN :: (Maybe LoRaWANDevice -> f (Maybe LoRaWANDevice))
-> GetWirelessDeviceResponse -> f GetWirelessDeviceResponse
getWirelessDeviceResponse_loRaWAN = (GetWirelessDeviceResponse -> Maybe LoRaWANDevice)
-> (GetWirelessDeviceResponse
-> Maybe LoRaWANDevice -> GetWirelessDeviceResponse)
-> Lens
GetWirelessDeviceResponse
GetWirelessDeviceResponse
(Maybe LoRaWANDevice)
(Maybe LoRaWANDevice)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetWirelessDeviceResponse' {Maybe LoRaWANDevice
loRaWAN :: Maybe LoRaWANDevice
$sel:loRaWAN:GetWirelessDeviceResponse' :: GetWirelessDeviceResponse -> Maybe LoRaWANDevice
loRaWAN} -> Maybe LoRaWANDevice
loRaWAN) (\s :: GetWirelessDeviceResponse
s@GetWirelessDeviceResponse' {} Maybe LoRaWANDevice
a -> GetWirelessDeviceResponse
s {$sel:loRaWAN:GetWirelessDeviceResponse' :: Maybe LoRaWANDevice
loRaWAN = Maybe LoRaWANDevice
a} :: GetWirelessDeviceResponse)
getWirelessDeviceResponse_thingArn :: Lens.Lens' GetWirelessDeviceResponse (Prelude.Maybe Prelude.Text)
getWirelessDeviceResponse_thingArn :: (Maybe Text -> f (Maybe Text))
-> GetWirelessDeviceResponse -> f GetWirelessDeviceResponse
getWirelessDeviceResponse_thingArn = (GetWirelessDeviceResponse -> Maybe Text)
-> (GetWirelessDeviceResponse
-> Maybe Text -> GetWirelessDeviceResponse)
-> Lens
GetWirelessDeviceResponse
GetWirelessDeviceResponse
(Maybe Text)
(Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetWirelessDeviceResponse' {Maybe Text
thingArn :: Maybe Text
$sel:thingArn:GetWirelessDeviceResponse' :: GetWirelessDeviceResponse -> Maybe Text
thingArn} -> Maybe Text
thingArn) (\s :: GetWirelessDeviceResponse
s@GetWirelessDeviceResponse' {} Maybe Text
a -> GetWirelessDeviceResponse
s {$sel:thingArn:GetWirelessDeviceResponse' :: Maybe Text
thingArn = Maybe Text
a} :: GetWirelessDeviceResponse)
getWirelessDeviceResponse_name :: Lens.Lens' GetWirelessDeviceResponse (Prelude.Maybe Prelude.Text)
getWirelessDeviceResponse_name :: (Maybe Text -> f (Maybe Text))
-> GetWirelessDeviceResponse -> f GetWirelessDeviceResponse
getWirelessDeviceResponse_name = (GetWirelessDeviceResponse -> Maybe Text)
-> (GetWirelessDeviceResponse
-> Maybe Text -> GetWirelessDeviceResponse)
-> Lens
GetWirelessDeviceResponse
GetWirelessDeviceResponse
(Maybe Text)
(Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetWirelessDeviceResponse' {Maybe Text
name :: Maybe Text
$sel:name:GetWirelessDeviceResponse' :: GetWirelessDeviceResponse -> Maybe Text
name} -> Maybe Text
name) (\s :: GetWirelessDeviceResponse
s@GetWirelessDeviceResponse' {} Maybe Text
a -> GetWirelessDeviceResponse
s {$sel:name:GetWirelessDeviceResponse' :: Maybe Text
name = Maybe Text
a} :: GetWirelessDeviceResponse)
getWirelessDeviceResponse_id :: Lens.Lens' GetWirelessDeviceResponse (Prelude.Maybe Prelude.Text)
getWirelessDeviceResponse_id :: (Maybe Text -> f (Maybe Text))
-> GetWirelessDeviceResponse -> f GetWirelessDeviceResponse
getWirelessDeviceResponse_id = (GetWirelessDeviceResponse -> Maybe Text)
-> (GetWirelessDeviceResponse
-> Maybe Text -> GetWirelessDeviceResponse)
-> Lens
GetWirelessDeviceResponse
GetWirelessDeviceResponse
(Maybe Text)
(Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetWirelessDeviceResponse' {Maybe Text
id :: Maybe Text
$sel:id:GetWirelessDeviceResponse' :: GetWirelessDeviceResponse -> Maybe Text
id} -> Maybe Text
id) (\s :: GetWirelessDeviceResponse
s@GetWirelessDeviceResponse' {} Maybe Text
a -> GetWirelessDeviceResponse
s {$sel:id:GetWirelessDeviceResponse' :: Maybe Text
id = Maybe Text
a} :: GetWirelessDeviceResponse)
getWirelessDeviceResponse_type :: Lens.Lens' GetWirelessDeviceResponse (Prelude.Maybe WirelessDeviceType)
getWirelessDeviceResponse_type :: (Maybe WirelessDeviceType -> f (Maybe WirelessDeviceType))
-> GetWirelessDeviceResponse -> f GetWirelessDeviceResponse
getWirelessDeviceResponse_type = (GetWirelessDeviceResponse -> Maybe WirelessDeviceType)
-> (GetWirelessDeviceResponse
-> Maybe WirelessDeviceType -> GetWirelessDeviceResponse)
-> Lens
GetWirelessDeviceResponse
GetWirelessDeviceResponse
(Maybe WirelessDeviceType)
(Maybe WirelessDeviceType)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetWirelessDeviceResponse' {Maybe WirelessDeviceType
type' :: Maybe WirelessDeviceType
$sel:type':GetWirelessDeviceResponse' :: GetWirelessDeviceResponse -> Maybe WirelessDeviceType
type'} -> Maybe WirelessDeviceType
type') (\s :: GetWirelessDeviceResponse
s@GetWirelessDeviceResponse' {} Maybe WirelessDeviceType
a -> GetWirelessDeviceResponse
s {$sel:type':GetWirelessDeviceResponse' :: Maybe WirelessDeviceType
type' = Maybe WirelessDeviceType
a} :: GetWirelessDeviceResponse)
getWirelessDeviceResponse_destinationName :: Lens.Lens' GetWirelessDeviceResponse (Prelude.Maybe Prelude.Text)
getWirelessDeviceResponse_destinationName :: (Maybe Text -> f (Maybe Text))
-> GetWirelessDeviceResponse -> f GetWirelessDeviceResponse
getWirelessDeviceResponse_destinationName = (GetWirelessDeviceResponse -> Maybe Text)
-> (GetWirelessDeviceResponse
-> Maybe Text -> GetWirelessDeviceResponse)
-> Lens
GetWirelessDeviceResponse
GetWirelessDeviceResponse
(Maybe Text)
(Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetWirelessDeviceResponse' {Maybe Text
destinationName :: Maybe Text
$sel:destinationName:GetWirelessDeviceResponse' :: GetWirelessDeviceResponse -> Maybe Text
destinationName} -> Maybe Text
destinationName) (\s :: GetWirelessDeviceResponse
s@GetWirelessDeviceResponse' {} Maybe Text
a -> GetWirelessDeviceResponse
s {$sel:destinationName:GetWirelessDeviceResponse' :: Maybe Text
destinationName = Maybe Text
a} :: GetWirelessDeviceResponse)
getWirelessDeviceResponse_thingName :: Lens.Lens' GetWirelessDeviceResponse (Prelude.Maybe Prelude.Text)
getWirelessDeviceResponse_thingName :: (Maybe Text -> f (Maybe Text))
-> GetWirelessDeviceResponse -> f GetWirelessDeviceResponse
getWirelessDeviceResponse_thingName = (GetWirelessDeviceResponse -> Maybe Text)
-> (GetWirelessDeviceResponse
-> Maybe Text -> GetWirelessDeviceResponse)
-> Lens
GetWirelessDeviceResponse
GetWirelessDeviceResponse
(Maybe Text)
(Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetWirelessDeviceResponse' {Maybe Text
thingName :: Maybe Text
$sel:thingName:GetWirelessDeviceResponse' :: GetWirelessDeviceResponse -> Maybe Text
thingName} -> Maybe Text
thingName) (\s :: GetWirelessDeviceResponse
s@GetWirelessDeviceResponse' {} Maybe Text
a -> GetWirelessDeviceResponse
s {$sel:thingName:GetWirelessDeviceResponse' :: Maybe Text
thingName = Maybe Text
a} :: GetWirelessDeviceResponse)
getWirelessDeviceResponse_description :: Lens.Lens' GetWirelessDeviceResponse (Prelude.Maybe Prelude.Text)
getWirelessDeviceResponse_description :: (Maybe Text -> f (Maybe Text))
-> GetWirelessDeviceResponse -> f GetWirelessDeviceResponse
getWirelessDeviceResponse_description = (GetWirelessDeviceResponse -> Maybe Text)
-> (GetWirelessDeviceResponse
-> Maybe Text -> GetWirelessDeviceResponse)
-> Lens
GetWirelessDeviceResponse
GetWirelessDeviceResponse
(Maybe Text)
(Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetWirelessDeviceResponse' {Maybe Text
description :: Maybe Text
$sel:description:GetWirelessDeviceResponse' :: GetWirelessDeviceResponse -> Maybe Text
description} -> Maybe Text
description) (\s :: GetWirelessDeviceResponse
s@GetWirelessDeviceResponse' {} Maybe Text
a -> GetWirelessDeviceResponse
s {$sel:description:GetWirelessDeviceResponse' :: Maybe Text
description = Maybe Text
a} :: GetWirelessDeviceResponse)
getWirelessDeviceResponse_httpStatus :: Lens.Lens' GetWirelessDeviceResponse Prelude.Int
getWirelessDeviceResponse_httpStatus :: (Int -> f Int)
-> GetWirelessDeviceResponse -> f GetWirelessDeviceResponse
getWirelessDeviceResponse_httpStatus = (GetWirelessDeviceResponse -> Int)
-> (GetWirelessDeviceResponse -> Int -> GetWirelessDeviceResponse)
-> Lens GetWirelessDeviceResponse GetWirelessDeviceResponse Int Int
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetWirelessDeviceResponse' {Int
httpStatus :: Int
$sel:httpStatus:GetWirelessDeviceResponse' :: GetWirelessDeviceResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: GetWirelessDeviceResponse
s@GetWirelessDeviceResponse' {} Int
a -> GetWirelessDeviceResponse
s {$sel:httpStatus:GetWirelessDeviceResponse' :: Int
httpStatus = Int
a} :: GetWirelessDeviceResponse)
instance Prelude.NFData GetWirelessDeviceResponse