{-# 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.AppConfig.DeleteHostedConfigurationVersion
(
DeleteHostedConfigurationVersion (..),
newDeleteHostedConfigurationVersion,
deleteHostedConfigurationVersion_applicationId,
deleteHostedConfigurationVersion_configurationProfileId,
deleteHostedConfigurationVersion_versionNumber,
DeleteHostedConfigurationVersionResponse (..),
newDeleteHostedConfigurationVersionResponse,
)
where
import Amazonka.AppConfig.Types
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data DeleteHostedConfigurationVersion = DeleteHostedConfigurationVersion'
{
DeleteHostedConfigurationVersion -> Text
applicationId :: Prelude.Text,
DeleteHostedConfigurationVersion -> Text
configurationProfileId :: Prelude.Text,
DeleteHostedConfigurationVersion -> Int
versionNumber :: Prelude.Int
}
deriving (DeleteHostedConfigurationVersion
-> DeleteHostedConfigurationVersion -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteHostedConfigurationVersion
-> DeleteHostedConfigurationVersion -> Bool
$c/= :: DeleteHostedConfigurationVersion
-> DeleteHostedConfigurationVersion -> Bool
== :: DeleteHostedConfigurationVersion
-> DeleteHostedConfigurationVersion -> Bool
$c== :: DeleteHostedConfigurationVersion
-> DeleteHostedConfigurationVersion -> Bool
Prelude.Eq, ReadPrec [DeleteHostedConfigurationVersion]
ReadPrec DeleteHostedConfigurationVersion
Int -> ReadS DeleteHostedConfigurationVersion
ReadS [DeleteHostedConfigurationVersion]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteHostedConfigurationVersion]
$creadListPrec :: ReadPrec [DeleteHostedConfigurationVersion]
readPrec :: ReadPrec DeleteHostedConfigurationVersion
$creadPrec :: ReadPrec DeleteHostedConfigurationVersion
readList :: ReadS [DeleteHostedConfigurationVersion]
$creadList :: ReadS [DeleteHostedConfigurationVersion]
readsPrec :: Int -> ReadS DeleteHostedConfigurationVersion
$creadsPrec :: Int -> ReadS DeleteHostedConfigurationVersion
Prelude.Read, Int -> DeleteHostedConfigurationVersion -> ShowS
[DeleteHostedConfigurationVersion] -> ShowS
DeleteHostedConfigurationVersion -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteHostedConfigurationVersion] -> ShowS
$cshowList :: [DeleteHostedConfigurationVersion] -> ShowS
show :: DeleteHostedConfigurationVersion -> String
$cshow :: DeleteHostedConfigurationVersion -> String
showsPrec :: Int -> DeleteHostedConfigurationVersion -> ShowS
$cshowsPrec :: Int -> DeleteHostedConfigurationVersion -> ShowS
Prelude.Show, forall x.
Rep DeleteHostedConfigurationVersion x
-> DeleteHostedConfigurationVersion
forall x.
DeleteHostedConfigurationVersion
-> Rep DeleteHostedConfigurationVersion x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeleteHostedConfigurationVersion x
-> DeleteHostedConfigurationVersion
$cfrom :: forall x.
DeleteHostedConfigurationVersion
-> Rep DeleteHostedConfigurationVersion x
Prelude.Generic)
newDeleteHostedConfigurationVersion ::
Prelude.Text ->
Prelude.Text ->
Prelude.Int ->
DeleteHostedConfigurationVersion
newDeleteHostedConfigurationVersion :: Text -> Text -> Int -> DeleteHostedConfigurationVersion
newDeleteHostedConfigurationVersion
Text
pApplicationId_
Text
pConfigurationProfileId_
Int
pVersionNumber_ =
DeleteHostedConfigurationVersion'
{ $sel:applicationId:DeleteHostedConfigurationVersion' :: Text
applicationId =
Text
pApplicationId_,
$sel:configurationProfileId:DeleteHostedConfigurationVersion' :: Text
configurationProfileId =
Text
pConfigurationProfileId_,
$sel:versionNumber:DeleteHostedConfigurationVersion' :: Int
versionNumber = Int
pVersionNumber_
}
deleteHostedConfigurationVersion_applicationId :: Lens.Lens' DeleteHostedConfigurationVersion Prelude.Text
deleteHostedConfigurationVersion_applicationId :: Lens' DeleteHostedConfigurationVersion Text
deleteHostedConfigurationVersion_applicationId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteHostedConfigurationVersion' {Text
applicationId :: Text
$sel:applicationId:DeleteHostedConfigurationVersion' :: DeleteHostedConfigurationVersion -> Text
applicationId} -> Text
applicationId) (\s :: DeleteHostedConfigurationVersion
s@DeleteHostedConfigurationVersion' {} Text
a -> DeleteHostedConfigurationVersion
s {$sel:applicationId:DeleteHostedConfigurationVersion' :: Text
applicationId = Text
a} :: DeleteHostedConfigurationVersion)
deleteHostedConfigurationVersion_configurationProfileId :: Lens.Lens' DeleteHostedConfigurationVersion Prelude.Text
deleteHostedConfigurationVersion_configurationProfileId :: Lens' DeleteHostedConfigurationVersion Text
deleteHostedConfigurationVersion_configurationProfileId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteHostedConfigurationVersion' {Text
configurationProfileId :: Text
$sel:configurationProfileId:DeleteHostedConfigurationVersion' :: DeleteHostedConfigurationVersion -> Text
configurationProfileId} -> Text
configurationProfileId) (\s :: DeleteHostedConfigurationVersion
s@DeleteHostedConfigurationVersion' {} Text
a -> DeleteHostedConfigurationVersion
s {$sel:configurationProfileId:DeleteHostedConfigurationVersion' :: Text
configurationProfileId = Text
a} :: DeleteHostedConfigurationVersion)
deleteHostedConfigurationVersion_versionNumber :: Lens.Lens' DeleteHostedConfigurationVersion Prelude.Int
deleteHostedConfigurationVersion_versionNumber :: Lens' DeleteHostedConfigurationVersion Int
deleteHostedConfigurationVersion_versionNumber = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteHostedConfigurationVersion' {Int
versionNumber :: Int
$sel:versionNumber:DeleteHostedConfigurationVersion' :: DeleteHostedConfigurationVersion -> Int
versionNumber} -> Int
versionNumber) (\s :: DeleteHostedConfigurationVersion
s@DeleteHostedConfigurationVersion' {} Int
a -> DeleteHostedConfigurationVersion
s {$sel:versionNumber:DeleteHostedConfigurationVersion' :: Int
versionNumber = Int
a} :: DeleteHostedConfigurationVersion)
instance
Core.AWSRequest
DeleteHostedConfigurationVersion
where
type
AWSResponse DeleteHostedConfigurationVersion =
DeleteHostedConfigurationVersionResponse
request :: (Service -> Service)
-> DeleteHostedConfigurationVersion
-> Request DeleteHostedConfigurationVersion
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 DeleteHostedConfigurationVersion
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse (AWSResponse DeleteHostedConfigurationVersion)))
response =
forall (m :: * -> *) a.
MonadResource m =>
AWSResponse a
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveNull
DeleteHostedConfigurationVersionResponse
DeleteHostedConfigurationVersionResponse'
instance
Prelude.Hashable
DeleteHostedConfigurationVersion
where
hashWithSalt :: Int -> DeleteHostedConfigurationVersion -> Int
hashWithSalt
Int
_salt
DeleteHostedConfigurationVersion' {Int
Text
versionNumber :: Int
configurationProfileId :: Text
applicationId :: Text
$sel:versionNumber:DeleteHostedConfigurationVersion' :: DeleteHostedConfigurationVersion -> Int
$sel:configurationProfileId:DeleteHostedConfigurationVersion' :: DeleteHostedConfigurationVersion -> Text
$sel:applicationId:DeleteHostedConfigurationVersion' :: DeleteHostedConfigurationVersion -> Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
applicationId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
configurationProfileId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Int
versionNumber
instance
Prelude.NFData
DeleteHostedConfigurationVersion
where
rnf :: DeleteHostedConfigurationVersion -> ()
rnf DeleteHostedConfigurationVersion' {Int
Text
versionNumber :: Int
configurationProfileId :: Text
applicationId :: Text
$sel:versionNumber:DeleteHostedConfigurationVersion' :: DeleteHostedConfigurationVersion -> Int
$sel:configurationProfileId:DeleteHostedConfigurationVersion' :: DeleteHostedConfigurationVersion -> Text
$sel:applicationId:DeleteHostedConfigurationVersion' :: DeleteHostedConfigurationVersion -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
applicationId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
configurationProfileId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
versionNumber
instance
Data.ToHeaders
DeleteHostedConfigurationVersion
where
toHeaders :: DeleteHostedConfigurationVersion -> [Header]
toHeaders =
forall a b. a -> b -> a
Prelude.const
( forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToPath DeleteHostedConfigurationVersion where
toPath :: DeleteHostedConfigurationVersion -> ByteString
toPath DeleteHostedConfigurationVersion' {Int
Text
versionNumber :: Int
configurationProfileId :: Text
applicationId :: Text
$sel:versionNumber:DeleteHostedConfigurationVersion' :: DeleteHostedConfigurationVersion -> Int
$sel:configurationProfileId:DeleteHostedConfigurationVersion' :: DeleteHostedConfigurationVersion -> Text
$sel:applicationId:DeleteHostedConfigurationVersion' :: DeleteHostedConfigurationVersion -> Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"/applications/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
applicationId,
ByteString
"/configurationprofiles/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
configurationProfileId,
ByteString
"/hostedconfigurationversions/",
forall a. ToByteString a => a -> ByteString
Data.toBS Int
versionNumber
]
instance
Data.ToQuery
DeleteHostedConfigurationVersion
where
toQuery :: DeleteHostedConfigurationVersion -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DeleteHostedConfigurationVersionResponse = DeleteHostedConfigurationVersionResponse'
{
}
deriving (DeleteHostedConfigurationVersionResponse
-> DeleteHostedConfigurationVersionResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteHostedConfigurationVersionResponse
-> DeleteHostedConfigurationVersionResponse -> Bool
$c/= :: DeleteHostedConfigurationVersionResponse
-> DeleteHostedConfigurationVersionResponse -> Bool
== :: DeleteHostedConfigurationVersionResponse
-> DeleteHostedConfigurationVersionResponse -> Bool
$c== :: DeleteHostedConfigurationVersionResponse
-> DeleteHostedConfigurationVersionResponse -> Bool
Prelude.Eq, ReadPrec [DeleteHostedConfigurationVersionResponse]
ReadPrec DeleteHostedConfigurationVersionResponse
Int -> ReadS DeleteHostedConfigurationVersionResponse
ReadS [DeleteHostedConfigurationVersionResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteHostedConfigurationVersionResponse]
$creadListPrec :: ReadPrec [DeleteHostedConfigurationVersionResponse]
readPrec :: ReadPrec DeleteHostedConfigurationVersionResponse
$creadPrec :: ReadPrec DeleteHostedConfigurationVersionResponse
readList :: ReadS [DeleteHostedConfigurationVersionResponse]
$creadList :: ReadS [DeleteHostedConfigurationVersionResponse]
readsPrec :: Int -> ReadS DeleteHostedConfigurationVersionResponse
$creadsPrec :: Int -> ReadS DeleteHostedConfigurationVersionResponse
Prelude.Read, Int -> DeleteHostedConfigurationVersionResponse -> ShowS
[DeleteHostedConfigurationVersionResponse] -> ShowS
DeleteHostedConfigurationVersionResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteHostedConfigurationVersionResponse] -> ShowS
$cshowList :: [DeleteHostedConfigurationVersionResponse] -> ShowS
show :: DeleteHostedConfigurationVersionResponse -> String
$cshow :: DeleteHostedConfigurationVersionResponse -> String
showsPrec :: Int -> DeleteHostedConfigurationVersionResponse -> ShowS
$cshowsPrec :: Int -> DeleteHostedConfigurationVersionResponse -> ShowS
Prelude.Show, forall x.
Rep DeleteHostedConfigurationVersionResponse x
-> DeleteHostedConfigurationVersionResponse
forall x.
DeleteHostedConfigurationVersionResponse
-> Rep DeleteHostedConfigurationVersionResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeleteHostedConfigurationVersionResponse x
-> DeleteHostedConfigurationVersionResponse
$cfrom :: forall x.
DeleteHostedConfigurationVersionResponse
-> Rep DeleteHostedConfigurationVersionResponse x
Prelude.Generic)
newDeleteHostedConfigurationVersionResponse ::
DeleteHostedConfigurationVersionResponse
newDeleteHostedConfigurationVersionResponse :: DeleteHostedConfigurationVersionResponse
newDeleteHostedConfigurationVersionResponse =
DeleteHostedConfigurationVersionResponse
DeleteHostedConfigurationVersionResponse'
instance
Prelude.NFData
DeleteHostedConfigurationVersionResponse
where
rnf :: DeleteHostedConfigurationVersionResponse -> ()
rnf DeleteHostedConfigurationVersionResponse
_ = ()