{-# 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.DeleteFolderContents
(
deleteFolderContents
, DeleteFolderContents
, dfcAuthenticationToken
, dfcFolderId
, deleteFolderContentsResponse
, DeleteFolderContentsResponse
) 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 DeleteFolderContents = DeleteFolderContents'
{ _dfcAuthenticationToken :: !(Maybe (Sensitive Text))
, _dfcFolderId :: !Text
} deriving (Eq, Show, Data, Typeable, Generic)
deleteFolderContents
:: Text
-> DeleteFolderContents
deleteFolderContents pFolderId_ =
DeleteFolderContents'
{_dfcAuthenticationToken = Nothing, _dfcFolderId = pFolderId_}
dfcAuthenticationToken :: Lens' DeleteFolderContents (Maybe Text)
dfcAuthenticationToken = lens _dfcAuthenticationToken (\ s a -> s{_dfcAuthenticationToken = a}) . mapping _Sensitive
dfcFolderId :: Lens' DeleteFolderContents Text
dfcFolderId = lens _dfcFolderId (\ s a -> s{_dfcFolderId = a})
instance AWSRequest DeleteFolderContents where
type Rs DeleteFolderContents =
DeleteFolderContentsResponse
request = delete workDocs
response = receiveNull DeleteFolderContentsResponse'
instance Hashable DeleteFolderContents where
instance NFData DeleteFolderContents where
instance ToHeaders DeleteFolderContents where
toHeaders DeleteFolderContents'{..}
= mconcat
["Authentication" =# _dfcAuthenticationToken,
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)]
instance ToPath DeleteFolderContents where
toPath DeleteFolderContents'{..}
= mconcat
["/api/v1/folders/", toBS _dfcFolderId, "/contents"]
instance ToQuery DeleteFolderContents where
toQuery = const mempty
data DeleteFolderContentsResponse =
DeleteFolderContentsResponse'
deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteFolderContentsResponse
:: DeleteFolderContentsResponse
deleteFolderContentsResponse = DeleteFolderContentsResponse'
instance NFData DeleteFolderContentsResponse where