{-# 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.CreateTrafficMirrorFilterRule
(
CreateTrafficMirrorFilterRule (..),
newCreateTrafficMirrorFilterRule,
createTrafficMirrorFilterRule_clientToken,
createTrafficMirrorFilterRule_description,
createTrafficMirrorFilterRule_destinationPortRange,
createTrafficMirrorFilterRule_dryRun,
createTrafficMirrorFilterRule_protocol,
createTrafficMirrorFilterRule_sourcePortRange,
createTrafficMirrorFilterRule_trafficMirrorFilterId,
createTrafficMirrorFilterRule_trafficDirection,
createTrafficMirrorFilterRule_ruleNumber,
createTrafficMirrorFilterRule_ruleAction,
createTrafficMirrorFilterRule_destinationCidrBlock,
createTrafficMirrorFilterRule_sourceCidrBlock,
CreateTrafficMirrorFilterRuleResponse (..),
newCreateTrafficMirrorFilterRuleResponse,
createTrafficMirrorFilterRuleResponse_clientToken,
createTrafficMirrorFilterRuleResponse_trafficMirrorFilterRule,
createTrafficMirrorFilterRuleResponse_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 CreateTrafficMirrorFilterRule = CreateTrafficMirrorFilterRule'
{
CreateTrafficMirrorFilterRule -> Maybe Text
clientToken :: Prelude.Maybe Prelude.Text,
CreateTrafficMirrorFilterRule -> Maybe Text
description :: Prelude.Maybe Prelude.Text,
CreateTrafficMirrorFilterRule
-> Maybe TrafficMirrorPortRangeRequest
destinationPortRange :: Prelude.Maybe TrafficMirrorPortRangeRequest,
CreateTrafficMirrorFilterRule -> Maybe Bool
dryRun :: Prelude.Maybe Prelude.Bool,
CreateTrafficMirrorFilterRule -> Maybe Int
protocol :: Prelude.Maybe Prelude.Int,
CreateTrafficMirrorFilterRule
-> Maybe TrafficMirrorPortRangeRequest
sourcePortRange :: Prelude.Maybe TrafficMirrorPortRangeRequest,
CreateTrafficMirrorFilterRule -> Text
trafficMirrorFilterId :: Prelude.Text,
CreateTrafficMirrorFilterRule -> TrafficDirection
trafficDirection :: TrafficDirection,
CreateTrafficMirrorFilterRule -> Int
ruleNumber :: Prelude.Int,
CreateTrafficMirrorFilterRule -> TrafficMirrorRuleAction
ruleAction :: TrafficMirrorRuleAction,
CreateTrafficMirrorFilterRule -> Text
destinationCidrBlock :: Prelude.Text,
CreateTrafficMirrorFilterRule -> Text
sourceCidrBlock :: Prelude.Text
}
deriving (CreateTrafficMirrorFilterRule
-> CreateTrafficMirrorFilterRule -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateTrafficMirrorFilterRule
-> CreateTrafficMirrorFilterRule -> Bool
$c/= :: CreateTrafficMirrorFilterRule
-> CreateTrafficMirrorFilterRule -> Bool
== :: CreateTrafficMirrorFilterRule
-> CreateTrafficMirrorFilterRule -> Bool
$c== :: CreateTrafficMirrorFilterRule
-> CreateTrafficMirrorFilterRule -> Bool
Prelude.Eq, ReadPrec [CreateTrafficMirrorFilterRule]
ReadPrec CreateTrafficMirrorFilterRule
Int -> ReadS CreateTrafficMirrorFilterRule
ReadS [CreateTrafficMirrorFilterRule]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateTrafficMirrorFilterRule]
$creadListPrec :: ReadPrec [CreateTrafficMirrorFilterRule]
readPrec :: ReadPrec CreateTrafficMirrorFilterRule
$creadPrec :: ReadPrec CreateTrafficMirrorFilterRule
readList :: ReadS [CreateTrafficMirrorFilterRule]
$creadList :: ReadS [CreateTrafficMirrorFilterRule]
readsPrec :: Int -> ReadS CreateTrafficMirrorFilterRule
$creadsPrec :: Int -> ReadS CreateTrafficMirrorFilterRule
Prelude.Read, Int -> CreateTrafficMirrorFilterRule -> ShowS
[CreateTrafficMirrorFilterRule] -> ShowS
CreateTrafficMirrorFilterRule -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateTrafficMirrorFilterRule] -> ShowS
$cshowList :: [CreateTrafficMirrorFilterRule] -> ShowS
show :: CreateTrafficMirrorFilterRule -> String
$cshow :: CreateTrafficMirrorFilterRule -> String
showsPrec :: Int -> CreateTrafficMirrorFilterRule -> ShowS
$cshowsPrec :: Int -> CreateTrafficMirrorFilterRule -> ShowS
Prelude.Show, forall x.
Rep CreateTrafficMirrorFilterRule x
-> CreateTrafficMirrorFilterRule
forall x.
CreateTrafficMirrorFilterRule
-> Rep CreateTrafficMirrorFilterRule x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep CreateTrafficMirrorFilterRule x
-> CreateTrafficMirrorFilterRule
$cfrom :: forall x.
CreateTrafficMirrorFilterRule
-> Rep CreateTrafficMirrorFilterRule x
Prelude.Generic)
newCreateTrafficMirrorFilterRule ::
Prelude.Text ->
TrafficDirection ->
Prelude.Int ->
TrafficMirrorRuleAction ->
Prelude.Text ->
Prelude.Text ->
CreateTrafficMirrorFilterRule
newCreateTrafficMirrorFilterRule :: Text
-> TrafficDirection
-> Int
-> TrafficMirrorRuleAction
-> Text
-> Text
-> CreateTrafficMirrorFilterRule
newCreateTrafficMirrorFilterRule
Text
pTrafficMirrorFilterId_
TrafficDirection
pTrafficDirection_
Int
pRuleNumber_
TrafficMirrorRuleAction
pRuleAction_
Text
pDestinationCidrBlock_
Text
pSourceCidrBlock_ =
CreateTrafficMirrorFilterRule'
{ $sel:clientToken:CreateTrafficMirrorFilterRule' :: Maybe Text
clientToken =
forall a. Maybe a
Prelude.Nothing,
$sel:description:CreateTrafficMirrorFilterRule' :: Maybe Text
description = forall a. Maybe a
Prelude.Nothing,
$sel:destinationPortRange:CreateTrafficMirrorFilterRule' :: Maybe TrafficMirrorPortRangeRequest
destinationPortRange = forall a. Maybe a
Prelude.Nothing,
$sel:dryRun:CreateTrafficMirrorFilterRule' :: Maybe Bool
dryRun = forall a. Maybe a
Prelude.Nothing,
$sel:protocol:CreateTrafficMirrorFilterRule' :: Maybe Int
protocol = forall a. Maybe a
Prelude.Nothing,
$sel:sourcePortRange:CreateTrafficMirrorFilterRule' :: Maybe TrafficMirrorPortRangeRequest
sourcePortRange = forall a. Maybe a
Prelude.Nothing,
$sel:trafficMirrorFilterId:CreateTrafficMirrorFilterRule' :: Text
trafficMirrorFilterId =
Text
pTrafficMirrorFilterId_,
$sel:trafficDirection:CreateTrafficMirrorFilterRule' :: TrafficDirection
trafficDirection = TrafficDirection
pTrafficDirection_,
$sel:ruleNumber:CreateTrafficMirrorFilterRule' :: Int
ruleNumber = Int
pRuleNumber_,
$sel:ruleAction:CreateTrafficMirrorFilterRule' :: TrafficMirrorRuleAction
ruleAction = TrafficMirrorRuleAction
pRuleAction_,
$sel:destinationCidrBlock:CreateTrafficMirrorFilterRule' :: Text
destinationCidrBlock =
Text
pDestinationCidrBlock_,
$sel:sourceCidrBlock:CreateTrafficMirrorFilterRule' :: Text
sourceCidrBlock = Text
pSourceCidrBlock_
}
createTrafficMirrorFilterRule_clientToken :: Lens.Lens' CreateTrafficMirrorFilterRule (Prelude.Maybe Prelude.Text)
createTrafficMirrorFilterRule_clientToken :: Lens' CreateTrafficMirrorFilterRule (Maybe Text)
createTrafficMirrorFilterRule_clientToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTrafficMirrorFilterRule' {Maybe Text
clientToken :: Maybe Text
$sel:clientToken:CreateTrafficMirrorFilterRule' :: CreateTrafficMirrorFilterRule -> Maybe Text
clientToken} -> Maybe Text
clientToken) (\s :: CreateTrafficMirrorFilterRule
s@CreateTrafficMirrorFilterRule' {} Maybe Text
a -> CreateTrafficMirrorFilterRule
s {$sel:clientToken:CreateTrafficMirrorFilterRule' :: Maybe Text
clientToken = Maybe Text
a} :: CreateTrafficMirrorFilterRule)
createTrafficMirrorFilterRule_description :: Lens.Lens' CreateTrafficMirrorFilterRule (Prelude.Maybe Prelude.Text)
createTrafficMirrorFilterRule_description :: Lens' CreateTrafficMirrorFilterRule (Maybe Text)
createTrafficMirrorFilterRule_description = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTrafficMirrorFilterRule' {Maybe Text
description :: Maybe Text
$sel:description:CreateTrafficMirrorFilterRule' :: CreateTrafficMirrorFilterRule -> Maybe Text
description} -> Maybe Text
description) (\s :: CreateTrafficMirrorFilterRule
s@CreateTrafficMirrorFilterRule' {} Maybe Text
a -> CreateTrafficMirrorFilterRule
s {$sel:description:CreateTrafficMirrorFilterRule' :: Maybe Text
description = Maybe Text
a} :: CreateTrafficMirrorFilterRule)
createTrafficMirrorFilterRule_destinationPortRange :: Lens.Lens' CreateTrafficMirrorFilterRule (Prelude.Maybe TrafficMirrorPortRangeRequest)
createTrafficMirrorFilterRule_destinationPortRange :: Lens'
CreateTrafficMirrorFilterRule (Maybe TrafficMirrorPortRangeRequest)
createTrafficMirrorFilterRule_destinationPortRange = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTrafficMirrorFilterRule' {Maybe TrafficMirrorPortRangeRequest
destinationPortRange :: Maybe TrafficMirrorPortRangeRequest
$sel:destinationPortRange:CreateTrafficMirrorFilterRule' :: CreateTrafficMirrorFilterRule
-> Maybe TrafficMirrorPortRangeRequest
destinationPortRange} -> Maybe TrafficMirrorPortRangeRequest
destinationPortRange) (\s :: CreateTrafficMirrorFilterRule
s@CreateTrafficMirrorFilterRule' {} Maybe TrafficMirrorPortRangeRequest
a -> CreateTrafficMirrorFilterRule
s {$sel:destinationPortRange:CreateTrafficMirrorFilterRule' :: Maybe TrafficMirrorPortRangeRequest
destinationPortRange = Maybe TrafficMirrorPortRangeRequest
a} :: CreateTrafficMirrorFilterRule)
createTrafficMirrorFilterRule_dryRun :: Lens.Lens' CreateTrafficMirrorFilterRule (Prelude.Maybe Prelude.Bool)
createTrafficMirrorFilterRule_dryRun :: Lens' CreateTrafficMirrorFilterRule (Maybe Bool)
createTrafficMirrorFilterRule_dryRun = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTrafficMirrorFilterRule' {Maybe Bool
dryRun :: Maybe Bool
$sel:dryRun:CreateTrafficMirrorFilterRule' :: CreateTrafficMirrorFilterRule -> Maybe Bool
dryRun} -> Maybe Bool
dryRun) (\s :: CreateTrafficMirrorFilterRule
s@CreateTrafficMirrorFilterRule' {} Maybe Bool
a -> CreateTrafficMirrorFilterRule
s {$sel:dryRun:CreateTrafficMirrorFilterRule' :: Maybe Bool
dryRun = Maybe Bool
a} :: CreateTrafficMirrorFilterRule)
createTrafficMirrorFilterRule_protocol :: Lens.Lens' CreateTrafficMirrorFilterRule (Prelude.Maybe Prelude.Int)
createTrafficMirrorFilterRule_protocol :: Lens' CreateTrafficMirrorFilterRule (Maybe Int)
createTrafficMirrorFilterRule_protocol = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTrafficMirrorFilterRule' {Maybe Int
protocol :: Maybe Int
$sel:protocol:CreateTrafficMirrorFilterRule' :: CreateTrafficMirrorFilterRule -> Maybe Int
protocol} -> Maybe Int
protocol) (\s :: CreateTrafficMirrorFilterRule
s@CreateTrafficMirrorFilterRule' {} Maybe Int
a -> CreateTrafficMirrorFilterRule
s {$sel:protocol:CreateTrafficMirrorFilterRule' :: Maybe Int
protocol = Maybe Int
a} :: CreateTrafficMirrorFilterRule)
createTrafficMirrorFilterRule_sourcePortRange :: Lens.Lens' CreateTrafficMirrorFilterRule (Prelude.Maybe TrafficMirrorPortRangeRequest)
createTrafficMirrorFilterRule_sourcePortRange :: Lens'
CreateTrafficMirrorFilterRule (Maybe TrafficMirrorPortRangeRequest)
createTrafficMirrorFilterRule_sourcePortRange = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTrafficMirrorFilterRule' {Maybe TrafficMirrorPortRangeRequest
sourcePortRange :: Maybe TrafficMirrorPortRangeRequest
$sel:sourcePortRange:CreateTrafficMirrorFilterRule' :: CreateTrafficMirrorFilterRule
-> Maybe TrafficMirrorPortRangeRequest
sourcePortRange} -> Maybe TrafficMirrorPortRangeRequest
sourcePortRange) (\s :: CreateTrafficMirrorFilterRule
s@CreateTrafficMirrorFilterRule' {} Maybe TrafficMirrorPortRangeRequest
a -> CreateTrafficMirrorFilterRule
s {$sel:sourcePortRange:CreateTrafficMirrorFilterRule' :: Maybe TrafficMirrorPortRangeRequest
sourcePortRange = Maybe TrafficMirrorPortRangeRequest
a} :: CreateTrafficMirrorFilterRule)
createTrafficMirrorFilterRule_trafficMirrorFilterId :: Lens.Lens' CreateTrafficMirrorFilterRule Prelude.Text
createTrafficMirrorFilterRule_trafficMirrorFilterId :: Lens' CreateTrafficMirrorFilterRule Text
createTrafficMirrorFilterRule_trafficMirrorFilterId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTrafficMirrorFilterRule' {Text
trafficMirrorFilterId :: Text
$sel:trafficMirrorFilterId:CreateTrafficMirrorFilterRule' :: CreateTrafficMirrorFilterRule -> Text
trafficMirrorFilterId} -> Text
trafficMirrorFilterId) (\s :: CreateTrafficMirrorFilterRule
s@CreateTrafficMirrorFilterRule' {} Text
a -> CreateTrafficMirrorFilterRule
s {$sel:trafficMirrorFilterId:CreateTrafficMirrorFilterRule' :: Text
trafficMirrorFilterId = Text
a} :: CreateTrafficMirrorFilterRule)
createTrafficMirrorFilterRule_trafficDirection :: Lens.Lens' CreateTrafficMirrorFilterRule TrafficDirection
createTrafficMirrorFilterRule_trafficDirection :: Lens' CreateTrafficMirrorFilterRule TrafficDirection
createTrafficMirrorFilterRule_trafficDirection = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTrafficMirrorFilterRule' {TrafficDirection
trafficDirection :: TrafficDirection
$sel:trafficDirection:CreateTrafficMirrorFilterRule' :: CreateTrafficMirrorFilterRule -> TrafficDirection
trafficDirection} -> TrafficDirection
trafficDirection) (\s :: CreateTrafficMirrorFilterRule
s@CreateTrafficMirrorFilterRule' {} TrafficDirection
a -> CreateTrafficMirrorFilterRule
s {$sel:trafficDirection:CreateTrafficMirrorFilterRule' :: TrafficDirection
trafficDirection = TrafficDirection
a} :: CreateTrafficMirrorFilterRule)
createTrafficMirrorFilterRule_ruleNumber :: Lens.Lens' CreateTrafficMirrorFilterRule Prelude.Int
createTrafficMirrorFilterRule_ruleNumber :: Lens' CreateTrafficMirrorFilterRule Int
createTrafficMirrorFilterRule_ruleNumber = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTrafficMirrorFilterRule' {Int
ruleNumber :: Int
$sel:ruleNumber:CreateTrafficMirrorFilterRule' :: CreateTrafficMirrorFilterRule -> Int
ruleNumber} -> Int
ruleNumber) (\s :: CreateTrafficMirrorFilterRule
s@CreateTrafficMirrorFilterRule' {} Int
a -> CreateTrafficMirrorFilterRule
s {$sel:ruleNumber:CreateTrafficMirrorFilterRule' :: Int
ruleNumber = Int
a} :: CreateTrafficMirrorFilterRule)
createTrafficMirrorFilterRule_ruleAction :: Lens.Lens' CreateTrafficMirrorFilterRule TrafficMirrorRuleAction
createTrafficMirrorFilterRule_ruleAction :: Lens' CreateTrafficMirrorFilterRule TrafficMirrorRuleAction
createTrafficMirrorFilterRule_ruleAction = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTrafficMirrorFilterRule' {TrafficMirrorRuleAction
ruleAction :: TrafficMirrorRuleAction
$sel:ruleAction:CreateTrafficMirrorFilterRule' :: CreateTrafficMirrorFilterRule -> TrafficMirrorRuleAction
ruleAction} -> TrafficMirrorRuleAction
ruleAction) (\s :: CreateTrafficMirrorFilterRule
s@CreateTrafficMirrorFilterRule' {} TrafficMirrorRuleAction
a -> CreateTrafficMirrorFilterRule
s {$sel:ruleAction:CreateTrafficMirrorFilterRule' :: TrafficMirrorRuleAction
ruleAction = TrafficMirrorRuleAction
a} :: CreateTrafficMirrorFilterRule)
createTrafficMirrorFilterRule_destinationCidrBlock :: Lens.Lens' CreateTrafficMirrorFilterRule Prelude.Text
createTrafficMirrorFilterRule_destinationCidrBlock :: Lens' CreateTrafficMirrorFilterRule Text
createTrafficMirrorFilterRule_destinationCidrBlock = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTrafficMirrorFilterRule' {Text
destinationCidrBlock :: Text
$sel:destinationCidrBlock:CreateTrafficMirrorFilterRule' :: CreateTrafficMirrorFilterRule -> Text
destinationCidrBlock} -> Text
destinationCidrBlock) (\s :: CreateTrafficMirrorFilterRule
s@CreateTrafficMirrorFilterRule' {} Text
a -> CreateTrafficMirrorFilterRule
s {$sel:destinationCidrBlock:CreateTrafficMirrorFilterRule' :: Text
destinationCidrBlock = Text
a} :: CreateTrafficMirrorFilterRule)
createTrafficMirrorFilterRule_sourceCidrBlock :: Lens.Lens' CreateTrafficMirrorFilterRule Prelude.Text
createTrafficMirrorFilterRule_sourceCidrBlock :: Lens' CreateTrafficMirrorFilterRule Text
createTrafficMirrorFilterRule_sourceCidrBlock = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTrafficMirrorFilterRule' {Text
sourceCidrBlock :: Text
$sel:sourceCidrBlock:CreateTrafficMirrorFilterRule' :: CreateTrafficMirrorFilterRule -> Text
sourceCidrBlock} -> Text
sourceCidrBlock) (\s :: CreateTrafficMirrorFilterRule
s@CreateTrafficMirrorFilterRule' {} Text
a -> CreateTrafficMirrorFilterRule
s {$sel:sourceCidrBlock:CreateTrafficMirrorFilterRule' :: Text
sourceCidrBlock = Text
a} :: CreateTrafficMirrorFilterRule)
instance
Core.AWSRequest
CreateTrafficMirrorFilterRule
where
type
AWSResponse CreateTrafficMirrorFilterRule =
CreateTrafficMirrorFilterRuleResponse
request :: (Service -> Service)
-> CreateTrafficMirrorFilterRule
-> Request CreateTrafficMirrorFilterRule
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 CreateTrafficMirrorFilterRule
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse CreateTrafficMirrorFilterRule)))
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
-> Maybe TrafficMirrorFilterRule
-> Int
-> CreateTrafficMirrorFilterRuleResponse
CreateTrafficMirrorFilterRuleResponse'
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
"clientToken")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ([Node]
x forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"trafficMirrorFilterRule")
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
CreateTrafficMirrorFilterRule
where
hashWithSalt :: Int -> CreateTrafficMirrorFilterRule -> Int
hashWithSalt Int
_salt CreateTrafficMirrorFilterRule' {Int
Maybe Bool
Maybe Int
Maybe Text
Maybe TrafficMirrorPortRangeRequest
Text
TrafficDirection
TrafficMirrorRuleAction
sourceCidrBlock :: Text
destinationCidrBlock :: Text
ruleAction :: TrafficMirrorRuleAction
ruleNumber :: Int
trafficDirection :: TrafficDirection
trafficMirrorFilterId :: Text
sourcePortRange :: Maybe TrafficMirrorPortRangeRequest
protocol :: Maybe Int
dryRun :: Maybe Bool
destinationPortRange :: Maybe TrafficMirrorPortRangeRequest
description :: Maybe Text
clientToken :: Maybe Text
$sel:sourceCidrBlock:CreateTrafficMirrorFilterRule' :: CreateTrafficMirrorFilterRule -> Text
$sel:destinationCidrBlock:CreateTrafficMirrorFilterRule' :: CreateTrafficMirrorFilterRule -> Text
$sel:ruleAction:CreateTrafficMirrorFilterRule' :: CreateTrafficMirrorFilterRule -> TrafficMirrorRuleAction
$sel:ruleNumber:CreateTrafficMirrorFilterRule' :: CreateTrafficMirrorFilterRule -> Int
$sel:trafficDirection:CreateTrafficMirrorFilterRule' :: CreateTrafficMirrorFilterRule -> TrafficDirection
$sel:trafficMirrorFilterId:CreateTrafficMirrorFilterRule' :: CreateTrafficMirrorFilterRule -> Text
$sel:sourcePortRange:CreateTrafficMirrorFilterRule' :: CreateTrafficMirrorFilterRule
-> Maybe TrafficMirrorPortRangeRequest
$sel:protocol:CreateTrafficMirrorFilterRule' :: CreateTrafficMirrorFilterRule -> Maybe Int
$sel:dryRun:CreateTrafficMirrorFilterRule' :: CreateTrafficMirrorFilterRule -> Maybe Bool
$sel:destinationPortRange:CreateTrafficMirrorFilterRule' :: CreateTrafficMirrorFilterRule
-> Maybe TrafficMirrorPortRangeRequest
$sel:description:CreateTrafficMirrorFilterRule' :: CreateTrafficMirrorFilterRule -> Maybe Text
$sel:clientToken:CreateTrafficMirrorFilterRule' :: CreateTrafficMirrorFilterRule -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
clientToken
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
description
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe TrafficMirrorPortRangeRequest
destinationPortRange
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
dryRun
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Int
protocol
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe TrafficMirrorPortRangeRequest
sourcePortRange
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
trafficMirrorFilterId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` TrafficDirection
trafficDirection
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Int
ruleNumber
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` TrafficMirrorRuleAction
ruleAction
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
destinationCidrBlock
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
sourceCidrBlock
instance Prelude.NFData CreateTrafficMirrorFilterRule where
rnf :: CreateTrafficMirrorFilterRule -> ()
rnf CreateTrafficMirrorFilterRule' {Int
Maybe Bool
Maybe Int
Maybe Text
Maybe TrafficMirrorPortRangeRequest
Text
TrafficDirection
TrafficMirrorRuleAction
sourceCidrBlock :: Text
destinationCidrBlock :: Text
ruleAction :: TrafficMirrorRuleAction
ruleNumber :: Int
trafficDirection :: TrafficDirection
trafficMirrorFilterId :: Text
sourcePortRange :: Maybe TrafficMirrorPortRangeRequest
protocol :: Maybe Int
dryRun :: Maybe Bool
destinationPortRange :: Maybe TrafficMirrorPortRangeRequest
description :: Maybe Text
clientToken :: Maybe Text
$sel:sourceCidrBlock:CreateTrafficMirrorFilterRule' :: CreateTrafficMirrorFilterRule -> Text
$sel:destinationCidrBlock:CreateTrafficMirrorFilterRule' :: CreateTrafficMirrorFilterRule -> Text
$sel:ruleAction:CreateTrafficMirrorFilterRule' :: CreateTrafficMirrorFilterRule -> TrafficMirrorRuleAction
$sel:ruleNumber:CreateTrafficMirrorFilterRule' :: CreateTrafficMirrorFilterRule -> Int
$sel:trafficDirection:CreateTrafficMirrorFilterRule' :: CreateTrafficMirrorFilterRule -> TrafficDirection
$sel:trafficMirrorFilterId:CreateTrafficMirrorFilterRule' :: CreateTrafficMirrorFilterRule -> Text
$sel:sourcePortRange:CreateTrafficMirrorFilterRule' :: CreateTrafficMirrorFilterRule
-> Maybe TrafficMirrorPortRangeRequest
$sel:protocol:CreateTrafficMirrorFilterRule' :: CreateTrafficMirrorFilterRule -> Maybe Int
$sel:dryRun:CreateTrafficMirrorFilterRule' :: CreateTrafficMirrorFilterRule -> Maybe Bool
$sel:destinationPortRange:CreateTrafficMirrorFilterRule' :: CreateTrafficMirrorFilterRule
-> Maybe TrafficMirrorPortRangeRequest
$sel:description:CreateTrafficMirrorFilterRule' :: CreateTrafficMirrorFilterRule -> Maybe Text
$sel:clientToken:CreateTrafficMirrorFilterRule' :: CreateTrafficMirrorFilterRule -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
clientToken
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
description
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe TrafficMirrorPortRangeRequest
destinationPortRange
seq :: forall a b. a -> b -> b
`Prelude.seq` 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 Maybe Int
protocol
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe TrafficMirrorPortRangeRequest
sourcePortRange
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
trafficMirrorFilterId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf TrafficDirection
trafficDirection
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
ruleNumber
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf TrafficMirrorRuleAction
ruleAction
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
destinationCidrBlock
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
sourceCidrBlock
instance Data.ToHeaders CreateTrafficMirrorFilterRule where
toHeaders :: CreateTrafficMirrorFilterRule -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToPath CreateTrafficMirrorFilterRule where
toPath :: CreateTrafficMirrorFilterRule -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery CreateTrafficMirrorFilterRule where
toQuery :: CreateTrafficMirrorFilterRule -> QueryString
toQuery CreateTrafficMirrorFilterRule' {Int
Maybe Bool
Maybe Int
Maybe Text
Maybe TrafficMirrorPortRangeRequest
Text
TrafficDirection
TrafficMirrorRuleAction
sourceCidrBlock :: Text
destinationCidrBlock :: Text
ruleAction :: TrafficMirrorRuleAction
ruleNumber :: Int
trafficDirection :: TrafficDirection
trafficMirrorFilterId :: Text
sourcePortRange :: Maybe TrafficMirrorPortRangeRequest
protocol :: Maybe Int
dryRun :: Maybe Bool
destinationPortRange :: Maybe TrafficMirrorPortRangeRequest
description :: Maybe Text
clientToken :: Maybe Text
$sel:sourceCidrBlock:CreateTrafficMirrorFilterRule' :: CreateTrafficMirrorFilterRule -> Text
$sel:destinationCidrBlock:CreateTrafficMirrorFilterRule' :: CreateTrafficMirrorFilterRule -> Text
$sel:ruleAction:CreateTrafficMirrorFilterRule' :: CreateTrafficMirrorFilterRule -> TrafficMirrorRuleAction
$sel:ruleNumber:CreateTrafficMirrorFilterRule' :: CreateTrafficMirrorFilterRule -> Int
$sel:trafficDirection:CreateTrafficMirrorFilterRule' :: CreateTrafficMirrorFilterRule -> TrafficDirection
$sel:trafficMirrorFilterId:CreateTrafficMirrorFilterRule' :: CreateTrafficMirrorFilterRule -> Text
$sel:sourcePortRange:CreateTrafficMirrorFilterRule' :: CreateTrafficMirrorFilterRule
-> Maybe TrafficMirrorPortRangeRequest
$sel:protocol:CreateTrafficMirrorFilterRule' :: CreateTrafficMirrorFilterRule -> Maybe Int
$sel:dryRun:CreateTrafficMirrorFilterRule' :: CreateTrafficMirrorFilterRule -> Maybe Bool
$sel:destinationPortRange:CreateTrafficMirrorFilterRule' :: CreateTrafficMirrorFilterRule
-> Maybe TrafficMirrorPortRangeRequest
$sel:description:CreateTrafficMirrorFilterRule' :: CreateTrafficMirrorFilterRule -> Maybe Text
$sel:clientToken:CreateTrafficMirrorFilterRule' :: CreateTrafficMirrorFilterRule -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"Action"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: ( ByteString
"CreateTrafficMirrorFilterRule" ::
Prelude.ByteString
),
ByteString
"Version"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"2016-11-15" :: Prelude.ByteString),
ByteString
"ClientToken" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
clientToken,
ByteString
"Description" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
description,
ByteString
"DestinationPortRange" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe TrafficMirrorPortRangeRequest
destinationPortRange,
ByteString
"DryRun" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Bool
dryRun,
ByteString
"Protocol" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Int
protocol,
ByteString
"SourcePortRange" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe TrafficMirrorPortRangeRequest
sourcePortRange,
ByteString
"TrafficMirrorFilterId"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
trafficMirrorFilterId,
ByteString
"TrafficDirection" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: TrafficDirection
trafficDirection,
ByteString
"RuleNumber" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Int
ruleNumber,
ByteString
"RuleAction" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: TrafficMirrorRuleAction
ruleAction,
ByteString
"DestinationCidrBlock" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
destinationCidrBlock,
ByteString
"SourceCidrBlock" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
sourceCidrBlock
]
data CreateTrafficMirrorFilterRuleResponse = CreateTrafficMirrorFilterRuleResponse'
{
CreateTrafficMirrorFilterRuleResponse -> Maybe Text
clientToken :: Prelude.Maybe Prelude.Text,
CreateTrafficMirrorFilterRuleResponse
-> Maybe TrafficMirrorFilterRule
trafficMirrorFilterRule :: Prelude.Maybe TrafficMirrorFilterRule,
CreateTrafficMirrorFilterRuleResponse -> Int
httpStatus :: Prelude.Int
}
deriving (CreateTrafficMirrorFilterRuleResponse
-> CreateTrafficMirrorFilterRuleResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateTrafficMirrorFilterRuleResponse
-> CreateTrafficMirrorFilterRuleResponse -> Bool
$c/= :: CreateTrafficMirrorFilterRuleResponse
-> CreateTrafficMirrorFilterRuleResponse -> Bool
== :: CreateTrafficMirrorFilterRuleResponse
-> CreateTrafficMirrorFilterRuleResponse -> Bool
$c== :: CreateTrafficMirrorFilterRuleResponse
-> CreateTrafficMirrorFilterRuleResponse -> Bool
Prelude.Eq, ReadPrec [CreateTrafficMirrorFilterRuleResponse]
ReadPrec CreateTrafficMirrorFilterRuleResponse
Int -> ReadS CreateTrafficMirrorFilterRuleResponse
ReadS [CreateTrafficMirrorFilterRuleResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateTrafficMirrorFilterRuleResponse]
$creadListPrec :: ReadPrec [CreateTrafficMirrorFilterRuleResponse]
readPrec :: ReadPrec CreateTrafficMirrorFilterRuleResponse
$creadPrec :: ReadPrec CreateTrafficMirrorFilterRuleResponse
readList :: ReadS [CreateTrafficMirrorFilterRuleResponse]
$creadList :: ReadS [CreateTrafficMirrorFilterRuleResponse]
readsPrec :: Int -> ReadS CreateTrafficMirrorFilterRuleResponse
$creadsPrec :: Int -> ReadS CreateTrafficMirrorFilterRuleResponse
Prelude.Read, Int -> CreateTrafficMirrorFilterRuleResponse -> ShowS
[CreateTrafficMirrorFilterRuleResponse] -> ShowS
CreateTrafficMirrorFilterRuleResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateTrafficMirrorFilterRuleResponse] -> ShowS
$cshowList :: [CreateTrafficMirrorFilterRuleResponse] -> ShowS
show :: CreateTrafficMirrorFilterRuleResponse -> String
$cshow :: CreateTrafficMirrorFilterRuleResponse -> String
showsPrec :: Int -> CreateTrafficMirrorFilterRuleResponse -> ShowS
$cshowsPrec :: Int -> CreateTrafficMirrorFilterRuleResponse -> ShowS
Prelude.Show, forall x.
Rep CreateTrafficMirrorFilterRuleResponse x
-> CreateTrafficMirrorFilterRuleResponse
forall x.
CreateTrafficMirrorFilterRuleResponse
-> Rep CreateTrafficMirrorFilterRuleResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep CreateTrafficMirrorFilterRuleResponse x
-> CreateTrafficMirrorFilterRuleResponse
$cfrom :: forall x.
CreateTrafficMirrorFilterRuleResponse
-> Rep CreateTrafficMirrorFilterRuleResponse x
Prelude.Generic)
newCreateTrafficMirrorFilterRuleResponse ::
Prelude.Int ->
CreateTrafficMirrorFilterRuleResponse
newCreateTrafficMirrorFilterRuleResponse :: Int -> CreateTrafficMirrorFilterRuleResponse
newCreateTrafficMirrorFilterRuleResponse Int
pHttpStatus_ =
CreateTrafficMirrorFilterRuleResponse'
{ $sel:clientToken:CreateTrafficMirrorFilterRuleResponse' :: Maybe Text
clientToken =
forall a. Maybe a
Prelude.Nothing,
$sel:trafficMirrorFilterRule:CreateTrafficMirrorFilterRuleResponse' :: Maybe TrafficMirrorFilterRule
trafficMirrorFilterRule =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:CreateTrafficMirrorFilterRuleResponse' :: Int
httpStatus = Int
pHttpStatus_
}
createTrafficMirrorFilterRuleResponse_clientToken :: Lens.Lens' CreateTrafficMirrorFilterRuleResponse (Prelude.Maybe Prelude.Text)
createTrafficMirrorFilterRuleResponse_clientToken :: Lens' CreateTrafficMirrorFilterRuleResponse (Maybe Text)
createTrafficMirrorFilterRuleResponse_clientToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTrafficMirrorFilterRuleResponse' {Maybe Text
clientToken :: Maybe Text
$sel:clientToken:CreateTrafficMirrorFilterRuleResponse' :: CreateTrafficMirrorFilterRuleResponse -> Maybe Text
clientToken} -> Maybe Text
clientToken) (\s :: CreateTrafficMirrorFilterRuleResponse
s@CreateTrafficMirrorFilterRuleResponse' {} Maybe Text
a -> CreateTrafficMirrorFilterRuleResponse
s {$sel:clientToken:CreateTrafficMirrorFilterRuleResponse' :: Maybe Text
clientToken = Maybe Text
a} :: CreateTrafficMirrorFilterRuleResponse)
createTrafficMirrorFilterRuleResponse_trafficMirrorFilterRule :: Lens.Lens' CreateTrafficMirrorFilterRuleResponse (Prelude.Maybe TrafficMirrorFilterRule)
createTrafficMirrorFilterRuleResponse_trafficMirrorFilterRule :: Lens'
CreateTrafficMirrorFilterRuleResponse
(Maybe TrafficMirrorFilterRule)
createTrafficMirrorFilterRuleResponse_trafficMirrorFilterRule = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTrafficMirrorFilterRuleResponse' {Maybe TrafficMirrorFilterRule
trafficMirrorFilterRule :: Maybe TrafficMirrorFilterRule
$sel:trafficMirrorFilterRule:CreateTrafficMirrorFilterRuleResponse' :: CreateTrafficMirrorFilterRuleResponse
-> Maybe TrafficMirrorFilterRule
trafficMirrorFilterRule} -> Maybe TrafficMirrorFilterRule
trafficMirrorFilterRule) (\s :: CreateTrafficMirrorFilterRuleResponse
s@CreateTrafficMirrorFilterRuleResponse' {} Maybe TrafficMirrorFilterRule
a -> CreateTrafficMirrorFilterRuleResponse
s {$sel:trafficMirrorFilterRule:CreateTrafficMirrorFilterRuleResponse' :: Maybe TrafficMirrorFilterRule
trafficMirrorFilterRule = Maybe TrafficMirrorFilterRule
a} :: CreateTrafficMirrorFilterRuleResponse)
createTrafficMirrorFilterRuleResponse_httpStatus :: Lens.Lens' CreateTrafficMirrorFilterRuleResponse Prelude.Int
createTrafficMirrorFilterRuleResponse_httpStatus :: Lens' CreateTrafficMirrorFilterRuleResponse Int
createTrafficMirrorFilterRuleResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTrafficMirrorFilterRuleResponse' {Int
httpStatus :: Int
$sel:httpStatus:CreateTrafficMirrorFilterRuleResponse' :: CreateTrafficMirrorFilterRuleResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: CreateTrafficMirrorFilterRuleResponse
s@CreateTrafficMirrorFilterRuleResponse' {} Int
a -> CreateTrafficMirrorFilterRuleResponse
s {$sel:httpStatus:CreateTrafficMirrorFilterRuleResponse' :: Int
httpStatus = Int
a} :: CreateTrafficMirrorFilterRuleResponse)
instance
Prelude.NFData
CreateTrafficMirrorFilterRuleResponse
where
rnf :: CreateTrafficMirrorFilterRuleResponse -> ()
rnf CreateTrafficMirrorFilterRuleResponse' {Int
Maybe Text
Maybe TrafficMirrorFilterRule
httpStatus :: Int
trafficMirrorFilterRule :: Maybe TrafficMirrorFilterRule
clientToken :: Maybe Text
$sel:httpStatus:CreateTrafficMirrorFilterRuleResponse' :: CreateTrafficMirrorFilterRuleResponse -> Int
$sel:trafficMirrorFilterRule:CreateTrafficMirrorFilterRuleResponse' :: CreateTrafficMirrorFilterRuleResponse
-> Maybe TrafficMirrorFilterRule
$sel:clientToken:CreateTrafficMirrorFilterRuleResponse' :: CreateTrafficMirrorFilterRuleResponse -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
clientToken
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe TrafficMirrorFilterRule
trafficMirrorFilterRule
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus