{-# 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.DeleteProvisioningTemplateVersion
(
DeleteProvisioningTemplateVersion (..),
newDeleteProvisioningTemplateVersion,
deleteProvisioningTemplateVersion_templateName,
deleteProvisioningTemplateVersion_versionId,
DeleteProvisioningTemplateVersionResponse (..),
newDeleteProvisioningTemplateVersionResponse,
deleteProvisioningTemplateVersionResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.IoT.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data DeleteProvisioningTemplateVersion = DeleteProvisioningTemplateVersion'
{
DeleteProvisioningTemplateVersion -> Text
templateName :: Prelude.Text,
DeleteProvisioningTemplateVersion -> Int
versionId :: Prelude.Int
}
deriving (DeleteProvisioningTemplateVersion
-> DeleteProvisioningTemplateVersion -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteProvisioningTemplateVersion
-> DeleteProvisioningTemplateVersion -> Bool
$c/= :: DeleteProvisioningTemplateVersion
-> DeleteProvisioningTemplateVersion -> Bool
== :: DeleteProvisioningTemplateVersion
-> DeleteProvisioningTemplateVersion -> Bool
$c== :: DeleteProvisioningTemplateVersion
-> DeleteProvisioningTemplateVersion -> Bool
Prelude.Eq, ReadPrec [DeleteProvisioningTemplateVersion]
ReadPrec DeleteProvisioningTemplateVersion
Int -> ReadS DeleteProvisioningTemplateVersion
ReadS [DeleteProvisioningTemplateVersion]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteProvisioningTemplateVersion]
$creadListPrec :: ReadPrec [DeleteProvisioningTemplateVersion]
readPrec :: ReadPrec DeleteProvisioningTemplateVersion
$creadPrec :: ReadPrec DeleteProvisioningTemplateVersion
readList :: ReadS [DeleteProvisioningTemplateVersion]
$creadList :: ReadS [DeleteProvisioningTemplateVersion]
readsPrec :: Int -> ReadS DeleteProvisioningTemplateVersion
$creadsPrec :: Int -> ReadS DeleteProvisioningTemplateVersion
Prelude.Read, Int -> DeleteProvisioningTemplateVersion -> ShowS
[DeleteProvisioningTemplateVersion] -> ShowS
DeleteProvisioningTemplateVersion -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteProvisioningTemplateVersion] -> ShowS
$cshowList :: [DeleteProvisioningTemplateVersion] -> ShowS
show :: DeleteProvisioningTemplateVersion -> String
$cshow :: DeleteProvisioningTemplateVersion -> String
showsPrec :: Int -> DeleteProvisioningTemplateVersion -> ShowS
$cshowsPrec :: Int -> DeleteProvisioningTemplateVersion -> ShowS
Prelude.Show, forall x.
Rep DeleteProvisioningTemplateVersion x
-> DeleteProvisioningTemplateVersion
forall x.
DeleteProvisioningTemplateVersion
-> Rep DeleteProvisioningTemplateVersion x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeleteProvisioningTemplateVersion x
-> DeleteProvisioningTemplateVersion
$cfrom :: forall x.
DeleteProvisioningTemplateVersion
-> Rep DeleteProvisioningTemplateVersion x
Prelude.Generic)
newDeleteProvisioningTemplateVersion ::
Prelude.Text ->
Prelude.Int ->
DeleteProvisioningTemplateVersion
newDeleteProvisioningTemplateVersion :: Text -> Int -> DeleteProvisioningTemplateVersion
newDeleteProvisioningTemplateVersion
Text
pTemplateName_
Int
pVersionId_ =
DeleteProvisioningTemplateVersion'
{ $sel:templateName:DeleteProvisioningTemplateVersion' :: Text
templateName =
Text
pTemplateName_,
$sel:versionId:DeleteProvisioningTemplateVersion' :: Int
versionId = Int
pVersionId_
}
deleteProvisioningTemplateVersion_templateName :: Lens.Lens' DeleteProvisioningTemplateVersion Prelude.Text
deleteProvisioningTemplateVersion_templateName :: Lens' DeleteProvisioningTemplateVersion Text
deleteProvisioningTemplateVersion_templateName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteProvisioningTemplateVersion' {Text
templateName :: Text
$sel:templateName:DeleteProvisioningTemplateVersion' :: DeleteProvisioningTemplateVersion -> Text
templateName} -> Text
templateName) (\s :: DeleteProvisioningTemplateVersion
s@DeleteProvisioningTemplateVersion' {} Text
a -> DeleteProvisioningTemplateVersion
s {$sel:templateName:DeleteProvisioningTemplateVersion' :: Text
templateName = Text
a} :: DeleteProvisioningTemplateVersion)
deleteProvisioningTemplateVersion_versionId :: Lens.Lens' DeleteProvisioningTemplateVersion Prelude.Int
deleteProvisioningTemplateVersion_versionId :: Lens' DeleteProvisioningTemplateVersion Int
deleteProvisioningTemplateVersion_versionId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteProvisioningTemplateVersion' {Int
versionId :: Int
$sel:versionId:DeleteProvisioningTemplateVersion' :: DeleteProvisioningTemplateVersion -> Int
versionId} -> Int
versionId) (\s :: DeleteProvisioningTemplateVersion
s@DeleteProvisioningTemplateVersion' {} Int
a -> DeleteProvisioningTemplateVersion
s {$sel:versionId:DeleteProvisioningTemplateVersion' :: Int
versionId = Int
a} :: DeleteProvisioningTemplateVersion)
instance
Core.AWSRequest
DeleteProvisioningTemplateVersion
where
type
AWSResponse DeleteProvisioningTemplateVersion =
DeleteProvisioningTemplateVersionResponse
request :: (Service -> Service)
-> DeleteProvisioningTemplateVersion
-> Request DeleteProvisioningTemplateVersion
request Service -> Service
overrides =
forall a. ToRequest a => Service -> a -> Request a
Request.delete (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy DeleteProvisioningTemplateVersion
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse (AWSResponse DeleteProvisioningTemplateVersion)))
response =
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> () -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveEmpty
( \Int
s ResponseHeaders
h ()
x ->
Int -> DeleteProvisioningTemplateVersionResponse
DeleteProvisioningTemplateVersionResponse'
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))
)
instance
Prelude.Hashable
DeleteProvisioningTemplateVersion
where
hashWithSalt :: Int -> DeleteProvisioningTemplateVersion -> Int
hashWithSalt
Int
_salt
DeleteProvisioningTemplateVersion' {Int
Text
versionId :: Int
templateName :: Text
$sel:versionId:DeleteProvisioningTemplateVersion' :: DeleteProvisioningTemplateVersion -> Int
$sel:templateName:DeleteProvisioningTemplateVersion' :: DeleteProvisioningTemplateVersion -> Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
templateName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Int
versionId
instance
Prelude.NFData
DeleteProvisioningTemplateVersion
where
rnf :: DeleteProvisioningTemplateVersion -> ()
rnf DeleteProvisioningTemplateVersion' {Int
Text
versionId :: Int
templateName :: Text
$sel:versionId:DeleteProvisioningTemplateVersion' :: DeleteProvisioningTemplateVersion -> Int
$sel:templateName:DeleteProvisioningTemplateVersion' :: DeleteProvisioningTemplateVersion -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
templateName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
versionId
instance
Data.ToHeaders
DeleteProvisioningTemplateVersion
where
toHeaders :: DeleteProvisioningTemplateVersion -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance
Data.ToPath
DeleteProvisioningTemplateVersion
where
toPath :: DeleteProvisioningTemplateVersion -> ByteString
toPath DeleteProvisioningTemplateVersion' {Int
Text
versionId :: Int
templateName :: Text
$sel:versionId:DeleteProvisioningTemplateVersion' :: DeleteProvisioningTemplateVersion -> Int
$sel:templateName:DeleteProvisioningTemplateVersion' :: DeleteProvisioningTemplateVersion -> Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"/provisioning-templates/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
templateName,
ByteString
"/versions/",
forall a. ToByteString a => a -> ByteString
Data.toBS Int
versionId
]
instance
Data.ToQuery
DeleteProvisioningTemplateVersion
where
toQuery :: DeleteProvisioningTemplateVersion -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DeleteProvisioningTemplateVersionResponse = DeleteProvisioningTemplateVersionResponse'
{
DeleteProvisioningTemplateVersionResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DeleteProvisioningTemplateVersionResponse
-> DeleteProvisioningTemplateVersionResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteProvisioningTemplateVersionResponse
-> DeleteProvisioningTemplateVersionResponse -> Bool
$c/= :: DeleteProvisioningTemplateVersionResponse
-> DeleteProvisioningTemplateVersionResponse -> Bool
== :: DeleteProvisioningTemplateVersionResponse
-> DeleteProvisioningTemplateVersionResponse -> Bool
$c== :: DeleteProvisioningTemplateVersionResponse
-> DeleteProvisioningTemplateVersionResponse -> Bool
Prelude.Eq, ReadPrec [DeleteProvisioningTemplateVersionResponse]
ReadPrec DeleteProvisioningTemplateVersionResponse
Int -> ReadS DeleteProvisioningTemplateVersionResponse
ReadS [DeleteProvisioningTemplateVersionResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteProvisioningTemplateVersionResponse]
$creadListPrec :: ReadPrec [DeleteProvisioningTemplateVersionResponse]
readPrec :: ReadPrec DeleteProvisioningTemplateVersionResponse
$creadPrec :: ReadPrec DeleteProvisioningTemplateVersionResponse
readList :: ReadS [DeleteProvisioningTemplateVersionResponse]
$creadList :: ReadS [DeleteProvisioningTemplateVersionResponse]
readsPrec :: Int -> ReadS DeleteProvisioningTemplateVersionResponse
$creadsPrec :: Int -> ReadS DeleteProvisioningTemplateVersionResponse
Prelude.Read, Int -> DeleteProvisioningTemplateVersionResponse -> ShowS
[DeleteProvisioningTemplateVersionResponse] -> ShowS
DeleteProvisioningTemplateVersionResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteProvisioningTemplateVersionResponse] -> ShowS
$cshowList :: [DeleteProvisioningTemplateVersionResponse] -> ShowS
show :: DeleteProvisioningTemplateVersionResponse -> String
$cshow :: DeleteProvisioningTemplateVersionResponse -> String
showsPrec :: Int -> DeleteProvisioningTemplateVersionResponse -> ShowS
$cshowsPrec :: Int -> DeleteProvisioningTemplateVersionResponse -> ShowS
Prelude.Show, forall x.
Rep DeleteProvisioningTemplateVersionResponse x
-> DeleteProvisioningTemplateVersionResponse
forall x.
DeleteProvisioningTemplateVersionResponse
-> Rep DeleteProvisioningTemplateVersionResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeleteProvisioningTemplateVersionResponse x
-> DeleteProvisioningTemplateVersionResponse
$cfrom :: forall x.
DeleteProvisioningTemplateVersionResponse
-> Rep DeleteProvisioningTemplateVersionResponse x
Prelude.Generic)
newDeleteProvisioningTemplateVersionResponse ::
Prelude.Int ->
DeleteProvisioningTemplateVersionResponse
newDeleteProvisioningTemplateVersionResponse :: Int -> DeleteProvisioningTemplateVersionResponse
newDeleteProvisioningTemplateVersionResponse
Int
pHttpStatus_ =
DeleteProvisioningTemplateVersionResponse'
{ $sel:httpStatus:DeleteProvisioningTemplateVersionResponse' :: Int
httpStatus =
Int
pHttpStatus_
}
deleteProvisioningTemplateVersionResponse_httpStatus :: Lens.Lens' DeleteProvisioningTemplateVersionResponse Prelude.Int
deleteProvisioningTemplateVersionResponse_httpStatus :: Lens' DeleteProvisioningTemplateVersionResponse Int
deleteProvisioningTemplateVersionResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteProvisioningTemplateVersionResponse' {Int
httpStatus :: Int
$sel:httpStatus:DeleteProvisioningTemplateVersionResponse' :: DeleteProvisioningTemplateVersionResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DeleteProvisioningTemplateVersionResponse
s@DeleteProvisioningTemplateVersionResponse' {} Int
a -> DeleteProvisioningTemplateVersionResponse
s {$sel:httpStatus:DeleteProvisioningTemplateVersionResponse' :: Int
httpStatus = Int
a} :: DeleteProvisioningTemplateVersionResponse)
instance
Prelude.NFData
DeleteProvisioningTemplateVersionResponse
where
rnf :: DeleteProvisioningTemplateVersionResponse -> ()
rnf DeleteProvisioningTemplateVersionResponse' {Int
httpStatus :: Int
$sel:httpStatus:DeleteProvisioningTemplateVersionResponse' :: DeleteProvisioningTemplateVersionResponse -> Int
..} =
forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus