{-# 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.CreateFieldLevelEncryptionProfile
(
createFieldLevelEncryptionProfile
, CreateFieldLevelEncryptionProfile
, cflepFieldLevelEncryptionProfileConfig
, createFieldLevelEncryptionProfileResponse
, CreateFieldLevelEncryptionProfileResponse
, cfleprsETag
, cfleprsLocation
, cfleprsFieldLevelEncryptionProfile
, cfleprsResponseStatus
) 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 CreateFieldLevelEncryptionProfile = CreateFieldLevelEncryptionProfile'
{ _cflepFieldLevelEncryptionProfileConfig :: FieldLevelEncryptionProfileConfig
} deriving (Eq, Read, Show, Data, Typeable, Generic)
createFieldLevelEncryptionProfile
:: FieldLevelEncryptionProfileConfig
-> CreateFieldLevelEncryptionProfile
createFieldLevelEncryptionProfile pFieldLevelEncryptionProfileConfig_ =
CreateFieldLevelEncryptionProfile'
{ _cflepFieldLevelEncryptionProfileConfig =
pFieldLevelEncryptionProfileConfig_
}
cflepFieldLevelEncryptionProfileConfig :: Lens' CreateFieldLevelEncryptionProfile FieldLevelEncryptionProfileConfig
cflepFieldLevelEncryptionProfileConfig = lens _cflepFieldLevelEncryptionProfileConfig (\ s a -> s{_cflepFieldLevelEncryptionProfileConfig = a})
instance AWSRequest CreateFieldLevelEncryptionProfile
where
type Rs CreateFieldLevelEncryptionProfile =
CreateFieldLevelEncryptionProfileResponse
request = postXML cloudFront
response
= receiveXML
(\ s h x ->
CreateFieldLevelEncryptionProfileResponse' <$>
(h .#? "ETag") <*> (h .#? "Location") <*>
(parseXML x)
<*> (pure (fromEnum s)))
instance Hashable CreateFieldLevelEncryptionProfile
where
instance NFData CreateFieldLevelEncryptionProfile
where
instance ToElement CreateFieldLevelEncryptionProfile
where
toElement
= mkElement
"{http://cloudfront.amazonaws.com/doc/2017-10-30/}FieldLevelEncryptionProfileConfig"
.
_cflepFieldLevelEncryptionProfileConfig
instance ToHeaders CreateFieldLevelEncryptionProfile
where
toHeaders = const mempty
instance ToPath CreateFieldLevelEncryptionProfile
where
toPath
= const "/2017-10-30/field-level-encryption-profile"
instance ToQuery CreateFieldLevelEncryptionProfile
where
toQuery = const mempty
data CreateFieldLevelEncryptionProfileResponse = CreateFieldLevelEncryptionProfileResponse'
{ _cfleprsETag :: !(Maybe Text)
, _cfleprsLocation :: !(Maybe Text)
, _cfleprsFieldLevelEncryptionProfile :: !(Maybe FieldLevelEncryptionProfile)
, _cfleprsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
createFieldLevelEncryptionProfileResponse
:: Int
-> CreateFieldLevelEncryptionProfileResponse
createFieldLevelEncryptionProfileResponse pResponseStatus_ =
CreateFieldLevelEncryptionProfileResponse'
{ _cfleprsETag = Nothing
, _cfleprsLocation = Nothing
, _cfleprsFieldLevelEncryptionProfile = Nothing
, _cfleprsResponseStatus = pResponseStatus_
}
cfleprsETag :: Lens' CreateFieldLevelEncryptionProfileResponse (Maybe Text)
cfleprsETag = lens _cfleprsETag (\ s a -> s{_cfleprsETag = a})
cfleprsLocation :: Lens' CreateFieldLevelEncryptionProfileResponse (Maybe Text)
cfleprsLocation = lens _cfleprsLocation (\ s a -> s{_cfleprsLocation = a})
cfleprsFieldLevelEncryptionProfile :: Lens' CreateFieldLevelEncryptionProfileResponse (Maybe FieldLevelEncryptionProfile)
cfleprsFieldLevelEncryptionProfile = lens _cfleprsFieldLevelEncryptionProfile (\ s a -> s{_cfleprsFieldLevelEncryptionProfile = a})
cfleprsResponseStatus :: Lens' CreateFieldLevelEncryptionProfileResponse Int
cfleprsResponseStatus = lens _cfleprsResponseStatus (\ s a -> s{_cfleprsResponseStatus = a})
instance NFData
CreateFieldLevelEncryptionProfileResponse
where