module Network.AWS.CloudFront.ListInvalidations
(
listInvalidations
, ListInvalidations
, liMarker
, liMaxItems
, liDistributionId
, listInvalidationsResponse
, ListInvalidationsResponse
, lirsResponseStatus
, lirsInvalidationList
) where
import Network.AWS.CloudFront.Types
import Network.AWS.CloudFront.Types.Product
import Network.AWS.Pager
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data ListInvalidations = ListInvalidations'
{ _liMarker :: !(Maybe Text)
, _liMaxItems :: !(Maybe Text)
, _liDistributionId :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
listInvalidations
:: Text
-> ListInvalidations
listInvalidations pDistributionId_ =
ListInvalidations'
{ _liMarker = Nothing
, _liMaxItems = Nothing
, _liDistributionId = pDistributionId_
}
liMarker :: Lens' ListInvalidations (Maybe Text)
liMarker = lens _liMarker (\ s a -> s{_liMarker = a});
liMaxItems :: Lens' ListInvalidations (Maybe Text)
liMaxItems = lens _liMaxItems (\ s a -> s{_liMaxItems = a});
liDistributionId :: Lens' ListInvalidations Text
liDistributionId = lens _liDistributionId (\ s a -> s{_liDistributionId = a});
instance AWSPager ListInvalidations where
page rq rs
| stop (rs ^. lirsInvalidationList . ilIsTruncated) =
Nothing
| isNothing
(rs ^? lirsInvalidationList . ilNextMarker . _Just)
= Nothing
| otherwise =
Just $ rq &
liMarker .~
rs ^? lirsInvalidationList . ilNextMarker . _Just
instance AWSRequest ListInvalidations where
type Rs ListInvalidations = ListInvalidationsResponse
request = get cloudFront
response
= receiveXML
(\ s h x ->
ListInvalidationsResponse' <$>
(pure (fromEnum s)) <*> (parseXML x))
instance ToHeaders ListInvalidations where
toHeaders = const mempty
instance ToPath ListInvalidations where
toPath ListInvalidations'{..}
= mconcat
["/2015-07-27/distribution/", toBS _liDistributionId,
"/invalidation"]
instance ToQuery ListInvalidations where
toQuery ListInvalidations'{..}
= mconcat
["Marker" =: _liMarker, "MaxItems" =: _liMaxItems]
data ListInvalidationsResponse = ListInvalidationsResponse'
{ _lirsResponseStatus :: !Int
, _lirsInvalidationList :: !InvalidationList
} deriving (Eq,Read,Show,Data,Typeable,Generic)
listInvalidationsResponse
:: Int
-> InvalidationList
-> ListInvalidationsResponse
listInvalidationsResponse pResponseStatus_ pInvalidationList_ =
ListInvalidationsResponse'
{ _lirsResponseStatus = pResponseStatus_
, _lirsInvalidationList = pInvalidationList_
}
lirsResponseStatus :: Lens' ListInvalidationsResponse Int
lirsResponseStatus = lens _lirsResponseStatus (\ s a -> s{_lirsResponseStatus = a});
lirsInvalidationList :: Lens' ListInvalidationsResponse InvalidationList
lirsInvalidationList = lens _lirsInvalidationList (\ s a -> s{_lirsInvalidationList = a});