{-# 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.ListFieldLevelEncryptionProfiles
(
listFieldLevelEncryptionProfiles
, ListFieldLevelEncryptionProfiles
, lflepMarker
, lflepMaxItems
, listFieldLevelEncryptionProfilesResponse
, ListFieldLevelEncryptionProfilesResponse
, lfleprsFieldLevelEncryptionProfileList
, lfleprsResponseStatus
) 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 ListFieldLevelEncryptionProfiles = ListFieldLevelEncryptionProfiles'
{ _lflepMarker :: !(Maybe Text)
, _lflepMaxItems :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listFieldLevelEncryptionProfiles
:: ListFieldLevelEncryptionProfiles
listFieldLevelEncryptionProfiles =
ListFieldLevelEncryptionProfiles'
{_lflepMarker = Nothing, _lflepMaxItems = Nothing}
lflepMarker :: Lens' ListFieldLevelEncryptionProfiles (Maybe Text)
lflepMarker = lens _lflepMarker (\ s a -> s{_lflepMarker = a})
lflepMaxItems :: Lens' ListFieldLevelEncryptionProfiles (Maybe Text)
lflepMaxItems = lens _lflepMaxItems (\ s a -> s{_lflepMaxItems = a})
instance AWSRequest ListFieldLevelEncryptionProfiles
where
type Rs ListFieldLevelEncryptionProfiles =
ListFieldLevelEncryptionProfilesResponse
request = get cloudFront
response
= receiveXML
(\ s h x ->
ListFieldLevelEncryptionProfilesResponse' <$>
(parseXML x) <*> (pure (fromEnum s)))
instance Hashable ListFieldLevelEncryptionProfiles
where
instance NFData ListFieldLevelEncryptionProfiles
where
instance ToHeaders ListFieldLevelEncryptionProfiles
where
toHeaders = const mempty
instance ToPath ListFieldLevelEncryptionProfiles
where
toPath
= const "/2017-10-30/field-level-encryption-profile"
instance ToQuery ListFieldLevelEncryptionProfiles
where
toQuery ListFieldLevelEncryptionProfiles'{..}
= mconcat
["Marker" =: _lflepMarker,
"MaxItems" =: _lflepMaxItems]
data ListFieldLevelEncryptionProfilesResponse = ListFieldLevelEncryptionProfilesResponse'
{ _lfleprsFieldLevelEncryptionProfileList :: !(Maybe FieldLevelEncryptionProfileList)
, _lfleprsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listFieldLevelEncryptionProfilesResponse
:: Int
-> ListFieldLevelEncryptionProfilesResponse
listFieldLevelEncryptionProfilesResponse pResponseStatus_ =
ListFieldLevelEncryptionProfilesResponse'
{ _lfleprsFieldLevelEncryptionProfileList = Nothing
, _lfleprsResponseStatus = pResponseStatus_
}
lfleprsFieldLevelEncryptionProfileList :: Lens' ListFieldLevelEncryptionProfilesResponse (Maybe FieldLevelEncryptionProfileList)
lfleprsFieldLevelEncryptionProfileList = lens _lfleprsFieldLevelEncryptionProfileList (\ s a -> s{_lfleprsFieldLevelEncryptionProfileList = a})
lfleprsResponseStatus :: Lens' ListFieldLevelEncryptionProfilesResponse Int
lfleprsResponseStatus = lens _lfleprsResponseStatus (\ s a -> s{_lfleprsResponseStatus = a})
instance NFData
ListFieldLevelEncryptionProfilesResponse
where