module Network.AWS.Glacier.SetDataRetrievalPolicy
(
SetDataRetrievalPolicy
, setDataRetrievalPolicy
, sdrpAccountId
, sdrpPolicy
, SetDataRetrievalPolicyResponse
, setDataRetrievalPolicyResponse
) where
import Network.AWS.Prelude
import Network.AWS.Request.RestJSON
import Network.AWS.Glacier.Types
import qualified GHC.Exts
data SetDataRetrievalPolicy = SetDataRetrievalPolicy
{ _sdrpAccountId :: Text
, _sdrpPolicy :: Maybe DataRetrievalPolicy
} deriving (Eq, Read, Show)
setDataRetrievalPolicy :: Text
-> SetDataRetrievalPolicy
setDataRetrievalPolicy p1 = SetDataRetrievalPolicy
{ _sdrpAccountId = p1
, _sdrpPolicy = Nothing
}
sdrpAccountId :: Lens' SetDataRetrievalPolicy Text
sdrpAccountId = lens _sdrpAccountId (\s a -> s { _sdrpAccountId = a })
sdrpPolicy :: Lens' SetDataRetrievalPolicy (Maybe DataRetrievalPolicy)
sdrpPolicy = lens _sdrpPolicy (\s a -> s { _sdrpPolicy = a })
data SetDataRetrievalPolicyResponse = SetDataRetrievalPolicyResponse
deriving (Eq, Ord, Read, Show, Generic)
setDataRetrievalPolicyResponse :: SetDataRetrievalPolicyResponse
setDataRetrievalPolicyResponse = SetDataRetrievalPolicyResponse
instance ToPath SetDataRetrievalPolicy where
toPath SetDataRetrievalPolicy{..} = mconcat
[ "/"
, toText _sdrpAccountId
, "/policies/data-retrieval"
]
instance ToQuery SetDataRetrievalPolicy where
toQuery = const mempty
instance ToHeaders SetDataRetrievalPolicy
instance ToJSON SetDataRetrievalPolicy where
toJSON SetDataRetrievalPolicy{..} = object
[ "Policy" .= _sdrpPolicy
]
instance AWSRequest SetDataRetrievalPolicy where
type Sv SetDataRetrievalPolicy = Glacier
type Rs SetDataRetrievalPolicy = SetDataRetrievalPolicyResponse
request = put
response = nullResponse SetDataRetrievalPolicyResponse