{-# 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.DescribeComments
(
describeComments
, DescribeComments
, dcAuthenticationToken
, dcMarker
, dcLimit
, dcDocumentId
, dcVersionId
, describeCommentsResponse
, DescribeCommentsResponse
, dcrsMarker
, dcrsComments
, dcrsResponseStatus
) 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 DescribeComments = DescribeComments'
{ _dcAuthenticationToken :: !(Maybe (Sensitive Text))
, _dcMarker :: !(Maybe Text)
, _dcLimit :: !(Maybe Nat)
, _dcDocumentId :: !Text
, _dcVersionId :: !Text
} deriving (Eq, Show, Data, Typeable, Generic)
describeComments
:: Text
-> Text
-> DescribeComments
describeComments pDocumentId_ pVersionId_ =
DescribeComments'
{ _dcAuthenticationToken = Nothing
, _dcMarker = Nothing
, _dcLimit = Nothing
, _dcDocumentId = pDocumentId_
, _dcVersionId = pVersionId_
}
dcAuthenticationToken :: Lens' DescribeComments (Maybe Text)
dcAuthenticationToken = lens _dcAuthenticationToken (\ s a -> s{_dcAuthenticationToken = a}) . mapping _Sensitive
dcMarker :: Lens' DescribeComments (Maybe Text)
dcMarker = lens _dcMarker (\ s a -> s{_dcMarker = a})
dcLimit :: Lens' DescribeComments (Maybe Natural)
dcLimit = lens _dcLimit (\ s a -> s{_dcLimit = a}) . mapping _Nat
dcDocumentId :: Lens' DescribeComments Text
dcDocumentId = lens _dcDocumentId (\ s a -> s{_dcDocumentId = a})
dcVersionId :: Lens' DescribeComments Text
dcVersionId = lens _dcVersionId (\ s a -> s{_dcVersionId = a})
instance AWSRequest DescribeComments where
type Rs DescribeComments = DescribeCommentsResponse
request = get workDocs
response
= receiveJSON
(\ s h x ->
DescribeCommentsResponse' <$>
(x .?> "Marker") <*> (x .?> "Comments" .!@ mempty)
<*> (pure (fromEnum s)))
instance Hashable DescribeComments where
instance NFData DescribeComments where
instance ToHeaders DescribeComments where
toHeaders DescribeComments'{..}
= mconcat
["Authentication" =# _dcAuthenticationToken,
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)]
instance ToPath DescribeComments where
toPath DescribeComments'{..}
= mconcat
["/api/v1/documents/", toBS _dcDocumentId,
"/versions/", toBS _dcVersionId, "/comments"]
instance ToQuery DescribeComments where
toQuery DescribeComments'{..}
= mconcat
["marker" =: _dcMarker, "limit" =: _dcLimit]
data DescribeCommentsResponse = DescribeCommentsResponse'
{ _dcrsMarker :: !(Maybe Text)
, _dcrsComments :: !(Maybe [Comment])
, _dcrsResponseStatus :: !Int
} deriving (Eq, Show, Data, Typeable, Generic)
describeCommentsResponse
:: Int
-> DescribeCommentsResponse
describeCommentsResponse pResponseStatus_ =
DescribeCommentsResponse'
{ _dcrsMarker = Nothing
, _dcrsComments = Nothing
, _dcrsResponseStatus = pResponseStatus_
}
dcrsMarker :: Lens' DescribeCommentsResponse (Maybe Text)
dcrsMarker = lens _dcrsMarker (\ s a -> s{_dcrsMarker = a})
dcrsComments :: Lens' DescribeCommentsResponse [Comment]
dcrsComments = lens _dcrsComments (\ s a -> s{_dcrsComments = a}) . _Default . _Coerce
dcrsResponseStatus :: Lens' DescribeCommentsResponse Int
dcrsResponseStatus = lens _dcrsResponseStatus (\ s a -> s{_dcrsResponseStatus = a})
instance NFData DescribeCommentsResponse where