{-# 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.Get
(
DrivesGetResource
, drivesGet
, DrivesGet
, dgUseDomainAdminAccess
, dgDriveId
) where
import Network.Google.Drive.Types
import Network.Google.Prelude
type DrivesGetResource =
"drive" :>
"v3" :>
"drives" :>
Capture "driveId" Text :>
QueryParam "useDomainAdminAccess" Bool :>
QueryParam "alt" AltJSON :> Get '[JSON] Drive
data DrivesGet =
DrivesGet'
{ _dgUseDomainAdminAccess :: !Bool
, _dgDriveId :: !Text
}
deriving (Eq, Show, Data, Typeable, Generic)
drivesGet
:: Text
-> DrivesGet
drivesGet pDgDriveId_ =
DrivesGet' {_dgUseDomainAdminAccess = False, _dgDriveId = pDgDriveId_}
dgUseDomainAdminAccess :: Lens' DrivesGet Bool
dgUseDomainAdminAccess
= lens _dgUseDomainAdminAccess
(\ s a -> s{_dgUseDomainAdminAccess = a})
dgDriveId :: Lens' DrivesGet Text
dgDriveId
= lens _dgDriveId (\ s a -> s{_dgDriveId = a})
instance GoogleRequest DrivesGet where
type Rs DrivesGet = Drive
type Scopes DrivesGet =
'["https://www.googleapis.com/auth/drive",
"https://www.googleapis.com/auth/drive.readonly"]
requestClient DrivesGet'{..}
= go _dgDriveId (Just _dgUseDomainAdminAccess)
(Just AltJSON)
driveService
where go
= buildClient (Proxy :: Proxy DrivesGetResource)
mempty