{-# 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.Licensing.LicenseAssignments.Delete
(
LicenseAssignmentsDeleteResource
, licenseAssignmentsDelete
, LicenseAssignmentsDelete
, ladSKUId
, ladUserId
, ladProductId
) where
import Network.Google.AppsLicensing.Types
import Network.Google.Prelude
type LicenseAssignmentsDeleteResource =
"apps" :>
"licensing" :>
"v1" :>
"product" :>
Capture "productId" Text :>
"sku" :>
Capture "skuId" Text :>
"user" :>
Capture "userId" Text :>
QueryParam "alt" AltJSON :> Delete '[JSON] ()
data LicenseAssignmentsDelete = LicenseAssignmentsDelete'
{ _ladSKUId :: !Text
, _ladUserId :: !Text
, _ladProductId :: !Text
} deriving (Eq,Show,Data,Typeable,Generic)
licenseAssignmentsDelete
:: Text
-> Text
-> Text
-> LicenseAssignmentsDelete
licenseAssignmentsDelete pLadSKUId_ pLadUserId_ pLadProductId_ =
LicenseAssignmentsDelete'
{ _ladSKUId = pLadSKUId_
, _ladUserId = pLadUserId_
, _ladProductId = pLadProductId_
}
ladSKUId :: Lens' LicenseAssignmentsDelete Text
ladSKUId = lens _ladSKUId (\ s a -> s{_ladSKUId = a})
ladUserId :: Lens' LicenseAssignmentsDelete Text
ladUserId
= lens _ladUserId (\ s a -> s{_ladUserId = a})
ladProductId :: Lens' LicenseAssignmentsDelete Text
ladProductId
= lens _ladProductId (\ s a -> s{_ladProductId = a})
instance GoogleRequest LicenseAssignmentsDelete where
type Rs LicenseAssignmentsDelete = ()
type Scopes LicenseAssignmentsDelete =
'["https://www.googleapis.com/auth/apps.licensing"]
requestClient LicenseAssignmentsDelete'{..}
= go _ladProductId _ladSKUId _ladUserId
(Just AltJSON)
appsLicensingService
where go
= buildClient
(Proxy :: Proxy LicenseAssignmentsDeleteResource)
mempty