{-# 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 #-}

-- Derived from AWS service descriptions, licensed under Apache 2.0.

-- |
-- Module      : Amazonka.SageMaker.PutModelPackageGroupPolicy
-- Copyright   : (c) 2013-2023 Brendan Hay
-- License     : Mozilla Public License, v. 2.0.
-- Maintainer  : Brendan Hay
-- Stability   : auto-generated
-- Portability : non-portable (GHC extensions)
--
-- Adds a resouce policy to control access to a model group. For
-- information about resoure policies, see
-- <https://docs.aws.amazon.com/IAM/latest/UserGuide/access_policies_identity-vs-resource.html Identity-based policies and resource-based policies>
-- in the /Amazon Web Services Identity and Access Management User Guide./.
module Amazonka.SageMaker.PutModelPackageGroupPolicy
  ( -- * Creating a Request
    PutModelPackageGroupPolicy (..),
    newPutModelPackageGroupPolicy,

    -- * Request Lenses
    putModelPackageGroupPolicy_modelPackageGroupName,
    putModelPackageGroupPolicy_resourcePolicy,

    -- * Destructuring the Response
    PutModelPackageGroupPolicyResponse (..),
    newPutModelPackageGroupPolicyResponse,

    -- * Response Lenses
    putModelPackageGroupPolicyResponse_httpStatus,
    putModelPackageGroupPolicyResponse_modelPackageGroupArn,
  )
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 qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
import Amazonka.SageMaker.Types

-- | /See:/ 'newPutModelPackageGroupPolicy' smart constructor.
data PutModelPackageGroupPolicy = PutModelPackageGroupPolicy'
  { -- | The name of the model group to add a resource policy to.
    PutModelPackageGroupPolicy -> Text
modelPackageGroupName :: Prelude.Text,
    -- | The resource policy for the model group.
    PutModelPackageGroupPolicy -> Text
resourcePolicy :: Prelude.Text
  }
  deriving (PutModelPackageGroupPolicy -> PutModelPackageGroupPolicy -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PutModelPackageGroupPolicy -> PutModelPackageGroupPolicy -> Bool
$c/= :: PutModelPackageGroupPolicy -> PutModelPackageGroupPolicy -> Bool
== :: PutModelPackageGroupPolicy -> PutModelPackageGroupPolicy -> Bool
$c== :: PutModelPackageGroupPolicy -> PutModelPackageGroupPolicy -> Bool
Prelude.Eq, ReadPrec [PutModelPackageGroupPolicy]
ReadPrec PutModelPackageGroupPolicy
Int -> ReadS PutModelPackageGroupPolicy
ReadS [PutModelPackageGroupPolicy]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [PutModelPackageGroupPolicy]
$creadListPrec :: ReadPrec [PutModelPackageGroupPolicy]
readPrec :: ReadPrec PutModelPackageGroupPolicy
$creadPrec :: ReadPrec PutModelPackageGroupPolicy
readList :: ReadS [PutModelPackageGroupPolicy]
$creadList :: ReadS [PutModelPackageGroupPolicy]
readsPrec :: Int -> ReadS PutModelPackageGroupPolicy
$creadsPrec :: Int -> ReadS PutModelPackageGroupPolicy
Prelude.Read, Int -> PutModelPackageGroupPolicy -> ShowS
[PutModelPackageGroupPolicy] -> ShowS
PutModelPackageGroupPolicy -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PutModelPackageGroupPolicy] -> ShowS
$cshowList :: [PutModelPackageGroupPolicy] -> ShowS
show :: PutModelPackageGroupPolicy -> String
$cshow :: PutModelPackageGroupPolicy -> String
showsPrec :: Int -> PutModelPackageGroupPolicy -> ShowS
$cshowsPrec :: Int -> PutModelPackageGroupPolicy -> ShowS
Prelude.Show, forall x.
Rep PutModelPackageGroupPolicy x -> PutModelPackageGroupPolicy
forall x.
PutModelPackageGroupPolicy -> Rep PutModelPackageGroupPolicy x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep PutModelPackageGroupPolicy x -> PutModelPackageGroupPolicy
$cfrom :: forall x.
PutModelPackageGroupPolicy -> Rep PutModelPackageGroupPolicy x
Prelude.Generic)

-- |
-- Create a value of 'PutModelPackageGroupPolicy' with all optional fields omitted.
--
-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.
--
-- The following record fields are available, with the corresponding lenses provided
-- for backwards compatibility:
--
-- 'modelPackageGroupName', 'putModelPackageGroupPolicy_modelPackageGroupName' - The name of the model group to add a resource policy to.
--
-- 'resourcePolicy', 'putModelPackageGroupPolicy_resourcePolicy' - The resource policy for the model group.
newPutModelPackageGroupPolicy ::
  -- | 'modelPackageGroupName'
  Prelude.Text ->
  -- | 'resourcePolicy'
  Prelude.Text ->
  PutModelPackageGroupPolicy
newPutModelPackageGroupPolicy :: Text -> Text -> PutModelPackageGroupPolicy
newPutModelPackageGroupPolicy
  Text
pModelPackageGroupName_
  Text
pResourcePolicy_ =
    PutModelPackageGroupPolicy'
      { $sel:modelPackageGroupName:PutModelPackageGroupPolicy' :: Text
modelPackageGroupName =
          Text
pModelPackageGroupName_,
        $sel:resourcePolicy:PutModelPackageGroupPolicy' :: Text
resourcePolicy = Text
pResourcePolicy_
      }

-- | The name of the model group to add a resource policy to.
putModelPackageGroupPolicy_modelPackageGroupName :: Lens.Lens' PutModelPackageGroupPolicy Prelude.Text
putModelPackageGroupPolicy_modelPackageGroupName :: Lens' PutModelPackageGroupPolicy Text
putModelPackageGroupPolicy_modelPackageGroupName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutModelPackageGroupPolicy' {Text
modelPackageGroupName :: Text
$sel:modelPackageGroupName:PutModelPackageGroupPolicy' :: PutModelPackageGroupPolicy -> Text
modelPackageGroupName} -> Text
modelPackageGroupName) (\s :: PutModelPackageGroupPolicy
s@PutModelPackageGroupPolicy' {} Text
a -> PutModelPackageGroupPolicy
s {$sel:modelPackageGroupName:PutModelPackageGroupPolicy' :: Text
modelPackageGroupName = Text
a} :: PutModelPackageGroupPolicy)

-- | The resource policy for the model group.
putModelPackageGroupPolicy_resourcePolicy :: Lens.Lens' PutModelPackageGroupPolicy Prelude.Text
putModelPackageGroupPolicy_resourcePolicy :: Lens' PutModelPackageGroupPolicy Text
putModelPackageGroupPolicy_resourcePolicy = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutModelPackageGroupPolicy' {Text
resourcePolicy :: Text
$sel:resourcePolicy:PutModelPackageGroupPolicy' :: PutModelPackageGroupPolicy -> Text
resourcePolicy} -> Text
resourcePolicy) (\s :: PutModelPackageGroupPolicy
s@PutModelPackageGroupPolicy' {} Text
a -> PutModelPackageGroupPolicy
s {$sel:resourcePolicy:PutModelPackageGroupPolicy' :: Text
resourcePolicy = Text
a} :: PutModelPackageGroupPolicy)

instance Core.AWSRequest PutModelPackageGroupPolicy where
  type
    AWSResponse PutModelPackageGroupPolicy =
      PutModelPackageGroupPolicyResponse
  request :: (Service -> Service)
-> PutModelPackageGroupPolicy -> Request PutModelPackageGroupPolicy
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 PutModelPackageGroupPolicy
-> ClientResponse ClientBody
-> m (Either
        Error (ClientResponse (AWSResponse PutModelPackageGroupPolicy)))
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 ->
          Int -> Text -> PutModelPackageGroupPolicyResponse
PutModelPackageGroupPolicyResponse'
            forall (f :: * -> *) a b. Functor 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))
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String a
Data..:> Key
"ModelPackageGroupArn")
      )

instance Prelude.Hashable PutModelPackageGroupPolicy where
  hashWithSalt :: Int -> PutModelPackageGroupPolicy -> Int
hashWithSalt Int
_salt PutModelPackageGroupPolicy' {Text
resourcePolicy :: Text
modelPackageGroupName :: Text
$sel:resourcePolicy:PutModelPackageGroupPolicy' :: PutModelPackageGroupPolicy -> Text
$sel:modelPackageGroupName:PutModelPackageGroupPolicy' :: PutModelPackageGroupPolicy -> Text
..} =
    Int
_salt
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
modelPackageGroupName
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
resourcePolicy

instance Prelude.NFData PutModelPackageGroupPolicy where
  rnf :: PutModelPackageGroupPolicy -> ()
rnf PutModelPackageGroupPolicy' {Text
resourcePolicy :: Text
modelPackageGroupName :: Text
$sel:resourcePolicy:PutModelPackageGroupPolicy' :: PutModelPackageGroupPolicy -> Text
$sel:modelPackageGroupName:PutModelPackageGroupPolicy' :: PutModelPackageGroupPolicy -> Text
..} =
    forall a. NFData a => a -> ()
Prelude.rnf Text
modelPackageGroupName
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
resourcePolicy

instance Data.ToHeaders PutModelPackageGroupPolicy where
  toHeaders :: PutModelPackageGroupPolicy -> ResponseHeaders
toHeaders =
    forall a b. a -> b -> a
Prelude.const
      ( forall a. Monoid a => [a] -> a
Prelude.mconcat
          [ HeaderName
"X-Amz-Target"
              forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"SageMaker.PutModelPackageGroupPolicy" ::
                          Prelude.ByteString
                      ),
            HeaderName
"Content-Type"
              forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
                          Prelude.ByteString
                      )
          ]
      )

instance Data.ToJSON PutModelPackageGroupPolicy where
  toJSON :: PutModelPackageGroupPolicy -> Value
toJSON PutModelPackageGroupPolicy' {Text
resourcePolicy :: Text
modelPackageGroupName :: Text
$sel:resourcePolicy:PutModelPackageGroupPolicy' :: PutModelPackageGroupPolicy -> Text
$sel:modelPackageGroupName:PutModelPackageGroupPolicy' :: PutModelPackageGroupPolicy -> Text
..} =
    [Pair] -> Value
Data.object
      ( forall a. [Maybe a] -> [a]
Prelude.catMaybes
          [ forall a. a -> Maybe a
Prelude.Just
              ( Key
"ModelPackageGroupName"
                  forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
modelPackageGroupName
              ),
            forall a. a -> Maybe a
Prelude.Just
              (Key
"ResourcePolicy" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
resourcePolicy)
          ]
      )

instance Data.ToPath PutModelPackageGroupPolicy where
  toPath :: PutModelPackageGroupPolicy -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"

instance Data.ToQuery PutModelPackageGroupPolicy where
  toQuery :: PutModelPackageGroupPolicy -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty

-- | /See:/ 'newPutModelPackageGroupPolicyResponse' smart constructor.
data PutModelPackageGroupPolicyResponse = PutModelPackageGroupPolicyResponse'
  { -- | The response's http status code.
    PutModelPackageGroupPolicyResponse -> Int
httpStatus :: Prelude.Int,
    -- | The Amazon Resource Name (ARN) of the model package group.
    PutModelPackageGroupPolicyResponse -> Text
modelPackageGroupArn :: Prelude.Text
  }
  deriving (PutModelPackageGroupPolicyResponse
-> PutModelPackageGroupPolicyResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PutModelPackageGroupPolicyResponse
-> PutModelPackageGroupPolicyResponse -> Bool
$c/= :: PutModelPackageGroupPolicyResponse
-> PutModelPackageGroupPolicyResponse -> Bool
== :: PutModelPackageGroupPolicyResponse
-> PutModelPackageGroupPolicyResponse -> Bool
$c== :: PutModelPackageGroupPolicyResponse
-> PutModelPackageGroupPolicyResponse -> Bool
Prelude.Eq, ReadPrec [PutModelPackageGroupPolicyResponse]
ReadPrec PutModelPackageGroupPolicyResponse
Int -> ReadS PutModelPackageGroupPolicyResponse
ReadS [PutModelPackageGroupPolicyResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [PutModelPackageGroupPolicyResponse]
$creadListPrec :: ReadPrec [PutModelPackageGroupPolicyResponse]
readPrec :: ReadPrec PutModelPackageGroupPolicyResponse
$creadPrec :: ReadPrec PutModelPackageGroupPolicyResponse
readList :: ReadS [PutModelPackageGroupPolicyResponse]
$creadList :: ReadS [PutModelPackageGroupPolicyResponse]
readsPrec :: Int -> ReadS PutModelPackageGroupPolicyResponse
$creadsPrec :: Int -> ReadS PutModelPackageGroupPolicyResponse
Prelude.Read, Int -> PutModelPackageGroupPolicyResponse -> ShowS
[PutModelPackageGroupPolicyResponse] -> ShowS
PutModelPackageGroupPolicyResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PutModelPackageGroupPolicyResponse] -> ShowS
$cshowList :: [PutModelPackageGroupPolicyResponse] -> ShowS
show :: PutModelPackageGroupPolicyResponse -> String
$cshow :: PutModelPackageGroupPolicyResponse -> String
showsPrec :: Int -> PutModelPackageGroupPolicyResponse -> ShowS
$cshowsPrec :: Int -> PutModelPackageGroupPolicyResponse -> ShowS
Prelude.Show, forall x.
Rep PutModelPackageGroupPolicyResponse x
-> PutModelPackageGroupPolicyResponse
forall x.
PutModelPackageGroupPolicyResponse
-> Rep PutModelPackageGroupPolicyResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep PutModelPackageGroupPolicyResponse x
-> PutModelPackageGroupPolicyResponse
$cfrom :: forall x.
PutModelPackageGroupPolicyResponse
-> Rep PutModelPackageGroupPolicyResponse x
Prelude.Generic)

-- |
-- Create a value of 'PutModelPackageGroupPolicyResponse' with all optional fields omitted.
--
-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.
--
-- The following record fields are available, with the corresponding lenses provided
-- for backwards compatibility:
--
-- 'httpStatus', 'putModelPackageGroupPolicyResponse_httpStatus' - The response's http status code.
--
-- 'modelPackageGroupArn', 'putModelPackageGroupPolicyResponse_modelPackageGroupArn' - The Amazon Resource Name (ARN) of the model package group.
newPutModelPackageGroupPolicyResponse ::
  -- | 'httpStatus'
  Prelude.Int ->
  -- | 'modelPackageGroupArn'
  Prelude.Text ->
  PutModelPackageGroupPolicyResponse
newPutModelPackageGroupPolicyResponse :: Int -> Text -> PutModelPackageGroupPolicyResponse
newPutModelPackageGroupPolicyResponse
  Int
pHttpStatus_
  Text
pModelPackageGroupArn_ =
    PutModelPackageGroupPolicyResponse'
      { $sel:httpStatus:PutModelPackageGroupPolicyResponse' :: Int
httpStatus =
          Int
pHttpStatus_,
        $sel:modelPackageGroupArn:PutModelPackageGroupPolicyResponse' :: Text
modelPackageGroupArn =
          Text
pModelPackageGroupArn_
      }

-- | The response's http status code.
putModelPackageGroupPolicyResponse_httpStatus :: Lens.Lens' PutModelPackageGroupPolicyResponse Prelude.Int
putModelPackageGroupPolicyResponse_httpStatus :: Lens' PutModelPackageGroupPolicyResponse Int
putModelPackageGroupPolicyResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutModelPackageGroupPolicyResponse' {Int
httpStatus :: Int
$sel:httpStatus:PutModelPackageGroupPolicyResponse' :: PutModelPackageGroupPolicyResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: PutModelPackageGroupPolicyResponse
s@PutModelPackageGroupPolicyResponse' {} Int
a -> PutModelPackageGroupPolicyResponse
s {$sel:httpStatus:PutModelPackageGroupPolicyResponse' :: Int
httpStatus = Int
a} :: PutModelPackageGroupPolicyResponse)

-- | The Amazon Resource Name (ARN) of the model package group.
putModelPackageGroupPolicyResponse_modelPackageGroupArn :: Lens.Lens' PutModelPackageGroupPolicyResponse Prelude.Text
putModelPackageGroupPolicyResponse_modelPackageGroupArn :: Lens' PutModelPackageGroupPolicyResponse Text
putModelPackageGroupPolicyResponse_modelPackageGroupArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutModelPackageGroupPolicyResponse' {Text
modelPackageGroupArn :: Text
$sel:modelPackageGroupArn:PutModelPackageGroupPolicyResponse' :: PutModelPackageGroupPolicyResponse -> Text
modelPackageGroupArn} -> Text
modelPackageGroupArn) (\s :: PutModelPackageGroupPolicyResponse
s@PutModelPackageGroupPolicyResponse' {} Text
a -> PutModelPackageGroupPolicyResponse
s {$sel:modelPackageGroupArn:PutModelPackageGroupPolicyResponse' :: Text
modelPackageGroupArn = Text
a} :: PutModelPackageGroupPolicyResponse)

instance
  Prelude.NFData
    PutModelPackageGroupPolicyResponse
  where
  rnf :: PutModelPackageGroupPolicyResponse -> ()
rnf PutModelPackageGroupPolicyResponse' {Int
Text
modelPackageGroupArn :: Text
httpStatus :: Int
$sel:modelPackageGroupArn:PutModelPackageGroupPolicyResponse' :: PutModelPackageGroupPolicyResponse -> Text
$sel:httpStatus:PutModelPackageGroupPolicyResponse' :: PutModelPackageGroupPolicyResponse -> Int
..} =
    forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
modelPackageGroupArn