{-# 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.Storelayoutclusters.Get
(
StorelayoutclustersGetResource
, storelayoutclustersGet
, StorelayoutclustersGet
, stoEnterpriseId
, stoPageId
, stoClusterId
) where
import Network.Google.AndroidEnterprise.Types
import Network.Google.Prelude
type StorelayoutclustersGetResource =
"androidenterprise" :>
"v1" :>
"enterprises" :>
Capture "enterpriseId" Text :>
"storeLayout" :>
"pages" :>
Capture "pageId" Text :>
"clusters" :>
Capture "clusterId" Text :>
QueryParam "alt" AltJSON :> Get '[JSON] StoreCluster
data StorelayoutclustersGet = StorelayoutclustersGet'
{ _stoEnterpriseId :: !Text
, _stoPageId :: !Text
, _stoClusterId :: !Text
} deriving (Eq,Show,Data,Typeable,Generic)
storelayoutclustersGet
:: Text
-> Text
-> Text
-> StorelayoutclustersGet
storelayoutclustersGet pStoEnterpriseId_ pStoPageId_ pStoClusterId_ =
StorelayoutclustersGet'
{ _stoEnterpriseId = pStoEnterpriseId_
, _stoPageId = pStoPageId_
, _stoClusterId = pStoClusterId_
}
stoEnterpriseId :: Lens' StorelayoutclustersGet Text
stoEnterpriseId
= lens _stoEnterpriseId
(\ s a -> s{_stoEnterpriseId = a})
stoPageId :: Lens' StorelayoutclustersGet Text
stoPageId
= lens _stoPageId (\ s a -> s{_stoPageId = a})
stoClusterId :: Lens' StorelayoutclustersGet Text
stoClusterId
= lens _stoClusterId (\ s a -> s{_stoClusterId = a})
instance GoogleRequest StorelayoutclustersGet where
type Rs StorelayoutclustersGet = StoreCluster
type Scopes StorelayoutclustersGet =
'["https://www.googleapis.com/auth/androidenterprise"]
requestClient StorelayoutclustersGet'{..}
= go _stoEnterpriseId _stoPageId _stoClusterId
(Just AltJSON)
androidEnterpriseService
where go
= buildClient
(Proxy :: Proxy StorelayoutclustersGetResource)
mempty