{-# 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.SageMaker.DeleteModelPackageGroupPolicy
(
DeleteModelPackageGroupPolicy (..),
newDeleteModelPackageGroupPolicy,
deleteModelPackageGroupPolicy_modelPackageGroupName,
DeleteModelPackageGroupPolicyResponse (..),
newDeleteModelPackageGroupPolicyResponse,
)
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
data DeleteModelPackageGroupPolicy = DeleteModelPackageGroupPolicy'
{
DeleteModelPackageGroupPolicy -> Text
modelPackageGroupName :: Prelude.Text
}
deriving (DeleteModelPackageGroupPolicy
-> DeleteModelPackageGroupPolicy -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteModelPackageGroupPolicy
-> DeleteModelPackageGroupPolicy -> Bool
$c/= :: DeleteModelPackageGroupPolicy
-> DeleteModelPackageGroupPolicy -> Bool
== :: DeleteModelPackageGroupPolicy
-> DeleteModelPackageGroupPolicy -> Bool
$c== :: DeleteModelPackageGroupPolicy
-> DeleteModelPackageGroupPolicy -> Bool
Prelude.Eq, ReadPrec [DeleteModelPackageGroupPolicy]
ReadPrec DeleteModelPackageGroupPolicy
Int -> ReadS DeleteModelPackageGroupPolicy
ReadS [DeleteModelPackageGroupPolicy]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteModelPackageGroupPolicy]
$creadListPrec :: ReadPrec [DeleteModelPackageGroupPolicy]
readPrec :: ReadPrec DeleteModelPackageGroupPolicy
$creadPrec :: ReadPrec DeleteModelPackageGroupPolicy
readList :: ReadS [DeleteModelPackageGroupPolicy]
$creadList :: ReadS [DeleteModelPackageGroupPolicy]
readsPrec :: Int -> ReadS DeleteModelPackageGroupPolicy
$creadsPrec :: Int -> ReadS DeleteModelPackageGroupPolicy
Prelude.Read, Int -> DeleteModelPackageGroupPolicy -> ShowS
[DeleteModelPackageGroupPolicy] -> ShowS
DeleteModelPackageGroupPolicy -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteModelPackageGroupPolicy] -> ShowS
$cshowList :: [DeleteModelPackageGroupPolicy] -> ShowS
show :: DeleteModelPackageGroupPolicy -> String
$cshow :: DeleteModelPackageGroupPolicy -> String
showsPrec :: Int -> DeleteModelPackageGroupPolicy -> ShowS
$cshowsPrec :: Int -> DeleteModelPackageGroupPolicy -> ShowS
Prelude.Show, forall x.
Rep DeleteModelPackageGroupPolicy x
-> DeleteModelPackageGroupPolicy
forall x.
DeleteModelPackageGroupPolicy
-> Rep DeleteModelPackageGroupPolicy x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeleteModelPackageGroupPolicy x
-> DeleteModelPackageGroupPolicy
$cfrom :: forall x.
DeleteModelPackageGroupPolicy
-> Rep DeleteModelPackageGroupPolicy x
Prelude.Generic)
newDeleteModelPackageGroupPolicy ::
Prelude.Text ->
DeleteModelPackageGroupPolicy
newDeleteModelPackageGroupPolicy :: Text -> DeleteModelPackageGroupPolicy
newDeleteModelPackageGroupPolicy
Text
pModelPackageGroupName_ =
DeleteModelPackageGroupPolicy'
{ $sel:modelPackageGroupName:DeleteModelPackageGroupPolicy' :: Text
modelPackageGroupName =
Text
pModelPackageGroupName_
}
deleteModelPackageGroupPolicy_modelPackageGroupName :: Lens.Lens' DeleteModelPackageGroupPolicy Prelude.Text
deleteModelPackageGroupPolicy_modelPackageGroupName :: Lens' DeleteModelPackageGroupPolicy Text
deleteModelPackageGroupPolicy_modelPackageGroupName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteModelPackageGroupPolicy' {Text
modelPackageGroupName :: Text
$sel:modelPackageGroupName:DeleteModelPackageGroupPolicy' :: DeleteModelPackageGroupPolicy -> Text
modelPackageGroupName} -> Text
modelPackageGroupName) (\s :: DeleteModelPackageGroupPolicy
s@DeleteModelPackageGroupPolicy' {} Text
a -> DeleteModelPackageGroupPolicy
s {$sel:modelPackageGroupName:DeleteModelPackageGroupPolicy' :: Text
modelPackageGroupName = Text
a} :: DeleteModelPackageGroupPolicy)
instance
Core.AWSRequest
DeleteModelPackageGroupPolicy
where
type
AWSResponse DeleteModelPackageGroupPolicy =
DeleteModelPackageGroupPolicyResponse
request :: (Service -> Service)
-> DeleteModelPackageGroupPolicy
-> Request DeleteModelPackageGroupPolicy
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 DeleteModelPackageGroupPolicy
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse DeleteModelPackageGroupPolicy)))
response =
forall (m :: * -> *) a.
MonadResource m =>
AWSResponse a
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveNull
DeleteModelPackageGroupPolicyResponse
DeleteModelPackageGroupPolicyResponse'
instance
Prelude.Hashable
DeleteModelPackageGroupPolicy
where
hashWithSalt :: Int -> DeleteModelPackageGroupPolicy -> Int
hashWithSalt Int
_salt DeleteModelPackageGroupPolicy' {Text
modelPackageGroupName :: Text
$sel:modelPackageGroupName:DeleteModelPackageGroupPolicy' :: DeleteModelPackageGroupPolicy -> Text
..} =
Int
_salt forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
modelPackageGroupName
instance Prelude.NFData DeleteModelPackageGroupPolicy where
rnf :: DeleteModelPackageGroupPolicy -> ()
rnf DeleteModelPackageGroupPolicy' {Text
modelPackageGroupName :: Text
$sel:modelPackageGroupName:DeleteModelPackageGroupPolicy' :: DeleteModelPackageGroupPolicy -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
modelPackageGroupName
instance Data.ToHeaders DeleteModelPackageGroupPolicy where
toHeaders :: DeleteModelPackageGroupPolicy -> [Header]
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 -> [Header]
Data.=# ( ByteString
"SageMaker.DeleteModelPackageGroupPolicy" ::
Prelude.ByteString
),
HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON DeleteModelPackageGroupPolicy where
toJSON :: DeleteModelPackageGroupPolicy -> Value
toJSON DeleteModelPackageGroupPolicy' {Text
modelPackageGroupName :: Text
$sel:modelPackageGroupName:DeleteModelPackageGroupPolicy' :: DeleteModelPackageGroupPolicy -> 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
)
]
)
instance Data.ToPath DeleteModelPackageGroupPolicy where
toPath :: DeleteModelPackageGroupPolicy -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery DeleteModelPackageGroupPolicy where
toQuery :: DeleteModelPackageGroupPolicy -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DeleteModelPackageGroupPolicyResponse = DeleteModelPackageGroupPolicyResponse'
{
}
deriving (DeleteModelPackageGroupPolicyResponse
-> DeleteModelPackageGroupPolicyResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteModelPackageGroupPolicyResponse
-> DeleteModelPackageGroupPolicyResponse -> Bool
$c/= :: DeleteModelPackageGroupPolicyResponse
-> DeleteModelPackageGroupPolicyResponse -> Bool
== :: DeleteModelPackageGroupPolicyResponse
-> DeleteModelPackageGroupPolicyResponse -> Bool
$c== :: DeleteModelPackageGroupPolicyResponse
-> DeleteModelPackageGroupPolicyResponse -> Bool
Prelude.Eq, ReadPrec [DeleteModelPackageGroupPolicyResponse]
ReadPrec DeleteModelPackageGroupPolicyResponse
Int -> ReadS DeleteModelPackageGroupPolicyResponse
ReadS [DeleteModelPackageGroupPolicyResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteModelPackageGroupPolicyResponse]
$creadListPrec :: ReadPrec [DeleteModelPackageGroupPolicyResponse]
readPrec :: ReadPrec DeleteModelPackageGroupPolicyResponse
$creadPrec :: ReadPrec DeleteModelPackageGroupPolicyResponse
readList :: ReadS [DeleteModelPackageGroupPolicyResponse]
$creadList :: ReadS [DeleteModelPackageGroupPolicyResponse]
readsPrec :: Int -> ReadS DeleteModelPackageGroupPolicyResponse
$creadsPrec :: Int -> ReadS DeleteModelPackageGroupPolicyResponse
Prelude.Read, Int -> DeleteModelPackageGroupPolicyResponse -> ShowS
[DeleteModelPackageGroupPolicyResponse] -> ShowS
DeleteModelPackageGroupPolicyResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteModelPackageGroupPolicyResponse] -> ShowS
$cshowList :: [DeleteModelPackageGroupPolicyResponse] -> ShowS
show :: DeleteModelPackageGroupPolicyResponse -> String
$cshow :: DeleteModelPackageGroupPolicyResponse -> String
showsPrec :: Int -> DeleteModelPackageGroupPolicyResponse -> ShowS
$cshowsPrec :: Int -> DeleteModelPackageGroupPolicyResponse -> ShowS
Prelude.Show, forall x.
Rep DeleteModelPackageGroupPolicyResponse x
-> DeleteModelPackageGroupPolicyResponse
forall x.
DeleteModelPackageGroupPolicyResponse
-> Rep DeleteModelPackageGroupPolicyResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeleteModelPackageGroupPolicyResponse x
-> DeleteModelPackageGroupPolicyResponse
$cfrom :: forall x.
DeleteModelPackageGroupPolicyResponse
-> Rep DeleteModelPackageGroupPolicyResponse x
Prelude.Generic)
newDeleteModelPackageGroupPolicyResponse ::
DeleteModelPackageGroupPolicyResponse
newDeleteModelPackageGroupPolicyResponse :: DeleteModelPackageGroupPolicyResponse
newDeleteModelPackageGroupPolicyResponse =
DeleteModelPackageGroupPolicyResponse
DeleteModelPackageGroupPolicyResponse'
instance
Prelude.NFData
DeleteModelPackageGroupPolicyResponse
where
rnf :: DeleteModelPackageGroupPolicyResponse -> ()
rnf DeleteModelPackageGroupPolicyResponse
_ = ()