{-# 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.Macie.DisassociateMemberAccount
(
DisassociateMemberAccount (..),
newDisassociateMemberAccount,
disassociateMemberAccount_memberAccountId,
DisassociateMemberAccountResponse (..),
newDisassociateMemberAccountResponse,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.Macie.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data DisassociateMemberAccount = DisassociateMemberAccount'
{
DisassociateMemberAccount -> Text
memberAccountId :: Prelude.Text
}
deriving (DisassociateMemberAccount -> DisassociateMemberAccount -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DisassociateMemberAccount -> DisassociateMemberAccount -> Bool
$c/= :: DisassociateMemberAccount -> DisassociateMemberAccount -> Bool
== :: DisassociateMemberAccount -> DisassociateMemberAccount -> Bool
$c== :: DisassociateMemberAccount -> DisassociateMemberAccount -> Bool
Prelude.Eq, ReadPrec [DisassociateMemberAccount]
ReadPrec DisassociateMemberAccount
Int -> ReadS DisassociateMemberAccount
ReadS [DisassociateMemberAccount]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DisassociateMemberAccount]
$creadListPrec :: ReadPrec [DisassociateMemberAccount]
readPrec :: ReadPrec DisassociateMemberAccount
$creadPrec :: ReadPrec DisassociateMemberAccount
readList :: ReadS [DisassociateMemberAccount]
$creadList :: ReadS [DisassociateMemberAccount]
readsPrec :: Int -> ReadS DisassociateMemberAccount
$creadsPrec :: Int -> ReadS DisassociateMemberAccount
Prelude.Read, Int -> DisassociateMemberAccount -> ShowS
[DisassociateMemberAccount] -> ShowS
DisassociateMemberAccount -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DisassociateMemberAccount] -> ShowS
$cshowList :: [DisassociateMemberAccount] -> ShowS
show :: DisassociateMemberAccount -> String
$cshow :: DisassociateMemberAccount -> String
showsPrec :: Int -> DisassociateMemberAccount -> ShowS
$cshowsPrec :: Int -> DisassociateMemberAccount -> ShowS
Prelude.Show, forall x.
Rep DisassociateMemberAccount x -> DisassociateMemberAccount
forall x.
DisassociateMemberAccount -> Rep DisassociateMemberAccount x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DisassociateMemberAccount x -> DisassociateMemberAccount
$cfrom :: forall x.
DisassociateMemberAccount -> Rep DisassociateMemberAccount x
Prelude.Generic)
newDisassociateMemberAccount ::
Prelude.Text ->
DisassociateMemberAccount
newDisassociateMemberAccount :: Text -> DisassociateMemberAccount
newDisassociateMemberAccount Text
pMemberAccountId_ =
DisassociateMemberAccount'
{ $sel:memberAccountId:DisassociateMemberAccount' :: Text
memberAccountId =
Text
pMemberAccountId_
}
disassociateMemberAccount_memberAccountId :: Lens.Lens' DisassociateMemberAccount Prelude.Text
disassociateMemberAccount_memberAccountId :: Lens' DisassociateMemberAccount Text
disassociateMemberAccount_memberAccountId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DisassociateMemberAccount' {Text
memberAccountId :: Text
$sel:memberAccountId:DisassociateMemberAccount' :: DisassociateMemberAccount -> Text
memberAccountId} -> Text
memberAccountId) (\s :: DisassociateMemberAccount
s@DisassociateMemberAccount' {} Text
a -> DisassociateMemberAccount
s {$sel:memberAccountId:DisassociateMemberAccount' :: Text
memberAccountId = Text
a} :: DisassociateMemberAccount)
instance Core.AWSRequest DisassociateMemberAccount where
type
AWSResponse DisassociateMemberAccount =
DisassociateMemberAccountResponse
request :: (Service -> Service)
-> DisassociateMemberAccount -> Request DisassociateMemberAccount
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 DisassociateMemberAccount
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse DisassociateMemberAccount)))
response =
forall (m :: * -> *) a.
MonadResource m =>
AWSResponse a
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveNull
DisassociateMemberAccountResponse
DisassociateMemberAccountResponse'
instance Prelude.Hashable DisassociateMemberAccount where
hashWithSalt :: Int -> DisassociateMemberAccount -> Int
hashWithSalt Int
_salt DisassociateMemberAccount' {Text
memberAccountId :: Text
$sel:memberAccountId:DisassociateMemberAccount' :: DisassociateMemberAccount -> Text
..} =
Int
_salt forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
memberAccountId
instance Prelude.NFData DisassociateMemberAccount where
rnf :: DisassociateMemberAccount -> ()
rnf DisassociateMemberAccount' {Text
memberAccountId :: Text
$sel:memberAccountId:DisassociateMemberAccount' :: DisassociateMemberAccount -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
memberAccountId
instance Data.ToHeaders DisassociateMemberAccount where
toHeaders :: DisassociateMemberAccount -> [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
"MacieService.DisassociateMemberAccount" ::
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 DisassociateMemberAccount where
toJSON :: DisassociateMemberAccount -> Value
toJSON DisassociateMemberAccount' {Text
memberAccountId :: Text
$sel:memberAccountId:DisassociateMemberAccount' :: DisassociateMemberAccount -> 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 DisassociateMemberAccount where
toPath :: DisassociateMemberAccount -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery DisassociateMemberAccount where
toQuery :: DisassociateMemberAccount -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DisassociateMemberAccountResponse = DisassociateMemberAccountResponse'
{
}
deriving (DisassociateMemberAccountResponse
-> DisassociateMemberAccountResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DisassociateMemberAccountResponse
-> DisassociateMemberAccountResponse -> Bool
$c/= :: DisassociateMemberAccountResponse
-> DisassociateMemberAccountResponse -> Bool
== :: DisassociateMemberAccountResponse
-> DisassociateMemberAccountResponse -> Bool
$c== :: DisassociateMemberAccountResponse
-> DisassociateMemberAccountResponse -> Bool
Prelude.Eq, ReadPrec [DisassociateMemberAccountResponse]
ReadPrec DisassociateMemberAccountResponse
Int -> ReadS DisassociateMemberAccountResponse
ReadS [DisassociateMemberAccountResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DisassociateMemberAccountResponse]
$creadListPrec :: ReadPrec [DisassociateMemberAccountResponse]
readPrec :: ReadPrec DisassociateMemberAccountResponse
$creadPrec :: ReadPrec DisassociateMemberAccountResponse
readList :: ReadS [DisassociateMemberAccountResponse]
$creadList :: ReadS [DisassociateMemberAccountResponse]
readsPrec :: Int -> ReadS DisassociateMemberAccountResponse
$creadsPrec :: Int -> ReadS DisassociateMemberAccountResponse
Prelude.Read, Int -> DisassociateMemberAccountResponse -> ShowS
[DisassociateMemberAccountResponse] -> ShowS
DisassociateMemberAccountResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DisassociateMemberAccountResponse] -> ShowS
$cshowList :: [DisassociateMemberAccountResponse] -> ShowS
show :: DisassociateMemberAccountResponse -> String
$cshow :: DisassociateMemberAccountResponse -> String
showsPrec :: Int -> DisassociateMemberAccountResponse -> ShowS
$cshowsPrec :: Int -> DisassociateMemberAccountResponse -> ShowS
Prelude.Show, forall x.
Rep DisassociateMemberAccountResponse x
-> DisassociateMemberAccountResponse
forall x.
DisassociateMemberAccountResponse
-> Rep DisassociateMemberAccountResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DisassociateMemberAccountResponse x
-> DisassociateMemberAccountResponse
$cfrom :: forall x.
DisassociateMemberAccountResponse
-> Rep DisassociateMemberAccountResponse x
Prelude.Generic)
newDisassociateMemberAccountResponse ::
DisassociateMemberAccountResponse
newDisassociateMemberAccountResponse :: DisassociateMemberAccountResponse
newDisassociateMemberAccountResponse =
DisassociateMemberAccountResponse
DisassociateMemberAccountResponse'
instance
Prelude.NFData
DisassociateMemberAccountResponse
where
rnf :: DisassociateMemberAccountResponse -> ()
rnf DisassociateMemberAccountResponse
_ = ()