{-# 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.DescribeTrainingJob
(
describeTrainingJob
, DescribeTrainingJob
, dtjTrainingJobName
, describeTrainingJobResponse
, DescribeTrainingJobResponse
, dtjrsFailureReason
, dtjrsTrainingEndTime
, dtjrsLastModifiedTime
, dtjrsHyperParameters
, dtjrsVPCConfig
, dtjrsOutputDataConfig
, dtjrsTrainingStartTime
, dtjrsRoleARN
, dtjrsResponseStatus
, dtjrsTrainingJobName
, dtjrsTrainingJobARN
, dtjrsModelArtifacts
, dtjrsTrainingJobStatus
, dtjrsSecondaryStatus
, dtjrsAlgorithmSpecification
, dtjrsInputDataConfig
, dtjrsResourceConfig
, dtjrsStoppingCondition
, dtjrsCreationTime
) 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 DescribeTrainingJob = DescribeTrainingJob'
{ _dtjTrainingJobName :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeTrainingJob
:: Text
-> DescribeTrainingJob
describeTrainingJob pTrainingJobName_ =
DescribeTrainingJob' {_dtjTrainingJobName = pTrainingJobName_}
dtjTrainingJobName :: Lens' DescribeTrainingJob Text
dtjTrainingJobName = lens _dtjTrainingJobName (\ s a -> s{_dtjTrainingJobName = a})
instance AWSRequest DescribeTrainingJob where
type Rs DescribeTrainingJob =
DescribeTrainingJobResponse
request = postJSON sageMaker
response
= receiveJSON
(\ s h x ->
DescribeTrainingJobResponse' <$>
(x .?> "FailureReason") <*> (x .?> "TrainingEndTime")
<*> (x .?> "LastModifiedTime")
<*> (x .?> "HyperParameters" .!@ mempty)
<*> (x .?> "VpcConfig")
<*> (x .?> "OutputDataConfig")
<*> (x .?> "TrainingStartTime")
<*> (x .?> "RoleArn")
<*> (pure (fromEnum s))
<*> (x .:> "TrainingJobName")
<*> (x .:> "TrainingJobArn")
<*> (x .:> "ModelArtifacts")
<*> (x .:> "TrainingJobStatus")
<*> (x .:> "SecondaryStatus")
<*> (x .:> "AlgorithmSpecification")
<*> (x .:> "InputDataConfig")
<*> (x .:> "ResourceConfig")
<*> (x .:> "StoppingCondition")
<*> (x .:> "CreationTime"))
instance Hashable DescribeTrainingJob where
instance NFData DescribeTrainingJob where
instance ToHeaders DescribeTrainingJob where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("SageMaker.DescribeTrainingJob" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DescribeTrainingJob where
toJSON DescribeTrainingJob'{..}
= object
(catMaybes
[Just ("TrainingJobName" .= _dtjTrainingJobName)])
instance ToPath DescribeTrainingJob where
toPath = const "/"
instance ToQuery DescribeTrainingJob where
toQuery = const mempty
data DescribeTrainingJobResponse = DescribeTrainingJobResponse'
{ _dtjrsFailureReason :: !(Maybe Text)
, _dtjrsTrainingEndTime :: !(Maybe POSIX)
, _dtjrsLastModifiedTime :: !(Maybe POSIX)
, _dtjrsHyperParameters :: !(Maybe (Map Text Text))
, _dtjrsVPCConfig :: !(Maybe VPCConfig)
, _dtjrsOutputDataConfig :: !(Maybe OutputDataConfig)
, _dtjrsTrainingStartTime :: !(Maybe POSIX)
, _dtjrsRoleARN :: !(Maybe Text)
, _dtjrsResponseStatus :: !Int
, _dtjrsTrainingJobName :: !Text
, _dtjrsTrainingJobARN :: !Text
, _dtjrsModelArtifacts :: !ModelArtifacts
, _dtjrsTrainingJobStatus :: !TrainingJobStatus
, _dtjrsSecondaryStatus :: !SecondaryStatus
, _dtjrsAlgorithmSpecification :: !AlgorithmSpecification
, _dtjrsInputDataConfig :: !(List1 Channel)
, _dtjrsResourceConfig :: !ResourceConfig
, _dtjrsStoppingCondition :: !StoppingCondition
, _dtjrsCreationTime :: !POSIX
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeTrainingJobResponse
:: Int
-> Text
-> Text
-> ModelArtifacts
-> TrainingJobStatus
-> SecondaryStatus
-> AlgorithmSpecification
-> NonEmpty Channel
-> ResourceConfig
-> StoppingCondition
-> UTCTime
-> DescribeTrainingJobResponse
describeTrainingJobResponse pResponseStatus_ pTrainingJobName_ pTrainingJobARN_ pModelArtifacts_ pTrainingJobStatus_ pSecondaryStatus_ pAlgorithmSpecification_ pInputDataConfig_ pResourceConfig_ pStoppingCondition_ pCreationTime_ =
DescribeTrainingJobResponse'
{ _dtjrsFailureReason = Nothing
, _dtjrsTrainingEndTime = Nothing
, _dtjrsLastModifiedTime = Nothing
, _dtjrsHyperParameters = Nothing
, _dtjrsVPCConfig = Nothing
, _dtjrsOutputDataConfig = Nothing
, _dtjrsTrainingStartTime = Nothing
, _dtjrsRoleARN = Nothing
, _dtjrsResponseStatus = pResponseStatus_
, _dtjrsTrainingJobName = pTrainingJobName_
, _dtjrsTrainingJobARN = pTrainingJobARN_
, _dtjrsModelArtifacts = pModelArtifacts_
, _dtjrsTrainingJobStatus = pTrainingJobStatus_
, _dtjrsSecondaryStatus = pSecondaryStatus_
, _dtjrsAlgorithmSpecification = pAlgorithmSpecification_
, _dtjrsInputDataConfig = _List1 # pInputDataConfig_
, _dtjrsResourceConfig = pResourceConfig_
, _dtjrsStoppingCondition = pStoppingCondition_
, _dtjrsCreationTime = _Time # pCreationTime_
}
dtjrsFailureReason :: Lens' DescribeTrainingJobResponse (Maybe Text)
dtjrsFailureReason = lens _dtjrsFailureReason (\ s a -> s{_dtjrsFailureReason = a})
dtjrsTrainingEndTime :: Lens' DescribeTrainingJobResponse (Maybe UTCTime)
dtjrsTrainingEndTime = lens _dtjrsTrainingEndTime (\ s a -> s{_dtjrsTrainingEndTime = a}) . mapping _Time
dtjrsLastModifiedTime :: Lens' DescribeTrainingJobResponse (Maybe UTCTime)
dtjrsLastModifiedTime = lens _dtjrsLastModifiedTime (\ s a -> s{_dtjrsLastModifiedTime = a}) . mapping _Time
dtjrsHyperParameters :: Lens' DescribeTrainingJobResponse (HashMap Text Text)
dtjrsHyperParameters = lens _dtjrsHyperParameters (\ s a -> s{_dtjrsHyperParameters = a}) . _Default . _Map
dtjrsVPCConfig :: Lens' DescribeTrainingJobResponse (Maybe VPCConfig)
dtjrsVPCConfig = lens _dtjrsVPCConfig (\ s a -> s{_dtjrsVPCConfig = a})
dtjrsOutputDataConfig :: Lens' DescribeTrainingJobResponse (Maybe OutputDataConfig)
dtjrsOutputDataConfig = lens _dtjrsOutputDataConfig (\ s a -> s{_dtjrsOutputDataConfig = a})
dtjrsTrainingStartTime :: Lens' DescribeTrainingJobResponse (Maybe UTCTime)
dtjrsTrainingStartTime = lens _dtjrsTrainingStartTime (\ s a -> s{_dtjrsTrainingStartTime = a}) . mapping _Time
dtjrsRoleARN :: Lens' DescribeTrainingJobResponse (Maybe Text)
dtjrsRoleARN = lens _dtjrsRoleARN (\ s a -> s{_dtjrsRoleARN = a})
dtjrsResponseStatus :: Lens' DescribeTrainingJobResponse Int
dtjrsResponseStatus = lens _dtjrsResponseStatus (\ s a -> s{_dtjrsResponseStatus = a})
dtjrsTrainingJobName :: Lens' DescribeTrainingJobResponse Text
dtjrsTrainingJobName = lens _dtjrsTrainingJobName (\ s a -> s{_dtjrsTrainingJobName = a})
dtjrsTrainingJobARN :: Lens' DescribeTrainingJobResponse Text
dtjrsTrainingJobARN = lens _dtjrsTrainingJobARN (\ s a -> s{_dtjrsTrainingJobARN = a})
dtjrsModelArtifacts :: Lens' DescribeTrainingJobResponse ModelArtifacts
dtjrsModelArtifacts = lens _dtjrsModelArtifacts (\ s a -> s{_dtjrsModelArtifacts = a})
dtjrsTrainingJobStatus :: Lens' DescribeTrainingJobResponse TrainingJobStatus
dtjrsTrainingJobStatus = lens _dtjrsTrainingJobStatus (\ s a -> s{_dtjrsTrainingJobStatus = a})
dtjrsSecondaryStatus :: Lens' DescribeTrainingJobResponse SecondaryStatus
dtjrsSecondaryStatus = lens _dtjrsSecondaryStatus (\ s a -> s{_dtjrsSecondaryStatus = a})
dtjrsAlgorithmSpecification :: Lens' DescribeTrainingJobResponse AlgorithmSpecification
dtjrsAlgorithmSpecification = lens _dtjrsAlgorithmSpecification (\ s a -> s{_dtjrsAlgorithmSpecification = a})
dtjrsInputDataConfig :: Lens' DescribeTrainingJobResponse (NonEmpty Channel)
dtjrsInputDataConfig = lens _dtjrsInputDataConfig (\ s a -> s{_dtjrsInputDataConfig = a}) . _List1
dtjrsResourceConfig :: Lens' DescribeTrainingJobResponse ResourceConfig
dtjrsResourceConfig = lens _dtjrsResourceConfig (\ s a -> s{_dtjrsResourceConfig = a})
dtjrsStoppingCondition :: Lens' DescribeTrainingJobResponse StoppingCondition
dtjrsStoppingCondition = lens _dtjrsStoppingCondition (\ s a -> s{_dtjrsStoppingCondition = a})
dtjrsCreationTime :: Lens' DescribeTrainingJobResponse UTCTime
dtjrsCreationTime = lens _dtjrsCreationTime (\ s a -> s{_dtjrsCreationTime = a}) . _Time
instance NFData DescribeTrainingJobResponse where