{-# 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.ListFieldLevelEncryptionConfigs
(
listFieldLevelEncryptionConfigs
, ListFieldLevelEncryptionConfigs
, lflecMarker
, lflecMaxItems
, listFieldLevelEncryptionConfigsResponse
, ListFieldLevelEncryptionConfigsResponse
, lflecrsFieldLevelEncryptionList
, lflecrsResponseStatus
) where
import Network.AWS.CloudFront.Types
import Network.AWS.CloudFront.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data ListFieldLevelEncryptionConfigs = ListFieldLevelEncryptionConfigs'
{ _lflecMarker :: !(Maybe Text)
, _lflecMaxItems :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listFieldLevelEncryptionConfigs
:: ListFieldLevelEncryptionConfigs
listFieldLevelEncryptionConfigs =
ListFieldLevelEncryptionConfigs'
{_lflecMarker = Nothing, _lflecMaxItems = Nothing}
lflecMarker :: Lens' ListFieldLevelEncryptionConfigs (Maybe Text)
lflecMarker = lens _lflecMarker (\ s a -> s{_lflecMarker = a})
lflecMaxItems :: Lens' ListFieldLevelEncryptionConfigs (Maybe Text)
lflecMaxItems = lens _lflecMaxItems (\ s a -> s{_lflecMaxItems = a})
instance AWSRequest ListFieldLevelEncryptionConfigs
where
type Rs ListFieldLevelEncryptionConfigs =
ListFieldLevelEncryptionConfigsResponse
request = get cloudFront
response
= receiveXML
(\ s h x ->
ListFieldLevelEncryptionConfigsResponse' <$>
(parseXML x) <*> (pure (fromEnum s)))
instance Hashable ListFieldLevelEncryptionConfigs
where
instance NFData ListFieldLevelEncryptionConfigs where
instance ToHeaders ListFieldLevelEncryptionConfigs
where
toHeaders = const mempty
instance ToPath ListFieldLevelEncryptionConfigs where
toPath = const "/2017-10-30/field-level-encryption"
instance ToQuery ListFieldLevelEncryptionConfigs
where
toQuery ListFieldLevelEncryptionConfigs'{..}
= mconcat
["Marker" =: _lflecMarker,
"MaxItems" =: _lflecMaxItems]
data ListFieldLevelEncryptionConfigsResponse = ListFieldLevelEncryptionConfigsResponse'
{ _lflecrsFieldLevelEncryptionList :: !(Maybe FieldLevelEncryptionList)
, _lflecrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listFieldLevelEncryptionConfigsResponse
:: Int
-> ListFieldLevelEncryptionConfigsResponse
listFieldLevelEncryptionConfigsResponse pResponseStatus_ =
ListFieldLevelEncryptionConfigsResponse'
{ _lflecrsFieldLevelEncryptionList = Nothing
, _lflecrsResponseStatus = pResponseStatus_
}
lflecrsFieldLevelEncryptionList :: Lens' ListFieldLevelEncryptionConfigsResponse (Maybe FieldLevelEncryptionList)
lflecrsFieldLevelEncryptionList = lens _lflecrsFieldLevelEncryptionList (\ s a -> s{_lflecrsFieldLevelEncryptionList = a})
lflecrsResponseStatus :: Lens' ListFieldLevelEncryptionConfigsResponse Int
lflecrsResponseStatus = lens _lflecrsResponseStatus (\ s a -> s{_lflecrsResponseStatus = a})
instance NFData
ListFieldLevelEncryptionConfigsResponse
where