{-# 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.GetFieldLevelEncryption
(
getFieldLevelEncryption
, GetFieldLevelEncryption
, gfleId
, getFieldLevelEncryptionResponse
, GetFieldLevelEncryptionResponse
, gflersETag
, gflersFieldLevelEncryption
, gflersResponseStatus
) 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 GetFieldLevelEncryption = GetFieldLevelEncryption'
{ _gfleId :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getFieldLevelEncryption
:: Text
-> GetFieldLevelEncryption
getFieldLevelEncryption pId_ = GetFieldLevelEncryption' {_gfleId = pId_}
gfleId :: Lens' GetFieldLevelEncryption Text
gfleId = lens _gfleId (\ s a -> s{_gfleId = a})
instance AWSRequest GetFieldLevelEncryption where
type Rs GetFieldLevelEncryption =
GetFieldLevelEncryptionResponse
request = get cloudFront
response
= receiveXML
(\ s h x ->
GetFieldLevelEncryptionResponse' <$>
(h .#? "ETag") <*> (parseXML x) <*>
(pure (fromEnum s)))
instance Hashable GetFieldLevelEncryption where
instance NFData GetFieldLevelEncryption where
instance ToHeaders GetFieldLevelEncryption where
toHeaders = const mempty
instance ToPath GetFieldLevelEncryption where
toPath GetFieldLevelEncryption'{..}
= mconcat
["/2017-10-30/field-level-encryption/", toBS _gfleId]
instance ToQuery GetFieldLevelEncryption where
toQuery = const mempty
data GetFieldLevelEncryptionResponse = GetFieldLevelEncryptionResponse'
{ _gflersETag :: !(Maybe Text)
, _gflersFieldLevelEncryption :: !(Maybe FieldLevelEncryption)
, _gflersResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getFieldLevelEncryptionResponse
:: Int
-> GetFieldLevelEncryptionResponse
getFieldLevelEncryptionResponse pResponseStatus_ =
GetFieldLevelEncryptionResponse'
{ _gflersETag = Nothing
, _gflersFieldLevelEncryption = Nothing
, _gflersResponseStatus = pResponseStatus_
}
gflersETag :: Lens' GetFieldLevelEncryptionResponse (Maybe Text)
gflersETag = lens _gflersETag (\ s a -> s{_gflersETag = a})
gflersFieldLevelEncryption :: Lens' GetFieldLevelEncryptionResponse (Maybe FieldLevelEncryption)
gflersFieldLevelEncryption = lens _gflersFieldLevelEncryption (\ s a -> s{_gflersFieldLevelEncryption = a})
gflersResponseStatus :: Lens' GetFieldLevelEncryptionResponse Int
gflersResponseStatus = lens _gflersResponseStatus (\ s a -> s{_gflersResponseStatus = a})
instance NFData GetFieldLevelEncryptionResponse where