{-# 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.CodeArtifact.PutRepositoryPermissionsPolicy
(
PutRepositoryPermissionsPolicy (..),
newPutRepositoryPermissionsPolicy,
putRepositoryPermissionsPolicy_domainOwner,
putRepositoryPermissionsPolicy_policyRevision,
putRepositoryPermissionsPolicy_domain,
putRepositoryPermissionsPolicy_repository,
putRepositoryPermissionsPolicy_policyDocument,
PutRepositoryPermissionsPolicyResponse (..),
newPutRepositoryPermissionsPolicyResponse,
putRepositoryPermissionsPolicyResponse_policy,
putRepositoryPermissionsPolicyResponse_httpStatus,
)
where
import Amazonka.CodeArtifact.Types
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
data PutRepositoryPermissionsPolicy = PutRepositoryPermissionsPolicy'
{
PutRepositoryPermissionsPolicy -> Maybe Text
domainOwner :: Prelude.Maybe Prelude.Text,
PutRepositoryPermissionsPolicy -> Maybe Text
policyRevision :: Prelude.Maybe Prelude.Text,
PutRepositoryPermissionsPolicy -> Text
domain :: Prelude.Text,
PutRepositoryPermissionsPolicy -> Text
repository :: Prelude.Text,
PutRepositoryPermissionsPolicy -> Text
policyDocument :: Prelude.Text
}
deriving (PutRepositoryPermissionsPolicy
-> PutRepositoryPermissionsPolicy -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PutRepositoryPermissionsPolicy
-> PutRepositoryPermissionsPolicy -> Bool
$c/= :: PutRepositoryPermissionsPolicy
-> PutRepositoryPermissionsPolicy -> Bool
== :: PutRepositoryPermissionsPolicy
-> PutRepositoryPermissionsPolicy -> Bool
$c== :: PutRepositoryPermissionsPolicy
-> PutRepositoryPermissionsPolicy -> Bool
Prelude.Eq, ReadPrec [PutRepositoryPermissionsPolicy]
ReadPrec PutRepositoryPermissionsPolicy
Int -> ReadS PutRepositoryPermissionsPolicy
ReadS [PutRepositoryPermissionsPolicy]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [PutRepositoryPermissionsPolicy]
$creadListPrec :: ReadPrec [PutRepositoryPermissionsPolicy]
readPrec :: ReadPrec PutRepositoryPermissionsPolicy
$creadPrec :: ReadPrec PutRepositoryPermissionsPolicy
readList :: ReadS [PutRepositoryPermissionsPolicy]
$creadList :: ReadS [PutRepositoryPermissionsPolicy]
readsPrec :: Int -> ReadS PutRepositoryPermissionsPolicy
$creadsPrec :: Int -> ReadS PutRepositoryPermissionsPolicy
Prelude.Read, Int -> PutRepositoryPermissionsPolicy -> ShowS
[PutRepositoryPermissionsPolicy] -> ShowS
PutRepositoryPermissionsPolicy -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PutRepositoryPermissionsPolicy] -> ShowS
$cshowList :: [PutRepositoryPermissionsPolicy] -> ShowS
show :: PutRepositoryPermissionsPolicy -> String
$cshow :: PutRepositoryPermissionsPolicy -> String
showsPrec :: Int -> PutRepositoryPermissionsPolicy -> ShowS
$cshowsPrec :: Int -> PutRepositoryPermissionsPolicy -> ShowS
Prelude.Show, forall x.
Rep PutRepositoryPermissionsPolicy x
-> PutRepositoryPermissionsPolicy
forall x.
PutRepositoryPermissionsPolicy
-> Rep PutRepositoryPermissionsPolicy x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep PutRepositoryPermissionsPolicy x
-> PutRepositoryPermissionsPolicy
$cfrom :: forall x.
PutRepositoryPermissionsPolicy
-> Rep PutRepositoryPermissionsPolicy x
Prelude.Generic)
newPutRepositoryPermissionsPolicy ::
Prelude.Text ->
Prelude.Text ->
Prelude.Text ->
PutRepositoryPermissionsPolicy
newPutRepositoryPermissionsPolicy :: Text -> Text -> Text -> PutRepositoryPermissionsPolicy
newPutRepositoryPermissionsPolicy
Text
pDomain_
Text
pRepository_
Text
pPolicyDocument_ =
PutRepositoryPermissionsPolicy'
{ $sel:domainOwner:PutRepositoryPermissionsPolicy' :: Maybe Text
domainOwner =
forall a. Maybe a
Prelude.Nothing,
$sel:policyRevision:PutRepositoryPermissionsPolicy' :: Maybe Text
policyRevision = forall a. Maybe a
Prelude.Nothing,
$sel:domain:PutRepositoryPermissionsPolicy' :: Text
domain = Text
pDomain_,
$sel:repository:PutRepositoryPermissionsPolicy' :: Text
repository = Text
pRepository_,
$sel:policyDocument:PutRepositoryPermissionsPolicy' :: Text
policyDocument = Text
pPolicyDocument_
}
putRepositoryPermissionsPolicy_domainOwner :: Lens.Lens' PutRepositoryPermissionsPolicy (Prelude.Maybe Prelude.Text)
putRepositoryPermissionsPolicy_domainOwner :: Lens' PutRepositoryPermissionsPolicy (Maybe Text)
putRepositoryPermissionsPolicy_domainOwner = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutRepositoryPermissionsPolicy' {Maybe Text
domainOwner :: Maybe Text
$sel:domainOwner:PutRepositoryPermissionsPolicy' :: PutRepositoryPermissionsPolicy -> Maybe Text
domainOwner} -> Maybe Text
domainOwner) (\s :: PutRepositoryPermissionsPolicy
s@PutRepositoryPermissionsPolicy' {} Maybe Text
a -> PutRepositoryPermissionsPolicy
s {$sel:domainOwner:PutRepositoryPermissionsPolicy' :: Maybe Text
domainOwner = Maybe Text
a} :: PutRepositoryPermissionsPolicy)
putRepositoryPermissionsPolicy_policyRevision :: Lens.Lens' PutRepositoryPermissionsPolicy (Prelude.Maybe Prelude.Text)
putRepositoryPermissionsPolicy_policyRevision :: Lens' PutRepositoryPermissionsPolicy (Maybe Text)
putRepositoryPermissionsPolicy_policyRevision = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutRepositoryPermissionsPolicy' {Maybe Text
policyRevision :: Maybe Text
$sel:policyRevision:PutRepositoryPermissionsPolicy' :: PutRepositoryPermissionsPolicy -> Maybe Text
policyRevision} -> Maybe Text
policyRevision) (\s :: PutRepositoryPermissionsPolicy
s@PutRepositoryPermissionsPolicy' {} Maybe Text
a -> PutRepositoryPermissionsPolicy
s {$sel:policyRevision:PutRepositoryPermissionsPolicy' :: Maybe Text
policyRevision = Maybe Text
a} :: PutRepositoryPermissionsPolicy)
putRepositoryPermissionsPolicy_domain :: Lens.Lens' PutRepositoryPermissionsPolicy Prelude.Text
putRepositoryPermissionsPolicy_domain :: Lens' PutRepositoryPermissionsPolicy Text
putRepositoryPermissionsPolicy_domain = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutRepositoryPermissionsPolicy' {Text
domain :: Text
$sel:domain:PutRepositoryPermissionsPolicy' :: PutRepositoryPermissionsPolicy -> Text
domain} -> Text
domain) (\s :: PutRepositoryPermissionsPolicy
s@PutRepositoryPermissionsPolicy' {} Text
a -> PutRepositoryPermissionsPolicy
s {$sel:domain:PutRepositoryPermissionsPolicy' :: Text
domain = Text
a} :: PutRepositoryPermissionsPolicy)
putRepositoryPermissionsPolicy_repository :: Lens.Lens' PutRepositoryPermissionsPolicy Prelude.Text
putRepositoryPermissionsPolicy_repository :: Lens' PutRepositoryPermissionsPolicy Text
putRepositoryPermissionsPolicy_repository = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutRepositoryPermissionsPolicy' {Text
repository :: Text
$sel:repository:PutRepositoryPermissionsPolicy' :: PutRepositoryPermissionsPolicy -> Text
repository} -> Text
repository) (\s :: PutRepositoryPermissionsPolicy
s@PutRepositoryPermissionsPolicy' {} Text
a -> PutRepositoryPermissionsPolicy
s {$sel:repository:PutRepositoryPermissionsPolicy' :: Text
repository = Text
a} :: PutRepositoryPermissionsPolicy)
putRepositoryPermissionsPolicy_policyDocument :: Lens.Lens' PutRepositoryPermissionsPolicy Prelude.Text
putRepositoryPermissionsPolicy_policyDocument :: Lens' PutRepositoryPermissionsPolicy Text
putRepositoryPermissionsPolicy_policyDocument = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutRepositoryPermissionsPolicy' {Text
policyDocument :: Text
$sel:policyDocument:PutRepositoryPermissionsPolicy' :: PutRepositoryPermissionsPolicy -> Text
policyDocument} -> Text
policyDocument) (\s :: PutRepositoryPermissionsPolicy
s@PutRepositoryPermissionsPolicy' {} Text
a -> PutRepositoryPermissionsPolicy
s {$sel:policyDocument:PutRepositoryPermissionsPolicy' :: Text
policyDocument = Text
a} :: PutRepositoryPermissionsPolicy)
instance
Core.AWSRequest
PutRepositoryPermissionsPolicy
where
type
AWSResponse PutRepositoryPermissionsPolicy =
PutRepositoryPermissionsPolicyResponse
request :: (Service -> Service)
-> PutRepositoryPermissionsPolicy
-> Request PutRepositoryPermissionsPolicy
request Service -> Service
overrides =
forall a. (ToRequest a, ToJSON a) => Service -> a -> Request a
Request.putJSON (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy PutRepositoryPermissionsPolicy
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse (AWSResponse PutRepositoryPermissionsPolicy)))
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 ResourcePolicy
-> Int -> PutRepositoryPermissionsPolicyResponse
PutRepositoryPermissionsPolicyResponse'
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
"policy")
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
PutRepositoryPermissionsPolicy
where
hashWithSalt :: Int -> PutRepositoryPermissionsPolicy -> Int
hashWithSalt
Int
_salt
PutRepositoryPermissionsPolicy' {Maybe Text
Text
policyDocument :: Text
repository :: Text
domain :: Text
policyRevision :: Maybe Text
domainOwner :: Maybe Text
$sel:policyDocument:PutRepositoryPermissionsPolicy' :: PutRepositoryPermissionsPolicy -> Text
$sel:repository:PutRepositoryPermissionsPolicy' :: PutRepositoryPermissionsPolicy -> Text
$sel:domain:PutRepositoryPermissionsPolicy' :: PutRepositoryPermissionsPolicy -> Text
$sel:policyRevision:PutRepositoryPermissionsPolicy' :: PutRepositoryPermissionsPolicy -> Maybe Text
$sel:domainOwner:PutRepositoryPermissionsPolicy' :: PutRepositoryPermissionsPolicy -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
domainOwner
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
policyRevision
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
domain
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
repository
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
policyDocument
instance
Prelude.NFData
PutRepositoryPermissionsPolicy
where
rnf :: PutRepositoryPermissionsPolicy -> ()
rnf PutRepositoryPermissionsPolicy' {Maybe Text
Text
policyDocument :: Text
repository :: Text
domain :: Text
policyRevision :: Maybe Text
domainOwner :: Maybe Text
$sel:policyDocument:PutRepositoryPermissionsPolicy' :: PutRepositoryPermissionsPolicy -> Text
$sel:repository:PutRepositoryPermissionsPolicy' :: PutRepositoryPermissionsPolicy -> Text
$sel:domain:PutRepositoryPermissionsPolicy' :: PutRepositoryPermissionsPolicy -> Text
$sel:policyRevision:PutRepositoryPermissionsPolicy' :: PutRepositoryPermissionsPolicy -> Maybe Text
$sel:domainOwner:PutRepositoryPermissionsPolicy' :: PutRepositoryPermissionsPolicy -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
domainOwner
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
policyRevision
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
domain
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
repository
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
policyDocument
instance
Data.ToHeaders
PutRepositoryPermissionsPolicy
where
toHeaders :: PutRepositoryPermissionsPolicy -> ResponseHeaders
toHeaders =
forall a b. a -> b -> a
Prelude.const
( forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON PutRepositoryPermissionsPolicy where
toJSON :: PutRepositoryPermissionsPolicy -> Value
toJSON PutRepositoryPermissionsPolicy' {Maybe Text
Text
policyDocument :: Text
repository :: Text
domain :: Text
policyRevision :: Maybe Text
domainOwner :: Maybe Text
$sel:policyDocument:PutRepositoryPermissionsPolicy' :: PutRepositoryPermissionsPolicy -> Text
$sel:repository:PutRepositoryPermissionsPolicy' :: PutRepositoryPermissionsPolicy -> Text
$sel:domain:PutRepositoryPermissionsPolicy' :: PutRepositoryPermissionsPolicy -> Text
$sel:policyRevision:PutRepositoryPermissionsPolicy' :: PutRepositoryPermissionsPolicy -> Maybe Text
$sel:domainOwner:PutRepositoryPermissionsPolicy' :: PutRepositoryPermissionsPolicy -> Maybe Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"policyRevision" 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
policyRevision,
forall a. a -> Maybe a
Prelude.Just
(Key
"policyDocument" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
policyDocument)
]
)
instance Data.ToPath PutRepositoryPermissionsPolicy where
toPath :: PutRepositoryPermissionsPolicy -> ByteString
toPath =
forall a b. a -> b -> a
Prelude.const ByteString
"/v1/repository/permissions/policy"
instance Data.ToQuery PutRepositoryPermissionsPolicy where
toQuery :: PutRepositoryPermissionsPolicy -> QueryString
toQuery PutRepositoryPermissionsPolicy' {Maybe Text
Text
policyDocument :: Text
repository :: Text
domain :: Text
policyRevision :: Maybe Text
domainOwner :: Maybe Text
$sel:policyDocument:PutRepositoryPermissionsPolicy' :: PutRepositoryPermissionsPolicy -> Text
$sel:repository:PutRepositoryPermissionsPolicy' :: PutRepositoryPermissionsPolicy -> Text
$sel:domain:PutRepositoryPermissionsPolicy' :: PutRepositoryPermissionsPolicy -> Text
$sel:policyRevision:PutRepositoryPermissionsPolicy' :: PutRepositoryPermissionsPolicy -> Maybe Text
$sel:domainOwner:PutRepositoryPermissionsPolicy' :: PutRepositoryPermissionsPolicy -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"domain-owner" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
domainOwner,
ByteString
"domain" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
domain,
ByteString
"repository" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
repository
]
data PutRepositoryPermissionsPolicyResponse = PutRepositoryPermissionsPolicyResponse'
{
PutRepositoryPermissionsPolicyResponse -> Maybe ResourcePolicy
policy :: Prelude.Maybe ResourcePolicy,
PutRepositoryPermissionsPolicyResponse -> Int
httpStatus :: Prelude.Int
}
deriving (PutRepositoryPermissionsPolicyResponse
-> PutRepositoryPermissionsPolicyResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PutRepositoryPermissionsPolicyResponse
-> PutRepositoryPermissionsPolicyResponse -> Bool
$c/= :: PutRepositoryPermissionsPolicyResponse
-> PutRepositoryPermissionsPolicyResponse -> Bool
== :: PutRepositoryPermissionsPolicyResponse
-> PutRepositoryPermissionsPolicyResponse -> Bool
$c== :: PutRepositoryPermissionsPolicyResponse
-> PutRepositoryPermissionsPolicyResponse -> Bool
Prelude.Eq, ReadPrec [PutRepositoryPermissionsPolicyResponse]
ReadPrec PutRepositoryPermissionsPolicyResponse
Int -> ReadS PutRepositoryPermissionsPolicyResponse
ReadS [PutRepositoryPermissionsPolicyResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [PutRepositoryPermissionsPolicyResponse]
$creadListPrec :: ReadPrec [PutRepositoryPermissionsPolicyResponse]
readPrec :: ReadPrec PutRepositoryPermissionsPolicyResponse
$creadPrec :: ReadPrec PutRepositoryPermissionsPolicyResponse
readList :: ReadS [PutRepositoryPermissionsPolicyResponse]
$creadList :: ReadS [PutRepositoryPermissionsPolicyResponse]
readsPrec :: Int -> ReadS PutRepositoryPermissionsPolicyResponse
$creadsPrec :: Int -> ReadS PutRepositoryPermissionsPolicyResponse
Prelude.Read, Int -> PutRepositoryPermissionsPolicyResponse -> ShowS
[PutRepositoryPermissionsPolicyResponse] -> ShowS
PutRepositoryPermissionsPolicyResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PutRepositoryPermissionsPolicyResponse] -> ShowS
$cshowList :: [PutRepositoryPermissionsPolicyResponse] -> ShowS
show :: PutRepositoryPermissionsPolicyResponse -> String
$cshow :: PutRepositoryPermissionsPolicyResponse -> String
showsPrec :: Int -> PutRepositoryPermissionsPolicyResponse -> ShowS
$cshowsPrec :: Int -> PutRepositoryPermissionsPolicyResponse -> ShowS
Prelude.Show, forall x.
Rep PutRepositoryPermissionsPolicyResponse x
-> PutRepositoryPermissionsPolicyResponse
forall x.
PutRepositoryPermissionsPolicyResponse
-> Rep PutRepositoryPermissionsPolicyResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep PutRepositoryPermissionsPolicyResponse x
-> PutRepositoryPermissionsPolicyResponse
$cfrom :: forall x.
PutRepositoryPermissionsPolicyResponse
-> Rep PutRepositoryPermissionsPolicyResponse x
Prelude.Generic)
newPutRepositoryPermissionsPolicyResponse ::
Prelude.Int ->
PutRepositoryPermissionsPolicyResponse
newPutRepositoryPermissionsPolicyResponse :: Int -> PutRepositoryPermissionsPolicyResponse
newPutRepositoryPermissionsPolicyResponse
Int
pHttpStatus_ =
PutRepositoryPermissionsPolicyResponse'
{ $sel:policy:PutRepositoryPermissionsPolicyResponse' :: Maybe ResourcePolicy
policy =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:PutRepositoryPermissionsPolicyResponse' :: Int
httpStatus = Int
pHttpStatus_
}
putRepositoryPermissionsPolicyResponse_policy :: Lens.Lens' PutRepositoryPermissionsPolicyResponse (Prelude.Maybe ResourcePolicy)
putRepositoryPermissionsPolicyResponse_policy :: Lens' PutRepositoryPermissionsPolicyResponse (Maybe ResourcePolicy)
putRepositoryPermissionsPolicyResponse_policy = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutRepositoryPermissionsPolicyResponse' {Maybe ResourcePolicy
policy :: Maybe ResourcePolicy
$sel:policy:PutRepositoryPermissionsPolicyResponse' :: PutRepositoryPermissionsPolicyResponse -> Maybe ResourcePolicy
policy} -> Maybe ResourcePolicy
policy) (\s :: PutRepositoryPermissionsPolicyResponse
s@PutRepositoryPermissionsPolicyResponse' {} Maybe ResourcePolicy
a -> PutRepositoryPermissionsPolicyResponse
s {$sel:policy:PutRepositoryPermissionsPolicyResponse' :: Maybe ResourcePolicy
policy = Maybe ResourcePolicy
a} :: PutRepositoryPermissionsPolicyResponse)
putRepositoryPermissionsPolicyResponse_httpStatus :: Lens.Lens' PutRepositoryPermissionsPolicyResponse Prelude.Int
putRepositoryPermissionsPolicyResponse_httpStatus :: Lens' PutRepositoryPermissionsPolicyResponse Int
putRepositoryPermissionsPolicyResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutRepositoryPermissionsPolicyResponse' {Int
httpStatus :: Int
$sel:httpStatus:PutRepositoryPermissionsPolicyResponse' :: PutRepositoryPermissionsPolicyResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: PutRepositoryPermissionsPolicyResponse
s@PutRepositoryPermissionsPolicyResponse' {} Int
a -> PutRepositoryPermissionsPolicyResponse
s {$sel:httpStatus:PutRepositoryPermissionsPolicyResponse' :: Int
httpStatus = Int
a} :: PutRepositoryPermissionsPolicyResponse)
instance
Prelude.NFData
PutRepositoryPermissionsPolicyResponse
where
rnf :: PutRepositoryPermissionsPolicyResponse -> ()
rnf PutRepositoryPermissionsPolicyResponse' {Int
Maybe ResourcePolicy
httpStatus :: Int
policy :: Maybe ResourcePolicy
$sel:httpStatus:PutRepositoryPermissionsPolicyResponse' :: PutRepositoryPermissionsPolicyResponse -> Int
$sel:policy:PutRepositoryPermissionsPolicyResponse' :: PutRepositoryPermissionsPolicyResponse -> Maybe ResourcePolicy
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe ResourcePolicy
policy
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus