{-# 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.RemoveLayerVersionPermission
(
RemoveLayerVersionPermission (..),
newRemoveLayerVersionPermission,
removeLayerVersionPermission_revisionId,
removeLayerVersionPermission_layerName,
removeLayerVersionPermission_versionNumber,
removeLayerVersionPermission_statementId,
RemoveLayerVersionPermissionResponse (..),
newRemoveLayerVersionPermissionResponse,
)
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 RemoveLayerVersionPermission = RemoveLayerVersionPermission'
{
RemoveLayerVersionPermission -> Maybe Text
revisionId :: Prelude.Maybe Prelude.Text,
RemoveLayerVersionPermission -> Text
layerName :: Prelude.Text,
RemoveLayerVersionPermission -> Integer
versionNumber :: Prelude.Integer,
RemoveLayerVersionPermission -> Text
statementId :: Prelude.Text
}
deriving (RemoveLayerVersionPermission
-> RemoveLayerVersionPermission -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: RemoveLayerVersionPermission
-> RemoveLayerVersionPermission -> Bool
$c/= :: RemoveLayerVersionPermission
-> RemoveLayerVersionPermission -> Bool
== :: RemoveLayerVersionPermission
-> RemoveLayerVersionPermission -> Bool
$c== :: RemoveLayerVersionPermission
-> RemoveLayerVersionPermission -> Bool
Prelude.Eq, ReadPrec [RemoveLayerVersionPermission]
ReadPrec RemoveLayerVersionPermission
Int -> ReadS RemoveLayerVersionPermission
ReadS [RemoveLayerVersionPermission]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [RemoveLayerVersionPermission]
$creadListPrec :: ReadPrec [RemoveLayerVersionPermission]
readPrec :: ReadPrec RemoveLayerVersionPermission
$creadPrec :: ReadPrec RemoveLayerVersionPermission
readList :: ReadS [RemoveLayerVersionPermission]
$creadList :: ReadS [RemoveLayerVersionPermission]
readsPrec :: Int -> ReadS RemoveLayerVersionPermission
$creadsPrec :: Int -> ReadS RemoveLayerVersionPermission
Prelude.Read, Int -> RemoveLayerVersionPermission -> ShowS
[RemoveLayerVersionPermission] -> ShowS
RemoveLayerVersionPermission -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [RemoveLayerVersionPermission] -> ShowS
$cshowList :: [RemoveLayerVersionPermission] -> ShowS
show :: RemoveLayerVersionPermission -> String
$cshow :: RemoveLayerVersionPermission -> String
showsPrec :: Int -> RemoveLayerVersionPermission -> ShowS
$cshowsPrec :: Int -> RemoveLayerVersionPermission -> ShowS
Prelude.Show, forall x.
Rep RemoveLayerVersionPermission x -> RemoveLayerVersionPermission
forall x.
RemoveLayerVersionPermission -> Rep RemoveLayerVersionPermission x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep RemoveLayerVersionPermission x -> RemoveLayerVersionPermission
$cfrom :: forall x.
RemoveLayerVersionPermission -> Rep RemoveLayerVersionPermission x
Prelude.Generic)
newRemoveLayerVersionPermission ::
Prelude.Text ->
Prelude.Integer ->
Prelude.Text ->
RemoveLayerVersionPermission
newRemoveLayerVersionPermission :: Text -> Integer -> Text -> RemoveLayerVersionPermission
newRemoveLayerVersionPermission
Text
pLayerName_
Integer
pVersionNumber_
Text
pStatementId_ =
RemoveLayerVersionPermission'
{ $sel:revisionId:RemoveLayerVersionPermission' :: Maybe Text
revisionId =
forall a. Maybe a
Prelude.Nothing,
$sel:layerName:RemoveLayerVersionPermission' :: Text
layerName = Text
pLayerName_,
$sel:versionNumber:RemoveLayerVersionPermission' :: Integer
versionNumber = Integer
pVersionNumber_,
$sel:statementId:RemoveLayerVersionPermission' :: Text
statementId = Text
pStatementId_
}
removeLayerVersionPermission_revisionId :: Lens.Lens' RemoveLayerVersionPermission (Prelude.Maybe Prelude.Text)
removeLayerVersionPermission_revisionId :: Lens' RemoveLayerVersionPermission (Maybe Text)
removeLayerVersionPermission_revisionId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RemoveLayerVersionPermission' {Maybe Text
revisionId :: Maybe Text
$sel:revisionId:RemoveLayerVersionPermission' :: RemoveLayerVersionPermission -> Maybe Text
revisionId} -> Maybe Text
revisionId) (\s :: RemoveLayerVersionPermission
s@RemoveLayerVersionPermission' {} Maybe Text
a -> RemoveLayerVersionPermission
s {$sel:revisionId:RemoveLayerVersionPermission' :: Maybe Text
revisionId = Maybe Text
a} :: RemoveLayerVersionPermission)
removeLayerVersionPermission_layerName :: Lens.Lens' RemoveLayerVersionPermission Prelude.Text
removeLayerVersionPermission_layerName :: Lens' RemoveLayerVersionPermission Text
removeLayerVersionPermission_layerName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RemoveLayerVersionPermission' {Text
layerName :: Text
$sel:layerName:RemoveLayerVersionPermission' :: RemoveLayerVersionPermission -> Text
layerName} -> Text
layerName) (\s :: RemoveLayerVersionPermission
s@RemoveLayerVersionPermission' {} Text
a -> RemoveLayerVersionPermission
s {$sel:layerName:RemoveLayerVersionPermission' :: Text
layerName = Text
a} :: RemoveLayerVersionPermission)
removeLayerVersionPermission_versionNumber :: Lens.Lens' RemoveLayerVersionPermission Prelude.Integer
removeLayerVersionPermission_versionNumber :: Lens' RemoveLayerVersionPermission Integer
removeLayerVersionPermission_versionNumber = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RemoveLayerVersionPermission' {Integer
versionNumber :: Integer
$sel:versionNumber:RemoveLayerVersionPermission' :: RemoveLayerVersionPermission -> Integer
versionNumber} -> Integer
versionNumber) (\s :: RemoveLayerVersionPermission
s@RemoveLayerVersionPermission' {} Integer
a -> RemoveLayerVersionPermission
s {$sel:versionNumber:RemoveLayerVersionPermission' :: Integer
versionNumber = Integer
a} :: RemoveLayerVersionPermission)
removeLayerVersionPermission_statementId :: Lens.Lens' RemoveLayerVersionPermission Prelude.Text
removeLayerVersionPermission_statementId :: Lens' RemoveLayerVersionPermission Text
removeLayerVersionPermission_statementId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RemoveLayerVersionPermission' {Text
statementId :: Text
$sel:statementId:RemoveLayerVersionPermission' :: RemoveLayerVersionPermission -> Text
statementId} -> Text
statementId) (\s :: RemoveLayerVersionPermission
s@RemoveLayerVersionPermission' {} Text
a -> RemoveLayerVersionPermission
s {$sel:statementId:RemoveLayerVersionPermission' :: Text
statementId = Text
a} :: RemoveLayerVersionPermission)
instance Core.AWSRequest RemoveLayerVersionPermission where
type
AWSResponse RemoveLayerVersionPermission =
RemoveLayerVersionPermissionResponse
request :: (Service -> Service)
-> RemoveLayerVersionPermission
-> Request RemoveLayerVersionPermission
request Service -> Service
overrides =
forall a. ToRequest a => Service -> a -> Request a
Request.delete (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy RemoveLayerVersionPermission
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse RemoveLayerVersionPermission)))
response =
forall (m :: * -> *) a.
MonadResource m =>
AWSResponse a
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveNull
RemoveLayerVersionPermissionResponse
RemoveLayerVersionPermissionResponse'
instance
Prelude.Hashable
RemoveLayerVersionPermission
where
hashWithSalt :: Int -> RemoveLayerVersionPermission -> Int
hashWithSalt Int
_salt RemoveLayerVersionPermission' {Integer
Maybe Text
Text
statementId :: Text
versionNumber :: Integer
layerName :: Text
revisionId :: Maybe Text
$sel:statementId:RemoveLayerVersionPermission' :: RemoveLayerVersionPermission -> Text
$sel:versionNumber:RemoveLayerVersionPermission' :: RemoveLayerVersionPermission -> Integer
$sel:layerName:RemoveLayerVersionPermission' :: RemoveLayerVersionPermission -> Text
$sel:revisionId:RemoveLayerVersionPermission' :: RemoveLayerVersionPermission -> Maybe Text
..} =
Int
_salt
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
instance Prelude.NFData RemoveLayerVersionPermission where
rnf :: RemoveLayerVersionPermission -> ()
rnf RemoveLayerVersionPermission' {Integer
Maybe Text
Text
statementId :: Text
versionNumber :: Integer
layerName :: Text
revisionId :: Maybe Text
$sel:statementId:RemoveLayerVersionPermission' :: RemoveLayerVersionPermission -> Text
$sel:versionNumber:RemoveLayerVersionPermission' :: RemoveLayerVersionPermission -> Integer
$sel:layerName:RemoveLayerVersionPermission' :: RemoveLayerVersionPermission -> Text
$sel:revisionId:RemoveLayerVersionPermission' :: RemoveLayerVersionPermission -> 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 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
instance Data.ToHeaders RemoveLayerVersionPermission where
toHeaders :: RemoveLayerVersionPermission -> [Header]
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToPath RemoveLayerVersionPermission where
toPath :: RemoveLayerVersionPermission -> ByteString
toPath RemoveLayerVersionPermission' {Integer
Maybe Text
Text
statementId :: Text
versionNumber :: Integer
layerName :: Text
revisionId :: Maybe Text
$sel:statementId:RemoveLayerVersionPermission' :: RemoveLayerVersionPermission -> Text
$sel:versionNumber:RemoveLayerVersionPermission' :: RemoveLayerVersionPermission -> Integer
$sel:layerName:RemoveLayerVersionPermission' :: RemoveLayerVersionPermission -> Text
$sel:revisionId:RemoveLayerVersionPermission' :: RemoveLayerVersionPermission -> 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/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
statementId
]
instance Data.ToQuery RemoveLayerVersionPermission where
toQuery :: RemoveLayerVersionPermission -> QueryString
toQuery RemoveLayerVersionPermission' {Integer
Maybe Text
Text
statementId :: Text
versionNumber :: Integer
layerName :: Text
revisionId :: Maybe Text
$sel:statementId:RemoveLayerVersionPermission' :: RemoveLayerVersionPermission -> Text
$sel:versionNumber:RemoveLayerVersionPermission' :: RemoveLayerVersionPermission -> Integer
$sel:layerName:RemoveLayerVersionPermission' :: RemoveLayerVersionPermission -> Text
$sel:revisionId:RemoveLayerVersionPermission' :: RemoveLayerVersionPermission -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat [ByteString
"RevisionId" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
revisionId]
data RemoveLayerVersionPermissionResponse = RemoveLayerVersionPermissionResponse'
{
}
deriving (RemoveLayerVersionPermissionResponse
-> RemoveLayerVersionPermissionResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: RemoveLayerVersionPermissionResponse
-> RemoveLayerVersionPermissionResponse -> Bool
$c/= :: RemoveLayerVersionPermissionResponse
-> RemoveLayerVersionPermissionResponse -> Bool
== :: RemoveLayerVersionPermissionResponse
-> RemoveLayerVersionPermissionResponse -> Bool
$c== :: RemoveLayerVersionPermissionResponse
-> RemoveLayerVersionPermissionResponse -> Bool
Prelude.Eq, ReadPrec [RemoveLayerVersionPermissionResponse]
ReadPrec RemoveLayerVersionPermissionResponse
Int -> ReadS RemoveLayerVersionPermissionResponse
ReadS [RemoveLayerVersionPermissionResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [RemoveLayerVersionPermissionResponse]
$creadListPrec :: ReadPrec [RemoveLayerVersionPermissionResponse]
readPrec :: ReadPrec RemoveLayerVersionPermissionResponse
$creadPrec :: ReadPrec RemoveLayerVersionPermissionResponse
readList :: ReadS [RemoveLayerVersionPermissionResponse]
$creadList :: ReadS [RemoveLayerVersionPermissionResponse]
readsPrec :: Int -> ReadS RemoveLayerVersionPermissionResponse
$creadsPrec :: Int -> ReadS RemoveLayerVersionPermissionResponse
Prelude.Read, Int -> RemoveLayerVersionPermissionResponse -> ShowS
[RemoveLayerVersionPermissionResponse] -> ShowS
RemoveLayerVersionPermissionResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [RemoveLayerVersionPermissionResponse] -> ShowS
$cshowList :: [RemoveLayerVersionPermissionResponse] -> ShowS
show :: RemoveLayerVersionPermissionResponse -> String
$cshow :: RemoveLayerVersionPermissionResponse -> String
showsPrec :: Int -> RemoveLayerVersionPermissionResponse -> ShowS
$cshowsPrec :: Int -> RemoveLayerVersionPermissionResponse -> ShowS
Prelude.Show, forall x.
Rep RemoveLayerVersionPermissionResponse x
-> RemoveLayerVersionPermissionResponse
forall x.
RemoveLayerVersionPermissionResponse
-> Rep RemoveLayerVersionPermissionResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep RemoveLayerVersionPermissionResponse x
-> RemoveLayerVersionPermissionResponse
$cfrom :: forall x.
RemoveLayerVersionPermissionResponse
-> Rep RemoveLayerVersionPermissionResponse x
Prelude.Generic)
newRemoveLayerVersionPermissionResponse ::
RemoveLayerVersionPermissionResponse
newRemoveLayerVersionPermissionResponse :: RemoveLayerVersionPermissionResponse
newRemoveLayerVersionPermissionResponse =
RemoveLayerVersionPermissionResponse
RemoveLayerVersionPermissionResponse'
instance
Prelude.NFData
RemoveLayerVersionPermissionResponse
where
rnf :: RemoveLayerVersionPermissionResponse -> ()
rnf RemoveLayerVersionPermissionResponse
_ = ()