module Network.AWS.DataPipeline.EvaluateExpression
(
EvaluateExpression
, evaluateExpression
, eeExpression
, eeObjectId
, eePipelineId
, EvaluateExpressionResponse
, evaluateExpressionResponse
, eerEvaluatedExpression
) where
import Network.AWS.Prelude
import Network.AWS.Request.JSON
import Network.AWS.DataPipeline.Types
import qualified GHC.Exts
data EvaluateExpression = EvaluateExpression
{ _eeExpression :: Text
, _eeObjectId :: Text
, _eePipelineId :: Text
} deriving (Eq, Ord, Read, Show)
evaluateExpression :: Text
-> Text
-> Text
-> EvaluateExpression
evaluateExpression p1 p2 p3 = EvaluateExpression
{ _eePipelineId = p1
, _eeObjectId = p2
, _eeExpression = p3
}
eeExpression :: Lens' EvaluateExpression Text
eeExpression = lens _eeExpression (\s a -> s { _eeExpression = a })
eeObjectId :: Lens' EvaluateExpression Text
eeObjectId = lens _eeObjectId (\s a -> s { _eeObjectId = a })
eePipelineId :: Lens' EvaluateExpression Text
eePipelineId = lens _eePipelineId (\s a -> s { _eePipelineId = a })
newtype EvaluateExpressionResponse = EvaluateExpressionResponse
{ _eerEvaluatedExpression :: Text
} deriving (Eq, Ord, Read, Show, Monoid, IsString)
evaluateExpressionResponse :: Text
-> EvaluateExpressionResponse
evaluateExpressionResponse p1 = EvaluateExpressionResponse
{ _eerEvaluatedExpression = p1
}
eerEvaluatedExpression :: Lens' EvaluateExpressionResponse Text
eerEvaluatedExpression =
lens _eerEvaluatedExpression (\s a -> s { _eerEvaluatedExpression = a })
instance ToPath EvaluateExpression where
toPath = const "/"
instance ToQuery EvaluateExpression where
toQuery = const mempty
instance ToHeaders EvaluateExpression
instance ToJSON EvaluateExpression where
toJSON EvaluateExpression{..} = object
[ "pipelineId" .= _eePipelineId
, "objectId" .= _eeObjectId
, "expression" .= _eeExpression
]
instance AWSRequest EvaluateExpression where
type Sv EvaluateExpression = DataPipeline
type Rs EvaluateExpression = EvaluateExpressionResponse
request = post "EvaluateExpression"
response = jsonResponse
instance FromJSON EvaluateExpressionResponse where
parseJSON = withObject "EvaluateExpressionResponse" $ \o -> EvaluateExpressionResponse
<$> o .: "evaluatedExpression"