{-# 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.UpdateDocument
(
updateDocument
, UpdateDocument
, udParentFolderId
, udAuthenticationToken
, udName
, udResourceState
, udDocumentId
, updateDocumentResponse
, UpdateDocumentResponse
) 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 UpdateDocument = UpdateDocument'
{ _udParentFolderId :: !(Maybe Text)
, _udAuthenticationToken :: !(Maybe (Sensitive Text))
, _udName :: !(Maybe Text)
, _udResourceState :: !(Maybe ResourceStateType)
, _udDocumentId :: !Text
} deriving (Eq, Show, Data, Typeable, Generic)
updateDocument
:: Text
-> UpdateDocument
updateDocument pDocumentId_ =
UpdateDocument'
{ _udParentFolderId = Nothing
, _udAuthenticationToken = Nothing
, _udName = Nothing
, _udResourceState = Nothing
, _udDocumentId = pDocumentId_
}
udParentFolderId :: Lens' UpdateDocument (Maybe Text)
udParentFolderId = lens _udParentFolderId (\ s a -> s{_udParentFolderId = a})
udAuthenticationToken :: Lens' UpdateDocument (Maybe Text)
udAuthenticationToken = lens _udAuthenticationToken (\ s a -> s{_udAuthenticationToken = a}) . mapping _Sensitive
udName :: Lens' UpdateDocument (Maybe Text)
udName = lens _udName (\ s a -> s{_udName = a})
udResourceState :: Lens' UpdateDocument (Maybe ResourceStateType)
udResourceState = lens _udResourceState (\ s a -> s{_udResourceState = a})
udDocumentId :: Lens' UpdateDocument Text
udDocumentId = lens _udDocumentId (\ s a -> s{_udDocumentId = a})
instance AWSRequest UpdateDocument where
type Rs UpdateDocument = UpdateDocumentResponse
request = patchJSON workDocs
response = receiveNull UpdateDocumentResponse'
instance Hashable UpdateDocument where
instance NFData UpdateDocument where
instance ToHeaders UpdateDocument where
toHeaders UpdateDocument'{..}
= mconcat
["Authentication" =# _udAuthenticationToken,
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)]
instance ToJSON UpdateDocument where
toJSON UpdateDocument'{..}
= object
(catMaybes
[("ParentFolderId" .=) <$> _udParentFolderId,
("Name" .=) <$> _udName,
("ResourceState" .=) <$> _udResourceState])
instance ToPath UpdateDocument where
toPath UpdateDocument'{..}
= mconcat ["/api/v1/documents/", toBS _udDocumentId]
instance ToQuery UpdateDocument where
toQuery = const mempty
data UpdateDocumentResponse =
UpdateDocumentResponse'
deriving (Eq, Read, Show, Data, Typeable, Generic)
updateDocumentResponse
:: UpdateDocumentResponse
updateDocumentResponse = UpdateDocumentResponse'
instance NFData UpdateDocumentResponse where