{-# 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.Glacier.GetVaultAccessPolicy
(
getVaultAccessPolicy
, GetVaultAccessPolicy
, gvapAccountId
, gvapVaultName
, getVaultAccessPolicyResponse
, GetVaultAccessPolicyResponse
, gvaprsPolicy
, gvaprsResponseStatus
) where
import Network.AWS.Glacier.Types
import Network.AWS.Glacier.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data GetVaultAccessPolicy = GetVaultAccessPolicy'
{ _gvapAccountId :: !Text
, _gvapVaultName :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getVaultAccessPolicy
:: Text
-> Text
-> GetVaultAccessPolicy
getVaultAccessPolicy pAccountId_ pVaultName_ =
GetVaultAccessPolicy'
{_gvapAccountId = pAccountId_, _gvapVaultName = pVaultName_}
gvapAccountId :: Lens' GetVaultAccessPolicy Text
gvapAccountId = lens _gvapAccountId (\ s a -> s{_gvapAccountId = a})
gvapVaultName :: Lens' GetVaultAccessPolicy Text
gvapVaultName = lens _gvapVaultName (\ s a -> s{_gvapVaultName = a})
instance AWSRequest GetVaultAccessPolicy where
type Rs GetVaultAccessPolicy =
GetVaultAccessPolicyResponse
request = get glacier
response
= receiveJSON
(\ s h x ->
GetVaultAccessPolicyResponse' <$>
(eitherParseJSON x) <*> (pure (fromEnum s)))
instance Hashable GetVaultAccessPolicy where
instance NFData GetVaultAccessPolicy where
instance ToHeaders GetVaultAccessPolicy where
toHeaders = const mempty
instance ToPath GetVaultAccessPolicy where
toPath GetVaultAccessPolicy'{..}
= mconcat
["/", toBS _gvapAccountId, "/vaults/",
toBS _gvapVaultName, "/access-policy"]
instance ToQuery GetVaultAccessPolicy where
toQuery = const mempty
data GetVaultAccessPolicyResponse = GetVaultAccessPolicyResponse'
{ _gvaprsPolicy :: !(Maybe VaultAccessPolicy)
, _gvaprsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getVaultAccessPolicyResponse
:: Int
-> GetVaultAccessPolicyResponse
getVaultAccessPolicyResponse pResponseStatus_ =
GetVaultAccessPolicyResponse'
{_gvaprsPolicy = Nothing, _gvaprsResponseStatus = pResponseStatus_}
gvaprsPolicy :: Lens' GetVaultAccessPolicyResponse (Maybe VaultAccessPolicy)
gvaprsPolicy = lens _gvaprsPolicy (\ s a -> s{_gvaprsPolicy = a})
gvaprsResponseStatus :: Lens' GetVaultAccessPolicyResponse Int
gvaprsResponseStatus = lens _gvaprsResponseStatus (\ s a -> s{_gvaprsResponseStatus = a})
instance NFData GetVaultAccessPolicyResponse where