module Network.Google.Resource.Analytics.Management.ProFileFilterLinks.Insert
(
ManagementProFileFilterLinksInsertResource
, managementProFileFilterLinksInsert
, ManagementProFileFilterLinksInsert
, mpffliWebPropertyId
, mpffliProFileId
, mpffliPayload
, mpffliAccountId
) where
import Network.Google.Analytics.Types
import Network.Google.Prelude
type ManagementProFileFilterLinksInsertResource =
"analytics" :>
"v3" :>
"management" :>
"accounts" :>
Capture "accountId" Text :>
"webproperties" :>
Capture "webPropertyId" Text :>
"profiles" :>
Capture "profileId" Text :>
"profileFilterLinks" :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] ProFileFilterLink :>
Post '[JSON] ProFileFilterLink
data ManagementProFileFilterLinksInsert = ManagementProFileFilterLinksInsert
{ _mpffliWebPropertyId :: !Text
, _mpffliProFileId :: !Text
, _mpffliPayload :: !ProFileFilterLink
, _mpffliAccountId :: !Text
} deriving (Eq,Show,Data,Typeable,Generic)
managementProFileFilterLinksInsert
:: Text
-> Text
-> ProFileFilterLink
-> Text
-> ManagementProFileFilterLinksInsert
managementProFileFilterLinksInsert pMpffliWebPropertyId_ pMpffliProFileId_ pMpffliPayload_ pMpffliAccountId_ =
ManagementProFileFilterLinksInsert
{ _mpffliWebPropertyId = pMpffliWebPropertyId_
, _mpffliProFileId = pMpffliProFileId_
, _mpffliPayload = pMpffliPayload_
, _mpffliAccountId = pMpffliAccountId_
}
mpffliWebPropertyId :: Lens' ManagementProFileFilterLinksInsert Text
mpffliWebPropertyId
= lens _mpffliWebPropertyId
(\ s a -> s{_mpffliWebPropertyId = a})
mpffliProFileId :: Lens' ManagementProFileFilterLinksInsert Text
mpffliProFileId
= lens _mpffliProFileId
(\ s a -> s{_mpffliProFileId = a})
mpffliPayload :: Lens' ManagementProFileFilterLinksInsert ProFileFilterLink
mpffliPayload
= lens _mpffliPayload
(\ s a -> s{_mpffliPayload = a})
mpffliAccountId :: Lens' ManagementProFileFilterLinksInsert Text
mpffliAccountId
= lens _mpffliAccountId
(\ s a -> s{_mpffliAccountId = a})
instance GoogleRequest
ManagementProFileFilterLinksInsert where
type Rs ManagementProFileFilterLinksInsert =
ProFileFilterLink
requestClient ManagementProFileFilterLinksInsert{..}
= go _mpffliAccountId _mpffliWebPropertyId
_mpffliProFileId
(Just AltJSON)
_mpffliPayload
analyticsService
where go
= buildClient
(Proxy ::
Proxy ManagementProFileFilterLinksInsertResource)
mempty