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