module Network.Google.Resource.AppEngine.Apps.Modules.Get
(
AppsModulesGetResource
, appsModulesGet
, AppsModulesGet
, amgXgafv
, amgUploadProtocol
, amgPp
, amgAccessToken
, amgUploadType
, amgModulesId
, amgBearerToken
, amgAppsId
, amgCallback
) where
import Network.Google.AppEngine.Types
import Network.Google.Prelude
type AppsModulesGetResource =
"v1beta4" :>
"apps" :>
Capture "appsId" Text :>
"modules" :>
Capture "modulesId" Text :>
QueryParam "$.xgafv" Text :>
QueryParam "upload_protocol" Text :>
QueryParam "pp" Bool :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "bearer_token" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :> Get '[JSON] Module
data AppsModulesGet = AppsModulesGet
{ _amgXgafv :: !(Maybe Text)
, _amgUploadProtocol :: !(Maybe Text)
, _amgPp :: !Bool
, _amgAccessToken :: !(Maybe Text)
, _amgUploadType :: !(Maybe Text)
, _amgModulesId :: !Text
, _amgBearerToken :: !(Maybe Text)
, _amgAppsId :: !Text
, _amgCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
appsModulesGet
:: Text
-> Text
-> AppsModulesGet
appsModulesGet pAmgModulesId_ pAmgAppsId_ =
AppsModulesGet
{ _amgXgafv = Nothing
, _amgUploadProtocol = Nothing
, _amgPp = True
, _amgAccessToken = Nothing
, _amgUploadType = Nothing
, _amgModulesId = pAmgModulesId_
, _amgBearerToken = Nothing
, _amgAppsId = pAmgAppsId_
, _amgCallback = Nothing
}
amgXgafv :: Lens' AppsModulesGet (Maybe Text)
amgXgafv = lens _amgXgafv (\ s a -> s{_amgXgafv = a})
amgUploadProtocol :: Lens' AppsModulesGet (Maybe Text)
amgUploadProtocol
= lens _amgUploadProtocol
(\ s a -> s{_amgUploadProtocol = a})
amgPp :: Lens' AppsModulesGet Bool
amgPp = lens _amgPp (\ s a -> s{_amgPp = a})
amgAccessToken :: Lens' AppsModulesGet (Maybe Text)
amgAccessToken
= lens _amgAccessToken
(\ s a -> s{_amgAccessToken = a})
amgUploadType :: Lens' AppsModulesGet (Maybe Text)
amgUploadType
= lens _amgUploadType
(\ s a -> s{_amgUploadType = a})
amgModulesId :: Lens' AppsModulesGet Text
amgModulesId
= lens _amgModulesId (\ s a -> s{_amgModulesId = a})
amgBearerToken :: Lens' AppsModulesGet (Maybe Text)
amgBearerToken
= lens _amgBearerToken
(\ s a -> s{_amgBearerToken = a})
amgAppsId :: Lens' AppsModulesGet Text
amgAppsId
= lens _amgAppsId (\ s a -> s{_amgAppsId = a})
amgCallback :: Lens' AppsModulesGet (Maybe Text)
amgCallback
= lens _amgCallback (\ s a -> s{_amgCallback = a})
instance GoogleRequest AppsModulesGet where
type Rs AppsModulesGet = Module
requestClient AppsModulesGet{..}
= go _amgAppsId _amgModulesId _amgXgafv
_amgUploadProtocol
(Just _amgPp)
_amgAccessToken
_amgUploadType
_amgBearerToken
_amgCallback
(Just AltJSON)
appEngineService
where go
= buildClient (Proxy :: Proxy AppsModulesGetResource)
mempty