module Network.AWS.MachineLearning.GetEvaluation
(
GetEvaluation
, getEvaluation
, geEvaluationId
, GetEvaluationResponse
, getEvaluationResponse
, gerCreatedAt
, gerCreatedByIamUser
, gerEvaluationDataSourceId
, gerEvaluationId
, gerInputDataLocationS3
, gerLastUpdatedAt
, gerLogUri
, gerMLModelId
, gerMessage
, gerName
, gerPerformanceMetrics
, gerStatus
) where
import Network.AWS.Data (Object)
import Network.AWS.Prelude
import Network.AWS.Request.JSON
import Network.AWS.MachineLearning.Types
import qualified GHC.Exts
newtype GetEvaluation = GetEvaluation
{ _geEvaluationId :: Text
} deriving (Eq, Ord, Read, Show, Monoid, IsString)
getEvaluation :: Text
-> GetEvaluation
getEvaluation p1 = GetEvaluation
{ _geEvaluationId = p1
}
geEvaluationId :: Lens' GetEvaluation Text
geEvaluationId = lens _geEvaluationId (\s a -> s { _geEvaluationId = a })
data GetEvaluationResponse = GetEvaluationResponse
{ _gerCreatedAt :: Maybe POSIX
, _gerCreatedByIamUser :: Maybe Text
, _gerEvaluationDataSourceId :: Maybe Text
, _gerEvaluationId :: Maybe Text
, _gerInputDataLocationS3 :: Maybe Text
, _gerLastUpdatedAt :: Maybe POSIX
, _gerLogUri :: Maybe Text
, _gerMLModelId :: Maybe Text
, _gerMessage :: Maybe Text
, _gerName :: Maybe Text
, _gerPerformanceMetrics :: Maybe PerformanceMetrics
, _gerStatus :: Maybe EntityStatus
} deriving (Eq, Read, Show)
getEvaluationResponse :: GetEvaluationResponse
getEvaluationResponse = GetEvaluationResponse
{ _gerEvaluationId = Nothing
, _gerMLModelId = Nothing
, _gerEvaluationDataSourceId = Nothing
, _gerInputDataLocationS3 = Nothing
, _gerCreatedByIamUser = Nothing
, _gerCreatedAt = Nothing
, _gerLastUpdatedAt = Nothing
, _gerName = Nothing
, _gerStatus = Nothing
, _gerPerformanceMetrics = Nothing
, _gerLogUri = Nothing
, _gerMessage = Nothing
}
gerCreatedAt :: Lens' GetEvaluationResponse (Maybe UTCTime)
gerCreatedAt = lens _gerCreatedAt (\s a -> s { _gerCreatedAt = a }) . mapping _Time
gerCreatedByIamUser :: Lens' GetEvaluationResponse (Maybe Text)
gerCreatedByIamUser =
lens _gerCreatedByIamUser (\s a -> s { _gerCreatedByIamUser = a })
gerEvaluationDataSourceId :: Lens' GetEvaluationResponse (Maybe Text)
gerEvaluationDataSourceId =
lens _gerEvaluationDataSourceId
(\s a -> s { _gerEvaluationDataSourceId = a })
gerEvaluationId :: Lens' GetEvaluationResponse (Maybe Text)
gerEvaluationId = lens _gerEvaluationId (\s a -> s { _gerEvaluationId = a })
gerInputDataLocationS3 :: Lens' GetEvaluationResponse (Maybe Text)
gerInputDataLocationS3 =
lens _gerInputDataLocationS3 (\s a -> s { _gerInputDataLocationS3 = a })
gerLastUpdatedAt :: Lens' GetEvaluationResponse (Maybe UTCTime)
gerLastUpdatedAt = lens _gerLastUpdatedAt (\s a -> s { _gerLastUpdatedAt = a }) . mapping _Time
gerLogUri :: Lens' GetEvaluationResponse (Maybe Text)
gerLogUri = lens _gerLogUri (\s a -> s { _gerLogUri = a })
gerMLModelId :: Lens' GetEvaluationResponse (Maybe Text)
gerMLModelId = lens _gerMLModelId (\s a -> s { _gerMLModelId = a })
gerMessage :: Lens' GetEvaluationResponse (Maybe Text)
gerMessage = lens _gerMessage (\s a -> s { _gerMessage = a })
gerName :: Lens' GetEvaluationResponse (Maybe Text)
gerName = lens _gerName (\s a -> s { _gerName = a })
gerPerformanceMetrics :: Lens' GetEvaluationResponse (Maybe PerformanceMetrics)
gerPerformanceMetrics =
lens _gerPerformanceMetrics (\s a -> s { _gerPerformanceMetrics = a })
gerStatus :: Lens' GetEvaluationResponse (Maybe EntityStatus)
gerStatus = lens _gerStatus (\s a -> s { _gerStatus = a })
instance ToPath GetEvaluation where
toPath = const "/"
instance ToQuery GetEvaluation where
toQuery = const mempty
instance ToHeaders GetEvaluation
instance ToJSON GetEvaluation where
toJSON GetEvaluation{..} = object
[ "EvaluationId" .= _geEvaluationId
]
instance AWSRequest GetEvaluation where
type Sv GetEvaluation = MachineLearning
type Rs GetEvaluation = GetEvaluationResponse
request = post "GetEvaluation"
response = jsonResponse
instance FromJSON GetEvaluationResponse where
parseJSON = withObject "GetEvaluationResponse" $ \o -> GetEvaluationResponse
<$> o .:? "CreatedAt"
<*> o .:? "CreatedByIamUser"
<*> o .:? "EvaluationDataSourceId"
<*> o .:? "EvaluationId"
<*> o .:? "InputDataLocationS3"
<*> o .:? "LastUpdatedAt"
<*> o .:? "LogUri"
<*> o .:? "MLModelId"
<*> o .:? "Message"
<*> o .:? "Name"
<*> o .:? "PerformanceMetrics"
<*> o .:? "Status"