{-# 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.IoTFleetWise.ImportSignalCatalog
(
ImportSignalCatalog (..),
newImportSignalCatalog,
importSignalCatalog_description,
importSignalCatalog_tags,
importSignalCatalog_vss,
importSignalCatalog_name,
ImportSignalCatalogResponse (..),
newImportSignalCatalogResponse,
importSignalCatalogResponse_httpStatus,
importSignalCatalogResponse_name,
importSignalCatalogResponse_arn,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.IoTFleetWise.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data ImportSignalCatalog = ImportSignalCatalog'
{
ImportSignalCatalog -> Maybe Text
description :: Prelude.Maybe Prelude.Text,
ImportSignalCatalog -> Maybe [Tag]
tags :: Prelude.Maybe [Tag],
ImportSignalCatalog -> Maybe FormattedVss
vss :: Prelude.Maybe FormattedVss,
ImportSignalCatalog -> Text
name :: Prelude.Text
}
deriving (ImportSignalCatalog -> ImportSignalCatalog -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ImportSignalCatalog -> ImportSignalCatalog -> Bool
$c/= :: ImportSignalCatalog -> ImportSignalCatalog -> Bool
== :: ImportSignalCatalog -> ImportSignalCatalog -> Bool
$c== :: ImportSignalCatalog -> ImportSignalCatalog -> Bool
Prelude.Eq, ReadPrec [ImportSignalCatalog]
ReadPrec ImportSignalCatalog
Int -> ReadS ImportSignalCatalog
ReadS [ImportSignalCatalog]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ImportSignalCatalog]
$creadListPrec :: ReadPrec [ImportSignalCatalog]
readPrec :: ReadPrec ImportSignalCatalog
$creadPrec :: ReadPrec ImportSignalCatalog
readList :: ReadS [ImportSignalCatalog]
$creadList :: ReadS [ImportSignalCatalog]
readsPrec :: Int -> ReadS ImportSignalCatalog
$creadsPrec :: Int -> ReadS ImportSignalCatalog
Prelude.Read, Int -> ImportSignalCatalog -> ShowS
[ImportSignalCatalog] -> ShowS
ImportSignalCatalog -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ImportSignalCatalog] -> ShowS
$cshowList :: [ImportSignalCatalog] -> ShowS
show :: ImportSignalCatalog -> String
$cshow :: ImportSignalCatalog -> String
showsPrec :: Int -> ImportSignalCatalog -> ShowS
$cshowsPrec :: Int -> ImportSignalCatalog -> ShowS
Prelude.Show, forall x. Rep ImportSignalCatalog x -> ImportSignalCatalog
forall x. ImportSignalCatalog -> Rep ImportSignalCatalog x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep ImportSignalCatalog x -> ImportSignalCatalog
$cfrom :: forall x. ImportSignalCatalog -> Rep ImportSignalCatalog x
Prelude.Generic)
newImportSignalCatalog ::
Prelude.Text ->
ImportSignalCatalog
newImportSignalCatalog :: Text -> ImportSignalCatalog
newImportSignalCatalog Text
pName_ =
ImportSignalCatalog'
{ $sel:description:ImportSignalCatalog' :: Maybe Text
description = forall a. Maybe a
Prelude.Nothing,
$sel:tags:ImportSignalCatalog' :: Maybe [Tag]
tags = forall a. Maybe a
Prelude.Nothing,
$sel:vss:ImportSignalCatalog' :: Maybe FormattedVss
vss = forall a. Maybe a
Prelude.Nothing,
$sel:name:ImportSignalCatalog' :: Text
name = Text
pName_
}
importSignalCatalog_description :: Lens.Lens' ImportSignalCatalog (Prelude.Maybe Prelude.Text)
importSignalCatalog_description :: Lens' ImportSignalCatalog (Maybe Text)
importSignalCatalog_description = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ImportSignalCatalog' {Maybe Text
description :: Maybe Text
$sel:description:ImportSignalCatalog' :: ImportSignalCatalog -> Maybe Text
description} -> Maybe Text
description) (\s :: ImportSignalCatalog
s@ImportSignalCatalog' {} Maybe Text
a -> ImportSignalCatalog
s {$sel:description:ImportSignalCatalog' :: Maybe Text
description = Maybe Text
a} :: ImportSignalCatalog)
importSignalCatalog_tags :: Lens.Lens' ImportSignalCatalog (Prelude.Maybe [Tag])
importSignalCatalog_tags :: Lens' ImportSignalCatalog (Maybe [Tag])
importSignalCatalog_tags = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ImportSignalCatalog' {Maybe [Tag]
tags :: Maybe [Tag]
$sel:tags:ImportSignalCatalog' :: ImportSignalCatalog -> Maybe [Tag]
tags} -> Maybe [Tag]
tags) (\s :: ImportSignalCatalog
s@ImportSignalCatalog' {} Maybe [Tag]
a -> ImportSignalCatalog
s {$sel:tags:ImportSignalCatalog' :: Maybe [Tag]
tags = Maybe [Tag]
a} :: ImportSignalCatalog) 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
importSignalCatalog_vss :: Lens.Lens' ImportSignalCatalog (Prelude.Maybe FormattedVss)
importSignalCatalog_vss :: Lens' ImportSignalCatalog (Maybe FormattedVss)
importSignalCatalog_vss = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ImportSignalCatalog' {Maybe FormattedVss
vss :: Maybe FormattedVss
$sel:vss:ImportSignalCatalog' :: ImportSignalCatalog -> Maybe FormattedVss
vss} -> Maybe FormattedVss
vss) (\s :: ImportSignalCatalog
s@ImportSignalCatalog' {} Maybe FormattedVss
a -> ImportSignalCatalog
s {$sel:vss:ImportSignalCatalog' :: Maybe FormattedVss
vss = Maybe FormattedVss
a} :: ImportSignalCatalog)
importSignalCatalog_name :: Lens.Lens' ImportSignalCatalog Prelude.Text
importSignalCatalog_name :: Lens' ImportSignalCatalog Text
importSignalCatalog_name = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ImportSignalCatalog' {Text
name :: Text
$sel:name:ImportSignalCatalog' :: ImportSignalCatalog -> Text
name} -> Text
name) (\s :: ImportSignalCatalog
s@ImportSignalCatalog' {} Text
a -> ImportSignalCatalog
s {$sel:name:ImportSignalCatalog' :: Text
name = Text
a} :: ImportSignalCatalog)
instance Core.AWSRequest ImportSignalCatalog where
type
AWSResponse ImportSignalCatalog =
ImportSignalCatalogResponse
request :: (Service -> Service)
-> ImportSignalCatalog -> Request ImportSignalCatalog
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 ImportSignalCatalog
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse ImportSignalCatalog)))
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 ->
Int -> Text -> Text -> ImportSignalCatalogResponse
ImportSignalCatalogResponse'
forall (f :: * -> *) a b. Functor 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))
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String 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 a
Data..:> Key
"arn")
)
instance Prelude.Hashable ImportSignalCatalog where
hashWithSalt :: Int -> ImportSignalCatalog -> Int
hashWithSalt Int
_salt ImportSignalCatalog' {Maybe [Tag]
Maybe Text
Maybe FormattedVss
Text
name :: Text
vss :: Maybe FormattedVss
tags :: Maybe [Tag]
description :: Maybe Text
$sel:name:ImportSignalCatalog' :: ImportSignalCatalog -> Text
$sel:vss:ImportSignalCatalog' :: ImportSignalCatalog -> Maybe FormattedVss
$sel:tags:ImportSignalCatalog' :: ImportSignalCatalog -> Maybe [Tag]
$sel:description:ImportSignalCatalog' :: ImportSignalCatalog -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
description
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Tag]
tags
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe FormattedVss
vss
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
name
instance Prelude.NFData ImportSignalCatalog where
rnf :: ImportSignalCatalog -> ()
rnf ImportSignalCatalog' {Maybe [Tag]
Maybe Text
Maybe FormattedVss
Text
name :: Text
vss :: Maybe FormattedVss
tags :: Maybe [Tag]
description :: Maybe Text
$sel:name:ImportSignalCatalog' :: ImportSignalCatalog -> Text
$sel:vss:ImportSignalCatalog' :: ImportSignalCatalog -> Maybe FormattedVss
$sel:tags:ImportSignalCatalog' :: ImportSignalCatalog -> Maybe [Tag]
$sel:description:ImportSignalCatalog' :: ImportSignalCatalog -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
description
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Tag]
tags
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe FormattedVss
vss
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
name
instance Data.ToHeaders ImportSignalCatalog where
toHeaders :: ImportSignalCatalog -> ResponseHeaders
toHeaders =
forall a b. a -> b -> a
Prelude.const
( forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"X-Amz-Target"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"IoTAutobahnControlPlane.ImportSignalCatalog" ::
Prelude.ByteString
),
HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.0" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON ImportSignalCatalog where
toJSON :: ImportSignalCatalog -> Value
toJSON ImportSignalCatalog' {Maybe [Tag]
Maybe Text
Maybe FormattedVss
Text
name :: Text
vss :: Maybe FormattedVss
tags :: Maybe [Tag]
description :: Maybe Text
$sel:name:ImportSignalCatalog' :: ImportSignalCatalog -> Text
$sel:vss:ImportSignalCatalog' :: ImportSignalCatalog -> Maybe FormattedVss
$sel:tags:ImportSignalCatalog' :: ImportSignalCatalog -> Maybe [Tag]
$sel:description:ImportSignalCatalog' :: ImportSignalCatalog -> Maybe Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"description" 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 Text
description,
(Key
"tags" 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 [Tag]
tags,
(Key
"vss" 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 FormattedVss
vss,
forall a. a -> Maybe a
Prelude.Just (Key
"name" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
name)
]
)
instance Data.ToPath ImportSignalCatalog where
toPath :: ImportSignalCatalog -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery ImportSignalCatalog where
toQuery :: ImportSignalCatalog -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data ImportSignalCatalogResponse = ImportSignalCatalogResponse'
{
ImportSignalCatalogResponse -> Int
httpStatus :: Prelude.Int,
ImportSignalCatalogResponse -> Text
name :: Prelude.Text,
ImportSignalCatalogResponse -> Text
arn :: Prelude.Text
}
deriving (ImportSignalCatalogResponse -> ImportSignalCatalogResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ImportSignalCatalogResponse -> ImportSignalCatalogResponse -> Bool
$c/= :: ImportSignalCatalogResponse -> ImportSignalCatalogResponse -> Bool
== :: ImportSignalCatalogResponse -> ImportSignalCatalogResponse -> Bool
$c== :: ImportSignalCatalogResponse -> ImportSignalCatalogResponse -> Bool
Prelude.Eq, ReadPrec [ImportSignalCatalogResponse]
ReadPrec ImportSignalCatalogResponse
Int -> ReadS ImportSignalCatalogResponse
ReadS [ImportSignalCatalogResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ImportSignalCatalogResponse]
$creadListPrec :: ReadPrec [ImportSignalCatalogResponse]
readPrec :: ReadPrec ImportSignalCatalogResponse
$creadPrec :: ReadPrec ImportSignalCatalogResponse
readList :: ReadS [ImportSignalCatalogResponse]
$creadList :: ReadS [ImportSignalCatalogResponse]
readsPrec :: Int -> ReadS ImportSignalCatalogResponse
$creadsPrec :: Int -> ReadS ImportSignalCatalogResponse
Prelude.Read, Int -> ImportSignalCatalogResponse -> ShowS
[ImportSignalCatalogResponse] -> ShowS
ImportSignalCatalogResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ImportSignalCatalogResponse] -> ShowS
$cshowList :: [ImportSignalCatalogResponse] -> ShowS
show :: ImportSignalCatalogResponse -> String
$cshow :: ImportSignalCatalogResponse -> String
showsPrec :: Int -> ImportSignalCatalogResponse -> ShowS
$cshowsPrec :: Int -> ImportSignalCatalogResponse -> ShowS
Prelude.Show, forall x.
Rep ImportSignalCatalogResponse x -> ImportSignalCatalogResponse
forall x.
ImportSignalCatalogResponse -> Rep ImportSignalCatalogResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep ImportSignalCatalogResponse x -> ImportSignalCatalogResponse
$cfrom :: forall x.
ImportSignalCatalogResponse -> Rep ImportSignalCatalogResponse x
Prelude.Generic)
newImportSignalCatalogResponse ::
Prelude.Int ->
Prelude.Text ->
Prelude.Text ->
ImportSignalCatalogResponse
newImportSignalCatalogResponse :: Int -> Text -> Text -> ImportSignalCatalogResponse
newImportSignalCatalogResponse
Int
pHttpStatus_
Text
pName_
Text
pArn_ =
ImportSignalCatalogResponse'
{ $sel:httpStatus:ImportSignalCatalogResponse' :: Int
httpStatus =
Int
pHttpStatus_,
$sel:name:ImportSignalCatalogResponse' :: Text
name = Text
pName_,
$sel:arn:ImportSignalCatalogResponse' :: Text
arn = Text
pArn_
}
importSignalCatalogResponse_httpStatus :: Lens.Lens' ImportSignalCatalogResponse Prelude.Int
importSignalCatalogResponse_httpStatus :: Lens' ImportSignalCatalogResponse Int
importSignalCatalogResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ImportSignalCatalogResponse' {Int
httpStatus :: Int
$sel:httpStatus:ImportSignalCatalogResponse' :: ImportSignalCatalogResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: ImportSignalCatalogResponse
s@ImportSignalCatalogResponse' {} Int
a -> ImportSignalCatalogResponse
s {$sel:httpStatus:ImportSignalCatalogResponse' :: Int
httpStatus = Int
a} :: ImportSignalCatalogResponse)
importSignalCatalogResponse_name :: Lens.Lens' ImportSignalCatalogResponse Prelude.Text
importSignalCatalogResponse_name :: Lens' ImportSignalCatalogResponse Text
importSignalCatalogResponse_name = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ImportSignalCatalogResponse' {Text
name :: Text
$sel:name:ImportSignalCatalogResponse' :: ImportSignalCatalogResponse -> Text
name} -> Text
name) (\s :: ImportSignalCatalogResponse
s@ImportSignalCatalogResponse' {} Text
a -> ImportSignalCatalogResponse
s {$sel:name:ImportSignalCatalogResponse' :: Text
name = Text
a} :: ImportSignalCatalogResponse)
importSignalCatalogResponse_arn :: Lens.Lens' ImportSignalCatalogResponse Prelude.Text
importSignalCatalogResponse_arn :: Lens' ImportSignalCatalogResponse Text
importSignalCatalogResponse_arn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ImportSignalCatalogResponse' {Text
arn :: Text
$sel:arn:ImportSignalCatalogResponse' :: ImportSignalCatalogResponse -> Text
arn} -> Text
arn) (\s :: ImportSignalCatalogResponse
s@ImportSignalCatalogResponse' {} Text
a -> ImportSignalCatalogResponse
s {$sel:arn:ImportSignalCatalogResponse' :: Text
arn = Text
a} :: ImportSignalCatalogResponse)
instance Prelude.NFData ImportSignalCatalogResponse where
rnf :: ImportSignalCatalogResponse -> ()
rnf ImportSignalCatalogResponse' {Int
Text
arn :: Text
name :: Text
httpStatus :: Int
$sel:arn:ImportSignalCatalogResponse' :: ImportSignalCatalogResponse -> Text
$sel:name:ImportSignalCatalogResponse' :: ImportSignalCatalogResponse -> Text
$sel:httpStatus:ImportSignalCatalogResponse' :: ImportSignalCatalogResponse -> Int
..} =
forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
name
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
arn