{-# 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.GetNetworkInsightsAccessScopeContent
(
GetNetworkInsightsAccessScopeContent (..),
newGetNetworkInsightsAccessScopeContent,
getNetworkInsightsAccessScopeContent_dryRun,
getNetworkInsightsAccessScopeContent_networkInsightsAccessScopeId,
GetNetworkInsightsAccessScopeContentResponse (..),
newGetNetworkInsightsAccessScopeContentResponse,
getNetworkInsightsAccessScopeContentResponse_networkInsightsAccessScopeContent,
getNetworkInsightsAccessScopeContentResponse_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 GetNetworkInsightsAccessScopeContent = GetNetworkInsightsAccessScopeContent'
{
GetNetworkInsightsAccessScopeContent -> Maybe Bool
dryRun :: Prelude.Maybe Prelude.Bool,
GetNetworkInsightsAccessScopeContent -> Text
networkInsightsAccessScopeId :: Prelude.Text
}
deriving (GetNetworkInsightsAccessScopeContent
-> GetNetworkInsightsAccessScopeContent -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetNetworkInsightsAccessScopeContent
-> GetNetworkInsightsAccessScopeContent -> Bool
$c/= :: GetNetworkInsightsAccessScopeContent
-> GetNetworkInsightsAccessScopeContent -> Bool
== :: GetNetworkInsightsAccessScopeContent
-> GetNetworkInsightsAccessScopeContent -> Bool
$c== :: GetNetworkInsightsAccessScopeContent
-> GetNetworkInsightsAccessScopeContent -> Bool
Prelude.Eq, ReadPrec [GetNetworkInsightsAccessScopeContent]
ReadPrec GetNetworkInsightsAccessScopeContent
Int -> ReadS GetNetworkInsightsAccessScopeContent
ReadS [GetNetworkInsightsAccessScopeContent]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetNetworkInsightsAccessScopeContent]
$creadListPrec :: ReadPrec [GetNetworkInsightsAccessScopeContent]
readPrec :: ReadPrec GetNetworkInsightsAccessScopeContent
$creadPrec :: ReadPrec GetNetworkInsightsAccessScopeContent
readList :: ReadS [GetNetworkInsightsAccessScopeContent]
$creadList :: ReadS [GetNetworkInsightsAccessScopeContent]
readsPrec :: Int -> ReadS GetNetworkInsightsAccessScopeContent
$creadsPrec :: Int -> ReadS GetNetworkInsightsAccessScopeContent
Prelude.Read, Int -> GetNetworkInsightsAccessScopeContent -> ShowS
[GetNetworkInsightsAccessScopeContent] -> ShowS
GetNetworkInsightsAccessScopeContent -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetNetworkInsightsAccessScopeContent] -> ShowS
$cshowList :: [GetNetworkInsightsAccessScopeContent] -> ShowS
show :: GetNetworkInsightsAccessScopeContent -> String
$cshow :: GetNetworkInsightsAccessScopeContent -> String
showsPrec :: Int -> GetNetworkInsightsAccessScopeContent -> ShowS
$cshowsPrec :: Int -> GetNetworkInsightsAccessScopeContent -> ShowS
Prelude.Show, forall x.
Rep GetNetworkInsightsAccessScopeContent x
-> GetNetworkInsightsAccessScopeContent
forall x.
GetNetworkInsightsAccessScopeContent
-> Rep GetNetworkInsightsAccessScopeContent x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep GetNetworkInsightsAccessScopeContent x
-> GetNetworkInsightsAccessScopeContent
$cfrom :: forall x.
GetNetworkInsightsAccessScopeContent
-> Rep GetNetworkInsightsAccessScopeContent x
Prelude.Generic)
newGetNetworkInsightsAccessScopeContent ::
Prelude.Text ->
GetNetworkInsightsAccessScopeContent
newGetNetworkInsightsAccessScopeContent :: Text -> GetNetworkInsightsAccessScopeContent
newGetNetworkInsightsAccessScopeContent
Text
pNetworkInsightsAccessScopeId_ =
GetNetworkInsightsAccessScopeContent'
{ $sel:dryRun:GetNetworkInsightsAccessScopeContent' :: Maybe Bool
dryRun =
forall a. Maybe a
Prelude.Nothing,
$sel:networkInsightsAccessScopeId:GetNetworkInsightsAccessScopeContent' :: Text
networkInsightsAccessScopeId =
Text
pNetworkInsightsAccessScopeId_
}
getNetworkInsightsAccessScopeContent_dryRun :: Lens.Lens' GetNetworkInsightsAccessScopeContent (Prelude.Maybe Prelude.Bool)
getNetworkInsightsAccessScopeContent_dryRun :: Lens' GetNetworkInsightsAccessScopeContent (Maybe Bool)
getNetworkInsightsAccessScopeContent_dryRun = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetNetworkInsightsAccessScopeContent' {Maybe Bool
dryRun :: Maybe Bool
$sel:dryRun:GetNetworkInsightsAccessScopeContent' :: GetNetworkInsightsAccessScopeContent -> Maybe Bool
dryRun} -> Maybe Bool
dryRun) (\s :: GetNetworkInsightsAccessScopeContent
s@GetNetworkInsightsAccessScopeContent' {} Maybe Bool
a -> GetNetworkInsightsAccessScopeContent
s {$sel:dryRun:GetNetworkInsightsAccessScopeContent' :: Maybe Bool
dryRun = Maybe Bool
a} :: GetNetworkInsightsAccessScopeContent)
getNetworkInsightsAccessScopeContent_networkInsightsAccessScopeId :: Lens.Lens' GetNetworkInsightsAccessScopeContent Prelude.Text
getNetworkInsightsAccessScopeContent_networkInsightsAccessScopeId :: Lens' GetNetworkInsightsAccessScopeContent Text
getNetworkInsightsAccessScopeContent_networkInsightsAccessScopeId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetNetworkInsightsAccessScopeContent' {Text
networkInsightsAccessScopeId :: Text
$sel:networkInsightsAccessScopeId:GetNetworkInsightsAccessScopeContent' :: GetNetworkInsightsAccessScopeContent -> Text
networkInsightsAccessScopeId} -> Text
networkInsightsAccessScopeId) (\s :: GetNetworkInsightsAccessScopeContent
s@GetNetworkInsightsAccessScopeContent' {} Text
a -> GetNetworkInsightsAccessScopeContent
s {$sel:networkInsightsAccessScopeId:GetNetworkInsightsAccessScopeContent' :: Text
networkInsightsAccessScopeId = Text
a} :: GetNetworkInsightsAccessScopeContent)
instance
Core.AWSRequest
GetNetworkInsightsAccessScopeContent
where
type
AWSResponse GetNetworkInsightsAccessScopeContent =
GetNetworkInsightsAccessScopeContentResponse
request :: (Service -> Service)
-> GetNetworkInsightsAccessScopeContent
-> Request GetNetworkInsightsAccessScopeContent
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 GetNetworkInsightsAccessScopeContent
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse
(AWSResponse GetNetworkInsightsAccessScopeContent)))
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 NetworkInsightsAccessScopeContent
-> Int -> GetNetworkInsightsAccessScopeContentResponse
GetNetworkInsightsAccessScopeContentResponse'
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
"networkInsightsAccessScopeContent")
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
GetNetworkInsightsAccessScopeContent
where
hashWithSalt :: Int -> GetNetworkInsightsAccessScopeContent -> Int
hashWithSalt
Int
_salt
GetNetworkInsightsAccessScopeContent' {Maybe Bool
Text
networkInsightsAccessScopeId :: Text
dryRun :: Maybe Bool
$sel:networkInsightsAccessScopeId:GetNetworkInsightsAccessScopeContent' :: GetNetworkInsightsAccessScopeContent -> Text
$sel:dryRun:GetNetworkInsightsAccessScopeContent' :: GetNetworkInsightsAccessScopeContent -> 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
networkInsightsAccessScopeId
instance
Prelude.NFData
GetNetworkInsightsAccessScopeContent
where
rnf :: GetNetworkInsightsAccessScopeContent -> ()
rnf GetNetworkInsightsAccessScopeContent' {Maybe Bool
Text
networkInsightsAccessScopeId :: Text
dryRun :: Maybe Bool
$sel:networkInsightsAccessScopeId:GetNetworkInsightsAccessScopeContent' :: GetNetworkInsightsAccessScopeContent -> Text
$sel:dryRun:GetNetworkInsightsAccessScopeContent' :: GetNetworkInsightsAccessScopeContent -> 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
networkInsightsAccessScopeId
instance
Data.ToHeaders
GetNetworkInsightsAccessScopeContent
where
toHeaders :: GetNetworkInsightsAccessScopeContent -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance
Data.ToPath
GetNetworkInsightsAccessScopeContent
where
toPath :: GetNetworkInsightsAccessScopeContent -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance
Data.ToQuery
GetNetworkInsightsAccessScopeContent
where
toQuery :: GetNetworkInsightsAccessScopeContent -> QueryString
toQuery GetNetworkInsightsAccessScopeContent' {Maybe Bool
Text
networkInsightsAccessScopeId :: Text
dryRun :: Maybe Bool
$sel:networkInsightsAccessScopeId:GetNetworkInsightsAccessScopeContent' :: GetNetworkInsightsAccessScopeContent -> Text
$sel:dryRun:GetNetworkInsightsAccessScopeContent' :: GetNetworkInsightsAccessScopeContent -> Maybe Bool
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"Action"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: ( ByteString
"GetNetworkInsightsAccessScopeContent" ::
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
"NetworkInsightsAccessScopeId"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
networkInsightsAccessScopeId
]
data GetNetworkInsightsAccessScopeContentResponse = GetNetworkInsightsAccessScopeContentResponse'
{
GetNetworkInsightsAccessScopeContentResponse
-> Maybe NetworkInsightsAccessScopeContent
networkInsightsAccessScopeContent :: Prelude.Maybe NetworkInsightsAccessScopeContent,
GetNetworkInsightsAccessScopeContentResponse -> Int
httpStatus :: Prelude.Int
}
deriving (GetNetworkInsightsAccessScopeContentResponse
-> GetNetworkInsightsAccessScopeContentResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetNetworkInsightsAccessScopeContentResponse
-> GetNetworkInsightsAccessScopeContentResponse -> Bool
$c/= :: GetNetworkInsightsAccessScopeContentResponse
-> GetNetworkInsightsAccessScopeContentResponse -> Bool
== :: GetNetworkInsightsAccessScopeContentResponse
-> GetNetworkInsightsAccessScopeContentResponse -> Bool
$c== :: GetNetworkInsightsAccessScopeContentResponse
-> GetNetworkInsightsAccessScopeContentResponse -> Bool
Prelude.Eq, ReadPrec [GetNetworkInsightsAccessScopeContentResponse]
ReadPrec GetNetworkInsightsAccessScopeContentResponse
Int -> ReadS GetNetworkInsightsAccessScopeContentResponse
ReadS [GetNetworkInsightsAccessScopeContentResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetNetworkInsightsAccessScopeContentResponse]
$creadListPrec :: ReadPrec [GetNetworkInsightsAccessScopeContentResponse]
readPrec :: ReadPrec GetNetworkInsightsAccessScopeContentResponse
$creadPrec :: ReadPrec GetNetworkInsightsAccessScopeContentResponse
readList :: ReadS [GetNetworkInsightsAccessScopeContentResponse]
$creadList :: ReadS [GetNetworkInsightsAccessScopeContentResponse]
readsPrec :: Int -> ReadS GetNetworkInsightsAccessScopeContentResponse
$creadsPrec :: Int -> ReadS GetNetworkInsightsAccessScopeContentResponse
Prelude.Read, Int -> GetNetworkInsightsAccessScopeContentResponse -> ShowS
[GetNetworkInsightsAccessScopeContentResponse] -> ShowS
GetNetworkInsightsAccessScopeContentResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetNetworkInsightsAccessScopeContentResponse] -> ShowS
$cshowList :: [GetNetworkInsightsAccessScopeContentResponse] -> ShowS
show :: GetNetworkInsightsAccessScopeContentResponse -> String
$cshow :: GetNetworkInsightsAccessScopeContentResponse -> String
showsPrec :: Int -> GetNetworkInsightsAccessScopeContentResponse -> ShowS
$cshowsPrec :: Int -> GetNetworkInsightsAccessScopeContentResponse -> ShowS
Prelude.Show, forall x.
Rep GetNetworkInsightsAccessScopeContentResponse x
-> GetNetworkInsightsAccessScopeContentResponse
forall x.
GetNetworkInsightsAccessScopeContentResponse
-> Rep GetNetworkInsightsAccessScopeContentResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep GetNetworkInsightsAccessScopeContentResponse x
-> GetNetworkInsightsAccessScopeContentResponse
$cfrom :: forall x.
GetNetworkInsightsAccessScopeContentResponse
-> Rep GetNetworkInsightsAccessScopeContentResponse x
Prelude.Generic)
newGetNetworkInsightsAccessScopeContentResponse ::
Prelude.Int ->
GetNetworkInsightsAccessScopeContentResponse
newGetNetworkInsightsAccessScopeContentResponse :: Int -> GetNetworkInsightsAccessScopeContentResponse
newGetNetworkInsightsAccessScopeContentResponse
Int
pHttpStatus_ =
GetNetworkInsightsAccessScopeContentResponse'
{ $sel:networkInsightsAccessScopeContent:GetNetworkInsightsAccessScopeContentResponse' :: Maybe NetworkInsightsAccessScopeContent
networkInsightsAccessScopeContent =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:GetNetworkInsightsAccessScopeContentResponse' :: Int
httpStatus = Int
pHttpStatus_
}
getNetworkInsightsAccessScopeContentResponse_networkInsightsAccessScopeContent :: Lens.Lens' GetNetworkInsightsAccessScopeContentResponse (Prelude.Maybe NetworkInsightsAccessScopeContent)
getNetworkInsightsAccessScopeContentResponse_networkInsightsAccessScopeContent :: Lens'
GetNetworkInsightsAccessScopeContentResponse
(Maybe NetworkInsightsAccessScopeContent)
getNetworkInsightsAccessScopeContentResponse_networkInsightsAccessScopeContent = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetNetworkInsightsAccessScopeContentResponse' {Maybe NetworkInsightsAccessScopeContent
networkInsightsAccessScopeContent :: Maybe NetworkInsightsAccessScopeContent
$sel:networkInsightsAccessScopeContent:GetNetworkInsightsAccessScopeContentResponse' :: GetNetworkInsightsAccessScopeContentResponse
-> Maybe NetworkInsightsAccessScopeContent
networkInsightsAccessScopeContent} -> Maybe NetworkInsightsAccessScopeContent
networkInsightsAccessScopeContent) (\s :: GetNetworkInsightsAccessScopeContentResponse
s@GetNetworkInsightsAccessScopeContentResponse' {} Maybe NetworkInsightsAccessScopeContent
a -> GetNetworkInsightsAccessScopeContentResponse
s {$sel:networkInsightsAccessScopeContent:GetNetworkInsightsAccessScopeContentResponse' :: Maybe NetworkInsightsAccessScopeContent
networkInsightsAccessScopeContent = Maybe NetworkInsightsAccessScopeContent
a} :: GetNetworkInsightsAccessScopeContentResponse)
getNetworkInsightsAccessScopeContentResponse_httpStatus :: Lens.Lens' GetNetworkInsightsAccessScopeContentResponse Prelude.Int
getNetworkInsightsAccessScopeContentResponse_httpStatus :: Lens' GetNetworkInsightsAccessScopeContentResponse Int
getNetworkInsightsAccessScopeContentResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetNetworkInsightsAccessScopeContentResponse' {Int
httpStatus :: Int
$sel:httpStatus:GetNetworkInsightsAccessScopeContentResponse' :: GetNetworkInsightsAccessScopeContentResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: GetNetworkInsightsAccessScopeContentResponse
s@GetNetworkInsightsAccessScopeContentResponse' {} Int
a -> GetNetworkInsightsAccessScopeContentResponse
s {$sel:httpStatus:GetNetworkInsightsAccessScopeContentResponse' :: Int
httpStatus = Int
a} :: GetNetworkInsightsAccessScopeContentResponse)
instance
Prelude.NFData
GetNetworkInsightsAccessScopeContentResponse
where
rnf :: GetNetworkInsightsAccessScopeContentResponse -> ()
rnf GetNetworkInsightsAccessScopeContentResponse' {Int
Maybe NetworkInsightsAccessScopeContent
httpStatus :: Int
networkInsightsAccessScopeContent :: Maybe NetworkInsightsAccessScopeContent
$sel:httpStatus:GetNetworkInsightsAccessScopeContentResponse' :: GetNetworkInsightsAccessScopeContentResponse -> Int
$sel:networkInsightsAccessScopeContent:GetNetworkInsightsAccessScopeContentResponse' :: GetNetworkInsightsAccessScopeContentResponse
-> Maybe NetworkInsightsAccessScopeContent
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe NetworkInsightsAccessScopeContent
networkInsightsAccessScopeContent
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus