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