{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE TypeFamilies #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Network.AWS.SageMaker.UpdateEndpoint
(
updateEndpoint
, UpdateEndpoint
, ueEndpointName
, ueEndpointConfigName
, updateEndpointResponse
, UpdateEndpointResponse
, uersResponseStatus
, uersEndpointARN
) where
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
import Network.AWS.SageMaker.Types
import Network.AWS.SageMaker.Types.Product
data UpdateEndpoint = UpdateEndpoint'
{ _ueEndpointName :: !Text
, _ueEndpointConfigName :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
updateEndpoint
:: Text
-> Text
-> UpdateEndpoint
updateEndpoint pEndpointName_ pEndpointConfigName_ =
UpdateEndpoint'
{ _ueEndpointName = pEndpointName_
, _ueEndpointConfigName = pEndpointConfigName_
}
ueEndpointName :: Lens' UpdateEndpoint Text
ueEndpointName = lens _ueEndpointName (\ s a -> s{_ueEndpointName = a})
ueEndpointConfigName :: Lens' UpdateEndpoint Text
ueEndpointConfigName = lens _ueEndpointConfigName (\ s a -> s{_ueEndpointConfigName = a})
instance AWSRequest UpdateEndpoint where
type Rs UpdateEndpoint = UpdateEndpointResponse
request = postJSON sageMaker
response
= receiveJSON
(\ s h x ->
UpdateEndpointResponse' <$>
(pure (fromEnum s)) <*> (x .:> "EndpointArn"))
instance Hashable UpdateEndpoint where
instance NFData UpdateEndpoint where
instance ToHeaders UpdateEndpoint where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("SageMaker.UpdateEndpoint" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON UpdateEndpoint where
toJSON UpdateEndpoint'{..}
= object
(catMaybes
[Just ("EndpointName" .= _ueEndpointName),
Just
("EndpointConfigName" .= _ueEndpointConfigName)])
instance ToPath UpdateEndpoint where
toPath = const "/"
instance ToQuery UpdateEndpoint where
toQuery = const mempty
data UpdateEndpointResponse = UpdateEndpointResponse'
{ _uersResponseStatus :: !Int
, _uersEndpointARN :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
updateEndpointResponse
:: Int
-> Text
-> UpdateEndpointResponse
updateEndpointResponse pResponseStatus_ pEndpointARN_ =
UpdateEndpointResponse'
{_uersResponseStatus = pResponseStatus_, _uersEndpointARN = pEndpointARN_}
uersResponseStatus :: Lens' UpdateEndpointResponse Int
uersResponseStatus = lens _uersResponseStatus (\ s a -> s{_uersResponseStatus = a})
uersEndpointARN :: Lens' UpdateEndpointResponse Text
uersEndpointARN = lens _uersEndpointARN (\ s a -> s{_uersEndpointARN = a})
instance NFData UpdateEndpointResponse where