{-# 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.WorkDocs.RemoveAllResourcePermissions
(
removeAllResourcePermissions
, RemoveAllResourcePermissions
, rarpAuthenticationToken
, rarpResourceId
, removeAllResourcePermissionsResponse
, RemoveAllResourcePermissionsResponse
) where
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
import Network.AWS.WorkDocs.Types
import Network.AWS.WorkDocs.Types.Product
data RemoveAllResourcePermissions = RemoveAllResourcePermissions'
{ _rarpAuthenticationToken :: !(Maybe (Sensitive Text))
, _rarpResourceId :: !Text
} deriving (Eq, Show, Data, Typeable, Generic)
removeAllResourcePermissions
:: Text
-> RemoveAllResourcePermissions
removeAllResourcePermissions pResourceId_ =
RemoveAllResourcePermissions'
{_rarpAuthenticationToken = Nothing, _rarpResourceId = pResourceId_}
rarpAuthenticationToken :: Lens' RemoveAllResourcePermissions (Maybe Text)
rarpAuthenticationToken = lens _rarpAuthenticationToken (\ s a -> s{_rarpAuthenticationToken = a}) . mapping _Sensitive
rarpResourceId :: Lens' RemoveAllResourcePermissions Text
rarpResourceId = lens _rarpResourceId (\ s a -> s{_rarpResourceId = a})
instance AWSRequest RemoveAllResourcePermissions
where
type Rs RemoveAllResourcePermissions =
RemoveAllResourcePermissionsResponse
request = delete workDocs
response
= receiveNull RemoveAllResourcePermissionsResponse'
instance Hashable RemoveAllResourcePermissions where
instance NFData RemoveAllResourcePermissions where
instance ToHeaders RemoveAllResourcePermissions where
toHeaders RemoveAllResourcePermissions'{..}
= mconcat
["Authentication" =# _rarpAuthenticationToken,
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)]
instance ToPath RemoveAllResourcePermissions where
toPath RemoveAllResourcePermissions'{..}
= mconcat
["/api/v1/resources/", toBS _rarpResourceId,
"/permissions"]
instance ToQuery RemoveAllResourcePermissions where
toQuery = const mempty
data RemoveAllResourcePermissionsResponse =
RemoveAllResourcePermissionsResponse'
deriving (Eq, Read, Show, Data, Typeable, Generic)
removeAllResourcePermissionsResponse
:: RemoveAllResourcePermissionsResponse
removeAllResourcePermissionsResponse = RemoveAllResourcePermissionsResponse'
instance NFData RemoveAllResourcePermissionsResponse
where