{-# 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.DescribeResourcePermissions
(
describeResourcePermissions
, DescribeResourcePermissions
, drpPrincipalId
, drpAuthenticationToken
, drpMarker
, drpLimit
, drpResourceId
, describeResourcePermissionsResponse
, DescribeResourcePermissionsResponse
, drprsPrincipals
, drprsMarker
, drprsResponseStatus
) 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 DescribeResourcePermissions = DescribeResourcePermissions'
{ _drpPrincipalId :: !(Maybe Text)
, _drpAuthenticationToken :: !(Maybe (Sensitive Text))
, _drpMarker :: !(Maybe Text)
, _drpLimit :: !(Maybe Nat)
, _drpResourceId :: !Text
} deriving (Eq, Show, Data, Typeable, Generic)
describeResourcePermissions
:: Text
-> DescribeResourcePermissions
describeResourcePermissions pResourceId_ =
DescribeResourcePermissions'
{ _drpPrincipalId = Nothing
, _drpAuthenticationToken = Nothing
, _drpMarker = Nothing
, _drpLimit = Nothing
, _drpResourceId = pResourceId_
}
drpPrincipalId :: Lens' DescribeResourcePermissions (Maybe Text)
drpPrincipalId = lens _drpPrincipalId (\ s a -> s{_drpPrincipalId = a})
drpAuthenticationToken :: Lens' DescribeResourcePermissions (Maybe Text)
drpAuthenticationToken = lens _drpAuthenticationToken (\ s a -> s{_drpAuthenticationToken = a}) . mapping _Sensitive
drpMarker :: Lens' DescribeResourcePermissions (Maybe Text)
drpMarker = lens _drpMarker (\ s a -> s{_drpMarker = a})
drpLimit :: Lens' DescribeResourcePermissions (Maybe Natural)
drpLimit = lens _drpLimit (\ s a -> s{_drpLimit = a}) . mapping _Nat
drpResourceId :: Lens' DescribeResourcePermissions Text
drpResourceId = lens _drpResourceId (\ s a -> s{_drpResourceId = a})
instance AWSRequest DescribeResourcePermissions where
type Rs DescribeResourcePermissions =
DescribeResourcePermissionsResponse
request = get workDocs
response
= receiveJSON
(\ s h x ->
DescribeResourcePermissionsResponse' <$>
(x .?> "Principals" .!@ mempty) <*> (x .?> "Marker")
<*> (pure (fromEnum s)))
instance Hashable DescribeResourcePermissions where
instance NFData DescribeResourcePermissions where
instance ToHeaders DescribeResourcePermissions where
toHeaders DescribeResourcePermissions'{..}
= mconcat
["Authentication" =# _drpAuthenticationToken,
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)]
instance ToPath DescribeResourcePermissions where
toPath DescribeResourcePermissions'{..}
= mconcat
["/api/v1/resources/", toBS _drpResourceId,
"/permissions"]
instance ToQuery DescribeResourcePermissions where
toQuery DescribeResourcePermissions'{..}
= mconcat
["principalId" =: _drpPrincipalId,
"marker" =: _drpMarker, "limit" =: _drpLimit]
data DescribeResourcePermissionsResponse = DescribeResourcePermissionsResponse'
{ _drprsPrincipals :: !(Maybe [Principal])
, _drprsMarker :: !(Maybe Text)
, _drprsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeResourcePermissionsResponse
:: Int
-> DescribeResourcePermissionsResponse
describeResourcePermissionsResponse pResponseStatus_ =
DescribeResourcePermissionsResponse'
{ _drprsPrincipals = Nothing
, _drprsMarker = Nothing
, _drprsResponseStatus = pResponseStatus_
}
drprsPrincipals :: Lens' DescribeResourcePermissionsResponse [Principal]
drprsPrincipals = lens _drprsPrincipals (\ s a -> s{_drprsPrincipals = a}) . _Default . _Coerce
drprsMarker :: Lens' DescribeResourcePermissionsResponse (Maybe Text)
drprsMarker = lens _drprsMarker (\ s a -> s{_drprsMarker = a})
drprsResponseStatus :: Lens' DescribeResourcePermissionsResponse Int
drprsResponseStatus = lens _drprsResponseStatus (\ s a -> s{_drprsResponseStatus = a})
instance NFData DescribeResourcePermissionsResponse
where