{-# 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.Reports.Listreports
(
ReportsListreportsResource
, reportsListreports
, ReportsListreports
, rlQueryId
) where
import Network.Google.DoubleClickBids.Types
import Network.Google.Prelude
type ReportsListreportsResource =
"doubleclickbidmanager" :>
"v1" :>
"queries" :>
Capture "queryId" (Textual Int64) :>
"reports" :>
QueryParam "alt" AltJSON :>
Get '[JSON] ListReportsResponse
newtype ReportsListreports = ReportsListreports'
{ _rlQueryId :: Textual Int64
} deriving (Eq,Show,Data,Typeable,Generic)
reportsListreports
:: Int64
-> ReportsListreports
reportsListreports pRlQueryId_ =
ReportsListreports'
{ _rlQueryId = _Coerce # pRlQueryId_
}
rlQueryId :: Lens' ReportsListreports Int64
rlQueryId
= lens _rlQueryId (\ s a -> s{_rlQueryId = a}) .
_Coerce
instance GoogleRequest ReportsListreports where
type Rs ReportsListreports = ListReportsResponse
type Scopes ReportsListreports =
'["https://www.googleapis.com/auth/doubleclickbidmanager"]
requestClient ReportsListreports'{..}
= go _rlQueryId (Just AltJSON) doubleClickBidsService
where go
= buildClient
(Proxy :: Proxy ReportsListreportsResource)
mempty