{-# 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.RDS.AuthorizeDBSecurityGroupIngress
(
AuthorizeDBSecurityGroupIngress (..),
newAuthorizeDBSecurityGroupIngress,
authorizeDBSecurityGroupIngress_cidrip,
authorizeDBSecurityGroupIngress_eC2SecurityGroupId,
authorizeDBSecurityGroupIngress_eC2SecurityGroupName,
authorizeDBSecurityGroupIngress_eC2SecurityGroupOwnerId,
authorizeDBSecurityGroupIngress_dbSecurityGroupName,
AuthorizeDBSecurityGroupIngressResponse (..),
newAuthorizeDBSecurityGroupIngressResponse,
authorizeDBSecurityGroupIngressResponse_dbSecurityGroup,
authorizeDBSecurityGroupIngressResponse_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 Amazonka.RDS.Types
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data AuthorizeDBSecurityGroupIngress = AuthorizeDBSecurityGroupIngress'
{
AuthorizeDBSecurityGroupIngress -> Maybe Text
cidrip :: Prelude.Maybe Prelude.Text,
AuthorizeDBSecurityGroupIngress -> Maybe Text
eC2SecurityGroupId :: Prelude.Maybe Prelude.Text,
AuthorizeDBSecurityGroupIngress -> Maybe Text
eC2SecurityGroupName :: Prelude.Maybe Prelude.Text,
AuthorizeDBSecurityGroupIngress -> Maybe Text
eC2SecurityGroupOwnerId :: Prelude.Maybe Prelude.Text,
AuthorizeDBSecurityGroupIngress -> Text
dbSecurityGroupName :: Prelude.Text
}
deriving (AuthorizeDBSecurityGroupIngress
-> AuthorizeDBSecurityGroupIngress -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: AuthorizeDBSecurityGroupIngress
-> AuthorizeDBSecurityGroupIngress -> Bool
$c/= :: AuthorizeDBSecurityGroupIngress
-> AuthorizeDBSecurityGroupIngress -> Bool
== :: AuthorizeDBSecurityGroupIngress
-> AuthorizeDBSecurityGroupIngress -> Bool
$c== :: AuthorizeDBSecurityGroupIngress
-> AuthorizeDBSecurityGroupIngress -> Bool
Prelude.Eq, ReadPrec [AuthorizeDBSecurityGroupIngress]
ReadPrec AuthorizeDBSecurityGroupIngress
Int -> ReadS AuthorizeDBSecurityGroupIngress
ReadS [AuthorizeDBSecurityGroupIngress]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [AuthorizeDBSecurityGroupIngress]
$creadListPrec :: ReadPrec [AuthorizeDBSecurityGroupIngress]
readPrec :: ReadPrec AuthorizeDBSecurityGroupIngress
$creadPrec :: ReadPrec AuthorizeDBSecurityGroupIngress
readList :: ReadS [AuthorizeDBSecurityGroupIngress]
$creadList :: ReadS [AuthorizeDBSecurityGroupIngress]
readsPrec :: Int -> ReadS AuthorizeDBSecurityGroupIngress
$creadsPrec :: Int -> ReadS AuthorizeDBSecurityGroupIngress
Prelude.Read, Int -> AuthorizeDBSecurityGroupIngress -> ShowS
[AuthorizeDBSecurityGroupIngress] -> ShowS
AuthorizeDBSecurityGroupIngress -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [AuthorizeDBSecurityGroupIngress] -> ShowS
$cshowList :: [AuthorizeDBSecurityGroupIngress] -> ShowS
show :: AuthorizeDBSecurityGroupIngress -> String
$cshow :: AuthorizeDBSecurityGroupIngress -> String
showsPrec :: Int -> AuthorizeDBSecurityGroupIngress -> ShowS
$cshowsPrec :: Int -> AuthorizeDBSecurityGroupIngress -> ShowS
Prelude.Show, forall x.
Rep AuthorizeDBSecurityGroupIngress x
-> AuthorizeDBSecurityGroupIngress
forall x.
AuthorizeDBSecurityGroupIngress
-> Rep AuthorizeDBSecurityGroupIngress x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep AuthorizeDBSecurityGroupIngress x
-> AuthorizeDBSecurityGroupIngress
$cfrom :: forall x.
AuthorizeDBSecurityGroupIngress
-> Rep AuthorizeDBSecurityGroupIngress x
Prelude.Generic)
newAuthorizeDBSecurityGroupIngress ::
Prelude.Text ->
AuthorizeDBSecurityGroupIngress
newAuthorizeDBSecurityGroupIngress :: Text -> AuthorizeDBSecurityGroupIngress
newAuthorizeDBSecurityGroupIngress
Text
pDBSecurityGroupName_ =
AuthorizeDBSecurityGroupIngress'
{ $sel:cidrip:AuthorizeDBSecurityGroupIngress' :: Maybe Text
cidrip =
forall a. Maybe a
Prelude.Nothing,
$sel:eC2SecurityGroupId:AuthorizeDBSecurityGroupIngress' :: Maybe Text
eC2SecurityGroupId = forall a. Maybe a
Prelude.Nothing,
$sel:eC2SecurityGroupName:AuthorizeDBSecurityGroupIngress' :: Maybe Text
eC2SecurityGroupName = forall a. Maybe a
Prelude.Nothing,
$sel:eC2SecurityGroupOwnerId:AuthorizeDBSecurityGroupIngress' :: Maybe Text
eC2SecurityGroupOwnerId = forall a. Maybe a
Prelude.Nothing,
$sel:dbSecurityGroupName:AuthorizeDBSecurityGroupIngress' :: Text
dbSecurityGroupName =
Text
pDBSecurityGroupName_
}
authorizeDBSecurityGroupIngress_cidrip :: Lens.Lens' AuthorizeDBSecurityGroupIngress (Prelude.Maybe Prelude.Text)
authorizeDBSecurityGroupIngress_cidrip :: Lens' AuthorizeDBSecurityGroupIngress (Maybe Text)
authorizeDBSecurityGroupIngress_cidrip = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AuthorizeDBSecurityGroupIngress' {Maybe Text
cidrip :: Maybe Text
$sel:cidrip:AuthorizeDBSecurityGroupIngress' :: AuthorizeDBSecurityGroupIngress -> Maybe Text
cidrip} -> Maybe Text
cidrip) (\s :: AuthorizeDBSecurityGroupIngress
s@AuthorizeDBSecurityGroupIngress' {} Maybe Text
a -> AuthorizeDBSecurityGroupIngress
s {$sel:cidrip:AuthorizeDBSecurityGroupIngress' :: Maybe Text
cidrip = Maybe Text
a} :: AuthorizeDBSecurityGroupIngress)
authorizeDBSecurityGroupIngress_eC2SecurityGroupId :: Lens.Lens' AuthorizeDBSecurityGroupIngress (Prelude.Maybe Prelude.Text)
authorizeDBSecurityGroupIngress_eC2SecurityGroupId :: Lens' AuthorizeDBSecurityGroupIngress (Maybe Text)
authorizeDBSecurityGroupIngress_eC2SecurityGroupId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AuthorizeDBSecurityGroupIngress' {Maybe Text
eC2SecurityGroupId :: Maybe Text
$sel:eC2SecurityGroupId:AuthorizeDBSecurityGroupIngress' :: AuthorizeDBSecurityGroupIngress -> Maybe Text
eC2SecurityGroupId} -> Maybe Text
eC2SecurityGroupId) (\s :: AuthorizeDBSecurityGroupIngress
s@AuthorizeDBSecurityGroupIngress' {} Maybe Text
a -> AuthorizeDBSecurityGroupIngress
s {$sel:eC2SecurityGroupId:AuthorizeDBSecurityGroupIngress' :: Maybe Text
eC2SecurityGroupId = Maybe Text
a} :: AuthorizeDBSecurityGroupIngress)
authorizeDBSecurityGroupIngress_eC2SecurityGroupName :: Lens.Lens' AuthorizeDBSecurityGroupIngress (Prelude.Maybe Prelude.Text)
authorizeDBSecurityGroupIngress_eC2SecurityGroupName :: Lens' AuthorizeDBSecurityGroupIngress (Maybe Text)
authorizeDBSecurityGroupIngress_eC2SecurityGroupName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AuthorizeDBSecurityGroupIngress' {Maybe Text
eC2SecurityGroupName :: Maybe Text
$sel:eC2SecurityGroupName:AuthorizeDBSecurityGroupIngress' :: AuthorizeDBSecurityGroupIngress -> Maybe Text
eC2SecurityGroupName} -> Maybe Text
eC2SecurityGroupName) (\s :: AuthorizeDBSecurityGroupIngress
s@AuthorizeDBSecurityGroupIngress' {} Maybe Text
a -> AuthorizeDBSecurityGroupIngress
s {$sel:eC2SecurityGroupName:AuthorizeDBSecurityGroupIngress' :: Maybe Text
eC2SecurityGroupName = Maybe Text
a} :: AuthorizeDBSecurityGroupIngress)
authorizeDBSecurityGroupIngress_eC2SecurityGroupOwnerId :: Lens.Lens' AuthorizeDBSecurityGroupIngress (Prelude.Maybe Prelude.Text)
authorizeDBSecurityGroupIngress_eC2SecurityGroupOwnerId :: Lens' AuthorizeDBSecurityGroupIngress (Maybe Text)
authorizeDBSecurityGroupIngress_eC2SecurityGroupOwnerId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AuthorizeDBSecurityGroupIngress' {Maybe Text
eC2SecurityGroupOwnerId :: Maybe Text
$sel:eC2SecurityGroupOwnerId:AuthorizeDBSecurityGroupIngress' :: AuthorizeDBSecurityGroupIngress -> Maybe Text
eC2SecurityGroupOwnerId} -> Maybe Text
eC2SecurityGroupOwnerId) (\s :: AuthorizeDBSecurityGroupIngress
s@AuthorizeDBSecurityGroupIngress' {} Maybe Text
a -> AuthorizeDBSecurityGroupIngress
s {$sel:eC2SecurityGroupOwnerId:AuthorizeDBSecurityGroupIngress' :: Maybe Text
eC2SecurityGroupOwnerId = Maybe Text
a} :: AuthorizeDBSecurityGroupIngress)
authorizeDBSecurityGroupIngress_dbSecurityGroupName :: Lens.Lens' AuthorizeDBSecurityGroupIngress Prelude.Text
authorizeDBSecurityGroupIngress_dbSecurityGroupName :: Lens' AuthorizeDBSecurityGroupIngress Text
authorizeDBSecurityGroupIngress_dbSecurityGroupName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AuthorizeDBSecurityGroupIngress' {Text
dbSecurityGroupName :: Text
$sel:dbSecurityGroupName:AuthorizeDBSecurityGroupIngress' :: AuthorizeDBSecurityGroupIngress -> Text
dbSecurityGroupName} -> Text
dbSecurityGroupName) (\s :: AuthorizeDBSecurityGroupIngress
s@AuthorizeDBSecurityGroupIngress' {} Text
a -> AuthorizeDBSecurityGroupIngress
s {$sel:dbSecurityGroupName:AuthorizeDBSecurityGroupIngress' :: Text
dbSecurityGroupName = Text
a} :: AuthorizeDBSecurityGroupIngress)
instance
Core.AWSRequest
AuthorizeDBSecurityGroupIngress
where
type
AWSResponse AuthorizeDBSecurityGroupIngress =
AuthorizeDBSecurityGroupIngressResponse
request :: (Service -> Service)
-> AuthorizeDBSecurityGroupIngress
-> Request AuthorizeDBSecurityGroupIngress
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 AuthorizeDBSecurityGroupIngress
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse (AWSResponse AuthorizeDBSecurityGroupIngress)))
response =
forall (m :: * -> *) a.
MonadResource m =>
Text
-> (Int
-> ResponseHeaders -> [Node] -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveXMLWrapper
Text
"AuthorizeDBSecurityGroupIngressResult"
( \Int
s ResponseHeaders
h [Node]
x ->
Maybe DBSecurityGroup
-> Int -> AuthorizeDBSecurityGroupIngressResponse
AuthorizeDBSecurityGroupIngressResponse'
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
"DBSecurityGroup")
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
AuthorizeDBSecurityGroupIngress
where
hashWithSalt :: Int -> AuthorizeDBSecurityGroupIngress -> Int
hashWithSalt
Int
_salt
AuthorizeDBSecurityGroupIngress' {Maybe Text
Text
dbSecurityGroupName :: Text
eC2SecurityGroupOwnerId :: Maybe Text
eC2SecurityGroupName :: Maybe Text
eC2SecurityGroupId :: Maybe Text
cidrip :: Maybe Text
$sel:dbSecurityGroupName:AuthorizeDBSecurityGroupIngress' :: AuthorizeDBSecurityGroupIngress -> Text
$sel:eC2SecurityGroupOwnerId:AuthorizeDBSecurityGroupIngress' :: AuthorizeDBSecurityGroupIngress -> Maybe Text
$sel:eC2SecurityGroupName:AuthorizeDBSecurityGroupIngress' :: AuthorizeDBSecurityGroupIngress -> Maybe Text
$sel:eC2SecurityGroupId:AuthorizeDBSecurityGroupIngress' :: AuthorizeDBSecurityGroupIngress -> Maybe Text
$sel:cidrip:AuthorizeDBSecurityGroupIngress' :: AuthorizeDBSecurityGroupIngress -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
cidrip
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
eC2SecurityGroupId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
eC2SecurityGroupName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
eC2SecurityGroupOwnerId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
dbSecurityGroupName
instance
Prelude.NFData
AuthorizeDBSecurityGroupIngress
where
rnf :: AuthorizeDBSecurityGroupIngress -> ()
rnf AuthorizeDBSecurityGroupIngress' {Maybe Text
Text
dbSecurityGroupName :: Text
eC2SecurityGroupOwnerId :: Maybe Text
eC2SecurityGroupName :: Maybe Text
eC2SecurityGroupId :: Maybe Text
cidrip :: Maybe Text
$sel:dbSecurityGroupName:AuthorizeDBSecurityGroupIngress' :: AuthorizeDBSecurityGroupIngress -> Text
$sel:eC2SecurityGroupOwnerId:AuthorizeDBSecurityGroupIngress' :: AuthorizeDBSecurityGroupIngress -> Maybe Text
$sel:eC2SecurityGroupName:AuthorizeDBSecurityGroupIngress' :: AuthorizeDBSecurityGroupIngress -> Maybe Text
$sel:eC2SecurityGroupId:AuthorizeDBSecurityGroupIngress' :: AuthorizeDBSecurityGroupIngress -> Maybe Text
$sel:cidrip:AuthorizeDBSecurityGroupIngress' :: AuthorizeDBSecurityGroupIngress -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
cidrip
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
eC2SecurityGroupId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
eC2SecurityGroupName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
eC2SecurityGroupOwnerId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
dbSecurityGroupName
instance
Data.ToHeaders
AuthorizeDBSecurityGroupIngress
where
toHeaders :: AuthorizeDBSecurityGroupIngress -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToPath AuthorizeDBSecurityGroupIngress where
toPath :: AuthorizeDBSecurityGroupIngress -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery AuthorizeDBSecurityGroupIngress where
toQuery :: AuthorizeDBSecurityGroupIngress -> QueryString
toQuery AuthorizeDBSecurityGroupIngress' {Maybe Text
Text
dbSecurityGroupName :: Text
eC2SecurityGroupOwnerId :: Maybe Text
eC2SecurityGroupName :: Maybe Text
eC2SecurityGroupId :: Maybe Text
cidrip :: Maybe Text
$sel:dbSecurityGroupName:AuthorizeDBSecurityGroupIngress' :: AuthorizeDBSecurityGroupIngress -> Text
$sel:eC2SecurityGroupOwnerId:AuthorizeDBSecurityGroupIngress' :: AuthorizeDBSecurityGroupIngress -> Maybe Text
$sel:eC2SecurityGroupName:AuthorizeDBSecurityGroupIngress' :: AuthorizeDBSecurityGroupIngress -> Maybe Text
$sel:eC2SecurityGroupId:AuthorizeDBSecurityGroupIngress' :: AuthorizeDBSecurityGroupIngress -> Maybe Text
$sel:cidrip:AuthorizeDBSecurityGroupIngress' :: AuthorizeDBSecurityGroupIngress -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"Action"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: ( ByteString
"AuthorizeDBSecurityGroupIngress" ::
Prelude.ByteString
),
ByteString
"Version"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"2014-10-31" :: Prelude.ByteString),
ByteString
"CIDRIP" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
cidrip,
ByteString
"EC2SecurityGroupId" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
eC2SecurityGroupId,
ByteString
"EC2SecurityGroupName" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
eC2SecurityGroupName,
ByteString
"EC2SecurityGroupOwnerId"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
eC2SecurityGroupOwnerId,
ByteString
"DBSecurityGroupName" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
dbSecurityGroupName
]
data AuthorizeDBSecurityGroupIngressResponse = AuthorizeDBSecurityGroupIngressResponse'
{ AuthorizeDBSecurityGroupIngressResponse -> Maybe DBSecurityGroup
dbSecurityGroup :: Prelude.Maybe DBSecurityGroup,
AuthorizeDBSecurityGroupIngressResponse -> Int
httpStatus :: Prelude.Int
}
deriving (AuthorizeDBSecurityGroupIngressResponse
-> AuthorizeDBSecurityGroupIngressResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: AuthorizeDBSecurityGroupIngressResponse
-> AuthorizeDBSecurityGroupIngressResponse -> Bool
$c/= :: AuthorizeDBSecurityGroupIngressResponse
-> AuthorizeDBSecurityGroupIngressResponse -> Bool
== :: AuthorizeDBSecurityGroupIngressResponse
-> AuthorizeDBSecurityGroupIngressResponse -> Bool
$c== :: AuthorizeDBSecurityGroupIngressResponse
-> AuthorizeDBSecurityGroupIngressResponse -> Bool
Prelude.Eq, ReadPrec [AuthorizeDBSecurityGroupIngressResponse]
ReadPrec AuthorizeDBSecurityGroupIngressResponse
Int -> ReadS AuthorizeDBSecurityGroupIngressResponse
ReadS [AuthorizeDBSecurityGroupIngressResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [AuthorizeDBSecurityGroupIngressResponse]
$creadListPrec :: ReadPrec [AuthorizeDBSecurityGroupIngressResponse]
readPrec :: ReadPrec AuthorizeDBSecurityGroupIngressResponse
$creadPrec :: ReadPrec AuthorizeDBSecurityGroupIngressResponse
readList :: ReadS [AuthorizeDBSecurityGroupIngressResponse]
$creadList :: ReadS [AuthorizeDBSecurityGroupIngressResponse]
readsPrec :: Int -> ReadS AuthorizeDBSecurityGroupIngressResponse
$creadsPrec :: Int -> ReadS AuthorizeDBSecurityGroupIngressResponse
Prelude.Read, Int -> AuthorizeDBSecurityGroupIngressResponse -> ShowS
[AuthorizeDBSecurityGroupIngressResponse] -> ShowS
AuthorizeDBSecurityGroupIngressResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [AuthorizeDBSecurityGroupIngressResponse] -> ShowS
$cshowList :: [AuthorizeDBSecurityGroupIngressResponse] -> ShowS
show :: AuthorizeDBSecurityGroupIngressResponse -> String
$cshow :: AuthorizeDBSecurityGroupIngressResponse -> String
showsPrec :: Int -> AuthorizeDBSecurityGroupIngressResponse -> ShowS
$cshowsPrec :: Int -> AuthorizeDBSecurityGroupIngressResponse -> ShowS
Prelude.Show, forall x.
Rep AuthorizeDBSecurityGroupIngressResponse x
-> AuthorizeDBSecurityGroupIngressResponse
forall x.
AuthorizeDBSecurityGroupIngressResponse
-> Rep AuthorizeDBSecurityGroupIngressResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep AuthorizeDBSecurityGroupIngressResponse x
-> AuthorizeDBSecurityGroupIngressResponse
$cfrom :: forall x.
AuthorizeDBSecurityGroupIngressResponse
-> Rep AuthorizeDBSecurityGroupIngressResponse x
Prelude.Generic)
newAuthorizeDBSecurityGroupIngressResponse ::
Prelude.Int ->
AuthorizeDBSecurityGroupIngressResponse
newAuthorizeDBSecurityGroupIngressResponse :: Int -> AuthorizeDBSecurityGroupIngressResponse
newAuthorizeDBSecurityGroupIngressResponse
Int
pHttpStatus_ =
AuthorizeDBSecurityGroupIngressResponse'
{ $sel:dbSecurityGroup:AuthorizeDBSecurityGroupIngressResponse' :: Maybe DBSecurityGroup
dbSecurityGroup =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:AuthorizeDBSecurityGroupIngressResponse' :: Int
httpStatus = Int
pHttpStatus_
}
authorizeDBSecurityGroupIngressResponse_dbSecurityGroup :: Lens.Lens' AuthorizeDBSecurityGroupIngressResponse (Prelude.Maybe DBSecurityGroup)
authorizeDBSecurityGroupIngressResponse_dbSecurityGroup :: Lens'
AuthorizeDBSecurityGroupIngressResponse (Maybe DBSecurityGroup)
authorizeDBSecurityGroupIngressResponse_dbSecurityGroup = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AuthorizeDBSecurityGroupIngressResponse' {Maybe DBSecurityGroup
dbSecurityGroup :: Maybe DBSecurityGroup
$sel:dbSecurityGroup:AuthorizeDBSecurityGroupIngressResponse' :: AuthorizeDBSecurityGroupIngressResponse -> Maybe DBSecurityGroup
dbSecurityGroup} -> Maybe DBSecurityGroup
dbSecurityGroup) (\s :: AuthorizeDBSecurityGroupIngressResponse
s@AuthorizeDBSecurityGroupIngressResponse' {} Maybe DBSecurityGroup
a -> AuthorizeDBSecurityGroupIngressResponse
s {$sel:dbSecurityGroup:AuthorizeDBSecurityGroupIngressResponse' :: Maybe DBSecurityGroup
dbSecurityGroup = Maybe DBSecurityGroup
a} :: AuthorizeDBSecurityGroupIngressResponse)
authorizeDBSecurityGroupIngressResponse_httpStatus :: Lens.Lens' AuthorizeDBSecurityGroupIngressResponse Prelude.Int
authorizeDBSecurityGroupIngressResponse_httpStatus :: Lens' AuthorizeDBSecurityGroupIngressResponse Int
authorizeDBSecurityGroupIngressResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AuthorizeDBSecurityGroupIngressResponse' {Int
httpStatus :: Int
$sel:httpStatus:AuthorizeDBSecurityGroupIngressResponse' :: AuthorizeDBSecurityGroupIngressResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: AuthorizeDBSecurityGroupIngressResponse
s@AuthorizeDBSecurityGroupIngressResponse' {} Int
a -> AuthorizeDBSecurityGroupIngressResponse
s {$sel:httpStatus:AuthorizeDBSecurityGroupIngressResponse' :: Int
httpStatus = Int
a} :: AuthorizeDBSecurityGroupIngressResponse)
instance
Prelude.NFData
AuthorizeDBSecurityGroupIngressResponse
where
rnf :: AuthorizeDBSecurityGroupIngressResponse -> ()
rnf AuthorizeDBSecurityGroupIngressResponse' {Int
Maybe DBSecurityGroup
httpStatus :: Int
dbSecurityGroup :: Maybe DBSecurityGroup
$sel:httpStatus:AuthorizeDBSecurityGroupIngressResponse' :: AuthorizeDBSecurityGroupIngressResponse -> Int
$sel:dbSecurityGroup:AuthorizeDBSecurityGroupIngressResponse' :: AuthorizeDBSecurityGroupIngressResponse -> Maybe DBSecurityGroup
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe DBSecurityGroup
dbSecurityGroup
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus