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