{-# 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.Greengrass.CreateDeviceDefinitionVersion
(
CreateDeviceDefinitionVersion (..),
newCreateDeviceDefinitionVersion,
createDeviceDefinitionVersion_amznClientToken,
createDeviceDefinitionVersion_devices,
createDeviceDefinitionVersion_deviceDefinitionId,
CreateDeviceDefinitionVersionResponse (..),
newCreateDeviceDefinitionVersionResponse,
createDeviceDefinitionVersionResponse_arn,
createDeviceDefinitionVersionResponse_creationTimestamp,
createDeviceDefinitionVersionResponse_id,
createDeviceDefinitionVersionResponse_version,
createDeviceDefinitionVersionResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.Greengrass.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data CreateDeviceDefinitionVersion = CreateDeviceDefinitionVersion'
{
CreateDeviceDefinitionVersion -> Maybe Text
amznClientToken :: Prelude.Maybe Prelude.Text,
CreateDeviceDefinitionVersion -> Maybe [Device]
devices :: Prelude.Maybe [Device],
CreateDeviceDefinitionVersion -> Text
deviceDefinitionId :: Prelude.Text
}
deriving (CreateDeviceDefinitionVersion
-> CreateDeviceDefinitionVersion -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateDeviceDefinitionVersion
-> CreateDeviceDefinitionVersion -> Bool
$c/= :: CreateDeviceDefinitionVersion
-> CreateDeviceDefinitionVersion -> Bool
== :: CreateDeviceDefinitionVersion
-> CreateDeviceDefinitionVersion -> Bool
$c== :: CreateDeviceDefinitionVersion
-> CreateDeviceDefinitionVersion -> Bool
Prelude.Eq, ReadPrec [CreateDeviceDefinitionVersion]
ReadPrec CreateDeviceDefinitionVersion
Int -> ReadS CreateDeviceDefinitionVersion
ReadS [CreateDeviceDefinitionVersion]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateDeviceDefinitionVersion]
$creadListPrec :: ReadPrec [CreateDeviceDefinitionVersion]
readPrec :: ReadPrec CreateDeviceDefinitionVersion
$creadPrec :: ReadPrec CreateDeviceDefinitionVersion
readList :: ReadS [CreateDeviceDefinitionVersion]
$creadList :: ReadS [CreateDeviceDefinitionVersion]
readsPrec :: Int -> ReadS CreateDeviceDefinitionVersion
$creadsPrec :: Int -> ReadS CreateDeviceDefinitionVersion
Prelude.Read, Int -> CreateDeviceDefinitionVersion -> ShowS
[CreateDeviceDefinitionVersion] -> ShowS
CreateDeviceDefinitionVersion -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateDeviceDefinitionVersion] -> ShowS
$cshowList :: [CreateDeviceDefinitionVersion] -> ShowS
show :: CreateDeviceDefinitionVersion -> String
$cshow :: CreateDeviceDefinitionVersion -> String
showsPrec :: Int -> CreateDeviceDefinitionVersion -> ShowS
$cshowsPrec :: Int -> CreateDeviceDefinitionVersion -> ShowS
Prelude.Show, forall x.
Rep CreateDeviceDefinitionVersion x
-> CreateDeviceDefinitionVersion
forall x.
CreateDeviceDefinitionVersion
-> Rep CreateDeviceDefinitionVersion x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep CreateDeviceDefinitionVersion x
-> CreateDeviceDefinitionVersion
$cfrom :: forall x.
CreateDeviceDefinitionVersion
-> Rep CreateDeviceDefinitionVersion x
Prelude.Generic)
newCreateDeviceDefinitionVersion ::
Prelude.Text ->
CreateDeviceDefinitionVersion
newCreateDeviceDefinitionVersion :: Text -> CreateDeviceDefinitionVersion
newCreateDeviceDefinitionVersion Text
pDeviceDefinitionId_ =
CreateDeviceDefinitionVersion'
{ $sel:amznClientToken:CreateDeviceDefinitionVersion' :: Maybe Text
amznClientToken =
forall a. Maybe a
Prelude.Nothing,
$sel:devices:CreateDeviceDefinitionVersion' :: Maybe [Device]
devices = forall a. Maybe a
Prelude.Nothing,
$sel:deviceDefinitionId:CreateDeviceDefinitionVersion' :: Text
deviceDefinitionId = Text
pDeviceDefinitionId_
}
createDeviceDefinitionVersion_amznClientToken :: Lens.Lens' CreateDeviceDefinitionVersion (Prelude.Maybe Prelude.Text)
createDeviceDefinitionVersion_amznClientToken :: Lens' CreateDeviceDefinitionVersion (Maybe Text)
createDeviceDefinitionVersion_amznClientToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateDeviceDefinitionVersion' {Maybe Text
amznClientToken :: Maybe Text
$sel:amznClientToken:CreateDeviceDefinitionVersion' :: CreateDeviceDefinitionVersion -> Maybe Text
amznClientToken} -> Maybe Text
amznClientToken) (\s :: CreateDeviceDefinitionVersion
s@CreateDeviceDefinitionVersion' {} Maybe Text
a -> CreateDeviceDefinitionVersion
s {$sel:amznClientToken:CreateDeviceDefinitionVersion' :: Maybe Text
amznClientToken = Maybe Text
a} :: CreateDeviceDefinitionVersion)
createDeviceDefinitionVersion_devices :: Lens.Lens' CreateDeviceDefinitionVersion (Prelude.Maybe [Device])
createDeviceDefinitionVersion_devices :: Lens' CreateDeviceDefinitionVersion (Maybe [Device])
createDeviceDefinitionVersion_devices = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateDeviceDefinitionVersion' {Maybe [Device]
devices :: Maybe [Device]
$sel:devices:CreateDeviceDefinitionVersion' :: CreateDeviceDefinitionVersion -> Maybe [Device]
devices} -> Maybe [Device]
devices) (\s :: CreateDeviceDefinitionVersion
s@CreateDeviceDefinitionVersion' {} Maybe [Device]
a -> CreateDeviceDefinitionVersion
s {$sel:devices:CreateDeviceDefinitionVersion' :: Maybe [Device]
devices = Maybe [Device]
a} :: CreateDeviceDefinitionVersion) 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
createDeviceDefinitionVersion_deviceDefinitionId :: Lens.Lens' CreateDeviceDefinitionVersion Prelude.Text
createDeviceDefinitionVersion_deviceDefinitionId :: Lens' CreateDeviceDefinitionVersion Text
createDeviceDefinitionVersion_deviceDefinitionId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateDeviceDefinitionVersion' {Text
deviceDefinitionId :: Text
$sel:deviceDefinitionId:CreateDeviceDefinitionVersion' :: CreateDeviceDefinitionVersion -> Text
deviceDefinitionId} -> Text
deviceDefinitionId) (\s :: CreateDeviceDefinitionVersion
s@CreateDeviceDefinitionVersion' {} Text
a -> CreateDeviceDefinitionVersion
s {$sel:deviceDefinitionId:CreateDeviceDefinitionVersion' :: Text
deviceDefinitionId = Text
a} :: CreateDeviceDefinitionVersion)
instance
Core.AWSRequest
CreateDeviceDefinitionVersion
where
type
AWSResponse CreateDeviceDefinitionVersion =
CreateDeviceDefinitionVersionResponse
request :: (Service -> Service)
-> CreateDeviceDefinitionVersion
-> Request CreateDeviceDefinitionVersion
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 CreateDeviceDefinitionVersion
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse CreateDeviceDefinitionVersion)))
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 Text
-> Int
-> CreateDeviceDefinitionVersionResponse
CreateDeviceDefinitionVersionResponse'
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
"CreationTimestamp")
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
"Id")
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
"Version")
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
CreateDeviceDefinitionVersion
where
hashWithSalt :: Int -> CreateDeviceDefinitionVersion -> Int
hashWithSalt Int
_salt CreateDeviceDefinitionVersion' {Maybe [Device]
Maybe Text
Text
deviceDefinitionId :: Text
devices :: Maybe [Device]
amznClientToken :: Maybe Text
$sel:deviceDefinitionId:CreateDeviceDefinitionVersion' :: CreateDeviceDefinitionVersion -> Text
$sel:devices:CreateDeviceDefinitionVersion' :: CreateDeviceDefinitionVersion -> Maybe [Device]
$sel:amznClientToken:CreateDeviceDefinitionVersion' :: CreateDeviceDefinitionVersion -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
amznClientToken
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Device]
devices
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
deviceDefinitionId
instance Prelude.NFData CreateDeviceDefinitionVersion where
rnf :: CreateDeviceDefinitionVersion -> ()
rnf CreateDeviceDefinitionVersion' {Maybe [Device]
Maybe Text
Text
deviceDefinitionId :: Text
devices :: Maybe [Device]
amznClientToken :: Maybe Text
$sel:deviceDefinitionId:CreateDeviceDefinitionVersion' :: CreateDeviceDefinitionVersion -> Text
$sel:devices:CreateDeviceDefinitionVersion' :: CreateDeviceDefinitionVersion -> Maybe [Device]
$sel:amznClientToken:CreateDeviceDefinitionVersion' :: CreateDeviceDefinitionVersion -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
amznClientToken
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Device]
devices
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
deviceDefinitionId
instance Data.ToHeaders CreateDeviceDefinitionVersion where
toHeaders :: CreateDeviceDefinitionVersion -> ResponseHeaders
toHeaders CreateDeviceDefinitionVersion' {Maybe [Device]
Maybe Text
Text
deviceDefinitionId :: Text
devices :: Maybe [Device]
amznClientToken :: Maybe Text
$sel:deviceDefinitionId:CreateDeviceDefinitionVersion' :: CreateDeviceDefinitionVersion -> Text
$sel:devices:CreateDeviceDefinitionVersion' :: CreateDeviceDefinitionVersion -> Maybe [Device]
$sel:amznClientToken:CreateDeviceDefinitionVersion' :: CreateDeviceDefinitionVersion -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"X-Amzn-Client-Token" forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# Maybe Text
amznClientToken,
HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# (ByteString
"application/x-amz-json-1.1" :: Prelude.ByteString)
]
instance Data.ToJSON CreateDeviceDefinitionVersion where
toJSON :: CreateDeviceDefinitionVersion -> Value
toJSON CreateDeviceDefinitionVersion' {Maybe [Device]
Maybe Text
Text
deviceDefinitionId :: Text
devices :: Maybe [Device]
amznClientToken :: Maybe Text
$sel:deviceDefinitionId:CreateDeviceDefinitionVersion' :: CreateDeviceDefinitionVersion -> Text
$sel:devices:CreateDeviceDefinitionVersion' :: CreateDeviceDefinitionVersion -> Maybe [Device]
$sel:amznClientToken:CreateDeviceDefinitionVersion' :: CreateDeviceDefinitionVersion -> Maybe Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[(Key
"Devices" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [Device]
devices]
)
instance Data.ToPath CreateDeviceDefinitionVersion where
toPath :: CreateDeviceDefinitionVersion -> ByteString
toPath CreateDeviceDefinitionVersion' {Maybe [Device]
Maybe Text
Text
deviceDefinitionId :: Text
devices :: Maybe [Device]
amznClientToken :: Maybe Text
$sel:deviceDefinitionId:CreateDeviceDefinitionVersion' :: CreateDeviceDefinitionVersion -> Text
$sel:devices:CreateDeviceDefinitionVersion' :: CreateDeviceDefinitionVersion -> Maybe [Device]
$sel:amznClientToken:CreateDeviceDefinitionVersion' :: CreateDeviceDefinitionVersion -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"/greengrass/definition/devices/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
deviceDefinitionId,
ByteString
"/versions"
]
instance Data.ToQuery CreateDeviceDefinitionVersion where
toQuery :: CreateDeviceDefinitionVersion -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data CreateDeviceDefinitionVersionResponse = CreateDeviceDefinitionVersionResponse'
{
CreateDeviceDefinitionVersionResponse -> Maybe Text
arn :: Prelude.Maybe Prelude.Text,
CreateDeviceDefinitionVersionResponse -> Maybe Text
creationTimestamp :: Prelude.Maybe Prelude.Text,
CreateDeviceDefinitionVersionResponse -> Maybe Text
id :: Prelude.Maybe Prelude.Text,
CreateDeviceDefinitionVersionResponse -> Maybe Text
version :: Prelude.Maybe Prelude.Text,
CreateDeviceDefinitionVersionResponse -> Int
httpStatus :: Prelude.Int
}
deriving (CreateDeviceDefinitionVersionResponse
-> CreateDeviceDefinitionVersionResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateDeviceDefinitionVersionResponse
-> CreateDeviceDefinitionVersionResponse -> Bool
$c/= :: CreateDeviceDefinitionVersionResponse
-> CreateDeviceDefinitionVersionResponse -> Bool
== :: CreateDeviceDefinitionVersionResponse
-> CreateDeviceDefinitionVersionResponse -> Bool
$c== :: CreateDeviceDefinitionVersionResponse
-> CreateDeviceDefinitionVersionResponse -> Bool
Prelude.Eq, ReadPrec [CreateDeviceDefinitionVersionResponse]
ReadPrec CreateDeviceDefinitionVersionResponse
Int -> ReadS CreateDeviceDefinitionVersionResponse
ReadS [CreateDeviceDefinitionVersionResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateDeviceDefinitionVersionResponse]
$creadListPrec :: ReadPrec [CreateDeviceDefinitionVersionResponse]
readPrec :: ReadPrec CreateDeviceDefinitionVersionResponse
$creadPrec :: ReadPrec CreateDeviceDefinitionVersionResponse
readList :: ReadS [CreateDeviceDefinitionVersionResponse]
$creadList :: ReadS [CreateDeviceDefinitionVersionResponse]
readsPrec :: Int -> ReadS CreateDeviceDefinitionVersionResponse
$creadsPrec :: Int -> ReadS CreateDeviceDefinitionVersionResponse
Prelude.Read, Int -> CreateDeviceDefinitionVersionResponse -> ShowS
[CreateDeviceDefinitionVersionResponse] -> ShowS
CreateDeviceDefinitionVersionResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateDeviceDefinitionVersionResponse] -> ShowS
$cshowList :: [CreateDeviceDefinitionVersionResponse] -> ShowS
show :: CreateDeviceDefinitionVersionResponse -> String
$cshow :: CreateDeviceDefinitionVersionResponse -> String
showsPrec :: Int -> CreateDeviceDefinitionVersionResponse -> ShowS
$cshowsPrec :: Int -> CreateDeviceDefinitionVersionResponse -> ShowS
Prelude.Show, forall x.
Rep CreateDeviceDefinitionVersionResponse x
-> CreateDeviceDefinitionVersionResponse
forall x.
CreateDeviceDefinitionVersionResponse
-> Rep CreateDeviceDefinitionVersionResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep CreateDeviceDefinitionVersionResponse x
-> CreateDeviceDefinitionVersionResponse
$cfrom :: forall x.
CreateDeviceDefinitionVersionResponse
-> Rep CreateDeviceDefinitionVersionResponse x
Prelude.Generic)
newCreateDeviceDefinitionVersionResponse ::
Prelude.Int ->
CreateDeviceDefinitionVersionResponse
newCreateDeviceDefinitionVersionResponse :: Int -> CreateDeviceDefinitionVersionResponse
newCreateDeviceDefinitionVersionResponse Int
pHttpStatus_ =
CreateDeviceDefinitionVersionResponse'
{ $sel:arn:CreateDeviceDefinitionVersionResponse' :: Maybe Text
arn =
forall a. Maybe a
Prelude.Nothing,
$sel:creationTimestamp:CreateDeviceDefinitionVersionResponse' :: Maybe Text
creationTimestamp = forall a. Maybe a
Prelude.Nothing,
$sel:id:CreateDeviceDefinitionVersionResponse' :: Maybe Text
id = forall a. Maybe a
Prelude.Nothing,
$sel:version:CreateDeviceDefinitionVersionResponse' :: Maybe Text
version = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:CreateDeviceDefinitionVersionResponse' :: Int
httpStatus = Int
pHttpStatus_
}
createDeviceDefinitionVersionResponse_arn :: Lens.Lens' CreateDeviceDefinitionVersionResponse (Prelude.Maybe Prelude.Text)
createDeviceDefinitionVersionResponse_arn :: Lens' CreateDeviceDefinitionVersionResponse (Maybe Text)
createDeviceDefinitionVersionResponse_arn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateDeviceDefinitionVersionResponse' {Maybe Text
arn :: Maybe Text
$sel:arn:CreateDeviceDefinitionVersionResponse' :: CreateDeviceDefinitionVersionResponse -> Maybe Text
arn} -> Maybe Text
arn) (\s :: CreateDeviceDefinitionVersionResponse
s@CreateDeviceDefinitionVersionResponse' {} Maybe Text
a -> CreateDeviceDefinitionVersionResponse
s {$sel:arn:CreateDeviceDefinitionVersionResponse' :: Maybe Text
arn = Maybe Text
a} :: CreateDeviceDefinitionVersionResponse)
createDeviceDefinitionVersionResponse_creationTimestamp :: Lens.Lens' CreateDeviceDefinitionVersionResponse (Prelude.Maybe Prelude.Text)
createDeviceDefinitionVersionResponse_creationTimestamp :: Lens' CreateDeviceDefinitionVersionResponse (Maybe Text)
createDeviceDefinitionVersionResponse_creationTimestamp = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateDeviceDefinitionVersionResponse' {Maybe Text
creationTimestamp :: Maybe Text
$sel:creationTimestamp:CreateDeviceDefinitionVersionResponse' :: CreateDeviceDefinitionVersionResponse -> Maybe Text
creationTimestamp} -> Maybe Text
creationTimestamp) (\s :: CreateDeviceDefinitionVersionResponse
s@CreateDeviceDefinitionVersionResponse' {} Maybe Text
a -> CreateDeviceDefinitionVersionResponse
s {$sel:creationTimestamp:CreateDeviceDefinitionVersionResponse' :: Maybe Text
creationTimestamp = Maybe Text
a} :: CreateDeviceDefinitionVersionResponse)
createDeviceDefinitionVersionResponse_id :: Lens.Lens' CreateDeviceDefinitionVersionResponse (Prelude.Maybe Prelude.Text)
createDeviceDefinitionVersionResponse_id :: Lens' CreateDeviceDefinitionVersionResponse (Maybe Text)
createDeviceDefinitionVersionResponse_id = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateDeviceDefinitionVersionResponse' {Maybe Text
id :: Maybe Text
$sel:id:CreateDeviceDefinitionVersionResponse' :: CreateDeviceDefinitionVersionResponse -> Maybe Text
id} -> Maybe Text
id) (\s :: CreateDeviceDefinitionVersionResponse
s@CreateDeviceDefinitionVersionResponse' {} Maybe Text
a -> CreateDeviceDefinitionVersionResponse
s {$sel:id:CreateDeviceDefinitionVersionResponse' :: Maybe Text
id = Maybe Text
a} :: CreateDeviceDefinitionVersionResponse)
createDeviceDefinitionVersionResponse_version :: Lens.Lens' CreateDeviceDefinitionVersionResponse (Prelude.Maybe Prelude.Text)
createDeviceDefinitionVersionResponse_version :: Lens' CreateDeviceDefinitionVersionResponse (Maybe Text)
createDeviceDefinitionVersionResponse_version = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateDeviceDefinitionVersionResponse' {Maybe Text
version :: Maybe Text
$sel:version:CreateDeviceDefinitionVersionResponse' :: CreateDeviceDefinitionVersionResponse -> Maybe Text
version} -> Maybe Text
version) (\s :: CreateDeviceDefinitionVersionResponse
s@CreateDeviceDefinitionVersionResponse' {} Maybe Text
a -> CreateDeviceDefinitionVersionResponse
s {$sel:version:CreateDeviceDefinitionVersionResponse' :: Maybe Text
version = Maybe Text
a} :: CreateDeviceDefinitionVersionResponse)
createDeviceDefinitionVersionResponse_httpStatus :: Lens.Lens' CreateDeviceDefinitionVersionResponse Prelude.Int
createDeviceDefinitionVersionResponse_httpStatus :: Lens' CreateDeviceDefinitionVersionResponse Int
createDeviceDefinitionVersionResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateDeviceDefinitionVersionResponse' {Int
httpStatus :: Int
$sel:httpStatus:CreateDeviceDefinitionVersionResponse' :: CreateDeviceDefinitionVersionResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: CreateDeviceDefinitionVersionResponse
s@CreateDeviceDefinitionVersionResponse' {} Int
a -> CreateDeviceDefinitionVersionResponse
s {$sel:httpStatus:CreateDeviceDefinitionVersionResponse' :: Int
httpStatus = Int
a} :: CreateDeviceDefinitionVersionResponse)
instance
Prelude.NFData
CreateDeviceDefinitionVersionResponse
where
rnf :: CreateDeviceDefinitionVersionResponse -> ()
rnf CreateDeviceDefinitionVersionResponse' {Int
Maybe Text
httpStatus :: Int
version :: Maybe Text
id :: Maybe Text
creationTimestamp :: Maybe Text
arn :: Maybe Text
$sel:httpStatus:CreateDeviceDefinitionVersionResponse' :: CreateDeviceDefinitionVersionResponse -> Int
$sel:version:CreateDeviceDefinitionVersionResponse' :: CreateDeviceDefinitionVersionResponse -> Maybe Text
$sel:id:CreateDeviceDefinitionVersionResponse' :: CreateDeviceDefinitionVersionResponse -> Maybe Text
$sel:creationTimestamp:CreateDeviceDefinitionVersionResponse' :: CreateDeviceDefinitionVersionResponse -> Maybe Text
$sel:arn:CreateDeviceDefinitionVersionResponse' :: CreateDeviceDefinitionVersionResponse -> 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 Text
creationTimestamp
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
id
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
version
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus