{-# 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.IoT.UpdateCACertificate
(
UpdateCACertificate (..),
newUpdateCACertificate,
updateCACertificate_removeAutoRegistration,
updateCACertificate_newStatus,
updateCACertificate_registrationConfig,
updateCACertificate_newAutoRegistrationStatus,
updateCACertificate_certificateId,
UpdateCACertificateResponse (..),
newUpdateCACertificateResponse,
)
where
import qualified Amazonka.Core as Core
import Amazonka.IoT.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 UpdateCACertificate = UpdateCACertificate'
{
UpdateCACertificate -> Maybe Bool
removeAutoRegistration :: Prelude.Maybe Prelude.Bool,
UpdateCACertificate -> Maybe CACertificateStatus
newStatus' :: Prelude.Maybe CACertificateStatus,
UpdateCACertificate -> Maybe RegistrationConfig
registrationConfig :: Prelude.Maybe RegistrationConfig,
UpdateCACertificate -> Maybe AutoRegistrationStatus
newAutoRegistrationStatus' :: Prelude.Maybe AutoRegistrationStatus,
UpdateCACertificate -> Text
certificateId :: Prelude.Text
}
deriving (UpdateCACertificate -> UpdateCACertificate -> Bool
(UpdateCACertificate -> UpdateCACertificate -> Bool)
-> (UpdateCACertificate -> UpdateCACertificate -> Bool)
-> Eq UpdateCACertificate
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: UpdateCACertificate -> UpdateCACertificate -> Bool
$c/= :: UpdateCACertificate -> UpdateCACertificate -> Bool
== :: UpdateCACertificate -> UpdateCACertificate -> Bool
$c== :: UpdateCACertificate -> UpdateCACertificate -> Bool
Prelude.Eq, ReadPrec [UpdateCACertificate]
ReadPrec UpdateCACertificate
Int -> ReadS UpdateCACertificate
ReadS [UpdateCACertificate]
(Int -> ReadS UpdateCACertificate)
-> ReadS [UpdateCACertificate]
-> ReadPrec UpdateCACertificate
-> ReadPrec [UpdateCACertificate]
-> Read UpdateCACertificate
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [UpdateCACertificate]
$creadListPrec :: ReadPrec [UpdateCACertificate]
readPrec :: ReadPrec UpdateCACertificate
$creadPrec :: ReadPrec UpdateCACertificate
readList :: ReadS [UpdateCACertificate]
$creadList :: ReadS [UpdateCACertificate]
readsPrec :: Int -> ReadS UpdateCACertificate
$creadsPrec :: Int -> ReadS UpdateCACertificate
Prelude.Read, Int -> UpdateCACertificate -> ShowS
[UpdateCACertificate] -> ShowS
UpdateCACertificate -> String
(Int -> UpdateCACertificate -> ShowS)
-> (UpdateCACertificate -> String)
-> ([UpdateCACertificate] -> ShowS)
-> Show UpdateCACertificate
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [UpdateCACertificate] -> ShowS
$cshowList :: [UpdateCACertificate] -> ShowS
show :: UpdateCACertificate -> String
$cshow :: UpdateCACertificate -> String
showsPrec :: Int -> UpdateCACertificate -> ShowS
$cshowsPrec :: Int -> UpdateCACertificate -> ShowS
Prelude.Show, (forall x. UpdateCACertificate -> Rep UpdateCACertificate x)
-> (forall x. Rep UpdateCACertificate x -> UpdateCACertificate)
-> Generic UpdateCACertificate
forall x. Rep UpdateCACertificate x -> UpdateCACertificate
forall x. UpdateCACertificate -> Rep UpdateCACertificate x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep UpdateCACertificate x -> UpdateCACertificate
$cfrom :: forall x. UpdateCACertificate -> Rep UpdateCACertificate x
Prelude.Generic)
newUpdateCACertificate ::
Prelude.Text ->
UpdateCACertificate
newUpdateCACertificate :: Text -> UpdateCACertificate
newUpdateCACertificate Text
pCertificateId_ =
UpdateCACertificate' :: Maybe Bool
-> Maybe CACertificateStatus
-> Maybe RegistrationConfig
-> Maybe AutoRegistrationStatus
-> Text
-> UpdateCACertificate
UpdateCACertificate'
{ $sel:removeAutoRegistration:UpdateCACertificate' :: Maybe Bool
removeAutoRegistration =
Maybe Bool
forall a. Maybe a
Prelude.Nothing,
$sel:newStatus':UpdateCACertificate' :: Maybe CACertificateStatus
newStatus' = Maybe CACertificateStatus
forall a. Maybe a
Prelude.Nothing,
$sel:registrationConfig:UpdateCACertificate' :: Maybe RegistrationConfig
registrationConfig = Maybe RegistrationConfig
forall a. Maybe a
Prelude.Nothing,
$sel:newAutoRegistrationStatus':UpdateCACertificate' :: Maybe AutoRegistrationStatus
newAutoRegistrationStatus' = Maybe AutoRegistrationStatus
forall a. Maybe a
Prelude.Nothing,
$sel:certificateId:UpdateCACertificate' :: Text
certificateId = Text
pCertificateId_
}
updateCACertificate_removeAutoRegistration :: Lens.Lens' UpdateCACertificate (Prelude.Maybe Prelude.Bool)
updateCACertificate_removeAutoRegistration :: (Maybe Bool -> f (Maybe Bool))
-> UpdateCACertificate -> f UpdateCACertificate
updateCACertificate_removeAutoRegistration = (UpdateCACertificate -> Maybe Bool)
-> (UpdateCACertificate -> Maybe Bool -> UpdateCACertificate)
-> Lens
UpdateCACertificate UpdateCACertificate (Maybe Bool) (Maybe Bool)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateCACertificate' {Maybe Bool
removeAutoRegistration :: Maybe Bool
$sel:removeAutoRegistration:UpdateCACertificate' :: UpdateCACertificate -> Maybe Bool
removeAutoRegistration} -> Maybe Bool
removeAutoRegistration) (\s :: UpdateCACertificate
s@UpdateCACertificate' {} Maybe Bool
a -> UpdateCACertificate
s {$sel:removeAutoRegistration:UpdateCACertificate' :: Maybe Bool
removeAutoRegistration = Maybe Bool
a} :: UpdateCACertificate)
updateCACertificate_newStatus :: Lens.Lens' UpdateCACertificate (Prelude.Maybe CACertificateStatus)
updateCACertificate_newStatus :: (Maybe CACertificateStatus -> f (Maybe CACertificateStatus))
-> UpdateCACertificate -> f UpdateCACertificate
updateCACertificate_newStatus = (UpdateCACertificate -> Maybe CACertificateStatus)
-> (UpdateCACertificate
-> Maybe CACertificateStatus -> UpdateCACertificate)
-> Lens
UpdateCACertificate
UpdateCACertificate
(Maybe CACertificateStatus)
(Maybe CACertificateStatus)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateCACertificate' {Maybe CACertificateStatus
newStatus' :: Maybe CACertificateStatus
$sel:newStatus':UpdateCACertificate' :: UpdateCACertificate -> Maybe CACertificateStatus
newStatus'} -> Maybe CACertificateStatus
newStatus') (\s :: UpdateCACertificate
s@UpdateCACertificate' {} Maybe CACertificateStatus
a -> UpdateCACertificate
s {$sel:newStatus':UpdateCACertificate' :: Maybe CACertificateStatus
newStatus' = Maybe CACertificateStatus
a} :: UpdateCACertificate)
updateCACertificate_registrationConfig :: Lens.Lens' UpdateCACertificate (Prelude.Maybe RegistrationConfig)
updateCACertificate_registrationConfig :: (Maybe RegistrationConfig -> f (Maybe RegistrationConfig))
-> UpdateCACertificate -> f UpdateCACertificate
updateCACertificate_registrationConfig = (UpdateCACertificate -> Maybe RegistrationConfig)
-> (UpdateCACertificate
-> Maybe RegistrationConfig -> UpdateCACertificate)
-> Lens
UpdateCACertificate
UpdateCACertificate
(Maybe RegistrationConfig)
(Maybe RegistrationConfig)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateCACertificate' {Maybe RegistrationConfig
registrationConfig :: Maybe RegistrationConfig
$sel:registrationConfig:UpdateCACertificate' :: UpdateCACertificate -> Maybe RegistrationConfig
registrationConfig} -> Maybe RegistrationConfig
registrationConfig) (\s :: UpdateCACertificate
s@UpdateCACertificate' {} Maybe RegistrationConfig
a -> UpdateCACertificate
s {$sel:registrationConfig:UpdateCACertificate' :: Maybe RegistrationConfig
registrationConfig = Maybe RegistrationConfig
a} :: UpdateCACertificate)
updateCACertificate_newAutoRegistrationStatus :: Lens.Lens' UpdateCACertificate (Prelude.Maybe AutoRegistrationStatus)
updateCACertificate_newAutoRegistrationStatus :: (Maybe AutoRegistrationStatus -> f (Maybe AutoRegistrationStatus))
-> UpdateCACertificate -> f UpdateCACertificate
updateCACertificate_newAutoRegistrationStatus = (UpdateCACertificate -> Maybe AutoRegistrationStatus)
-> (UpdateCACertificate
-> Maybe AutoRegistrationStatus -> UpdateCACertificate)
-> Lens
UpdateCACertificate
UpdateCACertificate
(Maybe AutoRegistrationStatus)
(Maybe AutoRegistrationStatus)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateCACertificate' {Maybe AutoRegistrationStatus
newAutoRegistrationStatus' :: Maybe AutoRegistrationStatus
$sel:newAutoRegistrationStatus':UpdateCACertificate' :: UpdateCACertificate -> Maybe AutoRegistrationStatus
newAutoRegistrationStatus'} -> Maybe AutoRegistrationStatus
newAutoRegistrationStatus') (\s :: UpdateCACertificate
s@UpdateCACertificate' {} Maybe AutoRegistrationStatus
a -> UpdateCACertificate
s {$sel:newAutoRegistrationStatus':UpdateCACertificate' :: Maybe AutoRegistrationStatus
newAutoRegistrationStatus' = Maybe AutoRegistrationStatus
a} :: UpdateCACertificate)
updateCACertificate_certificateId :: Lens.Lens' UpdateCACertificate Prelude.Text
updateCACertificate_certificateId :: (Text -> f Text) -> UpdateCACertificate -> f UpdateCACertificate
updateCACertificate_certificateId = (UpdateCACertificate -> Text)
-> (UpdateCACertificate -> Text -> UpdateCACertificate)
-> Lens UpdateCACertificate UpdateCACertificate Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateCACertificate' {Text
certificateId :: Text
$sel:certificateId:UpdateCACertificate' :: UpdateCACertificate -> Text
certificateId} -> Text
certificateId) (\s :: UpdateCACertificate
s@UpdateCACertificate' {} Text
a -> UpdateCACertificate
s {$sel:certificateId:UpdateCACertificate' :: Text
certificateId = Text
a} :: UpdateCACertificate)
instance Core.AWSRequest UpdateCACertificate where
type
AWSResponse UpdateCACertificate =
UpdateCACertificateResponse
request :: UpdateCACertificate -> Request UpdateCACertificate
request = Service -> UpdateCACertificate -> Request UpdateCACertificate
forall a. (ToRequest a, ToJSON a) => Service -> a -> Request a
Request.putJSON Service
defaultService
response :: Logger
-> Service
-> Proxy UpdateCACertificate
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse UpdateCACertificate)))
response =
AWSResponse UpdateCACertificate
-> Logger
-> Service
-> Proxy UpdateCACertificate
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse UpdateCACertificate)))
forall (m :: * -> *) a.
MonadResource m =>
AWSResponse a
-> Logger
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveNull AWSResponse UpdateCACertificate
UpdateCACertificateResponse
UpdateCACertificateResponse'
instance Prelude.Hashable UpdateCACertificate
instance Prelude.NFData UpdateCACertificate
instance Core.ToHeaders UpdateCACertificate where
toHeaders :: UpdateCACertificate -> [Header]
toHeaders = [Header] -> UpdateCACertificate -> [Header]
forall a b. a -> b -> a
Prelude.const [Header]
forall a. Monoid a => a
Prelude.mempty
instance Core.ToJSON UpdateCACertificate where
toJSON :: UpdateCACertificate -> Value
toJSON UpdateCACertificate' {Maybe Bool
Maybe AutoRegistrationStatus
Maybe CACertificateStatus
Maybe RegistrationConfig
Text
certificateId :: Text
newAutoRegistrationStatus' :: Maybe AutoRegistrationStatus
registrationConfig :: Maybe RegistrationConfig
newStatus' :: Maybe CACertificateStatus
removeAutoRegistration :: Maybe Bool
$sel:certificateId:UpdateCACertificate' :: UpdateCACertificate -> Text
$sel:newAutoRegistrationStatus':UpdateCACertificate' :: UpdateCACertificate -> Maybe AutoRegistrationStatus
$sel:registrationConfig:UpdateCACertificate' :: UpdateCACertificate -> Maybe RegistrationConfig
$sel:newStatus':UpdateCACertificate' :: UpdateCACertificate -> Maybe CACertificateStatus
$sel:removeAutoRegistration:UpdateCACertificate' :: UpdateCACertificate -> Maybe Bool
..} =
[Pair] -> Value
Core.object
( [Maybe Pair] -> [Pair]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Text
"removeAutoRegistration" Text -> Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..=)
(Bool -> Pair) -> Maybe Bool -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Bool
removeAutoRegistration,
(Text
"registrationConfig" Text -> RegistrationConfig -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..=)
(RegistrationConfig -> Pair)
-> Maybe RegistrationConfig -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe RegistrationConfig
registrationConfig
]
)
instance Core.ToPath UpdateCACertificate where
toPath :: UpdateCACertificate -> ByteString
toPath UpdateCACertificate' {Maybe Bool
Maybe AutoRegistrationStatus
Maybe CACertificateStatus
Maybe RegistrationConfig
Text
certificateId :: Text
newAutoRegistrationStatus' :: Maybe AutoRegistrationStatus
registrationConfig :: Maybe RegistrationConfig
newStatus' :: Maybe CACertificateStatus
removeAutoRegistration :: Maybe Bool
$sel:certificateId:UpdateCACertificate' :: UpdateCACertificate -> Text
$sel:newAutoRegistrationStatus':UpdateCACertificate' :: UpdateCACertificate -> Maybe AutoRegistrationStatus
$sel:registrationConfig:UpdateCACertificate' :: UpdateCACertificate -> Maybe RegistrationConfig
$sel:newStatus':UpdateCACertificate' :: UpdateCACertificate -> Maybe CACertificateStatus
$sel:removeAutoRegistration:UpdateCACertificate' :: UpdateCACertificate -> Maybe Bool
..} =
[ByteString] -> ByteString
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ByteString
"/cacertificate/", Text -> ByteString
forall a. ToByteString a => a -> ByteString
Core.toBS Text
certificateId]
instance Core.ToQuery UpdateCACertificate where
toQuery :: UpdateCACertificate -> QueryString
toQuery UpdateCACertificate' {Maybe Bool
Maybe AutoRegistrationStatus
Maybe CACertificateStatus
Maybe RegistrationConfig
Text
certificateId :: Text
newAutoRegistrationStatus' :: Maybe AutoRegistrationStatus
registrationConfig :: Maybe RegistrationConfig
newStatus' :: Maybe CACertificateStatus
removeAutoRegistration :: Maybe Bool
$sel:certificateId:UpdateCACertificate' :: UpdateCACertificate -> Text
$sel:newAutoRegistrationStatus':UpdateCACertificate' :: UpdateCACertificate -> Maybe AutoRegistrationStatus
$sel:registrationConfig:UpdateCACertificate' :: UpdateCACertificate -> Maybe RegistrationConfig
$sel:newStatus':UpdateCACertificate' :: UpdateCACertificate -> Maybe CACertificateStatus
$sel:removeAutoRegistration:UpdateCACertificate' :: UpdateCACertificate -> Maybe Bool
..} =
[QueryString] -> QueryString
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"newStatus" ByteString -> Maybe CACertificateStatus -> QueryString
forall a. ToQuery a => ByteString -> a -> QueryString
Core.=: Maybe CACertificateStatus
newStatus',
ByteString
"newAutoRegistrationStatus"
ByteString -> Maybe AutoRegistrationStatus -> QueryString
forall a. ToQuery a => ByteString -> a -> QueryString
Core.=: Maybe AutoRegistrationStatus
newAutoRegistrationStatus'
]
data UpdateCACertificateResponse = UpdateCACertificateResponse'
{
}
deriving (UpdateCACertificateResponse -> UpdateCACertificateResponse -> Bool
(UpdateCACertificateResponse
-> UpdateCACertificateResponse -> Bool)
-> (UpdateCACertificateResponse
-> UpdateCACertificateResponse -> Bool)
-> Eq UpdateCACertificateResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: UpdateCACertificateResponse -> UpdateCACertificateResponse -> Bool
$c/= :: UpdateCACertificateResponse -> UpdateCACertificateResponse -> Bool
== :: UpdateCACertificateResponse -> UpdateCACertificateResponse -> Bool
$c== :: UpdateCACertificateResponse -> UpdateCACertificateResponse -> Bool
Prelude.Eq, ReadPrec [UpdateCACertificateResponse]
ReadPrec UpdateCACertificateResponse
Int -> ReadS UpdateCACertificateResponse
ReadS [UpdateCACertificateResponse]
(Int -> ReadS UpdateCACertificateResponse)
-> ReadS [UpdateCACertificateResponse]
-> ReadPrec UpdateCACertificateResponse
-> ReadPrec [UpdateCACertificateResponse]
-> Read UpdateCACertificateResponse
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [UpdateCACertificateResponse]
$creadListPrec :: ReadPrec [UpdateCACertificateResponse]
readPrec :: ReadPrec UpdateCACertificateResponse
$creadPrec :: ReadPrec UpdateCACertificateResponse
readList :: ReadS [UpdateCACertificateResponse]
$creadList :: ReadS [UpdateCACertificateResponse]
readsPrec :: Int -> ReadS UpdateCACertificateResponse
$creadsPrec :: Int -> ReadS UpdateCACertificateResponse
Prelude.Read, Int -> UpdateCACertificateResponse -> ShowS
[UpdateCACertificateResponse] -> ShowS
UpdateCACertificateResponse -> String
(Int -> UpdateCACertificateResponse -> ShowS)
-> (UpdateCACertificateResponse -> String)
-> ([UpdateCACertificateResponse] -> ShowS)
-> Show UpdateCACertificateResponse
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [UpdateCACertificateResponse] -> ShowS
$cshowList :: [UpdateCACertificateResponse] -> ShowS
show :: UpdateCACertificateResponse -> String
$cshow :: UpdateCACertificateResponse -> String
showsPrec :: Int -> UpdateCACertificateResponse -> ShowS
$cshowsPrec :: Int -> UpdateCACertificateResponse -> ShowS
Prelude.Show, (forall x.
UpdateCACertificateResponse -> Rep UpdateCACertificateResponse x)
-> (forall x.
Rep UpdateCACertificateResponse x -> UpdateCACertificateResponse)
-> Generic UpdateCACertificateResponse
forall x.
Rep UpdateCACertificateResponse x -> UpdateCACertificateResponse
forall x.
UpdateCACertificateResponse -> Rep UpdateCACertificateResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep UpdateCACertificateResponse x -> UpdateCACertificateResponse
$cfrom :: forall x.
UpdateCACertificateResponse -> Rep UpdateCACertificateResponse x
Prelude.Generic)
newUpdateCACertificateResponse ::
UpdateCACertificateResponse
newUpdateCACertificateResponse :: UpdateCACertificateResponse
newUpdateCACertificateResponse =
UpdateCACertificateResponse
UpdateCACertificateResponse'
instance Prelude.NFData UpdateCACertificateResponse