module Network.AWS.MachineLearning.UpdateEvaluation
(
UpdateEvaluation
, updateEvaluation
, ueEvaluationId
, ueEvaluationName
, UpdateEvaluationResponse
, updateEvaluationResponse
, uerEvaluationId
) where
import Network.AWS.Data (Object)
import Network.AWS.Prelude
import Network.AWS.Request.JSON
import Network.AWS.MachineLearning.Types
import qualified GHC.Exts
data UpdateEvaluation = UpdateEvaluation
{ _ueEvaluationId :: Text
, _ueEvaluationName :: Text
} deriving (Eq, Ord, Read, Show)
updateEvaluation :: Text
-> Text
-> UpdateEvaluation
updateEvaluation p1 p2 = UpdateEvaluation
{ _ueEvaluationId = p1
, _ueEvaluationName = p2
}
ueEvaluationId :: Lens' UpdateEvaluation Text
ueEvaluationId = lens _ueEvaluationId (\s a -> s { _ueEvaluationId = a })
ueEvaluationName :: Lens' UpdateEvaluation Text
ueEvaluationName = lens _ueEvaluationName (\s a -> s { _ueEvaluationName = a })
newtype UpdateEvaluationResponse = UpdateEvaluationResponse
{ _uerEvaluationId :: Maybe Text
} deriving (Eq, Ord, Read, Show, Monoid)
updateEvaluationResponse :: UpdateEvaluationResponse
updateEvaluationResponse = UpdateEvaluationResponse
{ _uerEvaluationId = Nothing
}
uerEvaluationId :: Lens' UpdateEvaluationResponse (Maybe Text)
uerEvaluationId = lens _uerEvaluationId (\s a -> s { _uerEvaluationId = a })
instance ToPath UpdateEvaluation where
toPath = const "/"
instance ToQuery UpdateEvaluation where
toQuery = const mempty
instance ToHeaders UpdateEvaluation
instance ToJSON UpdateEvaluation where
toJSON UpdateEvaluation{..} = object
[ "EvaluationId" .= _ueEvaluationId
, "EvaluationName" .= _ueEvaluationName
]
instance AWSRequest UpdateEvaluation where
type Sv UpdateEvaluation = MachineLearning
type Rs UpdateEvaluation = UpdateEvaluationResponse
request = post "UpdateEvaluation"
response = jsonResponse
instance FromJSON UpdateEvaluationResponse where
parseJSON = withObject "UpdateEvaluationResponse" $ \o -> UpdateEvaluationResponse
<$> o .:? "EvaluationId"