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