diff --git a/gen/Network/Google/AdSense.hs b/gen/Network/Google/AdSense.hs --- a/gen/Network/Google/AdSense.hs +++ b/gen/Network/Google/AdSense.hs @@ -31,6 +31,9 @@ -- * Resources + -- ** adsense.accounts.adclients.getAdCode + , module Network.Google.Resource.AdSense.Accounts.AdClients.GetAdCode + -- ** adsense.accounts.adclients.list , module Network.Google.Resource.AdSense.Accounts.AdClients.List @@ -375,6 +378,8 @@ , AdCode , adCode , addKind + , addAmpHead + , addAmpBody , addAdCode -- ** AdsenseReportsGenerateResponse @@ -406,6 +411,7 @@ import Network.Google.AdSense.Types import Network.Google.Prelude +import Network.Google.Resource.AdSense.Accounts.AdClients.GetAdCode import Network.Google.Resource.AdSense.Accounts.AdClients.List import Network.Google.Resource.AdSense.Accounts.AdUnits.CustomChannels.List import Network.Google.Resource.AdSense.Accounts.AdUnits.Get @@ -453,6 +459,7 @@ type AdSenseAPI = AdClientsListResource :<|> AccountsAdClientsListResource + :<|> AccountsAdClientsGetAdCodeResource :<|> AccountsReportsSavedListResource :<|> AccountsReportsSavedGenerateResource :<|> AccountsReportsGenerateResource diff --git a/gen/Network/Google/AdSense/Types.hs b/gen/Network/Google/AdSense/Types.hs --- a/gen/Network/Google/AdSense/Types.hs +++ b/gen/Network/Google/AdSense/Types.hs @@ -251,6 +251,8 @@ , AdCode , adCode , addKind + , addAmpHead + , addAmpBody , addAdCode -- * AdsenseReportsGenerateResponse diff --git a/gen/Network/Google/AdSense/Types/Product.hs b/gen/Network/Google/AdSense/Types/Product.hs --- a/gen/Network/Google/AdSense/Types/Product.hs +++ b/gen/Network/Google/AdSense/Types/Product.hs @@ -2017,8 +2017,10 @@ -- -- /See:/ 'adCode' smart constructor. data AdCode = AdCode' - { _addKind :: !Text - , _addAdCode :: !(Maybe Text) + { _addKind :: !Text + , _addAmpHead :: !(Maybe Text) + , _addAmpBody :: !(Maybe Text) + , _addAdCode :: !(Maybe Text) } deriving (Eq,Show,Data,Typeable,Generic) -- | Creates a value of 'AdCode' with the minimum fields required to make a request. @@ -2027,12 +2029,18 @@ -- -- * 'addKind' -- +-- * 'addAmpHead' +-- +-- * 'addAmpBody' +-- -- * 'addAdCode' adCode :: AdCode adCode = AdCode' { _addKind = "adsense#adCode" + , _addAmpHead = Nothing + , _addAmpBody = Nothing , _addAdCode = Nothing } @@ -2040,7 +2048,17 @@ addKind :: Lens' AdCode Text addKind = lens _addKind (\ s a -> s{_addKind = a}) --- | The ad code snippet. +-- | The AMP Auto ad code snippet that goes in the head of an AMP page. +addAmpHead :: Lens' AdCode (Maybe Text) +addAmpHead + = lens _addAmpHead (\ s a -> s{_addAmpHead = a}) + +-- | The AMP Auto ad code snippet that goes in the body of an AMP page. +addAmpBody :: Lens' AdCode (Maybe Text) +addAmpBody + = lens _addAmpBody (\ s a -> s{_addAmpBody = a}) + +-- | The Auto ad code snippet. The ad code snippet. addAdCode :: Lens' AdCode (Maybe Text) addAdCode = lens _addAdCode (\ s a -> s{_addAdCode = a}) @@ -2051,13 +2069,17 @@ (\ o -> AdCode' <$> (o .:? "kind" .!= "adsense#adCode") <*> - (o .:? "adCode")) + (o .:? "ampHead") + <*> (o .:? "ampBody") + <*> (o .:? "adCode")) instance ToJSON AdCode where toJSON AdCode'{..} = object (catMaybes [Just ("kind" .= _addKind), + ("ampHead" .=) <$> _addAmpHead, + ("ampBody" .=) <$> _addAmpBody, ("adCode" .=) <$> _addAdCode]) -- diff --git a/gen/Network/Google/AdSense/Types/Sum.hs b/gen/Network/Google/AdSense/Types/Sum.hs --- a/gen/Network/Google/AdSense/Types/Sum.hs +++ b/gen/Network/Google/AdSense/Types/Sum.hs @@ -16,4 +16,4 @@ -- module Network.Google.AdSense.Types.Sum where -import Network.Google.Prelude +import Network.Google.Prelude hiding (Bytes) diff --git a/gen/Network/Google/Resource/AdSense/Accounts/AdClients/GetAdCode.hs b/gen/Network/Google/Resource/AdSense/Accounts/AdClients/GetAdCode.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/AdSense/Accounts/AdClients/GetAdCode.hs @@ -0,0 +1,105 @@ +{-# 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.AdSense.Accounts.AdClients.GetAdCode +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Get Auto ad code for a given ad client. +-- +-- /See:/ for @adsense.accounts.adclients.getAdCode@. +module Network.Google.Resource.AdSense.Accounts.AdClients.GetAdCode + ( + -- * REST Resource + AccountsAdClientsGetAdCodeResource + + -- * Creating a Request + , accountsAdClientsGetAdCode + , AccountsAdClientsGetAdCode + + -- * Request Lenses + , aacgacAdClientId + , aacgacAccountId + ) where + +import Network.Google.AdSense.Types +import Network.Google.Prelude + +-- | A resource alias for @adsense.accounts.adclients.getAdCode@ method which the +-- 'AccountsAdClientsGetAdCode' request conforms to. +type AccountsAdClientsGetAdCodeResource = + "adsense" :> + "v1.4" :> + "accounts" :> + Capture "accountId" Text :> + "adclients" :> + Capture "adClientId" Text :> + "adcode" :> + QueryParam "alt" AltJSON :> Get '[JSON] AdCode + +-- | Get Auto ad code for a given ad client. +-- +-- /See:/ 'accountsAdClientsGetAdCode' smart constructor. +data AccountsAdClientsGetAdCode = AccountsAdClientsGetAdCode' + { _aacgacAdClientId :: !Text + , _aacgacAccountId :: !Text + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'AccountsAdClientsGetAdCode' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'aacgacAdClientId' +-- +-- * 'aacgacAccountId' +accountsAdClientsGetAdCode + :: Text -- ^ 'aacgacAdClientId' + -> Text -- ^ 'aacgacAccountId' + -> AccountsAdClientsGetAdCode +accountsAdClientsGetAdCode pAacgacAdClientId_ pAacgacAccountId_ = + AccountsAdClientsGetAdCode' + { _aacgacAdClientId = pAacgacAdClientId_ + , _aacgacAccountId = pAacgacAccountId_ + } + +-- | Ad client to get the code for. +aacgacAdClientId :: Lens' AccountsAdClientsGetAdCode Text +aacgacAdClientId + = lens _aacgacAdClientId + (\ s a -> s{_aacgacAdClientId = a}) + +-- | Account which contains the ad client. +aacgacAccountId :: Lens' AccountsAdClientsGetAdCode Text +aacgacAccountId + = lens _aacgacAccountId + (\ s a -> s{_aacgacAccountId = a}) + +instance GoogleRequest AccountsAdClientsGetAdCode + where + type Rs AccountsAdClientsGetAdCode = AdCode + type Scopes AccountsAdClientsGetAdCode = + '["https://www.googleapis.com/auth/adsense", + "https://www.googleapis.com/auth/adsense.readonly"] + requestClient AccountsAdClientsGetAdCode'{..} + = go _aacgacAccountId _aacgacAdClientId + (Just AltJSON) + adSenseService + where go + = buildClient + (Proxy :: Proxy AccountsAdClientsGetAdCodeResource) + mempty diff --git a/gogol-adsense.cabal b/gogol-adsense.cabal --- a/gogol-adsense.cabal +++ b/gogol-adsense.cabal @@ -1,5 +1,5 @@ name: gogol-adsense -version: 0.3.0 +version: 0.4.0 synopsis: Google AdSense Management SDK. homepage: https://github.com/brendanhay/gogol bug-reports: https://github.com/brendanhay/gogol/issues @@ -36,6 +36,7 @@ exposed-modules: Network.Google.AdSense , Network.Google.AdSense.Types + , Network.Google.Resource.AdSense.Accounts.AdClients.GetAdCode , Network.Google.Resource.AdSense.Accounts.AdClients.List , Network.Google.Resource.AdSense.Accounts.AdUnits.CustomChannels.List , Network.Google.Resource.AdSense.Accounts.AdUnits.Get @@ -80,5 +81,5 @@ , Network.Google.AdSense.Types.Sum build-depends: - gogol-core == 0.3.0.* + gogol-core == 0.4.0.* , base >= 4.7 && < 5