{-# 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.EC2.DeleteNetworkInsightsAnalysis
(
DeleteNetworkInsightsAnalysis (..),
newDeleteNetworkInsightsAnalysis,
deleteNetworkInsightsAnalysis_dryRun,
deleteNetworkInsightsAnalysis_networkInsightsAnalysisId,
DeleteNetworkInsightsAnalysisResponse (..),
newDeleteNetworkInsightsAnalysisResponse,
deleteNetworkInsightsAnalysisResponse_networkInsightsAnalysisId,
deleteNetworkInsightsAnalysisResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.EC2.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data DeleteNetworkInsightsAnalysis = DeleteNetworkInsightsAnalysis'
{
DeleteNetworkInsightsAnalysis -> Maybe Bool
dryRun :: Prelude.Maybe Prelude.Bool,
DeleteNetworkInsightsAnalysis -> Text
networkInsightsAnalysisId :: Prelude.Text
}
deriving (DeleteNetworkInsightsAnalysis
-> DeleteNetworkInsightsAnalysis -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteNetworkInsightsAnalysis
-> DeleteNetworkInsightsAnalysis -> Bool
$c/= :: DeleteNetworkInsightsAnalysis
-> DeleteNetworkInsightsAnalysis -> Bool
== :: DeleteNetworkInsightsAnalysis
-> DeleteNetworkInsightsAnalysis -> Bool
$c== :: DeleteNetworkInsightsAnalysis
-> DeleteNetworkInsightsAnalysis -> Bool
Prelude.Eq, ReadPrec [DeleteNetworkInsightsAnalysis]
ReadPrec DeleteNetworkInsightsAnalysis
Int -> ReadS DeleteNetworkInsightsAnalysis
ReadS [DeleteNetworkInsightsAnalysis]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteNetworkInsightsAnalysis]
$creadListPrec :: ReadPrec [DeleteNetworkInsightsAnalysis]
readPrec :: ReadPrec DeleteNetworkInsightsAnalysis
$creadPrec :: ReadPrec DeleteNetworkInsightsAnalysis
readList :: ReadS [DeleteNetworkInsightsAnalysis]
$creadList :: ReadS [DeleteNetworkInsightsAnalysis]
readsPrec :: Int -> ReadS DeleteNetworkInsightsAnalysis
$creadsPrec :: Int -> ReadS DeleteNetworkInsightsAnalysis
Prelude.Read, Int -> DeleteNetworkInsightsAnalysis -> ShowS
[DeleteNetworkInsightsAnalysis] -> ShowS
DeleteNetworkInsightsAnalysis -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteNetworkInsightsAnalysis] -> ShowS
$cshowList :: [DeleteNetworkInsightsAnalysis] -> ShowS
show :: DeleteNetworkInsightsAnalysis -> String
$cshow :: DeleteNetworkInsightsAnalysis -> String
showsPrec :: Int -> DeleteNetworkInsightsAnalysis -> ShowS
$cshowsPrec :: Int -> DeleteNetworkInsightsAnalysis -> ShowS
Prelude.Show, forall x.
Rep DeleteNetworkInsightsAnalysis x
-> DeleteNetworkInsightsAnalysis
forall x.
DeleteNetworkInsightsAnalysis
-> Rep DeleteNetworkInsightsAnalysis x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeleteNetworkInsightsAnalysis x
-> DeleteNetworkInsightsAnalysis
$cfrom :: forall x.
DeleteNetworkInsightsAnalysis
-> Rep DeleteNetworkInsightsAnalysis x
Prelude.Generic)
newDeleteNetworkInsightsAnalysis ::
Prelude.Text ->
DeleteNetworkInsightsAnalysis
newDeleteNetworkInsightsAnalysis :: Text -> DeleteNetworkInsightsAnalysis
newDeleteNetworkInsightsAnalysis
Text
pNetworkInsightsAnalysisId_ =
DeleteNetworkInsightsAnalysis'
{ $sel:dryRun:DeleteNetworkInsightsAnalysis' :: Maybe Bool
dryRun =
forall a. Maybe a
Prelude.Nothing,
$sel:networkInsightsAnalysisId:DeleteNetworkInsightsAnalysis' :: Text
networkInsightsAnalysisId =
Text
pNetworkInsightsAnalysisId_
}
deleteNetworkInsightsAnalysis_dryRun :: Lens.Lens' DeleteNetworkInsightsAnalysis (Prelude.Maybe Prelude.Bool)
deleteNetworkInsightsAnalysis_dryRun :: Lens' DeleteNetworkInsightsAnalysis (Maybe Bool)
deleteNetworkInsightsAnalysis_dryRun = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteNetworkInsightsAnalysis' {Maybe Bool
dryRun :: Maybe Bool
$sel:dryRun:DeleteNetworkInsightsAnalysis' :: DeleteNetworkInsightsAnalysis -> Maybe Bool
dryRun} -> Maybe Bool
dryRun) (\s :: DeleteNetworkInsightsAnalysis
s@DeleteNetworkInsightsAnalysis' {} Maybe Bool
a -> DeleteNetworkInsightsAnalysis
s {$sel:dryRun:DeleteNetworkInsightsAnalysis' :: Maybe Bool
dryRun = Maybe Bool
a} :: DeleteNetworkInsightsAnalysis)
deleteNetworkInsightsAnalysis_networkInsightsAnalysisId :: Lens.Lens' DeleteNetworkInsightsAnalysis Prelude.Text
deleteNetworkInsightsAnalysis_networkInsightsAnalysisId :: Lens' DeleteNetworkInsightsAnalysis Text
deleteNetworkInsightsAnalysis_networkInsightsAnalysisId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteNetworkInsightsAnalysis' {Text
networkInsightsAnalysisId :: Text
$sel:networkInsightsAnalysisId:DeleteNetworkInsightsAnalysis' :: DeleteNetworkInsightsAnalysis -> Text
networkInsightsAnalysisId} -> Text
networkInsightsAnalysisId) (\s :: DeleteNetworkInsightsAnalysis
s@DeleteNetworkInsightsAnalysis' {} Text
a -> DeleteNetworkInsightsAnalysis
s {$sel:networkInsightsAnalysisId:DeleteNetworkInsightsAnalysis' :: Text
networkInsightsAnalysisId = Text
a} :: DeleteNetworkInsightsAnalysis)
instance
Core.AWSRequest
DeleteNetworkInsightsAnalysis
where
type
AWSResponse DeleteNetworkInsightsAnalysis =
DeleteNetworkInsightsAnalysisResponse
request :: (Service -> Service)
-> DeleteNetworkInsightsAnalysis
-> Request DeleteNetworkInsightsAnalysis
request Service -> Service
overrides =
forall a. ToRequest a => Service -> a -> Request a
Request.postQuery (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy DeleteNetworkInsightsAnalysis
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse DeleteNetworkInsightsAnalysis)))
response =
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> [Node] -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveXML
( \Int
s ResponseHeaders
h [Node]
x ->
Maybe Text -> Int -> DeleteNetworkInsightsAnalysisResponse
DeleteNetworkInsightsAnalysisResponse'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> ([Node]
x forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"networkInsightsAnalysisId")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
)
instance
Prelude.Hashable
DeleteNetworkInsightsAnalysis
where
hashWithSalt :: Int -> DeleteNetworkInsightsAnalysis -> Int
hashWithSalt Int
_salt DeleteNetworkInsightsAnalysis' {Maybe Bool
Text
networkInsightsAnalysisId :: Text
dryRun :: Maybe Bool
$sel:networkInsightsAnalysisId:DeleteNetworkInsightsAnalysis' :: DeleteNetworkInsightsAnalysis -> Text
$sel:dryRun:DeleteNetworkInsightsAnalysis' :: DeleteNetworkInsightsAnalysis -> Maybe Bool
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
dryRun
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
networkInsightsAnalysisId
instance Prelude.NFData DeleteNetworkInsightsAnalysis where
rnf :: DeleteNetworkInsightsAnalysis -> ()
rnf DeleteNetworkInsightsAnalysis' {Maybe Bool
Text
networkInsightsAnalysisId :: Text
dryRun :: Maybe Bool
$sel:networkInsightsAnalysisId:DeleteNetworkInsightsAnalysis' :: DeleteNetworkInsightsAnalysis -> Text
$sel:dryRun:DeleteNetworkInsightsAnalysis' :: DeleteNetworkInsightsAnalysis -> Maybe Bool
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
dryRun
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
networkInsightsAnalysisId
instance Data.ToHeaders DeleteNetworkInsightsAnalysis where
toHeaders :: DeleteNetworkInsightsAnalysis -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToPath DeleteNetworkInsightsAnalysis where
toPath :: DeleteNetworkInsightsAnalysis -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery DeleteNetworkInsightsAnalysis where
toQuery :: DeleteNetworkInsightsAnalysis -> QueryString
toQuery DeleteNetworkInsightsAnalysis' {Maybe Bool
Text
networkInsightsAnalysisId :: Text
dryRun :: Maybe Bool
$sel:networkInsightsAnalysisId:DeleteNetworkInsightsAnalysis' :: DeleteNetworkInsightsAnalysis -> Text
$sel:dryRun:DeleteNetworkInsightsAnalysis' :: DeleteNetworkInsightsAnalysis -> Maybe Bool
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"Action"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: ( ByteString
"DeleteNetworkInsightsAnalysis" ::
Prelude.ByteString
),
ByteString
"Version"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"2016-11-15" :: Prelude.ByteString),
ByteString
"DryRun" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Bool
dryRun,
ByteString
"NetworkInsightsAnalysisId"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
networkInsightsAnalysisId
]
data DeleteNetworkInsightsAnalysisResponse = DeleteNetworkInsightsAnalysisResponse'
{
DeleteNetworkInsightsAnalysisResponse -> Maybe Text
networkInsightsAnalysisId :: Prelude.Maybe Prelude.Text,
DeleteNetworkInsightsAnalysisResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DeleteNetworkInsightsAnalysisResponse
-> DeleteNetworkInsightsAnalysisResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteNetworkInsightsAnalysisResponse
-> DeleteNetworkInsightsAnalysisResponse -> Bool
$c/= :: DeleteNetworkInsightsAnalysisResponse
-> DeleteNetworkInsightsAnalysisResponse -> Bool
== :: DeleteNetworkInsightsAnalysisResponse
-> DeleteNetworkInsightsAnalysisResponse -> Bool
$c== :: DeleteNetworkInsightsAnalysisResponse
-> DeleteNetworkInsightsAnalysisResponse -> Bool
Prelude.Eq, ReadPrec [DeleteNetworkInsightsAnalysisResponse]
ReadPrec DeleteNetworkInsightsAnalysisResponse
Int -> ReadS DeleteNetworkInsightsAnalysisResponse
ReadS [DeleteNetworkInsightsAnalysisResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteNetworkInsightsAnalysisResponse]
$creadListPrec :: ReadPrec [DeleteNetworkInsightsAnalysisResponse]
readPrec :: ReadPrec DeleteNetworkInsightsAnalysisResponse
$creadPrec :: ReadPrec DeleteNetworkInsightsAnalysisResponse
readList :: ReadS [DeleteNetworkInsightsAnalysisResponse]
$creadList :: ReadS [DeleteNetworkInsightsAnalysisResponse]
readsPrec :: Int -> ReadS DeleteNetworkInsightsAnalysisResponse
$creadsPrec :: Int -> ReadS DeleteNetworkInsightsAnalysisResponse
Prelude.Read, Int -> DeleteNetworkInsightsAnalysisResponse -> ShowS
[DeleteNetworkInsightsAnalysisResponse] -> ShowS
DeleteNetworkInsightsAnalysisResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteNetworkInsightsAnalysisResponse] -> ShowS
$cshowList :: [DeleteNetworkInsightsAnalysisResponse] -> ShowS
show :: DeleteNetworkInsightsAnalysisResponse -> String
$cshow :: DeleteNetworkInsightsAnalysisResponse -> String
showsPrec :: Int -> DeleteNetworkInsightsAnalysisResponse -> ShowS
$cshowsPrec :: Int -> DeleteNetworkInsightsAnalysisResponse -> ShowS
Prelude.Show, forall x.
Rep DeleteNetworkInsightsAnalysisResponse x
-> DeleteNetworkInsightsAnalysisResponse
forall x.
DeleteNetworkInsightsAnalysisResponse
-> Rep DeleteNetworkInsightsAnalysisResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeleteNetworkInsightsAnalysisResponse x
-> DeleteNetworkInsightsAnalysisResponse
$cfrom :: forall x.
DeleteNetworkInsightsAnalysisResponse
-> Rep DeleteNetworkInsightsAnalysisResponse x
Prelude.Generic)
newDeleteNetworkInsightsAnalysisResponse ::
Prelude.Int ->
DeleteNetworkInsightsAnalysisResponse
newDeleteNetworkInsightsAnalysisResponse :: Int -> DeleteNetworkInsightsAnalysisResponse
newDeleteNetworkInsightsAnalysisResponse Int
pHttpStatus_ =
DeleteNetworkInsightsAnalysisResponse'
{ $sel:networkInsightsAnalysisId:DeleteNetworkInsightsAnalysisResponse' :: Maybe Text
networkInsightsAnalysisId =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:DeleteNetworkInsightsAnalysisResponse' :: Int
httpStatus = Int
pHttpStatus_
}
deleteNetworkInsightsAnalysisResponse_networkInsightsAnalysisId :: Lens.Lens' DeleteNetworkInsightsAnalysisResponse (Prelude.Maybe Prelude.Text)
deleteNetworkInsightsAnalysisResponse_networkInsightsAnalysisId :: Lens' DeleteNetworkInsightsAnalysisResponse (Maybe Text)
deleteNetworkInsightsAnalysisResponse_networkInsightsAnalysisId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteNetworkInsightsAnalysisResponse' {Maybe Text
networkInsightsAnalysisId :: Maybe Text
$sel:networkInsightsAnalysisId:DeleteNetworkInsightsAnalysisResponse' :: DeleteNetworkInsightsAnalysisResponse -> Maybe Text
networkInsightsAnalysisId} -> Maybe Text
networkInsightsAnalysisId) (\s :: DeleteNetworkInsightsAnalysisResponse
s@DeleteNetworkInsightsAnalysisResponse' {} Maybe Text
a -> DeleteNetworkInsightsAnalysisResponse
s {$sel:networkInsightsAnalysisId:DeleteNetworkInsightsAnalysisResponse' :: Maybe Text
networkInsightsAnalysisId = Maybe Text
a} :: DeleteNetworkInsightsAnalysisResponse)
deleteNetworkInsightsAnalysisResponse_httpStatus :: Lens.Lens' DeleteNetworkInsightsAnalysisResponse Prelude.Int
deleteNetworkInsightsAnalysisResponse_httpStatus :: Lens' DeleteNetworkInsightsAnalysisResponse Int
deleteNetworkInsightsAnalysisResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteNetworkInsightsAnalysisResponse' {Int
httpStatus :: Int
$sel:httpStatus:DeleteNetworkInsightsAnalysisResponse' :: DeleteNetworkInsightsAnalysisResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DeleteNetworkInsightsAnalysisResponse
s@DeleteNetworkInsightsAnalysisResponse' {} Int
a -> DeleteNetworkInsightsAnalysisResponse
s {$sel:httpStatus:DeleteNetworkInsightsAnalysisResponse' :: Int
httpStatus = Int
a} :: DeleteNetworkInsightsAnalysisResponse)
instance
Prelude.NFData
DeleteNetworkInsightsAnalysisResponse
where
rnf :: DeleteNetworkInsightsAnalysisResponse -> ()
rnf DeleteNetworkInsightsAnalysisResponse' {Int
Maybe Text
httpStatus :: Int
networkInsightsAnalysisId :: Maybe Text
$sel:httpStatus:DeleteNetworkInsightsAnalysisResponse' :: DeleteNetworkInsightsAnalysisResponse -> Int
$sel:networkInsightsAnalysisId:DeleteNetworkInsightsAnalysisResponse' :: DeleteNetworkInsightsAnalysisResponse -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
networkInsightsAnalysisId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus