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