{-# 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.Storelayoutpages.Patch
(
StorelayoutpagesPatchResource
, storelayoutpagesPatch
, StorelayoutpagesPatch
, spEnterpriseId
, spPageId
, spPayload
) where
import Network.Google.AndroidEnterprise.Types
import Network.Google.Prelude
type StorelayoutpagesPatchResource =
"androidenterprise" :>
"v1" :>
"enterprises" :>
Capture "enterpriseId" Text :>
"storeLayout" :>
"pages" :>
Capture "pageId" Text :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] StorePage :> Patch '[JSON] StorePage
data StorelayoutpagesPatch = StorelayoutpagesPatch'
{ _spEnterpriseId :: !Text
, _spPageId :: !Text
, _spPayload :: !StorePage
} deriving (Eq,Show,Data,Typeable,Generic)
storelayoutpagesPatch
:: Text
-> Text
-> StorePage
-> StorelayoutpagesPatch
storelayoutpagesPatch pSpEnterpriseId_ pSpPageId_ pSpPayload_ =
StorelayoutpagesPatch'
{ _spEnterpriseId = pSpEnterpriseId_
, _spPageId = pSpPageId_
, _spPayload = pSpPayload_
}
spEnterpriseId :: Lens' StorelayoutpagesPatch Text
spEnterpriseId
= lens _spEnterpriseId
(\ s a -> s{_spEnterpriseId = a})
spPageId :: Lens' StorelayoutpagesPatch Text
spPageId = lens _spPageId (\ s a -> s{_spPageId = a})
spPayload :: Lens' StorelayoutpagesPatch StorePage
spPayload
= lens _spPayload (\ s a -> s{_spPayload = a})
instance GoogleRequest StorelayoutpagesPatch where
type Rs StorelayoutpagesPatch = StorePage
type Scopes StorelayoutpagesPatch =
'["https://www.googleapis.com/auth/androidenterprise"]
requestClient StorelayoutpagesPatch'{..}
= go _spEnterpriseId _spPageId (Just AltJSON)
_spPayload
androidEnterpriseService
where go
= buildClient
(Proxy :: Proxy StorelayoutpagesPatchResource)
mempty