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