{-# 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.GetWirelessGatewayTaskDefinition
(
GetWirelessGatewayTaskDefinition (..),
newGetWirelessGatewayTaskDefinition,
getWirelessGatewayTaskDefinition_id,
GetWirelessGatewayTaskDefinitionResponse (..),
newGetWirelessGatewayTaskDefinitionResponse,
getWirelessGatewayTaskDefinitionResponse_arn,
getWirelessGatewayTaskDefinitionResponse_autoCreateTasks,
getWirelessGatewayTaskDefinitionResponse_name,
getWirelessGatewayTaskDefinitionResponse_update,
getWirelessGatewayTaskDefinitionResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.IoTWireless.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data GetWirelessGatewayTaskDefinition = GetWirelessGatewayTaskDefinition'
{
GetWirelessGatewayTaskDefinition -> Text
id :: Prelude.Text
}
deriving (GetWirelessGatewayTaskDefinition
-> GetWirelessGatewayTaskDefinition -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetWirelessGatewayTaskDefinition
-> GetWirelessGatewayTaskDefinition -> Bool
$c/= :: GetWirelessGatewayTaskDefinition
-> GetWirelessGatewayTaskDefinition -> Bool
== :: GetWirelessGatewayTaskDefinition
-> GetWirelessGatewayTaskDefinition -> Bool
$c== :: GetWirelessGatewayTaskDefinition
-> GetWirelessGatewayTaskDefinition -> Bool
Prelude.Eq, ReadPrec [GetWirelessGatewayTaskDefinition]
ReadPrec GetWirelessGatewayTaskDefinition
Int -> ReadS GetWirelessGatewayTaskDefinition
ReadS [GetWirelessGatewayTaskDefinition]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetWirelessGatewayTaskDefinition]
$creadListPrec :: ReadPrec [GetWirelessGatewayTaskDefinition]
readPrec :: ReadPrec GetWirelessGatewayTaskDefinition
$creadPrec :: ReadPrec GetWirelessGatewayTaskDefinition
readList :: ReadS [GetWirelessGatewayTaskDefinition]
$creadList :: ReadS [GetWirelessGatewayTaskDefinition]
readsPrec :: Int -> ReadS GetWirelessGatewayTaskDefinition
$creadsPrec :: Int -> ReadS GetWirelessGatewayTaskDefinition
Prelude.Read, Int -> GetWirelessGatewayTaskDefinition -> ShowS
[GetWirelessGatewayTaskDefinition] -> ShowS
GetWirelessGatewayTaskDefinition -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetWirelessGatewayTaskDefinition] -> ShowS
$cshowList :: [GetWirelessGatewayTaskDefinition] -> ShowS
show :: GetWirelessGatewayTaskDefinition -> String
$cshow :: GetWirelessGatewayTaskDefinition -> String
showsPrec :: Int -> GetWirelessGatewayTaskDefinition -> ShowS
$cshowsPrec :: Int -> GetWirelessGatewayTaskDefinition -> ShowS
Prelude.Show, forall x.
Rep GetWirelessGatewayTaskDefinition x
-> GetWirelessGatewayTaskDefinition
forall x.
GetWirelessGatewayTaskDefinition
-> Rep GetWirelessGatewayTaskDefinition x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep GetWirelessGatewayTaskDefinition x
-> GetWirelessGatewayTaskDefinition
$cfrom :: forall x.
GetWirelessGatewayTaskDefinition
-> Rep GetWirelessGatewayTaskDefinition x
Prelude.Generic)
newGetWirelessGatewayTaskDefinition ::
Prelude.Text ->
GetWirelessGatewayTaskDefinition
newGetWirelessGatewayTaskDefinition :: Text -> GetWirelessGatewayTaskDefinition
newGetWirelessGatewayTaskDefinition Text
pId_ =
GetWirelessGatewayTaskDefinition' {$sel:id:GetWirelessGatewayTaskDefinition' :: Text
id = Text
pId_}
getWirelessGatewayTaskDefinition_id :: Lens.Lens' GetWirelessGatewayTaskDefinition Prelude.Text
getWirelessGatewayTaskDefinition_id :: Lens' GetWirelessGatewayTaskDefinition Text
getWirelessGatewayTaskDefinition_id = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetWirelessGatewayTaskDefinition' {Text
id :: Text
$sel:id:GetWirelessGatewayTaskDefinition' :: GetWirelessGatewayTaskDefinition -> Text
id} -> Text
id) (\s :: GetWirelessGatewayTaskDefinition
s@GetWirelessGatewayTaskDefinition' {} Text
a -> GetWirelessGatewayTaskDefinition
s {$sel:id:GetWirelessGatewayTaskDefinition' :: Text
id = Text
a} :: GetWirelessGatewayTaskDefinition)
instance
Core.AWSRequest
GetWirelessGatewayTaskDefinition
where
type
AWSResponse GetWirelessGatewayTaskDefinition =
GetWirelessGatewayTaskDefinitionResponse
request :: (Service -> Service)
-> GetWirelessGatewayTaskDefinition
-> Request GetWirelessGatewayTaskDefinition
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 GetWirelessGatewayTaskDefinition
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse (AWSResponse GetWirelessGatewayTaskDefinition)))
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 Bool
-> Maybe Text
-> Maybe UpdateWirelessGatewayTaskCreate
-> Int
-> GetWirelessGatewayTaskDefinitionResponse
GetWirelessGatewayTaskDefinitionResponse'
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
"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
"AutoCreateTasks")
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
"Update")
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
GetWirelessGatewayTaskDefinition
where
hashWithSalt :: Int -> GetWirelessGatewayTaskDefinition -> Int
hashWithSalt
Int
_salt
GetWirelessGatewayTaskDefinition' {Text
id :: Text
$sel:id:GetWirelessGatewayTaskDefinition' :: GetWirelessGatewayTaskDefinition -> Text
..} =
Int
_salt forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
id
instance
Prelude.NFData
GetWirelessGatewayTaskDefinition
where
rnf :: GetWirelessGatewayTaskDefinition -> ()
rnf GetWirelessGatewayTaskDefinition' {Text
id :: Text
$sel:id:GetWirelessGatewayTaskDefinition' :: GetWirelessGatewayTaskDefinition -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
id
instance
Data.ToHeaders
GetWirelessGatewayTaskDefinition
where
toHeaders :: GetWirelessGatewayTaskDefinition -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToPath GetWirelessGatewayTaskDefinition where
toPath :: GetWirelessGatewayTaskDefinition -> ByteString
toPath GetWirelessGatewayTaskDefinition' {Text
id :: Text
$sel:id:GetWirelessGatewayTaskDefinition' :: GetWirelessGatewayTaskDefinition -> Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ByteString
"/wireless-gateway-task-definitions/", forall a. ToByteString a => a -> ByteString
Data.toBS Text
id]
instance
Data.ToQuery
GetWirelessGatewayTaskDefinition
where
toQuery :: GetWirelessGatewayTaskDefinition -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data GetWirelessGatewayTaskDefinitionResponse = GetWirelessGatewayTaskDefinitionResponse'
{
GetWirelessGatewayTaskDefinitionResponse -> Maybe Text
arn :: Prelude.Maybe Prelude.Text,
GetWirelessGatewayTaskDefinitionResponse -> Maybe Bool
autoCreateTasks :: Prelude.Maybe Prelude.Bool,
GetWirelessGatewayTaskDefinitionResponse -> Maybe Text
name :: Prelude.Maybe Prelude.Text,
GetWirelessGatewayTaskDefinitionResponse
-> Maybe UpdateWirelessGatewayTaskCreate
update :: Prelude.Maybe UpdateWirelessGatewayTaskCreate,
GetWirelessGatewayTaskDefinitionResponse -> Int
httpStatus :: Prelude.Int
}
deriving (GetWirelessGatewayTaskDefinitionResponse
-> GetWirelessGatewayTaskDefinitionResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetWirelessGatewayTaskDefinitionResponse
-> GetWirelessGatewayTaskDefinitionResponse -> Bool
$c/= :: GetWirelessGatewayTaskDefinitionResponse
-> GetWirelessGatewayTaskDefinitionResponse -> Bool
== :: GetWirelessGatewayTaskDefinitionResponse
-> GetWirelessGatewayTaskDefinitionResponse -> Bool
$c== :: GetWirelessGatewayTaskDefinitionResponse
-> GetWirelessGatewayTaskDefinitionResponse -> Bool
Prelude.Eq, ReadPrec [GetWirelessGatewayTaskDefinitionResponse]
ReadPrec GetWirelessGatewayTaskDefinitionResponse
Int -> ReadS GetWirelessGatewayTaskDefinitionResponse
ReadS [GetWirelessGatewayTaskDefinitionResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetWirelessGatewayTaskDefinitionResponse]
$creadListPrec :: ReadPrec [GetWirelessGatewayTaskDefinitionResponse]
readPrec :: ReadPrec GetWirelessGatewayTaskDefinitionResponse
$creadPrec :: ReadPrec GetWirelessGatewayTaskDefinitionResponse
readList :: ReadS [GetWirelessGatewayTaskDefinitionResponse]
$creadList :: ReadS [GetWirelessGatewayTaskDefinitionResponse]
readsPrec :: Int -> ReadS GetWirelessGatewayTaskDefinitionResponse
$creadsPrec :: Int -> ReadS GetWirelessGatewayTaskDefinitionResponse
Prelude.Read, Int -> GetWirelessGatewayTaskDefinitionResponse -> ShowS
[GetWirelessGatewayTaskDefinitionResponse] -> ShowS
GetWirelessGatewayTaskDefinitionResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetWirelessGatewayTaskDefinitionResponse] -> ShowS
$cshowList :: [GetWirelessGatewayTaskDefinitionResponse] -> ShowS
show :: GetWirelessGatewayTaskDefinitionResponse -> String
$cshow :: GetWirelessGatewayTaskDefinitionResponse -> String
showsPrec :: Int -> GetWirelessGatewayTaskDefinitionResponse -> ShowS
$cshowsPrec :: Int -> GetWirelessGatewayTaskDefinitionResponse -> ShowS
Prelude.Show, forall x.
Rep GetWirelessGatewayTaskDefinitionResponse x
-> GetWirelessGatewayTaskDefinitionResponse
forall x.
GetWirelessGatewayTaskDefinitionResponse
-> Rep GetWirelessGatewayTaskDefinitionResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep GetWirelessGatewayTaskDefinitionResponse x
-> GetWirelessGatewayTaskDefinitionResponse
$cfrom :: forall x.
GetWirelessGatewayTaskDefinitionResponse
-> Rep GetWirelessGatewayTaskDefinitionResponse x
Prelude.Generic)
newGetWirelessGatewayTaskDefinitionResponse ::
Prelude.Int ->
GetWirelessGatewayTaskDefinitionResponse
newGetWirelessGatewayTaskDefinitionResponse :: Int -> GetWirelessGatewayTaskDefinitionResponse
newGetWirelessGatewayTaskDefinitionResponse
Int
pHttpStatus_ =
GetWirelessGatewayTaskDefinitionResponse'
{ $sel:arn:GetWirelessGatewayTaskDefinitionResponse' :: Maybe Text
arn =
forall a. Maybe a
Prelude.Nothing,
$sel:autoCreateTasks:GetWirelessGatewayTaskDefinitionResponse' :: Maybe Bool
autoCreateTasks = forall a. Maybe a
Prelude.Nothing,
$sel:name:GetWirelessGatewayTaskDefinitionResponse' :: Maybe Text
name = forall a. Maybe a
Prelude.Nothing,
$sel:update:GetWirelessGatewayTaskDefinitionResponse' :: Maybe UpdateWirelessGatewayTaskCreate
update = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:GetWirelessGatewayTaskDefinitionResponse' :: Int
httpStatus = Int
pHttpStatus_
}
getWirelessGatewayTaskDefinitionResponse_arn :: Lens.Lens' GetWirelessGatewayTaskDefinitionResponse (Prelude.Maybe Prelude.Text)
getWirelessGatewayTaskDefinitionResponse_arn :: Lens' GetWirelessGatewayTaskDefinitionResponse (Maybe Text)
getWirelessGatewayTaskDefinitionResponse_arn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetWirelessGatewayTaskDefinitionResponse' {Maybe Text
arn :: Maybe Text
$sel:arn:GetWirelessGatewayTaskDefinitionResponse' :: GetWirelessGatewayTaskDefinitionResponse -> Maybe Text
arn} -> Maybe Text
arn) (\s :: GetWirelessGatewayTaskDefinitionResponse
s@GetWirelessGatewayTaskDefinitionResponse' {} Maybe Text
a -> GetWirelessGatewayTaskDefinitionResponse
s {$sel:arn:GetWirelessGatewayTaskDefinitionResponse' :: Maybe Text
arn = Maybe Text
a} :: GetWirelessGatewayTaskDefinitionResponse)
getWirelessGatewayTaskDefinitionResponse_autoCreateTasks :: Lens.Lens' GetWirelessGatewayTaskDefinitionResponse (Prelude.Maybe Prelude.Bool)
getWirelessGatewayTaskDefinitionResponse_autoCreateTasks :: Lens' GetWirelessGatewayTaskDefinitionResponse (Maybe Bool)
getWirelessGatewayTaskDefinitionResponse_autoCreateTasks = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetWirelessGatewayTaskDefinitionResponse' {Maybe Bool
autoCreateTasks :: Maybe Bool
$sel:autoCreateTasks:GetWirelessGatewayTaskDefinitionResponse' :: GetWirelessGatewayTaskDefinitionResponse -> Maybe Bool
autoCreateTasks} -> Maybe Bool
autoCreateTasks) (\s :: GetWirelessGatewayTaskDefinitionResponse
s@GetWirelessGatewayTaskDefinitionResponse' {} Maybe Bool
a -> GetWirelessGatewayTaskDefinitionResponse
s {$sel:autoCreateTasks:GetWirelessGatewayTaskDefinitionResponse' :: Maybe Bool
autoCreateTasks = Maybe Bool
a} :: GetWirelessGatewayTaskDefinitionResponse)
getWirelessGatewayTaskDefinitionResponse_name :: Lens.Lens' GetWirelessGatewayTaskDefinitionResponse (Prelude.Maybe Prelude.Text)
getWirelessGatewayTaskDefinitionResponse_name :: Lens' GetWirelessGatewayTaskDefinitionResponse (Maybe Text)
getWirelessGatewayTaskDefinitionResponse_name = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetWirelessGatewayTaskDefinitionResponse' {Maybe Text
name :: Maybe Text
$sel:name:GetWirelessGatewayTaskDefinitionResponse' :: GetWirelessGatewayTaskDefinitionResponse -> Maybe Text
name} -> Maybe Text
name) (\s :: GetWirelessGatewayTaskDefinitionResponse
s@GetWirelessGatewayTaskDefinitionResponse' {} Maybe Text
a -> GetWirelessGatewayTaskDefinitionResponse
s {$sel:name:GetWirelessGatewayTaskDefinitionResponse' :: Maybe Text
name = Maybe Text
a} :: GetWirelessGatewayTaskDefinitionResponse)
getWirelessGatewayTaskDefinitionResponse_update :: Lens.Lens' GetWirelessGatewayTaskDefinitionResponse (Prelude.Maybe UpdateWirelessGatewayTaskCreate)
getWirelessGatewayTaskDefinitionResponse_update :: Lens'
GetWirelessGatewayTaskDefinitionResponse
(Maybe UpdateWirelessGatewayTaskCreate)
getWirelessGatewayTaskDefinitionResponse_update = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetWirelessGatewayTaskDefinitionResponse' {Maybe UpdateWirelessGatewayTaskCreate
update :: Maybe UpdateWirelessGatewayTaskCreate
$sel:update:GetWirelessGatewayTaskDefinitionResponse' :: GetWirelessGatewayTaskDefinitionResponse
-> Maybe UpdateWirelessGatewayTaskCreate
update} -> Maybe UpdateWirelessGatewayTaskCreate
update) (\s :: GetWirelessGatewayTaskDefinitionResponse
s@GetWirelessGatewayTaskDefinitionResponse' {} Maybe UpdateWirelessGatewayTaskCreate
a -> GetWirelessGatewayTaskDefinitionResponse
s {$sel:update:GetWirelessGatewayTaskDefinitionResponse' :: Maybe UpdateWirelessGatewayTaskCreate
update = Maybe UpdateWirelessGatewayTaskCreate
a} :: GetWirelessGatewayTaskDefinitionResponse)
getWirelessGatewayTaskDefinitionResponse_httpStatus :: Lens.Lens' GetWirelessGatewayTaskDefinitionResponse Prelude.Int
getWirelessGatewayTaskDefinitionResponse_httpStatus :: Lens' GetWirelessGatewayTaskDefinitionResponse Int
getWirelessGatewayTaskDefinitionResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetWirelessGatewayTaskDefinitionResponse' {Int
httpStatus :: Int
$sel:httpStatus:GetWirelessGatewayTaskDefinitionResponse' :: GetWirelessGatewayTaskDefinitionResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: GetWirelessGatewayTaskDefinitionResponse
s@GetWirelessGatewayTaskDefinitionResponse' {} Int
a -> GetWirelessGatewayTaskDefinitionResponse
s {$sel:httpStatus:GetWirelessGatewayTaskDefinitionResponse' :: Int
httpStatus = Int
a} :: GetWirelessGatewayTaskDefinitionResponse)
instance
Prelude.NFData
GetWirelessGatewayTaskDefinitionResponse
where
rnf :: GetWirelessGatewayTaskDefinitionResponse -> ()
rnf GetWirelessGatewayTaskDefinitionResponse' {Int
Maybe Bool
Maybe Text
Maybe UpdateWirelessGatewayTaskCreate
httpStatus :: Int
update :: Maybe UpdateWirelessGatewayTaskCreate
name :: Maybe Text
autoCreateTasks :: Maybe Bool
arn :: Maybe Text
$sel:httpStatus:GetWirelessGatewayTaskDefinitionResponse' :: GetWirelessGatewayTaskDefinitionResponse -> Int
$sel:update:GetWirelessGatewayTaskDefinitionResponse' :: GetWirelessGatewayTaskDefinitionResponse
-> Maybe UpdateWirelessGatewayTaskCreate
$sel:name:GetWirelessGatewayTaskDefinitionResponse' :: GetWirelessGatewayTaskDefinitionResponse -> Maybe Text
$sel:autoCreateTasks:GetWirelessGatewayTaskDefinitionResponse' :: GetWirelessGatewayTaskDefinitionResponse -> Maybe Bool
$sel:arn:GetWirelessGatewayTaskDefinitionResponse' :: GetWirelessGatewayTaskDefinitionResponse -> Maybe Text
..} =
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 Bool
autoCreateTasks
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 UpdateWirelessGatewayTaskCreate
update
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus