{-# 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.DoubleClickBidManager.Lineitems.Downloadlineitems
(
LineitemsDownloadlineitemsResource
, lineitemsDownloadlineitems
, LineitemsDownloadlineitems
, ldPayload
) where
import Network.Google.DoubleClickBids.Types
import Network.Google.Prelude
type LineitemsDownloadlineitemsResource =
"doubleclickbidmanager" :>
"v1" :>
"lineitems" :>
"downloadlineitems" :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] DownloadLineItemsRequest :>
Post '[JSON] DownloadLineItemsResponse
newtype LineitemsDownloadlineitems = LineitemsDownloadlineitems'
{ _ldPayload :: DownloadLineItemsRequest
} deriving (Eq,Show,Data,Typeable,Generic)
lineitemsDownloadlineitems
:: DownloadLineItemsRequest
-> LineitemsDownloadlineitems
lineitemsDownloadlineitems pLdPayload_ =
LineitemsDownloadlineitems'
{ _ldPayload = pLdPayload_
}
ldPayload :: Lens' LineitemsDownloadlineitems DownloadLineItemsRequest
ldPayload
= lens _ldPayload (\ s a -> s{_ldPayload = a})
instance GoogleRequest LineitemsDownloadlineitems
where
type Rs LineitemsDownloadlineitems =
DownloadLineItemsResponse
type Scopes LineitemsDownloadlineitems =
'["https://www.googleapis.com/auth/doubleclickbidmanager"]
requestClient LineitemsDownloadlineitems'{..}
= go (Just AltJSON) _ldPayload doubleClickBidsService
where go
= buildClient
(Proxy :: Proxy LineitemsDownloadlineitemsResource)
mempty