module Network.AWS.CloudFront.ListCloudFrontOriginAccessIdentities
(
listCloudFrontOriginAccessIdentities
, ListCloudFrontOriginAccessIdentities
, lcfoaiMaxItems
, lcfoaiMarker
, listCloudFrontOriginAccessIdentitiesResponse
, ListCloudFrontOriginAccessIdentitiesResponse
, lcfoairsStatus
, lcfoairsCloudFrontOriginAccessIdentityList
) where
import Network.AWS.CloudFront.Types
import Network.AWS.CloudFront.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data ListCloudFrontOriginAccessIdentities = ListCloudFrontOriginAccessIdentities'
{ _lcfoaiMaxItems :: !(Maybe Text)
, _lcfoaiMarker :: !(Maybe Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
listCloudFrontOriginAccessIdentities
:: ListCloudFrontOriginAccessIdentities
listCloudFrontOriginAccessIdentities =
ListCloudFrontOriginAccessIdentities'
{ _lcfoaiMaxItems = Nothing
, _lcfoaiMarker = Nothing
}
lcfoaiMaxItems :: Lens' ListCloudFrontOriginAccessIdentities (Maybe Text)
lcfoaiMaxItems = lens _lcfoaiMaxItems (\ s a -> s{_lcfoaiMaxItems = a});
lcfoaiMarker :: Lens' ListCloudFrontOriginAccessIdentities (Maybe Text)
lcfoaiMarker = lens _lcfoaiMarker (\ s a -> s{_lcfoaiMarker = a});
instance AWSRequest
ListCloudFrontOriginAccessIdentities where
type Sv ListCloudFrontOriginAccessIdentities =
CloudFront
type Rs ListCloudFrontOriginAccessIdentities =
ListCloudFrontOriginAccessIdentitiesResponse
request = get
response
= receiveXML
(\ s h x ->
ListCloudFrontOriginAccessIdentitiesResponse' <$>
(pure (fromEnum s)) <*> (parseXML x))
instance ToHeaders
ListCloudFrontOriginAccessIdentities where
toHeaders = const mempty
instance ToPath ListCloudFrontOriginAccessIdentities
where
toPath
= const
"/2015-04-17/origin-access-identity/cloudfront"
instance ToQuery ListCloudFrontOriginAccessIdentities
where
toQuery ListCloudFrontOriginAccessIdentities'{..}
= mconcat
["MaxItems" =: _lcfoaiMaxItems,
"Marker" =: _lcfoaiMarker]
data ListCloudFrontOriginAccessIdentitiesResponse = ListCloudFrontOriginAccessIdentitiesResponse'
{ _lcfoairsStatus :: !Int
, _lcfoairsCloudFrontOriginAccessIdentityList :: !CloudFrontOriginAccessIdentityList
} deriving (Eq,Read,Show,Data,Typeable,Generic)
listCloudFrontOriginAccessIdentitiesResponse
:: Int
-> CloudFrontOriginAccessIdentityList
-> ListCloudFrontOriginAccessIdentitiesResponse
listCloudFrontOriginAccessIdentitiesResponse pStatus_ pCloudFrontOriginAccessIdentityList_ =
ListCloudFrontOriginAccessIdentitiesResponse'
{ _lcfoairsStatus = pStatus_
, _lcfoairsCloudFrontOriginAccessIdentityList = pCloudFrontOriginAccessIdentityList_
}
lcfoairsStatus :: Lens' ListCloudFrontOriginAccessIdentitiesResponse Int
lcfoairsStatus = lens _lcfoairsStatus (\ s a -> s{_lcfoairsStatus = a});
lcfoairsCloudFrontOriginAccessIdentityList :: Lens' ListCloudFrontOriginAccessIdentitiesResponse CloudFrontOriginAccessIdentityList
lcfoairsCloudFrontOriginAccessIdentityList = lens _lcfoairsCloudFrontOriginAccessIdentityList (\ s a -> s{_lcfoairsCloudFrontOriginAccessIdentityList = a});