{-# LANGUAGE DataKinds #-}
{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE TypeOperators #-}
{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module Network.Google.Resource.Drive.Permissions.List
(
PermissionsListResource
, permissionsList
, PermissionsList
, plFileId
) where
import Network.Google.Drive.Types
import Network.Google.Prelude
type PermissionsListResource =
"drive" :>
"v3" :>
"files" :>
Capture "fileId" Text :>
"permissions" :>
QueryParam "alt" AltJSON :>
Get '[JSON] PermissionList
-- | Lists a file\'s permissions.
--
-- /See:/ 'permissionsList' smart constructor.
newtype PermissionsList = PermissionsList'
{ _plFileId :: Text
} deriving (Eq,Show,Data,Typeable,Generic)
-- | Creates a value of 'PermissionsList' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'plFileId'
permissionsList
:: Text -- ^ 'plFileId'
-> PermissionsList
permissionsList pPlFileId_ =
PermissionsList'
{ _plFileId = pPlFileId_
}
-- | The ID of the file.
plFileId :: Lens' PermissionsList Text
plFileId = lens _plFileId (\ s a -> s{_plFileId = a})
instance GoogleRequest PermissionsList where
type Rs PermissionsList = PermissionList
type Scopes PermissionsList =
'["https://www.googleapis.com/auth/drive",
"https://www.googleapis.com/auth/drive.file",
"https://www.googleapis.com/auth/drive.metadata",
"https://www.googleapis.com/auth/drive.metadata.readonly",
"https://www.googleapis.com/auth/drive.photos.readonly",
"https://www.googleapis.com/auth/drive.readonly"]
requestClient PermissionsList'{..}
= go _plFileId (Just AltJSON) driveService
where go
= buildClient
(Proxy :: Proxy PermissionsListResource)
mempty