{-# 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.Lambda.AddLayerVersionPermission
(
AddLayerVersionPermission (..),
newAddLayerVersionPermission,
addLayerVersionPermission_organizationId,
addLayerVersionPermission_revisionId,
addLayerVersionPermission_layerName,
addLayerVersionPermission_versionNumber,
addLayerVersionPermission_statementId,
addLayerVersionPermission_action,
addLayerVersionPermission_principal,
AddLayerVersionPermissionResponse (..),
newAddLayerVersionPermissionResponse,
addLayerVersionPermissionResponse_revisionId,
addLayerVersionPermissionResponse_statement,
addLayerVersionPermissionResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.Lambda.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data AddLayerVersionPermission = AddLayerVersionPermission'
{
AddLayerVersionPermission -> Maybe Text
organizationId :: Prelude.Maybe Prelude.Text,
AddLayerVersionPermission -> Maybe Text
revisionId :: Prelude.Maybe Prelude.Text,
AddLayerVersionPermission -> Text
layerName :: Prelude.Text,
AddLayerVersionPermission -> Integer
versionNumber :: Prelude.Integer,
AddLayerVersionPermission -> Text
statementId :: Prelude.Text,
AddLayerVersionPermission -> Text
action :: Prelude.Text,
AddLayerVersionPermission -> Text
principal :: Prelude.Text
}
deriving (AddLayerVersionPermission -> AddLayerVersionPermission -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: AddLayerVersionPermission -> AddLayerVersionPermission -> Bool
$c/= :: AddLayerVersionPermission -> AddLayerVersionPermission -> Bool
== :: AddLayerVersionPermission -> AddLayerVersionPermission -> Bool
$c== :: AddLayerVersionPermission -> AddLayerVersionPermission -> Bool
Prelude.Eq, ReadPrec [AddLayerVersionPermission]
ReadPrec AddLayerVersionPermission
Int -> ReadS AddLayerVersionPermission
ReadS [AddLayerVersionPermission]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [AddLayerVersionPermission]
$creadListPrec :: ReadPrec [AddLayerVersionPermission]
readPrec :: ReadPrec AddLayerVersionPermission
$creadPrec :: ReadPrec AddLayerVersionPermission
readList :: ReadS [AddLayerVersionPermission]
$creadList :: ReadS [AddLayerVersionPermission]
readsPrec :: Int -> ReadS AddLayerVersionPermission
$creadsPrec :: Int -> ReadS AddLayerVersionPermission
Prelude.Read, Int -> AddLayerVersionPermission -> ShowS
[AddLayerVersionPermission] -> ShowS
AddLayerVersionPermission -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [AddLayerVersionPermission] -> ShowS
$cshowList :: [AddLayerVersionPermission] -> ShowS
show :: AddLayerVersionPermission -> String
$cshow :: AddLayerVersionPermission -> String
showsPrec :: Int -> AddLayerVersionPermission -> ShowS
$cshowsPrec :: Int -> AddLayerVersionPermission -> ShowS
Prelude.Show, forall x.
Rep AddLayerVersionPermission x -> AddLayerVersionPermission
forall x.
AddLayerVersionPermission -> Rep AddLayerVersionPermission x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep AddLayerVersionPermission x -> AddLayerVersionPermission
$cfrom :: forall x.
AddLayerVersionPermission -> Rep AddLayerVersionPermission x
Prelude.Generic)
newAddLayerVersionPermission ::
Prelude.Text ->
Prelude.Integer ->
Prelude.Text ->
Prelude.Text ->
Prelude.Text ->
AddLayerVersionPermission
newAddLayerVersionPermission :: Text
-> Integer -> Text -> Text -> Text -> AddLayerVersionPermission
newAddLayerVersionPermission
Text
pLayerName_
Integer
pVersionNumber_
Text
pStatementId_
Text
pAction_
Text
pPrincipal_ =
AddLayerVersionPermission'
{ $sel:organizationId:AddLayerVersionPermission' :: Maybe Text
organizationId =
forall a. Maybe a
Prelude.Nothing,
$sel:revisionId:AddLayerVersionPermission' :: Maybe Text
revisionId = forall a. Maybe a
Prelude.Nothing,
$sel:layerName:AddLayerVersionPermission' :: Text
layerName = Text
pLayerName_,
$sel:versionNumber:AddLayerVersionPermission' :: Integer
versionNumber = Integer
pVersionNumber_,
$sel:statementId:AddLayerVersionPermission' :: Text
statementId = Text
pStatementId_,
$sel:action:AddLayerVersionPermission' :: Text
action = Text
pAction_,
$sel:principal:AddLayerVersionPermission' :: Text
principal = Text
pPrincipal_
}
addLayerVersionPermission_organizationId :: Lens.Lens' AddLayerVersionPermission (Prelude.Maybe Prelude.Text)
addLayerVersionPermission_organizationId :: Lens' AddLayerVersionPermission (Maybe Text)
addLayerVersionPermission_organizationId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AddLayerVersionPermission' {Maybe Text
organizationId :: Maybe Text
$sel:organizationId:AddLayerVersionPermission' :: AddLayerVersionPermission -> Maybe Text
organizationId} -> Maybe Text
organizationId) (\s :: AddLayerVersionPermission
s@AddLayerVersionPermission' {} Maybe Text
a -> AddLayerVersionPermission
s {$sel:organizationId:AddLayerVersionPermission' :: Maybe Text
organizationId = Maybe Text
a} :: AddLayerVersionPermission)
addLayerVersionPermission_revisionId :: Lens.Lens' AddLayerVersionPermission (Prelude.Maybe Prelude.Text)
addLayerVersionPermission_revisionId :: Lens' AddLayerVersionPermission (Maybe Text)
addLayerVersionPermission_revisionId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AddLayerVersionPermission' {Maybe Text
revisionId :: Maybe Text
$sel:revisionId:AddLayerVersionPermission' :: AddLayerVersionPermission -> Maybe Text
revisionId} -> Maybe Text
revisionId) (\s :: AddLayerVersionPermission
s@AddLayerVersionPermission' {} Maybe Text
a -> AddLayerVersionPermission
s {$sel:revisionId:AddLayerVersionPermission' :: Maybe Text
revisionId = Maybe Text
a} :: AddLayerVersionPermission)
addLayerVersionPermission_layerName :: Lens.Lens' AddLayerVersionPermission Prelude.Text
addLayerVersionPermission_layerName :: Lens' AddLayerVersionPermission Text
addLayerVersionPermission_layerName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AddLayerVersionPermission' {Text
layerName :: Text
$sel:layerName:AddLayerVersionPermission' :: AddLayerVersionPermission -> Text
layerName} -> Text
layerName) (\s :: AddLayerVersionPermission
s@AddLayerVersionPermission' {} Text
a -> AddLayerVersionPermission
s {$sel:layerName:AddLayerVersionPermission' :: Text
layerName = Text
a} :: AddLayerVersionPermission)
addLayerVersionPermission_versionNumber :: Lens.Lens' AddLayerVersionPermission Prelude.Integer
addLayerVersionPermission_versionNumber :: Lens' AddLayerVersionPermission Integer
addLayerVersionPermission_versionNumber = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AddLayerVersionPermission' {Integer
versionNumber :: Integer
$sel:versionNumber:AddLayerVersionPermission' :: AddLayerVersionPermission -> Integer
versionNumber} -> Integer
versionNumber) (\s :: AddLayerVersionPermission
s@AddLayerVersionPermission' {} Integer
a -> AddLayerVersionPermission
s {$sel:versionNumber:AddLayerVersionPermission' :: Integer
versionNumber = Integer
a} :: AddLayerVersionPermission)
addLayerVersionPermission_statementId :: Lens.Lens' AddLayerVersionPermission Prelude.Text
addLayerVersionPermission_statementId :: Lens' AddLayerVersionPermission Text
addLayerVersionPermission_statementId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AddLayerVersionPermission' {Text
statementId :: Text
$sel:statementId:AddLayerVersionPermission' :: AddLayerVersionPermission -> Text
statementId} -> Text
statementId) (\s :: AddLayerVersionPermission
s@AddLayerVersionPermission' {} Text
a -> AddLayerVersionPermission
s {$sel:statementId:AddLayerVersionPermission' :: Text
statementId = Text
a} :: AddLayerVersionPermission)
addLayerVersionPermission_action :: Lens.Lens' AddLayerVersionPermission Prelude.Text
addLayerVersionPermission_action :: Lens' AddLayerVersionPermission Text
addLayerVersionPermission_action = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AddLayerVersionPermission' {Text
action :: Text
$sel:action:AddLayerVersionPermission' :: AddLayerVersionPermission -> Text
action} -> Text
action) (\s :: AddLayerVersionPermission
s@AddLayerVersionPermission' {} Text
a -> AddLayerVersionPermission
s {$sel:action:AddLayerVersionPermission' :: Text
action = Text
a} :: AddLayerVersionPermission)
addLayerVersionPermission_principal :: Lens.Lens' AddLayerVersionPermission Prelude.Text
addLayerVersionPermission_principal :: Lens' AddLayerVersionPermission Text
addLayerVersionPermission_principal = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AddLayerVersionPermission' {Text
principal :: Text
$sel:principal:AddLayerVersionPermission' :: AddLayerVersionPermission -> Text
principal} -> Text
principal) (\s :: AddLayerVersionPermission
s@AddLayerVersionPermission' {} Text
a -> AddLayerVersionPermission
s {$sel:principal:AddLayerVersionPermission' :: Text
principal = Text
a} :: AddLayerVersionPermission)
instance Core.AWSRequest AddLayerVersionPermission where
type
AWSResponse AddLayerVersionPermission =
AddLayerVersionPermissionResponse
request :: (Service -> Service)
-> AddLayerVersionPermission -> Request AddLayerVersionPermission
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 AddLayerVersionPermission
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse AddLayerVersionPermission)))
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 -> Int -> AddLayerVersionPermissionResponse
AddLayerVersionPermissionResponse'
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
"RevisionId")
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
"Statement")
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 AddLayerVersionPermission where
hashWithSalt :: Int -> AddLayerVersionPermission -> Int
hashWithSalt Int
_salt AddLayerVersionPermission' {Integer
Maybe Text
Text
principal :: Text
action :: Text
statementId :: Text
versionNumber :: Integer
layerName :: Text
revisionId :: Maybe Text
organizationId :: Maybe Text
$sel:principal:AddLayerVersionPermission' :: AddLayerVersionPermission -> Text
$sel:action:AddLayerVersionPermission' :: AddLayerVersionPermission -> Text
$sel:statementId:AddLayerVersionPermission' :: AddLayerVersionPermission -> Text
$sel:versionNumber:AddLayerVersionPermission' :: AddLayerVersionPermission -> Integer
$sel:layerName:AddLayerVersionPermission' :: AddLayerVersionPermission -> Text
$sel:revisionId:AddLayerVersionPermission' :: AddLayerVersionPermission -> Maybe Text
$sel:organizationId:AddLayerVersionPermission' :: AddLayerVersionPermission -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
organizationId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
revisionId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
layerName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Integer
versionNumber
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
statementId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
action
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
principal
instance Prelude.NFData AddLayerVersionPermission where
rnf :: AddLayerVersionPermission -> ()
rnf AddLayerVersionPermission' {Integer
Maybe Text
Text
principal :: Text
action :: Text
statementId :: Text
versionNumber :: Integer
layerName :: Text
revisionId :: Maybe Text
organizationId :: Maybe Text
$sel:principal:AddLayerVersionPermission' :: AddLayerVersionPermission -> Text
$sel:action:AddLayerVersionPermission' :: AddLayerVersionPermission -> Text
$sel:statementId:AddLayerVersionPermission' :: AddLayerVersionPermission -> Text
$sel:versionNumber:AddLayerVersionPermission' :: AddLayerVersionPermission -> Integer
$sel:layerName:AddLayerVersionPermission' :: AddLayerVersionPermission -> Text
$sel:revisionId:AddLayerVersionPermission' :: AddLayerVersionPermission -> Maybe Text
$sel:organizationId:AddLayerVersionPermission' :: AddLayerVersionPermission -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
organizationId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
revisionId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
layerName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Integer
versionNumber
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
statementId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
action
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
principal
instance Data.ToHeaders AddLayerVersionPermission where
toHeaders :: AddLayerVersionPermission -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToJSON AddLayerVersionPermission where
toJSON :: AddLayerVersionPermission -> Value
toJSON AddLayerVersionPermission' {Integer
Maybe Text
Text
principal :: Text
action :: Text
statementId :: Text
versionNumber :: Integer
layerName :: Text
revisionId :: Maybe Text
organizationId :: Maybe Text
$sel:principal:AddLayerVersionPermission' :: AddLayerVersionPermission -> Text
$sel:action:AddLayerVersionPermission' :: AddLayerVersionPermission -> Text
$sel:statementId:AddLayerVersionPermission' :: AddLayerVersionPermission -> Text
$sel:versionNumber:AddLayerVersionPermission' :: AddLayerVersionPermission -> Integer
$sel:layerName:AddLayerVersionPermission' :: AddLayerVersionPermission -> Text
$sel:revisionId:AddLayerVersionPermission' :: AddLayerVersionPermission -> Maybe Text
$sel:organizationId:AddLayerVersionPermission' :: AddLayerVersionPermission -> Maybe Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"OrganizationId" 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
organizationId,
forall a. a -> Maybe a
Prelude.Just (Key
"StatementId" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
statementId),
forall a. a -> Maybe a
Prelude.Just (Key
"Action" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
action),
forall a. a -> Maybe a
Prelude.Just (Key
"Principal" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
principal)
]
)
instance Data.ToPath AddLayerVersionPermission where
toPath :: AddLayerVersionPermission -> ByteString
toPath AddLayerVersionPermission' {Integer
Maybe Text
Text
principal :: Text
action :: Text
statementId :: Text
versionNumber :: Integer
layerName :: Text
revisionId :: Maybe Text
organizationId :: Maybe Text
$sel:principal:AddLayerVersionPermission' :: AddLayerVersionPermission -> Text
$sel:action:AddLayerVersionPermission' :: AddLayerVersionPermission -> Text
$sel:statementId:AddLayerVersionPermission' :: AddLayerVersionPermission -> Text
$sel:versionNumber:AddLayerVersionPermission' :: AddLayerVersionPermission -> Integer
$sel:layerName:AddLayerVersionPermission' :: AddLayerVersionPermission -> Text
$sel:revisionId:AddLayerVersionPermission' :: AddLayerVersionPermission -> Maybe Text
$sel:organizationId:AddLayerVersionPermission' :: AddLayerVersionPermission -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"/2018-10-31/layers/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
layerName,
ByteString
"/versions/",
forall a. ToByteString a => a -> ByteString
Data.toBS Integer
versionNumber,
ByteString
"/policy"
]
instance Data.ToQuery AddLayerVersionPermission where
toQuery :: AddLayerVersionPermission -> QueryString
toQuery AddLayerVersionPermission' {Integer
Maybe Text
Text
principal :: Text
action :: Text
statementId :: Text
versionNumber :: Integer
layerName :: Text
revisionId :: Maybe Text
organizationId :: Maybe Text
$sel:principal:AddLayerVersionPermission' :: AddLayerVersionPermission -> Text
$sel:action:AddLayerVersionPermission' :: AddLayerVersionPermission -> Text
$sel:statementId:AddLayerVersionPermission' :: AddLayerVersionPermission -> Text
$sel:versionNumber:AddLayerVersionPermission' :: AddLayerVersionPermission -> Integer
$sel:layerName:AddLayerVersionPermission' :: AddLayerVersionPermission -> Text
$sel:revisionId:AddLayerVersionPermission' :: AddLayerVersionPermission -> Maybe Text
$sel:organizationId:AddLayerVersionPermission' :: AddLayerVersionPermission -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat [ByteString
"RevisionId" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
revisionId]
data AddLayerVersionPermissionResponse = AddLayerVersionPermissionResponse'
{
AddLayerVersionPermissionResponse -> Maybe Text
revisionId :: Prelude.Maybe Prelude.Text,
AddLayerVersionPermissionResponse -> Maybe Text
statement :: Prelude.Maybe Prelude.Text,
AddLayerVersionPermissionResponse -> Int
httpStatus :: Prelude.Int
}
deriving (AddLayerVersionPermissionResponse
-> AddLayerVersionPermissionResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: AddLayerVersionPermissionResponse
-> AddLayerVersionPermissionResponse -> Bool
$c/= :: AddLayerVersionPermissionResponse
-> AddLayerVersionPermissionResponse -> Bool
== :: AddLayerVersionPermissionResponse
-> AddLayerVersionPermissionResponse -> Bool
$c== :: AddLayerVersionPermissionResponse
-> AddLayerVersionPermissionResponse -> Bool
Prelude.Eq, ReadPrec [AddLayerVersionPermissionResponse]
ReadPrec AddLayerVersionPermissionResponse
Int -> ReadS AddLayerVersionPermissionResponse
ReadS [AddLayerVersionPermissionResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [AddLayerVersionPermissionResponse]
$creadListPrec :: ReadPrec [AddLayerVersionPermissionResponse]
readPrec :: ReadPrec AddLayerVersionPermissionResponse
$creadPrec :: ReadPrec AddLayerVersionPermissionResponse
readList :: ReadS [AddLayerVersionPermissionResponse]
$creadList :: ReadS [AddLayerVersionPermissionResponse]
readsPrec :: Int -> ReadS AddLayerVersionPermissionResponse
$creadsPrec :: Int -> ReadS AddLayerVersionPermissionResponse
Prelude.Read, Int -> AddLayerVersionPermissionResponse -> ShowS
[AddLayerVersionPermissionResponse] -> ShowS
AddLayerVersionPermissionResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [AddLayerVersionPermissionResponse] -> ShowS
$cshowList :: [AddLayerVersionPermissionResponse] -> ShowS
show :: AddLayerVersionPermissionResponse -> String
$cshow :: AddLayerVersionPermissionResponse -> String
showsPrec :: Int -> AddLayerVersionPermissionResponse -> ShowS
$cshowsPrec :: Int -> AddLayerVersionPermissionResponse -> ShowS
Prelude.Show, forall x.
Rep AddLayerVersionPermissionResponse x
-> AddLayerVersionPermissionResponse
forall x.
AddLayerVersionPermissionResponse
-> Rep AddLayerVersionPermissionResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep AddLayerVersionPermissionResponse x
-> AddLayerVersionPermissionResponse
$cfrom :: forall x.
AddLayerVersionPermissionResponse
-> Rep AddLayerVersionPermissionResponse x
Prelude.Generic)
newAddLayerVersionPermissionResponse ::
Prelude.Int ->
AddLayerVersionPermissionResponse
newAddLayerVersionPermissionResponse :: Int -> AddLayerVersionPermissionResponse
newAddLayerVersionPermissionResponse Int
pHttpStatus_ =
AddLayerVersionPermissionResponse'
{ $sel:revisionId:AddLayerVersionPermissionResponse' :: Maybe Text
revisionId =
forall a. Maybe a
Prelude.Nothing,
$sel:statement:AddLayerVersionPermissionResponse' :: Maybe Text
statement = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:AddLayerVersionPermissionResponse' :: Int
httpStatus = Int
pHttpStatus_
}
addLayerVersionPermissionResponse_revisionId :: Lens.Lens' AddLayerVersionPermissionResponse (Prelude.Maybe Prelude.Text)
addLayerVersionPermissionResponse_revisionId :: Lens' AddLayerVersionPermissionResponse (Maybe Text)
addLayerVersionPermissionResponse_revisionId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AddLayerVersionPermissionResponse' {Maybe Text
revisionId :: Maybe Text
$sel:revisionId:AddLayerVersionPermissionResponse' :: AddLayerVersionPermissionResponse -> Maybe Text
revisionId} -> Maybe Text
revisionId) (\s :: AddLayerVersionPermissionResponse
s@AddLayerVersionPermissionResponse' {} Maybe Text
a -> AddLayerVersionPermissionResponse
s {$sel:revisionId:AddLayerVersionPermissionResponse' :: Maybe Text
revisionId = Maybe Text
a} :: AddLayerVersionPermissionResponse)
addLayerVersionPermissionResponse_statement :: Lens.Lens' AddLayerVersionPermissionResponse (Prelude.Maybe Prelude.Text)
addLayerVersionPermissionResponse_statement :: Lens' AddLayerVersionPermissionResponse (Maybe Text)
addLayerVersionPermissionResponse_statement = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AddLayerVersionPermissionResponse' {Maybe Text
statement :: Maybe Text
$sel:statement:AddLayerVersionPermissionResponse' :: AddLayerVersionPermissionResponse -> Maybe Text
statement} -> Maybe Text
statement) (\s :: AddLayerVersionPermissionResponse
s@AddLayerVersionPermissionResponse' {} Maybe Text
a -> AddLayerVersionPermissionResponse
s {$sel:statement:AddLayerVersionPermissionResponse' :: Maybe Text
statement = Maybe Text
a} :: AddLayerVersionPermissionResponse)
addLayerVersionPermissionResponse_httpStatus :: Lens.Lens' AddLayerVersionPermissionResponse Prelude.Int
addLayerVersionPermissionResponse_httpStatus :: Lens' AddLayerVersionPermissionResponse Int
addLayerVersionPermissionResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AddLayerVersionPermissionResponse' {Int
httpStatus :: Int
$sel:httpStatus:AddLayerVersionPermissionResponse' :: AddLayerVersionPermissionResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: AddLayerVersionPermissionResponse
s@AddLayerVersionPermissionResponse' {} Int
a -> AddLayerVersionPermissionResponse
s {$sel:httpStatus:AddLayerVersionPermissionResponse' :: Int
httpStatus = Int
a} :: AddLayerVersionPermissionResponse)
instance
Prelude.NFData
AddLayerVersionPermissionResponse
where
rnf :: AddLayerVersionPermissionResponse -> ()
rnf AddLayerVersionPermissionResponse' {Int
Maybe Text
httpStatus :: Int
statement :: Maybe Text
revisionId :: Maybe Text
$sel:httpStatus:AddLayerVersionPermissionResponse' :: AddLayerVersionPermissionResponse -> Int
$sel:statement:AddLayerVersionPermissionResponse' :: AddLayerVersionPermissionResponse -> Maybe Text
$sel:revisionId:AddLayerVersionPermissionResponse' :: AddLayerVersionPermissionResponse -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
revisionId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
statement
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus