{-# 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.AddPermission
(
AddPermission (..),
newAddPermission,
addPermission_eventSourceToken,
addPermission_functionUrlAuthType,
addPermission_principalOrgID,
addPermission_qualifier,
addPermission_revisionId,
addPermission_sourceAccount,
addPermission_sourceArn,
addPermission_functionName,
addPermission_statementId,
addPermission_action,
addPermission_principal,
AddPermissionResponse (..),
newAddPermissionResponse,
addPermissionResponse_statement,
addPermissionResponse_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 AddPermission = AddPermission'
{
AddPermission -> Maybe Text
eventSourceToken :: Prelude.Maybe Prelude.Text,
AddPermission -> Maybe FunctionUrlAuthType
functionUrlAuthType :: Prelude.Maybe FunctionUrlAuthType,
AddPermission -> Maybe Text
principalOrgID :: Prelude.Maybe Prelude.Text,
AddPermission -> Maybe Text
qualifier :: Prelude.Maybe Prelude.Text,
AddPermission -> Maybe Text
revisionId :: Prelude.Maybe Prelude.Text,
AddPermission -> Maybe Text
sourceAccount :: Prelude.Maybe Prelude.Text,
AddPermission -> Maybe Text
sourceArn :: Prelude.Maybe Prelude.Text,
AddPermission -> Text
functionName :: Prelude.Text,
AddPermission -> Text
statementId :: Prelude.Text,
AddPermission -> Text
action :: Prelude.Text,
AddPermission -> Text
principal :: Prelude.Text
}
deriving (AddPermission -> AddPermission -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: AddPermission -> AddPermission -> Bool
$c/= :: AddPermission -> AddPermission -> Bool
== :: AddPermission -> AddPermission -> Bool
$c== :: AddPermission -> AddPermission -> Bool
Prelude.Eq, ReadPrec [AddPermission]
ReadPrec AddPermission
Int -> ReadS AddPermission
ReadS [AddPermission]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [AddPermission]
$creadListPrec :: ReadPrec [AddPermission]
readPrec :: ReadPrec AddPermission
$creadPrec :: ReadPrec AddPermission
readList :: ReadS [AddPermission]
$creadList :: ReadS [AddPermission]
readsPrec :: Int -> ReadS AddPermission
$creadsPrec :: Int -> ReadS AddPermission
Prelude.Read, Int -> AddPermission -> ShowS
[AddPermission] -> ShowS
AddPermission -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [AddPermission] -> ShowS
$cshowList :: [AddPermission] -> ShowS
show :: AddPermission -> String
$cshow :: AddPermission -> String
showsPrec :: Int -> AddPermission -> ShowS
$cshowsPrec :: Int -> AddPermission -> ShowS
Prelude.Show, forall x. Rep AddPermission x -> AddPermission
forall x. AddPermission -> Rep AddPermission x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep AddPermission x -> AddPermission
$cfrom :: forall x. AddPermission -> Rep AddPermission x
Prelude.Generic)
newAddPermission ::
Prelude.Text ->
Prelude.Text ->
Prelude.Text ->
Prelude.Text ->
AddPermission
newAddPermission :: Text -> Text -> Text -> Text -> AddPermission
newAddPermission
Text
pFunctionName_
Text
pStatementId_
Text
pAction_
Text
pPrincipal_ =
AddPermission'
{ $sel:eventSourceToken:AddPermission' :: Maybe Text
eventSourceToken = forall a. Maybe a
Prelude.Nothing,
$sel:functionUrlAuthType:AddPermission' :: Maybe FunctionUrlAuthType
functionUrlAuthType = forall a. Maybe a
Prelude.Nothing,
$sel:principalOrgID:AddPermission' :: Maybe Text
principalOrgID = forall a. Maybe a
Prelude.Nothing,
$sel:qualifier:AddPermission' :: Maybe Text
qualifier = forall a. Maybe a
Prelude.Nothing,
$sel:revisionId:AddPermission' :: Maybe Text
revisionId = forall a. Maybe a
Prelude.Nothing,
$sel:sourceAccount:AddPermission' :: Maybe Text
sourceAccount = forall a. Maybe a
Prelude.Nothing,
$sel:sourceArn:AddPermission' :: Maybe Text
sourceArn = forall a. Maybe a
Prelude.Nothing,
$sel:functionName:AddPermission' :: Text
functionName = Text
pFunctionName_,
$sel:statementId:AddPermission' :: Text
statementId = Text
pStatementId_,
$sel:action:AddPermission' :: Text
action = Text
pAction_,
$sel:principal:AddPermission' :: Text
principal = Text
pPrincipal_
}
addPermission_eventSourceToken :: Lens.Lens' AddPermission (Prelude.Maybe Prelude.Text)
addPermission_eventSourceToken :: Lens' AddPermission (Maybe Text)
addPermission_eventSourceToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AddPermission' {Maybe Text
eventSourceToken :: Maybe Text
$sel:eventSourceToken:AddPermission' :: AddPermission -> Maybe Text
eventSourceToken} -> Maybe Text
eventSourceToken) (\s :: AddPermission
s@AddPermission' {} Maybe Text
a -> AddPermission
s {$sel:eventSourceToken:AddPermission' :: Maybe Text
eventSourceToken = Maybe Text
a} :: AddPermission)
addPermission_functionUrlAuthType :: Lens.Lens' AddPermission (Prelude.Maybe FunctionUrlAuthType)
addPermission_functionUrlAuthType :: Lens' AddPermission (Maybe FunctionUrlAuthType)
addPermission_functionUrlAuthType = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AddPermission' {Maybe FunctionUrlAuthType
functionUrlAuthType :: Maybe FunctionUrlAuthType
$sel:functionUrlAuthType:AddPermission' :: AddPermission -> Maybe FunctionUrlAuthType
functionUrlAuthType} -> Maybe FunctionUrlAuthType
functionUrlAuthType) (\s :: AddPermission
s@AddPermission' {} Maybe FunctionUrlAuthType
a -> AddPermission
s {$sel:functionUrlAuthType:AddPermission' :: Maybe FunctionUrlAuthType
functionUrlAuthType = Maybe FunctionUrlAuthType
a} :: AddPermission)
addPermission_principalOrgID :: Lens.Lens' AddPermission (Prelude.Maybe Prelude.Text)
addPermission_principalOrgID :: Lens' AddPermission (Maybe Text)
addPermission_principalOrgID = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AddPermission' {Maybe Text
principalOrgID :: Maybe Text
$sel:principalOrgID:AddPermission' :: AddPermission -> Maybe Text
principalOrgID} -> Maybe Text
principalOrgID) (\s :: AddPermission
s@AddPermission' {} Maybe Text
a -> AddPermission
s {$sel:principalOrgID:AddPermission' :: Maybe Text
principalOrgID = Maybe Text
a} :: AddPermission)
addPermission_qualifier :: Lens.Lens' AddPermission (Prelude.Maybe Prelude.Text)
addPermission_qualifier :: Lens' AddPermission (Maybe Text)
addPermission_qualifier = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AddPermission' {Maybe Text
qualifier :: Maybe Text
$sel:qualifier:AddPermission' :: AddPermission -> Maybe Text
qualifier} -> Maybe Text
qualifier) (\s :: AddPermission
s@AddPermission' {} Maybe Text
a -> AddPermission
s {$sel:qualifier:AddPermission' :: Maybe Text
qualifier = Maybe Text
a} :: AddPermission)
addPermission_revisionId :: Lens.Lens' AddPermission (Prelude.Maybe Prelude.Text)
addPermission_revisionId :: Lens' AddPermission (Maybe Text)
addPermission_revisionId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AddPermission' {Maybe Text
revisionId :: Maybe Text
$sel:revisionId:AddPermission' :: AddPermission -> Maybe Text
revisionId} -> Maybe Text
revisionId) (\s :: AddPermission
s@AddPermission' {} Maybe Text
a -> AddPermission
s {$sel:revisionId:AddPermission' :: Maybe Text
revisionId = Maybe Text
a} :: AddPermission)
addPermission_sourceAccount :: Lens.Lens' AddPermission (Prelude.Maybe Prelude.Text)
addPermission_sourceAccount :: Lens' AddPermission (Maybe Text)
addPermission_sourceAccount = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AddPermission' {Maybe Text
sourceAccount :: Maybe Text
$sel:sourceAccount:AddPermission' :: AddPermission -> Maybe Text
sourceAccount} -> Maybe Text
sourceAccount) (\s :: AddPermission
s@AddPermission' {} Maybe Text
a -> AddPermission
s {$sel:sourceAccount:AddPermission' :: Maybe Text
sourceAccount = Maybe Text
a} :: AddPermission)
addPermission_sourceArn :: Lens.Lens' AddPermission (Prelude.Maybe Prelude.Text)
addPermission_sourceArn :: Lens' AddPermission (Maybe Text)
addPermission_sourceArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AddPermission' {Maybe Text
sourceArn :: Maybe Text
$sel:sourceArn:AddPermission' :: AddPermission -> Maybe Text
sourceArn} -> Maybe Text
sourceArn) (\s :: AddPermission
s@AddPermission' {} Maybe Text
a -> AddPermission
s {$sel:sourceArn:AddPermission' :: Maybe Text
sourceArn = Maybe Text
a} :: AddPermission)
addPermission_functionName :: Lens.Lens' AddPermission Prelude.Text
addPermission_functionName :: Lens' AddPermission Text
addPermission_functionName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AddPermission' {Text
functionName :: Text
$sel:functionName:AddPermission' :: AddPermission -> Text
functionName} -> Text
functionName) (\s :: AddPermission
s@AddPermission' {} Text
a -> AddPermission
s {$sel:functionName:AddPermission' :: Text
functionName = Text
a} :: AddPermission)
addPermission_statementId :: Lens.Lens' AddPermission Prelude.Text
addPermission_statementId :: Lens' AddPermission Text
addPermission_statementId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AddPermission' {Text
statementId :: Text
$sel:statementId:AddPermission' :: AddPermission -> Text
statementId} -> Text
statementId) (\s :: AddPermission
s@AddPermission' {} Text
a -> AddPermission
s {$sel:statementId:AddPermission' :: Text
statementId = Text
a} :: AddPermission)
addPermission_action :: Lens.Lens' AddPermission Prelude.Text
addPermission_action :: Lens' AddPermission Text
addPermission_action = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AddPermission' {Text
action :: Text
$sel:action:AddPermission' :: AddPermission -> Text
action} -> Text
action) (\s :: AddPermission
s@AddPermission' {} Text
a -> AddPermission
s {$sel:action:AddPermission' :: Text
action = Text
a} :: AddPermission)
addPermission_principal :: Lens.Lens' AddPermission Prelude.Text
addPermission_principal :: Lens' AddPermission Text
addPermission_principal = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AddPermission' {Text
principal :: Text
$sel:principal:AddPermission' :: AddPermission -> Text
principal} -> Text
principal) (\s :: AddPermission
s@AddPermission' {} Text
a -> AddPermission
s {$sel:principal:AddPermission' :: Text
principal = Text
a} :: AddPermission)
instance Core.AWSRequest AddPermission where
type
AWSResponse AddPermission =
AddPermissionResponse
request :: (Service -> Service) -> AddPermission -> Request AddPermission
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 AddPermission
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse AddPermission)))
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 -> AddPermissionResponse
AddPermissionResponse'
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
"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 AddPermission where
hashWithSalt :: Int -> AddPermission -> Int
hashWithSalt Int
_salt AddPermission' {Maybe Text
Maybe FunctionUrlAuthType
Text
principal :: Text
action :: Text
statementId :: Text
functionName :: Text
sourceArn :: Maybe Text
sourceAccount :: Maybe Text
revisionId :: Maybe Text
qualifier :: Maybe Text
principalOrgID :: Maybe Text
functionUrlAuthType :: Maybe FunctionUrlAuthType
eventSourceToken :: Maybe Text
$sel:principal:AddPermission' :: AddPermission -> Text
$sel:action:AddPermission' :: AddPermission -> Text
$sel:statementId:AddPermission' :: AddPermission -> Text
$sel:functionName:AddPermission' :: AddPermission -> Text
$sel:sourceArn:AddPermission' :: AddPermission -> Maybe Text
$sel:sourceAccount:AddPermission' :: AddPermission -> Maybe Text
$sel:revisionId:AddPermission' :: AddPermission -> Maybe Text
$sel:qualifier:AddPermission' :: AddPermission -> Maybe Text
$sel:principalOrgID:AddPermission' :: AddPermission -> Maybe Text
$sel:functionUrlAuthType:AddPermission' :: AddPermission -> Maybe FunctionUrlAuthType
$sel:eventSourceToken:AddPermission' :: AddPermission -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
eventSourceToken
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe FunctionUrlAuthType
functionUrlAuthType
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
principalOrgID
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
qualifier
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
revisionId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
sourceAccount
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
sourceArn
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
functionName
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 AddPermission where
rnf :: AddPermission -> ()
rnf AddPermission' {Maybe Text
Maybe FunctionUrlAuthType
Text
principal :: Text
action :: Text
statementId :: Text
functionName :: Text
sourceArn :: Maybe Text
sourceAccount :: Maybe Text
revisionId :: Maybe Text
qualifier :: Maybe Text
principalOrgID :: Maybe Text
functionUrlAuthType :: Maybe FunctionUrlAuthType
eventSourceToken :: Maybe Text
$sel:principal:AddPermission' :: AddPermission -> Text
$sel:action:AddPermission' :: AddPermission -> Text
$sel:statementId:AddPermission' :: AddPermission -> Text
$sel:functionName:AddPermission' :: AddPermission -> Text
$sel:sourceArn:AddPermission' :: AddPermission -> Maybe Text
$sel:sourceAccount:AddPermission' :: AddPermission -> Maybe Text
$sel:revisionId:AddPermission' :: AddPermission -> Maybe Text
$sel:qualifier:AddPermission' :: AddPermission -> Maybe Text
$sel:principalOrgID:AddPermission' :: AddPermission -> Maybe Text
$sel:functionUrlAuthType:AddPermission' :: AddPermission -> Maybe FunctionUrlAuthType
$sel:eventSourceToken:AddPermission' :: AddPermission -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
eventSourceToken
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe FunctionUrlAuthType
functionUrlAuthType
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
principalOrgID
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
qualifier
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 Maybe Text
sourceAccount
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
sourceArn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
functionName
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 AddPermission where
toHeaders :: AddPermission -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToJSON AddPermission where
toJSON :: AddPermission -> Value
toJSON AddPermission' {Maybe Text
Maybe FunctionUrlAuthType
Text
principal :: Text
action :: Text
statementId :: Text
functionName :: Text
sourceArn :: Maybe Text
sourceAccount :: Maybe Text
revisionId :: Maybe Text
qualifier :: Maybe Text
principalOrgID :: Maybe Text
functionUrlAuthType :: Maybe FunctionUrlAuthType
eventSourceToken :: Maybe Text
$sel:principal:AddPermission' :: AddPermission -> Text
$sel:action:AddPermission' :: AddPermission -> Text
$sel:statementId:AddPermission' :: AddPermission -> Text
$sel:functionName:AddPermission' :: AddPermission -> Text
$sel:sourceArn:AddPermission' :: AddPermission -> Maybe Text
$sel:sourceAccount:AddPermission' :: AddPermission -> Maybe Text
$sel:revisionId:AddPermission' :: AddPermission -> Maybe Text
$sel:qualifier:AddPermission' :: AddPermission -> Maybe Text
$sel:principalOrgID:AddPermission' :: AddPermission -> Maybe Text
$sel:functionUrlAuthType:AddPermission' :: AddPermission -> Maybe FunctionUrlAuthType
$sel:eventSourceToken:AddPermission' :: AddPermission -> Maybe Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"EventSourceToken" 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
eventSourceToken,
(Key
"FunctionUrlAuthType" 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 FunctionUrlAuthType
functionUrlAuthType,
(Key
"PrincipalOrgID" 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
principalOrgID,
(Key
"RevisionId" 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
revisionId,
(Key
"SourceAccount" 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
sourceAccount,
(Key
"SourceArn" 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
sourceArn,
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 AddPermission where
toPath :: AddPermission -> ByteString
toPath AddPermission' {Maybe Text
Maybe FunctionUrlAuthType
Text
principal :: Text
action :: Text
statementId :: Text
functionName :: Text
sourceArn :: Maybe Text
sourceAccount :: Maybe Text
revisionId :: Maybe Text
qualifier :: Maybe Text
principalOrgID :: Maybe Text
functionUrlAuthType :: Maybe FunctionUrlAuthType
eventSourceToken :: Maybe Text
$sel:principal:AddPermission' :: AddPermission -> Text
$sel:action:AddPermission' :: AddPermission -> Text
$sel:statementId:AddPermission' :: AddPermission -> Text
$sel:functionName:AddPermission' :: AddPermission -> Text
$sel:sourceArn:AddPermission' :: AddPermission -> Maybe Text
$sel:sourceAccount:AddPermission' :: AddPermission -> Maybe Text
$sel:revisionId:AddPermission' :: AddPermission -> Maybe Text
$sel:qualifier:AddPermission' :: AddPermission -> Maybe Text
$sel:principalOrgID:AddPermission' :: AddPermission -> Maybe Text
$sel:functionUrlAuthType:AddPermission' :: AddPermission -> Maybe FunctionUrlAuthType
$sel:eventSourceToken:AddPermission' :: AddPermission -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"/2015-03-31/functions/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
functionName,
ByteString
"/policy"
]
instance Data.ToQuery AddPermission where
toQuery :: AddPermission -> QueryString
toQuery AddPermission' {Maybe Text
Maybe FunctionUrlAuthType
Text
principal :: Text
action :: Text
statementId :: Text
functionName :: Text
sourceArn :: Maybe Text
sourceAccount :: Maybe Text
revisionId :: Maybe Text
qualifier :: Maybe Text
principalOrgID :: Maybe Text
functionUrlAuthType :: Maybe FunctionUrlAuthType
eventSourceToken :: Maybe Text
$sel:principal:AddPermission' :: AddPermission -> Text
$sel:action:AddPermission' :: AddPermission -> Text
$sel:statementId:AddPermission' :: AddPermission -> Text
$sel:functionName:AddPermission' :: AddPermission -> Text
$sel:sourceArn:AddPermission' :: AddPermission -> Maybe Text
$sel:sourceAccount:AddPermission' :: AddPermission -> Maybe Text
$sel:revisionId:AddPermission' :: AddPermission -> Maybe Text
$sel:qualifier:AddPermission' :: AddPermission -> Maybe Text
$sel:principalOrgID:AddPermission' :: AddPermission -> Maybe Text
$sel:functionUrlAuthType:AddPermission' :: AddPermission -> Maybe FunctionUrlAuthType
$sel:eventSourceToken:AddPermission' :: AddPermission -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat [ByteString
"Qualifier" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
qualifier]
data AddPermissionResponse = AddPermissionResponse'
{
AddPermissionResponse -> Maybe Text
statement :: Prelude.Maybe Prelude.Text,
AddPermissionResponse -> Int
httpStatus :: Prelude.Int
}
deriving (AddPermissionResponse -> AddPermissionResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: AddPermissionResponse -> AddPermissionResponse -> Bool
$c/= :: AddPermissionResponse -> AddPermissionResponse -> Bool
== :: AddPermissionResponse -> AddPermissionResponse -> Bool
$c== :: AddPermissionResponse -> AddPermissionResponse -> Bool
Prelude.Eq, ReadPrec [AddPermissionResponse]
ReadPrec AddPermissionResponse
Int -> ReadS AddPermissionResponse
ReadS [AddPermissionResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [AddPermissionResponse]
$creadListPrec :: ReadPrec [AddPermissionResponse]
readPrec :: ReadPrec AddPermissionResponse
$creadPrec :: ReadPrec AddPermissionResponse
readList :: ReadS [AddPermissionResponse]
$creadList :: ReadS [AddPermissionResponse]
readsPrec :: Int -> ReadS AddPermissionResponse
$creadsPrec :: Int -> ReadS AddPermissionResponse
Prelude.Read, Int -> AddPermissionResponse -> ShowS
[AddPermissionResponse] -> ShowS
AddPermissionResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [AddPermissionResponse] -> ShowS
$cshowList :: [AddPermissionResponse] -> ShowS
show :: AddPermissionResponse -> String
$cshow :: AddPermissionResponse -> String
showsPrec :: Int -> AddPermissionResponse -> ShowS
$cshowsPrec :: Int -> AddPermissionResponse -> ShowS
Prelude.Show, forall x. Rep AddPermissionResponse x -> AddPermissionResponse
forall x. AddPermissionResponse -> Rep AddPermissionResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep AddPermissionResponse x -> AddPermissionResponse
$cfrom :: forall x. AddPermissionResponse -> Rep AddPermissionResponse x
Prelude.Generic)
newAddPermissionResponse ::
Prelude.Int ->
AddPermissionResponse
newAddPermissionResponse :: Int -> AddPermissionResponse
newAddPermissionResponse Int
pHttpStatus_ =
AddPermissionResponse'
{ $sel:statement:AddPermissionResponse' :: Maybe Text
statement = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:AddPermissionResponse' :: Int
httpStatus = Int
pHttpStatus_
}
addPermissionResponse_statement :: Lens.Lens' AddPermissionResponse (Prelude.Maybe Prelude.Text)
addPermissionResponse_statement :: Lens' AddPermissionResponse (Maybe Text)
addPermissionResponse_statement = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AddPermissionResponse' {Maybe Text
statement :: Maybe Text
$sel:statement:AddPermissionResponse' :: AddPermissionResponse -> Maybe Text
statement} -> Maybe Text
statement) (\s :: AddPermissionResponse
s@AddPermissionResponse' {} Maybe Text
a -> AddPermissionResponse
s {$sel:statement:AddPermissionResponse' :: Maybe Text
statement = Maybe Text
a} :: AddPermissionResponse)
addPermissionResponse_httpStatus :: Lens.Lens' AddPermissionResponse Prelude.Int
addPermissionResponse_httpStatus :: Lens' AddPermissionResponse Int
addPermissionResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AddPermissionResponse' {Int
httpStatus :: Int
$sel:httpStatus:AddPermissionResponse' :: AddPermissionResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: AddPermissionResponse
s@AddPermissionResponse' {} Int
a -> AddPermissionResponse
s {$sel:httpStatus:AddPermissionResponse' :: Int
httpStatus = Int
a} :: AddPermissionResponse)
instance Prelude.NFData AddPermissionResponse where
rnf :: AddPermissionResponse -> ()
rnf AddPermissionResponse' {Int
Maybe Text
httpStatus :: Int
statement :: Maybe Text
$sel:httpStatus:AddPermissionResponse' :: AddPermissionResponse -> Int
$sel:statement:AddPermissionResponse' :: AddPermissionResponse -> Maybe Text
..} =
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