{-# 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.AndroidEnterprise.WebApps.List
(
WebAppsListResource
, webAppsList
, WebAppsList
, walEnterpriseId
) where
import Network.Google.AndroidEnterprise.Types
import Network.Google.Prelude
type WebAppsListResource =
"androidenterprise" :>
"v1" :>
"enterprises" :>
Capture "enterpriseId" Text :>
"webApps" :>
QueryParam "alt" AltJSON :>
Get '[JSON] WebAppsListResponse
newtype WebAppsList = WebAppsList'
{ _walEnterpriseId :: Text
} deriving (Eq,Show,Data,Typeable,Generic)
webAppsList
:: Text
-> WebAppsList
webAppsList pWalEnterpriseId_ =
WebAppsList'
{ _walEnterpriseId = pWalEnterpriseId_
}
walEnterpriseId :: Lens' WebAppsList Text
walEnterpriseId
= lens _walEnterpriseId
(\ s a -> s{_walEnterpriseId = a})
instance GoogleRequest WebAppsList where
type Rs WebAppsList = WebAppsListResponse
type Scopes WebAppsList =
'["https://www.googleapis.com/auth/androidenterprise"]
requestClient WebAppsList'{..}
= go _walEnterpriseId (Just AltJSON)
androidEnterpriseService
where go
= buildClient (Proxy :: Proxy WebAppsListResource)
mempty