{-# 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.DeleteOrganizationConfigRule
(
DeleteOrganizationConfigRule (..),
newDeleteOrganizationConfigRule,
deleteOrganizationConfigRule_organizationConfigRuleName,
DeleteOrganizationConfigRuleResponse (..),
newDeleteOrganizationConfigRuleResponse,
)
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 DeleteOrganizationConfigRule = DeleteOrganizationConfigRule'
{
DeleteOrganizationConfigRule -> Text
organizationConfigRuleName :: Prelude.Text
}
deriving (DeleteOrganizationConfigRule
-> DeleteOrganizationConfigRule -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteOrganizationConfigRule
-> DeleteOrganizationConfigRule -> Bool
$c/= :: DeleteOrganizationConfigRule
-> DeleteOrganizationConfigRule -> Bool
== :: DeleteOrganizationConfigRule
-> DeleteOrganizationConfigRule -> Bool
$c== :: DeleteOrganizationConfigRule
-> DeleteOrganizationConfigRule -> Bool
Prelude.Eq, ReadPrec [DeleteOrganizationConfigRule]
ReadPrec DeleteOrganizationConfigRule
Int -> ReadS DeleteOrganizationConfigRule
ReadS [DeleteOrganizationConfigRule]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteOrganizationConfigRule]
$creadListPrec :: ReadPrec [DeleteOrganizationConfigRule]
readPrec :: ReadPrec DeleteOrganizationConfigRule
$creadPrec :: ReadPrec DeleteOrganizationConfigRule
readList :: ReadS [DeleteOrganizationConfigRule]
$creadList :: ReadS [DeleteOrganizationConfigRule]
readsPrec :: Int -> ReadS DeleteOrganizationConfigRule
$creadsPrec :: Int -> ReadS DeleteOrganizationConfigRule
Prelude.Read, Int -> DeleteOrganizationConfigRule -> ShowS
[DeleteOrganizationConfigRule] -> ShowS
DeleteOrganizationConfigRule -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteOrganizationConfigRule] -> ShowS
$cshowList :: [DeleteOrganizationConfigRule] -> ShowS
show :: DeleteOrganizationConfigRule -> String
$cshow :: DeleteOrganizationConfigRule -> String
showsPrec :: Int -> DeleteOrganizationConfigRule -> ShowS
$cshowsPrec :: Int -> DeleteOrganizationConfigRule -> ShowS
Prelude.Show, forall x.
Rep DeleteOrganizationConfigRule x -> DeleteOrganizationConfigRule
forall x.
DeleteOrganizationConfigRule -> Rep DeleteOrganizationConfigRule x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeleteOrganizationConfigRule x -> DeleteOrganizationConfigRule
$cfrom :: forall x.
DeleteOrganizationConfigRule -> Rep DeleteOrganizationConfigRule x
Prelude.Generic)
newDeleteOrganizationConfigRule ::
Prelude.Text ->
DeleteOrganizationConfigRule
newDeleteOrganizationConfigRule :: Text -> DeleteOrganizationConfigRule
newDeleteOrganizationConfigRule
Text
pOrganizationConfigRuleName_ =
DeleteOrganizationConfigRule'
{ $sel:organizationConfigRuleName:DeleteOrganizationConfigRule' :: Text
organizationConfigRuleName =
Text
pOrganizationConfigRuleName_
}
deleteOrganizationConfigRule_organizationConfigRuleName :: Lens.Lens' DeleteOrganizationConfigRule Prelude.Text
deleteOrganizationConfigRule_organizationConfigRuleName :: Lens' DeleteOrganizationConfigRule Text
deleteOrganizationConfigRule_organizationConfigRuleName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteOrganizationConfigRule' {Text
organizationConfigRuleName :: Text
$sel:organizationConfigRuleName:DeleteOrganizationConfigRule' :: DeleteOrganizationConfigRule -> Text
organizationConfigRuleName} -> Text
organizationConfigRuleName) (\s :: DeleteOrganizationConfigRule
s@DeleteOrganizationConfigRule' {} Text
a -> DeleteOrganizationConfigRule
s {$sel:organizationConfigRuleName:DeleteOrganizationConfigRule' :: Text
organizationConfigRuleName = Text
a} :: DeleteOrganizationConfigRule)
instance Core.AWSRequest DeleteOrganizationConfigRule where
type
AWSResponse DeleteOrganizationConfigRule =
DeleteOrganizationConfigRuleResponse
request :: (Service -> Service)
-> DeleteOrganizationConfigRule
-> Request DeleteOrganizationConfigRule
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 DeleteOrganizationConfigRule
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse DeleteOrganizationConfigRule)))
response =
forall (m :: * -> *) a.
MonadResource m =>
AWSResponse a
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveNull
DeleteOrganizationConfigRuleResponse
DeleteOrganizationConfigRuleResponse'
instance
Prelude.Hashable
DeleteOrganizationConfigRule
where
hashWithSalt :: Int -> DeleteOrganizationConfigRule -> Int
hashWithSalt Int
_salt DeleteOrganizationConfigRule' {Text
organizationConfigRuleName :: Text
$sel:organizationConfigRuleName:DeleteOrganizationConfigRule' :: DeleteOrganizationConfigRule -> Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
organizationConfigRuleName
instance Prelude.NFData DeleteOrganizationConfigRule where
rnf :: DeleteOrganizationConfigRule -> ()
rnf DeleteOrganizationConfigRule' {Text
organizationConfigRuleName :: Text
$sel:organizationConfigRuleName:DeleteOrganizationConfigRule' :: DeleteOrganizationConfigRule -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
organizationConfigRuleName
instance Data.ToHeaders DeleteOrganizationConfigRule where
toHeaders :: DeleteOrganizationConfigRule -> [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.DeleteOrganizationConfigRule" ::
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 DeleteOrganizationConfigRule where
toJSON :: DeleteOrganizationConfigRule -> Value
toJSON DeleteOrganizationConfigRule' {Text
organizationConfigRuleName :: Text
$sel:organizationConfigRuleName:DeleteOrganizationConfigRule' :: DeleteOrganizationConfigRule -> Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ forall a. a -> Maybe a
Prelude.Just
( Key
"OrganizationConfigRuleName"
forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
organizationConfigRuleName
)
]
)
instance Data.ToPath DeleteOrganizationConfigRule where
toPath :: DeleteOrganizationConfigRule -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery DeleteOrganizationConfigRule where
toQuery :: DeleteOrganizationConfigRule -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DeleteOrganizationConfigRuleResponse = DeleteOrganizationConfigRuleResponse'
{
}
deriving (DeleteOrganizationConfigRuleResponse
-> DeleteOrganizationConfigRuleResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteOrganizationConfigRuleResponse
-> DeleteOrganizationConfigRuleResponse -> Bool
$c/= :: DeleteOrganizationConfigRuleResponse
-> DeleteOrganizationConfigRuleResponse -> Bool
== :: DeleteOrganizationConfigRuleResponse
-> DeleteOrganizationConfigRuleResponse -> Bool
$c== :: DeleteOrganizationConfigRuleResponse
-> DeleteOrganizationConfigRuleResponse -> Bool
Prelude.Eq, ReadPrec [DeleteOrganizationConfigRuleResponse]
ReadPrec DeleteOrganizationConfigRuleResponse
Int -> ReadS DeleteOrganizationConfigRuleResponse
ReadS [DeleteOrganizationConfigRuleResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteOrganizationConfigRuleResponse]
$creadListPrec :: ReadPrec [DeleteOrganizationConfigRuleResponse]
readPrec :: ReadPrec DeleteOrganizationConfigRuleResponse
$creadPrec :: ReadPrec DeleteOrganizationConfigRuleResponse
readList :: ReadS [DeleteOrganizationConfigRuleResponse]
$creadList :: ReadS [DeleteOrganizationConfigRuleResponse]
readsPrec :: Int -> ReadS DeleteOrganizationConfigRuleResponse
$creadsPrec :: Int -> ReadS DeleteOrganizationConfigRuleResponse
Prelude.Read, Int -> DeleteOrganizationConfigRuleResponse -> ShowS
[DeleteOrganizationConfigRuleResponse] -> ShowS
DeleteOrganizationConfigRuleResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteOrganizationConfigRuleResponse] -> ShowS
$cshowList :: [DeleteOrganizationConfigRuleResponse] -> ShowS
show :: DeleteOrganizationConfigRuleResponse -> String
$cshow :: DeleteOrganizationConfigRuleResponse -> String
showsPrec :: Int -> DeleteOrganizationConfigRuleResponse -> ShowS
$cshowsPrec :: Int -> DeleteOrganizationConfigRuleResponse -> ShowS
Prelude.Show, forall x.
Rep DeleteOrganizationConfigRuleResponse x
-> DeleteOrganizationConfigRuleResponse
forall x.
DeleteOrganizationConfigRuleResponse
-> Rep DeleteOrganizationConfigRuleResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeleteOrganizationConfigRuleResponse x
-> DeleteOrganizationConfigRuleResponse
$cfrom :: forall x.
DeleteOrganizationConfigRuleResponse
-> Rep DeleteOrganizationConfigRuleResponse x
Prelude.Generic)
newDeleteOrganizationConfigRuleResponse ::
DeleteOrganizationConfigRuleResponse
newDeleteOrganizationConfigRuleResponse :: DeleteOrganizationConfigRuleResponse
newDeleteOrganizationConfigRuleResponse =
DeleteOrganizationConfigRuleResponse
DeleteOrganizationConfigRuleResponse'
instance
Prelude.NFData
DeleteOrganizationConfigRuleResponse
where
rnf :: DeleteOrganizationConfigRuleResponse -> ()
rnf DeleteOrganizationConfigRuleResponse
_ = ()