{-# 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.Update
(
StorelayoutpagesUpdateResource
, storelayoutpagesUpdate
, StorelayoutpagesUpdate
, suEnterpriseId
, suPageId
, suPayload
) where
import Network.Google.AndroidEnterprise.Types
import Network.Google.Prelude
type StorelayoutpagesUpdateResource =
"androidenterprise" :>
"v1" :>
"enterprises" :>
Capture "enterpriseId" Text :>
"storeLayout" :>
"pages" :>
Capture "pageId" Text :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] StorePage :> Put '[JSON] StorePage
data StorelayoutpagesUpdate = StorelayoutpagesUpdate'
{ _suEnterpriseId :: !Text
, _suPageId :: !Text
, _suPayload :: !StorePage
} deriving (Eq,Show,Data,Typeable,Generic)
storelayoutpagesUpdate
:: Text
-> Text
-> StorePage
-> StorelayoutpagesUpdate
storelayoutpagesUpdate pSuEnterpriseId_ pSuPageId_ pSuPayload_ =
StorelayoutpagesUpdate'
{ _suEnterpriseId = pSuEnterpriseId_
, _suPageId = pSuPageId_
, _suPayload = pSuPayload_
}
suEnterpriseId :: Lens' StorelayoutpagesUpdate Text
suEnterpriseId
= lens _suEnterpriseId
(\ s a -> s{_suEnterpriseId = a})
suPageId :: Lens' StorelayoutpagesUpdate Text
suPageId = lens _suPageId (\ s a -> s{_suPageId = a})
suPayload :: Lens' StorelayoutpagesUpdate StorePage
suPayload
= lens _suPayload (\ s a -> s{_suPayload = a})
instance GoogleRequest StorelayoutpagesUpdate where
type Rs StorelayoutpagesUpdate = StorePage
type Scopes StorelayoutpagesUpdate =
'["https://www.googleapis.com/auth/androidenterprise"]
requestClient StorelayoutpagesUpdate'{..}
= go _suEnterpriseId _suPageId (Just AltJSON)
_suPayload
androidEnterpriseService
where go
= buildClient
(Proxy :: Proxy StorelayoutpagesUpdateResource)
mempty