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