module Network.Google.Resource.Directory.Resources.Calendars.List
(
ResourcesCalendarsListResource
, resourcesCalendarsList
, ResourcesCalendarsList
, rclCustomer
, rclPageToken
, rclMaxResults
) where
import Network.Google.Directory.Types
import Network.Google.Prelude
type ResourcesCalendarsListResource =
"admin" :>
"directory" :>
"v1" :>
"customer" :>
Capture "customer" Text :>
"resources" :>
"calendars" :>
QueryParam "pageToken" Text :>
QueryParam "maxResults" (Textual Int32) :>
QueryParam "alt" AltJSON :>
Get '[JSON] CalendarResources
data ResourcesCalendarsList = ResourcesCalendarsList'
{ _rclCustomer :: !Text
, _rclPageToken :: !(Maybe Text)
, _rclMaxResults :: !(Maybe (Textual Int32))
} deriving (Eq,Show,Data,Typeable,Generic)
resourcesCalendarsList
:: Text
-> ResourcesCalendarsList
resourcesCalendarsList pRclCustomer_ =
ResourcesCalendarsList'
{ _rclCustomer = pRclCustomer_
, _rclPageToken = Nothing
, _rclMaxResults = Nothing
}
rclCustomer :: Lens' ResourcesCalendarsList Text
rclCustomer
= lens _rclCustomer (\ s a -> s{_rclCustomer = a})
rclPageToken :: Lens' ResourcesCalendarsList (Maybe Text)
rclPageToken
= lens _rclPageToken (\ s a -> s{_rclPageToken = a})
rclMaxResults :: Lens' ResourcesCalendarsList (Maybe Int32)
rclMaxResults
= lens _rclMaxResults
(\ s a -> s{_rclMaxResults = a})
. mapping _Coerce
instance GoogleRequest ResourcesCalendarsList where
type Rs ResourcesCalendarsList = CalendarResources
type Scopes ResourcesCalendarsList =
'["https://www.googleapis.com/auth/admin.directory.resource.calendar",
"https://www.googleapis.com/auth/admin.directory.resource.calendar.readonly"]
requestClient ResourcesCalendarsList'{..}
= go _rclCustomer _rclPageToken _rclMaxResults
(Just AltJSON)
directoryService
where go
= buildClient
(Proxy :: Proxy ResourcesCalendarsListResource)
mempty