{-# 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.Drives.List
(
DrivesListResource
, drivesList
, DrivesList
, dlQ
, dlPageToken
, dlUseDomainAdminAccess
, dlPageSize
) where
import Network.Google.Drive.Types
import Network.Google.Prelude
type DrivesListResource =
"drive" :>
"v3" :>
"drives" :>
QueryParam "q" Text :>
QueryParam "pageToken" Text :>
QueryParam "useDomainAdminAccess" Bool :>
QueryParam "pageSize" (Textual Int32) :>
QueryParam "alt" AltJSON :> Get '[JSON] DriveList
data DrivesList =
DrivesList'
{ _dlQ :: !(Maybe Text)
, _dlPageToken :: !(Maybe Text)
, _dlUseDomainAdminAccess :: !Bool
, _dlPageSize :: !(Textual Int32)
}
deriving (Eq, Show, Data, Typeable, Generic)
drivesList
:: DrivesList
drivesList =
DrivesList'
{ _dlQ = Nothing
, _dlPageToken = Nothing
, _dlUseDomainAdminAccess = False
, _dlPageSize = 10
}
dlQ :: Lens' DrivesList (Maybe Text)
dlQ = lens _dlQ (\ s a -> s{_dlQ = a})
dlPageToken :: Lens' DrivesList (Maybe Text)
dlPageToken
= lens _dlPageToken (\ s a -> s{_dlPageToken = a})
dlUseDomainAdminAccess :: Lens' DrivesList Bool
dlUseDomainAdminAccess
= lens _dlUseDomainAdminAccess
(\ s a -> s{_dlUseDomainAdminAccess = a})
dlPageSize :: Lens' DrivesList Int32
dlPageSize
= lens _dlPageSize (\ s a -> s{_dlPageSize = a}) .
_Coerce
instance GoogleRequest DrivesList where
type Rs DrivesList = DriveList
type Scopes DrivesList =
'["https://www.googleapis.com/auth/drive",
"https://www.googleapis.com/auth/drive.readonly"]
requestClient DrivesList'{..}
= go _dlQ _dlPageToken (Just _dlUseDomainAdminAccess)
(Just _dlPageSize)
(Just AltJSON)
driveService
where go
= buildClient (Proxy :: Proxy DrivesListResource)
mempty