{-# 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.GetFieldLevelEncryptionProfile
(
getFieldLevelEncryptionProfile
, GetFieldLevelEncryptionProfile
, gflepId
, getFieldLevelEncryptionProfileResponse
, GetFieldLevelEncryptionProfileResponse
, gfleprsETag
, gfleprsFieldLevelEncryptionProfile
, gfleprsResponseStatus
) 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 GetFieldLevelEncryptionProfile = GetFieldLevelEncryptionProfile'
{ _gflepId :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getFieldLevelEncryptionProfile
:: Text
-> GetFieldLevelEncryptionProfile
getFieldLevelEncryptionProfile pId_ =
GetFieldLevelEncryptionProfile' {_gflepId = pId_}
gflepId :: Lens' GetFieldLevelEncryptionProfile Text
gflepId = lens _gflepId (\ s a -> s{_gflepId = a})
instance AWSRequest GetFieldLevelEncryptionProfile
where
type Rs GetFieldLevelEncryptionProfile =
GetFieldLevelEncryptionProfileResponse
request = get cloudFront
response
= receiveXML
(\ s h x ->
GetFieldLevelEncryptionProfileResponse' <$>
(h .#? "ETag") <*> (parseXML x) <*>
(pure (fromEnum s)))
instance Hashable GetFieldLevelEncryptionProfile
where
instance NFData GetFieldLevelEncryptionProfile where
instance ToHeaders GetFieldLevelEncryptionProfile
where
toHeaders = const mempty
instance ToPath GetFieldLevelEncryptionProfile where
toPath GetFieldLevelEncryptionProfile'{..}
= mconcat
["/2017-10-30/field-level-encryption-profile/",
toBS _gflepId]
instance ToQuery GetFieldLevelEncryptionProfile where
toQuery = const mempty
data GetFieldLevelEncryptionProfileResponse = GetFieldLevelEncryptionProfileResponse'
{ _gfleprsETag :: !(Maybe Text)
, _gfleprsFieldLevelEncryptionProfile :: !(Maybe FieldLevelEncryptionProfile)
, _gfleprsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getFieldLevelEncryptionProfileResponse
:: Int
-> GetFieldLevelEncryptionProfileResponse
getFieldLevelEncryptionProfileResponse pResponseStatus_ =
GetFieldLevelEncryptionProfileResponse'
{ _gfleprsETag = Nothing
, _gfleprsFieldLevelEncryptionProfile = Nothing
, _gfleprsResponseStatus = pResponseStatus_
}
gfleprsETag :: Lens' GetFieldLevelEncryptionProfileResponse (Maybe Text)
gfleprsETag = lens _gfleprsETag (\ s a -> s{_gfleprsETag = a})
gfleprsFieldLevelEncryptionProfile :: Lens' GetFieldLevelEncryptionProfileResponse (Maybe FieldLevelEncryptionProfile)
gfleprsFieldLevelEncryptionProfile = lens _gfleprsFieldLevelEncryptionProfile (\ s a -> s{_gfleprsFieldLevelEncryptionProfile = a})
gfleprsResponseStatus :: Lens' GetFieldLevelEncryptionProfileResponse Int
gfleprsResponseStatus = lens _gfleprsResponseStatus (\ s a -> s{_gfleprsResponseStatus = a})
instance NFData
GetFieldLevelEncryptionProfileResponse
where