{-# 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.CreateLabels
(
createLabels
, CreateLabels
, clAuthenticationToken
, clResourceId
, clLabels
, createLabelsResponse
, CreateLabelsResponse
, clrsResponseStatus
) 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 CreateLabels = CreateLabels'
{ _clAuthenticationToken :: !(Maybe (Sensitive Text))
, _clResourceId :: !Text
, _clLabels :: ![Text]
} deriving (Eq, Show, Data, Typeable, Generic)
createLabels
:: Text
-> CreateLabels
createLabels pResourceId_ =
CreateLabels'
{ _clAuthenticationToken = Nothing
, _clResourceId = pResourceId_
, _clLabels = mempty
}
clAuthenticationToken :: Lens' CreateLabels (Maybe Text)
clAuthenticationToken = lens _clAuthenticationToken (\ s a -> s{_clAuthenticationToken = a}) . mapping _Sensitive
clResourceId :: Lens' CreateLabels Text
clResourceId = lens _clResourceId (\ s a -> s{_clResourceId = a})
clLabels :: Lens' CreateLabels [Text]
clLabels = lens _clLabels (\ s a -> s{_clLabels = a}) . _Coerce
instance AWSRequest CreateLabels where
type Rs CreateLabels = CreateLabelsResponse
request = putJSON workDocs
response
= receiveEmpty
(\ s h x ->
CreateLabelsResponse' <$> (pure (fromEnum s)))
instance Hashable CreateLabels where
instance NFData CreateLabels where
instance ToHeaders CreateLabels where
toHeaders CreateLabels'{..}
= mconcat
["Authentication" =# _clAuthenticationToken,
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)]
instance ToJSON CreateLabels where
toJSON CreateLabels'{..}
= object (catMaybes [Just ("Labels" .= _clLabels)])
instance ToPath CreateLabels where
toPath CreateLabels'{..}
= mconcat
["/api/v1/resources/", toBS _clResourceId, "/labels"]
instance ToQuery CreateLabels where
toQuery = const mempty
newtype CreateLabelsResponse = CreateLabelsResponse'
{ _clrsResponseStatus :: Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
createLabelsResponse
:: Int
-> CreateLabelsResponse
createLabelsResponse pResponseStatus_ =
CreateLabelsResponse' {_clrsResponseStatus = pResponseStatus_}
clrsResponseStatus :: Lens' CreateLabelsResponse Int
clrsResponseStatus = lens _clrsResponseStatus (\ s a -> s{_clrsResponseStatus = a})
instance NFData CreateLabelsResponse where