module Network.AWS.DataPipeline.DescribeObjects
(
DescribeObjects
, describeObjects
, doEvaluateExpressions
, doMarker
, doObjectIds
, doPipelineId
, DescribeObjectsResponse
, describeObjectsResponse
, dorHasMoreResults
, dorMarker
, dorPipelineObjects
) where
import Network.AWS.Prelude
import Network.AWS.Request.JSON
import Network.AWS.DataPipeline.Types
import qualified GHC.Exts
data DescribeObjects = DescribeObjects
{ _doEvaluateExpressions :: Maybe Bool
, _doMarker :: Maybe Text
, _doObjectIds :: List "pipelineIds" Text
, _doPipelineId :: Text
} deriving (Eq, Ord, Show)
describeObjects :: Text
-> DescribeObjects
describeObjects p1 = DescribeObjects
{ _doPipelineId = p1
, _doObjectIds = mempty
, _doEvaluateExpressions = Nothing
, _doMarker = Nothing
}
doEvaluateExpressions :: Lens' DescribeObjects (Maybe Bool)
doEvaluateExpressions =
lens _doEvaluateExpressions (\s a -> s { _doEvaluateExpressions = a })
doMarker :: Lens' DescribeObjects (Maybe Text)
doMarker = lens _doMarker (\s a -> s { _doMarker = a })
doObjectIds :: Lens' DescribeObjects [Text]
doObjectIds = lens _doObjectIds (\s a -> s { _doObjectIds = a }) . _List
doPipelineId :: Lens' DescribeObjects Text
doPipelineId = lens _doPipelineId (\s a -> s { _doPipelineId = a })
data DescribeObjectsResponse = DescribeObjectsResponse
{ _dorHasMoreResults :: Maybe Bool
, _dorMarker :: Maybe Text
, _dorPipelineObjects :: List "pipelineObjects" PipelineObject
} deriving (Eq, Show)
describeObjectsResponse :: DescribeObjectsResponse
describeObjectsResponse = DescribeObjectsResponse
{ _dorPipelineObjects = mempty
, _dorMarker = Nothing
, _dorHasMoreResults = Nothing
}
dorHasMoreResults :: Lens' DescribeObjectsResponse (Maybe Bool)
dorHasMoreResults =
lens _dorHasMoreResults (\s a -> s { _dorHasMoreResults = a })
dorMarker :: Lens' DescribeObjectsResponse (Maybe Text)
dorMarker = lens _dorMarker (\s a -> s { _dorMarker = a })
dorPipelineObjects :: Lens' DescribeObjectsResponse [PipelineObject]
dorPipelineObjects =
lens _dorPipelineObjects (\s a -> s { _dorPipelineObjects = a })
. _List
instance ToPath DescribeObjects where
toPath = const "/"
instance ToQuery DescribeObjects where
toQuery = const mempty
instance ToHeaders DescribeObjects
instance ToJSON DescribeObjects where
toJSON DescribeObjects{..} = object
[ "pipelineId" .= _doPipelineId
, "objectIds" .= _doObjectIds
, "evaluateExpressions" .= _doEvaluateExpressions
, "marker" .= _doMarker
]
instance AWSRequest DescribeObjects where
type Sv DescribeObjects = DataPipeline
type Rs DescribeObjects = DescribeObjectsResponse
request = post "DescribeObjects"
response = jsonResponse
instance FromJSON DescribeObjectsResponse where
parseJSON = withObject "DescribeObjectsResponse" $ \o -> DescribeObjectsResponse
<$> o .:? "hasMoreResults"
<*> o .:? "marker"
<*> o .:? "pipelineObjects" .!= mempty
instance AWSPager DescribeObjects where
page rq rs
| stop (rs ^. dorHasMoreResults) = Nothing
| otherwise = Just $ rq
& doMarker .~ rs ^. dorMarker