module Network.Google.Resource.AndroidPublisher.Entitlements.List
(
EntitlementsListResource
, entitlementsList
, EntitlementsList
, elPackageName
, elToken
, elStartIndex
, elProductId
, elMaxResults
) where
import Network.Google.AndroidPublisher.Types
import Network.Google.Prelude
type EntitlementsListResource =
"androidpublisher" :>
"v2" :>
"applications" :>
Capture "packageName" Text :>
"entitlements" :>
QueryParam "token" Text :>
QueryParam "startIndex" (Textual Word32) :>
QueryParam "productId" Text :>
QueryParam "maxResults" (Textual Word32) :>
QueryParam "alt" AltJSON :>
Get '[JSON] EntitlementsListResponse
data EntitlementsList = EntitlementsList'
{ _elPackageName :: !Text
, _elToken :: !(Maybe Text)
, _elStartIndex :: !(Maybe (Textual Word32))
, _elProductId :: !(Maybe Text)
, _elMaxResults :: !(Maybe (Textual Word32))
} deriving (Eq,Show,Data,Typeable,Generic)
entitlementsList
:: Text
-> EntitlementsList
entitlementsList pElPackageName_ =
EntitlementsList'
{ _elPackageName = pElPackageName_
, _elToken = Nothing
, _elStartIndex = Nothing
, _elProductId = Nothing
, _elMaxResults = Nothing
}
elPackageName :: Lens' EntitlementsList Text
elPackageName
= lens _elPackageName
(\ s a -> s{_elPackageName = a})
elToken :: Lens' EntitlementsList (Maybe Text)
elToken = lens _elToken (\ s a -> s{_elToken = a})
elStartIndex :: Lens' EntitlementsList (Maybe Word32)
elStartIndex
= lens _elStartIndex (\ s a -> s{_elStartIndex = a})
. mapping _Coerce
elProductId :: Lens' EntitlementsList (Maybe Text)
elProductId
= lens _elProductId (\ s a -> s{_elProductId = a})
elMaxResults :: Lens' EntitlementsList (Maybe Word32)
elMaxResults
= lens _elMaxResults (\ s a -> s{_elMaxResults = a})
. mapping _Coerce
instance GoogleRequest EntitlementsList where
type Rs EntitlementsList = EntitlementsListResponse
type Scopes EntitlementsList = '[]
requestClient EntitlementsList'{..}
= go _elPackageName _elToken _elStartIndex
_elProductId
_elMaxResults
(Just AltJSON)
androidPublisherService
where go
= buildClient
(Proxy :: Proxy EntitlementsListResource)
mempty