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