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