{-# 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.Directory.Notifications.Delete
(
NotificationsDeleteResource
, notificationsDelete
, NotificationsDelete
, ndCustomer
, ndNotificationId
) where
import Network.Google.Directory.Types
import Network.Google.Prelude
type NotificationsDeleteResource =
"admin" :>
"directory" :>
"v1" :>
"customer" :>
Capture "customer" Text :>
"notifications" :>
Capture "notificationId" Text :>
QueryParam "alt" AltJSON :> Delete '[JSON] ()
data NotificationsDelete = NotificationsDelete'
{ _ndCustomer :: !Text
, _ndNotificationId :: !Text
} deriving (Eq,Show,Data,Typeable,Generic)
notificationsDelete
:: Text
-> Text
-> NotificationsDelete
notificationsDelete pNdCustomer_ pNdNotificationId_ =
NotificationsDelete'
{ _ndCustomer = pNdCustomer_
, _ndNotificationId = pNdNotificationId_
}
ndCustomer :: Lens' NotificationsDelete Text
ndCustomer
= lens _ndCustomer (\ s a -> s{_ndCustomer = a})
ndNotificationId :: Lens' NotificationsDelete Text
ndNotificationId
= lens _ndNotificationId
(\ s a -> s{_ndNotificationId = a})
instance GoogleRequest NotificationsDelete where
type Rs NotificationsDelete = ()
type Scopes NotificationsDelete =
'["https://www.googleapis.com/auth/admin.directory.notifications"]
requestClient NotificationsDelete'{..}
= go _ndCustomer _ndNotificationId (Just AltJSON)
directoryService
where go
= buildClient
(Proxy :: Proxy NotificationsDeleteResource)
mempty