{-# 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.GetFieldLevelEncryptionConfig
(
getFieldLevelEncryptionConfig
, GetFieldLevelEncryptionConfig
, gflecId
, getFieldLevelEncryptionConfigResponse
, GetFieldLevelEncryptionConfigResponse
, gflecrsETag
, gflecrsFieldLevelEncryptionConfig
, gflecrsResponseStatus
) 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
newtype GetFieldLevelEncryptionConfig = GetFieldLevelEncryptionConfig'
{ _gflecId :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getFieldLevelEncryptionConfig
:: Text
-> GetFieldLevelEncryptionConfig
getFieldLevelEncryptionConfig pId_ =
GetFieldLevelEncryptionConfig' {_gflecId = pId_}
gflecId :: Lens' GetFieldLevelEncryptionConfig Text
gflecId = lens _gflecId (\ s a -> s{_gflecId = a})
instance AWSRequest GetFieldLevelEncryptionConfig
where
type Rs GetFieldLevelEncryptionConfig =
GetFieldLevelEncryptionConfigResponse
request = get cloudFront
response
= receiveXML
(\ s h x ->
GetFieldLevelEncryptionConfigResponse' <$>
(h .#? "ETag") <*> (parseXML x) <*>
(pure (fromEnum s)))
instance Hashable GetFieldLevelEncryptionConfig where
instance NFData GetFieldLevelEncryptionConfig where
instance ToHeaders GetFieldLevelEncryptionConfig
where
toHeaders = const mempty
instance ToPath GetFieldLevelEncryptionConfig where
toPath GetFieldLevelEncryptionConfig'{..}
= mconcat
["/2017-10-30/field-level-encryption/",
toBS _gflecId, "/config"]
instance ToQuery GetFieldLevelEncryptionConfig where
toQuery = const mempty
data GetFieldLevelEncryptionConfigResponse = GetFieldLevelEncryptionConfigResponse'
{ _gflecrsETag :: !(Maybe Text)
, _gflecrsFieldLevelEncryptionConfig :: !(Maybe FieldLevelEncryptionConfig)
, _gflecrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getFieldLevelEncryptionConfigResponse
:: Int
-> GetFieldLevelEncryptionConfigResponse
getFieldLevelEncryptionConfigResponse pResponseStatus_ =
GetFieldLevelEncryptionConfigResponse'
{ _gflecrsETag = Nothing
, _gflecrsFieldLevelEncryptionConfig = Nothing
, _gflecrsResponseStatus = pResponseStatus_
}
gflecrsETag :: Lens' GetFieldLevelEncryptionConfigResponse (Maybe Text)
gflecrsETag = lens _gflecrsETag (\ s a -> s{_gflecrsETag = a})
gflecrsFieldLevelEncryptionConfig :: Lens' GetFieldLevelEncryptionConfigResponse (Maybe FieldLevelEncryptionConfig)
gflecrsFieldLevelEncryptionConfig = lens _gflecrsFieldLevelEncryptionConfig (\ s a -> s{_gflecrsFieldLevelEncryptionConfig = a})
gflecrsResponseStatus :: Lens' GetFieldLevelEncryptionConfigResponse Int
gflecrsResponseStatus = lens _gflecrsResponseStatus (\ s a -> s{_gflecrsResponseStatus = a})
instance NFData GetFieldLevelEncryptionConfigResponse
where