{-# 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.LookoutEquipment.StopInferenceScheduler
(
StopInferenceScheduler (..),
newStopInferenceScheduler,
stopInferenceScheduler_inferenceSchedulerName,
StopInferenceSchedulerResponse (..),
newStopInferenceSchedulerResponse,
stopInferenceSchedulerResponse_inferenceSchedulerArn,
stopInferenceSchedulerResponse_inferenceSchedulerName,
stopInferenceSchedulerResponse_modelArn,
stopInferenceSchedulerResponse_modelName,
stopInferenceSchedulerResponse_status,
stopInferenceSchedulerResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.LookoutEquipment.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data StopInferenceScheduler = StopInferenceScheduler'
{
StopInferenceScheduler -> Text
inferenceSchedulerName :: Prelude.Text
}
deriving (StopInferenceScheduler -> StopInferenceScheduler -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: StopInferenceScheduler -> StopInferenceScheduler -> Bool
$c/= :: StopInferenceScheduler -> StopInferenceScheduler -> Bool
== :: StopInferenceScheduler -> StopInferenceScheduler -> Bool
$c== :: StopInferenceScheduler -> StopInferenceScheduler -> Bool
Prelude.Eq, ReadPrec [StopInferenceScheduler]
ReadPrec StopInferenceScheduler
Int -> ReadS StopInferenceScheduler
ReadS [StopInferenceScheduler]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [StopInferenceScheduler]
$creadListPrec :: ReadPrec [StopInferenceScheduler]
readPrec :: ReadPrec StopInferenceScheduler
$creadPrec :: ReadPrec StopInferenceScheduler
readList :: ReadS [StopInferenceScheduler]
$creadList :: ReadS [StopInferenceScheduler]
readsPrec :: Int -> ReadS StopInferenceScheduler
$creadsPrec :: Int -> ReadS StopInferenceScheduler
Prelude.Read, Int -> StopInferenceScheduler -> ShowS
[StopInferenceScheduler] -> ShowS
StopInferenceScheduler -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [StopInferenceScheduler] -> ShowS
$cshowList :: [StopInferenceScheduler] -> ShowS
show :: StopInferenceScheduler -> String
$cshow :: StopInferenceScheduler -> String
showsPrec :: Int -> StopInferenceScheduler -> ShowS
$cshowsPrec :: Int -> StopInferenceScheduler -> ShowS
Prelude.Show, forall x. Rep StopInferenceScheduler x -> StopInferenceScheduler
forall x. StopInferenceScheduler -> Rep StopInferenceScheduler x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep StopInferenceScheduler x -> StopInferenceScheduler
$cfrom :: forall x. StopInferenceScheduler -> Rep StopInferenceScheduler x
Prelude.Generic)
newStopInferenceScheduler ::
Prelude.Text ->
StopInferenceScheduler
newStopInferenceScheduler :: Text -> StopInferenceScheduler
newStopInferenceScheduler Text
pInferenceSchedulerName_ =
StopInferenceScheduler'
{ $sel:inferenceSchedulerName:StopInferenceScheduler' :: Text
inferenceSchedulerName =
Text
pInferenceSchedulerName_
}
stopInferenceScheduler_inferenceSchedulerName :: Lens.Lens' StopInferenceScheduler Prelude.Text
stopInferenceScheduler_inferenceSchedulerName :: Lens' StopInferenceScheduler Text
stopInferenceScheduler_inferenceSchedulerName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StopInferenceScheduler' {Text
inferenceSchedulerName :: Text
$sel:inferenceSchedulerName:StopInferenceScheduler' :: StopInferenceScheduler -> Text
inferenceSchedulerName} -> Text
inferenceSchedulerName) (\s :: StopInferenceScheduler
s@StopInferenceScheduler' {} Text
a -> StopInferenceScheduler
s {$sel:inferenceSchedulerName:StopInferenceScheduler' :: Text
inferenceSchedulerName = Text
a} :: StopInferenceScheduler)
instance Core.AWSRequest StopInferenceScheduler where
type
AWSResponse StopInferenceScheduler =
StopInferenceSchedulerResponse
request :: (Service -> Service)
-> StopInferenceScheduler -> Request StopInferenceScheduler
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 StopInferenceScheduler
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse StopInferenceScheduler)))
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 ->
Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe InferenceSchedulerStatus
-> Int
-> StopInferenceSchedulerResponse
StopInferenceSchedulerResponse'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"InferenceSchedulerArn")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"InferenceSchedulerName")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"ModelArn")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"ModelName")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"Status")
forall (f :: * -> *) a b. Applicative f => 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))
)
instance Prelude.Hashable StopInferenceScheduler where
hashWithSalt :: Int -> StopInferenceScheduler -> Int
hashWithSalt Int
_salt StopInferenceScheduler' {Text
inferenceSchedulerName :: Text
$sel:inferenceSchedulerName:StopInferenceScheduler' :: StopInferenceScheduler -> Text
..} =
Int
_salt forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
inferenceSchedulerName
instance Prelude.NFData StopInferenceScheduler where
rnf :: StopInferenceScheduler -> ()
rnf StopInferenceScheduler' {Text
inferenceSchedulerName :: Text
$sel:inferenceSchedulerName:StopInferenceScheduler' :: StopInferenceScheduler -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
inferenceSchedulerName
instance Data.ToHeaders StopInferenceScheduler where
toHeaders :: StopInferenceScheduler -> 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
"AWSLookoutEquipmentFrontendService.StopInferenceScheduler" ::
Prelude.ByteString
),
HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.0" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON StopInferenceScheduler where
toJSON :: StopInferenceScheduler -> Value
toJSON StopInferenceScheduler' {Text
inferenceSchedulerName :: Text
$sel:inferenceSchedulerName:StopInferenceScheduler' :: StopInferenceScheduler -> Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ forall a. a -> Maybe a
Prelude.Just
( Key
"InferenceSchedulerName"
forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
inferenceSchedulerName
)
]
)
instance Data.ToPath StopInferenceScheduler where
toPath :: StopInferenceScheduler -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery StopInferenceScheduler where
toQuery :: StopInferenceScheduler -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data StopInferenceSchedulerResponse = StopInferenceSchedulerResponse'
{
StopInferenceSchedulerResponse -> Maybe Text
inferenceSchedulerArn :: Prelude.Maybe Prelude.Text,
StopInferenceSchedulerResponse -> Maybe Text
inferenceSchedulerName :: Prelude.Maybe Prelude.Text,
StopInferenceSchedulerResponse -> Maybe Text
modelArn :: Prelude.Maybe Prelude.Text,
StopInferenceSchedulerResponse -> Maybe Text
modelName :: Prelude.Maybe Prelude.Text,
StopInferenceSchedulerResponse -> Maybe InferenceSchedulerStatus
status :: Prelude.Maybe InferenceSchedulerStatus,
StopInferenceSchedulerResponse -> Int
httpStatus :: Prelude.Int
}
deriving (StopInferenceSchedulerResponse
-> StopInferenceSchedulerResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: StopInferenceSchedulerResponse
-> StopInferenceSchedulerResponse -> Bool
$c/= :: StopInferenceSchedulerResponse
-> StopInferenceSchedulerResponse -> Bool
== :: StopInferenceSchedulerResponse
-> StopInferenceSchedulerResponse -> Bool
$c== :: StopInferenceSchedulerResponse
-> StopInferenceSchedulerResponse -> Bool
Prelude.Eq, ReadPrec [StopInferenceSchedulerResponse]
ReadPrec StopInferenceSchedulerResponse
Int -> ReadS StopInferenceSchedulerResponse
ReadS [StopInferenceSchedulerResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [StopInferenceSchedulerResponse]
$creadListPrec :: ReadPrec [StopInferenceSchedulerResponse]
readPrec :: ReadPrec StopInferenceSchedulerResponse
$creadPrec :: ReadPrec StopInferenceSchedulerResponse
readList :: ReadS [StopInferenceSchedulerResponse]
$creadList :: ReadS [StopInferenceSchedulerResponse]
readsPrec :: Int -> ReadS StopInferenceSchedulerResponse
$creadsPrec :: Int -> ReadS StopInferenceSchedulerResponse
Prelude.Read, Int -> StopInferenceSchedulerResponse -> ShowS
[StopInferenceSchedulerResponse] -> ShowS
StopInferenceSchedulerResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [StopInferenceSchedulerResponse] -> ShowS
$cshowList :: [StopInferenceSchedulerResponse] -> ShowS
show :: StopInferenceSchedulerResponse -> String
$cshow :: StopInferenceSchedulerResponse -> String
showsPrec :: Int -> StopInferenceSchedulerResponse -> ShowS
$cshowsPrec :: Int -> StopInferenceSchedulerResponse -> ShowS
Prelude.Show, forall x.
Rep StopInferenceSchedulerResponse x
-> StopInferenceSchedulerResponse
forall x.
StopInferenceSchedulerResponse
-> Rep StopInferenceSchedulerResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep StopInferenceSchedulerResponse x
-> StopInferenceSchedulerResponse
$cfrom :: forall x.
StopInferenceSchedulerResponse
-> Rep StopInferenceSchedulerResponse x
Prelude.Generic)
newStopInferenceSchedulerResponse ::
Prelude.Int ->
StopInferenceSchedulerResponse
newStopInferenceSchedulerResponse :: Int -> StopInferenceSchedulerResponse
newStopInferenceSchedulerResponse Int
pHttpStatus_ =
StopInferenceSchedulerResponse'
{ $sel:inferenceSchedulerArn:StopInferenceSchedulerResponse' :: Maybe Text
inferenceSchedulerArn =
forall a. Maybe a
Prelude.Nothing,
$sel:inferenceSchedulerName:StopInferenceSchedulerResponse' :: Maybe Text
inferenceSchedulerName = forall a. Maybe a
Prelude.Nothing,
$sel:modelArn:StopInferenceSchedulerResponse' :: Maybe Text
modelArn = forall a. Maybe a
Prelude.Nothing,
$sel:modelName:StopInferenceSchedulerResponse' :: Maybe Text
modelName = forall a. Maybe a
Prelude.Nothing,
$sel:status:StopInferenceSchedulerResponse' :: Maybe InferenceSchedulerStatus
status = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:StopInferenceSchedulerResponse' :: Int
httpStatus = Int
pHttpStatus_
}
stopInferenceSchedulerResponse_inferenceSchedulerArn :: Lens.Lens' StopInferenceSchedulerResponse (Prelude.Maybe Prelude.Text)
stopInferenceSchedulerResponse_inferenceSchedulerArn :: Lens' StopInferenceSchedulerResponse (Maybe Text)
stopInferenceSchedulerResponse_inferenceSchedulerArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StopInferenceSchedulerResponse' {Maybe Text
inferenceSchedulerArn :: Maybe Text
$sel:inferenceSchedulerArn:StopInferenceSchedulerResponse' :: StopInferenceSchedulerResponse -> Maybe Text
inferenceSchedulerArn} -> Maybe Text
inferenceSchedulerArn) (\s :: StopInferenceSchedulerResponse
s@StopInferenceSchedulerResponse' {} Maybe Text
a -> StopInferenceSchedulerResponse
s {$sel:inferenceSchedulerArn:StopInferenceSchedulerResponse' :: Maybe Text
inferenceSchedulerArn = Maybe Text
a} :: StopInferenceSchedulerResponse)
stopInferenceSchedulerResponse_inferenceSchedulerName :: Lens.Lens' StopInferenceSchedulerResponse (Prelude.Maybe Prelude.Text)
stopInferenceSchedulerResponse_inferenceSchedulerName :: Lens' StopInferenceSchedulerResponse (Maybe Text)
stopInferenceSchedulerResponse_inferenceSchedulerName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StopInferenceSchedulerResponse' {Maybe Text
inferenceSchedulerName :: Maybe Text
$sel:inferenceSchedulerName:StopInferenceSchedulerResponse' :: StopInferenceSchedulerResponse -> Maybe Text
inferenceSchedulerName} -> Maybe Text
inferenceSchedulerName) (\s :: StopInferenceSchedulerResponse
s@StopInferenceSchedulerResponse' {} Maybe Text
a -> StopInferenceSchedulerResponse
s {$sel:inferenceSchedulerName:StopInferenceSchedulerResponse' :: Maybe Text
inferenceSchedulerName = Maybe Text
a} :: StopInferenceSchedulerResponse)
stopInferenceSchedulerResponse_modelArn :: Lens.Lens' StopInferenceSchedulerResponse (Prelude.Maybe Prelude.Text)
stopInferenceSchedulerResponse_modelArn :: Lens' StopInferenceSchedulerResponse (Maybe Text)
stopInferenceSchedulerResponse_modelArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StopInferenceSchedulerResponse' {Maybe Text
modelArn :: Maybe Text
$sel:modelArn:StopInferenceSchedulerResponse' :: StopInferenceSchedulerResponse -> Maybe Text
modelArn} -> Maybe Text
modelArn) (\s :: StopInferenceSchedulerResponse
s@StopInferenceSchedulerResponse' {} Maybe Text
a -> StopInferenceSchedulerResponse
s {$sel:modelArn:StopInferenceSchedulerResponse' :: Maybe Text
modelArn = Maybe Text
a} :: StopInferenceSchedulerResponse)
stopInferenceSchedulerResponse_modelName :: Lens.Lens' StopInferenceSchedulerResponse (Prelude.Maybe Prelude.Text)
stopInferenceSchedulerResponse_modelName :: Lens' StopInferenceSchedulerResponse (Maybe Text)
stopInferenceSchedulerResponse_modelName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StopInferenceSchedulerResponse' {Maybe Text
modelName :: Maybe Text
$sel:modelName:StopInferenceSchedulerResponse' :: StopInferenceSchedulerResponse -> Maybe Text
modelName} -> Maybe Text
modelName) (\s :: StopInferenceSchedulerResponse
s@StopInferenceSchedulerResponse' {} Maybe Text
a -> StopInferenceSchedulerResponse
s {$sel:modelName:StopInferenceSchedulerResponse' :: Maybe Text
modelName = Maybe Text
a} :: StopInferenceSchedulerResponse)
stopInferenceSchedulerResponse_status :: Lens.Lens' StopInferenceSchedulerResponse (Prelude.Maybe InferenceSchedulerStatus)
stopInferenceSchedulerResponse_status :: Lens'
StopInferenceSchedulerResponse (Maybe InferenceSchedulerStatus)
stopInferenceSchedulerResponse_status = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StopInferenceSchedulerResponse' {Maybe InferenceSchedulerStatus
status :: Maybe InferenceSchedulerStatus
$sel:status:StopInferenceSchedulerResponse' :: StopInferenceSchedulerResponse -> Maybe InferenceSchedulerStatus
status} -> Maybe InferenceSchedulerStatus
status) (\s :: StopInferenceSchedulerResponse
s@StopInferenceSchedulerResponse' {} Maybe InferenceSchedulerStatus
a -> StopInferenceSchedulerResponse
s {$sel:status:StopInferenceSchedulerResponse' :: Maybe InferenceSchedulerStatus
status = Maybe InferenceSchedulerStatus
a} :: StopInferenceSchedulerResponse)
stopInferenceSchedulerResponse_httpStatus :: Lens.Lens' StopInferenceSchedulerResponse Prelude.Int
stopInferenceSchedulerResponse_httpStatus :: Lens' StopInferenceSchedulerResponse Int
stopInferenceSchedulerResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StopInferenceSchedulerResponse' {Int
httpStatus :: Int
$sel:httpStatus:StopInferenceSchedulerResponse' :: StopInferenceSchedulerResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: StopInferenceSchedulerResponse
s@StopInferenceSchedulerResponse' {} Int
a -> StopInferenceSchedulerResponse
s {$sel:httpStatus:StopInferenceSchedulerResponse' :: Int
httpStatus = Int
a} :: StopInferenceSchedulerResponse)
instance
Prelude.NFData
StopInferenceSchedulerResponse
where
rnf :: StopInferenceSchedulerResponse -> ()
rnf StopInferenceSchedulerResponse' {Int
Maybe Text
Maybe InferenceSchedulerStatus
httpStatus :: Int
status :: Maybe InferenceSchedulerStatus
modelName :: Maybe Text
modelArn :: Maybe Text
inferenceSchedulerName :: Maybe Text
inferenceSchedulerArn :: Maybe Text
$sel:httpStatus:StopInferenceSchedulerResponse' :: StopInferenceSchedulerResponse -> Int
$sel:status:StopInferenceSchedulerResponse' :: StopInferenceSchedulerResponse -> Maybe InferenceSchedulerStatus
$sel:modelName:StopInferenceSchedulerResponse' :: StopInferenceSchedulerResponse -> Maybe Text
$sel:modelArn:StopInferenceSchedulerResponse' :: StopInferenceSchedulerResponse -> Maybe Text
$sel:inferenceSchedulerName:StopInferenceSchedulerResponse' :: StopInferenceSchedulerResponse -> Maybe Text
$sel:inferenceSchedulerArn:StopInferenceSchedulerResponse' :: StopInferenceSchedulerResponse -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
inferenceSchedulerArn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
inferenceSchedulerName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
modelArn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
modelName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe InferenceSchedulerStatus
status
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus