{-# 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.UpdateRuleGroup
(
UpdateRuleGroup (..),
newUpdateRuleGroup,
updateRuleGroup_customResponseBodies,
updateRuleGroup_description,
updateRuleGroup_rules,
updateRuleGroup_name,
updateRuleGroup_scope,
updateRuleGroup_id,
updateRuleGroup_visibilityConfig,
updateRuleGroup_lockToken,
UpdateRuleGroupResponse (..),
newUpdateRuleGroupResponse,
updateRuleGroupResponse_nextLockToken,
updateRuleGroupResponse_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 UpdateRuleGroup = UpdateRuleGroup'
{
UpdateRuleGroup -> Maybe (HashMap Text CustomResponseBody)
customResponseBodies :: Prelude.Maybe (Prelude.HashMap Prelude.Text CustomResponseBody),
UpdateRuleGroup -> Maybe Text
description :: Prelude.Maybe Prelude.Text,
UpdateRuleGroup -> Maybe [Rule]
rules :: Prelude.Maybe [Rule],
UpdateRuleGroup -> Text
name :: Prelude.Text,
UpdateRuleGroup -> Scope
scope :: Scope,
UpdateRuleGroup -> Text
id :: Prelude.Text,
UpdateRuleGroup -> VisibilityConfig
visibilityConfig :: VisibilityConfig,
UpdateRuleGroup -> Text
lockToken :: Prelude.Text
}
deriving (UpdateRuleGroup -> UpdateRuleGroup -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: UpdateRuleGroup -> UpdateRuleGroup -> Bool
$c/= :: UpdateRuleGroup -> UpdateRuleGroup -> Bool
== :: UpdateRuleGroup -> UpdateRuleGroup -> Bool
$c== :: UpdateRuleGroup -> UpdateRuleGroup -> Bool
Prelude.Eq, ReadPrec [UpdateRuleGroup]
ReadPrec UpdateRuleGroup
Int -> ReadS UpdateRuleGroup
ReadS [UpdateRuleGroup]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [UpdateRuleGroup]
$creadListPrec :: ReadPrec [UpdateRuleGroup]
readPrec :: ReadPrec UpdateRuleGroup
$creadPrec :: ReadPrec UpdateRuleGroup
readList :: ReadS [UpdateRuleGroup]
$creadList :: ReadS [UpdateRuleGroup]
readsPrec :: Int -> ReadS UpdateRuleGroup
$creadsPrec :: Int -> ReadS UpdateRuleGroup
Prelude.Read, Int -> UpdateRuleGroup -> ShowS
[UpdateRuleGroup] -> ShowS
UpdateRuleGroup -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [UpdateRuleGroup] -> ShowS
$cshowList :: [UpdateRuleGroup] -> ShowS
show :: UpdateRuleGroup -> String
$cshow :: UpdateRuleGroup -> String
showsPrec :: Int -> UpdateRuleGroup -> ShowS
$cshowsPrec :: Int -> UpdateRuleGroup -> ShowS
Prelude.Show, forall x. Rep UpdateRuleGroup x -> UpdateRuleGroup
forall x. UpdateRuleGroup -> Rep UpdateRuleGroup x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep UpdateRuleGroup x -> UpdateRuleGroup
$cfrom :: forall x. UpdateRuleGroup -> Rep UpdateRuleGroup x
Prelude.Generic)
newUpdateRuleGroup ::
Prelude.Text ->
Scope ->
Prelude.Text ->
VisibilityConfig ->
Prelude.Text ->
UpdateRuleGroup
newUpdateRuleGroup :: Text
-> Scope -> Text -> VisibilityConfig -> Text -> UpdateRuleGroup
newUpdateRuleGroup
Text
pName_
Scope
pScope_
Text
pId_
VisibilityConfig
pVisibilityConfig_
Text
pLockToken_ =
UpdateRuleGroup'
{ $sel:customResponseBodies:UpdateRuleGroup' :: Maybe (HashMap Text CustomResponseBody)
customResponseBodies =
forall a. Maybe a
Prelude.Nothing,
$sel:description:UpdateRuleGroup' :: Maybe Text
description = forall a. Maybe a
Prelude.Nothing,
$sel:rules:UpdateRuleGroup' :: Maybe [Rule]
rules = forall a. Maybe a
Prelude.Nothing,
$sel:name:UpdateRuleGroup' :: Text
name = Text
pName_,
$sel:scope:UpdateRuleGroup' :: Scope
scope = Scope
pScope_,
$sel:id:UpdateRuleGroup' :: Text
id = Text
pId_,
$sel:visibilityConfig:UpdateRuleGroup' :: VisibilityConfig
visibilityConfig = VisibilityConfig
pVisibilityConfig_,
$sel:lockToken:UpdateRuleGroup' :: Text
lockToken = Text
pLockToken_
}
updateRuleGroup_customResponseBodies :: Lens.Lens' UpdateRuleGroup (Prelude.Maybe (Prelude.HashMap Prelude.Text CustomResponseBody))
updateRuleGroup_customResponseBodies :: Lens' UpdateRuleGroup (Maybe (HashMap Text CustomResponseBody))
updateRuleGroup_customResponseBodies = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateRuleGroup' {Maybe (HashMap Text CustomResponseBody)
customResponseBodies :: Maybe (HashMap Text CustomResponseBody)
$sel:customResponseBodies:UpdateRuleGroup' :: UpdateRuleGroup -> Maybe (HashMap Text CustomResponseBody)
customResponseBodies} -> Maybe (HashMap Text CustomResponseBody)
customResponseBodies) (\s :: UpdateRuleGroup
s@UpdateRuleGroup' {} Maybe (HashMap Text CustomResponseBody)
a -> UpdateRuleGroup
s {$sel:customResponseBodies:UpdateRuleGroup' :: Maybe (HashMap Text CustomResponseBody)
customResponseBodies = Maybe (HashMap Text CustomResponseBody)
a} :: UpdateRuleGroup) 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
updateRuleGroup_description :: Lens.Lens' UpdateRuleGroup (Prelude.Maybe Prelude.Text)
updateRuleGroup_description :: Lens' UpdateRuleGroup (Maybe Text)
updateRuleGroup_description = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateRuleGroup' {Maybe Text
description :: Maybe Text
$sel:description:UpdateRuleGroup' :: UpdateRuleGroup -> Maybe Text
description} -> Maybe Text
description) (\s :: UpdateRuleGroup
s@UpdateRuleGroup' {} Maybe Text
a -> UpdateRuleGroup
s {$sel:description:UpdateRuleGroup' :: Maybe Text
description = Maybe Text
a} :: UpdateRuleGroup)
updateRuleGroup_rules :: Lens.Lens' UpdateRuleGroup (Prelude.Maybe [Rule])
updateRuleGroup_rules :: Lens' UpdateRuleGroup (Maybe [Rule])
updateRuleGroup_rules = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateRuleGroup' {Maybe [Rule]
rules :: Maybe [Rule]
$sel:rules:UpdateRuleGroup' :: UpdateRuleGroup -> Maybe [Rule]
rules} -> Maybe [Rule]
rules) (\s :: UpdateRuleGroup
s@UpdateRuleGroup' {} Maybe [Rule]
a -> UpdateRuleGroup
s {$sel:rules:UpdateRuleGroup' :: Maybe [Rule]
rules = Maybe [Rule]
a} :: UpdateRuleGroup) 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
updateRuleGroup_name :: Lens.Lens' UpdateRuleGroup Prelude.Text
updateRuleGroup_name :: Lens' UpdateRuleGroup Text
updateRuleGroup_name = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateRuleGroup' {Text
name :: Text
$sel:name:UpdateRuleGroup' :: UpdateRuleGroup -> Text
name} -> Text
name) (\s :: UpdateRuleGroup
s@UpdateRuleGroup' {} Text
a -> UpdateRuleGroup
s {$sel:name:UpdateRuleGroup' :: Text
name = Text
a} :: UpdateRuleGroup)
updateRuleGroup_scope :: Lens.Lens' UpdateRuleGroup Scope
updateRuleGroup_scope :: Lens' UpdateRuleGroup Scope
updateRuleGroup_scope = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateRuleGroup' {Scope
scope :: Scope
$sel:scope:UpdateRuleGroup' :: UpdateRuleGroup -> Scope
scope} -> Scope
scope) (\s :: UpdateRuleGroup
s@UpdateRuleGroup' {} Scope
a -> UpdateRuleGroup
s {$sel:scope:UpdateRuleGroup' :: Scope
scope = Scope
a} :: UpdateRuleGroup)
updateRuleGroup_id :: Lens.Lens' UpdateRuleGroup Prelude.Text
updateRuleGroup_id :: Lens' UpdateRuleGroup Text
updateRuleGroup_id = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateRuleGroup' {Text
id :: Text
$sel:id:UpdateRuleGroup' :: UpdateRuleGroup -> Text
id} -> Text
id) (\s :: UpdateRuleGroup
s@UpdateRuleGroup' {} Text
a -> UpdateRuleGroup
s {$sel:id:UpdateRuleGroup' :: Text
id = Text
a} :: UpdateRuleGroup)
updateRuleGroup_visibilityConfig :: Lens.Lens' UpdateRuleGroup VisibilityConfig
updateRuleGroup_visibilityConfig :: Lens' UpdateRuleGroup VisibilityConfig
updateRuleGroup_visibilityConfig = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateRuleGroup' {VisibilityConfig
visibilityConfig :: VisibilityConfig
$sel:visibilityConfig:UpdateRuleGroup' :: UpdateRuleGroup -> VisibilityConfig
visibilityConfig} -> VisibilityConfig
visibilityConfig) (\s :: UpdateRuleGroup
s@UpdateRuleGroup' {} VisibilityConfig
a -> UpdateRuleGroup
s {$sel:visibilityConfig:UpdateRuleGroup' :: VisibilityConfig
visibilityConfig = VisibilityConfig
a} :: UpdateRuleGroup)
updateRuleGroup_lockToken :: Lens.Lens' UpdateRuleGroup Prelude.Text
updateRuleGroup_lockToken :: Lens' UpdateRuleGroup Text
updateRuleGroup_lockToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateRuleGroup' {Text
lockToken :: Text
$sel:lockToken:UpdateRuleGroup' :: UpdateRuleGroup -> Text
lockToken} -> Text
lockToken) (\s :: UpdateRuleGroup
s@UpdateRuleGroup' {} Text
a -> UpdateRuleGroup
s {$sel:lockToken:UpdateRuleGroup' :: Text
lockToken = Text
a} :: UpdateRuleGroup)
instance Core.AWSRequest UpdateRuleGroup where
type
AWSResponse UpdateRuleGroup =
UpdateRuleGroupResponse
request :: (Service -> Service) -> UpdateRuleGroup -> Request UpdateRuleGroup
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 UpdateRuleGroup
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse UpdateRuleGroup)))
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 -> Int -> UpdateRuleGroupResponse
UpdateRuleGroupResponse'
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
"NextLockToken")
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 UpdateRuleGroup where
hashWithSalt :: Int -> UpdateRuleGroup -> Int
hashWithSalt Int
_salt UpdateRuleGroup' {Maybe [Rule]
Maybe Text
Maybe (HashMap Text CustomResponseBody)
Text
Scope
VisibilityConfig
lockToken :: Text
visibilityConfig :: VisibilityConfig
id :: Text
scope :: Scope
name :: Text
rules :: Maybe [Rule]
description :: Maybe Text
customResponseBodies :: Maybe (HashMap Text CustomResponseBody)
$sel:lockToken:UpdateRuleGroup' :: UpdateRuleGroup -> Text
$sel:visibilityConfig:UpdateRuleGroup' :: UpdateRuleGroup -> VisibilityConfig
$sel:id:UpdateRuleGroup' :: UpdateRuleGroup -> Text
$sel:scope:UpdateRuleGroup' :: UpdateRuleGroup -> Scope
$sel:name:UpdateRuleGroup' :: UpdateRuleGroup -> Text
$sel:rules:UpdateRuleGroup' :: UpdateRuleGroup -> Maybe [Rule]
$sel:description:UpdateRuleGroup' :: UpdateRuleGroup -> Maybe Text
$sel:customResponseBodies:UpdateRuleGroup' :: UpdateRuleGroup -> Maybe (HashMap Text CustomResponseBody)
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe (HashMap Text CustomResponseBody)
customResponseBodies
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
description
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Rule]
rules
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
name
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Scope
scope
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
id
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` VisibilityConfig
visibilityConfig
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
lockToken
instance Prelude.NFData UpdateRuleGroup where
rnf :: UpdateRuleGroup -> ()
rnf UpdateRuleGroup' {Maybe [Rule]
Maybe Text
Maybe (HashMap Text CustomResponseBody)
Text
Scope
VisibilityConfig
lockToken :: Text
visibilityConfig :: VisibilityConfig
id :: Text
scope :: Scope
name :: Text
rules :: Maybe [Rule]
description :: Maybe Text
customResponseBodies :: Maybe (HashMap Text CustomResponseBody)
$sel:lockToken:UpdateRuleGroup' :: UpdateRuleGroup -> Text
$sel:visibilityConfig:UpdateRuleGroup' :: UpdateRuleGroup -> VisibilityConfig
$sel:id:UpdateRuleGroup' :: UpdateRuleGroup -> Text
$sel:scope:UpdateRuleGroup' :: UpdateRuleGroup -> Scope
$sel:name:UpdateRuleGroup' :: UpdateRuleGroup -> Text
$sel:rules:UpdateRuleGroup' :: UpdateRuleGroup -> Maybe [Rule]
$sel:description:UpdateRuleGroup' :: UpdateRuleGroup -> Maybe Text
$sel:customResponseBodies:UpdateRuleGroup' :: UpdateRuleGroup -> Maybe (HashMap Text CustomResponseBody)
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe (HashMap Text CustomResponseBody)
customResponseBodies
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 [Rule]
rules
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
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
id
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf VisibilityConfig
visibilityConfig
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
lockToken
instance Data.ToHeaders UpdateRuleGroup where
toHeaders :: UpdateRuleGroup -> 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.UpdateRuleGroup" ::
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 UpdateRuleGroup where
toJSON :: UpdateRuleGroup -> Value
toJSON UpdateRuleGroup' {Maybe [Rule]
Maybe Text
Maybe (HashMap Text CustomResponseBody)
Text
Scope
VisibilityConfig
lockToken :: Text
visibilityConfig :: VisibilityConfig
id :: Text
scope :: Scope
name :: Text
rules :: Maybe [Rule]
description :: Maybe Text
customResponseBodies :: Maybe (HashMap Text CustomResponseBody)
$sel:lockToken:UpdateRuleGroup' :: UpdateRuleGroup -> Text
$sel:visibilityConfig:UpdateRuleGroup' :: UpdateRuleGroup -> VisibilityConfig
$sel:id:UpdateRuleGroup' :: UpdateRuleGroup -> Text
$sel:scope:UpdateRuleGroup' :: UpdateRuleGroup -> Scope
$sel:name:UpdateRuleGroup' :: UpdateRuleGroup -> Text
$sel:rules:UpdateRuleGroup' :: UpdateRuleGroup -> Maybe [Rule]
$sel:description:UpdateRuleGroup' :: UpdateRuleGroup -> Maybe Text
$sel:customResponseBodies:UpdateRuleGroup' :: UpdateRuleGroup -> Maybe (HashMap Text CustomResponseBody)
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"CustomResponseBodies" 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 (HashMap Text CustomResponseBody)
customResponseBodies,
(Key
"Description" 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
description,
(Key
"Rules" 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 [Rule]
rules,
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),
forall a. a -> Maybe a
Prelude.Just (Key
"Id" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
id),
forall a. a -> Maybe a
Prelude.Just
(Key
"VisibilityConfig" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= VisibilityConfig
visibilityConfig),
forall a. a -> Maybe a
Prelude.Just (Key
"LockToken" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
lockToken)
]
)
instance Data.ToPath UpdateRuleGroup where
toPath :: UpdateRuleGroup -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery UpdateRuleGroup where
toQuery :: UpdateRuleGroup -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data UpdateRuleGroupResponse = UpdateRuleGroupResponse'
{
UpdateRuleGroupResponse -> Maybe Text
nextLockToken :: Prelude.Maybe Prelude.Text,
UpdateRuleGroupResponse -> Int
httpStatus :: Prelude.Int
}
deriving (UpdateRuleGroupResponse -> UpdateRuleGroupResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: UpdateRuleGroupResponse -> UpdateRuleGroupResponse -> Bool
$c/= :: UpdateRuleGroupResponse -> UpdateRuleGroupResponse -> Bool
== :: UpdateRuleGroupResponse -> UpdateRuleGroupResponse -> Bool
$c== :: UpdateRuleGroupResponse -> UpdateRuleGroupResponse -> Bool
Prelude.Eq, ReadPrec [UpdateRuleGroupResponse]
ReadPrec UpdateRuleGroupResponse
Int -> ReadS UpdateRuleGroupResponse
ReadS [UpdateRuleGroupResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [UpdateRuleGroupResponse]
$creadListPrec :: ReadPrec [UpdateRuleGroupResponse]
readPrec :: ReadPrec UpdateRuleGroupResponse
$creadPrec :: ReadPrec UpdateRuleGroupResponse
readList :: ReadS [UpdateRuleGroupResponse]
$creadList :: ReadS [UpdateRuleGroupResponse]
readsPrec :: Int -> ReadS UpdateRuleGroupResponse
$creadsPrec :: Int -> ReadS UpdateRuleGroupResponse
Prelude.Read, Int -> UpdateRuleGroupResponse -> ShowS
[UpdateRuleGroupResponse] -> ShowS
UpdateRuleGroupResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [UpdateRuleGroupResponse] -> ShowS
$cshowList :: [UpdateRuleGroupResponse] -> ShowS
show :: UpdateRuleGroupResponse -> String
$cshow :: UpdateRuleGroupResponse -> String
showsPrec :: Int -> UpdateRuleGroupResponse -> ShowS
$cshowsPrec :: Int -> UpdateRuleGroupResponse -> ShowS
Prelude.Show, forall x. Rep UpdateRuleGroupResponse x -> UpdateRuleGroupResponse
forall x. UpdateRuleGroupResponse -> Rep UpdateRuleGroupResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep UpdateRuleGroupResponse x -> UpdateRuleGroupResponse
$cfrom :: forall x. UpdateRuleGroupResponse -> Rep UpdateRuleGroupResponse x
Prelude.Generic)
newUpdateRuleGroupResponse ::
Prelude.Int ->
UpdateRuleGroupResponse
newUpdateRuleGroupResponse :: Int -> UpdateRuleGroupResponse
newUpdateRuleGroupResponse Int
pHttpStatus_ =
UpdateRuleGroupResponse'
{ $sel:nextLockToken:UpdateRuleGroupResponse' :: Maybe Text
nextLockToken =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:UpdateRuleGroupResponse' :: Int
httpStatus = Int
pHttpStatus_
}
updateRuleGroupResponse_nextLockToken :: Lens.Lens' UpdateRuleGroupResponse (Prelude.Maybe Prelude.Text)
updateRuleGroupResponse_nextLockToken :: Lens' UpdateRuleGroupResponse (Maybe Text)
updateRuleGroupResponse_nextLockToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateRuleGroupResponse' {Maybe Text
nextLockToken :: Maybe Text
$sel:nextLockToken:UpdateRuleGroupResponse' :: UpdateRuleGroupResponse -> Maybe Text
nextLockToken} -> Maybe Text
nextLockToken) (\s :: UpdateRuleGroupResponse
s@UpdateRuleGroupResponse' {} Maybe Text
a -> UpdateRuleGroupResponse
s {$sel:nextLockToken:UpdateRuleGroupResponse' :: Maybe Text
nextLockToken = Maybe Text
a} :: UpdateRuleGroupResponse)
updateRuleGroupResponse_httpStatus :: Lens.Lens' UpdateRuleGroupResponse Prelude.Int
updateRuleGroupResponse_httpStatus :: Lens' UpdateRuleGroupResponse Int
updateRuleGroupResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateRuleGroupResponse' {Int
httpStatus :: Int
$sel:httpStatus:UpdateRuleGroupResponse' :: UpdateRuleGroupResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: UpdateRuleGroupResponse
s@UpdateRuleGroupResponse' {} Int
a -> UpdateRuleGroupResponse
s {$sel:httpStatus:UpdateRuleGroupResponse' :: Int
httpStatus = Int
a} :: UpdateRuleGroupResponse)
instance Prelude.NFData UpdateRuleGroupResponse where
rnf :: UpdateRuleGroupResponse -> ()
rnf UpdateRuleGroupResponse' {Int
Maybe Text
httpStatus :: Int
nextLockToken :: Maybe Text
$sel:httpStatus:UpdateRuleGroupResponse' :: UpdateRuleGroupResponse -> Int
$sel:nextLockToken:UpdateRuleGroupResponse' :: UpdateRuleGroupResponse -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
nextLockToken
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus