{-# 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.DeleteInferenceExperiment
(
DeleteInferenceExperiment (..),
newDeleteInferenceExperiment,
deleteInferenceExperiment_name,
DeleteInferenceExperimentResponse (..),
newDeleteInferenceExperimentResponse,
deleteInferenceExperimentResponse_httpStatus,
deleteInferenceExperimentResponse_inferenceExperimentArn,
)
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 DeleteInferenceExperiment = DeleteInferenceExperiment'
{
DeleteInferenceExperiment -> Text
name :: Prelude.Text
}
deriving (DeleteInferenceExperiment -> DeleteInferenceExperiment -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteInferenceExperiment -> DeleteInferenceExperiment -> Bool
$c/= :: DeleteInferenceExperiment -> DeleteInferenceExperiment -> Bool
== :: DeleteInferenceExperiment -> DeleteInferenceExperiment -> Bool
$c== :: DeleteInferenceExperiment -> DeleteInferenceExperiment -> Bool
Prelude.Eq, ReadPrec [DeleteInferenceExperiment]
ReadPrec DeleteInferenceExperiment
Int -> ReadS DeleteInferenceExperiment
ReadS [DeleteInferenceExperiment]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteInferenceExperiment]
$creadListPrec :: ReadPrec [DeleteInferenceExperiment]
readPrec :: ReadPrec DeleteInferenceExperiment
$creadPrec :: ReadPrec DeleteInferenceExperiment
readList :: ReadS [DeleteInferenceExperiment]
$creadList :: ReadS [DeleteInferenceExperiment]
readsPrec :: Int -> ReadS DeleteInferenceExperiment
$creadsPrec :: Int -> ReadS DeleteInferenceExperiment
Prelude.Read, Int -> DeleteInferenceExperiment -> ShowS
[DeleteInferenceExperiment] -> ShowS
DeleteInferenceExperiment -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteInferenceExperiment] -> ShowS
$cshowList :: [DeleteInferenceExperiment] -> ShowS
show :: DeleteInferenceExperiment -> String
$cshow :: DeleteInferenceExperiment -> String
showsPrec :: Int -> DeleteInferenceExperiment -> ShowS
$cshowsPrec :: Int -> DeleteInferenceExperiment -> ShowS
Prelude.Show, forall x.
Rep DeleteInferenceExperiment x -> DeleteInferenceExperiment
forall x.
DeleteInferenceExperiment -> Rep DeleteInferenceExperiment x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeleteInferenceExperiment x -> DeleteInferenceExperiment
$cfrom :: forall x.
DeleteInferenceExperiment -> Rep DeleteInferenceExperiment x
Prelude.Generic)
newDeleteInferenceExperiment ::
Prelude.Text ->
DeleteInferenceExperiment
newDeleteInferenceExperiment :: Text -> DeleteInferenceExperiment
newDeleteInferenceExperiment Text
pName_ =
DeleteInferenceExperiment' {$sel:name:DeleteInferenceExperiment' :: Text
name = Text
pName_}
deleteInferenceExperiment_name :: Lens.Lens' DeleteInferenceExperiment Prelude.Text
deleteInferenceExperiment_name :: Lens' DeleteInferenceExperiment Text
deleteInferenceExperiment_name = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteInferenceExperiment' {Text
name :: Text
$sel:name:DeleteInferenceExperiment' :: DeleteInferenceExperiment -> Text
name} -> Text
name) (\s :: DeleteInferenceExperiment
s@DeleteInferenceExperiment' {} Text
a -> DeleteInferenceExperiment
s {$sel:name:DeleteInferenceExperiment' :: Text
name = Text
a} :: DeleteInferenceExperiment)
instance Core.AWSRequest DeleteInferenceExperiment where
type
AWSResponse DeleteInferenceExperiment =
DeleteInferenceExperimentResponse
request :: (Service -> Service)
-> DeleteInferenceExperiment -> Request DeleteInferenceExperiment
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 DeleteInferenceExperiment
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse DeleteInferenceExperiment)))
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 -> DeleteInferenceExperimentResponse
DeleteInferenceExperimentResponse'
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
"InferenceExperimentArn")
)
instance Prelude.Hashable DeleteInferenceExperiment where
hashWithSalt :: Int -> DeleteInferenceExperiment -> Int
hashWithSalt Int
_salt DeleteInferenceExperiment' {Text
name :: Text
$sel:name:DeleteInferenceExperiment' :: DeleteInferenceExperiment -> Text
..} =
Int
_salt forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
name
instance Prelude.NFData DeleteInferenceExperiment where
rnf :: DeleteInferenceExperiment -> ()
rnf DeleteInferenceExperiment' {Text
name :: Text
$sel:name:DeleteInferenceExperiment' :: DeleteInferenceExperiment -> Text
..} = forall a. NFData a => a -> ()
Prelude.rnf Text
name
instance Data.ToHeaders DeleteInferenceExperiment where
toHeaders :: DeleteInferenceExperiment -> 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.DeleteInferenceExperiment" ::
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 DeleteInferenceExperiment where
toJSON :: DeleteInferenceExperiment -> Value
toJSON DeleteInferenceExperiment' {Text
name :: Text
$sel:name:DeleteInferenceExperiment' :: DeleteInferenceExperiment -> Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[forall a. a -> Maybe a
Prelude.Just (Key
"Name" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
name)]
)
instance Data.ToPath DeleteInferenceExperiment where
toPath :: DeleteInferenceExperiment -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery DeleteInferenceExperiment where
toQuery :: DeleteInferenceExperiment -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DeleteInferenceExperimentResponse = DeleteInferenceExperimentResponse'
{
DeleteInferenceExperimentResponse -> Int
httpStatus :: Prelude.Int,
DeleteInferenceExperimentResponse -> Text
inferenceExperimentArn :: Prelude.Text
}
deriving (DeleteInferenceExperimentResponse
-> DeleteInferenceExperimentResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteInferenceExperimentResponse
-> DeleteInferenceExperimentResponse -> Bool
$c/= :: DeleteInferenceExperimentResponse
-> DeleteInferenceExperimentResponse -> Bool
== :: DeleteInferenceExperimentResponse
-> DeleteInferenceExperimentResponse -> Bool
$c== :: DeleteInferenceExperimentResponse
-> DeleteInferenceExperimentResponse -> Bool
Prelude.Eq, ReadPrec [DeleteInferenceExperimentResponse]
ReadPrec DeleteInferenceExperimentResponse
Int -> ReadS DeleteInferenceExperimentResponse
ReadS [DeleteInferenceExperimentResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteInferenceExperimentResponse]
$creadListPrec :: ReadPrec [DeleteInferenceExperimentResponse]
readPrec :: ReadPrec DeleteInferenceExperimentResponse
$creadPrec :: ReadPrec DeleteInferenceExperimentResponse
readList :: ReadS [DeleteInferenceExperimentResponse]
$creadList :: ReadS [DeleteInferenceExperimentResponse]
readsPrec :: Int -> ReadS DeleteInferenceExperimentResponse
$creadsPrec :: Int -> ReadS DeleteInferenceExperimentResponse
Prelude.Read, Int -> DeleteInferenceExperimentResponse -> ShowS
[DeleteInferenceExperimentResponse] -> ShowS
DeleteInferenceExperimentResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteInferenceExperimentResponse] -> ShowS
$cshowList :: [DeleteInferenceExperimentResponse] -> ShowS
show :: DeleteInferenceExperimentResponse -> String
$cshow :: DeleteInferenceExperimentResponse -> String
showsPrec :: Int -> DeleteInferenceExperimentResponse -> ShowS
$cshowsPrec :: Int -> DeleteInferenceExperimentResponse -> ShowS
Prelude.Show, forall x.
Rep DeleteInferenceExperimentResponse x
-> DeleteInferenceExperimentResponse
forall x.
DeleteInferenceExperimentResponse
-> Rep DeleteInferenceExperimentResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeleteInferenceExperimentResponse x
-> DeleteInferenceExperimentResponse
$cfrom :: forall x.
DeleteInferenceExperimentResponse
-> Rep DeleteInferenceExperimentResponse x
Prelude.Generic)
newDeleteInferenceExperimentResponse ::
Prelude.Int ->
Prelude.Text ->
DeleteInferenceExperimentResponse
newDeleteInferenceExperimentResponse :: Int -> Text -> DeleteInferenceExperimentResponse
newDeleteInferenceExperimentResponse
Int
pHttpStatus_
Text
pInferenceExperimentArn_ =
DeleteInferenceExperimentResponse'
{ $sel:httpStatus:DeleteInferenceExperimentResponse' :: Int
httpStatus =
Int
pHttpStatus_,
$sel:inferenceExperimentArn:DeleteInferenceExperimentResponse' :: Text
inferenceExperimentArn =
Text
pInferenceExperimentArn_
}
deleteInferenceExperimentResponse_httpStatus :: Lens.Lens' DeleteInferenceExperimentResponse Prelude.Int
deleteInferenceExperimentResponse_httpStatus :: Lens' DeleteInferenceExperimentResponse Int
deleteInferenceExperimentResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteInferenceExperimentResponse' {Int
httpStatus :: Int
$sel:httpStatus:DeleteInferenceExperimentResponse' :: DeleteInferenceExperimentResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DeleteInferenceExperimentResponse
s@DeleteInferenceExperimentResponse' {} Int
a -> DeleteInferenceExperimentResponse
s {$sel:httpStatus:DeleteInferenceExperimentResponse' :: Int
httpStatus = Int
a} :: DeleteInferenceExperimentResponse)
deleteInferenceExperimentResponse_inferenceExperimentArn :: Lens.Lens' DeleteInferenceExperimentResponse Prelude.Text
deleteInferenceExperimentResponse_inferenceExperimentArn :: Lens' DeleteInferenceExperimentResponse Text
deleteInferenceExperimentResponse_inferenceExperimentArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteInferenceExperimentResponse' {Text
inferenceExperimentArn :: Text
$sel:inferenceExperimentArn:DeleteInferenceExperimentResponse' :: DeleteInferenceExperimentResponse -> Text
inferenceExperimentArn} -> Text
inferenceExperimentArn) (\s :: DeleteInferenceExperimentResponse
s@DeleteInferenceExperimentResponse' {} Text
a -> DeleteInferenceExperimentResponse
s {$sel:inferenceExperimentArn:DeleteInferenceExperimentResponse' :: Text
inferenceExperimentArn = Text
a} :: DeleteInferenceExperimentResponse)
instance
Prelude.NFData
DeleteInferenceExperimentResponse
where
rnf :: DeleteInferenceExperimentResponse -> ()
rnf DeleteInferenceExperimentResponse' {Int
Text
inferenceExperimentArn :: Text
httpStatus :: Int
$sel:inferenceExperimentArn:DeleteInferenceExperimentResponse' :: DeleteInferenceExperimentResponse -> Text
$sel:httpStatus:DeleteInferenceExperimentResponse' :: DeleteInferenceExperimentResponse -> 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
inferenceExperimentArn