{-# 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.AndroidPublisher.Edits.Testers.Patch
(
EditsTestersPatchResource
, editsTestersPatch
, EditsTestersPatch
, etpTrack
, etpPackageName
, etpPayload
, etpEditId
) where
import Network.Google.AndroidPublisher.Types
import Network.Google.Prelude
type EditsTestersPatchResource =
"androidpublisher" :>
"v3" :>
"applications" :>
Capture "packageName" Text :>
"edits" :>
Capture "editId" Text :>
"testers" :>
Capture "track" Text :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] Testers :> Patch '[JSON] Testers
data EditsTestersPatch = EditsTestersPatch'
{ _etpTrack :: !Text
, _etpPackageName :: !Text
, _etpPayload :: !Testers
, _etpEditId :: !Text
} deriving (Eq,Show,Data,Typeable,Generic)
editsTestersPatch
:: Text
-> Text
-> Testers
-> Text
-> EditsTestersPatch
editsTestersPatch pEtpTrack_ pEtpPackageName_ pEtpPayload_ pEtpEditId_ =
EditsTestersPatch'
{ _etpTrack = pEtpTrack_
, _etpPackageName = pEtpPackageName_
, _etpPayload = pEtpPayload_
, _etpEditId = pEtpEditId_
}
etpTrack :: Lens' EditsTestersPatch Text
etpTrack = lens _etpTrack (\ s a -> s{_etpTrack = a})
etpPackageName :: Lens' EditsTestersPatch Text
etpPackageName
= lens _etpPackageName
(\ s a -> s{_etpPackageName = a})
etpPayload :: Lens' EditsTestersPatch Testers
etpPayload
= lens _etpPayload (\ s a -> s{_etpPayload = a})
etpEditId :: Lens' EditsTestersPatch Text
etpEditId
= lens _etpEditId (\ s a -> s{_etpEditId = a})
instance GoogleRequest EditsTestersPatch where
type Rs EditsTestersPatch = Testers
type Scopes EditsTestersPatch =
'["https://www.googleapis.com/auth/androidpublisher"]
requestClient EditsTestersPatch'{..}
= go _etpPackageName _etpEditId _etpTrack
(Just AltJSON)
_etpPayload
androidPublisherService
where go
= buildClient
(Proxy :: Proxy EditsTestersPatchResource)
mempty