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