{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE TypeFamilies #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
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.Lens
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 Hashable ListInvalidations where
instance NFData ListInvalidations where
instance ToHeaders ListInvalidations where
toHeaders = const mempty
instance ToPath ListInvalidations where
toPath ListInvalidations'{..}
= mconcat
["/2017-10-30/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})
instance NFData ListInvalidationsResponse where