{-# 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.CloudTrail.RegisterOrganizationDelegatedAdmin
(
RegisterOrganizationDelegatedAdmin (..),
newRegisterOrganizationDelegatedAdmin,
registerOrganizationDelegatedAdmin_memberAccountId,
RegisterOrganizationDelegatedAdminResponse (..),
newRegisterOrganizationDelegatedAdminResponse,
registerOrganizationDelegatedAdminResponse_httpStatus,
)
where
import Amazonka.CloudTrail.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 RegisterOrganizationDelegatedAdmin = RegisterOrganizationDelegatedAdmin'
{
RegisterOrganizationDelegatedAdmin -> Text
memberAccountId :: Prelude.Text
}
deriving (RegisterOrganizationDelegatedAdmin
-> RegisterOrganizationDelegatedAdmin -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: RegisterOrganizationDelegatedAdmin
-> RegisterOrganizationDelegatedAdmin -> Bool
$c/= :: RegisterOrganizationDelegatedAdmin
-> RegisterOrganizationDelegatedAdmin -> Bool
== :: RegisterOrganizationDelegatedAdmin
-> RegisterOrganizationDelegatedAdmin -> Bool
$c== :: RegisterOrganizationDelegatedAdmin
-> RegisterOrganizationDelegatedAdmin -> Bool
Prelude.Eq, ReadPrec [RegisterOrganizationDelegatedAdmin]
ReadPrec RegisterOrganizationDelegatedAdmin
Int -> ReadS RegisterOrganizationDelegatedAdmin
ReadS [RegisterOrganizationDelegatedAdmin]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [RegisterOrganizationDelegatedAdmin]
$creadListPrec :: ReadPrec [RegisterOrganizationDelegatedAdmin]
readPrec :: ReadPrec RegisterOrganizationDelegatedAdmin
$creadPrec :: ReadPrec RegisterOrganizationDelegatedAdmin
readList :: ReadS [RegisterOrganizationDelegatedAdmin]
$creadList :: ReadS [RegisterOrganizationDelegatedAdmin]
readsPrec :: Int -> ReadS RegisterOrganizationDelegatedAdmin
$creadsPrec :: Int -> ReadS RegisterOrganizationDelegatedAdmin
Prelude.Read, Int -> RegisterOrganizationDelegatedAdmin -> ShowS
[RegisterOrganizationDelegatedAdmin] -> ShowS
RegisterOrganizationDelegatedAdmin -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [RegisterOrganizationDelegatedAdmin] -> ShowS
$cshowList :: [RegisterOrganizationDelegatedAdmin] -> ShowS
show :: RegisterOrganizationDelegatedAdmin -> String
$cshow :: RegisterOrganizationDelegatedAdmin -> String
showsPrec :: Int -> RegisterOrganizationDelegatedAdmin -> ShowS
$cshowsPrec :: Int -> RegisterOrganizationDelegatedAdmin -> ShowS
Prelude.Show, forall x.
Rep RegisterOrganizationDelegatedAdmin x
-> RegisterOrganizationDelegatedAdmin
forall x.
RegisterOrganizationDelegatedAdmin
-> Rep RegisterOrganizationDelegatedAdmin x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep RegisterOrganizationDelegatedAdmin x
-> RegisterOrganizationDelegatedAdmin
$cfrom :: forall x.
RegisterOrganizationDelegatedAdmin
-> Rep RegisterOrganizationDelegatedAdmin x
Prelude.Generic)
newRegisterOrganizationDelegatedAdmin ::
Prelude.Text ->
RegisterOrganizationDelegatedAdmin
newRegisterOrganizationDelegatedAdmin :: Text -> RegisterOrganizationDelegatedAdmin
newRegisterOrganizationDelegatedAdmin
Text
pMemberAccountId_ =
RegisterOrganizationDelegatedAdmin'
{ $sel:memberAccountId:RegisterOrganizationDelegatedAdmin' :: Text
memberAccountId =
Text
pMemberAccountId_
}
registerOrganizationDelegatedAdmin_memberAccountId :: Lens.Lens' RegisterOrganizationDelegatedAdmin Prelude.Text
registerOrganizationDelegatedAdmin_memberAccountId :: Lens' RegisterOrganizationDelegatedAdmin Text
registerOrganizationDelegatedAdmin_memberAccountId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RegisterOrganizationDelegatedAdmin' {Text
memberAccountId :: Text
$sel:memberAccountId:RegisterOrganizationDelegatedAdmin' :: RegisterOrganizationDelegatedAdmin -> Text
memberAccountId} -> Text
memberAccountId) (\s :: RegisterOrganizationDelegatedAdmin
s@RegisterOrganizationDelegatedAdmin' {} Text
a -> RegisterOrganizationDelegatedAdmin
s {$sel:memberAccountId:RegisterOrganizationDelegatedAdmin' :: Text
memberAccountId = Text
a} :: RegisterOrganizationDelegatedAdmin)
instance
Core.AWSRequest
RegisterOrganizationDelegatedAdmin
where
type
AWSResponse RegisterOrganizationDelegatedAdmin =
RegisterOrganizationDelegatedAdminResponse
request :: (Service -> Service)
-> RegisterOrganizationDelegatedAdmin
-> Request RegisterOrganizationDelegatedAdmin
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 RegisterOrganizationDelegatedAdmin
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse (AWSResponse RegisterOrganizationDelegatedAdmin)))
response =
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> () -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveEmpty
( \Int
s ResponseHeaders
h ()
x ->
Int -> RegisterOrganizationDelegatedAdminResponse
RegisterOrganizationDelegatedAdminResponse'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
)
instance
Prelude.Hashable
RegisterOrganizationDelegatedAdmin
where
hashWithSalt :: Int -> RegisterOrganizationDelegatedAdmin -> Int
hashWithSalt
Int
_salt
RegisterOrganizationDelegatedAdmin' {Text
memberAccountId :: Text
$sel:memberAccountId:RegisterOrganizationDelegatedAdmin' :: RegisterOrganizationDelegatedAdmin -> Text
..} =
Int
_salt forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
memberAccountId
instance
Prelude.NFData
RegisterOrganizationDelegatedAdmin
where
rnf :: RegisterOrganizationDelegatedAdmin -> ()
rnf RegisterOrganizationDelegatedAdmin' {Text
memberAccountId :: Text
$sel:memberAccountId:RegisterOrganizationDelegatedAdmin' :: RegisterOrganizationDelegatedAdmin -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
memberAccountId
instance
Data.ToHeaders
RegisterOrganizationDelegatedAdmin
where
toHeaders :: RegisterOrganizationDelegatedAdmin -> ResponseHeaders
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 -> ResponseHeaders
Data.=# ( ByteString
"com.amazonaws.cloudtrail.v20131101.CloudTrail_20131101.RegisterOrganizationDelegatedAdmin" ::
Prelude.ByteString
),
HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance
Data.ToJSON
RegisterOrganizationDelegatedAdmin
where
toJSON :: RegisterOrganizationDelegatedAdmin -> Value
toJSON RegisterOrganizationDelegatedAdmin' {Text
memberAccountId :: Text
$sel:memberAccountId:RegisterOrganizationDelegatedAdmin' :: RegisterOrganizationDelegatedAdmin -> Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ forall a. a -> Maybe a
Prelude.Just
(Key
"MemberAccountId" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
memberAccountId)
]
)
instance
Data.ToPath
RegisterOrganizationDelegatedAdmin
where
toPath :: RegisterOrganizationDelegatedAdmin -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance
Data.ToQuery
RegisterOrganizationDelegatedAdmin
where
toQuery :: RegisterOrganizationDelegatedAdmin -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data RegisterOrganizationDelegatedAdminResponse = RegisterOrganizationDelegatedAdminResponse'
{
RegisterOrganizationDelegatedAdminResponse -> Int
httpStatus :: Prelude.Int
}
deriving (RegisterOrganizationDelegatedAdminResponse
-> RegisterOrganizationDelegatedAdminResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: RegisterOrganizationDelegatedAdminResponse
-> RegisterOrganizationDelegatedAdminResponse -> Bool
$c/= :: RegisterOrganizationDelegatedAdminResponse
-> RegisterOrganizationDelegatedAdminResponse -> Bool
== :: RegisterOrganizationDelegatedAdminResponse
-> RegisterOrganizationDelegatedAdminResponse -> Bool
$c== :: RegisterOrganizationDelegatedAdminResponse
-> RegisterOrganizationDelegatedAdminResponse -> Bool
Prelude.Eq, ReadPrec [RegisterOrganizationDelegatedAdminResponse]
ReadPrec RegisterOrganizationDelegatedAdminResponse
Int -> ReadS RegisterOrganizationDelegatedAdminResponse
ReadS [RegisterOrganizationDelegatedAdminResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [RegisterOrganizationDelegatedAdminResponse]
$creadListPrec :: ReadPrec [RegisterOrganizationDelegatedAdminResponse]
readPrec :: ReadPrec RegisterOrganizationDelegatedAdminResponse
$creadPrec :: ReadPrec RegisterOrganizationDelegatedAdminResponse
readList :: ReadS [RegisterOrganizationDelegatedAdminResponse]
$creadList :: ReadS [RegisterOrganizationDelegatedAdminResponse]
readsPrec :: Int -> ReadS RegisterOrganizationDelegatedAdminResponse
$creadsPrec :: Int -> ReadS RegisterOrganizationDelegatedAdminResponse
Prelude.Read, Int -> RegisterOrganizationDelegatedAdminResponse -> ShowS
[RegisterOrganizationDelegatedAdminResponse] -> ShowS
RegisterOrganizationDelegatedAdminResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [RegisterOrganizationDelegatedAdminResponse] -> ShowS
$cshowList :: [RegisterOrganizationDelegatedAdminResponse] -> ShowS
show :: RegisterOrganizationDelegatedAdminResponse -> String
$cshow :: RegisterOrganizationDelegatedAdminResponse -> String
showsPrec :: Int -> RegisterOrganizationDelegatedAdminResponse -> ShowS
$cshowsPrec :: Int -> RegisterOrganizationDelegatedAdminResponse -> ShowS
Prelude.Show, forall x.
Rep RegisterOrganizationDelegatedAdminResponse x
-> RegisterOrganizationDelegatedAdminResponse
forall x.
RegisterOrganizationDelegatedAdminResponse
-> Rep RegisterOrganizationDelegatedAdminResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep RegisterOrganizationDelegatedAdminResponse x
-> RegisterOrganizationDelegatedAdminResponse
$cfrom :: forall x.
RegisterOrganizationDelegatedAdminResponse
-> Rep RegisterOrganizationDelegatedAdminResponse x
Prelude.Generic)
newRegisterOrganizationDelegatedAdminResponse ::
Prelude.Int ->
RegisterOrganizationDelegatedAdminResponse
newRegisterOrganizationDelegatedAdminResponse :: Int -> RegisterOrganizationDelegatedAdminResponse
newRegisterOrganizationDelegatedAdminResponse
Int
pHttpStatus_ =
RegisterOrganizationDelegatedAdminResponse'
{ $sel:httpStatus:RegisterOrganizationDelegatedAdminResponse' :: Int
httpStatus =
Int
pHttpStatus_
}
registerOrganizationDelegatedAdminResponse_httpStatus :: Lens.Lens' RegisterOrganizationDelegatedAdminResponse Prelude.Int
registerOrganizationDelegatedAdminResponse_httpStatus :: Lens' RegisterOrganizationDelegatedAdminResponse Int
registerOrganizationDelegatedAdminResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RegisterOrganizationDelegatedAdminResponse' {Int
httpStatus :: Int
$sel:httpStatus:RegisterOrganizationDelegatedAdminResponse' :: RegisterOrganizationDelegatedAdminResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: RegisterOrganizationDelegatedAdminResponse
s@RegisterOrganizationDelegatedAdminResponse' {} Int
a -> RegisterOrganizationDelegatedAdminResponse
s {$sel:httpStatus:RegisterOrganizationDelegatedAdminResponse' :: Int
httpStatus = Int
a} :: RegisterOrganizationDelegatedAdminResponse)
instance
Prelude.NFData
RegisterOrganizationDelegatedAdminResponse
where
rnf :: RegisterOrganizationDelegatedAdminResponse -> ()
rnf RegisterOrganizationDelegatedAdminResponse' {Int
httpStatus :: Int
$sel:httpStatus:RegisterOrganizationDelegatedAdminResponse' :: RegisterOrganizationDelegatedAdminResponse -> Int
..} =
forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus