{-# 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.SSM.DescribeDocumentPermission
(
describeDocumentPermission
, DescribeDocumentPermission
, ddpName
, ddpPermissionType
, describeDocumentPermissionResponse
, DescribeDocumentPermissionResponse
, ddprsAccountIds
, ddprsResponseStatus
) 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 DescribeDocumentPermission = DescribeDocumentPermission'
{ _ddpName :: !Text
, _ddpPermissionType :: !DocumentPermissionType
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeDocumentPermission
:: Text
-> DocumentPermissionType
-> DescribeDocumentPermission
describeDocumentPermission pName_ pPermissionType_ =
DescribeDocumentPermission'
{ _ddpName = pName_
, _ddpPermissionType = pPermissionType_
}
ddpName :: Lens' DescribeDocumentPermission Text
ddpName = lens _ddpName (\ s a -> s{_ddpName = a});
ddpPermissionType :: Lens' DescribeDocumentPermission DocumentPermissionType
ddpPermissionType = lens _ddpPermissionType (\ s a -> s{_ddpPermissionType = a});
instance AWSRequest DescribeDocumentPermission where
type Rs DescribeDocumentPermission =
DescribeDocumentPermissionResponse
request = postJSON ssm
response
= receiveJSON
(\ s h x ->
DescribeDocumentPermissionResponse' <$>
(x .?> "AccountIds" .!@ mempty) <*>
(pure (fromEnum s)))
instance Hashable DescribeDocumentPermission
instance NFData DescribeDocumentPermission
instance ToHeaders DescribeDocumentPermission where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AmazonSSM.DescribeDocumentPermission" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DescribeDocumentPermission where
toJSON DescribeDocumentPermission'{..}
= object
(catMaybes
[Just ("Name" .= _ddpName),
Just ("PermissionType" .= _ddpPermissionType)])
instance ToPath DescribeDocumentPermission where
toPath = const "/"
instance ToQuery DescribeDocumentPermission where
toQuery = const mempty
data DescribeDocumentPermissionResponse = DescribeDocumentPermissionResponse'
{ _ddprsAccountIds :: !(Maybe [Text])
, _ddprsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeDocumentPermissionResponse
:: Int
-> DescribeDocumentPermissionResponse
describeDocumentPermissionResponse pResponseStatus_ =
DescribeDocumentPermissionResponse'
{ _ddprsAccountIds = Nothing
, _ddprsResponseStatus = pResponseStatus_
}
ddprsAccountIds :: Lens' DescribeDocumentPermissionResponse [Text]
ddprsAccountIds = lens _ddprsAccountIds (\ s a -> s{_ddprsAccountIds = a}) . _Default . _Coerce;
ddprsResponseStatus :: Lens' DescribeDocumentPermissionResponse Int
ddprsResponseStatus = lens _ddprsResponseStatus (\ s a -> s{_ddprsResponseStatus = a});
instance NFData DescribeDocumentPermissionResponse