{-# 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.Config.DeleteResourceConfig
(
DeleteResourceConfig (..),
newDeleteResourceConfig,
deleteResourceConfig_resourceType,
deleteResourceConfig_resourceId,
DeleteResourceConfigResponse (..),
newDeleteResourceConfigResponse,
)
where
import Amazonka.Config.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 DeleteResourceConfig = DeleteResourceConfig'
{
DeleteResourceConfig -> Text
resourceType :: Prelude.Text,
DeleteResourceConfig -> Text
resourceId :: Prelude.Text
}
deriving (DeleteResourceConfig -> DeleteResourceConfig -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteResourceConfig -> DeleteResourceConfig -> Bool
$c/= :: DeleteResourceConfig -> DeleteResourceConfig -> Bool
== :: DeleteResourceConfig -> DeleteResourceConfig -> Bool
$c== :: DeleteResourceConfig -> DeleteResourceConfig -> Bool
Prelude.Eq, ReadPrec [DeleteResourceConfig]
ReadPrec DeleteResourceConfig
Int -> ReadS DeleteResourceConfig
ReadS [DeleteResourceConfig]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteResourceConfig]
$creadListPrec :: ReadPrec [DeleteResourceConfig]
readPrec :: ReadPrec DeleteResourceConfig
$creadPrec :: ReadPrec DeleteResourceConfig
readList :: ReadS [DeleteResourceConfig]
$creadList :: ReadS [DeleteResourceConfig]
readsPrec :: Int -> ReadS DeleteResourceConfig
$creadsPrec :: Int -> ReadS DeleteResourceConfig
Prelude.Read, Int -> DeleteResourceConfig -> ShowS
[DeleteResourceConfig] -> ShowS
DeleteResourceConfig -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteResourceConfig] -> ShowS
$cshowList :: [DeleteResourceConfig] -> ShowS
show :: DeleteResourceConfig -> String
$cshow :: DeleteResourceConfig -> String
showsPrec :: Int -> DeleteResourceConfig -> ShowS
$cshowsPrec :: Int -> DeleteResourceConfig -> ShowS
Prelude.Show, forall x. Rep DeleteResourceConfig x -> DeleteResourceConfig
forall x. DeleteResourceConfig -> Rep DeleteResourceConfig x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DeleteResourceConfig x -> DeleteResourceConfig
$cfrom :: forall x. DeleteResourceConfig -> Rep DeleteResourceConfig x
Prelude.Generic)
newDeleteResourceConfig ::
Prelude.Text ->
Prelude.Text ->
DeleteResourceConfig
newDeleteResourceConfig :: Text -> Text -> DeleteResourceConfig
newDeleteResourceConfig Text
pResourceType_ Text
pResourceId_ =
DeleteResourceConfig'
{ $sel:resourceType:DeleteResourceConfig' :: Text
resourceType =
Text
pResourceType_,
$sel:resourceId:DeleteResourceConfig' :: Text
resourceId = Text
pResourceId_
}
deleteResourceConfig_resourceType :: Lens.Lens' DeleteResourceConfig Prelude.Text
deleteResourceConfig_resourceType :: Lens' DeleteResourceConfig Text
deleteResourceConfig_resourceType = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteResourceConfig' {Text
resourceType :: Text
$sel:resourceType:DeleteResourceConfig' :: DeleteResourceConfig -> Text
resourceType} -> Text
resourceType) (\s :: DeleteResourceConfig
s@DeleteResourceConfig' {} Text
a -> DeleteResourceConfig
s {$sel:resourceType:DeleteResourceConfig' :: Text
resourceType = Text
a} :: DeleteResourceConfig)
deleteResourceConfig_resourceId :: Lens.Lens' DeleteResourceConfig Prelude.Text
deleteResourceConfig_resourceId :: Lens' DeleteResourceConfig Text
deleteResourceConfig_resourceId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteResourceConfig' {Text
resourceId :: Text
$sel:resourceId:DeleteResourceConfig' :: DeleteResourceConfig -> Text
resourceId} -> Text
resourceId) (\s :: DeleteResourceConfig
s@DeleteResourceConfig' {} Text
a -> DeleteResourceConfig
s {$sel:resourceId:DeleteResourceConfig' :: Text
resourceId = Text
a} :: DeleteResourceConfig)
instance Core.AWSRequest DeleteResourceConfig where
type
AWSResponse DeleteResourceConfig =
DeleteResourceConfigResponse
request :: (Service -> Service)
-> DeleteResourceConfig -> Request DeleteResourceConfig
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 DeleteResourceConfig
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse DeleteResourceConfig)))
response =
forall (m :: * -> *) a.
MonadResource m =>
AWSResponse a
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveNull DeleteResourceConfigResponse
DeleteResourceConfigResponse'
instance Prelude.Hashable DeleteResourceConfig where
hashWithSalt :: Int -> DeleteResourceConfig -> Int
hashWithSalt Int
_salt DeleteResourceConfig' {Text
resourceId :: Text
resourceType :: Text
$sel:resourceId:DeleteResourceConfig' :: DeleteResourceConfig -> Text
$sel:resourceType:DeleteResourceConfig' :: DeleteResourceConfig -> Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
resourceType
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
resourceId
instance Prelude.NFData DeleteResourceConfig where
rnf :: DeleteResourceConfig -> ()
rnf DeleteResourceConfig' {Text
resourceId :: Text
resourceType :: Text
$sel:resourceId:DeleteResourceConfig' :: DeleteResourceConfig -> Text
$sel:resourceType:DeleteResourceConfig' :: DeleteResourceConfig -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
resourceType
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
resourceId
instance Data.ToHeaders DeleteResourceConfig where
toHeaders :: DeleteResourceConfig -> [Header]
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 -> [Header]
Data.=# ( ByteString
"StarlingDoveService.DeleteResourceConfig" ::
Prelude.ByteString
),
HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON DeleteResourceConfig where
toJSON :: DeleteResourceConfig -> Value
toJSON DeleteResourceConfig' {Text
resourceId :: Text
resourceType :: Text
$sel:resourceId:DeleteResourceConfig' :: DeleteResourceConfig -> Text
$sel:resourceType:DeleteResourceConfig' :: DeleteResourceConfig -> Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ forall a. a -> Maybe a
Prelude.Just (Key
"ResourceType" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
resourceType),
forall a. a -> Maybe a
Prelude.Just (Key
"ResourceId" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
resourceId)
]
)
instance Data.ToPath DeleteResourceConfig where
toPath :: DeleteResourceConfig -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery DeleteResourceConfig where
toQuery :: DeleteResourceConfig -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DeleteResourceConfigResponse = DeleteResourceConfigResponse'
{
}
deriving (DeleteResourceConfigResponse
-> DeleteResourceConfigResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteResourceConfigResponse
-> DeleteResourceConfigResponse -> Bool
$c/= :: DeleteResourceConfigResponse
-> DeleteResourceConfigResponse -> Bool
== :: DeleteResourceConfigResponse
-> DeleteResourceConfigResponse -> Bool
$c== :: DeleteResourceConfigResponse
-> DeleteResourceConfigResponse -> Bool
Prelude.Eq, ReadPrec [DeleteResourceConfigResponse]
ReadPrec DeleteResourceConfigResponse
Int -> ReadS DeleteResourceConfigResponse
ReadS [DeleteResourceConfigResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteResourceConfigResponse]
$creadListPrec :: ReadPrec [DeleteResourceConfigResponse]
readPrec :: ReadPrec DeleteResourceConfigResponse
$creadPrec :: ReadPrec DeleteResourceConfigResponse
readList :: ReadS [DeleteResourceConfigResponse]
$creadList :: ReadS [DeleteResourceConfigResponse]
readsPrec :: Int -> ReadS DeleteResourceConfigResponse
$creadsPrec :: Int -> ReadS DeleteResourceConfigResponse
Prelude.Read, Int -> DeleteResourceConfigResponse -> ShowS
[DeleteResourceConfigResponse] -> ShowS
DeleteResourceConfigResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteResourceConfigResponse] -> ShowS
$cshowList :: [DeleteResourceConfigResponse] -> ShowS
show :: DeleteResourceConfigResponse -> String
$cshow :: DeleteResourceConfigResponse -> String
showsPrec :: Int -> DeleteResourceConfigResponse -> ShowS
$cshowsPrec :: Int -> DeleteResourceConfigResponse -> ShowS
Prelude.Show, forall x.
Rep DeleteResourceConfigResponse x -> DeleteResourceConfigResponse
forall x.
DeleteResourceConfigResponse -> Rep DeleteResourceConfigResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeleteResourceConfigResponse x -> DeleteResourceConfigResponse
$cfrom :: forall x.
DeleteResourceConfigResponse -> Rep DeleteResourceConfigResponse x
Prelude.Generic)
newDeleteResourceConfigResponse ::
DeleteResourceConfigResponse
newDeleteResourceConfigResponse :: DeleteResourceConfigResponse
newDeleteResourceConfigResponse =
DeleteResourceConfigResponse
DeleteResourceConfigResponse'
instance Prelude.NFData DeleteResourceConfigResponse where
rnf :: DeleteResourceConfigResponse -> ()
rnf DeleteResourceConfigResponse
_ = ()