{-# 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.WAFV2.ListAvailableManagedRuleGroupVersions
(
ListAvailableManagedRuleGroupVersions (..),
newListAvailableManagedRuleGroupVersions,
listAvailableManagedRuleGroupVersions_limit,
listAvailableManagedRuleGroupVersions_nextMarker,
listAvailableManagedRuleGroupVersions_vendorName,
listAvailableManagedRuleGroupVersions_name,
listAvailableManagedRuleGroupVersions_scope,
ListAvailableManagedRuleGroupVersionsResponse (..),
newListAvailableManagedRuleGroupVersionsResponse,
listAvailableManagedRuleGroupVersionsResponse_currentDefaultVersion,
listAvailableManagedRuleGroupVersionsResponse_nextMarker,
listAvailableManagedRuleGroupVersionsResponse_versions,
listAvailableManagedRuleGroupVersionsResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
import Amazonka.WAFV2.Types
data ListAvailableManagedRuleGroupVersions = ListAvailableManagedRuleGroupVersions'
{
ListAvailableManagedRuleGroupVersions -> Maybe Natural
limit :: Prelude.Maybe Prelude.Natural,
ListAvailableManagedRuleGroupVersions -> Maybe Text
nextMarker :: Prelude.Maybe Prelude.Text,
ListAvailableManagedRuleGroupVersions -> Text
vendorName :: Prelude.Text,
ListAvailableManagedRuleGroupVersions -> Text
name :: Prelude.Text,
ListAvailableManagedRuleGroupVersions -> Scope
scope :: Scope
}
deriving (ListAvailableManagedRuleGroupVersions
-> ListAvailableManagedRuleGroupVersions -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListAvailableManagedRuleGroupVersions
-> ListAvailableManagedRuleGroupVersions -> Bool
$c/= :: ListAvailableManagedRuleGroupVersions
-> ListAvailableManagedRuleGroupVersions -> Bool
== :: ListAvailableManagedRuleGroupVersions
-> ListAvailableManagedRuleGroupVersions -> Bool
$c== :: ListAvailableManagedRuleGroupVersions
-> ListAvailableManagedRuleGroupVersions -> Bool
Prelude.Eq, ReadPrec [ListAvailableManagedRuleGroupVersions]
ReadPrec ListAvailableManagedRuleGroupVersions
Int -> ReadS ListAvailableManagedRuleGroupVersions
ReadS [ListAvailableManagedRuleGroupVersions]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListAvailableManagedRuleGroupVersions]
$creadListPrec :: ReadPrec [ListAvailableManagedRuleGroupVersions]
readPrec :: ReadPrec ListAvailableManagedRuleGroupVersions
$creadPrec :: ReadPrec ListAvailableManagedRuleGroupVersions
readList :: ReadS [ListAvailableManagedRuleGroupVersions]
$creadList :: ReadS [ListAvailableManagedRuleGroupVersions]
readsPrec :: Int -> ReadS ListAvailableManagedRuleGroupVersions
$creadsPrec :: Int -> ReadS ListAvailableManagedRuleGroupVersions
Prelude.Read, Int -> ListAvailableManagedRuleGroupVersions -> ShowS
[ListAvailableManagedRuleGroupVersions] -> ShowS
ListAvailableManagedRuleGroupVersions -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListAvailableManagedRuleGroupVersions] -> ShowS
$cshowList :: [ListAvailableManagedRuleGroupVersions] -> ShowS
show :: ListAvailableManagedRuleGroupVersions -> String
$cshow :: ListAvailableManagedRuleGroupVersions -> String
showsPrec :: Int -> ListAvailableManagedRuleGroupVersions -> ShowS
$cshowsPrec :: Int -> ListAvailableManagedRuleGroupVersions -> ShowS
Prelude.Show, forall x.
Rep ListAvailableManagedRuleGroupVersions x
-> ListAvailableManagedRuleGroupVersions
forall x.
ListAvailableManagedRuleGroupVersions
-> Rep ListAvailableManagedRuleGroupVersions x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep ListAvailableManagedRuleGroupVersions x
-> ListAvailableManagedRuleGroupVersions
$cfrom :: forall x.
ListAvailableManagedRuleGroupVersions
-> Rep ListAvailableManagedRuleGroupVersions x
Prelude.Generic)
newListAvailableManagedRuleGroupVersions ::
Prelude.Text ->
Prelude.Text ->
Scope ->
ListAvailableManagedRuleGroupVersions
newListAvailableManagedRuleGroupVersions :: Text -> Text -> Scope -> ListAvailableManagedRuleGroupVersions
newListAvailableManagedRuleGroupVersions
Text
pVendorName_
Text
pName_
Scope
pScope_ =
ListAvailableManagedRuleGroupVersions'
{ $sel:limit:ListAvailableManagedRuleGroupVersions' :: Maybe Natural
limit =
forall a. Maybe a
Prelude.Nothing,
$sel:nextMarker:ListAvailableManagedRuleGroupVersions' :: Maybe Text
nextMarker = forall a. Maybe a
Prelude.Nothing,
$sel:vendorName:ListAvailableManagedRuleGroupVersions' :: Text
vendorName = Text
pVendorName_,
$sel:name:ListAvailableManagedRuleGroupVersions' :: Text
name = Text
pName_,
$sel:scope:ListAvailableManagedRuleGroupVersions' :: Scope
scope = Scope
pScope_
}
listAvailableManagedRuleGroupVersions_limit :: Lens.Lens' ListAvailableManagedRuleGroupVersions (Prelude.Maybe Prelude.Natural)
listAvailableManagedRuleGroupVersions_limit :: Lens' ListAvailableManagedRuleGroupVersions (Maybe Natural)
listAvailableManagedRuleGroupVersions_limit = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListAvailableManagedRuleGroupVersions' {Maybe Natural
limit :: Maybe Natural
$sel:limit:ListAvailableManagedRuleGroupVersions' :: ListAvailableManagedRuleGroupVersions -> Maybe Natural
limit} -> Maybe Natural
limit) (\s :: ListAvailableManagedRuleGroupVersions
s@ListAvailableManagedRuleGroupVersions' {} Maybe Natural
a -> ListAvailableManagedRuleGroupVersions
s {$sel:limit:ListAvailableManagedRuleGroupVersions' :: Maybe Natural
limit = Maybe Natural
a} :: ListAvailableManagedRuleGroupVersions)
listAvailableManagedRuleGroupVersions_nextMarker :: Lens.Lens' ListAvailableManagedRuleGroupVersions (Prelude.Maybe Prelude.Text)
listAvailableManagedRuleGroupVersions_nextMarker :: Lens' ListAvailableManagedRuleGroupVersions (Maybe Text)
listAvailableManagedRuleGroupVersions_nextMarker = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListAvailableManagedRuleGroupVersions' {Maybe Text
nextMarker :: Maybe Text
$sel:nextMarker:ListAvailableManagedRuleGroupVersions' :: ListAvailableManagedRuleGroupVersions -> Maybe Text
nextMarker} -> Maybe Text
nextMarker) (\s :: ListAvailableManagedRuleGroupVersions
s@ListAvailableManagedRuleGroupVersions' {} Maybe Text
a -> ListAvailableManagedRuleGroupVersions
s {$sel:nextMarker:ListAvailableManagedRuleGroupVersions' :: Maybe Text
nextMarker = Maybe Text
a} :: ListAvailableManagedRuleGroupVersions)
listAvailableManagedRuleGroupVersions_vendorName :: Lens.Lens' ListAvailableManagedRuleGroupVersions Prelude.Text
listAvailableManagedRuleGroupVersions_vendorName :: Lens' ListAvailableManagedRuleGroupVersions Text
listAvailableManagedRuleGroupVersions_vendorName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListAvailableManagedRuleGroupVersions' {Text
vendorName :: Text
$sel:vendorName:ListAvailableManagedRuleGroupVersions' :: ListAvailableManagedRuleGroupVersions -> Text
vendorName} -> Text
vendorName) (\s :: ListAvailableManagedRuleGroupVersions
s@ListAvailableManagedRuleGroupVersions' {} Text
a -> ListAvailableManagedRuleGroupVersions
s {$sel:vendorName:ListAvailableManagedRuleGroupVersions' :: Text
vendorName = Text
a} :: ListAvailableManagedRuleGroupVersions)
listAvailableManagedRuleGroupVersions_name :: Lens.Lens' ListAvailableManagedRuleGroupVersions Prelude.Text
listAvailableManagedRuleGroupVersions_name :: Lens' ListAvailableManagedRuleGroupVersions Text
listAvailableManagedRuleGroupVersions_name = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListAvailableManagedRuleGroupVersions' {Text
name :: Text
$sel:name:ListAvailableManagedRuleGroupVersions' :: ListAvailableManagedRuleGroupVersions -> Text
name} -> Text
name) (\s :: ListAvailableManagedRuleGroupVersions
s@ListAvailableManagedRuleGroupVersions' {} Text
a -> ListAvailableManagedRuleGroupVersions
s {$sel:name:ListAvailableManagedRuleGroupVersions' :: Text
name = Text
a} :: ListAvailableManagedRuleGroupVersions)
listAvailableManagedRuleGroupVersions_scope :: Lens.Lens' ListAvailableManagedRuleGroupVersions Scope
listAvailableManagedRuleGroupVersions_scope :: Lens' ListAvailableManagedRuleGroupVersions Scope
listAvailableManagedRuleGroupVersions_scope = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListAvailableManagedRuleGroupVersions' {Scope
scope :: Scope
$sel:scope:ListAvailableManagedRuleGroupVersions' :: ListAvailableManagedRuleGroupVersions -> Scope
scope} -> Scope
scope) (\s :: ListAvailableManagedRuleGroupVersions
s@ListAvailableManagedRuleGroupVersions' {} Scope
a -> ListAvailableManagedRuleGroupVersions
s {$sel:scope:ListAvailableManagedRuleGroupVersions' :: Scope
scope = Scope
a} :: ListAvailableManagedRuleGroupVersions)
instance
Core.AWSRequest
ListAvailableManagedRuleGroupVersions
where
type
AWSResponse
ListAvailableManagedRuleGroupVersions =
ListAvailableManagedRuleGroupVersionsResponse
request :: (Service -> Service)
-> ListAvailableManagedRuleGroupVersions
-> Request ListAvailableManagedRuleGroupVersions
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 ListAvailableManagedRuleGroupVersions
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse
(AWSResponse ListAvailableManagedRuleGroupVersions)))
response =
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> Object -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveJSON
( \Int
s ResponseHeaders
h Object
x ->
Maybe Text
-> Maybe Text
-> Maybe [ManagedRuleGroupVersion]
-> Int
-> ListAvailableManagedRuleGroupVersionsResponse
ListAvailableManagedRuleGroupVersionsResponse'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"CurrentDefaultVersion")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"NextMarker")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"Versions" forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ forall a. Monoid a => a
Prelude.mempty)
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
ListAvailableManagedRuleGroupVersions
where
hashWithSalt :: Int -> ListAvailableManagedRuleGroupVersions -> Int
hashWithSalt
Int
_salt
ListAvailableManagedRuleGroupVersions' {Maybe Natural
Maybe Text
Text
Scope
scope :: Scope
name :: Text
vendorName :: Text
nextMarker :: Maybe Text
limit :: Maybe Natural
$sel:scope:ListAvailableManagedRuleGroupVersions' :: ListAvailableManagedRuleGroupVersions -> Scope
$sel:name:ListAvailableManagedRuleGroupVersions' :: ListAvailableManagedRuleGroupVersions -> Text
$sel:vendorName:ListAvailableManagedRuleGroupVersions' :: ListAvailableManagedRuleGroupVersions -> Text
$sel:nextMarker:ListAvailableManagedRuleGroupVersions' :: ListAvailableManagedRuleGroupVersions -> Maybe Text
$sel:limit:ListAvailableManagedRuleGroupVersions' :: ListAvailableManagedRuleGroupVersions -> Maybe Natural
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Natural
limit
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
nextMarker
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
vendorName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
name
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Scope
scope
instance
Prelude.NFData
ListAvailableManagedRuleGroupVersions
where
rnf :: ListAvailableManagedRuleGroupVersions -> ()
rnf ListAvailableManagedRuleGroupVersions' {Maybe Natural
Maybe Text
Text
Scope
scope :: Scope
name :: Text
vendorName :: Text
nextMarker :: Maybe Text
limit :: Maybe Natural
$sel:scope:ListAvailableManagedRuleGroupVersions' :: ListAvailableManagedRuleGroupVersions -> Scope
$sel:name:ListAvailableManagedRuleGroupVersions' :: ListAvailableManagedRuleGroupVersions -> Text
$sel:vendorName:ListAvailableManagedRuleGroupVersions' :: ListAvailableManagedRuleGroupVersions -> Text
$sel:nextMarker:ListAvailableManagedRuleGroupVersions' :: ListAvailableManagedRuleGroupVersions -> Maybe Text
$sel:limit:ListAvailableManagedRuleGroupVersions' :: ListAvailableManagedRuleGroupVersions -> Maybe Natural
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Natural
limit
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
nextMarker
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
vendorName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
name
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Scope
scope
instance
Data.ToHeaders
ListAvailableManagedRuleGroupVersions
where
toHeaders :: ListAvailableManagedRuleGroupVersions -> ResponseHeaders
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 -> ResponseHeaders
Data.=# ( ByteString
"AWSWAF_20190729.ListAvailableManagedRuleGroupVersions" ::
Prelude.ByteString
),
HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance
Data.ToJSON
ListAvailableManagedRuleGroupVersions
where
toJSON :: ListAvailableManagedRuleGroupVersions -> Value
toJSON ListAvailableManagedRuleGroupVersions' {Maybe Natural
Maybe Text
Text
Scope
scope :: Scope
name :: Text
vendorName :: Text
nextMarker :: Maybe Text
limit :: Maybe Natural
$sel:scope:ListAvailableManagedRuleGroupVersions' :: ListAvailableManagedRuleGroupVersions -> Scope
$sel:name:ListAvailableManagedRuleGroupVersions' :: ListAvailableManagedRuleGroupVersions -> Text
$sel:vendorName:ListAvailableManagedRuleGroupVersions' :: ListAvailableManagedRuleGroupVersions -> Text
$sel:nextMarker:ListAvailableManagedRuleGroupVersions' :: ListAvailableManagedRuleGroupVersions -> Maybe Text
$sel:limit:ListAvailableManagedRuleGroupVersions' :: ListAvailableManagedRuleGroupVersions -> Maybe Natural
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"Limit" 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 Natural
limit,
(Key
"NextMarker" 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
nextMarker,
forall a. a -> Maybe a
Prelude.Just (Key
"VendorName" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
vendorName),
forall a. a -> Maybe a
Prelude.Just (Key
"Name" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
name),
forall a. a -> Maybe a
Prelude.Just (Key
"Scope" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Scope
scope)
]
)
instance
Data.ToPath
ListAvailableManagedRuleGroupVersions
where
toPath :: ListAvailableManagedRuleGroupVersions -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance
Data.ToQuery
ListAvailableManagedRuleGroupVersions
where
toQuery :: ListAvailableManagedRuleGroupVersions -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data ListAvailableManagedRuleGroupVersionsResponse = ListAvailableManagedRuleGroupVersionsResponse'
{
ListAvailableManagedRuleGroupVersionsResponse -> Maybe Text
currentDefaultVersion :: Prelude.Maybe Prelude.Text,
ListAvailableManagedRuleGroupVersionsResponse -> Maybe Text
nextMarker :: Prelude.Maybe Prelude.Text,
ListAvailableManagedRuleGroupVersionsResponse
-> Maybe [ManagedRuleGroupVersion]
versions :: Prelude.Maybe [ManagedRuleGroupVersion],
ListAvailableManagedRuleGroupVersionsResponse -> Int
httpStatus :: Prelude.Int
}
deriving (ListAvailableManagedRuleGroupVersionsResponse
-> ListAvailableManagedRuleGroupVersionsResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListAvailableManagedRuleGroupVersionsResponse
-> ListAvailableManagedRuleGroupVersionsResponse -> Bool
$c/= :: ListAvailableManagedRuleGroupVersionsResponse
-> ListAvailableManagedRuleGroupVersionsResponse -> Bool
== :: ListAvailableManagedRuleGroupVersionsResponse
-> ListAvailableManagedRuleGroupVersionsResponse -> Bool
$c== :: ListAvailableManagedRuleGroupVersionsResponse
-> ListAvailableManagedRuleGroupVersionsResponse -> Bool
Prelude.Eq, ReadPrec [ListAvailableManagedRuleGroupVersionsResponse]
ReadPrec ListAvailableManagedRuleGroupVersionsResponse
Int -> ReadS ListAvailableManagedRuleGroupVersionsResponse
ReadS [ListAvailableManagedRuleGroupVersionsResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListAvailableManagedRuleGroupVersionsResponse]
$creadListPrec :: ReadPrec [ListAvailableManagedRuleGroupVersionsResponse]
readPrec :: ReadPrec ListAvailableManagedRuleGroupVersionsResponse
$creadPrec :: ReadPrec ListAvailableManagedRuleGroupVersionsResponse
readList :: ReadS [ListAvailableManagedRuleGroupVersionsResponse]
$creadList :: ReadS [ListAvailableManagedRuleGroupVersionsResponse]
readsPrec :: Int -> ReadS ListAvailableManagedRuleGroupVersionsResponse
$creadsPrec :: Int -> ReadS ListAvailableManagedRuleGroupVersionsResponse
Prelude.Read, Int -> ListAvailableManagedRuleGroupVersionsResponse -> ShowS
[ListAvailableManagedRuleGroupVersionsResponse] -> ShowS
ListAvailableManagedRuleGroupVersionsResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListAvailableManagedRuleGroupVersionsResponse] -> ShowS
$cshowList :: [ListAvailableManagedRuleGroupVersionsResponse] -> ShowS
show :: ListAvailableManagedRuleGroupVersionsResponse -> String
$cshow :: ListAvailableManagedRuleGroupVersionsResponse -> String
showsPrec :: Int -> ListAvailableManagedRuleGroupVersionsResponse -> ShowS
$cshowsPrec :: Int -> ListAvailableManagedRuleGroupVersionsResponse -> ShowS
Prelude.Show, forall x.
Rep ListAvailableManagedRuleGroupVersionsResponse x
-> ListAvailableManagedRuleGroupVersionsResponse
forall x.
ListAvailableManagedRuleGroupVersionsResponse
-> Rep ListAvailableManagedRuleGroupVersionsResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep ListAvailableManagedRuleGroupVersionsResponse x
-> ListAvailableManagedRuleGroupVersionsResponse
$cfrom :: forall x.
ListAvailableManagedRuleGroupVersionsResponse
-> Rep ListAvailableManagedRuleGroupVersionsResponse x
Prelude.Generic)
newListAvailableManagedRuleGroupVersionsResponse ::
Prelude.Int ->
ListAvailableManagedRuleGroupVersionsResponse
newListAvailableManagedRuleGroupVersionsResponse :: Int -> ListAvailableManagedRuleGroupVersionsResponse
newListAvailableManagedRuleGroupVersionsResponse
Int
pHttpStatus_ =
ListAvailableManagedRuleGroupVersionsResponse'
{ $sel:currentDefaultVersion:ListAvailableManagedRuleGroupVersionsResponse' :: Maybe Text
currentDefaultVersion =
forall a. Maybe a
Prelude.Nothing,
$sel:nextMarker:ListAvailableManagedRuleGroupVersionsResponse' :: Maybe Text
nextMarker = forall a. Maybe a
Prelude.Nothing,
$sel:versions:ListAvailableManagedRuleGroupVersionsResponse' :: Maybe [ManagedRuleGroupVersion]
versions = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:ListAvailableManagedRuleGroupVersionsResponse' :: Int
httpStatus = Int
pHttpStatus_
}
listAvailableManagedRuleGroupVersionsResponse_currentDefaultVersion :: Lens.Lens' ListAvailableManagedRuleGroupVersionsResponse (Prelude.Maybe Prelude.Text)
listAvailableManagedRuleGroupVersionsResponse_currentDefaultVersion :: Lens' ListAvailableManagedRuleGroupVersionsResponse (Maybe Text)
listAvailableManagedRuleGroupVersionsResponse_currentDefaultVersion = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListAvailableManagedRuleGroupVersionsResponse' {Maybe Text
currentDefaultVersion :: Maybe Text
$sel:currentDefaultVersion:ListAvailableManagedRuleGroupVersionsResponse' :: ListAvailableManagedRuleGroupVersionsResponse -> Maybe Text
currentDefaultVersion} -> Maybe Text
currentDefaultVersion) (\s :: ListAvailableManagedRuleGroupVersionsResponse
s@ListAvailableManagedRuleGroupVersionsResponse' {} Maybe Text
a -> ListAvailableManagedRuleGroupVersionsResponse
s {$sel:currentDefaultVersion:ListAvailableManagedRuleGroupVersionsResponse' :: Maybe Text
currentDefaultVersion = Maybe Text
a} :: ListAvailableManagedRuleGroupVersionsResponse)
listAvailableManagedRuleGroupVersionsResponse_nextMarker :: Lens.Lens' ListAvailableManagedRuleGroupVersionsResponse (Prelude.Maybe Prelude.Text)
listAvailableManagedRuleGroupVersionsResponse_nextMarker :: Lens' ListAvailableManagedRuleGroupVersionsResponse (Maybe Text)
listAvailableManagedRuleGroupVersionsResponse_nextMarker = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListAvailableManagedRuleGroupVersionsResponse' {Maybe Text
nextMarker :: Maybe Text
$sel:nextMarker:ListAvailableManagedRuleGroupVersionsResponse' :: ListAvailableManagedRuleGroupVersionsResponse -> Maybe Text
nextMarker} -> Maybe Text
nextMarker) (\s :: ListAvailableManagedRuleGroupVersionsResponse
s@ListAvailableManagedRuleGroupVersionsResponse' {} Maybe Text
a -> ListAvailableManagedRuleGroupVersionsResponse
s {$sel:nextMarker:ListAvailableManagedRuleGroupVersionsResponse' :: Maybe Text
nextMarker = Maybe Text
a} :: ListAvailableManagedRuleGroupVersionsResponse)
listAvailableManagedRuleGroupVersionsResponse_versions :: Lens.Lens' ListAvailableManagedRuleGroupVersionsResponse (Prelude.Maybe [ManagedRuleGroupVersion])
listAvailableManagedRuleGroupVersionsResponse_versions :: Lens'
ListAvailableManagedRuleGroupVersionsResponse
(Maybe [ManagedRuleGroupVersion])
listAvailableManagedRuleGroupVersionsResponse_versions = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListAvailableManagedRuleGroupVersionsResponse' {Maybe [ManagedRuleGroupVersion]
versions :: Maybe [ManagedRuleGroupVersion]
$sel:versions:ListAvailableManagedRuleGroupVersionsResponse' :: ListAvailableManagedRuleGroupVersionsResponse
-> Maybe [ManagedRuleGroupVersion]
versions} -> Maybe [ManagedRuleGroupVersion]
versions) (\s :: ListAvailableManagedRuleGroupVersionsResponse
s@ListAvailableManagedRuleGroupVersionsResponse' {} Maybe [ManagedRuleGroupVersion]
a -> ListAvailableManagedRuleGroupVersionsResponse
s {$sel:versions:ListAvailableManagedRuleGroupVersionsResponse' :: Maybe [ManagedRuleGroupVersion]
versions = Maybe [ManagedRuleGroupVersion]
a} :: ListAvailableManagedRuleGroupVersionsResponse) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
listAvailableManagedRuleGroupVersionsResponse_httpStatus :: Lens.Lens' ListAvailableManagedRuleGroupVersionsResponse Prelude.Int
listAvailableManagedRuleGroupVersionsResponse_httpStatus :: Lens' ListAvailableManagedRuleGroupVersionsResponse Int
listAvailableManagedRuleGroupVersionsResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListAvailableManagedRuleGroupVersionsResponse' {Int
httpStatus :: Int
$sel:httpStatus:ListAvailableManagedRuleGroupVersionsResponse' :: ListAvailableManagedRuleGroupVersionsResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: ListAvailableManagedRuleGroupVersionsResponse
s@ListAvailableManagedRuleGroupVersionsResponse' {} Int
a -> ListAvailableManagedRuleGroupVersionsResponse
s {$sel:httpStatus:ListAvailableManagedRuleGroupVersionsResponse' :: Int
httpStatus = Int
a} :: ListAvailableManagedRuleGroupVersionsResponse)
instance
Prelude.NFData
ListAvailableManagedRuleGroupVersionsResponse
where
rnf :: ListAvailableManagedRuleGroupVersionsResponse -> ()
rnf
ListAvailableManagedRuleGroupVersionsResponse' {Int
Maybe [ManagedRuleGroupVersion]
Maybe Text
httpStatus :: Int
versions :: Maybe [ManagedRuleGroupVersion]
nextMarker :: Maybe Text
currentDefaultVersion :: Maybe Text
$sel:httpStatus:ListAvailableManagedRuleGroupVersionsResponse' :: ListAvailableManagedRuleGroupVersionsResponse -> Int
$sel:versions:ListAvailableManagedRuleGroupVersionsResponse' :: ListAvailableManagedRuleGroupVersionsResponse
-> Maybe [ManagedRuleGroupVersion]
$sel:nextMarker:ListAvailableManagedRuleGroupVersionsResponse' :: ListAvailableManagedRuleGroupVersionsResponse -> Maybe Text
$sel:currentDefaultVersion:ListAvailableManagedRuleGroupVersionsResponse' :: ListAvailableManagedRuleGroupVersionsResponse -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
currentDefaultVersion
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
nextMarker
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [ManagedRuleGroupVersion]
versions
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus