module Network.AWS.SSM.CreateDocument
(
createDocument
, CreateDocument
, cdDocumentType
, cdContent
, cdName
, createDocumentResponse
, CreateDocumentResponse
, cdrsDocumentDescription
, cdrsResponseStatus
) where
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
import Network.AWS.SSM.Types
import Network.AWS.SSM.Types.Product
data CreateDocument = CreateDocument'
{ _cdDocumentType :: !(Maybe DocumentType)
, _cdContent :: !Text
, _cdName :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
createDocument
:: Text
-> Text
-> CreateDocument
createDocument pContent_ pName_ =
CreateDocument'
{_cdDocumentType = Nothing, _cdContent = pContent_, _cdName = pName_}
cdDocumentType :: Lens' CreateDocument (Maybe DocumentType)
cdDocumentType = lens _cdDocumentType (\ s a -> s{_cdDocumentType = a});
cdContent :: Lens' CreateDocument Text
cdContent = lens _cdContent (\ s a -> s{_cdContent = a});
cdName :: Lens' CreateDocument Text
cdName = lens _cdName (\ s a -> s{_cdName = a});
instance AWSRequest CreateDocument where
type Rs CreateDocument = CreateDocumentResponse
request = postJSON ssm
response
= receiveJSON
(\ s h x ->
CreateDocumentResponse' <$>
(x .?> "DocumentDescription") <*>
(pure (fromEnum s)))
instance Hashable CreateDocument where
instance NFData CreateDocument where
instance ToHeaders CreateDocument where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AmazonSSM.CreateDocument" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON CreateDocument where
toJSON CreateDocument'{..}
= object
(catMaybes
[("DocumentType" .=) <$> _cdDocumentType,
Just ("Content" .= _cdContent),
Just ("Name" .= _cdName)])
instance ToPath CreateDocument where
toPath = const "/"
instance ToQuery CreateDocument where
toQuery = const mempty
data CreateDocumentResponse = CreateDocumentResponse'
{ _cdrsDocumentDescription :: !(Maybe DocumentDescription)
, _cdrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
createDocumentResponse
:: Int
-> CreateDocumentResponse
createDocumentResponse pResponseStatus_ =
CreateDocumentResponse'
{_cdrsDocumentDescription = Nothing, _cdrsResponseStatus = pResponseStatus_}
cdrsDocumentDescription :: Lens' CreateDocumentResponse (Maybe DocumentDescription)
cdrsDocumentDescription = lens _cdrsDocumentDescription (\ s a -> s{_cdrsDocumentDescription = a});
cdrsResponseStatus :: Lens' CreateDocumentResponse Int
cdrsResponseStatus = lens _cdrsResponseStatus (\ s a -> s{_cdrsResponseStatus = a});
instance NFData CreateDocumentResponse where