{-# 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.DescribeEndpoint
(
describeEndpoint
, DescribeEndpoint
, dEndpointName
, describeEndpointResponse
, DescribeEndpointResponse
, dersFailureReason
, dersProductionVariants
, dersResponseStatus
, dersEndpointName
, dersEndpointARN
, dersEndpointConfigName
, dersEndpointStatus
, dersCreationTime
, dersLastModifiedTime
) 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 DescribeEndpoint = DescribeEndpoint'
{ _dEndpointName :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeEndpoint
:: Text
-> DescribeEndpoint
describeEndpoint pEndpointName_ =
DescribeEndpoint' {_dEndpointName = pEndpointName_}
dEndpointName :: Lens' DescribeEndpoint Text
dEndpointName = lens _dEndpointName (\ s a -> s{_dEndpointName = a})
instance AWSRequest DescribeEndpoint where
type Rs DescribeEndpoint = DescribeEndpointResponse
request = postJSON sageMaker
response
= receiveJSON
(\ s h x ->
DescribeEndpointResponse' <$>
(x .?> "FailureReason") <*>
(x .?> "ProductionVariants")
<*> (pure (fromEnum s))
<*> (x .:> "EndpointName")
<*> (x .:> "EndpointArn")
<*> (x .:> "EndpointConfigName")
<*> (x .:> "EndpointStatus")
<*> (x .:> "CreationTime")
<*> (x .:> "LastModifiedTime"))
instance Hashable DescribeEndpoint where
instance NFData DescribeEndpoint where
instance ToHeaders DescribeEndpoint where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("SageMaker.DescribeEndpoint" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DescribeEndpoint where
toJSON DescribeEndpoint'{..}
= object
(catMaybes [Just ("EndpointName" .= _dEndpointName)])
instance ToPath DescribeEndpoint where
toPath = const "/"
instance ToQuery DescribeEndpoint where
toQuery = const mempty
data DescribeEndpointResponse = DescribeEndpointResponse'
{ _dersFailureReason :: !(Maybe Text)
, _dersProductionVariants :: !(Maybe (List1 ProductionVariantSummary))
, _dersResponseStatus :: !Int
, _dersEndpointName :: !Text
, _dersEndpointARN :: !Text
, _dersEndpointConfigName :: !Text
, _dersEndpointStatus :: !EndpointStatus
, _dersCreationTime :: !POSIX
, _dersLastModifiedTime :: !POSIX
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeEndpointResponse
:: Int
-> Text
-> Text
-> Text
-> EndpointStatus
-> UTCTime
-> UTCTime
-> DescribeEndpointResponse
describeEndpointResponse pResponseStatus_ pEndpointName_ pEndpointARN_ pEndpointConfigName_ pEndpointStatus_ pCreationTime_ pLastModifiedTime_ =
DescribeEndpointResponse'
{ _dersFailureReason = Nothing
, _dersProductionVariants = Nothing
, _dersResponseStatus = pResponseStatus_
, _dersEndpointName = pEndpointName_
, _dersEndpointARN = pEndpointARN_
, _dersEndpointConfigName = pEndpointConfigName_
, _dersEndpointStatus = pEndpointStatus_
, _dersCreationTime = _Time # pCreationTime_
, _dersLastModifiedTime = _Time # pLastModifiedTime_
}
dersFailureReason :: Lens' DescribeEndpointResponse (Maybe Text)
dersFailureReason = lens _dersFailureReason (\ s a -> s{_dersFailureReason = a})
dersProductionVariants :: Lens' DescribeEndpointResponse (Maybe (NonEmpty ProductionVariantSummary))
dersProductionVariants = lens _dersProductionVariants (\ s a -> s{_dersProductionVariants = a}) . mapping _List1
dersResponseStatus :: Lens' DescribeEndpointResponse Int
dersResponseStatus = lens _dersResponseStatus (\ s a -> s{_dersResponseStatus = a})
dersEndpointName :: Lens' DescribeEndpointResponse Text
dersEndpointName = lens _dersEndpointName (\ s a -> s{_dersEndpointName = a})
dersEndpointARN :: Lens' DescribeEndpointResponse Text
dersEndpointARN = lens _dersEndpointARN (\ s a -> s{_dersEndpointARN = a})
dersEndpointConfigName :: Lens' DescribeEndpointResponse Text
dersEndpointConfigName = lens _dersEndpointConfigName (\ s a -> s{_dersEndpointConfigName = a})
dersEndpointStatus :: Lens' DescribeEndpointResponse EndpointStatus
dersEndpointStatus = lens _dersEndpointStatus (\ s a -> s{_dersEndpointStatus = a})
dersCreationTime :: Lens' DescribeEndpointResponse UTCTime
dersCreationTime = lens _dersCreationTime (\ s a -> s{_dersCreationTime = a}) . _Time
dersLastModifiedTime :: Lens' DescribeEndpointResponse UTCTime
dersLastModifiedTime = lens _dersLastModifiedTime (\ s a -> s{_dersLastModifiedTime = a}) . _Time
instance NFData DescribeEndpointResponse where