{-# 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.ListProvisionedCapacity
(
listProvisionedCapacity
, ListProvisionedCapacity
, lpcAccountId
, listProvisionedCapacityResponse
, ListProvisionedCapacityResponse
, lpcrsProvisionedCapacityList
, lpcrsResponseStatus
) 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
newtype ListProvisionedCapacity = ListProvisionedCapacity'
{ _lpcAccountId :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listProvisionedCapacity
:: Text
-> ListProvisionedCapacity
listProvisionedCapacity pAccountId_ =
ListProvisionedCapacity' {_lpcAccountId = pAccountId_}
lpcAccountId :: Lens' ListProvisionedCapacity Text
lpcAccountId = lens _lpcAccountId (\ s a -> s{_lpcAccountId = a})
instance AWSRequest ListProvisionedCapacity where
type Rs ListProvisionedCapacity =
ListProvisionedCapacityResponse
request = get glacier
response
= receiveJSON
(\ s h x ->
ListProvisionedCapacityResponse' <$>
(x .?> "ProvisionedCapacityList" .!@ mempty) <*>
(pure (fromEnum s)))
instance Hashable ListProvisionedCapacity where
instance NFData ListProvisionedCapacity where
instance ToHeaders ListProvisionedCapacity where
toHeaders = const mempty
instance ToPath ListProvisionedCapacity where
toPath ListProvisionedCapacity'{..}
= mconcat
["/", toBS _lpcAccountId, "/provisioned-capacity"]
instance ToQuery ListProvisionedCapacity where
toQuery = const mempty
data ListProvisionedCapacityResponse = ListProvisionedCapacityResponse'
{ _lpcrsProvisionedCapacityList :: !(Maybe [ProvisionedCapacityDescription])
, _lpcrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listProvisionedCapacityResponse
:: Int
-> ListProvisionedCapacityResponse
listProvisionedCapacityResponse pResponseStatus_ =
ListProvisionedCapacityResponse'
{ _lpcrsProvisionedCapacityList = Nothing
, _lpcrsResponseStatus = pResponseStatus_
}
lpcrsProvisionedCapacityList :: Lens' ListProvisionedCapacityResponse [ProvisionedCapacityDescription]
lpcrsProvisionedCapacityList = lens _lpcrsProvisionedCapacityList (\ s a -> s{_lpcrsProvisionedCapacityList = a}) . _Default . _Coerce
lpcrsResponseStatus :: Lens' ListProvisionedCapacityResponse Int
lpcrsResponseStatus = lens _lpcrsResponseStatus (\ s a -> s{_lpcrsResponseStatus = a})
instance NFData ListProvisionedCapacityResponse where