{-# 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.GetDocument
(
getDocument
, GetDocument
, gdAuthenticationToken
, gdIncludeCustomMetadata
, gdDocumentId
, getDocumentResponse
, GetDocumentResponse
, gdrsCustomMetadata
, gdrsMetadata
, gdrsResponseStatus
) 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 GetDocument = GetDocument'
{ _gdAuthenticationToken :: !(Maybe (Sensitive Text))
, _gdIncludeCustomMetadata :: !(Maybe Bool)
, _gdDocumentId :: !Text
} deriving (Eq, Show, Data, Typeable, Generic)
getDocument
:: Text
-> GetDocument
getDocument pDocumentId_ =
GetDocument'
{ _gdAuthenticationToken = Nothing
, _gdIncludeCustomMetadata = Nothing
, _gdDocumentId = pDocumentId_
}
gdAuthenticationToken :: Lens' GetDocument (Maybe Text)
gdAuthenticationToken = lens _gdAuthenticationToken (\ s a -> s{_gdAuthenticationToken = a}) . mapping _Sensitive
gdIncludeCustomMetadata :: Lens' GetDocument (Maybe Bool)
gdIncludeCustomMetadata = lens _gdIncludeCustomMetadata (\ s a -> s{_gdIncludeCustomMetadata = a})
gdDocumentId :: Lens' GetDocument Text
gdDocumentId = lens _gdDocumentId (\ s a -> s{_gdDocumentId = a})
instance AWSRequest GetDocument where
type Rs GetDocument = GetDocumentResponse
request = get workDocs
response
= receiveJSON
(\ s h x ->
GetDocumentResponse' <$>
(x .?> "CustomMetadata" .!@ mempty) <*>
(x .?> "Metadata")
<*> (pure (fromEnum s)))
instance Hashable GetDocument where
instance NFData GetDocument where
instance ToHeaders GetDocument where
toHeaders GetDocument'{..}
= mconcat
["Authentication" =# _gdAuthenticationToken,
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)]
instance ToPath GetDocument where
toPath GetDocument'{..}
= mconcat ["/api/v1/documents/", toBS _gdDocumentId]
instance ToQuery GetDocument where
toQuery GetDocument'{..}
= mconcat
["includeCustomMetadata" =: _gdIncludeCustomMetadata]
data GetDocumentResponse = GetDocumentResponse'
{ _gdrsCustomMetadata :: !(Maybe (Map Text Text))
, _gdrsMetadata :: !(Maybe DocumentMetadata)
, _gdrsResponseStatus :: !Int
} deriving (Eq, Show, Data, Typeable, Generic)
getDocumentResponse
:: Int
-> GetDocumentResponse
getDocumentResponse pResponseStatus_ =
GetDocumentResponse'
{ _gdrsCustomMetadata = Nothing
, _gdrsMetadata = Nothing
, _gdrsResponseStatus = pResponseStatus_
}
gdrsCustomMetadata :: Lens' GetDocumentResponse (HashMap Text Text)
gdrsCustomMetadata = lens _gdrsCustomMetadata (\ s a -> s{_gdrsCustomMetadata = a}) . _Default . _Map
gdrsMetadata :: Lens' GetDocumentResponse (Maybe DocumentMetadata)
gdrsMetadata = lens _gdrsMetadata (\ s a -> s{_gdrsMetadata = a})
gdrsResponseStatus :: Lens' GetDocumentResponse Int
gdrsResponseStatus = lens _gdrsResponseStatus (\ s a -> s{_gdrsResponseStatus = a})
instance NFData GetDocumentResponse where