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