{-# 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.DFAReporting.Countries.Get -- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- -- Gets one country by ID. -- -- /See:/ for @dfareporting.countries.get@. module Network.Google.Resource.DFAReporting.Countries.Get ( -- * REST Resource CountriesGetResource -- * Creating a Request , countriesGet , CountriesGet -- * Request Lenses , cgProFileId , cgDartId ) where import Network.Google.DFAReporting.Types import Network.Google.Prelude -- | A resource alias for @dfareporting.countries.get@ method which the -- 'CountriesGet' request conforms to. type CountriesGetResource = "dfareporting" :> "v3.2" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "countries" :> Capture "dartId" (Textual Int64) :> QueryParam "alt" AltJSON :> Get '[JSON] Country -- | Gets one country by ID. -- -- /See:/ 'countriesGet' smart constructor. data CountriesGet = CountriesGet' { _cgProFileId :: !(Textual Int64) , _cgDartId :: !(Textual Int64) } deriving (Eq,Show,Data,Typeable,Generic) -- | Creates a value of 'CountriesGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'cgProFileId' -- -- * 'cgDartId' countriesGet :: Int64 -- ^ 'cgProFileId' -> Int64 -- ^ 'cgDartId' -> CountriesGet countriesGet pCgProFileId_ pCgDartId_ = CountriesGet' { _cgProFileId = _Coerce # pCgProFileId_ , _cgDartId = _Coerce # pCgDartId_ } -- | User profile ID associated with this request. cgProFileId :: Lens' CountriesGet Int64 cgProFileId = lens _cgProFileId (\ s a -> s{_cgProFileId = a}) . _Coerce -- | Country DART ID. cgDartId :: Lens' CountriesGet Int64 cgDartId = lens _cgDartId (\ s a -> s{_cgDartId = a}) . _Coerce instance GoogleRequest CountriesGet where type Rs CountriesGet = Country type Scopes CountriesGet = '["https://www.googleapis.com/auth/dfatrafficking"] requestClient CountriesGet'{..} = go _cgProFileId _cgDartId (Just AltJSON) dFAReportingService where go = buildClient (Proxy :: Proxy CountriesGetResource) mempty