{-# 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.StartInferenceScheduler
(
StartInferenceScheduler (..),
newStartInferenceScheduler,
startInferenceScheduler_inferenceSchedulerName,
StartInferenceSchedulerResponse (..),
newStartInferenceSchedulerResponse,
startInferenceSchedulerResponse_inferenceSchedulerArn,
startInferenceSchedulerResponse_inferenceSchedulerName,
startInferenceSchedulerResponse_modelArn,
startInferenceSchedulerResponse_modelName,
startInferenceSchedulerResponse_status,
startInferenceSchedulerResponse_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 StartInferenceScheduler = StartInferenceScheduler'
{
StartInferenceScheduler -> Text
inferenceSchedulerName :: Prelude.Text
}
deriving (StartInferenceScheduler -> StartInferenceScheduler -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: StartInferenceScheduler -> StartInferenceScheduler -> Bool
$c/= :: StartInferenceScheduler -> StartInferenceScheduler -> Bool
== :: StartInferenceScheduler -> StartInferenceScheduler -> Bool
$c== :: StartInferenceScheduler -> StartInferenceScheduler -> Bool
Prelude.Eq, ReadPrec [StartInferenceScheduler]
ReadPrec StartInferenceScheduler
Int -> ReadS StartInferenceScheduler
ReadS [StartInferenceScheduler]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [StartInferenceScheduler]
$creadListPrec :: ReadPrec [StartInferenceScheduler]
readPrec :: ReadPrec StartInferenceScheduler
$creadPrec :: ReadPrec StartInferenceScheduler
readList :: ReadS [StartInferenceScheduler]
$creadList :: ReadS [StartInferenceScheduler]
readsPrec :: Int -> ReadS StartInferenceScheduler
$creadsPrec :: Int -> ReadS StartInferenceScheduler
Prelude.Read, Int -> StartInferenceScheduler -> ShowS
[StartInferenceScheduler] -> ShowS
StartInferenceScheduler -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [StartInferenceScheduler] -> ShowS
$cshowList :: [StartInferenceScheduler] -> ShowS
show :: StartInferenceScheduler -> String
$cshow :: StartInferenceScheduler -> String
showsPrec :: Int -> StartInferenceScheduler -> ShowS
$cshowsPrec :: Int -> StartInferenceScheduler -> ShowS
Prelude.Show, forall x. Rep StartInferenceScheduler x -> StartInferenceScheduler
forall x. StartInferenceScheduler -> Rep StartInferenceScheduler x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep StartInferenceScheduler x -> StartInferenceScheduler
$cfrom :: forall x. StartInferenceScheduler -> Rep StartInferenceScheduler x
Prelude.Generic)
newStartInferenceScheduler ::
Prelude.Text ->
StartInferenceScheduler
newStartInferenceScheduler :: Text -> StartInferenceScheduler
newStartInferenceScheduler Text
pInferenceSchedulerName_ =
StartInferenceScheduler'
{ $sel:inferenceSchedulerName:StartInferenceScheduler' :: Text
inferenceSchedulerName =
Text
pInferenceSchedulerName_
}
startInferenceScheduler_inferenceSchedulerName :: Lens.Lens' StartInferenceScheduler Prelude.Text
startInferenceScheduler_inferenceSchedulerName :: Lens' StartInferenceScheduler Text
startInferenceScheduler_inferenceSchedulerName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartInferenceScheduler' {Text
inferenceSchedulerName :: Text
$sel:inferenceSchedulerName:StartInferenceScheduler' :: StartInferenceScheduler -> Text
inferenceSchedulerName} -> Text
inferenceSchedulerName) (\s :: StartInferenceScheduler
s@StartInferenceScheduler' {} Text
a -> StartInferenceScheduler
s {$sel:inferenceSchedulerName:StartInferenceScheduler' :: Text
inferenceSchedulerName = Text
a} :: StartInferenceScheduler)
instance Core.AWSRequest StartInferenceScheduler where
type
AWSResponse StartInferenceScheduler =
StartInferenceSchedulerResponse
request :: (Service -> Service)
-> StartInferenceScheduler -> Request StartInferenceScheduler
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 StartInferenceScheduler
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse StartInferenceScheduler)))
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
-> StartInferenceSchedulerResponse
StartInferenceSchedulerResponse'
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 StartInferenceScheduler where
hashWithSalt :: Int -> StartInferenceScheduler -> Int
hashWithSalt Int
_salt StartInferenceScheduler' {Text
inferenceSchedulerName :: Text
$sel:inferenceSchedulerName:StartInferenceScheduler' :: StartInferenceScheduler -> Text
..} =
Int
_salt forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
inferenceSchedulerName
instance Prelude.NFData StartInferenceScheduler where
rnf :: StartInferenceScheduler -> ()
rnf StartInferenceScheduler' {Text
inferenceSchedulerName :: Text
$sel:inferenceSchedulerName:StartInferenceScheduler' :: StartInferenceScheduler -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
inferenceSchedulerName
instance Data.ToHeaders StartInferenceScheduler where
toHeaders :: StartInferenceScheduler -> 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.StartInferenceScheduler" ::
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 StartInferenceScheduler where
toJSON :: StartInferenceScheduler -> Value
toJSON StartInferenceScheduler' {Text
inferenceSchedulerName :: Text
$sel:inferenceSchedulerName:StartInferenceScheduler' :: StartInferenceScheduler -> 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 StartInferenceScheduler where
toPath :: StartInferenceScheduler -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery StartInferenceScheduler where
toQuery :: StartInferenceScheduler -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data StartInferenceSchedulerResponse = StartInferenceSchedulerResponse'
{
StartInferenceSchedulerResponse -> Maybe Text
inferenceSchedulerArn :: Prelude.Maybe Prelude.Text,
StartInferenceSchedulerResponse -> Maybe Text
inferenceSchedulerName :: Prelude.Maybe Prelude.Text,
StartInferenceSchedulerResponse -> Maybe Text
modelArn :: Prelude.Maybe Prelude.Text,
StartInferenceSchedulerResponse -> Maybe Text
modelName :: Prelude.Maybe Prelude.Text,
StartInferenceSchedulerResponse -> Maybe InferenceSchedulerStatus
status :: Prelude.Maybe InferenceSchedulerStatus,
StartInferenceSchedulerResponse -> Int
httpStatus :: Prelude.Int
}
deriving (StartInferenceSchedulerResponse
-> StartInferenceSchedulerResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: StartInferenceSchedulerResponse
-> StartInferenceSchedulerResponse -> Bool
$c/= :: StartInferenceSchedulerResponse
-> StartInferenceSchedulerResponse -> Bool
== :: StartInferenceSchedulerResponse
-> StartInferenceSchedulerResponse -> Bool
$c== :: StartInferenceSchedulerResponse
-> StartInferenceSchedulerResponse -> Bool
Prelude.Eq, ReadPrec [StartInferenceSchedulerResponse]
ReadPrec StartInferenceSchedulerResponse
Int -> ReadS StartInferenceSchedulerResponse
ReadS [StartInferenceSchedulerResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [StartInferenceSchedulerResponse]
$creadListPrec :: ReadPrec [StartInferenceSchedulerResponse]
readPrec :: ReadPrec StartInferenceSchedulerResponse
$creadPrec :: ReadPrec StartInferenceSchedulerResponse
readList :: ReadS [StartInferenceSchedulerResponse]
$creadList :: ReadS [StartInferenceSchedulerResponse]
readsPrec :: Int -> ReadS StartInferenceSchedulerResponse
$creadsPrec :: Int -> ReadS StartInferenceSchedulerResponse
Prelude.Read, Int -> StartInferenceSchedulerResponse -> ShowS
[StartInferenceSchedulerResponse] -> ShowS
StartInferenceSchedulerResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [StartInferenceSchedulerResponse] -> ShowS
$cshowList :: [StartInferenceSchedulerResponse] -> ShowS
show :: StartInferenceSchedulerResponse -> String
$cshow :: StartInferenceSchedulerResponse -> String
showsPrec :: Int -> StartInferenceSchedulerResponse -> ShowS
$cshowsPrec :: Int -> StartInferenceSchedulerResponse -> ShowS
Prelude.Show, forall x.
Rep StartInferenceSchedulerResponse x
-> StartInferenceSchedulerResponse
forall x.
StartInferenceSchedulerResponse
-> Rep StartInferenceSchedulerResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep StartInferenceSchedulerResponse x
-> StartInferenceSchedulerResponse
$cfrom :: forall x.
StartInferenceSchedulerResponse
-> Rep StartInferenceSchedulerResponse x
Prelude.Generic)
newStartInferenceSchedulerResponse ::
Prelude.Int ->
StartInferenceSchedulerResponse
newStartInferenceSchedulerResponse :: Int -> StartInferenceSchedulerResponse
newStartInferenceSchedulerResponse Int
pHttpStatus_ =
StartInferenceSchedulerResponse'
{ $sel:inferenceSchedulerArn:StartInferenceSchedulerResponse' :: Maybe Text
inferenceSchedulerArn =
forall a. Maybe a
Prelude.Nothing,
$sel:inferenceSchedulerName:StartInferenceSchedulerResponse' :: Maybe Text
inferenceSchedulerName = forall a. Maybe a
Prelude.Nothing,
$sel:modelArn:StartInferenceSchedulerResponse' :: Maybe Text
modelArn = forall a. Maybe a
Prelude.Nothing,
$sel:modelName:StartInferenceSchedulerResponse' :: Maybe Text
modelName = forall a. Maybe a
Prelude.Nothing,
$sel:status:StartInferenceSchedulerResponse' :: Maybe InferenceSchedulerStatus
status = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:StartInferenceSchedulerResponse' :: Int
httpStatus = Int
pHttpStatus_
}
startInferenceSchedulerResponse_inferenceSchedulerArn :: Lens.Lens' StartInferenceSchedulerResponse (Prelude.Maybe Prelude.Text)
startInferenceSchedulerResponse_inferenceSchedulerArn :: Lens' StartInferenceSchedulerResponse (Maybe Text)
startInferenceSchedulerResponse_inferenceSchedulerArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartInferenceSchedulerResponse' {Maybe Text
inferenceSchedulerArn :: Maybe Text
$sel:inferenceSchedulerArn:StartInferenceSchedulerResponse' :: StartInferenceSchedulerResponse -> Maybe Text
inferenceSchedulerArn} -> Maybe Text
inferenceSchedulerArn) (\s :: StartInferenceSchedulerResponse
s@StartInferenceSchedulerResponse' {} Maybe Text
a -> StartInferenceSchedulerResponse
s {$sel:inferenceSchedulerArn:StartInferenceSchedulerResponse' :: Maybe Text
inferenceSchedulerArn = Maybe Text
a} :: StartInferenceSchedulerResponse)
startInferenceSchedulerResponse_inferenceSchedulerName :: Lens.Lens' StartInferenceSchedulerResponse (Prelude.Maybe Prelude.Text)
startInferenceSchedulerResponse_inferenceSchedulerName :: Lens' StartInferenceSchedulerResponse (Maybe Text)
startInferenceSchedulerResponse_inferenceSchedulerName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartInferenceSchedulerResponse' {Maybe Text
inferenceSchedulerName :: Maybe Text
$sel:inferenceSchedulerName:StartInferenceSchedulerResponse' :: StartInferenceSchedulerResponse -> Maybe Text
inferenceSchedulerName} -> Maybe Text
inferenceSchedulerName) (\s :: StartInferenceSchedulerResponse
s@StartInferenceSchedulerResponse' {} Maybe Text
a -> StartInferenceSchedulerResponse
s {$sel:inferenceSchedulerName:StartInferenceSchedulerResponse' :: Maybe Text
inferenceSchedulerName = Maybe Text
a} :: StartInferenceSchedulerResponse)
startInferenceSchedulerResponse_modelArn :: Lens.Lens' StartInferenceSchedulerResponse (Prelude.Maybe Prelude.Text)
startInferenceSchedulerResponse_modelArn :: Lens' StartInferenceSchedulerResponse (Maybe Text)
startInferenceSchedulerResponse_modelArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartInferenceSchedulerResponse' {Maybe Text
modelArn :: Maybe Text
$sel:modelArn:StartInferenceSchedulerResponse' :: StartInferenceSchedulerResponse -> Maybe Text
modelArn} -> Maybe Text
modelArn) (\s :: StartInferenceSchedulerResponse
s@StartInferenceSchedulerResponse' {} Maybe Text
a -> StartInferenceSchedulerResponse
s {$sel:modelArn:StartInferenceSchedulerResponse' :: Maybe Text
modelArn = Maybe Text
a} :: StartInferenceSchedulerResponse)
startInferenceSchedulerResponse_modelName :: Lens.Lens' StartInferenceSchedulerResponse (Prelude.Maybe Prelude.Text)
startInferenceSchedulerResponse_modelName :: Lens' StartInferenceSchedulerResponse (Maybe Text)
startInferenceSchedulerResponse_modelName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartInferenceSchedulerResponse' {Maybe Text
modelName :: Maybe Text
$sel:modelName:StartInferenceSchedulerResponse' :: StartInferenceSchedulerResponse -> Maybe Text
modelName} -> Maybe Text
modelName) (\s :: StartInferenceSchedulerResponse
s@StartInferenceSchedulerResponse' {} Maybe Text
a -> StartInferenceSchedulerResponse
s {$sel:modelName:StartInferenceSchedulerResponse' :: Maybe Text
modelName = Maybe Text
a} :: StartInferenceSchedulerResponse)
startInferenceSchedulerResponse_status :: Lens.Lens' StartInferenceSchedulerResponse (Prelude.Maybe InferenceSchedulerStatus)
startInferenceSchedulerResponse_status :: Lens'
StartInferenceSchedulerResponse (Maybe InferenceSchedulerStatus)
startInferenceSchedulerResponse_status = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartInferenceSchedulerResponse' {Maybe InferenceSchedulerStatus
status :: Maybe InferenceSchedulerStatus
$sel:status:StartInferenceSchedulerResponse' :: StartInferenceSchedulerResponse -> Maybe InferenceSchedulerStatus
status} -> Maybe InferenceSchedulerStatus
status) (\s :: StartInferenceSchedulerResponse
s@StartInferenceSchedulerResponse' {} Maybe InferenceSchedulerStatus
a -> StartInferenceSchedulerResponse
s {$sel:status:StartInferenceSchedulerResponse' :: Maybe InferenceSchedulerStatus
status = Maybe InferenceSchedulerStatus
a} :: StartInferenceSchedulerResponse)
startInferenceSchedulerResponse_httpStatus :: Lens.Lens' StartInferenceSchedulerResponse Prelude.Int
startInferenceSchedulerResponse_httpStatus :: Lens' StartInferenceSchedulerResponse Int
startInferenceSchedulerResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartInferenceSchedulerResponse' {Int
httpStatus :: Int
$sel:httpStatus:StartInferenceSchedulerResponse' :: StartInferenceSchedulerResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: StartInferenceSchedulerResponse
s@StartInferenceSchedulerResponse' {} Int
a -> StartInferenceSchedulerResponse
s {$sel:httpStatus:StartInferenceSchedulerResponse' :: Int
httpStatus = Int
a} :: StartInferenceSchedulerResponse)
instance
Prelude.NFData
StartInferenceSchedulerResponse
where
rnf :: StartInferenceSchedulerResponse -> ()
rnf StartInferenceSchedulerResponse' {Int
Maybe Text
Maybe InferenceSchedulerStatus
httpStatus :: Int
status :: Maybe InferenceSchedulerStatus
modelName :: Maybe Text
modelArn :: Maybe Text
inferenceSchedulerName :: Maybe Text
inferenceSchedulerArn :: Maybe Text
$sel:httpStatus:StartInferenceSchedulerResponse' :: StartInferenceSchedulerResponse -> Int
$sel:status:StartInferenceSchedulerResponse' :: StartInferenceSchedulerResponse -> Maybe InferenceSchedulerStatus
$sel:modelName:StartInferenceSchedulerResponse' :: StartInferenceSchedulerResponse -> Maybe Text
$sel:modelArn:StartInferenceSchedulerResponse' :: StartInferenceSchedulerResponse -> Maybe Text
$sel:inferenceSchedulerName:StartInferenceSchedulerResponse' :: StartInferenceSchedulerResponse -> Maybe Text
$sel:inferenceSchedulerArn:StartInferenceSchedulerResponse' :: StartInferenceSchedulerResponse -> 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