{-# 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.DescribeEndpointConfig
(
describeEndpointConfig
, DescribeEndpointConfig
, decEndpointConfigName
, describeEndpointConfigResponse
, DescribeEndpointConfigResponse
, decrsKMSKeyId
, decrsResponseStatus
, decrsEndpointConfigName
, decrsEndpointConfigARN
, decrsProductionVariants
, decrsCreationTime
) 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
newtype DescribeEndpointConfig = DescribeEndpointConfig'
{ _decEndpointConfigName :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeEndpointConfig
:: Text
-> DescribeEndpointConfig
describeEndpointConfig pEndpointConfigName_ =
DescribeEndpointConfig' {_decEndpointConfigName = pEndpointConfigName_}
decEndpointConfigName :: Lens' DescribeEndpointConfig Text
decEndpointConfigName = lens _decEndpointConfigName (\ s a -> s{_decEndpointConfigName = a})
instance AWSRequest DescribeEndpointConfig where
type Rs DescribeEndpointConfig =
DescribeEndpointConfigResponse
request = postJSON sageMaker
response
= receiveJSON
(\ s h x ->
DescribeEndpointConfigResponse' <$>
(x .?> "KmsKeyId") <*> (pure (fromEnum s)) <*>
(x .:> "EndpointConfigName")
<*> (x .:> "EndpointConfigArn")
<*> (x .:> "ProductionVariants")
<*> (x .:> "CreationTime"))
instance Hashable DescribeEndpointConfig where
instance NFData DescribeEndpointConfig where
instance ToHeaders DescribeEndpointConfig where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("SageMaker.DescribeEndpointConfig" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DescribeEndpointConfig where
toJSON DescribeEndpointConfig'{..}
= object
(catMaybes
[Just
("EndpointConfigName" .= _decEndpointConfigName)])
instance ToPath DescribeEndpointConfig where
toPath = const "/"
instance ToQuery DescribeEndpointConfig where
toQuery = const mempty
data DescribeEndpointConfigResponse = DescribeEndpointConfigResponse'
{ _decrsKMSKeyId :: !(Maybe Text)
, _decrsResponseStatus :: !Int
, _decrsEndpointConfigName :: !Text
, _decrsEndpointConfigARN :: !Text
, _decrsProductionVariants :: !(List1 ProductionVariant)
, _decrsCreationTime :: !POSIX
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeEndpointConfigResponse
:: Int
-> Text
-> Text
-> NonEmpty ProductionVariant
-> UTCTime
-> DescribeEndpointConfigResponse
describeEndpointConfigResponse pResponseStatus_ pEndpointConfigName_ pEndpointConfigARN_ pProductionVariants_ pCreationTime_ =
DescribeEndpointConfigResponse'
{ _decrsKMSKeyId = Nothing
, _decrsResponseStatus = pResponseStatus_
, _decrsEndpointConfigName = pEndpointConfigName_
, _decrsEndpointConfigARN = pEndpointConfigARN_
, _decrsProductionVariants = _List1 # pProductionVariants_
, _decrsCreationTime = _Time # pCreationTime_
}
decrsKMSKeyId :: Lens' DescribeEndpointConfigResponse (Maybe Text)
decrsKMSKeyId = lens _decrsKMSKeyId (\ s a -> s{_decrsKMSKeyId = a})
decrsResponseStatus :: Lens' DescribeEndpointConfigResponse Int
decrsResponseStatus = lens _decrsResponseStatus (\ s a -> s{_decrsResponseStatus = a})
decrsEndpointConfigName :: Lens' DescribeEndpointConfigResponse Text
decrsEndpointConfigName = lens _decrsEndpointConfigName (\ s a -> s{_decrsEndpointConfigName = a})
decrsEndpointConfigARN :: Lens' DescribeEndpointConfigResponse Text
decrsEndpointConfigARN = lens _decrsEndpointConfigARN (\ s a -> s{_decrsEndpointConfigARN = a})
decrsProductionVariants :: Lens' DescribeEndpointConfigResponse (NonEmpty ProductionVariant)
decrsProductionVariants = lens _decrsProductionVariants (\ s a -> s{_decrsProductionVariants = a}) . _List1
decrsCreationTime :: Lens' DescribeEndpointConfigResponse UTCTime
decrsCreationTime = lens _decrsCreationTime (\ s a -> s{_decrsCreationTime = a}) . _Time
instance NFData DescribeEndpointConfigResponse where