git.iko.soy/gogol

on develop help sign in

gogol-adexchange-buyer/gen/Network/Google/AdExchangeBuyer.hs+24−21

@@ -20,8 +20,11 @@

2020-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference>

2121module Network.Google.AdExchangeBuyer

2222 (

23+ -- * Service Configuration

24+ adExchangeBuyerService

25+

2326 -- * API Declaration

24− AdExchangeBuyerAPI

27+ , AdExchangeBuyerAPI

2528

2629 -- * Resources

2730

@@ -959,26 +962,26 @@ module Network.Google.AdExchangeBuyer

959962 -- ** MarketplaceOrder

960963 , MarketplaceOrder

961964 , marketplaceOrder

962− , marBuyerPrivateData

963− , marIsSetupComplete

964− , marBuyerContacts

965− , marKind

966− , marOriginatorRole

967− , marRevisionNumber

968− , marBilledBuyer

969− , marIsRenegotiating

970− , marHasSellerSignedOff

971− , marSeller

972− , marOrderState

973− , marName

974− , marSellerContacts

975− , marLastUpdaterRole

976− , marLabels

977− , marRevisionTimeMs

978− , marOrderId

979− , marLastUpdaterOrCommentorRole

980− , marHasBuyerSignedOff

981− , marBuyer

965+ , mBuyerPrivateData

966+ , mIsSetupComplete

967+ , mBuyerContacts

968+ , mKind

969+ , mOriginatorRole

970+ , mRevisionNumber

971+ , mBilledBuyer

972+ , mIsRenegotiating

973+ , mHasSellerSignedOff

974+ , mSeller

975+ , mOrderState

976+ , mName

977+ , mSellerContacts

978+ , mLastUpdaterRole

979+ , mLabels

980+ , mRevisionTimeMs

981+ , mOrderId

982+ , mLastUpdaterOrCommentorRole

983+ , mHasBuyerSignedOff

984+ , mBuyer

982985

983986 -- ** AddOrderDealsRequest

984987 , AddOrderDealsRequest

gogol-adexchange-buyer/gen/Network/Google/AdExchangeBuyer/Types.hs+33−25

@@ -15,8 +15,11 @@

1515--

1616module Network.Google.AdExchangeBuyer.Types

1717 (

18− -- * Service Request

19− adExchangeBuyerRequest

18+ -- * Service Configuration

19+ adExchangeBuyerService

20+

21+ -- * OAuth Scopes

22+ , adexchangeBuyerScope

2023

2124 -- * BrandDTO

2225 , BrandDTO

@@ -812,26 +815,26 @@ module Network.Google.AdExchangeBuyer.Types

812815 -- * MarketplaceOrder

813816 , MarketplaceOrder

814817 , marketplaceOrder

815− , marBuyerPrivateData

816− , marIsSetupComplete

817− , marBuyerContacts

818− , marKind

819− , marOriginatorRole

820− , marRevisionNumber

821− , marBilledBuyer

822− , marIsRenegotiating

823− , marHasSellerSignedOff

824− , marSeller

825− , marOrderState

826− , marName

827− , marSellerContacts

828− , marLastUpdaterRole

829− , marLabels

830− , marRevisionTimeMs

831− , marOrderId

832− , marLastUpdaterOrCommentorRole

833− , marHasBuyerSignedOff

834− , marBuyer

818+ , mBuyerPrivateData

819+ , mIsSetupComplete

820+ , mBuyerContacts

821+ , mKind

822+ , mOriginatorRole

823+ , mRevisionNumber

824+ , mBilledBuyer

825+ , mIsRenegotiating

826+ , mHasSellerSignedOff

827+ , mSeller

828+ , mOrderState

829+ , mName

830+ , mSellerContacts

831+ , mLastUpdaterRole

832+ , mLabels

833+ , mRevisionTimeMs

834+ , mOrderId

835+ , mLastUpdaterOrCommentorRole

836+ , mHasBuyerSignedOff

837+ , mBuyer

835838

836839 -- * AddOrderDealsRequest

837840 , AddOrderDealsRequest

@@ -853,7 +856,12 @@ import Network.Google.AdExchangeBuyer.Types.Sum

853856import Network.Google.Prelude

854857

855858-- | Default request referring to version 'v1.4' of the Ad Exchange Buyer API. This contains the host and root path used as a starting point for constructing service requests.

856−adExchangeBuyerRequest :: RequestBuilder

857−adExchangeBuyerRequest

858− = defaultRequest "https://www.googleapis.com/"

859+adExchangeBuyerService :: Service

860+adExchangeBuyerService

861+ = defaultService (ServiceId "adexchangebuyer:v1.4")

862+ "www.googleapis.com"

859863 "adexchangebuyer/v1.4/"

864+

865+-- | Manage your Ad Exchange buyer account configuration

866+adexchangeBuyerScope :: OAuthScope

867+adexchangeBuyerScope = OAuthScope "https://www.googleapis.com/auth/adexchange.buyer";

gogol-adexchange-buyer/gen/Network/Google/AdExchangeBuyer/Types/Product.hs+147−152

@@ -7444,219 +7444,214 @@ instance ToJSON Buyer where

74447444--

74457445-- /See:/ 'marketplaceOrder' smart constructor.

74467446data MarketplaceOrder = MarketplaceOrder

7447− { _marBuyerPrivateData :: !(Maybe PrivateData)

7448− , _marIsSetupComplete :: !(Maybe Bool)

7449− , _marBuyerContacts :: !(Maybe [ContactInformation])

7450− , _marKind :: !Text

7451− , _marOriginatorRole :: !(Maybe Text)

7452− , _marRevisionNumber :: !(Maybe Int64)

7453− , _marBilledBuyer :: !(Maybe Buyer)

7454− , _marIsRenegotiating :: !(Maybe Bool)

7455− , _marHasSellerSignedOff :: !(Maybe Bool)

7456− , _marSeller :: !(Maybe Seller)

7457− , _marOrderState :: !(Maybe Text)

7458− , _marName :: !(Maybe Text)

7459− , _marSellerContacts :: !(Maybe [ContactInformation])

7460− , _marLastUpdaterRole :: !(Maybe Text)

7461− , _marLabels :: !(Maybe [MarketplaceLabel])

7462− , _marRevisionTimeMs :: !(Maybe Int64)

7463− , _marOrderId :: !(Maybe Text)

7464− , _marLastUpdaterOrCommentorRole :: !(Maybe Text)

7465− , _marHasBuyerSignedOff :: !(Maybe Bool)

7466− , _marBuyer :: !(Maybe Buyer)

7447+ { _mBuyerPrivateData :: !(Maybe PrivateData)

7448+ , _mIsSetupComplete :: !(Maybe Bool)

7449+ , _mBuyerContacts :: !(Maybe [ContactInformation])

7450+ , _mKind :: !Text

7451+ , _mOriginatorRole :: !(Maybe Text)

7452+ , _mRevisionNumber :: !(Maybe Int64)

7453+ , _mBilledBuyer :: !(Maybe Buyer)

7454+ , _mIsRenegotiating :: !(Maybe Bool)

7455+ , _mHasSellerSignedOff :: !(Maybe Bool)

7456+ , _mSeller :: !(Maybe Seller)

7457+ , _mOrderState :: !(Maybe Text)

7458+ , _mName :: !(Maybe Text)

7459+ , _mSellerContacts :: !(Maybe [ContactInformation])

7460+ , _mLastUpdaterRole :: !(Maybe Text)

7461+ , _mLabels :: !(Maybe [MarketplaceLabel])

7462+ , _mRevisionTimeMs :: !(Maybe Int64)

7463+ , _mOrderId :: !(Maybe Text)

7464+ , _mLastUpdaterOrCommentorRole :: !(Maybe Text)

7465+ , _mHasBuyerSignedOff :: !(Maybe Bool)

7466+ , _mBuyer :: !(Maybe Buyer)

74677467 } deriving (Eq,Show,Data,Typeable,Generic)

74687468

74697469-- | Creates a value of 'MarketplaceOrder' with the minimum fields required to make a request.

74707470--

74717471-- Use one of the following lenses to modify other fields as desired:

74727472--

7473−-- * 'marBuyerPrivateData'

7473+-- * 'mBuyerPrivateData'

74747474--

7475−-- * 'marIsSetupComplete'

7475+-- * 'mIsSetupComplete'

74767476--

7477−-- * 'marBuyerContacts'

7477+-- * 'mBuyerContacts'

74787478--

7479−-- * 'marKind'

7479+-- * 'mKind'

74807480--

7481−-- * 'marOriginatorRole'

7481+-- * 'mOriginatorRole'

74827482--

7483−-- * 'marRevisionNumber'

7483+-- * 'mRevisionNumber'

74847484--

7485−-- * 'marBilledBuyer'

7485+-- * 'mBilledBuyer'

74867486--

7487−-- * 'marIsRenegotiating'

7487+-- * 'mIsRenegotiating'

74887488--

7489−-- * 'marHasSellerSignedOff'

7489+-- * 'mHasSellerSignedOff'

74907490--

7491−-- * 'marSeller'

7491+-- * 'mSeller'

74927492--

7493−-- * 'marOrderState'

7493+-- * 'mOrderState'

74947494--

7495−-- * 'marName'

7495+-- * 'mName'

74967496--

7497−-- * 'marSellerContacts'

7497+-- * 'mSellerContacts'

74987498--

7499−-- * 'marLastUpdaterRole'

7499+-- * 'mLastUpdaterRole'

75007500--

7501−-- * 'marLabels'

7501+-- * 'mLabels'

75027502--

7503−-- * 'marRevisionTimeMs'

7503+-- * 'mRevisionTimeMs'

75047504--

7505−-- * 'marOrderId'

7505+-- * 'mOrderId'

75067506--

7507−-- * 'marLastUpdaterOrCommentorRole'

7507+-- * 'mLastUpdaterOrCommentorRole'

75087508--

7509−-- * 'marHasBuyerSignedOff'

7509+-- * 'mHasBuyerSignedOff'

75107510--

7511−-- * 'marBuyer'

7511+-- * 'mBuyer'

75127512marketplaceOrder

75137513 :: MarketplaceOrder

75147514marketplaceOrder =

75157515 MarketplaceOrder

7516− { _marBuyerPrivateData = Nothing

7517− , _marIsSetupComplete = Nothing

7518− , _marBuyerContacts = Nothing

7519− , _marKind = "adexchangebuyer#marketplaceOrder"

7520− , _marOriginatorRole = Nothing

7521− , _marRevisionNumber = Nothing

7522− , _marBilledBuyer = Nothing

7523− , _marIsRenegotiating = Nothing

7524− , _marHasSellerSignedOff = Nothing

7525− , _marSeller = Nothing

7526− , _marOrderState = Nothing

7527− , _marName = Nothing

7528− , _marSellerContacts = Nothing

7529− , _marLastUpdaterRole = Nothing

7530− , _marLabels = Nothing

7531− , _marRevisionTimeMs = Nothing

7532− , _marOrderId = Nothing

7533− , _marLastUpdaterOrCommentorRole = Nothing

7534− , _marHasBuyerSignedOff = Nothing

7535− , _marBuyer = Nothing

7516+ { _mBuyerPrivateData = Nothing

7517+ , _mIsSetupComplete = Nothing

7518+ , _mBuyerContacts = Nothing

7519+ , _mKind = "adexchangebuyer#marketplaceOrder"

7520+ , _mOriginatorRole = Nothing

7521+ , _mRevisionNumber = Nothing

7522+ , _mBilledBuyer = Nothing

7523+ , _mIsRenegotiating = Nothing

7524+ , _mHasSellerSignedOff = Nothing

7525+ , _mSeller = Nothing

7526+ , _mOrderState = Nothing

7527+ , _mName = Nothing

7528+ , _mSellerContacts = Nothing

7529+ , _mLastUpdaterRole = Nothing

7530+ , _mLabels = Nothing

7531+ , _mRevisionTimeMs = Nothing

7532+ , _mOrderId = Nothing

7533+ , _mLastUpdaterOrCommentorRole = Nothing

7534+ , _mHasBuyerSignedOff = Nothing

7535+ , _mBuyer = Nothing

75367536 }

75377537

75387538-- | Private data for buyer. (hidden from seller).

7539−marBuyerPrivateData :: Lens' MarketplaceOrder (Maybe PrivateData)

7540−marBuyerPrivateData

7541− = lens _marBuyerPrivateData

7542− (\ s a -> s{_marBuyerPrivateData = a})

7539+mBuyerPrivateData :: Lens' MarketplaceOrder (Maybe PrivateData)

7540+mBuyerPrivateData

7541+ = lens _mBuyerPrivateData

7542+ (\ s a -> s{_mBuyerPrivateData = a})

75437543

75447544-- | True, if the buyside inventory setup is complete for this order.

75457545-- (readonly)

7546−marIsSetupComplete :: Lens' MarketplaceOrder (Maybe Bool)

7547−marIsSetupComplete

7548− = lens _marIsSetupComplete

7549− (\ s a -> s{_marIsSetupComplete = a})

7546+mIsSetupComplete :: Lens' MarketplaceOrder (Maybe Bool)

7547+mIsSetupComplete

7548+ = lens _mIsSetupComplete

7549+ (\ s a -> s{_mIsSetupComplete = a})

75507550

75517551-- | Optional contact information fort the buyer. (seller-readonly)

7552−marBuyerContacts :: Lens' MarketplaceOrder [ContactInformation]

7553−marBuyerContacts

7554− = lens _marBuyerContacts

7555− (\ s a -> s{_marBuyerContacts = a})

7552+mBuyerContacts :: Lens' MarketplaceOrder [ContactInformation]

7553+mBuyerContacts

7554+ = lens _mBuyerContacts

7555+ (\ s a -> s{_mBuyerContacts = a})

75567556 . _Default

75577557 . _Coerce

75587558

75597559-- | Identifies what kind of resource this is. Value: the fixed string

75607560-- \"adexchangebuyer#marketplaceOrder\".

7561−marKind :: Lens' MarketplaceOrder Text

7562−marKind = lens _marKind (\ s a -> s{_marKind = a})

7561+mKind :: Lens' MarketplaceOrder Text

7562+mKind = lens _mKind (\ s a -> s{_mKind = a})

75637563

75647564-- | Indicates whether the buyer\/seller created the offer.(readonly)

7565−marOriginatorRole :: Lens' MarketplaceOrder (Maybe Text)

7566−marOriginatorRole

7567− = lens _marOriginatorRole

7568− (\ s a -> s{_marOriginatorRole = a})

7565+mOriginatorRole :: Lens' MarketplaceOrder (Maybe Text)

7566+mOriginatorRole

7567+ = lens _mOriginatorRole

7568+ (\ s a -> s{_mOriginatorRole = a})

75697569

75707570-- | The revision number for the order (readonly).

7571−marRevisionNumber :: Lens' MarketplaceOrder (Maybe Int64)

7572−marRevisionNumber

7573− = lens _marRevisionNumber

7574− (\ s a -> s{_marRevisionNumber = a})

7571+mRevisionNumber :: Lens' MarketplaceOrder (Maybe Int64)

7572+mRevisionNumber

7573+ = lens _mRevisionNumber

7574+ (\ s a -> s{_mRevisionNumber = a})

75757575

75767576-- | Reference to the buyer that will get billed for this order. (readonly)

7577−marBilledBuyer :: Lens' MarketplaceOrder (Maybe Buyer)

7578−marBilledBuyer

7579− = lens _marBilledBuyer

7580− (\ s a -> s{_marBilledBuyer = a})

7577+mBilledBuyer :: Lens' MarketplaceOrder (Maybe Buyer)

7578+mBilledBuyer

7579+ = lens _mBilledBuyer (\ s a -> s{_mBilledBuyer = a})

75817580

75827581-- | True if the order is being renegotiated (readonly).

7583−marIsRenegotiating :: Lens' MarketplaceOrder (Maybe Bool)

7584−marIsRenegotiating

7585− = lens _marIsRenegotiating

7586− (\ s a -> s{_marIsRenegotiating = a})

7582+mIsRenegotiating :: Lens' MarketplaceOrder (Maybe Bool)

7583+mIsRenegotiating

7584+ = lens _mIsRenegotiating

7585+ (\ s a -> s{_mIsRenegotiating = a})

75877586

75887587-- | When an order is in an accepted state, indicates whether the buyer has

75897588-- signed off Once both sides have signed off on a deal, the order can be

75907589-- finalized by the seller. (buyer-readonly)

7591−marHasSellerSignedOff :: Lens' MarketplaceOrder (Maybe Bool)

7592−marHasSellerSignedOff

7593− = lens _marHasSellerSignedOff

7594− (\ s a -> s{_marHasSellerSignedOff = a})

7590+mHasSellerSignedOff :: Lens' MarketplaceOrder (Maybe Bool)

7591+mHasSellerSignedOff

7592+ = lens _mHasSellerSignedOff

7593+ (\ s a -> s{_mHasSellerSignedOff = a})

75957594

75967595-- | Reference to the seller on the order. (readonly, except on create)

7597−marSeller :: Lens' MarketplaceOrder (Maybe Seller)

7598−marSeller

7599− = lens _marSeller (\ s a -> s{_marSeller = a})

7596+mSeller :: Lens' MarketplaceOrder (Maybe Seller)

7597+mSeller = lens _mSeller (\ s a -> s{_mSeller = a})

76007598

76017599-- | The current state of the order. (readonly)

7602−marOrderState :: Lens' MarketplaceOrder (Maybe Text)

7603−marOrderState

7604− = lens _marOrderState

7605− (\ s a -> s{_marOrderState = a})

7600+mOrderState :: Lens' MarketplaceOrder (Maybe Text)

7601+mOrderState

7602+ = lens _mOrderState (\ s a -> s{_mOrderState = a})

76067603

76077604-- | The name for the order (updatable)

7608−marName :: Lens' MarketplaceOrder (Maybe Text)

7609−marName = lens _marName (\ s a -> s{_marName = a})

7605+mName :: Lens' MarketplaceOrder (Maybe Text)

7606+mName = lens _mName (\ s a -> s{_mName = a})

76107607

76117608-- | Optional contact information for the seller (buyer-readonly).

7612−marSellerContacts :: Lens' MarketplaceOrder [ContactInformation]

7613−marSellerContacts

7614− = lens _marSellerContacts

7615− (\ s a -> s{_marSellerContacts = a})

7609+mSellerContacts :: Lens' MarketplaceOrder [ContactInformation]

7610+mSellerContacts

7611+ = lens _mSellerContacts

7612+ (\ s a -> s{_mSellerContacts = a})

76167613 . _Default

76177614 . _Coerce

76187615

7619−marLastUpdaterRole :: Lens' MarketplaceOrder (Maybe Text)

7620−marLastUpdaterRole

7621− = lens _marLastUpdaterRole

7622− (\ s a -> s{_marLastUpdaterRole = a})

7616+mLastUpdaterRole :: Lens' MarketplaceOrder (Maybe Text)

7617+mLastUpdaterRole

7618+ = lens _mLastUpdaterRole

7619+ (\ s a -> s{_mLastUpdaterRole = a})

76237620

76247621-- | List of labels associated with the order. (readonly)

7625−marLabels :: Lens' MarketplaceOrder [MarketplaceLabel]

7626−marLabels

7627− = lens _marLabels (\ s a -> s{_marLabels = a}) .

7628− _Default

7622+mLabels :: Lens' MarketplaceOrder [MarketplaceLabel]

7623+mLabels

7624+ = lens _mLabels (\ s a -> s{_mLabels = a}) . _Default

76297625 . _Coerce

76307626

76317627-- | The time (ms since epoch) when the order was last revised (readonly).

7632−marRevisionTimeMs :: Lens' MarketplaceOrder (Maybe Int64)

7633−marRevisionTimeMs

7634− = lens _marRevisionTimeMs

7635− (\ s a -> s{_marRevisionTimeMs = a})

7628+mRevisionTimeMs :: Lens' MarketplaceOrder (Maybe Int64)

7629+mRevisionTimeMs

7630+ = lens _mRevisionTimeMs

7631+ (\ s a -> s{_mRevisionTimeMs = a})

76367632

76377633-- | The unique id of the order. (readonly).

7638−marOrderId :: Lens' MarketplaceOrder (Maybe Text)

7639−marOrderId

7640− = lens _marOrderId (\ s a -> s{_marOrderId = a})

7634+mOrderId :: Lens' MarketplaceOrder (Maybe Text)

7635+mOrderId = lens _mOrderId (\ s a -> s{_mOrderId = a})

76417636

76427637-- | The role of the last user that either updated the order or left a

76437638-- comment. (readonly)

7644−marLastUpdaterOrCommentorRole :: Lens' MarketplaceOrder (Maybe Text)

7645−marLastUpdaterOrCommentorRole

7646− = lens _marLastUpdaterOrCommentorRole

7647− (\ s a -> s{_marLastUpdaterOrCommentorRole = a})

7639+mLastUpdaterOrCommentorRole :: Lens' MarketplaceOrder (Maybe Text)

7640+mLastUpdaterOrCommentorRole

7641+ = lens _mLastUpdaterOrCommentorRole

7642+ (\ s a -> s{_mLastUpdaterOrCommentorRole = a})

76487643

76497644-- | When an order is in an accepted state, indicates whether the buyer has

76507645-- signed off Once both sides have signed off on a deal, the order can be

76517646-- finalized by the seller. (seller-readonly)

7652−marHasBuyerSignedOff :: Lens' MarketplaceOrder (Maybe Bool)

7653−marHasBuyerSignedOff

7654− = lens _marHasBuyerSignedOff

7655− (\ s a -> s{_marHasBuyerSignedOff = a})

7647+mHasBuyerSignedOff :: Lens' MarketplaceOrder (Maybe Bool)

7648+mHasBuyerSignedOff

7649+ = lens _mHasBuyerSignedOff

7650+ (\ s a -> s{_mHasBuyerSignedOff = a})

76567651

76577652-- | Reference to the buyer on the order. (readonly, except on create)

7658−marBuyer :: Lens' MarketplaceOrder (Maybe Buyer)

7659−marBuyer = lens _marBuyer (\ s a -> s{_marBuyer = a})

7653+mBuyer :: Lens' MarketplaceOrder (Maybe Buyer)

7654+mBuyer = lens _mBuyer (\ s a -> s{_mBuyer = a})

76607655

76617656instance FromJSON MarketplaceOrder where

76627657 parseJSON

@@ -7689,27 +7684,27 @@ instance ToJSON MarketplaceOrder where

76897684 toJSON MarketplaceOrder{..}

76907685 = object

76917686 (catMaybes

7692− [("buyerPrivateData" .=) <$> _marBuyerPrivateData,

7693− ("isSetupComplete" .=) <$> _marIsSetupComplete,

7694− ("buyerContacts" .=) <$> _marBuyerContacts,

7695− Just ("kind" .= _marKind),

7696− ("originatorRole" .=) <$> _marOriginatorRole,

7697− ("revisionNumber" .=) <$> _marRevisionNumber,

7698− ("billedBuyer" .=) <$> _marBilledBuyer,

7699− ("isRenegotiating" .=) <$> _marIsRenegotiating,

7700− ("hasSellerSignedOff" .=) <$> _marHasSellerSignedOff,

7701− ("seller" .=) <$> _marSeller,

7702− ("orderState" .=) <$> _marOrderState,

7703− ("name" .=) <$> _marName,

7704− ("sellerContacts" .=) <$> _marSellerContacts,

7705− ("lastUpdaterRole" .=) <$> _marLastUpdaterRole,

7706− ("labels" .=) <$> _marLabels,

7707− ("revisionTimeMs" .=) <$> _marRevisionTimeMs,

7708− ("orderId" .=) <$> _marOrderId,

7687+ [("buyerPrivateData" .=) <$> _mBuyerPrivateData,

7688+ ("isSetupComplete" .=) <$> _mIsSetupComplete,

7689+ ("buyerContacts" .=) <$> _mBuyerContacts,

7690+ Just ("kind" .= _mKind),

7691+ ("originatorRole" .=) <$> _mOriginatorRole,

7692+ ("revisionNumber" .=) <$> _mRevisionNumber,

7693+ ("billedBuyer" .=) <$> _mBilledBuyer,

7694+ ("isRenegotiating" .=) <$> _mIsRenegotiating,

7695+ ("hasSellerSignedOff" .=) <$> _mHasSellerSignedOff,

7696+ ("seller" .=) <$> _mSeller,

7697+ ("orderState" .=) <$> _mOrderState,

7698+ ("name" .=) <$> _mName,

7699+ ("sellerContacts" .=) <$> _mSellerContacts,

7700+ ("lastUpdaterRole" .=) <$> _mLastUpdaterRole,

7701+ ("labels" .=) <$> _mLabels,

7702+ ("revisionTimeMs" .=) <$> _mRevisionTimeMs,

7703+ ("orderId" .=) <$> _mOrderId,

77097704 ("lastUpdaterOrCommentorRole" .=) <$>

7710− _marLastUpdaterOrCommentorRole,

7711− ("hasBuyerSignedOff" .=) <$> _marHasBuyerSignedOff,

7712− ("buyer" .=) <$> _marBuyer])

7705+ _mLastUpdaterOrCommentorRole,

7706+ ("hasBuyerSignedOff" .=) <$> _mHasBuyerSignedOff,

7707+ ("buyer" .=) <$> _mBuyer])

77137708

77147709--

77157710-- /See:/ 'addOrderDealsRequest' smart constructor.

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Accounts/Get.hs+8−86

@@ -33,13 +33,7 @@ module Network.Google.Resource.AdExchangeBuyer.Accounts.Get

3333 , AccountsGet'

3434

3535 -- * Request Lenses

36− , agQuotaUser

37− , agPrettyPrint

38− , agUserIP

39− , agKey

4036 , agId

41− , agOAuthToken

42− , agFields

4337 ) where

4438

4539import Network.Google.AdExchangeBuyer.Types

@@ -50,108 +44,36 @@ import Network.Google.Prelude

5044type AccountsGetResource =

5145 "accounts" :>

5246 Capture "id" Int32 :>

53− QueryParam "quotaUser" Text :>

54− QueryParam "prettyPrint" Bool :>

55− QueryParam "userIp" Text :>

56− QueryParam "fields" Text :>

57− QueryParam "key" AuthKey :>

58− Header "Authorization" OAuthToken :>

59− QueryParam "alt" AltJSON :> Get '[JSON] Account

47+ QueryParam "alt" AltJSON :> Get '[JSON] Account

6048

6149-- | Gets one account by ID.

6250--

6351-- /See:/ 'accountsGet'' smart constructor.

64−data AccountsGet' = AccountsGet'

65− { _agQuotaUser :: !(Maybe Text)

66− , _agPrettyPrint :: !Bool

67− , _agUserIP :: !(Maybe Text)

68− , _agKey :: !(Maybe AuthKey)

69− , _agId :: !Int32

70− , _agOAuthToken :: !(Maybe OAuthToken)

71− , _agFields :: !(Maybe Text)

52+newtype AccountsGet' = AccountsGet'

53+ { _agId :: Int32

7254 } deriving (Eq,Show,Data,Typeable,Generic)

7355

7456-- | Creates a value of 'AccountsGet'' with the minimum fields required to make a request.

7557--

7658-- Use one of the following lenses to modify other fields as desired:

7759--

78−-- * 'agQuotaUser'

79−--

80−-- * 'agPrettyPrint'

81−--

82−-- * 'agUserIP'

83−--

84−-- * 'agKey'

85−--

8660-- * 'agId'

87−--

88−-- * 'agOAuthToken'

89−--

90−-- * 'agFields'

9161accountsGet'

9262 :: Int32 -- ^ 'id'

9363 -> AccountsGet'

9464accountsGet' pAgId_ =

9565 AccountsGet'

96− { _agQuotaUser = Nothing

97− , _agPrettyPrint = True

98− , _agUserIP = Nothing

99− , _agKey = Nothing

100− , _agId = pAgId_

101− , _agOAuthToken = Nothing

102− , _agFields = Nothing

66+ { _agId = pAgId_

10367 }

10468

105−-- | Available to use for quota purposes for server-side applications. Can be

106−-- any arbitrary string assigned to a user, but should not exceed 40

107−-- characters. Overrides userIp if both are provided.

108−agQuotaUser :: Lens' AccountsGet' (Maybe Text)

109−agQuotaUser

110− = lens _agQuotaUser (\ s a -> s{_agQuotaUser = a})

111−

112−-- | Returns response with indentations and line breaks.

113−agPrettyPrint :: Lens' AccountsGet' Bool

114−agPrettyPrint

115− = lens _agPrettyPrint

116− (\ s a -> s{_agPrettyPrint = a})

117−

118−-- | IP address of the site where the request originates. Use this if you

119−-- want to enforce per-user limits.

120−agUserIP :: Lens' AccountsGet' (Maybe Text)

121−agUserIP = lens _agUserIP (\ s a -> s{_agUserIP = a})

122−

123−-- | API key. Your API key identifies your project and provides you with API

124−-- access, quota, and reports. Required unless you provide an OAuth 2.0

125−-- token.

126−agKey :: Lens' AccountsGet' (Maybe AuthKey)

127−agKey = lens _agKey (\ s a -> s{_agKey = a})

128−

12969-- | The account id

13070agId :: Lens' AccountsGet' Int32

13171agId = lens _agId (\ s a -> s{_agId = a})

13272

133−-- | OAuth 2.0 token for the current user.

134−agOAuthToken :: Lens' AccountsGet' (Maybe OAuthToken)

135−agOAuthToken

136− = lens _agOAuthToken (\ s a -> s{_agOAuthToken = a})

137−

138−-- | Selector specifying which fields to include in a partial response.

139−agFields :: Lens' AccountsGet' (Maybe Text)

140−agFields = lens _agFields (\ s a -> s{_agFields = a})

141−

142−instance GoogleAuth AccountsGet' where

143− _AuthKey = agKey . _Just

144− _AuthToken = agOAuthToken . _Just

145−

14673instance GoogleRequest AccountsGet' where

14774 type Rs AccountsGet' = Account

148− request = requestWith adExchangeBuyerRequest

149− requestWith rq AccountsGet'{..}

150− = go _agId _agQuotaUser (Just _agPrettyPrint)

151− _agUserIP

152− _agFields

153− _agKey

154− _agOAuthToken

155− (Just AltJSON)

75+ requestClient AccountsGet'{..}

76+ = go _agId (Just AltJSON) adExchangeBuyerService

15677 where go

157− = clientBuild (Proxy :: Proxy AccountsGetResource) rq

78+ = buildClient (Proxy :: Proxy AccountsGetResource)

79+ mempty

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Accounts/List.hs+9−90

@@ -32,13 +32,6 @@ module Network.Google.Resource.AdExchangeBuyer.Accounts.List

3232 , accountsList'

3333 , AccountsList'

3434

35− -- * Request Lenses

36− , alQuotaUser

37− , alPrettyPrint

38− , alUserIP

39− , alKey

40− , alOAuthToken

41− , alFields

4235 ) where

4336

4437import Network.Google.AdExchangeBuyer.Types

@@ -48,99 +41,25 @@ import Network.Google.Prelude

4841-- 'AccountsList'' request conforms to.

4942type AccountsListResource =

5043 "accounts" :>

51− QueryParam "quotaUser" Text :>

52− QueryParam "prettyPrint" Bool :>

53− QueryParam "userIp" Text :>

54− QueryParam "fields" Text :>

55− QueryParam "key" AuthKey :>

56− Header "Authorization" OAuthToken :>

57− QueryParam "alt" AltJSON :> Get '[JSON] AccountsList

44+ QueryParam "alt" AltJSON :> Get '[JSON] AccountsList

5845

5946-- | Retrieves the authenticated user\'s list of accounts.

6047--

6148-- /See:/ 'accountsList'' smart constructor.

62−data AccountsList' = AccountsList'

63− { _alQuotaUser :: !(Maybe Text)

64− , _alPrettyPrint :: !Bool

65− , _alUserIP :: !(Maybe Text)

66− , _alKey :: !(Maybe AuthKey)

67− , _alOAuthToken :: !(Maybe OAuthToken)

68− , _alFields :: !(Maybe Text)

69− } deriving (Eq,Show,Data,Typeable,Generic)

49+data AccountsList' =

50+ AccountsList'

51+ deriving (Eq,Show,Data,Typeable,Generic)

7052

7153-- | Creates a value of 'AccountsList'' with the minimum fields required to make a request.

7254--

73−-- Use one of the following lenses to modify other fields as desired:

74−--

75−-- * 'alQuotaUser'

76−--

77−-- * 'alPrettyPrint'

78−--

79−-- * 'alUserIP'

80−--

81−-- * 'alKey'

82−--

83−-- * 'alOAuthToken'

84−--

85−-- * 'alFields'

8655accountsList'

8756 :: AccountsList'

88−accountsList' =

89− AccountsList'

90− { _alQuotaUser = Nothing

91− , _alPrettyPrint = True

92− , _alUserIP = Nothing

93− , _alKey = Nothing

94− , _alOAuthToken = Nothing

95− , _alFields = Nothing

96− }

97−

98−-- | Available to use for quota purposes for server-side applications. Can be

99−-- any arbitrary string assigned to a user, but should not exceed 40

100−-- characters. Overrides userIp if both are provided.

101−alQuotaUser :: Lens' AccountsList' (Maybe Text)

102−alQuotaUser

103− = lens _alQuotaUser (\ s a -> s{_alQuotaUser = a})

104−

105−-- | Returns response with indentations and line breaks.

106−alPrettyPrint :: Lens' AccountsList' Bool

107−alPrettyPrint

108− = lens _alPrettyPrint

109− (\ s a -> s{_alPrettyPrint = a})

110−

111−-- | IP address of the site where the request originates. Use this if you

112−-- want to enforce per-user limits.

113−alUserIP :: Lens' AccountsList' (Maybe Text)

114−alUserIP = lens _alUserIP (\ s a -> s{_alUserIP = a})

115−

116−-- | API key. Your API key identifies your project and provides you with API

117−-- access, quota, and reports. Required unless you provide an OAuth 2.0

118−-- token.

119−alKey :: Lens' AccountsList' (Maybe AuthKey)

120−alKey = lens _alKey (\ s a -> s{_alKey = a})

121−

122−-- | OAuth 2.0 token for the current user.

123−alOAuthToken :: Lens' AccountsList' (Maybe OAuthToken)

124−alOAuthToken

125− = lens _alOAuthToken (\ s a -> s{_alOAuthToken = a})

126−

127−-- | Selector specifying which fields to include in a partial response.

128−alFields :: Lens' AccountsList' (Maybe Text)

129−alFields = lens _alFields (\ s a -> s{_alFields = a})

130−

131−instance GoogleAuth AccountsList' where

132− _AuthKey = alKey . _Just

133− _AuthToken = alOAuthToken . _Just

57+accountsList' = AccountsList'

13458

13559instance GoogleRequest AccountsList' where

13660 type Rs AccountsList' = AccountsList

137− request = requestWith adExchangeBuyerRequest

138− requestWith rq AccountsList'{..}

139− = go _alQuotaUser (Just _alPrettyPrint) _alUserIP

140− _alFields

141− _alKey

142− _alOAuthToken

143− (Just AltJSON)

61+ requestClient AccountsList'{..}

62+ = go (Just AltJSON) adExchangeBuyerService

14463 where go

145− = clientBuild (Proxy :: Proxy AccountsListResource)

146− rq

64+ = buildClient (Proxy :: Proxy AccountsListResource)

65+ mempty

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Accounts/Patch.hs+10−89

@@ -33,14 +33,8 @@ module Network.Google.Resource.AdExchangeBuyer.Accounts.Patch

3333 , AccountsPatch'

3434

3535 -- * Request Lenses

36− , apQuotaUser

37− , apPrettyPrint

38− , apUserIP

3936 , apPayload

40− , apKey

4137 , apId

42− , apOAuthToken

43− , apFields

4438 ) where

4539

4640import Network.Google.AdExchangeBuyer.Types

@@ -51,121 +45,48 @@ import Network.Google.Prelude

5145type AccountsPatchResource =

5246 "accounts" :>

5347 Capture "id" Int32 :>

54− QueryParam "quotaUser" Text :>

55− QueryParam "prettyPrint" Bool :>

56− QueryParam "userIp" Text :>

57− QueryParam "fields" Text :>

58− QueryParam "key" AuthKey :>

59− Header "Authorization" OAuthToken :>

60− QueryParam "alt" AltJSON :>

61− ReqBody '[JSON] Account :> Patch '[JSON] Account

48+ QueryParam "alt" AltJSON :>

49+ ReqBody '[JSON] Account :> Patch '[JSON] Account

6250

6351-- | Updates an existing account. This method supports patch semantics.

6452--

6553-- /See:/ 'accountsPatch'' smart constructor.

6654data AccountsPatch' = AccountsPatch'

67− { _apQuotaUser :: !(Maybe Text)

68− , _apPrettyPrint :: !Bool

69− , _apUserIP :: !(Maybe Text)

70− , _apPayload :: !Account

71− , _apKey :: !(Maybe AuthKey)

72− , _apId :: !Int32

73− , _apOAuthToken :: !(Maybe OAuthToken)

74− , _apFields :: !(Maybe Text)

55+ { _apPayload :: !Account

56+ , _apId :: !Int32

7557 } deriving (Eq,Show,Data,Typeable,Generic)

7658

7759-- | Creates a value of 'AccountsPatch'' with the minimum fields required to make a request.

7860--

7961-- Use one of the following lenses to modify other fields as desired:

8062--

81−-- * 'apQuotaUser'

82−--

83−-- * 'apPrettyPrint'

84−--

85−-- * 'apUserIP'

86−--

8763-- * 'apPayload'

8864--

89−-- * 'apKey'

90−--

9165-- * 'apId'

92−--

93−-- * 'apOAuthToken'

94−--

95−-- * 'apFields'

9666accountsPatch'

9767 :: Account -- ^ 'payload'

9868 -> Int32 -- ^ 'id'

9969 -> AccountsPatch'

10070accountsPatch' pApPayload_ pApId_ =

10171 AccountsPatch'

102− { _apQuotaUser = Nothing

103− , _apPrettyPrint = True

104− , _apUserIP = Nothing

105− , _apPayload = pApPayload_

106− , _apKey = Nothing

72+ { _apPayload = pApPayload_

10773 , _apId = pApId_

108− , _apOAuthToken = Nothing

109− , _apFields = Nothing

11074 }

11175

112−-- | Available to use for quota purposes for server-side applications. Can be

113−-- any arbitrary string assigned to a user, but should not exceed 40

114−-- characters. Overrides userIp if both are provided.

115−apQuotaUser :: Lens' AccountsPatch' (Maybe Text)

116−apQuotaUser

117− = lens _apQuotaUser (\ s a -> s{_apQuotaUser = a})

118−

119−-- | Returns response with indentations and line breaks.

120−apPrettyPrint :: Lens' AccountsPatch' Bool

121−apPrettyPrint

122− = lens _apPrettyPrint

123− (\ s a -> s{_apPrettyPrint = a})

124−

125−-- | IP address of the site where the request originates. Use this if you

126−-- want to enforce per-user limits.

127−apUserIP :: Lens' AccountsPatch' (Maybe Text)

128−apUserIP = lens _apUserIP (\ s a -> s{_apUserIP = a})

129−

13076-- | Multipart request metadata.

13177apPayload :: Lens' AccountsPatch' Account

13278apPayload

13379 = lens _apPayload (\ s a -> s{_apPayload = a})

13480

135−-- | API key. Your API key identifies your project and provides you with API

136−-- access, quota, and reports. Required unless you provide an OAuth 2.0

137−-- token.

138−apKey :: Lens' AccountsPatch' (Maybe AuthKey)

139−apKey = lens _apKey (\ s a -> s{_apKey = a})

140−

14181-- | The account id

14282apId :: Lens' AccountsPatch' Int32

14383apId = lens _apId (\ s a -> s{_apId = a})

14484

145−-- | OAuth 2.0 token for the current user.

146−apOAuthToken :: Lens' AccountsPatch' (Maybe OAuthToken)

147−apOAuthToken

148− = lens _apOAuthToken (\ s a -> s{_apOAuthToken = a})

149−

150−-- | Selector specifying which fields to include in a partial response.

151−apFields :: Lens' AccountsPatch' (Maybe Text)

152−apFields = lens _apFields (\ s a -> s{_apFields = a})

153−

154−instance GoogleAuth AccountsPatch' where

155− _AuthKey = apKey . _Just

156− _AuthToken = apOAuthToken . _Just

157−

15885instance GoogleRequest AccountsPatch' where

15986 type Rs AccountsPatch' = Account

160− request = requestWith adExchangeBuyerRequest

161− requestWith rq AccountsPatch'{..}

162− = go _apId _apQuotaUser (Just _apPrettyPrint)

163− _apUserIP

164− _apFields

165− _apKey

166− _apOAuthToken

167− (Just AltJSON)

168− _apPayload

87+ requestClient AccountsPatch'{..}

88+ = go _apId (Just AltJSON) _apPayload

89+ adExchangeBuyerService

16990 where go

170− = clientBuild (Proxy :: Proxy AccountsPatchResource)

171− rq

91+ = buildClient (Proxy :: Proxy AccountsPatchResource)

92+ mempty

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Accounts/Update.hs+10−89

@@ -33,14 +33,8 @@ module Network.Google.Resource.AdExchangeBuyer.Accounts.Update

3333 , AccountsUpdate'

3434

3535 -- * Request Lenses

36− , auQuotaUser

37− , auPrettyPrint

38− , auUserIP

3936 , auPayload

40− , auKey

4137 , auId

42− , auOAuthToken

43− , auFields

4438 ) where

4539

4640import Network.Google.AdExchangeBuyer.Types

@@ -51,121 +45,48 @@ import Network.Google.Prelude

5145type AccountsUpdateResource =

5246 "accounts" :>

5347 Capture "id" Int32 :>

54− QueryParam "quotaUser" Text :>

55− QueryParam "prettyPrint" Bool :>

56− QueryParam "userIp" Text :>

57− QueryParam "fields" Text :>

58− QueryParam "key" AuthKey :>

59− Header "Authorization" OAuthToken :>

60− QueryParam "alt" AltJSON :>

61− ReqBody '[JSON] Account :> Put '[JSON] Account

48+ QueryParam "alt" AltJSON :>

49+ ReqBody '[JSON] Account :> Put '[JSON] Account

6250

6351-- | Updates an existing account.

6452--

6553-- /See:/ 'accountsUpdate'' smart constructor.

6654data AccountsUpdate' = AccountsUpdate'

67− { _auQuotaUser :: !(Maybe Text)

68− , _auPrettyPrint :: !Bool

69− , _auUserIP :: !(Maybe Text)

70− , _auPayload :: !Account

71− , _auKey :: !(Maybe AuthKey)

72− , _auId :: !Int32

73− , _auOAuthToken :: !(Maybe OAuthToken)

74− , _auFields :: !(Maybe Text)

55+ { _auPayload :: !Account

56+ , _auId :: !Int32

7557 } deriving (Eq,Show,Data,Typeable,Generic)

7658

7759-- | Creates a value of 'AccountsUpdate'' with the minimum fields required to make a request.

7860--

7961-- Use one of the following lenses to modify other fields as desired:

8062--

81−-- * 'auQuotaUser'

82−--

83−-- * 'auPrettyPrint'

84−--

85−-- * 'auUserIP'

86−--

8763-- * 'auPayload'

8864--

89−-- * 'auKey'

90−--

9165-- * 'auId'

92−--

93−-- * 'auOAuthToken'

94−--

95−-- * 'auFields'

9666accountsUpdate'

9767 :: Account -- ^ 'payload'

9868 -> Int32 -- ^ 'id'

9969 -> AccountsUpdate'

10070accountsUpdate' pAuPayload_ pAuId_ =

10171 AccountsUpdate'

102− { _auQuotaUser = Nothing

103− , _auPrettyPrint = True

104− , _auUserIP = Nothing

105− , _auPayload = pAuPayload_

106− , _auKey = Nothing

72+ { _auPayload = pAuPayload_

10773 , _auId = pAuId_

108− , _auOAuthToken = Nothing

109− , _auFields = Nothing

11074 }

11175

112−-- | Available to use for quota purposes for server-side applications. Can be

113−-- any arbitrary string assigned to a user, but should not exceed 40

114−-- characters. Overrides userIp if both are provided.

115−auQuotaUser :: Lens' AccountsUpdate' (Maybe Text)

116−auQuotaUser

117− = lens _auQuotaUser (\ s a -> s{_auQuotaUser = a})

118−

119−-- | Returns response with indentations and line breaks.

120−auPrettyPrint :: Lens' AccountsUpdate' Bool

121−auPrettyPrint

122− = lens _auPrettyPrint

123− (\ s a -> s{_auPrettyPrint = a})

124−

125−-- | IP address of the site where the request originates. Use this if you

126−-- want to enforce per-user limits.

127−auUserIP :: Lens' AccountsUpdate' (Maybe Text)

128−auUserIP = lens _auUserIP (\ s a -> s{_auUserIP = a})

129−

13076-- | Multipart request metadata.

13177auPayload :: Lens' AccountsUpdate' Account

13278auPayload

13379 = lens _auPayload (\ s a -> s{_auPayload = a})

13480

135−-- | API key. Your API key identifies your project and provides you with API

136−-- access, quota, and reports. Required unless you provide an OAuth 2.0

137−-- token.

138−auKey :: Lens' AccountsUpdate' (Maybe AuthKey)

139−auKey = lens _auKey (\ s a -> s{_auKey = a})

140−

14181-- | The account id

14282auId :: Lens' AccountsUpdate' Int32

14383auId = lens _auId (\ s a -> s{_auId = a})

14484

145−-- | OAuth 2.0 token for the current user.

146−auOAuthToken :: Lens' AccountsUpdate' (Maybe OAuthToken)

147−auOAuthToken

148− = lens _auOAuthToken (\ s a -> s{_auOAuthToken = a})

149−

150−-- | Selector specifying which fields to include in a partial response.

151−auFields :: Lens' AccountsUpdate' (Maybe Text)

152−auFields = lens _auFields (\ s a -> s{_auFields = a})

153−

154−instance GoogleAuth AccountsUpdate' where

155− _AuthKey = auKey . _Just

156− _AuthToken = auOAuthToken . _Just

157−

15885instance GoogleRequest AccountsUpdate' where

15986 type Rs AccountsUpdate' = Account

160− request = requestWith adExchangeBuyerRequest

161− requestWith rq AccountsUpdate'{..}

162− = go _auId _auQuotaUser (Just _auPrettyPrint)

163− _auUserIP

164− _auFields

165− _auKey

166− _auOAuthToken

167− (Just AltJSON)

168− _auPayload

87+ requestClient AccountsUpdate'{..}

88+ = go _auId (Just AltJSON) _auPayload

89+ adExchangeBuyerService

16990 where go

170− = clientBuild (Proxy :: Proxy AccountsUpdateResource)

171− rq

91+ = buildClient (Proxy :: Proxy AccountsUpdateResource)

92+ mempty

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/BillingInfo/Get.hs+9−91

@@ -33,13 +33,7 @@ module Network.Google.Resource.AdExchangeBuyer.BillingInfo.Get

3333 , BillingInfoGet'

3434

3535 -- * Request Lenses

36− , bigQuotaUser

37− , bigPrettyPrint

38− , bigUserIP

3936 , bigAccountId

40− , bigKey

41− , bigOAuthToken

42− , bigFields

4337 ) where

4438

4539import Network.Google.AdExchangeBuyer.Types

@@ -50,114 +44,38 @@ import Network.Google.Prelude

5044type BillingInfoGetResource =

5145 "billinginfo" :>

5246 Capture "accountId" Int32 :>

53− QueryParam "quotaUser" Text :>

54− QueryParam "prettyPrint" Bool :>

55− QueryParam "userIp" Text :>

56− QueryParam "fields" Text :>

57− QueryParam "key" AuthKey :>

58− Header "Authorization" OAuthToken :>

59− QueryParam "alt" AltJSON :> Get '[JSON] BillingInfo

47+ QueryParam "alt" AltJSON :> Get '[JSON] BillingInfo

6048

6149-- | Returns the billing information for one account specified by account ID.

6250--

6351-- /See:/ 'billingInfoGet'' smart constructor.

64−data BillingInfoGet' = BillingInfoGet'

65− { _bigQuotaUser :: !(Maybe Text)

66− , _bigPrettyPrint :: !Bool

67− , _bigUserIP :: !(Maybe Text)

68− , _bigAccountId :: !Int32

69− , _bigKey :: !(Maybe AuthKey)

70− , _bigOAuthToken :: !(Maybe OAuthToken)

71− , _bigFields :: !(Maybe Text)

52+newtype BillingInfoGet' = BillingInfoGet'

53+ { _bigAccountId :: Int32

7254 } deriving (Eq,Show,Data,Typeable,Generic)

7355

7456-- | Creates a value of 'BillingInfoGet'' with the minimum fields required to make a request.

7557--

7658-- Use one of the following lenses to modify other fields as desired:

7759--

78−-- * 'bigQuotaUser'

79−--

80−-- * 'bigPrettyPrint'

81−--

82−-- * 'bigUserIP'

83−--

8460-- * 'bigAccountId'

85−--

86−-- * 'bigKey'

87−--

88−-- * 'bigOAuthToken'

89−--

90−-- * 'bigFields'

9161billingInfoGet'

9262 :: Int32 -- ^ 'accountId'

9363 -> BillingInfoGet'

9464billingInfoGet' pBigAccountId_ =

9565 BillingInfoGet'

96− { _bigQuotaUser = Nothing

97− , _bigPrettyPrint = True

98− , _bigUserIP = Nothing

99− , _bigAccountId = pBigAccountId_

100− , _bigKey = Nothing

101− , _bigOAuthToken = Nothing

102− , _bigFields = Nothing

66+ { _bigAccountId = pBigAccountId_

10367 }

10468

105−-- | Available to use for quota purposes for server-side applications. Can be

106−-- any arbitrary string assigned to a user, but should not exceed 40

107−-- characters. Overrides userIp if both are provided.

108−bigQuotaUser :: Lens' BillingInfoGet' (Maybe Text)

109−bigQuotaUser

110− = lens _bigQuotaUser (\ s a -> s{_bigQuotaUser = a})

111−

112−-- | Returns response with indentations and line breaks.

113−bigPrettyPrint :: Lens' BillingInfoGet' Bool

114−bigPrettyPrint

115− = lens _bigPrettyPrint

116− (\ s a -> s{_bigPrettyPrint = a})

117−

118−-- | IP address of the site where the request originates. Use this if you

119−-- want to enforce per-user limits.

120−bigUserIP :: Lens' BillingInfoGet' (Maybe Text)

121−bigUserIP

122− = lens _bigUserIP (\ s a -> s{_bigUserIP = a})

123−

12469-- | The account id.

12570bigAccountId :: Lens' BillingInfoGet' Int32

12671bigAccountId

12772 = lens _bigAccountId (\ s a -> s{_bigAccountId = a})

12873

129−-- | API key. Your API key identifies your project and provides you with API

130−-- access, quota, and reports. Required unless you provide an OAuth 2.0

131−-- token.

132−bigKey :: Lens' BillingInfoGet' (Maybe AuthKey)

133−bigKey = lens _bigKey (\ s a -> s{_bigKey = a})

134−

135−-- | OAuth 2.0 token for the current user.

136−bigOAuthToken :: Lens' BillingInfoGet' (Maybe OAuthToken)

137−bigOAuthToken

138− = lens _bigOAuthToken

139− (\ s a -> s{_bigOAuthToken = a})

140−

141−-- | Selector specifying which fields to include in a partial response.

142−bigFields :: Lens' BillingInfoGet' (Maybe Text)

143−bigFields

144− = lens _bigFields (\ s a -> s{_bigFields = a})

145−

146−instance GoogleAuth BillingInfoGet' where

147− _AuthKey = bigKey . _Just

148− _AuthToken = bigOAuthToken . _Just

149−

15074instance GoogleRequest BillingInfoGet' where

15175 type Rs BillingInfoGet' = BillingInfo

152− request = requestWith adExchangeBuyerRequest

153− requestWith rq BillingInfoGet'{..}

154− = go _bigAccountId _bigQuotaUser

155− (Just _bigPrettyPrint)

156− _bigUserIP

157− _bigFields

158− _bigKey

159− _bigOAuthToken

160− (Just AltJSON)

76+ requestClient BillingInfoGet'{..}

77+ = go _bigAccountId (Just AltJSON)

78+ adExchangeBuyerService

16179 where go

162− = clientBuild (Proxy :: Proxy BillingInfoGetResource)

163− rq

80+ = buildClient (Proxy :: Proxy BillingInfoGetResource)

81+ mempty

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/BillingInfo/List.hs+10−94

@@ -33,13 +33,6 @@ module Network.Google.Resource.AdExchangeBuyer.BillingInfo.List

3333 , billingInfoList'

3434 , BillingInfoList'

3535

36− -- * Request Lenses

37− , bilQuotaUser

38− , bilPrettyPrint

39− , bilUserIP

40− , bilKey

41− , bilOAuthToken

42− , bilFields

4336 ) where

4437

4538import Network.Google.AdExchangeBuyer.Types

@@ -49,105 +42,28 @@ import Network.Google.Prelude

4942-- 'BillingInfoList'' request conforms to.

5043type BillingInfoListResource =

5144 "billinginfo" :>

52− QueryParam "quotaUser" Text :>

53− QueryParam "prettyPrint" Bool :>

54− QueryParam "userIp" Text :>

55− QueryParam "fields" Text :>

56− QueryParam "key" AuthKey :>

57− Header "Authorization" OAuthToken :>

58− QueryParam "alt" AltJSON :>

59− Get '[JSON] BillingInfoList

45+ QueryParam "alt" AltJSON :>

46+ Get '[JSON] BillingInfoList

6047

6148-- | Retrieves a list of billing information for all accounts of the

6249-- authenticated user.

6350--

6451-- /See:/ 'billingInfoList'' smart constructor.

65−data BillingInfoList' = BillingInfoList'

66− { _bilQuotaUser :: !(Maybe Text)

67− , _bilPrettyPrint :: !Bool

68− , _bilUserIP :: !(Maybe Text)

69− , _bilKey :: !(Maybe AuthKey)

70− , _bilOAuthToken :: !(Maybe OAuthToken)

71− , _bilFields :: !(Maybe Text)

72− } deriving (Eq,Show,Data,Typeable,Generic)

52+data BillingInfoList' =

53+ BillingInfoList'

54+ deriving (Eq,Show,Data,Typeable,Generic)

7355

7456-- | Creates a value of 'BillingInfoList'' with the minimum fields required to make a request.

7557--

76−-- Use one of the following lenses to modify other fields as desired:

77−--

78−-- * 'bilQuotaUser'

79−--

80−-- * 'bilPrettyPrint'

81−--

82−-- * 'bilUserIP'

83−--

84−-- * 'bilKey'

85−--

86−-- * 'bilOAuthToken'

87−--

88−-- * 'bilFields'

8958billingInfoList'

9059 :: BillingInfoList'

91−billingInfoList' =

92− BillingInfoList'

93− { _bilQuotaUser = Nothing

94− , _bilPrettyPrint = True

95− , _bilUserIP = Nothing

96− , _bilKey = Nothing

97− , _bilOAuthToken = Nothing

98− , _bilFields = Nothing

99− }

100−

101−-- | Available to use for quota purposes for server-side applications. Can be

102−-- any arbitrary string assigned to a user, but should not exceed 40

103−-- characters. Overrides userIp if both are provided.

104−bilQuotaUser :: Lens' BillingInfoList' (Maybe Text)

105−bilQuotaUser

106− = lens _bilQuotaUser (\ s a -> s{_bilQuotaUser = a})

107−

108−-- | Returns response with indentations and line breaks.

109−bilPrettyPrint :: Lens' BillingInfoList' Bool

110−bilPrettyPrint

111− = lens _bilPrettyPrint

112− (\ s a -> s{_bilPrettyPrint = a})

113−

114−-- | IP address of the site where the request originates. Use this if you

115−-- want to enforce per-user limits.

116−bilUserIP :: Lens' BillingInfoList' (Maybe Text)

117−bilUserIP

118− = lens _bilUserIP (\ s a -> s{_bilUserIP = a})

119−

120−-- | API key. Your API key identifies your project and provides you with API

121−-- access, quota, and reports. Required unless you provide an OAuth 2.0

122−-- token.

123−bilKey :: Lens' BillingInfoList' (Maybe AuthKey)

124−bilKey = lens _bilKey (\ s a -> s{_bilKey = a})

125−

126−-- | OAuth 2.0 token for the current user.

127−bilOAuthToken :: Lens' BillingInfoList' (Maybe OAuthToken)

128−bilOAuthToken

129− = lens _bilOAuthToken

130− (\ s a -> s{_bilOAuthToken = a})

131−

132−-- | Selector specifying which fields to include in a partial response.

133−bilFields :: Lens' BillingInfoList' (Maybe Text)

134−bilFields

135− = lens _bilFields (\ s a -> s{_bilFields = a})

136−

137−instance GoogleAuth BillingInfoList' where

138− _AuthKey = bilKey . _Just

139− _AuthToken = bilOAuthToken . _Just

60+billingInfoList' = BillingInfoList'

14061

14162instance GoogleRequest BillingInfoList' where

14263 type Rs BillingInfoList' = BillingInfoList

143− request = requestWith adExchangeBuyerRequest

144− requestWith rq BillingInfoList'{..}

145− = go _bilQuotaUser (Just _bilPrettyPrint) _bilUserIP

146− _bilFields

147− _bilKey

148− _bilOAuthToken

149− (Just AltJSON)

64+ requestClient BillingInfoList'{..}

65+ = go (Just AltJSON) adExchangeBuyerService

15066 where go

151− = clientBuild

67+ = buildClient

15268 (Proxy :: Proxy BillingInfoListResource)

153− rq

69+ mempty

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Budget/Get.hs+9−87

@@ -34,14 +34,8 @@ module Network.Google.Resource.AdExchangeBuyer.Budget.Get

3434 , BudgetGet'

3535

3636 -- * Request Lenses

37− , bgQuotaUser

38− , bgPrettyPrint

39− , bgUserIP

4037 , bgAccountId

41− , bgKey

42− , bgOAuthToken

4338 , bgBillingId

44− , bgFields

4539 ) where

4640

4741import Network.Google.AdExchangeBuyer.Types

@@ -53,121 +47,49 @@ type BudgetGetResource =

5347 "billinginfo" :>

5448 Capture "accountId" Int64 :>

5549 Capture "billingId" Int64 :>

56− QueryParam "quotaUser" Text :>

57− QueryParam "prettyPrint" Bool :>

58− QueryParam "userIp" Text :>

59− QueryParam "fields" Text :>

60− QueryParam "key" AuthKey :>

61− Header "Authorization" OAuthToken :>

62− QueryParam "alt" AltJSON :> Get '[JSON] Budget

50+ QueryParam "alt" AltJSON :> Get '[JSON] Budget

6351

6452-- | Returns the budget information for the adgroup specified by the

6553-- accountId and billingId.

6654--

6755-- /See:/ 'budgetGet'' smart constructor.

6856data BudgetGet' = BudgetGet'

69− { _bgQuotaUser :: !(Maybe Text)

70− , _bgPrettyPrint :: !Bool

71− , _bgUserIP :: !(Maybe Text)

72− , _bgAccountId :: !Int64

73− , _bgKey :: !(Maybe AuthKey)

74− , _bgOAuthToken :: !(Maybe OAuthToken)

75− , _bgBillingId :: !Int64

76− , _bgFields :: !(Maybe Text)

57+ { _bgAccountId :: !Int64

58+ , _bgBillingId :: !Int64

7759 } deriving (Eq,Show,Data,Typeable,Generic)

7860

7961-- | Creates a value of 'BudgetGet'' with the minimum fields required to make a request.

8062--

8163-- Use one of the following lenses to modify other fields as desired:

8264--

83−-- * 'bgQuotaUser'

84−--

85−-- * 'bgPrettyPrint'

86−--

87−-- * 'bgUserIP'

88−--

8965-- * 'bgAccountId'

9066--

91−-- * 'bgKey'

92−--

93−-- * 'bgOAuthToken'

94−--

9567-- * 'bgBillingId'

96−--

97−-- * 'bgFields'

9868budgetGet'

9969 :: Int64 -- ^ 'accountId'

10070 -> Int64 -- ^ 'billingId'

10171 -> BudgetGet'

10272budgetGet' pBgAccountId_ pBgBillingId_ =

10373 BudgetGet'

104− { _bgQuotaUser = Nothing

105− , _bgPrettyPrint = True

106− , _bgUserIP = Nothing

107− , _bgAccountId = pBgAccountId_

108− , _bgKey = Nothing

109− , _bgOAuthToken = Nothing

74+ { _bgAccountId = pBgAccountId_

11075 , _bgBillingId = pBgBillingId_

111− , _bgFields = Nothing

11276 }

11377

114−-- | Available to use for quota purposes for server-side applications. Can be

115−-- any arbitrary string assigned to a user, but should not exceed 40

116−-- characters. Overrides userIp if both are provided.

117−bgQuotaUser :: Lens' BudgetGet' (Maybe Text)

118−bgQuotaUser

119− = lens _bgQuotaUser (\ s a -> s{_bgQuotaUser = a})

120−

121−-- | Returns response with indentations and line breaks.

122−bgPrettyPrint :: Lens' BudgetGet' Bool

123−bgPrettyPrint

124− = lens _bgPrettyPrint

125− (\ s a -> s{_bgPrettyPrint = a})

126−

127−-- | IP address of the site where the request originates. Use this if you

128−-- want to enforce per-user limits.

129−bgUserIP :: Lens' BudgetGet' (Maybe Text)

130−bgUserIP = lens _bgUserIP (\ s a -> s{_bgUserIP = a})

131−

13278-- | The account id to get the budget information for.

13379bgAccountId :: Lens' BudgetGet' Int64

13480bgAccountId

13581 = lens _bgAccountId (\ s a -> s{_bgAccountId = a})

13682

137−-- | API key. Your API key identifies your project and provides you with API

138−-- access, quota, and reports. Required unless you provide an OAuth 2.0

139−-- token.

140−bgKey :: Lens' BudgetGet' (Maybe AuthKey)

141−bgKey = lens _bgKey (\ s a -> s{_bgKey = a})

142−

143−-- | OAuth 2.0 token for the current user.

144−bgOAuthToken :: Lens' BudgetGet' (Maybe OAuthToken)

145−bgOAuthToken

146− = lens _bgOAuthToken (\ s a -> s{_bgOAuthToken = a})

147−

14883-- | The billing id to get the budget information for.

14984bgBillingId :: Lens' BudgetGet' Int64

15085bgBillingId

15186 = lens _bgBillingId (\ s a -> s{_bgBillingId = a})

15287

153−-- | Selector specifying which fields to include in a partial response.

154−bgFields :: Lens' BudgetGet' (Maybe Text)

155−bgFields = lens _bgFields (\ s a -> s{_bgFields = a})

156−

157−instance GoogleAuth BudgetGet' where

158− _AuthKey = bgKey . _Just

159− _AuthToken = bgOAuthToken . _Just

160−

16188instance GoogleRequest BudgetGet' where

16289 type Rs BudgetGet' = Budget

163− request = requestWith adExchangeBuyerRequest

164− requestWith rq BudgetGet'{..}

165− = go _bgAccountId _bgBillingId _bgQuotaUser

166− (Just _bgPrettyPrint)

167− _bgUserIP

168− _bgFields

169− _bgKey

170− _bgOAuthToken

171− (Just AltJSON)

90+ requestClient BudgetGet'{..}

91+ = go _bgAccountId _bgBillingId (Just AltJSON)

92+ adExchangeBuyerService

17293 where go

173− = clientBuild (Proxy :: Proxy BudgetGetResource) rq

94+ = buildClient (Proxy :: Proxy BudgetGetResource)

95+ mempty

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Budget/Patch.hs+11−89

@@ -35,15 +35,9 @@ module Network.Google.Resource.AdExchangeBuyer.Budget.Patch

3535 , BudgetPatch'

3636

3737 -- * Request Lenses

38− , bpQuotaUser

39− , bpPrettyPrint

40− , bpUserIP

4138 , bpPayload

4239 , bpAccountId

43− , bpKey

44− , bpOAuthToken

4540 , bpBillingId

46− , bpFields

4741 ) where

4842

4943import Network.Google.AdExchangeBuyer.Types

@@ -55,14 +49,8 @@ type BudgetPatchResource =

5549 "billinginfo" :>

5650 Capture "accountId" Int64 :>

5751 Capture "billingId" Int64 :>

58− QueryParam "quotaUser" Text :>

59− QueryParam "prettyPrint" Bool :>

60− QueryParam "userIp" Text :>

61− QueryParam "fields" Text :>

62− QueryParam "key" AuthKey :>

63− Header "Authorization" OAuthToken :>

64− QueryParam "alt" AltJSON :>

65− ReqBody '[JSON] Budget :> Patch '[JSON] Budget

52+ QueryParam "alt" AltJSON :>

53+ ReqBody '[JSON] Budget :> Patch '[JSON] Budget

6654

6755-- | Updates the budget amount for the budget of the adgroup specified by the

6856-- accountId and billingId, with the budget amount in the request. This

@@ -70,38 +58,20 @@ type BudgetPatchResource =

7058--

7159-- /See:/ 'budgetPatch'' smart constructor.

7260data BudgetPatch' = BudgetPatch'

73− { _bpQuotaUser :: !(Maybe Text)

74− , _bpPrettyPrint :: !Bool

75− , _bpUserIP :: !(Maybe Text)

76− , _bpPayload :: !Budget

77− , _bpAccountId :: !Int64

78− , _bpKey :: !(Maybe AuthKey)

79− , _bpOAuthToken :: !(Maybe OAuthToken)

80− , _bpBillingId :: !Int64

81− , _bpFields :: !(Maybe Text)

61+ { _bpPayload :: !Budget

62+ , _bpAccountId :: !Int64

63+ , _bpBillingId :: !Int64

8264 } deriving (Eq,Show,Data,Typeable,Generic)

8365

8466-- | Creates a value of 'BudgetPatch'' with the minimum fields required to make a request.

8567--

8668-- Use one of the following lenses to modify other fields as desired:

8769--

88−-- * 'bpQuotaUser'

89−--

90−-- * 'bpPrettyPrint'

91−--

92−-- * 'bpUserIP'

93−--

9470-- * 'bpPayload'

9571--

9672-- * 'bpAccountId'

9773--

98−-- * 'bpKey'

99−--

100−-- * 'bpOAuthToken'

101−--

10274-- * 'bpBillingId'

103−--

104−-- * 'bpFields'

10575budgetPatch'

10676 :: Budget -- ^ 'payload'

10777 -> Int64 -- ^ 'accountId'

@@ -109,35 +79,11 @@ budgetPatch'

10979 -> BudgetPatch'

11080budgetPatch' pBpPayload_ pBpAccountId_ pBpBillingId_ =

11181 BudgetPatch'

112− { _bpQuotaUser = Nothing

113− , _bpPrettyPrint = True

114− , _bpUserIP = Nothing

115− , _bpPayload = pBpPayload_

82+ { _bpPayload = pBpPayload_

11683 , _bpAccountId = pBpAccountId_

117− , _bpKey = Nothing

118− , _bpOAuthToken = Nothing

11984 , _bpBillingId = pBpBillingId_

120− , _bpFields = Nothing

12185 }

12286

123−-- | Available to use for quota purposes for server-side applications. Can be

124−-- any arbitrary string assigned to a user, but should not exceed 40

125−-- characters. Overrides userIp if both are provided.

126−bpQuotaUser :: Lens' BudgetPatch' (Maybe Text)

127−bpQuotaUser

128− = lens _bpQuotaUser (\ s a -> s{_bpQuotaUser = a})

129−

130−-- | Returns response with indentations and line breaks.

131−bpPrettyPrint :: Lens' BudgetPatch' Bool

132−bpPrettyPrint

133− = lens _bpPrettyPrint

134− (\ s a -> s{_bpPrettyPrint = a})

135−

136−-- | IP address of the site where the request originates. Use this if you

137−-- want to enforce per-user limits.

138−bpUserIP :: Lens' BudgetPatch' (Maybe Text)

139−bpUserIP = lens _bpUserIP (\ s a -> s{_bpUserIP = a})

140−

14187-- | Multipart request metadata.

14288bpPayload :: Lens' BudgetPatch' Budget

14389bpPayload

@@ -148,41 +94,17 @@ bpAccountId :: Lens' BudgetPatch' Int64

14894bpAccountId

14995 = lens _bpAccountId (\ s a -> s{_bpAccountId = a})

15096

151−-- | API key. Your API key identifies your project and provides you with API

152−-- access, quota, and reports. Required unless you provide an OAuth 2.0

153−-- token.

154−bpKey :: Lens' BudgetPatch' (Maybe AuthKey)

155−bpKey = lens _bpKey (\ s a -> s{_bpKey = a})

156−

157−-- | OAuth 2.0 token for the current user.

158−bpOAuthToken :: Lens' BudgetPatch' (Maybe OAuthToken)

159−bpOAuthToken

160− = lens _bpOAuthToken (\ s a -> s{_bpOAuthToken = a})

161−

16297-- | The billing id associated with the budget being updated.

16398bpBillingId :: Lens' BudgetPatch' Int64

16499bpBillingId

165100 = lens _bpBillingId (\ s a -> s{_bpBillingId = a})

166101

167−-- | Selector specifying which fields to include in a partial response.

168−bpFields :: Lens' BudgetPatch' (Maybe Text)

169−bpFields = lens _bpFields (\ s a -> s{_bpFields = a})

170−

171−instance GoogleAuth BudgetPatch' where

172− _AuthKey = bpKey . _Just

173− _AuthToken = bpOAuthToken . _Just

174−

175102instance GoogleRequest BudgetPatch' where

176103 type Rs BudgetPatch' = Budget

177− request = requestWith adExchangeBuyerRequest

178− requestWith rq BudgetPatch'{..}

179− = go _bpAccountId _bpBillingId _bpQuotaUser

180− (Just _bpPrettyPrint)

181− _bpUserIP

182− _bpFields

183− _bpKey

184− _bpOAuthToken

185− (Just AltJSON)

104+ requestClient BudgetPatch'{..}

105+ = go _bpAccountId _bpBillingId (Just AltJSON)

186106 _bpPayload

107+ adExchangeBuyerService

187108 where go

188− = clientBuild (Proxy :: Proxy BudgetPatchResource) rq

109+ = buildClient (Proxy :: Proxy BudgetPatchResource)

110+ mempty

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Budget/Update.hs+11−90

@@ -34,15 +34,9 @@ module Network.Google.Resource.AdExchangeBuyer.Budget.Update

3434 , BudgetUpdate'

3535

3636 -- * Request Lenses

37− , buQuotaUser

38− , buPrettyPrint

39− , buUserIP

4037 , buPayload

4138 , buAccountId

42− , buKey

43− , buOAuthToken

4439 , buBillingId

45− , buFields

4640 ) where

4741

4842import Network.Google.AdExchangeBuyer.Types

@@ -54,52 +48,28 @@ type BudgetUpdateResource =

5448 "billinginfo" :>

5549 Capture "accountId" Int64 :>

5650 Capture "billingId" Int64 :>

57− QueryParam "quotaUser" Text :>

58− QueryParam "prettyPrint" Bool :>

59− QueryParam "userIp" Text :>

60− QueryParam "fields" Text :>

61− QueryParam "key" AuthKey :>

62− Header "Authorization" OAuthToken :>

63− QueryParam "alt" AltJSON :>

64− ReqBody '[JSON] Budget :> Put '[JSON] Budget

51+ QueryParam "alt" AltJSON :>

52+ ReqBody '[JSON] Budget :> Put '[JSON] Budget

6553

6654-- | Updates the budget amount for the budget of the adgroup specified by the

6755-- accountId and billingId, with the budget amount in the request.

6856--

6957-- /See:/ 'budgetUpdate'' smart constructor.

7058data BudgetUpdate' = BudgetUpdate'

71− { _buQuotaUser :: !(Maybe Text)

72− , _buPrettyPrint :: !Bool

73− , _buUserIP :: !(Maybe Text)

74− , _buPayload :: !Budget

75− , _buAccountId :: !Int64

76− , _buKey :: !(Maybe AuthKey)

77− , _buOAuthToken :: !(Maybe OAuthToken)

78− , _buBillingId :: !Int64

79− , _buFields :: !(Maybe Text)

59+ { _buPayload :: !Budget

60+ , _buAccountId :: !Int64

61+ , _buBillingId :: !Int64

8062 } deriving (Eq,Show,Data,Typeable,Generic)

8163

8264-- | Creates a value of 'BudgetUpdate'' with the minimum fields required to make a request.

8365--

8466-- Use one of the following lenses to modify other fields as desired:

8567--

86−-- * 'buQuotaUser'

87−--

88−-- * 'buPrettyPrint'

89−--

90−-- * 'buUserIP'

91−--

9268-- * 'buPayload'

9369--

9470-- * 'buAccountId'

9571--

96−-- * 'buKey'

97−--

98−-- * 'buOAuthToken'

99−--

10072-- * 'buBillingId'

101−--

102−-- * 'buFields'

10373budgetUpdate'

10474 :: Budget -- ^ 'payload'

10575 -> Int64 -- ^ 'accountId'

@@ -107,35 +77,11 @@ budgetUpdate'

10777 -> BudgetUpdate'

10878budgetUpdate' pBuPayload_ pBuAccountId_ pBuBillingId_ =

10979 BudgetUpdate'

110− { _buQuotaUser = Nothing

111− , _buPrettyPrint = True

112− , _buUserIP = Nothing

113− , _buPayload = pBuPayload_

80+ { _buPayload = pBuPayload_

11481 , _buAccountId = pBuAccountId_

115− , _buKey = Nothing

116− , _buOAuthToken = Nothing

11782 , _buBillingId = pBuBillingId_

118− , _buFields = Nothing

11983 }

12084

121−-- | Available to use for quota purposes for server-side applications. Can be

122−-- any arbitrary string assigned to a user, but should not exceed 40

123−-- characters. Overrides userIp if both are provided.

124−buQuotaUser :: Lens' BudgetUpdate' (Maybe Text)

125−buQuotaUser

126− = lens _buQuotaUser (\ s a -> s{_buQuotaUser = a})

127−

128−-- | Returns response with indentations and line breaks.

129−buPrettyPrint :: Lens' BudgetUpdate' Bool

130−buPrettyPrint

131− = lens _buPrettyPrint

132− (\ s a -> s{_buPrettyPrint = a})

133−

134−-- | IP address of the site where the request originates. Use this if you

135−-- want to enforce per-user limits.

136−buUserIP :: Lens' BudgetUpdate' (Maybe Text)

137−buUserIP = lens _buUserIP (\ s a -> s{_buUserIP = a})

138−

13985-- | Multipart request metadata.

14086buPayload :: Lens' BudgetUpdate' Budget

14187buPayload

@@ -146,42 +92,17 @@ buAccountId :: Lens' BudgetUpdate' Int64

14692buAccountId

14793 = lens _buAccountId (\ s a -> s{_buAccountId = a})

14894

149−-- | API key. Your API key identifies your project and provides you with API

150−-- access, quota, and reports. Required unless you provide an OAuth 2.0

151−-- token.

152−buKey :: Lens' BudgetUpdate' (Maybe AuthKey)

153−buKey = lens _buKey (\ s a -> s{_buKey = a})

154−

155−-- | OAuth 2.0 token for the current user.

156−buOAuthToken :: Lens' BudgetUpdate' (Maybe OAuthToken)

157−buOAuthToken

158− = lens _buOAuthToken (\ s a -> s{_buOAuthToken = a})

159−

16095-- | The billing id associated with the budget being updated.

16196buBillingId :: Lens' BudgetUpdate' Int64

16297buBillingId

16398 = lens _buBillingId (\ s a -> s{_buBillingId = a})

16499

165−-- | Selector specifying which fields to include in a partial response.

166−buFields :: Lens' BudgetUpdate' (Maybe Text)

167−buFields = lens _buFields (\ s a -> s{_buFields = a})

168−

169−instance GoogleAuth BudgetUpdate' where

170− _AuthKey = buKey . _Just

171− _AuthToken = buOAuthToken . _Just

172−

173100instance GoogleRequest BudgetUpdate' where

174101 type Rs BudgetUpdate' = Budget

175− request = requestWith adExchangeBuyerRequest

176− requestWith rq BudgetUpdate'{..}

177− = go _buAccountId _buBillingId _buQuotaUser

178− (Just _buPrettyPrint)

179− _buUserIP

180− _buFields

181− _buKey

182− _buOAuthToken

183− (Just AltJSON)

102+ requestClient BudgetUpdate'{..}

103+ = go _buAccountId _buBillingId (Just AltJSON)

184104 _buPayload

105+ adExchangeBuyerService

185106 where go

186− = clientBuild (Proxy :: Proxy BudgetUpdateResource)

187− rq

107+ = buildClient (Proxy :: Proxy BudgetUpdateResource)

108+ mempty

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/ClientAccess/Delete.hs+7−89

@@ -33,14 +33,8 @@ module Network.Google.Resource.AdExchangeBuyer.ClientAccess.Delete

3333 , ClientAccessDelete'

3434

3535 -- * Request Lenses

36− , cadQuotaUser

37− , cadPrettyPrint

38− , cadUserIP

3936 , cadSponsorAccountId

40− , cadKey

4137 , cadClientAccountId

42− , cadOAuthToken

43− , cadFields

4438 ) where

4539

4640import Network.Google.AdExchangeBuyer.Types

@@ -52,125 +46,49 @@ type ClientAccessDeleteResource =

5246 "clientAccess" :>

5347 Capture "clientAccountId" Int64 :>

5448 QueryParam "sponsorAccountId" Int32 :>

55− QueryParam "quotaUser" Text :>

56− QueryParam "prettyPrint" Bool :>

57− QueryParam "userIp" Text :>

58− QueryParam "fields" Text :>

59− QueryParam "key" AuthKey :>

60− Header "Authorization" OAuthToken :>

61− QueryParam "alt" AltJSON :> Delete '[JSON] ()

49+ QueryParam "alt" AltJSON :> Delete '[JSON] ()

6250

6351--

6452-- /See:/ 'clientAccessDelete'' smart constructor.

6553data ClientAccessDelete' = ClientAccessDelete'

66− { _cadQuotaUser :: !(Maybe Text)

67− , _cadPrettyPrint :: !Bool

68− , _cadUserIP :: !(Maybe Text)

69− , _cadSponsorAccountId :: !Int32

70− , _cadKey :: !(Maybe AuthKey)

54+ { _cadSponsorAccountId :: !Int32

7155 , _cadClientAccountId :: !Int64

72− , _cadOAuthToken :: !(Maybe OAuthToken)

73− , _cadFields :: !(Maybe Text)

7456 } deriving (Eq,Show,Data,Typeable,Generic)

7557

7658-- | Creates a value of 'ClientAccessDelete'' with the minimum fields required to make a request.

7759--

7860-- Use one of the following lenses to modify other fields as desired:

7961--

80−-- * 'cadQuotaUser'

81−--

82−-- * 'cadPrettyPrint'

83−--

84−-- * 'cadUserIP'

85−--

8662-- * 'cadSponsorAccountId'

8763--

88−-- * 'cadKey'

89−--

9064-- * 'cadClientAccountId'

91−--

92−-- * 'cadOAuthToken'

93−--

94−-- * 'cadFields'

9565clientAccessDelete'

9666 :: Int32 -- ^ 'sponsorAccountId'

9767 -> Int64 -- ^ 'clientAccountId'

9868 -> ClientAccessDelete'

9969clientAccessDelete' pCadSponsorAccountId_ pCadClientAccountId_ =

10070 ClientAccessDelete'

101− { _cadQuotaUser = Nothing

102− , _cadPrettyPrint = True

103− , _cadUserIP = Nothing

104− , _cadSponsorAccountId = pCadSponsorAccountId_

105− , _cadKey = Nothing

71+ { _cadSponsorAccountId = pCadSponsorAccountId_

10672 , _cadClientAccountId = pCadClientAccountId_

107− , _cadOAuthToken = Nothing

108− , _cadFields = Nothing

10973 }

11074

111−-- | Available to use for quota purposes for server-side applications. Can be

112−-- any arbitrary string assigned to a user, but should not exceed 40

113−-- characters. Overrides userIp if both are provided.

114−cadQuotaUser :: Lens' ClientAccessDelete' (Maybe Text)

115−cadQuotaUser

116− = lens _cadQuotaUser (\ s a -> s{_cadQuotaUser = a})

117−

118−-- | Returns response with indentations and line breaks.

119−cadPrettyPrint :: Lens' ClientAccessDelete' Bool

120−cadPrettyPrint

121− = lens _cadPrettyPrint

122− (\ s a -> s{_cadPrettyPrint = a})

123−

124−-- | IP address of the site where the request originates. Use this if you

125−-- want to enforce per-user limits.

126−cadUserIP :: Lens' ClientAccessDelete' (Maybe Text)

127−cadUserIP

128− = lens _cadUserIP (\ s a -> s{_cadUserIP = a})

129−

13075cadSponsorAccountId :: Lens' ClientAccessDelete' Int32

13176cadSponsorAccountId

13277 = lens _cadSponsorAccountId

13378 (\ s a -> s{_cadSponsorAccountId = a})

13479

135−-- | API key. Your API key identifies your project and provides you with API

136−-- access, quota, and reports. Required unless you provide an OAuth 2.0

137−-- token.

138−cadKey :: Lens' ClientAccessDelete' (Maybe AuthKey)

139−cadKey = lens _cadKey (\ s a -> s{_cadKey = a})

140−

14180cadClientAccountId :: Lens' ClientAccessDelete' Int64

14281cadClientAccountId

14382 = lens _cadClientAccountId

14483 (\ s a -> s{_cadClientAccountId = a})

14584

146−-- | OAuth 2.0 token for the current user.

147−cadOAuthToken :: Lens' ClientAccessDelete' (Maybe OAuthToken)

148−cadOAuthToken

149− = lens _cadOAuthToken

150− (\ s a -> s{_cadOAuthToken = a})

151−

152−-- | Selector specifying which fields to include in a partial response.

153−cadFields :: Lens' ClientAccessDelete' (Maybe Text)

154−cadFields

155− = lens _cadFields (\ s a -> s{_cadFields = a})

156−

157−instance GoogleAuth ClientAccessDelete' where

158− _AuthKey = cadKey . _Just

159− _AuthToken = cadOAuthToken . _Just

160−

16185instance GoogleRequest ClientAccessDelete' where

16286 type Rs ClientAccessDelete' = ()

163− request = requestWith adExchangeBuyerRequest

164− requestWith rq ClientAccessDelete'{..}

87+ requestClient ClientAccessDelete'{..}

16588 = go _cadClientAccountId (Just _cadSponsorAccountId)

166− _cadQuotaUser

167− (Just _cadPrettyPrint)

168− _cadUserIP

169− _cadFields

170− _cadKey

171− _cadOAuthToken

17289 (Just AltJSON)

90+ adExchangeBuyerService

17391 where go

174− = clientBuild

92+ = buildClient

17593 (Proxy :: Proxy ClientAccessDeleteResource)

176− rq

94+ mempty

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/ClientAccess/Get.hs+8−90

@@ -33,14 +33,8 @@ module Network.Google.Resource.AdExchangeBuyer.ClientAccess.Get

3333 , ClientAccessGet'

3434

3535 -- * Request Lenses

36− , cagQuotaUser

37− , cagPrettyPrint

38− , cagUserIP

3936 , cagSponsorAccountId

40− , cagKey

4137 , cagClientAccountId

42− , cagOAuthToken

43− , cagFields

4438 ) where

4539

4640import Network.Google.AdExchangeBuyer.Types

@@ -52,126 +46,50 @@ type ClientAccessGetResource =

5246 "clientAccess" :>

5347 Capture "clientAccountId" Int64 :>

5448 QueryParam "sponsorAccountId" Int32 :>

55− QueryParam "quotaUser" Text :>

56− QueryParam "prettyPrint" Bool :>

57− QueryParam "userIp" Text :>

58− QueryParam "fields" Text :>

59− QueryParam "key" AuthKey :>

60− Header "Authorization" OAuthToken :>

61− QueryParam "alt" AltJSON :>

62− Get '[JSON] ClientAccessCapabilities

49+ QueryParam "alt" AltJSON :>

50+ Get '[JSON] ClientAccessCapabilities

6351

6452--

6553-- /See:/ 'clientAccessGet'' smart constructor.

6654data ClientAccessGet' = ClientAccessGet'

67− { _cagQuotaUser :: !(Maybe Text)

68− , _cagPrettyPrint :: !Bool

69− , _cagUserIP :: !(Maybe Text)

70− , _cagSponsorAccountId :: !Int32

71− , _cagKey :: !(Maybe AuthKey)

55+ { _cagSponsorAccountId :: !Int32

7256 , _cagClientAccountId :: !Int64

73− , _cagOAuthToken :: !(Maybe OAuthToken)

74− , _cagFields :: !(Maybe Text)

7557 } deriving (Eq,Show,Data,Typeable,Generic)

7658

7759-- | Creates a value of 'ClientAccessGet'' with the minimum fields required to make a request.

7860--

7961-- Use one of the following lenses to modify other fields as desired:

8062--

81−-- * 'cagQuotaUser'

82−--

83−-- * 'cagPrettyPrint'

84−--

85−-- * 'cagUserIP'

86−--

8763-- * 'cagSponsorAccountId'

8864--

89−-- * 'cagKey'

90−--

9165-- * 'cagClientAccountId'

92−--

93−-- * 'cagOAuthToken'

94−--

95−-- * 'cagFields'

9666clientAccessGet'

9767 :: Int32 -- ^ 'sponsorAccountId'

9868 -> Int64 -- ^ 'clientAccountId'

9969 -> ClientAccessGet'

10070clientAccessGet' pCagSponsorAccountId_ pCagClientAccountId_ =

10171 ClientAccessGet'

102− { _cagQuotaUser = Nothing

103− , _cagPrettyPrint = True

104− , _cagUserIP = Nothing

105− , _cagSponsorAccountId = pCagSponsorAccountId_

106− , _cagKey = Nothing

72+ { _cagSponsorAccountId = pCagSponsorAccountId_

10773 , _cagClientAccountId = pCagClientAccountId_

108− , _cagOAuthToken = Nothing

109− , _cagFields = Nothing

11074 }

11175

112−-- | Available to use for quota purposes for server-side applications. Can be

113−-- any arbitrary string assigned to a user, but should not exceed 40

114−-- characters. Overrides userIp if both are provided.

115−cagQuotaUser :: Lens' ClientAccessGet' (Maybe Text)

116−cagQuotaUser

117− = lens _cagQuotaUser (\ s a -> s{_cagQuotaUser = a})

118−

119−-- | Returns response with indentations and line breaks.

120−cagPrettyPrint :: Lens' ClientAccessGet' Bool

121−cagPrettyPrint

122− = lens _cagPrettyPrint

123− (\ s a -> s{_cagPrettyPrint = a})

124−

125−-- | IP address of the site where the request originates. Use this if you

126−-- want to enforce per-user limits.

127−cagUserIP :: Lens' ClientAccessGet' (Maybe Text)

128−cagUserIP

129− = lens _cagUserIP (\ s a -> s{_cagUserIP = a})

130−

13176cagSponsorAccountId :: Lens' ClientAccessGet' Int32

13277cagSponsorAccountId

13378 = lens _cagSponsorAccountId

13479 (\ s a -> s{_cagSponsorAccountId = a})

13580

136−-- | API key. Your API key identifies your project and provides you with API

137−-- access, quota, and reports. Required unless you provide an OAuth 2.0

138−-- token.

139−cagKey :: Lens' ClientAccessGet' (Maybe AuthKey)

140−cagKey = lens _cagKey (\ s a -> s{_cagKey = a})

141−

14281cagClientAccountId :: Lens' ClientAccessGet' Int64

14382cagClientAccountId

14483 = lens _cagClientAccountId

14584 (\ s a -> s{_cagClientAccountId = a})

14685

147−-- | OAuth 2.0 token for the current user.

148−cagOAuthToken :: Lens' ClientAccessGet' (Maybe OAuthToken)

149−cagOAuthToken

150− = lens _cagOAuthToken

151− (\ s a -> s{_cagOAuthToken = a})

152−

153−-- | Selector specifying which fields to include in a partial response.

154−cagFields :: Lens' ClientAccessGet' (Maybe Text)

155−cagFields

156− = lens _cagFields (\ s a -> s{_cagFields = a})

157−

158−instance GoogleAuth ClientAccessGet' where

159− _AuthKey = cagKey . _Just

160− _AuthToken = cagOAuthToken . _Just

161−

16286instance GoogleRequest ClientAccessGet' where

16387 type Rs ClientAccessGet' = ClientAccessCapabilities

164− request = requestWith adExchangeBuyerRequest

165− requestWith rq ClientAccessGet'{..}

88+ requestClient ClientAccessGet'{..}

16689 = go _cagClientAccountId (Just _cagSponsorAccountId)

167− _cagQuotaUser

168− (Just _cagPrettyPrint)

169− _cagUserIP

170− _cagFields

171− _cagKey

172− _cagOAuthToken

17390 (Just AltJSON)

91+ adExchangeBuyerService

17492 where go

175− = clientBuild

93+ = buildClient

17694 (Proxy :: Proxy ClientAccessGetResource)

177− rq

95+ mempty

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/ClientAccess/Insert.hs+9−91

@@ -33,15 +33,9 @@ module Network.Google.Resource.AdExchangeBuyer.ClientAccess.Insert

3333 , ClientAccessInsert'

3434

3535 -- * Request Lenses

36− , caiQuotaUser

37− , caiPrettyPrint

38− , caiUserIP

3936 , caiSponsorAccountId

4037 , caiPayload

41− , caiKey

4238 , caiClientAccountId

43− , caiOAuthToken

44− , caiFields

4539 ) where

4640

4741import Network.Google.AdExchangeBuyer.Types

@@ -53,86 +47,37 @@ type ClientAccessInsertResource =

5347 "clientAccess" :>

5448 QueryParam "sponsorAccountId" Int32 :>

5549 QueryParam "clientAccountId" Int64 :>

56− QueryParam "quotaUser" Text :>

57− QueryParam "prettyPrint" Bool :>

58− QueryParam "userIp" Text :>

59− QueryParam "fields" Text :>

60− QueryParam "key" AuthKey :>

61− Header "Authorization" OAuthToken :>

62− QueryParam "alt" AltJSON :>

63− ReqBody '[JSON] ClientAccessCapabilities :>

64− Post '[JSON] ClientAccessCapabilities

50+ QueryParam "alt" AltJSON :>

51+ ReqBody '[JSON] ClientAccessCapabilities :>

52+ Post '[JSON] ClientAccessCapabilities

6553

6654--

6755-- /See:/ 'clientAccessInsert'' smart constructor.

6856data ClientAccessInsert' = ClientAccessInsert'

69− { _caiQuotaUser :: !(Maybe Text)

70− , _caiPrettyPrint :: !Bool

71− , _caiUserIP :: !(Maybe Text)

72− , _caiSponsorAccountId :: !(Maybe Int32)

57+ { _caiSponsorAccountId :: !(Maybe Int32)

7358 , _caiPayload :: !ClientAccessCapabilities

74− , _caiKey :: !(Maybe AuthKey)

7559 , _caiClientAccountId :: !(Maybe Int64)

76− , _caiOAuthToken :: !(Maybe OAuthToken)

77− , _caiFields :: !(Maybe Text)

7860 } deriving (Eq,Show,Data,Typeable,Generic)

7961

8062-- | Creates a value of 'ClientAccessInsert'' with the minimum fields required to make a request.

8163--

8264-- Use one of the following lenses to modify other fields as desired:

8365--

84−-- * 'caiQuotaUser'

85−--

86−-- * 'caiPrettyPrint'

87−--

88−-- * 'caiUserIP'

89−--

9066-- * 'caiSponsorAccountId'

9167--

9268-- * 'caiPayload'

9369--

94−-- * 'caiKey'

95−--

9670-- * 'caiClientAccountId'

97−--

98−-- * 'caiOAuthToken'

99−--

100−-- * 'caiFields'

10171clientAccessInsert'

10272 :: ClientAccessCapabilities -- ^ 'payload'

10373 -> ClientAccessInsert'

10474clientAccessInsert' pCaiPayload_ =

10575 ClientAccessInsert'

106− { _caiQuotaUser = Nothing

107− , _caiPrettyPrint = True

108− , _caiUserIP = Nothing

109− , _caiSponsorAccountId = Nothing

76+ { _caiSponsorAccountId = Nothing

11077 , _caiPayload = pCaiPayload_

111− , _caiKey = Nothing

11278 , _caiClientAccountId = Nothing

113− , _caiOAuthToken = Nothing

114− , _caiFields = Nothing

11579 }

11680

117−-- | Available to use for quota purposes for server-side applications. Can be

118−-- any arbitrary string assigned to a user, but should not exceed 40

119−-- characters. Overrides userIp if both are provided.

120−caiQuotaUser :: Lens' ClientAccessInsert' (Maybe Text)

121−caiQuotaUser

122− = lens _caiQuotaUser (\ s a -> s{_caiQuotaUser = a})

123−

124−-- | Returns response with indentations and line breaks.

125−caiPrettyPrint :: Lens' ClientAccessInsert' Bool

126−caiPrettyPrint

127− = lens _caiPrettyPrint

128− (\ s a -> s{_caiPrettyPrint = a})

129−

130−-- | IP address of the site where the request originates. Use this if you

131−-- want to enforce per-user limits.

132−caiUserIP :: Lens' ClientAccessInsert' (Maybe Text)

133−caiUserIP

134− = lens _caiUserIP (\ s a -> s{_caiUserIP = a})

135−

13681caiSponsorAccountId :: Lens' ClientAccessInsert' (Maybe Int32)

13782caiSponsorAccountId

13883 = lens _caiSponsorAccountId

@@ -143,47 +88,20 @@ caiPayload :: Lens' ClientAccessInsert' ClientAccessCapabilities

14388caiPayload

14489 = lens _caiPayload (\ s a -> s{_caiPayload = a})

14590

146−-- | API key. Your API key identifies your project and provides you with API

147−-- access, quota, and reports. Required unless you provide an OAuth 2.0

148−-- token.

149−caiKey :: Lens' ClientAccessInsert' (Maybe AuthKey)

150−caiKey = lens _caiKey (\ s a -> s{_caiKey = a})

151−

15291caiClientAccountId :: Lens' ClientAccessInsert' (Maybe Int64)

15392caiClientAccountId

15493 = lens _caiClientAccountId

15594 (\ s a -> s{_caiClientAccountId = a})

15695

157−-- | OAuth 2.0 token for the current user.

158−caiOAuthToken :: Lens' ClientAccessInsert' (Maybe OAuthToken)

159−caiOAuthToken

160− = lens _caiOAuthToken

161− (\ s a -> s{_caiOAuthToken = a})

162−

163−-- | Selector specifying which fields to include in a partial response.

164−caiFields :: Lens' ClientAccessInsert' (Maybe Text)

165−caiFields

166− = lens _caiFields (\ s a -> s{_caiFields = a})

167−

168−instance GoogleAuth ClientAccessInsert' where

169− _AuthKey = caiKey . _Just

170− _AuthToken = caiOAuthToken . _Just

171−

17296instance GoogleRequest ClientAccessInsert' where

17397 type Rs ClientAccessInsert' =

17498 ClientAccessCapabilities

175− request = requestWith adExchangeBuyerRequest

176− requestWith rq ClientAccessInsert'{..}

99+ requestClient ClientAccessInsert'{..}

177100 = go _caiSponsorAccountId _caiClientAccountId

178− _caiQuotaUser

179− (Just _caiPrettyPrint)

180− _caiUserIP

181− _caiFields

182− _caiKey

183− _caiOAuthToken

184101 (Just AltJSON)

185102 _caiPayload

103+ adExchangeBuyerService

186104 where go

187− = clientBuild

105+ = buildClient

188106 (Proxy :: Proxy ClientAccessInsertResource)

189− rq

107+ mempty

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/ClientAccess/List.hs+11−92

@@ -33,13 +33,7 @@ module Network.Google.Resource.AdExchangeBuyer.ClientAccess.List

3333 , ClientAccessList'

3434

3535 -- * Request Lenses

36− , calQuotaUser

37− , calPrettyPrint

38− , calUserIP

3936 , calPayload

40− , calKey

41− , calOAuthToken

42− , calFields

4337 ) where

4438

4539import Network.Google.AdExchangeBuyer.Types

@@ -49,116 +43,41 @@ import Network.Google.Prelude

4943-- 'ClientAccessList'' request conforms to.

5044type ClientAccessListResource =

5145 "clientAccess" :>

52− QueryParam "quotaUser" Text :>

53− QueryParam "prettyPrint" Bool :>

54− QueryParam "userIp" Text :>

55− QueryParam "fields" Text :>

56− QueryParam "key" AuthKey :>

57− Header "Authorization" OAuthToken :>

58− QueryParam "alt" AltJSON :>

59− ReqBody '[JSON] ListClientAccessCapabilitiesRequest

60− :> Get '[JSON] ListClientAccessCapabilitiesResponse

46+ QueryParam "alt" AltJSON :>

47+ ReqBody '[JSON] ListClientAccessCapabilitiesRequest

48+ :> Get '[JSON] ListClientAccessCapabilitiesResponse

6149

6250--

6351-- /See:/ 'clientAccessList'' smart constructor.

64−data ClientAccessList' = ClientAccessList'

65− { _calQuotaUser :: !(Maybe Text)

66− , _calPrettyPrint :: !Bool

67− , _calUserIP :: !(Maybe Text)

68− , _calPayload :: !ListClientAccessCapabilitiesRequest

69− , _calKey :: !(Maybe AuthKey)

70− , _calOAuthToken :: !(Maybe OAuthToken)

71− , _calFields :: !(Maybe Text)

52+newtype ClientAccessList' = ClientAccessList'

53+ { _calPayload :: ListClientAccessCapabilitiesRequest

7254 } deriving (Eq,Show,Data,Typeable,Generic)

7355

7456-- | Creates a value of 'ClientAccessList'' with the minimum fields required to make a request.

7557--

7658-- Use one of the following lenses to modify other fields as desired:

7759--

78−-- * 'calQuotaUser'

79−--

80−-- * 'calPrettyPrint'

81−--

82−-- * 'calUserIP'

83−--

8460-- * 'calPayload'

85−--

86−-- * 'calKey'

87−--

88−-- * 'calOAuthToken'

89−--

90−-- * 'calFields'

9161clientAccessList'

9262 :: ListClientAccessCapabilitiesRequest -- ^ 'payload'

9363 -> ClientAccessList'

9464clientAccessList' pCalPayload_ =

9565 ClientAccessList'

96− { _calQuotaUser = Nothing

97− , _calPrettyPrint = True

98− , _calUserIP = Nothing

99− , _calPayload = pCalPayload_

100− , _calKey = Nothing

101− , _calOAuthToken = Nothing

102− , _calFields = Nothing

66+ { _calPayload = pCalPayload_

10367 }

10468

105−-- | Available to use for quota purposes for server-side applications. Can be

106−-- any arbitrary string assigned to a user, but should not exceed 40

107−-- characters. Overrides userIp if both are provided.

108−calQuotaUser :: Lens' ClientAccessList' (Maybe Text)

109−calQuotaUser

110− = lens _calQuotaUser (\ s a -> s{_calQuotaUser = a})

111−

112−-- | Returns response with indentations and line breaks.

113−calPrettyPrint :: Lens' ClientAccessList' Bool

114−calPrettyPrint

115− = lens _calPrettyPrint

116− (\ s a -> s{_calPrettyPrint = a})

117−

118−-- | IP address of the site where the request originates. Use this if you

119−-- want to enforce per-user limits.

120−calUserIP :: Lens' ClientAccessList' (Maybe Text)

121−calUserIP

122− = lens _calUserIP (\ s a -> s{_calUserIP = a})

123−

12469-- | Multipart request metadata.

12570calPayload :: Lens' ClientAccessList' ListClientAccessCapabilitiesRequest

12671calPayload

12772 = lens _calPayload (\ s a -> s{_calPayload = a})

12873

129−-- | API key. Your API key identifies your project and provides you with API

130−-- access, quota, and reports. Required unless you provide an OAuth 2.0

131−-- token.

132−calKey :: Lens' ClientAccessList' (Maybe AuthKey)

133−calKey = lens _calKey (\ s a -> s{_calKey = a})

134−

135−-- | OAuth 2.0 token for the current user.

136−calOAuthToken :: Lens' ClientAccessList' (Maybe OAuthToken)

137−calOAuthToken

138− = lens _calOAuthToken

139− (\ s a -> s{_calOAuthToken = a})

140−

141−-- | Selector specifying which fields to include in a partial response.

142−calFields :: Lens' ClientAccessList' (Maybe Text)

143−calFields

144− = lens _calFields (\ s a -> s{_calFields = a})

145−

146−instance GoogleAuth ClientAccessList' where

147− _AuthKey = calKey . _Just

148− _AuthToken = calOAuthToken . _Just

149−

15074instance GoogleRequest ClientAccessList' where

15175 type Rs ClientAccessList' =

15276 ListClientAccessCapabilitiesResponse

153− request = requestWith adExchangeBuyerRequest

154− requestWith rq ClientAccessList'{..}

155− = go _calQuotaUser (Just _calPrettyPrint) _calUserIP

156− _calFields

157− _calKey

158− _calOAuthToken

159− (Just AltJSON)

160− _calPayload

77+ requestClient ClientAccessList'{..}

78+ = go (Just AltJSON) _calPayload

79+ adExchangeBuyerService

16180 where go

162− = clientBuild

81+ = buildClient

16382 (Proxy :: Proxy ClientAccessListResource)

164− rq

83+ mempty

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/ClientAccess/Patch.hs+9−91

@@ -33,15 +33,9 @@ module Network.Google.Resource.AdExchangeBuyer.ClientAccess.Patch

3333 , ClientAccessPatch'

3434

3535 -- * Request Lenses

36− , capQuotaUser

37− , capPrettyPrint

38− , capUserIP

3936 , capSponsorAccountId

4037 , capPayload

41− , capKey

4238 , capClientAccountId

43− , capOAuthToken

44− , capFields

4539 ) where

4640

4741import Network.Google.AdExchangeBuyer.Types

@@ -53,51 +47,27 @@ type ClientAccessPatchResource =

5347 "clientAccess" :>

5448 Capture "clientAccountId" Int64 :>

5549 QueryParam "sponsorAccountId" Int32 :>

56− QueryParam "quotaUser" Text :>

57− QueryParam "prettyPrint" Bool :>

58− QueryParam "userIp" Text :>

59− QueryParam "fields" Text :>

60− QueryParam "key" AuthKey :>

61− Header "Authorization" OAuthToken :>

62− QueryParam "alt" AltJSON :>

63− ReqBody '[JSON] ClientAccessCapabilities :>

64− Patch '[JSON] ClientAccessCapabilities

50+ QueryParam "alt" AltJSON :>

51+ ReqBody '[JSON] ClientAccessCapabilities :>

52+ Patch '[JSON] ClientAccessCapabilities

6553

6654--

6755-- /See:/ 'clientAccessPatch'' smart constructor.

6856data ClientAccessPatch' = ClientAccessPatch'

69− { _capQuotaUser :: !(Maybe Text)

70− , _capPrettyPrint :: !Bool

71− , _capUserIP :: !(Maybe Text)

72− , _capSponsorAccountId :: !Int32

57+ { _capSponsorAccountId :: !Int32

7358 , _capPayload :: !ClientAccessCapabilities

74− , _capKey :: !(Maybe AuthKey)

7559 , _capClientAccountId :: !Int64

76− , _capOAuthToken :: !(Maybe OAuthToken)

77− , _capFields :: !(Maybe Text)

7860 } deriving (Eq,Show,Data,Typeable,Generic)

7961

8062-- | Creates a value of 'ClientAccessPatch'' with the minimum fields required to make a request.

8163--

8264-- Use one of the following lenses to modify other fields as desired:

8365--

84−-- * 'capQuotaUser'

85−--

86−-- * 'capPrettyPrint'

87−--

88−-- * 'capUserIP'

89−--

9066-- * 'capSponsorAccountId'

9167--

9268-- * 'capPayload'

9369--

94−-- * 'capKey'

95−--

9670-- * 'capClientAccountId'

97−--

98−-- * 'capOAuthToken'

99−--

100−-- * 'capFields'

10171clientAccessPatch'

10272 :: Int32 -- ^ 'sponsorAccountId'

10373 -> ClientAccessCapabilities -- ^ 'payload'

@@ -105,36 +75,11 @@ clientAccessPatch'

10575 -> ClientAccessPatch'

10676clientAccessPatch' pCapSponsorAccountId_ pCapPayload_ pCapClientAccountId_ =

10777 ClientAccessPatch'

108− { _capQuotaUser = Nothing

109− , _capPrettyPrint = True

110− , _capUserIP = Nothing

111− , _capSponsorAccountId = pCapSponsorAccountId_

78+ { _capSponsorAccountId = pCapSponsorAccountId_

11279 , _capPayload = pCapPayload_

113− , _capKey = Nothing

11480 , _capClientAccountId = pCapClientAccountId_

115− , _capOAuthToken = Nothing

116− , _capFields = Nothing

11781 }

11882

119−-- | Available to use for quota purposes for server-side applications. Can be

120−-- any arbitrary string assigned to a user, but should not exceed 40

121−-- characters. Overrides userIp if both are provided.

122−capQuotaUser :: Lens' ClientAccessPatch' (Maybe Text)

123−capQuotaUser

124− = lens _capQuotaUser (\ s a -> s{_capQuotaUser = a})

125−

126−-- | Returns response with indentations and line breaks.

127−capPrettyPrint :: Lens' ClientAccessPatch' Bool

128−capPrettyPrint

129− = lens _capPrettyPrint

130− (\ s a -> s{_capPrettyPrint = a})

131−

132−-- | IP address of the site where the request originates. Use this if you

133−-- want to enforce per-user limits.

134−capUserIP :: Lens' ClientAccessPatch' (Maybe Text)

135−capUserIP

136− = lens _capUserIP (\ s a -> s{_capUserIP = a})

137−

13883capSponsorAccountId :: Lens' ClientAccessPatch' Int32

13984capSponsorAccountId

14085 = lens _capSponsorAccountId

@@ -145,46 +90,19 @@ capPayload :: Lens' ClientAccessPatch' ClientAccessCapabilities

14590capPayload

14691 = lens _capPayload (\ s a -> s{_capPayload = a})

14792

148−-- | API key. Your API key identifies your project and provides you with API

149−-- access, quota, and reports. Required unless you provide an OAuth 2.0

150−-- token.

151−capKey :: Lens' ClientAccessPatch' (Maybe AuthKey)

152−capKey = lens _capKey (\ s a -> s{_capKey = a})

153−

15493capClientAccountId :: Lens' ClientAccessPatch' Int64

15594capClientAccountId

15695 = lens _capClientAccountId

15796 (\ s a -> s{_capClientAccountId = a})

15897

159−-- | OAuth 2.0 token for the current user.

160−capOAuthToken :: Lens' ClientAccessPatch' (Maybe OAuthToken)

161−capOAuthToken

162− = lens _capOAuthToken

163− (\ s a -> s{_capOAuthToken = a})

164−

165−-- | Selector specifying which fields to include in a partial response.

166−capFields :: Lens' ClientAccessPatch' (Maybe Text)

167−capFields

168− = lens _capFields (\ s a -> s{_capFields = a})

169−

170−instance GoogleAuth ClientAccessPatch' where

171− _AuthKey = capKey . _Just

172− _AuthToken = capOAuthToken . _Just

173−

17498instance GoogleRequest ClientAccessPatch' where

17599 type Rs ClientAccessPatch' = ClientAccessCapabilities

176− request = requestWith adExchangeBuyerRequest

177− requestWith rq ClientAccessPatch'{..}

100+ requestClient ClientAccessPatch'{..}

178101 = go _capClientAccountId (Just _capSponsorAccountId)

179− _capQuotaUser

180− (Just _capPrettyPrint)

181− _capUserIP

182− _capFields

183− _capKey

184− _capOAuthToken

185102 (Just AltJSON)

186103 _capPayload

104+ adExchangeBuyerService

187105 where go

188− = clientBuild

106+ = buildClient

189107 (Proxy :: Proxy ClientAccessPatchResource)

190− rq

108+ mempty

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/ClientAccess/Update.hs+9−91

@@ -33,15 +33,9 @@ module Network.Google.Resource.AdExchangeBuyer.ClientAccess.Update

3333 , ClientAccessUpdate'

3434

3535 -- * Request Lenses

36− , cauQuotaUser

37− , cauPrettyPrint

38− , cauUserIP

3936 , cauSponsorAccountId

4037 , cauPayload

41− , cauKey

4238 , cauClientAccountId

43− , cauOAuthToken

44− , cauFields

4539 ) where

4640

4741import Network.Google.AdExchangeBuyer.Types

@@ -53,51 +47,27 @@ type ClientAccessUpdateResource =

5347 "clientAccess" :>

5448 Capture "clientAccountId" Int64 :>

5549 QueryParam "sponsorAccountId" Int32 :>

56− QueryParam "quotaUser" Text :>

57− QueryParam "prettyPrint" Bool :>

58− QueryParam "userIp" Text :>

59− QueryParam "fields" Text :>

60− QueryParam "key" AuthKey :>

61− Header "Authorization" OAuthToken :>

62− QueryParam "alt" AltJSON :>

63− ReqBody '[JSON] ClientAccessCapabilities :>

64− Put '[JSON] ClientAccessCapabilities

50+ QueryParam "alt" AltJSON :>

51+ ReqBody '[JSON] ClientAccessCapabilities :>

52+ Put '[JSON] ClientAccessCapabilities

6553

6654--

6755-- /See:/ 'clientAccessUpdate'' smart constructor.

6856data ClientAccessUpdate' = ClientAccessUpdate'

69− { _cauQuotaUser :: !(Maybe Text)

70− , _cauPrettyPrint :: !Bool

71− , _cauUserIP :: !(Maybe Text)

72− , _cauSponsorAccountId :: !Int32

57+ { _cauSponsorAccountId :: !Int32

7358 , _cauPayload :: !ClientAccessCapabilities

74− , _cauKey :: !(Maybe AuthKey)

7559 , _cauClientAccountId :: !Int64

76− , _cauOAuthToken :: !(Maybe OAuthToken)

77− , _cauFields :: !(Maybe Text)

7860 } deriving (Eq,Show,Data,Typeable,Generic)

7961

8062-- | Creates a value of 'ClientAccessUpdate'' with the minimum fields required to make a request.

8163--

8264-- Use one of the following lenses to modify other fields as desired:

8365--

84−-- * 'cauQuotaUser'

85−--

86−-- * 'cauPrettyPrint'

87−--

88−-- * 'cauUserIP'

89−--

9066-- * 'cauSponsorAccountId'

9167--

9268-- * 'cauPayload'

9369--

94−-- * 'cauKey'

95−--

9670-- * 'cauClientAccountId'

97−--

98−-- * 'cauOAuthToken'

99−--

100−-- * 'cauFields'

10171clientAccessUpdate'

10272 :: Int32 -- ^ 'sponsorAccountId'

10373 -> ClientAccessCapabilities -- ^ 'payload'

@@ -105,36 +75,11 @@ clientAccessUpdate'

10575 -> ClientAccessUpdate'

10676clientAccessUpdate' pCauSponsorAccountId_ pCauPayload_ pCauClientAccountId_ =

10777 ClientAccessUpdate'

108− { _cauQuotaUser = Nothing

109− , _cauPrettyPrint = True

110− , _cauUserIP = Nothing

111− , _cauSponsorAccountId = pCauSponsorAccountId_

78+ { _cauSponsorAccountId = pCauSponsorAccountId_

11279 , _cauPayload = pCauPayload_

113− , _cauKey = Nothing

11480 , _cauClientAccountId = pCauClientAccountId_

115− , _cauOAuthToken = Nothing

116− , _cauFields = Nothing

11781 }

11882

119−-- | Available to use for quota purposes for server-side applications. Can be

120−-- any arbitrary string assigned to a user, but should not exceed 40

121−-- characters. Overrides userIp if both are provided.

122−cauQuotaUser :: Lens' ClientAccessUpdate' (Maybe Text)

123−cauQuotaUser

124− = lens _cauQuotaUser (\ s a -> s{_cauQuotaUser = a})

125−

126−-- | Returns response with indentations and line breaks.

127−cauPrettyPrint :: Lens' ClientAccessUpdate' Bool

128−cauPrettyPrint

129− = lens _cauPrettyPrint

130− (\ s a -> s{_cauPrettyPrint = a})

131−

132−-- | IP address of the site where the request originates. Use this if you

133−-- want to enforce per-user limits.

134−cauUserIP :: Lens' ClientAccessUpdate' (Maybe Text)

135−cauUserIP

136− = lens _cauUserIP (\ s a -> s{_cauUserIP = a})

137−

13883cauSponsorAccountId :: Lens' ClientAccessUpdate' Int32

13984cauSponsorAccountId

14085 = lens _cauSponsorAccountId

@@ -145,47 +90,20 @@ cauPayload :: Lens' ClientAccessUpdate' ClientAccessCapabilities

14590cauPayload

14691 = lens _cauPayload (\ s a -> s{_cauPayload = a})

14792

148−-- | API key. Your API key identifies your project and provides you with API

149−-- access, quota, and reports. Required unless you provide an OAuth 2.0

150−-- token.

151−cauKey :: Lens' ClientAccessUpdate' (Maybe AuthKey)

152−cauKey = lens _cauKey (\ s a -> s{_cauKey = a})

153−

15493cauClientAccountId :: Lens' ClientAccessUpdate' Int64

15594cauClientAccountId

15695 = lens _cauClientAccountId

15796 (\ s a -> s{_cauClientAccountId = a})

15897

159−-- | OAuth 2.0 token for the current user.

160−cauOAuthToken :: Lens' ClientAccessUpdate' (Maybe OAuthToken)

161−cauOAuthToken

162− = lens _cauOAuthToken

163− (\ s a -> s{_cauOAuthToken = a})

164−

165−-- | Selector specifying which fields to include in a partial response.

166−cauFields :: Lens' ClientAccessUpdate' (Maybe Text)

167−cauFields

168− = lens _cauFields (\ s a -> s{_cauFields = a})

169−

170−instance GoogleAuth ClientAccessUpdate' where

171− _AuthKey = cauKey . _Just

172− _AuthToken = cauOAuthToken . _Just

173−

17498instance GoogleRequest ClientAccessUpdate' where

17599 type Rs ClientAccessUpdate' =

176100 ClientAccessCapabilities

177− request = requestWith adExchangeBuyerRequest

178− requestWith rq ClientAccessUpdate'{..}

101+ requestClient ClientAccessUpdate'{..}

179102 = go _cauClientAccountId (Just _cauSponsorAccountId)

180− _cauQuotaUser

181− (Just _cauPrettyPrint)

182− _cauUserIP

183− _cauFields

184− _cauKey

185− _cauOAuthToken

186103 (Just AltJSON)

187104 _cauPayload

105+ adExchangeBuyerService

188106 where go

189− = clientBuild

107+ = buildClient

190108 (Proxy :: Proxy ClientAccessUpdateResource)

191− rq

109+ mempty

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Creatives/Get.hs+8−87

@@ -34,14 +34,8 @@ module Network.Google.Resource.AdExchangeBuyer.Creatives.Get

3434 , CreativesGet'

3535

3636 -- * Request Lenses

37− , cgQuotaUser

38− , cgPrettyPrint

3937 , cgBuyerCreativeId

40− , cgUserIP

4138 , cgAccountId

42− , cgKey

43− , cgOAuthToken

44− , cgFields

4539 ) where

4640

4741import Network.Google.AdExchangeBuyer.Types

@@ -53,123 +47,50 @@ type CreativesGetResource =

5347 "creatives" :>

5448 Capture "accountId" Int32 :>

5549 Capture "buyerCreativeId" Text :>

56− QueryParam "quotaUser" Text :>

57− QueryParam "prettyPrint" Bool :>

58− QueryParam "userIp" Text :>

59− QueryParam "fields" Text :>

60− QueryParam "key" AuthKey :>

61− Header "Authorization" OAuthToken :>

62− QueryParam "alt" AltJSON :> Get '[JSON] Creative

50+ QueryParam "alt" AltJSON :> Get '[JSON] Creative

6351

6452-- | Gets the status for a single creative. A creative will be available

6553-- 30-40 minutes after submission.

6654--

6755-- /See:/ 'creativesGet'' smart constructor.

6856data CreativesGet' = CreativesGet'

69− { _cgQuotaUser :: !(Maybe Text)

70− , _cgPrettyPrint :: !Bool

71− , _cgBuyerCreativeId :: !Text

72− , _cgUserIP :: !(Maybe Text)

57+ { _cgBuyerCreativeId :: !Text

7358 , _cgAccountId :: !Int32

74− , _cgKey :: !(Maybe AuthKey)

75− , _cgOAuthToken :: !(Maybe OAuthToken)

76− , _cgFields :: !(Maybe Text)

7759 } deriving (Eq,Show,Data,Typeable,Generic)

7860

7961-- | Creates a value of 'CreativesGet'' with the minimum fields required to make a request.

8062--

8163-- Use one of the following lenses to modify other fields as desired:

8264--

83−-- * 'cgQuotaUser'

84−--

85−-- * 'cgPrettyPrint'

86−--

8765-- * 'cgBuyerCreativeId'

8866--

89−-- * 'cgUserIP'

90−--

9167-- * 'cgAccountId'

92−--

93−-- * 'cgKey'

94−--

95−-- * 'cgOAuthToken'

96−--

97−-- * 'cgFields'

9868creativesGet'

9969 :: Text -- ^ 'buyerCreativeId'

10070 -> Int32 -- ^ 'accountId'

10171 -> CreativesGet'

10272creativesGet' pCgBuyerCreativeId_ pCgAccountId_ =

10373 CreativesGet'

104− { _cgQuotaUser = Nothing

105− , _cgPrettyPrint = True

106− , _cgBuyerCreativeId = pCgBuyerCreativeId_

107− , _cgUserIP = Nothing

74+ { _cgBuyerCreativeId = pCgBuyerCreativeId_

10875 , _cgAccountId = pCgAccountId_

109− , _cgKey = Nothing

110− , _cgOAuthToken = Nothing

111− , _cgFields = Nothing

11276 }

11377

114−-- | Available to use for quota purposes for server-side applications. Can be

115−-- any arbitrary string assigned to a user, but should not exceed 40

116−-- characters. Overrides userIp if both are provided.

117−cgQuotaUser :: Lens' CreativesGet' (Maybe Text)

118−cgQuotaUser

119− = lens _cgQuotaUser (\ s a -> s{_cgQuotaUser = a})

120−

121−-- | Returns response with indentations and line breaks.

122−cgPrettyPrint :: Lens' CreativesGet' Bool

123−cgPrettyPrint

124− = lens _cgPrettyPrint

125− (\ s a -> s{_cgPrettyPrint = a})

126−

12778-- | The buyer-specific id for this creative.

12879cgBuyerCreativeId :: Lens' CreativesGet' Text

12980cgBuyerCreativeId

13081 = lens _cgBuyerCreativeId

13182 (\ s a -> s{_cgBuyerCreativeId = a})

13283

133−-- | IP address of the site where the request originates. Use this if you

134−-- want to enforce per-user limits.

135−cgUserIP :: Lens' CreativesGet' (Maybe Text)

136−cgUserIP = lens _cgUserIP (\ s a -> s{_cgUserIP = a})

137−

13884-- | The id for the account that will serve this creative.

13985cgAccountId :: Lens' CreativesGet' Int32

14086cgAccountId

14187 = lens _cgAccountId (\ s a -> s{_cgAccountId = a})

14288

143−-- | API key. Your API key identifies your project and provides you with API

144−-- access, quota, and reports. Required unless you provide an OAuth 2.0

145−-- token.

146−cgKey :: Lens' CreativesGet' (Maybe AuthKey)

147−cgKey = lens _cgKey (\ s a -> s{_cgKey = a})

148−

149−-- | OAuth 2.0 token for the current user.

150−cgOAuthToken :: Lens' CreativesGet' (Maybe OAuthToken)

151−cgOAuthToken

152− = lens _cgOAuthToken (\ s a -> s{_cgOAuthToken = a})

153−

154−-- | Selector specifying which fields to include in a partial response.

155−cgFields :: Lens' CreativesGet' (Maybe Text)

156−cgFields = lens _cgFields (\ s a -> s{_cgFields = a})

157−

158−instance GoogleAuth CreativesGet' where

159− _AuthKey = cgKey . _Just

160− _AuthToken = cgOAuthToken . _Just

161−

16289instance GoogleRequest CreativesGet' where

16390 type Rs CreativesGet' = Creative

164− request = requestWith adExchangeBuyerRequest

165− requestWith rq CreativesGet'{..}

166− = go _cgAccountId _cgBuyerCreativeId _cgQuotaUser

167− (Just _cgPrettyPrint)

168− _cgUserIP

169− _cgFields

170− _cgKey

171− _cgOAuthToken

172− (Just AltJSON)

91+ requestClient CreativesGet'{..}

92+ = go _cgAccountId _cgBuyerCreativeId (Just AltJSON)

93+ adExchangeBuyerService

17394 where go

174− = clientBuild (Proxy :: Proxy CreativesGetResource)

175− rq

95+ = buildClient (Proxy :: Proxy CreativesGetResource)

96+ mempty

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Creatives/Insert.hs+9−88

@@ -33,13 +33,7 @@ module Network.Google.Resource.AdExchangeBuyer.Creatives.Insert

3333 , CreativesInsert'

3434

3535 -- * Request Lenses

36− , ciQuotaUser

37− , ciPrettyPrint

38− , ciUserIP

3936 , ciPayload

40− , ciKey

41− , ciOAuthToken

42− , ciFields

4337 ) where

4438

4539import Network.Google.AdExchangeBuyer.Types

@@ -49,112 +43,39 @@ import Network.Google.Prelude

4943-- 'CreativesInsert'' request conforms to.

5044type CreativesInsertResource =

5145 "creatives" :>

52− QueryParam "quotaUser" Text :>

53− QueryParam "prettyPrint" Bool :>

54− QueryParam "userIp" Text :>

55− QueryParam "fields" Text :>

56− QueryParam "key" AuthKey :>

57− Header "Authorization" OAuthToken :>

58− QueryParam "alt" AltJSON :>

59− ReqBody '[JSON] Creative :> Post '[JSON] Creative

46+ QueryParam "alt" AltJSON :>

47+ ReqBody '[JSON] Creative :> Post '[JSON] Creative

6048

6149-- | Submit a new creative.

6250--

6351-- /See:/ 'creativesInsert'' smart constructor.

64−data CreativesInsert' = CreativesInsert'

65− { _ciQuotaUser :: !(Maybe Text)

66− , _ciPrettyPrint :: !Bool

67− , _ciUserIP :: !(Maybe Text)

68− , _ciPayload :: !Creative

69− , _ciKey :: !(Maybe AuthKey)

70− , _ciOAuthToken :: !(Maybe OAuthToken)

71− , _ciFields :: !(Maybe Text)

52+newtype CreativesInsert' = CreativesInsert'

53+ { _ciPayload :: Creative

7254 } deriving (Eq,Show,Data,Typeable,Generic)

7355

7456-- | Creates a value of 'CreativesInsert'' with the minimum fields required to make a request.

7557--

7658-- Use one of the following lenses to modify other fields as desired:

7759--

78−-- * 'ciQuotaUser'

79−--

80−-- * 'ciPrettyPrint'

81−--

82−-- * 'ciUserIP'

83−--

8460-- * 'ciPayload'

85−--

86−-- * 'ciKey'

87−--

88−-- * 'ciOAuthToken'

89−--

90−-- * 'ciFields'

9161creativesInsert'

9262 :: Creative -- ^ 'payload'

9363 -> CreativesInsert'

9464creativesInsert' pCiPayload_ =

9565 CreativesInsert'

96− { _ciQuotaUser = Nothing

97− , _ciPrettyPrint = True

98− , _ciUserIP = Nothing

99− , _ciPayload = pCiPayload_

100− , _ciKey = Nothing

101− , _ciOAuthToken = Nothing

102− , _ciFields = Nothing

66+ { _ciPayload = pCiPayload_

10367 }

10468

105−-- | Available to use for quota purposes for server-side applications. Can be

106−-- any arbitrary string assigned to a user, but should not exceed 40

107−-- characters. Overrides userIp if both are provided.

108−ciQuotaUser :: Lens' CreativesInsert' (Maybe Text)

109−ciQuotaUser

110− = lens _ciQuotaUser (\ s a -> s{_ciQuotaUser = a})

111−

112−-- | Returns response with indentations and line breaks.

113−ciPrettyPrint :: Lens' CreativesInsert' Bool

114−ciPrettyPrint

115− = lens _ciPrettyPrint

116− (\ s a -> s{_ciPrettyPrint = a})

117−

118−-- | IP address of the site where the request originates. Use this if you

119−-- want to enforce per-user limits.

120−ciUserIP :: Lens' CreativesInsert' (Maybe Text)

121−ciUserIP = lens _ciUserIP (\ s a -> s{_ciUserIP = a})

122−

12369-- | Multipart request metadata.

12470ciPayload :: Lens' CreativesInsert' Creative

12571ciPayload

12672 = lens _ciPayload (\ s a -> s{_ciPayload = a})

12773

128−-- | API key. Your API key identifies your project and provides you with API

129−-- access, quota, and reports. Required unless you provide an OAuth 2.0

130−-- token.

131−ciKey :: Lens' CreativesInsert' (Maybe AuthKey)

132−ciKey = lens _ciKey (\ s a -> s{_ciKey = a})

133−

134−-- | OAuth 2.0 token for the current user.

135−ciOAuthToken :: Lens' CreativesInsert' (Maybe OAuthToken)

136−ciOAuthToken

137− = lens _ciOAuthToken (\ s a -> s{_ciOAuthToken = a})

138−

139−-- | Selector specifying which fields to include in a partial response.

140−ciFields :: Lens' CreativesInsert' (Maybe Text)

141−ciFields = lens _ciFields (\ s a -> s{_ciFields = a})

142−

143−instance GoogleAuth CreativesInsert' where

144− _AuthKey = ciKey . _Just

145− _AuthToken = ciOAuthToken . _Just

146−

14774instance GoogleRequest CreativesInsert' where

14875 type Rs CreativesInsert' = Creative

149− request = requestWith adExchangeBuyerRequest

150− requestWith rq CreativesInsert'{..}

151− = go _ciQuotaUser (Just _ciPrettyPrint) _ciUserIP

152− _ciFields

153− _ciKey

154− _ciOAuthToken

155− (Just AltJSON)

156− _ciPayload

76+ requestClient CreativesInsert'{..}

77+ = go (Just AltJSON) _ciPayload adExchangeBuyerService

15778 where go

158− = clientBuild

79+ = buildClient

15980 (Proxy :: Proxy CreativesInsertResource)

160− rq

81+ mempty

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Creatives/List.hs+7−87

@@ -34,18 +34,12 @@ module Network.Google.Resource.AdExchangeBuyer.Creatives.List

3434 , CreativesList'

3535

3636 -- * Request Lenses

37− , clQuotaUser

38− , clPrettyPrint

3937 , clBuyerCreativeId

40− , clUserIP

4138 , clOpenAuctionStatusFilter

4239 , clAccountId

43− , clKey

4440 , clPageToken

4541 , clDealsStatusFilter

46− , clOAuthToken

4742 , clMaxResults

48− , clFields

4943 ) where

5044

5145import Network.Google.AdExchangeBuyer.Types

@@ -65,92 +59,48 @@ type CreativesListResource =

6559 CreativesListDealsStatusFilter

6660 :>

6761 QueryParam "maxResults" Word32 :>

68− QueryParam "quotaUser" Text :>

69− QueryParam "prettyPrint" Bool :>

70− QueryParam "userIp" Text :>

71− QueryParam "fields" Text :>

72− QueryParam "key" AuthKey :>

73− Header "Authorization" OAuthToken :>

74− QueryParam "alt" AltJSON :>

75− Get '[JSON] CreativesList

62+ QueryParam "alt" AltJSON :> Get '[JSON] CreativesList

7663

7764-- | Retrieves a list of the authenticated user\'s active creatives. A

7865-- creative will be available 30-40 minutes after submission.

7966--

8067-- /See:/ 'creativesList'' smart constructor.

8168data CreativesList' = CreativesList'

82− { _clQuotaUser :: !(Maybe Text)

83− , _clPrettyPrint :: !Bool

84− , _clBuyerCreativeId :: !(Maybe [Text])

85− , _clUserIP :: !(Maybe Text)

69+ { _clBuyerCreativeId :: !(Maybe [Text])

8670 , _clOpenAuctionStatusFilter :: !(Maybe CreativesListOpenAuctionStatusFilter)

8771 , _clAccountId :: !(Maybe [Int32])

88− , _clKey :: !(Maybe AuthKey)

8972 , _clPageToken :: !(Maybe Text)

9073 , _clDealsStatusFilter :: !(Maybe CreativesListDealsStatusFilter)

91− , _clOAuthToken :: !(Maybe OAuthToken)

9274 , _clMaxResults :: !(Maybe Word32)

93− , _clFields :: !(Maybe Text)

9475 } deriving (Eq,Show,Data,Typeable,Generic)

9576

9677-- | Creates a value of 'CreativesList'' with the minimum fields required to make a request.

9778--

9879-- Use one of the following lenses to modify other fields as desired:

9980--

100−-- * 'clQuotaUser'

101−--

102−-- * 'clPrettyPrint'

103−--

10481-- * 'clBuyerCreativeId'

10582--

106−-- * 'clUserIP'

107−--

10883-- * 'clOpenAuctionStatusFilter'

10984--

11085-- * 'clAccountId'

11186--

112−-- * 'clKey'

113−--

11487-- * 'clPageToken'

11588--

11689-- * 'clDealsStatusFilter'

11790--

118−-- * 'clOAuthToken'

119−--

12091-- * 'clMaxResults'

121−--

122−-- * 'clFields'

12392creativesList'

12493 :: CreativesList'

12594creativesList' =

12695 CreativesList'

127− { _clQuotaUser = Nothing

128− , _clPrettyPrint = True

129− , _clBuyerCreativeId = Nothing

130− , _clUserIP = Nothing

96+ { _clBuyerCreativeId = Nothing

13197 , _clOpenAuctionStatusFilter = Nothing

13298 , _clAccountId = Nothing

133− , _clKey = Nothing

13499 , _clPageToken = Nothing

135100 , _clDealsStatusFilter = Nothing

136− , _clOAuthToken = Nothing

137101 , _clMaxResults = Nothing

138− , _clFields = Nothing

139102 }

140103

141−-- | Available to use for quota purposes for server-side applications. Can be

142−-- any arbitrary string assigned to a user, but should not exceed 40

143−-- characters. Overrides userIp if both are provided.

144−clQuotaUser :: Lens' CreativesList' (Maybe Text)

145−clQuotaUser

146− = lens _clQuotaUser (\ s a -> s{_clQuotaUser = a})

147−

148−-- | Returns response with indentations and line breaks.

149−clPrettyPrint :: Lens' CreativesList' Bool

150−clPrettyPrint

151− = lens _clPrettyPrint

152− (\ s a -> s{_clPrettyPrint = a})

153−

154104-- | When specified, only creatives for the given buyer creative ids are

155105-- returned.

156106clBuyerCreativeId :: Lens' CreativesList' [Text]

@@ -160,11 +110,6 @@ clBuyerCreativeId

160110 . _Default

161111 . _Coerce

162112

163−-- | IP address of the site where the request originates. Use this if you

164−-- want to enforce per-user limits.

165−clUserIP :: Lens' CreativesList' (Maybe Text)

166−clUserIP = lens _clUserIP (\ s a -> s{_clUserIP = a})

167−

168113-- | When specified, only creatives having the given open auction status are

169114-- returned.

170115clOpenAuctionStatusFilter :: Lens' CreativesList' (Maybe CreativesListOpenAuctionStatusFilter)

@@ -179,12 +124,6 @@ clAccountId

179124 _Default

180125 . _Coerce

181126

182−-- | API key. Your API key identifies your project and provides you with API

183−-- access, quota, and reports. Required unless you provide an OAuth 2.0

184−-- token.

185−clKey :: Lens' CreativesList' (Maybe AuthKey)

186−clKey = lens _clKey (\ s a -> s{_clKey = a})

187−

188127-- | A continuation token, used to page through ad clients. To retrieve the

189128-- next page, set this parameter to the value of \"nextPageToken\" from the

190129-- previous response. Optional.

@@ -199,42 +138,23 @@ clDealsStatusFilter

199138 = lens _clDealsStatusFilter

200139 (\ s a -> s{_clDealsStatusFilter = a})

201140

202−-- | OAuth 2.0 token for the current user.

203−clOAuthToken :: Lens' CreativesList' (Maybe OAuthToken)

204−clOAuthToken

205− = lens _clOAuthToken (\ s a -> s{_clOAuthToken = a})

206−

207141-- | Maximum number of entries returned on one result page. If not set, the

208142-- default is 100. Optional.

209143clMaxResults :: Lens' CreativesList' (Maybe Word32)

210144clMaxResults

211145 = lens _clMaxResults (\ s a -> s{_clMaxResults = a})

212146

213−-- | Selector specifying which fields to include in a partial response.

214−clFields :: Lens' CreativesList' (Maybe Text)

215−clFields = lens _clFields (\ s a -> s{_clFields = a})

216−

217−instance GoogleAuth CreativesList' where

218− _AuthKey = clKey . _Just

219− _AuthToken = clOAuthToken . _Just

220−

221147instance GoogleRequest CreativesList' where

222148 type Rs CreativesList' = CreativesList

223− request = requestWith adExchangeBuyerRequest

224− requestWith rq CreativesList'{..}

149+ requestClient CreativesList'{..}

225150 = go (_clBuyerCreativeId ^. _Default)

226151 _clOpenAuctionStatusFilter

227152 (_clAccountId ^. _Default)

228153 _clPageToken

229154 _clDealsStatusFilter

230155 _clMaxResults

231− _clQuotaUser

232− (Just _clPrettyPrint)

233− _clUserIP

234− _clFields

235− _clKey

236− _clOAuthToken

237156 (Just AltJSON)

157+ adExchangeBuyerService

238158 where go

239− = clientBuild (Proxy :: Proxy CreativesListResource)

240− rq

159+ = buildClient (Proxy :: Proxy CreativesListResource)

160+ mempty

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Deals/Get.hs+12−90

@@ -33,14 +33,8 @@ module Network.Google.Resource.AdExchangeBuyer.Deals.Get

3333 , DealsGet'

3434

3535 -- * Request Lenses

36− , dgQuotaUser

37− , dgPrettyPrint

38− , dgUserIP

3936 , dgPayload

4037 , dgDealId

41− , dgKey

42− , dgOAuthToken

43− , dgFields

4438 ) where

4539

4640import Network.Google.AdExchangeBuyer.Types

@@ -51,84 +45,36 @@ import Network.Google.Prelude

5145type DealsGetResource =

5246 "deals" :>

5347 Capture "dealId" Int64 :>

54− QueryParam "quotaUser" Text :>

55− QueryParam "prettyPrint" Bool :>

56− QueryParam "userIp" Text :>

57− QueryParam "fields" Text :>

58− QueryParam "key" AuthKey :>

59− Header "Authorization" OAuthToken :>

60− QueryParam "alt" AltJSON :>

61− ReqBody '[JSON]

62− GetFinalizedNegotiationByExternalDealIdRequest

63− :> Get '[JSON] NegotiationDTO

48+ QueryParam "alt" AltJSON :>

49+ ReqBody '[JSON]

50+ GetFinalizedNegotiationByExternalDealIdRequest

51+ :> Get '[JSON] NegotiationDTO

6452

6553-- | Gets the requested deal.

6654--

6755-- /See:/ 'dealsGet'' smart constructor.

6856data DealsGet' = DealsGet'

69− { _dgQuotaUser :: !(Maybe Text)

70− , _dgPrettyPrint :: !Bool

71− , _dgUserIP :: !(Maybe Text)

72− , _dgPayload :: !GetFinalizedNegotiationByExternalDealIdRequest

73− , _dgDealId :: !Int64

74− , _dgKey :: !(Maybe AuthKey)

75− , _dgOAuthToken :: !(Maybe OAuthToken)

76− , _dgFields :: !(Maybe Text)

57+ { _dgPayload :: !GetFinalizedNegotiationByExternalDealIdRequest

58+ , _dgDealId :: !Int64

7759 } deriving (Eq,Show,Data,Typeable,Generic)

7860

7961-- | Creates a value of 'DealsGet'' with the minimum fields required to make a request.

8062--

8163-- Use one of the following lenses to modify other fields as desired:

8264--

83−-- * 'dgQuotaUser'

84−--

85−-- * 'dgPrettyPrint'

86−--

87−-- * 'dgUserIP'

88−--

8965-- * 'dgPayload'

9066--

9167-- * 'dgDealId'

92−--

93−-- * 'dgKey'

94−--

95−-- * 'dgOAuthToken'

96−--

97−-- * 'dgFields'

9868dealsGet'

9969 :: GetFinalizedNegotiationByExternalDealIdRequest -- ^ 'payload'

10070 -> Int64 -- ^ 'dealId'

10171 -> DealsGet'

10272dealsGet' pDgPayload_ pDgDealId_ =

10373 DealsGet'

104− { _dgQuotaUser = Nothing

105− , _dgPrettyPrint = True

106− , _dgUserIP = Nothing

107− , _dgPayload = pDgPayload_

74+ { _dgPayload = pDgPayload_

10875 , _dgDealId = pDgDealId_

109− , _dgKey = Nothing

110− , _dgOAuthToken = Nothing

111− , _dgFields = Nothing

11276 }

11377

114−-- | Available to use for quota purposes for server-side applications. Can be

115−-- any arbitrary string assigned to a user, but should not exceed 40

116−-- characters. Overrides userIp if both are provided.

117−dgQuotaUser :: Lens' DealsGet' (Maybe Text)

118−dgQuotaUser

119− = lens _dgQuotaUser (\ s a -> s{_dgQuotaUser = a})

120−

121−-- | Returns response with indentations and line breaks.

122−dgPrettyPrint :: Lens' DealsGet' Bool

123−dgPrettyPrint

124− = lens _dgPrettyPrint

125− (\ s a -> s{_dgPrettyPrint = a})

126−

127−-- | IP address of the site where the request originates. Use this if you

128−-- want to enforce per-user limits.

129−dgUserIP :: Lens' DealsGet' (Maybe Text)

130−dgUserIP = lens _dgUserIP (\ s a -> s{_dgUserIP = a})

131−

13278-- | Multipart request metadata.

13379dgPayload :: Lens' DealsGet' GetFinalizedNegotiationByExternalDealIdRequest

13480dgPayload

@@ -137,35 +83,11 @@ dgPayload

13783dgDealId :: Lens' DealsGet' Int64

13884dgDealId = lens _dgDealId (\ s a -> s{_dgDealId = a})

13985

140−-- | API key. Your API key identifies your project and provides you with API

141−-- access, quota, and reports. Required unless you provide an OAuth 2.0

142−-- token.

143−dgKey :: Lens' DealsGet' (Maybe AuthKey)

144−dgKey = lens _dgKey (\ s a -> s{_dgKey = a})

145−

146−-- | OAuth 2.0 token for the current user.

147−dgOAuthToken :: Lens' DealsGet' (Maybe OAuthToken)

148−dgOAuthToken

149− = lens _dgOAuthToken (\ s a -> s{_dgOAuthToken = a})

150−

151−-- | Selector specifying which fields to include in a partial response.

152−dgFields :: Lens' DealsGet' (Maybe Text)

153−dgFields = lens _dgFields (\ s a -> s{_dgFields = a})

154−

155−instance GoogleAuth DealsGet' where

156− _AuthKey = dgKey . _Just

157− _AuthToken = dgOAuthToken . _Just

158−

15986instance GoogleRequest DealsGet' where

16087 type Rs DealsGet' = NegotiationDTO

161− request = requestWith adExchangeBuyerRequest

162− requestWith rq DealsGet'{..}

163− = go _dgDealId _dgQuotaUser (Just _dgPrettyPrint)

164− _dgUserIP

165− _dgFields

166− _dgKey

167− _dgOAuthToken

168− (Just AltJSON)

169− _dgPayload

88+ requestClient DealsGet'{..}

89+ = go _dgDealId (Just AltJSON) _dgPayload

90+ adExchangeBuyerService

17091 where go

171− = clientBuild (Proxy :: Proxy DealsGetResource) rq

92+ = buildClient (Proxy :: Proxy DealsGetResource)

93+ mempty

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceDeals/Delete.hs+11−93

@@ -33,14 +33,8 @@ module Network.Google.Resource.AdExchangeBuyer.MarketplaceDeals.Delete

3333 , MarketplaceDealsDelete'

3434

3535 -- * Request Lenses

36− , mddQuotaUser

37− , mddPrettyPrint

38− , mddUserIP

3936 , mddPayload

40− , mddKey

41− , mddOAuthToken

4237 , mddOrderId

43− , mddFields

4438 ) where

4539

4640import Network.Google.AdExchangeBuyer.Types

@@ -53,128 +47,52 @@ type MarketplaceDealsDeleteResource =

5347 Capture "orderId" Text :>

5448 "deals" :>

5549 "delete" :>

56− QueryParam "quotaUser" Text :>

57− QueryParam "prettyPrint" Bool :>

58− QueryParam "userIp" Text :>

59− QueryParam "fields" Text :>

60− QueryParam "key" AuthKey :>

61− Header "Authorization" OAuthToken :>

62− QueryParam "alt" AltJSON :>

63− ReqBody '[JSON] DeleteOrderDealsRequest :>

64− Post '[JSON] DeleteOrderDealsResponse

50+ QueryParam "alt" AltJSON :>

51+ ReqBody '[JSON] DeleteOrderDealsRequest :>

52+ Post '[JSON] DeleteOrderDealsResponse

6553

6654-- | Delete the specified deals from the order

6755--

6856-- /See:/ 'marketplaceDealsDelete'' smart constructor.

6957data MarketplaceDealsDelete' = MarketplaceDealsDelete'

70− { _mddQuotaUser :: !(Maybe Text)

71− , _mddPrettyPrint :: !Bool

72− , _mddUserIP :: !(Maybe Text)

73− , _mddPayload :: !DeleteOrderDealsRequest

74− , _mddKey :: !(Maybe AuthKey)

75− , _mddOAuthToken :: !(Maybe OAuthToken)

76− , _mddOrderId :: !Text

77− , _mddFields :: !(Maybe Text)

58+ { _mddPayload :: !DeleteOrderDealsRequest

59+ , _mddOrderId :: !Text

7860 } deriving (Eq,Show,Data,Typeable,Generic)

7961

8062-- | Creates a value of 'MarketplaceDealsDelete'' with the minimum fields required to make a request.

8163--

8264-- Use one of the following lenses to modify other fields as desired:

8365--

84−-- * 'mddQuotaUser'

85−--

86−-- * 'mddPrettyPrint'

87−--

88−-- * 'mddUserIP'

89−--

9066-- * 'mddPayload'

9167--

92−-- * 'mddKey'

93−--

94−-- * 'mddOAuthToken'

95−--

9668-- * 'mddOrderId'

97−--

98−-- * 'mddFields'

9969marketplaceDealsDelete'

10070 :: DeleteOrderDealsRequest -- ^ 'payload'

10171 -> Text -- ^ 'orderId'

10272 -> MarketplaceDealsDelete'

10373marketplaceDealsDelete' pMddPayload_ pMddOrderId_ =

10474 MarketplaceDealsDelete'

105− { _mddQuotaUser = Nothing

106− , _mddPrettyPrint = True

107− , _mddUserIP = Nothing

108− , _mddPayload = pMddPayload_

109− , _mddKey = Nothing

110− , _mddOAuthToken = Nothing

75+ { _mddPayload = pMddPayload_

11176 , _mddOrderId = pMddOrderId_

112− , _mddFields = Nothing

11377 }

11478

115−-- | Available to use for quota purposes for server-side applications. Can be

116−-- any arbitrary string assigned to a user, but should not exceed 40

117−-- characters. Overrides userIp if both are provided.

118−mddQuotaUser :: Lens' MarketplaceDealsDelete' (Maybe Text)

119−mddQuotaUser

120− = lens _mddQuotaUser (\ s a -> s{_mddQuotaUser = a})

121−

122−-- | Returns response with indentations and line breaks.

123−mddPrettyPrint :: Lens' MarketplaceDealsDelete' Bool

124−mddPrettyPrint

125− = lens _mddPrettyPrint

126− (\ s a -> s{_mddPrettyPrint = a})

127−

128−-- | IP address of the site where the request originates. Use this if you

129−-- want to enforce per-user limits.

130−mddUserIP :: Lens' MarketplaceDealsDelete' (Maybe Text)

131−mddUserIP

132− = lens _mddUserIP (\ s a -> s{_mddUserIP = a})

133−

13479-- | Multipart request metadata.

13580mddPayload :: Lens' MarketplaceDealsDelete' DeleteOrderDealsRequest

13681mddPayload

13782 = lens _mddPayload (\ s a -> s{_mddPayload = a})

13883

139−-- | API key. Your API key identifies your project and provides you with API

140−-- access, quota, and reports. Required unless you provide an OAuth 2.0

141−-- token.

142−mddKey :: Lens' MarketplaceDealsDelete' (Maybe AuthKey)

143−mddKey = lens _mddKey (\ s a -> s{_mddKey = a})

144−

145−-- | OAuth 2.0 token for the current user.

146−mddOAuthToken :: Lens' MarketplaceDealsDelete' (Maybe OAuthToken)

147−mddOAuthToken

148− = lens _mddOAuthToken

149− (\ s a -> s{_mddOAuthToken = a})

150−

15184-- | The orderId to delete deals from.

15285mddOrderId :: Lens' MarketplaceDealsDelete' Text

15386mddOrderId

15487 = lens _mddOrderId (\ s a -> s{_mddOrderId = a})

15588

156−-- | Selector specifying which fields to include in a partial response.

157−mddFields :: Lens' MarketplaceDealsDelete' (Maybe Text)

158−mddFields

159− = lens _mddFields (\ s a -> s{_mddFields = a})

160−

161−instance GoogleAuth MarketplaceDealsDelete' where

162− _AuthKey = mddKey . _Just

163− _AuthToken = mddOAuthToken . _Just

164−

16589instance GoogleRequest MarketplaceDealsDelete' where

16690 type Rs MarketplaceDealsDelete' =

16791 DeleteOrderDealsResponse

168− request = requestWith adExchangeBuyerRequest

169− requestWith rq MarketplaceDealsDelete'{..}

170− = go _mddOrderId _mddQuotaUser (Just _mddPrettyPrint)

171− _mddUserIP

172− _mddFields

173− _mddKey

174− _mddOAuthToken

175− (Just AltJSON)

176− _mddPayload

92+ requestClient MarketplaceDealsDelete'{..}

93+ = go _mddOrderId (Just AltJSON) _mddPayload

94+ adExchangeBuyerService

17795 where go

178− = clientBuild

96+ = buildClient

17997 (Proxy :: Proxy MarketplaceDealsDeleteResource)

180− rq

98+ mempty

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceDeals/Insert.hs+11−93

@@ -33,14 +33,8 @@ module Network.Google.Resource.AdExchangeBuyer.MarketplaceDeals.Insert

3333 , MarketplaceDealsInsert'

3434

3535 -- * Request Lenses

36− , mdiQuotaUser

37− , mdiPrettyPrint

38− , mdiUserIP

3936 , mdiPayload

40− , mdiKey

41− , mdiOAuthToken

4237 , mdiOrderId

43− , mdiFields

4438 ) where

4539

4640import Network.Google.AdExchangeBuyer.Types

@@ -53,128 +47,52 @@ type MarketplaceDealsInsertResource =

5347 Capture "orderId" Text :>

5448 "deals" :>

5549 "insert" :>

56− QueryParam "quotaUser" Text :>

57− QueryParam "prettyPrint" Bool :>

58− QueryParam "userIp" Text :>

59− QueryParam "fields" Text :>

60− QueryParam "key" AuthKey :>

61− Header "Authorization" OAuthToken :>

62− QueryParam "alt" AltJSON :>

63− ReqBody '[JSON] AddOrderDealsRequest :>

64− Post '[JSON] AddOrderDealsResponse

50+ QueryParam "alt" AltJSON :>

51+ ReqBody '[JSON] AddOrderDealsRequest :>

52+ Post '[JSON] AddOrderDealsResponse

6553

6654-- | Add new deals for the specified order

6755--

6856-- /See:/ 'marketplaceDealsInsert'' smart constructor.

6957data MarketplaceDealsInsert' = MarketplaceDealsInsert'

70− { _mdiQuotaUser :: !(Maybe Text)

71− , _mdiPrettyPrint :: !Bool

72− , _mdiUserIP :: !(Maybe Text)

73− , _mdiPayload :: !AddOrderDealsRequest

74− , _mdiKey :: !(Maybe AuthKey)

75− , _mdiOAuthToken :: !(Maybe OAuthToken)

76− , _mdiOrderId :: !Text

77− , _mdiFields :: !(Maybe Text)

58+ { _mdiPayload :: !AddOrderDealsRequest

59+ , _mdiOrderId :: !Text

7860 } deriving (Eq,Show,Data,Typeable,Generic)

7961

8062-- | Creates a value of 'MarketplaceDealsInsert'' with the minimum fields required to make a request.

8163--

8264-- Use one of the following lenses to modify other fields as desired:

8365--

84−-- * 'mdiQuotaUser'

85−--

86−-- * 'mdiPrettyPrint'

87−--

88−-- * 'mdiUserIP'

89−--

9066-- * 'mdiPayload'

9167--

92−-- * 'mdiKey'

93−--

94−-- * 'mdiOAuthToken'

95−--

9668-- * 'mdiOrderId'

97−--

98−-- * 'mdiFields'

9969marketplaceDealsInsert'

10070 :: AddOrderDealsRequest -- ^ 'payload'

10171 -> Text -- ^ 'orderId'

10272 -> MarketplaceDealsInsert'

10373marketplaceDealsInsert' pMdiPayload_ pMdiOrderId_ =

10474 MarketplaceDealsInsert'

105− { _mdiQuotaUser = Nothing

106− , _mdiPrettyPrint = True

107− , _mdiUserIP = Nothing

108− , _mdiPayload = pMdiPayload_

109− , _mdiKey = Nothing

110− , _mdiOAuthToken = Nothing

75+ { _mdiPayload = pMdiPayload_

11176 , _mdiOrderId = pMdiOrderId_

112− , _mdiFields = Nothing

11377 }

11478

115−-- | Available to use for quota purposes for server-side applications. Can be

116−-- any arbitrary string assigned to a user, but should not exceed 40

117−-- characters. Overrides userIp if both are provided.

118−mdiQuotaUser :: Lens' MarketplaceDealsInsert' (Maybe Text)

119−mdiQuotaUser

120− = lens _mdiQuotaUser (\ s a -> s{_mdiQuotaUser = a})

121−

122−-- | Returns response with indentations and line breaks.

123−mdiPrettyPrint :: Lens' MarketplaceDealsInsert' Bool

124−mdiPrettyPrint

125− = lens _mdiPrettyPrint

126− (\ s a -> s{_mdiPrettyPrint = a})

127−

128−-- | IP address of the site where the request originates. Use this if you

129−-- want to enforce per-user limits.

130−mdiUserIP :: Lens' MarketplaceDealsInsert' (Maybe Text)

131−mdiUserIP

132− = lens _mdiUserIP (\ s a -> s{_mdiUserIP = a})

133−

13479-- | Multipart request metadata.

13580mdiPayload :: Lens' MarketplaceDealsInsert' AddOrderDealsRequest

13681mdiPayload

13782 = lens _mdiPayload (\ s a -> s{_mdiPayload = a})

13883

139−-- | API key. Your API key identifies your project and provides you with API

140−-- access, quota, and reports. Required unless you provide an OAuth 2.0

141−-- token.

142−mdiKey :: Lens' MarketplaceDealsInsert' (Maybe AuthKey)

143−mdiKey = lens _mdiKey (\ s a -> s{_mdiKey = a})

144−

145−-- | OAuth 2.0 token for the current user.

146−mdiOAuthToken :: Lens' MarketplaceDealsInsert' (Maybe OAuthToken)

147−mdiOAuthToken

148− = lens _mdiOAuthToken

149− (\ s a -> s{_mdiOAuthToken = a})

150−

15184-- | OrderId for which deals need to be added.

15285mdiOrderId :: Lens' MarketplaceDealsInsert' Text

15386mdiOrderId

15487 = lens _mdiOrderId (\ s a -> s{_mdiOrderId = a})

15588

156−-- | Selector specifying which fields to include in a partial response.

157−mdiFields :: Lens' MarketplaceDealsInsert' (Maybe Text)

158−mdiFields

159− = lens _mdiFields (\ s a -> s{_mdiFields = a})

160−

161−instance GoogleAuth MarketplaceDealsInsert' where

162− _AuthKey = mdiKey . _Just

163− _AuthToken = mdiOAuthToken . _Just

164−

16589instance GoogleRequest MarketplaceDealsInsert' where

16690 type Rs MarketplaceDealsInsert' =

16791 AddOrderDealsResponse

168− request = requestWith adExchangeBuyerRequest

169− requestWith rq MarketplaceDealsInsert'{..}

170− = go _mdiOrderId _mdiQuotaUser (Just _mdiPrettyPrint)

171− _mdiUserIP

172− _mdiFields

173− _mdiKey

174− _mdiOAuthToken

175− (Just AltJSON)

176− _mdiPayload

92+ requestClient MarketplaceDealsInsert'{..}

93+ = go _mdiOrderId (Just AltJSON) _mdiPayload

94+ adExchangeBuyerService

17795 where go

178− = clientBuild

96+ = buildClient

17997 (Proxy :: Proxy MarketplaceDealsInsertResource)

180− rq

98+ mempty

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceDeals/List.hs+10−91

@@ -33,13 +33,7 @@ module Network.Google.Resource.AdExchangeBuyer.MarketplaceDeals.List

3333 , MarketplaceDealsList'

3434

3535 -- * Request Lenses

36− , mdlQuotaUser

37− , mdlPrettyPrint

38− , mdlUserIP

39− , mdlKey

40− , mdlOAuthToken

4136 , mdlOrderId

42− , mdlFields

4337 ) where

4438

4539import Network.Google.AdExchangeBuyer.Types

@@ -51,115 +45,40 @@ type MarketplaceDealsListResource =

5145 "marketplaceOrders" :>

5246 Capture "orderId" Text :>

5347 "deals" :>

54− QueryParam "quotaUser" Text :>

55− QueryParam "prettyPrint" Bool :>

56− QueryParam "userIp" Text :>

57− QueryParam "fields" Text :>

58− QueryParam "key" AuthKey :>

59− Header "Authorization" OAuthToken :>

60− QueryParam "alt" AltJSON :>

61− Get '[JSON] GetOrderDealsResponse

48+ QueryParam "alt" AltJSON :>

49+ Get '[JSON] GetOrderDealsResponse

6250

6351-- | List all the deals for a given order

6452--

6553-- /See:/ 'marketplaceDealsList'' smart constructor.

66−data MarketplaceDealsList' = MarketplaceDealsList'

67− { _mdlQuotaUser :: !(Maybe Text)

68− , _mdlPrettyPrint :: !Bool

69− , _mdlUserIP :: !(Maybe Text)

70− , _mdlKey :: !(Maybe AuthKey)

71− , _mdlOAuthToken :: !(Maybe OAuthToken)

72− , _mdlOrderId :: !Text

73− , _mdlFields :: !(Maybe Text)

54+newtype MarketplaceDealsList' = MarketplaceDealsList'

55+ { _mdlOrderId :: Text

7456 } deriving (Eq,Show,Data,Typeable,Generic)

7557

7658-- | Creates a value of 'MarketplaceDealsList'' with the minimum fields required to make a request.

7759--

7860-- Use one of the following lenses to modify other fields as desired:

7961--

80−-- * 'mdlQuotaUser'

81−--

82−-- * 'mdlPrettyPrint'

83−--

84−-- * 'mdlUserIP'

85−--

86−-- * 'mdlKey'

87−--

88−-- * 'mdlOAuthToken'

89−--

9062-- * 'mdlOrderId'

91−--

92−-- * 'mdlFields'

9363marketplaceDealsList'

9464 :: Text -- ^ 'orderId'

9565 -> MarketplaceDealsList'

9666marketplaceDealsList' pMdlOrderId_ =

9767 MarketplaceDealsList'

98− { _mdlQuotaUser = Nothing

99− , _mdlPrettyPrint = True

100− , _mdlUserIP = Nothing

101− , _mdlKey = Nothing

102− , _mdlOAuthToken = Nothing

103− , _mdlOrderId = pMdlOrderId_

104− , _mdlFields = Nothing

68+ { _mdlOrderId = pMdlOrderId_

10569 }

10670

107−-- | Available to use for quota purposes for server-side applications. Can be

108−-- any arbitrary string assigned to a user, but should not exceed 40

109−-- characters. Overrides userIp if both are provided.

110−mdlQuotaUser :: Lens' MarketplaceDealsList' (Maybe Text)

111−mdlQuotaUser

112− = lens _mdlQuotaUser (\ s a -> s{_mdlQuotaUser = a})

113−

114−-- | Returns response with indentations and line breaks.

115−mdlPrettyPrint :: Lens' MarketplaceDealsList' Bool

116−mdlPrettyPrint

117− = lens _mdlPrettyPrint

118− (\ s a -> s{_mdlPrettyPrint = a})

119−

120−-- | IP address of the site where the request originates. Use this if you

121−-- want to enforce per-user limits.

122−mdlUserIP :: Lens' MarketplaceDealsList' (Maybe Text)

123−mdlUserIP

124− = lens _mdlUserIP (\ s a -> s{_mdlUserIP = a})

125−

126−-- | API key. Your API key identifies your project and provides you with API

127−-- access, quota, and reports. Required unless you provide an OAuth 2.0

128−-- token.

129−mdlKey :: Lens' MarketplaceDealsList' (Maybe AuthKey)

130−mdlKey = lens _mdlKey (\ s a -> s{_mdlKey = a})

131−

132−-- | OAuth 2.0 token for the current user.

133−mdlOAuthToken :: Lens' MarketplaceDealsList' (Maybe OAuthToken)

134−mdlOAuthToken

135− = lens _mdlOAuthToken

136− (\ s a -> s{_mdlOAuthToken = a})

137−

13871-- | The orderId to get deals for.

13972mdlOrderId :: Lens' MarketplaceDealsList' Text

14073mdlOrderId

14174 = lens _mdlOrderId (\ s a -> s{_mdlOrderId = a})

14275

143−-- | Selector specifying which fields to include in a partial response.

144−mdlFields :: Lens' MarketplaceDealsList' (Maybe Text)

145−mdlFields

146− = lens _mdlFields (\ s a -> s{_mdlFields = a})

147−

148−instance GoogleAuth MarketplaceDealsList' where

149− _AuthKey = mdlKey . _Just

150− _AuthToken = mdlOAuthToken . _Just

151−

15276instance GoogleRequest MarketplaceDealsList' where

15377 type Rs MarketplaceDealsList' = GetOrderDealsResponse

154− request = requestWith adExchangeBuyerRequest

155− requestWith rq MarketplaceDealsList'{..}

156− = go _mdlOrderId _mdlQuotaUser (Just _mdlPrettyPrint)

157− _mdlUserIP

158− _mdlFields

159− _mdlKey

160− _mdlOAuthToken

161− (Just AltJSON)

78+ requestClient MarketplaceDealsList'{..}

79+ = go _mdlOrderId (Just AltJSON)

80+ adExchangeBuyerService

16281 where go

163− = clientBuild

82+ = buildClient

16483 (Proxy :: Proxy MarketplaceDealsListResource)

165− rq

84+ mempty

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceDeals/Update.hs+11−93

@@ -33,14 +33,8 @@ module Network.Google.Resource.AdExchangeBuyer.MarketplaceDeals.Update

3333 , MarketplaceDealsUpdate'

3434

3535 -- * Request Lenses

36− , mduQuotaUser

37− , mduPrettyPrint

38− , mduUserIP

3936 , mduPayload

40− , mduKey

41− , mduOAuthToken

4237 , mduOrderId

43− , mduFields

4438 ) where

4539

4640import Network.Google.AdExchangeBuyer.Types

@@ -53,128 +47,52 @@ type MarketplaceDealsUpdateResource =

5347 Capture "orderId" Text :>

5448 "deals" :>

5549 "update" :>

56− QueryParam "quotaUser" Text :>

57− QueryParam "prettyPrint" Bool :>

58− QueryParam "userIp" Text :>

59− QueryParam "fields" Text :>

60− QueryParam "key" AuthKey :>

61− Header "Authorization" OAuthToken :>

62− QueryParam "alt" AltJSON :>

63− ReqBody '[JSON] EditAllOrderDealsRequest :>

64− Post '[JSON] EditAllOrderDealsResponse

50+ QueryParam "alt" AltJSON :>

51+ ReqBody '[JSON] EditAllOrderDealsRequest :>

52+ Post '[JSON] EditAllOrderDealsResponse

6553

6654-- | Replaces all the deals in the order with the passed in deals

6755--

6856-- /See:/ 'marketplaceDealsUpdate'' smart constructor.

6957data MarketplaceDealsUpdate' = MarketplaceDealsUpdate'

70− { _mduQuotaUser :: !(Maybe Text)

71− , _mduPrettyPrint :: !Bool

72− , _mduUserIP :: !(Maybe Text)

73− , _mduPayload :: !EditAllOrderDealsRequest

74− , _mduKey :: !(Maybe AuthKey)

75− , _mduOAuthToken :: !(Maybe OAuthToken)

76− , _mduOrderId :: !Text

77− , _mduFields :: !(Maybe Text)

58+ { _mduPayload :: !EditAllOrderDealsRequest

59+ , _mduOrderId :: !Text

7860 } deriving (Eq,Show,Data,Typeable,Generic)

7961

8062-- | Creates a value of 'MarketplaceDealsUpdate'' with the minimum fields required to make a request.

8163--

8264-- Use one of the following lenses to modify other fields as desired:

8365--

84−-- * 'mduQuotaUser'

85−--

86−-- * 'mduPrettyPrint'

87−--

88−-- * 'mduUserIP'

89−--

9066-- * 'mduPayload'

9167--

92−-- * 'mduKey'

93−--

94−-- * 'mduOAuthToken'

95−--

9668-- * 'mduOrderId'

97−--

98−-- * 'mduFields'

9969marketplaceDealsUpdate'

10070 :: EditAllOrderDealsRequest -- ^ 'payload'

10171 -> Text -- ^ 'orderId'

10272 -> MarketplaceDealsUpdate'

10373marketplaceDealsUpdate' pMduPayload_ pMduOrderId_ =

10474 MarketplaceDealsUpdate'

105− { _mduQuotaUser = Nothing

106− , _mduPrettyPrint = True

107− , _mduUserIP = Nothing

108− , _mduPayload = pMduPayload_

109− , _mduKey = Nothing

110− , _mduOAuthToken = Nothing

75+ { _mduPayload = pMduPayload_

11176 , _mduOrderId = pMduOrderId_

112− , _mduFields = Nothing

11377 }

11478

115−-- | Available to use for quota purposes for server-side applications. Can be

116−-- any arbitrary string assigned to a user, but should not exceed 40

117−-- characters. Overrides userIp if both are provided.

118−mduQuotaUser :: Lens' MarketplaceDealsUpdate' (Maybe Text)

119−mduQuotaUser

120− = lens _mduQuotaUser (\ s a -> s{_mduQuotaUser = a})

121−

122−-- | Returns response with indentations and line breaks.

123−mduPrettyPrint :: Lens' MarketplaceDealsUpdate' Bool

124−mduPrettyPrint

125− = lens _mduPrettyPrint

126− (\ s a -> s{_mduPrettyPrint = a})

127−

128−-- | IP address of the site where the request originates. Use this if you

129−-- want to enforce per-user limits.

130−mduUserIP :: Lens' MarketplaceDealsUpdate' (Maybe Text)

131−mduUserIP

132− = lens _mduUserIP (\ s a -> s{_mduUserIP = a})

133−

13479-- | Multipart request metadata.

13580mduPayload :: Lens' MarketplaceDealsUpdate' EditAllOrderDealsRequest

13681mduPayload

13782 = lens _mduPayload (\ s a -> s{_mduPayload = a})

13883

139−-- | API key. Your API key identifies your project and provides you with API

140−-- access, quota, and reports. Required unless you provide an OAuth 2.0

141−-- token.

142−mduKey :: Lens' MarketplaceDealsUpdate' (Maybe AuthKey)

143−mduKey = lens _mduKey (\ s a -> s{_mduKey = a})

144−

145−-- | OAuth 2.0 token for the current user.

146−mduOAuthToken :: Lens' MarketplaceDealsUpdate' (Maybe OAuthToken)

147−mduOAuthToken

148− = lens _mduOAuthToken

149− (\ s a -> s{_mduOAuthToken = a})

150−

15184-- | The orderId to edit deals on.

15285mduOrderId :: Lens' MarketplaceDealsUpdate' Text

15386mduOrderId

15487 = lens _mduOrderId (\ s a -> s{_mduOrderId = a})

15588

156−-- | Selector specifying which fields to include in a partial response.

157−mduFields :: Lens' MarketplaceDealsUpdate' (Maybe Text)

158−mduFields

159− = lens _mduFields (\ s a -> s{_mduFields = a})

160−

161−instance GoogleAuth MarketplaceDealsUpdate' where

162− _AuthKey = mduKey . _Just

163− _AuthToken = mduOAuthToken . _Just

164−

16589instance GoogleRequest MarketplaceDealsUpdate' where

16690 type Rs MarketplaceDealsUpdate' =

16791 EditAllOrderDealsResponse

168− request = requestWith adExchangeBuyerRequest

169− requestWith rq MarketplaceDealsUpdate'{..}

170− = go _mduOrderId _mduQuotaUser (Just _mduPrettyPrint)

171− _mduUserIP

172− _mduFields

173− _mduKey

174− _mduOAuthToken

175− (Just AltJSON)

176− _mduPayload

92+ requestClient MarketplaceDealsUpdate'{..}

93+ = go _mduOrderId (Just AltJSON) _mduPayload

94+ adExchangeBuyerService

17795 where go

178− = clientBuild

96+ = buildClient

17997 (Proxy :: Proxy MarketplaceDealsUpdateResource)

180− rq

98+ mempty

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceNotes/Insert.hs+11−93

@@ -33,14 +33,8 @@ module Network.Google.Resource.AdExchangeBuyer.MarketplaceNotes.Insert

3333 , MarketplaceNotesInsert'

3434

3535 -- * Request Lenses

36− , mniQuotaUser

37− , mniPrettyPrint

38− , mniUserIP

3936 , mniPayload

40− , mniKey

41− , mniOAuthToken

4237 , mniOrderId

43− , mniFields

4438 ) where

4539

4640import Network.Google.AdExchangeBuyer.Types

@@ -53,128 +47,52 @@ type MarketplaceNotesInsertResource =

5347 Capture "orderId" Text :>

5448 "notes" :>

5549 "insert" :>

56− QueryParam "quotaUser" Text :>

57− QueryParam "prettyPrint" Bool :>

58− QueryParam "userIp" Text :>

59− QueryParam "fields" Text :>

60− QueryParam "key" AuthKey :>

61− Header "Authorization" OAuthToken :>

62− QueryParam "alt" AltJSON :>

63− ReqBody '[JSON] AddOrderNotesRequest :>

64− Post '[JSON] AddOrderNotesResponse

50+ QueryParam "alt" AltJSON :>

51+ ReqBody '[JSON] AddOrderNotesRequest :>

52+ Post '[JSON] AddOrderNotesResponse

6553

6654-- | Add notes to the order

6755--

6856-- /See:/ 'marketplaceNotesInsert'' smart constructor.

6957data MarketplaceNotesInsert' = MarketplaceNotesInsert'

70− { _mniQuotaUser :: !(Maybe Text)

71− , _mniPrettyPrint :: !Bool

72− , _mniUserIP :: !(Maybe Text)

73− , _mniPayload :: !AddOrderNotesRequest

74− , _mniKey :: !(Maybe AuthKey)

75− , _mniOAuthToken :: !(Maybe OAuthToken)

76− , _mniOrderId :: !Text

77− , _mniFields :: !(Maybe Text)

58+ { _mniPayload :: !AddOrderNotesRequest

59+ , _mniOrderId :: !Text

7860 } deriving (Eq,Show,Data,Typeable,Generic)

7961

8062-- | Creates a value of 'MarketplaceNotesInsert'' with the minimum fields required to make a request.

8163--

8264-- Use one of the following lenses to modify other fields as desired:

8365--

84−-- * 'mniQuotaUser'

85−--

86−-- * 'mniPrettyPrint'

87−--

88−-- * 'mniUserIP'

89−--

9066-- * 'mniPayload'

9167--

92−-- * 'mniKey'

93−--

94−-- * 'mniOAuthToken'

95−--

9668-- * 'mniOrderId'

97−--

98−-- * 'mniFields'

9969marketplaceNotesInsert'

10070 :: AddOrderNotesRequest -- ^ 'payload'

10171 -> Text -- ^ 'orderId'

10272 -> MarketplaceNotesInsert'

10373marketplaceNotesInsert' pMniPayload_ pMniOrderId_ =

10474 MarketplaceNotesInsert'

105− { _mniQuotaUser = Nothing

106− , _mniPrettyPrint = True

107− , _mniUserIP = Nothing

108− , _mniPayload = pMniPayload_

109− , _mniKey = Nothing

110− , _mniOAuthToken = Nothing

75+ { _mniPayload = pMniPayload_

11176 , _mniOrderId = pMniOrderId_

112− , _mniFields = Nothing

11377 }

11478

115−-- | Available to use for quota purposes for server-side applications. Can be

116−-- any arbitrary string assigned to a user, but should not exceed 40

117−-- characters. Overrides userIp if both are provided.

118−mniQuotaUser :: Lens' MarketplaceNotesInsert' (Maybe Text)

119−mniQuotaUser

120− = lens _mniQuotaUser (\ s a -> s{_mniQuotaUser = a})

121−

122−-- | Returns response with indentations and line breaks.

123−mniPrettyPrint :: Lens' MarketplaceNotesInsert' Bool

124−mniPrettyPrint

125− = lens _mniPrettyPrint

126− (\ s a -> s{_mniPrettyPrint = a})

127−

128−-- | IP address of the site where the request originates. Use this if you

129−-- want to enforce per-user limits.

130−mniUserIP :: Lens' MarketplaceNotesInsert' (Maybe Text)

131−mniUserIP

132− = lens _mniUserIP (\ s a -> s{_mniUserIP = a})

133−

13479-- | Multipart request metadata.

13580mniPayload :: Lens' MarketplaceNotesInsert' AddOrderNotesRequest

13681mniPayload

13782 = lens _mniPayload (\ s a -> s{_mniPayload = a})

13883

139−-- | API key. Your API key identifies your project and provides you with API

140−-- access, quota, and reports. Required unless you provide an OAuth 2.0

141−-- token.

142−mniKey :: Lens' MarketplaceNotesInsert' (Maybe AuthKey)

143−mniKey = lens _mniKey (\ s a -> s{_mniKey = a})

144−

145−-- | OAuth 2.0 token for the current user.

146−mniOAuthToken :: Lens' MarketplaceNotesInsert' (Maybe OAuthToken)

147−mniOAuthToken

148− = lens _mniOAuthToken

149− (\ s a -> s{_mniOAuthToken = a})

150−

15184-- | The orderId to add notes for.

15285mniOrderId :: Lens' MarketplaceNotesInsert' Text

15386mniOrderId

15487 = lens _mniOrderId (\ s a -> s{_mniOrderId = a})

15588

156−-- | Selector specifying which fields to include in a partial response.

157−mniFields :: Lens' MarketplaceNotesInsert' (Maybe Text)

158−mniFields

159− = lens _mniFields (\ s a -> s{_mniFields = a})

160−

161−instance GoogleAuth MarketplaceNotesInsert' where

162− _AuthKey = mniKey . _Just

163− _AuthToken = mniOAuthToken . _Just

164−

16589instance GoogleRequest MarketplaceNotesInsert' where

16690 type Rs MarketplaceNotesInsert' =

16791 AddOrderNotesResponse

168− request = requestWith adExchangeBuyerRequest

169− requestWith rq MarketplaceNotesInsert'{..}

170− = go _mniOrderId _mniQuotaUser (Just _mniPrettyPrint)

171− _mniUserIP

172− _mniFields

173− _mniKey

174− _mniOAuthToken

175− (Just AltJSON)

176− _mniPayload

92+ requestClient MarketplaceNotesInsert'{..}

93+ = go _mniOrderId (Just AltJSON) _mniPayload

94+ adExchangeBuyerService

17795 where go

178− = clientBuild

96+ = buildClient

17997 (Proxy :: Proxy MarketplaceNotesInsertResource)

180− rq

98+ mempty

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceNotes/List.hs+10−91

@@ -33,13 +33,7 @@ module Network.Google.Resource.AdExchangeBuyer.MarketplaceNotes.List

3333 , MarketplaceNotesList'

3434

3535 -- * Request Lenses

36− , mnlQuotaUser

37− , mnlPrettyPrint

38− , mnlUserIP

39− , mnlKey

40− , mnlOAuthToken

4136 , mnlOrderId

42− , mnlFields

4337 ) where

4438

4539import Network.Google.AdExchangeBuyer.Types

@@ -51,115 +45,40 @@ type MarketplaceNotesListResource =

5145 "marketplaceOrders" :>

5246 Capture "orderId" Text :>

5347 "notes" :>

54− QueryParam "quotaUser" Text :>

55− QueryParam "prettyPrint" Bool :>

56− QueryParam "userIp" Text :>

57− QueryParam "fields" Text :>

58− QueryParam "key" AuthKey :>

59− Header "Authorization" OAuthToken :>

60− QueryParam "alt" AltJSON :>

61− Get '[JSON] GetOrderNotesResponse

48+ QueryParam "alt" AltJSON :>

49+ Get '[JSON] GetOrderNotesResponse

6250

6351-- | Get all the notes associated with an order

6452--

6553-- /See:/ 'marketplaceNotesList'' smart constructor.

66−data MarketplaceNotesList' = MarketplaceNotesList'

67− { _mnlQuotaUser :: !(Maybe Text)

68− , _mnlPrettyPrint :: !Bool

69− , _mnlUserIP :: !(Maybe Text)

70− , _mnlKey :: !(Maybe AuthKey)

71− , _mnlOAuthToken :: !(Maybe OAuthToken)

72− , _mnlOrderId :: !Text

73− , _mnlFields :: !(Maybe Text)

54+newtype MarketplaceNotesList' = MarketplaceNotesList'

55+ { _mnlOrderId :: Text

7456 } deriving (Eq,Show,Data,Typeable,Generic)

7557

7658-- | Creates a value of 'MarketplaceNotesList'' with the minimum fields required to make a request.

7759--

7860-- Use one of the following lenses to modify other fields as desired:

7961--

80−-- * 'mnlQuotaUser'

81−--

82−-- * 'mnlPrettyPrint'

83−--

84−-- * 'mnlUserIP'

85−--

86−-- * 'mnlKey'

87−--

88−-- * 'mnlOAuthToken'

89−--

9062-- * 'mnlOrderId'

91−--

92−-- * 'mnlFields'

9363marketplaceNotesList'

9464 :: Text -- ^ 'orderId'

9565 -> MarketplaceNotesList'

9666marketplaceNotesList' pMnlOrderId_ =

9767 MarketplaceNotesList'

98− { _mnlQuotaUser = Nothing

99− , _mnlPrettyPrint = True

100− , _mnlUserIP = Nothing

101− , _mnlKey = Nothing

102− , _mnlOAuthToken = Nothing

103− , _mnlOrderId = pMnlOrderId_

104− , _mnlFields = Nothing

68+ { _mnlOrderId = pMnlOrderId_

10569 }

10670

107−-- | Available to use for quota purposes for server-side applications. Can be

108−-- any arbitrary string assigned to a user, but should not exceed 40

109−-- characters. Overrides userIp if both are provided.

110−mnlQuotaUser :: Lens' MarketplaceNotesList' (Maybe Text)

111−mnlQuotaUser

112− = lens _mnlQuotaUser (\ s a -> s{_mnlQuotaUser = a})

113−

114−-- | Returns response with indentations and line breaks.

115−mnlPrettyPrint :: Lens' MarketplaceNotesList' Bool

116−mnlPrettyPrint

117− = lens _mnlPrettyPrint

118− (\ s a -> s{_mnlPrettyPrint = a})

119−

120−-- | IP address of the site where the request originates. Use this if you

121−-- want to enforce per-user limits.

122−mnlUserIP :: Lens' MarketplaceNotesList' (Maybe Text)

123−mnlUserIP

124− = lens _mnlUserIP (\ s a -> s{_mnlUserIP = a})

125−

126−-- | API key. Your API key identifies your project and provides you with API

127−-- access, quota, and reports. Required unless you provide an OAuth 2.0

128−-- token.

129−mnlKey :: Lens' MarketplaceNotesList' (Maybe AuthKey)

130−mnlKey = lens _mnlKey (\ s a -> s{_mnlKey = a})

131−

132−-- | OAuth 2.0 token for the current user.

133−mnlOAuthToken :: Lens' MarketplaceNotesList' (Maybe OAuthToken)

134−mnlOAuthToken

135− = lens _mnlOAuthToken

136− (\ s a -> s{_mnlOAuthToken = a})

137−

13871-- | The orderId to get notes for.

13972mnlOrderId :: Lens' MarketplaceNotesList' Text

14073mnlOrderId

14174 = lens _mnlOrderId (\ s a -> s{_mnlOrderId = a})

14275

143−-- | Selector specifying which fields to include in a partial response.

144−mnlFields :: Lens' MarketplaceNotesList' (Maybe Text)

145−mnlFields

146− = lens _mnlFields (\ s a -> s{_mnlFields = a})

147−

148−instance GoogleAuth MarketplaceNotesList' where

149− _AuthKey = mnlKey . _Just

150− _AuthToken = mnlOAuthToken . _Just

151−

15276instance GoogleRequest MarketplaceNotesList' where

15377 type Rs MarketplaceNotesList' = GetOrderNotesResponse

154− request = requestWith adExchangeBuyerRequest

155− requestWith rq MarketplaceNotesList'{..}

156− = go _mnlOrderId _mnlQuotaUser (Just _mnlPrettyPrint)

157− _mnlUserIP

158− _mnlFields

159− _mnlKey

160− _mnlOAuthToken

161− (Just AltJSON)

78+ requestClient MarketplaceNotesList'{..}

79+ = go _mnlOrderId (Just AltJSON)

80+ adExchangeBuyerService

16281 where go

163− = clientBuild

82+ = buildClient

16483 (Proxy :: Proxy MarketplaceNotesListResource)

165− rq

84+ mempty

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceOffers/Get.hs+10−91

@@ -33,13 +33,7 @@ module Network.Google.Resource.AdExchangeBuyer.MarketplaceOffers.Get

3333 , MarketplaceOffersGet'

3434

3535 -- * Request Lenses

36− , mogQuotaUser

37− , mogPrettyPrint

38− , mogUserIP

39− , mogKey

4036 , mogOfferId

41− , mogOAuthToken

42− , mogFields

4337 ) where

4438

4539import Network.Google.AdExchangeBuyer.Types

@@ -50,115 +44,40 @@ import Network.Google.Prelude

5044type MarketplaceOffersGetResource =

5145 "marketplaceOffers" :>

5246 Capture "offerId" Text :>

53− QueryParam "quotaUser" Text :>

54− QueryParam "prettyPrint" Bool :>

55− QueryParam "userIp" Text :>

56− QueryParam "fields" Text :>

57− QueryParam "key" AuthKey :>

58− Header "Authorization" OAuthToken :>

59− QueryParam "alt" AltJSON :>

60− Get '[JSON] MarketplaceOffer

47+ QueryParam "alt" AltJSON :>

48+ Get '[JSON] MarketplaceOffer

6149

6250-- | Gets the requested negotiation.

6351--

6452-- /See:/ 'marketplaceOffersGet'' smart constructor.

65−data MarketplaceOffersGet' = MarketplaceOffersGet'

66− { _mogQuotaUser :: !(Maybe Text)

67− , _mogPrettyPrint :: !Bool

68− , _mogUserIP :: !(Maybe Text)

69− , _mogKey :: !(Maybe AuthKey)

70− , _mogOfferId :: !Text

71− , _mogOAuthToken :: !(Maybe OAuthToken)

72− , _mogFields :: !(Maybe Text)

53+newtype MarketplaceOffersGet' = MarketplaceOffersGet'

54+ { _mogOfferId :: Text

7355 } deriving (Eq,Show,Data,Typeable,Generic)

7456

7557-- | Creates a value of 'MarketplaceOffersGet'' with the minimum fields required to make a request.

7658--

7759-- Use one of the following lenses to modify other fields as desired:

7860--

79−-- * 'mogQuotaUser'

80−--

81−-- * 'mogPrettyPrint'

82−--

83−-- * 'mogUserIP'

84−--

85−-- * 'mogKey'

86−--

8761-- * 'mogOfferId'

88−--

89−-- * 'mogOAuthToken'

90−--

91−-- * 'mogFields'

9262marketplaceOffersGet'

9363 :: Text -- ^ 'offerId'

9464 -> MarketplaceOffersGet'

9565marketplaceOffersGet' pMogOfferId_ =

9666 MarketplaceOffersGet'

97− { _mogQuotaUser = Nothing

98− , _mogPrettyPrint = True

99− , _mogUserIP = Nothing

100− , _mogKey = Nothing

101− , _mogOfferId = pMogOfferId_

102− , _mogOAuthToken = Nothing

103− , _mogFields = Nothing

67+ { _mogOfferId = pMogOfferId_

10468 }

10569

106−-- | Available to use for quota purposes for server-side applications. Can be

107−-- any arbitrary string assigned to a user, but should not exceed 40

108−-- characters. Overrides userIp if both are provided.

109−mogQuotaUser :: Lens' MarketplaceOffersGet' (Maybe Text)

110−mogQuotaUser

111− = lens _mogQuotaUser (\ s a -> s{_mogQuotaUser = a})

112−

113−-- | Returns response with indentations and line breaks.

114−mogPrettyPrint :: Lens' MarketplaceOffersGet' Bool

115−mogPrettyPrint

116− = lens _mogPrettyPrint

117− (\ s a -> s{_mogPrettyPrint = a})

118−

119−-- | IP address of the site where the request originates. Use this if you

120−-- want to enforce per-user limits.

121−mogUserIP :: Lens' MarketplaceOffersGet' (Maybe Text)

122−mogUserIP

123− = lens _mogUserIP (\ s a -> s{_mogUserIP = a})

124−

125−-- | API key. Your API key identifies your project and provides you with API

126−-- access, quota, and reports. Required unless you provide an OAuth 2.0

127−-- token.

128−mogKey :: Lens' MarketplaceOffersGet' (Maybe AuthKey)

129−mogKey = lens _mogKey (\ s a -> s{_mogKey = a})

130−

13170-- | The offerId for the offer to get the head revision for.

13271mogOfferId :: Lens' MarketplaceOffersGet' Text

13372mogOfferId

13473 = lens _mogOfferId (\ s a -> s{_mogOfferId = a})

13574

136−-- | OAuth 2.0 token for the current user.

137−mogOAuthToken :: Lens' MarketplaceOffersGet' (Maybe OAuthToken)

138−mogOAuthToken

139− = lens _mogOAuthToken

140− (\ s a -> s{_mogOAuthToken = a})

141−

142−-- | Selector specifying which fields to include in a partial response.

143−mogFields :: Lens' MarketplaceOffersGet' (Maybe Text)

144−mogFields

145− = lens _mogFields (\ s a -> s{_mogFields = a})

146−

147−instance GoogleAuth MarketplaceOffersGet' where

148− _AuthKey = mogKey . _Just

149− _AuthToken = mogOAuthToken . _Just

150−

15175instance GoogleRequest MarketplaceOffersGet' where

15276 type Rs MarketplaceOffersGet' = MarketplaceOffer

153− request = requestWith adExchangeBuyerRequest

154− requestWith rq MarketplaceOffersGet'{..}

155− = go _mogOfferId _mogQuotaUser (Just _mogPrettyPrint)

156− _mogUserIP

157− _mogFields

158− _mogKey

159− _mogOAuthToken

160− (Just AltJSON)

77+ requestClient MarketplaceOffersGet'{..}

78+ = go _mogOfferId (Just AltJSON)

79+ adExchangeBuyerService

16180 where go

162− = clientBuild

81+ = buildClient

16382 (Proxy :: Proxy MarketplaceOffersGetResource)

164− rq

83+ mempty

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceOffers/Search.hs+10−92

@@ -33,13 +33,7 @@ module Network.Google.Resource.AdExchangeBuyer.MarketplaceOffers.Search

3333 , MarketplaceOffersSearch'

3434

3535 -- * Request Lenses

36− , mosQuotaUser

37− , mosPrettyPrint

38− , mosUserIP

39− , mosKey

4036 , mosPqlQuery

41− , mosOAuthToken

42− , mosFields

4337 ) where

4438

4539import Network.Google.AdExchangeBuyer.Types

@@ -51,115 +45,39 @@ type MarketplaceOffersSearchResource =

5145 "marketplaceOffers" :>

5246 "search" :>

5347 QueryParam "pqlQuery" Text :>

54− QueryParam "quotaUser" Text :>

55− QueryParam "prettyPrint" Bool :>

56− QueryParam "userIp" Text :>

57− QueryParam "fields" Text :>

58− QueryParam "key" AuthKey :>

59− Header "Authorization" OAuthToken :>

60− QueryParam "alt" AltJSON :>

61− Get '[JSON] GetOffersResponse

48+ QueryParam "alt" AltJSON :>

49+ Get '[JSON] GetOffersResponse

6250

6351-- | Gets the requested negotiation.

6452--

6553-- /See:/ 'marketplaceOffersSearch'' smart constructor.

66−data MarketplaceOffersSearch' = MarketplaceOffersSearch'

67− { _mosQuotaUser :: !(Maybe Text)

68− , _mosPrettyPrint :: !Bool

69− , _mosUserIP :: !(Maybe Text)

70− , _mosKey :: !(Maybe AuthKey)

71− , _mosPqlQuery :: !(Maybe Text)

72− , _mosOAuthToken :: !(Maybe OAuthToken)

73− , _mosFields :: !(Maybe Text)

54+newtype MarketplaceOffersSearch' = MarketplaceOffersSearch'

55+ { _mosPqlQuery :: Maybe Text

7456 } deriving (Eq,Show,Data,Typeable,Generic)

7557

7658-- | Creates a value of 'MarketplaceOffersSearch'' with the minimum fields required to make a request.

7759--

7860-- Use one of the following lenses to modify other fields as desired:

7961--

80−-- * 'mosQuotaUser'

81−--

82−-- * 'mosPrettyPrint'

83−--

84−-- * 'mosUserIP'

85−--

86−-- * 'mosKey'

87−--

8862-- * 'mosPqlQuery'

89−--

90−-- * 'mosOAuthToken'

91−--

92−-- * 'mosFields'

9363marketplaceOffersSearch'

9464 :: MarketplaceOffersSearch'

9565marketplaceOffersSearch' =

9666 MarketplaceOffersSearch'

97− { _mosQuotaUser = Nothing

98− , _mosPrettyPrint = True

99− , _mosUserIP = Nothing

100− , _mosKey = Nothing

101− , _mosPqlQuery = Nothing

102− , _mosOAuthToken = Nothing

103− , _mosFields = Nothing

67+ { _mosPqlQuery = Nothing

10468 }

10569

106−-- | Available to use for quota purposes for server-side applications. Can be

107−-- any arbitrary string assigned to a user, but should not exceed 40

108−-- characters. Overrides userIp if both are provided.

109−mosQuotaUser :: Lens' MarketplaceOffersSearch' (Maybe Text)

110−mosQuotaUser

111− = lens _mosQuotaUser (\ s a -> s{_mosQuotaUser = a})

112−

113−-- | Returns response with indentations and line breaks.

114−mosPrettyPrint :: Lens' MarketplaceOffersSearch' Bool

115−mosPrettyPrint

116− = lens _mosPrettyPrint

117− (\ s a -> s{_mosPrettyPrint = a})

118−

119−-- | IP address of the site where the request originates. Use this if you

120−-- want to enforce per-user limits.

121−mosUserIP :: Lens' MarketplaceOffersSearch' (Maybe Text)

122−mosUserIP

123− = lens _mosUserIP (\ s a -> s{_mosUserIP = a})

124−

125−-- | API key. Your API key identifies your project and provides you with API

126−-- access, quota, and reports. Required unless you provide an OAuth 2.0

127−-- token.

128−mosKey :: Lens' MarketplaceOffersSearch' (Maybe AuthKey)

129−mosKey = lens _mosKey (\ s a -> s{_mosKey = a})

130−

13170-- | The pql query used to query for offers.

13271mosPqlQuery :: Lens' MarketplaceOffersSearch' (Maybe Text)

13372mosPqlQuery

13473 = lens _mosPqlQuery (\ s a -> s{_mosPqlQuery = a})

13574

136−-- | OAuth 2.0 token for the current user.

137−mosOAuthToken :: Lens' MarketplaceOffersSearch' (Maybe OAuthToken)

138−mosOAuthToken

139− = lens _mosOAuthToken

140− (\ s a -> s{_mosOAuthToken = a})

141−

142−-- | Selector specifying which fields to include in a partial response.

143−mosFields :: Lens' MarketplaceOffersSearch' (Maybe Text)

144−mosFields

145− = lens _mosFields (\ s a -> s{_mosFields = a})

146−

147−instance GoogleAuth MarketplaceOffersSearch' where

148− _AuthKey = mosKey . _Just

149− _AuthToken = mosOAuthToken . _Just

150−

15175instance GoogleRequest MarketplaceOffersSearch' where

15276 type Rs MarketplaceOffersSearch' = GetOffersResponse

153− request = requestWith adExchangeBuyerRequest

154− requestWith rq MarketplaceOffersSearch'{..}

155− = go _mosPqlQuery _mosQuotaUser

156− (Just _mosPrettyPrint)

157− _mosUserIP

158− _mosFields

159− _mosKey

160− _mosOAuthToken

161− (Just AltJSON)

77+ requestClient MarketplaceOffersSearch'{..}

78+ = go _mosPqlQuery (Just AltJSON)

79+ adExchangeBuyerService

16280 where go

163− = clientBuild

81+ = buildClient

16482 (Proxy :: Proxy MarketplaceOffersSearchResource)

165− rq

83+ mempty

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceOrders/Get.hs+16−92

@@ -33,13 +33,7 @@ module Network.Google.Resource.AdExchangeBuyer.MarketplaceOrders.Get

3333 , MarketplaceOrdersGet'

3434

3535 -- * Request Lenses

36− , mQuotaUser

37− , mPrettyPrint

38− , mUserIP

39− , mKey

40− , mOAuthToken

41− , mOrderId

42− , mFields

36+ , mogOrderId

4337 ) where

4438

4539import Network.Google.AdExchangeBuyer.Types

@@ -50,110 +44,40 @@ import Network.Google.Prelude

5044type MarketplaceOrdersGetResource =

5145 "marketplaceOrders" :>

5246 Capture "orderId" Text :>

53− QueryParam "quotaUser" Text :>

54− QueryParam "prettyPrint" Bool :>

55− QueryParam "userIp" Text :>

56− QueryParam "fields" Text :>

57− QueryParam "key" AuthKey :>

58− Header "Authorization" OAuthToken :>

59− QueryParam "alt" AltJSON :>

60− Get '[JSON] MarketplaceOrder

47+ QueryParam "alt" AltJSON :>

48+ Get '[JSON] MarketplaceOrder

6149

6250-- | Get an order given its id

6351--

6452-- /See:/ 'marketplaceOrdersGet'' smart constructor.

65−data MarketplaceOrdersGet' = MarketplaceOrdersGet'

66− { _mQuotaUser :: !(Maybe Text)

67− , _mPrettyPrint :: !Bool

68− , _mUserIP :: !(Maybe Text)

69− , _mKey :: !(Maybe AuthKey)

70− , _mOAuthToken :: !(Maybe OAuthToken)

71− , _mOrderId :: !Text

72− , _mFields :: !(Maybe Text)

53+newtype MarketplaceOrdersGet' = MarketplaceOrdersGet'

54+ { _mogOrderId :: Text

7355 } deriving (Eq,Show,Data,Typeable,Generic)

7456

7557-- | Creates a value of 'MarketplaceOrdersGet'' with the minimum fields required to make a request.

7658--

7759-- Use one of the following lenses to modify other fields as desired:

7860--

79−-- * 'mQuotaUser'

80−--

81−-- * 'mPrettyPrint'

82−--

83−-- * 'mUserIP'

84−--

85−-- * 'mKey'

86−--

87−-- * 'mOAuthToken'

88−--

89−-- * 'mOrderId'

90−--

91−-- * 'mFields'

61+-- * 'mogOrderId'

9262marketplaceOrdersGet'

9363 :: Text -- ^ 'orderId'

9464 -> MarketplaceOrdersGet'

95−marketplaceOrdersGet' pMOrderId_ =

65+marketplaceOrdersGet' pMogOrderId_ =

9666 MarketplaceOrdersGet'

97− { _mQuotaUser = Nothing

98− , _mPrettyPrint = True

99− , _mUserIP = Nothing

100− , _mKey = Nothing

101− , _mOAuthToken = Nothing

102− , _mOrderId = pMOrderId_

103− , _mFields = Nothing

67+ { _mogOrderId = pMogOrderId_

10468 }

10569

106−-- | Available to use for quota purposes for server-side applications. Can be

107−-- any arbitrary string assigned to a user, but should not exceed 40

108−-- characters. Overrides userIp if both are provided.

109−mQuotaUser :: Lens' MarketplaceOrdersGet' (Maybe Text)

110−mQuotaUser

111− = lens _mQuotaUser (\ s a -> s{_mQuotaUser = a})

112−

113−-- | Returns response with indentations and line breaks.

114−mPrettyPrint :: Lens' MarketplaceOrdersGet' Bool

115−mPrettyPrint

116− = lens _mPrettyPrint (\ s a -> s{_mPrettyPrint = a})

117−

118−-- | IP address of the site where the request originates. Use this if you

119−-- want to enforce per-user limits.

120−mUserIP :: Lens' MarketplaceOrdersGet' (Maybe Text)

121−mUserIP = lens _mUserIP (\ s a -> s{_mUserIP = a})

122−

123−-- | API key. Your API key identifies your project and provides you with API

124−-- access, quota, and reports. Required unless you provide an OAuth 2.0

125−-- token.

126−mKey :: Lens' MarketplaceOrdersGet' (Maybe AuthKey)

127−mKey = lens _mKey (\ s a -> s{_mKey = a})

128−

129−-- | OAuth 2.0 token for the current user.

130−mOAuthToken :: Lens' MarketplaceOrdersGet' (Maybe OAuthToken)

131−mOAuthToken

132− = lens _mOAuthToken (\ s a -> s{_mOAuthToken = a})

133−

13470-- | Id of the order to retrieve.

135−mOrderId :: Lens' MarketplaceOrdersGet' Text

136−mOrderId = lens _mOrderId (\ s a -> s{_mOrderId = a})

137−

138−-- | Selector specifying which fields to include in a partial response.

139−mFields :: Lens' MarketplaceOrdersGet' (Maybe Text)

140−mFields = lens _mFields (\ s a -> s{_mFields = a})

141−

142−instance GoogleAuth MarketplaceOrdersGet' where

143− _AuthKey = mKey . _Just

144− _AuthToken = mOAuthToken . _Just

71+mogOrderId :: Lens' MarketplaceOrdersGet' Text

72+mogOrderId

73+ = lens _mogOrderId (\ s a -> s{_mogOrderId = a})

14574

14675instance GoogleRequest MarketplaceOrdersGet' where

14776 type Rs MarketplaceOrdersGet' = MarketplaceOrder

148− request = requestWith adExchangeBuyerRequest

149− requestWith rq MarketplaceOrdersGet'{..}

150− = go _mOrderId _mQuotaUser (Just _mPrettyPrint)

151− _mUserIP

152− _mFields

153− _mKey

154− _mOAuthToken

155− (Just AltJSON)

77+ requestClient MarketplaceOrdersGet'{..}

78+ = go _mogOrderId (Just AltJSON)

79+ adExchangeBuyerService

15680 where go

157− = clientBuild

81+ = buildClient

15882 (Proxy :: Proxy MarketplaceOrdersGetResource)

159− rq

83+ mempty

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceOrders/Insert.hs+11−92

@@ -33,13 +33,7 @@ module Network.Google.Resource.AdExchangeBuyer.MarketplaceOrders.Insert

3333 , MarketplaceOrdersInsert'

3434

3535 -- * Request Lenses

36− , moiQuotaUser

37− , moiPrettyPrint

38− , moiUserIP

3936 , moiPayload

40− , moiKey

41− , moiOAuthToken

42− , moiFields

4337 ) where

4438

4539import Network.Google.AdExchangeBuyer.Types

@@ -50,117 +44,42 @@ import Network.Google.Prelude

5044type MarketplaceOrdersInsertResource =

5145 "marketplaceOrders" :>

5246 "insert" :>

53− QueryParam "quotaUser" Text :>

54− QueryParam "prettyPrint" Bool :>

55− QueryParam "userIp" Text :>

56− QueryParam "fields" Text :>

57− QueryParam "key" AuthKey :>

58− Header "Authorization" OAuthToken :>

59− QueryParam "alt" AltJSON :>

60− ReqBody '[JSON] CreateOrdersRequest :>

61− Post '[JSON] CreateOrdersResponse

47+ QueryParam "alt" AltJSON :>

48+ ReqBody '[JSON] CreateOrdersRequest :>

49+ Post '[JSON] CreateOrdersResponse

6250

6351-- | Create the given list of orders

6452--

6553-- /See:/ 'marketplaceOrdersInsert'' smart constructor.

66−data MarketplaceOrdersInsert' = MarketplaceOrdersInsert'

67− { _moiQuotaUser :: !(Maybe Text)

68− , _moiPrettyPrint :: !Bool

69− , _moiUserIP :: !(Maybe Text)

70− , _moiPayload :: !CreateOrdersRequest

71− , _moiKey :: !(Maybe AuthKey)

72− , _moiOAuthToken :: !(Maybe OAuthToken)

73− , _moiFields :: !(Maybe Text)

54+newtype MarketplaceOrdersInsert' = MarketplaceOrdersInsert'

55+ { _moiPayload :: CreateOrdersRequest

7456 } deriving (Eq,Show,Data,Typeable,Generic)

7557

7658-- | Creates a value of 'MarketplaceOrdersInsert'' with the minimum fields required to make a request.

7759--

7860-- Use one of the following lenses to modify other fields as desired:

7961--

80−-- * 'moiQuotaUser'

81−--

82−-- * 'moiPrettyPrint'

83−--

84−-- * 'moiUserIP'

85−--

8662-- * 'moiPayload'

87−--

88−-- * 'moiKey'

89−--

90−-- * 'moiOAuthToken'

91−--

92−-- * 'moiFields'

9363marketplaceOrdersInsert'

9464 :: CreateOrdersRequest -- ^ 'payload'

9565 -> MarketplaceOrdersInsert'

9666marketplaceOrdersInsert' pMoiPayload_ =

9767 MarketplaceOrdersInsert'

98− { _moiQuotaUser = Nothing

99− , _moiPrettyPrint = True

100− , _moiUserIP = Nothing

101− , _moiPayload = pMoiPayload_

102− , _moiKey = Nothing

103− , _moiOAuthToken = Nothing

104− , _moiFields = Nothing

68+ { _moiPayload = pMoiPayload_

10569 }

10670

107−-- | Available to use for quota purposes for server-side applications. Can be

108−-- any arbitrary string assigned to a user, but should not exceed 40

109−-- characters. Overrides userIp if both are provided.

110−moiQuotaUser :: Lens' MarketplaceOrdersInsert' (Maybe Text)

111−moiQuotaUser

112− = lens _moiQuotaUser (\ s a -> s{_moiQuotaUser = a})

113−

114−-- | Returns response with indentations and line breaks.

115−moiPrettyPrint :: Lens' MarketplaceOrdersInsert' Bool

116−moiPrettyPrint

117− = lens _moiPrettyPrint

118− (\ s a -> s{_moiPrettyPrint = a})

119−

120−-- | IP address of the site where the request originates. Use this if you

121−-- want to enforce per-user limits.

122−moiUserIP :: Lens' MarketplaceOrdersInsert' (Maybe Text)

123−moiUserIP

124− = lens _moiUserIP (\ s a -> s{_moiUserIP = a})

125−

12671-- | Multipart request metadata.

12772moiPayload :: Lens' MarketplaceOrdersInsert' CreateOrdersRequest

12873moiPayload

12974 = lens _moiPayload (\ s a -> s{_moiPayload = a})

13075

131−-- | API key. Your API key identifies your project and provides you with API

132−-- access, quota, and reports. Required unless you provide an OAuth 2.0

133−-- token.

134−moiKey :: Lens' MarketplaceOrdersInsert' (Maybe AuthKey)

135−moiKey = lens _moiKey (\ s a -> s{_moiKey = a})

136−

137−-- | OAuth 2.0 token for the current user.

138−moiOAuthToken :: Lens' MarketplaceOrdersInsert' (Maybe OAuthToken)

139−moiOAuthToken

140− = lens _moiOAuthToken

141− (\ s a -> s{_moiOAuthToken = a})

142−

143−-- | Selector specifying which fields to include in a partial response.

144−moiFields :: Lens' MarketplaceOrdersInsert' (Maybe Text)

145−moiFields

146− = lens _moiFields (\ s a -> s{_moiFields = a})

147−

148−instance GoogleAuth MarketplaceOrdersInsert' where

149− _AuthKey = moiKey . _Just

150− _AuthToken = moiOAuthToken . _Just

151−

15276instance GoogleRequest MarketplaceOrdersInsert' where

15377 type Rs MarketplaceOrdersInsert' =

15478 CreateOrdersResponse

155− request = requestWith adExchangeBuyerRequest

156− requestWith rq MarketplaceOrdersInsert'{..}

157− = go _moiQuotaUser (Just _moiPrettyPrint) _moiUserIP

158− _moiFields

159− _moiKey

160− _moiOAuthToken

161− (Just AltJSON)

162− _moiPayload

79+ requestClient MarketplaceOrdersInsert'{..}

80+ = go (Just AltJSON) _moiPayload

81+ adExchangeBuyerService

16382 where go

164− = clientBuild

83+ = buildClient

16584 (Proxy :: Proxy MarketplaceOrdersInsertResource)

166− rq

85+ mempty

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceOrders/Patch.hs+9−91

@@ -33,16 +33,10 @@ module Network.Google.Resource.AdExchangeBuyer.MarketplaceOrders.Patch

3333 , MarketplaceOrdersPatch'

3434

3535 -- * Request Lenses

36− , mopQuotaUser

3736 , mopUpdateAction

38− , mopPrettyPrint

39− , mopUserIP

4037 , mopRevisionNumber

4138 , mopPayload

42− , mopKey

43− , mopOAuthToken

4439 , mopOrderId

45− , mopFields

4640 ) where

4741

4842import Network.Google.AdExchangeBuyer.Types

@@ -57,55 +51,31 @@ type MarketplaceOrdersPatchResource =

5751 Capture "updateAction"

5852 MarketplaceOrdersPatchUpdateAction

5953 :>

60− QueryParam "quotaUser" Text :>

61− QueryParam "prettyPrint" Bool :>

62− QueryParam "userIp" Text :>

63− QueryParam "fields" Text :>

64− QueryParam "key" AuthKey :>

65− Header "Authorization" OAuthToken :>

66− QueryParam "alt" AltJSON :>

67− ReqBody '[JSON] MarketplaceOrder :>

68− Patch '[JSON] MarketplaceOrder

54+ QueryParam "alt" AltJSON :>

55+ ReqBody '[JSON] MarketplaceOrder :>

56+ Patch '[JSON] MarketplaceOrder

6957

7058-- | Update the given order. This method supports patch semantics.

7159--

7260-- /See:/ 'marketplaceOrdersPatch'' smart constructor.

7361data MarketplaceOrdersPatch' = MarketplaceOrdersPatch'

74− { _mopQuotaUser :: !(Maybe Text)

75− , _mopUpdateAction :: !MarketplaceOrdersPatchUpdateAction

76− , _mopPrettyPrint :: !Bool

77− , _mopUserIP :: !(Maybe Text)

62+ { _mopUpdateAction :: !MarketplaceOrdersPatchUpdateAction

7863 , _mopRevisionNumber :: !Int64

7964 , _mopPayload :: !MarketplaceOrder

80− , _mopKey :: !(Maybe AuthKey)

81− , _mopOAuthToken :: !(Maybe OAuthToken)

8265 , _mopOrderId :: !Text

83− , _mopFields :: !(Maybe Text)

8466 } deriving (Eq,Show,Data,Typeable,Generic)

8567

8668-- | Creates a value of 'MarketplaceOrdersPatch'' with the minimum fields required to make a request.

8769--

8870-- Use one of the following lenses to modify other fields as desired:

8971--

90−-- * 'mopQuotaUser'

91−--

9272-- * 'mopUpdateAction'

9373--

94−-- * 'mopPrettyPrint'

95−--

96−-- * 'mopUserIP'

97−--

9874-- * 'mopRevisionNumber'

9975--

10076-- * 'mopPayload'

10177--

102−-- * 'mopKey'

103−--

104−-- * 'mopOAuthToken'

105−--

10678-- * 'mopOrderId'

107−--

108−-- * 'mopFields'

10979marketplaceOrdersPatch'

11080 :: MarketplaceOrdersPatchUpdateAction -- ^ 'updateAction'

11181 -> Int64 -- ^ 'revisionNumber'

@@ -114,43 +84,18 @@ marketplaceOrdersPatch'

11484 -> MarketplaceOrdersPatch'

11585marketplaceOrdersPatch' pMopUpdateAction_ pMopRevisionNumber_ pMopPayload_ pMopOrderId_ =

11686 MarketplaceOrdersPatch'

117− { _mopQuotaUser = Nothing

118− , _mopUpdateAction = pMopUpdateAction_

119− , _mopPrettyPrint = True

120− , _mopUserIP = Nothing

87+ { _mopUpdateAction = pMopUpdateAction_

12188 , _mopRevisionNumber = pMopRevisionNumber_

12289 , _mopPayload = pMopPayload_

123− , _mopKey = Nothing

124− , _mopOAuthToken = Nothing

12590 , _mopOrderId = pMopOrderId_

126− , _mopFields = Nothing

12791 }

12892

129−-- | Available to use for quota purposes for server-side applications. Can be

130−-- any arbitrary string assigned to a user, but should not exceed 40

131−-- characters. Overrides userIp if both are provided.

132−mopQuotaUser :: Lens' MarketplaceOrdersPatch' (Maybe Text)

133−mopQuotaUser

134− = lens _mopQuotaUser (\ s a -> s{_mopQuotaUser = a})

135−

13693-- | The proposed action to take on the order.

13794mopUpdateAction :: Lens' MarketplaceOrdersPatch' MarketplaceOrdersPatchUpdateAction

13895mopUpdateAction

13996 = lens _mopUpdateAction

14097 (\ s a -> s{_mopUpdateAction = a})

14198

142−-- | Returns response with indentations and line breaks.

143−mopPrettyPrint :: Lens' MarketplaceOrdersPatch' Bool

144−mopPrettyPrint

145− = lens _mopPrettyPrint

146− (\ s a -> s{_mopPrettyPrint = a})

147−

148−-- | IP address of the site where the request originates. Use this if you

149−-- want to enforce per-user limits.

150−mopUserIP :: Lens' MarketplaceOrdersPatch' (Maybe Text)

151−mopUserIP

152− = lens _mopUserIP (\ s a -> s{_mopUserIP = a})

153−

15499-- | The last known revision number to update. If the head revision in the

155100-- marketplace database has since changed, an error will be thrown. The

156101-- caller should then fetch the lastest order at head revision and retry

@@ -165,46 +110,19 @@ mopPayload :: Lens' MarketplaceOrdersPatch' MarketplaceOrder

165110mopPayload

166111 = lens _mopPayload (\ s a -> s{_mopPayload = a})

167112

168−-- | API key. Your API key identifies your project and provides you with API

169−-- access, quota, and reports. Required unless you provide an OAuth 2.0

170−-- token.

171−mopKey :: Lens' MarketplaceOrdersPatch' (Maybe AuthKey)

172−mopKey = lens _mopKey (\ s a -> s{_mopKey = a})

173−

174−-- | OAuth 2.0 token for the current user.

175−mopOAuthToken :: Lens' MarketplaceOrdersPatch' (Maybe OAuthToken)

176−mopOAuthToken

177− = lens _mopOAuthToken

178− (\ s a -> s{_mopOAuthToken = a})

179−

180113-- | The order id to update.

181114mopOrderId :: Lens' MarketplaceOrdersPatch' Text

182115mopOrderId

183116 = lens _mopOrderId (\ s a -> s{_mopOrderId = a})

184117

185−-- | Selector specifying which fields to include in a partial response.

186−mopFields :: Lens' MarketplaceOrdersPatch' (Maybe Text)

187−mopFields

188− = lens _mopFields (\ s a -> s{_mopFields = a})

189−

190−instance GoogleAuth MarketplaceOrdersPatch' where

191− _AuthKey = mopKey . _Just

192− _AuthToken = mopOAuthToken . _Just

193−

194118instance GoogleRequest MarketplaceOrdersPatch' where

195119 type Rs MarketplaceOrdersPatch' = MarketplaceOrder

196− request = requestWith adExchangeBuyerRequest

197− requestWith rq MarketplaceOrdersPatch'{..}

120+ requestClient MarketplaceOrdersPatch'{..}

198121 = go _mopOrderId _mopRevisionNumber _mopUpdateAction

199− _mopQuotaUser

200− (Just _mopPrettyPrint)

201− _mopUserIP

202− _mopFields

203− _mopKey

204− _mopOAuthToken

205122 (Just AltJSON)

206123 _mopPayload

124+ adExchangeBuyerService

207125 where go

208− = clientBuild

126+ = buildClient

209127 (Proxy :: Proxy MarketplaceOrdersPatchResource)

210− rq

128+ mempty

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceOrders/Search.hs+14−97

@@ -33,13 +33,7 @@ module Network.Google.Resource.AdExchangeBuyer.MarketplaceOrders.Search

3333 , MarketplaceOrdersSearch'

3434

3535 -- * Request Lenses

36− , marQuotaUser

37− , marPrettyPrint

38− , marUserIP

39− , marKey

40− , marPqlQuery

41− , marOAuthToken

42− , marFields

36+ , mPqlQuery

4337 ) where

4438

4539import Network.Google.AdExchangeBuyer.Types

@@ -51,115 +45,38 @@ type MarketplaceOrdersSearchResource =

5145 "marketplaceOrders" :>

5246 "search" :>

5347 QueryParam "pqlQuery" Text :>

54− QueryParam "quotaUser" Text :>

55− QueryParam "prettyPrint" Bool :>

56− QueryParam "userIp" Text :>

57− QueryParam "fields" Text :>

58− QueryParam "key" AuthKey :>

59− Header "Authorization" OAuthToken :>

60− QueryParam "alt" AltJSON :>

61− Get '[JSON] GetOrdersResponse

48+ QueryParam "alt" AltJSON :>

49+ Get '[JSON] GetOrdersResponse

6250

6351-- | Search for orders using pql query

6452--

6553-- /See:/ 'marketplaceOrdersSearch'' smart constructor.

66−data MarketplaceOrdersSearch' = MarketplaceOrdersSearch'

67− { _marQuotaUser :: !(Maybe Text)

68− , _marPrettyPrint :: !Bool

69− , _marUserIP :: !(Maybe Text)

70− , _marKey :: !(Maybe AuthKey)

71− , _marPqlQuery :: !(Maybe Text)

72− , _marOAuthToken :: !(Maybe OAuthToken)

73− , _marFields :: !(Maybe Text)

54+newtype MarketplaceOrdersSearch' = MarketplaceOrdersSearch'

55+ { _mPqlQuery :: Maybe Text

7456 } deriving (Eq,Show,Data,Typeable,Generic)

7557

7658-- | Creates a value of 'MarketplaceOrdersSearch'' with the minimum fields required to make a request.

7759--

7860-- Use one of the following lenses to modify other fields as desired:

7961--

80−-- * 'marQuotaUser'

81−--

82−-- * 'marPrettyPrint'

83−--

84−-- * 'marUserIP'

85−--

86−-- * 'marKey'

87−--

88−-- * 'marPqlQuery'

89−--

90−-- * 'marOAuthToken'

91−--

92−-- * 'marFields'

62+-- * 'mPqlQuery'

9363marketplaceOrdersSearch'

9464 :: MarketplaceOrdersSearch'

9565marketplaceOrdersSearch' =

9666 MarketplaceOrdersSearch'

97− { _marQuotaUser = Nothing

98− , _marPrettyPrint = True

99− , _marUserIP = Nothing

100− , _marKey = Nothing

101− , _marPqlQuery = Nothing

102− , _marOAuthToken = Nothing

103− , _marFields = Nothing

67+ { _mPqlQuery = Nothing

10468 }

10569

106−-- | Available to use for quota purposes for server-side applications. Can be

107−-- any arbitrary string assigned to a user, but should not exceed 40

108−-- characters. Overrides userIp if both are provided.

109−marQuotaUser :: Lens' MarketplaceOrdersSearch' (Maybe Text)

110−marQuotaUser

111− = lens _marQuotaUser (\ s a -> s{_marQuotaUser = a})

112−

113−-- | Returns response with indentations and line breaks.

114−marPrettyPrint :: Lens' MarketplaceOrdersSearch' Bool

115−marPrettyPrint

116− = lens _marPrettyPrint

117− (\ s a -> s{_marPrettyPrint = a})

118−

119−-- | IP address of the site where the request originates. Use this if you

120−-- want to enforce per-user limits.

121−marUserIP :: Lens' MarketplaceOrdersSearch' (Maybe Text)

122−marUserIP

123− = lens _marUserIP (\ s a -> s{_marUserIP = a})

124−

125−-- | API key. Your API key identifies your project and provides you with API

126−-- access, quota, and reports. Required unless you provide an OAuth 2.0

127−-- token.

128−marKey :: Lens' MarketplaceOrdersSearch' (Maybe AuthKey)

129−marKey = lens _marKey (\ s a -> s{_marKey = a})

130−

13170-- | Query string to retrieve specific orders.

132−marPqlQuery :: Lens' MarketplaceOrdersSearch' (Maybe Text)

133−marPqlQuery

134− = lens _marPqlQuery (\ s a -> s{_marPqlQuery = a})

135−

136−-- | OAuth 2.0 token for the current user.

137−marOAuthToken :: Lens' MarketplaceOrdersSearch' (Maybe OAuthToken)

138−marOAuthToken

139− = lens _marOAuthToken

140− (\ s a -> s{_marOAuthToken = a})

141−

142−-- | Selector specifying which fields to include in a partial response.

143−marFields :: Lens' MarketplaceOrdersSearch' (Maybe Text)

144−marFields

145− = lens _marFields (\ s a -> s{_marFields = a})

146−

147−instance GoogleAuth MarketplaceOrdersSearch' where

148− _AuthKey = marKey . _Just

149− _AuthToken = marOAuthToken . _Just

71+mPqlQuery :: Lens' MarketplaceOrdersSearch' (Maybe Text)

72+mPqlQuery

73+ = lens _mPqlQuery (\ s a -> s{_mPqlQuery = a})

15074

15175instance GoogleRequest MarketplaceOrdersSearch' where

15276 type Rs MarketplaceOrdersSearch' = GetOrdersResponse

153− request = requestWith adExchangeBuyerRequest

154− requestWith rq MarketplaceOrdersSearch'{..}

155− = go _marPqlQuery _marQuotaUser

156− (Just _marPrettyPrint)

157− _marUserIP

158− _marFields

159− _marKey

160− _marOAuthToken

161− (Just AltJSON)

77+ requestClient MarketplaceOrdersSearch'{..}

78+ = go _mPqlQuery (Just AltJSON) adExchangeBuyerService

16279 where go

163− = clientBuild

80+ = buildClient

16481 (Proxy :: Proxy MarketplaceOrdersSearchResource)

165− rq

82+ mempty

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceOrders/Update.hs+9−91

@@ -33,16 +33,10 @@ module Network.Google.Resource.AdExchangeBuyer.MarketplaceOrders.Update

3333 , MarketplaceOrdersUpdate'

3434

3535 -- * Request Lenses

36− , mouQuotaUser

3736 , mouUpdateAction

38− , mouPrettyPrint

39− , mouUserIP

4037 , mouRevisionNumber

4138 , mouPayload

42− , mouKey

43− , mouOAuthToken

4439 , mouOrderId

45− , mouFields

4640 ) where

4741

4842import Network.Google.AdExchangeBuyer.Types

@@ -57,55 +51,31 @@ type MarketplaceOrdersUpdateResource =

5751 Capture "updateAction"

5852 MarketplaceOrdersUpdateUpdateAction

5953 :>

60− QueryParam "quotaUser" Text :>

61− QueryParam "prettyPrint" Bool :>

62− QueryParam "userIp" Text :>

63− QueryParam "fields" Text :>

64− QueryParam "key" AuthKey :>

65− Header "Authorization" OAuthToken :>

66− QueryParam "alt" AltJSON :>

67− ReqBody '[JSON] MarketplaceOrder :>

68− Put '[JSON] MarketplaceOrder

54+ QueryParam "alt" AltJSON :>

55+ ReqBody '[JSON] MarketplaceOrder :>

56+ Put '[JSON] MarketplaceOrder

6957

7058-- | Update the given order

7159--

7260-- /See:/ 'marketplaceOrdersUpdate'' smart constructor.

7361data MarketplaceOrdersUpdate' = MarketplaceOrdersUpdate'

74− { _mouQuotaUser :: !(Maybe Text)

75− , _mouUpdateAction :: !MarketplaceOrdersUpdateUpdateAction

76− , _mouPrettyPrint :: !Bool

77− , _mouUserIP :: !(Maybe Text)

62+ { _mouUpdateAction :: !MarketplaceOrdersUpdateUpdateAction

7863 , _mouRevisionNumber :: !Int64

7964 , _mouPayload :: !MarketplaceOrder

80− , _mouKey :: !(Maybe AuthKey)

81− , _mouOAuthToken :: !(Maybe OAuthToken)

8265 , _mouOrderId :: !Text

83− , _mouFields :: !(Maybe Text)

8466 } deriving (Eq,Show,Data,Typeable,Generic)

8567

8668-- | Creates a value of 'MarketplaceOrdersUpdate'' with the minimum fields required to make a request.

8769--

8870-- Use one of the following lenses to modify other fields as desired:

8971--

90−-- * 'mouQuotaUser'

91−--

9272-- * 'mouUpdateAction'

9373--

94−-- * 'mouPrettyPrint'

95−--

96−-- * 'mouUserIP'

97−--

9874-- * 'mouRevisionNumber'

9975--

10076-- * 'mouPayload'

10177--

102−-- * 'mouKey'

103−--

104−-- * 'mouOAuthToken'

105−--

10678-- * 'mouOrderId'

107−--

108−-- * 'mouFields'

10979marketplaceOrdersUpdate'

11080 :: MarketplaceOrdersUpdateUpdateAction -- ^ 'updateAction'

11181 -> Int64 -- ^ 'revisionNumber'

@@ -114,43 +84,18 @@ marketplaceOrdersUpdate'

11484 -> MarketplaceOrdersUpdate'

11585marketplaceOrdersUpdate' pMouUpdateAction_ pMouRevisionNumber_ pMouPayload_ pMouOrderId_ =

11686 MarketplaceOrdersUpdate'

117− { _mouQuotaUser = Nothing

118− , _mouUpdateAction = pMouUpdateAction_

119− , _mouPrettyPrint = True

120− , _mouUserIP = Nothing

87+ { _mouUpdateAction = pMouUpdateAction_

12188 , _mouRevisionNumber = pMouRevisionNumber_

12289 , _mouPayload = pMouPayload_

123− , _mouKey = Nothing

124− , _mouOAuthToken = Nothing

12590 , _mouOrderId = pMouOrderId_

126− , _mouFields = Nothing

12791 }

12892

129−-- | Available to use for quota purposes for server-side applications. Can be

130−-- any arbitrary string assigned to a user, but should not exceed 40

131−-- characters. Overrides userIp if both are provided.

132−mouQuotaUser :: Lens' MarketplaceOrdersUpdate' (Maybe Text)

133−mouQuotaUser

134− = lens _mouQuotaUser (\ s a -> s{_mouQuotaUser = a})

135−

13693-- | The proposed action to take on the order.

13794mouUpdateAction :: Lens' MarketplaceOrdersUpdate' MarketplaceOrdersUpdateUpdateAction

13895mouUpdateAction

13996 = lens _mouUpdateAction

14097 (\ s a -> s{_mouUpdateAction = a})

14198

142−-- | Returns response with indentations and line breaks.

143−mouPrettyPrint :: Lens' MarketplaceOrdersUpdate' Bool

144−mouPrettyPrint

145− = lens _mouPrettyPrint

146− (\ s a -> s{_mouPrettyPrint = a})

147−

148−-- | IP address of the site where the request originates. Use this if you

149−-- want to enforce per-user limits.

150−mouUserIP :: Lens' MarketplaceOrdersUpdate' (Maybe Text)

151−mouUserIP

152− = lens _mouUserIP (\ s a -> s{_mouUserIP = a})

153−

15499-- | The last known revision number to update. If the head revision in the

155100-- marketplace database has since changed, an error will be thrown. The

156101-- caller should then fetch the lastest order at head revision and retry

@@ -165,46 +110,19 @@ mouPayload :: Lens' MarketplaceOrdersUpdate' MarketplaceOrder

165110mouPayload

166111 = lens _mouPayload (\ s a -> s{_mouPayload = a})

167112

168−-- | API key. Your API key identifies your project and provides you with API

169−-- access, quota, and reports. Required unless you provide an OAuth 2.0

170−-- token.

171−mouKey :: Lens' MarketplaceOrdersUpdate' (Maybe AuthKey)

172−mouKey = lens _mouKey (\ s a -> s{_mouKey = a})

173−

174−-- | OAuth 2.0 token for the current user.

175−mouOAuthToken :: Lens' MarketplaceOrdersUpdate' (Maybe OAuthToken)

176−mouOAuthToken

177− = lens _mouOAuthToken

178− (\ s a -> s{_mouOAuthToken = a})

179−

180113-- | The order id to update.

181114mouOrderId :: Lens' MarketplaceOrdersUpdate' Text

182115mouOrderId

183116 = lens _mouOrderId (\ s a -> s{_mouOrderId = a})

184117

185−-- | Selector specifying which fields to include in a partial response.

186−mouFields :: Lens' MarketplaceOrdersUpdate' (Maybe Text)

187−mouFields

188− = lens _mouFields (\ s a -> s{_mouFields = a})

189−

190−instance GoogleAuth MarketplaceOrdersUpdate' where

191− _AuthKey = mouKey . _Just

192− _AuthToken = mouOAuthToken . _Just

193−

194118instance GoogleRequest MarketplaceOrdersUpdate' where

195119 type Rs MarketplaceOrdersUpdate' = MarketplaceOrder

196− request = requestWith adExchangeBuyerRequest

197− requestWith rq MarketplaceOrdersUpdate'{..}

120+ requestClient MarketplaceOrdersUpdate'{..}

198121 = go _mouOrderId _mouRevisionNumber _mouUpdateAction

199− _mouQuotaUser

200− (Just _mouPrettyPrint)

201− _mouUserIP

202− _mouFields

203− _mouKey

204− _mouOAuthToken

205122 (Just AltJSON)

206123 _mouPayload

124+ adExchangeBuyerService

207125 where go

208− = clientBuild

126+ = buildClient

209127 (Proxy :: Proxy MarketplaceOrdersUpdateResource)

210− rq

128+ mempty

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/NegotiationRounds/Insert.hs+10−93

@@ -33,14 +33,8 @@ module Network.Google.Resource.AdExchangeBuyer.NegotiationRounds.Insert

3333 , NegotiationRoundsInsert'

3434

3535 -- * Request Lenses

36− , nriQuotaUser

37− , nriPrettyPrint

38− , nriUserIP

3936 , nriPayload

40− , nriKey

41− , nriOAuthToken

4237 , nriNegotiationId

43− , nriFields

4438 ) where

4539

4640import Network.Google.AdExchangeBuyer.Types

@@ -52,129 +46,52 @@ type NegotiationRoundsInsertResource =

5246 "negotiations" :>

5347 Capture "negotiationId" Int64 :>

5448 "negotiationrounds" :>

55− QueryParam "quotaUser" Text :>

56− QueryParam "prettyPrint" Bool :>

57− QueryParam "userIp" Text :>

58− QueryParam "fields" Text :>

59− QueryParam "key" AuthKey :>

60− Header "Authorization" OAuthToken :>

61− QueryParam "alt" AltJSON :>

62− ReqBody '[JSON] NegotiationRoundDTO :>

63− Post '[JSON] NegotiationRoundDTO

49+ QueryParam "alt" AltJSON :>

50+ ReqBody '[JSON] NegotiationRoundDTO :>

51+ Post '[JSON] NegotiationRoundDTO

6452

6553-- | Adds the requested negotiationRound to the requested negotiation.

6654--

6755-- /See:/ 'negotiationRoundsInsert'' smart constructor.

6856data NegotiationRoundsInsert' = NegotiationRoundsInsert'

69− { _nriQuotaUser :: !(Maybe Text)

70− , _nriPrettyPrint :: !Bool

71− , _nriUserIP :: !(Maybe Text)

72− , _nriPayload :: !NegotiationRoundDTO

73− , _nriKey :: !(Maybe AuthKey)

74− , _nriOAuthToken :: !(Maybe OAuthToken)

57+ { _nriPayload :: !NegotiationRoundDTO

7558 , _nriNegotiationId :: !Int64

76− , _nriFields :: !(Maybe Text)

7759 } deriving (Eq,Show,Data,Typeable,Generic)

7860

7961-- | Creates a value of 'NegotiationRoundsInsert'' with the minimum fields required to make a request.

8062--

8163-- Use one of the following lenses to modify other fields as desired:

8264--

83−-- * 'nriQuotaUser'

84−--

85−-- * 'nriPrettyPrint'

86−--

87−-- * 'nriUserIP'

88−--

8965-- * 'nriPayload'

9066--

91−-- * 'nriKey'

92−--

93−-- * 'nriOAuthToken'

94−--

9567-- * 'nriNegotiationId'

96−--

97−-- * 'nriFields'

9868negotiationRoundsInsert'

9969 :: NegotiationRoundDTO -- ^ 'payload'

10070 -> Int64 -- ^ 'negotiationId'

10171 -> NegotiationRoundsInsert'

10272negotiationRoundsInsert' pNriPayload_ pNriNegotiationId_ =

10373 NegotiationRoundsInsert'

104− { _nriQuotaUser = Nothing

105− , _nriPrettyPrint = True

106− , _nriUserIP = Nothing

107− , _nriPayload = pNriPayload_

108− , _nriKey = Nothing

109− , _nriOAuthToken = Nothing

74+ { _nriPayload = pNriPayload_

11075 , _nriNegotiationId = pNriNegotiationId_

111− , _nriFields = Nothing

11276 }

11377

114−-- | Available to use for quota purposes for server-side applications. Can be

115−-- any arbitrary string assigned to a user, but should not exceed 40

116−-- characters. Overrides userIp if both are provided.

117−nriQuotaUser :: Lens' NegotiationRoundsInsert' (Maybe Text)

118−nriQuotaUser

119− = lens _nriQuotaUser (\ s a -> s{_nriQuotaUser = a})

120−

121−-- | Returns response with indentations and line breaks.

122−nriPrettyPrint :: Lens' NegotiationRoundsInsert' Bool

123−nriPrettyPrint

124− = lens _nriPrettyPrint

125− (\ s a -> s{_nriPrettyPrint = a})

126−

127−-- | IP address of the site where the request originates. Use this if you

128−-- want to enforce per-user limits.

129−nriUserIP :: Lens' NegotiationRoundsInsert' (Maybe Text)

130−nriUserIP

131− = lens _nriUserIP (\ s a -> s{_nriUserIP = a})

132−

13378-- | Multipart request metadata.

13479nriPayload :: Lens' NegotiationRoundsInsert' NegotiationRoundDTO

13580nriPayload

13681 = lens _nriPayload (\ s a -> s{_nriPayload = a})

13782

138−-- | API key. Your API key identifies your project and provides you with API

139−-- access, quota, and reports. Required unless you provide an OAuth 2.0

140−-- token.

141−nriKey :: Lens' NegotiationRoundsInsert' (Maybe AuthKey)

142−nriKey = lens _nriKey (\ s a -> s{_nriKey = a})

143−

144−-- | OAuth 2.0 token for the current user.

145−nriOAuthToken :: Lens' NegotiationRoundsInsert' (Maybe OAuthToken)

146−nriOAuthToken

147− = lens _nriOAuthToken

148− (\ s a -> s{_nriOAuthToken = a})

149−

15083nriNegotiationId :: Lens' NegotiationRoundsInsert' Int64

15184nriNegotiationId

15285 = lens _nriNegotiationId

15386 (\ s a -> s{_nriNegotiationId = a})

15487

155−-- | Selector specifying which fields to include in a partial response.

156−nriFields :: Lens' NegotiationRoundsInsert' (Maybe Text)

157−nriFields

158− = lens _nriFields (\ s a -> s{_nriFields = a})

159−

160−instance GoogleAuth NegotiationRoundsInsert' where

161− _AuthKey = nriKey . _Just

162− _AuthToken = nriOAuthToken . _Just

163−

16488instance GoogleRequest NegotiationRoundsInsert' where

16589 type Rs NegotiationRoundsInsert' =

16690 NegotiationRoundDTO

167− request = requestWith adExchangeBuyerRequest

168− requestWith rq NegotiationRoundsInsert'{..}

169− = go _nriNegotiationId _nriQuotaUser

170− (Just _nriPrettyPrint)

171− _nriUserIP

172− _nriFields

173− _nriKey

174− _nriOAuthToken

175− (Just AltJSON)

176− _nriPayload

91+ requestClient NegotiationRoundsInsert'{..}

92+ = go _nriNegotiationId (Just AltJSON) _nriPayload

93+ adExchangeBuyerService

17794 where go

178− = clientBuild

95+ = buildClient

17996 (Proxy :: Proxy NegotiationRoundsInsertResource)

180− rq

97+ mempty

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Negotiations/Get.hs+10−90

@@ -33,14 +33,8 @@ module Network.Google.Resource.AdExchangeBuyer.Negotiations.Get

3333 , NegotiationsGet'

3434

3535 -- * Request Lenses

36− , ngQuotaUser

37− , ngPrettyPrint

38− , ngUserIP

3936 , ngPayload

40− , ngKey

41− , ngOAuthToken

4237 , ngNegotiationId

43− , ngFields

4438 ) where

4539

4640import Network.Google.AdExchangeBuyer.Types

@@ -51,125 +45,51 @@ import Network.Google.Prelude

5145type NegotiationsGetResource =

5246 "negotiations" :>

5347 Capture "negotiationId" Int64 :>

54− QueryParam "quotaUser" Text :>

55− QueryParam "prettyPrint" Bool :>

56− QueryParam "userIp" Text :>

57− QueryParam "fields" Text :>

58− QueryParam "key" AuthKey :>

59− Header "Authorization" OAuthToken :>

60− QueryParam "alt" AltJSON :>

61− ReqBody '[JSON] GetNegotiationByIdRequest :>

62− Get '[JSON] NegotiationDTO

48+ QueryParam "alt" AltJSON :>

49+ ReqBody '[JSON] GetNegotiationByIdRequest :>

50+ Get '[JSON] NegotiationDTO

6351

6452-- | Gets the requested negotiation.

6553--

6654-- /See:/ 'negotiationsGet'' smart constructor.

6755data NegotiationsGet' = NegotiationsGet'

68− { _ngQuotaUser :: !(Maybe Text)

69− , _ngPrettyPrint :: !Bool

70− , _ngUserIP :: !(Maybe Text)

71− , _ngPayload :: !GetNegotiationByIdRequest

72− , _ngKey :: !(Maybe AuthKey)

73− , _ngOAuthToken :: !(Maybe OAuthToken)

56+ { _ngPayload :: !GetNegotiationByIdRequest

7457 , _ngNegotiationId :: !Int64

75− , _ngFields :: !(Maybe Text)

7658 } deriving (Eq,Show,Data,Typeable,Generic)

7759

7860-- | Creates a value of 'NegotiationsGet'' with the minimum fields required to make a request.

7961--

8062-- Use one of the following lenses to modify other fields as desired:

8163--

82−-- * 'ngQuotaUser'

83−--

84−-- * 'ngPrettyPrint'

85−--

86−-- * 'ngUserIP'

87−--

8864-- * 'ngPayload'

8965--

90−-- * 'ngKey'

91−--

92−-- * 'ngOAuthToken'

93−--

9466-- * 'ngNegotiationId'

95−--

96−-- * 'ngFields'

9767negotiationsGet'

9868 :: GetNegotiationByIdRequest -- ^ 'payload'

9969 -> Int64 -- ^ 'negotiationId'

10070 -> NegotiationsGet'

10171negotiationsGet' pNgPayload_ pNgNegotiationId_ =

10272 NegotiationsGet'

103− { _ngQuotaUser = Nothing

104− , _ngPrettyPrint = True

105− , _ngUserIP = Nothing

106− , _ngPayload = pNgPayload_

107− , _ngKey = Nothing

108− , _ngOAuthToken = Nothing

73+ { _ngPayload = pNgPayload_

10974 , _ngNegotiationId = pNgNegotiationId_

110− , _ngFields = Nothing

11175 }

11276

113−-- | Available to use for quota purposes for server-side applications. Can be

114−-- any arbitrary string assigned to a user, but should not exceed 40

115−-- characters. Overrides userIp if both are provided.

116−ngQuotaUser :: Lens' NegotiationsGet' (Maybe Text)

117−ngQuotaUser

118− = lens _ngQuotaUser (\ s a -> s{_ngQuotaUser = a})

119−

120−-- | Returns response with indentations and line breaks.

121−ngPrettyPrint :: Lens' NegotiationsGet' Bool

122−ngPrettyPrint

123− = lens _ngPrettyPrint

124− (\ s a -> s{_ngPrettyPrint = a})

125−

126−-- | IP address of the site where the request originates. Use this if you

127−-- want to enforce per-user limits.

128−ngUserIP :: Lens' NegotiationsGet' (Maybe Text)

129−ngUserIP = lens _ngUserIP (\ s a -> s{_ngUserIP = a})

130−

13177-- | Multipart request metadata.

13278ngPayload :: Lens' NegotiationsGet' GetNegotiationByIdRequest

13379ngPayload

13480 = lens _ngPayload (\ s a -> s{_ngPayload = a})

13581

136−-- | API key. Your API key identifies your project and provides you with API

137−-- access, quota, and reports. Required unless you provide an OAuth 2.0

138−-- token.

139−ngKey :: Lens' NegotiationsGet' (Maybe AuthKey)

140−ngKey = lens _ngKey (\ s a -> s{_ngKey = a})

141−

142−-- | OAuth 2.0 token for the current user.

143−ngOAuthToken :: Lens' NegotiationsGet' (Maybe OAuthToken)

144−ngOAuthToken

145− = lens _ngOAuthToken (\ s a -> s{_ngOAuthToken = a})

146−

14782ngNegotiationId :: Lens' NegotiationsGet' Int64

14883ngNegotiationId

14984 = lens _ngNegotiationId

15085 (\ s a -> s{_ngNegotiationId = a})

15186

152−-- | Selector specifying which fields to include in a partial response.

153−ngFields :: Lens' NegotiationsGet' (Maybe Text)

154−ngFields = lens _ngFields (\ s a -> s{_ngFields = a})

155−

156−instance GoogleAuth NegotiationsGet' where

157− _AuthKey = ngKey . _Just

158− _AuthToken = ngOAuthToken . _Just

159−

16087instance GoogleRequest NegotiationsGet' where

16188 type Rs NegotiationsGet' = NegotiationDTO

162− request = requestWith adExchangeBuyerRequest

163− requestWith rq NegotiationsGet'{..}

164− = go _ngNegotiationId _ngQuotaUser

165− (Just _ngPrettyPrint)

166− _ngUserIP

167− _ngFields

168− _ngKey

169− _ngOAuthToken

170− (Just AltJSON)

171− _ngPayload

89+ requestClient NegotiationsGet'{..}

90+ = go _ngNegotiationId (Just AltJSON) _ngPayload

91+ adExchangeBuyerService

17292 where go

173− = clientBuild

93+ = buildClient

17494 (Proxy :: Proxy NegotiationsGetResource)

175− rq

95+ mempty

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Negotiations/Insert.hs+10−89

@@ -33,13 +33,7 @@ module Network.Google.Resource.AdExchangeBuyer.Negotiations.Insert

3333 , NegotiationsInsert'

3434

3535 -- * Request Lenses

36− , niQuotaUser

37− , niPrettyPrint

38− , niUserIP

3936 , niPayload

40− , niKey

41− , niOAuthToken

42− , niFields

4337 ) where

4438

4539import Network.Google.AdExchangeBuyer.Types

@@ -49,113 +43,40 @@ import Network.Google.Prelude

4943-- 'NegotiationsInsert'' request conforms to.

5044type NegotiationsInsertResource =

5145 "negotiations" :>

52− QueryParam "quotaUser" Text :>

53− QueryParam "prettyPrint" Bool :>

54− QueryParam "userIp" Text :>

55− QueryParam "fields" Text :>

56− QueryParam "key" AuthKey :>

57− Header "Authorization" OAuthToken :>

58− QueryParam "alt" AltJSON :>

59− ReqBody '[JSON] NegotiationDTO :>

60− Post '[JSON] NegotiationDTO

46+ QueryParam "alt" AltJSON :>

47+ ReqBody '[JSON] NegotiationDTO :>

48+ Post '[JSON] NegotiationDTO

6149

6250-- | Creates or updates the requested negotiation.

6351--

6452-- /See:/ 'negotiationsInsert'' smart constructor.

65−data NegotiationsInsert' = NegotiationsInsert'

66− { _niQuotaUser :: !(Maybe Text)

67− , _niPrettyPrint :: !Bool

68− , _niUserIP :: !(Maybe Text)

69− , _niPayload :: !NegotiationDTO

70− , _niKey :: !(Maybe AuthKey)

71− , _niOAuthToken :: !(Maybe OAuthToken)

72− , _niFields :: !(Maybe Text)

53+newtype NegotiationsInsert' = NegotiationsInsert'

54+ { _niPayload :: NegotiationDTO

7355 } deriving (Eq,Show,Data,Typeable,Generic)

7456

7557-- | Creates a value of 'NegotiationsInsert'' with the minimum fields required to make a request.

7658--

7759-- Use one of the following lenses to modify other fields as desired:

7860--

79−-- * 'niQuotaUser'

80−--

81−-- * 'niPrettyPrint'

82−--

83−-- * 'niUserIP'

84−--

8561-- * 'niPayload'

86−--

87−-- * 'niKey'

88−--

89−-- * 'niOAuthToken'

90−--

91−-- * 'niFields'

9262negotiationsInsert'

9363 :: NegotiationDTO -- ^ 'payload'

9464 -> NegotiationsInsert'

9565negotiationsInsert' pNiPayload_ =

9666 NegotiationsInsert'

97− { _niQuotaUser = Nothing

98− , _niPrettyPrint = True

99− , _niUserIP = Nothing

100− , _niPayload = pNiPayload_

101− , _niKey = Nothing

102− , _niOAuthToken = Nothing

103− , _niFields = Nothing

67+ { _niPayload = pNiPayload_

10468 }

10569

106−-- | Available to use for quota purposes for server-side applications. Can be

107−-- any arbitrary string assigned to a user, but should not exceed 40

108−-- characters. Overrides userIp if both are provided.

109−niQuotaUser :: Lens' NegotiationsInsert' (Maybe Text)

110−niQuotaUser

111− = lens _niQuotaUser (\ s a -> s{_niQuotaUser = a})

112−

113−-- | Returns response with indentations and line breaks.

114−niPrettyPrint :: Lens' NegotiationsInsert' Bool

115−niPrettyPrint

116− = lens _niPrettyPrint

117− (\ s a -> s{_niPrettyPrint = a})

118−

119−-- | IP address of the site where the request originates. Use this if you

120−-- want to enforce per-user limits.

121−niUserIP :: Lens' NegotiationsInsert' (Maybe Text)

122−niUserIP = lens _niUserIP (\ s a -> s{_niUserIP = a})

123−

12470-- | Multipart request metadata.

12571niPayload :: Lens' NegotiationsInsert' NegotiationDTO

12672niPayload

12773 = lens _niPayload (\ s a -> s{_niPayload = a})

12874

129−-- | API key. Your API key identifies your project and provides you with API

130−-- access, quota, and reports. Required unless you provide an OAuth 2.0

131−-- token.

132−niKey :: Lens' NegotiationsInsert' (Maybe AuthKey)

133−niKey = lens _niKey (\ s a -> s{_niKey = a})

134−

135−-- | OAuth 2.0 token for the current user.

136−niOAuthToken :: Lens' NegotiationsInsert' (Maybe OAuthToken)

137−niOAuthToken

138− = lens _niOAuthToken (\ s a -> s{_niOAuthToken = a})

139−

140−-- | Selector specifying which fields to include in a partial response.

141−niFields :: Lens' NegotiationsInsert' (Maybe Text)

142−niFields = lens _niFields (\ s a -> s{_niFields = a})

143−

144−instance GoogleAuth NegotiationsInsert' where

145− _AuthKey = niKey . _Just

146− _AuthToken = niOAuthToken . _Just

147−

14875instance GoogleRequest NegotiationsInsert' where

14976 type Rs NegotiationsInsert' = NegotiationDTO

150− request = requestWith adExchangeBuyerRequest

151− requestWith rq NegotiationsInsert'{..}

152− = go _niQuotaUser (Just _niPrettyPrint) _niUserIP

153− _niFields

154− _niKey

155− _niOAuthToken

156− (Just AltJSON)

157− _niPayload

77+ requestClient NegotiationsInsert'{..}

78+ = go (Just AltJSON) _niPayload adExchangeBuyerService

15879 where go

159− = clientBuild

80+ = buildClient

16081 (Proxy :: Proxy NegotiationsInsertResource)

161− rq

82+ mempty

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Negotiations/List.hs+10−89

@@ -33,13 +33,7 @@ module Network.Google.Resource.AdExchangeBuyer.Negotiations.List

3333 , NegotiationsList'

3434

3535 -- * Request Lenses

36− , nlQuotaUser

37− , nlPrettyPrint

38− , nlUserIP

3936 , nlPayload

40− , nlKey

41− , nlOAuthToken

42− , nlFields

4337 ) where

4438

4539import Network.Google.AdExchangeBuyer.Types

@@ -49,113 +43,40 @@ import Network.Google.Prelude

4943-- 'NegotiationsList'' request conforms to.

5044type NegotiationsListResource =

5145 "negotiations" :>

52− QueryParam "quotaUser" Text :>

53− QueryParam "prettyPrint" Bool :>

54− QueryParam "userIp" Text :>

55− QueryParam "fields" Text :>

56− QueryParam "key" AuthKey :>

57− Header "Authorization" OAuthToken :>

58− QueryParam "alt" AltJSON :>

59− ReqBody '[JSON] GetNegotiationsRequest :>

60− Get '[JSON] GetNegotiationsResponse

46+ QueryParam "alt" AltJSON :>

47+ ReqBody '[JSON] GetNegotiationsRequest :>

48+ Get '[JSON] GetNegotiationsResponse

6149

6250-- | Lists all negotiations the authenticated user has access to.

6351--

6452-- /See:/ 'negotiationsList'' smart constructor.

65−data NegotiationsList' = NegotiationsList'

66− { _nlQuotaUser :: !(Maybe Text)

67− , _nlPrettyPrint :: !Bool

68− , _nlUserIP :: !(Maybe Text)

69− , _nlPayload :: !GetNegotiationsRequest

70− , _nlKey :: !(Maybe AuthKey)

71− , _nlOAuthToken :: !(Maybe OAuthToken)

72− , _nlFields :: !(Maybe Text)

53+newtype NegotiationsList' = NegotiationsList'

54+ { _nlPayload :: GetNegotiationsRequest

7355 } deriving (Eq,Show,Data,Typeable,Generic)

7456

7557-- | Creates a value of 'NegotiationsList'' with the minimum fields required to make a request.

7658--

7759-- Use one of the following lenses to modify other fields as desired:

7860--

79−-- * 'nlQuotaUser'

80−--

81−-- * 'nlPrettyPrint'

82−--

83−-- * 'nlUserIP'

84−--

8561-- * 'nlPayload'

86−--

87−-- * 'nlKey'

88−--

89−-- * 'nlOAuthToken'

90−--

91−-- * 'nlFields'

9262negotiationsList'

9363 :: GetNegotiationsRequest -- ^ 'payload'

9464 -> NegotiationsList'

9565negotiationsList' pNlPayload_ =

9666 NegotiationsList'

97− { _nlQuotaUser = Nothing

98− , _nlPrettyPrint = True

99− , _nlUserIP = Nothing

100− , _nlPayload = pNlPayload_

101− , _nlKey = Nothing

102− , _nlOAuthToken = Nothing

103− , _nlFields = Nothing

67+ { _nlPayload = pNlPayload_

10468 }

10569

106−-- | Available to use for quota purposes for server-side applications. Can be

107−-- any arbitrary string assigned to a user, but should not exceed 40

108−-- characters. Overrides userIp if both are provided.

109−nlQuotaUser :: Lens' NegotiationsList' (Maybe Text)

110−nlQuotaUser

111− = lens _nlQuotaUser (\ s a -> s{_nlQuotaUser = a})

112−

113−-- | Returns response with indentations and line breaks.

114−nlPrettyPrint :: Lens' NegotiationsList' Bool

115−nlPrettyPrint

116− = lens _nlPrettyPrint

117− (\ s a -> s{_nlPrettyPrint = a})

118−

119−-- | IP address of the site where the request originates. Use this if you

120−-- want to enforce per-user limits.

121−nlUserIP :: Lens' NegotiationsList' (Maybe Text)

122−nlUserIP = lens _nlUserIP (\ s a -> s{_nlUserIP = a})

123−

12470-- | Multipart request metadata.

12571nlPayload :: Lens' NegotiationsList' GetNegotiationsRequest

12672nlPayload

12773 = lens _nlPayload (\ s a -> s{_nlPayload = a})

12874

129−-- | API key. Your API key identifies your project and provides you with API

130−-- access, quota, and reports. Required unless you provide an OAuth 2.0

131−-- token.

132−nlKey :: Lens' NegotiationsList' (Maybe AuthKey)

133−nlKey = lens _nlKey (\ s a -> s{_nlKey = a})

134−

135−-- | OAuth 2.0 token for the current user.

136−nlOAuthToken :: Lens' NegotiationsList' (Maybe OAuthToken)

137−nlOAuthToken

138− = lens _nlOAuthToken (\ s a -> s{_nlOAuthToken = a})

139−

140−-- | Selector specifying which fields to include in a partial response.

141−nlFields :: Lens' NegotiationsList' (Maybe Text)

142−nlFields = lens _nlFields (\ s a -> s{_nlFields = a})

143−

144−instance GoogleAuth NegotiationsList' where

145− _AuthKey = nlKey . _Just

146− _AuthToken = nlOAuthToken . _Just

147−

14875instance GoogleRequest NegotiationsList' where

14976 type Rs NegotiationsList' = GetNegotiationsResponse

150− request = requestWith adExchangeBuyerRequest

151− requestWith rq NegotiationsList'{..}

152− = go _nlQuotaUser (Just _nlPrettyPrint) _nlUserIP

153− _nlFields

154− _nlKey

155− _nlOAuthToken

156− (Just AltJSON)

157− _nlPayload

77+ requestClient NegotiationsList'{..}

78+ = go (Just AltJSON) _nlPayload adExchangeBuyerService

15879 where go

159− = clientBuild

80+ = buildClient

16081 (Proxy :: Proxy NegotiationsListResource)

161− rq

82+ mempty

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Offers/Get.hs+8−86

@@ -33,13 +33,7 @@ module Network.Google.Resource.AdExchangeBuyer.Offers.Get

3333 , OffersGet'

3434

3535 -- * Request Lenses

36− , ogQuotaUser

37− , ogPrettyPrint

38− , ogUserIP

39− , ogKey

4036 , ogOfferId

41− , ogOAuthToken

42− , ogFields

4337 ) where

4438

4539import Network.Google.AdExchangeBuyer.Types

@@ -50,108 +44,36 @@ import Network.Google.Prelude

5044type OffersGetResource =

5145 "offers" :>

5246 Capture "offerId" Int64 :>

53− QueryParam "quotaUser" Text :>

54− QueryParam "prettyPrint" Bool :>

55− QueryParam "userIp" Text :>

56− QueryParam "fields" Text :>

57− QueryParam "key" AuthKey :>

58− Header "Authorization" OAuthToken :>

59− QueryParam "alt" AltJSON :> Get '[JSON] OfferDTO

47+ QueryParam "alt" AltJSON :> Get '[JSON] OfferDTO

6048

6149-- | Gets the requested offer.

6250--

6351-- /See:/ 'offersGet'' smart constructor.

64−data OffersGet' = OffersGet'

65− { _ogQuotaUser :: !(Maybe Text)

66− , _ogPrettyPrint :: !Bool

67− , _ogUserIP :: !(Maybe Text)

68− , _ogKey :: !(Maybe AuthKey)

69− , _ogOfferId :: !Int64

70− , _ogOAuthToken :: !(Maybe OAuthToken)

71− , _ogFields :: !(Maybe Text)

52+newtype OffersGet' = OffersGet'

53+ { _ogOfferId :: Int64

7254 } deriving (Eq,Show,Data,Typeable,Generic)

7355

7456-- | Creates a value of 'OffersGet'' with the minimum fields required to make a request.

7557--

7658-- Use one of the following lenses to modify other fields as desired:

7759--

78−-- * 'ogQuotaUser'

79−--

80−-- * 'ogPrettyPrint'

81−--

82−-- * 'ogUserIP'

83−--

84−-- * 'ogKey'

85−--

8660-- * 'ogOfferId'

87−--

88−-- * 'ogOAuthToken'

89−--

90−-- * 'ogFields'

9161offersGet'

9262 :: Int64 -- ^ 'offerId'

9363 -> OffersGet'

9464offersGet' pOgOfferId_ =

9565 OffersGet'

96− { _ogQuotaUser = Nothing

97− , _ogPrettyPrint = True

98− , _ogUserIP = Nothing

99− , _ogKey = Nothing

100− , _ogOfferId = pOgOfferId_

101− , _ogOAuthToken = Nothing

102− , _ogFields = Nothing

66+ { _ogOfferId = pOgOfferId_

10367 }

10468

105−-- | Available to use for quota purposes for server-side applications. Can be

106−-- any arbitrary string assigned to a user, but should not exceed 40

107−-- characters. Overrides userIp if both are provided.

108−ogQuotaUser :: Lens' OffersGet' (Maybe Text)

109−ogQuotaUser

110− = lens _ogQuotaUser (\ s a -> s{_ogQuotaUser = a})

111−

112−-- | Returns response with indentations and line breaks.

113−ogPrettyPrint :: Lens' OffersGet' Bool

114−ogPrettyPrint

115− = lens _ogPrettyPrint

116− (\ s a -> s{_ogPrettyPrint = a})

117−

118−-- | IP address of the site where the request originates. Use this if you

119−-- want to enforce per-user limits.

120−ogUserIP :: Lens' OffersGet' (Maybe Text)

121−ogUserIP = lens _ogUserIP (\ s a -> s{_ogUserIP = a})

122−

123−-- | API key. Your API key identifies your project and provides you with API

124−-- access, quota, and reports. Required unless you provide an OAuth 2.0

125−-- token.

126−ogKey :: Lens' OffersGet' (Maybe AuthKey)

127−ogKey = lens _ogKey (\ s a -> s{_ogKey = a})

128−

12969ogOfferId :: Lens' OffersGet' Int64

13070ogOfferId

13171 = lens _ogOfferId (\ s a -> s{_ogOfferId = a})

13272

133−-- | OAuth 2.0 token for the current user.

134−ogOAuthToken :: Lens' OffersGet' (Maybe OAuthToken)

135−ogOAuthToken

136− = lens _ogOAuthToken (\ s a -> s{_ogOAuthToken = a})

137−

138−-- | Selector specifying which fields to include in a partial response.

139−ogFields :: Lens' OffersGet' (Maybe Text)

140−ogFields = lens _ogFields (\ s a -> s{_ogFields = a})

141−

142−instance GoogleAuth OffersGet' where

143− _AuthKey = ogKey . _Just

144− _AuthToken = ogOAuthToken . _Just

145−

14673instance GoogleRequest OffersGet' where

14774 type Rs OffersGet' = OfferDTO

148− request = requestWith adExchangeBuyerRequest

149− requestWith rq OffersGet'{..}

150− = go _ogOfferId _ogQuotaUser (Just _ogPrettyPrint)

151− _ogUserIP

152− _ogFields

153− _ogKey

154− _ogOAuthToken

155− (Just AltJSON)

75+ requestClient OffersGet'{..}

76+ = go _ogOfferId (Just AltJSON) adExchangeBuyerService

15677 where go

157− = clientBuild (Proxy :: Proxy OffersGetResource) rq

78+ = buildClient (Proxy :: Proxy OffersGetResource)

79+ mempty

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Offers/Insert.hs+9−88

@@ -33,13 +33,7 @@ module Network.Google.Resource.AdExchangeBuyer.Offers.Insert

3333 , OffersInsert'

3434

3535 -- * Request Lenses

36− , oiQuotaUser

37− , oiPrettyPrint

38− , oiUserIP

3936 , oiPayload

40− , oiKey

41− , oiOAuthToken

42− , oiFields

4337 ) where

4438

4539import Network.Google.AdExchangeBuyer.Types

@@ -49,111 +43,38 @@ import Network.Google.Prelude

4943-- 'OffersInsert'' request conforms to.

5044type OffersInsertResource =

5145 "offers" :>

52− QueryParam "quotaUser" Text :>

53− QueryParam "prettyPrint" Bool :>

54− QueryParam "userIp" Text :>

55− QueryParam "fields" Text :>

56− QueryParam "key" AuthKey :>

57− Header "Authorization" OAuthToken :>

58− QueryParam "alt" AltJSON :>

59− ReqBody '[JSON] OfferDTO :> Post '[JSON] OfferDTO

46+ QueryParam "alt" AltJSON :>

47+ ReqBody '[JSON] OfferDTO :> Post '[JSON] OfferDTO

6048

6149-- | Creates or updates the requested offer.

6250--

6351-- /See:/ 'offersInsert'' smart constructor.

64−data OffersInsert' = OffersInsert'

65− { _oiQuotaUser :: !(Maybe Text)

66− , _oiPrettyPrint :: !Bool

67− , _oiUserIP :: !(Maybe Text)

68− , _oiPayload :: !OfferDTO

69− , _oiKey :: !(Maybe AuthKey)

70− , _oiOAuthToken :: !(Maybe OAuthToken)

71− , _oiFields :: !(Maybe Text)

52+newtype OffersInsert' = OffersInsert'

53+ { _oiPayload :: OfferDTO

7254 } deriving (Eq,Show,Data,Typeable,Generic)

7355

7456-- | Creates a value of 'OffersInsert'' with the minimum fields required to make a request.

7557--

7658-- Use one of the following lenses to modify other fields as desired:

7759--

78−-- * 'oiQuotaUser'

79−--

80−-- * 'oiPrettyPrint'

81−--

82−-- * 'oiUserIP'

83−--

8460-- * 'oiPayload'

85−--

86−-- * 'oiKey'

87−--

88−-- * 'oiOAuthToken'

89−--

90−-- * 'oiFields'

9161offersInsert'

9262 :: OfferDTO -- ^ 'payload'

9363 -> OffersInsert'

9464offersInsert' pOiPayload_ =

9565 OffersInsert'

96− { _oiQuotaUser = Nothing

97− , _oiPrettyPrint = True

98− , _oiUserIP = Nothing

99− , _oiPayload = pOiPayload_

100− , _oiKey = Nothing

101− , _oiOAuthToken = Nothing

102− , _oiFields = Nothing

66+ { _oiPayload = pOiPayload_

10367 }

10468

105−-- | Available to use for quota purposes for server-side applications. Can be

106−-- any arbitrary string assigned to a user, but should not exceed 40

107−-- characters. Overrides userIp if both are provided.

108−oiQuotaUser :: Lens' OffersInsert' (Maybe Text)

109−oiQuotaUser

110− = lens _oiQuotaUser (\ s a -> s{_oiQuotaUser = a})

111−

112−-- | Returns response with indentations and line breaks.

113−oiPrettyPrint :: Lens' OffersInsert' Bool

114−oiPrettyPrint

115− = lens _oiPrettyPrint

116− (\ s a -> s{_oiPrettyPrint = a})

117−

118−-- | IP address of the site where the request originates. Use this if you

119−-- want to enforce per-user limits.

120−oiUserIP :: Lens' OffersInsert' (Maybe Text)

121−oiUserIP = lens _oiUserIP (\ s a -> s{_oiUserIP = a})

122−

12369-- | Multipart request metadata.

12470oiPayload :: Lens' OffersInsert' OfferDTO

12571oiPayload

12672 = lens _oiPayload (\ s a -> s{_oiPayload = a})

12773

128−-- | API key. Your API key identifies your project and provides you with API

129−-- access, quota, and reports. Required unless you provide an OAuth 2.0

130−-- token.

131−oiKey :: Lens' OffersInsert' (Maybe AuthKey)

132−oiKey = lens _oiKey (\ s a -> s{_oiKey = a})

133−

134−-- | OAuth 2.0 token for the current user.

135−oiOAuthToken :: Lens' OffersInsert' (Maybe OAuthToken)

136−oiOAuthToken

137− = lens _oiOAuthToken (\ s a -> s{_oiOAuthToken = a})

138−

139−-- | Selector specifying which fields to include in a partial response.

140−oiFields :: Lens' OffersInsert' (Maybe Text)

141−oiFields = lens _oiFields (\ s a -> s{_oiFields = a})

142−

143−instance GoogleAuth OffersInsert' where

144− _AuthKey = oiKey . _Just

145− _AuthToken = oiOAuthToken . _Just

146−

14774instance GoogleRequest OffersInsert' where

14875 type Rs OffersInsert' = OfferDTO

149− request = requestWith adExchangeBuyerRequest

150− requestWith rq OffersInsert'{..}

151− = go _oiQuotaUser (Just _oiPrettyPrint) _oiUserIP

152− _oiFields

153− _oiKey

154− _oiOAuthToken

155− (Just AltJSON)

156− _oiPayload

76+ requestClient OffersInsert'{..}

77+ = go (Just AltJSON) _oiPayload adExchangeBuyerService

15778 where go

158− = clientBuild (Proxy :: Proxy OffersInsertResource)

159− rq

79+ = buildClient (Proxy :: Proxy OffersInsertResource)

80+ mempty

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Offers/List.hs+10−88

@@ -33,13 +33,7 @@ module Network.Google.Resource.AdExchangeBuyer.Offers.List

3333 , OffersList'

3434

3535 -- * Request Lenses

36− , olQuotaUser

37− , olPrettyPrint

38− , olUserIP

3936 , olPayload

40− , olKey

41− , olOAuthToken

42− , olFields

4337 ) where

4438

4539import Network.Google.AdExchangeBuyer.Types

@@ -49,111 +43,39 @@ import Network.Google.Prelude

4943-- 'OffersList'' request conforms to.

5044type OffersListResource =

5145 "offers" :>

52− QueryParam "quotaUser" Text :>

53− QueryParam "prettyPrint" Bool :>

54− QueryParam "userIp" Text :>

55− QueryParam "fields" Text :>

56− QueryParam "key" AuthKey :>

57− Header "Authorization" OAuthToken :>

58− QueryParam "alt" AltJSON :>

59− ReqBody '[JSON] ListOffersRequest :>

60− Get '[JSON] ListOffersResponse

46+ QueryParam "alt" AltJSON :>

47+ ReqBody '[JSON] ListOffersRequest :>

48+ Get '[JSON] ListOffersResponse

6149

6250-- | Lists all offers the authenticated user has access to.

6351--

6452-- /See:/ 'offersList'' smart constructor.

65−data OffersList' = OffersList'

66− { _olQuotaUser :: !(Maybe Text)

67− , _olPrettyPrint :: !Bool

68− , _olUserIP :: !(Maybe Text)

69− , _olPayload :: !ListOffersRequest

70− , _olKey :: !(Maybe AuthKey)

71− , _olOAuthToken :: !(Maybe OAuthToken)

72− , _olFields :: !(Maybe Text)

53+newtype OffersList' = OffersList'

54+ { _olPayload :: ListOffersRequest

7355 } deriving (Eq,Show,Data,Typeable,Generic)

7456

7557-- | Creates a value of 'OffersList'' with the minimum fields required to make a request.

7658--

7759-- Use one of the following lenses to modify other fields as desired:

7860--

79−-- * 'olQuotaUser'

80−--

81−-- * 'olPrettyPrint'

82−--

83−-- * 'olUserIP'

84−--

8561-- * 'olPayload'

86−--

87−-- * 'olKey'

88−--

89−-- * 'olOAuthToken'

90−--

91−-- * 'olFields'

9262offersList'

9363 :: ListOffersRequest -- ^ 'payload'

9464 -> OffersList'

9565offersList' pOlPayload_ =

9666 OffersList'

97− { _olQuotaUser = Nothing

98− , _olPrettyPrint = True

99− , _olUserIP = Nothing

100− , _olPayload = pOlPayload_

101− , _olKey = Nothing

102− , _olOAuthToken = Nothing

103− , _olFields = Nothing

67+ { _olPayload = pOlPayload_

10468 }

10569

106−-- | Available to use for quota purposes for server-side applications. Can be

107−-- any arbitrary string assigned to a user, but should not exceed 40

108−-- characters. Overrides userIp if both are provided.

109−olQuotaUser :: Lens' OffersList' (Maybe Text)

110−olQuotaUser

111− = lens _olQuotaUser (\ s a -> s{_olQuotaUser = a})

112−

113−-- | Returns response with indentations and line breaks.

114−olPrettyPrint :: Lens' OffersList' Bool

115−olPrettyPrint

116− = lens _olPrettyPrint

117− (\ s a -> s{_olPrettyPrint = a})

118−

119−-- | IP address of the site where the request originates. Use this if you

120−-- want to enforce per-user limits.

121−olUserIP :: Lens' OffersList' (Maybe Text)

122−olUserIP = lens _olUserIP (\ s a -> s{_olUserIP = a})

123−

12470-- | Multipart request metadata.

12571olPayload :: Lens' OffersList' ListOffersRequest

12672olPayload

12773 = lens _olPayload (\ s a -> s{_olPayload = a})

12874

129−-- | API key. Your API key identifies your project and provides you with API

130−-- access, quota, and reports. Required unless you provide an OAuth 2.0

131−-- token.

132−olKey :: Lens' OffersList' (Maybe AuthKey)

133−olKey = lens _olKey (\ s a -> s{_olKey = a})

134−

135−-- | OAuth 2.0 token for the current user.

136−olOAuthToken :: Lens' OffersList' (Maybe OAuthToken)

137−olOAuthToken

138− = lens _olOAuthToken (\ s a -> s{_olOAuthToken = a})

139−

140−-- | Selector specifying which fields to include in a partial response.

141−olFields :: Lens' OffersList' (Maybe Text)

142−olFields = lens _olFields (\ s a -> s{_olFields = a})

143−

144−instance GoogleAuth OffersList' where

145− _AuthKey = olKey . _Just

146− _AuthToken = olOAuthToken . _Just

147−

14875instance GoogleRequest OffersList' where

14976 type Rs OffersList' = ListOffersResponse

150− request = requestWith adExchangeBuyerRequest

151− requestWith rq OffersList'{..}

152− = go _olQuotaUser (Just _olPrettyPrint) _olUserIP

153− _olFields

154− _olKey

155− _olOAuthToken

156− (Just AltJSON)

157− _olPayload

77+ requestClient OffersList'{..}

78+ = go (Just AltJSON) _olPayload adExchangeBuyerService

15879 where go

159− = clientBuild (Proxy :: Proxy OffersListResource) rq

80+ = buildClient (Proxy :: Proxy OffersListResource)

81+ mempty

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/PerformanceReport/List.hs+8−90

@@ -33,17 +33,11 @@ module Network.Google.Resource.AdExchangeBuyer.PerformanceReport.List

3333 , PerformanceReportList'

3434

3535 -- * Request Lenses

36− , prlQuotaUser

37− , prlPrettyPrint

38− , prlUserIP

3936 , prlAccountId

40− , prlKey

4137 , prlPageToken

42− , prlOAuthToken

4338 , prlEndDateTime

4439 , prlMaxResults

4540 , prlStartDateTime

46− , prlFields

4741 ) where

4842

4943import Network.Google.AdExchangeBuyer.Types

@@ -58,57 +52,33 @@ type PerformanceReportListResource =

5852 QueryParam "startDateTime" Text :>

5953 QueryParam "pageToken" Text :>

6054 QueryParam "maxResults" Word32 :>

61− QueryParam "quotaUser" Text :>

62− QueryParam "prettyPrint" Bool :>

63− QueryParam "userIp" Text :>

64− QueryParam "fields" Text :>

65− QueryParam "key" AuthKey :>

66− Header "Authorization" OAuthToken :>

67− QueryParam "alt" AltJSON :>

68− Get '[JSON] PerformanceReportList

55+ QueryParam "alt" AltJSON :>

56+ Get '[JSON] PerformanceReportList

6957

7058-- | Retrieves the authenticated user\'s list of performance metrics.

7159--

7260-- /See:/ 'performanceReportList'' smart constructor.

7361data PerformanceReportList' = PerformanceReportList'

74− { _prlQuotaUser :: !(Maybe Text)

75− , _prlPrettyPrint :: !Bool

76− , _prlUserIP :: !(Maybe Text)

77− , _prlAccountId :: !Int64

78− , _prlKey :: !(Maybe AuthKey)

62+ { _prlAccountId :: !Int64

7963 , _prlPageToken :: !(Maybe Text)

80− , _prlOAuthToken :: !(Maybe OAuthToken)

8164 , _prlEndDateTime :: !Text

8265 , _prlMaxResults :: !(Maybe Word32)

8366 , _prlStartDateTime :: !Text

84− , _prlFields :: !(Maybe Text)

8567 } deriving (Eq,Show,Data,Typeable,Generic)

8668

8769-- | Creates a value of 'PerformanceReportList'' with the minimum fields required to make a request.

8870--

8971-- Use one of the following lenses to modify other fields as desired:

9072--

91−-- * 'prlQuotaUser'

92−--

93−-- * 'prlPrettyPrint'

94−--

95−-- * 'prlUserIP'

96−--

9773-- * 'prlAccountId'

9874--

99−-- * 'prlKey'

100−--

10175-- * 'prlPageToken'

10276--

103−-- * 'prlOAuthToken'

104−--

10577-- * 'prlEndDateTime'

10678--

10779-- * 'prlMaxResults'

10880--

10981-- * 'prlStartDateTime'

110−--

111−-- * 'prlFields'

11282performanceReportList'

11383 :: Int64 -- ^ 'accountId'

11484 -> Text -- ^ 'endDateTime'

@@ -116,49 +86,18 @@ performanceReportList'

11686 -> PerformanceReportList'

11787performanceReportList' pPrlAccountId_ pPrlEndDateTime_ pPrlStartDateTime_ =

11888 PerformanceReportList'

119− { _prlQuotaUser = Nothing

120− , _prlPrettyPrint = True

121− , _prlUserIP = Nothing

122− , _prlAccountId = pPrlAccountId_

123− , _prlKey = Nothing

89+ { _prlAccountId = pPrlAccountId_

12490 , _prlPageToken = Nothing

125− , _prlOAuthToken = Nothing

12691 , _prlEndDateTime = pPrlEndDateTime_

12792 , _prlMaxResults = Nothing

12893 , _prlStartDateTime = pPrlStartDateTime_

129− , _prlFields = Nothing

13094 }

13195

132−-- | Available to use for quota purposes for server-side applications. Can be

133−-- any arbitrary string assigned to a user, but should not exceed 40

134−-- characters. Overrides userIp if both are provided.

135−prlQuotaUser :: Lens' PerformanceReportList' (Maybe Text)

136−prlQuotaUser

137− = lens _prlQuotaUser (\ s a -> s{_prlQuotaUser = a})

138−

139−-- | Returns response with indentations and line breaks.

140−prlPrettyPrint :: Lens' PerformanceReportList' Bool

141−prlPrettyPrint

142− = lens _prlPrettyPrint

143− (\ s a -> s{_prlPrettyPrint = a})

144−

145−-- | IP address of the site where the request originates. Use this if you

146−-- want to enforce per-user limits.

147−prlUserIP :: Lens' PerformanceReportList' (Maybe Text)

148−prlUserIP

149− = lens _prlUserIP (\ s a -> s{_prlUserIP = a})

150−

15196-- | The account id to get the reports.

15297prlAccountId :: Lens' PerformanceReportList' Int64

15398prlAccountId

15499 = lens _prlAccountId (\ s a -> s{_prlAccountId = a})

155100

156−-- | API key. Your API key identifies your project and provides you with API

157−-- access, quota, and reports. Required unless you provide an OAuth 2.0

158−-- token.

159−prlKey :: Lens' PerformanceReportList' (Maybe AuthKey)

160−prlKey = lens _prlKey (\ s a -> s{_prlKey = a})

161−

162101-- | A continuation token, used to page through performance reports. To

163102-- retrieve the next page, set this parameter to the value of

164103-- \"nextPageToken\" from the previous response. Optional.

@@ -166,12 +105,6 @@ prlPageToken :: Lens' PerformanceReportList' (Maybe Text)

166105prlPageToken

167106 = lens _prlPageToken (\ s a -> s{_prlPageToken = a})

168107

169−-- | OAuth 2.0 token for the current user.

170−prlOAuthToken :: Lens' PerformanceReportList' (Maybe OAuthToken)

171−prlOAuthToken

172− = lens _prlOAuthToken

173− (\ s a -> s{_prlOAuthToken = a})

174−

175108-- | The end time of the report in ISO 8601 timestamp format using UTC.

176109prlEndDateTime :: Lens' PerformanceReportList' Text

177110prlEndDateTime

@@ -191,32 +124,17 @@ prlStartDateTime

191124 = lens _prlStartDateTime

192125 (\ s a -> s{_prlStartDateTime = a})

193126

194−-- | Selector specifying which fields to include in a partial response.

195−prlFields :: Lens' PerformanceReportList' (Maybe Text)

196−prlFields

197− = lens _prlFields (\ s a -> s{_prlFields = a})

198−

199−instance GoogleAuth PerformanceReportList' where

200− _AuthKey = prlKey . _Just

201− _AuthToken = prlOAuthToken . _Just

202−

203127instance GoogleRequest PerformanceReportList' where

204128 type Rs PerformanceReportList' =

205129 PerformanceReportList

206− request = requestWith adExchangeBuyerRequest

207− requestWith rq PerformanceReportList'{..}

130+ requestClient PerformanceReportList'{..}

208131 = go (Just _prlAccountId) (Just _prlEndDateTime)

209132 (Just _prlStartDateTime)

210133 _prlPageToken

211134 _prlMaxResults

212− _prlQuotaUser

213− (Just _prlPrettyPrint)

214− _prlUserIP

215− _prlFields

216− _prlKey

217− _prlOAuthToken

218135 (Just AltJSON)

136+ adExchangeBuyerService

219137 where go

220− = clientBuild

138+ = buildClient

221139 (Proxy :: Proxy PerformanceReportListResource)

222− rq

140+ mempty

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/PretargetingConfig/Delete.hs+9−91

@@ -33,14 +33,8 @@ module Network.Google.Resource.AdExchangeBuyer.PretargetingConfig.Delete

3333 , PretargetingConfigDelete'

3434

3535 -- * Request Lenses

36− , pcdQuotaUser

37− , pcdPrettyPrint

38− , pcdUserIP

3936 , pcdAccountId

40− , pcdKey

4137 , pcdConfigId

42− , pcdOAuthToken

43− , pcdFields

4438 ) where

4539

4640import Network.Google.AdExchangeBuyer.Types

@@ -52,126 +46,50 @@ type PretargetingConfigDeleteResource =

5246 "pretargetingconfigs" :>

5347 Capture "accountId" Int64 :>

5448 Capture "configId" Int64 :>

55− QueryParam "quotaUser" Text :>

56− QueryParam "prettyPrint" Bool :>

57− QueryParam "userIp" Text :>

58− QueryParam "fields" Text :>

59− QueryParam "key" AuthKey :>

60− Header "Authorization" OAuthToken :>

61− QueryParam "alt" AltJSON :> Delete '[JSON] ()

49+ QueryParam "alt" AltJSON :> Delete '[JSON] ()

6250

6351-- | Deletes an existing pretargeting config.

6452--

6553-- /See:/ 'pretargetingConfigDelete'' smart constructor.

6654data PretargetingConfigDelete' = PretargetingConfigDelete'

67− { _pcdQuotaUser :: !(Maybe Text)

68− , _pcdPrettyPrint :: !Bool

69− , _pcdUserIP :: !(Maybe Text)

70− , _pcdAccountId :: !Int64

71− , _pcdKey :: !(Maybe AuthKey)

72− , _pcdConfigId :: !Int64

73− , _pcdOAuthToken :: !(Maybe OAuthToken)

74− , _pcdFields :: !(Maybe Text)

55+ { _pcdAccountId :: !Int64

56+ , _pcdConfigId :: !Int64

7557 } deriving (Eq,Show,Data,Typeable,Generic)

7658

7759-- | Creates a value of 'PretargetingConfigDelete'' with the minimum fields required to make a request.

7860--

7961-- Use one of the following lenses to modify other fields as desired:

8062--

81−-- * 'pcdQuotaUser'

82−--

83−-- * 'pcdPrettyPrint'

84−--

85−-- * 'pcdUserIP'

86−--

8763-- * 'pcdAccountId'

8864--

89−-- * 'pcdKey'

90−--

9165-- * 'pcdConfigId'

92−--

93−-- * 'pcdOAuthToken'

94−--

95−-- * 'pcdFields'

9666pretargetingConfigDelete'

9767 :: Int64 -- ^ 'accountId'

9868 -> Int64 -- ^ 'configId'

9969 -> PretargetingConfigDelete'

10070pretargetingConfigDelete' pPcdAccountId_ pPcdConfigId_ =

10171 PretargetingConfigDelete'

102− { _pcdQuotaUser = Nothing

103− , _pcdPrettyPrint = True

104− , _pcdUserIP = Nothing

105− , _pcdAccountId = pPcdAccountId_

106− , _pcdKey = Nothing

72+ { _pcdAccountId = pPcdAccountId_

10773 , _pcdConfigId = pPcdConfigId_

108− , _pcdOAuthToken = Nothing

109− , _pcdFields = Nothing

11074 }

11175

112−-- | Available to use for quota purposes for server-side applications. Can be

113−-- any arbitrary string assigned to a user, but should not exceed 40

114−-- characters. Overrides userIp if both are provided.

115−pcdQuotaUser :: Lens' PretargetingConfigDelete' (Maybe Text)

116−pcdQuotaUser

117− = lens _pcdQuotaUser (\ s a -> s{_pcdQuotaUser = a})

118−

119−-- | Returns response with indentations and line breaks.

120−pcdPrettyPrint :: Lens' PretargetingConfigDelete' Bool

121−pcdPrettyPrint

122− = lens _pcdPrettyPrint

123− (\ s a -> s{_pcdPrettyPrint = a})

124−

125−-- | IP address of the site where the request originates. Use this if you

126−-- want to enforce per-user limits.

127−pcdUserIP :: Lens' PretargetingConfigDelete' (Maybe Text)

128−pcdUserIP

129− = lens _pcdUserIP (\ s a -> s{_pcdUserIP = a})

130−

13176-- | The account id to delete the pretargeting config for.

13277pcdAccountId :: Lens' PretargetingConfigDelete' Int64

13378pcdAccountId

13479 = lens _pcdAccountId (\ s a -> s{_pcdAccountId = a})

13580

136−-- | API key. Your API key identifies your project and provides you with API

137−-- access, quota, and reports. Required unless you provide an OAuth 2.0

138−-- token.

139−pcdKey :: Lens' PretargetingConfigDelete' (Maybe AuthKey)

140−pcdKey = lens _pcdKey (\ s a -> s{_pcdKey = a})

141−

14281-- | The specific id of the configuration to delete.

14382pcdConfigId :: Lens' PretargetingConfigDelete' Int64

14483pcdConfigId

14584 = lens _pcdConfigId (\ s a -> s{_pcdConfigId = a})

14685

147−-- | OAuth 2.0 token for the current user.

148−pcdOAuthToken :: Lens' PretargetingConfigDelete' (Maybe OAuthToken)

149−pcdOAuthToken

150− = lens _pcdOAuthToken

151− (\ s a -> s{_pcdOAuthToken = a})

152−

153−-- | Selector specifying which fields to include in a partial response.

154−pcdFields :: Lens' PretargetingConfigDelete' (Maybe Text)

155−pcdFields

156− = lens _pcdFields (\ s a -> s{_pcdFields = a})

157−

158−instance GoogleAuth PretargetingConfigDelete' where

159− _AuthKey = pcdKey . _Just

160− _AuthToken = pcdOAuthToken . _Just

161−

16286instance GoogleRequest PretargetingConfigDelete'

16387 where

16488 type Rs PretargetingConfigDelete' = ()

165− request = requestWith adExchangeBuyerRequest

166− requestWith rq PretargetingConfigDelete'{..}

167− = go _pcdAccountId _pcdConfigId _pcdQuotaUser

168− (Just _pcdPrettyPrint)

169− _pcdUserIP

170− _pcdFields

171− _pcdKey

172− _pcdOAuthToken

173− (Just AltJSON)

89+ requestClient PretargetingConfigDelete'{..}

90+ = go _pcdAccountId _pcdConfigId (Just AltJSON)

91+ adExchangeBuyerService

17492 where go

175− = clientBuild

93+ = buildClient

17694 (Proxy :: Proxy PretargetingConfigDeleteResource)

177− rq

95+ mempty

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/PretargetingConfig/Get.hs+10−92

@@ -33,14 +33,8 @@ module Network.Google.Resource.AdExchangeBuyer.PretargetingConfig.Get

3333 , PretargetingConfigGet'

3434

3535 -- * Request Lenses

36− , pcgQuotaUser

37− , pcgPrettyPrint

38− , pcgUserIP

3936 , pcgAccountId

40− , pcgKey

4137 , pcgConfigId

42− , pcgOAuthToken

43− , pcgFields

4438 ) where

4539

4640import Network.Google.AdExchangeBuyer.Types

@@ -52,126 +46,50 @@ type PretargetingConfigGetResource =

5246 "pretargetingconfigs" :>

5347 Capture "accountId" Int64 :>

5448 Capture "configId" Int64 :>

55− QueryParam "quotaUser" Text :>

56− QueryParam "prettyPrint" Bool :>

57− QueryParam "userIp" Text :>

58− QueryParam "fields" Text :>

59− QueryParam "key" AuthKey :>

60− Header "Authorization" OAuthToken :>

61− QueryParam "alt" AltJSON :>

62− Get '[JSON] PretargetingConfig

49+ QueryParam "alt" AltJSON :>

50+ Get '[JSON] PretargetingConfig

6351

6452-- | Gets a specific pretargeting configuration

6553--

6654-- /See:/ 'pretargetingConfigGet'' smart constructor.

6755data PretargetingConfigGet' = PretargetingConfigGet'

68− { _pcgQuotaUser :: !(Maybe Text)

69− , _pcgPrettyPrint :: !Bool

70− , _pcgUserIP :: !(Maybe Text)

71− , _pcgAccountId :: !Int64

72− , _pcgKey :: !(Maybe AuthKey)

73− , _pcgConfigId :: !Int64

74− , _pcgOAuthToken :: !(Maybe OAuthToken)

75− , _pcgFields :: !(Maybe Text)

56+ { _pcgAccountId :: !Int64

57+ , _pcgConfigId :: !Int64

7658 } deriving (Eq,Show,Data,Typeable,Generic)

7759

7860-- | Creates a value of 'PretargetingConfigGet'' with the minimum fields required to make a request.

7961--

8062-- Use one of the following lenses to modify other fields as desired:

8163--

82−-- * 'pcgQuotaUser'

83−--

84−-- * 'pcgPrettyPrint'

85−--

86−-- * 'pcgUserIP'

87−--

8864-- * 'pcgAccountId'

8965--

90−-- * 'pcgKey'

91−--

9266-- * 'pcgConfigId'

93−--

94−-- * 'pcgOAuthToken'

95−--

96−-- * 'pcgFields'

9767pretargetingConfigGet'

9868 :: Int64 -- ^ 'accountId'

9969 -> Int64 -- ^ 'configId'

10070 -> PretargetingConfigGet'

10171pretargetingConfigGet' pPcgAccountId_ pPcgConfigId_ =

10272 PretargetingConfigGet'

103− { _pcgQuotaUser = Nothing

104− , _pcgPrettyPrint = True

105− , _pcgUserIP = Nothing

106− , _pcgAccountId = pPcgAccountId_

107− , _pcgKey = Nothing

73+ { _pcgAccountId = pPcgAccountId_

10874 , _pcgConfigId = pPcgConfigId_

109− , _pcgOAuthToken = Nothing

110− , _pcgFields = Nothing

11175 }

11276

113−-- | Available to use for quota purposes for server-side applications. Can be

114−-- any arbitrary string assigned to a user, but should not exceed 40

115−-- characters. Overrides userIp if both are provided.

116−pcgQuotaUser :: Lens' PretargetingConfigGet' (Maybe Text)

117−pcgQuotaUser

118− = lens _pcgQuotaUser (\ s a -> s{_pcgQuotaUser = a})

119−

120−-- | Returns response with indentations and line breaks.

121−pcgPrettyPrint :: Lens' PretargetingConfigGet' Bool

122−pcgPrettyPrint

123− = lens _pcgPrettyPrint

124− (\ s a -> s{_pcgPrettyPrint = a})

125−

126−-- | IP address of the site where the request originates. Use this if you

127−-- want to enforce per-user limits.

128−pcgUserIP :: Lens' PretargetingConfigGet' (Maybe Text)

129−pcgUserIP

130− = lens _pcgUserIP (\ s a -> s{_pcgUserIP = a})

131−

13277-- | The account id to get the pretargeting config for.

13378pcgAccountId :: Lens' PretargetingConfigGet' Int64

13479pcgAccountId

13580 = lens _pcgAccountId (\ s a -> s{_pcgAccountId = a})

13681

137−-- | API key. Your API key identifies your project and provides you with API

138−-- access, quota, and reports. Required unless you provide an OAuth 2.0

139−-- token.

140−pcgKey :: Lens' PretargetingConfigGet' (Maybe AuthKey)

141−pcgKey = lens _pcgKey (\ s a -> s{_pcgKey = a})

142−

14382-- | The specific id of the configuration to retrieve.

14483pcgConfigId :: Lens' PretargetingConfigGet' Int64

14584pcgConfigId

14685 = lens _pcgConfigId (\ s a -> s{_pcgConfigId = a})

14786

148−-- | OAuth 2.0 token for the current user.

149−pcgOAuthToken :: Lens' PretargetingConfigGet' (Maybe OAuthToken)

150−pcgOAuthToken

151− = lens _pcgOAuthToken

152− (\ s a -> s{_pcgOAuthToken = a})

153−

154−-- | Selector specifying which fields to include in a partial response.

155−pcgFields :: Lens' PretargetingConfigGet' (Maybe Text)

156−pcgFields

157− = lens _pcgFields (\ s a -> s{_pcgFields = a})

158−

159−instance GoogleAuth PretargetingConfigGet' where

160− _AuthKey = pcgKey . _Just

161− _AuthToken = pcgOAuthToken . _Just

162−

16387instance GoogleRequest PretargetingConfigGet' where

16488 type Rs PretargetingConfigGet' = PretargetingConfig

165− request = requestWith adExchangeBuyerRequest

166− requestWith rq PretargetingConfigGet'{..}

167− = go _pcgAccountId _pcgConfigId _pcgQuotaUser

168− (Just _pcgPrettyPrint)

169− _pcgUserIP

170− _pcgFields

171− _pcgKey

172− _pcgOAuthToken

173− (Just AltJSON)

89+ requestClient PretargetingConfigGet'{..}

90+ = go _pcgAccountId _pcgConfigId (Just AltJSON)

91+ adExchangeBuyerService

17492 where go

175− = clientBuild

93+ = buildClient

17694 (Proxy :: Proxy PretargetingConfigGetResource)

177− rq

95+ mempty

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/PretargetingConfig/Insert.hs+11−94

@@ -33,14 +33,8 @@ module Network.Google.Resource.AdExchangeBuyer.PretargetingConfig.Insert

3333 , PretargetingConfigInsert'

3434

3535 -- * Request Lenses

36− , pciQuotaUser

37− , pciPrettyPrint

38− , pciUserIP

3936 , pciPayload

4037 , pciAccountId

41− , pciKey

42− , pciOAuthToken

43− , pciFields

4438 ) where

4539

4640import Network.Google.AdExchangeBuyer.Types

@@ -51,84 +45,35 @@ import Network.Google.Prelude

5145type PretargetingConfigInsertResource =

5246 "pretargetingconfigs" :>

5347 Capture "accountId" Int64 :>

54− QueryParam "quotaUser" Text :>

55− QueryParam "prettyPrint" Bool :>

56− QueryParam "userIp" Text :>

57− QueryParam "fields" Text :>

58− QueryParam "key" AuthKey :>

59− Header "Authorization" OAuthToken :>

60− QueryParam "alt" AltJSON :>

61− ReqBody '[JSON] PretargetingConfig :>

62− Post '[JSON] PretargetingConfig

48+ QueryParam "alt" AltJSON :>

49+ ReqBody '[JSON] PretargetingConfig :>

50+ Post '[JSON] PretargetingConfig

6351

6452-- | Inserts a new pretargeting configuration.

6553--

6654-- /See:/ 'pretargetingConfigInsert'' smart constructor.

6755data PretargetingConfigInsert' = PretargetingConfigInsert'

68− { _pciQuotaUser :: !(Maybe Text)

69− , _pciPrettyPrint :: !Bool

70− , _pciUserIP :: !(Maybe Text)

71− , _pciPayload :: !PretargetingConfig

72− , _pciAccountId :: !Int64

73− , _pciKey :: !(Maybe AuthKey)

74− , _pciOAuthToken :: !(Maybe OAuthToken)

75− , _pciFields :: !(Maybe Text)

56+ { _pciPayload :: !PretargetingConfig

57+ , _pciAccountId :: !Int64

7658 } deriving (Eq,Show,Data,Typeable,Generic)

7759

7860-- | Creates a value of 'PretargetingConfigInsert'' with the minimum fields required to make a request.

7961--

8062-- Use one of the following lenses to modify other fields as desired:

8163--

82−-- * 'pciQuotaUser'

83−--

84−-- * 'pciPrettyPrint'

85−--

86−-- * 'pciUserIP'

87−--

8864-- * 'pciPayload'

8965--

9066-- * 'pciAccountId'

91−--

92−-- * 'pciKey'

93−--

94−-- * 'pciOAuthToken'

95−--

96−-- * 'pciFields'

9767pretargetingConfigInsert'

9868 :: PretargetingConfig -- ^ 'payload'

9969 -> Int64 -- ^ 'accountId'

10070 -> PretargetingConfigInsert'

10171pretargetingConfigInsert' pPciPayload_ pPciAccountId_ =

10272 PretargetingConfigInsert'

103− { _pciQuotaUser = Nothing

104− , _pciPrettyPrint = True

105− , _pciUserIP = Nothing

106− , _pciPayload = pPciPayload_

73+ { _pciPayload = pPciPayload_

10774 , _pciAccountId = pPciAccountId_

108− , _pciKey = Nothing

109− , _pciOAuthToken = Nothing

110− , _pciFields = Nothing

11175 }

11276

113−-- | Available to use for quota purposes for server-side applications. Can be

114−-- any arbitrary string assigned to a user, but should not exceed 40

115−-- characters. Overrides userIp if both are provided.

116−pciQuotaUser :: Lens' PretargetingConfigInsert' (Maybe Text)

117−pciQuotaUser

118− = lens _pciQuotaUser (\ s a -> s{_pciQuotaUser = a})

119−

120−-- | Returns response with indentations and line breaks.

121−pciPrettyPrint :: Lens' PretargetingConfigInsert' Bool

122−pciPrettyPrint

123− = lens _pciPrettyPrint

124− (\ s a -> s{_pciPrettyPrint = a})

125−

126−-- | IP address of the site where the request originates. Use this if you

127−-- want to enforce per-user limits.

128−pciUserIP :: Lens' PretargetingConfigInsert' (Maybe Text)

129−pciUserIP

130− = lens _pciUserIP (\ s a -> s{_pciUserIP = a})

131−

13277-- | Multipart request metadata.

13378pciPayload :: Lens' PretargetingConfigInsert' PretargetingConfig

13479pciPayload

@@ -139,42 +84,14 @@ pciAccountId :: Lens' PretargetingConfigInsert' Int64

13984pciAccountId

14085 = lens _pciAccountId (\ s a -> s{_pciAccountId = a})

14186

142−-- | API key. Your API key identifies your project and provides you with API

143−-- access, quota, and reports. Required unless you provide an OAuth 2.0

144−-- token.

145−pciKey :: Lens' PretargetingConfigInsert' (Maybe AuthKey)

146−pciKey = lens _pciKey (\ s a -> s{_pciKey = a})

147−

148−-- | OAuth 2.0 token for the current user.

149−pciOAuthToken :: Lens' PretargetingConfigInsert' (Maybe OAuthToken)

150−pciOAuthToken

151− = lens _pciOAuthToken

152− (\ s a -> s{_pciOAuthToken = a})

153−

154−-- | Selector specifying which fields to include in a partial response.

155−pciFields :: Lens' PretargetingConfigInsert' (Maybe Text)

156−pciFields

157− = lens _pciFields (\ s a -> s{_pciFields = a})

158−

159−instance GoogleAuth PretargetingConfigInsert' where

160− _AuthKey = pciKey . _Just

161− _AuthToken = pciOAuthToken . _Just

162−

16387instance GoogleRequest PretargetingConfigInsert'

16488 where

16589 type Rs PretargetingConfigInsert' =

16690 PretargetingConfig

167− request = requestWith adExchangeBuyerRequest

168− requestWith rq PretargetingConfigInsert'{..}

169− = go _pciAccountId _pciQuotaUser

170− (Just _pciPrettyPrint)

171− _pciUserIP

172− _pciFields

173− _pciKey

174− _pciOAuthToken

175− (Just AltJSON)

176− _pciPayload

91+ requestClient PretargetingConfigInsert'{..}

92+ = go _pciAccountId (Just AltJSON) _pciPayload

93+ adExchangeBuyerService

17794 where go

178− = clientBuild

95+ = buildClient

17996 (Proxy :: Proxy PretargetingConfigInsertResource)

180− rq

97+ mempty

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/PretargetingConfig/List.hs+10−92

@@ -34,13 +34,7 @@ module Network.Google.Resource.AdExchangeBuyer.PretargetingConfig.List

3434 , PretargetingConfigList'

3535

3636 -- * Request Lenses

37− , pclQuotaUser

38− , pclPrettyPrint

39− , pclUserIP

4037 , pclAccountId

41− , pclKey

42− , pclOAuthToken

43− , pclFields

4438 ) where

4539

4640import Network.Google.AdExchangeBuyer.Types

@@ -51,118 +45,42 @@ import Network.Google.Prelude

5145type PretargetingConfigListResource =

5246 "pretargetingconfigs" :>

5347 Capture "accountId" Int64 :>

54− QueryParam "quotaUser" Text :>

55− QueryParam "prettyPrint" Bool :>

56− QueryParam "userIp" Text :>

57− QueryParam "fields" Text :>

58− QueryParam "key" AuthKey :>

59− Header "Authorization" OAuthToken :>

60− QueryParam "alt" AltJSON :>

61− Get '[JSON] PretargetingConfigList

48+ QueryParam "alt" AltJSON :>

49+ Get '[JSON] PretargetingConfigList

6250

6351-- | Retrieves a list of the authenticated user\'s pretargeting

6452-- configurations.

6553--

6654-- /See:/ 'pretargetingConfigList'' smart constructor.

67−data PretargetingConfigList' = PretargetingConfigList'

68− { _pclQuotaUser :: !(Maybe Text)

69− , _pclPrettyPrint :: !Bool

70− , _pclUserIP :: !(Maybe Text)

71− , _pclAccountId :: !Int64

72− , _pclKey :: !(Maybe AuthKey)

73− , _pclOAuthToken :: !(Maybe OAuthToken)

74− , _pclFields :: !(Maybe Text)

55+newtype PretargetingConfigList' = PretargetingConfigList'

56+ { _pclAccountId :: Int64

7557 } deriving (Eq,Show,Data,Typeable,Generic)

7658

7759-- | Creates a value of 'PretargetingConfigList'' with the minimum fields required to make a request.

7860--

7961-- Use one of the following lenses to modify other fields as desired:

8062--

81−-- * 'pclQuotaUser'

82−--

83−-- * 'pclPrettyPrint'

84−--

85−-- * 'pclUserIP'

86−--

8763-- * 'pclAccountId'

88−--

89−-- * 'pclKey'

90−--

91−-- * 'pclOAuthToken'

92−--

93−-- * 'pclFields'

9464pretargetingConfigList'

9565 :: Int64 -- ^ 'accountId'

9666 -> PretargetingConfigList'

9767pretargetingConfigList' pPclAccountId_ =

9868 PretargetingConfigList'

99− { _pclQuotaUser = Nothing

100− , _pclPrettyPrint = True

101− , _pclUserIP = Nothing

102− , _pclAccountId = pPclAccountId_

103− , _pclKey = Nothing

104− , _pclOAuthToken = Nothing

105− , _pclFields = Nothing

69+ { _pclAccountId = pPclAccountId_

10670 }

10771

108−-- | Available to use for quota purposes for server-side applications. Can be

109−-- any arbitrary string assigned to a user, but should not exceed 40

110−-- characters. Overrides userIp if both are provided.

111−pclQuotaUser :: Lens' PretargetingConfigList' (Maybe Text)

112−pclQuotaUser

113− = lens _pclQuotaUser (\ s a -> s{_pclQuotaUser = a})

114−

115−-- | Returns response with indentations and line breaks.

116−pclPrettyPrint :: Lens' PretargetingConfigList' Bool

117−pclPrettyPrint

118− = lens _pclPrettyPrint

119− (\ s a -> s{_pclPrettyPrint = a})

120−

121−-- | IP address of the site where the request originates. Use this if you

122−-- want to enforce per-user limits.

123−pclUserIP :: Lens' PretargetingConfigList' (Maybe Text)

124−pclUserIP

125− = lens _pclUserIP (\ s a -> s{_pclUserIP = a})

126−

12772-- | The account id to get the pretargeting configs for.

12873pclAccountId :: Lens' PretargetingConfigList' Int64

12974pclAccountId

13075 = lens _pclAccountId (\ s a -> s{_pclAccountId = a})

13176

132−-- | API key. Your API key identifies your project and provides you with API

133−-- access, quota, and reports. Required unless you provide an OAuth 2.0

134−-- token.

135−pclKey :: Lens' PretargetingConfigList' (Maybe AuthKey)

136−pclKey = lens _pclKey (\ s a -> s{_pclKey = a})

137−

138−-- | OAuth 2.0 token for the current user.

139−pclOAuthToken :: Lens' PretargetingConfigList' (Maybe OAuthToken)

140−pclOAuthToken

141− = lens _pclOAuthToken

142− (\ s a -> s{_pclOAuthToken = a})

143−

144−-- | Selector specifying which fields to include in a partial response.

145−pclFields :: Lens' PretargetingConfigList' (Maybe Text)

146−pclFields

147− = lens _pclFields (\ s a -> s{_pclFields = a})

148−

149−instance GoogleAuth PretargetingConfigList' where

150− _AuthKey = pclKey . _Just

151− _AuthToken = pclOAuthToken . _Just

152−

15377instance GoogleRequest PretargetingConfigList' where

15478 type Rs PretargetingConfigList' =

15579 PretargetingConfigList

156− request = requestWith adExchangeBuyerRequest

157− requestWith rq PretargetingConfigList'{..}

158− = go _pclAccountId _pclQuotaUser

159− (Just _pclPrettyPrint)

160− _pclUserIP

161− _pclFields

162− _pclKey

163− _pclOAuthToken

164− (Just AltJSON)

80+ requestClient PretargetingConfigList'{..}

81+ = go _pclAccountId (Just AltJSON)

82+ adExchangeBuyerService

16583 where go

166− = clientBuild

84+ = buildClient

16785 (Proxy :: Proxy PretargetingConfigListResource)

168− rq

86+ mempty

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/PretargetingConfig/Patch.hs+12−94

@@ -34,15 +34,9 @@ module Network.Google.Resource.AdExchangeBuyer.PretargetingConfig.Patch

3434 , PretargetingConfigPatch'

3535

3636 -- * Request Lenses

37− , pcpQuotaUser

38− , pcpPrettyPrint

39− , pcpUserIP

4037 , pcpPayload

4138 , pcpAccountId

42− , pcpKey

4339 , pcpConfigId

44− , pcpOAuthToken

45− , pcpFields

4640 ) where

4741

4842import Network.Google.AdExchangeBuyer.Types

@@ -54,53 +48,29 @@ type PretargetingConfigPatchResource =

5448 "pretargetingconfigs" :>

5549 Capture "accountId" Int64 :>

5650 Capture "configId" Int64 :>

57− QueryParam "quotaUser" Text :>

58− QueryParam "prettyPrint" Bool :>

59− QueryParam "userIp" Text :>

60− QueryParam "fields" Text :>

61− QueryParam "key" AuthKey :>

62− Header "Authorization" OAuthToken :>

63− QueryParam "alt" AltJSON :>

64− ReqBody '[JSON] PretargetingConfig :>

65− Patch '[JSON] PretargetingConfig

51+ QueryParam "alt" AltJSON :>

52+ ReqBody '[JSON] PretargetingConfig :>

53+ Patch '[JSON] PretargetingConfig

6654

6755-- | Updates an existing pretargeting config. This method supports patch

6856-- semantics.

6957--

7058-- /See:/ 'pretargetingConfigPatch'' smart constructor.

7159data PretargetingConfigPatch' = PretargetingConfigPatch'

72− { _pcpQuotaUser :: !(Maybe Text)

73− , _pcpPrettyPrint :: !Bool

74− , _pcpUserIP :: !(Maybe Text)

75− , _pcpPayload :: !PretargetingConfig

76− , _pcpAccountId :: !Int64

77− , _pcpKey :: !(Maybe AuthKey)

78− , _pcpConfigId :: !Int64

79− , _pcpOAuthToken :: !(Maybe OAuthToken)

80− , _pcpFields :: !(Maybe Text)

60+ { _pcpPayload :: !PretargetingConfig

61+ , _pcpAccountId :: !Int64

62+ , _pcpConfigId :: !Int64

8163 } deriving (Eq,Show,Data,Typeable,Generic)

8264

8365-- | Creates a value of 'PretargetingConfigPatch'' with the minimum fields required to make a request.

8466--

8567-- Use one of the following lenses to modify other fields as desired:

8668--

87−-- * 'pcpQuotaUser'

88−--

89−-- * 'pcpPrettyPrint'

90−--

91−-- * 'pcpUserIP'

92−--

9369-- * 'pcpPayload'

9470--

9571-- * 'pcpAccountId'

9672--

97−-- * 'pcpKey'

98−--

9973-- * 'pcpConfigId'

100−--

101−-- * 'pcpOAuthToken'

102−--

103−-- * 'pcpFields'

10474pretargetingConfigPatch'

10575 :: PretargetingConfig -- ^ 'payload'

10676 -> Int64 -- ^ 'accountId'

@@ -108,36 +78,11 @@ pretargetingConfigPatch'

10878 -> PretargetingConfigPatch'

10979pretargetingConfigPatch' pPcpPayload_ pPcpAccountId_ pPcpConfigId_ =

11080 PretargetingConfigPatch'

111− { _pcpQuotaUser = Nothing

112− , _pcpPrettyPrint = True

113− , _pcpUserIP = Nothing

114− , _pcpPayload = pPcpPayload_

81+ { _pcpPayload = pPcpPayload_

11582 , _pcpAccountId = pPcpAccountId_

116− , _pcpKey = Nothing

11783 , _pcpConfigId = pPcpConfigId_

118− , _pcpOAuthToken = Nothing

119− , _pcpFields = Nothing

12084 }

12185

122−-- | Available to use for quota purposes for server-side applications. Can be

123−-- any arbitrary string assigned to a user, but should not exceed 40

124−-- characters. Overrides userIp if both are provided.

125−pcpQuotaUser :: Lens' PretargetingConfigPatch' (Maybe Text)

126−pcpQuotaUser

127− = lens _pcpQuotaUser (\ s a -> s{_pcpQuotaUser = a})

128−

129−-- | Returns response with indentations and line breaks.

130−pcpPrettyPrint :: Lens' PretargetingConfigPatch' Bool

131−pcpPrettyPrint

132− = lens _pcpPrettyPrint

133− (\ s a -> s{_pcpPrettyPrint = a})

134−

135−-- | IP address of the site where the request originates. Use this if you

136−-- want to enforce per-user limits.

137−pcpUserIP :: Lens' PretargetingConfigPatch' (Maybe Text)

138−pcpUserIP

139− = lens _pcpUserIP (\ s a -> s{_pcpUserIP = a})

140−

14186-- | Multipart request metadata.

14287pcpPayload :: Lens' PretargetingConfigPatch' PretargetingConfig

14388pcpPayload

@@ -148,45 +93,18 @@ pcpAccountId :: Lens' PretargetingConfigPatch' Int64

14893pcpAccountId

14994 = lens _pcpAccountId (\ s a -> s{_pcpAccountId = a})

15095

151−-- | API key. Your API key identifies your project and provides you with API

152−-- access, quota, and reports. Required unless you provide an OAuth 2.0

153−-- token.

154−pcpKey :: Lens' PretargetingConfigPatch' (Maybe AuthKey)

155−pcpKey = lens _pcpKey (\ s a -> s{_pcpKey = a})

156−

15796-- | The specific id of the configuration to update.

15897pcpConfigId :: Lens' PretargetingConfigPatch' Int64

15998pcpConfigId

16099 = lens _pcpConfigId (\ s a -> s{_pcpConfigId = a})

161100

162−-- | OAuth 2.0 token for the current user.

163−pcpOAuthToken :: Lens' PretargetingConfigPatch' (Maybe OAuthToken)

164−pcpOAuthToken

165− = lens _pcpOAuthToken

166− (\ s a -> s{_pcpOAuthToken = a})

167−

168−-- | Selector specifying which fields to include in a partial response.

169−pcpFields :: Lens' PretargetingConfigPatch' (Maybe Text)

170−pcpFields

171− = lens _pcpFields (\ s a -> s{_pcpFields = a})

172−

173−instance GoogleAuth PretargetingConfigPatch' where

174− _AuthKey = pcpKey . _Just

175− _AuthToken = pcpOAuthToken . _Just

176−

177101instance GoogleRequest PretargetingConfigPatch' where

178102 type Rs PretargetingConfigPatch' = PretargetingConfig

179− request = requestWith adExchangeBuyerRequest

180− requestWith rq PretargetingConfigPatch'{..}

181− = go _pcpAccountId _pcpConfigId _pcpQuotaUser

182− (Just _pcpPrettyPrint)

183− _pcpUserIP

184− _pcpFields

185− _pcpKey

186− _pcpOAuthToken

187− (Just AltJSON)

103+ requestClient PretargetingConfigPatch'{..}

104+ = go _pcpAccountId _pcpConfigId (Just AltJSON)

188105 _pcpPayload

106+ adExchangeBuyerService

189107 where go

190− = clientBuild

108+ = buildClient

191109 (Proxy :: Proxy PretargetingConfigPatchResource)

192− rq

110+ mempty

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/PretargetingConfig/Update.hs+12−94

@@ -33,15 +33,9 @@ module Network.Google.Resource.AdExchangeBuyer.PretargetingConfig.Update

3333 , PretargetingConfigUpdate'

3434

3535 -- * Request Lenses

36− , pcuQuotaUser

37− , pcuPrettyPrint

38− , pcuUserIP

3936 , pcuPayload

4037 , pcuAccountId

41− , pcuKey

4238 , pcuConfigId

43− , pcuOAuthToken

44− , pcuFields

4539 ) where

4640

4741import Network.Google.AdExchangeBuyer.Types

@@ -53,52 +47,28 @@ type PretargetingConfigUpdateResource =

5347 "pretargetingconfigs" :>

5448 Capture "accountId" Int64 :>

5549 Capture "configId" Int64 :>

56− QueryParam "quotaUser" Text :>

57− QueryParam "prettyPrint" Bool :>

58− QueryParam "userIp" Text :>

59− QueryParam "fields" Text :>

60− QueryParam "key" AuthKey :>

61− Header "Authorization" OAuthToken :>

62− QueryParam "alt" AltJSON :>

63− ReqBody '[JSON] PretargetingConfig :>

64− Put '[JSON] PretargetingConfig

50+ QueryParam "alt" AltJSON :>

51+ ReqBody '[JSON] PretargetingConfig :>

52+ Put '[JSON] PretargetingConfig

6553

6654-- | Updates an existing pretargeting config.

6755--

6856-- /See:/ 'pretargetingConfigUpdate'' smart constructor.

6957data PretargetingConfigUpdate' = PretargetingConfigUpdate'

70− { _pcuQuotaUser :: !(Maybe Text)

71− , _pcuPrettyPrint :: !Bool

72− , _pcuUserIP :: !(Maybe Text)

73− , _pcuPayload :: !PretargetingConfig

74− , _pcuAccountId :: !Int64

75− , _pcuKey :: !(Maybe AuthKey)

76− , _pcuConfigId :: !Int64

77− , _pcuOAuthToken :: !(Maybe OAuthToken)

78− , _pcuFields :: !(Maybe Text)

58+ { _pcuPayload :: !PretargetingConfig

59+ , _pcuAccountId :: !Int64

60+ , _pcuConfigId :: !Int64

7961 } deriving (Eq,Show,Data,Typeable,Generic)

8062

8163-- | Creates a value of 'PretargetingConfigUpdate'' with the minimum fields required to make a request.

8264--

8365-- Use one of the following lenses to modify other fields as desired:

8466--

85−-- * 'pcuQuotaUser'

86−--

87−-- * 'pcuPrettyPrint'

88−--

89−-- * 'pcuUserIP'

90−--

9167-- * 'pcuPayload'

9268--

9369-- * 'pcuAccountId'

9470--

95−-- * 'pcuKey'

96−--

9771-- * 'pcuConfigId'

98−--

99−-- * 'pcuOAuthToken'

100−--

101−-- * 'pcuFields'

10272pretargetingConfigUpdate'

10373 :: PretargetingConfig -- ^ 'payload'

10474 -> Int64 -- ^ 'accountId'

@@ -106,36 +76,11 @@ pretargetingConfigUpdate'

10676 -> PretargetingConfigUpdate'

10777pretargetingConfigUpdate' pPcuPayload_ pPcuAccountId_ pPcuConfigId_ =

10878 PretargetingConfigUpdate'

109− { _pcuQuotaUser = Nothing

110− , _pcuPrettyPrint = True

111− , _pcuUserIP = Nothing

112− , _pcuPayload = pPcuPayload_

79+ { _pcuPayload = pPcuPayload_

11380 , _pcuAccountId = pPcuAccountId_

114− , _pcuKey = Nothing

11581 , _pcuConfigId = pPcuConfigId_

116− , _pcuOAuthToken = Nothing

117− , _pcuFields = Nothing

11882 }

11983

120−-- | Available to use for quota purposes for server-side applications. Can be

121−-- any arbitrary string assigned to a user, but should not exceed 40

122−-- characters. Overrides userIp if both are provided.

123−pcuQuotaUser :: Lens' PretargetingConfigUpdate' (Maybe Text)

124−pcuQuotaUser

125− = lens _pcuQuotaUser (\ s a -> s{_pcuQuotaUser = a})

126−

127−-- | Returns response with indentations and line breaks.

128−pcuPrettyPrint :: Lens' PretargetingConfigUpdate' Bool

129−pcuPrettyPrint

130− = lens _pcuPrettyPrint

131− (\ s a -> s{_pcuPrettyPrint = a})

132−

133−-- | IP address of the site where the request originates. Use this if you

134−-- want to enforce per-user limits.

135−pcuUserIP :: Lens' PretargetingConfigUpdate' (Maybe Text)

136−pcuUserIP

137− = lens _pcuUserIP (\ s a -> s{_pcuUserIP = a})

138−

13984-- | Multipart request metadata.

14085pcuPayload :: Lens' PretargetingConfigUpdate' PretargetingConfig

14186pcuPayload

@@ -146,47 +91,20 @@ pcuAccountId :: Lens' PretargetingConfigUpdate' Int64

14691pcuAccountId

14792 = lens _pcuAccountId (\ s a -> s{_pcuAccountId = a})

14893

149−-- | API key. Your API key identifies your project and provides you with API

150−-- access, quota, and reports. Required unless you provide an OAuth 2.0

151−-- token.

152−pcuKey :: Lens' PretargetingConfigUpdate' (Maybe AuthKey)

153−pcuKey = lens _pcuKey (\ s a -> s{_pcuKey = a})

154−

15594-- | The specific id of the configuration to update.

15695pcuConfigId :: Lens' PretargetingConfigUpdate' Int64

15796pcuConfigId

15897 = lens _pcuConfigId (\ s a -> s{_pcuConfigId = a})

15998

160−-- | OAuth 2.0 token for the current user.

161−pcuOAuthToken :: Lens' PretargetingConfigUpdate' (Maybe OAuthToken)

162−pcuOAuthToken

163− = lens _pcuOAuthToken

164− (\ s a -> s{_pcuOAuthToken = a})

165−

166−-- | Selector specifying which fields to include in a partial response.

167−pcuFields :: Lens' PretargetingConfigUpdate' (Maybe Text)

168−pcuFields

169− = lens _pcuFields (\ s a -> s{_pcuFields = a})

170−

171−instance GoogleAuth PretargetingConfigUpdate' where

172− _AuthKey = pcuKey . _Just

173− _AuthToken = pcuOAuthToken . _Just

174−

17599instance GoogleRequest PretargetingConfigUpdate'

176100 where

177101 type Rs PretargetingConfigUpdate' =

178102 PretargetingConfig

179− request = requestWith adExchangeBuyerRequest

180− requestWith rq PretargetingConfigUpdate'{..}

181− = go _pcuAccountId _pcuConfigId _pcuQuotaUser

182− (Just _pcuPrettyPrint)

183− _pcuUserIP

184− _pcuFields

185− _pcuKey

186− _pcuOAuthToken

187− (Just AltJSON)

103+ requestClient PretargetingConfigUpdate'{..}

104+ = go _pcuAccountId _pcuConfigId (Just AltJSON)

188105 _pcuPayload

106+ adExchangeBuyerService

189107 where go

190− = clientBuild

108+ = buildClient

191109 (Proxy :: Proxy PretargetingConfigUpdateResource)

192− rq

110+ mempty

gogol-adexchange-seller/gen/Network/Google/AdExchangeSeller.hs+4−1

@@ -19,8 +19,11 @@

1919-- /See:/ <https://developers.google.com/ad-exchange/seller-rest/ Ad Exchange Seller API Reference>

2020module Network.Google.AdExchangeSeller

2121 (

22+ -- * Service Configuration

23+ adExchangeSellerService

24+

2225 -- * API Declaration

23− AdExchangeSellerAPI

26+ , AdExchangeSellerAPI

2427

2528 -- * Resources

2629

gogol-adexchange-seller/gen/Network/Google/AdExchangeSeller/Types.hs+18−5

@@ -15,8 +15,12 @@

1515--

1616module Network.Google.AdExchangeSeller.Types

1717 (

18− -- * Service Request

19− adExchangeSellerRequest

18+ -- * Service Configuration

19+ adExchangeSellerService

20+

21+ -- * OAuth Scopes

22+ , adexchangeSellerReadonlyScope

23+ , adexchangeSellerScope

2024

2125 -- * AdClients

2226 , AdClients

@@ -179,7 +183,16 @@ import Network.Google.AdExchangeSeller.Types.Sum

179183import Network.Google.Prelude

180184

181185-- | Default request referring to version 'v2.0' of the Ad Exchange Seller API. This contains the host and root path used as a starting point for constructing service requests.

182−adExchangeSellerRequest :: RequestBuilder

183−adExchangeSellerRequest

184− = defaultRequest "https://www.googleapis.com/"

186+adExchangeSellerService :: Service

187+adExchangeSellerService

188+ = defaultService (ServiceId "adexchangeseller:v2.0")

189+ "www.googleapis.com"

185190 "adexchangeseller/v2.0/"

191+

192+-- | View your Ad Exchange data

193+adexchangeSellerReadonlyScope :: OAuthScope

194+adexchangeSellerReadonlyScope = OAuthScope "https://www.googleapis.com/auth/adexchange.seller.readonly";

195+

196+-- | View and manage your Ad Exchange data

197+adexchangeSellerScope :: OAuthScope

198+adexchangeSellerScope = OAuthScope "https://www.googleapis.com/auth/adexchange.seller";

gogol-adexchange-seller/gen/Network/Google/Resource/AdExchangeSeller/Accounts/AdClients/List.hs+9−92

@@ -33,15 +33,9 @@ module Network.Google.Resource.AdExchangeSeller.Accounts.AdClients.List

3333 , AccountsAdClientsList'

3434

3535 -- * Request Lenses

36− , aaclQuotaUser

37− , aaclPrettyPrint

38− , aaclUserIP

3936 , aaclAccountId

40− , aaclKey

4137 , aaclPageToken

42− , aaclOAuthToken

4338 , aaclMaxResults

44− , aaclFields

4539 ) where

4640

4741import Network.Google.AdExchangeSeller.Types

@@ -55,98 +49,42 @@ type AccountsAdClientsListResource =

5549 "adclients" :>

5650 QueryParam "pageToken" Text :>

5751 QueryParam "maxResults" Word32 :>

58− QueryParam "quotaUser" Text :>

59− QueryParam "prettyPrint" Bool :>

60− QueryParam "userIp" Text :>

61− QueryParam "fields" Text :>

62− QueryParam "key" AuthKey :>

63− Header "Authorization" OAuthToken :>

64− QueryParam "alt" AltJSON :> Get '[JSON] AdClients

52+ QueryParam "alt" AltJSON :> Get '[JSON] AdClients

6553

6654-- | List all ad clients in this Ad Exchange account.

6755--

6856-- /See:/ 'accountsAdClientsList'' smart constructor.

6957data AccountsAdClientsList' = AccountsAdClientsList'

70− { _aaclQuotaUser :: !(Maybe Text)

71− , _aaclPrettyPrint :: !Bool

72− , _aaclUserIP :: !(Maybe Text)

73− , _aaclAccountId :: !Text

74− , _aaclKey :: !(Maybe AuthKey)

75− , _aaclPageToken :: !(Maybe Text)

76− , _aaclOAuthToken :: !(Maybe OAuthToken)

77− , _aaclMaxResults :: !(Maybe Word32)

78− , _aaclFields :: !(Maybe Text)

58+ { _aaclAccountId :: !Text

59+ , _aaclPageToken :: !(Maybe Text)

60+ , _aaclMaxResults :: !(Maybe Word32)

7961 } deriving (Eq,Show,Data,Typeable,Generic)

8062

8163-- | Creates a value of 'AccountsAdClientsList'' with the minimum fields required to make a request.

8264--

8365-- Use one of the following lenses to modify other fields as desired:

8466--

85−-- * 'aaclQuotaUser'

86−--

87−-- * 'aaclPrettyPrint'

88−--

89−-- * 'aaclUserIP'

90−--

9167-- * 'aaclAccountId'

9268--

93−-- * 'aaclKey'

94−--

9569-- * 'aaclPageToken'

9670--

97−-- * 'aaclOAuthToken'

98−--

9971-- * 'aaclMaxResults'

100−--

101−-- * 'aaclFields'

10272accountsAdClientsList'

10373 :: Text -- ^ 'accountId'

10474 -> AccountsAdClientsList'

10575accountsAdClientsList' pAaclAccountId_ =

10676 AccountsAdClientsList'

107− { _aaclQuotaUser = Nothing

108− , _aaclPrettyPrint = True

109− , _aaclUserIP = Nothing

110− , _aaclAccountId = pAaclAccountId_

111− , _aaclKey = Nothing

77+ { _aaclAccountId = pAaclAccountId_

11278 , _aaclPageToken = Nothing

113− , _aaclOAuthToken = Nothing

11479 , _aaclMaxResults = Nothing

115− , _aaclFields = Nothing

11680 }

11781

118−-- | Available to use for quota purposes for server-side applications. Can be

119−-- any arbitrary string assigned to a user, but should not exceed 40

120−-- characters. Overrides userIp if both are provided.

121−aaclQuotaUser :: Lens' AccountsAdClientsList' (Maybe Text)

122−aaclQuotaUser

123− = lens _aaclQuotaUser

124− (\ s a -> s{_aaclQuotaUser = a})

125−

126−-- | Returns response with indentations and line breaks.

127−aaclPrettyPrint :: Lens' AccountsAdClientsList' Bool

128−aaclPrettyPrint

129− = lens _aaclPrettyPrint

130− (\ s a -> s{_aaclPrettyPrint = a})

131−

132−-- | IP address of the site where the request originates. Use this if you

133−-- want to enforce per-user limits.

134−aaclUserIP :: Lens' AccountsAdClientsList' (Maybe Text)

135−aaclUserIP

136− = lens _aaclUserIP (\ s a -> s{_aaclUserIP = a})

137−

13882-- | Account to which the ad client belongs.

13983aaclAccountId :: Lens' AccountsAdClientsList' Text

14084aaclAccountId

14185 = lens _aaclAccountId

14286 (\ s a -> s{_aaclAccountId = a})

14387

144−-- | API key. Your API key identifies your project and provides you with API

145−-- access, quota, and reports. Required unless you provide an OAuth 2.0

146−-- token.

147−aaclKey :: Lens' AccountsAdClientsList' (Maybe AuthKey)

148−aaclKey = lens _aaclKey (\ s a -> s{_aaclKey = a})

149−

15088-- | A continuation token, used to page through ad clients. To retrieve the

15189-- next page, set this parameter to the value of \"nextPageToken\" from the

15290-- previous response.

@@ -155,12 +93,6 @@ aaclPageToken

15593 = lens _aaclPageToken

15694 (\ s a -> s{_aaclPageToken = a})

15795

158−-- | OAuth 2.0 token for the current user.

159−aaclOAuthToken :: Lens' AccountsAdClientsList' (Maybe OAuthToken)

160−aaclOAuthToken

161− = lens _aaclOAuthToken

162− (\ s a -> s{_aaclOAuthToken = a})

163−

16496-- | The maximum number of ad clients to include in the response, used for

16597-- paging.

16698aaclMaxResults :: Lens' AccountsAdClientsList' (Maybe Word32)

@@ -168,28 +100,13 @@ aaclMaxResults

168100 = lens _aaclMaxResults

169101 (\ s a -> s{_aaclMaxResults = a})

170102

171−-- | Selector specifying which fields to include in a partial response.

172−aaclFields :: Lens' AccountsAdClientsList' (Maybe Text)

173−aaclFields

174− = lens _aaclFields (\ s a -> s{_aaclFields = a})

175−

176−instance GoogleAuth AccountsAdClientsList' where

177− _AuthKey = aaclKey . _Just

178− _AuthToken = aaclOAuthToken . _Just

179−

180103instance GoogleRequest AccountsAdClientsList' where

181104 type Rs AccountsAdClientsList' = AdClients

182− request = requestWith adExchangeSellerRequest

183− requestWith rq AccountsAdClientsList'{..}

105+ requestClient AccountsAdClientsList'{..}

184106 = go _aaclAccountId _aaclPageToken _aaclMaxResults

185− _aaclQuotaUser

186− (Just _aaclPrettyPrint)

187− _aaclUserIP

188− _aaclFields

189− _aaclKey

190− _aaclOAuthToken

191107 (Just AltJSON)

108+ adExchangeSellerService

192109 where go

193− = clientBuild

110+ = buildClient

194111 (Proxy :: Proxy AccountsAdClientsListResource)

195− rq

112+ mempty

gogol-adexchange-seller/gen/Network/Google/Resource/AdExchangeSeller/Accounts/Alerts/List.hs+9−91

@@ -33,14 +33,8 @@ module Network.Google.Resource.AdExchangeSeller.Accounts.Alerts.List

3333 , AccountsAlertsList'

3434

3535 -- * Request Lenses

36− , aalQuotaUser

37− , aalPrettyPrint

38− , aalUserIP

3936 , aalLocale

4037 , aalAccountId

41− , aalKey

42− , aalOAuthToken

43− , aalFields

4438 ) where

4539

4640import Network.Google.AdExchangeSeller.Types

@@ -53,81 +47,32 @@ type AccountsAlertsListResource =

5347 Capture "accountId" Text :>

5448 "alerts" :>

5549 QueryParam "locale" Text :>

56− QueryParam "quotaUser" Text :>

57− QueryParam "prettyPrint" Bool :>

58− QueryParam "userIp" Text :>

59− QueryParam "fields" Text :>

60− QueryParam "key" AuthKey :>

61− Header "Authorization" OAuthToken :>

62− QueryParam "alt" AltJSON :> Get '[JSON] Alerts

50+ QueryParam "alt" AltJSON :> Get '[JSON] Alerts

6351

6452-- | List the alerts for this Ad Exchange account.

6553--

6654-- /See:/ 'accountsAlertsList'' smart constructor.

6755data AccountsAlertsList' = AccountsAlertsList'

68− { _aalQuotaUser :: !(Maybe Text)

69− , _aalPrettyPrint :: !Bool

70− , _aalUserIP :: !(Maybe Text)

71− , _aalLocale :: !(Maybe Text)

72− , _aalAccountId :: !Text

73− , _aalKey :: !(Maybe AuthKey)

74− , _aalOAuthToken :: !(Maybe OAuthToken)

75− , _aalFields :: !(Maybe Text)

56+ { _aalLocale :: !(Maybe Text)

57+ , _aalAccountId :: !Text

7658 } deriving (Eq,Show,Data,Typeable,Generic)

7759

7860-- | Creates a value of 'AccountsAlertsList'' with the minimum fields required to make a request.

7961--

8062-- Use one of the following lenses to modify other fields as desired:

8163--

82−-- * 'aalQuotaUser'

83−--

84−-- * 'aalPrettyPrint'

85−--

86−-- * 'aalUserIP'

87−--

8864-- * 'aalLocale'

8965--

9066-- * 'aalAccountId'

91−--

92−-- * 'aalKey'

93−--

94−-- * 'aalOAuthToken'

95−--

96−-- * 'aalFields'

9767accountsAlertsList'

9868 :: Text -- ^ 'accountId'

9969 -> AccountsAlertsList'

10070accountsAlertsList' pAalAccountId_ =

10171 AccountsAlertsList'

102− { _aalQuotaUser = Nothing

103− , _aalPrettyPrint = True

104− , _aalUserIP = Nothing

105− , _aalLocale = Nothing

72+ { _aalLocale = Nothing

10673 , _aalAccountId = pAalAccountId_

107− , _aalKey = Nothing

108− , _aalOAuthToken = Nothing

109− , _aalFields = Nothing

11074 }

11175

112−-- | Available to use for quota purposes for server-side applications. Can be

113−-- any arbitrary string assigned to a user, but should not exceed 40

114−-- characters. Overrides userIp if both are provided.

115−aalQuotaUser :: Lens' AccountsAlertsList' (Maybe Text)

116−aalQuotaUser

117− = lens _aalQuotaUser (\ s a -> s{_aalQuotaUser = a})

118−

119−-- | Returns response with indentations and line breaks.

120−aalPrettyPrint :: Lens' AccountsAlertsList' Bool

121−aalPrettyPrint

122− = lens _aalPrettyPrint

123− (\ s a -> s{_aalPrettyPrint = a})

124−

125−-- | IP address of the site where the request originates. Use this if you

126−-- want to enforce per-user limits.

127−aalUserIP :: Lens' AccountsAlertsList' (Maybe Text)

128−aalUserIP

129− = lens _aalUserIP (\ s a -> s{_aalUserIP = a})

130−

13176-- | The locale to use for translating alert messages. The account locale

13277-- will be used if this is not supplied. The AdSense default (English) will

13378-- be used if the supplied locale is invalid or unsupported.

@@ -140,39 +85,12 @@ aalAccountId :: Lens' AccountsAlertsList' Text

14085aalAccountId

14186 = lens _aalAccountId (\ s a -> s{_aalAccountId = a})

14287

143−-- | API key. Your API key identifies your project and provides you with API

144−-- access, quota, and reports. Required unless you provide an OAuth 2.0

145−-- token.

146−aalKey :: Lens' AccountsAlertsList' (Maybe AuthKey)

147−aalKey = lens _aalKey (\ s a -> s{_aalKey = a})

148−

149−-- | OAuth 2.0 token for the current user.

150−aalOAuthToken :: Lens' AccountsAlertsList' (Maybe OAuthToken)

151−aalOAuthToken

152− = lens _aalOAuthToken

153− (\ s a -> s{_aalOAuthToken = a})

154−

155−-- | Selector specifying which fields to include in a partial response.

156−aalFields :: Lens' AccountsAlertsList' (Maybe Text)

157−aalFields

158− = lens _aalFields (\ s a -> s{_aalFields = a})

159−

160−instance GoogleAuth AccountsAlertsList' where

161− _AuthKey = aalKey . _Just

162− _AuthToken = aalOAuthToken . _Just

163−

16488instance GoogleRequest AccountsAlertsList' where

16589 type Rs AccountsAlertsList' = Alerts

166− request = requestWith adExchangeSellerRequest

167− requestWith rq AccountsAlertsList'{..}

168− = go _aalAccountId _aalLocale _aalQuotaUser

169− (Just _aalPrettyPrint)

170− _aalUserIP

171− _aalFields

172− _aalKey

173− _aalOAuthToken

174− (Just AltJSON)

90+ requestClient AccountsAlertsList'{..}

91+ = go _aalAccountId _aalLocale (Just AltJSON)

92+ adExchangeSellerService

17593 where go

176− = clientBuild

94+ = buildClient

17795 (Proxy :: Proxy AccountsAlertsListResource)

178− rq

96+ mempty

gogol-adexchange-seller/gen/Network/Google/Resource/AdExchangeSeller/Accounts/CustomChannels/Get.hs+7−91

@@ -33,15 +33,9 @@ module Network.Google.Resource.AdExchangeSeller.Accounts.CustomChannels.Get

3333 , AccountsCustomChannelsGet'

3434

3535 -- * Request Lenses

36− , accgQuotaUser

37− , accgPrettyPrint

3836 , accgCustomChannelId

39− , accgUserIP

4037 , accgAdClientId

4138 , accgAccountId

42− , accgKey

43− , accgOAuthToken

44− , accgFields

4539 ) where

4640

4741import Network.Google.AdExchangeSeller.Types

@@ -56,51 +50,26 @@ type AccountsCustomChannelsGetResource =

5650 Capture "adClientId" Text :>

5751 "customchannels" :>

5852 Capture "customChannelId" Text :>

59− QueryParam "quotaUser" Text :>

60− QueryParam "prettyPrint" Bool :>

61− QueryParam "userIp" Text :>

62− QueryParam "fields" Text :>

63− QueryParam "key" AuthKey :>

64− Header "Authorization" OAuthToken :>

65− QueryParam "alt" AltJSON :>

66− Get '[JSON] CustomChannel

53+ QueryParam "alt" AltJSON :> Get '[JSON] CustomChannel

6754

6855-- | Get the specified custom channel from the specified ad client.

6956--

7057-- /See:/ 'accountsCustomChannelsGet'' smart constructor.

7158data AccountsCustomChannelsGet' = AccountsCustomChannelsGet'

72− { _accgQuotaUser :: !(Maybe Text)

73− , _accgPrettyPrint :: !Bool

74− , _accgCustomChannelId :: !Text

75− , _accgUserIP :: !(Maybe Text)

59+ { _accgCustomChannelId :: !Text

7660 , _accgAdClientId :: !Text

7761 , _accgAccountId :: !Text

78− , _accgKey :: !(Maybe AuthKey)

79− , _accgOAuthToken :: !(Maybe OAuthToken)

80− , _accgFields :: !(Maybe Text)

8162 } deriving (Eq,Show,Data,Typeable,Generic)

8263

8364-- | Creates a value of 'AccountsCustomChannelsGet'' with the minimum fields required to make a request.

8465--

8566-- Use one of the following lenses to modify other fields as desired:

8667--

87−-- * 'accgQuotaUser'

88−--

89−-- * 'accgPrettyPrint'

90−--

9168-- * 'accgCustomChannelId'

9269--

93−-- * 'accgUserIP'

94−--

9570-- * 'accgAdClientId'

9671--

9772-- * 'accgAccountId'

98−--

99−-- * 'accgKey'

100−--

101−-- * 'accgOAuthToken'

102−--

103−-- * 'accgFields'

10473accountsCustomChannelsGet'

10574 :: Text -- ^ 'customChannelId'

10675 -> Text -- ^ 'adClientId'

@@ -108,43 +77,17 @@ accountsCustomChannelsGet'

10877 -> AccountsCustomChannelsGet'

10978accountsCustomChannelsGet' pAccgCustomChannelId_ pAccgAdClientId_ pAccgAccountId_ =

11079 AccountsCustomChannelsGet'

111− { _accgQuotaUser = Nothing

112− , _accgPrettyPrint = True

113− , _accgCustomChannelId = pAccgCustomChannelId_

114− , _accgUserIP = Nothing

80+ { _accgCustomChannelId = pAccgCustomChannelId_

11581 , _accgAdClientId = pAccgAdClientId_

11682 , _accgAccountId = pAccgAccountId_

117− , _accgKey = Nothing

118− , _accgOAuthToken = Nothing

119− , _accgFields = Nothing

12083 }

12184

122−-- | Available to use for quota purposes for server-side applications. Can be

123−-- any arbitrary string assigned to a user, but should not exceed 40

124−-- characters. Overrides userIp if both are provided.

125−accgQuotaUser :: Lens' AccountsCustomChannelsGet' (Maybe Text)

126−accgQuotaUser

127− = lens _accgQuotaUser

128− (\ s a -> s{_accgQuotaUser = a})

129−

130−-- | Returns response with indentations and line breaks.

131−accgPrettyPrint :: Lens' AccountsCustomChannelsGet' Bool

132−accgPrettyPrint

133− = lens _accgPrettyPrint

134− (\ s a -> s{_accgPrettyPrint = a})

135−

13685-- | Custom channel to retrieve.

13786accgCustomChannelId :: Lens' AccountsCustomChannelsGet' Text

13887accgCustomChannelId

13988 = lens _accgCustomChannelId

14089 (\ s a -> s{_accgCustomChannelId = a})

14190

142−-- | IP address of the site where the request originates. Use this if you

143−-- want to enforce per-user limits.

144−accgUserIP :: Lens' AccountsCustomChannelsGet' (Maybe Text)

145−accgUserIP

146− = lens _accgUserIP (\ s a -> s{_accgUserIP = a})

147−

14891-- | Ad client which contains the custom channel.

14992accgAdClientId :: Lens' AccountsCustomChannelsGet' Text

15093accgAdClientId

@@ -157,42 +100,15 @@ accgAccountId

157100 = lens _accgAccountId

158101 (\ s a -> s{_accgAccountId = a})

159102

160−-- | API key. Your API key identifies your project and provides you with API

161−-- access, quota, and reports. Required unless you provide an OAuth 2.0

162−-- token.

163−accgKey :: Lens' AccountsCustomChannelsGet' (Maybe AuthKey)

164−accgKey = lens _accgKey (\ s a -> s{_accgKey = a})

165−

166−-- | OAuth 2.0 token for the current user.

167−accgOAuthToken :: Lens' AccountsCustomChannelsGet' (Maybe OAuthToken)

168−accgOAuthToken

169− = lens _accgOAuthToken

170− (\ s a -> s{_accgOAuthToken = a})

171−

172−-- | Selector specifying which fields to include in a partial response.

173−accgFields :: Lens' AccountsCustomChannelsGet' (Maybe Text)

174−accgFields

175− = lens _accgFields (\ s a -> s{_accgFields = a})

176−

177−instance GoogleAuth AccountsCustomChannelsGet' where

178− _AuthKey = accgKey . _Just

179− _AuthToken = accgOAuthToken . _Just

180−

181103instance GoogleRequest AccountsCustomChannelsGet'

182104 where

183105 type Rs AccountsCustomChannelsGet' = CustomChannel

184− request = requestWith adExchangeSellerRequest

185− requestWith rq AccountsCustomChannelsGet'{..}

106+ requestClient AccountsCustomChannelsGet'{..}

186107 = go _accgAccountId _accgAdClientId

187108 _accgCustomChannelId

188− _accgQuotaUser

189− (Just _accgPrettyPrint)

190− _accgUserIP

191− _accgFields

192− _accgKey

193− _accgOAuthToken

194109 (Just AltJSON)

110+ adExchangeSellerService

195111 where go

196− = clientBuild

112+ = buildClient

197113 (Proxy :: Proxy AccountsCustomChannelsGetResource)

198− rq

114+ mempty

gogol-adexchange-seller/gen/Network/Google/Resource/AdExchangeSeller/Accounts/CustomChannels/List.hs+11−94

@@ -34,16 +34,10 @@ module Network.Google.Resource.AdExchangeSeller.Accounts.CustomChannels.List

3434 , AccountsCustomChannelsList'

3535

3636 -- * Request Lenses

37− , acclQuotaUser

38− , acclPrettyPrint

39− , acclUserIP

4037 , acclAdClientId

4138 , acclAccountId

42− , acclKey

4339 , acclPageToken

44− , acclOAuthToken

4540 , acclMaxResults

46− , acclFields

4741 ) where

4842

4943import Network.Google.AdExchangeSeller.Types

@@ -59,93 +53,43 @@ type AccountsCustomChannelsListResource =

5953 "customchannels" :>

6054 QueryParam "pageToken" Text :>

6155 QueryParam "maxResults" Word32 :>

62− QueryParam "quotaUser" Text :>

63− QueryParam "prettyPrint" Bool :>

64− QueryParam "userIp" Text :>

65− QueryParam "fields" Text :>

66− QueryParam "key" AuthKey :>

67− Header "Authorization" OAuthToken :>

68− QueryParam "alt" AltJSON :>

69− Get '[JSON] CustomChannels

56+ QueryParam "alt" AltJSON :>

57+ Get '[JSON] CustomChannels

7058

7159-- | List all custom channels in the specified ad client for this Ad Exchange

7260-- account.

7361--

7462-- /See:/ 'accountsCustomChannelsList'' smart constructor.

7563data AccountsCustomChannelsList' = AccountsCustomChannelsList'

76− { _acclQuotaUser :: !(Maybe Text)

77− , _acclPrettyPrint :: !Bool

78− , _acclUserIP :: !(Maybe Text)

79− , _acclAdClientId :: !Text

80− , _acclAccountId :: !Text

81− , _acclKey :: !(Maybe AuthKey)

82− , _acclPageToken :: !(Maybe Text)

83− , _acclOAuthToken :: !(Maybe OAuthToken)

84− , _acclMaxResults :: !(Maybe Word32)

85− , _acclFields :: !(Maybe Text)

64+ { _acclAdClientId :: !Text

65+ , _acclAccountId :: !Text

66+ , _acclPageToken :: !(Maybe Text)

67+ , _acclMaxResults :: !(Maybe Word32)

8668 } deriving (Eq,Show,Data,Typeable,Generic)

8769

8870-- | Creates a value of 'AccountsCustomChannelsList'' with the minimum fields required to make a request.

8971--

9072-- Use one of the following lenses to modify other fields as desired:

9173--

92−-- * 'acclQuotaUser'

93−--

94−-- * 'acclPrettyPrint'

95−--

96−-- * 'acclUserIP'

97−--

9874-- * 'acclAdClientId'

9975--

10076-- * 'acclAccountId'

10177--

102−-- * 'acclKey'

103−--

10478-- * 'acclPageToken'

10579--

106−-- * 'acclOAuthToken'

107−--

10880-- * 'acclMaxResults'

109−--

110−-- * 'acclFields'

11181accountsCustomChannelsList'

11282 :: Text -- ^ 'adClientId'

11383 -> Text -- ^ 'accountId'

11484 -> AccountsCustomChannelsList'

11585accountsCustomChannelsList' pAcclAdClientId_ pAcclAccountId_ =

11686 AccountsCustomChannelsList'

117− { _acclQuotaUser = Nothing

118− , _acclPrettyPrint = True

119− , _acclUserIP = Nothing

120− , _acclAdClientId = pAcclAdClientId_

87+ { _acclAdClientId = pAcclAdClientId_

12188 , _acclAccountId = pAcclAccountId_

122− , _acclKey = Nothing

12389 , _acclPageToken = Nothing

124− , _acclOAuthToken = Nothing

12590 , _acclMaxResults = Nothing

126− , _acclFields = Nothing

12791 }

12892

129−-- | Available to use for quota purposes for server-side applications. Can be

130−-- any arbitrary string assigned to a user, but should not exceed 40

131−-- characters. Overrides userIp if both are provided.

132−acclQuotaUser :: Lens' AccountsCustomChannelsList' (Maybe Text)

133−acclQuotaUser

134− = lens _acclQuotaUser

135− (\ s a -> s{_acclQuotaUser = a})

136−

137−-- | Returns response with indentations and line breaks.

138−acclPrettyPrint :: Lens' AccountsCustomChannelsList' Bool

139−acclPrettyPrint

140− = lens _acclPrettyPrint

141− (\ s a -> s{_acclPrettyPrint = a})

142−

143−-- | IP address of the site where the request originates. Use this if you

144−-- want to enforce per-user limits.

145−acclUserIP :: Lens' AccountsCustomChannelsList' (Maybe Text)

146−acclUserIP

147− = lens _acclUserIP (\ s a -> s{_acclUserIP = a})

148−

14993-- | Ad client for which to list custom channels.

15094acclAdClientId :: Lens' AccountsCustomChannelsList' Text

15195acclAdClientId

@@ -158,12 +102,6 @@ acclAccountId

158102 = lens _acclAccountId

159103 (\ s a -> s{_acclAccountId = a})

160104

161−-- | API key. Your API key identifies your project and provides you with API

162−-- access, quota, and reports. Required unless you provide an OAuth 2.0

163−-- token.

164−acclKey :: Lens' AccountsCustomChannelsList' (Maybe AuthKey)

165−acclKey = lens _acclKey (\ s a -> s{_acclKey = a})

166−

167105-- | A continuation token, used to page through custom channels. To retrieve

168106-- the next page, set this parameter to the value of \"nextPageToken\" from

169107-- the previous response.

@@ -172,12 +110,6 @@ acclPageToken

172110 = lens _acclPageToken

173111 (\ s a -> s{_acclPageToken = a})

174112

175−-- | OAuth 2.0 token for the current user.

176−acclOAuthToken :: Lens' AccountsCustomChannelsList' (Maybe OAuthToken)

177−acclOAuthToken

178− = lens _acclOAuthToken

179− (\ s a -> s{_acclOAuthToken = a})

180−

181113-- | The maximum number of custom channels to include in the response, used

182114-- for paging.

183115acclMaxResults :: Lens' AccountsCustomChannelsList' (Maybe Word32)

@@ -185,30 +117,15 @@ acclMaxResults

185117 = lens _acclMaxResults

186118 (\ s a -> s{_acclMaxResults = a})

187119

188−-- | Selector specifying which fields to include in a partial response.

189−acclFields :: Lens' AccountsCustomChannelsList' (Maybe Text)

190−acclFields

191− = lens _acclFields (\ s a -> s{_acclFields = a})

192−

193−instance GoogleAuth AccountsCustomChannelsList' where

194− _AuthKey = acclKey . _Just

195− _AuthToken = acclOAuthToken . _Just

196−

197120instance GoogleRequest AccountsCustomChannelsList'

198121 where

199122 type Rs AccountsCustomChannelsList' = CustomChannels

200− request = requestWith adExchangeSellerRequest

201− requestWith rq AccountsCustomChannelsList'{..}

123+ requestClient AccountsCustomChannelsList'{..}

202124 = go _acclAccountId _acclAdClientId _acclPageToken

203125 _acclMaxResults

204− _acclQuotaUser

205− (Just _acclPrettyPrint)

206− _acclUserIP

207− _acclFields

208− _acclKey

209− _acclOAuthToken

210126 (Just AltJSON)

127+ adExchangeSellerService

211128 where go

212− = clientBuild

129+ = buildClient

213130 (Proxy :: Proxy AccountsCustomChannelsListResource)

214− rq

131+ mempty

gogol-adexchange-seller/gen/Network/Google/Resource/AdExchangeSeller/Accounts/Get.hs+9−86

@@ -33,13 +33,7 @@ module Network.Google.Resource.AdExchangeSeller.Accounts.Get

3333 , AccountsGet'

3434

3535 -- * Request Lenses

36− , agQuotaUser

37− , agPrettyPrint

38− , agUserIP

3936 , agAccountId

40− , agKey

41− , agOAuthToken

42− , agFields

4337 ) where

4438

4539import Network.Google.AdExchangeSeller.Types

@@ -50,109 +44,38 @@ import Network.Google.Prelude

5044type AccountsGetResource =

5145 "accounts" :>

5246 Capture "accountId" Text :>

53− QueryParam "quotaUser" Text :>

54− QueryParam "prettyPrint" Bool :>

55− QueryParam "userIp" Text :>

56− QueryParam "fields" Text :>

57− QueryParam "key" AuthKey :>

58− Header "Authorization" OAuthToken :>

59− QueryParam "alt" AltJSON :> Get '[JSON] Account

47+ QueryParam "alt" AltJSON :> Get '[JSON] Account

6048

6149-- | Get information about the selected Ad Exchange account.

6250--

6351-- /See:/ 'accountsGet'' smart constructor.

64−data AccountsGet' = AccountsGet'

65− { _agQuotaUser :: !(Maybe Text)

66− , _agPrettyPrint :: !Bool

67− , _agUserIP :: !(Maybe Text)

68− , _agAccountId :: !Text

69− , _agKey :: !(Maybe AuthKey)

70− , _agOAuthToken :: !(Maybe OAuthToken)

71− , _agFields :: !(Maybe Text)

52+newtype AccountsGet' = AccountsGet'

53+ { _agAccountId :: Text

7254 } deriving (Eq,Show,Data,Typeable,Generic)

7355

7456-- | Creates a value of 'AccountsGet'' with the minimum fields required to make a request.

7557--

7658-- Use one of the following lenses to modify other fields as desired:

7759--

78−-- * 'agQuotaUser'

79−--

80−-- * 'agPrettyPrint'

81−--

82−-- * 'agUserIP'

83−--

8460-- * 'agAccountId'

85−--

86−-- * 'agKey'

87−--

88−-- * 'agOAuthToken'

89−--

90−-- * 'agFields'

9161accountsGet'

9262 :: Text -- ^ 'accountId'

9363 -> AccountsGet'

9464accountsGet' pAgAccountId_ =

9565 AccountsGet'

96− { _agQuotaUser = Nothing

97− , _agPrettyPrint = True

98− , _agUserIP = Nothing

99− , _agAccountId = pAgAccountId_

100− , _agKey = Nothing

101− , _agOAuthToken = Nothing

102− , _agFields = Nothing

66+ { _agAccountId = pAgAccountId_

10367 }

10468

105−-- | Available to use for quota purposes for server-side applications. Can be

106−-- any arbitrary string assigned to a user, but should not exceed 40

107−-- characters. Overrides userIp if both are provided.

108−agQuotaUser :: Lens' AccountsGet' (Maybe Text)

109−agQuotaUser

110− = lens _agQuotaUser (\ s a -> s{_agQuotaUser = a})

111−

112−-- | Returns response with indentations and line breaks.

113−agPrettyPrint :: Lens' AccountsGet' Bool

114−agPrettyPrint

115− = lens _agPrettyPrint

116− (\ s a -> s{_agPrettyPrint = a})

117−

118−-- | IP address of the site where the request originates. Use this if you

119−-- want to enforce per-user limits.

120−agUserIP :: Lens' AccountsGet' (Maybe Text)

121−agUserIP = lens _agUserIP (\ s a -> s{_agUserIP = a})

122−

12369-- | Account to get information about. Tip: \'myaccount\' is a valid ID.

12470agAccountId :: Lens' AccountsGet' Text

12571agAccountId

12672 = lens _agAccountId (\ s a -> s{_agAccountId = a})

12773

128−-- | API key. Your API key identifies your project and provides you with API

129−-- access, quota, and reports. Required unless you provide an OAuth 2.0

130−-- token.

131−agKey :: Lens' AccountsGet' (Maybe AuthKey)

132−agKey = lens _agKey (\ s a -> s{_agKey = a})

133−

134−-- | OAuth 2.0 token for the current user.

135−agOAuthToken :: Lens' AccountsGet' (Maybe OAuthToken)

136−agOAuthToken

137− = lens _agOAuthToken (\ s a -> s{_agOAuthToken = a})

138−

139−-- | Selector specifying which fields to include in a partial response.

140−agFields :: Lens' AccountsGet' (Maybe Text)

141−agFields = lens _agFields (\ s a -> s{_agFields = a})

142−

143−instance GoogleAuth AccountsGet' where

144− _AuthKey = agKey . _Just

145− _AuthToken = agOAuthToken . _Just

146−

14774instance GoogleRequest AccountsGet' where

14875 type Rs AccountsGet' = Account

149− request = requestWith adExchangeSellerRequest

150− requestWith rq AccountsGet'{..}

151− = go _agAccountId _agQuotaUser (Just _agPrettyPrint)

152− _agUserIP

153− _agFields

154− _agKey

155− _agOAuthToken

156− (Just AltJSON)

76+ requestClient AccountsGet'{..}

77+ = go _agAccountId (Just AltJSON)

78+ adExchangeSellerService

15779 where go

158− = clientBuild (Proxy :: Proxy AccountsGetResource) rq

80+ = buildClient (Proxy :: Proxy AccountsGetResource)

81+ mempty

gogol-adexchange-seller/gen/Network/Google/Resource/AdExchangeSeller/Accounts/List.hs+9−88

@@ -33,14 +33,8 @@ module Network.Google.Resource.AdExchangeSeller.Accounts.List

3333 , AccountsList'

3434

3535 -- * Request Lenses

36− , alQuotaUser

37− , alPrettyPrint

38− , alUserIP

39− , alKey

4036 , alPageToken

41− , alOAuthToken

4237 , alMaxResults

43− , alFields

4438 ) where

4539

4640import Network.Google.AdExchangeSeller.Types

@@ -52,85 +46,31 @@ type AccountsListResource =

5246 "accounts" :>

5347 QueryParam "pageToken" Text :>

5448 QueryParam "maxResults" Int32 :>

55− QueryParam "quotaUser" Text :>

56− QueryParam "prettyPrint" Bool :>

57− QueryParam "userIp" Text :>

58− QueryParam "fields" Text :>

59− QueryParam "key" AuthKey :>

60− Header "Authorization" OAuthToken :>

61− QueryParam "alt" AltJSON :> Get '[JSON] Accounts

49+ QueryParam "alt" AltJSON :> Get '[JSON] Accounts

6250

6351-- | List all accounts available to this Ad Exchange account.

6452--

6553-- /See:/ 'accountsList'' smart constructor.

6654data AccountsList' = AccountsList'

67− { _alQuotaUser :: !(Maybe Text)

68− , _alPrettyPrint :: !Bool

69− , _alUserIP :: !(Maybe Text)

70− , _alKey :: !(Maybe AuthKey)

71− , _alPageToken :: !(Maybe Text)

72− , _alOAuthToken :: !(Maybe OAuthToken)

73− , _alMaxResults :: !(Maybe Int32)

74− , _alFields :: !(Maybe Text)

55+ { _alPageToken :: !(Maybe Text)

56+ , _alMaxResults :: !(Maybe Int32)

7557 } deriving (Eq,Show,Data,Typeable,Generic)

7658

7759-- | Creates a value of 'AccountsList'' with the minimum fields required to make a request.

7860--

7961-- Use one of the following lenses to modify other fields as desired:

8062--

81−-- * 'alQuotaUser'

82−--

83−-- * 'alPrettyPrint'

84−--

85−-- * 'alUserIP'

86−--

87−-- * 'alKey'

88−--

8963-- * 'alPageToken'

9064--

91−-- * 'alOAuthToken'

92−--

9365-- * 'alMaxResults'

94−--

95−-- * 'alFields'

9666accountsList'

9767 :: AccountsList'

9868accountsList' =

9969 AccountsList'

100− { _alQuotaUser = Nothing

101− , _alPrettyPrint = True

102− , _alUserIP = Nothing

103− , _alKey = Nothing

104− , _alPageToken = Nothing

105− , _alOAuthToken = Nothing

70+ { _alPageToken = Nothing

10671 , _alMaxResults = Nothing

107− , _alFields = Nothing

10872 }

10973

110−-- | Available to use for quota purposes for server-side applications. Can be

111−-- any arbitrary string assigned to a user, but should not exceed 40

112−-- characters. Overrides userIp if both are provided.

113−alQuotaUser :: Lens' AccountsList' (Maybe Text)

114−alQuotaUser

115− = lens _alQuotaUser (\ s a -> s{_alQuotaUser = a})

116−

117−-- | Returns response with indentations and line breaks.

118−alPrettyPrint :: Lens' AccountsList' Bool

119−alPrettyPrint

120− = lens _alPrettyPrint

121− (\ s a -> s{_alPrettyPrint = a})

122−

123−-- | IP address of the site where the request originates. Use this if you

124−-- want to enforce per-user limits.

125−alUserIP :: Lens' AccountsList' (Maybe Text)

126−alUserIP = lens _alUserIP (\ s a -> s{_alUserIP = a})

127−

128−-- | API key. Your API key identifies your project and provides you with API

129−-- access, quota, and reports. Required unless you provide an OAuth 2.0

130−-- token.

131−alKey :: Lens' AccountsList' (Maybe AuthKey)

132−alKey = lens _alKey (\ s a -> s{_alKey = a})

133−

13474-- | A continuation token, used to page through accounts. To retrieve the

13575-- next page, set this parameter to the value of \"nextPageToken\" from the

13676-- previous response.

@@ -138,36 +78,17 @@ alPageToken :: Lens' AccountsList' (Maybe Text)

13878alPageToken

13979 = lens _alPageToken (\ s a -> s{_alPageToken = a})

14080

141−-- | OAuth 2.0 token for the current user.

142−alOAuthToken :: Lens' AccountsList' (Maybe OAuthToken)

143−alOAuthToken

144− = lens _alOAuthToken (\ s a -> s{_alOAuthToken = a})

145−

14681-- | The maximum number of accounts to include in the response, used for

14782-- paging.

14883alMaxResults :: Lens' AccountsList' (Maybe Int32)

14984alMaxResults

15085 = lens _alMaxResults (\ s a -> s{_alMaxResults = a})

15186

152−-- | Selector specifying which fields to include in a partial response.

153−alFields :: Lens' AccountsList' (Maybe Text)

154−alFields = lens _alFields (\ s a -> s{_alFields = a})

155−

156−instance GoogleAuth AccountsList' where

157− _AuthKey = alKey . _Just

158− _AuthToken = alOAuthToken . _Just

159−

16087instance GoogleRequest AccountsList' where

16188 type Rs AccountsList' = Accounts

162− request = requestWith adExchangeSellerRequest

163− requestWith rq AccountsList'{..}

164− = go _alPageToken _alMaxResults _alQuotaUser

165− (Just _alPrettyPrint)

166− _alUserIP

167− _alFields

168− _alKey

169− _alOAuthToken

170− (Just AltJSON)

89+ requestClient AccountsList'{..}

90+ = go _alPageToken _alMaxResults (Just AltJSON)

91+ adExchangeSellerService

17192 where go

172− = clientBuild (Proxy :: Proxy AccountsListResource)

173− rq

93+ = buildClient (Proxy :: Proxy AccountsListResource)

94+ mempty

gogol-adexchange-seller/gen/Network/Google/Resource/AdExchangeSeller/Accounts/Metadata/Dimensions/List.hs+9−93

@@ -34,13 +34,7 @@ module Network.Google.Resource.AdExchangeSeller.Accounts.Metadata.Dimensions.Lis

3434 , AccountsMetadataDimensionsList'

3535

3636 -- * Request Lenses

37− , amdlQuotaUser

38− , amdlPrettyPrint

39− , amdlUserIP

4037 , amdlAccountId

41− , amdlKey

42− , amdlOAuthToken

43− , amdlFields

4438 ) where

4539

4640import Network.Google.AdExchangeSeller.Types

@@ -53,121 +47,43 @@ type AccountsMetadataDimensionsListResource =

5347 Capture "accountId" Text :>

5448 "metadata" :>

5549 "dimensions" :>

56− QueryParam "quotaUser" Text :>

57− QueryParam "prettyPrint" Bool :>

58− QueryParam "userIp" Text :>

59− QueryParam "fields" Text :>

60− QueryParam "key" AuthKey :>

61− Header "Authorization" OAuthToken :>

62− QueryParam "alt" AltJSON :> Get '[JSON] Metadata

50+ QueryParam "alt" AltJSON :> Get '[JSON] Metadata

6351

6452-- | List the metadata for the dimensions available to this AdExchange

6553-- account.

6654--

6755-- /See:/ 'accountsMetadataDimensionsList'' smart constructor.

68−data AccountsMetadataDimensionsList' = AccountsMetadataDimensionsList'

69− { _amdlQuotaUser :: !(Maybe Text)

70− , _amdlPrettyPrint :: !Bool

71− , _amdlUserIP :: !(Maybe Text)

72− , _amdlAccountId :: !Text

73− , _amdlKey :: !(Maybe AuthKey)

74− , _amdlOAuthToken :: !(Maybe OAuthToken)

75− , _amdlFields :: !(Maybe Text)

56+newtype AccountsMetadataDimensionsList' = AccountsMetadataDimensionsList'

57+ { _amdlAccountId :: Text

7658 } deriving (Eq,Show,Data,Typeable,Generic)

7759

7860-- | Creates a value of 'AccountsMetadataDimensionsList'' with the minimum fields required to make a request.

7961--

8062-- Use one of the following lenses to modify other fields as desired:

8163--

82−-- * 'amdlQuotaUser'

83−--

84−-- * 'amdlPrettyPrint'

85−--

86−-- * 'amdlUserIP'

87−--

8864-- * 'amdlAccountId'

89−--

90−-- * 'amdlKey'

91−--

92−-- * 'amdlOAuthToken'

93−--

94−-- * 'amdlFields'

9565accountsMetadataDimensionsList'

9666 :: Text -- ^ 'accountId'

9767 -> AccountsMetadataDimensionsList'

9868accountsMetadataDimensionsList' pAmdlAccountId_ =

9969 AccountsMetadataDimensionsList'

100− { _amdlQuotaUser = Nothing

101− , _amdlPrettyPrint = True

102− , _amdlUserIP = Nothing

103− , _amdlAccountId = pAmdlAccountId_

104− , _amdlKey = Nothing

105− , _amdlOAuthToken = Nothing

106− , _amdlFields = Nothing

70+ { _amdlAccountId = pAmdlAccountId_

10771 }

10872

109−-- | Available to use for quota purposes for server-side applications. Can be

110−-- any arbitrary string assigned to a user, but should not exceed 40

111−-- characters. Overrides userIp if both are provided.

112−amdlQuotaUser :: Lens' AccountsMetadataDimensionsList' (Maybe Text)

113−amdlQuotaUser

114− = lens _amdlQuotaUser

115− (\ s a -> s{_amdlQuotaUser = a})

116−

117−-- | Returns response with indentations and line breaks.

118−amdlPrettyPrint :: Lens' AccountsMetadataDimensionsList' Bool

119−amdlPrettyPrint

120− = lens _amdlPrettyPrint

121− (\ s a -> s{_amdlPrettyPrint = a})

122−

123−-- | IP address of the site where the request originates. Use this if you

124−-- want to enforce per-user limits.

125−amdlUserIP :: Lens' AccountsMetadataDimensionsList' (Maybe Text)

126−amdlUserIP

127− = lens _amdlUserIP (\ s a -> s{_amdlUserIP = a})

128−

12973-- | Account with visibility to the dimensions.

13074amdlAccountId :: Lens' AccountsMetadataDimensionsList' Text

13175amdlAccountId

13276 = lens _amdlAccountId

13377 (\ s a -> s{_amdlAccountId = a})

13478

135−-- | API key. Your API key identifies your project and provides you with API

136−-- access, quota, and reports. Required unless you provide an OAuth 2.0

137−-- token.

138−amdlKey :: Lens' AccountsMetadataDimensionsList' (Maybe AuthKey)

139−amdlKey = lens _amdlKey (\ s a -> s{_amdlKey = a})

140−

141−-- | OAuth 2.0 token for the current user.

142−amdlOAuthToken :: Lens' AccountsMetadataDimensionsList' (Maybe OAuthToken)

143−amdlOAuthToken

144− = lens _amdlOAuthToken

145− (\ s a -> s{_amdlOAuthToken = a})

146−

147−-- | Selector specifying which fields to include in a partial response.

148−amdlFields :: Lens' AccountsMetadataDimensionsList' (Maybe Text)

149−amdlFields

150− = lens _amdlFields (\ s a -> s{_amdlFields = a})

151−

152−instance GoogleAuth AccountsMetadataDimensionsList'

153− where

154− _AuthKey = amdlKey . _Just

155− _AuthToken = amdlOAuthToken . _Just

156−

15779instance GoogleRequest

15880 AccountsMetadataDimensionsList' where

15981 type Rs AccountsMetadataDimensionsList' = Metadata

160− request = requestWith adExchangeSellerRequest

161− requestWith rq AccountsMetadataDimensionsList'{..}

162− = go _amdlAccountId _amdlQuotaUser

163− (Just _amdlPrettyPrint)

164− _amdlUserIP

165− _amdlFields

166− _amdlKey

167− _amdlOAuthToken

168− (Just AltJSON)

82+ requestClient AccountsMetadataDimensionsList'{..}

83+ = go _amdlAccountId (Just AltJSON)

84+ adExchangeSellerService

16985 where go

170− = clientBuild

86+ = buildClient

17187 (Proxy ::

17288 Proxy AccountsMetadataDimensionsListResource)

173− rq

89+ mempty

gogol-adexchange-seller/gen/Network/Google/Resource/AdExchangeSeller/Accounts/Metadata/Metrics/List.hs+9−93

@@ -33,13 +33,7 @@ module Network.Google.Resource.AdExchangeSeller.Accounts.Metadata.Metrics.List

3333 , AccountsMetadataMetricsList'

3434

3535 -- * Request Lenses

36− , ammlQuotaUser

37− , ammlPrettyPrint

38− , ammlUserIP

3936 , ammlAccountId

40− , ammlKey

41− , ammlOAuthToken

42− , ammlFields

4337 ) where

4438

4539import Network.Google.AdExchangeSeller.Types

@@ -52,119 +46,41 @@ type AccountsMetadataMetricsListResource =

5246 Capture "accountId" Text :>

5347 "metadata" :>

5448 "metrics" :>

55− QueryParam "quotaUser" Text :>

56− QueryParam "prettyPrint" Bool :>

57− QueryParam "userIp" Text :>

58− QueryParam "fields" Text :>

59− QueryParam "key" AuthKey :>

60− Header "Authorization" OAuthToken :>

61− QueryParam "alt" AltJSON :> Get '[JSON] Metadata

49+ QueryParam "alt" AltJSON :> Get '[JSON] Metadata

6250

6351-- | List the metadata for the metrics available to this AdExchange account.

6452--

6553-- /See:/ 'accountsMetadataMetricsList'' smart constructor.

66−data AccountsMetadataMetricsList' = AccountsMetadataMetricsList'

67− { _ammlQuotaUser :: !(Maybe Text)

68− , _ammlPrettyPrint :: !Bool

69− , _ammlUserIP :: !(Maybe Text)

70− , _ammlAccountId :: !Text

71− , _ammlKey :: !(Maybe AuthKey)

72− , _ammlOAuthToken :: !(Maybe OAuthToken)

73− , _ammlFields :: !(Maybe Text)

54+newtype AccountsMetadataMetricsList' = AccountsMetadataMetricsList'

55+ { _ammlAccountId :: Text

7456 } deriving (Eq,Show,Data,Typeable,Generic)

7557

7658-- | Creates a value of 'AccountsMetadataMetricsList'' with the minimum fields required to make a request.

7759--

7860-- Use one of the following lenses to modify other fields as desired:

7961--

80−-- * 'ammlQuotaUser'

81−--

82−-- * 'ammlPrettyPrint'

83−--

84−-- * 'ammlUserIP'

85−--

8662-- * 'ammlAccountId'

87−--

88−-- * 'ammlKey'

89−--

90−-- * 'ammlOAuthToken'

91−--

92−-- * 'ammlFields'

9363accountsMetadataMetricsList'

9464 :: Text -- ^ 'accountId'

9565 -> AccountsMetadataMetricsList'

9666accountsMetadataMetricsList' pAmmlAccountId_ =

9767 AccountsMetadataMetricsList'

98− { _ammlQuotaUser = Nothing

99− , _ammlPrettyPrint = True

100− , _ammlUserIP = Nothing

101− , _ammlAccountId = pAmmlAccountId_

102− , _ammlKey = Nothing

103− , _ammlOAuthToken = Nothing

104− , _ammlFields = Nothing

68+ { _ammlAccountId = pAmmlAccountId_

10569 }

10670

107−-- | Available to use for quota purposes for server-side applications. Can be

108−-- any arbitrary string assigned to a user, but should not exceed 40

109−-- characters. Overrides userIp if both are provided.

110−ammlQuotaUser :: Lens' AccountsMetadataMetricsList' (Maybe Text)

111−ammlQuotaUser

112− = lens _ammlQuotaUser

113− (\ s a -> s{_ammlQuotaUser = a})

114−

115−-- | Returns response with indentations and line breaks.

116−ammlPrettyPrint :: Lens' AccountsMetadataMetricsList' Bool

117−ammlPrettyPrint

118− = lens _ammlPrettyPrint

119− (\ s a -> s{_ammlPrettyPrint = a})

120−

121−-- | IP address of the site where the request originates. Use this if you

122−-- want to enforce per-user limits.

123−ammlUserIP :: Lens' AccountsMetadataMetricsList' (Maybe Text)

124−ammlUserIP

125− = lens _ammlUserIP (\ s a -> s{_ammlUserIP = a})

126−

12771-- | Account with visibility to the metrics.

12872ammlAccountId :: Lens' AccountsMetadataMetricsList' Text

12973ammlAccountId

13074 = lens _ammlAccountId

13175 (\ s a -> s{_ammlAccountId = a})

13276

133−-- | API key. Your API key identifies your project and provides you with API

134−-- access, quota, and reports. Required unless you provide an OAuth 2.0

135−-- token.

136−ammlKey :: Lens' AccountsMetadataMetricsList' (Maybe AuthKey)

137−ammlKey = lens _ammlKey (\ s a -> s{_ammlKey = a})

138−

139−-- | OAuth 2.0 token for the current user.

140−ammlOAuthToken :: Lens' AccountsMetadataMetricsList' (Maybe OAuthToken)

141−ammlOAuthToken

142− = lens _ammlOAuthToken

143− (\ s a -> s{_ammlOAuthToken = a})

144−

145−-- | Selector specifying which fields to include in a partial response.

146−ammlFields :: Lens' AccountsMetadataMetricsList' (Maybe Text)

147−ammlFields

148− = lens _ammlFields (\ s a -> s{_ammlFields = a})

149−

150−instance GoogleAuth AccountsMetadataMetricsList'

151− where

152− _AuthKey = ammlKey . _Just

153− _AuthToken = ammlOAuthToken . _Just

154−

15577instance GoogleRequest AccountsMetadataMetricsList'

15678 where

15779 type Rs AccountsMetadataMetricsList' = Metadata

158− request = requestWith adExchangeSellerRequest

159− requestWith rq AccountsMetadataMetricsList'{..}

160− = go _ammlAccountId _ammlQuotaUser

161− (Just _ammlPrettyPrint)

162− _ammlUserIP

163− _ammlFields

164− _ammlKey

165− _ammlOAuthToken

166− (Just AltJSON)

80+ requestClient AccountsMetadataMetricsList'{..}

81+ = go _ammlAccountId (Just AltJSON)

82+ adExchangeSellerService

16783 where go

168− = clientBuild

84+ = buildClient

16985 (Proxy :: Proxy AccountsMetadataMetricsListResource)

170− rq

86+ mempty

gogol-adexchange-seller/gen/Network/Google/Resource/AdExchangeSeller/Accounts/PreferredDeals/Get.hs+9−92

@@ -33,14 +33,8 @@ module Network.Google.Resource.AdExchangeSeller.Accounts.PreferredDeals.Get

3333 , AccountsPreferredDealsGet'

3434

3535 -- * Request Lenses

36− , apdgQuotaUser

37− , apdgPrettyPrint

38− , apdgUserIP

3936 , apdgDealId

4037 , apdgAccountId

41− , apdgKey

42− , apdgOAuthToken

43− , apdgFields

4438 ) where

4539

4640import Network.Google.AdExchangeSeller.Types

@@ -53,83 +47,33 @@ type AccountsPreferredDealsGetResource =

5347 Capture "accountId" Text :>

5448 "preferreddeals" :>

5549 Capture "dealId" Text :>

56− QueryParam "quotaUser" Text :>

57− QueryParam "prettyPrint" Bool :>

58− QueryParam "userIp" Text :>

59− QueryParam "fields" Text :>

60− QueryParam "key" AuthKey :>

61− Header "Authorization" OAuthToken :>

62− QueryParam "alt" AltJSON :> Get '[JSON] PreferredDeal

50+ QueryParam "alt" AltJSON :> Get '[JSON] PreferredDeal

6351

6452-- | Get information about the selected Ad Exchange Preferred Deal.

6553--

6654-- /See:/ 'accountsPreferredDealsGet'' smart constructor.

6755data AccountsPreferredDealsGet' = AccountsPreferredDealsGet'

68− { _apdgQuotaUser :: !(Maybe Text)

69− , _apdgPrettyPrint :: !Bool

70− , _apdgUserIP :: !(Maybe Text)

71− , _apdgDealId :: !Text

72− , _apdgAccountId :: !Text

73− , _apdgKey :: !(Maybe AuthKey)

74− , _apdgOAuthToken :: !(Maybe OAuthToken)

75− , _apdgFields :: !(Maybe Text)

56+ { _apdgDealId :: !Text

57+ , _apdgAccountId :: !Text

7658 } deriving (Eq,Show,Data,Typeable,Generic)

7759

7860-- | Creates a value of 'AccountsPreferredDealsGet'' with the minimum fields required to make a request.

7961--

8062-- Use one of the following lenses to modify other fields as desired:

8163--

82−-- * 'apdgQuotaUser'

83−--

84−-- * 'apdgPrettyPrint'

85−--

86−-- * 'apdgUserIP'

87−--

8864-- * 'apdgDealId'

8965--

9066-- * 'apdgAccountId'

91−--

92−-- * 'apdgKey'

93−--

94−-- * 'apdgOAuthToken'

95−--

96−-- * 'apdgFields'

9767accountsPreferredDealsGet'

9868 :: Text -- ^ 'dealId'

9969 -> Text -- ^ 'accountId'

10070 -> AccountsPreferredDealsGet'

10171accountsPreferredDealsGet' pApdgDealId_ pApdgAccountId_ =

10272 AccountsPreferredDealsGet'

103− { _apdgQuotaUser = Nothing

104− , _apdgPrettyPrint = True

105− , _apdgUserIP = Nothing

106− , _apdgDealId = pApdgDealId_

73+ { _apdgDealId = pApdgDealId_

10774 , _apdgAccountId = pApdgAccountId_

108− , _apdgKey = Nothing

109− , _apdgOAuthToken = Nothing

110− , _apdgFields = Nothing

11175 }

11276

113−-- | Available to use for quota purposes for server-side applications. Can be

114−-- any arbitrary string assigned to a user, but should not exceed 40

115−-- characters. Overrides userIp if both are provided.

116−apdgQuotaUser :: Lens' AccountsPreferredDealsGet' (Maybe Text)

117−apdgQuotaUser

118− = lens _apdgQuotaUser

119− (\ s a -> s{_apdgQuotaUser = a})

120−

121−-- | Returns response with indentations and line breaks.

122−apdgPrettyPrint :: Lens' AccountsPreferredDealsGet' Bool

123−apdgPrettyPrint

124− = lens _apdgPrettyPrint

125− (\ s a -> s{_apdgPrettyPrint = a})

126−

127−-- | IP address of the site where the request originates. Use this if you

128−-- want to enforce per-user limits.

129−apdgUserIP :: Lens' AccountsPreferredDealsGet' (Maybe Text)

130−apdgUserIP

131− = lens _apdgUserIP (\ s a -> s{_apdgUserIP = a})

132−

13377-- | Preferred deal to get information about.

13478apdgDealId :: Lens' AccountsPreferredDealsGet' Text

13579apdgDealId

@@ -141,40 +85,13 @@ apdgAccountId

14185 = lens _apdgAccountId

14286 (\ s a -> s{_apdgAccountId = a})

14387

144−-- | API key. Your API key identifies your project and provides you with API

145−-- access, quota, and reports. Required unless you provide an OAuth 2.0

146−-- token.

147−apdgKey :: Lens' AccountsPreferredDealsGet' (Maybe AuthKey)

148−apdgKey = lens _apdgKey (\ s a -> s{_apdgKey = a})

149−

150−-- | OAuth 2.0 token for the current user.

151−apdgOAuthToken :: Lens' AccountsPreferredDealsGet' (Maybe OAuthToken)

152−apdgOAuthToken

153− = lens _apdgOAuthToken

154− (\ s a -> s{_apdgOAuthToken = a})

155−

156−-- | Selector specifying which fields to include in a partial response.

157−apdgFields :: Lens' AccountsPreferredDealsGet' (Maybe Text)

158−apdgFields

159− = lens _apdgFields (\ s a -> s{_apdgFields = a})

160−

161−instance GoogleAuth AccountsPreferredDealsGet' where

162− _AuthKey = apdgKey . _Just

163− _AuthToken = apdgOAuthToken . _Just

164−

16588instance GoogleRequest AccountsPreferredDealsGet'

16689 where

16790 type Rs AccountsPreferredDealsGet' = PreferredDeal

168− request = requestWith adExchangeSellerRequest

169− requestWith rq AccountsPreferredDealsGet'{..}

170− = go _apdgAccountId _apdgDealId _apdgQuotaUser

171− (Just _apdgPrettyPrint)

172− _apdgUserIP

173− _apdgFields

174− _apdgKey

175− _apdgOAuthToken

176− (Just AltJSON)

91+ requestClient AccountsPreferredDealsGet'{..}

92+ = go _apdgAccountId _apdgDealId (Just AltJSON)

93+ adExchangeSellerService

17794 where go

178− = clientBuild

95+ = buildClient

17996 (Proxy :: Proxy AccountsPreferredDealsGetResource)

180− rq

97+ mempty

gogol-adexchange-seller/gen/Network/Google/Resource/AdExchangeSeller/Accounts/PreferredDeals/List.hs+10−93

@@ -33,13 +33,7 @@ module Network.Google.Resource.AdExchangeSeller.Accounts.PreferredDeals.List

3333 , AccountsPreferredDealsList'

3434

3535 -- * Request Lenses

36− , apdlQuotaUser

37− , apdlPrettyPrint

38− , apdlUserIP

3936 , apdlAccountId

40− , apdlKey

41− , apdlOAuthToken

42− , apdlFields

4337 ) where

4438

4539import Network.Google.AdExchangeSeller.Types

@@ -51,119 +45,42 @@ type AccountsPreferredDealsListResource =

5145 "accounts" :>

5246 Capture "accountId" Text :>

5347 "preferreddeals" :>

54− QueryParam "quotaUser" Text :>

55− QueryParam "prettyPrint" Bool :>

56− QueryParam "userIp" Text :>

57− QueryParam "fields" Text :>

58− QueryParam "key" AuthKey :>

59− Header "Authorization" OAuthToken :>

60− QueryParam "alt" AltJSON :>

61− Get '[JSON] PreferredDeals

48+ QueryParam "alt" AltJSON :>

49+ Get '[JSON] PreferredDeals

6250

6351-- | List the preferred deals for this Ad Exchange account.

6452--

6553-- /See:/ 'accountsPreferredDealsList'' smart constructor.

66−data AccountsPreferredDealsList' = AccountsPreferredDealsList'

67− { _apdlQuotaUser :: !(Maybe Text)

68− , _apdlPrettyPrint :: !Bool

69− , _apdlUserIP :: !(Maybe Text)

70− , _apdlAccountId :: !Text

71− , _apdlKey :: !(Maybe AuthKey)

72− , _apdlOAuthToken :: !(Maybe OAuthToken)

73− , _apdlFields :: !(Maybe Text)

54+newtype AccountsPreferredDealsList' = AccountsPreferredDealsList'

55+ { _apdlAccountId :: Text

7456 } deriving (Eq,Show,Data,Typeable,Generic)

7557

7658-- | Creates a value of 'AccountsPreferredDealsList'' with the minimum fields required to make a request.

7759--

7860-- Use one of the following lenses to modify other fields as desired:

7961--

80−-- * 'apdlQuotaUser'

81−--

82−-- * 'apdlPrettyPrint'

83−--

84−-- * 'apdlUserIP'

85−--

8662-- * 'apdlAccountId'

87−--

88−-- * 'apdlKey'

89−--

90−-- * 'apdlOAuthToken'

91−--

92−-- * 'apdlFields'

9363accountsPreferredDealsList'

9464 :: Text -- ^ 'accountId'

9565 -> AccountsPreferredDealsList'

9666accountsPreferredDealsList' pApdlAccountId_ =

9767 AccountsPreferredDealsList'

98− { _apdlQuotaUser = Nothing

99− , _apdlPrettyPrint = True

100− , _apdlUserIP = Nothing

101− , _apdlAccountId = pApdlAccountId_

102− , _apdlKey = Nothing

103− , _apdlOAuthToken = Nothing

104− , _apdlFields = Nothing

68+ { _apdlAccountId = pApdlAccountId_

10569 }

10670

107−-- | Available to use for quota purposes for server-side applications. Can be

108−-- any arbitrary string assigned to a user, but should not exceed 40

109−-- characters. Overrides userIp if both are provided.

110−apdlQuotaUser :: Lens' AccountsPreferredDealsList' (Maybe Text)

111−apdlQuotaUser

112− = lens _apdlQuotaUser

113− (\ s a -> s{_apdlQuotaUser = a})

114−

115−-- | Returns response with indentations and line breaks.

116−apdlPrettyPrint :: Lens' AccountsPreferredDealsList' Bool

117−apdlPrettyPrint

118− = lens _apdlPrettyPrint

119− (\ s a -> s{_apdlPrettyPrint = a})

120−

121−-- | IP address of the site where the request originates. Use this if you

122−-- want to enforce per-user limits.

123−apdlUserIP :: Lens' AccountsPreferredDealsList' (Maybe Text)

124−apdlUserIP

125− = lens _apdlUserIP (\ s a -> s{_apdlUserIP = a})

126−

12771-- | Account owning the deals.

12872apdlAccountId :: Lens' AccountsPreferredDealsList' Text

12973apdlAccountId

13074 = lens _apdlAccountId

13175 (\ s a -> s{_apdlAccountId = a})

13276

133−-- | API key. Your API key identifies your project and provides you with API

134−-- access, quota, and reports. Required unless you provide an OAuth 2.0

135−-- token.

136−apdlKey :: Lens' AccountsPreferredDealsList' (Maybe AuthKey)

137−apdlKey = lens _apdlKey (\ s a -> s{_apdlKey = a})

138−

139−-- | OAuth 2.0 token for the current user.

140−apdlOAuthToken :: Lens' AccountsPreferredDealsList' (Maybe OAuthToken)

141−apdlOAuthToken

142− = lens _apdlOAuthToken

143− (\ s a -> s{_apdlOAuthToken = a})

144−

145−-- | Selector specifying which fields to include in a partial response.

146−apdlFields :: Lens' AccountsPreferredDealsList' (Maybe Text)

147−apdlFields

148− = lens _apdlFields (\ s a -> s{_apdlFields = a})

149−

150−instance GoogleAuth AccountsPreferredDealsList' where

151− _AuthKey = apdlKey . _Just

152− _AuthToken = apdlOAuthToken . _Just

153−

15477instance GoogleRequest AccountsPreferredDealsList'

15578 where

15679 type Rs AccountsPreferredDealsList' = PreferredDeals

157− request = requestWith adExchangeSellerRequest

158− requestWith rq AccountsPreferredDealsList'{..}

159− = go _apdlAccountId _apdlQuotaUser

160− (Just _apdlPrettyPrint)

161− _apdlUserIP

162− _apdlFields

163− _apdlKey

164− _apdlOAuthToken

165− (Just AltJSON)

80+ requestClient AccountsPreferredDealsList'{..}

81+ = go _apdlAccountId (Just AltJSON)

82+ adExchangeSellerService

16683 where go

167− = clientBuild

84+ = buildClient

16885 (Proxy :: Proxy AccountsPreferredDealsListResource)

169− rq

86+ mempty

gogol-adexchange-seller/gen/Network/Google/Resource/AdExchangeSeller/Accounts/Reports/Generate.hs+22−117

@@ -35,22 +35,16 @@ module Network.Google.Resource.AdExchangeSeller.Accounts.Reports.Generate

3535 , AccountsReportsGenerate'

3636

3737 -- * Request Lenses

38− , argQuotaUser

39− , argPrettyPrint

40− , argUserIP

4138 , argDimension

4239 , argLocale

4340 , argEndDate

4441 , argStartDate

4542 , argAccountId

4643 , argMetric

47− , argKey

4844 , argSort

4945 , argFilter

50− , argOAuthToken

5146 , argStartIndex

5247 , argMaxResults

53− , argFields

5448 ) where

5549

5650import Network.Google.AdExchangeSeller.Types

@@ -71,14 +65,7 @@ type AccountsReportsGenerateResource =

7165 QueryParams "filter" Text :>

7266 QueryParam "startIndex" Word32 :>

7367 QueryParam "maxResults" Word32 :>

74− QueryParam "quotaUser" Text :>

75− QueryParam "prettyPrint" Bool :>

76− QueryParam "userIp" Text :>

77− QueryParam "fields" Text :>

78− QueryParam "key" AuthKey :>

79− Header "Authorization" OAuthToken :>

80− QueryParam "alt" AltJSON :>

81− Get '[JSON] Report

68+ QueryParam "alt" AltJSON :> Get '[JSON] Report

8269 :<|>

8370 "accounts" :>

8471 Capture "accountId" Text :>

@@ -92,14 +79,8 @@ type AccountsReportsGenerateResource =

9279 QueryParams "filter" Text :>

9380 QueryParam "startIndex" Word32 :>

9481 QueryParam "maxResults" Word32 :>

95− QueryParam "quotaUser" Text :>

96− QueryParam "prettyPrint" Bool :>

97− QueryParam "userIp" Text :>

98− QueryParam "fields" Text :>

99− QueryParam "key" AuthKey :>

100− Header "Authorization" OAuthToken :>

101− QueryParam "alt" AltMedia :>

102− Get '[OctetStream] Stream

82+ QueryParam "alt" AltMedia :>

83+ Get '[OctetStream] Stream

10384

10485-- | Generate an Ad Exchange report based on the report request sent in the

10586-- query parameters. Returns the result as JSON; to retrieve output in CSV

@@ -107,34 +88,22 @@ type AccountsReportsGenerateResource =

10788--

10889-- /See:/ 'accountsReportsGenerate'' smart constructor.

10990data AccountsReportsGenerate' = AccountsReportsGenerate'

110− { _argQuotaUser :: !(Maybe Text)

111− , _argPrettyPrint :: !Bool

112− , _argUserIP :: !(Maybe Text)

113− , _argDimension :: !(Maybe [Text])

114− , _argLocale :: !(Maybe Text)

115− , _argEndDate :: !Text

116− , _argStartDate :: !Text

117− , _argAccountId :: !Text

118− , _argMetric :: !(Maybe [Text])

119− , _argKey :: !(Maybe AuthKey)

120− , _argSort :: !(Maybe [Text])

121− , _argFilter :: !(Maybe [Text])

122− , _argOAuthToken :: !(Maybe OAuthToken)

123− , _argStartIndex :: !(Maybe Word32)

124− , _argMaxResults :: !(Maybe Word32)

125− , _argFields :: !(Maybe Text)

91+ { _argDimension :: !(Maybe [Text])

92+ , _argLocale :: !(Maybe Text)

93+ , _argEndDate :: !Text

94+ , _argStartDate :: !Text

95+ , _argAccountId :: !Text

96+ , _argMetric :: !(Maybe [Text])

97+ , _argSort :: !(Maybe [Text])

98+ , _argFilter :: !(Maybe [Text])

99+ , _argStartIndex :: !(Maybe Word32)

100+ , _argMaxResults :: !(Maybe Word32)

126101 } deriving (Eq,Show,Data,Typeable,Generic)

127102

128103-- | Creates a value of 'AccountsReportsGenerate'' with the minimum fields required to make a request.

129104--

130105-- Use one of the following lenses to modify other fields as desired:

131106--

132−-- * 'argQuotaUser'

133−--

134−-- * 'argPrettyPrint'

135−--

136−-- * 'argUserIP'

137−--

138107-- * 'argDimension'

139108--

140109-- * 'argLocale'

@@ -147,19 +116,13 @@ data AccountsReportsGenerate' = AccountsReportsGenerate'

147116--

148117-- * 'argMetric'

149118--

150−-- * 'argKey'

151−--

152119-- * 'argSort'

153120--

154121-- * 'argFilter'

155122--

156−-- * 'argOAuthToken'

157−--

158123-- * 'argStartIndex'

159124--

160125-- * 'argMaxResults'

161−--

162−-- * 'argFields'

163126accountsReportsGenerate'

164127 :: Text -- ^ 'endDate'

165128 -> Text -- ^ 'startDate'

@@ -167,43 +130,18 @@ accountsReportsGenerate'

167130 -> AccountsReportsGenerate'

168131accountsReportsGenerate' pArgEndDate_ pArgStartDate_ pArgAccountId_ =

169132 AccountsReportsGenerate'

170− { _argQuotaUser = Nothing

171− , _argPrettyPrint = True

172− , _argUserIP = Nothing

173− , _argDimension = Nothing

133+ { _argDimension = Nothing

174134 , _argLocale = Nothing

175135 , _argEndDate = pArgEndDate_

176136 , _argStartDate = pArgStartDate_

177137 , _argAccountId = pArgAccountId_

178138 , _argMetric = Nothing

179− , _argKey = Nothing

180139 , _argSort = Nothing

181140 , _argFilter = Nothing

182− , _argOAuthToken = Nothing

183141 , _argStartIndex = Nothing

184142 , _argMaxResults = Nothing

185− , _argFields = Nothing

186143 }

187144

188−-- | Available to use for quota purposes for server-side applications. Can be

189−-- any arbitrary string assigned to a user, but should not exceed 40

190−-- characters. Overrides userIp if both are provided.

191−argQuotaUser :: Lens' AccountsReportsGenerate' (Maybe Text)

192−argQuotaUser

193− = lens _argQuotaUser (\ s a -> s{_argQuotaUser = a})

194−

195−-- | Returns response with indentations and line breaks.

196−argPrettyPrint :: Lens' AccountsReportsGenerate' Bool

197−argPrettyPrint

198− = lens _argPrettyPrint

199− (\ s a -> s{_argPrettyPrint = a})

200−

201−-- | IP address of the site where the request originates. Use this if you

202−-- want to enforce per-user limits.

203−argUserIP :: Lens' AccountsReportsGenerate' (Maybe Text)

204−argUserIP

205− = lens _argUserIP (\ s a -> s{_argUserIP = a})

206−

207145-- | Dimensions to base the report on.

208146argDimension :: Lens' AccountsReportsGenerate' [Text]

209147argDimension

@@ -240,12 +178,6 @@ argMetric

240178 _Default

241179 . _Coerce

242180

243−-- | API key. Your API key identifies your project and provides you with API

244−-- access, quota, and reports. Required unless you provide an OAuth 2.0

245−-- token.

246−argKey :: Lens' AccountsReportsGenerate' (Maybe AuthKey)

247−argKey = lens _argKey (\ s a -> s{_argKey = a})

248−

249181-- | The name of a dimension or metric to sort the resulting report on,

250182-- optionally prefixed with \"+\" to sort ascending or \"-\" to sort

251183-- descending. If no prefix is specified, the column is sorted ascending.

@@ -261,12 +193,6 @@ argFilter

261193 _Default

262194 . _Coerce

263195

264−-- | OAuth 2.0 token for the current user.

265−argOAuthToken :: Lens' AccountsReportsGenerate' (Maybe OAuthToken)

266−argOAuthToken

267− = lens _argOAuthToken

268− (\ s a -> s{_argOAuthToken = a})

269−

270196-- | Index of the first row of report data to return.

271197argStartIndex :: Lens' AccountsReportsGenerate' (Maybe Word32)

272198argStartIndex

@@ -279,19 +205,9 @@ argMaxResults

279205 = lens _argMaxResults

280206 (\ s a -> s{_argMaxResults = a})

281207

282−-- | Selector specifying which fields to include in a partial response.

283−argFields :: Lens' AccountsReportsGenerate' (Maybe Text)

284−argFields

285− = lens _argFields (\ s a -> s{_argFields = a})

286−

287−instance GoogleAuth AccountsReportsGenerate' where

288− _AuthKey = argKey . _Just

289− _AuthToken = argOAuthToken . _Just

290−

291208instance GoogleRequest AccountsReportsGenerate' where

292209 type Rs AccountsReportsGenerate' = Report

293− request = requestWith adExchangeSellerRequest

294− requestWith rq AccountsReportsGenerate'{..}

210+ requestClient AccountsReportsGenerate'{..}

295211 = go _argAccountId (Just _argStartDate)

296212 (Just _argEndDate)

297213 (_argDimension ^. _Default)

@@ -301,24 +217,18 @@ instance GoogleRequest AccountsReportsGenerate' where

301217 (_argFilter ^. _Default)

302218 _argStartIndex

303219 _argMaxResults

304− _argQuotaUser

305− (Just _argPrettyPrint)

306− _argUserIP

307− _argFields

308− _argKey

309− _argOAuthToken

310220 (Just AltJSON)

221+ adExchangeSellerService

311222 where go :<|> _

312− = clientBuild

223+ = buildClient

313224 (Proxy :: Proxy AccountsReportsGenerateResource)

314− rq

225+ mempty

315226

316227instance GoogleRequest

317228 (MediaDownload AccountsReportsGenerate') where

318229 type Rs (MediaDownload AccountsReportsGenerate') =

319230 Stream

320− request = requestWith adExchangeSellerRequest

321− requestWith rq

231+ requestClient

322232 (MediaDownload AccountsReportsGenerate'{..})

323233 = go _argAccountId (Just _argStartDate)

324234 (Just _argEndDate)

@@ -329,14 +239,9 @@ instance GoogleRequest

329239 (_argFilter ^. _Default)

330240 _argStartIndex

331241 _argMaxResults

332− _argQuotaUser

333− (Just _argPrettyPrint)

334− _argUserIP

335− _argFields

336− _argKey

337− _argOAuthToken

338242 (Just AltMedia)

243+ adExchangeSellerService

339244 where _ :<|> go

340− = clientBuild

245+ = buildClient

341246 (Proxy :: Proxy AccountsReportsGenerateResource)

342− rq

247+ mempty

gogol-adexchange-seller/gen/Network/Google/Resource/AdExchangeSeller/Accounts/Reports/Saved/Generate.hs+7−91

@@ -34,17 +34,11 @@ module Network.Google.Resource.AdExchangeSeller.Accounts.Reports.Saved.Generate

3434 , AccountsReportsSavedGenerate'

3535

3636 -- * Request Lenses

37− , arsgQuotaUser

38− , arsgPrettyPrint

39− , arsgUserIP

4037 , arsgLocale

4138 , arsgSavedReportId

4239 , arsgAccountId

43− , arsgKey

44− , arsgOAuthToken

4540 , arsgStartIndex

4641 , arsgMaxResults

47− , arsgFields

4842 ) where

4943

5044import Network.Google.AdExchangeSeller.Types

@@ -60,96 +54,46 @@ type AccountsReportsSavedGenerateResource =

6054 QueryParam "locale" Text :>

6155 QueryParam "startIndex" Int32 :>

6256 QueryParam "maxResults" Int32 :>

63− QueryParam "quotaUser" Text :>

64− QueryParam "prettyPrint" Bool :>

65− QueryParam "userIp" Text :>

66− QueryParam "fields" Text :>

67− QueryParam "key" AuthKey :>

68− Header "Authorization" OAuthToken :>

69− QueryParam "alt" AltJSON :> Get '[JSON] Report

57+ QueryParam "alt" AltJSON :> Get '[JSON] Report

7058

7159-- | Generate an Ad Exchange report based on the saved report ID sent in the

7260-- query parameters.

7361--

7462-- /See:/ 'accountsReportsSavedGenerate'' smart constructor.

7563data AccountsReportsSavedGenerate' = AccountsReportsSavedGenerate'

76− { _arsgQuotaUser :: !(Maybe Text)

77− , _arsgPrettyPrint :: !Bool

78− , _arsgUserIP :: !(Maybe Text)

79− , _arsgLocale :: !(Maybe Text)

64+ { _arsgLocale :: !(Maybe Text)

8065 , _arsgSavedReportId :: !Text

8166 , _arsgAccountId :: !Text

82− , _arsgKey :: !(Maybe AuthKey)

83− , _arsgOAuthToken :: !(Maybe OAuthToken)

8467 , _arsgStartIndex :: !(Maybe Int32)

8568 , _arsgMaxResults :: !(Maybe Int32)

86− , _arsgFields :: !(Maybe Text)

8769 } deriving (Eq,Show,Data,Typeable,Generic)

8870

8971-- | Creates a value of 'AccountsReportsSavedGenerate'' with the minimum fields required to make a request.

9072--

9173-- Use one of the following lenses to modify other fields as desired:

9274--

93−-- * 'arsgQuotaUser'

94−--

95−-- * 'arsgPrettyPrint'

96−--

97−-- * 'arsgUserIP'

98−--

9975-- * 'arsgLocale'

10076--

10177-- * 'arsgSavedReportId'

10278--

10379-- * 'arsgAccountId'

10480--

105−-- * 'arsgKey'

106−--

107−-- * 'arsgOAuthToken'

108−--

10981-- * 'arsgStartIndex'

11082--

11183-- * 'arsgMaxResults'

112−--

113−-- * 'arsgFields'

11484accountsReportsSavedGenerate'

11585 :: Text -- ^ 'savedReportId'

11686 -> Text -- ^ 'accountId'

11787 -> AccountsReportsSavedGenerate'

11888accountsReportsSavedGenerate' pArsgSavedReportId_ pArsgAccountId_ =

11989 AccountsReportsSavedGenerate'

120− { _arsgQuotaUser = Nothing

121− , _arsgPrettyPrint = True

122− , _arsgUserIP = Nothing

123− , _arsgLocale = Nothing

90+ { _arsgLocale = Nothing

12491 , _arsgSavedReportId = pArsgSavedReportId_

12592 , _arsgAccountId = pArsgAccountId_

126− , _arsgKey = Nothing

127− , _arsgOAuthToken = Nothing

12893 , _arsgStartIndex = Nothing

12994 , _arsgMaxResults = Nothing

130− , _arsgFields = Nothing

13195 }

13296

133−-- | Available to use for quota purposes for server-side applications. Can be

134−-- any arbitrary string assigned to a user, but should not exceed 40

135−-- characters. Overrides userIp if both are provided.

136−arsgQuotaUser :: Lens' AccountsReportsSavedGenerate' (Maybe Text)

137−arsgQuotaUser

138− = lens _arsgQuotaUser

139− (\ s a -> s{_arsgQuotaUser = a})

140−

141−-- | Returns response with indentations and line breaks.

142−arsgPrettyPrint :: Lens' AccountsReportsSavedGenerate' Bool

143−arsgPrettyPrint

144− = lens _arsgPrettyPrint

145− (\ s a -> s{_arsgPrettyPrint = a})

146−

147−-- | IP address of the site where the request originates. Use this if you

148−-- want to enforce per-user limits.

149−arsgUserIP :: Lens' AccountsReportsSavedGenerate' (Maybe Text)

150−arsgUserIP

151− = lens _arsgUserIP (\ s a -> s{_arsgUserIP = a})

152−

15397-- | Optional locale to use for translating report output to a local

15498-- language. Defaults to \"en_US\" if not specified.

15599arsgLocale :: Lens' AccountsReportsSavedGenerate' (Maybe Text)

@@ -168,18 +112,6 @@ arsgAccountId

168112 = lens _arsgAccountId

169113 (\ s a -> s{_arsgAccountId = a})

170114

171−-- | API key. Your API key identifies your project and provides you with API

172−-- access, quota, and reports. Required unless you provide an OAuth 2.0

173−-- token.

174−arsgKey :: Lens' AccountsReportsSavedGenerate' (Maybe AuthKey)

175−arsgKey = lens _arsgKey (\ s a -> s{_arsgKey = a})

176−

177−-- | OAuth 2.0 token for the current user.

178−arsgOAuthToken :: Lens' AccountsReportsSavedGenerate' (Maybe OAuthToken)

179−arsgOAuthToken

180− = lens _arsgOAuthToken

181− (\ s a -> s{_arsgOAuthToken = a})

182−

183115-- | Index of the first row of report data to return.

184116arsgStartIndex :: Lens' AccountsReportsSavedGenerate' (Maybe Int32)

185117arsgStartIndex

@@ -192,32 +124,16 @@ arsgMaxResults

192124 = lens _arsgMaxResults

193125 (\ s a -> s{_arsgMaxResults = a})

194126

195−-- | Selector specifying which fields to include in a partial response.

196−arsgFields :: Lens' AccountsReportsSavedGenerate' (Maybe Text)

197−arsgFields

198− = lens _arsgFields (\ s a -> s{_arsgFields = a})

199−

200−instance GoogleAuth AccountsReportsSavedGenerate'

201− where

202− _AuthKey = arsgKey . _Just

203− _AuthToken = arsgOAuthToken . _Just

204−

205127instance GoogleRequest AccountsReportsSavedGenerate'

206128 where

207129 type Rs AccountsReportsSavedGenerate' = Report

208− request = requestWith adExchangeSellerRequest

209− requestWith rq AccountsReportsSavedGenerate'{..}

130+ requestClient AccountsReportsSavedGenerate'{..}

210131 = go _arsgAccountId _arsgSavedReportId _arsgLocale

211132 _arsgStartIndex

212133 _arsgMaxResults

213− _arsgQuotaUser

214− (Just _arsgPrettyPrint)

215− _arsgUserIP

216− _arsgFields

217− _arsgKey

218− _arsgOAuthToken

219134 (Just AltJSON)

135+ adExchangeSellerService

220136 where go

221− = clientBuild

137+ = buildClient

222138 (Proxy :: Proxy AccountsReportsSavedGenerateResource)

223− rq

139+ mempty

gogol-adexchange-seller/gen/Network/Google/Resource/AdExchangeSeller/Accounts/Reports/Saved/List.hs+9−93

@@ -33,15 +33,9 @@ module Network.Google.Resource.AdExchangeSeller.Accounts.Reports.Saved.List

3333 , AccountsReportsSavedList'

3434

3535 -- * Request Lenses

36− , arslQuotaUser

37− , arslPrettyPrint

38− , arslUserIP

3936 , arslAccountId

40− , arslKey

4137 , arslPageToken

42− , arslOAuthToken

4338 , arslMaxResults

44− , arslFields

4539 ) where

4640

4741import Network.Google.AdExchangeSeller.Types

@@ -56,99 +50,42 @@ type AccountsReportsSavedListResource =

5650 "saved" :>

5751 QueryParam "pageToken" Text :>

5852 QueryParam "maxResults" Int32 :>

59− QueryParam "quotaUser" Text :>

60− QueryParam "prettyPrint" Bool :>

61− QueryParam "userIp" Text :>

62− QueryParam "fields" Text :>

63− QueryParam "key" AuthKey :>

64− Header "Authorization" OAuthToken :>

65− QueryParam "alt" AltJSON :>

66− Get '[JSON] SavedReports

53+ QueryParam "alt" AltJSON :> Get '[JSON] SavedReports

6754

6855-- | List all saved reports in this Ad Exchange account.

6956--

7057-- /See:/ 'accountsReportsSavedList'' smart constructor.

7158data AccountsReportsSavedList' = AccountsReportsSavedList'

72− { _arslQuotaUser :: !(Maybe Text)

73− , _arslPrettyPrint :: !Bool

74− , _arslUserIP :: !(Maybe Text)

75− , _arslAccountId :: !Text

76− , _arslKey :: !(Maybe AuthKey)

77− , _arslPageToken :: !(Maybe Text)

78− , _arslOAuthToken :: !(Maybe OAuthToken)

79− , _arslMaxResults :: !(Maybe Int32)

80− , _arslFields :: !(Maybe Text)

59+ { _arslAccountId :: !Text

60+ , _arslPageToken :: !(Maybe Text)

61+ , _arslMaxResults :: !(Maybe Int32)

8162 } deriving (Eq,Show,Data,Typeable,Generic)

8263

8364-- | Creates a value of 'AccountsReportsSavedList'' with the minimum fields required to make a request.

8465--

8566-- Use one of the following lenses to modify other fields as desired:

8667--

87−-- * 'arslQuotaUser'

88−--

89−-- * 'arslPrettyPrint'

90−--

91−-- * 'arslUserIP'

92−--

9368-- * 'arslAccountId'

9469--

95−-- * 'arslKey'

96−--

9770-- * 'arslPageToken'

9871--

99−-- * 'arslOAuthToken'

100−--

10172-- * 'arslMaxResults'

102−--

103−-- * 'arslFields'

10473accountsReportsSavedList'

10574 :: Text -- ^ 'accountId'

10675 -> AccountsReportsSavedList'

10776accountsReportsSavedList' pArslAccountId_ =

10877 AccountsReportsSavedList'

109− { _arslQuotaUser = Nothing

110− , _arslPrettyPrint = True

111− , _arslUserIP = Nothing

112− , _arslAccountId = pArslAccountId_

113− , _arslKey = Nothing

78+ { _arslAccountId = pArslAccountId_

11479 , _arslPageToken = Nothing

115− , _arslOAuthToken = Nothing

11680 , _arslMaxResults = Nothing

117− , _arslFields = Nothing

11881 }

11982

120−-- | Available to use for quota purposes for server-side applications. Can be

121−-- any arbitrary string assigned to a user, but should not exceed 40

122−-- characters. Overrides userIp if both are provided.

123−arslQuotaUser :: Lens' AccountsReportsSavedList' (Maybe Text)

124−arslQuotaUser

125− = lens _arslQuotaUser

126− (\ s a -> s{_arslQuotaUser = a})

127−

128−-- | Returns response with indentations and line breaks.

129−arslPrettyPrint :: Lens' AccountsReportsSavedList' Bool

130−arslPrettyPrint

131− = lens _arslPrettyPrint

132− (\ s a -> s{_arslPrettyPrint = a})

133−

134−-- | IP address of the site where the request originates. Use this if you

135−-- want to enforce per-user limits.

136−arslUserIP :: Lens' AccountsReportsSavedList' (Maybe Text)

137−arslUserIP

138− = lens _arslUserIP (\ s a -> s{_arslUserIP = a})

139−

14083-- | Account owning the saved reports.

14184arslAccountId :: Lens' AccountsReportsSavedList' Text

14285arslAccountId

14386 = lens _arslAccountId

14487 (\ s a -> s{_arslAccountId = a})

14588

146−-- | API key. Your API key identifies your project and provides you with API

147−-- access, quota, and reports. Required unless you provide an OAuth 2.0

148−-- token.

149−arslKey :: Lens' AccountsReportsSavedList' (Maybe AuthKey)

150−arslKey = lens _arslKey (\ s a -> s{_arslKey = a})

151−

15289-- | A continuation token, used to page through saved reports. To retrieve

15390-- the next page, set this parameter to the value of \"nextPageToken\" from

15491-- the previous response.

@@ -157,12 +94,6 @@ arslPageToken

15794 = lens _arslPageToken

15895 (\ s a -> s{_arslPageToken = a})

15996

160−-- | OAuth 2.0 token for the current user.

161−arslOAuthToken :: Lens' AccountsReportsSavedList' (Maybe OAuthToken)

162−arslOAuthToken

163− = lens _arslOAuthToken

164− (\ s a -> s{_arslOAuthToken = a})

165−

16697-- | The maximum number of saved reports to include in the response, used for

16798-- paging.

16899arslMaxResults :: Lens' AccountsReportsSavedList' (Maybe Int32)

@@ -170,29 +101,14 @@ arslMaxResults

170101 = lens _arslMaxResults

171102 (\ s a -> s{_arslMaxResults = a})

172103

173−-- | Selector specifying which fields to include in a partial response.

174−arslFields :: Lens' AccountsReportsSavedList' (Maybe Text)

175−arslFields

176− = lens _arslFields (\ s a -> s{_arslFields = a})

177−

178−instance GoogleAuth AccountsReportsSavedList' where

179− _AuthKey = arslKey . _Just

180− _AuthToken = arslOAuthToken . _Just

181−

182104instance GoogleRequest AccountsReportsSavedList'

183105 where

184106 type Rs AccountsReportsSavedList' = SavedReports

185− request = requestWith adExchangeSellerRequest

186− requestWith rq AccountsReportsSavedList'{..}

107+ requestClient AccountsReportsSavedList'{..}

187108 = go _arslAccountId _arslPageToken _arslMaxResults

188− _arslQuotaUser

189− (Just _arslPrettyPrint)

190− _arslUserIP

191− _arslFields

192− _arslKey

193− _arslOAuthToken

194109 (Just AltJSON)

110+ adExchangeSellerService

195111 where go

196− = clientBuild

112+ = buildClient

197113 (Proxy :: Proxy AccountsReportsSavedListResource)

198− rq

114+ mempty

gogol-adexchange-seller/gen/Network/Google/Resource/AdExchangeSeller/Accounts/URLChannels/List.hs+10−94

@@ -34,16 +34,10 @@ module Network.Google.Resource.AdExchangeSeller.Accounts.URLChannels.List

3434 , AccountsURLChannelsList'

3535

3636 -- * Request Lenses

37− , auclQuotaUser

38− , auclPrettyPrint

39− , auclUserIP

4037 , auclAdClientId

4138 , auclAccountId

42− , auclKey

4339 , auclPageToken

44− , auclOAuthToken

4540 , auclMaxResults

46− , auclFields

4741 ) where

4842

4943import Network.Google.AdExchangeSeller.Types

@@ -59,93 +53,42 @@ type AccountsURLChannelsListResource =

5953 "urlchannels" :>

6054 QueryParam "pageToken" Text :>

6155 QueryParam "maxResults" Word32 :>

62− QueryParam "quotaUser" Text :>

63− QueryParam "prettyPrint" Bool :>

64− QueryParam "userIp" Text :>

65− QueryParam "fields" Text :>

66− QueryParam "key" AuthKey :>

67− Header "Authorization" OAuthToken :>

68− QueryParam "alt" AltJSON :>

69− Get '[JSON] URLChannels

56+ QueryParam "alt" AltJSON :> Get '[JSON] URLChannels

7057

7158-- | List all URL channels in the specified ad client for this Ad Exchange

7259-- account.

7360--

7461-- /See:/ 'accountsURLChannelsList'' smart constructor.

7562data AccountsURLChannelsList' = AccountsURLChannelsList'

76− { _auclQuotaUser :: !(Maybe Text)

77− , _auclPrettyPrint :: !Bool

78− , _auclUserIP :: !(Maybe Text)

79− , _auclAdClientId :: !Text

80− , _auclAccountId :: !Text

81− , _auclKey :: !(Maybe AuthKey)

82− , _auclPageToken :: !(Maybe Text)

83− , _auclOAuthToken :: !(Maybe OAuthToken)

84− , _auclMaxResults :: !(Maybe Word32)

85− , _auclFields :: !(Maybe Text)

63+ { _auclAdClientId :: !Text

64+ , _auclAccountId :: !Text

65+ , _auclPageToken :: !(Maybe Text)

66+ , _auclMaxResults :: !(Maybe Word32)

8667 } deriving (Eq,Show,Data,Typeable,Generic)

8768

8869-- | Creates a value of 'AccountsURLChannelsList'' with the minimum fields required to make a request.

8970--

9071-- Use one of the following lenses to modify other fields as desired:

9172--

92−-- * 'auclQuotaUser'

93−--

94−-- * 'auclPrettyPrint'

95−--

96−-- * 'auclUserIP'

97−--

9873-- * 'auclAdClientId'

9974--

10075-- * 'auclAccountId'

10176--

102−-- * 'auclKey'

103−--

10477-- * 'auclPageToken'

10578--

106−-- * 'auclOAuthToken'

107−--

10879-- * 'auclMaxResults'

109−--

110−-- * 'auclFields'

11180accountsURLChannelsList'

11281 :: Text -- ^ 'adClientId'

11382 -> Text -- ^ 'accountId'

11483 -> AccountsURLChannelsList'

11584accountsURLChannelsList' pAuclAdClientId_ pAuclAccountId_ =

11685 AccountsURLChannelsList'

117− { _auclQuotaUser = Nothing

118− , _auclPrettyPrint = True

119− , _auclUserIP = Nothing

120− , _auclAdClientId = pAuclAdClientId_

86+ { _auclAdClientId = pAuclAdClientId_

12187 , _auclAccountId = pAuclAccountId_

122− , _auclKey = Nothing

12388 , _auclPageToken = Nothing

124− , _auclOAuthToken = Nothing

12589 , _auclMaxResults = Nothing

126− , _auclFields = Nothing

12790 }

12891

129−-- | Available to use for quota purposes for server-side applications. Can be

130−-- any arbitrary string assigned to a user, but should not exceed 40

131−-- characters. Overrides userIp if both are provided.

132−auclQuotaUser :: Lens' AccountsURLChannelsList' (Maybe Text)

133−auclQuotaUser

134− = lens _auclQuotaUser

135− (\ s a -> s{_auclQuotaUser = a})

136−

137−-- | Returns response with indentations and line breaks.

138−auclPrettyPrint :: Lens' AccountsURLChannelsList' Bool

139−auclPrettyPrint

140− = lens _auclPrettyPrint

141− (\ s a -> s{_auclPrettyPrint = a})

142−

143−-- | IP address of the site where the request originates. Use this if you

144−-- want to enforce per-user limits.

145−auclUserIP :: Lens' AccountsURLChannelsList' (Maybe Text)

146−auclUserIP

147− = lens _auclUserIP (\ s a -> s{_auclUserIP = a})

148−

14992-- | Ad client for which to list URL channels.

15093auclAdClientId :: Lens' AccountsURLChannelsList' Text

15194auclAdClientId

@@ -158,12 +101,6 @@ auclAccountId

158101 = lens _auclAccountId

159102 (\ s a -> s{_auclAccountId = a})

160103

161−-- | API key. Your API key identifies your project and provides you with API

162−-- access, quota, and reports. Required unless you provide an OAuth 2.0

163−-- token.

164−auclKey :: Lens' AccountsURLChannelsList' (Maybe AuthKey)

165−auclKey = lens _auclKey (\ s a -> s{_auclKey = a})

166−

167104-- | A continuation token, used to page through URL channels. To retrieve the

168105-- next page, set this parameter to the value of \"nextPageToken\" from the

169106-- previous response.

@@ -172,12 +109,6 @@ auclPageToken

172109 = lens _auclPageToken

173110 (\ s a -> s{_auclPageToken = a})

174111

175−-- | OAuth 2.0 token for the current user.

176−auclOAuthToken :: Lens' AccountsURLChannelsList' (Maybe OAuthToken)

177−auclOAuthToken

178− = lens _auclOAuthToken

179− (\ s a -> s{_auclOAuthToken = a})

180−

181112-- | The maximum number of URL channels to include in the response, used for

182113-- paging.

183114auclMaxResults :: Lens' AccountsURLChannelsList' (Maybe Word32)

@@ -185,29 +116,14 @@ auclMaxResults

185116 = lens _auclMaxResults

186117 (\ s a -> s{_auclMaxResults = a})

187118

188−-- | Selector specifying which fields to include in a partial response.

189−auclFields :: Lens' AccountsURLChannelsList' (Maybe Text)

190−auclFields

191− = lens _auclFields (\ s a -> s{_auclFields = a})

192−

193−instance GoogleAuth AccountsURLChannelsList' where

194− _AuthKey = auclKey . _Just

195− _AuthToken = auclOAuthToken . _Just

196−

197119instance GoogleRequest AccountsURLChannelsList' where

198120 type Rs AccountsURLChannelsList' = URLChannels

199− request = requestWith adExchangeSellerRequest

200− requestWith rq AccountsURLChannelsList'{..}

121+ requestClient AccountsURLChannelsList'{..}

201122 = go _auclAccountId _auclAdClientId _auclPageToken

202123 _auclMaxResults

203− _auclQuotaUser

204− (Just _auclPrettyPrint)

205− _auclUserIP

206− _auclFields

207− _auclKey

208− _auclOAuthToken

209124 (Just AltJSON)

125+ adExchangeSellerService

210126 where go

211− = clientBuild

127+ = buildClient

212128 (Proxy :: Proxy AccountsURLChannelsListResource)

213− rq

129+ mempty

gogol-admin-datatransfer/gen/Network/Google/DataTransfer.hs+4−1

@@ -19,8 +19,11 @@

1919-- /See:/ <https://developers.google.com/admin-sdk/data-transfer/ Admin Data Transfer API Reference>

2020module Network.Google.DataTransfer

2121 (

22+ -- * Service Configuration

23+ dataTransferService

24+

2225 -- * API Declaration

23− DataTransferAPI

26+ , DataTransferAPI

2427

2528 -- * Resources

2629

gogol-admin-datatransfer/gen/Network/Google/DataTransfer/Types.hs+18−5

@@ -15,8 +15,12 @@

1515--

1616module Network.Google.DataTransfer.Types

1717 (

18− -- * Service Request

19− dataTransferRequest

18+ -- * Service Configuration

19+ dataTransferService

20+

21+ -- * OAuth Scopes

22+ , adminDatatransferReadonlyScope

23+ , adminDatatransferScope

2024

2125 -- * Application

2226 , Application

@@ -74,7 +78,16 @@ import Network.Google.DataTransfer.Types.Sum

7478import Network.Google.Prelude

7579

7680-- | Default request referring to version 'datatransfer_v1' of the Admin Data Transfer API. This contains the host and root path used as a starting point for constructing service requests.

77−dataTransferRequest :: RequestBuilder

78−dataTransferRequest

79− = defaultRequest "https://www.googleapis.com/"

81+dataTransferService :: Service

82+dataTransferService

83+ = defaultService (ServiceId "admin:datatransfer_v1")

84+ "www.googleapis.com"

8085 "admin/datatransfer/v1/"

86+

87+-- | View data transfers between users in your organization

88+adminDatatransferReadonlyScope :: OAuthScope

89+adminDatatransferReadonlyScope = OAuthScope "https://www.googleapis.com/auth/admin.datatransfer.readonly";

90+

91+-- | View and manage data transfers between users in your organization

92+adminDatatransferScope :: OAuthScope

93+adminDatatransferScope = OAuthScope "https://www.googleapis.com/auth/admin.datatransfer";

gogol-admin-datatransfer/gen/Network/Google/Resource/DataTransfer/Applications/Get.hs+9−88

@@ -33,13 +33,7 @@ module Network.Google.Resource.DataTransfer.Applications.Get

3333 , ApplicationsGet'

3434

3535 -- * Request Lenses

36− , agQuotaUser

37− , agPrettyPrint

38− , agUserIP

3936 , agApplicationId

40− , agKey

41− , agOAuthToken

42− , agFields

4337 ) where

4438

4539import Network.Google.DataTransfer.Types

@@ -50,113 +44,40 @@ import Network.Google.Prelude

5044type ApplicationsGetResource =

5145 "applications" :>

5246 Capture "applicationId" Int64 :>

53− QueryParam "quotaUser" Text :>

54− QueryParam "prettyPrint" Bool :>

55− QueryParam "userIp" Text :>

56− QueryParam "fields" Text :>

57− QueryParam "key" AuthKey :>

58− Header "Authorization" OAuthToken :>

59− QueryParam "alt" AltJSON :> Get '[JSON] Application

47+ QueryParam "alt" AltJSON :> Get '[JSON] Application

6048

6149-- | Retrieves information about an application for the given application ID.

6250--

6351-- /See:/ 'applicationsGet'' smart constructor.

64−data ApplicationsGet' = ApplicationsGet'

65− { _agQuotaUser :: !(Maybe Text)

66− , _agPrettyPrint :: !Bool

67− , _agUserIP :: !(Maybe Text)

68− , _agApplicationId :: !Int64

69− , _agKey :: !(Maybe AuthKey)

70− , _agOAuthToken :: !(Maybe OAuthToken)

71− , _agFields :: !(Maybe Text)

52+newtype ApplicationsGet' = ApplicationsGet'

53+ { _agApplicationId :: Int64

7254 } deriving (Eq,Show,Data,Typeable,Generic)

7355

7456-- | Creates a value of 'ApplicationsGet'' with the minimum fields required to make a request.

7557--

7658-- Use one of the following lenses to modify other fields as desired:

7759--

78−-- * 'agQuotaUser'

79−--

80−-- * 'agPrettyPrint'

81−--

82−-- * 'agUserIP'

83−--

8460-- * 'agApplicationId'

85−--

86−-- * 'agKey'

87−--

88−-- * 'agOAuthToken'

89−--

90−-- * 'agFields'

9161applicationsGet'

9262 :: Int64 -- ^ 'applicationId'

9363 -> ApplicationsGet'

9464applicationsGet' pAgApplicationId_ =

9565 ApplicationsGet'

96− { _agQuotaUser = Nothing

97− , _agPrettyPrint = True

98− , _agUserIP = Nothing

99− , _agApplicationId = pAgApplicationId_

100− , _agKey = Nothing

101− , _agOAuthToken = Nothing

102− , _agFields = Nothing

66+ { _agApplicationId = pAgApplicationId_

10367 }

10468

105−-- | Available to use for quota purposes for server-side applications. Can be

106−-- any arbitrary string assigned to a user, but should not exceed 40

107−-- characters. Overrides userIp if both are provided.

108−agQuotaUser :: Lens' ApplicationsGet' (Maybe Text)

109−agQuotaUser

110− = lens _agQuotaUser (\ s a -> s{_agQuotaUser = a})

111−

112−-- | Returns response with indentations and line breaks.

113−agPrettyPrint :: Lens' ApplicationsGet' Bool

114−agPrettyPrint

115− = lens _agPrettyPrint

116− (\ s a -> s{_agPrettyPrint = a})

117−

118−-- | IP address of the site where the request originates. Use this if you

119−-- want to enforce per-user limits.

120−agUserIP :: Lens' ApplicationsGet' (Maybe Text)

121−agUserIP = lens _agUserIP (\ s a -> s{_agUserIP = a})

122−

12369-- | ID of the application resource to be retrieved.

12470agApplicationId :: Lens' ApplicationsGet' Int64

12571agApplicationId

12672 = lens _agApplicationId

12773 (\ s a -> s{_agApplicationId = a})

12874

129−-- | API key. Your API key identifies your project and provides you with API

130−-- access, quota, and reports. Required unless you provide an OAuth 2.0

131−-- token.

132−agKey :: Lens' ApplicationsGet' (Maybe AuthKey)

133−agKey = lens _agKey (\ s a -> s{_agKey = a})

134−

135−-- | OAuth 2.0 token for the current user.

136−agOAuthToken :: Lens' ApplicationsGet' (Maybe OAuthToken)

137−agOAuthToken

138− = lens _agOAuthToken (\ s a -> s{_agOAuthToken = a})

139−

140−-- | Selector specifying which fields to include in a partial response.

141−agFields :: Lens' ApplicationsGet' (Maybe Text)

142−agFields = lens _agFields (\ s a -> s{_agFields = a})

143−

144−instance GoogleAuth ApplicationsGet' where

145− _AuthKey = agKey . _Just

146− _AuthToken = agOAuthToken . _Just

147−

14875instance GoogleRequest ApplicationsGet' where

14976 type Rs ApplicationsGet' = Application

150− request = requestWith dataTransferRequest

151− requestWith rq ApplicationsGet'{..}

152− = go _agApplicationId _agQuotaUser

153− (Just _agPrettyPrint)

154− _agUserIP

155− _agFields

156− _agKey

157− _agOAuthToken

158− (Just AltJSON)

77+ requestClient ApplicationsGet'{..}

78+ = go _agApplicationId (Just AltJSON)

79+ dataTransferService

15980 where go

160− = clientBuild

81+ = buildClient

16182 (Proxy :: Proxy ApplicationsGetResource)

162− rq

83+ mempty

gogol-admin-datatransfer/gen/Network/Google/Resource/DataTransfer/Applications/List.hs+10−89

@@ -33,15 +33,9 @@ module Network.Google.Resource.DataTransfer.Applications.List

3333 , ApplicationsList'

3434

3535 -- * Request Lenses

36− , alQuotaUser

37− , alPrettyPrint

38− , alUserIP

3936 , alCustomerId

40− , alKey

4137 , alPageToken

42− , alOAuthToken

4338 , alMaxResults

44− , alFields

4539 ) where

4640

4741import Network.Google.DataTransfer.Types

@@ -54,131 +48,58 @@ type ApplicationsListResource =

5448 QueryParam "customerId" Text :>

5549 QueryParam "pageToken" Text :>

5650 QueryParam "maxResults" Word32 :>

57− QueryParam "quotaUser" Text :>

58− QueryParam "prettyPrint" Bool :>

59− QueryParam "userIp" Text :>

60− QueryParam "fields" Text :>

61− QueryParam "key" AuthKey :>

62− Header "Authorization" OAuthToken :>

63− QueryParam "alt" AltJSON :>

64− Get '[JSON] ApplicationsListResponse

51+ QueryParam "alt" AltJSON :>

52+ Get '[JSON] ApplicationsListResponse

6553

6654-- | Lists the applications available for data transfer for a customer.

6755--

6856-- /See:/ 'applicationsList'' smart constructor.

6957data ApplicationsList' = ApplicationsList'

70− { _alQuotaUser :: !(Maybe Text)

71− , _alPrettyPrint :: !Bool

72− , _alUserIP :: !(Maybe Text)

73− , _alCustomerId :: !(Maybe Text)

74− , _alKey :: !(Maybe AuthKey)

75− , _alPageToken :: !(Maybe Text)

76− , _alOAuthToken :: !(Maybe OAuthToken)

77− , _alMaxResults :: !(Maybe Word32)

78− , _alFields :: !(Maybe Text)

58+ { _alCustomerId :: !(Maybe Text)

59+ , _alPageToken :: !(Maybe Text)

60+ , _alMaxResults :: !(Maybe Word32)

7961 } deriving (Eq,Show,Data,Typeable,Generic)

8062

8163-- | Creates a value of 'ApplicationsList'' with the minimum fields required to make a request.

8264--

8365-- Use one of the following lenses to modify other fields as desired:

8466--

85−-- * 'alQuotaUser'

86−--

87−-- * 'alPrettyPrint'

88−--

89−-- * 'alUserIP'

90−--

9167-- * 'alCustomerId'

9268--

93−-- * 'alKey'

94−--

9569-- * 'alPageToken'

9670--

97−-- * 'alOAuthToken'

98−--

9971-- * 'alMaxResults'

100−--

101−-- * 'alFields'

10272applicationsList'

10373 :: ApplicationsList'

10474applicationsList' =

10575 ApplicationsList'

106− { _alQuotaUser = Nothing

107− , _alPrettyPrint = True

108− , _alUserIP = Nothing

109− , _alCustomerId = Nothing

110− , _alKey = Nothing

76+ { _alCustomerId = Nothing

11177 , _alPageToken = Nothing

112− , _alOAuthToken = Nothing

11378 , _alMaxResults = Nothing

114− , _alFields = Nothing

11579 }

11680

117−-- | Available to use for quota purposes for server-side applications. Can be

118−-- any arbitrary string assigned to a user, but should not exceed 40

119−-- characters. Overrides userIp if both are provided.

120−alQuotaUser :: Lens' ApplicationsList' (Maybe Text)

121−alQuotaUser

122− = lens _alQuotaUser (\ s a -> s{_alQuotaUser = a})

123−

124−-- | Returns response with indentations and line breaks.

125−alPrettyPrint :: Lens' ApplicationsList' Bool

126−alPrettyPrint

127− = lens _alPrettyPrint

128− (\ s a -> s{_alPrettyPrint = a})

129−

130−-- | IP address of the site where the request originates. Use this if you

131−-- want to enforce per-user limits.

132−alUserIP :: Lens' ApplicationsList' (Maybe Text)

133−alUserIP = lens _alUserIP (\ s a -> s{_alUserIP = a})

134−

13581-- | Immutable ID of the Google Apps account.

13682alCustomerId :: Lens' ApplicationsList' (Maybe Text)

13783alCustomerId

13884 = lens _alCustomerId (\ s a -> s{_alCustomerId = a})

13985

140−-- | API key. Your API key identifies your project and provides you with API

141−-- access, quota, and reports. Required unless you provide an OAuth 2.0

142−-- token.

143−alKey :: Lens' ApplicationsList' (Maybe AuthKey)

144−alKey = lens _alKey (\ s a -> s{_alKey = a})

145−

14686-- | Token to specify next page in the list.

14787alPageToken :: Lens' ApplicationsList' (Maybe Text)

14888alPageToken

14989 = lens _alPageToken (\ s a -> s{_alPageToken = a})

15090

151−-- | OAuth 2.0 token for the current user.

152−alOAuthToken :: Lens' ApplicationsList' (Maybe OAuthToken)

153−alOAuthToken

154− = lens _alOAuthToken (\ s a -> s{_alOAuthToken = a})

155−

15691-- | Maximum number of results to return. Default is 100.

15792alMaxResults :: Lens' ApplicationsList' (Maybe Word32)

15893alMaxResults

15994 = lens _alMaxResults (\ s a -> s{_alMaxResults = a})

16095

161−-- | Selector specifying which fields to include in a partial response.

162−alFields :: Lens' ApplicationsList' (Maybe Text)

163−alFields = lens _alFields (\ s a -> s{_alFields = a})

164−

165−instance GoogleAuth ApplicationsList' where

166− _AuthKey = alKey . _Just

167− _AuthToken = alOAuthToken . _Just

168−

16996instance GoogleRequest ApplicationsList' where

17097 type Rs ApplicationsList' = ApplicationsListResponse

171− request = requestWith dataTransferRequest

172− requestWith rq ApplicationsList'{..}

98+ requestClient ApplicationsList'{..}

17399 = go _alCustomerId _alPageToken _alMaxResults

174− _alQuotaUser

175− (Just _alPrettyPrint)

176− _alUserIP

177− _alFields

178− _alKey

179− _alOAuthToken

180100 (Just AltJSON)

101+ dataTransferService

181102 where go

182− = clientBuild

103+ = buildClient

183104 (Proxy :: Proxy ApplicationsListResource)

184− rq

105+ mempty

gogol-admin-datatransfer/gen/Network/Google/Resource/DataTransfer/Transfers/Get.hs+9−88

@@ -33,13 +33,7 @@ module Network.Google.Resource.DataTransfer.Transfers.Get

3333 , TransfersGet'

3434

3535 -- * Request Lenses

36− , tgQuotaUser

37− , tgPrettyPrint

38− , tgUserIP

39− , tgKey

40− , tgOAuthToken

4136 , tgDataTransferId

42− , tgFields

4337 ) where

4438

4539import Network.Google.DataTransfer.Types

@@ -50,87 +44,28 @@ import Network.Google.Prelude

5044type TransfersGetResource =

5145 "transfers" :>

5246 Capture "dataTransferId" Text :>

53− QueryParam "quotaUser" Text :>

54− QueryParam "prettyPrint" Bool :>

55− QueryParam "userIp" Text :>

56− QueryParam "fields" Text :>

57− QueryParam "key" AuthKey :>

58− Header "Authorization" OAuthToken :>

59− QueryParam "alt" AltJSON :> Get '[JSON] DataTransfer

47+ QueryParam "alt" AltJSON :> Get '[JSON] DataTransfer

6048

6149-- | Retrieves a data transfer request by its resource ID.

6250--

6351-- /See:/ 'transfersGet'' smart constructor.

64−data TransfersGet' = TransfersGet'

65− { _tgQuotaUser :: !(Maybe Text)

66− , _tgPrettyPrint :: !Bool

67− , _tgUserIP :: !(Maybe Text)

68− , _tgKey :: !(Maybe AuthKey)

69− , _tgOAuthToken :: !(Maybe OAuthToken)

70− , _tgDataTransferId :: !Text

71− , _tgFields :: !(Maybe Text)

52+newtype TransfersGet' = TransfersGet'

53+ { _tgDataTransferId :: Text

7254 } deriving (Eq,Show,Data,Typeable,Generic)

7355

7456-- | Creates a value of 'TransfersGet'' with the minimum fields required to make a request.

7557--

7658-- Use one of the following lenses to modify other fields as desired:

7759--

78−-- * 'tgQuotaUser'

79−--

80−-- * 'tgPrettyPrint'

81−--

82−-- * 'tgUserIP'

83−--

84−-- * 'tgKey'

85−--

86−-- * 'tgOAuthToken'

87−--

8860-- * 'tgDataTransferId'

89−--

90−-- * 'tgFields'

9161transfersGet'

9262 :: Text -- ^ 'dataTransferId'

9363 -> TransfersGet'

9464transfersGet' pTgDataTransferId_ =

9565 TransfersGet'

96− { _tgQuotaUser = Nothing

97− , _tgPrettyPrint = True

98− , _tgUserIP = Nothing

99− , _tgKey = Nothing

100− , _tgOAuthToken = Nothing

101− , _tgDataTransferId = pTgDataTransferId_

102− , _tgFields = Nothing

66+ { _tgDataTransferId = pTgDataTransferId_

10367 }

10468

105−-- | Available to use for quota purposes for server-side applications. Can be

106−-- any arbitrary string assigned to a user, but should not exceed 40

107−-- characters. Overrides userIp if both are provided.

108−tgQuotaUser :: Lens' TransfersGet' (Maybe Text)

109−tgQuotaUser

110− = lens _tgQuotaUser (\ s a -> s{_tgQuotaUser = a})

111−

112−-- | Returns response with indentations and line breaks.

113−tgPrettyPrint :: Lens' TransfersGet' Bool

114−tgPrettyPrint

115− = lens _tgPrettyPrint

116− (\ s a -> s{_tgPrettyPrint = a})

117−

118−-- | IP address of the site where the request originates. Use this if you

119−-- want to enforce per-user limits.

120−tgUserIP :: Lens' TransfersGet' (Maybe Text)

121−tgUserIP = lens _tgUserIP (\ s a -> s{_tgUserIP = a})

122−

123−-- | API key. Your API key identifies your project and provides you with API

124−-- access, quota, and reports. Required unless you provide an OAuth 2.0

125−-- token.

126−tgKey :: Lens' TransfersGet' (Maybe AuthKey)

127−tgKey = lens _tgKey (\ s a -> s{_tgKey = a})

128−

129−-- | OAuth 2.0 token for the current user.

130−tgOAuthToken :: Lens' TransfersGet' (Maybe OAuthToken)

131−tgOAuthToken

132− = lens _tgOAuthToken (\ s a -> s{_tgOAuthToken = a})

133−

13469-- | ID of the resource to be retrieved. This is returned in the response

13570-- from the insert method.

13671tgDataTransferId :: Lens' TransfersGet' Text

@@ -138,25 +73,11 @@ tgDataTransferId

13873 = lens _tgDataTransferId

13974 (\ s a -> s{_tgDataTransferId = a})

14075

141−-- | Selector specifying which fields to include in a partial response.

142−tgFields :: Lens' TransfersGet' (Maybe Text)

143−tgFields = lens _tgFields (\ s a -> s{_tgFields = a})

144−

145−instance GoogleAuth TransfersGet' where

146− _AuthKey = tgKey . _Just

147− _AuthToken = tgOAuthToken . _Just

148−

14976instance GoogleRequest TransfersGet' where

15077 type Rs TransfersGet' = DataTransfer

151− request = requestWith dataTransferRequest

152− requestWith rq TransfersGet'{..}

153− = go _tgDataTransferId _tgQuotaUser

154− (Just _tgPrettyPrint)

155− _tgUserIP

156− _tgFields

157− _tgKey

158− _tgOAuthToken

159− (Just AltJSON)

78+ requestClient TransfersGet'{..}

79+ = go _tgDataTransferId (Just AltJSON)

80+ dataTransferService

16081 where go

161− = clientBuild (Proxy :: Proxy TransfersGetResource)

162− rq

82+ = buildClient (Proxy :: Proxy TransfersGetResource)

83+ mempty

gogol-admin-datatransfer/gen/Network/Google/Resource/DataTransfer/Transfers/Insert.hs+10−89

@@ -33,13 +33,7 @@ module Network.Google.Resource.DataTransfer.Transfers.Insert

3333 , TransfersInsert'

3434

3535 -- * Request Lenses

36− , tiQuotaUser

37− , tiPrettyPrint

38− , tiUserIP

3936 , tiPayload

40− , tiKey

41− , tiOAuthToken

42− , tiFields

4337 ) where

4438

4539import Network.Google.DataTransfer.Types

@@ -49,113 +43,40 @@ import Network.Google.Prelude

4943-- 'TransfersInsert'' request conforms to.

5044type TransfersInsertResource =

5145 "transfers" :>

52− QueryParam "quotaUser" Text :>

53− QueryParam "prettyPrint" Bool :>

54− QueryParam "userIp" Text :>

55− QueryParam "fields" Text :>

56− QueryParam "key" AuthKey :>

57− Header "Authorization" OAuthToken :>

58− QueryParam "alt" AltJSON :>

59− ReqBody '[JSON] DataTransfer :>

60− Post '[JSON] DataTransfer

46+ QueryParam "alt" AltJSON :>

47+ ReqBody '[JSON] DataTransfer :>

48+ Post '[JSON] DataTransfer

6149

6250-- | Inserts a data transfer request.

6351--

6452-- /See:/ 'transfersInsert'' smart constructor.

65−data TransfersInsert' = TransfersInsert'

66− { _tiQuotaUser :: !(Maybe Text)

67− , _tiPrettyPrint :: !Bool

68− , _tiUserIP :: !(Maybe Text)

69− , _tiPayload :: !DataTransfer

70− , _tiKey :: !(Maybe AuthKey)

71− , _tiOAuthToken :: !(Maybe OAuthToken)

72− , _tiFields :: !(Maybe Text)

53+newtype TransfersInsert' = TransfersInsert'

54+ { _tiPayload :: DataTransfer

7355 } deriving (Eq,Show,Data,Typeable,Generic)

7456

7557-- | Creates a value of 'TransfersInsert'' with the minimum fields required to make a request.

7658--

7759-- Use one of the following lenses to modify other fields as desired:

7860--

79−-- * 'tiQuotaUser'

80−--

81−-- * 'tiPrettyPrint'

82−--

83−-- * 'tiUserIP'

84−--

8561-- * 'tiPayload'

86−--

87−-- * 'tiKey'

88−--

89−-- * 'tiOAuthToken'

90−--

91−-- * 'tiFields'

9262transfersInsert'

9363 :: DataTransfer -- ^ 'payload'

9464 -> TransfersInsert'

9565transfersInsert' pTiPayload_ =

9666 TransfersInsert'

97− { _tiQuotaUser = Nothing

98− , _tiPrettyPrint = True

99− , _tiUserIP = Nothing

100− , _tiPayload = pTiPayload_

101− , _tiKey = Nothing

102− , _tiOAuthToken = Nothing

103− , _tiFields = Nothing

67+ { _tiPayload = pTiPayload_

10468 }

10569

106−-- | Available to use for quota purposes for server-side applications. Can be

107−-- any arbitrary string assigned to a user, but should not exceed 40

108−-- characters. Overrides userIp if both are provided.

109−tiQuotaUser :: Lens' TransfersInsert' (Maybe Text)

110−tiQuotaUser

111− = lens _tiQuotaUser (\ s a -> s{_tiQuotaUser = a})

112−

113−-- | Returns response with indentations and line breaks.

114−tiPrettyPrint :: Lens' TransfersInsert' Bool

115−tiPrettyPrint

116− = lens _tiPrettyPrint

117− (\ s a -> s{_tiPrettyPrint = a})

118−

119−-- | IP address of the site where the request originates. Use this if you

120−-- want to enforce per-user limits.

121−tiUserIP :: Lens' TransfersInsert' (Maybe Text)

122−tiUserIP = lens _tiUserIP (\ s a -> s{_tiUserIP = a})

123−

12470-- | Multipart request metadata.

12571tiPayload :: Lens' TransfersInsert' DataTransfer

12672tiPayload

12773 = lens _tiPayload (\ s a -> s{_tiPayload = a})

12874

129−-- | API key. Your API key identifies your project and provides you with API

130−-- access, quota, and reports. Required unless you provide an OAuth 2.0

131−-- token.

132−tiKey :: Lens' TransfersInsert' (Maybe AuthKey)

133−tiKey = lens _tiKey (\ s a -> s{_tiKey = a})

134−

135−-- | OAuth 2.0 token for the current user.

136−tiOAuthToken :: Lens' TransfersInsert' (Maybe OAuthToken)

137−tiOAuthToken

138− = lens _tiOAuthToken (\ s a -> s{_tiOAuthToken = a})

139−

140−-- | Selector specifying which fields to include in a partial response.

141−tiFields :: Lens' TransfersInsert' (Maybe Text)

142−tiFields = lens _tiFields (\ s a -> s{_tiFields = a})

143−

144−instance GoogleAuth TransfersInsert' where

145− _AuthKey = tiKey . _Just

146− _AuthToken = tiOAuthToken . _Just

147−

14875instance GoogleRequest TransfersInsert' where

14976 type Rs TransfersInsert' = DataTransfer

150− request = requestWith dataTransferRequest

151− requestWith rq TransfersInsert'{..}

152− = go _tiQuotaUser (Just _tiPrettyPrint) _tiUserIP

153− _tiFields

154− _tiKey

155− _tiOAuthToken

156− (Just AltJSON)

157− _tiPayload

77+ requestClient TransfersInsert'{..}

78+ = go (Just AltJSON) _tiPayload dataTransferService

15879 where go

159− = clientBuild

80+ = buildClient

16081 (Proxy :: Proxy TransfersInsertResource)

161− rq

82+ mempty

gogol-admin-datatransfer/gen/Network/Google/Resource/DataTransfer/Transfers/List.hs+6−85

@@ -35,17 +35,11 @@ module Network.Google.Resource.DataTransfer.Transfers.List

3535

3636 -- * Request Lenses

3737 , tlStatus

38− , tlQuotaUser

39− , tlPrettyPrint

4038 , tlOldOwnerUserId

41− , tlUserIP

4239 , tlNewOwnerUserId

4340 , tlCustomerId

44− , tlKey

4541 , tlPageToken

46− , tlOAuthToken

4742 , tlMaxResults

48− , tlFields

4943 ) where

5044

5145import Network.Google.DataTransfer.Types

@@ -61,14 +55,8 @@ type TransfersListResource =

6155 QueryParam "customerId" Text :>

6256 QueryParam "pageToken" Text :>

6357 QueryParam "maxResults" Int32 :>

64− QueryParam "quotaUser" Text :>

65− QueryParam "prettyPrint" Bool :>

66− QueryParam "userIp" Text :>

67− QueryParam "fields" Text :>

68− QueryParam "key" AuthKey :>

69− Header "Authorization" OAuthToken :>

70− QueryParam "alt" AltJSON :>

71− Get '[JSON] DataTransfersListResponse

58+ QueryParam "alt" AltJSON :>

59+ Get '[JSON] DataTransfersListResponse

7260

7361-- | Lists the transfers for a customer by source user, destination user, or

7462-- status.

@@ -76,17 +64,11 @@ type TransfersListResource =

7664-- /See:/ 'transfersList'' smart constructor.

7765data TransfersList' = TransfersList'

7866 { _tlStatus :: !(Maybe Text)

79− , _tlQuotaUser :: !(Maybe Text)

80− , _tlPrettyPrint :: !Bool

8167 , _tlOldOwnerUserId :: !(Maybe Text)

82− , _tlUserIP :: !(Maybe Text)

8368 , _tlNewOwnerUserId :: !(Maybe Text)

8469 , _tlCustomerId :: !(Maybe Text)

85− , _tlKey :: !(Maybe AuthKey)

8670 , _tlPageToken :: !(Maybe Text)

87− , _tlOAuthToken :: !(Maybe OAuthToken)

8871 , _tlMaxResults :: !(Maybe Int32)

89− , _tlFields :: !(Maybe Text)

9072 } deriving (Eq,Show,Data,Typeable,Generic)

9173

9274-- | Creates a value of 'TransfersList'' with the minimum fields required to make a request.

@@ -95,73 +77,37 @@ data TransfersList' = TransfersList'

9577--

9678-- * 'tlStatus'

9779--

98−-- * 'tlQuotaUser'

99−--

100−-- * 'tlPrettyPrint'

101−--

10280-- * 'tlOldOwnerUserId'

10381--

104−-- * 'tlUserIP'

105−--

10682-- * 'tlNewOwnerUserId'

10783--

10884-- * 'tlCustomerId'

10985--

110−-- * 'tlKey'

111−--

11286-- * 'tlPageToken'

11387--

114−-- * 'tlOAuthToken'

115−--

11688-- * 'tlMaxResults'

117−--

118−-- * 'tlFields'

11989transfersList'

12090 :: TransfersList'

12191transfersList' =

12292 TransfersList'

12393 { _tlStatus = Nothing

124− , _tlQuotaUser = Nothing

125− , _tlPrettyPrint = True

12694 , _tlOldOwnerUserId = Nothing

127− , _tlUserIP = Nothing

12895 , _tlNewOwnerUserId = Nothing

12996 , _tlCustomerId = Nothing

130− , _tlKey = Nothing

13197 , _tlPageToken = Nothing

132− , _tlOAuthToken = Nothing

13398 , _tlMaxResults = Nothing

134− , _tlFields = Nothing

13599 }

136100

137101-- | Status of the transfer.

138102tlStatus :: Lens' TransfersList' (Maybe Text)

139103tlStatus = lens _tlStatus (\ s a -> s{_tlStatus = a})

140104

141−-- | Available to use for quota purposes for server-side applications. Can be

142−-- any arbitrary string assigned to a user, but should not exceed 40

143−-- characters. Overrides userIp if both are provided.

144−tlQuotaUser :: Lens' TransfersList' (Maybe Text)

145−tlQuotaUser

146− = lens _tlQuotaUser (\ s a -> s{_tlQuotaUser = a})

147−

148−-- | Returns response with indentations and line breaks.

149−tlPrettyPrint :: Lens' TransfersList' Bool

150−tlPrettyPrint

151− = lens _tlPrettyPrint

152− (\ s a -> s{_tlPrettyPrint = a})

153−

154105-- | Source user\'s profile ID.

155106tlOldOwnerUserId :: Lens' TransfersList' (Maybe Text)

156107tlOldOwnerUserId

157108 = lens _tlOldOwnerUserId

158109 (\ s a -> s{_tlOldOwnerUserId = a})

159110

160−-- | IP address of the site where the request originates. Use this if you

161−-- want to enforce per-user limits.

162−tlUserIP :: Lens' TransfersList' (Maybe Text)

163−tlUserIP = lens _tlUserIP (\ s a -> s{_tlUserIP = a})

164−

165111-- | Destination user\'s profile ID.

166112tlNewOwnerUserId :: Lens' TransfersList' (Maybe Text)

167113tlNewOwnerUserId

@@ -173,50 +119,25 @@ tlCustomerId :: Lens' TransfersList' (Maybe Text)

173119tlCustomerId

174120 = lens _tlCustomerId (\ s a -> s{_tlCustomerId = a})

175121

176−-- | API key. Your API key identifies your project and provides you with API

177−-- access, quota, and reports. Required unless you provide an OAuth 2.0

178−-- token.

179−tlKey :: Lens' TransfersList' (Maybe AuthKey)

180−tlKey = lens _tlKey (\ s a -> s{_tlKey = a})

181−

182122-- | Token to specify the next page in the list.

183123tlPageToken :: Lens' TransfersList' (Maybe Text)

184124tlPageToken

185125 = lens _tlPageToken (\ s a -> s{_tlPageToken = a})

186126

187−-- | OAuth 2.0 token for the current user.

188−tlOAuthToken :: Lens' TransfersList' (Maybe OAuthToken)

189−tlOAuthToken

190− = lens _tlOAuthToken (\ s a -> s{_tlOAuthToken = a})

191−

192127-- | Maximum number of results to return. Default is 100.

193128tlMaxResults :: Lens' TransfersList' (Maybe Int32)

194129tlMaxResults

195130 = lens _tlMaxResults (\ s a -> s{_tlMaxResults = a})

196131

197−-- | Selector specifying which fields to include in a partial response.

198−tlFields :: Lens' TransfersList' (Maybe Text)

199−tlFields = lens _tlFields (\ s a -> s{_tlFields = a})

200−

201−instance GoogleAuth TransfersList' where

202− _AuthKey = tlKey . _Just

203− _AuthToken = tlOAuthToken . _Just

204−

205132instance GoogleRequest TransfersList' where

206133 type Rs TransfersList' = DataTransfersListResponse

207− request = requestWith dataTransferRequest

208− requestWith rq TransfersList'{..}

134+ requestClient TransfersList'{..}

209135 = go _tlStatus _tlOldOwnerUserId _tlNewOwnerUserId

210136 _tlCustomerId

211137 _tlPageToken

212138 _tlMaxResults

213− _tlQuotaUser

214− (Just _tlPrettyPrint)

215− _tlUserIP

216− _tlFields

217− _tlKey

218− _tlOAuthToken

219139 (Just AltJSON)

140+ dataTransferService

220141 where go

221− = clientBuild (Proxy :: Proxy TransfersListResource)

222− rq

142+ = buildClient (Proxy :: Proxy TransfersListResource)

143+ mempty

gogol-admin-directory/gen/Network/Google/Directory.hs+4−1

@@ -20,8 +20,11 @@

2020-- /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference>

2121module Network.Google.Directory

2222 (

23+ -- * Service Configuration

24+ directoryService

25+

2326 -- * API Declaration

24− DirectoryAPI

27+ , DirectoryAPI

2528

2629 -- * Resources

2730

gogol-admin-directory/gen/Network/Google/Directory/Types.hs+103−5

@@ -15,8 +15,29 @@

1515--

1616module Network.Google.Directory.Types

1717 (

18− -- * Service Request

19− directoryRequest

18+ -- * Service Configuration

19+ directoryService

20+

21+ -- * OAuth Scopes

22+ , adminDirectoryGroupReadonlyScope

23+ , adminDirectoryDeviceChromeosReadonlyScope

24+ , adminDirectoryDeviceChromeosScope

25+ , adminDirectoryUserScope

26+ , adminDirectoryGroupMemberReadonlyScope

27+ , adminDirectoryUserAliasScope

28+ , adminDirectoryDeviceMobileActionScope

29+ , adminDirectoryUserschemaScope

30+ , adminDirectoryUserschemaReadonlyScope

31+ , adminDirectoryGroupScope

32+ , adminDirectoryOrgunitReadonlyScope

33+ , adminDirectoryOrgunitScope

34+ , adminDirectoryUserReadonlyScope

35+ , adminDirectoryUserAliasReadonlyScope

36+ , adminDirectoryUserSecurityScope

37+ , adminDirectoryGroupMemberScope

38+ , adminDirectoryNotificationsScope

39+ , adminDirectoryDeviceMobileScope

40+ , adminDirectoryDeviceMobileReadonlyScope

2041

2142 -- * VerificationCode

2243 , VerificationCode

@@ -581,7 +602,84 @@ import Network.Google.Directory.Types.Sum

581602import Network.Google.Prelude

582603

583604-- | Default request referring to version 'directory_v1' of the Admin Directory API. This contains the host and root path used as a starting point for constructing service requests.

584−directoryRequest :: RequestBuilder

585−directoryRequest

586− = defaultRequest "https://www.googleapis.com/"

605+directoryService :: Service

606+directoryService

607+ = defaultService (ServiceId "admin:directory_v1")

608+ "www.googleapis.com"

587609 "admin/directory/v1/"

610+

611+-- | View groups on your domain

612+adminDirectoryGroupReadonlyScope :: OAuthScope

613+adminDirectoryGroupReadonlyScope = OAuthScope "https://www.googleapis.com/auth/admin.directory.group.readonly";

614+

615+-- | View your Chrome OS devices\' metadata

616+adminDirectoryDeviceChromeosReadonlyScope :: OAuthScope

617+adminDirectoryDeviceChromeosReadonlyScope = OAuthScope "https://www.googleapis.com/auth/admin.directory.device.chromeos.readonly";

618+

619+-- | View and manage your Chrome OS devices\' metadata

620+adminDirectoryDeviceChromeosScope :: OAuthScope

621+adminDirectoryDeviceChromeosScope = OAuthScope "https://www.googleapis.com/auth/admin.directory.device.chromeos";

622+

623+-- | View and manage the provisioning of users on your domain

624+adminDirectoryUserScope :: OAuthScope

625+adminDirectoryUserScope = OAuthScope "https://www.googleapis.com/auth/admin.directory.user";

626+

627+-- | View group subscriptions on your domain

628+adminDirectoryGroupMemberReadonlyScope :: OAuthScope

629+adminDirectoryGroupMemberReadonlyScope = OAuthScope "https://www.googleapis.com/auth/admin.directory.group.member.readonly";

630+

631+-- | View and manage user aliases on your domain

632+adminDirectoryUserAliasScope :: OAuthScope

633+adminDirectoryUserAliasScope = OAuthScope "https://www.googleapis.com/auth/admin.directory.user.alias";

634+

635+-- | Manage your mobile devices by performing administrative tasks

636+adminDirectoryDeviceMobileActionScope :: OAuthScope

637+adminDirectoryDeviceMobileActionScope = OAuthScope "https://www.googleapis.com/auth/admin.directory.device.mobile.action";

638+

639+-- | View and manage the provisioning of user schemas on your domain

640+adminDirectoryUserschemaScope :: OAuthScope

641+adminDirectoryUserschemaScope = OAuthScope "https://www.googleapis.com/auth/admin.directory.userschema";

642+

643+-- | View user schemas on your domain

644+adminDirectoryUserschemaReadonlyScope :: OAuthScope

645+adminDirectoryUserschemaReadonlyScope = OAuthScope "https://www.googleapis.com/auth/admin.directory.userschema.readonly";

646+

647+-- | View and manage the provisioning of groups on your domain

648+adminDirectoryGroupScope :: OAuthScope

649+adminDirectoryGroupScope = OAuthScope "https://www.googleapis.com/auth/admin.directory.group";

650+

651+-- | View organization units on your domain

652+adminDirectoryOrgunitReadonlyScope :: OAuthScope

653+adminDirectoryOrgunitReadonlyScope = OAuthScope "https://www.googleapis.com/auth/admin.directory.orgunit.readonly";

654+

655+-- | View and manage organization units on your domain

656+adminDirectoryOrgunitScope :: OAuthScope

657+adminDirectoryOrgunitScope = OAuthScope "https://www.googleapis.com/auth/admin.directory.orgunit";

658+

659+-- | View users on your domain

660+adminDirectoryUserReadonlyScope :: OAuthScope

661+adminDirectoryUserReadonlyScope = OAuthScope "https://www.googleapis.com/auth/admin.directory.user.readonly";

662+

663+-- | View user aliases on your domain

664+adminDirectoryUserAliasReadonlyScope :: OAuthScope

665+adminDirectoryUserAliasReadonlyScope = OAuthScope "https://www.googleapis.com/auth/admin.directory.user.alias.readonly";

666+

667+-- | Manage data access permissions for users on your domain

668+adminDirectoryUserSecurityScope :: OAuthScope

669+adminDirectoryUserSecurityScope = OAuthScope "https://www.googleapis.com/auth/admin.directory.user.security";

670+

671+-- | View and manage group subscriptions on your domain

672+adminDirectoryGroupMemberScope :: OAuthScope

673+adminDirectoryGroupMemberScope = OAuthScope "https://www.googleapis.com/auth/admin.directory.group.member";

674+

675+-- | View and manage notifications received on your domain

676+adminDirectoryNotificationsScope :: OAuthScope

677+adminDirectoryNotificationsScope = OAuthScope "https://www.googleapis.com/auth/admin.directory.notifications";

678+

679+-- | View and manage your mobile devices\' metadata

680+adminDirectoryDeviceMobileScope :: OAuthScope

681+adminDirectoryDeviceMobileScope = OAuthScope "https://www.googleapis.com/auth/admin.directory.device.mobile";

682+

683+-- | View your mobile devices\' metadata

684+adminDirectoryDeviceMobileReadonlyScope :: OAuthScope

685+adminDirectoryDeviceMobileReadonlyScope = OAuthScope "https://www.googleapis.com/auth/admin.directory.device.mobile.readonly";

gogol-admin-directory/gen/Network/Google/Resource/Admin/Channels/Stop.hs+9−88

@@ -33,13 +33,7 @@ module Network.Google.Resource.Admin.Channels.Stop

3333 , ChannelsStop'

3434

3535 -- * Request Lenses

36− , csQuotaUser

37− , csPrettyPrint

38− , csUserIP

3936 , csPayload

40− , csKey

41− , csOAuthToken

42− , csFields

4337 ) where

4438

4539import Network.Google.Directory.Types

@@ -52,111 +46,38 @@ type ChannelsStopResource =

5246 "directory_v1" :>

5347 "channels" :>

5448 "stop" :>

55− QueryParam "quotaUser" Text :>

56− QueryParam "prettyPrint" Bool :>

57− QueryParam "userIp" Text :>

58− QueryParam "fields" Text :>

59− QueryParam "key" AuthKey :>

60− Header "Authorization" OAuthToken :>

61− QueryParam "alt" AltJSON :>

62− ReqBody '[JSON] Channel :> Post '[JSON] ()

49+ QueryParam "alt" AltJSON :>

50+ ReqBody '[JSON] Channel :> Post '[JSON] ()

6351

6452-- | Stop watching resources through this channel

6553--

6654-- /See:/ 'channelsStop'' smart constructor.

67−data ChannelsStop' = ChannelsStop'

68− { _csQuotaUser :: !(Maybe Text)

69− , _csPrettyPrint :: !Bool

70− , _csUserIP :: !(Maybe Text)

71− , _csPayload :: !Channel

72− , _csKey :: !(Maybe AuthKey)

73− , _csOAuthToken :: !(Maybe OAuthToken)

74− , _csFields :: !(Maybe Text)

55+newtype ChannelsStop' = ChannelsStop'

56+ { _csPayload :: Channel

7557 } deriving (Eq,Show,Data,Typeable,Generic)

7658

7759-- | Creates a value of 'ChannelsStop'' with the minimum fields required to make a request.

7860--

7961-- Use one of the following lenses to modify other fields as desired:

8062--

81−-- * 'csQuotaUser'

82−--

83−-- * 'csPrettyPrint'

84−--

85−-- * 'csUserIP'

86−--

8763-- * 'csPayload'

88−--

89−-- * 'csKey'

90−--

91−-- * 'csOAuthToken'

92−--

93−-- * 'csFields'

9464channelsStop'

9565 :: Channel -- ^ 'payload'

9666 -> ChannelsStop'

9767channelsStop' pCsPayload_ =

9868 ChannelsStop'

99− { _csQuotaUser = Nothing

100− , _csPrettyPrint = True

101− , _csUserIP = Nothing

102− , _csPayload = pCsPayload_

103− , _csKey = Nothing

104− , _csOAuthToken = Nothing

105− , _csFields = Nothing

69+ { _csPayload = pCsPayload_

10670 }

10771

108−-- | Available to use for quota purposes for server-side applications. Can be

109−-- any arbitrary string assigned to a user, but should not exceed 40

110−-- characters. Overrides userIp if both are provided.

111−csQuotaUser :: Lens' ChannelsStop' (Maybe Text)

112−csQuotaUser

113− = lens _csQuotaUser (\ s a -> s{_csQuotaUser = a})

114−

115−-- | Returns response with indentations and line breaks.

116−csPrettyPrint :: Lens' ChannelsStop' Bool

117−csPrettyPrint

118− = lens _csPrettyPrint

119− (\ s a -> s{_csPrettyPrint = a})

120−

121−-- | IP address of the site where the request originates. Use this if you

122−-- want to enforce per-user limits.

123−csUserIP :: Lens' ChannelsStop' (Maybe Text)

124−csUserIP = lens _csUserIP (\ s a -> s{_csUserIP = a})

125−

12672-- | Multipart request metadata.

12773csPayload :: Lens' ChannelsStop' Channel

12874csPayload

12975 = lens _csPayload (\ s a -> s{_csPayload = a})

13076

131−-- | API key. Your API key identifies your project and provides you with API

132−-- access, quota, and reports. Required unless you provide an OAuth 2.0

133−-- token.

134−csKey :: Lens' ChannelsStop' (Maybe AuthKey)

135−csKey = lens _csKey (\ s a -> s{_csKey = a})

136−

137−-- | OAuth 2.0 token for the current user.

138−csOAuthToken :: Lens' ChannelsStop' (Maybe OAuthToken)

139−csOAuthToken

140− = lens _csOAuthToken (\ s a -> s{_csOAuthToken = a})

141−

142−-- | Selector specifying which fields to include in a partial response.

143−csFields :: Lens' ChannelsStop' (Maybe Text)

144−csFields = lens _csFields (\ s a -> s{_csFields = a})

145−

146−instance GoogleAuth ChannelsStop' where

147− _AuthKey = csKey . _Just

148− _AuthToken = csOAuthToken . _Just

149−

15077instance GoogleRequest ChannelsStop' where

15178 type Rs ChannelsStop' = ()

152− request = requestWith directoryRequest

153− requestWith rq ChannelsStop'{..}

154− = go _csQuotaUser (Just _csPrettyPrint) _csUserIP

155− _csFields

156− _csKey

157− _csOAuthToken

158− (Just AltJSON)

159− _csPayload

79+ requestClient ChannelsStop'{..}

80+ = go (Just AltJSON) _csPayload directoryService

16081 where go

161− = clientBuild (Proxy :: Proxy ChannelsStopResource)

162− rq

82+ = buildClient (Proxy :: Proxy ChannelsStopResource)

83+ mempty

gogol-admin-directory/gen/Network/Google/Resource/Directory/Asps/Delete.hs+9−87

@@ -33,14 +33,8 @@ module Network.Google.Resource.Directory.Asps.Delete

3333 , AspsDelete'

3434

3535 -- * Request Lenses

36− , adQuotaUser

37− , adPrettyPrint

3836 , adCodeId

39− , adUserIP

40− , adKey

41− , adOAuthToken

4237 , adUserKey

43− , adFields

4438 ) where

4539

4640import Network.Google.Directory.Types

@@ -53,120 +47,48 @@ type AspsDeleteResource =

5347 Capture "userKey" Text :>

5448 "asps" :>

5549 Capture "codeId" Int32 :>

56− QueryParam "quotaUser" Text :>

57− QueryParam "prettyPrint" Bool :>

58− QueryParam "userIp" Text :>

59− QueryParam "fields" Text :>

60− QueryParam "key" AuthKey :>

61− Header "Authorization" OAuthToken :>

62− QueryParam "alt" AltJSON :> Delete '[JSON] ()

50+ QueryParam "alt" AltJSON :> Delete '[JSON] ()

6351

6452-- | Delete an ASP issued by a user.

6553--

6654-- /See:/ 'aspsDelete'' smart constructor.

6755data AspsDelete' = AspsDelete'

68− { _adQuotaUser :: !(Maybe Text)

69− , _adPrettyPrint :: !Bool

70− , _adCodeId :: !Int32

71− , _adUserIP :: !(Maybe Text)

72− , _adKey :: !(Maybe AuthKey)

73− , _adOAuthToken :: !(Maybe OAuthToken)

74− , _adUserKey :: !Text

75− , _adFields :: !(Maybe Text)

56+ { _adCodeId :: !Int32

57+ , _adUserKey :: !Text

7658 } deriving (Eq,Show,Data,Typeable,Generic)

7759

7860-- | Creates a value of 'AspsDelete'' with the minimum fields required to make a request.

7961--

8062-- Use one of the following lenses to modify other fields as desired:

8163--

82−-- * 'adQuotaUser'

83−--

84−-- * 'adPrettyPrint'

85−--

8664-- * 'adCodeId'

8765--

88−-- * 'adUserIP'

89−--

90−-- * 'adKey'

91−--

92−-- * 'adOAuthToken'

93−--

9466-- * 'adUserKey'

95−--

96−-- * 'adFields'

9767aspsDelete'

9868 :: Int32 -- ^ 'codeId'

9969 -> Text -- ^ 'userKey'

10070 -> AspsDelete'

10171aspsDelete' pAdCodeId_ pAdUserKey_ =

10272 AspsDelete'

103− { _adQuotaUser = Nothing

104− , _adPrettyPrint = True

105− , _adCodeId = pAdCodeId_

106− , _adUserIP = Nothing

107− , _adKey = Nothing

108− , _adOAuthToken = Nothing

73+ { _adCodeId = pAdCodeId_

10974 , _adUserKey = pAdUserKey_

110− , _adFields = Nothing

11175 }

11276

113−-- | Available to use for quota purposes for server-side applications. Can be

114−-- any arbitrary string assigned to a user, but should not exceed 40

115−-- characters. Overrides userIp if both are provided.

116−adQuotaUser :: Lens' AspsDelete' (Maybe Text)

117−adQuotaUser

118− = lens _adQuotaUser (\ s a -> s{_adQuotaUser = a})

119−

120−-- | Returns response with indentations and line breaks.

121−adPrettyPrint :: Lens' AspsDelete' Bool

122−adPrettyPrint

123− = lens _adPrettyPrint

124− (\ s a -> s{_adPrettyPrint = a})

125−

12677-- | The unique ID of the ASP to be deleted.

12778adCodeId :: Lens' AspsDelete' Int32

12879adCodeId = lens _adCodeId (\ s a -> s{_adCodeId = a})

12980

130−-- | IP address of the site where the request originates. Use this if you

131−-- want to enforce per-user limits.

132−adUserIP :: Lens' AspsDelete' (Maybe Text)

133−adUserIP = lens _adUserIP (\ s a -> s{_adUserIP = a})

134−

135−-- | API key. Your API key identifies your project and provides you with API

136−-- access, quota, and reports. Required unless you provide an OAuth 2.0

137−-- token.

138−adKey :: Lens' AspsDelete' (Maybe AuthKey)

139−adKey = lens _adKey (\ s a -> s{_adKey = a})

140−

141−-- | OAuth 2.0 token for the current user.

142−adOAuthToken :: Lens' AspsDelete' (Maybe OAuthToken)

143−adOAuthToken

144− = lens _adOAuthToken (\ s a -> s{_adOAuthToken = a})

145−

14681-- | Identifies the user in the API request. The value can be the user\'s

14782-- primary email address, alias email address, or unique user ID.

14883adUserKey :: Lens' AspsDelete' Text

14984adUserKey

15085 = lens _adUserKey (\ s a -> s{_adUserKey = a})

15186

152−-- | Selector specifying which fields to include in a partial response.

153−adFields :: Lens' AspsDelete' (Maybe Text)

154−adFields = lens _adFields (\ s a -> s{_adFields = a})

155−

156−instance GoogleAuth AspsDelete' where

157− _AuthKey = adKey . _Just

158− _AuthToken = adOAuthToken . _Just

159−

16087instance GoogleRequest AspsDelete' where

16188 type Rs AspsDelete' = ()

162− request = requestWith directoryRequest

163− requestWith rq AspsDelete'{..}

164− = go _adUserKey _adCodeId _adQuotaUser

165− (Just _adPrettyPrint)

166− _adUserIP

167− _adFields

168− _adKey

169− _adOAuthToken

170− (Just AltJSON)

89+ requestClient AspsDelete'{..}

90+ = go _adUserKey _adCodeId (Just AltJSON)

91+ directoryService

17192 where go

172− = clientBuild (Proxy :: Proxy AspsDeleteResource) rq

93+ = buildClient (Proxy :: Proxy AspsDeleteResource)

94+ mempty

gogol-admin-directory/gen/Network/Google/Resource/Directory/Asps/Get.hs+8−87

@@ -33,14 +33,8 @@ module Network.Google.Resource.Directory.Asps.Get

3333 , AspsGet'

3434

3535 -- * Request Lenses

36− , agQuotaUser

37− , agPrettyPrint

3836 , agCodeId

39− , agUserIP

40− , agKey

41− , agOAuthToken

4237 , agUserKey

43− , agFields

4438 ) where

4539

4640import Network.Google.Directory.Types

@@ -53,120 +47,47 @@ type AspsGetResource =

5347 Capture "userKey" Text :>

5448 "asps" :>

5549 Capture "codeId" Int32 :>

56− QueryParam "quotaUser" Text :>

57− QueryParam "prettyPrint" Bool :>

58− QueryParam "userIp" Text :>

59− QueryParam "fields" Text :>

60− QueryParam "key" AuthKey :>

61− Header "Authorization" OAuthToken :>

62− QueryParam "alt" AltJSON :> Get '[JSON] Asp

50+ QueryParam "alt" AltJSON :> Get '[JSON] Asp

6351

6452-- | Get information about an ASP issued by a user.

6553--

6654-- /See:/ 'aspsGet'' smart constructor.

6755data AspsGet' = AspsGet'

68− { _agQuotaUser :: !(Maybe Text)

69− , _agPrettyPrint :: !Bool

70− , _agCodeId :: !Int32

71− , _agUserIP :: !(Maybe Text)

72− , _agKey :: !(Maybe AuthKey)

73− , _agOAuthToken :: !(Maybe OAuthToken)

74− , _agUserKey :: !Text

75− , _agFields :: !(Maybe Text)

56+ { _agCodeId :: !Int32

57+ , _agUserKey :: !Text

7658 } deriving (Eq,Show,Data,Typeable,Generic)

7759

7860-- | Creates a value of 'AspsGet'' with the minimum fields required to make a request.

7961--

8062-- Use one of the following lenses to modify other fields as desired:

8163--

82−-- * 'agQuotaUser'

83−--

84−-- * 'agPrettyPrint'

85−--

8664-- * 'agCodeId'

8765--

88−-- * 'agUserIP'

89−--

90−-- * 'agKey'

91−--

92−-- * 'agOAuthToken'

93−--

9466-- * 'agUserKey'

95−--

96−-- * 'agFields'

9767aspsGet'

9868 :: Int32 -- ^ 'codeId'

9969 -> Text -- ^ 'userKey'

10070 -> AspsGet'

10171aspsGet' pAgCodeId_ pAgUserKey_ =

10272 AspsGet'

103− { _agQuotaUser = Nothing

104− , _agPrettyPrint = True

105− , _agCodeId = pAgCodeId_

106− , _agUserIP = Nothing

107− , _agKey = Nothing

108− , _agOAuthToken = Nothing

73+ { _agCodeId = pAgCodeId_

10974 , _agUserKey = pAgUserKey_

110− , _agFields = Nothing

11175 }

11276

113−-- | Available to use for quota purposes for server-side applications. Can be

114−-- any arbitrary string assigned to a user, but should not exceed 40

115−-- characters. Overrides userIp if both are provided.

116−agQuotaUser :: Lens' AspsGet' (Maybe Text)

117−agQuotaUser

118− = lens _agQuotaUser (\ s a -> s{_agQuotaUser = a})

119−

120−-- | Returns response with indentations and line breaks.

121−agPrettyPrint :: Lens' AspsGet' Bool

122−agPrettyPrint

123− = lens _agPrettyPrint

124− (\ s a -> s{_agPrettyPrint = a})

125−

12677-- | The unique ID of the ASP.

12778agCodeId :: Lens' AspsGet' Int32

12879agCodeId = lens _agCodeId (\ s a -> s{_agCodeId = a})

12980

130−-- | IP address of the site where the request originates. Use this if you

131−-- want to enforce per-user limits.

132−agUserIP :: Lens' AspsGet' (Maybe Text)

133−agUserIP = lens _agUserIP (\ s a -> s{_agUserIP = a})

134−

135−-- | API key. Your API key identifies your project and provides you with API

136−-- access, quota, and reports. Required unless you provide an OAuth 2.0

137−-- token.

138−agKey :: Lens' AspsGet' (Maybe AuthKey)

139−agKey = lens _agKey (\ s a -> s{_agKey = a})

140−

141−-- | OAuth 2.0 token for the current user.

142−agOAuthToken :: Lens' AspsGet' (Maybe OAuthToken)

143−agOAuthToken

144− = lens _agOAuthToken (\ s a -> s{_agOAuthToken = a})

145−

14681-- | Identifies the user in the API request. The value can be the user\'s

14782-- primary email address, alias email address, or unique user ID.

14883agUserKey :: Lens' AspsGet' Text

14984agUserKey

15085 = lens _agUserKey (\ s a -> s{_agUserKey = a})

15186

152−-- | Selector specifying which fields to include in a partial response.

153−agFields :: Lens' AspsGet' (Maybe Text)

154−agFields = lens _agFields (\ s a -> s{_agFields = a})

155−

156−instance GoogleAuth AspsGet' where

157− _AuthKey = agKey . _Just

158− _AuthToken = agOAuthToken . _Just

159−

16087instance GoogleRequest AspsGet' where

16188 type Rs AspsGet' = Asp

162− request = requestWith directoryRequest

163− requestWith rq AspsGet'{..}

164− = go _agUserKey _agCodeId _agQuotaUser

165− (Just _agPrettyPrint)

166− _agUserIP

167− _agFields

168− _agKey

169− _agOAuthToken

170− (Just AltJSON)

89+ requestClient AspsGet'{..}

90+ = go _agUserKey _agCodeId (Just AltJSON)

91+ directoryService

17192 where go

172− = clientBuild (Proxy :: Proxy AspsGetResource) rq

93+ = buildClient (Proxy :: Proxy AspsGetResource) mempty

gogol-admin-directory/gen/Network/Google/Resource/Directory/Asps/List.hs+8−86

@@ -33,13 +33,7 @@ module Network.Google.Resource.Directory.Asps.List

3333 , AspsList'

3434

3535 -- * Request Lenses

36− , alQuotaUser

37− , alPrettyPrint

38− , alUserIP

39− , alKey

40− , alOAuthToken

4136 , alUserKey

42− , alFields

4337 ) where

4438

4539import Network.Google.Directory.Types

@@ -51,110 +45,38 @@ type AspsListResource =

5145 "users" :>

5246 Capture "userKey" Text :>

5347 "asps" :>

54− QueryParam "quotaUser" Text :>

55− QueryParam "prettyPrint" Bool :>

56− QueryParam "userIp" Text :>

57− QueryParam "fields" Text :>

58− QueryParam "key" AuthKey :>

59− Header "Authorization" OAuthToken :>

60− QueryParam "alt" AltJSON :> Get '[JSON] Asps

48+ QueryParam "alt" AltJSON :> Get '[JSON] Asps

6149

6250-- | List the ASPs issued by a user.

6351--

6452-- /See:/ 'aspsList'' smart constructor.

65−data AspsList' = AspsList'

66− { _alQuotaUser :: !(Maybe Text)

67− , _alPrettyPrint :: !Bool

68− , _alUserIP :: !(Maybe Text)

69− , _alKey :: !(Maybe AuthKey)

70− , _alOAuthToken :: !(Maybe OAuthToken)

71− , _alUserKey :: !Text

72− , _alFields :: !(Maybe Text)

53+newtype AspsList' = AspsList'

54+ { _alUserKey :: Text

7355 } deriving (Eq,Show,Data,Typeable,Generic)

7456

7557-- | Creates a value of 'AspsList'' with the minimum fields required to make a request.

7658--

7759-- Use one of the following lenses to modify other fields as desired:

7860--

79−-- * 'alQuotaUser'

80−--

81−-- * 'alPrettyPrint'

82−--

83−-- * 'alUserIP'

84−--

85−-- * 'alKey'

86−--

87−-- * 'alOAuthToken'

88−--

8961-- * 'alUserKey'

90−--

91−-- * 'alFields'

9262aspsList'

9363 :: Text -- ^ 'userKey'

9464 -> AspsList'

9565aspsList' pAlUserKey_ =

9666 AspsList'

97− { _alQuotaUser = Nothing

98− , _alPrettyPrint = True

99− , _alUserIP = Nothing

100− , _alKey = Nothing

101− , _alOAuthToken = Nothing

102− , _alUserKey = pAlUserKey_

103− , _alFields = Nothing

67+ { _alUserKey = pAlUserKey_

10468 }

10569

106−-- | Available to use for quota purposes for server-side applications. Can be

107−-- any arbitrary string assigned to a user, but should not exceed 40

108−-- characters. Overrides userIp if both are provided.

109−alQuotaUser :: Lens' AspsList' (Maybe Text)

110−alQuotaUser

111− = lens _alQuotaUser (\ s a -> s{_alQuotaUser = a})

112−

113−-- | Returns response with indentations and line breaks.

114−alPrettyPrint :: Lens' AspsList' Bool

115−alPrettyPrint

116− = lens _alPrettyPrint

117− (\ s a -> s{_alPrettyPrint = a})

118−

119−-- | IP address of the site where the request originates. Use this if you

120−-- want to enforce per-user limits.

121−alUserIP :: Lens' AspsList' (Maybe Text)

122−alUserIP = lens _alUserIP (\ s a -> s{_alUserIP = a})

123−

124−-- | API key. Your API key identifies your project and provides you with API

125−-- access, quota, and reports. Required unless you provide an OAuth 2.0

126−-- token.

127−alKey :: Lens' AspsList' (Maybe AuthKey)

128−alKey = lens _alKey (\ s a -> s{_alKey = a})

129−

130−-- | OAuth 2.0 token for the current user.

131−alOAuthToken :: Lens' AspsList' (Maybe OAuthToken)

132−alOAuthToken

133− = lens _alOAuthToken (\ s a -> s{_alOAuthToken = a})

134−

13570-- | Identifies the user in the API request. The value can be the user\'s

13671-- primary email address, alias email address, or unique user ID.

13772alUserKey :: Lens' AspsList' Text

13873alUserKey

13974 = lens _alUserKey (\ s a -> s{_alUserKey = a})

14075

141−-- | Selector specifying which fields to include in a partial response.

142−alFields :: Lens' AspsList' (Maybe Text)

143−alFields = lens _alFields (\ s a -> s{_alFields = a})

144−

145−instance GoogleAuth AspsList' where

146− _AuthKey = alKey . _Just

147− _AuthToken = alOAuthToken . _Just

148−

14976instance GoogleRequest AspsList' where

15077 type Rs AspsList' = Asps

151− request = requestWith directoryRequest

152− requestWith rq AspsList'{..}

153− = go _alUserKey _alQuotaUser (Just _alPrettyPrint)

154− _alUserIP

155− _alFields

156− _alKey

157− _alOAuthToken

158− (Just AltJSON)

78+ requestClient AspsList'{..}

79+ = go _alUserKey (Just AltJSON) directoryService

15980 where go

160− = clientBuild (Proxy :: Proxy AspsListResource) rq

81+ = buildClient (Proxy :: Proxy AspsListResource)

82+ mempty

gogol-admin-directory/gen/Network/Google/Resource/Directory/ChromeosDevices/Get.hs+10−92

@@ -33,15 +33,9 @@ module Network.Google.Resource.Directory.ChromeosDevices.Get

3333 , ChromeosDevicesGet'

3434

3535 -- * Request Lenses

36− , cdgQuotaUser

37− , cdgPrettyPrint

38− , cdgUserIP

3936 , cdgCustomerId

40− , cdgKey

4137 , cdgDeviceId

4238 , cdgProjection

43− , cdgOAuthToken

44− , cdgFields

4539 ) where

4640

4741import Network.Google.Directory.Types

@@ -57,99 +51,44 @@ type ChromeosDevicesGetResource =

5751 Capture "deviceId" Text :>

5852 QueryParam "projection" ChromeosDevicesGetProjection

5953 :>

60− QueryParam "quotaUser" Text :>

61− QueryParam "prettyPrint" Bool :>

62− QueryParam "userIp" Text :>

63− QueryParam "fields" Text :>

64− QueryParam "key" AuthKey :>

65− Header "Authorization" OAuthToken :>

66− QueryParam "alt" AltJSON :>

67− Get '[JSON] ChromeOSDevice

54+ QueryParam "alt" AltJSON :>

55+ Get '[JSON] ChromeOSDevice

6856

6957-- | Retrieve Chrome OS Device

7058--

7159-- /See:/ 'chromeosDevicesGet'' smart constructor.

7260data ChromeosDevicesGet' = ChromeosDevicesGet'

73− { _cdgQuotaUser :: !(Maybe Text)

74− , _cdgPrettyPrint :: !Bool

75− , _cdgUserIP :: !(Maybe Text)

76− , _cdgCustomerId :: !Text

77− , _cdgKey :: !(Maybe AuthKey)

78− , _cdgDeviceId :: !Text

79− , _cdgProjection :: !(Maybe ChromeosDevicesGetProjection)

80− , _cdgOAuthToken :: !(Maybe OAuthToken)

81− , _cdgFields :: !(Maybe Text)

61+ { _cdgCustomerId :: !Text

62+ , _cdgDeviceId :: !Text

63+ , _cdgProjection :: !(Maybe ChromeosDevicesGetProjection)

8264 } deriving (Eq,Show,Data,Typeable,Generic)

8365

8466-- | Creates a value of 'ChromeosDevicesGet'' with the minimum fields required to make a request.

8567--

8668-- Use one of the following lenses to modify other fields as desired:

8769--

88−-- * 'cdgQuotaUser'

89−--

90−-- * 'cdgPrettyPrint'

91−--

92−-- * 'cdgUserIP'

93−--

9470-- * 'cdgCustomerId'

9571--

96−-- * 'cdgKey'

97−--

9872-- * 'cdgDeviceId'

9973--

10074-- * 'cdgProjection'

101−--

102−-- * 'cdgOAuthToken'

103−--

104−-- * 'cdgFields'

10575chromeosDevicesGet'

10676 :: Text -- ^ 'customerId'

10777 -> Text -- ^ 'deviceId'

10878 -> ChromeosDevicesGet'

10979chromeosDevicesGet' pCdgCustomerId_ pCdgDeviceId_ =

11080 ChromeosDevicesGet'

111− { _cdgQuotaUser = Nothing

112− , _cdgPrettyPrint = True

113− , _cdgUserIP = Nothing

114− , _cdgCustomerId = pCdgCustomerId_

115− , _cdgKey = Nothing

81+ { _cdgCustomerId = pCdgCustomerId_

11682 , _cdgDeviceId = pCdgDeviceId_

11783 , _cdgProjection = Nothing

118− , _cdgOAuthToken = Nothing

119− , _cdgFields = Nothing

12084 }

12185

122−-- | Available to use for quota purposes for server-side applications. Can be

123−-- any arbitrary string assigned to a user, but should not exceed 40

124−-- characters. Overrides userIp if both are provided.

125−cdgQuotaUser :: Lens' ChromeosDevicesGet' (Maybe Text)

126−cdgQuotaUser

127− = lens _cdgQuotaUser (\ s a -> s{_cdgQuotaUser = a})

128−

129−-- | Returns response with indentations and line breaks.

130−cdgPrettyPrint :: Lens' ChromeosDevicesGet' Bool

131−cdgPrettyPrint

132− = lens _cdgPrettyPrint

133− (\ s a -> s{_cdgPrettyPrint = a})

134−

135−-- | IP address of the site where the request originates. Use this if you

136−-- want to enforce per-user limits.

137−cdgUserIP :: Lens' ChromeosDevicesGet' (Maybe Text)

138−cdgUserIP

139− = lens _cdgUserIP (\ s a -> s{_cdgUserIP = a})

140−

14186-- | Immutable id of the Google Apps account

14287cdgCustomerId :: Lens' ChromeosDevicesGet' Text

14388cdgCustomerId

14489 = lens _cdgCustomerId

14590 (\ s a -> s{_cdgCustomerId = a})

14691

147−-- | API key. Your API key identifies your project and provides you with API

148−-- access, quota, and reports. Required unless you provide an OAuth 2.0

149−-- token.

150−cdgKey :: Lens' ChromeosDevicesGet' (Maybe AuthKey)

151−cdgKey = lens _cdgKey (\ s a -> s{_cdgKey = a})

152−

15392-- | Immutable id of Chrome OS Device

15493cdgDeviceId :: Lens' ChromeosDevicesGet' Text

15594cdgDeviceId

@@ -161,34 +100,13 @@ cdgProjection

161100 = lens _cdgProjection

162101 (\ s a -> s{_cdgProjection = a})

163102

164−-- | OAuth 2.0 token for the current user.

165−cdgOAuthToken :: Lens' ChromeosDevicesGet' (Maybe OAuthToken)

166−cdgOAuthToken

167− = lens _cdgOAuthToken

168− (\ s a -> s{_cdgOAuthToken = a})

169−

170−-- | Selector specifying which fields to include in a partial response.

171−cdgFields :: Lens' ChromeosDevicesGet' (Maybe Text)

172−cdgFields

173− = lens _cdgFields (\ s a -> s{_cdgFields = a})

174−

175−instance GoogleAuth ChromeosDevicesGet' where

176− _AuthKey = cdgKey . _Just

177− _AuthToken = cdgOAuthToken . _Just

178−

179103instance GoogleRequest ChromeosDevicesGet' where

180104 type Rs ChromeosDevicesGet' = ChromeOSDevice

181− request = requestWith directoryRequest

182− requestWith rq ChromeosDevicesGet'{..}

105+ requestClient ChromeosDevicesGet'{..}

183106 = go _cdgCustomerId _cdgDeviceId _cdgProjection

184− _cdgQuotaUser

185− (Just _cdgPrettyPrint)

186− _cdgUserIP

187− _cdgFields

188− _cdgKey

189− _cdgOAuthToken

190107 (Just AltJSON)

108+ directoryService

191109 where go

192− = clientBuild

110+ = buildClient

193111 (Proxy :: Proxy ChromeosDevicesGetResource)

194− rq

112+ mempty

gogol-admin-directory/gen/Network/Google/Resource/Directory/ChromeosDevices/List.hs+14−96

@@ -33,19 +33,13 @@ module Network.Google.Resource.Directory.ChromeosDevices.List

3333 , ChromeosDevicesList'

3434

3535 -- * Request Lenses

36− , cdlQuotaUser

37− , cdlPrettyPrint

3836 , cdlOrderBy

39− , cdlUserIP

4037 , cdlCustomerId

4138 , cdlSortOrder

42− , cdlKey

4339 , cdlQuery

4440 , cdlProjection

4541 , cdlPageToken

46− , cdlOAuthToken

4742 , cdlMaxResults

48− , cdlFields

4943 ) where

5044

5145import Network.Google.Directory.Types

@@ -66,107 +60,58 @@ type ChromeosDevicesListResource =

6660 :>

6761 QueryParam "pageToken" Text :>

6862 QueryParam "maxResults" Int32 :>

69− QueryParam "quotaUser" Text :>

70− QueryParam "prettyPrint" Bool :>

71− QueryParam "userIp" Text :>

72− QueryParam "fields" Text :>

73− QueryParam "key" AuthKey :>

74− Header "Authorization" OAuthToken :>

75− QueryParam "alt" AltJSON :>

76− Get '[JSON] ChromeOSDevices

63+ QueryParam "alt" AltJSON :>

64+ Get '[JSON] ChromeOSDevices

7765

7866-- | Retrieve all Chrome OS Devices of a customer (paginated)

7967--

8068-- /See:/ 'chromeosDevicesList'' smart constructor.

8169data ChromeosDevicesList' = ChromeosDevicesList'

82− { _cdlQuotaUser :: !(Maybe Text)

83− , _cdlPrettyPrint :: !Bool

84− , _cdlOrderBy :: !(Maybe ChromeosDevicesListOrderBy)

85− , _cdlUserIP :: !(Maybe Text)

86− , _cdlCustomerId :: !Text

87− , _cdlSortOrder :: !(Maybe ChromeosDevicesListSortOrder)

88− , _cdlKey :: !(Maybe AuthKey)

89− , _cdlQuery :: !(Maybe Text)

90− , _cdlProjection :: !(Maybe ChromeosDevicesListProjection)

91− , _cdlPageToken :: !(Maybe Text)

92− , _cdlOAuthToken :: !(Maybe OAuthToken)

93− , _cdlMaxResults :: !(Maybe Int32)

94− , _cdlFields :: !(Maybe Text)

70+ { _cdlOrderBy :: !(Maybe ChromeosDevicesListOrderBy)

71+ , _cdlCustomerId :: !Text

72+ , _cdlSortOrder :: !(Maybe ChromeosDevicesListSortOrder)

73+ , _cdlQuery :: !(Maybe Text)

74+ , _cdlProjection :: !(Maybe ChromeosDevicesListProjection)

75+ , _cdlPageToken :: !(Maybe Text)

76+ , _cdlMaxResults :: !(Maybe Int32)

9577 } deriving (Eq,Show,Data,Typeable,Generic)

9678

9779-- | Creates a value of 'ChromeosDevicesList'' with the minimum fields required to make a request.

9880--

9981-- Use one of the following lenses to modify other fields as desired:

10082--

101−-- * 'cdlQuotaUser'

102−--

103−-- * 'cdlPrettyPrint'

104−--

10583-- * 'cdlOrderBy'

10684--

107−-- * 'cdlUserIP'

108−--

10985-- * 'cdlCustomerId'

11086--

11187-- * 'cdlSortOrder'

11288--

113−-- * 'cdlKey'

114−--

11589-- * 'cdlQuery'

11690--

11791-- * 'cdlProjection'

11892--

11993-- * 'cdlPageToken'

12094--

121−-- * 'cdlOAuthToken'

122−--

12395-- * 'cdlMaxResults'

124−--

125−-- * 'cdlFields'

12696chromeosDevicesList'

12797 :: Text -- ^ 'customerId'

12898 -> ChromeosDevicesList'

12999chromeosDevicesList' pCdlCustomerId_ =

130100 ChromeosDevicesList'

131− { _cdlQuotaUser = Nothing

132− , _cdlPrettyPrint = True

133− , _cdlOrderBy = Nothing

134− , _cdlUserIP = Nothing

101+ { _cdlOrderBy = Nothing

135102 , _cdlCustomerId = pCdlCustomerId_

136103 , _cdlSortOrder = Nothing

137− , _cdlKey = Nothing

138104 , _cdlQuery = Nothing

139105 , _cdlProjection = Nothing

140106 , _cdlPageToken = Nothing

141− , _cdlOAuthToken = Nothing

142107 , _cdlMaxResults = Nothing

143− , _cdlFields = Nothing

144108 }

145109

146−-- | Available to use for quota purposes for server-side applications. Can be

147−-- any arbitrary string assigned to a user, but should not exceed 40

148−-- characters. Overrides userIp if both are provided.

149−cdlQuotaUser :: Lens' ChromeosDevicesList' (Maybe Text)

150−cdlQuotaUser

151− = lens _cdlQuotaUser (\ s a -> s{_cdlQuotaUser = a})

152−

153−-- | Returns response with indentations and line breaks.

154−cdlPrettyPrint :: Lens' ChromeosDevicesList' Bool

155−cdlPrettyPrint

156− = lens _cdlPrettyPrint

157− (\ s a -> s{_cdlPrettyPrint = a})

158−

159110-- | Column to use for sorting results

160111cdlOrderBy :: Lens' ChromeosDevicesList' (Maybe ChromeosDevicesListOrderBy)

161112cdlOrderBy

162113 = lens _cdlOrderBy (\ s a -> s{_cdlOrderBy = a})

163114

164−-- | IP address of the site where the request originates. Use this if you

165−-- want to enforce per-user limits.

166−cdlUserIP :: Lens' ChromeosDevicesList' (Maybe Text)

167−cdlUserIP

168− = lens _cdlUserIP (\ s a -> s{_cdlUserIP = a})

169−

170115-- | Immutable id of the Google Apps account

171116cdlCustomerId :: Lens' ChromeosDevicesList' Text

172117cdlCustomerId

@@ -179,12 +124,6 @@ cdlSortOrder :: Lens' ChromeosDevicesList' (Maybe ChromeosDevicesListSortOrder)

179124cdlSortOrder

180125 = lens _cdlSortOrder (\ s a -> s{_cdlSortOrder = a})

181126

182−-- | API key. Your API key identifies your project and provides you with API

183−-- access, quota, and reports. Required unless you provide an OAuth 2.0

184−-- token.

185−cdlKey :: Lens' ChromeosDevicesList' (Maybe AuthKey)

186−cdlKey = lens _cdlKey (\ s a -> s{_cdlKey = a})

187−

188127-- | Search string in the format given at

189128-- http:\/\/support.google.com\/chromeos\/a\/bin\/answer.py?hl=en&answer=1698333

190129cdlQuery :: Lens' ChromeosDevicesList' (Maybe Text)

@@ -201,44 +140,23 @@ cdlPageToken :: Lens' ChromeosDevicesList' (Maybe Text)

201140cdlPageToken

202141 = lens _cdlPageToken (\ s a -> s{_cdlPageToken = a})

203142

204−-- | OAuth 2.0 token for the current user.

205−cdlOAuthToken :: Lens' ChromeosDevicesList' (Maybe OAuthToken)

206−cdlOAuthToken

207− = lens _cdlOAuthToken

208− (\ s a -> s{_cdlOAuthToken = a})

209−

210143-- | Maximum number of results to return. Default is 100

211144cdlMaxResults :: Lens' ChromeosDevicesList' (Maybe Int32)

212145cdlMaxResults

213146 = lens _cdlMaxResults

214147 (\ s a -> s{_cdlMaxResults = a})

215148

216−-- | Selector specifying which fields to include in a partial response.

217−cdlFields :: Lens' ChromeosDevicesList' (Maybe Text)

218−cdlFields

219− = lens _cdlFields (\ s a -> s{_cdlFields = a})

220−

221−instance GoogleAuth ChromeosDevicesList' where

222− _AuthKey = cdlKey . _Just

223− _AuthToken = cdlOAuthToken . _Just

224−

225149instance GoogleRequest ChromeosDevicesList' where

226150 type Rs ChromeosDevicesList' = ChromeOSDevices

227− request = requestWith directoryRequest

228− requestWith rq ChromeosDevicesList'{..}

151+ requestClient ChromeosDevicesList'{..}

229152 = go _cdlCustomerId _cdlOrderBy _cdlSortOrder

230153 _cdlQuery

231154 _cdlProjection

232155 _cdlPageToken

233156 _cdlMaxResults

234− _cdlQuotaUser

235− (Just _cdlPrettyPrint)

236− _cdlUserIP

237− _cdlFields

238− _cdlKey

239− _cdlOAuthToken

240157 (Just AltJSON)

158+ directoryService

241159 where go

242− = clientBuild

160+ = buildClient

243161 (Proxy :: Proxy ChromeosDevicesListResource)

244− rq

162+ mempty

gogol-admin-directory/gen/Network/Google/Resource/Directory/ChromeosDevices/Patch.hs+12−94

@@ -33,16 +33,10 @@ module Network.Google.Resource.Directory.ChromeosDevices.Patch

3333 , ChromeosDevicesPatch'

3434

3535 -- * Request Lenses

36− , cdpQuotaUser

37− , cdpPrettyPrint

38− , cdpUserIP

3936 , cdpPayload

4037 , cdpCustomerId

41− , cdpKey

4238 , cdpDeviceId

4339 , cdpProjection

44− , cdpOAuthToken

45− , cdpFields

4640 ) where

4741

4842import Network.Google.Directory.Types

@@ -59,55 +53,31 @@ type ChromeosDevicesPatchResource =

5953 QueryParam "projection"

6054 ChromeosDevicesPatchProjection

6155 :>

62− QueryParam "quotaUser" Text :>

63− QueryParam "prettyPrint" Bool :>

64− QueryParam "userIp" Text :>

65− QueryParam "fields" Text :>

66− QueryParam "key" AuthKey :>

67− Header "Authorization" OAuthToken :>

68− QueryParam "alt" AltJSON :>

69− ReqBody '[JSON] ChromeOSDevice :>

70− Patch '[JSON] ChromeOSDevice

56+ QueryParam "alt" AltJSON :>

57+ ReqBody '[JSON] ChromeOSDevice :>

58+ Patch '[JSON] ChromeOSDevice

7159

7260-- | Update Chrome OS Device. This method supports patch semantics.

7361--

7462-- /See:/ 'chromeosDevicesPatch'' smart constructor.

7563data ChromeosDevicesPatch' = ChromeosDevicesPatch'

76− { _cdpQuotaUser :: !(Maybe Text)

77− , _cdpPrettyPrint :: !Bool

78− , _cdpUserIP :: !(Maybe Text)

79− , _cdpPayload :: !ChromeOSDevice

80− , _cdpCustomerId :: !Text

81− , _cdpKey :: !(Maybe AuthKey)

82− , _cdpDeviceId :: !Text

83− , _cdpProjection :: !(Maybe ChromeosDevicesPatchProjection)

84− , _cdpOAuthToken :: !(Maybe OAuthToken)

85− , _cdpFields :: !(Maybe Text)

64+ { _cdpPayload :: !ChromeOSDevice

65+ , _cdpCustomerId :: !Text

66+ , _cdpDeviceId :: !Text

67+ , _cdpProjection :: !(Maybe ChromeosDevicesPatchProjection)

8668 } deriving (Eq,Show,Data,Typeable,Generic)

8769

8870-- | Creates a value of 'ChromeosDevicesPatch'' with the minimum fields required to make a request.

8971--

9072-- Use one of the following lenses to modify other fields as desired:

9173--

92−-- * 'cdpQuotaUser'

93−--

94−-- * 'cdpPrettyPrint'

95−--

96−-- * 'cdpUserIP'

97−--

9874-- * 'cdpPayload'

9975--

10076-- * 'cdpCustomerId'

10177--

102−-- * 'cdpKey'

103−--

10478-- * 'cdpDeviceId'

10579--

10680-- * 'cdpProjection'

107−--

108−-- * 'cdpOAuthToken'

109−--

110−-- * 'cdpFields'

11181chromeosDevicesPatch'

11282 :: ChromeOSDevice -- ^ 'payload'

11383 -> Text -- ^ 'customerId'

@@ -115,37 +85,12 @@ chromeosDevicesPatch'

11585 -> ChromeosDevicesPatch'

11686chromeosDevicesPatch' pCdpPayload_ pCdpCustomerId_ pCdpDeviceId_ =

11787 ChromeosDevicesPatch'

118− { _cdpQuotaUser = Nothing

119− , _cdpPrettyPrint = True

120− , _cdpUserIP = Nothing

121− , _cdpPayload = pCdpPayload_

88+ { _cdpPayload = pCdpPayload_

12289 , _cdpCustomerId = pCdpCustomerId_

123− , _cdpKey = Nothing

12490 , _cdpDeviceId = pCdpDeviceId_

12591 , _cdpProjection = Nothing

126− , _cdpOAuthToken = Nothing

127− , _cdpFields = Nothing

12892 }

12993

130−-- | Available to use for quota purposes for server-side applications. Can be

131−-- any arbitrary string assigned to a user, but should not exceed 40

132−-- characters. Overrides userIp if both are provided.

133−cdpQuotaUser :: Lens' ChromeosDevicesPatch' (Maybe Text)

134−cdpQuotaUser

135− = lens _cdpQuotaUser (\ s a -> s{_cdpQuotaUser = a})

136−

137−-- | Returns response with indentations and line breaks.

138−cdpPrettyPrint :: Lens' ChromeosDevicesPatch' Bool

139−cdpPrettyPrint

140− = lens _cdpPrettyPrint

141− (\ s a -> s{_cdpPrettyPrint = a})

142−

143−-- | IP address of the site where the request originates. Use this if you

144−-- want to enforce per-user limits.

145−cdpUserIP :: Lens' ChromeosDevicesPatch' (Maybe Text)

146−cdpUserIP

147− = lens _cdpUserIP (\ s a -> s{_cdpUserIP = a})

148−

14994-- | Multipart request metadata.

15095cdpPayload :: Lens' ChromeosDevicesPatch' ChromeOSDevice

15196cdpPayload

@@ -157,12 +102,6 @@ cdpCustomerId

157102 = lens _cdpCustomerId

158103 (\ s a -> s{_cdpCustomerId = a})

159104

160−-- | API key. Your API key identifies your project and provides you with API

161−-- access, quota, and reports. Required unless you provide an OAuth 2.0

162−-- token.

163−cdpKey :: Lens' ChromeosDevicesPatch' (Maybe AuthKey)

164−cdpKey = lens _cdpKey (\ s a -> s{_cdpKey = a})

165−

166105-- | Immutable id of Chrome OS Device

167106cdpDeviceId :: Lens' ChromeosDevicesPatch' Text

168107cdpDeviceId

@@ -174,35 +113,14 @@ cdpProjection

174113 = lens _cdpProjection

175114 (\ s a -> s{_cdpProjection = a})

176115

177−-- | OAuth 2.0 token for the current user.

178−cdpOAuthToken :: Lens' ChromeosDevicesPatch' (Maybe OAuthToken)

179−cdpOAuthToken

180− = lens _cdpOAuthToken

181− (\ s a -> s{_cdpOAuthToken = a})

182−

183−-- | Selector specifying which fields to include in a partial response.

184−cdpFields :: Lens' ChromeosDevicesPatch' (Maybe Text)

185−cdpFields

186− = lens _cdpFields (\ s a -> s{_cdpFields = a})

187−

188−instance GoogleAuth ChromeosDevicesPatch' where

189− _AuthKey = cdpKey . _Just

190− _AuthToken = cdpOAuthToken . _Just

191−

192116instance GoogleRequest ChromeosDevicesPatch' where

193117 type Rs ChromeosDevicesPatch' = ChromeOSDevice

194− request = requestWith directoryRequest

195− requestWith rq ChromeosDevicesPatch'{..}

118+ requestClient ChromeosDevicesPatch'{..}

196119 = go _cdpCustomerId _cdpDeviceId _cdpProjection

197− _cdpQuotaUser

198− (Just _cdpPrettyPrint)

199− _cdpUserIP

200− _cdpFields

201− _cdpKey

202− _cdpOAuthToken

203120 (Just AltJSON)

204121 _cdpPayload

122+ directoryService

205123 where go

206− = clientBuild

124+ = buildClient

207125 (Proxy :: Proxy ChromeosDevicesPatchResource)

208− rq

126+ mempty

gogol-admin-directory/gen/Network/Google/Resource/Directory/ChromeosDevices/Update.hs+12−94

@@ -33,16 +33,10 @@ module Network.Google.Resource.Directory.ChromeosDevices.Update

3333 , ChromeosDevicesUpdate'

3434

3535 -- * Request Lenses

36− , cduQuotaUser

37− , cduPrettyPrint

38− , cduUserIP

3936 , cduPayload

4037 , cduCustomerId

41− , cduKey

4238 , cduDeviceId

4339 , cduProjection

44− , cduOAuthToken

45− , cduFields

4640 ) where

4741

4842import Network.Google.Directory.Types

@@ -59,55 +53,31 @@ type ChromeosDevicesUpdateResource =

5953 QueryParam "projection"

6054 ChromeosDevicesUpdateProjection

6155 :>

62− QueryParam "quotaUser" Text :>

63− QueryParam "prettyPrint" Bool :>

64− QueryParam "userIp" Text :>

65− QueryParam "fields" Text :>

66− QueryParam "key" AuthKey :>

67− Header "Authorization" OAuthToken :>

68− QueryParam "alt" AltJSON :>

69− ReqBody '[JSON] ChromeOSDevice :>

70− Put '[JSON] ChromeOSDevice

56+ QueryParam "alt" AltJSON :>

57+ ReqBody '[JSON] ChromeOSDevice :>

58+ Put '[JSON] ChromeOSDevice

7159

7260-- | Update Chrome OS Device

7361--

7462-- /See:/ 'chromeosDevicesUpdate'' smart constructor.

7563data ChromeosDevicesUpdate' = ChromeosDevicesUpdate'

76− { _cduQuotaUser :: !(Maybe Text)

77− , _cduPrettyPrint :: !Bool

78− , _cduUserIP :: !(Maybe Text)

79− , _cduPayload :: !ChromeOSDevice

80− , _cduCustomerId :: !Text

81− , _cduKey :: !(Maybe AuthKey)

82− , _cduDeviceId :: !Text

83− , _cduProjection :: !(Maybe ChromeosDevicesUpdateProjection)

84− , _cduOAuthToken :: !(Maybe OAuthToken)

85− , _cduFields :: !(Maybe Text)

64+ { _cduPayload :: !ChromeOSDevice

65+ , _cduCustomerId :: !Text

66+ , _cduDeviceId :: !Text

67+ , _cduProjection :: !(Maybe ChromeosDevicesUpdateProjection)

8668 } deriving (Eq,Show,Data,Typeable,Generic)

8769

8870-- | Creates a value of 'ChromeosDevicesUpdate'' with the minimum fields required to make a request.

8971--

9072-- Use one of the following lenses to modify other fields as desired:

9173--

92−-- * 'cduQuotaUser'

93−--

94−-- * 'cduPrettyPrint'

95−--

96−-- * 'cduUserIP'

97−--

9874-- * 'cduPayload'

9975--

10076-- * 'cduCustomerId'

10177--

102−-- * 'cduKey'

103−--

10478-- * 'cduDeviceId'

10579--

10680-- * 'cduProjection'

107−--

108−-- * 'cduOAuthToken'

109−--

110−-- * 'cduFields'

11181chromeosDevicesUpdate'

11282 :: ChromeOSDevice -- ^ 'payload'

11383 -> Text -- ^ 'customerId'

@@ -115,37 +85,12 @@ chromeosDevicesUpdate'

11585 -> ChromeosDevicesUpdate'

11686chromeosDevicesUpdate' pCduPayload_ pCduCustomerId_ pCduDeviceId_ =

11787 ChromeosDevicesUpdate'

118− { _cduQuotaUser = Nothing

119− , _cduPrettyPrint = True

120− , _cduUserIP = Nothing

121− , _cduPayload = pCduPayload_

88+ { _cduPayload = pCduPayload_

12289 , _cduCustomerId = pCduCustomerId_

123− , _cduKey = Nothing

12490 , _cduDeviceId = pCduDeviceId_

12591 , _cduProjection = Nothing

126− , _cduOAuthToken = Nothing

127− , _cduFields = Nothing

12892 }

12993

130−-- | Available to use for quota purposes for server-side applications. Can be

131−-- any arbitrary string assigned to a user, but should not exceed 40

132−-- characters. Overrides userIp if both are provided.

133−cduQuotaUser :: Lens' ChromeosDevicesUpdate' (Maybe Text)

134−cduQuotaUser

135− = lens _cduQuotaUser (\ s a -> s{_cduQuotaUser = a})

136−

137−-- | Returns response with indentations and line breaks.

138−cduPrettyPrint :: Lens' ChromeosDevicesUpdate' Bool

139−cduPrettyPrint

140− = lens _cduPrettyPrint

141− (\ s a -> s{_cduPrettyPrint = a})

142−

143−-- | IP address of the site where the request originates. Use this if you

144−-- want to enforce per-user limits.

145−cduUserIP :: Lens' ChromeosDevicesUpdate' (Maybe Text)

146−cduUserIP

147− = lens _cduUserIP (\ s a -> s{_cduUserIP = a})

148−

14994-- | Multipart request metadata.

15095cduPayload :: Lens' ChromeosDevicesUpdate' ChromeOSDevice

15196cduPayload

@@ -157,12 +102,6 @@ cduCustomerId

157102 = lens _cduCustomerId

158103 (\ s a -> s{_cduCustomerId = a})

159104

160−-- | API key. Your API key identifies your project and provides you with API

161−-- access, quota, and reports. Required unless you provide an OAuth 2.0

162−-- token.

163−cduKey :: Lens' ChromeosDevicesUpdate' (Maybe AuthKey)

164−cduKey = lens _cduKey (\ s a -> s{_cduKey = a})

165−

166105-- | Immutable id of Chrome OS Device

167106cduDeviceId :: Lens' ChromeosDevicesUpdate' Text

168107cduDeviceId

@@ -174,35 +113,14 @@ cduProjection

174113 = lens _cduProjection

175114 (\ s a -> s{_cduProjection = a})

176115

177−-- | OAuth 2.0 token for the current user.

178−cduOAuthToken :: Lens' ChromeosDevicesUpdate' (Maybe OAuthToken)

179−cduOAuthToken

180− = lens _cduOAuthToken

181− (\ s a -> s{_cduOAuthToken = a})

182−

183−-- | Selector specifying which fields to include in a partial response.

184−cduFields :: Lens' ChromeosDevicesUpdate' (Maybe Text)

185−cduFields

186− = lens _cduFields (\ s a -> s{_cduFields = a})

187−

188−instance GoogleAuth ChromeosDevicesUpdate' where

189− _AuthKey = cduKey . _Just

190− _AuthToken = cduOAuthToken . _Just

191−

192116instance GoogleRequest ChromeosDevicesUpdate' where

193117 type Rs ChromeosDevicesUpdate' = ChromeOSDevice

194− request = requestWith directoryRequest

195− requestWith rq ChromeosDevicesUpdate'{..}

118+ requestClient ChromeosDevicesUpdate'{..}

196119 = go _cduCustomerId _cduDeviceId _cduProjection

197− _cduQuotaUser

198− (Just _cduPrettyPrint)

199− _cduUserIP

200− _cduFields

201− _cduKey

202− _cduOAuthToken

203120 (Just AltJSON)

204121 _cduPayload

122+ directoryService

205123 where go

206− = clientBuild

124+ = buildClient

207125 (Proxy :: Proxy ChromeosDevicesUpdateResource)

208− rq

126+ mempty

gogol-admin-directory/gen/Network/Google/Resource/Directory/Groups/Aliases/Delete.hs+9−91

@@ -33,14 +33,8 @@ module Network.Google.Resource.Directory.Groups.Aliases.Delete

3333 , GroupsAliasesDelete'

3434

3535 -- * Request Lenses

36− , gadQuotaUser

37− , gadPrettyPrint

38− , gadUserIP

3936 , gadGroupKey

4037 , gadAlias

41− , gadKey

42− , gadOAuthToken

43− , gadFields

4438 ) where

4539

4640import Network.Google.Directory.Types

@@ -53,82 +47,33 @@ type GroupsAliasesDeleteResource =

5347 Capture "groupKey" Text :>

5448 "aliases" :>

5549 Capture "alias" Text :>

56− QueryParam "quotaUser" Text :>

57− QueryParam "prettyPrint" Bool :>

58− QueryParam "userIp" Text :>

59− QueryParam "fields" Text :>

60− QueryParam "key" AuthKey :>

61− Header "Authorization" OAuthToken :>

62− QueryParam "alt" AltJSON :> Delete '[JSON] ()

50+ QueryParam "alt" AltJSON :> Delete '[JSON] ()

6351

6452-- | Remove a alias for the group

6553--

6654-- /See:/ 'groupsAliasesDelete'' smart constructor.

6755data GroupsAliasesDelete' = GroupsAliasesDelete'

68− { _gadQuotaUser :: !(Maybe Text)

69− , _gadPrettyPrint :: !Bool

70− , _gadUserIP :: !(Maybe Text)

71− , _gadGroupKey :: !Text

72− , _gadAlias :: !Text

73− , _gadKey :: !(Maybe AuthKey)

74− , _gadOAuthToken :: !(Maybe OAuthToken)

75− , _gadFields :: !(Maybe Text)

56+ { _gadGroupKey :: !Text

57+ , _gadAlias :: !Text

7658 } deriving (Eq,Show,Data,Typeable,Generic)

7759

7860-- | Creates a value of 'GroupsAliasesDelete'' with the minimum fields required to make a request.

7961--

8062-- Use one of the following lenses to modify other fields as desired:

8163--

82−-- * 'gadQuotaUser'

83−--

84−-- * 'gadPrettyPrint'

85−--

86−-- * 'gadUserIP'

87−--

8864-- * 'gadGroupKey'

8965--

9066-- * 'gadAlias'

91−--

92−-- * 'gadKey'

93−--

94−-- * 'gadOAuthToken'

95−--

96−-- * 'gadFields'

9767groupsAliasesDelete'

9868 :: Text -- ^ 'groupKey'

9969 -> Text -- ^ 'alias'

10070 -> GroupsAliasesDelete'

10171groupsAliasesDelete' pGadGroupKey_ pGadAlias_ =

10272 GroupsAliasesDelete'

103− { _gadQuotaUser = Nothing

104− , _gadPrettyPrint = True

105− , _gadUserIP = Nothing

106− , _gadGroupKey = pGadGroupKey_

73+ { _gadGroupKey = pGadGroupKey_

10774 , _gadAlias = pGadAlias_

108− , _gadKey = Nothing

109− , _gadOAuthToken = Nothing

110− , _gadFields = Nothing

11175 }

11276

113−-- | Available to use for quota purposes for server-side applications. Can be

114−-- any arbitrary string assigned to a user, but should not exceed 40

115−-- characters. Overrides userIp if both are provided.

116−gadQuotaUser :: Lens' GroupsAliasesDelete' (Maybe Text)

117−gadQuotaUser

118− = lens _gadQuotaUser (\ s a -> s{_gadQuotaUser = a})

119−

120−-- | Returns response with indentations and line breaks.

121−gadPrettyPrint :: Lens' GroupsAliasesDelete' Bool

122−gadPrettyPrint

123− = lens _gadPrettyPrint

124− (\ s a -> s{_gadPrettyPrint = a})

125−

126−-- | IP address of the site where the request originates. Use this if you

127−-- want to enforce per-user limits.

128−gadUserIP :: Lens' GroupsAliasesDelete' (Maybe Text)

129−gadUserIP

130− = lens _gadUserIP (\ s a -> s{_gadUserIP = a})

131−

13277-- | Email or immutable Id of the group

13378gadGroupKey :: Lens' GroupsAliasesDelete' Text

13479gadGroupKey

@@ -138,39 +83,12 @@ gadGroupKey

13883gadAlias :: Lens' GroupsAliasesDelete' Text

13984gadAlias = lens _gadAlias (\ s a -> s{_gadAlias = a})

14085

141−-- | API key. Your API key identifies your project and provides you with API

142−-- access, quota, and reports. Required unless you provide an OAuth 2.0

143−-- token.

144−gadKey :: Lens' GroupsAliasesDelete' (Maybe AuthKey)

145−gadKey = lens _gadKey (\ s a -> s{_gadKey = a})

146−

147−-- | OAuth 2.0 token for the current user.

148−gadOAuthToken :: Lens' GroupsAliasesDelete' (Maybe OAuthToken)

149−gadOAuthToken

150− = lens _gadOAuthToken

151− (\ s a -> s{_gadOAuthToken = a})

152−

153−-- | Selector specifying which fields to include in a partial response.

154−gadFields :: Lens' GroupsAliasesDelete' (Maybe Text)

155−gadFields

156− = lens _gadFields (\ s a -> s{_gadFields = a})

157−

158−instance GoogleAuth GroupsAliasesDelete' where

159− _AuthKey = gadKey . _Just

160− _AuthToken = gadOAuthToken . _Just

161−

16286instance GoogleRequest GroupsAliasesDelete' where

16387 type Rs GroupsAliasesDelete' = ()

164− request = requestWith directoryRequest

165− requestWith rq GroupsAliasesDelete'{..}

166− = go _gadGroupKey _gadAlias _gadQuotaUser

167− (Just _gadPrettyPrint)

168− _gadUserIP

169− _gadFields

170− _gadKey

171− _gadOAuthToken

172− (Just AltJSON)

88+ requestClient GroupsAliasesDelete'{..}

89+ = go _gadGroupKey _gadAlias (Just AltJSON)

90+ directoryService

17391 where go

174− = clientBuild

92+ = buildClient

17593 (Proxy :: Proxy GroupsAliasesDeleteResource)

176− rq

94+ mempty

gogol-admin-directory/gen/Network/Google/Resource/Directory/Groups/Aliases/Insert.hs+10−93

@@ -33,14 +33,8 @@ module Network.Google.Resource.Directory.Groups.Aliases.Insert

3333 , GroupsAliasesInsert'

3434

3535 -- * Request Lenses

36− , gaiQuotaUser

37− , gaiPrettyPrint

38− , gaiUserIP

3936 , gaiGroupKey

4037 , gaiPayload

41− , gaiKey

42− , gaiOAuthToken

43− , gaiFields

4438 ) where

4539

4640import Network.Google.Directory.Types

@@ -52,83 +46,34 @@ type GroupsAliasesInsertResource =

5246 "groups" :>

5347 Capture "groupKey" Text :>

5448 "aliases" :>

55− QueryParam "quotaUser" Text :>

56− QueryParam "prettyPrint" Bool :>

57− QueryParam "userIp" Text :>

58− QueryParam "fields" Text :>

59− QueryParam "key" AuthKey :>

60− Header "Authorization" OAuthToken :>

61− QueryParam "alt" AltJSON :>

62− ReqBody '[JSON] Alias :> Post '[JSON] Alias

49+ QueryParam "alt" AltJSON :>

50+ ReqBody '[JSON] Alias :> Post '[JSON] Alias

6351

6452-- | Add a alias for the group

6553--

6654-- /See:/ 'groupsAliasesInsert'' smart constructor.

6755data GroupsAliasesInsert' = GroupsAliasesInsert'

68− { _gaiQuotaUser :: !(Maybe Text)

69− , _gaiPrettyPrint :: !Bool

70− , _gaiUserIP :: !(Maybe Text)

71− , _gaiGroupKey :: !Text

72− , _gaiPayload :: !Alias

73− , _gaiKey :: !(Maybe AuthKey)

74− , _gaiOAuthToken :: !(Maybe OAuthToken)

75− , _gaiFields :: !(Maybe Text)

56+ { _gaiGroupKey :: !Text

57+ , _gaiPayload :: !Alias

7658 } deriving (Eq,Show,Data,Typeable,Generic)

7759

7860-- | Creates a value of 'GroupsAliasesInsert'' with the minimum fields required to make a request.

7961--

8062-- Use one of the following lenses to modify other fields as desired:

8163--

82−-- * 'gaiQuotaUser'

83−--

84−-- * 'gaiPrettyPrint'

85−--

86−-- * 'gaiUserIP'

87−--

8864-- * 'gaiGroupKey'

8965--

9066-- * 'gaiPayload'

91−--

92−-- * 'gaiKey'

93−--

94−-- * 'gaiOAuthToken'

95−--

96−-- * 'gaiFields'

9767groupsAliasesInsert'

9868 :: Text -- ^ 'groupKey'

9969 -> Alias -- ^ 'payload'

10070 -> GroupsAliasesInsert'

10171groupsAliasesInsert' pGaiGroupKey_ pGaiPayload_ =

10272 GroupsAliasesInsert'

103− { _gaiQuotaUser = Nothing

104− , _gaiPrettyPrint = True

105− , _gaiUserIP = Nothing

106− , _gaiGroupKey = pGaiGroupKey_

73+ { _gaiGroupKey = pGaiGroupKey_

10774 , _gaiPayload = pGaiPayload_

108− , _gaiKey = Nothing

109− , _gaiOAuthToken = Nothing

110− , _gaiFields = Nothing

11175 }

11276

113−-- | Available to use for quota purposes for server-side applications. Can be

114−-- any arbitrary string assigned to a user, but should not exceed 40

115−-- characters. Overrides userIp if both are provided.

116−gaiQuotaUser :: Lens' GroupsAliasesInsert' (Maybe Text)

117−gaiQuotaUser

118− = lens _gaiQuotaUser (\ s a -> s{_gaiQuotaUser = a})

119−

120−-- | Returns response with indentations and line breaks.

121−gaiPrettyPrint :: Lens' GroupsAliasesInsert' Bool

122−gaiPrettyPrint

123− = lens _gaiPrettyPrint

124− (\ s a -> s{_gaiPrettyPrint = a})

125−

126−-- | IP address of the site where the request originates. Use this if you

127−-- want to enforce per-user limits.

128−gaiUserIP :: Lens' GroupsAliasesInsert' (Maybe Text)

129−gaiUserIP

130− = lens _gaiUserIP (\ s a -> s{_gaiUserIP = a})

131−

13277-- | Email or immutable Id of the group

13378gaiGroupKey :: Lens' GroupsAliasesInsert' Text

13479gaiGroupKey

@@ -139,40 +84,12 @@ gaiPayload :: Lens' GroupsAliasesInsert' Alias

13984gaiPayload

14085 = lens _gaiPayload (\ s a -> s{_gaiPayload = a})

14186

142−-- | API key. Your API key identifies your project and provides you with API

143−-- access, quota, and reports. Required unless you provide an OAuth 2.0

144−-- token.

145−gaiKey :: Lens' GroupsAliasesInsert' (Maybe AuthKey)

146−gaiKey = lens _gaiKey (\ s a -> s{_gaiKey = a})

147−

148−-- | OAuth 2.0 token for the current user.

149−gaiOAuthToken :: Lens' GroupsAliasesInsert' (Maybe OAuthToken)

150−gaiOAuthToken

151− = lens _gaiOAuthToken

152− (\ s a -> s{_gaiOAuthToken = a})

153−

154−-- | Selector specifying which fields to include in a partial response.

155−gaiFields :: Lens' GroupsAliasesInsert' (Maybe Text)

156−gaiFields

157− = lens _gaiFields (\ s a -> s{_gaiFields = a})

158−

159−instance GoogleAuth GroupsAliasesInsert' where

160− _AuthKey = gaiKey . _Just

161− _AuthToken = gaiOAuthToken . _Just

162−

16387instance GoogleRequest GroupsAliasesInsert' where

16488 type Rs GroupsAliasesInsert' = Alias

165− request = requestWith directoryRequest

166− requestWith rq GroupsAliasesInsert'{..}

167− = go _gaiGroupKey _gaiQuotaUser

168− (Just _gaiPrettyPrint)

169− _gaiUserIP

170− _gaiFields

171− _gaiKey

172− _gaiOAuthToken

173− (Just AltJSON)

174− _gaiPayload

89+ requestClient GroupsAliasesInsert'{..}

90+ = go _gaiGroupKey (Just AltJSON) _gaiPayload

91+ directoryService

17592 where go

176− = clientBuild

93+ = buildClient

17794 (Proxy :: Proxy GroupsAliasesInsertResource)

178− rq

95+ mempty

gogol-admin-directory/gen/Network/Google/Resource/Directory/Groups/Aliases/List.hs+8−91

@@ -33,13 +33,7 @@ module Network.Google.Resource.Directory.Groups.Aliases.List

3333 , GroupsAliasesList'

3434

3535 -- * Request Lenses

36− , galQuotaUser

37− , galPrettyPrint

38− , galUserIP

3936 , galGroupKey

40− , galKey

41− , galOAuthToken

42− , galFields

4337 ) where

4438

4539import Network.Google.Directory.Types

@@ -51,115 +45,38 @@ type GroupsAliasesListResource =

5145 "groups" :>

5246 Capture "groupKey" Text :>

5347 "aliases" :>

54− QueryParam "quotaUser" Text :>

55− QueryParam "prettyPrint" Bool :>

56− QueryParam "userIp" Text :>

57− QueryParam "fields" Text :>

58− QueryParam "key" AuthKey :>

59− Header "Authorization" OAuthToken :>

60− QueryParam "alt" AltJSON :> Get '[JSON] Aliases

48+ QueryParam "alt" AltJSON :> Get '[JSON] Aliases

6149

6250-- | List all aliases for a group

6351--

6452-- /See:/ 'groupsAliasesList'' smart constructor.

65−data GroupsAliasesList' = GroupsAliasesList'

66− { _galQuotaUser :: !(Maybe Text)

67− , _galPrettyPrint :: !Bool

68− , _galUserIP :: !(Maybe Text)

69− , _galGroupKey :: !Text

70− , _galKey :: !(Maybe AuthKey)

71− , _galOAuthToken :: !(Maybe OAuthToken)

72− , _galFields :: !(Maybe Text)

53+newtype GroupsAliasesList' = GroupsAliasesList'

54+ { _galGroupKey :: Text

7355 } deriving (Eq,Show,Data,Typeable,Generic)

7456

7557-- | Creates a value of 'GroupsAliasesList'' with the minimum fields required to make a request.

7658--

7759-- Use one of the following lenses to modify other fields as desired:

7860--

79−-- * 'galQuotaUser'

80−--

81−-- * 'galPrettyPrint'

82−--

83−-- * 'galUserIP'

84−--

8561-- * 'galGroupKey'

86−--

87−-- * 'galKey'

88−--

89−-- * 'galOAuthToken'

90−--

91−-- * 'galFields'

9262groupsAliasesList'

9363 :: Text -- ^ 'groupKey'

9464 -> GroupsAliasesList'

9565groupsAliasesList' pGalGroupKey_ =

9666 GroupsAliasesList'

97− { _galQuotaUser = Nothing

98− , _galPrettyPrint = True

99− , _galUserIP = Nothing

100− , _galGroupKey = pGalGroupKey_

101− , _galKey = Nothing

102− , _galOAuthToken = Nothing

103− , _galFields = Nothing

67+ { _galGroupKey = pGalGroupKey_

10468 }

10569

106−-- | Available to use for quota purposes for server-side applications. Can be

107−-- any arbitrary string assigned to a user, but should not exceed 40

108−-- characters. Overrides userIp if both are provided.

109−galQuotaUser :: Lens' GroupsAliasesList' (Maybe Text)

110−galQuotaUser

111− = lens _galQuotaUser (\ s a -> s{_galQuotaUser = a})

112−

113−-- | Returns response with indentations and line breaks.

114−galPrettyPrint :: Lens' GroupsAliasesList' Bool

115−galPrettyPrint

116− = lens _galPrettyPrint

117− (\ s a -> s{_galPrettyPrint = a})

118−

119−-- | IP address of the site where the request originates. Use this if you

120−-- want to enforce per-user limits.

121−galUserIP :: Lens' GroupsAliasesList' (Maybe Text)

122−galUserIP

123− = lens _galUserIP (\ s a -> s{_galUserIP = a})

124−

12570-- | Email or immutable Id of the group

12671galGroupKey :: Lens' GroupsAliasesList' Text

12772galGroupKey

12873 = lens _galGroupKey (\ s a -> s{_galGroupKey = a})

12974

130−-- | API key. Your API key identifies your project and provides you with API

131−-- access, quota, and reports. Required unless you provide an OAuth 2.0

132−-- token.

133−galKey :: Lens' GroupsAliasesList' (Maybe AuthKey)

134−galKey = lens _galKey (\ s a -> s{_galKey = a})

135−

136−-- | OAuth 2.0 token for the current user.

137−galOAuthToken :: Lens' GroupsAliasesList' (Maybe OAuthToken)

138−galOAuthToken

139− = lens _galOAuthToken

140− (\ s a -> s{_galOAuthToken = a})

141−

142−-- | Selector specifying which fields to include in a partial response.

143−galFields :: Lens' GroupsAliasesList' (Maybe Text)

144−galFields

145− = lens _galFields (\ s a -> s{_galFields = a})

146−

147−instance GoogleAuth GroupsAliasesList' where

148− _AuthKey = galKey . _Just

149− _AuthToken = galOAuthToken . _Just

150−

15175instance GoogleRequest GroupsAliasesList' where

15276 type Rs GroupsAliasesList' = Aliases

153− request = requestWith directoryRequest

154− requestWith rq GroupsAliasesList'{..}

155− = go _galGroupKey _galQuotaUser

156− (Just _galPrettyPrint)

157− _galUserIP

158− _galFields

159− _galKey

160− _galOAuthToken

161− (Just AltJSON)

77+ requestClient GroupsAliasesList'{..}

78+ = go _galGroupKey (Just AltJSON) directoryService

16279 where go

163− = clientBuild

80+ = buildClient

16481 (Proxy :: Proxy GroupsAliasesListResource)

165− rq

82+ mempty

gogol-admin-directory/gen/Network/Google/Resource/Directory/Groups/Delete.hs+8−87

@@ -33,13 +33,7 @@ module Network.Google.Resource.Directory.Groups.Delete

3333 , GroupsDelete'

3434

3535 -- * Request Lenses

36− , gdQuotaUser

37− , gdPrettyPrint

38− , gdUserIP

3936 , gdGroupKey

40− , gdKey

41− , gdOAuthToken

42− , gdFields

4337 ) where

4438

4539import Network.Google.Directory.Types

@@ -50,110 +44,37 @@ import Network.Google.Prelude

5044type GroupsDeleteResource =

5145 "groups" :>

5246 Capture "groupKey" Text :>

53− QueryParam "quotaUser" Text :>

54− QueryParam "prettyPrint" Bool :>

55− QueryParam "userIp" Text :>

56− QueryParam "fields" Text :>

57− QueryParam "key" AuthKey :>

58− Header "Authorization" OAuthToken :>

59− QueryParam "alt" AltJSON :> Delete '[JSON] ()

47+ QueryParam "alt" AltJSON :> Delete '[JSON] ()

6048

6149-- | Delete Group

6250--

6351-- /See:/ 'groupsDelete'' smart constructor.

64−data GroupsDelete' = GroupsDelete'

65− { _gdQuotaUser :: !(Maybe Text)

66− , _gdPrettyPrint :: !Bool

67− , _gdUserIP :: !(Maybe Text)

68− , _gdGroupKey :: !Text

69− , _gdKey :: !(Maybe AuthKey)

70− , _gdOAuthToken :: !(Maybe OAuthToken)

71− , _gdFields :: !(Maybe Text)

52+newtype GroupsDelete' = GroupsDelete'

53+ { _gdGroupKey :: Text

7254 } deriving (Eq,Show,Data,Typeable,Generic)

7355

7456-- | Creates a value of 'GroupsDelete'' with the minimum fields required to make a request.

7557--

7658-- Use one of the following lenses to modify other fields as desired:

7759--

78−-- * 'gdQuotaUser'

79−--

80−-- * 'gdPrettyPrint'

81−--

82−-- * 'gdUserIP'

83−--

8460-- * 'gdGroupKey'

85−--

86−-- * 'gdKey'

87−--

88−-- * 'gdOAuthToken'

89−--

90−-- * 'gdFields'

9161groupsDelete'

9262 :: Text -- ^ 'groupKey'

9363 -> GroupsDelete'

9464groupsDelete' pGdGroupKey_ =

9565 GroupsDelete'

96− { _gdQuotaUser = Nothing

97− , _gdPrettyPrint = True

98− , _gdUserIP = Nothing

99− , _gdGroupKey = pGdGroupKey_

100− , _gdKey = Nothing

101− , _gdOAuthToken = Nothing

102− , _gdFields = Nothing

66+ { _gdGroupKey = pGdGroupKey_

10367 }

10468

105−-- | Available to use for quota purposes for server-side applications. Can be

106−-- any arbitrary string assigned to a user, but should not exceed 40

107−-- characters. Overrides userIp if both are provided.

108−gdQuotaUser :: Lens' GroupsDelete' (Maybe Text)

109−gdQuotaUser

110− = lens _gdQuotaUser (\ s a -> s{_gdQuotaUser = a})

111−

112−-- | Returns response with indentations and line breaks.

113−gdPrettyPrint :: Lens' GroupsDelete' Bool

114−gdPrettyPrint

115− = lens _gdPrettyPrint

116− (\ s a -> s{_gdPrettyPrint = a})

117−

118−-- | IP address of the site where the request originates. Use this if you

119−-- want to enforce per-user limits.

120−gdUserIP :: Lens' GroupsDelete' (Maybe Text)

121−gdUserIP = lens _gdUserIP (\ s a -> s{_gdUserIP = a})

122−

12369-- | Email or immutable Id of the group

12470gdGroupKey :: Lens' GroupsDelete' Text

12571gdGroupKey

12672 = lens _gdGroupKey (\ s a -> s{_gdGroupKey = a})

12773

128−-- | API key. Your API key identifies your project and provides you with API

129−-- access, quota, and reports. Required unless you provide an OAuth 2.0

130−-- token.

131−gdKey :: Lens' GroupsDelete' (Maybe AuthKey)

132−gdKey = lens _gdKey (\ s a -> s{_gdKey = a})

133−

134−-- | OAuth 2.0 token for the current user.

135−gdOAuthToken :: Lens' GroupsDelete' (Maybe OAuthToken)

136−gdOAuthToken

137− = lens _gdOAuthToken (\ s a -> s{_gdOAuthToken = a})

138−

139−-- | Selector specifying which fields to include in a partial response.

140−gdFields :: Lens' GroupsDelete' (Maybe Text)

141−gdFields = lens _gdFields (\ s a -> s{_gdFields = a})

142−

143−instance GoogleAuth GroupsDelete' where

144− _AuthKey = gdKey . _Just

145− _AuthToken = gdOAuthToken . _Just

146−

14774instance GoogleRequest GroupsDelete' where

14875 type Rs GroupsDelete' = ()

149− request = requestWith directoryRequest

150− requestWith rq GroupsDelete'{..}

151− = go _gdGroupKey _gdQuotaUser (Just _gdPrettyPrint)

152− _gdUserIP

153− _gdFields

154− _gdKey

155− _gdOAuthToken

156− (Just AltJSON)

76+ requestClient GroupsDelete'{..}

77+ = go _gdGroupKey (Just AltJSON) directoryService

15778 where go

158− = clientBuild (Proxy :: Proxy GroupsDeleteResource)

159− rq

79+ = buildClient (Proxy :: Proxy GroupsDeleteResource)

80+ mempty

gogol-admin-directory/gen/Network/Google/Resource/Directory/Groups/Get.hs+8−86

@@ -33,13 +33,7 @@ module Network.Google.Resource.Directory.Groups.Get

3333 , GroupsGet'

3434

3535 -- * Request Lenses

36− , ggQuotaUser

37− , ggPrettyPrint

38− , ggUserIP

3936 , ggGroupKey

40− , ggKey

41− , ggOAuthToken

42− , ggFields

4337 ) where

4438

4539import Network.Google.Directory.Types

@@ -50,109 +44,37 @@ import Network.Google.Prelude

5044type GroupsGetResource =

5145 "groups" :>

5246 Capture "groupKey" Text :>

53− QueryParam "quotaUser" Text :>

54− QueryParam "prettyPrint" Bool :>

55− QueryParam "userIp" Text :>

56− QueryParam "fields" Text :>

57− QueryParam "key" AuthKey :>

58− Header "Authorization" OAuthToken :>

59− QueryParam "alt" AltJSON :> Get '[JSON] Group

47+ QueryParam "alt" AltJSON :> Get '[JSON] Group

6048

6149-- | Retrieve Group

6250--

6351-- /See:/ 'groupsGet'' smart constructor.

64−data GroupsGet' = GroupsGet'

65− { _ggQuotaUser :: !(Maybe Text)

66− , _ggPrettyPrint :: !Bool

67− , _ggUserIP :: !(Maybe Text)

68− , _ggGroupKey :: !Text

69− , _ggKey :: !(Maybe AuthKey)

70− , _ggOAuthToken :: !(Maybe OAuthToken)

71− , _ggFields :: !(Maybe Text)

52+newtype GroupsGet' = GroupsGet'

53+ { _ggGroupKey :: Text

7254 } deriving (Eq,Show,Data,Typeable,Generic)

7355

7456-- | Creates a value of 'GroupsGet'' with the minimum fields required to make a request.

7557--

7658-- Use one of the following lenses to modify other fields as desired:

7759--

78−-- * 'ggQuotaUser'

79−--

80−-- * 'ggPrettyPrint'

81−--

82−-- * 'ggUserIP'

83−--

8460-- * 'ggGroupKey'

85−--

86−-- * 'ggKey'

87−--

88−-- * 'ggOAuthToken'

89−--

90−-- * 'ggFields'

9161groupsGet'

9262 :: Text -- ^ 'groupKey'

9363 -> GroupsGet'

9464groupsGet' pGgGroupKey_ =

9565 GroupsGet'

96− { _ggQuotaUser = Nothing

97− , _ggPrettyPrint = True

98− , _ggUserIP = Nothing

99− , _ggGroupKey = pGgGroupKey_

100− , _ggKey = Nothing

101− , _ggOAuthToken = Nothing

102− , _ggFields = Nothing

66+ { _ggGroupKey = pGgGroupKey_

10367 }

10468

105−-- | Available to use for quota purposes for server-side applications. Can be

106−-- any arbitrary string assigned to a user, but should not exceed 40

107−-- characters. Overrides userIp if both are provided.

108−ggQuotaUser :: Lens' GroupsGet' (Maybe Text)

109−ggQuotaUser

110− = lens _ggQuotaUser (\ s a -> s{_ggQuotaUser = a})

111−

112−-- | Returns response with indentations and line breaks.

113−ggPrettyPrint :: Lens' GroupsGet' Bool

114−ggPrettyPrint

115− = lens _ggPrettyPrint

116− (\ s a -> s{_ggPrettyPrint = a})

117−

118−-- | IP address of the site where the request originates. Use this if you

119−-- want to enforce per-user limits.

120−ggUserIP :: Lens' GroupsGet' (Maybe Text)

121−ggUserIP = lens _ggUserIP (\ s a -> s{_ggUserIP = a})

122−

12369-- | Email or immutable Id of the group

12470ggGroupKey :: Lens' GroupsGet' Text

12571ggGroupKey

12672 = lens _ggGroupKey (\ s a -> s{_ggGroupKey = a})

12773

128−-- | API key. Your API key identifies your project and provides you with API

129−-- access, quota, and reports. Required unless you provide an OAuth 2.0

130−-- token.

131−ggKey :: Lens' GroupsGet' (Maybe AuthKey)

132−ggKey = lens _ggKey (\ s a -> s{_ggKey = a})

133−

134−-- | OAuth 2.0 token for the current user.

135−ggOAuthToken :: Lens' GroupsGet' (Maybe OAuthToken)

136−ggOAuthToken

137− = lens _ggOAuthToken (\ s a -> s{_ggOAuthToken = a})

138−

139−-- | Selector specifying which fields to include in a partial response.

140−ggFields :: Lens' GroupsGet' (Maybe Text)

141−ggFields = lens _ggFields (\ s a -> s{_ggFields = a})

142−

143−instance GoogleAuth GroupsGet' where

144− _AuthKey = ggKey . _Just

145− _AuthToken = ggOAuthToken . _Just

146−

14774instance GoogleRequest GroupsGet' where

14875 type Rs GroupsGet' = Group

149− request = requestWith directoryRequest

150− requestWith rq GroupsGet'{..}

151− = go _ggGroupKey _ggQuotaUser (Just _ggPrettyPrint)

152− _ggUserIP

153− _ggFields

154− _ggKey

155− _ggOAuthToken

156− (Just AltJSON)

76+ requestClient GroupsGet'{..}

77+ = go _ggGroupKey (Just AltJSON) directoryService

15778 where go

158− = clientBuild (Proxy :: Proxy GroupsGetResource) rq

79+ = buildClient (Proxy :: Proxy GroupsGetResource)

80+ mempty

gogol-admin-directory/gen/Network/Google/Resource/Directory/Groups/Insert.hs+9−88

@@ -33,13 +33,7 @@ module Network.Google.Resource.Directory.Groups.Insert

3333 , GroupsInsert'

3434

3535 -- * Request Lenses

36− , giQuotaUser

37− , giPrettyPrint

38− , giUserIP

3936 , giPayload

40− , giKey

41− , giOAuthToken

42− , giFields

4337 ) where

4438

4539import Network.Google.Directory.Types

@@ -49,111 +43,38 @@ import Network.Google.Prelude

4943-- 'GroupsInsert'' request conforms to.

5044type GroupsInsertResource =

5145 "groups" :>

52− QueryParam "quotaUser" Text :>

53− QueryParam "prettyPrint" Bool :>

54− QueryParam "userIp" Text :>

55− QueryParam "fields" Text :>

56− QueryParam "key" AuthKey :>

57− Header "Authorization" OAuthToken :>

58− QueryParam "alt" AltJSON :>

59− ReqBody '[JSON] Group :> Post '[JSON] Group

46+ QueryParam "alt" AltJSON :>

47+ ReqBody '[JSON] Group :> Post '[JSON] Group

6048

6149-- | Create Group

6250--

6351-- /See:/ 'groupsInsert'' smart constructor.

64−data GroupsInsert' = GroupsInsert'

65− { _giQuotaUser :: !(Maybe Text)

66− , _giPrettyPrint :: !Bool

67− , _giUserIP :: !(Maybe Text)

68− , _giPayload :: !Group

69− , _giKey :: !(Maybe AuthKey)

70− , _giOAuthToken :: !(Maybe OAuthToken)

71− , _giFields :: !(Maybe Text)

52+newtype GroupsInsert' = GroupsInsert'

53+ { _giPayload :: Group

7254 } deriving (Eq,Show,Data,Typeable,Generic)

7355

7456-- | Creates a value of 'GroupsInsert'' with the minimum fields required to make a request.

7557--

7658-- Use one of the following lenses to modify other fields as desired:

7759--

78−-- * 'giQuotaUser'

79−--

80−-- * 'giPrettyPrint'

81−--

82−-- * 'giUserIP'

83−--

8460-- * 'giPayload'

85−--

86−-- * 'giKey'

87−--

88−-- * 'giOAuthToken'

89−--

90−-- * 'giFields'

9161groupsInsert'

9262 :: Group -- ^ 'payload'

9363 -> GroupsInsert'

9464groupsInsert' pGiPayload_ =

9565 GroupsInsert'

96− { _giQuotaUser = Nothing

97− , _giPrettyPrint = True

98− , _giUserIP = Nothing

99− , _giPayload = pGiPayload_

100− , _giKey = Nothing

101− , _giOAuthToken = Nothing

102− , _giFields = Nothing

66+ { _giPayload = pGiPayload_

10367 }

10468

105−-- | Available to use for quota purposes for server-side applications. Can be

106−-- any arbitrary string assigned to a user, but should not exceed 40

107−-- characters. Overrides userIp if both are provided.

108−giQuotaUser :: Lens' GroupsInsert' (Maybe Text)

109−giQuotaUser

110− = lens _giQuotaUser (\ s a -> s{_giQuotaUser = a})

111−

112−-- | Returns response with indentations and line breaks.

113−giPrettyPrint :: Lens' GroupsInsert' Bool

114−giPrettyPrint

115− = lens _giPrettyPrint

116− (\ s a -> s{_giPrettyPrint = a})

117−

118−-- | IP address of the site where the request originates. Use this if you

119−-- want to enforce per-user limits.

120−giUserIP :: Lens' GroupsInsert' (Maybe Text)

121−giUserIP = lens _giUserIP (\ s a -> s{_giUserIP = a})

122−

12369-- | Multipart request metadata.

12470giPayload :: Lens' GroupsInsert' Group

12571giPayload

12672 = lens _giPayload (\ s a -> s{_giPayload = a})

12773

128−-- | API key. Your API key identifies your project and provides you with API

129−-- access, quota, and reports. Required unless you provide an OAuth 2.0

130−-- token.

131−giKey :: Lens' GroupsInsert' (Maybe AuthKey)

132−giKey = lens _giKey (\ s a -> s{_giKey = a})

133−

134−-- | OAuth 2.0 token for the current user.

135−giOAuthToken :: Lens' GroupsInsert' (Maybe OAuthToken)

136−giOAuthToken

137− = lens _giOAuthToken (\ s a -> s{_giOAuthToken = a})

138−

139−-- | Selector specifying which fields to include in a partial response.

140−giFields :: Lens' GroupsInsert' (Maybe Text)

141−giFields = lens _giFields (\ s a -> s{_giFields = a})

142−

143−instance GoogleAuth GroupsInsert' where

144− _AuthKey = giKey . _Just

145− _AuthToken = giOAuthToken . _Just

146−

14774instance GoogleRequest GroupsInsert' where

14875 type Rs GroupsInsert' = Group

149− request = requestWith directoryRequest

150− requestWith rq GroupsInsert'{..}

151− = go _giQuotaUser (Just _giPrettyPrint) _giUserIP

152− _giFields

153− _giKey

154− _giOAuthToken

155− (Just AltJSON)

156− _giPayload

76+ requestClient GroupsInsert'{..}

77+ = go (Just AltJSON) _giPayload directoryService

15778 where go

158− = clientBuild (Proxy :: Proxy GroupsInsertResource)

159− rq

79+ = buildClient (Proxy :: Proxy GroupsInsertResource)

80+ mempty

gogol-admin-directory/gen/Network/Google/Resource/Directory/Groups/List.hs+11−89

@@ -33,17 +33,11 @@ module Network.Google.Resource.Directory.Groups.List

3333 , GroupsList'

3434

3535 -- * Request Lenses

36− , glQuotaUser

37− , glPrettyPrint

38− , glUserIP

3936 , glDomain

4037 , glCustomer

41− , glKey

4238 , glPageToken

43− , glOAuthToken

4439 , glUserKey

4540 , glMaxResults

46− , glFields

4741 ) where

4842

4943import Network.Google.Directory.Types

@@ -58,91 +52,43 @@ type GroupsListResource =

5852 QueryParam "pageToken" Text :>

5953 QueryParam "userKey" Text :>

6054 QueryParam "maxResults" Int32 :>

61− QueryParam "quotaUser" Text :>

62− QueryParam "prettyPrint" Bool :>

63− QueryParam "userIp" Text :>

64− QueryParam "fields" Text :>

65− QueryParam "key" AuthKey :>

66− Header "Authorization" OAuthToken :>

67− QueryParam "alt" AltJSON :> Get '[JSON] Groups

55+ QueryParam "alt" AltJSON :> Get '[JSON] Groups

6856

6957-- | Retrieve all groups in a domain (paginated)

7058--

7159-- /See:/ 'groupsList'' smart constructor.

7260data GroupsList' = GroupsList'

73− { _glQuotaUser :: !(Maybe Text)

74− , _glPrettyPrint :: !Bool

75− , _glUserIP :: !(Maybe Text)

76− , _glDomain :: !(Maybe Text)

77− , _glCustomer :: !(Maybe Text)

78− , _glKey :: !(Maybe AuthKey)

79− , _glPageToken :: !(Maybe Text)

80− , _glOAuthToken :: !(Maybe OAuthToken)

81− , _glUserKey :: !(Maybe Text)

82− , _glMaxResults :: !(Maybe Int32)

83− , _glFields :: !(Maybe Text)

61+ { _glDomain :: !(Maybe Text)

62+ , _glCustomer :: !(Maybe Text)

63+ , _glPageToken :: !(Maybe Text)

64+ , _glUserKey :: !(Maybe Text)

65+ , _glMaxResults :: !(Maybe Int32)

8466 } deriving (Eq,Show,Data,Typeable,Generic)

8567

8668-- | Creates a value of 'GroupsList'' with the minimum fields required to make a request.

8769--

8870-- Use one of the following lenses to modify other fields as desired:

8971--

90−-- * 'glQuotaUser'

91−--

92−-- * 'glPrettyPrint'

93−--

94−-- * 'glUserIP'

95−--

9672-- * 'glDomain'

9773--

9874-- * 'glCustomer'

9975--

100−-- * 'glKey'

101−--

10276-- * 'glPageToken'

10377--

104−-- * 'glOAuthToken'

105−--

10678-- * 'glUserKey'

10779--

10880-- * 'glMaxResults'

109−--

110−-- * 'glFields'

11181groupsList'

11282 :: GroupsList'

11383groupsList' =

11484 GroupsList'

115− { _glQuotaUser = Nothing

116− , _glPrettyPrint = True

117− , _glUserIP = Nothing

118− , _glDomain = Nothing

85+ { _glDomain = Nothing

11986 , _glCustomer = Nothing

120− , _glKey = Nothing

12187 , _glPageToken = Nothing

122− , _glOAuthToken = Nothing

12388 , _glUserKey = Nothing

12489 , _glMaxResults = Nothing

125− , _glFields = Nothing

12690 }

12791

128−-- | Available to use for quota purposes for server-side applications. Can be

129−-- any arbitrary string assigned to a user, but should not exceed 40

130−-- characters. Overrides userIp if both are provided.

131−glQuotaUser :: Lens' GroupsList' (Maybe Text)

132−glQuotaUser

133− = lens _glQuotaUser (\ s a -> s{_glQuotaUser = a})

134−

135−-- | Returns response with indentations and line breaks.

136−glPrettyPrint :: Lens' GroupsList' Bool

137−glPrettyPrint

138− = lens _glPrettyPrint

139− (\ s a -> s{_glPrettyPrint = a})

140−

141−-- | IP address of the site where the request originates. Use this if you

142−-- want to enforce per-user limits.

143−glUserIP :: Lens' GroupsList' (Maybe Text)

144−glUserIP = lens _glUserIP (\ s a -> s{_glUserIP = a})

145−

14692-- | Name of the domain. Fill this field to get groups from only this domain.

14793-- To return all groups in a multi-domain fill customer field instead.

14894glDomain :: Lens' GroupsList' (Maybe Text)

@@ -154,22 +100,11 @@ glCustomer :: Lens' GroupsList' (Maybe Text)

154100glCustomer

155101 = lens _glCustomer (\ s a -> s{_glCustomer = a})

156102

157−-- | API key. Your API key identifies your project and provides you with API

158−-- access, quota, and reports. Required unless you provide an OAuth 2.0

159−-- token.

160−glKey :: Lens' GroupsList' (Maybe AuthKey)

161−glKey = lens _glKey (\ s a -> s{_glKey = a})

162−

163103-- | Token to specify next page in the list

164104glPageToken :: Lens' GroupsList' (Maybe Text)

165105glPageToken

166106 = lens _glPageToken (\ s a -> s{_glPageToken = a})

167107

168−-- | OAuth 2.0 token for the current user.

169−glOAuthToken :: Lens' GroupsList' (Maybe OAuthToken)

170−glOAuthToken

171− = lens _glOAuthToken (\ s a -> s{_glOAuthToken = a})

172−

173108-- | Email or immutable Id of the user if only those groups are to be listed,

174109-- the given user is a member of. If Id, it should match with id of user

175110-- object

@@ -182,26 +117,13 @@ glMaxResults :: Lens' GroupsList' (Maybe Int32)

182117glMaxResults

183118 = lens _glMaxResults (\ s a -> s{_glMaxResults = a})

184119

185−-- | Selector specifying which fields to include in a partial response.

186−glFields :: Lens' GroupsList' (Maybe Text)

187−glFields = lens _glFields (\ s a -> s{_glFields = a})

188−

189−instance GoogleAuth GroupsList' where

190− _AuthKey = glKey . _Just

191− _AuthToken = glOAuthToken . _Just

192−

193120instance GoogleRequest GroupsList' where

194121 type Rs GroupsList' = Groups

195− request = requestWith directoryRequest

196− requestWith rq GroupsList'{..}

122+ requestClient GroupsList'{..}

197123 = go _glDomain _glCustomer _glPageToken _glUserKey

198124 _glMaxResults

199− _glQuotaUser

200− (Just _glPrettyPrint)

201− _glUserIP

202− _glFields

203− _glKey

204− _glOAuthToken

205125 (Just AltJSON)

126+ directoryService

206127 where go

207− = clientBuild (Proxy :: Proxy GroupsListResource) rq

128+ = buildClient (Proxy :: Proxy GroupsListResource)

129+ mempty

gogol-admin-directory/gen/Network/Google/Resource/Directory/Groups/Patch.hs+10−88

@@ -33,14 +33,8 @@ module Network.Google.Resource.Directory.Groups.Patch

3333 , GroupsPatch'

3434

3535 -- * Request Lenses

36− , gpQuotaUser

37− , gpPrettyPrint

38− , gpUserIP

3936 , gpGroupKey

4037 , gpPayload

41− , gpKey

42− , gpOAuthToken

43− , gpFields

4438 ) where

4539

4640import Network.Google.Directory.Types

@@ -51,82 +45,34 @@ import Network.Google.Prelude

5145type GroupsPatchResource =

5246 "groups" :>

5347 Capture "groupKey" Text :>

54− QueryParam "quotaUser" Text :>

55− QueryParam "prettyPrint" Bool :>

56− QueryParam "userIp" Text :>

57− QueryParam "fields" Text :>

58− QueryParam "key" AuthKey :>

59− Header "Authorization" OAuthToken :>

60− QueryParam "alt" AltJSON :>

61− ReqBody '[JSON] Group :> Patch '[JSON] Group

48+ QueryParam "alt" AltJSON :>

49+ ReqBody '[JSON] Group :> Patch '[JSON] Group

6250

6351-- | Update Group. This method supports patch semantics.

6452--

6553-- /See:/ 'groupsPatch'' smart constructor.

6654data GroupsPatch' = GroupsPatch'

67− { _gpQuotaUser :: !(Maybe Text)

68− , _gpPrettyPrint :: !Bool

69− , _gpUserIP :: !(Maybe Text)

70− , _gpGroupKey :: !Text

71− , _gpPayload :: !Group

72− , _gpKey :: !(Maybe AuthKey)

73− , _gpOAuthToken :: !(Maybe OAuthToken)

74− , _gpFields :: !(Maybe Text)

55+ { _gpGroupKey :: !Text

56+ , _gpPayload :: !Group

7557 } deriving (Eq,Show,Data,Typeable,Generic)

7658

7759-- | Creates a value of 'GroupsPatch'' with the minimum fields required to make a request.

7860--

7961-- Use one of the following lenses to modify other fields as desired:

8062--

81−-- * 'gpQuotaUser'

82−--

83−-- * 'gpPrettyPrint'

84−--

85−-- * 'gpUserIP'

86−--

8763-- * 'gpGroupKey'

8864--

8965-- * 'gpPayload'

90−--

91−-- * 'gpKey'

92−--

93−-- * 'gpOAuthToken'

94−--

95−-- * 'gpFields'

9666groupsPatch'

9767 :: Text -- ^ 'groupKey'

9868 -> Group -- ^ 'payload'

9969 -> GroupsPatch'

10070groupsPatch' pGpGroupKey_ pGpPayload_ =

10171 GroupsPatch'

102− { _gpQuotaUser = Nothing

103− , _gpPrettyPrint = True

104− , _gpUserIP = Nothing

105− , _gpGroupKey = pGpGroupKey_

72+ { _gpGroupKey = pGpGroupKey_

10673 , _gpPayload = pGpPayload_

107− , _gpKey = Nothing

108− , _gpOAuthToken = Nothing

109− , _gpFields = Nothing

11074 }

11175

112−-- | Available to use for quota purposes for server-side applications. Can be

113−-- any arbitrary string assigned to a user, but should not exceed 40

114−-- characters. Overrides userIp if both are provided.

115−gpQuotaUser :: Lens' GroupsPatch' (Maybe Text)

116−gpQuotaUser

117− = lens _gpQuotaUser (\ s a -> s{_gpQuotaUser = a})

118−

119−-- | Returns response with indentations and line breaks.

120−gpPrettyPrint :: Lens' GroupsPatch' Bool

121−gpPrettyPrint

122− = lens _gpPrettyPrint

123− (\ s a -> s{_gpPrettyPrint = a})

124−

125−-- | IP address of the site where the request originates. Use this if you

126−-- want to enforce per-user limits.

127−gpUserIP :: Lens' GroupsPatch' (Maybe Text)

128−gpUserIP = lens _gpUserIP (\ s a -> s{_gpUserIP = a})

129−

13076-- | Email or immutable Id of the group. If Id, it should match with id of

13177-- group object

13278gpGroupKey :: Lens' GroupsPatch' Text

@@ -138,35 +84,11 @@ gpPayload :: Lens' GroupsPatch' Group

13884gpPayload

13985 = lens _gpPayload (\ s a -> s{_gpPayload = a})

14086

141−-- | API key. Your API key identifies your project and provides you with API

142−-- access, quota, and reports. Required unless you provide an OAuth 2.0

143−-- token.

144−gpKey :: Lens' GroupsPatch' (Maybe AuthKey)

145−gpKey = lens _gpKey (\ s a -> s{_gpKey = a})

146−

147−-- | OAuth 2.0 token for the current user.

148−gpOAuthToken :: Lens' GroupsPatch' (Maybe OAuthToken)

149−gpOAuthToken

150− = lens _gpOAuthToken (\ s a -> s{_gpOAuthToken = a})

151−

152−-- | Selector specifying which fields to include in a partial response.

153−gpFields :: Lens' GroupsPatch' (Maybe Text)

154−gpFields = lens _gpFields (\ s a -> s{_gpFields = a})

155−

156−instance GoogleAuth GroupsPatch' where

157− _AuthKey = gpKey . _Just

158− _AuthToken = gpOAuthToken . _Just

159−

16087instance GoogleRequest GroupsPatch' where

16188 type Rs GroupsPatch' = Group

162− request = requestWith directoryRequest

163− requestWith rq GroupsPatch'{..}

164− = go _gpGroupKey _gpQuotaUser (Just _gpPrettyPrint)

165− _gpUserIP

166− _gpFields

167− _gpKey

168− _gpOAuthToken

169− (Just AltJSON)

170− _gpPayload

89+ requestClient GroupsPatch'{..}

90+ = go _gpGroupKey (Just AltJSON) _gpPayload

91+ directoryService

17192 where go

172− = clientBuild (Proxy :: Proxy GroupsPatchResource) rq

93+ = buildClient (Proxy :: Proxy GroupsPatchResource)

94+ mempty

gogol-admin-directory/gen/Network/Google/Resource/Directory/Groups/Update.hs+10−89

@@ -33,14 +33,8 @@ module Network.Google.Resource.Directory.Groups.Update

3333 , GroupsUpdate'

3434

3535 -- * Request Lenses

36− , guQuotaUser

37− , guPrettyPrint

38− , guUserIP

3936 , guGroupKey

4037 , guPayload

41− , guKey

42− , guOAuthToken

43− , guFields

4438 ) where

4539

4640import Network.Google.Directory.Types

@@ -51,82 +45,34 @@ import Network.Google.Prelude

5145type GroupsUpdateResource =

5246 "groups" :>

5347 Capture "groupKey" Text :>

54− QueryParam "quotaUser" Text :>

55− QueryParam "prettyPrint" Bool :>

56− QueryParam "userIp" Text :>

57− QueryParam "fields" Text :>

58− QueryParam "key" AuthKey :>

59− Header "Authorization" OAuthToken :>

60− QueryParam "alt" AltJSON :>

61− ReqBody '[JSON] Group :> Put '[JSON] Group

48+ QueryParam "alt" AltJSON :>

49+ ReqBody '[JSON] Group :> Put '[JSON] Group

6250

6351-- | Update Group

6452--

6553-- /See:/ 'groupsUpdate'' smart constructor.

6654data GroupsUpdate' = GroupsUpdate'

67− { _guQuotaUser :: !(Maybe Text)

68− , _guPrettyPrint :: !Bool

69− , _guUserIP :: !(Maybe Text)

70− , _guGroupKey :: !Text

71− , _guPayload :: !Group

72− , _guKey :: !(Maybe AuthKey)

73− , _guOAuthToken :: !(Maybe OAuthToken)

74− , _guFields :: !(Maybe Text)

55+ { _guGroupKey :: !Text

56+ , _guPayload :: !Group

7557 } deriving (Eq,Show,Data,Typeable,Generic)

7658

7759-- | Creates a value of 'GroupsUpdate'' with the minimum fields required to make a request.

7860--

7961-- Use one of the following lenses to modify other fields as desired:

8062--

81−-- * 'guQuotaUser'

82−--

83−-- * 'guPrettyPrint'

84−--

85−-- * 'guUserIP'

86−--

8763-- * 'guGroupKey'

8864--

8965-- * 'guPayload'

90−--

91−-- * 'guKey'

92−--

93−-- * 'guOAuthToken'

94−--

95−-- * 'guFields'

9666groupsUpdate'

9767 :: Text -- ^ 'groupKey'

9868 -> Group -- ^ 'payload'

9969 -> GroupsUpdate'

10070groupsUpdate' pGuGroupKey_ pGuPayload_ =

10171 GroupsUpdate'

102− { _guQuotaUser = Nothing

103− , _guPrettyPrint = True

104− , _guUserIP = Nothing

105− , _guGroupKey = pGuGroupKey_

72+ { _guGroupKey = pGuGroupKey_

10673 , _guPayload = pGuPayload_

107− , _guKey = Nothing

108− , _guOAuthToken = Nothing

109− , _guFields = Nothing

11074 }

11175

112−-- | Available to use for quota purposes for server-side applications. Can be

113−-- any arbitrary string assigned to a user, but should not exceed 40

114−-- characters. Overrides userIp if both are provided.

115−guQuotaUser :: Lens' GroupsUpdate' (Maybe Text)

116−guQuotaUser

117− = lens _guQuotaUser (\ s a -> s{_guQuotaUser = a})

118−

119−-- | Returns response with indentations and line breaks.

120−guPrettyPrint :: Lens' GroupsUpdate' Bool

121−guPrettyPrint

122− = lens _guPrettyPrint

123− (\ s a -> s{_guPrettyPrint = a})

124−

125−-- | IP address of the site where the request originates. Use this if you

126−-- want to enforce per-user limits.

127−guUserIP :: Lens' GroupsUpdate' (Maybe Text)

128−guUserIP = lens _guUserIP (\ s a -> s{_guUserIP = a})

129−

13076-- | Email or immutable Id of the group. If Id, it should match with id of

13177-- group object

13278guGroupKey :: Lens' GroupsUpdate' Text

@@ -138,36 +84,11 @@ guPayload :: Lens' GroupsUpdate' Group

13884guPayload

13985 = lens _guPayload (\ s a -> s{_guPayload = a})

14086

141−-- | API key. Your API key identifies your project and provides you with API

142−-- access, quota, and reports. Required unless you provide an OAuth 2.0

143−-- token.

144−guKey :: Lens' GroupsUpdate' (Maybe AuthKey)

145−guKey = lens _guKey (\ s a -> s{_guKey = a})

146−

147−-- | OAuth 2.0 token for the current user.

148−guOAuthToken :: Lens' GroupsUpdate' (Maybe OAuthToken)

149−guOAuthToken

150− = lens _guOAuthToken (\ s a -> s{_guOAuthToken = a})

151−

152−-- | Selector specifying which fields to include in a partial response.

153−guFields :: Lens' GroupsUpdate' (Maybe Text)

154−guFields = lens _guFields (\ s a -> s{_guFields = a})

155−

156−instance GoogleAuth GroupsUpdate' where

157− _AuthKey = guKey . _Just

158− _AuthToken = guOAuthToken . _Just

159−

16087instance GoogleRequest GroupsUpdate' where

16188 type Rs GroupsUpdate' = Group

162− request = requestWith directoryRequest

163− requestWith rq GroupsUpdate'{..}

164− = go _guGroupKey _guQuotaUser (Just _guPrettyPrint)

165− _guUserIP

166− _guFields

167− _guKey

168− _guOAuthToken

169− (Just AltJSON)

170− _guPayload

89+ requestClient GroupsUpdate'{..}

90+ = go _guGroupKey (Just AltJSON) _guPayload

91+ directoryService

17192 where go

172− = clientBuild (Proxy :: Proxy GroupsUpdateResource)

173− rq

93+ = buildClient (Proxy :: Proxy GroupsUpdateResource)

94+ mempty

gogol-admin-directory/gen/Network/Google/Resource/Directory/Members/Delete.hs+9−88

@@ -33,14 +33,8 @@ module Network.Google.Resource.Directory.Members.Delete

3333 , MembersDelete'

3434

3535 -- * Request Lenses

36− , mdQuotaUser

3736 , mdMemberKey

38− , mdPrettyPrint

39− , mdUserIP

4037 , mdGroupKey

41− , mdKey

42− , mdOAuthToken

43− , mdFields

4438 ) where

4539

4640import Network.Google.Directory.Types

@@ -53,121 +47,48 @@ type MembersDeleteResource =

5347 Capture "groupKey" Text :>

5448 "members" :>

5549 Capture "memberKey" Text :>

56− QueryParam "quotaUser" Text :>

57− QueryParam "prettyPrint" Bool :>

58− QueryParam "userIp" Text :>

59− QueryParam "fields" Text :>

60− QueryParam "key" AuthKey :>

61− Header "Authorization" OAuthToken :>

62− QueryParam "alt" AltJSON :> Delete '[JSON] ()

50+ QueryParam "alt" AltJSON :> Delete '[JSON] ()

6351

6452-- | Remove membership.

6553--

6654-- /See:/ 'membersDelete'' smart constructor.

6755data MembersDelete' = MembersDelete'

68− { _mdQuotaUser :: !(Maybe Text)

69− , _mdMemberKey :: !Text

70− , _mdPrettyPrint :: !Bool

71− , _mdUserIP :: !(Maybe Text)

72− , _mdGroupKey :: !Text

73− , _mdKey :: !(Maybe AuthKey)

74− , _mdOAuthToken :: !(Maybe OAuthToken)

75− , _mdFields :: !(Maybe Text)

56+ { _mdMemberKey :: !Text

57+ , _mdGroupKey :: !Text

7658 } deriving (Eq,Show,Data,Typeable,Generic)

7759

7860-- | Creates a value of 'MembersDelete'' with the minimum fields required to make a request.

7961--

8062-- Use one of the following lenses to modify other fields as desired:

8163--

82−-- * 'mdQuotaUser'

83−--

8464-- * 'mdMemberKey'

8565--

86−-- * 'mdPrettyPrint'

87−--

88−-- * 'mdUserIP'

89−--

9066-- * 'mdGroupKey'

91−--

92−-- * 'mdKey'

93−--

94−-- * 'mdOAuthToken'

95−--

96−-- * 'mdFields'

9767membersDelete'

9868 :: Text -- ^ 'memberKey'

9969 -> Text -- ^ 'groupKey'

10070 -> MembersDelete'

10171membersDelete' pMdMemberKey_ pMdGroupKey_ =

10272 MembersDelete'

103− { _mdQuotaUser = Nothing

104− , _mdMemberKey = pMdMemberKey_

105− , _mdPrettyPrint = True

106− , _mdUserIP = Nothing

73+ { _mdMemberKey = pMdMemberKey_

10774 , _mdGroupKey = pMdGroupKey_

108− , _mdKey = Nothing

109− , _mdOAuthToken = Nothing

110− , _mdFields = Nothing

11175 }

11276

113−-- | Available to use for quota purposes for server-side applications. Can be

114−-- any arbitrary string assigned to a user, but should not exceed 40

115−-- characters. Overrides userIp if both are provided.

116−mdQuotaUser :: Lens' MembersDelete' (Maybe Text)

117−mdQuotaUser

118− = lens _mdQuotaUser (\ s a -> s{_mdQuotaUser = a})

119−

12077-- | Email or immutable Id of the member

12178mdMemberKey :: Lens' MembersDelete' Text

12279mdMemberKey

12380 = lens _mdMemberKey (\ s a -> s{_mdMemberKey = a})

12481

125−-- | Returns response with indentations and line breaks.

126−mdPrettyPrint :: Lens' MembersDelete' Bool

127−mdPrettyPrint

128− = lens _mdPrettyPrint

129− (\ s a -> s{_mdPrettyPrint = a})

130−

131−-- | IP address of the site where the request originates. Use this if you

132−-- want to enforce per-user limits.

133−mdUserIP :: Lens' MembersDelete' (Maybe Text)

134−mdUserIP = lens _mdUserIP (\ s a -> s{_mdUserIP = a})

135−

13682-- | Email or immutable Id of the group

13783mdGroupKey :: Lens' MembersDelete' Text

13884mdGroupKey

13985 = lens _mdGroupKey (\ s a -> s{_mdGroupKey = a})

14086

141−-- | API key. Your API key identifies your project and provides you with API

142−-- access, quota, and reports. Required unless you provide an OAuth 2.0

143−-- token.

144−mdKey :: Lens' MembersDelete' (Maybe AuthKey)

145−mdKey = lens _mdKey (\ s a -> s{_mdKey = a})

146−

147−-- | OAuth 2.0 token for the current user.

148−mdOAuthToken :: Lens' MembersDelete' (Maybe OAuthToken)

149−mdOAuthToken

150− = lens _mdOAuthToken (\ s a -> s{_mdOAuthToken = a})

151−

152−-- | Selector specifying which fields to include in a partial response.

153−mdFields :: Lens' MembersDelete' (Maybe Text)

154−mdFields = lens _mdFields (\ s a -> s{_mdFields = a})

155−

156−instance GoogleAuth MembersDelete' where

157− _AuthKey = mdKey . _Just

158− _AuthToken = mdOAuthToken . _Just

159−

16087instance GoogleRequest MembersDelete' where

16188 type Rs MembersDelete' = ()

162− request = requestWith directoryRequest

163− requestWith rq MembersDelete'{..}

164− = go _mdGroupKey _mdMemberKey _mdQuotaUser

165− (Just _mdPrettyPrint)

166− _mdUserIP

167− _mdFields

168− _mdKey

169− _mdOAuthToken

170− (Just AltJSON)

89+ requestClient MembersDelete'{..}

90+ = go _mdGroupKey _mdMemberKey (Just AltJSON)

91+ directoryService

17192 where go

172− = clientBuild (Proxy :: Proxy MembersDeleteResource)

173− rq

93+ = buildClient (Proxy :: Proxy MembersDeleteResource)

94+ mempty

gogol-admin-directory/gen/Network/Google/Resource/Directory/Members/Get.hs+9−87

@@ -33,14 +33,8 @@ module Network.Google.Resource.Directory.Members.Get

3333 , MembersGet'

3434

3535 -- * Request Lenses

36− , mgQuotaUser

3736 , mgMemberKey

38− , mgPrettyPrint

39− , mgUserIP

4037 , mgGroupKey

41− , mgKey

42− , mgOAuthToken

43− , mgFields

4438 ) where

4539

4640import Network.Google.Directory.Types

@@ -53,120 +47,48 @@ type MembersGetResource =

5347 Capture "groupKey" Text :>

5448 "members" :>

5549 Capture "memberKey" Text :>

56− QueryParam "quotaUser" Text :>

57− QueryParam "prettyPrint" Bool :>

58− QueryParam "userIp" Text :>

59− QueryParam "fields" Text :>

60− QueryParam "key" AuthKey :>

61− Header "Authorization" OAuthToken :>

62− QueryParam "alt" AltJSON :> Get '[JSON] Member

50+ QueryParam "alt" AltJSON :> Get '[JSON] Member

6351

6452-- | Retrieve Group Member

6553--

6654-- /See:/ 'membersGet'' smart constructor.

6755data MembersGet' = MembersGet'

68− { _mgQuotaUser :: !(Maybe Text)

69− , _mgMemberKey :: !Text

70− , _mgPrettyPrint :: !Bool

71− , _mgUserIP :: !(Maybe Text)

72− , _mgGroupKey :: !Text

73− , _mgKey :: !(Maybe AuthKey)

74− , _mgOAuthToken :: !(Maybe OAuthToken)

75− , _mgFields :: !(Maybe Text)

56+ { _mgMemberKey :: !Text

57+ , _mgGroupKey :: !Text

7658 } deriving (Eq,Show,Data,Typeable,Generic)

7759

7860-- | Creates a value of 'MembersGet'' with the minimum fields required to make a request.

7961--

8062-- Use one of the following lenses to modify other fields as desired:

8163--

82−-- * 'mgQuotaUser'

83−--

8464-- * 'mgMemberKey'

8565--

86−-- * 'mgPrettyPrint'

87−--

88−-- * 'mgUserIP'

89−--

9066-- * 'mgGroupKey'

91−--

92−-- * 'mgKey'

93−--

94−-- * 'mgOAuthToken'

95−--

96−-- * 'mgFields'

9767membersGet'

9868 :: Text -- ^ 'memberKey'

9969 -> Text -- ^ 'groupKey'

10070 -> MembersGet'

10171membersGet' pMgMemberKey_ pMgGroupKey_ =

10272 MembersGet'

103− { _mgQuotaUser = Nothing

104− , _mgMemberKey = pMgMemberKey_

105− , _mgPrettyPrint = True

106− , _mgUserIP = Nothing

73+ { _mgMemberKey = pMgMemberKey_

10774 , _mgGroupKey = pMgGroupKey_

108− , _mgKey = Nothing

109− , _mgOAuthToken = Nothing

110− , _mgFields = Nothing

11175 }

11276

113−-- | Available to use for quota purposes for server-side applications. Can be

114−-- any arbitrary string assigned to a user, but should not exceed 40

115−-- characters. Overrides userIp if both are provided.

116−mgQuotaUser :: Lens' MembersGet' (Maybe Text)

117−mgQuotaUser

118− = lens _mgQuotaUser (\ s a -> s{_mgQuotaUser = a})

119−

12077-- | Email or immutable Id of the member

12178mgMemberKey :: Lens' MembersGet' Text

12279mgMemberKey

12380 = lens _mgMemberKey (\ s a -> s{_mgMemberKey = a})

12481

125−-- | Returns response with indentations and line breaks.

126−mgPrettyPrint :: Lens' MembersGet' Bool

127−mgPrettyPrint

128− = lens _mgPrettyPrint

129− (\ s a -> s{_mgPrettyPrint = a})

130−

131−-- | IP address of the site where the request originates. Use this if you

132−-- want to enforce per-user limits.

133−mgUserIP :: Lens' MembersGet' (Maybe Text)

134−mgUserIP = lens _mgUserIP (\ s a -> s{_mgUserIP = a})

135−

13682-- | Email or immutable Id of the group

13783mgGroupKey :: Lens' MembersGet' Text

13884mgGroupKey

13985 = lens _mgGroupKey (\ s a -> s{_mgGroupKey = a})

14086

141−-- | API key. Your API key identifies your project and provides you with API

142−-- access, quota, and reports. Required unless you provide an OAuth 2.0

143−-- token.

144−mgKey :: Lens' MembersGet' (Maybe AuthKey)

145−mgKey = lens _mgKey (\ s a -> s{_mgKey = a})

146−

147−-- | OAuth 2.0 token for the current user.

148−mgOAuthToken :: Lens' MembersGet' (Maybe OAuthToken)

149−mgOAuthToken

150− = lens _mgOAuthToken (\ s a -> s{_mgOAuthToken = a})

151−

152−-- | Selector specifying which fields to include in a partial response.

153−mgFields :: Lens' MembersGet' (Maybe Text)

154−mgFields = lens _mgFields (\ s a -> s{_mgFields = a})

155−

156−instance GoogleAuth MembersGet' where

157− _AuthKey = mgKey . _Just

158− _AuthToken = mgOAuthToken . _Just

159−

16087instance GoogleRequest MembersGet' where

16188 type Rs MembersGet' = Member

162− request = requestWith directoryRequest

163− requestWith rq MembersGet'{..}

164− = go _mgGroupKey _mgMemberKey _mgQuotaUser

165− (Just _mgPrettyPrint)

166− _mgUserIP

167− _mgFields

168− _mgKey

169− _mgOAuthToken

170− (Just AltJSON)

89+ requestClient MembersGet'{..}

90+ = go _mgGroupKey _mgMemberKey (Just AltJSON)

91+ directoryService

17192 where go

172− = clientBuild (Proxy :: Proxy MembersGetResource) rq

93+ = buildClient (Proxy :: Proxy MembersGetResource)

94+ mempty

gogol-admin-directory/gen/Network/Google/Resource/Directory/Members/Insert.hs+10−89

@@ -33,14 +33,8 @@ module Network.Google.Resource.Directory.Members.Insert

3333 , MembersInsert'

3434

3535 -- * Request Lenses

36− , miQuotaUser

37− , miPrettyPrint

38− , miUserIP

3936 , miGroupKey

4037 , miPayload

41− , miKey

42− , miOAuthToken

43− , miFields

4438 ) where

4539

4640import Network.Google.Directory.Types

@@ -52,82 +46,34 @@ type MembersInsertResource =

5246 "groups" :>

5347 Capture "groupKey" Text :>

5448 "members" :>

55− QueryParam "quotaUser" Text :>

56− QueryParam "prettyPrint" Bool :>

57− QueryParam "userIp" Text :>

58− QueryParam "fields" Text :>

59− QueryParam "key" AuthKey :>

60− Header "Authorization" OAuthToken :>

61− QueryParam "alt" AltJSON :>

62− ReqBody '[JSON] Member :> Post '[JSON] Member

49+ QueryParam "alt" AltJSON :>

50+ ReqBody '[JSON] Member :> Post '[JSON] Member

6351

6452-- | Add user to the specified group.

6553--

6654-- /See:/ 'membersInsert'' smart constructor.

6755data MembersInsert' = MembersInsert'

68− { _miQuotaUser :: !(Maybe Text)

69− , _miPrettyPrint :: !Bool

70− , _miUserIP :: !(Maybe Text)

71− , _miGroupKey :: !Text

72− , _miPayload :: !Member

73− , _miKey :: !(Maybe AuthKey)

74− , _miOAuthToken :: !(Maybe OAuthToken)

75− , _miFields :: !(Maybe Text)

56+ { _miGroupKey :: !Text

57+ , _miPayload :: !Member

7658 } deriving (Eq,Show,Data,Typeable,Generic)

7759

7860-- | Creates a value of 'MembersInsert'' with the minimum fields required to make a request.

7961--

8062-- Use one of the following lenses to modify other fields as desired:

8163--

82−-- * 'miQuotaUser'

83−--

84−-- * 'miPrettyPrint'

85−--

86−-- * 'miUserIP'

87−--

8864-- * 'miGroupKey'

8965--

9066-- * 'miPayload'

91−--

92−-- * 'miKey'

93−--

94−-- * 'miOAuthToken'

95−--

96−-- * 'miFields'

9767membersInsert'

9868 :: Text -- ^ 'groupKey'

9969 -> Member -- ^ 'payload'

10070 -> MembersInsert'

10171membersInsert' pMiGroupKey_ pMiPayload_ =

10272 MembersInsert'

103− { _miQuotaUser = Nothing

104− , _miPrettyPrint = True

105− , _miUserIP = Nothing

106− , _miGroupKey = pMiGroupKey_

73+ { _miGroupKey = pMiGroupKey_

10774 , _miPayload = pMiPayload_

108− , _miKey = Nothing

109− , _miOAuthToken = Nothing

110− , _miFields = Nothing

11175 }

11276

113−-- | Available to use for quota purposes for server-side applications. Can be

114−-- any arbitrary string assigned to a user, but should not exceed 40

115−-- characters. Overrides userIp if both are provided.

116−miQuotaUser :: Lens' MembersInsert' (Maybe Text)

117−miQuotaUser

118− = lens _miQuotaUser (\ s a -> s{_miQuotaUser = a})

119−

120−-- | Returns response with indentations and line breaks.

121−miPrettyPrint :: Lens' MembersInsert' Bool

122−miPrettyPrint

123− = lens _miPrettyPrint

124− (\ s a -> s{_miPrettyPrint = a})

125−

126−-- | IP address of the site where the request originates. Use this if you

127−-- want to enforce per-user limits.

128−miUserIP :: Lens' MembersInsert' (Maybe Text)

129−miUserIP = lens _miUserIP (\ s a -> s{_miUserIP = a})

130−

13177-- | Email or immutable Id of the group

13278miGroupKey :: Lens' MembersInsert' Text

13379miGroupKey

@@ -138,36 +84,11 @@ miPayload :: Lens' MembersInsert' Member

13884miPayload

13985 = lens _miPayload (\ s a -> s{_miPayload = a})

14086

141−-- | API key. Your API key identifies your project and provides you with API

142−-- access, quota, and reports. Required unless you provide an OAuth 2.0

143−-- token.

144−miKey :: Lens' MembersInsert' (Maybe AuthKey)

145−miKey = lens _miKey (\ s a -> s{_miKey = a})

146−

147−-- | OAuth 2.0 token for the current user.

148−miOAuthToken :: Lens' MembersInsert' (Maybe OAuthToken)

149−miOAuthToken

150− = lens _miOAuthToken (\ s a -> s{_miOAuthToken = a})

151−

152−-- | Selector specifying which fields to include in a partial response.

153−miFields :: Lens' MembersInsert' (Maybe Text)

154−miFields = lens _miFields (\ s a -> s{_miFields = a})

155−

156−instance GoogleAuth MembersInsert' where

157− _AuthKey = miKey . _Just

158− _AuthToken = miOAuthToken . _Just

159−

16087instance GoogleRequest MembersInsert' where

16188 type Rs MembersInsert' = Member

162− request = requestWith directoryRequest

163− requestWith rq MembersInsert'{..}

164− = go _miGroupKey _miQuotaUser (Just _miPrettyPrint)

165− _miUserIP

166− _miFields

167− _miKey

168− _miOAuthToken

169− (Just AltJSON)

170− _miPayload

89+ requestClient MembersInsert'{..}

90+ = go _miGroupKey (Just AltJSON) _miPayload

91+ directoryService

17192 where go

172− = clientBuild (Proxy :: Proxy MembersInsertResource)

173− rq

93+ = buildClient (Proxy :: Proxy MembersInsertResource)

94+ mempty

gogol-admin-directory/gen/Network/Google/Resource/Directory/Members/List.hs+10−88

@@ -33,16 +33,10 @@ module Network.Google.Resource.Directory.Members.List

3333 , MembersList'

3434

3535 -- * Request Lenses

36− , mlQuotaUser

3736 , mlRoles

38− , mlPrettyPrint

39− , mlUserIP

4037 , mlGroupKey

41− , mlKey

4238 , mlPageToken

43− , mlOAuthToken

4439 , mlMaxResults

45− , mlFields

4640 ) where

4741

4842import Network.Google.Directory.Types

@@ -57,137 +51,65 @@ type MembersListResource =

5751 QueryParam "roles" Text :>

5852 QueryParam "pageToken" Text :>

5953 QueryParam "maxResults" Int32 :>

60− QueryParam "quotaUser" Text :>

61− QueryParam "prettyPrint" Bool :>

62− QueryParam "userIp" Text :>

63− QueryParam "fields" Text :>

64− QueryParam "key" AuthKey :>

65− Header "Authorization" OAuthToken :>

66− QueryParam "alt" AltJSON :> Get '[JSON] Members

54+ QueryParam "alt" AltJSON :> Get '[JSON] Members

6755

6856-- | Retrieve all members in a group (paginated)

6957--

7058-- /See:/ 'membersList'' smart constructor.

7159data MembersList' = MembersList'

72− { _mlQuotaUser :: !(Maybe Text)

73− , _mlRoles :: !(Maybe Text)

74− , _mlPrettyPrint :: !Bool

75− , _mlUserIP :: !(Maybe Text)

76− , _mlGroupKey :: !Text

77− , _mlKey :: !(Maybe AuthKey)

78− , _mlPageToken :: !(Maybe Text)

79− , _mlOAuthToken :: !(Maybe OAuthToken)

80− , _mlMaxResults :: !(Maybe Int32)

81− , _mlFields :: !(Maybe Text)

60+ { _mlRoles :: !(Maybe Text)

61+ , _mlGroupKey :: !Text

62+ , _mlPageToken :: !(Maybe Text)

63+ , _mlMaxResults :: !(Maybe Int32)

8264 } deriving (Eq,Show,Data,Typeable,Generic)

8365

8466-- | Creates a value of 'MembersList'' with the minimum fields required to make a request.

8567--

8668-- Use one of the following lenses to modify other fields as desired:

8769--

88−-- * 'mlQuotaUser'

89−--

9070-- * 'mlRoles'

9171--

92−-- * 'mlPrettyPrint'

93−--

94−-- * 'mlUserIP'

95−--

9672-- * 'mlGroupKey'

9773--

98−-- * 'mlKey'

99−--

10074-- * 'mlPageToken'

10175--

102−-- * 'mlOAuthToken'

103−--

10476-- * 'mlMaxResults'

105−--

106−-- * 'mlFields'

10777membersList'

10878 :: Text -- ^ 'groupKey'

10979 -> MembersList'

11080membersList' pMlGroupKey_ =

11181 MembersList'

112− { _mlQuotaUser = Nothing

113− , _mlRoles = Nothing

114− , _mlPrettyPrint = True

115− , _mlUserIP = Nothing

82+ { _mlRoles = Nothing

11683 , _mlGroupKey = pMlGroupKey_

117− , _mlKey = Nothing

11884 , _mlPageToken = Nothing

119− , _mlOAuthToken = Nothing

12085 , _mlMaxResults = Nothing

121− , _mlFields = Nothing

12286 }

12387

124−-- | Available to use for quota purposes for server-side applications. Can be

125−-- any arbitrary string assigned to a user, but should not exceed 40

126−-- characters. Overrides userIp if both are provided.

127−mlQuotaUser :: Lens' MembersList' (Maybe Text)

128−mlQuotaUser

129− = lens _mlQuotaUser (\ s a -> s{_mlQuotaUser = a})

130−

13188-- | Comma separated role values to filter list results on.

13289mlRoles :: Lens' MembersList' (Maybe Text)

13390mlRoles = lens _mlRoles (\ s a -> s{_mlRoles = a})

13491

135−-- | Returns response with indentations and line breaks.

136−mlPrettyPrint :: Lens' MembersList' Bool

137−mlPrettyPrint

138− = lens _mlPrettyPrint

139− (\ s a -> s{_mlPrettyPrint = a})

140−

141−-- | IP address of the site where the request originates. Use this if you

142−-- want to enforce per-user limits.

143−mlUserIP :: Lens' MembersList' (Maybe Text)

144−mlUserIP = lens _mlUserIP (\ s a -> s{_mlUserIP = a})

145−

14692-- | Email or immutable Id of the group

14793mlGroupKey :: Lens' MembersList' Text

14894mlGroupKey

14995 = lens _mlGroupKey (\ s a -> s{_mlGroupKey = a})

15096

151−-- | API key. Your API key identifies your project and provides you with API

152−-- access, quota, and reports. Required unless you provide an OAuth 2.0

153−-- token.

154−mlKey :: Lens' MembersList' (Maybe AuthKey)

155−mlKey = lens _mlKey (\ s a -> s{_mlKey = a})

156−

15797-- | Token to specify next page in the list

15898mlPageToken :: Lens' MembersList' (Maybe Text)

15999mlPageToken

160100 = lens _mlPageToken (\ s a -> s{_mlPageToken = a})

161101

162−-- | OAuth 2.0 token for the current user.

163−mlOAuthToken :: Lens' MembersList' (Maybe OAuthToken)

164−mlOAuthToken

165− = lens _mlOAuthToken (\ s a -> s{_mlOAuthToken = a})

166−

167102-- | Maximum number of results to return. Default is 200

168103mlMaxResults :: Lens' MembersList' (Maybe Int32)

169104mlMaxResults

170105 = lens _mlMaxResults (\ s a -> s{_mlMaxResults = a})

171106

172−-- | Selector specifying which fields to include in a partial response.

173−mlFields :: Lens' MembersList' (Maybe Text)

174−mlFields = lens _mlFields (\ s a -> s{_mlFields = a})

175−

176−instance GoogleAuth MembersList' where

177− _AuthKey = mlKey . _Just

178− _AuthToken = mlOAuthToken . _Just

179−

180107instance GoogleRequest MembersList' where

181108 type Rs MembersList' = Members

182− request = requestWith directoryRequest

183− requestWith rq MembersList'{..}

109+ requestClient MembersList'{..}

184110 = go _mlGroupKey _mlRoles _mlPageToken _mlMaxResults

185− _mlQuotaUser

186− (Just _mlPrettyPrint)

187− _mlUserIP

188− _mlFields

189− _mlKey

190− _mlOAuthToken

191111 (Just AltJSON)

112+ directoryService

192113 where go

193− = clientBuild (Proxy :: Proxy MembersListResource) rq

114+ = buildClient (Proxy :: Proxy MembersListResource)

115+ mempty

gogol-admin-directory/gen/Network/Google/Resource/Directory/Members/Patch.hs+11−90

@@ -34,15 +34,9 @@ module Network.Google.Resource.Directory.Members.Patch

3434 , MembersPatch'

3535

3636 -- * Request Lenses

37− , mpQuotaUser

3837 , mpMemberKey

39− , mpPrettyPrint

40− , mpUserIP

4138 , mpGroupKey

4239 , mpPayload

43− , mpKey

44− , mpOAuthToken

45− , mpFields

4640 ) where

4741

4842import Network.Google.Directory.Types

@@ -55,52 +49,28 @@ type MembersPatchResource =

5549 Capture "groupKey" Text :>

5650 "members" :>

5751 Capture "memberKey" Text :>

58− QueryParam "quotaUser" Text :>

59− QueryParam "prettyPrint" Bool :>

60− QueryParam "userIp" Text :>

61− QueryParam "fields" Text :>

62− QueryParam "key" AuthKey :>

63− Header "Authorization" OAuthToken :>

64− QueryParam "alt" AltJSON :>

65− ReqBody '[JSON] Member :> Patch '[JSON] Member

52+ QueryParam "alt" AltJSON :>

53+ ReqBody '[JSON] Member :> Patch '[JSON] Member

6654

6755-- | Update membership of a user in the specified group. This method supports

6856-- patch semantics.

6957--

7058-- /See:/ 'membersPatch'' smart constructor.

7159data MembersPatch' = MembersPatch'

72− { _mpQuotaUser :: !(Maybe Text)

73− , _mpMemberKey :: !Text

74− , _mpPrettyPrint :: !Bool

75− , _mpUserIP :: !(Maybe Text)

76− , _mpGroupKey :: !Text

77− , _mpPayload :: !Member

78− , _mpKey :: !(Maybe AuthKey)

79− , _mpOAuthToken :: !(Maybe OAuthToken)

80− , _mpFields :: !(Maybe Text)

60+ { _mpMemberKey :: !Text

61+ , _mpGroupKey :: !Text

62+ , _mpPayload :: !Member

8163 } deriving (Eq,Show,Data,Typeable,Generic)

8264

8365-- | Creates a value of 'MembersPatch'' with the minimum fields required to make a request.

8466--

8567-- Use one of the following lenses to modify other fields as desired:

8668--

87−-- * 'mpQuotaUser'

88−--

8969-- * 'mpMemberKey'

9070--

91−-- * 'mpPrettyPrint'

92−--

93−-- * 'mpUserIP'

94−--

9571-- * 'mpGroupKey'

9672--

9773-- * 'mpPayload'

98−--

99−-- * 'mpKey'

100−--

101−-- * 'mpOAuthToken'

102−--

103−-- * 'mpFields'

10474membersPatch'

10575 :: Text -- ^ 'memberKey'

10676 -> Text -- ^ 'groupKey'

@@ -108,41 +78,17 @@ membersPatch'

10878 -> MembersPatch'

10979membersPatch' pMpMemberKey_ pMpGroupKey_ pMpPayload_ =

11080 MembersPatch'

111− { _mpQuotaUser = Nothing

112− , _mpMemberKey = pMpMemberKey_

113− , _mpPrettyPrint = True

114− , _mpUserIP = Nothing

81+ { _mpMemberKey = pMpMemberKey_

11582 , _mpGroupKey = pMpGroupKey_

11683 , _mpPayload = pMpPayload_

117− , _mpKey = Nothing

118− , _mpOAuthToken = Nothing

119− , _mpFields = Nothing

12084 }

12185

122−-- | Available to use for quota purposes for server-side applications. Can be

123−-- any arbitrary string assigned to a user, but should not exceed 40

124−-- characters. Overrides userIp if both are provided.

125−mpQuotaUser :: Lens' MembersPatch' (Maybe Text)

126−mpQuotaUser

127− = lens _mpQuotaUser (\ s a -> s{_mpQuotaUser = a})

128−

12986-- | Email or immutable Id of the user. If Id, it should match with id of

13087-- member object

13188mpMemberKey :: Lens' MembersPatch' Text

13289mpMemberKey

13390 = lens _mpMemberKey (\ s a -> s{_mpMemberKey = a})

13491

135−-- | Returns response with indentations and line breaks.

136−mpPrettyPrint :: Lens' MembersPatch' Bool

137−mpPrettyPrint

138− = lens _mpPrettyPrint

139− (\ s a -> s{_mpPrettyPrint = a})

140−

141−-- | IP address of the site where the request originates. Use this if you

142−-- want to enforce per-user limits.

143−mpUserIP :: Lens' MembersPatch' (Maybe Text)

144−mpUserIP = lens _mpUserIP (\ s a -> s{_mpUserIP = a})

145−

14692-- | Email or immutable Id of the group. If Id, it should match with id of

14793-- group object

14894mpGroupKey :: Lens' MembersPatch' Text

@@ -154,37 +100,12 @@ mpPayload :: Lens' MembersPatch' Member

154100mpPayload

155101 = lens _mpPayload (\ s a -> s{_mpPayload = a})

156102

157−-- | API key. Your API key identifies your project and provides you with API

158−-- access, quota, and reports. Required unless you provide an OAuth 2.0

159−-- token.

160−mpKey :: Lens' MembersPatch' (Maybe AuthKey)

161−mpKey = lens _mpKey (\ s a -> s{_mpKey = a})

162−

163−-- | OAuth 2.0 token for the current user.

164−mpOAuthToken :: Lens' MembersPatch' (Maybe OAuthToken)

165−mpOAuthToken

166− = lens _mpOAuthToken (\ s a -> s{_mpOAuthToken = a})

167−

168−-- | Selector specifying which fields to include in a partial response.

169−mpFields :: Lens' MembersPatch' (Maybe Text)

170−mpFields = lens _mpFields (\ s a -> s{_mpFields = a})

171−

172−instance GoogleAuth MembersPatch' where

173− _AuthKey = mpKey . _Just

174− _AuthToken = mpOAuthToken . _Just

175−

176103instance GoogleRequest MembersPatch' where

177104 type Rs MembersPatch' = Member

178− request = requestWith directoryRequest

179− requestWith rq MembersPatch'{..}

180− = go _mpGroupKey _mpMemberKey _mpQuotaUser

181− (Just _mpPrettyPrint)

182− _mpUserIP

183− _mpFields

184− _mpKey

185− _mpOAuthToken

186− (Just AltJSON)

105+ requestClient MembersPatch'{..}

106+ = go _mpGroupKey _mpMemberKey (Just AltJSON)

187107 _mpPayload

108+ directoryService

188109 where go

189− = clientBuild (Proxy :: Proxy MembersPatchResource)

190− rq

110+ = buildClient (Proxy :: Proxy MembersPatchResource)

111+ mempty

gogol-admin-directory/gen/Network/Google/Resource/Directory/Members/Update.hs+11−90

@@ -33,15 +33,9 @@ module Network.Google.Resource.Directory.Members.Update

3333 , MembersUpdate'

3434

3535 -- * Request Lenses

36− , muQuotaUser

3736 , muMemberKey

38− , muPrettyPrint

39− , muUserIP

4037 , muGroupKey

4138 , muPayload

42− , muKey

43− , muOAuthToken

44− , muFields

4539 ) where

4640

4741import Network.Google.Directory.Types

@@ -54,51 +48,27 @@ type MembersUpdateResource =

5448 Capture "groupKey" Text :>

5549 "members" :>

5650 Capture "memberKey" Text :>

57− QueryParam "quotaUser" Text :>

58− QueryParam "prettyPrint" Bool :>

59− QueryParam "userIp" Text :>

60− QueryParam "fields" Text :>

61− QueryParam "key" AuthKey :>

62− Header "Authorization" OAuthToken :>

63− QueryParam "alt" AltJSON :>

64− ReqBody '[JSON] Member :> Put '[JSON] Member

51+ QueryParam "alt" AltJSON :>

52+ ReqBody '[JSON] Member :> Put '[JSON] Member

6553

6654-- | Update membership of a user in the specified group.

6755--

6856-- /See:/ 'membersUpdate'' smart constructor.

6957data MembersUpdate' = MembersUpdate'

70− { _muQuotaUser :: !(Maybe Text)

71− , _muMemberKey :: !Text

72− , _muPrettyPrint :: !Bool

73− , _muUserIP :: !(Maybe Text)

74− , _muGroupKey :: !Text

75− , _muPayload :: !Member

76− , _muKey :: !(Maybe AuthKey)

77− , _muOAuthToken :: !(Maybe OAuthToken)

78− , _muFields :: !(Maybe Text)

58+ { _muMemberKey :: !Text

59+ , _muGroupKey :: !Text

60+ , _muPayload :: !Member

7961 } deriving (Eq,Show,Data,Typeable,Generic)

8062

8163-- | Creates a value of 'MembersUpdate'' with the minimum fields required to make a request.

8264--

8365-- Use one of the following lenses to modify other fields as desired:

8466--

85−-- * 'muQuotaUser'

86−--

8767-- * 'muMemberKey'

8868--

89−-- * 'muPrettyPrint'

90−--

91−-- * 'muUserIP'

92−--

9369-- * 'muGroupKey'

9470--

9571-- * 'muPayload'

96−--

97−-- * 'muKey'

98−--

99−-- * 'muOAuthToken'

100−--

101−-- * 'muFields'

10272membersUpdate'

10373 :: Text -- ^ 'memberKey'

10474 -> Text -- ^ 'groupKey'

@@ -106,41 +76,17 @@ membersUpdate'

10676 -> MembersUpdate'

10777membersUpdate' pMuMemberKey_ pMuGroupKey_ pMuPayload_ =

10878 MembersUpdate'

109− { _muQuotaUser = Nothing

110− , _muMemberKey = pMuMemberKey_

111− , _muPrettyPrint = True

112− , _muUserIP = Nothing

79+ { _muMemberKey = pMuMemberKey_

11380 , _muGroupKey = pMuGroupKey_

11481 , _muPayload = pMuPayload_

115− , _muKey = Nothing

116− , _muOAuthToken = Nothing

117− , _muFields = Nothing

11882 }

11983

120−-- | Available to use for quota purposes for server-side applications. Can be

121−-- any arbitrary string assigned to a user, but should not exceed 40

122−-- characters. Overrides userIp if both are provided.

123−muQuotaUser :: Lens' MembersUpdate' (Maybe Text)

124−muQuotaUser

125− = lens _muQuotaUser (\ s a -> s{_muQuotaUser = a})

126−

12784-- | Email or immutable Id of the user. If Id, it should match with id of

12885-- member object

12986muMemberKey :: Lens' MembersUpdate' Text

13087muMemberKey

13188 = lens _muMemberKey (\ s a -> s{_muMemberKey = a})

13289

133−-- | Returns response with indentations and line breaks.

134−muPrettyPrint :: Lens' MembersUpdate' Bool

135−muPrettyPrint

136− = lens _muPrettyPrint

137− (\ s a -> s{_muPrettyPrint = a})

138−

139−-- | IP address of the site where the request originates. Use this if you

140−-- want to enforce per-user limits.

141−muUserIP :: Lens' MembersUpdate' (Maybe Text)

142−muUserIP = lens _muUserIP (\ s a -> s{_muUserIP = a})

143−

14490-- | Email or immutable Id of the group. If Id, it should match with id of

14591-- group object

14692muGroupKey :: Lens' MembersUpdate' Text

@@ -152,37 +98,12 @@ muPayload :: Lens' MembersUpdate' Member

15298muPayload

15399 = lens _muPayload (\ s a -> s{_muPayload = a})

154100

155−-- | API key. Your API key identifies your project and provides you with API

156−-- access, quota, and reports. Required unless you provide an OAuth 2.0

157−-- token.

158−muKey :: Lens' MembersUpdate' (Maybe AuthKey)

159−muKey = lens _muKey (\ s a -> s{_muKey = a})

160−

161−-- | OAuth 2.0 token for the current user.

162−muOAuthToken :: Lens' MembersUpdate' (Maybe OAuthToken)

163−muOAuthToken

164− = lens _muOAuthToken (\ s a -> s{_muOAuthToken = a})

165−

166−-- | Selector specifying which fields to include in a partial response.

167−muFields :: Lens' MembersUpdate' (Maybe Text)

168−muFields = lens _muFields (\ s a -> s{_muFields = a})

169−

170−instance GoogleAuth MembersUpdate' where

171− _AuthKey = muKey . _Just

172− _AuthToken = muOAuthToken . _Just

173−

174101instance GoogleRequest MembersUpdate' where

175102 type Rs MembersUpdate' = Member

176− request = requestWith directoryRequest

177− requestWith rq MembersUpdate'{..}

178− = go _muGroupKey _muMemberKey _muQuotaUser

179− (Just _muPrettyPrint)

180− _muUserIP

181− _muFields

182− _muKey

183− _muOAuthToken

184− (Just AltJSON)

103+ requestClient MembersUpdate'{..}

104+ = go _muGroupKey _muMemberKey (Just AltJSON)

185105 _muPayload

106+ directoryService

186107 where go

187− = clientBuild (Proxy :: Proxy MembersUpdateResource)

188− rq

108+ = buildClient (Proxy :: Proxy MembersUpdateResource)

109+ mempty

gogol-admin-directory/gen/Network/Google/Resource/Directory/MobileDevices/Action.hs+11−94

@@ -33,15 +33,9 @@ module Network.Google.Resource.Directory.MobileDevices.Action

3333 , MobileDevicesAction'

3434

3535 -- * Request Lenses

36− , mdaQuotaUser

3736 , mdaResourceId

38− , mdaPrettyPrint

39− , mdaUserIP

4037 , mdaPayload

4138 , mdaCustomerId

42− , mdaKey

43− , mdaOAuthToken

44− , mdaFields

4539 ) where

4640

4741import Network.Google.Directory.Types

@@ -56,52 +50,27 @@ type MobileDevicesActionResource =

5650 "mobile" :>

5751 Capture "resourceId" Text :>

5852 "action" :>

59− QueryParam "quotaUser" Text :>

60− QueryParam "prettyPrint" Bool :>

61− QueryParam "userIp" Text :>

62− QueryParam "fields" Text :>

63− QueryParam "key" AuthKey :>

64− Header "Authorization" OAuthToken :>

65− QueryParam "alt" AltJSON :>

66− ReqBody '[JSON] MobileDeviceAction :>

67− Post '[JSON] ()

53+ QueryParam "alt" AltJSON :>

54+ ReqBody '[JSON] MobileDeviceAction :> Post '[JSON] ()

6855

6956-- | Take action on Mobile Device

7057--

7158-- /See:/ 'mobileDevicesAction'' smart constructor.

7259data MobileDevicesAction' = MobileDevicesAction'

73− { _mdaQuotaUser :: !(Maybe Text)

74− , _mdaResourceId :: !Text

75− , _mdaPrettyPrint :: !Bool

76− , _mdaUserIP :: !(Maybe Text)

77− , _mdaPayload :: !MobileDeviceAction

78− , _mdaCustomerId :: !Text

79− , _mdaKey :: !(Maybe AuthKey)

80− , _mdaOAuthToken :: !(Maybe OAuthToken)

81− , _mdaFields :: !(Maybe Text)

60+ { _mdaResourceId :: !Text

61+ , _mdaPayload :: !MobileDeviceAction

62+ , _mdaCustomerId :: !Text

8263 } deriving (Eq,Show,Data,Typeable,Generic)

8364

8465-- | Creates a value of 'MobileDevicesAction'' with the minimum fields required to make a request.

8566--

8667-- Use one of the following lenses to modify other fields as desired:

8768--

88−-- * 'mdaQuotaUser'

89−--

9069-- * 'mdaResourceId'

9170--

92−-- * 'mdaPrettyPrint'

93−--

94−-- * 'mdaUserIP'

95−--

9671-- * 'mdaPayload'

9772--

9873-- * 'mdaCustomerId'

99−--

100−-- * 'mdaKey'

101−--

102−-- * 'mdaOAuthToken'

103−--

104−-- * 'mdaFields'

10574mobileDevicesAction'

10675 :: Text -- ^ 'resourceId'

10776 -> MobileDeviceAction -- ^ 'payload'

@@ -109,42 +78,17 @@ mobileDevicesAction'

10978 -> MobileDevicesAction'

11079mobileDevicesAction' pMdaResourceId_ pMdaPayload_ pMdaCustomerId_ =

11180 MobileDevicesAction'

112− { _mdaQuotaUser = Nothing

113− , _mdaResourceId = pMdaResourceId_

114− , _mdaPrettyPrint = True

115− , _mdaUserIP = Nothing

81+ { _mdaResourceId = pMdaResourceId_

11682 , _mdaPayload = pMdaPayload_

11783 , _mdaCustomerId = pMdaCustomerId_

118− , _mdaKey = Nothing

119− , _mdaOAuthToken = Nothing

120− , _mdaFields = Nothing

12184 }

12285

123−-- | Available to use for quota purposes for server-side applications. Can be

124−-- any arbitrary string assigned to a user, but should not exceed 40

125−-- characters. Overrides userIp if both are provided.

126−mdaQuotaUser :: Lens' MobileDevicesAction' (Maybe Text)

127−mdaQuotaUser

128− = lens _mdaQuotaUser (\ s a -> s{_mdaQuotaUser = a})

129−

13086-- | Immutable id of Mobile Device

13187mdaResourceId :: Lens' MobileDevicesAction' Text

13288mdaResourceId

13389 = lens _mdaResourceId

13490 (\ s a -> s{_mdaResourceId = a})

13591

136−-- | Returns response with indentations and line breaks.

137−mdaPrettyPrint :: Lens' MobileDevicesAction' Bool

138−mdaPrettyPrint

139− = lens _mdaPrettyPrint

140− (\ s a -> s{_mdaPrettyPrint = a})

141−

142−-- | IP address of the site where the request originates. Use this if you

143−-- want to enforce per-user limits.

144−mdaUserIP :: Lens' MobileDevicesAction' (Maybe Text)

145−mdaUserIP

146− = lens _mdaUserIP (\ s a -> s{_mdaUserIP = a})

147−

14892-- | Multipart request metadata.

14993mdaPayload :: Lens' MobileDevicesAction' MobileDeviceAction

15094mdaPayload

@@ -156,40 +100,13 @@ mdaCustomerId

156100 = lens _mdaCustomerId

157101 (\ s a -> s{_mdaCustomerId = a})

158102

159−-- | API key. Your API key identifies your project and provides you with API

160−-- access, quota, and reports. Required unless you provide an OAuth 2.0

161−-- token.

162−mdaKey :: Lens' MobileDevicesAction' (Maybe AuthKey)

163−mdaKey = lens _mdaKey (\ s a -> s{_mdaKey = a})

164−

165−-- | OAuth 2.0 token for the current user.

166−mdaOAuthToken :: Lens' MobileDevicesAction' (Maybe OAuthToken)

167−mdaOAuthToken

168− = lens _mdaOAuthToken

169− (\ s a -> s{_mdaOAuthToken = a})

170−

171−-- | Selector specifying which fields to include in a partial response.

172−mdaFields :: Lens' MobileDevicesAction' (Maybe Text)

173−mdaFields

174− = lens _mdaFields (\ s a -> s{_mdaFields = a})

175−

176−instance GoogleAuth MobileDevicesAction' where

177− _AuthKey = mdaKey . _Just

178− _AuthToken = mdaOAuthToken . _Just

179−

180103instance GoogleRequest MobileDevicesAction' where

181104 type Rs MobileDevicesAction' = ()

182− request = requestWith directoryRequest

183− requestWith rq MobileDevicesAction'{..}

184− = go _mdaCustomerId _mdaResourceId _mdaQuotaUser

185− (Just _mdaPrettyPrint)

186− _mdaUserIP

187− _mdaFields

188− _mdaKey

189− _mdaOAuthToken

190− (Just AltJSON)

105+ requestClient MobileDevicesAction'{..}

106+ = go _mdaCustomerId _mdaResourceId (Just AltJSON)

191107 _mdaPayload

108+ directoryService

192109 where go

193− = clientBuild

110+ = buildClient

194111 (Proxy :: Proxy MobileDevicesActionResource)

195− rq

112+ mempty

gogol-admin-directory/gen/Network/Google/Resource/Directory/MobileDevices/Delete.hs+9−91

@@ -33,14 +33,8 @@ module Network.Google.Resource.Directory.MobileDevices.Delete

3333 , MobileDevicesDelete'

3434

3535 -- * Request Lenses

36− , mddQuotaUser

3736 , mddResourceId

38− , mddPrettyPrint

39− , mddUserIP

4037 , mddCustomerId

41− , mddKey

42− , mddOAuthToken

43− , mddFields

4438 ) where

4539

4640import Network.Google.Directory.Types

@@ -54,127 +48,51 @@ type MobileDevicesDeleteResource =

5448 "devices" :>

5549 "mobile" :>

5650 Capture "resourceId" Text :>

57− QueryParam "quotaUser" Text :>

58− QueryParam "prettyPrint" Bool :>

59− QueryParam "userIp" Text :>

60− QueryParam "fields" Text :>

61− QueryParam "key" AuthKey :>

62− Header "Authorization" OAuthToken :>

63− QueryParam "alt" AltJSON :> Delete '[JSON] ()

51+ QueryParam "alt" AltJSON :> Delete '[JSON] ()

6452

6553-- | Delete Mobile Device

6654--

6755-- /See:/ 'mobileDevicesDelete'' smart constructor.

6856data MobileDevicesDelete' = MobileDevicesDelete'

69− { _mddQuotaUser :: !(Maybe Text)

70− , _mddResourceId :: !Text

71− , _mddPrettyPrint :: !Bool

72− , _mddUserIP :: !(Maybe Text)

73− , _mddCustomerId :: !Text

74− , _mddKey :: !(Maybe AuthKey)

75− , _mddOAuthToken :: !(Maybe OAuthToken)

76− , _mddFields :: !(Maybe Text)

57+ { _mddResourceId :: !Text

58+ , _mddCustomerId :: !Text

7759 } deriving (Eq,Show,Data,Typeable,Generic)

7860

7961-- | Creates a value of 'MobileDevicesDelete'' with the minimum fields required to make a request.

8062--

8163-- Use one of the following lenses to modify other fields as desired:

8264--

83−-- * 'mddQuotaUser'

84−--

8565-- * 'mddResourceId'

8666--

87−-- * 'mddPrettyPrint'

88−--

89−-- * 'mddUserIP'

90−--

9167-- * 'mddCustomerId'

92−--

93−-- * 'mddKey'

94−--

95−-- * 'mddOAuthToken'

96−--

97−-- * 'mddFields'

9868mobileDevicesDelete'

9969 :: Text -- ^ 'resourceId'

10070 -> Text -- ^ 'customerId'

10171 -> MobileDevicesDelete'

10272mobileDevicesDelete' pMddResourceId_ pMddCustomerId_ =

10373 MobileDevicesDelete'

104− { _mddQuotaUser = Nothing

105− , _mddResourceId = pMddResourceId_

106− , _mddPrettyPrint = True

107− , _mddUserIP = Nothing

74+ { _mddResourceId = pMddResourceId_

10875 , _mddCustomerId = pMddCustomerId_

109− , _mddKey = Nothing

110− , _mddOAuthToken = Nothing

111− , _mddFields = Nothing

11276 }

11377

114−-- | Available to use for quota purposes for server-side applications. Can be

115−-- any arbitrary string assigned to a user, but should not exceed 40

116−-- characters. Overrides userIp if both are provided.

117−mddQuotaUser :: Lens' MobileDevicesDelete' (Maybe Text)

118−mddQuotaUser

119− = lens _mddQuotaUser (\ s a -> s{_mddQuotaUser = a})

120−

12178-- | Immutable id of Mobile Device

12279mddResourceId :: Lens' MobileDevicesDelete' Text

12380mddResourceId

12481 = lens _mddResourceId

12582 (\ s a -> s{_mddResourceId = a})

12683

127−-- | Returns response with indentations and line breaks.

128−mddPrettyPrint :: Lens' MobileDevicesDelete' Bool

129−mddPrettyPrint

130− = lens _mddPrettyPrint

131− (\ s a -> s{_mddPrettyPrint = a})

132−

133−-- | IP address of the site where the request originates. Use this if you

134−-- want to enforce per-user limits.

135−mddUserIP :: Lens' MobileDevicesDelete' (Maybe Text)

136−mddUserIP

137− = lens _mddUserIP (\ s a -> s{_mddUserIP = a})

138−

13984-- | Immutable id of the Google Apps account

14085mddCustomerId :: Lens' MobileDevicesDelete' Text

14186mddCustomerId

14287 = lens _mddCustomerId

14388 (\ s a -> s{_mddCustomerId = a})

14489

145−-- | API key. Your API key identifies your project and provides you with API

146−-- access, quota, and reports. Required unless you provide an OAuth 2.0

147−-- token.

148−mddKey :: Lens' MobileDevicesDelete' (Maybe AuthKey)

149−mddKey = lens _mddKey (\ s a -> s{_mddKey = a})

150−

151−-- | OAuth 2.0 token for the current user.

152−mddOAuthToken :: Lens' MobileDevicesDelete' (Maybe OAuthToken)

153−mddOAuthToken

154− = lens _mddOAuthToken

155− (\ s a -> s{_mddOAuthToken = a})

156−

157−-- | Selector specifying which fields to include in a partial response.

158−mddFields :: Lens' MobileDevicesDelete' (Maybe Text)

159−mddFields

160− = lens _mddFields (\ s a -> s{_mddFields = a})

161−

162−instance GoogleAuth MobileDevicesDelete' where

163− _AuthKey = mddKey . _Just

164− _AuthToken = mddOAuthToken . _Just

165−

16690instance GoogleRequest MobileDevicesDelete' where

16791 type Rs MobileDevicesDelete' = ()

168− request = requestWith directoryRequest

169− requestWith rq MobileDevicesDelete'{..}

170− = go _mddCustomerId _mddResourceId _mddQuotaUser

171− (Just _mddPrettyPrint)

172− _mddUserIP

173− _mddFields

174− _mddKey

175− _mddOAuthToken

176− (Just AltJSON)

92+ requestClient MobileDevicesDelete'{..}

93+ = go _mddCustomerId _mddResourceId (Just AltJSON)

94+ directoryService

17795 where go

178− = clientBuild

96+ = buildClient

17997 (Proxy :: Proxy MobileDevicesDeleteResource)

180− rq

98+ mempty

gogol-admin-directory/gen/Network/Google/Resource/Directory/MobileDevices/Get.hs+9−92

@@ -33,15 +33,9 @@ module Network.Google.Resource.Directory.MobileDevices.Get

3333 , MobileDevicesGet'

3434

3535 -- * Request Lenses

36− , mdgQuotaUser

3736 , mdgResourceId

38− , mdgPrettyPrint

39− , mdgUserIP

4037 , mdgCustomerId

41− , mdgKey

4238 , mdgProjection

43− , mdgOAuthToken

44− , mdgFields

4539 ) where

4640

4741import Network.Google.Directory.Types

@@ -56,139 +50,62 @@ type MobileDevicesGetResource =

5650 "mobile" :>

5751 Capture "resourceId" Text :>

5852 QueryParam "projection" MobileDevicesGetProjection :>

59− QueryParam "quotaUser" Text :>

60− QueryParam "prettyPrint" Bool :>

61− QueryParam "userIp" Text :>

62− QueryParam "fields" Text :>

63− QueryParam "key" AuthKey :>

64− Header "Authorization" OAuthToken :>

65− QueryParam "alt" AltJSON :>

66− Get '[JSON] MobileDevice

53+ QueryParam "alt" AltJSON :> Get '[JSON] MobileDevice

6754

6855-- | Retrieve Mobile Device

6956--

7057-- /See:/ 'mobileDevicesGet'' smart constructor.

7158data MobileDevicesGet' = MobileDevicesGet'

72− { _mdgQuotaUser :: !(Maybe Text)

73− , _mdgResourceId :: !Text

74− , _mdgPrettyPrint :: !Bool

75− , _mdgUserIP :: !(Maybe Text)

76− , _mdgCustomerId :: !Text

77− , _mdgKey :: !(Maybe AuthKey)

78− , _mdgProjection :: !(Maybe MobileDevicesGetProjection)

79− , _mdgOAuthToken :: !(Maybe OAuthToken)

80− , _mdgFields :: !(Maybe Text)

59+ { _mdgResourceId :: !Text

60+ , _mdgCustomerId :: !Text

61+ , _mdgProjection :: !(Maybe MobileDevicesGetProjection)

8162 } deriving (Eq,Show,Data,Typeable,Generic)

8263

8364-- | Creates a value of 'MobileDevicesGet'' with the minimum fields required to make a request.

8465--

8566-- Use one of the following lenses to modify other fields as desired:

8667--

87−-- * 'mdgQuotaUser'

88−--

8968-- * 'mdgResourceId'

9069--

91−-- * 'mdgPrettyPrint'

92−--

93−-- * 'mdgUserIP'

94−--

9570-- * 'mdgCustomerId'

9671--

97−-- * 'mdgKey'

98−--

9972-- * 'mdgProjection'

100−--

101−-- * 'mdgOAuthToken'

102−--

103−-- * 'mdgFields'

10473mobileDevicesGet'

10574 :: Text -- ^ 'resourceId'

10675 -> Text -- ^ 'customerId'

10776 -> MobileDevicesGet'

10877mobileDevicesGet' pMdgResourceId_ pMdgCustomerId_ =

10978 MobileDevicesGet'

110− { _mdgQuotaUser = Nothing

111− , _mdgResourceId = pMdgResourceId_

112− , _mdgPrettyPrint = True

113− , _mdgUserIP = Nothing

79+ { _mdgResourceId = pMdgResourceId_

11480 , _mdgCustomerId = pMdgCustomerId_

115− , _mdgKey = Nothing

11681 , _mdgProjection = Nothing

117− , _mdgOAuthToken = Nothing

118− , _mdgFields = Nothing

11982 }

12083

121−-- | Available to use for quota purposes for server-side applications. Can be

122−-- any arbitrary string assigned to a user, but should not exceed 40

123−-- characters. Overrides userIp if both are provided.

124−mdgQuotaUser :: Lens' MobileDevicesGet' (Maybe Text)

125−mdgQuotaUser

126− = lens _mdgQuotaUser (\ s a -> s{_mdgQuotaUser = a})

127−

12884-- | Immutable id of Mobile Device

12985mdgResourceId :: Lens' MobileDevicesGet' Text

13086mdgResourceId

13187 = lens _mdgResourceId

13288 (\ s a -> s{_mdgResourceId = a})

13389

134−-- | Returns response with indentations and line breaks.

135−mdgPrettyPrint :: Lens' MobileDevicesGet' Bool

136−mdgPrettyPrint

137− = lens _mdgPrettyPrint

138− (\ s a -> s{_mdgPrettyPrint = a})

139−

140−-- | IP address of the site where the request originates. Use this if you

141−-- want to enforce per-user limits.

142−mdgUserIP :: Lens' MobileDevicesGet' (Maybe Text)

143−mdgUserIP

144− = lens _mdgUserIP (\ s a -> s{_mdgUserIP = a})

145−

14690-- | Immutable id of the Google Apps account

14791mdgCustomerId :: Lens' MobileDevicesGet' Text

14892mdgCustomerId

14993 = lens _mdgCustomerId

15094 (\ s a -> s{_mdgCustomerId = a})

15195

152−-- | API key. Your API key identifies your project and provides you with API

153−-- access, quota, and reports. Required unless you provide an OAuth 2.0

154−-- token.

155−mdgKey :: Lens' MobileDevicesGet' (Maybe AuthKey)

156−mdgKey = lens _mdgKey (\ s a -> s{_mdgKey = a})

157−

15896-- | Restrict information returned to a set of selected fields.

15997mdgProjection :: Lens' MobileDevicesGet' (Maybe MobileDevicesGetProjection)

16098mdgProjection

16199 = lens _mdgProjection

162100 (\ s a -> s{_mdgProjection = a})

163101

164−-- | OAuth 2.0 token for the current user.

165−mdgOAuthToken :: Lens' MobileDevicesGet' (Maybe OAuthToken)

166−mdgOAuthToken

167− = lens _mdgOAuthToken

168− (\ s a -> s{_mdgOAuthToken = a})

169−

170−-- | Selector specifying which fields to include in a partial response.

171−mdgFields :: Lens' MobileDevicesGet' (Maybe Text)

172−mdgFields

173− = lens _mdgFields (\ s a -> s{_mdgFields = a})

174−

175−instance GoogleAuth MobileDevicesGet' where

176− _AuthKey = mdgKey . _Just

177− _AuthToken = mdgOAuthToken . _Just

178−

179102instance GoogleRequest MobileDevicesGet' where

180103 type Rs MobileDevicesGet' = MobileDevice

181− request = requestWith directoryRequest

182− requestWith rq MobileDevicesGet'{..}

104+ requestClient MobileDevicesGet'{..}

183105 = go _mdgCustomerId _mdgResourceId _mdgProjection

184− _mdgQuotaUser

185− (Just _mdgPrettyPrint)

186− _mdgUserIP

187− _mdgFields

188− _mdgKey

189− _mdgOAuthToken

190106 (Just AltJSON)

107+ directoryService

191108 where go

192− = clientBuild

109+ = buildClient

193110 (Proxy :: Proxy MobileDevicesGetResource)

194− rq

111+ mempty

gogol-admin-directory/gen/Network/Google/Resource/Directory/MobileDevices/List.hs+13−96

@@ -33,19 +33,13 @@ module Network.Google.Resource.Directory.MobileDevices.List

3333 , MobileDevicesList'

3434

3535 -- * Request Lenses

36− , mdlQuotaUser

37− , mdlPrettyPrint

3836 , mdlOrderBy

39− , mdlUserIP

4037 , mdlCustomerId

4138 , mdlSortOrder

42− , mdlKey

4339 , mdlQuery

4440 , mdlProjection

4541 , mdlPageToken

46− , mdlOAuthToken

4742 , mdlMaxResults

48− , mdlFields

4943 ) where

5044

5145import Network.Google.Directory.Types

@@ -65,107 +59,57 @@ type MobileDevicesListResource =

6559 :>

6660 QueryParam "pageToken" Text :>

6761 QueryParam "maxResults" Int32 :>

68− QueryParam "quotaUser" Text :>

69− QueryParam "prettyPrint" Bool :>

70− QueryParam "userIp" Text :>

71− QueryParam "fields" Text :>

72− QueryParam "key" AuthKey :>

73− Header "Authorization" OAuthToken :>

74− QueryParam "alt" AltJSON :>

75− Get '[JSON] MobileDevices

62+ QueryParam "alt" AltJSON :> Get '[JSON] MobileDevices

7663

7764-- | Retrieve all Mobile Devices of a customer (paginated)

7865--

7966-- /See:/ 'mobileDevicesList'' smart constructor.

8067data MobileDevicesList' = MobileDevicesList'

81− { _mdlQuotaUser :: !(Maybe Text)

82− , _mdlPrettyPrint :: !Bool

83− , _mdlOrderBy :: !(Maybe MobileDevicesListOrderBy)

84− , _mdlUserIP :: !(Maybe Text)

85− , _mdlCustomerId :: !Text

86− , _mdlSortOrder :: !(Maybe MobileDevicesListSortOrder)

87− , _mdlKey :: !(Maybe AuthKey)

88− , _mdlQuery :: !(Maybe Text)

89− , _mdlProjection :: !(Maybe MobileDevicesListProjection)

90− , _mdlPageToken :: !(Maybe Text)

91− , _mdlOAuthToken :: !(Maybe OAuthToken)

92− , _mdlMaxResults :: !(Maybe Int32)

93− , _mdlFields :: !(Maybe Text)

68+ { _mdlOrderBy :: !(Maybe MobileDevicesListOrderBy)

69+ , _mdlCustomerId :: !Text

70+ , _mdlSortOrder :: !(Maybe MobileDevicesListSortOrder)

71+ , _mdlQuery :: !(Maybe Text)

72+ , _mdlProjection :: !(Maybe MobileDevicesListProjection)

73+ , _mdlPageToken :: !(Maybe Text)

74+ , _mdlMaxResults :: !(Maybe Int32)

9475 } deriving (Eq,Show,Data,Typeable,Generic)

9576

9677-- | Creates a value of 'MobileDevicesList'' with the minimum fields required to make a request.

9778--

9879-- Use one of the following lenses to modify other fields as desired:

9980--

100−-- * 'mdlQuotaUser'

101−--

102−-- * 'mdlPrettyPrint'

103−--

10481-- * 'mdlOrderBy'

10582--

106−-- * 'mdlUserIP'

107−--

10883-- * 'mdlCustomerId'

10984--

11085-- * 'mdlSortOrder'

11186--

112−-- * 'mdlKey'

113−--

11487-- * 'mdlQuery'

11588--

11689-- * 'mdlProjection'

11790--

11891-- * 'mdlPageToken'

11992--

120−-- * 'mdlOAuthToken'

121−--

12293-- * 'mdlMaxResults'

123−--

124−-- * 'mdlFields'

12594mobileDevicesList'

12695 :: Text -- ^ 'customerId'

12796 -> MobileDevicesList'

12897mobileDevicesList' pMdlCustomerId_ =

12998 MobileDevicesList'

130− { _mdlQuotaUser = Nothing

131− , _mdlPrettyPrint = True

132− , _mdlOrderBy = Nothing

133− , _mdlUserIP = Nothing

99+ { _mdlOrderBy = Nothing

134100 , _mdlCustomerId = pMdlCustomerId_

135101 , _mdlSortOrder = Nothing

136− , _mdlKey = Nothing

137102 , _mdlQuery = Nothing

138103 , _mdlProjection = Nothing

139104 , _mdlPageToken = Nothing

140− , _mdlOAuthToken = Nothing

141105 , _mdlMaxResults = Nothing

142− , _mdlFields = Nothing

143106 }

144107

145−-- | Available to use for quota purposes for server-side applications. Can be

146−-- any arbitrary string assigned to a user, but should not exceed 40

147−-- characters. Overrides userIp if both are provided.

148−mdlQuotaUser :: Lens' MobileDevicesList' (Maybe Text)

149−mdlQuotaUser

150− = lens _mdlQuotaUser (\ s a -> s{_mdlQuotaUser = a})

151−

152−-- | Returns response with indentations and line breaks.

153−mdlPrettyPrint :: Lens' MobileDevicesList' Bool

154−mdlPrettyPrint

155− = lens _mdlPrettyPrint

156− (\ s a -> s{_mdlPrettyPrint = a})

157−

158108-- | Column to use for sorting results

159109mdlOrderBy :: Lens' MobileDevicesList' (Maybe MobileDevicesListOrderBy)

160110mdlOrderBy

161111 = lens _mdlOrderBy (\ s a -> s{_mdlOrderBy = a})

162112

163−-- | IP address of the site where the request originates. Use this if you

164−-- want to enforce per-user limits.

165−mdlUserIP :: Lens' MobileDevicesList' (Maybe Text)

166−mdlUserIP

167− = lens _mdlUserIP (\ s a -> s{_mdlUserIP = a})

168−

169113-- | Immutable id of the Google Apps account

170114mdlCustomerId :: Lens' MobileDevicesList' Text

171115mdlCustomerId

@@ -178,12 +122,6 @@ mdlSortOrder :: Lens' MobileDevicesList' (Maybe MobileDevicesListSortOrder)

178122mdlSortOrder

179123 = lens _mdlSortOrder (\ s a -> s{_mdlSortOrder = a})

180124

181−-- | API key. Your API key identifies your project and provides you with API

182−-- access, quota, and reports. Required unless you provide an OAuth 2.0

183−-- token.

184−mdlKey :: Lens' MobileDevicesList' (Maybe AuthKey)

185−mdlKey = lens _mdlKey (\ s a -> s{_mdlKey = a})

186−

187125-- | Search string in the format given at

188126-- http:\/\/support.google.com\/a\/bin\/answer.py?hl=en&answer=1408863#search

189127mdlQuery :: Lens' MobileDevicesList' (Maybe Text)

@@ -200,44 +138,23 @@ mdlPageToken :: Lens' MobileDevicesList' (Maybe Text)

200138mdlPageToken

201139 = lens _mdlPageToken (\ s a -> s{_mdlPageToken = a})

202140

203−-- | OAuth 2.0 token for the current user.

204−mdlOAuthToken :: Lens' MobileDevicesList' (Maybe OAuthToken)

205−mdlOAuthToken

206− = lens _mdlOAuthToken

207− (\ s a -> s{_mdlOAuthToken = a})

208−

209141-- | Maximum number of results to return. Default is 100

210142mdlMaxResults :: Lens' MobileDevicesList' (Maybe Int32)

211143mdlMaxResults

212144 = lens _mdlMaxResults

213145 (\ s a -> s{_mdlMaxResults = a})

214146

215−-- | Selector specifying which fields to include in a partial response.

216−mdlFields :: Lens' MobileDevicesList' (Maybe Text)

217−mdlFields

218− = lens _mdlFields (\ s a -> s{_mdlFields = a})

219−

220−instance GoogleAuth MobileDevicesList' where

221− _AuthKey = mdlKey . _Just

222− _AuthToken = mdlOAuthToken . _Just

223−

224147instance GoogleRequest MobileDevicesList' where

225148 type Rs MobileDevicesList' = MobileDevices

226− request = requestWith directoryRequest

227− requestWith rq MobileDevicesList'{..}

149+ requestClient MobileDevicesList'{..}

228150 = go _mdlCustomerId _mdlOrderBy _mdlSortOrder

229151 _mdlQuery

230152 _mdlProjection

231153 _mdlPageToken

232154 _mdlMaxResults

233− _mdlQuotaUser

234− (Just _mdlPrettyPrint)

235− _mdlUserIP

236− _mdlFields

237− _mdlKey

238− _mdlOAuthToken

239155 (Just AltJSON)

156+ directoryService

240157 where go

241− = clientBuild

158+ = buildClient

242159 (Proxy :: Proxy MobileDevicesListResource)

243− rq

160+ mempty

gogol-admin-directory/gen/Network/Google/Resource/Directory/Notifications/Delete.hs+8−87

@@ -33,14 +33,8 @@ module Network.Google.Resource.Directory.Notifications.Delete

3333 , NotificationsDelete'

3434

3535 -- * Request Lenses

36− , ndQuotaUser

37− , ndPrettyPrint

38− , ndUserIP

3936 , ndCustomer

40− , ndKey

4137 , ndNotificationId

42− , ndOAuthToken

43− , ndFields

4438 ) where

4539

4640import Network.Google.Directory.Types

@@ -53,124 +47,51 @@ type NotificationsDeleteResource =

5347 Capture "customer" Text :>

5448 "notifications" :>

5549 Capture "notificationId" Text :>

56− QueryParam "quotaUser" Text :>

57− QueryParam "prettyPrint" Bool :>

58− QueryParam "userIp" Text :>

59− QueryParam "fields" Text :>

60− QueryParam "key" AuthKey :>

61− Header "Authorization" OAuthToken :>

62− QueryParam "alt" AltJSON :> Delete '[JSON] ()

50+ QueryParam "alt" AltJSON :> Delete '[JSON] ()

6351

6452-- | Deletes a notification

6553--

6654-- /See:/ 'notificationsDelete'' smart constructor.

6755data NotificationsDelete' = NotificationsDelete'

68− { _ndQuotaUser :: !(Maybe Text)

69− , _ndPrettyPrint :: !Bool

70− , _ndUserIP :: !(Maybe Text)

71− , _ndCustomer :: !Text

72− , _ndKey :: !(Maybe AuthKey)

56+ { _ndCustomer :: !Text

7357 , _ndNotificationId :: !Text

74− , _ndOAuthToken :: !(Maybe OAuthToken)

75− , _ndFields :: !(Maybe Text)

7658 } deriving (Eq,Show,Data,Typeable,Generic)

7759

7860-- | Creates a value of 'NotificationsDelete'' with the minimum fields required to make a request.

7961--

8062-- Use one of the following lenses to modify other fields as desired:

8163--

82−-- * 'ndQuotaUser'

83−--

84−-- * 'ndPrettyPrint'

85−--

86−-- * 'ndUserIP'

87−--

8864-- * 'ndCustomer'

8965--

90−-- * 'ndKey'

91−--

9266-- * 'ndNotificationId'

93−--

94−-- * 'ndOAuthToken'

95−--

96−-- * 'ndFields'

9767notificationsDelete'

9868 :: Text -- ^ 'customer'

9969 -> Text -- ^ 'notificationId'

10070 -> NotificationsDelete'

10171notificationsDelete' pNdCustomer_ pNdNotificationId_ =

10272 NotificationsDelete'

103− { _ndQuotaUser = Nothing

104− , _ndPrettyPrint = True

105− , _ndUserIP = Nothing

106− , _ndCustomer = pNdCustomer_

107− , _ndKey = Nothing

73+ { _ndCustomer = pNdCustomer_

10874 , _ndNotificationId = pNdNotificationId_

109− , _ndOAuthToken = Nothing

110− , _ndFields = Nothing

11175 }

11276

113−-- | Available to use for quota purposes for server-side applications. Can be

114−-- any arbitrary string assigned to a user, but should not exceed 40

115−-- characters. Overrides userIp if both are provided.

116−ndQuotaUser :: Lens' NotificationsDelete' (Maybe Text)

117−ndQuotaUser

118− = lens _ndQuotaUser (\ s a -> s{_ndQuotaUser = a})

119−

120−-- | Returns response with indentations and line breaks.

121−ndPrettyPrint :: Lens' NotificationsDelete' Bool

122−ndPrettyPrint

123− = lens _ndPrettyPrint

124− (\ s a -> s{_ndPrettyPrint = a})

125−

126−-- | IP address of the site where the request originates. Use this if you

127−-- want to enforce per-user limits.

128−ndUserIP :: Lens' NotificationsDelete' (Maybe Text)

129−ndUserIP = lens _ndUserIP (\ s a -> s{_ndUserIP = a})

130−

13177-- | The unique ID for the customer\'s Google account. The customerId is also

13278-- returned as part of the Users resource.

13379ndCustomer :: Lens' NotificationsDelete' Text

13480ndCustomer

13581 = lens _ndCustomer (\ s a -> s{_ndCustomer = a})

13682

137−-- | API key. Your API key identifies your project and provides you with API

138−-- access, quota, and reports. Required unless you provide an OAuth 2.0

139−-- token.

140−ndKey :: Lens' NotificationsDelete' (Maybe AuthKey)

141−ndKey = lens _ndKey (\ s a -> s{_ndKey = a})

142−

14383-- | The unique ID of the notification.

14484ndNotificationId :: Lens' NotificationsDelete' Text

14585ndNotificationId

14686 = lens _ndNotificationId

14787 (\ s a -> s{_ndNotificationId = a})

14888

149−-- | OAuth 2.0 token for the current user.

150−ndOAuthToken :: Lens' NotificationsDelete' (Maybe OAuthToken)

151−ndOAuthToken

152− = lens _ndOAuthToken (\ s a -> s{_ndOAuthToken = a})

153−

154−-- | Selector specifying which fields to include in a partial response.

155−ndFields :: Lens' NotificationsDelete' (Maybe Text)

156−ndFields = lens _ndFields (\ s a -> s{_ndFields = a})

157−

158−instance GoogleAuth NotificationsDelete' where

159− _AuthKey = ndKey . _Just

160− _AuthToken = ndOAuthToken . _Just

161−

16289instance GoogleRequest NotificationsDelete' where

16390 type Rs NotificationsDelete' = ()

164− request = requestWith directoryRequest

165− requestWith rq NotificationsDelete'{..}

166− = go _ndCustomer _ndNotificationId _ndQuotaUser

167− (Just _ndPrettyPrint)

168− _ndUserIP

169− _ndFields

170− _ndKey

171− _ndOAuthToken

172− (Just AltJSON)

91+ requestClient NotificationsDelete'{..}

92+ = go _ndCustomer _ndNotificationId (Just AltJSON)

93+ directoryService

17394 where go

174− = clientBuild

95+ = buildClient

17596 (Proxy :: Proxy NotificationsDeleteResource)

176− rq

97+ mempty

gogol-admin-directory/gen/Network/Google/Resource/Directory/Notifications/Get.hs+8−87

@@ -33,14 +33,8 @@ module Network.Google.Resource.Directory.Notifications.Get

3333 , NotificationsGet'

3434

3535 -- * Request Lenses

36− , ngQuotaUser

37− , ngPrettyPrint

38− , ngUserIP

3936 , ngCustomer

40− , ngKey

4137 , ngNotificationId

42− , ngOAuthToken

43− , ngFields

4438 ) where

4539

4640import Network.Google.Directory.Types

@@ -53,124 +47,51 @@ type NotificationsGetResource =

5347 Capture "customer" Text :>

5448 "notifications" :>

5549 Capture "notificationId" Text :>

56− QueryParam "quotaUser" Text :>

57− QueryParam "prettyPrint" Bool :>

58− QueryParam "userIp" Text :>

59− QueryParam "fields" Text :>

60− QueryParam "key" AuthKey :>

61− Header "Authorization" OAuthToken :>

62− QueryParam "alt" AltJSON :> Get '[JSON] Notification

50+ QueryParam "alt" AltJSON :> Get '[JSON] Notification

6351

6452-- | Retrieves a notification.

6553--

6654-- /See:/ 'notificationsGet'' smart constructor.

6755data NotificationsGet' = NotificationsGet'

68− { _ngQuotaUser :: !(Maybe Text)

69− , _ngPrettyPrint :: !Bool

70− , _ngUserIP :: !(Maybe Text)

71− , _ngCustomer :: !Text

72− , _ngKey :: !(Maybe AuthKey)

56+ { _ngCustomer :: !Text

7357 , _ngNotificationId :: !Text

74− , _ngOAuthToken :: !(Maybe OAuthToken)

75− , _ngFields :: !(Maybe Text)

7658 } deriving (Eq,Show,Data,Typeable,Generic)

7759

7860-- | Creates a value of 'NotificationsGet'' with the minimum fields required to make a request.

7961--

8062-- Use one of the following lenses to modify other fields as desired:

8163--

82−-- * 'ngQuotaUser'

83−--

84−-- * 'ngPrettyPrint'

85−--

86−-- * 'ngUserIP'

87−--

8864-- * 'ngCustomer'

8965--

90−-- * 'ngKey'

91−--

9266-- * 'ngNotificationId'

93−--

94−-- * 'ngOAuthToken'

95−--

96−-- * 'ngFields'

9767notificationsGet'

9868 :: Text -- ^ 'customer'

9969 -> Text -- ^ 'notificationId'

10070 -> NotificationsGet'

10171notificationsGet' pNgCustomer_ pNgNotificationId_ =

10272 NotificationsGet'

103− { _ngQuotaUser = Nothing

104− , _ngPrettyPrint = True

105− , _ngUserIP = Nothing

106− , _ngCustomer = pNgCustomer_

107− , _ngKey = Nothing

73+ { _ngCustomer = pNgCustomer_

10874 , _ngNotificationId = pNgNotificationId_

109− , _ngOAuthToken = Nothing

110− , _ngFields = Nothing

11175 }

11276

113−-- | Available to use for quota purposes for server-side applications. Can be

114−-- any arbitrary string assigned to a user, but should not exceed 40

115−-- characters. Overrides userIp if both are provided.

116−ngQuotaUser :: Lens' NotificationsGet' (Maybe Text)

117−ngQuotaUser

118− = lens _ngQuotaUser (\ s a -> s{_ngQuotaUser = a})

119−

120−-- | Returns response with indentations and line breaks.

121−ngPrettyPrint :: Lens' NotificationsGet' Bool

122−ngPrettyPrint

123− = lens _ngPrettyPrint

124− (\ s a -> s{_ngPrettyPrint = a})

125−

126−-- | IP address of the site where the request originates. Use this if you

127−-- want to enforce per-user limits.

128−ngUserIP :: Lens' NotificationsGet' (Maybe Text)

129−ngUserIP = lens _ngUserIP (\ s a -> s{_ngUserIP = a})

130−

13177-- | The unique ID for the customer\'s Google account. The customerId is also

13278-- returned as part of the Users resource.

13379ngCustomer :: Lens' NotificationsGet' Text

13480ngCustomer

13581 = lens _ngCustomer (\ s a -> s{_ngCustomer = a})

13682

137−-- | API key. Your API key identifies your project and provides you with API

138−-- access, quota, and reports. Required unless you provide an OAuth 2.0

139−-- token.

140−ngKey :: Lens' NotificationsGet' (Maybe AuthKey)

141−ngKey = lens _ngKey (\ s a -> s{_ngKey = a})

142−

14383-- | The unique ID of the notification.

14484ngNotificationId :: Lens' NotificationsGet' Text

14585ngNotificationId

14686 = lens _ngNotificationId

14787 (\ s a -> s{_ngNotificationId = a})

14888

149−-- | OAuth 2.0 token for the current user.

150−ngOAuthToken :: Lens' NotificationsGet' (Maybe OAuthToken)

151−ngOAuthToken

152− = lens _ngOAuthToken (\ s a -> s{_ngOAuthToken = a})

153−

154−-- | Selector specifying which fields to include in a partial response.

155−ngFields :: Lens' NotificationsGet' (Maybe Text)

156−ngFields = lens _ngFields (\ s a -> s{_ngFields = a})

157−

158−instance GoogleAuth NotificationsGet' where

159− _AuthKey = ngKey . _Just

160− _AuthToken = ngOAuthToken . _Just

161−

16289instance GoogleRequest NotificationsGet' where

16390 type Rs NotificationsGet' = Notification

164− request = requestWith directoryRequest

165− requestWith rq NotificationsGet'{..}

166− = go _ngCustomer _ngNotificationId _ngQuotaUser

167− (Just _ngPrettyPrint)

168− _ngUserIP

169− _ngFields

170− _ngKey

171− _ngOAuthToken

172− (Just AltJSON)

91+ requestClient NotificationsGet'{..}

92+ = go _ngCustomer _ngNotificationId (Just AltJSON)

93+ directoryService

17394 where go

174− = clientBuild

95+ = buildClient

17596 (Proxy :: Proxy NotificationsGetResource)

176− rq

97+ mempty

gogol-admin-directory/gen/Network/Google/Resource/Directory/Notifications/List.hs+10−90

@@ -33,16 +33,10 @@ module Network.Google.Resource.Directory.Notifications.List

3333 , NotificationsList'

3434

3535 -- * Request Lenses

36− , nlQuotaUser

37− , nlPrettyPrint

38− , nlUserIP

3936 , nlCustomer

40− , nlKey

4137 , nlLanguage

4238 , nlPageToken

43− , nlOAuthToken

4439 , nlMaxResults

45− , nlFields

4640 ) where

4741

4842import Network.Google.Directory.Types

@@ -57,100 +51,45 @@ type NotificationsListResource =

5751 QueryParam "language" Text :>

5852 QueryParam "pageToken" Text :>

5953 QueryParam "maxResults" Word32 :>

60− QueryParam "quotaUser" Text :>

61− QueryParam "prettyPrint" Bool :>

62− QueryParam "userIp" Text :>

63− QueryParam "fields" Text :>

64− QueryParam "key" AuthKey :>

65− Header "Authorization" OAuthToken :>

66− QueryParam "alt" AltJSON :>

67− Get '[JSON] Notifications

54+ QueryParam "alt" AltJSON :> Get '[JSON] Notifications

6855

6956-- | Retrieves a list of notifications.

7057--

7158-- /See:/ 'notificationsList'' smart constructor.

7259data NotificationsList' = NotificationsList'

73− { _nlQuotaUser :: !(Maybe Text)

74− , _nlPrettyPrint :: !Bool

75− , _nlUserIP :: !(Maybe Text)

76− , _nlCustomer :: !Text

77− , _nlKey :: !(Maybe AuthKey)

78− , _nlLanguage :: !(Maybe Text)

79− , _nlPageToken :: !(Maybe Text)

80− , _nlOAuthToken :: !(Maybe OAuthToken)

81− , _nlMaxResults :: !(Maybe Word32)

82− , _nlFields :: !(Maybe Text)

60+ { _nlCustomer :: !Text

61+ , _nlLanguage :: !(Maybe Text)

62+ , _nlPageToken :: !(Maybe Text)

63+ , _nlMaxResults :: !(Maybe Word32)

8364 } deriving (Eq,Show,Data,Typeable,Generic)

8465

8566-- | Creates a value of 'NotificationsList'' with the minimum fields required to make a request.

8667--

8768-- Use one of the following lenses to modify other fields as desired:

8869--

89−-- * 'nlQuotaUser'

90−--

91−-- * 'nlPrettyPrint'

92−--

93−-- * 'nlUserIP'

94−--

9570-- * 'nlCustomer'

9671--

97−-- * 'nlKey'

98−--

9972-- * 'nlLanguage'

10073--

10174-- * 'nlPageToken'

10275--

103−-- * 'nlOAuthToken'

104−--

10576-- * 'nlMaxResults'

106−--

107−-- * 'nlFields'

10877notificationsList'

10978 :: Text -- ^ 'customer'

11079 -> NotificationsList'

11180notificationsList' pNlCustomer_ =

11281 NotificationsList'

113− { _nlQuotaUser = Nothing

114− , _nlPrettyPrint = True

115− , _nlUserIP = Nothing

116− , _nlCustomer = pNlCustomer_

117− , _nlKey = Nothing

82+ { _nlCustomer = pNlCustomer_

11883 , _nlLanguage = Nothing

11984 , _nlPageToken = Nothing

120− , _nlOAuthToken = Nothing

12185 , _nlMaxResults = Nothing

122− , _nlFields = Nothing

12386 }

12487

125−-- | Available to use for quota purposes for server-side applications. Can be

126−-- any arbitrary string assigned to a user, but should not exceed 40

127−-- characters. Overrides userIp if both are provided.

128−nlQuotaUser :: Lens' NotificationsList' (Maybe Text)

129−nlQuotaUser

130− = lens _nlQuotaUser (\ s a -> s{_nlQuotaUser = a})

131−

132−-- | Returns response with indentations and line breaks.

133−nlPrettyPrint :: Lens' NotificationsList' Bool

134−nlPrettyPrint

135− = lens _nlPrettyPrint

136− (\ s a -> s{_nlPrettyPrint = a})

137−

138−-- | IP address of the site where the request originates. Use this if you

139−-- want to enforce per-user limits.

140−nlUserIP :: Lens' NotificationsList' (Maybe Text)

141−nlUserIP = lens _nlUserIP (\ s a -> s{_nlUserIP = a})

142−

14388-- | The unique ID for the customer\'s Google account.

14489nlCustomer :: Lens' NotificationsList' Text

14590nlCustomer

14691 = lens _nlCustomer (\ s a -> s{_nlCustomer = a})

14792

148−-- | API key. Your API key identifies your project and provides you with API

149−-- access, quota, and reports. Required unless you provide an OAuth 2.0

150−-- token.

151−nlKey :: Lens' NotificationsList' (Maybe AuthKey)

152−nlKey = lens _nlKey (\ s a -> s{_nlKey = a})

153−

15493-- | The ISO 639-1 code of the language notifications are returned in. The

15594-- default is English (en).

15695nlLanguage :: Lens' NotificationsList' (Maybe Text)

@@ -162,38 +101,19 @@ nlPageToken :: Lens' NotificationsList' (Maybe Text)

162101nlPageToken

163102 = lens _nlPageToken (\ s a -> s{_nlPageToken = a})

164103

165−-- | OAuth 2.0 token for the current user.

166−nlOAuthToken :: Lens' NotificationsList' (Maybe OAuthToken)

167−nlOAuthToken

168− = lens _nlOAuthToken (\ s a -> s{_nlOAuthToken = a})

169−

170104-- | Maximum number of notifications to return per page. The default is 100.

171105nlMaxResults :: Lens' NotificationsList' (Maybe Word32)

172106nlMaxResults

173107 = lens _nlMaxResults (\ s a -> s{_nlMaxResults = a})

174108

175−-- | Selector specifying which fields to include in a partial response.

176−nlFields :: Lens' NotificationsList' (Maybe Text)

177−nlFields = lens _nlFields (\ s a -> s{_nlFields = a})

178−

179−instance GoogleAuth NotificationsList' where

180− _AuthKey = nlKey . _Just

181− _AuthToken = nlOAuthToken . _Just

182−

183109instance GoogleRequest NotificationsList' where

184110 type Rs NotificationsList' = Notifications

185− request = requestWith directoryRequest

186− requestWith rq NotificationsList'{..}

111+ requestClient NotificationsList'{..}

187112 = go _nlCustomer _nlLanguage _nlPageToken

188113 _nlMaxResults

189− _nlQuotaUser

190− (Just _nlPrettyPrint)

191− _nlUserIP

192− _nlFields

193− _nlKey

194− _nlOAuthToken

195114 (Just AltJSON)

115+ directoryService

196116 where go

197− = clientBuild

117+ = buildClient

198118 (Proxy :: Proxy NotificationsListResource)

199− rq

119+ mempty

gogol-admin-directory/gen/Network/Google/Resource/Directory/Notifications/Patch.hs+10−89

@@ -33,15 +33,9 @@ module Network.Google.Resource.Directory.Notifications.Patch

3333 , NotificationsPatch'

3434

3535 -- * Request Lenses

36− , npQuotaUser

37− , npPrettyPrint

38− , npUserIP

3936 , npPayload

4037 , npCustomer

41− , npKey

4238 , npNotificationId

43− , npOAuthToken

44− , npFields

4539 ) where

4640

4741import Network.Google.Directory.Types

@@ -54,52 +48,28 @@ type NotificationsPatchResource =

5448 Capture "customer" Text :>

5549 "notifications" :>

5650 Capture "notificationId" Text :>

57− QueryParam "quotaUser" Text :>

58− QueryParam "prettyPrint" Bool :>

59− QueryParam "userIp" Text :>

60− QueryParam "fields" Text :>

61− QueryParam "key" AuthKey :>

62− Header "Authorization" OAuthToken :>

63− QueryParam "alt" AltJSON :>

64− ReqBody '[JSON] Notification :>

65− Patch '[JSON] Notification

51+ QueryParam "alt" AltJSON :>

52+ ReqBody '[JSON] Notification :>

53+ Patch '[JSON] Notification

6654

6755-- | Updates a notification. This method supports patch semantics.

6856--

6957-- /See:/ 'notificationsPatch'' smart constructor.

7058data NotificationsPatch' = NotificationsPatch'

71− { _npQuotaUser :: !(Maybe Text)

72− , _npPrettyPrint :: !Bool

73− , _npUserIP :: !(Maybe Text)

74− , _npPayload :: !Notification

59+ { _npPayload :: !Notification

7560 , _npCustomer :: !Text

76− , _npKey :: !(Maybe AuthKey)

7761 , _npNotificationId :: !Text

78− , _npOAuthToken :: !(Maybe OAuthToken)

79− , _npFields :: !(Maybe Text)

8062 } deriving (Eq,Show,Data,Typeable,Generic)

8163

8264-- | Creates a value of 'NotificationsPatch'' with the minimum fields required to make a request.

8365--

8466-- Use one of the following lenses to modify other fields as desired:

8567--

86−-- * 'npQuotaUser'

87−--

88−-- * 'npPrettyPrint'

89−--

90−-- * 'npUserIP'

91−--

9268-- * 'npPayload'

9369--

9470-- * 'npCustomer'

9571--

96−-- * 'npKey'

97−--

9872-- * 'npNotificationId'

99−--

100−-- * 'npOAuthToken'

101−--

102−-- * 'npFields'

10373notificationsPatch'

10474 :: Notification -- ^ 'payload'

10575 -> Text -- ^ 'customer'

@@ -107,35 +77,11 @@ notificationsPatch'

10777 -> NotificationsPatch'

10878notificationsPatch' pNpPayload_ pNpCustomer_ pNpNotificationId_ =

10979 NotificationsPatch'

110− { _npQuotaUser = Nothing

111− , _npPrettyPrint = True

112− , _npUserIP = Nothing

113− , _npPayload = pNpPayload_

80+ { _npPayload = pNpPayload_

11481 , _npCustomer = pNpCustomer_

115− , _npKey = Nothing

11682 , _npNotificationId = pNpNotificationId_

117− , _npOAuthToken = Nothing

118− , _npFields = Nothing

11983 }

12084

121−-- | Available to use for quota purposes for server-side applications. Can be

122−-- any arbitrary string assigned to a user, but should not exceed 40

123−-- characters. Overrides userIp if both are provided.

124−npQuotaUser :: Lens' NotificationsPatch' (Maybe Text)

125−npQuotaUser

126− = lens _npQuotaUser (\ s a -> s{_npQuotaUser = a})

127−

128−-- | Returns response with indentations and line breaks.

129−npPrettyPrint :: Lens' NotificationsPatch' Bool

130−npPrettyPrint

131− = lens _npPrettyPrint

132− (\ s a -> s{_npPrettyPrint = a})

133−

134−-- | IP address of the site where the request originates. Use this if you

135−-- want to enforce per-user limits.

136−npUserIP :: Lens' NotificationsPatch' (Maybe Text)

137−npUserIP = lens _npUserIP (\ s a -> s{_npUserIP = a})

138−

13985-- | Multipart request metadata.

14086npPayload :: Lens' NotificationsPatch' Notification

14187npPayload

@@ -146,44 +92,19 @@ npCustomer :: Lens' NotificationsPatch' Text

14692npCustomer

14793 = lens _npCustomer (\ s a -> s{_npCustomer = a})

14894

149−-- | API key. Your API key identifies your project and provides you with API

150−-- access, quota, and reports. Required unless you provide an OAuth 2.0

151−-- token.

152−npKey :: Lens' NotificationsPatch' (Maybe AuthKey)

153−npKey = lens _npKey (\ s a -> s{_npKey = a})

154−

15595-- | The unique ID of the notification.

15696npNotificationId :: Lens' NotificationsPatch' Text

15797npNotificationId

15898 = lens _npNotificationId

15999 (\ s a -> s{_npNotificationId = a})

160100

161−-- | OAuth 2.0 token for the current user.

162−npOAuthToken :: Lens' NotificationsPatch' (Maybe OAuthToken)

163−npOAuthToken

164− = lens _npOAuthToken (\ s a -> s{_npOAuthToken = a})

165−

166−-- | Selector specifying which fields to include in a partial response.

167−npFields :: Lens' NotificationsPatch' (Maybe Text)

168−npFields = lens _npFields (\ s a -> s{_npFields = a})

169−

170−instance GoogleAuth NotificationsPatch' where

171− _AuthKey = npKey . _Just

172− _AuthToken = npOAuthToken . _Just

173−

174101instance GoogleRequest NotificationsPatch' where

175102 type Rs NotificationsPatch' = Notification

176− request = requestWith directoryRequest

177− requestWith rq NotificationsPatch'{..}

178− = go _npCustomer _npNotificationId _npQuotaUser

179− (Just _npPrettyPrint)

180− _npUserIP

181− _npFields

182− _npKey

183− _npOAuthToken

184− (Just AltJSON)

103+ requestClient NotificationsPatch'{..}

104+ = go _npCustomer _npNotificationId (Just AltJSON)

185105 _npPayload

106+ directoryService

186107 where go

187− = clientBuild

108+ = buildClient

188109 (Proxy :: Proxy NotificationsPatchResource)

189− rq

110+ mempty

gogol-admin-directory/gen/Network/Google/Resource/Directory/Notifications/Update.hs+10−89

@@ -33,15 +33,9 @@ module Network.Google.Resource.Directory.Notifications.Update

3333 , NotificationsUpdate'

3434

3535 -- * Request Lenses

36− , nuQuotaUser

37− , nuPrettyPrint

38− , nuUserIP

3936 , nuPayload

4037 , nuCustomer

41− , nuKey

4238 , nuNotificationId

43− , nuOAuthToken

44− , nuFields

4539 ) where

4640

4741import Network.Google.Directory.Types

@@ -54,52 +48,28 @@ type NotificationsUpdateResource =

5448 Capture "customer" Text :>

5549 "notifications" :>

5650 Capture "notificationId" Text :>

57− QueryParam "quotaUser" Text :>

58− QueryParam "prettyPrint" Bool :>

59− QueryParam "userIp" Text :>

60− QueryParam "fields" Text :>

61− QueryParam "key" AuthKey :>

62− Header "Authorization" OAuthToken :>

63− QueryParam "alt" AltJSON :>

64− ReqBody '[JSON] Notification :>

65− Put '[JSON] Notification

51+ QueryParam "alt" AltJSON :>

52+ ReqBody '[JSON] Notification :>

53+ Put '[JSON] Notification

6654

6755-- | Updates a notification.

6856--

6957-- /See:/ 'notificationsUpdate'' smart constructor.

7058data NotificationsUpdate' = NotificationsUpdate'

71− { _nuQuotaUser :: !(Maybe Text)

72− , _nuPrettyPrint :: !Bool

73− , _nuUserIP :: !(Maybe Text)

74− , _nuPayload :: !Notification

59+ { _nuPayload :: !Notification

7560 , _nuCustomer :: !Text

76− , _nuKey :: !(Maybe AuthKey)

7761 , _nuNotificationId :: !Text

78− , _nuOAuthToken :: !(Maybe OAuthToken)

79− , _nuFields :: !(Maybe Text)

8062 } deriving (Eq,Show,Data,Typeable,Generic)

8163

8264-- | Creates a value of 'NotificationsUpdate'' with the minimum fields required to make a request.

8365--

8466-- Use one of the following lenses to modify other fields as desired:

8567--

86−-- * 'nuQuotaUser'

87−--

88−-- * 'nuPrettyPrint'

89−--

90−-- * 'nuUserIP'

91−--

9268-- * 'nuPayload'

9369--

9470-- * 'nuCustomer'

9571--

96−-- * 'nuKey'

97−--

9872-- * 'nuNotificationId'

99−--

100−-- * 'nuOAuthToken'

101−--

102−-- * 'nuFields'

10373notificationsUpdate'

10474 :: Notification -- ^ 'payload'

10575 -> Text -- ^ 'customer'

@@ -107,35 +77,11 @@ notificationsUpdate'

10777 -> NotificationsUpdate'

10878notificationsUpdate' pNuPayload_ pNuCustomer_ pNuNotificationId_ =

10979 NotificationsUpdate'

110− { _nuQuotaUser = Nothing

111− , _nuPrettyPrint = True

112− , _nuUserIP = Nothing

113− , _nuPayload = pNuPayload_

80+ { _nuPayload = pNuPayload_

11481 , _nuCustomer = pNuCustomer_

115− , _nuKey = Nothing

11682 , _nuNotificationId = pNuNotificationId_

117− , _nuOAuthToken = Nothing

118− , _nuFields = Nothing

11983 }

12084

121−-- | Available to use for quota purposes for server-side applications. Can be

122−-- any arbitrary string assigned to a user, but should not exceed 40

123−-- characters. Overrides userIp if both are provided.

124−nuQuotaUser :: Lens' NotificationsUpdate' (Maybe Text)

125−nuQuotaUser

126− = lens _nuQuotaUser (\ s a -> s{_nuQuotaUser = a})

127−

128−-- | Returns response with indentations and line breaks.

129−nuPrettyPrint :: Lens' NotificationsUpdate' Bool

130−nuPrettyPrint

131− = lens _nuPrettyPrint

132− (\ s a -> s{_nuPrettyPrint = a})

133−

134−-- | IP address of the site where the request originates. Use this if you

135−-- want to enforce per-user limits.

136−nuUserIP :: Lens' NotificationsUpdate' (Maybe Text)

137−nuUserIP = lens _nuUserIP (\ s a -> s{_nuUserIP = a})

138−

13985-- | Multipart request metadata.

14086nuPayload :: Lens' NotificationsUpdate' Notification

14187nuPayload

@@ -146,44 +92,19 @@ nuCustomer :: Lens' NotificationsUpdate' Text

14692nuCustomer

14793 = lens _nuCustomer (\ s a -> s{_nuCustomer = a})

14894

149−-- | API key. Your API key identifies your project and provides you with API

150−-- access, quota, and reports. Required unless you provide an OAuth 2.0

151−-- token.

152−nuKey :: Lens' NotificationsUpdate' (Maybe AuthKey)

153−nuKey = lens _nuKey (\ s a -> s{_nuKey = a})

154−

15595-- | The unique ID of the notification.

15696nuNotificationId :: Lens' NotificationsUpdate' Text

15797nuNotificationId

15898 = lens _nuNotificationId

15999 (\ s a -> s{_nuNotificationId = a})

160100

161−-- | OAuth 2.0 token for the current user.

162−nuOAuthToken :: Lens' NotificationsUpdate' (Maybe OAuthToken)

163−nuOAuthToken

164− = lens _nuOAuthToken (\ s a -> s{_nuOAuthToken = a})

165−

166−-- | Selector specifying which fields to include in a partial response.

167−nuFields :: Lens' NotificationsUpdate' (Maybe Text)

168−nuFields = lens _nuFields (\ s a -> s{_nuFields = a})

169−

170−instance GoogleAuth NotificationsUpdate' where

171− _AuthKey = nuKey . _Just

172− _AuthToken = nuOAuthToken . _Just

173−

174101instance GoogleRequest NotificationsUpdate' where

175102 type Rs NotificationsUpdate' = Notification

176− request = requestWith directoryRequest

177− requestWith rq NotificationsUpdate'{..}

178− = go _nuCustomer _nuNotificationId _nuQuotaUser

179− (Just _nuPrettyPrint)

180− _nuUserIP

181− _nuFields

182− _nuKey

183− _nuOAuthToken

184− (Just AltJSON)

103+ requestClient NotificationsUpdate'{..}

104+ = go _nuCustomer _nuNotificationId (Just AltJSON)

185105 _nuPayload

106+ directoryService

186107 where go

187− = clientBuild

108+ = buildClient

188109 (Proxy :: Proxy NotificationsUpdateResource)

189− rq

110+ mempty

gogol-admin-directory/gen/Network/Google/Resource/Directory/OrgUnits/Delete.hs+8−90

@@ -33,14 +33,8 @@ module Network.Google.Resource.Directory.OrgUnits.Delete

3333 , OrgUnitsDelete'

3434

3535 -- * Request Lenses

36− , oudQuotaUser

37− , oudPrettyPrint

38− , oudUserIP

3936 , oudOrgUnitPath

4037 , oudCustomerId

41− , oudKey

42− , oudOAuthToken

43− , oudFields

4438 ) where

4539

4640import Network.Google.Directory.Types

@@ -53,82 +47,33 @@ type OrgUnitsDeleteResource =

5347 Capture "customerId" Text :>

5448 "orgunits" :>

5549 Captures "orgUnitPath" Text :>

56− QueryParam "quotaUser" Text :>

57− QueryParam "prettyPrint" Bool :>

58− QueryParam "userIp" Text :>

59− QueryParam "fields" Text :>

60− QueryParam "key" AuthKey :>

61− Header "Authorization" OAuthToken :>

62− QueryParam "alt" AltJSON :> Delete '[JSON] ()

50+ QueryParam "alt" AltJSON :> Delete '[JSON] ()

6351

6452-- | Remove Organization Unit

6553--

6654-- /See:/ 'orgUnitsDelete'' smart constructor.

6755data OrgUnitsDelete' = OrgUnitsDelete'

68− { _oudQuotaUser :: !(Maybe Text)

69− , _oudPrettyPrint :: !Bool

70− , _oudUserIP :: !(Maybe Text)

71− , _oudOrgUnitPath :: ![Text]

56+ { _oudOrgUnitPath :: ![Text]

7257 , _oudCustomerId :: !Text

73− , _oudKey :: !(Maybe AuthKey)

74− , _oudOAuthToken :: !(Maybe OAuthToken)

75− , _oudFields :: !(Maybe Text)

7658 } deriving (Eq,Show,Data,Typeable,Generic)

7759

7860-- | Creates a value of 'OrgUnitsDelete'' with the minimum fields required to make a request.

7961--

8062-- Use one of the following lenses to modify other fields as desired:

8163--

82−-- * 'oudQuotaUser'

83−--

84−-- * 'oudPrettyPrint'

85−--

86−-- * 'oudUserIP'

87−--

8864-- * 'oudOrgUnitPath'

8965--

9066-- * 'oudCustomerId'

91−--

92−-- * 'oudKey'

93−--

94−-- * 'oudOAuthToken'

95−--

96−-- * 'oudFields'

9767orgUnitsDelete'

9868 :: [Text] -- ^ 'orgUnitPath'

9969 -> Text -- ^ 'customerId'

10070 -> OrgUnitsDelete'

10171orgUnitsDelete' pOudOrgUnitPath_ pOudCustomerId_ =

10272 OrgUnitsDelete'

103− { _oudQuotaUser = Nothing

104− , _oudPrettyPrint = True

105− , _oudUserIP = Nothing

106− , _oudOrgUnitPath = pOudOrgUnitPath_

73+ { _oudOrgUnitPath = pOudOrgUnitPath_

10774 , _oudCustomerId = pOudCustomerId_

108− , _oudKey = Nothing

109− , _oudOAuthToken = Nothing

110− , _oudFields = Nothing

11175 }

11276

113−-- | Available to use for quota purposes for server-side applications. Can be

114−-- any arbitrary string assigned to a user, but should not exceed 40

115−-- characters. Overrides userIp if both are provided.

116−oudQuotaUser :: Lens' OrgUnitsDelete' (Maybe Text)

117−oudQuotaUser

118− = lens _oudQuotaUser (\ s a -> s{_oudQuotaUser = a})

119−

120−-- | Returns response with indentations and line breaks.

121−oudPrettyPrint :: Lens' OrgUnitsDelete' Bool

122−oudPrettyPrint

123− = lens _oudPrettyPrint

124− (\ s a -> s{_oudPrettyPrint = a})

125−

126−-- | IP address of the site where the request originates. Use this if you

127−-- want to enforce per-user limits.

128−oudUserIP :: Lens' OrgUnitsDelete' (Maybe Text)

129−oudUserIP

130− = lens _oudUserIP (\ s a -> s{_oudUserIP = a})

131−

13277-- | Full path of the organization unit or its Id

13378oudOrgUnitPath :: Lens' OrgUnitsDelete' [Text]

13479oudOrgUnitPath

@@ -142,38 +87,11 @@ oudCustomerId

14287 = lens _oudCustomerId

14388 (\ s a -> s{_oudCustomerId = a})

14489

145−-- | API key. Your API key identifies your project and provides you with API

146−-- access, quota, and reports. Required unless you provide an OAuth 2.0

147−-- token.

148−oudKey :: Lens' OrgUnitsDelete' (Maybe AuthKey)

149−oudKey = lens _oudKey (\ s a -> s{_oudKey = a})

150−

151−-- | OAuth 2.0 token for the current user.

152−oudOAuthToken :: Lens' OrgUnitsDelete' (Maybe OAuthToken)

153−oudOAuthToken

154− = lens _oudOAuthToken

155− (\ s a -> s{_oudOAuthToken = a})

156−

157−-- | Selector specifying which fields to include in a partial response.

158−oudFields :: Lens' OrgUnitsDelete' (Maybe Text)

159−oudFields

160− = lens _oudFields (\ s a -> s{_oudFields = a})

161−

162−instance GoogleAuth OrgUnitsDelete' where

163− _AuthKey = oudKey . _Just

164− _AuthToken = oudOAuthToken . _Just

165−

16690instance GoogleRequest OrgUnitsDelete' where

16791 type Rs OrgUnitsDelete' = ()

168− request = requestWith directoryRequest

169− requestWith rq OrgUnitsDelete'{..}

170− = go _oudCustomerId _oudOrgUnitPath _oudQuotaUser

171− (Just _oudPrettyPrint)

172− _oudUserIP

173− _oudFields

174− _oudKey

175− _oudOAuthToken

176− (Just AltJSON)

92+ requestClient OrgUnitsDelete'{..}

93+ = go _oudCustomerId _oudOrgUnitPath (Just AltJSON)

94+ directoryService

17795 where go

178− = clientBuild (Proxy :: Proxy OrgUnitsDeleteResource)

179− rq

96+ = buildClient (Proxy :: Proxy OrgUnitsDeleteResource)

97+ mempty

gogol-admin-directory/gen/Network/Google/Resource/Directory/OrgUnits/Get.hs+8−89

@@ -33,14 +33,8 @@ module Network.Google.Resource.Directory.OrgUnits.Get

3333 , OrgUnitsGet'

3434

3535 -- * Request Lenses

36− , ougQuotaUser

37− , ougPrettyPrint

38− , ougUserIP

3936 , ougOrgUnitPath

4037 , ougCustomerId

41− , ougKey

42− , ougOAuthToken

43− , ougFields

4438 ) where

4539

4640import Network.Google.Directory.Types

@@ -53,82 +47,33 @@ type OrgUnitsGetResource =

5347 Capture "customerId" Text :>

5448 "orgunits" :>

5549 Captures "orgUnitPath" Text :>

56− QueryParam "quotaUser" Text :>

57− QueryParam "prettyPrint" Bool :>

58− QueryParam "userIp" Text :>

59− QueryParam "fields" Text :>

60− QueryParam "key" AuthKey :>

61− Header "Authorization" OAuthToken :>

62− QueryParam "alt" AltJSON :> Get '[JSON] OrgUnit

50+ QueryParam "alt" AltJSON :> Get '[JSON] OrgUnit

6351

6452-- | Retrieve Organization Unit

6553--

6654-- /See:/ 'orgUnitsGet'' smart constructor.

6755data OrgUnitsGet' = OrgUnitsGet'

68− { _ougQuotaUser :: !(Maybe Text)

69− , _ougPrettyPrint :: !Bool

70− , _ougUserIP :: !(Maybe Text)

71− , _ougOrgUnitPath :: ![Text]

56+ { _ougOrgUnitPath :: ![Text]

7257 , _ougCustomerId :: !Text

73− , _ougKey :: !(Maybe AuthKey)

74− , _ougOAuthToken :: !(Maybe OAuthToken)

75− , _ougFields :: !(Maybe Text)

7658 } deriving (Eq,Show,Data,Typeable,Generic)

7759

7860-- | Creates a value of 'OrgUnitsGet'' with the minimum fields required to make a request.

7961--

8062-- Use one of the following lenses to modify other fields as desired:

8163--

82−-- * 'ougQuotaUser'

83−--

84−-- * 'ougPrettyPrint'

85−--

86−-- * 'ougUserIP'

87−--

8864-- * 'ougOrgUnitPath'

8965--

9066-- * 'ougCustomerId'

91−--

92−-- * 'ougKey'

93−--

94−-- * 'ougOAuthToken'

95−--

96−-- * 'ougFields'

9767orgUnitsGet'

9868 :: [Text] -- ^ 'orgUnitPath'

9969 -> Text -- ^ 'customerId'

10070 -> OrgUnitsGet'

10171orgUnitsGet' pOugOrgUnitPath_ pOugCustomerId_ =

10272 OrgUnitsGet'

103− { _ougQuotaUser = Nothing

104− , _ougPrettyPrint = True

105− , _ougUserIP = Nothing

106− , _ougOrgUnitPath = pOugOrgUnitPath_

73+ { _ougOrgUnitPath = pOugOrgUnitPath_

10774 , _ougCustomerId = pOugCustomerId_

108− , _ougKey = Nothing

109− , _ougOAuthToken = Nothing

110− , _ougFields = Nothing

11175 }

11276

113−-- | Available to use for quota purposes for server-side applications. Can be

114−-- any arbitrary string assigned to a user, but should not exceed 40

115−-- characters. Overrides userIp if both are provided.

116−ougQuotaUser :: Lens' OrgUnitsGet' (Maybe Text)

117−ougQuotaUser

118− = lens _ougQuotaUser (\ s a -> s{_ougQuotaUser = a})

119−

120−-- | Returns response with indentations and line breaks.

121−ougPrettyPrint :: Lens' OrgUnitsGet' Bool

122−ougPrettyPrint

123− = lens _ougPrettyPrint

124− (\ s a -> s{_ougPrettyPrint = a})

125−

126−-- | IP address of the site where the request originates. Use this if you

127−-- want to enforce per-user limits.

128−ougUserIP :: Lens' OrgUnitsGet' (Maybe Text)

129−ougUserIP

130− = lens _ougUserIP (\ s a -> s{_ougUserIP = a})

131−

13277-- | Full path of the organization unit or its Id

13378ougOrgUnitPath :: Lens' OrgUnitsGet' [Text]

13479ougOrgUnitPath

@@ -142,37 +87,11 @@ ougCustomerId

14287 = lens _ougCustomerId

14388 (\ s a -> s{_ougCustomerId = a})

14489

145−-- | API key. Your API key identifies your project and provides you with API

146−-- access, quota, and reports. Required unless you provide an OAuth 2.0

147−-- token.

148−ougKey :: Lens' OrgUnitsGet' (Maybe AuthKey)

149−ougKey = lens _ougKey (\ s a -> s{_ougKey = a})

150−

151−-- | OAuth 2.0 token for the current user.

152−ougOAuthToken :: Lens' OrgUnitsGet' (Maybe OAuthToken)

153−ougOAuthToken

154− = lens _ougOAuthToken

155− (\ s a -> s{_ougOAuthToken = a})

156−

157−-- | Selector specifying which fields to include in a partial response.

158−ougFields :: Lens' OrgUnitsGet' (Maybe Text)

159−ougFields

160− = lens _ougFields (\ s a -> s{_ougFields = a})

161−

162−instance GoogleAuth OrgUnitsGet' where

163− _AuthKey = ougKey . _Just

164− _AuthToken = ougOAuthToken . _Just

165−

16690instance GoogleRequest OrgUnitsGet' where

16791 type Rs OrgUnitsGet' = OrgUnit

168− request = requestWith directoryRequest

169− requestWith rq OrgUnitsGet'{..}

170− = go _ougCustomerId _ougOrgUnitPath _ougQuotaUser

171− (Just _ougPrettyPrint)

172− _ougUserIP

173− _ougFields

174− _ougKey

175− _ougOAuthToken

176− (Just AltJSON)

92+ requestClient OrgUnitsGet'{..}

93+ = go _ougCustomerId _ougOrgUnitPath (Just AltJSON)

94+ directoryService

17795 where go

178− = clientBuild (Proxy :: Proxy OrgUnitsGetResource) rq

96+ = buildClient (Proxy :: Proxy OrgUnitsGetResource)

97+ mempty

gogol-admin-directory/gen/Network/Google/Resource/Directory/OrgUnits/Insert.hs+10−93

@@ -33,14 +33,8 @@ module Network.Google.Resource.Directory.OrgUnits.Insert

3333 , OrgUnitsInsert'

3434

3535 -- * Request Lenses

36− , ouiQuotaUser

37− , ouiPrettyPrint

38− , ouiUserIP

3936 , ouiPayload

4037 , ouiCustomerId

41− , ouiKey

42− , ouiOAuthToken

43− , ouiFields

4438 ) where

4539

4640import Network.Google.Directory.Types

@@ -52,83 +46,34 @@ type OrgUnitsInsertResource =

5246 "customer" :>

5347 Capture "customerId" Text :>

5448 "orgunits" :>

55− QueryParam "quotaUser" Text :>

56− QueryParam "prettyPrint" Bool :>

57− QueryParam "userIp" Text :>

58− QueryParam "fields" Text :>

59− QueryParam "key" AuthKey :>

60− Header "Authorization" OAuthToken :>

61− QueryParam "alt" AltJSON :>

62− ReqBody '[JSON] OrgUnit :> Post '[JSON] OrgUnit

49+ QueryParam "alt" AltJSON :>

50+ ReqBody '[JSON] OrgUnit :> Post '[JSON] OrgUnit

6351

6452-- | Add Organization Unit

6553--

6654-- /See:/ 'orgUnitsInsert'' smart constructor.

6755data OrgUnitsInsert' = OrgUnitsInsert'

68− { _ouiQuotaUser :: !(Maybe Text)

69− , _ouiPrettyPrint :: !Bool

70− , _ouiUserIP :: !(Maybe Text)

71− , _ouiPayload :: !OrgUnit

72− , _ouiCustomerId :: !Text

73− , _ouiKey :: !(Maybe AuthKey)

74− , _ouiOAuthToken :: !(Maybe OAuthToken)

75− , _ouiFields :: !(Maybe Text)

56+ { _ouiPayload :: !OrgUnit

57+ , _ouiCustomerId :: !Text

7658 } deriving (Eq,Show,Data,Typeable,Generic)

7759

7860-- | Creates a value of 'OrgUnitsInsert'' with the minimum fields required to make a request.

7961--

8062-- Use one of the following lenses to modify other fields as desired:

8163--

82−-- * 'ouiQuotaUser'

83−--

84−-- * 'ouiPrettyPrint'

85−--

86−-- * 'ouiUserIP'

87−--

8864-- * 'ouiPayload'

8965--

9066-- * 'ouiCustomerId'

91−--

92−-- * 'ouiKey'

93−--

94−-- * 'ouiOAuthToken'

95−--

96−-- * 'ouiFields'

9767orgUnitsInsert'

9868 :: OrgUnit -- ^ 'payload'

9969 -> Text -- ^ 'customerId'

10070 -> OrgUnitsInsert'

10171orgUnitsInsert' pOuiPayload_ pOuiCustomerId_ =

10272 OrgUnitsInsert'

103− { _ouiQuotaUser = Nothing

104− , _ouiPrettyPrint = True

105− , _ouiUserIP = Nothing

106− , _ouiPayload = pOuiPayload_

73+ { _ouiPayload = pOuiPayload_

10774 , _ouiCustomerId = pOuiCustomerId_

108− , _ouiKey = Nothing

109− , _ouiOAuthToken = Nothing

110− , _ouiFields = Nothing

11175 }

11276

113−-- | Available to use for quota purposes for server-side applications. Can be

114−-- any arbitrary string assigned to a user, but should not exceed 40

115−-- characters. Overrides userIp if both are provided.

116−ouiQuotaUser :: Lens' OrgUnitsInsert' (Maybe Text)

117−ouiQuotaUser

118− = lens _ouiQuotaUser (\ s a -> s{_ouiQuotaUser = a})

119−

120−-- | Returns response with indentations and line breaks.

121−ouiPrettyPrint :: Lens' OrgUnitsInsert' Bool

122−ouiPrettyPrint

123− = lens _ouiPrettyPrint

124− (\ s a -> s{_ouiPrettyPrint = a})

125−

126−-- | IP address of the site where the request originates. Use this if you

127−-- want to enforce per-user limits.

128−ouiUserIP :: Lens' OrgUnitsInsert' (Maybe Text)

129−ouiUserIP

130− = lens _ouiUserIP (\ s a -> s{_ouiUserIP = a})

131−

13277-- | Multipart request metadata.

13378ouiPayload :: Lens' OrgUnitsInsert' OrgUnit

13479ouiPayload

@@ -140,39 +85,11 @@ ouiCustomerId

14085 = lens _ouiCustomerId

14186 (\ s a -> s{_ouiCustomerId = a})

14287

143−-- | API key. Your API key identifies your project and provides you with API

144−-- access, quota, and reports. Required unless you provide an OAuth 2.0

145−-- token.

146−ouiKey :: Lens' OrgUnitsInsert' (Maybe AuthKey)

147−ouiKey = lens _ouiKey (\ s a -> s{_ouiKey = a})

148−

149−-- | OAuth 2.0 token for the current user.

150−ouiOAuthToken :: Lens' OrgUnitsInsert' (Maybe OAuthToken)

151−ouiOAuthToken

152− = lens _ouiOAuthToken

153− (\ s a -> s{_ouiOAuthToken = a})

154−

155−-- | Selector specifying which fields to include in a partial response.

156−ouiFields :: Lens' OrgUnitsInsert' (Maybe Text)

157−ouiFields

158− = lens _ouiFields (\ s a -> s{_ouiFields = a})

159−

160−instance GoogleAuth OrgUnitsInsert' where

161− _AuthKey = ouiKey . _Just

162− _AuthToken = ouiOAuthToken . _Just

163−

16488instance GoogleRequest OrgUnitsInsert' where

16589 type Rs OrgUnitsInsert' = OrgUnit

166− request = requestWith directoryRequest

167− requestWith rq OrgUnitsInsert'{..}

168− = go _ouiCustomerId _ouiQuotaUser

169− (Just _ouiPrettyPrint)

170− _ouiUserIP

171− _ouiFields

172− _ouiKey

173− _ouiOAuthToken

174− (Just AltJSON)

175− _ouiPayload

90+ requestClient OrgUnitsInsert'{..}

91+ = go _ouiCustomerId (Just AltJSON) _ouiPayload

92+ directoryService

17693 where go

177− = clientBuild (Proxy :: Proxy OrgUnitsInsertResource)

178− rq

94+ = buildClient (Proxy :: Proxy OrgUnitsInsertResource)

95+ mempty

gogol-admin-directory/gen/Network/Google/Resource/Directory/OrgUnits/List.hs+7−89

@@ -33,15 +33,9 @@ module Network.Google.Resource.Directory.OrgUnits.List

3333 , OrgUnitsList'

3434

3535 -- * Request Lenses

36− , oulQuotaUser

37− , oulPrettyPrint

38− , oulUserIP

3936 , oulOrgUnitPath

4037 , oulCustomerId

41− , oulKey

4238 , oulType

43− , oulOAuthToken

44− , oulFields

4539 ) where

4640

4741import Network.Google.Directory.Types

@@ -55,85 +49,36 @@ type OrgUnitsListResource =

5549 "orgunits" :>

5650 QueryParam "orgUnitPath" Text :>

5751 QueryParam "type" OrgUnitsListType :>

58− QueryParam "quotaUser" Text :>

59− QueryParam "prettyPrint" Bool :>

60− QueryParam "userIp" Text :>

61− QueryParam "fields" Text :>

62− QueryParam "key" AuthKey :>

63− Header "Authorization" OAuthToken :>

64− QueryParam "alt" AltJSON :> Get '[JSON] OrgUnits

52+ QueryParam "alt" AltJSON :> Get '[JSON] OrgUnits

6553

6654-- | Retrieve all Organization Units

6755--

6856-- /See:/ 'orgUnitsList'' smart constructor.

6957data OrgUnitsList' = OrgUnitsList'

70− { _oulQuotaUser :: !(Maybe Text)

71− , _oulPrettyPrint :: !Bool

72− , _oulUserIP :: !(Maybe Text)

73− , _oulOrgUnitPath :: !Text

58+ { _oulOrgUnitPath :: !Text

7459 , _oulCustomerId :: !Text

75− , _oulKey :: !(Maybe AuthKey)

7660 , _oulType :: !(Maybe OrgUnitsListType)

77− , _oulOAuthToken :: !(Maybe OAuthToken)

78− , _oulFields :: !(Maybe Text)

7961 } deriving (Eq,Show,Data,Typeable,Generic)

8062

8163-- | Creates a value of 'OrgUnitsList'' with the minimum fields required to make a request.

8264--

8365-- Use one of the following lenses to modify other fields as desired:

8466--

85−-- * 'oulQuotaUser'

86−--

87−-- * 'oulPrettyPrint'

88−--

89−-- * 'oulUserIP'

90−--

9167-- * 'oulOrgUnitPath'

9268--

9369-- * 'oulCustomerId'

9470--

95−-- * 'oulKey'

96−--

9771-- * 'oulType'

98−--

99−-- * 'oulOAuthToken'

100−--

101−-- * 'oulFields'

10272orgUnitsList'

10373 :: Text -- ^ 'customerId'

10474 -> OrgUnitsList'

10575orgUnitsList' pOulCustomerId_ =

10676 OrgUnitsList'

107− { _oulQuotaUser = Nothing

108− , _oulPrettyPrint = True

109− , _oulUserIP = Nothing

110− , _oulOrgUnitPath = ""

77+ { _oulOrgUnitPath = ""

11178 , _oulCustomerId = pOulCustomerId_

112− , _oulKey = Nothing

11379 , _oulType = Nothing

114− , _oulOAuthToken = Nothing

115− , _oulFields = Nothing

11680 }

11781

118−-- | Available to use for quota purposes for server-side applications. Can be

119−-- any arbitrary string assigned to a user, but should not exceed 40

120−-- characters. Overrides userIp if both are provided.

121−oulQuotaUser :: Lens' OrgUnitsList' (Maybe Text)

122−oulQuotaUser

123− = lens _oulQuotaUser (\ s a -> s{_oulQuotaUser = a})

124−

125−-- | Returns response with indentations and line breaks.

126−oulPrettyPrint :: Lens' OrgUnitsList' Bool

127−oulPrettyPrint

128− = lens _oulPrettyPrint

129− (\ s a -> s{_oulPrettyPrint = a})

130−

131−-- | IP address of the site where the request originates. Use this if you

132−-- want to enforce per-user limits.

133−oulUserIP :: Lens' OrgUnitsList' (Maybe Text)

134−oulUserIP

135− = lens _oulUserIP (\ s a -> s{_oulUserIP = a})

136−

13782-- | the URL-encoded organization unit\'s path or its Id

13883oulOrgUnitPath :: Lens' OrgUnitsList' Text

13984oulOrgUnitPath

@@ -146,43 +91,16 @@ oulCustomerId

14691 = lens _oulCustomerId

14792 (\ s a -> s{_oulCustomerId = a})

14893

149−-- | API key. Your API key identifies your project and provides you with API

150−-- access, quota, and reports. Required unless you provide an OAuth 2.0

151−-- token.

152−oulKey :: Lens' OrgUnitsList' (Maybe AuthKey)

153−oulKey = lens _oulKey (\ s a -> s{_oulKey = a})

154−

15594-- | Whether to return all sub-organizations or just immediate children

15695oulType :: Lens' OrgUnitsList' (Maybe OrgUnitsListType)

15796oulType = lens _oulType (\ s a -> s{_oulType = a})

15897

159−-- | OAuth 2.0 token for the current user.

160−oulOAuthToken :: Lens' OrgUnitsList' (Maybe OAuthToken)

161−oulOAuthToken

162− = lens _oulOAuthToken

163− (\ s a -> s{_oulOAuthToken = a})

164−

165−-- | Selector specifying which fields to include in a partial response.

166−oulFields :: Lens' OrgUnitsList' (Maybe Text)

167−oulFields

168− = lens _oulFields (\ s a -> s{_oulFields = a})

169−

170−instance GoogleAuth OrgUnitsList' where

171− _AuthKey = oulKey . _Just

172− _AuthToken = oulOAuthToken . _Just

173−

17498instance GoogleRequest OrgUnitsList' where

17599 type Rs OrgUnitsList' = OrgUnits

176− request = requestWith directoryRequest

177− requestWith rq OrgUnitsList'{..}

100+ requestClient OrgUnitsList'{..}

178101 = go _oulCustomerId (Just _oulOrgUnitPath) _oulType

179− _oulQuotaUser

180− (Just _oulPrettyPrint)

181− _oulUserIP

182− _oulFields

183− _oulKey

184− _oulOAuthToken

185102 (Just AltJSON)

103+ directoryService

186104 where go

187− = clientBuild (Proxy :: Proxy OrgUnitsListResource)

188− rq

105+ = buildClient (Proxy :: Proxy OrgUnitsListResource)

106+ mempty

gogol-admin-directory/gen/Network/Google/Resource/Directory/OrgUnits/Patch.hs+9−91

@@ -33,15 +33,9 @@ module Network.Google.Resource.Directory.OrgUnits.Patch

3333 , OrgUnitsPatch'

3434

3535 -- * Request Lenses

36− , oupQuotaUser

37− , oupPrettyPrint

38− , oupUserIP

3936 , oupPayload

4037 , oupOrgUnitPath

4138 , oupCustomerId

42− , oupKey

43− , oupOAuthToken

44− , oupFields

4539 ) where

4640

4741import Network.Google.Directory.Types

@@ -54,51 +48,27 @@ type OrgUnitsPatchResource =

5448 Capture "customerId" Text :>

5549 "orgunits" :>

5650 Captures "orgUnitPath" Text :>

57− QueryParam "quotaUser" Text :>

58− QueryParam "prettyPrint" Bool :>

59− QueryParam "userIp" Text :>

60− QueryParam "fields" Text :>

61− QueryParam "key" AuthKey :>

62− Header "Authorization" OAuthToken :>

63− QueryParam "alt" AltJSON :>

64− ReqBody '[JSON] OrgUnit :> Patch '[JSON] OrgUnit

51+ QueryParam "alt" AltJSON :>

52+ ReqBody '[JSON] OrgUnit :> Patch '[JSON] OrgUnit

6553

6654-- | Update Organization Unit. This method supports patch semantics.

6755--

6856-- /See:/ 'orgUnitsPatch'' smart constructor.

6957data OrgUnitsPatch' = OrgUnitsPatch'

70− { _oupQuotaUser :: !(Maybe Text)

71− , _oupPrettyPrint :: !Bool

72− , _oupUserIP :: !(Maybe Text)

73− , _oupPayload :: !OrgUnit

58+ { _oupPayload :: !OrgUnit

7459 , _oupOrgUnitPath :: ![Text]

7560 , _oupCustomerId :: !Text

76− , _oupKey :: !(Maybe AuthKey)

77− , _oupOAuthToken :: !(Maybe OAuthToken)

78− , _oupFields :: !(Maybe Text)

7961 } deriving (Eq,Show,Data,Typeable,Generic)

8062

8163-- | Creates a value of 'OrgUnitsPatch'' with the minimum fields required to make a request.

8264--

8365-- Use one of the following lenses to modify other fields as desired:

8466--

85−-- * 'oupQuotaUser'

86−--

87−-- * 'oupPrettyPrint'

88−--

89−-- * 'oupUserIP'

90−--

9167-- * 'oupPayload'

9268--

9369-- * 'oupOrgUnitPath'

9470--

9571-- * 'oupCustomerId'

96−--

97−-- * 'oupKey'

98−--

99−-- * 'oupOAuthToken'

100−--

101−-- * 'oupFields'

10272orgUnitsPatch'

10373 :: OrgUnit -- ^ 'payload'

10474 -> [Text] -- ^ 'orgUnitPath'

@@ -106,36 +76,11 @@ orgUnitsPatch'

10676 -> OrgUnitsPatch'

10777orgUnitsPatch' pOupPayload_ pOupOrgUnitPath_ pOupCustomerId_ =

10878 OrgUnitsPatch'

109− { _oupQuotaUser = Nothing

110− , _oupPrettyPrint = True

111− , _oupUserIP = Nothing

112− , _oupPayload = pOupPayload_

79+ { _oupPayload = pOupPayload_

11380 , _oupOrgUnitPath = pOupOrgUnitPath_

11481 , _oupCustomerId = pOupCustomerId_

115− , _oupKey = Nothing

116− , _oupOAuthToken = Nothing

117− , _oupFields = Nothing

11882 }

11983

120−-- | Available to use for quota purposes for server-side applications. Can be

121−-- any arbitrary string assigned to a user, but should not exceed 40

122−-- characters. Overrides userIp if both are provided.

123−oupQuotaUser :: Lens' OrgUnitsPatch' (Maybe Text)

124−oupQuotaUser

125− = lens _oupQuotaUser (\ s a -> s{_oupQuotaUser = a})

126−

127−-- | Returns response with indentations and line breaks.

128−oupPrettyPrint :: Lens' OrgUnitsPatch' Bool

129−oupPrettyPrint

130− = lens _oupPrettyPrint

131− (\ s a -> s{_oupPrettyPrint = a})

132−

133−-- | IP address of the site where the request originates. Use this if you

134−-- want to enforce per-user limits.

135−oupUserIP :: Lens' OrgUnitsPatch' (Maybe Text)

136−oupUserIP

137− = lens _oupUserIP (\ s a -> s{_oupUserIP = a})

138−

13984-- | Multipart request metadata.

14085oupPayload :: Lens' OrgUnitsPatch' OrgUnit

14186oupPayload

@@ -154,39 +99,12 @@ oupCustomerId

15499 = lens _oupCustomerId

155100 (\ s a -> s{_oupCustomerId = a})

156101

157−-- | API key. Your API key identifies your project and provides you with API

158−-- access, quota, and reports. Required unless you provide an OAuth 2.0

159−-- token.

160−oupKey :: Lens' OrgUnitsPatch' (Maybe AuthKey)

161−oupKey = lens _oupKey (\ s a -> s{_oupKey = a})

162−

163−-- | OAuth 2.0 token for the current user.

164−oupOAuthToken :: Lens' OrgUnitsPatch' (Maybe OAuthToken)

165−oupOAuthToken

166− = lens _oupOAuthToken

167− (\ s a -> s{_oupOAuthToken = a})

168−

169−-- | Selector specifying which fields to include in a partial response.

170−oupFields :: Lens' OrgUnitsPatch' (Maybe Text)

171−oupFields

172− = lens _oupFields (\ s a -> s{_oupFields = a})

173−

174−instance GoogleAuth OrgUnitsPatch' where

175− _AuthKey = oupKey . _Just

176− _AuthToken = oupOAuthToken . _Just

177−

178102instance GoogleRequest OrgUnitsPatch' where

179103 type Rs OrgUnitsPatch' = OrgUnit

180− request = requestWith directoryRequest

181− requestWith rq OrgUnitsPatch'{..}

182− = go _oupCustomerId _oupOrgUnitPath _oupQuotaUser

183− (Just _oupPrettyPrint)

184− _oupUserIP

185− _oupFields

186− _oupKey

187− _oupOAuthToken

188− (Just AltJSON)

104+ requestClient OrgUnitsPatch'{..}

105+ = go _oupCustomerId _oupOrgUnitPath (Just AltJSON)

189106 _oupPayload

107+ directoryService

190108 where go

191− = clientBuild (Proxy :: Proxy OrgUnitsPatchResource)

192− rq

109+ = buildClient (Proxy :: Proxy OrgUnitsPatchResource)

110+ mempty

gogol-admin-directory/gen/Network/Google/Resource/Directory/OrgUnits/Update.hs+9−91

@@ -33,15 +33,9 @@ module Network.Google.Resource.Directory.OrgUnits.Update

3333 , OrgUnitsUpdate'

3434

3535 -- * Request Lenses

36− , ouuQuotaUser

37− , ouuPrettyPrint

38− , ouuUserIP

3936 , ouuPayload

4037 , ouuOrgUnitPath

4138 , ouuCustomerId

42− , ouuKey

43− , ouuOAuthToken

44− , ouuFields

4539 ) where

4640

4741import Network.Google.Directory.Types

@@ -54,51 +48,27 @@ type OrgUnitsUpdateResource =

5448 Capture "customerId" Text :>

5549 "orgunits" :>

5650 Captures "orgUnitPath" Text :>

57− QueryParam "quotaUser" Text :>

58− QueryParam "prettyPrint" Bool :>

59− QueryParam "userIp" Text :>

60− QueryParam "fields" Text :>

61− QueryParam "key" AuthKey :>

62− Header "Authorization" OAuthToken :>

63− QueryParam "alt" AltJSON :>

64− ReqBody '[JSON] OrgUnit :> Put '[JSON] OrgUnit

51+ QueryParam "alt" AltJSON :>

52+ ReqBody '[JSON] OrgUnit :> Put '[JSON] OrgUnit

6553

6654-- | Update Organization Unit

6755--

6856-- /See:/ 'orgUnitsUpdate'' smart constructor.

6957data OrgUnitsUpdate' = OrgUnitsUpdate'

70− { _ouuQuotaUser :: !(Maybe Text)

71− , _ouuPrettyPrint :: !Bool

72− , _ouuUserIP :: !(Maybe Text)

73− , _ouuPayload :: !OrgUnit

58+ { _ouuPayload :: !OrgUnit

7459 , _ouuOrgUnitPath :: ![Text]

7560 , _ouuCustomerId :: !Text

76− , _ouuKey :: !(Maybe AuthKey)

77− , _ouuOAuthToken :: !(Maybe OAuthToken)

78− , _ouuFields :: !(Maybe Text)

7961 } deriving (Eq,Show,Data,Typeable,Generic)

8062

8163-- | Creates a value of 'OrgUnitsUpdate'' with the minimum fields required to make a request.

8264--

8365-- Use one of the following lenses to modify other fields as desired:

8466--

85−-- * 'ouuQuotaUser'

86−--

87−-- * 'ouuPrettyPrint'

88−--

89−-- * 'ouuUserIP'

90−--

9167-- * 'ouuPayload'

9268--

9369-- * 'ouuOrgUnitPath'

9470--

9571-- * 'ouuCustomerId'

96−--

97−-- * 'ouuKey'

98−--

99−-- * 'ouuOAuthToken'

100−--

101−-- * 'ouuFields'

10272orgUnitsUpdate'

10373 :: OrgUnit -- ^ 'payload'

10474 -> [Text] -- ^ 'orgUnitPath'

@@ -106,36 +76,11 @@ orgUnitsUpdate'

10676 -> OrgUnitsUpdate'

10777orgUnitsUpdate' pOuuPayload_ pOuuOrgUnitPath_ pOuuCustomerId_ =

10878 OrgUnitsUpdate'

109− { _ouuQuotaUser = Nothing

110− , _ouuPrettyPrint = True

111− , _ouuUserIP = Nothing

112− , _ouuPayload = pOuuPayload_

79+ { _ouuPayload = pOuuPayload_

11380 , _ouuOrgUnitPath = pOuuOrgUnitPath_

11481 , _ouuCustomerId = pOuuCustomerId_

115− , _ouuKey = Nothing

116− , _ouuOAuthToken = Nothing

117− , _ouuFields = Nothing

11882 }

11983

120−-- | Available to use for quota purposes for server-side applications. Can be

121−-- any arbitrary string assigned to a user, but should not exceed 40

122−-- characters. Overrides userIp if both are provided.

123−ouuQuotaUser :: Lens' OrgUnitsUpdate' (Maybe Text)

124−ouuQuotaUser

125− = lens _ouuQuotaUser (\ s a -> s{_ouuQuotaUser = a})

126−

127−-- | Returns response with indentations and line breaks.

128−ouuPrettyPrint :: Lens' OrgUnitsUpdate' Bool

129−ouuPrettyPrint

130− = lens _ouuPrettyPrint

131− (\ s a -> s{_ouuPrettyPrint = a})

132−

133−-- | IP address of the site where the request originates. Use this if you

134−-- want to enforce per-user limits.

135−ouuUserIP :: Lens' OrgUnitsUpdate' (Maybe Text)

136−ouuUserIP

137− = lens _ouuUserIP (\ s a -> s{_ouuUserIP = a})

138−

13984-- | Multipart request metadata.

14085ouuPayload :: Lens' OrgUnitsUpdate' OrgUnit

14186ouuPayload

@@ -154,39 +99,12 @@ ouuCustomerId

15499 = lens _ouuCustomerId

155100 (\ s a -> s{_ouuCustomerId = a})

156101

157−-- | API key. Your API key identifies your project and provides you with API

158−-- access, quota, and reports. Required unless you provide an OAuth 2.0

159−-- token.

160−ouuKey :: Lens' OrgUnitsUpdate' (Maybe AuthKey)

161−ouuKey = lens _ouuKey (\ s a -> s{_ouuKey = a})

162−

163−-- | OAuth 2.0 token for the current user.

164−ouuOAuthToken :: Lens' OrgUnitsUpdate' (Maybe OAuthToken)

165−ouuOAuthToken

166− = lens _ouuOAuthToken

167− (\ s a -> s{_ouuOAuthToken = a})

168−

169−-- | Selector specifying which fields to include in a partial response.

170−ouuFields :: Lens' OrgUnitsUpdate' (Maybe Text)

171−ouuFields

172− = lens _ouuFields (\ s a -> s{_ouuFields = a})

173−

174−instance GoogleAuth OrgUnitsUpdate' where

175− _AuthKey = ouuKey . _Just

176− _AuthToken = ouuOAuthToken . _Just

177−

178102instance GoogleRequest OrgUnitsUpdate' where

179103 type Rs OrgUnitsUpdate' = OrgUnit

180− request = requestWith directoryRequest

181− requestWith rq OrgUnitsUpdate'{..}

182− = go _ouuCustomerId _ouuOrgUnitPath _ouuQuotaUser

183− (Just _ouuPrettyPrint)

184− _ouuUserIP

185− _ouuFields

186− _ouuKey

187− _ouuOAuthToken

188− (Just AltJSON)

104+ requestClient OrgUnitsUpdate'{..}

105+ = go _ouuCustomerId _ouuOrgUnitPath (Just AltJSON)

189106 _ouuPayload

107+ directoryService

190108 where go

191− = clientBuild (Proxy :: Proxy OrgUnitsUpdateResource)

192− rq

109+ = buildClient (Proxy :: Proxy OrgUnitsUpdateResource)

110+ mempty

gogol-admin-directory/gen/Network/Google/Resource/Directory/Schemas/Delete.hs+9−88

@@ -33,14 +33,8 @@ module Network.Google.Resource.Directory.Schemas.Delete

3333 , SchemasDelete'

3434

3535 -- * Request Lenses

36− , sdQuotaUser

37− , sdPrettyPrint

38− , sdUserIP

3936 , sdCustomerId

40− , sdKey

41− , sdOAuthToken

4237 , sdSchemaKey

43− , sdFields

4438 ) where

4539

4640import Network.Google.Directory.Types

@@ -53,121 +47,48 @@ type SchemasDeleteResource =

5347 Capture "customerId" Text :>

5448 "schemas" :>

5549 Capture "schemaKey" Text :>

56− QueryParam "quotaUser" Text :>

57− QueryParam "prettyPrint" Bool :>

58− QueryParam "userIp" Text :>

59− QueryParam "fields" Text :>

60− QueryParam "key" AuthKey :>

61− Header "Authorization" OAuthToken :>

62− QueryParam "alt" AltJSON :> Delete '[JSON] ()

50+ QueryParam "alt" AltJSON :> Delete '[JSON] ()

6351

6452-- | Delete schema

6553--

6654-- /See:/ 'schemasDelete'' smart constructor.

6755data SchemasDelete' = SchemasDelete'

68− { _sdQuotaUser :: !(Maybe Text)

69− , _sdPrettyPrint :: !Bool

70− , _sdUserIP :: !(Maybe Text)

71− , _sdCustomerId :: !Text

72− , _sdKey :: !(Maybe AuthKey)

73− , _sdOAuthToken :: !(Maybe OAuthToken)

74− , _sdSchemaKey :: !Text

75− , _sdFields :: !(Maybe Text)

56+ { _sdCustomerId :: !Text

57+ , _sdSchemaKey :: !Text

7658 } deriving (Eq,Show,Data,Typeable,Generic)

7759

7860-- | Creates a value of 'SchemasDelete'' with the minimum fields required to make a request.

7961--

8062-- Use one of the following lenses to modify other fields as desired:

8163--

82−-- * 'sdQuotaUser'

83−--

84−-- * 'sdPrettyPrint'

85−--

86−-- * 'sdUserIP'

87−--

8864-- * 'sdCustomerId'

8965--

90−-- * 'sdKey'

91−--

92−-- * 'sdOAuthToken'

93−--

9466-- * 'sdSchemaKey'

95−--

96−-- * 'sdFields'

9767schemasDelete'

9868 :: Text -- ^ 'customerId'

9969 -> Text -- ^ 'schemaKey'

10070 -> SchemasDelete'

10171schemasDelete' pSdCustomerId_ pSdSchemaKey_ =

10272 SchemasDelete'

103− { _sdQuotaUser = Nothing

104− , _sdPrettyPrint = True

105− , _sdUserIP = Nothing

106− , _sdCustomerId = pSdCustomerId_

107− , _sdKey = Nothing

108− , _sdOAuthToken = Nothing

73+ { _sdCustomerId = pSdCustomerId_

10974 , _sdSchemaKey = pSdSchemaKey_

110− , _sdFields = Nothing

11175 }

11276

113−-- | Available to use for quota purposes for server-side applications. Can be

114−-- any arbitrary string assigned to a user, but should not exceed 40

115−-- characters. Overrides userIp if both are provided.

116−sdQuotaUser :: Lens' SchemasDelete' (Maybe Text)

117−sdQuotaUser

118− = lens _sdQuotaUser (\ s a -> s{_sdQuotaUser = a})

119−

120−-- | Returns response with indentations and line breaks.

121−sdPrettyPrint :: Lens' SchemasDelete' Bool

122−sdPrettyPrint

123− = lens _sdPrettyPrint

124− (\ s a -> s{_sdPrettyPrint = a})

125−

126−-- | IP address of the site where the request originates. Use this if you

127−-- want to enforce per-user limits.

128−sdUserIP :: Lens' SchemasDelete' (Maybe Text)

129−sdUserIP = lens _sdUserIP (\ s a -> s{_sdUserIP = a})

130−

13177-- | Immutable id of the Google Apps account

13278sdCustomerId :: Lens' SchemasDelete' Text

13379sdCustomerId

13480 = lens _sdCustomerId (\ s a -> s{_sdCustomerId = a})

13581

136−-- | API key. Your API key identifies your project and provides you with API

137−-- access, quota, and reports. Required unless you provide an OAuth 2.0

138−-- token.

139−sdKey :: Lens' SchemasDelete' (Maybe AuthKey)

140−sdKey = lens _sdKey (\ s a -> s{_sdKey = a})

141−

142−-- | OAuth 2.0 token for the current user.

143−sdOAuthToken :: Lens' SchemasDelete' (Maybe OAuthToken)

144−sdOAuthToken

145− = lens _sdOAuthToken (\ s a -> s{_sdOAuthToken = a})

146−

14782-- | Name or immutable Id of the schema

14883sdSchemaKey :: Lens' SchemasDelete' Text

14984sdSchemaKey

15085 = lens _sdSchemaKey (\ s a -> s{_sdSchemaKey = a})

15186

152−-- | Selector specifying which fields to include in a partial response.

153−sdFields :: Lens' SchemasDelete' (Maybe Text)

154−sdFields = lens _sdFields (\ s a -> s{_sdFields = a})

155−

156−instance GoogleAuth SchemasDelete' where

157− _AuthKey = sdKey . _Just

158− _AuthToken = sdOAuthToken . _Just

159−

16087instance GoogleRequest SchemasDelete' where

16188 type Rs SchemasDelete' = ()

162− request = requestWith directoryRequest

163− requestWith rq SchemasDelete'{..}

164− = go _sdCustomerId _sdSchemaKey _sdQuotaUser

165− (Just _sdPrettyPrint)

166− _sdUserIP

167− _sdFields

168− _sdKey

169− _sdOAuthToken

170− (Just AltJSON)

89+ requestClient SchemasDelete'{..}

90+ = go _sdCustomerId _sdSchemaKey (Just AltJSON)

91+ directoryService

17192 where go

172− = clientBuild (Proxy :: Proxy SchemasDeleteResource)

173− rq

93+ = buildClient (Proxy :: Proxy SchemasDeleteResource)

94+ mempty

gogol-admin-directory/gen/Network/Google/Resource/Directory/Schemas/Get.hs+9−87

@@ -33,14 +33,8 @@ module Network.Google.Resource.Directory.Schemas.Get

3333 , SchemasGet'

3434

3535 -- * Request Lenses

36− , sgQuotaUser

37− , sgPrettyPrint

38− , sgUserIP

3936 , sgCustomerId

40− , sgKey

41− , sgOAuthToken

4237 , sgSchemaKey

43− , sgFields

4438 ) where

4539

4640import Network.Google.Directory.Types

@@ -53,120 +47,48 @@ type SchemasGetResource =

5347 Capture "customerId" Text :>

5448 "schemas" :>

5549 Capture "schemaKey" Text :>

56− QueryParam "quotaUser" Text :>

57− QueryParam "prettyPrint" Bool :>

58− QueryParam "userIp" Text :>

59− QueryParam "fields" Text :>

60− QueryParam "key" AuthKey :>

61− Header "Authorization" OAuthToken :>

62− QueryParam "alt" AltJSON :> Get '[JSON] Schema

50+ QueryParam "alt" AltJSON :> Get '[JSON] Schema

6351

6452-- | Retrieve schema

6553--

6654-- /See:/ 'schemasGet'' smart constructor.

6755data SchemasGet' = SchemasGet'

68− { _sgQuotaUser :: !(Maybe Text)

69− , _sgPrettyPrint :: !Bool

70− , _sgUserIP :: !(Maybe Text)

71− , _sgCustomerId :: !Text

72− , _sgKey :: !(Maybe AuthKey)

73− , _sgOAuthToken :: !(Maybe OAuthToken)

74− , _sgSchemaKey :: !Text

75− , _sgFields :: !(Maybe Text)

56+ { _sgCustomerId :: !Text

57+ , _sgSchemaKey :: !Text

7658 } deriving (Eq,Show,Data,Typeable,Generic)

7759

7860-- | Creates a value of 'SchemasGet'' with the minimum fields required to make a request.

7961--

8062-- Use one of the following lenses to modify other fields as desired:

8163--

82−-- * 'sgQuotaUser'

83−--

84−-- * 'sgPrettyPrint'

85−--

86−-- * 'sgUserIP'

87−--

8864-- * 'sgCustomerId'

8965--

90−-- * 'sgKey'

91−--

92−-- * 'sgOAuthToken'

93−--

9466-- * 'sgSchemaKey'

95−--

96−-- * 'sgFields'

9767schemasGet'

9868 :: Text -- ^ 'customerId'

9969 -> Text -- ^ 'schemaKey'

10070 -> SchemasGet'

10171schemasGet' pSgCustomerId_ pSgSchemaKey_ =

10272 SchemasGet'

103− { _sgQuotaUser = Nothing

104− , _sgPrettyPrint = True

105− , _sgUserIP = Nothing

106− , _sgCustomerId = pSgCustomerId_

107− , _sgKey = Nothing

108− , _sgOAuthToken = Nothing

73+ { _sgCustomerId = pSgCustomerId_

10974 , _sgSchemaKey = pSgSchemaKey_

110− , _sgFields = Nothing

11175 }

11276

113−-- | Available to use for quota purposes for server-side applications. Can be

114−-- any arbitrary string assigned to a user, but should not exceed 40

115−-- characters. Overrides userIp if both are provided.

116−sgQuotaUser :: Lens' SchemasGet' (Maybe Text)

117−sgQuotaUser

118− = lens _sgQuotaUser (\ s a -> s{_sgQuotaUser = a})

119−

120−-- | Returns response with indentations and line breaks.

121−sgPrettyPrint :: Lens' SchemasGet' Bool

122−sgPrettyPrint

123− = lens _sgPrettyPrint

124− (\ s a -> s{_sgPrettyPrint = a})

125−

126−-- | IP address of the site where the request originates. Use this if you

127−-- want to enforce per-user limits.

128−sgUserIP :: Lens' SchemasGet' (Maybe Text)

129−sgUserIP = lens _sgUserIP (\ s a -> s{_sgUserIP = a})

130−

13177-- | Immutable id of the Google Apps account

13278sgCustomerId :: Lens' SchemasGet' Text

13379sgCustomerId

13480 = lens _sgCustomerId (\ s a -> s{_sgCustomerId = a})

13581

136−-- | API key. Your API key identifies your project and provides you with API

137−-- access, quota, and reports. Required unless you provide an OAuth 2.0

138−-- token.

139−sgKey :: Lens' SchemasGet' (Maybe AuthKey)

140−sgKey = lens _sgKey (\ s a -> s{_sgKey = a})

141−

142−-- | OAuth 2.0 token for the current user.

143−sgOAuthToken :: Lens' SchemasGet' (Maybe OAuthToken)

144−sgOAuthToken

145− = lens _sgOAuthToken (\ s a -> s{_sgOAuthToken = a})

146−

14782-- | Name or immutable Id of the schema

14883sgSchemaKey :: Lens' SchemasGet' Text

14984sgSchemaKey

15085 = lens _sgSchemaKey (\ s a -> s{_sgSchemaKey = a})

15186

152−-- | Selector specifying which fields to include in a partial response.

153−sgFields :: Lens' SchemasGet' (Maybe Text)

154−sgFields = lens _sgFields (\ s a -> s{_sgFields = a})

155−

156−instance GoogleAuth SchemasGet' where

157− _AuthKey = sgKey . _Just

158− _AuthToken = sgOAuthToken . _Just

159−

16087instance GoogleRequest SchemasGet' where

16188 type Rs SchemasGet' = Schema

162− request = requestWith directoryRequest

163− requestWith rq SchemasGet'{..}

164− = go _sgCustomerId _sgSchemaKey _sgQuotaUser

165− (Just _sgPrettyPrint)

166− _sgUserIP

167− _sgFields

168− _sgKey

169− _sgOAuthToken

170− (Just AltJSON)

89+ requestClient SchemasGet'{..}

90+ = go _sgCustomerId _sgSchemaKey (Just AltJSON)

91+ directoryService

17192 where go

172− = clientBuild (Proxy :: Proxy SchemasGetResource) rq

93+ = buildClient (Proxy :: Proxy SchemasGetResource)

94+ mempty

gogol-admin-directory/gen/Network/Google/Resource/Directory/Schemas/Insert.hs+10−89

@@ -33,14 +33,8 @@ module Network.Google.Resource.Directory.Schemas.Insert

3333 , SchemasInsert'

3434

3535 -- * Request Lenses

36− , siQuotaUser

37− , siPrettyPrint

38− , siUserIP

3936 , siPayload

4037 , siCustomerId

41− , siKey

42− , siOAuthToken

43− , siFields

4438 ) where

4539

4640import Network.Google.Directory.Types

@@ -52,82 +46,34 @@ type SchemasInsertResource =

5246 "customer" :>

5347 Capture "customerId" Text :>

5448 "schemas" :>

55− QueryParam "quotaUser" Text :>

56− QueryParam "prettyPrint" Bool :>

57− QueryParam "userIp" Text :>

58− QueryParam "fields" Text :>

59− QueryParam "key" AuthKey :>

60− Header "Authorization" OAuthToken :>

61− QueryParam "alt" AltJSON :>

62− ReqBody '[JSON] Schema :> Post '[JSON] Schema

49+ QueryParam "alt" AltJSON :>

50+ ReqBody '[JSON] Schema :> Post '[JSON] Schema

6351

6452-- | Create schema.

6553--

6654-- /See:/ 'schemasInsert'' smart constructor.

6755data SchemasInsert' = SchemasInsert'

68− { _siQuotaUser :: !(Maybe Text)

69− , _siPrettyPrint :: !Bool

70− , _siUserIP :: !(Maybe Text)

71− , _siPayload :: !Schema

72− , _siCustomerId :: !Text

73− , _siKey :: !(Maybe AuthKey)

74− , _siOAuthToken :: !(Maybe OAuthToken)

75− , _siFields :: !(Maybe Text)

56+ { _siPayload :: !Schema

57+ , _siCustomerId :: !Text

7658 } deriving (Eq,Show,Data,Typeable,Generic)

7759

7860-- | Creates a value of 'SchemasInsert'' with the minimum fields required to make a request.

7961--

8062-- Use one of the following lenses to modify other fields as desired:

8163--

82−-- * 'siQuotaUser'

83−--

84−-- * 'siPrettyPrint'

85−--

86−-- * 'siUserIP'

87−--

8864-- * 'siPayload'

8965--

9066-- * 'siCustomerId'

91−--

92−-- * 'siKey'

93−--

94−-- * 'siOAuthToken'

95−--

96−-- * 'siFields'

9767schemasInsert'

9868 :: Schema -- ^ 'payload'

9969 -> Text -- ^ 'customerId'

10070 -> SchemasInsert'

10171schemasInsert' pSiPayload_ pSiCustomerId_ =

10272 SchemasInsert'

103− { _siQuotaUser = Nothing

104− , _siPrettyPrint = True

105− , _siUserIP = Nothing

106− , _siPayload = pSiPayload_

73+ { _siPayload = pSiPayload_

10774 , _siCustomerId = pSiCustomerId_

108− , _siKey = Nothing

109− , _siOAuthToken = Nothing

110− , _siFields = Nothing

11175 }

11276

113−-- | Available to use for quota purposes for server-side applications. Can be

114−-- any arbitrary string assigned to a user, but should not exceed 40

115−-- characters. Overrides userIp if both are provided.

116−siQuotaUser :: Lens' SchemasInsert' (Maybe Text)

117−siQuotaUser

118− = lens _siQuotaUser (\ s a -> s{_siQuotaUser = a})

119−

120−-- | Returns response with indentations and line breaks.

121−siPrettyPrint :: Lens' SchemasInsert' Bool

122−siPrettyPrint

123− = lens _siPrettyPrint

124− (\ s a -> s{_siPrettyPrint = a})

125−

126−-- | IP address of the site where the request originates. Use this if you

127−-- want to enforce per-user limits.

128−siUserIP :: Lens' SchemasInsert' (Maybe Text)

129−siUserIP = lens _siUserIP (\ s a -> s{_siUserIP = a})

130−

13177-- | Multipart request metadata.

13278siPayload :: Lens' SchemasInsert' Schema

13379siPayload

@@ -138,36 +84,11 @@ siCustomerId :: Lens' SchemasInsert' Text

13884siCustomerId

13985 = lens _siCustomerId (\ s a -> s{_siCustomerId = a})

14086

141−-- | API key. Your API key identifies your project and provides you with API

142−-- access, quota, and reports. Required unless you provide an OAuth 2.0

143−-- token.

144−siKey :: Lens' SchemasInsert' (Maybe AuthKey)

145−siKey = lens _siKey (\ s a -> s{_siKey = a})

146−

147−-- | OAuth 2.0 token for the current user.

148−siOAuthToken :: Lens' SchemasInsert' (Maybe OAuthToken)

149−siOAuthToken

150− = lens _siOAuthToken (\ s a -> s{_siOAuthToken = a})

151−

152−-- | Selector specifying which fields to include in a partial response.

153−siFields :: Lens' SchemasInsert' (Maybe Text)

154−siFields = lens _siFields (\ s a -> s{_siFields = a})

155−

156−instance GoogleAuth SchemasInsert' where

157− _AuthKey = siKey . _Just

158− _AuthToken = siOAuthToken . _Just

159−

16087instance GoogleRequest SchemasInsert' where

16188 type Rs SchemasInsert' = Schema

162− request = requestWith directoryRequest

163− requestWith rq SchemasInsert'{..}

164− = go _siCustomerId _siQuotaUser (Just _siPrettyPrint)

165− _siUserIP

166− _siFields

167− _siKey

168− _siOAuthToken

169− (Just AltJSON)

170− _siPayload

89+ requestClient SchemasInsert'{..}

90+ = go _siCustomerId (Just AltJSON) _siPayload

91+ directoryService

17192 where go

172− = clientBuild (Proxy :: Proxy SchemasInsertResource)

173− rq

93+ = buildClient (Proxy :: Proxy SchemasInsertResource)

94+ mempty

gogol-admin-directory/gen/Network/Google/Resource/Directory/Schemas/List.hs+8−86

@@ -33,13 +33,7 @@ module Network.Google.Resource.Directory.Schemas.List

3333 , SchemasList'

3434

3535 -- * Request Lenses

36− , slQuotaUser

37− , slPrettyPrint

38− , slUserIP

3936 , slCustomerId

40− , slKey

41− , slOAuthToken

42− , slFields

4337 ) where

4438

4539import Network.Google.Directory.Types

@@ -51,109 +45,37 @@ type SchemasListResource =

5145 "customer" :>

5246 Capture "customerId" Text :>

5347 "schemas" :>

54− QueryParam "quotaUser" Text :>

55− QueryParam "prettyPrint" Bool :>

56− QueryParam "userIp" Text :>

57− QueryParam "fields" Text :>

58− QueryParam "key" AuthKey :>

59− Header "Authorization" OAuthToken :>

60− QueryParam "alt" AltJSON :> Get '[JSON] Schemas

48+ QueryParam "alt" AltJSON :> Get '[JSON] Schemas

6149

6250-- | Retrieve all schemas for a customer

6351--

6452-- /See:/ 'schemasList'' smart constructor.

65−data SchemasList' = SchemasList'

66− { _slQuotaUser :: !(Maybe Text)

67− , _slPrettyPrint :: !Bool

68− , _slUserIP :: !(Maybe Text)

69− , _slCustomerId :: !Text

70− , _slKey :: !(Maybe AuthKey)

71− , _slOAuthToken :: !(Maybe OAuthToken)

72− , _slFields :: !(Maybe Text)

53+newtype SchemasList' = SchemasList'

54+ { _slCustomerId :: Text

7355 } deriving (Eq,Show,Data,Typeable,Generic)

7456

7557-- | Creates a value of 'SchemasList'' with the minimum fields required to make a request.

7658--

7759-- Use one of the following lenses to modify other fields as desired:

7860--

79−-- * 'slQuotaUser'

80−--

81−-- * 'slPrettyPrint'

82−--

83−-- * 'slUserIP'

84−--

8561-- * 'slCustomerId'

86−--

87−-- * 'slKey'

88−--

89−-- * 'slOAuthToken'

90−--

91−-- * 'slFields'

9262schemasList'

9363 :: Text -- ^ 'customerId'

9464 -> SchemasList'

9565schemasList' pSlCustomerId_ =

9666 SchemasList'

97− { _slQuotaUser = Nothing

98− , _slPrettyPrint = True

99− , _slUserIP = Nothing

100− , _slCustomerId = pSlCustomerId_

101− , _slKey = Nothing

102− , _slOAuthToken = Nothing

103− , _slFields = Nothing

67+ { _slCustomerId = pSlCustomerId_

10468 }

10569

106−-- | Available to use for quota purposes for server-side applications. Can be

107−-- any arbitrary string assigned to a user, but should not exceed 40

108−-- characters. Overrides userIp if both are provided.

109−slQuotaUser :: Lens' SchemasList' (Maybe Text)

110−slQuotaUser

111− = lens _slQuotaUser (\ s a -> s{_slQuotaUser = a})

112−

113−-- | Returns response with indentations and line breaks.

114−slPrettyPrint :: Lens' SchemasList' Bool

115−slPrettyPrint

116− = lens _slPrettyPrint

117− (\ s a -> s{_slPrettyPrint = a})

118−

119−-- | IP address of the site where the request originates. Use this if you

120−-- want to enforce per-user limits.

121−slUserIP :: Lens' SchemasList' (Maybe Text)

122−slUserIP = lens _slUserIP (\ s a -> s{_slUserIP = a})

123−

12470-- | Immutable id of the Google Apps account

12571slCustomerId :: Lens' SchemasList' Text

12672slCustomerId

12773 = lens _slCustomerId (\ s a -> s{_slCustomerId = a})

12874

129−-- | API key. Your API key identifies your project and provides you with API

130−-- access, quota, and reports. Required unless you provide an OAuth 2.0

131−-- token.

132−slKey :: Lens' SchemasList' (Maybe AuthKey)

133−slKey = lens _slKey (\ s a -> s{_slKey = a})

134−

135−-- | OAuth 2.0 token for the current user.

136−slOAuthToken :: Lens' SchemasList' (Maybe OAuthToken)

137−slOAuthToken

138− = lens _slOAuthToken (\ s a -> s{_slOAuthToken = a})

139−

140−-- | Selector specifying which fields to include in a partial response.

141−slFields :: Lens' SchemasList' (Maybe Text)

142−slFields = lens _slFields (\ s a -> s{_slFields = a})

143−

144−instance GoogleAuth SchemasList' where

145− _AuthKey = slKey . _Just

146− _AuthToken = slOAuthToken . _Just

147−

14875instance GoogleRequest SchemasList' where

14976 type Rs SchemasList' = Schemas

150− request = requestWith directoryRequest

151− requestWith rq SchemasList'{..}

152− = go _slCustomerId _slQuotaUser (Just _slPrettyPrint)

153− _slUserIP

154− _slFields

155− _slKey

156− _slOAuthToken

157− (Just AltJSON)

77+ requestClient SchemasList'{..}

78+ = go _slCustomerId (Just AltJSON) directoryService

15879 where go

159− = clientBuild (Proxy :: Proxy SchemasListResource) rq

80+ = buildClient (Proxy :: Proxy SchemasListResource)

81+ mempty

gogol-admin-directory/gen/Network/Google/Resource/Directory/Schemas/Patch.hs+11−90

@@ -33,15 +33,9 @@ module Network.Google.Resource.Directory.Schemas.Patch

3333 , SchemasPatch'

3434

3535 -- * Request Lenses

36− , spQuotaUser

37− , spPrettyPrint

38− , spUserIP

3936 , spPayload

4037 , spCustomerId

41− , spKey

42− , spOAuthToken

4338 , spSchemaKey

44− , spFields

4539 ) where

4640

4741import Network.Google.Directory.Types

@@ -54,51 +48,27 @@ type SchemasPatchResource =

5448 Capture "customerId" Text :>

5549 "schemas" :>

5650 Capture "schemaKey" Text :>

57− QueryParam "quotaUser" Text :>

58− QueryParam "prettyPrint" Bool :>

59− QueryParam "userIp" Text :>

60− QueryParam "fields" Text :>

61− QueryParam "key" AuthKey :>

62− Header "Authorization" OAuthToken :>

63− QueryParam "alt" AltJSON :>

64− ReqBody '[JSON] Schema :> Patch '[JSON] Schema

51+ QueryParam "alt" AltJSON :>

52+ ReqBody '[JSON] Schema :> Patch '[JSON] Schema

6553

6654-- | Update schema. This method supports patch semantics.

6755--

6856-- /See:/ 'schemasPatch'' smart constructor.

6957data SchemasPatch' = SchemasPatch'

70− { _spQuotaUser :: !(Maybe Text)

71− , _spPrettyPrint :: !Bool

72− , _spUserIP :: !(Maybe Text)

73− , _spPayload :: !Schema

74− , _spCustomerId :: !Text

75− , _spKey :: !(Maybe AuthKey)

76− , _spOAuthToken :: !(Maybe OAuthToken)

77− , _spSchemaKey :: !Text

78− , _spFields :: !(Maybe Text)

58+ { _spPayload :: !Schema

59+ , _spCustomerId :: !Text

60+ , _spSchemaKey :: !Text

7961 } deriving (Eq,Show,Data,Typeable,Generic)

8062

8163-- | Creates a value of 'SchemasPatch'' with the minimum fields required to make a request.

8264--

8365-- Use one of the following lenses to modify other fields as desired:

8466--

85−-- * 'spQuotaUser'

86−--

87−-- * 'spPrettyPrint'

88−--

89−-- * 'spUserIP'

90−--

9167-- * 'spPayload'

9268--

9369-- * 'spCustomerId'

9470--

95−-- * 'spKey'

96−--

97−-- * 'spOAuthToken'

98−--

9971-- * 'spSchemaKey'

100−--

101−-- * 'spFields'

10272schemasPatch'

10373 :: Schema -- ^ 'payload'

10474 -> Text -- ^ 'customerId'

@@ -106,35 +76,11 @@ schemasPatch'

10676 -> SchemasPatch'

10777schemasPatch' pSpPayload_ pSpCustomerId_ pSpSchemaKey_ =

10878 SchemasPatch'

109− { _spQuotaUser = Nothing

110− , _spPrettyPrint = True

111− , _spUserIP = Nothing

112− , _spPayload = pSpPayload_

79+ { _spPayload = pSpPayload_

11380 , _spCustomerId = pSpCustomerId_

114− , _spKey = Nothing

115− , _spOAuthToken = Nothing

11681 , _spSchemaKey = pSpSchemaKey_

117− , _spFields = Nothing

11882 }

11983

120−-- | Available to use for quota purposes for server-side applications. Can be

121−-- any arbitrary string assigned to a user, but should not exceed 40

122−-- characters. Overrides userIp if both are provided.

123−spQuotaUser :: Lens' SchemasPatch' (Maybe Text)

124−spQuotaUser

125− = lens _spQuotaUser (\ s a -> s{_spQuotaUser = a})

126−

127−-- | Returns response with indentations and line breaks.

128−spPrettyPrint :: Lens' SchemasPatch' Bool

129−spPrettyPrint

130− = lens _spPrettyPrint

131− (\ s a -> s{_spPrettyPrint = a})

132−

133−-- | IP address of the site where the request originates. Use this if you

134−-- want to enforce per-user limits.

135−spUserIP :: Lens' SchemasPatch' (Maybe Text)

136−spUserIP = lens _spUserIP (\ s a -> s{_spUserIP = a})

137−

13884-- | Multipart request metadata.

13985spPayload :: Lens' SchemasPatch' Schema

14086spPayload

@@ -145,42 +91,17 @@ spCustomerId :: Lens' SchemasPatch' Text

14591spCustomerId

14692 = lens _spCustomerId (\ s a -> s{_spCustomerId = a})

14793

148−-- | API key. Your API key identifies your project and provides you with API

149−-- access, quota, and reports. Required unless you provide an OAuth 2.0

150−-- token.

151−spKey :: Lens' SchemasPatch' (Maybe AuthKey)

152−spKey = lens _spKey (\ s a -> s{_spKey = a})

153−

154−-- | OAuth 2.0 token for the current user.

155−spOAuthToken :: Lens' SchemasPatch' (Maybe OAuthToken)

156−spOAuthToken

157− = lens _spOAuthToken (\ s a -> s{_spOAuthToken = a})

158−

15994-- | Name or immutable Id of the schema.

16095spSchemaKey :: Lens' SchemasPatch' Text

16196spSchemaKey

16297 = lens _spSchemaKey (\ s a -> s{_spSchemaKey = a})

16398

164−-- | Selector specifying which fields to include in a partial response.

165−spFields :: Lens' SchemasPatch' (Maybe Text)

166−spFields = lens _spFields (\ s a -> s{_spFields = a})

167−

168−instance GoogleAuth SchemasPatch' where

169− _AuthKey = spKey . _Just

170− _AuthToken = spOAuthToken . _Just

171−

17299instance GoogleRequest SchemasPatch' where

173100 type Rs SchemasPatch' = Schema

174− request = requestWith directoryRequest

175− requestWith rq SchemasPatch'{..}

176− = go _spCustomerId _spSchemaKey _spQuotaUser

177− (Just _spPrettyPrint)

178− _spUserIP

179− _spFields

180− _spKey

181− _spOAuthToken

182− (Just AltJSON)

101+ requestClient SchemasPatch'{..}

102+ = go _spCustomerId _spSchemaKey (Just AltJSON)

183103 _spPayload

104+ directoryService

184105 where go

185− = clientBuild (Proxy :: Proxy SchemasPatchResource)

186− rq

106+ = buildClient (Proxy :: Proxy SchemasPatchResource)

107+ mempty

gogol-admin-directory/gen/Network/Google/Resource/Directory/Schemas/Update.hs+11−90

@@ -33,15 +33,9 @@ module Network.Google.Resource.Directory.Schemas.Update

3333 , SchemasUpdate'

3434

3535 -- * Request Lenses

36− , suQuotaUser

37− , suPrettyPrint

38− , suUserIP

3936 , suPayload

4037 , suCustomerId

41− , suKey

42− , suOAuthToken

4338 , suSchemaKey

44− , suFields

4539 ) where

4640

4741import Network.Google.Directory.Types

@@ -54,51 +48,27 @@ type SchemasUpdateResource =

5448 Capture "customerId" Text :>

5549 "schemas" :>

5650 Capture "schemaKey" Text :>

57− QueryParam "quotaUser" Text :>

58− QueryParam "prettyPrint" Bool :>

59− QueryParam "userIp" Text :>

60− QueryParam "fields" Text :>

61− QueryParam "key" AuthKey :>

62− Header "Authorization" OAuthToken :>

63− QueryParam "alt" AltJSON :>

64− ReqBody '[JSON] Schema :> Put '[JSON] Schema

51+ QueryParam "alt" AltJSON :>

52+ ReqBody '[JSON] Schema :> Put '[JSON] Schema

6553

6654-- | Update schema

6755--

6856-- /See:/ 'schemasUpdate'' smart constructor.

6957data SchemasUpdate' = SchemasUpdate'

70− { _suQuotaUser :: !(Maybe Text)

71− , _suPrettyPrint :: !Bool

72− , _suUserIP :: !(Maybe Text)

73− , _suPayload :: !Schema

74− , _suCustomerId :: !Text

75− , _suKey :: !(Maybe AuthKey)

76− , _suOAuthToken :: !(Maybe OAuthToken)

77− , _suSchemaKey :: !Text

78− , _suFields :: !(Maybe Text)

58+ { _suPayload :: !Schema

59+ , _suCustomerId :: !Text

60+ , _suSchemaKey :: !Text

7961 } deriving (Eq,Show,Data,Typeable,Generic)

8062

8163-- | Creates a value of 'SchemasUpdate'' with the minimum fields required to make a request.

8264--

8365-- Use one of the following lenses to modify other fields as desired:

8466--

85−-- * 'suQuotaUser'

86−--

87−-- * 'suPrettyPrint'

88−--

89−-- * 'suUserIP'

90−--

9167-- * 'suPayload'

9268--

9369-- * 'suCustomerId'

9470--

95−-- * 'suKey'

96−--

97−-- * 'suOAuthToken'

98−--

9971-- * 'suSchemaKey'

100−--

101−-- * 'suFields'

10272schemasUpdate'

10373 :: Schema -- ^ 'payload'

10474 -> Text -- ^ 'customerId'

@@ -106,35 +76,11 @@ schemasUpdate'

10676 -> SchemasUpdate'

10777schemasUpdate' pSuPayload_ pSuCustomerId_ pSuSchemaKey_ =

10878 SchemasUpdate'

109− { _suQuotaUser = Nothing

110− , _suPrettyPrint = True

111− , _suUserIP = Nothing

112− , _suPayload = pSuPayload_

79+ { _suPayload = pSuPayload_

11380 , _suCustomerId = pSuCustomerId_

114− , _suKey = Nothing

115− , _suOAuthToken = Nothing

11681 , _suSchemaKey = pSuSchemaKey_

117− , _suFields = Nothing

11882 }

11983

120−-- | Available to use for quota purposes for server-side applications. Can be

121−-- any arbitrary string assigned to a user, but should not exceed 40

122−-- characters. Overrides userIp if both are provided.

123−suQuotaUser :: Lens' SchemasUpdate' (Maybe Text)

124−suQuotaUser

125− = lens _suQuotaUser (\ s a -> s{_suQuotaUser = a})

126−

127−-- | Returns response with indentations and line breaks.

128−suPrettyPrint :: Lens' SchemasUpdate' Bool

129−suPrettyPrint

130− = lens _suPrettyPrint

131− (\ s a -> s{_suPrettyPrint = a})

132−

133−-- | IP address of the site where the request originates. Use this if you

134−-- want to enforce per-user limits.

135−suUserIP :: Lens' SchemasUpdate' (Maybe Text)

136−suUserIP = lens _suUserIP (\ s a -> s{_suUserIP = a})

137−

13884-- | Multipart request metadata.

13985suPayload :: Lens' SchemasUpdate' Schema

14086suPayload

@@ -145,42 +91,17 @@ suCustomerId :: Lens' SchemasUpdate' Text

14591suCustomerId

14692 = lens _suCustomerId (\ s a -> s{_suCustomerId = a})

14793

148−-- | API key. Your API key identifies your project and provides you with API

149−-- access, quota, and reports. Required unless you provide an OAuth 2.0

150−-- token.

151−suKey :: Lens' SchemasUpdate' (Maybe AuthKey)

152−suKey = lens _suKey (\ s a -> s{_suKey = a})

153−

154−-- | OAuth 2.0 token for the current user.

155−suOAuthToken :: Lens' SchemasUpdate' (Maybe OAuthToken)

156−suOAuthToken

157− = lens _suOAuthToken (\ s a -> s{_suOAuthToken = a})

158−

15994-- | Name or immutable Id of the schema.

16095suSchemaKey :: Lens' SchemasUpdate' Text

16196suSchemaKey

16297 = lens _suSchemaKey (\ s a -> s{_suSchemaKey = a})

16398

164−-- | Selector specifying which fields to include in a partial response.

165−suFields :: Lens' SchemasUpdate' (Maybe Text)

166−suFields = lens _suFields (\ s a -> s{_suFields = a})

167−

168−instance GoogleAuth SchemasUpdate' where

169− _AuthKey = suKey . _Just

170− _AuthToken = suOAuthToken . _Just

171−

17299instance GoogleRequest SchemasUpdate' where

173100 type Rs SchemasUpdate' = Schema

174− request = requestWith directoryRequest

175− requestWith rq SchemasUpdate'{..}

176− = go _suCustomerId _suSchemaKey _suQuotaUser

177− (Just _suPrettyPrint)

178− _suUserIP

179− _suFields

180− _suKey

181− _suOAuthToken

182− (Just AltJSON)

101+ requestClient SchemasUpdate'{..}

102+ = go _suCustomerId _suSchemaKey (Just AltJSON)

183103 _suPayload

104+ directoryService

184105 where go

185− = clientBuild (Proxy :: Proxy SchemasUpdateResource)

186− rq

106+ = buildClient (Proxy :: Proxy SchemasUpdateResource)

107+ mempty

gogol-admin-directory/gen/Network/Google/Resource/Directory/Tokens/Delete.hs+8−87

@@ -34,13 +34,7 @@ module Network.Google.Resource.Directory.Tokens.Delete

3434

3535 -- * Request Lenses

3636 , tdClientId

37− , tdQuotaUser

38− , tdPrettyPrint

39− , tdUserIP

40− , tdKey

41− , tdOAuthToken

4237 , tdUserKey

43− , tdFields

4438 ) where

4539

4640import Network.Google.Directory.Types

@@ -53,26 +47,14 @@ type TokensDeleteResource =

5347 Capture "userKey" Text :>

5448 "tokens" :>

5549 Capture "clientId" Text :>

56− QueryParam "quotaUser" Text :>

57− QueryParam "prettyPrint" Bool :>

58− QueryParam "userIp" Text :>

59− QueryParam "fields" Text :>

60− QueryParam "key" AuthKey :>

61− Header "Authorization" OAuthToken :>

62− QueryParam "alt" AltJSON :> Delete '[JSON] ()

50+ QueryParam "alt" AltJSON :> Delete '[JSON] ()

6351

6452-- | Delete all access tokens issued by a user for an application.

6553--

6654-- /See:/ 'tokensDelete'' smart constructor.

6755data TokensDelete' = TokensDelete'

68− { _tdClientId :: !Text

69− , _tdQuotaUser :: !(Maybe Text)

70− , _tdPrettyPrint :: !Bool

71− , _tdUserIP :: !(Maybe Text)

72− , _tdKey :: !(Maybe AuthKey)

73− , _tdOAuthToken :: !(Maybe OAuthToken)

74− , _tdUserKey :: !Text

75− , _tdFields :: !(Maybe Text)

56+ { _tdClientId :: !Text

57+ , _tdUserKey :: !Text

7658 } deriving (Eq,Show,Data,Typeable,Generic)

7759

7860-- | Creates a value of 'TokensDelete'' with the minimum fields required to make a request.

@@ -81,19 +63,7 @@ data TokensDelete' = TokensDelete'

8163--

8264-- * 'tdClientId'

8365--

84−-- * 'tdQuotaUser'

85−--

86−-- * 'tdPrettyPrint'

87−--

88−-- * 'tdUserIP'

89−--

90−-- * 'tdKey'

91−--

92−-- * 'tdOAuthToken'

93−--

9466-- * 'tdUserKey'

95−--

96−-- * 'tdFields'

9767tokensDelete'

9868 :: Text -- ^ 'clientId'

9969 -> Text -- ^ 'userKey'

@@ -101,13 +71,7 @@ tokensDelete'

10171tokensDelete' pTdClientId_ pTdUserKey_ =

10272 TokensDelete'

10373 { _tdClientId = pTdClientId_

104− , _tdQuotaUser = Nothing

105− , _tdPrettyPrint = True

106− , _tdUserIP = Nothing

107− , _tdKey = Nothing

108− , _tdOAuthToken = Nothing

10974 , _tdUserKey = pTdUserKey_

110− , _tdFields = Nothing

11175 }

11276

11377-- | The Client ID of the application the token is issued to.

@@ -115,60 +79,17 @@ tdClientId :: Lens' TokensDelete' Text

11579tdClientId

11680 = lens _tdClientId (\ s a -> s{_tdClientId = a})

11781

118−-- | Available to use for quota purposes for server-side applications. Can be

119−-- any arbitrary string assigned to a user, but should not exceed 40

120−-- characters. Overrides userIp if both are provided.

121−tdQuotaUser :: Lens' TokensDelete' (Maybe Text)

122−tdQuotaUser

123− = lens _tdQuotaUser (\ s a -> s{_tdQuotaUser = a})

124−

125−-- | Returns response with indentations and line breaks.

126−tdPrettyPrint :: Lens' TokensDelete' Bool

127−tdPrettyPrint

128− = lens _tdPrettyPrint

129− (\ s a -> s{_tdPrettyPrint = a})

130−

131−-- | IP address of the site where the request originates. Use this if you

132−-- want to enforce per-user limits.

133−tdUserIP :: Lens' TokensDelete' (Maybe Text)

134−tdUserIP = lens _tdUserIP (\ s a -> s{_tdUserIP = a})

135−

136−-- | API key. Your API key identifies your project and provides you with API

137−-- access, quota, and reports. Required unless you provide an OAuth 2.0

138−-- token.

139−tdKey :: Lens' TokensDelete' (Maybe AuthKey)

140−tdKey = lens _tdKey (\ s a -> s{_tdKey = a})

141−

142−-- | OAuth 2.0 token for the current user.

143−tdOAuthToken :: Lens' TokensDelete' (Maybe OAuthToken)

144−tdOAuthToken

145− = lens _tdOAuthToken (\ s a -> s{_tdOAuthToken = a})

146−

14782-- | Identifies the user in the API request. The value can be the user\'s

14883-- primary email address, alias email address, or unique user ID.

14984tdUserKey :: Lens' TokensDelete' Text

15085tdUserKey

15186 = lens _tdUserKey (\ s a -> s{_tdUserKey = a})

15287

153−-- | Selector specifying which fields to include in a partial response.

154−tdFields :: Lens' TokensDelete' (Maybe Text)

155−tdFields = lens _tdFields (\ s a -> s{_tdFields = a})

156−

157−instance GoogleAuth TokensDelete' where

158− _AuthKey = tdKey . _Just

159− _AuthToken = tdOAuthToken . _Just

160−

16188instance GoogleRequest TokensDelete' where

16289 type Rs TokensDelete' = ()

163− request = requestWith directoryRequest

164− requestWith rq TokensDelete'{..}

165− = go _tdUserKey _tdClientId _tdQuotaUser

166− (Just _tdPrettyPrint)

167− _tdUserIP

168− _tdFields

169− _tdKey

170− _tdOAuthToken

171− (Just AltJSON)

90+ requestClient TokensDelete'{..}

91+ = go _tdUserKey _tdClientId (Just AltJSON)

92+ directoryService

17293 where go

173− = clientBuild (Proxy :: Proxy TokensDeleteResource)

174− rq

94+ = buildClient (Proxy :: Proxy TokensDeleteResource)

95+ mempty

gogol-admin-directory/gen/Network/Google/Resource/Directory/Tokens/Get.hs+8−86

@@ -34,13 +34,7 @@ module Network.Google.Resource.Directory.Tokens.Get

3434

3535 -- * Request Lenses

3636 , tgClientId

37− , tgQuotaUser

38− , tgPrettyPrint

39− , tgUserIP

40− , tgKey

41− , tgOAuthToken

4237 , tgUserKey

43− , tgFields

4438 ) where

4539

4640import Network.Google.Directory.Types

@@ -53,26 +47,14 @@ type TokensGetResource =

5347 Capture "userKey" Text :>

5448 "tokens" :>

5549 Capture "clientId" Text :>

56− QueryParam "quotaUser" Text :>

57− QueryParam "prettyPrint" Bool :>

58− QueryParam "userIp" Text :>

59− QueryParam "fields" Text :>

60− QueryParam "key" AuthKey :>

61− Header "Authorization" OAuthToken :>

62− QueryParam "alt" AltJSON :> Get '[JSON] Token

50+ QueryParam "alt" AltJSON :> Get '[JSON] Token

6351

6452-- | Get information about an access token issued by a user.

6553--

6654-- /See:/ 'tokensGet'' smart constructor.

6755data TokensGet' = TokensGet'

68− { _tgClientId :: !Text

69− , _tgQuotaUser :: !(Maybe Text)

70− , _tgPrettyPrint :: !Bool

71− , _tgUserIP :: !(Maybe Text)

72− , _tgKey :: !(Maybe AuthKey)

73− , _tgOAuthToken :: !(Maybe OAuthToken)

74− , _tgUserKey :: !Text

75− , _tgFields :: !(Maybe Text)

56+ { _tgClientId :: !Text

57+ , _tgUserKey :: !Text

7658 } deriving (Eq,Show,Data,Typeable,Generic)

7759

7860-- | Creates a value of 'TokensGet'' with the minimum fields required to make a request.

@@ -81,19 +63,7 @@ data TokensGet' = TokensGet'

8163--

8264-- * 'tgClientId'

8365--

84−-- * 'tgQuotaUser'

85−--

86−-- * 'tgPrettyPrint'

87−--

88−-- * 'tgUserIP'

89−--

90−-- * 'tgKey'

91−--

92−-- * 'tgOAuthToken'

93−--

9466-- * 'tgUserKey'

95−--

96−-- * 'tgFields'

9767tokensGet'

9868 :: Text -- ^ 'clientId'

9969 -> Text -- ^ 'userKey'

@@ -101,13 +71,7 @@ tokensGet'

10171tokensGet' pTgClientId_ pTgUserKey_ =

10272 TokensGet'

10373 { _tgClientId = pTgClientId_

104− , _tgQuotaUser = Nothing

105− , _tgPrettyPrint = True

106− , _tgUserIP = Nothing

107− , _tgKey = Nothing

108− , _tgOAuthToken = Nothing

10974 , _tgUserKey = pTgUserKey_

110− , _tgFields = Nothing

11175 }

11276

11377-- | The Client ID of the application the token is issued to.

@@ -115,59 +79,17 @@ tgClientId :: Lens' TokensGet' Text

11579tgClientId

11680 = lens _tgClientId (\ s a -> s{_tgClientId = a})

11781

118−-- | Available to use for quota purposes for server-side applications. Can be

119−-- any arbitrary string assigned to a user, but should not exceed 40

120−-- characters. Overrides userIp if both are provided.

121−tgQuotaUser :: Lens' TokensGet' (Maybe Text)

122−tgQuotaUser

123− = lens _tgQuotaUser (\ s a -> s{_tgQuotaUser = a})

124−

125−-- | Returns response with indentations and line breaks.

126−tgPrettyPrint :: Lens' TokensGet' Bool

127−tgPrettyPrint

128− = lens _tgPrettyPrint

129− (\ s a -> s{_tgPrettyPrint = a})

130−

131−-- | IP address of the site where the request originates. Use this if you

132−-- want to enforce per-user limits.

133−tgUserIP :: Lens' TokensGet' (Maybe Text)

134−tgUserIP = lens _tgUserIP (\ s a -> s{_tgUserIP = a})

135−

136−-- | API key. Your API key identifies your project and provides you with API

137−-- access, quota, and reports. Required unless you provide an OAuth 2.0

138−-- token.

139−tgKey :: Lens' TokensGet' (Maybe AuthKey)

140−tgKey = lens _tgKey (\ s a -> s{_tgKey = a})

141−

142−-- | OAuth 2.0 token for the current user.

143−tgOAuthToken :: Lens' TokensGet' (Maybe OAuthToken)

144−tgOAuthToken

145− = lens _tgOAuthToken (\ s a -> s{_tgOAuthToken = a})

146−

14782-- | Identifies the user in the API request. The value can be the user\'s

14883-- primary email address, alias email address, or unique user ID.

14984tgUserKey :: Lens' TokensGet' Text

15085tgUserKey

15186 = lens _tgUserKey (\ s a -> s{_tgUserKey = a})

15287

153−-- | Selector specifying which fields to include in a partial response.

154−tgFields :: Lens' TokensGet' (Maybe Text)

155−tgFields = lens _tgFields (\ s a -> s{_tgFields = a})

156−

157−instance GoogleAuth TokensGet' where

158− _AuthKey = tgKey . _Just

159− _AuthToken = tgOAuthToken . _Just

160−

16188instance GoogleRequest TokensGet' where

16289 type Rs TokensGet' = Token

163− request = requestWith directoryRequest

164− requestWith rq TokensGet'{..}

165− = go _tgUserKey _tgClientId _tgQuotaUser

166− (Just _tgPrettyPrint)

167− _tgUserIP

168− _tgFields

169− _tgKey

170− _tgOAuthToken

171− (Just AltJSON)

90+ requestClient TokensGet'{..}

91+ = go _tgUserKey _tgClientId (Just AltJSON)

92+ directoryService

17293 where go

173− = clientBuild (Proxy :: Proxy TokensGetResource) rq

94+ = buildClient (Proxy :: Proxy TokensGetResource)

95+ mempty

gogol-admin-directory/gen/Network/Google/Resource/Directory/Tokens/List.hs+8−86

@@ -34,13 +34,7 @@ module Network.Google.Resource.Directory.Tokens.List

3434 , TokensList'

3535

3636 -- * Request Lenses

37− , tlQuotaUser

38− , tlPrettyPrint

39− , tlUserIP

40− , tlKey

41− , tlOAuthToken

4237 , tlUserKey

43− , tlFields

4438 ) where

4539

4640import Network.Google.Directory.Types

@@ -52,111 +46,39 @@ type TokensListResource =

5246 "users" :>

5347 Capture "userKey" Text :>

5448 "tokens" :>

55− QueryParam "quotaUser" Text :>

56− QueryParam "prettyPrint" Bool :>

57− QueryParam "userIp" Text :>

58− QueryParam "fields" Text :>

59− QueryParam "key" AuthKey :>

60− Header "Authorization" OAuthToken :>

61− QueryParam "alt" AltJSON :> Get '[JSON] Tokens

49+ QueryParam "alt" AltJSON :> Get '[JSON] Tokens

6250

6351-- | Returns the set of tokens specified user has issued to 3rd party

6452-- applications.

6553--

6654-- /See:/ 'tokensList'' smart constructor.

67−data TokensList' = TokensList'

68− { _tlQuotaUser :: !(Maybe Text)

69− , _tlPrettyPrint :: !Bool

70− , _tlUserIP :: !(Maybe Text)

71− , _tlKey :: !(Maybe AuthKey)

72− , _tlOAuthToken :: !(Maybe OAuthToken)

73− , _tlUserKey :: !Text

74− , _tlFields :: !(Maybe Text)

55+newtype TokensList' = TokensList'

56+ { _tlUserKey :: Text

7557 } deriving (Eq,Show,Data,Typeable,Generic)

7658

7759-- | Creates a value of 'TokensList'' with the minimum fields required to make a request.

7860--

7961-- Use one of the following lenses to modify other fields as desired:

8062--

81−-- * 'tlQuotaUser'

82−--

83−-- * 'tlPrettyPrint'

84−--

85−-- * 'tlUserIP'

86−--

87−-- * 'tlKey'

88−--

89−-- * 'tlOAuthToken'

90−--

9163-- * 'tlUserKey'

92−--

93−-- * 'tlFields'

9464tokensList'

9565 :: Text -- ^ 'userKey'

9666 -> TokensList'

9767tokensList' pTlUserKey_ =

9868 TokensList'

99− { _tlQuotaUser = Nothing

100− , _tlPrettyPrint = True

101− , _tlUserIP = Nothing

102− , _tlKey = Nothing

103− , _tlOAuthToken = Nothing

104− , _tlUserKey = pTlUserKey_

105− , _tlFields = Nothing

69+ { _tlUserKey = pTlUserKey_

10670 }

10771

108−-- | Available to use for quota purposes for server-side applications. Can be

109−-- any arbitrary string assigned to a user, but should not exceed 40

110−-- characters. Overrides userIp if both are provided.

111−tlQuotaUser :: Lens' TokensList' (Maybe Text)

112−tlQuotaUser

113− = lens _tlQuotaUser (\ s a -> s{_tlQuotaUser = a})

114−

115−-- | Returns response with indentations and line breaks.

116−tlPrettyPrint :: Lens' TokensList' Bool

117−tlPrettyPrint

118− = lens _tlPrettyPrint

119− (\ s a -> s{_tlPrettyPrint = a})

120−

121−-- | IP address of the site where the request originates. Use this if you

122−-- want to enforce per-user limits.

123−tlUserIP :: Lens' TokensList' (Maybe Text)

124−tlUserIP = lens _tlUserIP (\ s a -> s{_tlUserIP = a})

125−

126−-- | API key. Your API key identifies your project and provides you with API

127−-- access, quota, and reports. Required unless you provide an OAuth 2.0

128−-- token.

129−tlKey :: Lens' TokensList' (Maybe AuthKey)

130−tlKey = lens _tlKey (\ s a -> s{_tlKey = a})

131−

132−-- | OAuth 2.0 token for the current user.

133−tlOAuthToken :: Lens' TokensList' (Maybe OAuthToken)

134−tlOAuthToken

135− = lens _tlOAuthToken (\ s a -> s{_tlOAuthToken = a})

136−

13772-- | Identifies the user in the API request. The value can be the user\'s

13873-- primary email address, alias email address, or unique user ID.

13974tlUserKey :: Lens' TokensList' Text

14075tlUserKey

14176 = lens _tlUserKey (\ s a -> s{_tlUserKey = a})

14277

143−-- | Selector specifying which fields to include in a partial response.

144−tlFields :: Lens' TokensList' (Maybe Text)

145−tlFields = lens _tlFields (\ s a -> s{_tlFields = a})

146−

147−instance GoogleAuth TokensList' where

148− _AuthKey = tlKey . _Just

149− _AuthToken = tlOAuthToken . _Just

150−

15178instance GoogleRequest TokensList' where

15279 type Rs TokensList' = Tokens

153− request = requestWith directoryRequest

154− requestWith rq TokensList'{..}

155− = go _tlUserKey _tlQuotaUser (Just _tlPrettyPrint)

156− _tlUserIP

157− _tlFields

158− _tlKey

159− _tlOAuthToken

160− (Just AltJSON)

80+ requestClient TokensList'{..}

81+ = go _tlUserKey (Just AltJSON) directoryService

16182 where go

162− = clientBuild (Proxy :: Proxy TokensListResource) rq

83+ = buildClient (Proxy :: Proxy TokensListResource)

84+ mempty

gogol-admin-directory/gen/Network/Google/Resource/Directory/Users/Aliases/Delete.hs+9−91

@@ -33,14 +33,8 @@ module Network.Google.Resource.Directory.Users.Aliases.Delete

3333 , UsersAliasesDelete'

3434

3535 -- * Request Lenses

36− , uadQuotaUser

37− , uadPrettyPrint

38− , uadUserIP

3936 , uadAlias

40− , uadKey

41− , uadOAuthToken

4237 , uadUserKey

43− , uadFields

4438 ) where

4539

4640import Network.Google.Directory.Types

@@ -53,124 +47,48 @@ type UsersAliasesDeleteResource =

5347 Capture "userKey" Text :>

5448 "aliases" :>

5549 Capture "alias" Text :>

56− QueryParam "quotaUser" Text :>

57− QueryParam "prettyPrint" Bool :>

58− QueryParam "userIp" Text :>

59− QueryParam "fields" Text :>

60− QueryParam "key" AuthKey :>

61− Header "Authorization" OAuthToken :>

62− QueryParam "alt" AltJSON :> Delete '[JSON] ()

50+ QueryParam "alt" AltJSON :> Delete '[JSON] ()

6351

6452-- | Remove a alias for the user

6553--

6654-- /See:/ 'usersAliasesDelete'' smart constructor.

6755data UsersAliasesDelete' = UsersAliasesDelete'

68− { _uadQuotaUser :: !(Maybe Text)

69− , _uadPrettyPrint :: !Bool

70− , _uadUserIP :: !(Maybe Text)

71− , _uadAlias :: !Text

72− , _uadKey :: !(Maybe AuthKey)

73− , _uadOAuthToken :: !(Maybe OAuthToken)

74− , _uadUserKey :: !Text

75− , _uadFields :: !(Maybe Text)

56+ { _uadAlias :: !Text

57+ , _uadUserKey :: !Text

7658 } deriving (Eq,Show,Data,Typeable,Generic)

7759

7860-- | Creates a value of 'UsersAliasesDelete'' with the minimum fields required to make a request.

7961--

8062-- Use one of the following lenses to modify other fields as desired:

8163--

82−-- * 'uadQuotaUser'

83−--

84−-- * 'uadPrettyPrint'

85−--

86−-- * 'uadUserIP'

87−--

8864-- * 'uadAlias'

8965--

90−-- * 'uadKey'

91−--

92−-- * 'uadOAuthToken'

93−--

9466-- * 'uadUserKey'

95−--

96−-- * 'uadFields'

9767usersAliasesDelete'

9868 :: Text -- ^ 'alias'

9969 -> Text -- ^ 'userKey'

10070 -> UsersAliasesDelete'

10171usersAliasesDelete' pUadAlias_ pUadUserKey_ =

10272 UsersAliasesDelete'

103− { _uadQuotaUser = Nothing

104− , _uadPrettyPrint = True

105− , _uadUserIP = Nothing

106− , _uadAlias = pUadAlias_

107− , _uadKey = Nothing

108− , _uadOAuthToken = Nothing

73+ { _uadAlias = pUadAlias_

10974 , _uadUserKey = pUadUserKey_

110− , _uadFields = Nothing

11175 }

11276

113−-- | Available to use for quota purposes for server-side applications. Can be

114−-- any arbitrary string assigned to a user, but should not exceed 40

115−-- characters. Overrides userIp if both are provided.

116−uadQuotaUser :: Lens' UsersAliasesDelete' (Maybe Text)

117−uadQuotaUser

118− = lens _uadQuotaUser (\ s a -> s{_uadQuotaUser = a})

119−

120−-- | Returns response with indentations and line breaks.

121−uadPrettyPrint :: Lens' UsersAliasesDelete' Bool

122−uadPrettyPrint

123− = lens _uadPrettyPrint

124− (\ s a -> s{_uadPrettyPrint = a})

125−

126−-- | IP address of the site where the request originates. Use this if you

127−-- want to enforce per-user limits.

128−uadUserIP :: Lens' UsersAliasesDelete' (Maybe Text)

129−uadUserIP

130− = lens _uadUserIP (\ s a -> s{_uadUserIP = a})

131−

13277-- | The alias to be removed

13378uadAlias :: Lens' UsersAliasesDelete' Text

13479uadAlias = lens _uadAlias (\ s a -> s{_uadAlias = a})

13580

136−-- | API key. Your API key identifies your project and provides you with API

137−-- access, quota, and reports. Required unless you provide an OAuth 2.0

138−-- token.

139−uadKey :: Lens' UsersAliasesDelete' (Maybe AuthKey)

140−uadKey = lens _uadKey (\ s a -> s{_uadKey = a})

141−

142−-- | OAuth 2.0 token for the current user.

143−uadOAuthToken :: Lens' UsersAliasesDelete' (Maybe OAuthToken)

144−uadOAuthToken

145− = lens _uadOAuthToken

146− (\ s a -> s{_uadOAuthToken = a})

147−

14881-- | Email or immutable Id of the user

14982uadUserKey :: Lens' UsersAliasesDelete' Text

15083uadUserKey

15184 = lens _uadUserKey (\ s a -> s{_uadUserKey = a})

15285

153−-- | Selector specifying which fields to include in a partial response.

154−uadFields :: Lens' UsersAliasesDelete' (Maybe Text)

155−uadFields

156− = lens _uadFields (\ s a -> s{_uadFields = a})

157−

158−instance GoogleAuth UsersAliasesDelete' where

159− _AuthKey = uadKey . _Just

160− _AuthToken = uadOAuthToken . _Just

161−

16286instance GoogleRequest UsersAliasesDelete' where

16387 type Rs UsersAliasesDelete' = ()

164− request = requestWith directoryRequest

165− requestWith rq UsersAliasesDelete'{..}

166− = go _uadUserKey _uadAlias _uadQuotaUser

167− (Just _uadPrettyPrint)

168− _uadUserIP

169− _uadFields

170− _uadKey

171− _uadOAuthToken

172− (Just AltJSON)

88+ requestClient UsersAliasesDelete'{..}

89+ = go _uadUserKey _uadAlias (Just AltJSON)

90+ directoryService

17391 where go

174− = clientBuild

92+ = buildClient

17593 (Proxy :: Proxy UsersAliasesDeleteResource)

176− rq

94+ mempty

gogol-admin-directory/gen/Network/Google/Resource/Directory/Users/Aliases/Insert.hs+10−92

@@ -33,14 +33,8 @@ module Network.Google.Resource.Directory.Users.Aliases.Insert

3333 , UsersAliasesInsert'

3434

3535 -- * Request Lenses

36− , uaiQuotaUser

37− , uaiPrettyPrint

38− , uaiUserIP

3936 , uaiPayload

40− , uaiKey

41− , uaiOAuthToken

4237 , uaiUserKey

43− , uaiFields

4438 ) where

4539

4640import Network.Google.Directory.Types

@@ -52,126 +46,50 @@ type UsersAliasesInsertResource =

5246 "users" :>

5347 Capture "userKey" Text :>

5448 "aliases" :>

55− QueryParam "quotaUser" Text :>

56− QueryParam "prettyPrint" Bool :>

57− QueryParam "userIp" Text :>

58− QueryParam "fields" Text :>

59− QueryParam "key" AuthKey :>

60− Header "Authorization" OAuthToken :>

61− QueryParam "alt" AltJSON :>

62− ReqBody '[JSON] Alias :> Post '[JSON] Alias

49+ QueryParam "alt" AltJSON :>

50+ ReqBody '[JSON] Alias :> Post '[JSON] Alias

6351

6452-- | Add a alias for the user

6553--

6654-- /See:/ 'usersAliasesInsert'' smart constructor.

6755data UsersAliasesInsert' = UsersAliasesInsert'

68− { _uaiQuotaUser :: !(Maybe Text)

69− , _uaiPrettyPrint :: !Bool

70− , _uaiUserIP :: !(Maybe Text)

71− , _uaiPayload :: !Alias

72− , _uaiKey :: !(Maybe AuthKey)

73− , _uaiOAuthToken :: !(Maybe OAuthToken)

74− , _uaiUserKey :: !Text

75− , _uaiFields :: !(Maybe Text)

56+ { _uaiPayload :: !Alias

57+ , _uaiUserKey :: !Text

7658 } deriving (Eq,Show,Data,Typeable,Generic)

7759

7860-- | Creates a value of 'UsersAliasesInsert'' with the minimum fields required to make a request.

7961--

8062-- Use one of the following lenses to modify other fields as desired:

8163--

82−-- * 'uaiQuotaUser'

83−--

84−-- * 'uaiPrettyPrint'

85−--

86−-- * 'uaiUserIP'

87−--

8864-- * 'uaiPayload'

8965--

90−-- * 'uaiKey'

91−--

92−-- * 'uaiOAuthToken'

93−--

9466-- * 'uaiUserKey'

95−--

96−-- * 'uaiFields'

9767usersAliasesInsert'

9868 :: Alias -- ^ 'payload'

9969 -> Text -- ^ 'userKey'

10070 -> UsersAliasesInsert'

10171usersAliasesInsert' pUaiPayload_ pUaiUserKey_ =

10272 UsersAliasesInsert'

103− { _uaiQuotaUser = Nothing

104− , _uaiPrettyPrint = True

105− , _uaiUserIP = Nothing

106− , _uaiPayload = pUaiPayload_

107− , _uaiKey = Nothing

108− , _uaiOAuthToken = Nothing

73+ { _uaiPayload = pUaiPayload_

10974 , _uaiUserKey = pUaiUserKey_

110− , _uaiFields = Nothing

11175 }

11276

113−-- | Available to use for quota purposes for server-side applications. Can be

114−-- any arbitrary string assigned to a user, but should not exceed 40

115−-- characters. Overrides userIp if both are provided.

116−uaiQuotaUser :: Lens' UsersAliasesInsert' (Maybe Text)

117−uaiQuotaUser

118− = lens _uaiQuotaUser (\ s a -> s{_uaiQuotaUser = a})

119−

120−-- | Returns response with indentations and line breaks.

121−uaiPrettyPrint :: Lens' UsersAliasesInsert' Bool

122−uaiPrettyPrint

123− = lens _uaiPrettyPrint

124− (\ s a -> s{_uaiPrettyPrint = a})

125−

126−-- | IP address of the site where the request originates. Use this if you

127−-- want to enforce per-user limits.

128−uaiUserIP :: Lens' UsersAliasesInsert' (Maybe Text)

129−uaiUserIP

130− = lens _uaiUserIP (\ s a -> s{_uaiUserIP = a})

131−

13277-- | Multipart request metadata.

13378uaiPayload :: Lens' UsersAliasesInsert' Alias

13479uaiPayload

13580 = lens _uaiPayload (\ s a -> s{_uaiPayload = a})

13681

137−-- | API key. Your API key identifies your project and provides you with API

138−-- access, quota, and reports. Required unless you provide an OAuth 2.0

139−-- token.

140−uaiKey :: Lens' UsersAliasesInsert' (Maybe AuthKey)

141−uaiKey = lens _uaiKey (\ s a -> s{_uaiKey = a})

142−

143−-- | OAuth 2.0 token for the current user.

144−uaiOAuthToken :: Lens' UsersAliasesInsert' (Maybe OAuthToken)

145−uaiOAuthToken

146− = lens _uaiOAuthToken

147− (\ s a -> s{_uaiOAuthToken = a})

148−

14982-- | Email or immutable Id of the user

15083uaiUserKey :: Lens' UsersAliasesInsert' Text

15184uaiUserKey

15285 = lens _uaiUserKey (\ s a -> s{_uaiUserKey = a})

15386

154−-- | Selector specifying which fields to include in a partial response.

155−uaiFields :: Lens' UsersAliasesInsert' (Maybe Text)

156−uaiFields

157− = lens _uaiFields (\ s a -> s{_uaiFields = a})

158−

159−instance GoogleAuth UsersAliasesInsert' where

160− _AuthKey = uaiKey . _Just

161− _AuthToken = uaiOAuthToken . _Just

162−

16387instance GoogleRequest UsersAliasesInsert' where

16488 type Rs UsersAliasesInsert' = Alias

165− request = requestWith directoryRequest

166− requestWith rq UsersAliasesInsert'{..}

167− = go _uaiUserKey _uaiQuotaUser (Just _uaiPrettyPrint)

168− _uaiUserIP

169− _uaiFields

170− _uaiKey

171− _uaiOAuthToken

172− (Just AltJSON)

173− _uaiPayload

89+ requestClient UsersAliasesInsert'{..}

90+ = go _uaiUserKey (Just AltJSON) _uaiPayload

91+ directoryService

17492 where go

175− = clientBuild

93+ = buildClient

17694 (Proxy :: Proxy UsersAliasesInsertResource)

177− rq

95+ mempty

gogol-admin-directory/gen/Network/Google/Resource/Directory/Users/Aliases/List.hs+8−90

@@ -34,13 +34,7 @@ module Network.Google.Resource.Directory.Users.Aliases.List

3434

3535 -- * Request Lenses

3636 , ualEvent

37− , ualQuotaUser

38− , ualPrettyPrint

39− , ualUserIP

40− , ualKey

41− , ualOAuthToken

4237 , ualUserKey

43− , ualFields

4438 ) where

4539

4640import Network.Google.Directory.Types

@@ -53,26 +47,14 @@ type UsersAliasesListResource =

5347 Capture "userKey" Text :>

5448 "aliases" :>

5549 QueryParam "event" UsersAliasesListEvent :>

56− QueryParam "quotaUser" Text :>

57− QueryParam "prettyPrint" Bool :>

58− QueryParam "userIp" Text :>

59− QueryParam "fields" Text :>

60− QueryParam "key" AuthKey :>

61− Header "Authorization" OAuthToken :>

62− QueryParam "alt" AltJSON :> Get '[JSON] Aliases

50+ QueryParam "alt" AltJSON :> Get '[JSON] Aliases

6351

6452-- | List all aliases for a user

6553--

6654-- /See:/ 'usersAliasesList'' smart constructor.

6755data UsersAliasesList' = UsersAliasesList'

68− { _ualEvent :: !(Maybe UsersAliasesListEvent)

69− , _ualQuotaUser :: !(Maybe Text)

70− , _ualPrettyPrint :: !Bool

71− , _ualUserIP :: !(Maybe Text)

72− , _ualKey :: !(Maybe AuthKey)

73− , _ualOAuthToken :: !(Maybe OAuthToken)

74− , _ualUserKey :: !Text

75− , _ualFields :: !(Maybe Text)

56+ { _ualEvent :: !(Maybe UsersAliasesListEvent)

57+ , _ualUserKey :: !Text

7658 } deriving (Eq,Show,Data,Typeable,Generic)

7759

7860-- | Creates a value of 'UsersAliasesList'' with the minimum fields required to make a request.

@@ -81,95 +63,31 @@ data UsersAliasesList' = UsersAliasesList'

8163--

8264-- * 'ualEvent'

8365--

84−-- * 'ualQuotaUser'

85−--

86−-- * 'ualPrettyPrint'

87−--

88−-- * 'ualUserIP'

89−--

90−-- * 'ualKey'

91−--

92−-- * 'ualOAuthToken'

93−--

9466-- * 'ualUserKey'

95−--

96−-- * 'ualFields'

9767usersAliasesList'

9868 :: Text -- ^ 'userKey'

9969 -> UsersAliasesList'

10070usersAliasesList' pUalUserKey_ =

10171 UsersAliasesList'

10272 { _ualEvent = Nothing

103− , _ualQuotaUser = Nothing

104− , _ualPrettyPrint = True

105− , _ualUserIP = Nothing

106− , _ualKey = Nothing

107− , _ualOAuthToken = Nothing

10873 , _ualUserKey = pUalUserKey_

109− , _ualFields = Nothing

11074 }

11175

11276-- | Event on which subscription is intended (if subscribing)

11377ualEvent :: Lens' UsersAliasesList' (Maybe UsersAliasesListEvent)

11478ualEvent = lens _ualEvent (\ s a -> s{_ualEvent = a})

11579

116−-- | Available to use for quota purposes for server-side applications. Can be

117−-- any arbitrary string assigned to a user, but should not exceed 40

118−-- characters. Overrides userIp if both are provided.

119−ualQuotaUser :: Lens' UsersAliasesList' (Maybe Text)

120−ualQuotaUser

121− = lens _ualQuotaUser (\ s a -> s{_ualQuotaUser = a})

122−

123−-- | Returns response with indentations and line breaks.

124−ualPrettyPrint :: Lens' UsersAliasesList' Bool

125−ualPrettyPrint

126− = lens _ualPrettyPrint

127− (\ s a -> s{_ualPrettyPrint = a})

128−

129−-- | IP address of the site where the request originates. Use this if you

130−-- want to enforce per-user limits.

131−ualUserIP :: Lens' UsersAliasesList' (Maybe Text)

132−ualUserIP

133− = lens _ualUserIP (\ s a -> s{_ualUserIP = a})

134−

135−-- | API key. Your API key identifies your project and provides you with API

136−-- access, quota, and reports. Required unless you provide an OAuth 2.0

137−-- token.

138−ualKey :: Lens' UsersAliasesList' (Maybe AuthKey)

139−ualKey = lens _ualKey (\ s a -> s{_ualKey = a})

140−

141−-- | OAuth 2.0 token for the current user.

142−ualOAuthToken :: Lens' UsersAliasesList' (Maybe OAuthToken)

143−ualOAuthToken

144− = lens _ualOAuthToken

145− (\ s a -> s{_ualOAuthToken = a})

146−

14780-- | Email or immutable Id of the user

14881ualUserKey :: Lens' UsersAliasesList' Text

14982ualUserKey

15083 = lens _ualUserKey (\ s a -> s{_ualUserKey = a})

15184

152−-- | Selector specifying which fields to include in a partial response.

153−ualFields :: Lens' UsersAliasesList' (Maybe Text)

154−ualFields

155− = lens _ualFields (\ s a -> s{_ualFields = a})

156−

157−instance GoogleAuth UsersAliasesList' where

158− _AuthKey = ualKey . _Just

159− _AuthToken = ualOAuthToken . _Just

160−

16185instance GoogleRequest UsersAliasesList' where

16286 type Rs UsersAliasesList' = Aliases

163− request = requestWith directoryRequest

164− requestWith rq UsersAliasesList'{..}

165− = go _ualUserKey _ualEvent _ualQuotaUser

166− (Just _ualPrettyPrint)

167− _ualUserIP

168− _ualFields

169− _ualKey

170− _ualOAuthToken

171− (Just AltJSON)

87+ requestClient UsersAliasesList'{..}

88+ = go _ualUserKey _ualEvent (Just AltJSON)

89+ directoryService

17290 where go

173− = clientBuild

91+ = buildClient

17492 (Proxy :: Proxy UsersAliasesListResource)

175− rq

93+ mempty

gogol-admin-directory/gen/Network/Google/Resource/Directory/Users/Aliases/Watch.hs+10−93

@@ -34,14 +34,8 @@ module Network.Google.Resource.Directory.Users.Aliases.Watch

3434

3535 -- * Request Lenses

3636 , uawEvent

37− , uawQuotaUser

38− , uawPrettyPrint

39− , uawUserIP

4037 , uawPayload

41− , uawKey

42− , uawOAuthToken

4338 , uawUserKey

44− , uawFields

4539 ) where

4640

4741import Network.Google.Directory.Types

@@ -55,28 +49,16 @@ type UsersAliasesWatchResource =

5549 "aliases" :>

5650 "watch" :>

5751 QueryParam "event" UsersAliasesWatchEvent :>

58− QueryParam "quotaUser" Text :>

59− QueryParam "prettyPrint" Bool :>

60− QueryParam "userIp" Text :>

61− QueryParam "fields" Text :>

62− QueryParam "key" AuthKey :>

63− Header "Authorization" OAuthToken :>

64− QueryParam "alt" AltJSON :>

65− ReqBody '[JSON] Channel :> Post '[JSON] Channel

52+ QueryParam "alt" AltJSON :>

53+ ReqBody '[JSON] Channel :> Post '[JSON] Channel

6654

6755-- | Watch for changes in user aliases list

6856--

6957-- /See:/ 'usersAliasesWatch'' smart constructor.

7058data UsersAliasesWatch' = UsersAliasesWatch'

71− { _uawEvent :: !(Maybe UsersAliasesWatchEvent)

72− , _uawQuotaUser :: !(Maybe Text)

73− , _uawPrettyPrint :: !Bool

74− , _uawUserIP :: !(Maybe Text)

75− , _uawPayload :: !Channel

76− , _uawKey :: !(Maybe AuthKey)

77− , _uawOAuthToken :: !(Maybe OAuthToken)

78− , _uawUserKey :: !Text

79− , _uawFields :: !(Maybe Text)

59+ { _uawEvent :: !(Maybe UsersAliasesWatchEvent)

60+ , _uawPayload :: !Channel

61+ , _uawUserKey :: !Text

8062 } deriving (Eq,Show,Data,Typeable,Generic)

8163

8264-- | Creates a value of 'UsersAliasesWatch'' with the minimum fields required to make a request.

@@ -85,21 +67,9 @@ data UsersAliasesWatch' = UsersAliasesWatch'

8567--

8668-- * 'uawEvent'

8769--

88−-- * 'uawQuotaUser'

89−--

90−-- * 'uawPrettyPrint'

91−--

92−-- * 'uawUserIP'

93−--

9470-- * 'uawPayload'

9571--

96−-- * 'uawKey'

97−--

98−-- * 'uawOAuthToken'

99−--

10072-- * 'uawUserKey'

101−--

102−-- * 'uawFields'

10373usersAliasesWatch'

10474 :: Channel -- ^ 'payload'

10575 -> Text -- ^ 'userKey'

@@ -107,83 +77,30 @@ usersAliasesWatch'

10777usersAliasesWatch' pUawPayload_ pUawUserKey_ =

10878 UsersAliasesWatch'

10979 { _uawEvent = Nothing

110− , _uawQuotaUser = Nothing

111− , _uawPrettyPrint = True

112− , _uawUserIP = Nothing

11380 , _uawPayload = pUawPayload_

114− , _uawKey = Nothing

115− , _uawOAuthToken = Nothing

11681 , _uawUserKey = pUawUserKey_

117− , _uawFields = Nothing

11882 }

11983

12084-- | Event on which subscription is intended (if subscribing)

12185uawEvent :: Lens' UsersAliasesWatch' (Maybe UsersAliasesWatchEvent)

12286uawEvent = lens _uawEvent (\ s a -> s{_uawEvent = a})

12387

124−-- | Available to use for quota purposes for server-side applications. Can be

125−-- any arbitrary string assigned to a user, but should not exceed 40

126−-- characters. Overrides userIp if both are provided.

127−uawQuotaUser :: Lens' UsersAliasesWatch' (Maybe Text)

128−uawQuotaUser

129− = lens _uawQuotaUser (\ s a -> s{_uawQuotaUser = a})

130−

131−-- | Returns response with indentations and line breaks.

132−uawPrettyPrint :: Lens' UsersAliasesWatch' Bool

133−uawPrettyPrint

134− = lens _uawPrettyPrint

135− (\ s a -> s{_uawPrettyPrint = a})

136−

137−-- | IP address of the site where the request originates. Use this if you

138−-- want to enforce per-user limits.

139−uawUserIP :: Lens' UsersAliasesWatch' (Maybe Text)

140−uawUserIP

141− = lens _uawUserIP (\ s a -> s{_uawUserIP = a})

142−

14388-- | Multipart request metadata.

14489uawPayload :: Lens' UsersAliasesWatch' Channel

14590uawPayload

14691 = lens _uawPayload (\ s a -> s{_uawPayload = a})

14792

148−-- | API key. Your API key identifies your project and provides you with API

149−-- access, quota, and reports. Required unless you provide an OAuth 2.0

150−-- token.

151−uawKey :: Lens' UsersAliasesWatch' (Maybe AuthKey)

152−uawKey = lens _uawKey (\ s a -> s{_uawKey = a})

153−

154−-- | OAuth 2.0 token for the current user.

155−uawOAuthToken :: Lens' UsersAliasesWatch' (Maybe OAuthToken)

156−uawOAuthToken

157− = lens _uawOAuthToken

158− (\ s a -> s{_uawOAuthToken = a})

159−

16093-- | Email or immutable Id of the user

16194uawUserKey :: Lens' UsersAliasesWatch' Text

16295uawUserKey

16396 = lens _uawUserKey (\ s a -> s{_uawUserKey = a})

16497

165−-- | Selector specifying which fields to include in a partial response.

166−uawFields :: Lens' UsersAliasesWatch' (Maybe Text)

167−uawFields

168− = lens _uawFields (\ s a -> s{_uawFields = a})

169−

170−instance GoogleAuth UsersAliasesWatch' where

171− _AuthKey = uawKey . _Just

172− _AuthToken = uawOAuthToken . _Just

173−

17498instance GoogleRequest UsersAliasesWatch' where

17599 type Rs UsersAliasesWatch' = Channel

176− request = requestWith directoryRequest

177− requestWith rq UsersAliasesWatch'{..}

178− = go _uawUserKey _uawEvent _uawQuotaUser

179− (Just _uawPrettyPrint)

180− _uawUserIP

181− _uawFields

182− _uawKey

183− _uawOAuthToken

184− (Just AltJSON)

185− _uawPayload

100+ requestClient UsersAliasesWatch'{..}

101+ = go _uawUserKey _uawEvent (Just AltJSON) _uawPayload

102+ directoryService

186103 where go

187− = clientBuild

104+ = buildClient

188105 (Proxy :: Proxy UsersAliasesWatchResource)

189− rq

106+ mempty

gogol-admin-directory/gen/Network/Google/Resource/Directory/Users/Delete.hs+8−86

@@ -33,13 +33,7 @@ module Network.Google.Resource.Directory.Users.Delete

3333 , UsersDelete'

3434

3535 -- * Request Lenses

36− , udQuotaUser

37− , udPrettyPrint

38− , udUserIP

39− , udKey

40− , udOAuthToken

4136 , udUserKey

42− , udFields

4337 ) where

4438

4539import Network.Google.Directory.Types

@@ -50,109 +44,37 @@ import Network.Google.Prelude

5044type UsersDeleteResource =

5145 "users" :>

5246 Capture "userKey" Text :>

53− QueryParam "quotaUser" Text :>

54− QueryParam "prettyPrint" Bool :>

55− QueryParam "userIp" Text :>

56− QueryParam "fields" Text :>

57− QueryParam "key" AuthKey :>

58− Header "Authorization" OAuthToken :>

59− QueryParam "alt" AltJSON :> Delete '[JSON] ()

47+ QueryParam "alt" AltJSON :> Delete '[JSON] ()

6048

6149-- | Delete user

6250--

6351-- /See:/ 'usersDelete'' smart constructor.

64−data UsersDelete' = UsersDelete'

65− { _udQuotaUser :: !(Maybe Text)

66− , _udPrettyPrint :: !Bool

67− , _udUserIP :: !(Maybe Text)

68− , _udKey :: !(Maybe AuthKey)

69− , _udOAuthToken :: !(Maybe OAuthToken)

70− , _udUserKey :: !Text

71− , _udFields :: !(Maybe Text)

52+newtype UsersDelete' = UsersDelete'

53+ { _udUserKey :: Text

7254 } deriving (Eq,Show,Data,Typeable,Generic)

7355

7456-- | Creates a value of 'UsersDelete'' with the minimum fields required to make a request.

7557--

7658-- Use one of the following lenses to modify other fields as desired:

7759--

78−-- * 'udQuotaUser'

79−--

80−-- * 'udPrettyPrint'

81−--

82−-- * 'udUserIP'

83−--

84−-- * 'udKey'

85−--

86−-- * 'udOAuthToken'

87−--

8860-- * 'udUserKey'

89−--

90−-- * 'udFields'

9161usersDelete'

9262 :: Text -- ^ 'userKey'

9363 -> UsersDelete'

9464usersDelete' pUdUserKey_ =

9565 UsersDelete'

96− { _udQuotaUser = Nothing

97− , _udPrettyPrint = True

98− , _udUserIP = Nothing

99− , _udKey = Nothing

100− , _udOAuthToken = Nothing

101− , _udUserKey = pUdUserKey_

102− , _udFields = Nothing

66+ { _udUserKey = pUdUserKey_

10367 }

10468

105−-- | Available to use for quota purposes for server-side applications. Can be

106−-- any arbitrary string assigned to a user, but should not exceed 40

107−-- characters. Overrides userIp if both are provided.

108−udQuotaUser :: Lens' UsersDelete' (Maybe Text)

109−udQuotaUser

110− = lens _udQuotaUser (\ s a -> s{_udQuotaUser = a})

111−

112−-- | Returns response with indentations and line breaks.

113−udPrettyPrint :: Lens' UsersDelete' Bool

114−udPrettyPrint

115− = lens _udPrettyPrint

116− (\ s a -> s{_udPrettyPrint = a})

117−

118−-- | IP address of the site where the request originates. Use this if you

119−-- want to enforce per-user limits.

120−udUserIP :: Lens' UsersDelete' (Maybe Text)

121−udUserIP = lens _udUserIP (\ s a -> s{_udUserIP = a})

122−

123−-- | API key. Your API key identifies your project and provides you with API

124−-- access, quota, and reports. Required unless you provide an OAuth 2.0

125−-- token.

126−udKey :: Lens' UsersDelete' (Maybe AuthKey)

127−udKey = lens _udKey (\ s a -> s{_udKey = a})

128−

129−-- | OAuth 2.0 token for the current user.

130−udOAuthToken :: Lens' UsersDelete' (Maybe OAuthToken)

131−udOAuthToken

132− = lens _udOAuthToken (\ s a -> s{_udOAuthToken = a})

133−

13469-- | Email or immutable Id of the user

13570udUserKey :: Lens' UsersDelete' Text

13671udUserKey

13772 = lens _udUserKey (\ s a -> s{_udUserKey = a})

13873

139−-- | Selector specifying which fields to include in a partial response.

140−udFields :: Lens' UsersDelete' (Maybe Text)

141−udFields = lens _udFields (\ s a -> s{_udFields = a})

142−

143−instance GoogleAuth UsersDelete' where

144− _AuthKey = udKey . _Just

145− _AuthToken = udOAuthToken . _Just

146−

14774instance GoogleRequest UsersDelete' where

14875 type Rs UsersDelete' = ()

149− request = requestWith directoryRequest

150− requestWith rq UsersDelete'{..}

151− = go _udUserKey _udQuotaUser (Just _udPrettyPrint)

152− _udUserIP

153− _udFields

154− _udKey

155− _udOAuthToken

156− (Just AltJSON)

76+ requestClient UsersDelete'{..}

77+ = go _udUserKey (Just AltJSON) directoryService

15778 where go

158− = clientBuild (Proxy :: Proxy UsersDeleteResource) rq

79+ = buildClient (Proxy :: Proxy UsersDeleteResource)

80+ mempty

gogol-admin-directory/gen/Network/Google/Resource/Directory/Users/Get.hs+7−85

@@ -33,16 +33,10 @@ module Network.Google.Resource.Directory.Users.Get

3333 , UsersGet'

3434

3535 -- * Request Lenses

36− , ugQuotaUser

37− , ugPrettyPrint

3836 , ugViewType

3937 , ugCustomFieldMask

40− , ugUserIP

41− , ugKey

4238 , ugProjection

43− , ugOAuthToken

4439 , ugUserKey

45− , ugFields

4640 ) where

4741

4842import Network.Google.Directory.Types

@@ -56,83 +50,40 @@ type UsersGetResource =

5650 QueryParam "viewType" UsersGetViewType :>

5751 QueryParam "customFieldMask" Text :>

5852 QueryParam "projection" UsersGetProjection :>

59− QueryParam "quotaUser" Text :>

60− QueryParam "prettyPrint" Bool :>

61− QueryParam "userIp" Text :>

62− QueryParam "fields" Text :>

63− QueryParam "key" AuthKey :>

64− Header "Authorization" OAuthToken :>

65− QueryParam "alt" AltJSON :> Get '[JSON] User

53+ QueryParam "alt" AltJSON :> Get '[JSON] User

6654

6755-- | retrieve user

6856--

6957-- /See:/ 'usersGet'' smart constructor.

7058data UsersGet' = UsersGet'

71− { _ugQuotaUser :: !(Maybe Text)

72− , _ugPrettyPrint :: !Bool

73− , _ugViewType :: !UsersGetViewType

59+ { _ugViewType :: !UsersGetViewType

7460 , _ugCustomFieldMask :: !(Maybe Text)

75− , _ugUserIP :: !(Maybe Text)

76− , _ugKey :: !(Maybe AuthKey)

7761 , _ugProjection :: !UsersGetProjection

78− , _ugOAuthToken :: !(Maybe OAuthToken)

7962 , _ugUserKey :: !Text

80− , _ugFields :: !(Maybe Text)

8163 } deriving (Eq,Show,Data,Typeable,Generic)

8264

8365-- | Creates a value of 'UsersGet'' with the minimum fields required to make a request.

8466--

8567-- Use one of the following lenses to modify other fields as desired:

8668--

87−-- * 'ugQuotaUser'

88−--

89−-- * 'ugPrettyPrint'

90−--

9169-- * 'ugViewType'

9270--

9371-- * 'ugCustomFieldMask'

9472--

95−-- * 'ugUserIP'

96−--

97−-- * 'ugKey'

98−--

9973-- * 'ugProjection'

10074--

101−-- * 'ugOAuthToken'

102−--

10375-- * 'ugUserKey'

104−--

105−-- * 'ugFields'

10676usersGet'

10777 :: Text -- ^ 'userKey'

10878 -> UsersGet'

10979usersGet' pUgUserKey_ =

11080 UsersGet'

111− { _ugQuotaUser = Nothing

112− , _ugPrettyPrint = True

113− , _ugViewType = UGVTAdminView

81+ { _ugViewType = UGVTAdminView

11482 , _ugCustomFieldMask = Nothing

115− , _ugUserIP = Nothing

116− , _ugKey = Nothing

11783 , _ugProjection = UGPBasic

118− , _ugOAuthToken = Nothing

11984 , _ugUserKey = pUgUserKey_

120− , _ugFields = Nothing

12185 }

12286

123−-- | Available to use for quota purposes for server-side applications. Can be

124−-- any arbitrary string assigned to a user, but should not exceed 40

125−-- characters. Overrides userIp if both are provided.

126−ugQuotaUser :: Lens' UsersGet' (Maybe Text)

127−ugQuotaUser

128− = lens _ugQuotaUser (\ s a -> s{_ugQuotaUser = a})

129−

130−-- | Returns response with indentations and line breaks.

131−ugPrettyPrint :: Lens' UsersGet' Bool

132−ugPrettyPrint

133− = lens _ugPrettyPrint

134− (\ s a -> s{_ugPrettyPrint = a})

135−

13687-- | Whether to fetch the ADMIN_VIEW or DOMAIN_PUBLIC view of the user.

13788ugViewType :: Lens' UsersGet' UsersGetViewType

13889ugViewType

@@ -145,52 +96,23 @@ ugCustomFieldMask

14596 = lens _ugCustomFieldMask

14697 (\ s a -> s{_ugCustomFieldMask = a})

14798

148−-- | IP address of the site where the request originates. Use this if you

149−-- want to enforce per-user limits.

150−ugUserIP :: Lens' UsersGet' (Maybe Text)

151−ugUserIP = lens _ugUserIP (\ s a -> s{_ugUserIP = a})

152−

153−-- | API key. Your API key identifies your project and provides you with API

154−-- access, quota, and reports. Required unless you provide an OAuth 2.0

155−-- token.

156−ugKey :: Lens' UsersGet' (Maybe AuthKey)

157−ugKey = lens _ugKey (\ s a -> s{_ugKey = a})

158−

15999-- | What subset of fields to fetch for this user.

160100ugProjection :: Lens' UsersGet' UsersGetProjection

161101ugProjection

162102 = lens _ugProjection (\ s a -> s{_ugProjection = a})

163103

164−-- | OAuth 2.0 token for the current user.

165−ugOAuthToken :: Lens' UsersGet' (Maybe OAuthToken)

166−ugOAuthToken

167− = lens _ugOAuthToken (\ s a -> s{_ugOAuthToken = a})

168−

169104-- | Email or immutable Id of the user

170105ugUserKey :: Lens' UsersGet' Text

171106ugUserKey

172107 = lens _ugUserKey (\ s a -> s{_ugUserKey = a})

173108

174−-- | Selector specifying which fields to include in a partial response.

175−ugFields :: Lens' UsersGet' (Maybe Text)

176−ugFields = lens _ugFields (\ s a -> s{_ugFields = a})

177−

178−instance GoogleAuth UsersGet' where

179− _AuthKey = ugKey . _Just

180− _AuthToken = ugOAuthToken . _Just

181−

182109instance GoogleRequest UsersGet' where

183110 type Rs UsersGet' = User

184− request = requestWith directoryRequest

185− requestWith rq UsersGet'{..}

111+ requestClient UsersGet'{..}

186112 = go _ugUserKey (Just _ugViewType) _ugCustomFieldMask

187113 (Just _ugProjection)

188− _ugQuotaUser

189− (Just _ugPrettyPrint)

190− _ugUserIP

191− _ugFields

192− _ugKey

193− _ugOAuthToken

194114 (Just AltJSON)

115+ directoryService

195116 where go

196− = clientBuild (Proxy :: Proxy UsersGetResource) rq

117+ = buildClient (Proxy :: Proxy UsersGetResource)

118+ mempty

gogol-admin-directory/gen/Network/Google/Resource/Directory/Users/Insert.hs+9−87

@@ -33,13 +33,7 @@ module Network.Google.Resource.Directory.Users.Insert

3333 , UsersInsert'

3434

3535 -- * Request Lenses

36− , uiQuotaUser

37− , uiPrettyPrint

38− , uiUserIP

3936 , uiPayload

40− , uiKey

41− , uiOAuthToken

42− , uiFields

4337 ) where

4438

4539import Network.Google.Directory.Types

@@ -49,110 +43,38 @@ import Network.Google.Prelude

4943-- 'UsersInsert'' request conforms to.

5044type UsersInsertResource =

5145 "users" :>

52− QueryParam "quotaUser" Text :>

53− QueryParam "prettyPrint" Bool :>

54− QueryParam "userIp" Text :>

55− QueryParam "fields" Text :>

56− QueryParam "key" AuthKey :>

57− Header "Authorization" OAuthToken :>

58− QueryParam "alt" AltJSON :>

59− ReqBody '[JSON] User :> Post '[JSON] User

46+ QueryParam "alt" AltJSON :>

47+ ReqBody '[JSON] User :> Post '[JSON] User

6048

6149-- | create user.

6250--

6351-- /See:/ 'usersInsert'' smart constructor.

64−data UsersInsert' = UsersInsert'

65− { _uiQuotaUser :: !(Maybe Text)

66− , _uiPrettyPrint :: !Bool

67− , _uiUserIP :: !(Maybe Text)

68− , _uiPayload :: !User

69− , _uiKey :: !(Maybe AuthKey)

70− , _uiOAuthToken :: !(Maybe OAuthToken)

71− , _uiFields :: !(Maybe Text)

52+newtype UsersInsert' = UsersInsert'

53+ { _uiPayload :: User

7254 } deriving (Eq,Show,Data,Typeable,Generic)

7355

7456-- | Creates a value of 'UsersInsert'' with the minimum fields required to make a request.

7557--

7658-- Use one of the following lenses to modify other fields as desired:

7759--

78−-- * 'uiQuotaUser'

79−--

80−-- * 'uiPrettyPrint'

81−--

82−-- * 'uiUserIP'

83−--

8460-- * 'uiPayload'

85−--

86−-- * 'uiKey'

87−--

88−-- * 'uiOAuthToken'

89−--

90−-- * 'uiFields'

9161usersInsert'

9262 :: User -- ^ 'payload'

9363 -> UsersInsert'

9464usersInsert' pUiPayload_ =

9565 UsersInsert'

96− { _uiQuotaUser = Nothing

97− , _uiPrettyPrint = True

98− , _uiUserIP = Nothing

99− , _uiPayload = pUiPayload_

100− , _uiKey = Nothing

101− , _uiOAuthToken = Nothing

102− , _uiFields = Nothing

66+ { _uiPayload = pUiPayload_

10367 }

10468

105−-- | Available to use for quota purposes for server-side applications. Can be

106−-- any arbitrary string assigned to a user, but should not exceed 40

107−-- characters. Overrides userIp if both are provided.

108−uiQuotaUser :: Lens' UsersInsert' (Maybe Text)

109−uiQuotaUser

110− = lens _uiQuotaUser (\ s a -> s{_uiQuotaUser = a})

111−

112−-- | Returns response with indentations and line breaks.

113−uiPrettyPrint :: Lens' UsersInsert' Bool

114−uiPrettyPrint

115− = lens _uiPrettyPrint

116− (\ s a -> s{_uiPrettyPrint = a})

117−

118−-- | IP address of the site where the request originates. Use this if you

119−-- want to enforce per-user limits.

120−uiUserIP :: Lens' UsersInsert' (Maybe Text)

121−uiUserIP = lens _uiUserIP (\ s a -> s{_uiUserIP = a})

122−

12369-- | Multipart request metadata.

12470uiPayload :: Lens' UsersInsert' User

12571uiPayload

12672 = lens _uiPayload (\ s a -> s{_uiPayload = a})

12773

128−-- | API key. Your API key identifies your project and provides you with API

129−-- access, quota, and reports. Required unless you provide an OAuth 2.0

130−-- token.

131−uiKey :: Lens' UsersInsert' (Maybe AuthKey)

132−uiKey = lens _uiKey (\ s a -> s{_uiKey = a})

133−

134−-- | OAuth 2.0 token for the current user.

135−uiOAuthToken :: Lens' UsersInsert' (Maybe OAuthToken)

136−uiOAuthToken

137− = lens _uiOAuthToken (\ s a -> s{_uiOAuthToken = a})

138−

139−-- | Selector specifying which fields to include in a partial response.

140−uiFields :: Lens' UsersInsert' (Maybe Text)

141−uiFields = lens _uiFields (\ s a -> s{_uiFields = a})

142−

143−instance GoogleAuth UsersInsert' where

144− _AuthKey = uiKey . _Just

145− _AuthToken = uiOAuthToken . _Just

146−

14774instance GoogleRequest UsersInsert' where

14875 type Rs UsersInsert' = User

149− request = requestWith directoryRequest

150− requestWith rq UsersInsert'{..}

151− = go _uiQuotaUser (Just _uiPrettyPrint) _uiUserIP

152− _uiFields

153− _uiKey

154− _uiOAuthToken

155− (Just AltJSON)

156− _uiPayload

76+ requestClient UsersInsert'{..}

77+ = go (Just AltJSON) _uiPayload directoryService

15778 where go

158− = clientBuild (Proxy :: Proxy UsersInsertResource) rq

79+ = buildClient (Proxy :: Proxy UsersInsertResource)

80+ mempty

gogol-admin-directory/gen/Network/Google/Resource/Directory/Users/List.hs+5−84

@@ -34,23 +34,17 @@ module Network.Google.Resource.Directory.Users.List

3434

3535 -- * Request Lenses

3636 , ulEvent

37− , ulQuotaUser

38− , ulPrettyPrint

3937 , ulOrderBy

4038 , ulViewType

4139 , ulCustomFieldMask

42− , ulUserIP

4340 , ulDomain

4441 , ulShowDeleted

4542 , ulSortOrder

4643 , ulCustomer

47− , ulKey

4844 , ulQuery

4945 , ulProjection

5046 , ulPageToken

51− , ulOAuthToken

5247 , ulMaxResults

53− , ulFields

5448 ) where

5549

5650import Network.Google.Directory.Types

@@ -72,37 +66,24 @@ type UsersListResource =

7266 QueryParam "projection" UsersListProjection :>

7367 QueryParam "pageToken" Text :>

7468 QueryParam "maxResults" Int32 :>

75− QueryParam "quotaUser" Text :>

76− QueryParam "prettyPrint" Bool :>

77− QueryParam "userIp" Text :>

78− QueryParam "fields" Text :>

79− QueryParam "key" AuthKey :>

80− Header "Authorization" OAuthToken :>

81− QueryParam "alt" AltJSON :>

82− Get '[JSON] Users

69+ QueryParam "alt" AltJSON :> Get '[JSON] Users

8370

8471-- | Retrieve either deleted users or all users in a domain (paginated)

8572--

8673-- /See:/ 'usersList'' smart constructor.

8774data UsersList' = UsersList'

8875 { _ulEvent :: !(Maybe UsersListEvent)

89− , _ulQuotaUser :: !(Maybe Text)

90− , _ulPrettyPrint :: !Bool

9176 , _ulOrderBy :: !(Maybe UsersListOrderBy)

9277 , _ulViewType :: !UsersListViewType

9378 , _ulCustomFieldMask :: !(Maybe Text)

94− , _ulUserIP :: !(Maybe Text)

9579 , _ulDomain :: !(Maybe Text)

9680 , _ulShowDeleted :: !(Maybe Text)

9781 , _ulSortOrder :: !(Maybe UsersListSortOrder)

9882 , _ulCustomer :: !(Maybe Text)

99− , _ulKey :: !(Maybe AuthKey)

10083 , _ulQuery :: !(Maybe Text)

10184 , _ulProjection :: !UsersListProjection

10285 , _ulPageToken :: !(Maybe Text)

103− , _ulOAuthToken :: !(Maybe OAuthToken)

10486 , _ulMaxResults :: !(Maybe Int32)

105− , _ulFields :: !(Maybe Text)

10687 } deriving (Eq,Show,Data,Typeable,Generic)

10788

10889-- | Creates a value of 'UsersList'' with the minimum fields required to make a request.

@@ -111,18 +92,12 @@ data UsersList' = UsersList'

11192--

11293-- * 'ulEvent'

11394--

114−-- * 'ulQuotaUser'

115−--

116−-- * 'ulPrettyPrint'

117−--

11895-- * 'ulOrderBy'

11996--

12097-- * 'ulViewType'

12198--

12299-- * 'ulCustomFieldMask'

123100--

124−-- * 'ulUserIP'

125−--

126101-- * 'ulDomain'

127102--

128103-- * 'ulShowDeleted'

@@ -131,60 +106,35 @@ data UsersList' = UsersList'

131106--

132107-- * 'ulCustomer'

133108--

134−-- * 'ulKey'

135−--

136109-- * 'ulQuery'

137110--

138111-- * 'ulProjection'

139112--

140113-- * 'ulPageToken'

141114--

142−-- * 'ulOAuthToken'

143−--

144115-- * 'ulMaxResults'

145−--

146−-- * 'ulFields'

147116usersList'

148117 :: UsersList'

149118usersList' =

150119 UsersList'

151120 { _ulEvent = Nothing

152− , _ulQuotaUser = Nothing

153− , _ulPrettyPrint = True

154121 , _ulOrderBy = Nothing

155122 , _ulViewType = AdminView

156123 , _ulCustomFieldMask = Nothing

157− , _ulUserIP = Nothing

158124 , _ulDomain = Nothing

159125 , _ulShowDeleted = Nothing

160126 , _ulSortOrder = Nothing

161127 , _ulCustomer = Nothing

162− , _ulKey = Nothing

163128 , _ulQuery = Nothing

164129 , _ulProjection = ULPBasic

165130 , _ulPageToken = Nothing

166− , _ulOAuthToken = Nothing

167131 , _ulMaxResults = Nothing

168− , _ulFields = Nothing

169132 }

170133

171134-- | Event on which subscription is intended (if subscribing)

172135ulEvent :: Lens' UsersList' (Maybe UsersListEvent)

173136ulEvent = lens _ulEvent (\ s a -> s{_ulEvent = a})

174137

175−-- | Available to use for quota purposes for server-side applications. Can be

176−-- any arbitrary string assigned to a user, but should not exceed 40

177−-- characters. Overrides userIp if both are provided.

178−ulQuotaUser :: Lens' UsersList' (Maybe Text)

179−ulQuotaUser

180− = lens _ulQuotaUser (\ s a -> s{_ulQuotaUser = a})

181−

182−-- | Returns response with indentations and line breaks.

183−ulPrettyPrint :: Lens' UsersList' Bool

184−ulPrettyPrint

185− = lens _ulPrettyPrint

186− (\ s a -> s{_ulPrettyPrint = a})

187−

188138-- | Column to use for sorting results

189139ulOrderBy :: Lens' UsersList' (Maybe UsersListOrderBy)

190140ulOrderBy

@@ -202,11 +152,6 @@ ulCustomFieldMask

202152 = lens _ulCustomFieldMask

203153 (\ s a -> s{_ulCustomFieldMask = a})

204154

205−-- | IP address of the site where the request originates. Use this if you

206−-- want to enforce per-user limits.

207−ulUserIP :: Lens' UsersList' (Maybe Text)

208−ulUserIP = lens _ulUserIP (\ s a -> s{_ulUserIP = a})

209−

210155-- | Name of the domain. Fill this field to get users from only this domain.

211156-- To return all users in a multi-domain fill customer field instead.

212157ulDomain :: Lens' UsersList' (Maybe Text)

@@ -229,12 +174,6 @@ ulCustomer :: Lens' UsersList' (Maybe Text)

229174ulCustomer

230175 = lens _ulCustomer (\ s a -> s{_ulCustomer = a})

231176

232−-- | API key. Your API key identifies your project and provides you with API

233−-- access, quota, and reports. Required unless you provide an OAuth 2.0

234−-- token.

235−ulKey :: Lens' UsersList' (Maybe AuthKey)

236−ulKey = lens _ulKey (\ s a -> s{_ulKey = a})

237−

238177-- | Query string search. Should be of the form \"\". Complete documentation

239178-- is at

240179-- https:\/\/developers.google.com\/admin-sdk\/directory\/v1\/guides\/search-users

@@ -251,28 +190,14 @@ ulPageToken :: Lens' UsersList' (Maybe Text)

251190ulPageToken

252191 = lens _ulPageToken (\ s a -> s{_ulPageToken = a})

253192

254−-- | OAuth 2.0 token for the current user.

255−ulOAuthToken :: Lens' UsersList' (Maybe OAuthToken)

256−ulOAuthToken

257− = lens _ulOAuthToken (\ s a -> s{_ulOAuthToken = a})

258−

259193-- | Maximum number of results to return. Default is 100. Max allowed is 500

260194ulMaxResults :: Lens' UsersList' (Maybe Int32)

261195ulMaxResults

262196 = lens _ulMaxResults (\ s a -> s{_ulMaxResults = a})

263197

264−-- | Selector specifying which fields to include in a partial response.

265−ulFields :: Lens' UsersList' (Maybe Text)

266−ulFields = lens _ulFields (\ s a -> s{_ulFields = a})

267−

268−instance GoogleAuth UsersList' where

269− _AuthKey = ulKey . _Just

270− _AuthToken = ulOAuthToken . _Just

271−

272198instance GoogleRequest UsersList' where

273199 type Rs UsersList' = Users

274− request = requestWith directoryRequest

275− requestWith rq UsersList'{..}

200+ requestClient UsersList'{..}

276201 = go _ulEvent _ulOrderBy (Just _ulViewType)

277202 _ulCustomFieldMask

278203 _ulDomain

@@ -283,12 +208,8 @@ instance GoogleRequest UsersList' where

283208 (Just _ulProjection)

284209 _ulPageToken

285210 _ulMaxResults

286− _ulQuotaUser

287− (Just _ulPrettyPrint)

288− _ulUserIP

289− _ulFields

290− _ulKey

291− _ulOAuthToken

292211 (Just AltJSON)

212+ directoryService

293213 where go

294− = clientBuild (Proxy :: Proxy UsersListResource) rq

214+ = buildClient (Proxy :: Proxy UsersListResource)

215+ mempty

gogol-admin-directory/gen/Network/Google/Resource/Directory/Users/MakeAdmin.hs+10−92

@@ -33,14 +33,8 @@ module Network.Google.Resource.Directory.Users.MakeAdmin

3333 , UsersMakeAdmin'

3434

3535 -- * Request Lenses

36− , umaQuotaUser

37− , umaPrettyPrint

38− , umaUserIP

3936 , umaPayload

40− , umaKey

41− , umaOAuthToken

4237 , umaUserKey

43− , umaFields

4438 ) where

4539

4640import Network.Google.Directory.Types

@@ -52,125 +46,49 @@ type UsersMakeAdminResource =

5246 "users" :>

5347 Capture "userKey" Text :>

5448 "makeAdmin" :>

55− QueryParam "quotaUser" Text :>

56− QueryParam "prettyPrint" Bool :>

57− QueryParam "userIp" Text :>

58− QueryParam "fields" Text :>

59− QueryParam "key" AuthKey :>

60− Header "Authorization" OAuthToken :>

61− QueryParam "alt" AltJSON :>

62− ReqBody '[JSON] UserMakeAdmin :> Post '[JSON] ()

49+ QueryParam "alt" AltJSON :>

50+ ReqBody '[JSON] UserMakeAdmin :> Post '[JSON] ()

6351

6452-- | change admin status of a user

6553--

6654-- /See:/ 'usersMakeAdmin'' smart constructor.

6755data UsersMakeAdmin' = UsersMakeAdmin'

68− { _umaQuotaUser :: !(Maybe Text)

69− , _umaPrettyPrint :: !Bool

70− , _umaUserIP :: !(Maybe Text)

71− , _umaPayload :: !UserMakeAdmin

72− , _umaKey :: !(Maybe AuthKey)

73− , _umaOAuthToken :: !(Maybe OAuthToken)

74− , _umaUserKey :: !Text

75− , _umaFields :: !(Maybe Text)

56+ { _umaPayload :: !UserMakeAdmin

57+ , _umaUserKey :: !Text

7658 } deriving (Eq,Show,Data,Typeable,Generic)

7759

7860-- | Creates a value of 'UsersMakeAdmin'' with the minimum fields required to make a request.

7961--

8062-- Use one of the following lenses to modify other fields as desired:

8163--

82−-- * 'umaQuotaUser'

83−--

84−-- * 'umaPrettyPrint'

85−--

86−-- * 'umaUserIP'

87−--

8864-- * 'umaPayload'

8965--

90−-- * 'umaKey'

91−--

92−-- * 'umaOAuthToken'

93−--

9466-- * 'umaUserKey'

95−--

96−-- * 'umaFields'

9767usersMakeAdmin'

9868 :: UserMakeAdmin -- ^ 'payload'

9969 -> Text -- ^ 'userKey'

10070 -> UsersMakeAdmin'

10171usersMakeAdmin' pUmaPayload_ pUmaUserKey_ =

10272 UsersMakeAdmin'

103− { _umaQuotaUser = Nothing

104− , _umaPrettyPrint = True

105− , _umaUserIP = Nothing

106− , _umaPayload = pUmaPayload_

107− , _umaKey = Nothing

108− , _umaOAuthToken = Nothing

73+ { _umaPayload = pUmaPayload_

10974 , _umaUserKey = pUmaUserKey_

110− , _umaFields = Nothing

11175 }

11276

113−-- | Available to use for quota purposes for server-side applications. Can be

114−-- any arbitrary string assigned to a user, but should not exceed 40

115−-- characters. Overrides userIp if both are provided.

116−umaQuotaUser :: Lens' UsersMakeAdmin' (Maybe Text)

117−umaQuotaUser

118− = lens _umaQuotaUser (\ s a -> s{_umaQuotaUser = a})

119−

120−-- | Returns response with indentations and line breaks.

121−umaPrettyPrint :: Lens' UsersMakeAdmin' Bool

122−umaPrettyPrint

123− = lens _umaPrettyPrint

124− (\ s a -> s{_umaPrettyPrint = a})

125−

126−-- | IP address of the site where the request originates. Use this if you

127−-- want to enforce per-user limits.

128−umaUserIP :: Lens' UsersMakeAdmin' (Maybe Text)

129−umaUserIP

130− = lens _umaUserIP (\ s a -> s{_umaUserIP = a})

131−

13277-- | Multipart request metadata.

13378umaPayload :: Lens' UsersMakeAdmin' UserMakeAdmin

13479umaPayload

13580 = lens _umaPayload (\ s a -> s{_umaPayload = a})

13681

137−-- | API key. Your API key identifies your project and provides you with API

138−-- access, quota, and reports. Required unless you provide an OAuth 2.0

139−-- token.

140−umaKey :: Lens' UsersMakeAdmin' (Maybe AuthKey)

141−umaKey = lens _umaKey (\ s a -> s{_umaKey = a})

142−

143−-- | OAuth 2.0 token for the current user.

144−umaOAuthToken :: Lens' UsersMakeAdmin' (Maybe OAuthToken)

145−umaOAuthToken

146− = lens _umaOAuthToken

147− (\ s a -> s{_umaOAuthToken = a})

148−

14982-- | Email or immutable Id of the user as admin

15083umaUserKey :: Lens' UsersMakeAdmin' Text

15184umaUserKey

15285 = lens _umaUserKey (\ s a -> s{_umaUserKey = a})

15386

154−-- | Selector specifying which fields to include in a partial response.

155−umaFields :: Lens' UsersMakeAdmin' (Maybe Text)

156−umaFields

157− = lens _umaFields (\ s a -> s{_umaFields = a})

158−

159−instance GoogleAuth UsersMakeAdmin' where

160− _AuthKey = umaKey . _Just

161− _AuthToken = umaOAuthToken . _Just

162−

16387instance GoogleRequest UsersMakeAdmin' where

16488 type Rs UsersMakeAdmin' = ()

165− request = requestWith directoryRequest

166− requestWith rq UsersMakeAdmin'{..}

167− = go _umaUserKey _umaQuotaUser (Just _umaPrettyPrint)

168− _umaUserIP

169− _umaFields

170− _umaKey

171− _umaOAuthToken

172− (Just AltJSON)

173− _umaPayload

89+ requestClient UsersMakeAdmin'{..}

90+ = go _umaUserKey (Just AltJSON) _umaPayload

91+ directoryService

17492 where go

175− = clientBuild (Proxy :: Proxy UsersMakeAdminResource)

176− rq

93+ = buildClient (Proxy :: Proxy UsersMakeAdminResource)

94+ mempty

gogol-admin-directory/gen/Network/Google/Resource/Directory/Users/Patch.hs+10−88

@@ -33,14 +33,8 @@ module Network.Google.Resource.Directory.Users.Patch

3333 , UsersPatch'

3434

3535 -- * Request Lenses

36− , upQuotaUser

37− , upPrettyPrint

38− , upUserIP

3936 , upPayload

40− , upKey

41− , upOAuthToken

4237 , upUserKey

43− , upFields

4438 ) where

4539

4640import Network.Google.Directory.Types

@@ -51,122 +45,50 @@ import Network.Google.Prelude

5145type UsersPatchResource =

5246 "users" :>

5347 Capture "userKey" Text :>

54− QueryParam "quotaUser" Text :>

55− QueryParam "prettyPrint" Bool :>

56− QueryParam "userIp" Text :>

57− QueryParam "fields" Text :>

58− QueryParam "key" AuthKey :>

59− Header "Authorization" OAuthToken :>

60− QueryParam "alt" AltJSON :>

61− ReqBody '[JSON] User :> Patch '[JSON] User

48+ QueryParam "alt" AltJSON :>

49+ ReqBody '[JSON] User :> Patch '[JSON] User

6250

6351-- | update user. This method supports patch semantics.

6452--

6553-- /See:/ 'usersPatch'' smart constructor.

6654data UsersPatch' = UsersPatch'

67− { _upQuotaUser :: !(Maybe Text)

68− , _upPrettyPrint :: !Bool

69− , _upUserIP :: !(Maybe Text)

70− , _upPayload :: !User

71− , _upKey :: !(Maybe AuthKey)

72− , _upOAuthToken :: !(Maybe OAuthToken)

73− , _upUserKey :: !Text

74− , _upFields :: !(Maybe Text)

55+ { _upPayload :: !User

56+ , _upUserKey :: !Text

7557 } deriving (Eq,Show,Data,Typeable,Generic)

7658

7759-- | Creates a value of 'UsersPatch'' with the minimum fields required to make a request.

7860--

7961-- Use one of the following lenses to modify other fields as desired:

8062--

81−-- * 'upQuotaUser'

82−--

83−-- * 'upPrettyPrint'

84−--

85−-- * 'upUserIP'

86−--

8763-- * 'upPayload'

8864--

89−-- * 'upKey'

90−--

91−-- * 'upOAuthToken'

92−--

9365-- * 'upUserKey'

94−--

95−-- * 'upFields'

9666usersPatch'

9767 :: User -- ^ 'payload'

9868 -> Text -- ^ 'userKey'

9969 -> UsersPatch'

10070usersPatch' pUpPayload_ pUpUserKey_ =

10171 UsersPatch'

102− { _upQuotaUser = Nothing

103− , _upPrettyPrint = True

104− , _upUserIP = Nothing

105− , _upPayload = pUpPayload_

106− , _upKey = Nothing

107− , _upOAuthToken = Nothing

72+ { _upPayload = pUpPayload_

10873 , _upUserKey = pUpUserKey_

109− , _upFields = Nothing

11074 }

11175

112−-- | Available to use for quota purposes for server-side applications. Can be

113−-- any arbitrary string assigned to a user, but should not exceed 40

114−-- characters. Overrides userIp if both are provided.

115−upQuotaUser :: Lens' UsersPatch' (Maybe Text)

116−upQuotaUser

117− = lens _upQuotaUser (\ s a -> s{_upQuotaUser = a})

118−

119−-- | Returns response with indentations and line breaks.

120−upPrettyPrint :: Lens' UsersPatch' Bool

121−upPrettyPrint

122− = lens _upPrettyPrint

123− (\ s a -> s{_upPrettyPrint = a})

124−

125−-- | IP address of the site where the request originates. Use this if you

126−-- want to enforce per-user limits.

127−upUserIP :: Lens' UsersPatch' (Maybe Text)

128−upUserIP = lens _upUserIP (\ s a -> s{_upUserIP = a})

129−

13076-- | Multipart request metadata.

13177upPayload :: Lens' UsersPatch' User

13278upPayload

13379 = lens _upPayload (\ s a -> s{_upPayload = a})

13480

135−-- | API key. Your API key identifies your project and provides you with API

136−-- access, quota, and reports. Required unless you provide an OAuth 2.0

137−-- token.

138−upKey :: Lens' UsersPatch' (Maybe AuthKey)

139−upKey = lens _upKey (\ s a -> s{_upKey = a})

140−

141−-- | OAuth 2.0 token for the current user.

142−upOAuthToken :: Lens' UsersPatch' (Maybe OAuthToken)

143−upOAuthToken

144− = lens _upOAuthToken (\ s a -> s{_upOAuthToken = a})

145−

14681-- | Email or immutable Id of the user. If Id, it should match with id of

14782-- user object

14883upUserKey :: Lens' UsersPatch' Text

14984upUserKey

15085 = lens _upUserKey (\ s a -> s{_upUserKey = a})

15186

152−-- | Selector specifying which fields to include in a partial response.

153−upFields :: Lens' UsersPatch' (Maybe Text)

154−upFields = lens _upFields (\ s a -> s{_upFields = a})

155−

156−instance GoogleAuth UsersPatch' where

157− _AuthKey = upKey . _Just

158− _AuthToken = upOAuthToken . _Just

159−

16087instance GoogleRequest UsersPatch' where

16188 type Rs UsersPatch' = User

162− request = requestWith directoryRequest

163− requestWith rq UsersPatch'{..}

164− = go _upUserKey _upQuotaUser (Just _upPrettyPrint)

165− _upUserIP

166− _upFields

167− _upKey

168− _upOAuthToken

169− (Just AltJSON)

170− _upPayload

89+ requestClient UsersPatch'{..}

90+ = go _upUserKey (Just AltJSON) _upPayload

91+ directoryService

17192 where go

172− = clientBuild (Proxy :: Proxy UsersPatchResource) rq

93+ = buildClient (Proxy :: Proxy UsersPatchResource)

94+ mempty

gogol-admin-directory/gen/Network/Google/Resource/Directory/Users/Photos/Delete.hs+8−90

@@ -33,13 +33,7 @@ module Network.Google.Resource.Directory.Users.Photos.Delete

3333 , UsersPhotosDelete'

3434

3535 -- * Request Lenses

36− , updQuotaUser

37− , updPrettyPrint

38− , updUserIP

39− , updKey

40− , updOAuthToken

4136 , updUserKey

42− , updFields

4337 ) where

4438

4539import Network.Google.Directory.Types

@@ -52,114 +46,38 @@ type UsersPhotosDeleteResource =

5246 Capture "userKey" Text :>

5347 "photos" :>

5448 "thumbnail" :>

55− QueryParam "quotaUser" Text :>

56− QueryParam "prettyPrint" Bool :>

57− QueryParam "userIp" Text :>

58− QueryParam "fields" Text :>

59− QueryParam "key" AuthKey :>

60− Header "Authorization" OAuthToken :>

61− QueryParam "alt" AltJSON :> Delete '[JSON] ()

49+ QueryParam "alt" AltJSON :> Delete '[JSON] ()

6250

6351-- | Remove photos for the user

6452--

6553-- /See:/ 'usersPhotosDelete'' smart constructor.

66−data UsersPhotosDelete' = UsersPhotosDelete'

67− { _updQuotaUser :: !(Maybe Text)

68− , _updPrettyPrint :: !Bool

69− , _updUserIP :: !(Maybe Text)

70− , _updKey :: !(Maybe AuthKey)

71− , _updOAuthToken :: !(Maybe OAuthToken)

72− , _updUserKey :: !Text

73− , _updFields :: !(Maybe Text)

54+newtype UsersPhotosDelete' = UsersPhotosDelete'

55+ { _updUserKey :: Text

7456 } deriving (Eq,Show,Data,Typeable,Generic)

7557

7658-- | Creates a value of 'UsersPhotosDelete'' with the minimum fields required to make a request.

7759--

7860-- Use one of the following lenses to modify other fields as desired:

7961--

80−-- * 'updQuotaUser'

81−--

82−-- * 'updPrettyPrint'

83−--

84−-- * 'updUserIP'

85−--

86−-- * 'updKey'

87−--

88−-- * 'updOAuthToken'

89−--

9062-- * 'updUserKey'

91−--

92−-- * 'updFields'

9363usersPhotosDelete'

9464 :: Text -- ^ 'userKey'

9565 -> UsersPhotosDelete'

9666usersPhotosDelete' pUpdUserKey_ =

9767 UsersPhotosDelete'

98− { _updQuotaUser = Nothing

99− , _updPrettyPrint = True

100− , _updUserIP = Nothing

101− , _updKey = Nothing

102− , _updOAuthToken = Nothing

103− , _updUserKey = pUpdUserKey_

104− , _updFields = Nothing

68+ { _updUserKey = pUpdUserKey_

10569 }

10670

107−-- | Available to use for quota purposes for server-side applications. Can be

108−-- any arbitrary string assigned to a user, but should not exceed 40

109−-- characters. Overrides userIp if both are provided.

110−updQuotaUser :: Lens' UsersPhotosDelete' (Maybe Text)

111−updQuotaUser

112− = lens _updQuotaUser (\ s a -> s{_updQuotaUser = a})

113−

114−-- | Returns response with indentations and line breaks.

115−updPrettyPrint :: Lens' UsersPhotosDelete' Bool

116−updPrettyPrint

117− = lens _updPrettyPrint

118− (\ s a -> s{_updPrettyPrint = a})

119−

120−-- | IP address of the site where the request originates. Use this if you

121−-- want to enforce per-user limits.

122−updUserIP :: Lens' UsersPhotosDelete' (Maybe Text)

123−updUserIP

124− = lens _updUserIP (\ s a -> s{_updUserIP = a})

125−

126−-- | API key. Your API key identifies your project and provides you with API

127−-- access, quota, and reports. Required unless you provide an OAuth 2.0

128−-- token.

129−updKey :: Lens' UsersPhotosDelete' (Maybe AuthKey)

130−updKey = lens _updKey (\ s a -> s{_updKey = a})

131−

132−-- | OAuth 2.0 token for the current user.

133−updOAuthToken :: Lens' UsersPhotosDelete' (Maybe OAuthToken)

134−updOAuthToken

135− = lens _updOAuthToken

136− (\ s a -> s{_updOAuthToken = a})

137−

13871-- | Email or immutable Id of the user

13972updUserKey :: Lens' UsersPhotosDelete' Text

14073updUserKey

14174 = lens _updUserKey (\ s a -> s{_updUserKey = a})

14275

143−-- | Selector specifying which fields to include in a partial response.

144−updFields :: Lens' UsersPhotosDelete' (Maybe Text)

145−updFields

146− = lens _updFields (\ s a -> s{_updFields = a})

147−

148−instance GoogleAuth UsersPhotosDelete' where

149− _AuthKey = updKey . _Just

150− _AuthToken = updOAuthToken . _Just

151−

15276instance GoogleRequest UsersPhotosDelete' where

15377 type Rs UsersPhotosDelete' = ()

154− request = requestWith directoryRequest

155− requestWith rq UsersPhotosDelete'{..}

156− = go _updUserKey _updQuotaUser (Just _updPrettyPrint)

157− _updUserIP

158− _updFields

159− _updKey

160− _updOAuthToken

161− (Just AltJSON)

78+ requestClient UsersPhotosDelete'{..}

79+ = go _updUserKey (Just AltJSON) directoryService

16280 where go

163− = clientBuild

81+ = buildClient

16482 (Proxy :: Proxy UsersPhotosDeleteResource)

165− rq

83+ mempty

gogol-admin-directory/gen/Network/Google/Resource/Directory/Users/Photos/Get.hs+8−90

@@ -33,13 +33,7 @@ module Network.Google.Resource.Directory.Users.Photos.Get

3333 , UsersPhotosGet'

3434

3535 -- * Request Lenses

36− , upgQuotaUser

37− , upgPrettyPrint

38− , upgUserIP

39− , upgKey

40− , upgOAuthToken

4136 , upgUserKey

42− , upgFields

4337 ) where

4438

4539import Network.Google.Directory.Types

@@ -52,113 +46,37 @@ type UsersPhotosGetResource =

5246 Capture "userKey" Text :>

5347 "photos" :>

5448 "thumbnail" :>

55− QueryParam "quotaUser" Text :>

56− QueryParam "prettyPrint" Bool :>

57− QueryParam "userIp" Text :>

58− QueryParam "fields" Text :>

59− QueryParam "key" AuthKey :>

60− Header "Authorization" OAuthToken :>

61− QueryParam "alt" AltJSON :> Get '[JSON] UserPhoto

49+ QueryParam "alt" AltJSON :> Get '[JSON] UserPhoto

6250

6351-- | Retrieve photo of a user

6452--

6553-- /See:/ 'usersPhotosGet'' smart constructor.

66−data UsersPhotosGet' = UsersPhotosGet'

67− { _upgQuotaUser :: !(Maybe Text)

68− , _upgPrettyPrint :: !Bool

69− , _upgUserIP :: !(Maybe Text)

70− , _upgKey :: !(Maybe AuthKey)

71− , _upgOAuthToken :: !(Maybe OAuthToken)

72− , _upgUserKey :: !Text

73− , _upgFields :: !(Maybe Text)

54+newtype UsersPhotosGet' = UsersPhotosGet'

55+ { _upgUserKey :: Text

7456 } deriving (Eq,Show,Data,Typeable,Generic)

7557

7658-- | Creates a value of 'UsersPhotosGet'' with the minimum fields required to make a request.

7759--

7860-- Use one of the following lenses to modify other fields as desired:

7961--

80−-- * 'upgQuotaUser'

81−--

82−-- * 'upgPrettyPrint'

83−--

84−-- * 'upgUserIP'

85−--

86−-- * 'upgKey'

87−--

88−-- * 'upgOAuthToken'

89−--

9062-- * 'upgUserKey'

91−--

92−-- * 'upgFields'

9363usersPhotosGet'

9464 :: Text -- ^ 'userKey'

9565 -> UsersPhotosGet'

9666usersPhotosGet' pUpgUserKey_ =

9767 UsersPhotosGet'

98− { _upgQuotaUser = Nothing

99− , _upgPrettyPrint = True

100− , _upgUserIP = Nothing

101− , _upgKey = Nothing

102− , _upgOAuthToken = Nothing

103− , _upgUserKey = pUpgUserKey_

104− , _upgFields = Nothing

68+ { _upgUserKey = pUpgUserKey_

10569 }

10670

107−-- | Available to use for quota purposes for server-side applications. Can be

108−-- any arbitrary string assigned to a user, but should not exceed 40

109−-- characters. Overrides userIp if both are provided.

110−upgQuotaUser :: Lens' UsersPhotosGet' (Maybe Text)

111−upgQuotaUser

112− = lens _upgQuotaUser (\ s a -> s{_upgQuotaUser = a})

113−

114−-- | Returns response with indentations and line breaks.

115−upgPrettyPrint :: Lens' UsersPhotosGet' Bool

116−upgPrettyPrint

117− = lens _upgPrettyPrint

118− (\ s a -> s{_upgPrettyPrint = a})

119−

120−-- | IP address of the site where the request originates. Use this if you

121−-- want to enforce per-user limits.

122−upgUserIP :: Lens' UsersPhotosGet' (Maybe Text)

123−upgUserIP

124− = lens _upgUserIP (\ s a -> s{_upgUserIP = a})

125−

126−-- | API key. Your API key identifies your project and provides you with API

127−-- access, quota, and reports. Required unless you provide an OAuth 2.0

128−-- token.

129−upgKey :: Lens' UsersPhotosGet' (Maybe AuthKey)

130−upgKey = lens _upgKey (\ s a -> s{_upgKey = a})

131−

132−-- | OAuth 2.0 token for the current user.

133−upgOAuthToken :: Lens' UsersPhotosGet' (Maybe OAuthToken)

134−upgOAuthToken

135− = lens _upgOAuthToken

136− (\ s a -> s{_upgOAuthToken = a})

137−

13871-- | Email or immutable Id of the user

13972upgUserKey :: Lens' UsersPhotosGet' Text

14073upgUserKey

14174 = lens _upgUserKey (\ s a -> s{_upgUserKey = a})

14275

143−-- | Selector specifying which fields to include in a partial response.

144−upgFields :: Lens' UsersPhotosGet' (Maybe Text)

145−upgFields

146− = lens _upgFields (\ s a -> s{_upgFields = a})

147−

148−instance GoogleAuth UsersPhotosGet' where

149− _AuthKey = upgKey . _Just

150− _AuthToken = upgOAuthToken . _Just

151−

15276instance GoogleRequest UsersPhotosGet' where

15377 type Rs UsersPhotosGet' = UserPhoto

154− request = requestWith directoryRequest

155− requestWith rq UsersPhotosGet'{..}

156− = go _upgUserKey _upgQuotaUser (Just _upgPrettyPrint)

157− _upgUserIP

158− _upgFields

159− _upgKey

160− _upgOAuthToken

161− (Just AltJSON)

78+ requestClient UsersPhotosGet'{..}

79+ = go _upgUserKey (Just AltJSON) directoryService

16280 where go

163− = clientBuild (Proxy :: Proxy UsersPhotosGetResource)

164− rq

81+ = buildClient (Proxy :: Proxy UsersPhotosGetResource)

82+ mempty

gogol-admin-directory/gen/Network/Google/Resource/Directory/Users/Photos/Patch.hs+10−92

@@ -33,14 +33,8 @@ module Network.Google.Resource.Directory.Users.Photos.Patch

3333 , UsersPhotosPatch'

3434

3535 -- * Request Lenses

36− , uppQuotaUser

37− , uppPrettyPrint

38− , uppUserIP

3936 , uppPayload

40− , uppKey

41− , uppOAuthToken

4237 , uppUserKey

43− , uppFields

4438 ) where

4539

4640import Network.Google.Directory.Types

@@ -53,126 +47,50 @@ type UsersPhotosPatchResource =

5347 Capture "userKey" Text :>

5448 "photos" :>

5549 "thumbnail" :>

56− QueryParam "quotaUser" Text :>

57− QueryParam "prettyPrint" Bool :>

58− QueryParam "userIp" Text :>

59− QueryParam "fields" Text :>

60− QueryParam "key" AuthKey :>

61− Header "Authorization" OAuthToken :>

62− QueryParam "alt" AltJSON :>

63− ReqBody '[JSON] UserPhoto :> Patch '[JSON] UserPhoto

50+ QueryParam "alt" AltJSON :>

51+ ReqBody '[JSON] UserPhoto :> Patch '[JSON] UserPhoto

6452

6553-- | Add a photo for the user. This method supports patch semantics.

6654--

6755-- /See:/ 'usersPhotosPatch'' smart constructor.

6856data UsersPhotosPatch' = UsersPhotosPatch'

69− { _uppQuotaUser :: !(Maybe Text)

70− , _uppPrettyPrint :: !Bool

71− , _uppUserIP :: !(Maybe Text)

72− , _uppPayload :: !UserPhoto

73− , _uppKey :: !(Maybe AuthKey)

74− , _uppOAuthToken :: !(Maybe OAuthToken)

75− , _uppUserKey :: !Text

76− , _uppFields :: !(Maybe Text)

57+ { _uppPayload :: !UserPhoto

58+ , _uppUserKey :: !Text

7759 } deriving (Eq,Show,Data,Typeable,Generic)

7860

7961-- | Creates a value of 'UsersPhotosPatch'' with the minimum fields required to make a request.

8062--

8163-- Use one of the following lenses to modify other fields as desired:

8264--

83−-- * 'uppQuotaUser'

84−--

85−-- * 'uppPrettyPrint'

86−--

87−-- * 'uppUserIP'

88−--

8965-- * 'uppPayload'

9066--

91−-- * 'uppKey'

92−--

93−-- * 'uppOAuthToken'

94−--

9567-- * 'uppUserKey'

96−--

97−-- * 'uppFields'

9868usersPhotosPatch'

9969 :: UserPhoto -- ^ 'payload'

10070 -> Text -- ^ 'userKey'

10171 -> UsersPhotosPatch'

10272usersPhotosPatch' pUppPayload_ pUppUserKey_ =

10373 UsersPhotosPatch'

104− { _uppQuotaUser = Nothing

105− , _uppPrettyPrint = True

106− , _uppUserIP = Nothing

107− , _uppPayload = pUppPayload_

108− , _uppKey = Nothing

109− , _uppOAuthToken = Nothing

74+ { _uppPayload = pUppPayload_

11075 , _uppUserKey = pUppUserKey_

111− , _uppFields = Nothing

11276 }

11377

114−-- | Available to use for quota purposes for server-side applications. Can be

115−-- any arbitrary string assigned to a user, but should not exceed 40

116−-- characters. Overrides userIp if both are provided.

117−uppQuotaUser :: Lens' UsersPhotosPatch' (Maybe Text)

118−uppQuotaUser

119− = lens _uppQuotaUser (\ s a -> s{_uppQuotaUser = a})

120−

121−-- | Returns response with indentations and line breaks.

122−uppPrettyPrint :: Lens' UsersPhotosPatch' Bool

123−uppPrettyPrint

124− = lens _uppPrettyPrint

125− (\ s a -> s{_uppPrettyPrint = a})

126−

127−-- | IP address of the site where the request originates. Use this if you

128−-- want to enforce per-user limits.

129−uppUserIP :: Lens' UsersPhotosPatch' (Maybe Text)

130−uppUserIP

131− = lens _uppUserIP (\ s a -> s{_uppUserIP = a})

132−

13378-- | Multipart request metadata.

13479uppPayload :: Lens' UsersPhotosPatch' UserPhoto

13580uppPayload

13681 = lens _uppPayload (\ s a -> s{_uppPayload = a})

13782

138−-- | API key. Your API key identifies your project and provides you with API

139−-- access, quota, and reports. Required unless you provide an OAuth 2.0

140−-- token.

141−uppKey :: Lens' UsersPhotosPatch' (Maybe AuthKey)

142−uppKey = lens _uppKey (\ s a -> s{_uppKey = a})

143−

144−-- | OAuth 2.0 token for the current user.

145−uppOAuthToken :: Lens' UsersPhotosPatch' (Maybe OAuthToken)

146−uppOAuthToken

147− = lens _uppOAuthToken

148− (\ s a -> s{_uppOAuthToken = a})

149−

15083-- | Email or immutable Id of the user

15184uppUserKey :: Lens' UsersPhotosPatch' Text

15285uppUserKey

15386 = lens _uppUserKey (\ s a -> s{_uppUserKey = a})

15487

155−-- | Selector specifying which fields to include in a partial response.

156−uppFields :: Lens' UsersPhotosPatch' (Maybe Text)

157−uppFields

158− = lens _uppFields (\ s a -> s{_uppFields = a})

159−

160−instance GoogleAuth UsersPhotosPatch' where

161− _AuthKey = uppKey . _Just

162− _AuthToken = uppOAuthToken . _Just

163−

16488instance GoogleRequest UsersPhotosPatch' where

16589 type Rs UsersPhotosPatch' = UserPhoto

166− request = requestWith directoryRequest

167− requestWith rq UsersPhotosPatch'{..}

168− = go _uppUserKey _uppQuotaUser (Just _uppPrettyPrint)

169− _uppUserIP

170− _uppFields

171− _uppKey

172− _uppOAuthToken

173− (Just AltJSON)

174− _uppPayload

90+ requestClient UsersPhotosPatch'{..}

91+ = go _uppUserKey (Just AltJSON) _uppPayload

92+ directoryService

17593 where go

176− = clientBuild

94+ = buildClient

17795 (Proxy :: Proxy UsersPhotosPatchResource)

178− rq

96+ mempty

gogol-admin-directory/gen/Network/Google/Resource/Directory/Users/Photos/Update.hs+10−92

@@ -33,14 +33,8 @@ module Network.Google.Resource.Directory.Users.Photos.Update

3333 , UsersPhotosUpdate'

3434

3535 -- * Request Lenses

36− , upuQuotaUser

37− , upuPrettyPrint

38− , upuUserIP

3936 , upuPayload

40− , upuKey

41− , upuOAuthToken

4237 , upuUserKey

43− , upuFields

4438 ) where

4539

4640import Network.Google.Directory.Types

@@ -53,126 +47,50 @@ type UsersPhotosUpdateResource =

5347 Capture "userKey" Text :>

5448 "photos" :>

5549 "thumbnail" :>

56− QueryParam "quotaUser" Text :>

57− QueryParam "prettyPrint" Bool :>

58− QueryParam "userIp" Text :>

59− QueryParam "fields" Text :>

60− QueryParam "key" AuthKey :>

61− Header "Authorization" OAuthToken :>

62− QueryParam "alt" AltJSON :>

63− ReqBody '[JSON] UserPhoto :> Put '[JSON] UserPhoto

50+ QueryParam "alt" AltJSON :>

51+ ReqBody '[JSON] UserPhoto :> Put '[JSON] UserPhoto

6452

6553-- | Add a photo for the user

6654--

6755-- /See:/ 'usersPhotosUpdate'' smart constructor.

6856data UsersPhotosUpdate' = UsersPhotosUpdate'

69− { _upuQuotaUser :: !(Maybe Text)

70− , _upuPrettyPrint :: !Bool

71− , _upuUserIP :: !(Maybe Text)

72− , _upuPayload :: !UserPhoto

73− , _upuKey :: !(Maybe AuthKey)

74− , _upuOAuthToken :: !(Maybe OAuthToken)

75− , _upuUserKey :: !Text

76− , _upuFields :: !(Maybe Text)

57+ { _upuPayload :: !UserPhoto

58+ , _upuUserKey :: !Text

7759 } deriving (Eq,Show,Data,Typeable,Generic)

7860

7961-- | Creates a value of 'UsersPhotosUpdate'' with the minimum fields required to make a request.

8062--

8163-- Use one of the following lenses to modify other fields as desired:

8264--

83−-- * 'upuQuotaUser'

84−--

85−-- * 'upuPrettyPrint'

86−--

87−-- * 'upuUserIP'

88−--

8965-- * 'upuPayload'

9066--

91−-- * 'upuKey'

92−--

93−-- * 'upuOAuthToken'

94−--

9567-- * 'upuUserKey'

96−--

97−-- * 'upuFields'

9868usersPhotosUpdate'

9969 :: UserPhoto -- ^ 'payload'

10070 -> Text -- ^ 'userKey'

10171 -> UsersPhotosUpdate'

10272usersPhotosUpdate' pUpuPayload_ pUpuUserKey_ =

10373 UsersPhotosUpdate'

104− { _upuQuotaUser = Nothing

105− , _upuPrettyPrint = True

106− , _upuUserIP = Nothing

107− , _upuPayload = pUpuPayload_

108− , _upuKey = Nothing

109− , _upuOAuthToken = Nothing

74+ { _upuPayload = pUpuPayload_

11075 , _upuUserKey = pUpuUserKey_

111− , _upuFields = Nothing

11276 }

11377

114−-- | Available to use for quota purposes for server-side applications. Can be

115−-- any arbitrary string assigned to a user, but should not exceed 40

116−-- characters. Overrides userIp if both are provided.

117−upuQuotaUser :: Lens' UsersPhotosUpdate' (Maybe Text)

118−upuQuotaUser

119− = lens _upuQuotaUser (\ s a -> s{_upuQuotaUser = a})

120−

121−-- | Returns response with indentations and line breaks.

122−upuPrettyPrint :: Lens' UsersPhotosUpdate' Bool

123−upuPrettyPrint

124− = lens _upuPrettyPrint

125− (\ s a -> s{_upuPrettyPrint = a})

126−

127−-- | IP address of the site where the request originates. Use this if you

128−-- want to enforce per-user limits.

129−upuUserIP :: Lens' UsersPhotosUpdate' (Maybe Text)

130−upuUserIP

131− = lens _upuUserIP (\ s a -> s{_upuUserIP = a})

132−

13378-- | Multipart request metadata.

13479upuPayload :: Lens' UsersPhotosUpdate' UserPhoto

13580upuPayload

13681 = lens _upuPayload (\ s a -> s{_upuPayload = a})

13782

138−-- | API key. Your API key identifies your project and provides you with API

139−-- access, quota, and reports. Required unless you provide an OAuth 2.0

140−-- token.

141−upuKey :: Lens' UsersPhotosUpdate' (Maybe AuthKey)

142−upuKey = lens _upuKey (\ s a -> s{_upuKey = a})

143−

144−-- | OAuth 2.0 token for the current user.

145−upuOAuthToken :: Lens' UsersPhotosUpdate' (Maybe OAuthToken)

146−upuOAuthToken

147− = lens _upuOAuthToken

148− (\ s a -> s{_upuOAuthToken = a})

149−

15083-- | Email or immutable Id of the user

15184upuUserKey :: Lens' UsersPhotosUpdate' Text

15285upuUserKey

15386 = lens _upuUserKey (\ s a -> s{_upuUserKey = a})

15487

155−-- | Selector specifying which fields to include in a partial response.

156−upuFields :: Lens' UsersPhotosUpdate' (Maybe Text)

157−upuFields

158− = lens _upuFields (\ s a -> s{_upuFields = a})

159−

160−instance GoogleAuth UsersPhotosUpdate' where

161− _AuthKey = upuKey . _Just

162− _AuthToken = upuOAuthToken . _Just

163−

16488instance GoogleRequest UsersPhotosUpdate' where

16589 type Rs UsersPhotosUpdate' = UserPhoto

166− request = requestWith directoryRequest

167− requestWith rq UsersPhotosUpdate'{..}

168− = go _upuUserKey _upuQuotaUser (Just _upuPrettyPrint)

169− _upuUserIP

170− _upuFields

171− _upuKey

172− _upuOAuthToken

173− (Just AltJSON)

174− _upuPayload

90+ requestClient UsersPhotosUpdate'{..}

91+ = go _upuUserKey (Just AltJSON) _upuPayload

92+ directoryService

17593 where go

176− = clientBuild

94+ = buildClient

17795 (Proxy :: Proxy UsersPhotosUpdateResource)

178− rq

96+ mempty

gogol-admin-directory/gen/Network/Google/Resource/Directory/Users/Undelete.hs+10−88

@@ -33,14 +33,8 @@ module Network.Google.Resource.Directory.Users.Undelete

3333 , UsersUndelete'

3434

3535 -- * Request Lenses

36− , uQuotaUser

37− , uPrettyPrint

38− , uUserIP

3936 , uPayload

40− , uKey

41− , uOAuthToken

4237 , uUserKey

43− , uFields

4438 ) where

4539

4640import Network.Google.Directory.Types

@@ -52,119 +46,47 @@ type UsersUndeleteResource =

5246 "users" :>

5347 Capture "userKey" Text :>

5448 "undelete" :>

55− QueryParam "quotaUser" Text :>

56− QueryParam "prettyPrint" Bool :>

57− QueryParam "userIp" Text :>

58− QueryParam "fields" Text :>

59− QueryParam "key" AuthKey :>

60− Header "Authorization" OAuthToken :>

61− QueryParam "alt" AltJSON :>

62− ReqBody '[JSON] UserUndelete :> Post '[JSON] ()

49+ QueryParam "alt" AltJSON :>

50+ ReqBody '[JSON] UserUndelete :> Post '[JSON] ()

6351

6452-- | Undelete a deleted user

6553--

6654-- /See:/ 'usersUndelete'' smart constructor.

6755data UsersUndelete' = UsersUndelete'

68− { _uQuotaUser :: !(Maybe Text)

69− , _uPrettyPrint :: !Bool

70− , _uUserIP :: !(Maybe Text)

71− , _uPayload :: !UserUndelete

72− , _uKey :: !(Maybe AuthKey)

73− , _uOAuthToken :: !(Maybe OAuthToken)

74− , _uUserKey :: !Text

75− , _uFields :: !(Maybe Text)

56+ { _uPayload :: !UserUndelete

57+ , _uUserKey :: !Text

7658 } deriving (Eq,Show,Data,Typeable,Generic)

7759

7860-- | Creates a value of 'UsersUndelete'' with the minimum fields required to make a request.

7961--

8062-- Use one of the following lenses to modify other fields as desired:

8163--

82−-- * 'uQuotaUser'

83−--

84−-- * 'uPrettyPrint'

85−--

86−-- * 'uUserIP'

87−--

8864-- * 'uPayload'

8965--

90−-- * 'uKey'

91−--

92−-- * 'uOAuthToken'

93−--

9466-- * 'uUserKey'

95−--

96−-- * 'uFields'

9767usersUndelete'

9868 :: UserUndelete -- ^ 'payload'

9969 -> Text -- ^ 'userKey'

10070 -> UsersUndelete'

10171usersUndelete' pUPayload_ pUUserKey_ =

10272 UsersUndelete'

103− { _uQuotaUser = Nothing

104− , _uPrettyPrint = True

105− , _uUserIP = Nothing

106− , _uPayload = pUPayload_

107− , _uKey = Nothing

108− , _uOAuthToken = Nothing

73+ { _uPayload = pUPayload_

10974 , _uUserKey = pUUserKey_

110− , _uFields = Nothing

11175 }

11276

113−-- | Available to use for quota purposes for server-side applications. Can be

114−-- any arbitrary string assigned to a user, but should not exceed 40

115−-- characters. Overrides userIp if both are provided.

116−uQuotaUser :: Lens' UsersUndelete' (Maybe Text)

117−uQuotaUser

118− = lens _uQuotaUser (\ s a -> s{_uQuotaUser = a})

119−

120−-- | Returns response with indentations and line breaks.

121−uPrettyPrint :: Lens' UsersUndelete' Bool

122−uPrettyPrint

123− = lens _uPrettyPrint (\ s a -> s{_uPrettyPrint = a})

124−

125−-- | IP address of the site where the request originates. Use this if you

126−-- want to enforce per-user limits.

127−uUserIP :: Lens' UsersUndelete' (Maybe Text)

128−uUserIP = lens _uUserIP (\ s a -> s{_uUserIP = a})

129−

13077-- | Multipart request metadata.

13178uPayload :: Lens' UsersUndelete' UserUndelete

13279uPayload = lens _uPayload (\ s a -> s{_uPayload = a})

13380

134−-- | API key. Your API key identifies your project and provides you with API

135−-- access, quota, and reports. Required unless you provide an OAuth 2.0

136−-- token.

137−uKey :: Lens' UsersUndelete' (Maybe AuthKey)

138−uKey = lens _uKey (\ s a -> s{_uKey = a})

139−

140−-- | OAuth 2.0 token for the current user.

141−uOAuthToken :: Lens' UsersUndelete' (Maybe OAuthToken)

142−uOAuthToken

143− = lens _uOAuthToken (\ s a -> s{_uOAuthToken = a})

144−

14581-- | The immutable id of the user

14682uUserKey :: Lens' UsersUndelete' Text

14783uUserKey = lens _uUserKey (\ s a -> s{_uUserKey = a})

14884

149−-- | Selector specifying which fields to include in a partial response.

150−uFields :: Lens' UsersUndelete' (Maybe Text)

151−uFields = lens _uFields (\ s a -> s{_uFields = a})

152−

153−instance GoogleAuth UsersUndelete' where

154− _AuthKey = uKey . _Just

155− _AuthToken = uOAuthToken . _Just

156−

15785instance GoogleRequest UsersUndelete' where

15886 type Rs UsersUndelete' = ()

159− request = requestWith directoryRequest

160− requestWith rq UsersUndelete'{..}

161− = go _uUserKey _uQuotaUser (Just _uPrettyPrint)

162− _uUserIP

163− _uFields

164− _uKey

165− _uOAuthToken

166− (Just AltJSON)

167− _uPayload

87+ requestClient UsersUndelete'{..}

88+ = go _uUserKey (Just AltJSON) _uPayload

89+ directoryService

16890 where go

169− = clientBuild (Proxy :: Proxy UsersUndeleteResource)

170− rq

91+ = buildClient (Proxy :: Proxy UsersUndeleteResource)

92+ mempty

gogol-admin-directory/gen/Network/Google/Resource/Directory/Users/Update.hs+10−88

@@ -33,14 +33,8 @@ module Network.Google.Resource.Directory.Users.Update

3333 , UsersUpdate'

3434

3535 -- * Request Lenses

36− , uuQuotaUser

37− , uuPrettyPrint

38− , uuUserIP

3936 , uuPayload

40− , uuKey

41− , uuOAuthToken

4237 , uuUserKey

43− , uuFields

4438 ) where

4539

4640import Network.Google.Directory.Types

@@ -51,122 +45,50 @@ import Network.Google.Prelude

5145type UsersUpdateResource =

5246 "users" :>

5347 Capture "userKey" Text :>

54− QueryParam "quotaUser" Text :>

55− QueryParam "prettyPrint" Bool :>

56− QueryParam "userIp" Text :>

57− QueryParam "fields" Text :>

58− QueryParam "key" AuthKey :>

59− Header "Authorization" OAuthToken :>

60− QueryParam "alt" AltJSON :>

61− ReqBody '[JSON] User :> Put '[JSON] User

48+ QueryParam "alt" AltJSON :>

49+ ReqBody '[JSON] User :> Put '[JSON] User

6250

6351-- | update user

6452--

6553-- /See:/ 'usersUpdate'' smart constructor.

6654data UsersUpdate' = UsersUpdate'

67− { _uuQuotaUser :: !(Maybe Text)

68− , _uuPrettyPrint :: !Bool

69− , _uuUserIP :: !(Maybe Text)

70− , _uuPayload :: !User

71− , _uuKey :: !(Maybe AuthKey)

72− , _uuOAuthToken :: !(Maybe OAuthToken)

73− , _uuUserKey :: !Text

74− , _uuFields :: !(Maybe Text)

55+ { _uuPayload :: !User

56+ , _uuUserKey :: !Text

7557 } deriving (Eq,Show,Data,Typeable,Generic)

7658

7759-- | Creates a value of 'UsersUpdate'' with the minimum fields required to make a request.

7860--

7961-- Use one of the following lenses to modify other fields as desired:

8062--

81−-- * 'uuQuotaUser'

82−--

83−-- * 'uuPrettyPrint'

84−--

85−-- * 'uuUserIP'

86−--

8763-- * 'uuPayload'

8864--

89−-- * 'uuKey'

90−--

91−-- * 'uuOAuthToken'

92−--

9365-- * 'uuUserKey'

94−--

95−-- * 'uuFields'

9666usersUpdate'

9767 :: User -- ^ 'payload'

9868 -> Text -- ^ 'userKey'

9969 -> UsersUpdate'

10070usersUpdate' pUuPayload_ pUuUserKey_ =

10171 UsersUpdate'

102− { _uuQuotaUser = Nothing

103− , _uuPrettyPrint = True

104− , _uuUserIP = Nothing

105− , _uuPayload = pUuPayload_

106− , _uuKey = Nothing

107− , _uuOAuthToken = Nothing

72+ { _uuPayload = pUuPayload_

10873 , _uuUserKey = pUuUserKey_

109− , _uuFields = Nothing

11074 }

11175

112−-- | Available to use for quota purposes for server-side applications. Can be

113−-- any arbitrary string assigned to a user, but should not exceed 40

114−-- characters. Overrides userIp if both are provided.

115−uuQuotaUser :: Lens' UsersUpdate' (Maybe Text)

116−uuQuotaUser

117− = lens _uuQuotaUser (\ s a -> s{_uuQuotaUser = a})

118−

119−-- | Returns response with indentations and line breaks.

120−uuPrettyPrint :: Lens' UsersUpdate' Bool

121−uuPrettyPrint

122− = lens _uuPrettyPrint

123− (\ s a -> s{_uuPrettyPrint = a})

124−

125−-- | IP address of the site where the request originates. Use this if you

126−-- want to enforce per-user limits.

127−uuUserIP :: Lens' UsersUpdate' (Maybe Text)

128−uuUserIP = lens _uuUserIP (\ s a -> s{_uuUserIP = a})

129−

13076-- | Multipart request metadata.

13177uuPayload :: Lens' UsersUpdate' User

13278uuPayload

13379 = lens _uuPayload (\ s a -> s{_uuPayload = a})

13480

135−-- | API key. Your API key identifies your project and provides you with API

136−-- access, quota, and reports. Required unless you provide an OAuth 2.0

137−-- token.

138−uuKey :: Lens' UsersUpdate' (Maybe AuthKey)

139−uuKey = lens _uuKey (\ s a -> s{_uuKey = a})

140−

141−-- | OAuth 2.0 token for the current user.

142−uuOAuthToken :: Lens' UsersUpdate' (Maybe OAuthToken)

143−uuOAuthToken

144− = lens _uuOAuthToken (\ s a -> s{_uuOAuthToken = a})

145−

14681-- | Email or immutable Id of the user. If Id, it should match with id of

14782-- user object

14883uuUserKey :: Lens' UsersUpdate' Text

14984uuUserKey

15085 = lens _uuUserKey (\ s a -> s{_uuUserKey = a})

15186

152−-- | Selector specifying which fields to include in a partial response.

153−uuFields :: Lens' UsersUpdate' (Maybe Text)

154−uuFields = lens _uuFields (\ s a -> s{_uuFields = a})

155−

156−instance GoogleAuth UsersUpdate' where

157− _AuthKey = uuKey . _Just

158− _AuthToken = uuOAuthToken . _Just

159−

16087instance GoogleRequest UsersUpdate' where

16188 type Rs UsersUpdate' = User

162− request = requestWith directoryRequest

163− requestWith rq UsersUpdate'{..}

164− = go _uuUserKey _uuQuotaUser (Just _uuPrettyPrint)

165− _uuUserIP

166− _uuFields

167− _uuKey

168− _uuOAuthToken

169− (Just AltJSON)

170− _uuPayload

89+ requestClient UsersUpdate'{..}

90+ = go _uuUserKey (Just AltJSON) _uuPayload

91+ directoryService

17192 where go

172− = clientBuild (Proxy :: Proxy UsersUpdateResource) rq

93+ = buildClient (Proxy :: Proxy UsersUpdateResource)

94+ mempty

gogol-admin-directory/gen/Network/Google/Resource/Directory/Users/Watch.hs+7−85

This diff is too big to show here.

gogol-admin-directory/gen/Network/Google/Resource/Directory/VerificationCodes/Generate.hs+8−90

This diff is too big to show here.

gogol-admin-directory/gen/Network/Google/Resource/Directory/VerificationCodes/Invalidate.hs+8−91

This diff is too big to show here.

gogol-admin-directory/gen/Network/Google/Resource/Directory/VerificationCodes/List.hs+9−91

This diff is too big to show here.

gogol-admin-emailmigration/gen/Network/Google/EmailMigration.hs+4−1

This diff is too big to show here.

gogol-admin-emailmigration/gen/Network/Google/EmailMigration/Types.hs+14−5

This diff is too big to show here.

gogol-admin-emailmigration/gen/Network/Google/Resource/EmailMigration/Mail/Insert.hs+12−91

This diff is too big to show here.

gogol-admin-reports/gen/Network/Google/Reports.hs+4−1

This diff is too big to show here.

gogol-admin-reports/gen/Network/Google/Reports/Types.hs+18−5

This diff is too big to show here.

gogol-admin-reports/gen/Network/Google/Resource/Admin/Channels/Stop.hs+9−88

This diff is too big to show here.

gogol-admin-reports/gen/Network/Google/Resource/Reports/Activities/List.hs+8−87

This diff is too big to show here.

gogol-admin-reports/gen/Network/Google/Resource/Reports/Activities/Watch.hs+9−88

This diff is too big to show here.

gogol-admin-reports/gen/Network/Google/Resource/Reports/CustomerUsageReports/Get.hs+10−94

This diff is too big to show here.

gogol-admin-reports/gen/Network/Google/Resource/Reports/UserUsageReport/Get.hs+13−97

This diff is too big to show here.

gogol-adsense-host/gen/Network/Google/AdSenseHost.hs+4−1

This diff is too big to show here.

gogol-adsense-host/gen/Network/Google/AdSenseHost/Types.hs+13−5

This diff is too big to show here.

gogol-adsense-host/gen/Network/Google/Resource/AdSenseHost/Accounts/AdClients/Get.hs+9−92

This diff is too big to show here.

gogol-adsense-host/gen/Network/Google/Resource/AdSenseHost/Accounts/AdClients/List.hs+9−92

This diff is too big to show here.

gogol-adsense-host/gen/Network/Google/Resource/AdSenseHost/Accounts/AdUnits/Delete.hs+9−92

This diff is too big to show here.

gogol-adsense-host/gen/Network/Google/Resource/AdSenseHost/Accounts/AdUnits/Get.hs+9−92

This diff is too big to show here.

gogol-adsense-host/gen/Network/Google/Resource/AdSenseHost/Accounts/AdUnits/GetAdCode.hs+7−91

This diff is too big to show here.

gogol-adsense-host/gen/Network/Google/Resource/AdSenseHost/Accounts/AdUnits/Insert.hs+11−94

This diff is too big to show here.

gogol-adsense-host/gen/Network/Google/Resource/AdSenseHost/Accounts/AdUnits/List.hs+7−90

This diff is too big to show here.

gogol-adsense-host/gen/Network/Google/Resource/AdSenseHost/Accounts/AdUnits/Patch.hs+11−94

This diff is too big to show here.

gogol-adsense-host/gen/Network/Google/Resource/AdSenseHost/Accounts/AdUnits/Update.hs+11−94

This diff is too big to show here.

gogol-adsense-host/gen/Network/Google/Resource/AdSenseHost/Accounts/Get.hs+8−86

This diff is too big to show here.

gogol-adsense-host/gen/Network/Google/Resource/AdSenseHost/Accounts/List.hs+9−88

This diff is too big to show here.

gogol-adsense-host/gen/Network/Google/Resource/AdSenseHost/Accounts/Reports/Generate.hs+16−99

This diff is too big to show here.

gogol-adsense-host/gen/Network/Google/Resource/AdSenseHost/AdClients/Get.hs+8−91

This diff is too big to show here.

gogol-adsense-host/gen/Network/Google/Resource/AdSenseHost/AdClients/List.hs+9−91

This diff is too big to show here.

gogol-adsense-host/gen/Network/Google/Resource/AdSenseHost/AssociationSessions/Start.hs+8−90

This diff is too big to show here.

gogol-adsense-host/gen/Network/Google/Resource/AdSenseHost/AssociationSessions/Verify.hs+10−92

This diff is too big to show here.

gogol-adsense-host/gen/Network/Google/Resource/AdSenseHost/CustomChannels/Delete.hs+9−90

This diff is too big to show here.

gogol-adsense-host/gen/Network/Google/Resource/AdSenseHost/CustomChannels/Get.hs+8−89

This diff is too big to show here.

gogol-adsense-host/gen/Network/Google/Resource/AdSenseHost/CustomChannels/Insert.hs+11−94

This diff is too big to show here.

gogol-adsense-host/gen/Network/Google/Resource/AdSenseHost/CustomChannels/List.hs+10−92

This diff is too big to show here.

gogol-adsense-host/gen/Network/Google/Resource/AdSenseHost/CustomChannels/Patch.hs+9−91

This diff is too big to show here.

gogol-adsense-host/gen/Network/Google/Resource/AdSenseHost/CustomChannels/Update.hs+11−94

This diff is too big to show here.

gogol-adsense-host/gen/Network/Google/Resource/AdSenseHost/Reports/Generate.hs+15−95

This diff is too big to show here.

gogol-adsense-host/gen/Network/Google/Resource/AdSenseHost/URLChannels/Delete.hs+8−90

This diff is too big to show here.

gogol-adsense-host/gen/Network/Google/Resource/AdSenseHost/URLChannels/Insert.hs+10−93

This diff is too big to show here.

gogol-adsense-host/gen/Network/Google/Resource/AdSenseHost/URLChannels/List.hs+9−91

This diff is too big to show here.

gogol-adsense/gen/Network/Google/AdSense.hs+4−1

This diff is too big to show here.

gogol-adsense/gen/Network/Google/AdSense/Types.hs+18−5

This diff is too big to show here.

gogol-adsense/gen/Network/Google/Resource/AdSense/Accounts/AdClients/List.hs+9−92

This diff is too big to show here.

gogol-adsense/gen/Network/Google/Resource/AdSense/Accounts/AdUnits/CustomChannels/List.hs+12−97

This diff is too big to show here.

gogol-adsense/gen/Network/Google/Resource/AdSense/Accounts/AdUnits/Get.hs+9−92

This diff is too big to show here.

gogol-adsense/gen/Network/Google/Resource/AdSense/Accounts/AdUnits/GetAdCode.hs+9−93

This diff is too big to show here.

gogol-adsense/gen/Network/Google/Resource/AdSense/Accounts/AdUnits/List.hs+7−90

This diff is too big to show here.

gogol-adsense/gen/Network/Google/Resource/AdSense/Accounts/Alerts/Delete.hs+9−91

This diff is too big to show here.

gogol-adsense/gen/Network/Google/Resource/AdSense/Accounts/Alerts/List.hs+9−91

This diff is too big to show here.

gogol-adsense/gen/Network/Google/Resource/AdSense/Accounts/CustomChannels/AdUnits/List.hs+7−93

This diff is too big to show here.

gogol-adsense/gen/Network/Google/Resource/AdSense/Accounts/CustomChannels/Get.hs+7−91

This diff is too big to show here.

gogol-adsense/gen/Network/Google/Resource/AdSense/Accounts/CustomChannels/List.hs+11−94

This diff is too big to show here.

gogol-adsense/gen/Network/Google/Resource/AdSense/Accounts/Get.hs+9−87

This diff is too big to show here.

gogol-adsense/gen/Network/Google/Resource/AdSense/Accounts/List.hs+9−88

This diff is too big to show here.

gogol-adsense/gen/Network/Google/Resource/AdSense/Accounts/Payments/List.hs+8−91

This diff is too big to show here.

gogol-adsense/gen/Network/Google/Resource/AdSense/Accounts/Reports/Generate.hs+14−110

This diff is too big to show here.

gogol-adsense/gen/Network/Google/Resource/AdSense/Accounts/Reports/Saved/Generate.hs+8−92

This diff is too big to show here.

gogol-adsense/gen/Network/Google/Resource/AdSense/Accounts/Reports/Saved/List.hs+9−93

This diff is too big to show here.

gogol-adsense/gen/Network/Google/Resource/AdSense/Accounts/Savedadstyles/Get.hs+8−90

This diff is too big to show here.

gogol-adsense/gen/Network/Google/Resource/AdSense/Accounts/Savedadstyles/List.hs+9−91

This diff is too big to show here.

gogol-adsense/gen/Network/Google/Resource/AdSense/Accounts/URLChannels/List.hs+10−94

This diff is too big to show here.

gogol-adsense/gen/Network/Google/Resource/AdSense/AdClients/List.hs+9−91

This diff is too big to show here.

gogol-adsense/gen/Network/Google/Resource/AdSense/AdUnits/CustomChannels/List.hs+11−94

This diff is too big to show here.

gogol-adsense/gen/Network/Google/Resource/AdSense/AdUnits/Get.hs+9−90

This diff is too big to show here.

gogol-adsense/gen/Network/Google/Resource/AdSense/AdUnits/GetAdCode.hs+9−92

This diff is too big to show here.

gogol-adsense/gen/Network/Google/Resource/AdSense/AdUnits/List.hs+7−88

This diff is too big to show here.

gogol-adsense/gen/Network/Google/Resource/AdSense/Alerts/Delete.hs+8−87

This diff is too big to show here.

gogol-adsense/gen/Network/Google/Resource/AdSense/Alerts/List.hs+12−89

This diff is too big to show here.

gogol-adsense/gen/Network/Google/Resource/AdSense/CustomChannels/AdUnits/List.hs+7−90

This diff is too big to show here.

gogol-adsense/gen/Network/Google/Resource/AdSense/CustomChannels/Get.hs+8−89

This diff is too big to show here.

gogol-adsense/gen/Network/Google/Resource/AdSense/CustomChannels/List.hs+10−92

This diff is too big to show here.

gogol-adsense/gen/Network/Google/Resource/AdSense/Metadata/Dimensions/List.hs+9−93

This diff is too big to show here.

gogol-adsense/gen/Network/Google/Resource/AdSense/Metadata/Metrics/List.hs+9−93

This diff is too big to show here.

gogol-adsense/gen/Network/Google/Resource/AdSense/Payments/List.hs+9−90

This diff is too big to show here.

gogol-adsense/gen/Network/Google/Resource/AdSense/Reports/Generate.hs+14−106

This diff is too big to show here.

gogol-adsense/gen/Network/Google/Resource/AdSense/Reports/Saved/Generate.hs+8−90

This diff is too big to show here.

gogol-adsense/gen/Network/Google/Resource/AdSense/Reports/Saved/List.hs+9−91

This diff is too big to show here.

gogol-adsense/gen/Network/Google/Resource/AdSense/Savedadstyles/Get.hs+8−88

This diff is too big to show here.

gogol-adsense/gen/Network/Google/Resource/AdSense/Savedadstyles/List.hs+9−88

This diff is too big to show here.

gogol-adsense/gen/Network/Google/Resource/AdSense/URLChannels/List.hs+9−91

This diff is too big to show here.

gogol-affiliates/gen/Network/Google/Affiliates.hs+4−1

This diff is too big to show here.

gogol-affiliates/gen/Network/Google/Affiliates/Types.hs+6−5

This diff is too big to show here.

gogol-affiliates/gen/Network/Google/Resource/GAN/Advertisers/Get.hs+8−87

This diff is too big to show here.

gogol-affiliates/gen/Network/Google/Resource/GAN/Advertisers/List.hs+7−87

This diff is too big to show here.

gogol-affiliates/gen/Network/Google/Resource/GAN/CcOffers/List.hs+9−91

This diff is too big to show here.

gogol-affiliates/gen/Network/Google/Resource/GAN/Events/List.hs+6−86

This diff is too big to show here.

gogol-affiliates/gen/Network/Google/Resource/GAN/Links/Get.hs+10−88

This diff is too big to show here.

gogol-affiliates/gen/Network/Google/Resource/GAN/Links/Insert.hs+11−90

This diff is too big to show here.

gogol-affiliates/gen/Network/Google/Resource/GAN/Links/List.hs+6−85

This diff is too big to show here.

gogol-affiliates/gen/Network/Google/Resource/GAN/Publishers/Get.hs+8−87

This diff is too big to show here.

gogol-affiliates/gen/Network/Google/Resource/GAN/Publishers/List.hs+7−87

This diff is too big to show here.

gogol-affiliates/gen/Network/Google/Resource/GAN/Reports/Get.hs+6−85

This diff is too big to show here.

gogol-analytics/gen/Network/Google/Analytics.hs+4−1

This diff is too big to show here.

gogol-analytics/gen/Network/Google/Analytics/Types.hs+39−5

This diff is too big to show here.

gogol-analytics/gen/Network/Google/Resource/Analytics/Data/Ga/Get.hs+7−89

This diff is too big to show here.

gogol-analytics/gen/Network/Google/Resource/Analytics/Data/Mcf/Get.hs+7−89

This diff is too big to show here.

gogol-analytics/gen/Network/Google/Resource/Analytics/Data/Realtime/Get.hs+12−95

This diff is too big to show here.

gogol-analytics/gen/Network/Google/Resource/Analytics/Management/AccountSummaries/List.hs+10−94

This diff is too big to show here.

gogol-analytics/gen/Network/Google/Resource/Analytics/Management/AccountUserLinks/Delete.hs+9−93

This diff is too big to show here.

gogol-analytics/gen/Network/Google/Resource/Analytics/Management/AccountUserLinks/Insert.hs+11−96

This diff is too big to show here.

gogol-analytics/gen/Network/Google/Resource/Analytics/Management/AccountUserLinks/List.hs+10−94

This diff is too big to show here.

gogol-analytics/gen/Network/Google/Resource/Analytics/Management/AccountUserLinks/Update.hs+12−96

This diff is too big to show here.

gogol-analytics/gen/Network/Google/Resource/Analytics/Management/Accounts/List.hs+9−91

This diff is too big to show here.

gogol-analytics/gen/Network/Google/Resource/Analytics/Management/CustomDataSources/List.hs+8−92

This diff is too big to show here.

gogol-analytics/gen/Network/Google/Resource/Analytics/Management/CustomDimensions/Get.hs+8−92

This diff is too big to show here.

gogol-analytics/gen/Network/Google/Resource/Analytics/Management/CustomDimensions/Insert.hs+10−94

This diff is too big to show here.

gogol-analytics/gen/Network/Google/Resource/Analytics/Management/CustomDimensions/List.hs+8−92

This diff is too big to show here.

gogol-analytics/gen/Network/Google/Resource/Analytics/Management/CustomDimensions/Patch.hs+9−93

This diff is too big to show here.

gogol-analytics/gen/Network/Google/Resource/Analytics/Management/CustomDimensions/Update.hs+9−93

This diff is too big to show here.

gogol-analytics/gen/Network/Google/Resource/Analytics/Management/CustomMetrics/Get.hs+7−91

This diff is too big to show here.

gogol-analytics/gen/Network/Google/Resource/Analytics/Management/CustomMetrics/Insert.hs+10−94

This diff is too big to show here.

gogol-analytics/gen/Network/Google/Resource/Analytics/Management/CustomMetrics/List.hs+7−92

This diff is too big to show here.

gogol-analytics/gen/Network/Google/Resource/Analytics/Management/CustomMetrics/Patch.hs+9−93

This diff is too big to show here.

gogol-analytics/gen/Network/Google/Resource/Analytics/Management/CustomMetrics/Update.hs+9−93

This diff is too big to show here.

gogol-analytics/gen/Network/Google/Resource/Analytics/Management/Experiments/Delete.hs+7−90

This diff is too big to show here.

gogol-analytics/gen/Network/Google/Resource/Analytics/Management/Experiments/Get.hs+7−90

This diff is too big to show here.

gogol-analytics/gen/Network/Google/Resource/Analytics/Management/Experiments/Insert.hs+8−92

This diff is too big to show here.

gogol-analytics/gen/Network/Google/Resource/Analytics/Management/Experiments/List.hs+7−90

This diff is too big to show here.

gogol-analytics/gen/Network/Google/Resource/Analytics/Management/Experiments/Patch.hs+9−91

This diff is too big to show here.

gogol-analytics/gen/Network/Google/Resource/Analytics/Management/Experiments/Update.hs+8−92

This diff is too big to show here.

gogol-analytics/gen/Network/Google/Resource/Analytics/Management/Filters/Delete.hs+9−91

This diff is too big to show here.

gogol-analytics/gen/Network/Google/Resource/Analytics/Management/Filters/Get.hs+9−91

This diff is too big to show here.

gogol-analytics/gen/Network/Google/Resource/Analytics/Management/Filters/Insert.hs+10−93

This diff is too big to show here.

gogol-analytics/gen/Network/Google/Resource/Analytics/Management/Filters/List.hs+9−91

This diff is too big to show here.

gogol-analytics/gen/Network/Google/Resource/Analytics/Management/Filters/Patch.hs+11−93

This diff is too big to show here.

gogol-analytics/gen/Network/Google/Resource/Analytics/Management/Filters/Update.hs+11−93

This diff is too big to show here.

gogol-analytics/gen/Network/Google/Resource/Analytics/Management/Goals/Get.hs+7−89

This diff is too big to show here.

gogol-analytics/gen/Network/Google/Resource/Analytics/Management/Goals/Insert.hs+8−90

This diff is too big to show here.

gogol-analytics/gen/Network/Google/Resource/Analytics/Management/Goals/List.hs+7−90

This diff is too big to show here.

gogol-analytics/gen/Network/Google/Resource/Analytics/Management/Goals/Patch.hs+8−90

This diff is too big to show here.

gogol-analytics/gen/Network/Google/Resource/Analytics/Management/Goals/Update.hs+8−90

This diff is too big to show here.

gogol-analytics/gen/Network/Google/Resource/Analytics/Management/ProFileFilterLinks/Delete.hs+7−93

This diff is too big to show here.

gogol-analytics/gen/Network/Google/Resource/Analytics/Management/ProFileFilterLinks/Get.hs+8−93

This diff is too big to show here.

gogol-analytics/gen/Network/Google/Resource/Analytics/Management/ProFileFilterLinks/Insert.hs+9−95

This diff is too big to show here.

gogol-analytics/gen/Network/Google/Resource/Analytics/Management/ProFileFilterLinks/List.hs+8−93

This diff is too big to show here.

gogol-analytics/gen/Network/Google/Resource/Analytics/Management/ProFileFilterLinks/Patch.hs+9−94

This diff is too big to show here.

gogol-analytics/gen/Network/Google/Resource/Analytics/Management/ProFileFilterLinks/Update.hs+9−95

This diff is too big to show here.

gogol-analytics/gen/Network/Google/Resource/Analytics/Management/ProFileUserLinks/Delete.hs+7−92

This diff is too big to show here.

gogol-analytics/gen/Network/Google/Resource/Analytics/Management/ProFileUserLinks/Insert.hs+9−94

This diff is too big to show here.

gogol-analytics/gen/Network/Google/Resource/Analytics/Management/ProFileUserLinks/List.hs+8−93

This diff is too big to show here.

gogol-analytics/gen/Network/Google/Resource/Analytics/Management/ProFileUserLinks/Update.hs+9−94

This diff is too big to show here.

gogol-analytics/gen/Network/Google/Resource/Analytics/Management/ProFiles/Delete.hs+7−90

This diff is too big to show here.

gogol-analytics/gen/Network/Google/Resource/Analytics/Management/ProFiles/Get.hs+7−90

This diff is too big to show here.

gogol-analytics/gen/Network/Google/Resource/Analytics/Management/ProFiles/Insert.hs+9−92

This diff is too big to show here.

gogol-analytics/gen/Network/Google/Resource/Analytics/Management/ProFiles/List.hs+7−91

This diff is too big to show here.

gogol-analytics/gen/Network/Google/Resource/Analytics/Management/ProFiles/Patch.hs+8−92

This diff is too big to show here.

gogol-analytics/gen/Network/Google/Resource/Analytics/Management/ProFiles/Update.hs+8−91

This diff is too big to show here.

gogol-analytics/gen/Network/Google/Resource/Analytics/Management/Segments/List.hs+9−91

This diff is too big to show here.

gogol-analytics/gen/Network/Google/Resource/Analytics/Management/UnSampledReports/Get.hs+8−92

This diff is too big to show here.

gogol-analytics/gen/Network/Google/Resource/Analytics/Management/UnSampledReports/Insert.hs+9−93

This diff is too big to show here.

gogol-analytics/gen/Network/Google/Resource/Analytics/Management/UnSampledReports/List.hs+8−92

This diff is too big to show here.

gogol-analytics/gen/Network/Google/Resource/Analytics/Management/Uploads/DeleteUploadData.hs+10−94

This diff is too big to show here.

gogol-analytics/gen/Network/Google/Resource/Analytics/Management/Uploads/Get.hs+7−90

This diff is too big to show here.

gogol-analytics/gen/Network/Google/Resource/Analytics/Management/Uploads/List.hs+7−90

This diff is too big to show here.

gogol-analytics/gen/Network/Google/Resource/Analytics/Management/Uploads/UploadData.hs+9−93

This diff is too big to show here.

gogol-analytics/gen/Network/Google/Resource/Analytics/Management/WebProperties/Get.hs+8−91

This diff is too big to show here.

gogol-analytics/gen/Network/Google/Resource/Analytics/Management/WebProperties/Insert.hs+11−96

This diff is too big to show here.

gogol-analytics/gen/Network/Google/Resource/Analytics/Management/WebProperties/List.hs+9−94

This diff is too big to show here.

gogol-analytics/gen/Network/Google/Resource/Analytics/Management/WebProperties/Patch.hs+10−94

This diff is too big to show here.

gogol-analytics/gen/Network/Google/Resource/Analytics/Management/WebProperties/Update.hs+10−94

This diff is too big to show here.

gogol-analytics/gen/Network/Google/Resource/Analytics/Management/WebPropertyAdWordsLinks/Delete.hs+7−94

This diff is too big to show here.

gogol-analytics/gen/Network/Google/Resource/Analytics/Management/WebPropertyAdWordsLinks/Get.hs+8−95

This diff is too big to show here.

gogol-analytics/gen/Network/Google/Resource/Analytics/Management/WebPropertyAdWordsLinks/Insert.hs+9−96

This diff is too big to show here.

gogol-analytics/gen/Network/Google/Resource/Analytics/Management/WebPropertyAdWordsLinks/List.hs+8−95

This diff is too big to show here.

gogol-analytics/gen/Network/Google/Resource/Analytics/Management/WebPropertyAdWordsLinks/Patch.hs+9−96

This diff is too big to show here.

gogol-analytics/gen/Network/Google/Resource/Analytics/Management/WebPropertyAdWordsLinks/Update.hs+9−96

This diff is too big to show here.

gogol-analytics/gen/Network/Google/Resource/Analytics/Management/WebPropertyUserLinks/Delete.hs+7−92

This diff is too big to show here.

gogol-analytics/gen/Network/Google/Resource/Analytics/Management/WebPropertyUserLinks/Insert.hs+9−94

This diff is too big to show here.

gogol-analytics/gen/Network/Google/Resource/Analytics/Management/WebPropertyUserLinks/List.hs+8−94

This diff is too big to show here.

gogol-analytics/gen/Network/Google/Resource/Analytics/Management/WebPropertyUserLinks/Update.hs+9−94

This diff is too big to show here.

gogol-analytics/gen/Network/Google/Resource/Analytics/Metadata/Columns/List.hs+8−91

This diff is too big to show here.

gogol-analytics/gen/Network/Google/Resource/Analytics/Provisioning/CreateAccountTicket.hs+10−95

This diff is too big to show here.

gogol-android-enterprise/gen/Network/Google/AndroidEnterprise.hs+4−1

This diff is too big to show here.

gogol-android-enterprise/gen/Network/Google/AndroidEnterprise/Types.hs+13−5

This diff is too big to show here.

gogol-android-enterprise/gen/Network/Google/Resource/AndroidEnterprise/Collections/Delete.hs+8−87

This diff is too big to show here.

gogol-android-enterprise/gen/Network/Google/Resource/AndroidEnterprise/Collections/Get.hs+8−90

This diff is too big to show here.

gogol-android-enterprise/gen/Network/Google/Resource/AndroidEnterprise/Collections/Insert.hs+9−89

This diff is too big to show here.

gogol-android-enterprise/gen/Network/Google/Resource/AndroidEnterprise/Collections/List.hs+10−87

This diff is too big to show here.

gogol-android-enterprise/gen/Network/Google/Resource/AndroidEnterprise/Collections/Patch.hs+10−92

This diff is too big to show here.

gogol-android-enterprise/gen/Network/Google/Resource/AndroidEnterprise/Collections/Update.hs+9−88

This diff is too big to show here.

gogol-android-enterprise/gen/Network/Google/Resource/AndroidEnterprise/Collectionviewers/Delete.hs+7−89

This diff is too big to show here.

gogol-android-enterprise/gen/Network/Google/Resource/AndroidEnterprise/Collectionviewers/Get.hs+7−86

This diff is too big to show here.

gogol-android-enterprise/gen/Network/Google/Resource/AndroidEnterprise/Collectionviewers/List.hs+9−88

This diff is too big to show here.

gogol-android-enterprise/gen/Network/Google/Resource/AndroidEnterprise/Collectionviewers/Patch.hs+8−87

This diff is too big to show here.

gogol-android-enterprise/gen/Network/Google/Resource/AndroidEnterprise/Collectionviewers/Update.hs+8−90

This diff is too big to show here.

gogol-android-enterprise/gen/Network/Google/Resource/AndroidEnterprise/Devices/Get.hs+7−85

This diff is too big to show here.

gogol-android-enterprise/gen/Network/Google/Resource/AndroidEnterprise/Devices/GetState.hs+7−90

This diff is too big to show here.

gogol-android-enterprise/gen/Network/Google/Resource/AndroidEnterprise/Devices/List.hs+9−87

This diff is too big to show here.

gogol-android-enterprise/gen/Network/Google/Resource/AndroidEnterprise/Devices/SetState.hs+9−91

This diff is too big to show here.

gogol-android-enterprise/gen/Network/Google/Resource/AndroidEnterprise/Enterprises/Delete.hs+9−91

This diff is too big to show here.

gogol-android-enterprise/gen/Network/Google/Resource/AndroidEnterprise/Enterprises/Enroll.hs+10−90

This diff is too big to show here.

gogol-android-enterprise/gen/Network/Google/Resource/AndroidEnterprise/Enterprises/Get.hs+9−88

This diff is too big to show here.

gogol-android-enterprise/gen/Network/Google/Resource/AndroidEnterprise/Enterprises/Insert.hs+10−90

This diff is too big to show here.

gogol-android-enterprise/gen/Network/Google/Resource/AndroidEnterprise/Enterprises/List.hs+15−98

This diff is too big to show here.

gogol-android-enterprise/gen/Network/Google/Resource/AndroidEnterprise/Enterprises/SendTestPushNotification.hs+11−95

This diff is too big to show here.

gogol-android-enterprise/gen/Network/Google/Resource/AndroidEnterprise/Enterprises/SetAccount.hs+10−93

This diff is too big to show here.

gogol-android-enterprise/gen/Network/Google/Resource/AndroidEnterprise/Enterprises/Unenroll.hs+9−88

This diff is too big to show here.

gogol-android-enterprise/gen/Network/Google/Resource/AndroidEnterprise/Entitlements/Delete.hs+5−84

This diff is too big to show here.

gogol-android-enterprise/gen/Network/Google/Resource/AndroidEnterprise/Entitlements/Get.hs+5−83

This diff is too big to show here.

gogol-android-enterprise/gen/Network/Google/Resource/AndroidEnterprise/Entitlements/List.hs+9−88

This diff is too big to show here.

gogol-android-enterprise/gen/Network/Google/Resource/AndroidEnterprise/Entitlements/Patch.hs+7−86

This diff is too big to show here.

gogol-android-enterprise/gen/Network/Google/Resource/AndroidEnterprise/Entitlements/Update.hs+7−89

This diff is too big to show here.

gogol-android-enterprise/gen/Network/Google/Resource/AndroidEnterprise/GrouplicenseUsers/List.hs+8−90

This diff is too big to show here.

gogol-android-enterprise/gen/Network/Google/Resource/AndroidEnterprise/Grouplicenses/Get.hs+8−87

This diff is too big to show here.

gogol-android-enterprise/gen/Network/Google/Resource/AndroidEnterprise/Grouplicenses/List.hs+10−89

This diff is too big to show here.

gogol-android-enterprise/gen/Network/Google/Resource/AndroidEnterprise/Installs/Delete.hs+7−86

This diff is too big to show here.

gogol-android-enterprise/gen/Network/Google/Resource/AndroidEnterprise/Installs/Get.hs+7−85

This diff is too big to show here.

gogol-android-enterprise/gen/Network/Google/Resource/AndroidEnterprise/Installs/List.hs+8−87

This diff is too big to show here.

gogol-android-enterprise/gen/Network/Google/Resource/AndroidEnterprise/Installs/Patch.hs+8−88

This diff is too big to show here.

gogol-android-enterprise/gen/Network/Google/Resource/AndroidEnterprise/Installs/Update.hs+8−88

This diff is too big to show here.

gogol-android-enterprise/gen/Network/Google/Resource/AndroidEnterprise/Permissions/Get.hs+8−87

This diff is too big to show here.

gogol-android-enterprise/gen/Network/Google/Resource/AndroidEnterprise/Products/Approve.hs+10−89

This diff is too big to show here.

gogol-android-enterprise/gen/Network/Google/Resource/AndroidEnterprise/Products/GenerateApprovalURL.hs+8−92

This diff is too big to show here.

gogol-android-enterprise/gen/Network/Google/Resource/AndroidEnterprise/Products/Get.hs+7−84

This diff is too big to show here.

gogol-android-enterprise/gen/Network/Google/Resource/AndroidEnterprise/Products/GetAppRestrictionsSchema.hs+8−92

This diff is too big to show here.

gogol-android-enterprise/gen/Network/Google/Resource/AndroidEnterprise/Products/GetPermissions.hs+9−91

This diff is too big to show here.

gogol-android-enterprise/gen/Network/Google/Resource/AndroidEnterprise/Products/UpdatePermissions.hs+10−92

This diff is too big to show here.

gogol-android-enterprise/gen/Network/Google/Resource/AndroidEnterprise/Users/GenerateToken.hs+8−90

This diff is too big to show here.

gogol-android-enterprise/gen/Network/Google/Resource/AndroidEnterprise/Users/Get.hs+8−86

This diff is too big to show here.

gogol-android-enterprise/gen/Network/Google/Resource/AndroidEnterprise/Users/GetAvailableProductSet.hs+8−92

This diff is too big to show here.

gogol-android-enterprise/gen/Network/Google/Resource/AndroidEnterprise/Users/List.hs+7−85

This diff is too big to show here.

gogol-android-enterprise/gen/Network/Google/Resource/AndroidEnterprise/Users/RevokeToken.hs+8−90

This diff is too big to show here.

gogol-android-enterprise/gen/Network/Google/Resource/AndroidEnterprise/Users/SetAvailableProductSet.hs+9−94

This diff is too big to show here.

gogol-android-publisher/gen/Network/Google/AndroidPublisher.hs+4−1

This diff is too big to show here.

gogol-android-publisher/gen/Network/Google/AndroidPublisher/Types.hs+13−5

This diff is too big to show here.

gogol-android-publisher/gen/Network/Google/Resource/AndroidPublisher/Edits/APKListings/Delete.hs+7−91

This diff is too big to show here.

gogol-android-publisher/gen/Network/Google/Resource/AndroidPublisher/Edits/APKListings/Deleteall.hs+7−93

This diff is too big to show here.

gogol-android-publisher/gen/Network/Google/Resource/AndroidPublisher/Edits/APKListings/Get.hs+7−92

This diff is too big to show here.

gogol-android-publisher/gen/Network/Google/Resource/AndroidPublisher/Edits/APKListings/List.hs+8−92

This diff is too big to show here.

gogol-android-publisher/gen/Network/Google/Resource/AndroidPublisher/Edits/APKListings/Patch.hs+9−93

This diff is too big to show here.

gogol-android-publisher/gen/Network/Google/Resource/AndroidPublisher/Edits/APKListings/Update.hs+8−93

This diff is too big to show here.

gogol-android-publisher/gen/Network/Google/Resource/AndroidPublisher/Edits/APKs/Addexternallyhosted.hs+10−94

This diff is too big to show here.

gogol-android-publisher/gen/Network/Google/Resource/AndroidPublisher/Edits/APKs/List.hs+9−92

This diff is too big to show here.

gogol-android-publisher/gen/Network/Google/Resource/AndroidPublisher/Edits/APKs/Upload.hs+10−92

This diff is too big to show here.

gogol-android-publisher/gen/Network/Google/Resource/AndroidPublisher/Edits/Commit.hs+8−86

This diff is too big to show here.

gogol-android-publisher/gen/Network/Google/Resource/AndroidPublisher/Edits/Delete.hs+8−86

This diff is too big to show here.

gogol-android-publisher/gen/Network/Google/Resource/AndroidPublisher/Edits/Details/Get.hs+8−90

This diff is too big to show here.

gogol-android-publisher/gen/Network/Google/Resource/AndroidPublisher/Edits/Details/Patch.hs+10−92

This diff is too big to show here.

gogol-android-publisher/gen/Network/Google/Resource/AndroidPublisher/Edits/Details/Update.hs+9−91

This diff is too big to show here.

gogol-android-publisher/gen/Network/Google/Resource/AndroidPublisher/Edits/ExpansionFiles/Get.hs+7−91

This diff is too big to show here.

gogol-android-publisher/gen/Network/Google/Resource/AndroidPublisher/Edits/ExpansionFiles/Patch.hs+9−92

This diff is too big to show here.

gogol-android-publisher/gen/Network/Google/Resource/AndroidPublisher/Edits/ExpansionFiles/Update.hs+9−87

This diff is too big to show here.

gogol-android-publisher/gen/Network/Google/Resource/AndroidPublisher/Edits/ExpansionFiles/Upload.hs+9−92

This diff is too big to show here.

gogol-android-publisher/gen/Network/Google/Resource/AndroidPublisher/Edits/Get.hs+8−86

This diff is too big to show here.

gogol-android-publisher/gen/Network/Google/Resource/AndroidPublisher/Edits/Images/Delete.hs+7−89

This diff is too big to show here.

gogol-android-publisher/gen/Network/Google/Resource/AndroidPublisher/Edits/Images/Deleteall.hs+8−91

This diff is too big to show here.

gogol-android-publisher/gen/Network/Google/Resource/AndroidPublisher/Edits/Images/List.hs+8−90

This diff is too big to show here.

gogol-android-publisher/gen/Network/Google/Resource/AndroidPublisher/Edits/Images/Upload.hs+9−91

This diff is too big to show here.

gogol-android-publisher/gen/Network/Google/Resource/AndroidPublisher/Edits/Insert.hs+9−88

This diff is too big to show here.

gogol-android-publisher/gen/Network/Google/Resource/AndroidPublisher/Edits/Listings/Delete.hs+7−89

This diff is too big to show here.

gogol-android-publisher/gen/Network/Google/Resource/AndroidPublisher/Edits/Listings/Deleteall.hs+8−90

This diff is too big to show here.

gogol-android-publisher/gen/Network/Google/Resource/AndroidPublisher/Edits/Listings/Get.hs+7−89

This diff is too big to show here.

gogol-android-publisher/gen/Network/Google/Resource/AndroidPublisher/Edits/Listings/List.hs+9−91

This diff is too big to show here.

gogol-android-publisher/gen/Network/Google/Resource/AndroidPublisher/Edits/Listings/Patch.hs+8−90

This diff is too big to show here.

gogol-android-publisher/gen/Network/Google/Resource/AndroidPublisher/Edits/Listings/Update.hs+8−90

This diff is too big to show here.

gogol-android-publisher/gen/Network/Google/Resource/AndroidPublisher/Edits/Testers/Get.hs+7−90

This diff is too big to show here.

gogol-android-publisher/gen/Network/Google/Resource/AndroidPublisher/Edits/Testers/Patch.hs+8−91

This diff is too big to show here.

gogol-android-publisher/gen/Network/Google/Resource/AndroidPublisher/Edits/Testers/Update.hs+8−91

This diff is too big to show here.

gogol-android-publisher/gen/Network/Google/Resource/AndroidPublisher/Edits/Tracks/Get.hs+7−89

This diff is too big to show here.

gogol-android-publisher/gen/Network/Google/Resource/AndroidPublisher/Edits/Tracks/List.hs+9−91

This diff is too big to show here.

gogol-android-publisher/gen/Network/Google/Resource/AndroidPublisher/Edits/Tracks/Patch.hs+8−90

This diff is too big to show here.

gogol-android-publisher/gen/Network/Google/Resource/AndroidPublisher/Edits/Tracks/Update.hs+8−90

This diff is too big to show here.

gogol-android-publisher/gen/Network/Google/Resource/AndroidPublisher/Edits/Validate.hs+8−87

This diff is too big to show here.

gogol-android-publisher/gen/Network/Google/Resource/AndroidPublisher/Entitlements/List.hs+8−87

This diff is too big to show here.

gogol-android-publisher/gen/Network/Google/Resource/AndroidPublisher/InAppProducts/Batch.hs+11−94

This diff is too big to show here.

gogol-android-publisher/gen/Network/Google/Resource/AndroidPublisher/InAppProducts/Delete.hs+8−91

This diff is too big to show here.

gogol-android-publisher/gen/Network/Google/Resource/AndroidPublisher/InAppProducts/Get.hs+8−91

This diff is too big to show here.

gogol-android-publisher/gen/Network/Google/Resource/AndroidPublisher/InAppProducts/Insert.hs+9−92

This diff is too big to show here.

gogol-android-publisher/gen/Network/Google/Resource/AndroidPublisher/InAppProducts/List.hs+8−91

This diff is too big to show here.

gogol-android-publisher/gen/Network/Google/Resource/AndroidPublisher/InAppProducts/Patch.hs+9−92

This diff is too big to show here.

gogol-android-publisher/gen/Network/Google/Resource/AndroidPublisher/InAppProducts/Update.hs+9−92

This diff is too big to show here.

gogol-android-publisher/gen/Network/Google/Resource/AndroidPublisher/Purchases/Products/Get.hs+8−90

This diff is too big to show here.

gogol-android-publisher/gen/Network/Google/Resource/AndroidPublisher/Purchases/Subscriptions/Cancel.hs+7−90

This diff is too big to show here.

gogol-android-publisher/gen/Network/Google/Resource/AndroidPublisher/Purchases/Subscriptions/Defer.hs+9−93

This diff is too big to show here.

gogol-android-publisher/gen/Network/Google/Resource/AndroidPublisher/Purchases/Subscriptions/Get.hs+8−90

This diff is too big to show here.

gogol-android-publisher/gen/Network/Google/Resource/AndroidPublisher/Purchases/Subscriptions/Refund.hs+7−86

This diff is too big to show here.

gogol-android-publisher/gen/Network/Google/Resource/AndroidPublisher/Purchases/Subscriptions/Revoke.hs+7−90

This diff is too big to show here.

gogol-appengine/gen/Network/Google/AppEngine.hs+4−1

This diff is too big to show here.

gogol-appengine/gen/Network/Google/AppEngine/Types.hs+13−5

This diff is too big to show here.

gogol-appengine/gen/Network/Google/Resource/AppEngine/Apps/Get.hs+4−72

This diff is too big to show here.

gogol-appengine/gen/Network/Google/Resource/AppEngine/Apps/Modules/Delete.hs+6−75

This diff is too big to show here.

gogol-appengine/gen/Network/Google/Resource/AppEngine/Apps/Modules/Get.hs+5−75

This diff is too big to show here.

gogol-appengine/gen/Network/Google/Resource/AppEngine/Apps/Modules/List.hs+6−75

This diff is too big to show here.

gogol-appengine/gen/Network/Google/Resource/AppEngine/Apps/Modules/Patch.hs+7−76

This diff is too big to show here.

gogol-appengine/gen/Network/Google/Resource/AppEngine/Apps/Modules/Versions/Create.hs+7−77

This diff is too big to show here.

gogol-appengine/gen/Network/Google/Resource/AppEngine/Apps/Modules/Versions/Delete.hs+6−76

This diff is too big to show here.

gogol-appengine/gen/Network/Google/Resource/AppEngine/Apps/Modules/Versions/Get.hs+6−76

This diff is too big to show here.

gogol-appengine/gen/Network/Google/Resource/AppEngine/Apps/Modules/Versions/List.hs+6−78

This diff is too big to show here.

gogol-appengine/gen/Network/Google/Resource/AppEngine/Apps/Operations/Get.hs+5−75

This diff is too big to show here.

gogol-appengine/gen/Network/Google/Resource/AppEngine/Apps/Operations/List.hs+6−75

This diff is too big to show here.

gogol-apps-activity/gen/Network/Google/AppsActivity.hs+4−1

This diff is too big to show here.

gogol-apps-activity/gen/Network/Google/AppsActivity/Types.hs+33−5

This diff is too big to show here.

gogol-apps-activity/gen/Network/Google/Resource/AppsActivity/Activities/List.hs+8−87

This diff is too big to show here.

gogol-apps-calendar/gen/Network/Google/AppsCalendar.hs+4−1

This diff is too big to show here.

gogol-apps-calendar/gen/Network/Google/AppsCalendar/Types.hs+18−5

This diff is too big to show here.

gogol-apps-calendar/gen/Network/Google/Resource/Calendar/ACL/Delete.hs+9−87

This diff is too big to show here.

gogol-apps-calendar/gen/Network/Google/Resource/Calendar/ACL/Get.hs+8−87

This diff is too big to show here.

gogol-apps-calendar/gen/Network/Google/Resource/Calendar/ACL/Insert.hs+10−88

This diff is too big to show here.

gogol-apps-calendar/gen/Network/Google/Resource/Calendar/ACL/List.hs+4−83

This diff is too big to show here.

gogol-apps-calendar/gen/Network/Google/Resource/Calendar/ACL/Patch.hs+11−89

This diff is too big to show here.

gogol-apps-calendar/gen/Network/Google/Resource/Calendar/ACL/Update.hs+11−89

This diff is too big to show here.

gogol-apps-calendar/gen/Network/Google/Resource/Calendar/ACL/Watch.hs+6−85

This diff is too big to show here.

gogol-apps-calendar/gen/Network/Google/Resource/Calendar/CalendarList/Delete.hs+9−91

This diff is too big to show here.

gogol-apps-calendar/gen/Network/Google/Resource/Calendar/CalendarList/Get.hs+10−92

This diff is too big to show here.

gogol-apps-calendar/gen/Network/Google/Resource/Calendar/CalendarList/Insert.hs+10−93

This diff is too big to show here.

gogol-apps-calendar/gen/Network/Google/Resource/Calendar/CalendarList/List.hs+5−88

This diff is too big to show here.

gogol-apps-calendar/gen/Network/Google/Resource/Calendar/CalendarList/Patch.hs+10−92

This diff is too big to show here.

gogol-apps-calendar/gen/Network/Google/Resource/Calendar/CalendarList/Update.hs+10−92

This diff is too big to show here.

gogol-apps-calendar/gen/Network/Google/Resource/Calendar/CalendarList/Watch.hs+6−89

This diff is too big to show here.

gogol-apps-calendar/gen/Network/Google/Resource/Calendar/Calendars/Clear.hs+8−87

This diff is too big to show here.

gogol-apps-calendar/gen/Network/Google/Resource/Calendar/Calendars/Delete.hs+8−87

This diff is too big to show here.

gogol-apps-calendar/gen/Network/Google/Resource/Calendar/Calendars/Get.hs+14−92

This diff is too big to show here.

gogol-apps-calendar/gen/Network/Google/Resource/Calendar/Calendars/Insert.hs+9−88

This diff is too big to show here.

gogol-apps-calendar/gen/Network/Google/Resource/Calendar/Calendars/Patch.hs+10−89

This diff is too big to show here.

gogol-apps-calendar/gen/Network/Google/Resource/Calendar/Calendars/Update.hs+10−89

This diff is too big to show here.

gogol-apps-calendar/gen/Network/Google/Resource/Calendar/Channels/Stop.hs+9−88

This diff is too big to show here.

gogol-apps-calendar/gen/Network/Google/Resource/Calendar/Colors/Get.hs+9−89

This diff is too big to show here.

gogol-apps-calendar/gen/Network/Google/Resource/Calendar/Events/Delete.hs+7−86

This diff is too big to show here.

gogol-apps-calendar/gen/Network/Google/Resource/Calendar/Events/Get.hs+7−85

This diff is too big to show here.

gogol-apps-calendar/gen/Network/Google/Resource/Calendar/Events/Import.hs+9−86

This diff is too big to show here.

gogol-apps-calendar/gen/Network/Google/Resource/Calendar/Events/Insert.hs+8−90

This diff is too big to show here.

gogol-apps-calendar/gen/Network/Google/Resource/Calendar/Events/Instances.hs+7−87

This diff is too big to show here.

gogol-apps-calendar/gen/Network/Google/Resource/Calendar/Events/List.hs+6−87

This diff is too big to show here.

gogol-apps-calendar/gen/Network/Google/Resource/Calendar/Events/Move.hs+5−83

This diff is too big to show here.

gogol-apps-calendar/gen/Network/Google/Resource/Calendar/Events/Patch.hs+8−86

This diff is too big to show here.

gogol-apps-calendar/gen/Network/Google/Resource/Calendar/Events/QuickAdd.hs+7−89

This diff is too big to show here.

gogol-apps-calendar/gen/Network/Google/Resource/Calendar/Events/Update.hs+8−87

This diff is too big to show here.

gogol-apps-calendar/gen/Network/Google/Resource/Calendar/Events/Watch.hs+7−94

This diff is too big to show here.

gogol-apps-calendar/gen/Network/Google/Resource/Calendar/FreeBusy/Query.hs+10−92

This diff is too big to show here.

gogol-apps-calendar/gen/Network/Google/Resource/Calendar/Settings/Get.hs+8−86

This diff is too big to show here.

gogol-apps-calendar/gen/Network/Google/Resource/Calendar/Settings/List.hs+8−87

This diff is too big to show here.

gogol-apps-calendar/gen/Network/Google/Resource/Calendar/Settings/Watch.hs+10−89

This diff is too big to show here.

gogol-apps-licensing/gen/Network/Google/AppsLicensing.hs+4−1

This diff is too big to show here.

gogol-apps-licensing/gen/Network/Google/AppsLicensing/Types.hs+13−5

This diff is too big to show here.

gogol-apps-licensing/gen/Network/Google/Resource/Licensing/LicenseAssignments/Delete.hs+10−91

This diff is too big to show here.

gogol-apps-licensing/gen/Network/Google/Resource/Licensing/LicenseAssignments/Get.hs+11−92

This diff is too big to show here.

gogol-apps-licensing/gen/Network/Google/Resource/Licensing/LicenseAssignments/Insert.hs+12−94

This diff is too big to show here.

gogol-apps-licensing/gen/Network/Google/Resource/Licensing/LicenseAssignments/ListForProduct.hs+11−95

This diff is too big to show here.

gogol-apps-licensing/gen/Network/Google/Resource/Licensing/LicenseAssignments/ListForProductAndSKU.hs+12−99

This diff is too big to show here.

gogol-apps-licensing/gen/Network/Google/Resource/Licensing/LicenseAssignments/Patch.hs+13−94

This diff is too big to show here.

gogol-apps-licensing/gen/Network/Google/Resource/Licensing/LicenseAssignments/Update.hs+13−94

This diff is too big to show here.

gogol-apps-reseller/gen/Network/Google/AppsReseller.hs+4−1

This diff is too big to show here.

gogol-apps-reseller/gen/Network/Google/AppsReseller/Types.hs+18−5

This diff is too big to show here.

gogol-apps-reseller/gen/Network/Google/Resource/Reseller/Customers/Get.hs+8−87

This diff is too big to show here.

gogol-apps-reseller/gen/Network/Google/Resource/Reseller/Customers/Insert.hs+9−89

This diff is too big to show here.

gogol-apps-reseller/gen/Network/Google/Resource/Reseller/Customers/Patch.hs+10−89

This diff is too big to show here.

gogol-apps-reseller/gen/Network/Google/Resource/Reseller/Customers/Update.hs+10−89

This diff is too big to show here.

gogol-apps-reseller/gen/Network/Google/Resource/Reseller/Subscriptions/Activate.hs+8−87

This diff is too big to show here.

gogol-apps-reseller/gen/Network/Google/Resource/Reseller/Subscriptions/ChangePlan.hs+10−92

This diff is too big to show here.

gogol-apps-reseller/gen/Network/Google/Resource/Reseller/Subscriptions/ChangeRenewalSettings.hs+9−94

This diff is too big to show here.

gogol-apps-reseller/gen/Network/Google/Resource/Reseller/Subscriptions/ChangeSeats.hs+9−91

This diff is too big to show here.

gogol-apps-reseller/gen/Network/Google/Resource/Reseller/Subscriptions/Delete.hs+7−87

This diff is too big to show here.

gogol-apps-reseller/gen/Network/Google/Resource/Reseller/Subscriptions/Get.hs+8−87

This diff is too big to show here.

gogol-apps-reseller/gen/Network/Google/Resource/Reseller/Subscriptions/Insert.hs+10−88

This diff is too big to show here.

gogol-apps-reseller/gen/Network/Google/Resource/Reseller/Subscriptions/List.hs+7−87

This diff is too big to show here.

gogol-apps-reseller/gen/Network/Google/Resource/Reseller/Subscriptions/StartPaidService.hs+7−91

This diff is too big to show here.

gogol-apps-reseller/gen/Network/Google/Resource/Reseller/Subscriptions/Suspend.hs+8−87

This diff is too big to show here.

gogol-apps-tasks/gen/Network/Google/AppsTasks.hs+4−1

This diff is too big to show here.

gogol-apps-tasks/gen/Network/Google/AppsTasks/Types.hs+18−5

This diff is too big to show here.

gogol-apps-tasks/gen/Network/Google/Resource/Tasks/TaskLists/Delete.hs+8−91

This diff is too big to show here.

gogol-apps-tasks/gen/Network/Google/Resource/Tasks/TaskLists/Get.hs+8−91

This diff is too big to show here.

gogol-apps-tasks/gen/Network/Google/Resource/Tasks/TaskLists/Insert.hs+9−91

This diff is too big to show here.

gogol-apps-tasks/gen/Network/Google/Resource/Tasks/TaskLists/List.hs+9−91

This diff is too big to show here.

gogol-apps-tasks/gen/Network/Google/Resource/Tasks/TaskLists/Patch.hs+10−93

This diff is too big to show here.

gogol-apps-tasks/gen/Network/Google/Resource/Tasks/TaskLists/Update.hs+10−93

This diff is too big to show here.

gogol-apps-tasks/gen/Network/Google/Resource/Tasks/Tasks/Clear.hs+8−86

This diff is too big to show here.

gogol-apps-tasks/gen/Network/Google/Resource/Tasks/Tasks/Delete.hs+9−87

This diff is too big to show here.

gogol-apps-tasks/gen/Network/Google/Resource/Tasks/Tasks/Get.hs+9−87

This diff is too big to show here.

gogol-apps-tasks/gen/Network/Google/Resource/Tasks/Tasks/Insert.hs+11−89

This diff is too big to show here.

gogol-apps-tasks/gen/Network/Google/Resource/Tasks/Tasks/List.hs+7−86

This diff is too big to show here.

gogol-apps-tasks/gen/Network/Google/Resource/Tasks/Tasks/Move.hs+9−87

This diff is too big to show here.

gogol-apps-tasks/gen/Network/Google/Resource/Tasks/Tasks/Patch.hs+11−90

This diff is too big to show here.

gogol-apps-tasks/gen/Network/Google/Resource/Tasks/Tasks/Update.hs+11−90

This diff is too big to show here.

gogol-appstate/gen/Network/Google/AppState.hs+4−1

This diff is too big to show here.

gogol-appstate/gen/Network/Google/AppState/Types.hs+13−5

This diff is too big to show here.

gogol-appstate/gen/Network/Google/Resource/AppState/States/Clear.hs+8−86

This diff is too big to show here.

gogol-appstate/gen/Network/Google/Resource/AppState/States/Delete.hs+8−87

This diff is too big to show here.

gogol-appstate/gen/Network/Google/Resource/AppState/States/Get.hs+8−86

This diff is too big to show here.

gogol-appstate/gen/Network/Google/Resource/AppState/States/List.hs+8−86

This diff is too big to show here.

gogol-appstate/gen/Network/Google/Resource/AppState/States/Update.hs+8−86

This diff is too big to show here.

gogol-autoscaler/gen/Network/Google/Autoscaler.hs+4−1

This diff is too big to show here.

gogol-autoscaler/gen/Network/Google/Autoscaler/Types.hs+18−5

This diff is too big to show here.

gogol-autoscaler/gen/Network/Google/Resource/Autoscaler/Autoscalers/Delete.hs+10−90

This diff is too big to show here.

gogol-autoscaler/gen/Network/Google/Resource/Autoscaler/Autoscalers/Get.hs+10−89

This diff is too big to show here.

gogol-autoscaler/gen/Network/Google/Resource/Autoscaler/Autoscalers/Insert.hs+11−92

This diff is too big to show here.

gogol-autoscaler/gen/Network/Google/Resource/Autoscaler/Autoscalers/List.hs+12−91

This diff is too big to show here.

gogol-autoscaler/gen/Network/Google/Resource/Autoscaler/Autoscalers/Patch.hs+12−92

This diff is too big to show here.

gogol-autoscaler/gen/Network/Google/Resource/Autoscaler/Autoscalers/Update.hs+12−92

This diff is too big to show here.

gogol-autoscaler/gen/Network/Google/Resource/Autoscaler/ZoneOperations/Delete.hs+10−91

This diff is too big to show here.

gogol-autoscaler/gen/Network/Google/Resource/Autoscaler/ZoneOperations/Get.hs+10−91

This diff is too big to show here.

gogol-autoscaler/gen/Network/Google/Resource/Autoscaler/ZoneOperations/List.hs+11−94

This diff is too big to show here.

gogol-autoscaler/gen/Network/Google/Resource/Autoscaler/Zones/List.hs+10−88

This diff is too big to show here.

gogol-bigquery/gen/Network/Google/BigQuery.hs+4−1

This diff is too big to show here.

gogol-bigquery/gen/Network/Google/BigQuery/Types.hs+43−5

This diff is too big to show here.

gogol-bigquery/gen/Network/Google/Resource/BigQuery/Datasets/Delete.hs+7−86

This diff is too big to show here.

gogol-bigquery/gen/Network/Google/Resource/BigQuery/Datasets/Get.hs+9−87

This diff is too big to show here.

gogol-bigquery/gen/Network/Google/Resource/BigQuery/Datasets/Insert.hs+10−89

This diff is too big to show here.

gogol-bigquery/gen/Network/Google/Resource/BigQuery/Datasets/List.hs+10−89

This diff is too big to show here.

gogol-bigquery/gen/Network/Google/Resource/BigQuery/Datasets/Patch.hs+11−90

This diff is too big to show here.

gogol-bigquery/gen/Network/Google/Resource/BigQuery/Datasets/Update.hs+11−90

This diff is too big to show here.

gogol-bigquery/gen/Network/Google/Resource/BigQuery/Jobs/Cancel.hs+10−88

This diff is too big to show here.

gogol-bigquery/gen/Network/Google/Resource/BigQuery/Jobs/Get.hs+8−87

This diff is too big to show here.

gogol-bigquery/gen/Network/Google/Resource/BigQuery/Jobs/GetQueryResults.hs+13−96

This diff is too big to show here.

gogol-bigquery/gen/Network/Google/Resource/BigQuery/Jobs/Insert.hs+12−91

This diff is too big to show here.

gogol-bigquery/gen/Network/Google/Resource/BigQuery/Jobs/List.hs+7−85

This diff is too big to show here.

gogol-bigquery/gen/Network/Google/Resource/BigQuery/Jobs/Query.hs+11−89

This diff is too big to show here.

gogol-bigquery/gen/Network/Google/Resource/BigQuery/Projects/List.hs+9−88

This diff is too big to show here.

gogol-bigquery/gen/Network/Google/Resource/BigQuery/TableData/InsertAll.hs+12−95

This diff is too big to show here.

gogol-bigquery/gen/Network/Google/Resource/BigQuery/TableData/List.hs+12−91

This diff is too big to show here.

gogol-bigquery/gen/Network/Google/Resource/BigQuery/Tables/Delete.hs+9−88

This diff is too big to show here.

gogol-bigquery/gen/Network/Google/Resource/BigQuery/Tables/Get.hs+9−87

This diff is too big to show here.

gogol-bigquery/gen/Network/Google/Resource/BigQuery/Tables/Insert.hs+11−90

This diff is too big to show here.

gogol-bigquery/gen/Network/Google/Resource/BigQuery/Tables/List.hs+10−88

This diff is too big to show here.

gogol-bigquery/gen/Network/Google/Resource/BigQuery/Tables/Patch.hs+11−89

This diff is too big to show here.

gogol-bigquery/gen/Network/Google/Resource/BigQuery/Tables/Update.hs+11−90

This diff is too big to show here.

gogol-billing/gen/Network/Google/Billing.hs+4−1

This diff is too big to show here.

gogol-billing/gen/Network/Google/Billing/Types.hs+13−6

This diff is too big to show here.

gogol-billing/gen/Network/Google/Resource/CloudBilling/BillingAccounts/Get.hs+6−75

This diff is too big to show here.

gogol-billing/gen/Network/Google/Resource/CloudBilling/BillingAccounts/List.hs+6−75

This diff is too big to show here.

gogol-billing/gen/Network/Google/Resource/CloudBilling/BillingAccounts/Projects/List.hs+6−78

This diff is too big to show here.

gogol-billing/gen/Network/Google/Resource/CloudBilling/Projects/GetBillingInfo.hs+6−76

This diff is too big to show here.

gogol-billing/gen/Network/Google/Resource/CloudBilling/Projects/UpdateBillingInfo.hs+7−77

This diff is too big to show here.

gogol-blogger/gen/Network/Google/Blogger.hs+4−1

This diff is too big to show here.

gogol-blogger/gen/Network/Google/Blogger/Types.hs+18−5

This diff is too big to show here.

gogol-blogger/gen/Network/Google/Resource/Blogger/BlogUserInfos/Get.hs+9−92

This diff is too big to show here.

gogol-blogger/gen/Network/Google/Resource/Blogger/Blogs/Get.hs+10−88

This diff is too big to show here.

gogol-blogger/gen/Network/Google/Resource/Blogger/Blogs/GetByURL.hs+9−92

This diff is too big to show here.

gogol-blogger/gen/Network/Google/Resource/Blogger/Blogs/ListByUser.hs+5−88

This diff is too big to show here.

gogol-blogger/gen/Network/Google/Resource/Blogger/Comments/Approve.hs+10−89

This diff is too big to show here.

gogol-blogger/gen/Network/Google/Resource/Blogger/Comments/Delete.hs+10−89

This diff is too big to show here.

gogol-blogger/gen/Network/Google/Resource/Blogger/Comments/Get.hs+10−88

This diff is too big to show here.

gogol-blogger/gen/Network/Google/Resource/Blogger/Comments/List.hs+5−85

This diff is too big to show here.

gogol-blogger/gen/Network/Google/Resource/Blogger/Comments/ListByBlog.hs+5−89

This diff is too big to show here.

gogol-blogger/gen/Network/Google/Resource/Blogger/Comments/MarkAsSpam.hs+9−92

This diff is too big to show here.

gogol-blogger/gen/Network/Google/Resource/Blogger/Comments/RemoveContent.hs+9−91

This diff is too big to show here.

gogol-blogger/gen/Network/Google/Resource/Blogger/PageViews/Get.hs+9−90

This diff is too big to show here.

gogol-blogger/gen/Network/Google/Resource/Blogger/Pages/Delete.hs+9−90

This diff is too big to show here.

gogol-blogger/gen/Network/Google/Resource/Blogger/Pages/Get.hs+10−91

This diff is too big to show here.

gogol-blogger/gen/Network/Google/Resource/Blogger/Pages/Insert.hs+11−90

This diff is too big to show here.

gogol-blogger/gen/Network/Google/Resource/Blogger/Pages/List.hs+5−84

This diff is too big to show here.

gogol-blogger/gen/Network/Google/Resource/Blogger/Pages/Patch.hs+12−94

This diff is too big to show here.

gogol-blogger/gen/Network/Google/Resource/Blogger/Pages/Publish.hs+9−91

This diff is too big to show here.

gogol-blogger/gen/Network/Google/Resource/Blogger/Pages/Revert.hs+9−90

This diff is too big to show here.

gogol-blogger/gen/Network/Google/Resource/Blogger/Pages/Update.hs+12−93

This diff is too big to show here.

gogol-blogger/gen/Network/Google/Resource/Blogger/PostUserInfos/Get.hs+7−91

This diff is too big to show here.

gogol-blogger/gen/Network/Google/Resource/Blogger/PostUserInfos/List.hs+6−89

This diff is too big to show here.

gogol-blogger/gen/Network/Google/Resource/Blogger/Posts/Delete.hs+9−87

This diff is too big to show here.

gogol-blogger/gen/Network/Google/Resource/Blogger/Posts/Get.hs+5−83

This diff is too big to show here.

gogol-blogger/gen/Network/Google/Resource/Blogger/Posts/GetByPath.hs+7−90

This diff is too big to show here.

gogol-blogger/gen/Network/Google/Resource/Blogger/Posts/Insert.hs+6−87

This diff is too big to show here.

gogol-blogger/gen/Network/Google/Resource/Blogger/Posts/List.hs+5−87

This diff is too big to show here.

gogol-blogger/gen/Network/Google/Resource/Blogger/Posts/Patch.hs+6−85

This diff is too big to show here.

gogol-blogger/gen/Network/Google/Resource/Blogger/Posts/Publish.hs+7−89

This diff is too big to show here.

gogol-blogger/gen/Network/Google/Resource/Blogger/Posts/Revert.hs+9−87

This diff is too big to show here.

gogol-blogger/gen/Network/Google/Resource/Blogger/Posts/Search.hs+7−85

This diff is too big to show here.

gogol-blogger/gen/Network/Google/Resource/Blogger/Posts/Update.hs+6−84

This diff is too big to show here.

gogol-blogger/gen/Network/Google/Resource/Blogger/Users/Get.hs+8−86

This diff is too big to show here.

gogol-books/gen/Network/Google/Books.hs+4−1

This diff is too big to show here.

gogol-books/gen/Network/Google/Books/Types.hs+13−5

This diff is too big to show here.

gogol-books/gen/Network/Google/Resource/Books/Bookshelves/Get.hs+10−89

This diff is too big to show here.

gogol-books/gen/Network/Google/Resource/Books/Bookshelves/List.hs+8−88

This diff is too big to show here.

gogol-books/gen/Network/Google/Resource/Books/Bookshelves/Volumes/List.hs+7−90

This diff is too big to show here.

gogol-books/gen/Network/Google/Resource/Books/CloudLoading/AddBook.hs+8−91

This diff is too big to show here.

gogol-books/gen/Network/Google/Resource/Books/CloudLoading/DeleteBook.hs+8−92

This diff is too big to show here.

gogol-books/gen/Network/Google/Resource/Books/CloudLoading/UpdateBook.hs+10−94

This diff is too big to show here.

gogol-books/gen/Network/Google/Resource/Books/Dictionary/ListOfflineMetadata.hs+8−93

This diff is too big to show here.

gogol-books/gen/Network/Google/Resource/Books/Layers/AnnotationData/Get.hs+8−91

This diff is too big to show here.

gogol-books/gen/Network/Google/Resource/Books/Layers/AnnotationData/List.hs+8−92

This diff is too big to show here.

gogol-books/gen/Network/Google/Resource/Books/Layers/Get.hs+7−86

This diff is too big to show here.

gogol-books/gen/Network/Google/Resource/Books/Layers/List.hs+8−86

This diff is too big to show here.

gogol-books/gen/Network/Google/Resource/Books/Layers/VolumeAnnotations/Get.hs+8−91

This diff is too big to show here.

gogol-books/gen/Network/Google/Resource/Books/Layers/VolumeAnnotations/List.hs+8−95

This diff is too big to show here.

gogol-books/gen/Network/Google/Resource/Books/MyConfig/GetUserSettings.hs+9−95

This diff is too big to show here.

gogol-books/gen/Network/Google/Resource/Books/MyConfig/ReleaseDownloadAccess.hs+11−95

This diff is too big to show here.

gogol-books/gen/Network/Google/Resource/Books/MyConfig/RequestAccess.hs+8−91

This diff is too big to show here.

gogol-books/gen/Network/Google/Resource/Books/MyConfig/SyncVolumeLicenses.hs+7−91

This diff is too big to show here.

gogol-books/gen/Network/Google/Resource/Books/MyConfig/UpdateUserSettings.hs+10−94

This diff is too big to show here.

gogol-books/gen/Network/Google/Resource/Books/MyLibrary/Annotations/Delete.hs+8−91

This diff is too big to show here.

gogol-books/gen/Network/Google/Resource/Books/MyLibrary/Annotations/Insert.hs+8−92

This diff is too big to show here.

gogol-books/gen/Network/Google/Resource/Books/MyLibrary/Annotations/List.hs+7−91

This diff is too big to show here.

gogol-books/gen/Network/Google/Resource/Books/MyLibrary/Annotations/Summary.hs+9−93

This diff is too big to show here.

gogol-books/gen/Network/Google/Resource/Books/MyLibrary/Annotations/Update.hs+9−92

This diff is too big to show here.

gogol-books/gen/Network/Google/Resource/Books/MyLibrary/Bookshelves/AddVolume.hs+10−94

This diff is too big to show here.

gogol-books/gen/Network/Google/Resource/Books/MyLibrary/Bookshelves/ClearVolumes.hs+9−93

This diff is too big to show here.

gogol-books/gen/Network/Google/Resource/Books/MyLibrary/Bookshelves/Get.hs+9−92

This diff is too big to show here.

gogol-books/gen/Network/Google/Resource/Books/MyLibrary/Bookshelves/List.hs+8−92

This diff is too big to show here.

gogol-books/gen/Network/Google/Resource/Books/MyLibrary/Bookshelves/MoveVolume.hs+7−91

This diff is too big to show here.

gogol-books/gen/Network/Google/Resource/Books/MyLibrary/Bookshelves/RemoveVolume.hs+10−94

This diff is too big to show here.

gogol-books/gen/Network/Google/Resource/Books/MyLibrary/Bookshelves/Volumes/List.hs+7−92

This diff is too big to show here.

gogol-books/gen/Network/Google/Resource/Books/MyLibrary/ReadingPositions/Get.hs+8−92

This diff is too big to show here.

gogol-books/gen/Network/Google/Resource/Books/MyLibrary/ReadingPositions/SetPosition.hs+5−90

This diff is too big to show here.

gogol-books/gen/Network/Google/Resource/Books/Onboarding/ListCategories.hs+8−90

This diff is too big to show here.

gogol-books/gen/Network/Google/Resource/Books/Onboarding/ListCategoryVolumes.hs+7−91

This diff is too big to show here.

gogol-books/gen/Network/Google/Resource/Books/PromoOffer/Accept.hs+7−89

This diff is too big to show here.

gogol-books/gen/Network/Google/Resource/Books/PromoOffer/Dismiss.hs+7−89

This diff is too big to show here.

gogol-books/gen/Network/Google/Resource/Books/PromoOffer/Get.hs+7−89

This diff is too big to show here.

gogol-books/gen/Network/Google/Resource/Books/Volumes/Associated/List.hs+7−90

This diff is too big to show here.

gogol-books/gen/Network/Google/Resource/Books/Volumes/Get.hs+7−85

This diff is too big to show here.

gogol-books/gen/Network/Google/Resource/Books/Volumes/List.hs+7−86

This diff is too big to show here.

gogol-books/gen/Network/Google/Resource/Books/Volumes/Mybooks/List.hs+5−87

This diff is too big to show here.

gogol-books/gen/Network/Google/Resource/Books/Volumes/Recommended/List.hs+7−89

This diff is too big to show here.

gogol-books/gen/Network/Google/Resource/Books/Volumes/Recommended/Rate.hs+11−94

This diff is too big to show here.

gogol-books/gen/Network/Google/Resource/Books/Volumes/UserUploaded/List.hs+5−88

This diff is too big to show here.

gogol-civicinfo/gen/Network/Google/CivicInfo.hs+4−1

This diff is too big to show here.

gogol-civicinfo/gen/Network/Google/CivicInfo/Types.hs+6−5

This diff is too big to show here.

gogol-civicinfo/gen/Network/Google/Resource/CivicInfo/Divisions/Search.hs+9−88

This diff is too big to show here.

gogol-civicinfo/gen/Network/Google/Resource/CivicInfo/Elections/ElectionQuery.hs+10−94

This diff is too big to show here.

gogol-civicinfo/gen/Network/Google/Resource/CivicInfo/Elections/VoterInfoQuery.hs+8−91

This diff is too big to show here.

gogol-civicinfo/gen/Network/Google/Resource/CivicInfo/Representatives/RepresentativeInfoByAddress.hs+8−92

This diff is too big to show here.

gogol-civicinfo/gen/Network/Google/Resource/CivicInfo/Representatives/RepresentativeInfoByDivision.hs+11−95

This diff is too big to show here.

gogol-classroom/gen/Network/Google/Classroom.hs+4−1

This diff is too big to show here.

gogol-classroom/gen/Network/Google/Classroom/Types.hs+38−5

This diff is too big to show here.

gogol-classroom/gen/Network/Google/Resource/Classroom/Courses/Aliases/Create.hs+7−76

This diff is too big to show here.

gogol-classroom/gen/Network/Google/Resource/Classroom/Courses/Aliases/Delete.hs+5−75

This diff is too big to show here.

gogol-classroom/gen/Network/Google/Resource/Classroom/Courses/Aliases/List.hs+6−75

This diff is too big to show here.

gogol-classroom/gen/Network/Google/Resource/Classroom/Courses/Create.hs+6−73

This diff is too big to show here.

gogol-classroom/gen/Network/Google/Resource/Classroom/Courses/Delete.hs+5−73

This diff is too big to show here.

gogol-classroom/gen/Network/Google/Resource/Classroom/Courses/Get.hs+5−72

This diff is too big to show here.

gogol-classroom/gen/Network/Google/Resource/Classroom/Courses/List.hs+6−72

This diff is too big to show here.

gogol-classroom/gen/Network/Google/Resource/Classroom/Courses/Patch.hs+6−74

This diff is too big to show here.

gogol-classroom/gen/Network/Google/Resource/Classroom/Courses/Students/Create.hs+6−76

This diff is too big to show here.

gogol-classroom/gen/Network/Google/Resource/Classroom/Courses/Students/Delete.hs+5−75

This diff is too big to show here.

gogol-classroom/gen/Network/Google/Resource/Classroom/Courses/Students/Get.hs+5−75

This diff is too big to show here.

gogol-classroom/gen/Network/Google/Resource/Classroom/Courses/Students/List.hs+6−75

This diff is too big to show here.

gogol-classroom/gen/Network/Google/Resource/Classroom/Courses/Teachers/Create.hs+6−76

This diff is too big to show here.

gogol-classroom/gen/Network/Google/Resource/Classroom/Courses/Teachers/Delete.hs+5−75

This diff is too big to show here.

gogol-classroom/gen/Network/Google/Resource/Classroom/Courses/Teachers/Get.hs+5−75

This diff is too big to show here.

gogol-classroom/gen/Network/Google/Resource/Classroom/Courses/Teachers/List.hs+6−75

This diff is too big to show here.

gogol-classroom/gen/Network/Google/Resource/Classroom/Courses/Update.hs+6−74

This diff is too big to show here.

gogol-classroom/gen/Network/Google/Resource/Classroom/Invitations/Accept.hs+5−73

This diff is too big to show here.

gogol-classroom/gen/Network/Google/Resource/Classroom/Invitations/Create.hs+6−74

This diff is too big to show here.

gogol-classroom/gen/Network/Google/Resource/Classroom/Invitations/Delete.hs+5−73

This diff is too big to show here.

gogol-classroom/gen/Network/Google/Resource/Classroom/Invitations/Get.hs+5−73

This diff is too big to show here.

gogol-classroom/gen/Network/Google/Resource/Classroom/Invitations/List.hs+6−73

This diff is too big to show here.

gogol-classroom/gen/Network/Google/Resource/Classroom/UserProFiles/Get.hs+5−76

This diff is too big to show here.

gogol-compute/gen/Network/Google/Compute.hs+4−1

This diff is too big to show here.

gogol-compute/gen/Network/Google/Compute/Types.hs+38−5

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/Addresses/AggregatedList.hs+11−93

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/Addresses/Delete.hs+10−91

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/Addresses/Get.hs+10−91

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/Addresses/Insert.hs+11−91

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/Addresses/List.hs+11−91

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/Autoscalers/AggregatedList.hs+11−94

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/Autoscalers/Delete.hs+10−89

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/Autoscalers/Get.hs+10−89

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/Autoscalers/Insert.hs+28−111

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/Autoscalers/List.hs+41−126

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/Autoscalers/Patch.hs+11−91

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/Autoscalers/Update.hs+12−91

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/BackendServices/Delete.hs+8−90

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/BackendServices/Get.hs+9−91

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/BackendServices/GetHealth.hs+10−93

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/BackendServices/Insert.hs+11−93

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/BackendServices/List.hs+11−93

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/BackendServices/Patch.hs+10−92

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/BackendServices/Update.hs+10−92

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/DiskTypes/AggregatedList.hs+11−94

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/DiskTypes/Get.hs+10−92

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/DiskTypes/List.hs+11−94

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/Disks/AggregatedList.hs+11−93

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/Disks/CreateSnapshot.hs+12−95

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/Disks/Delete.hs+10−88

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/Disks/Get.hs+10−88

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/Disks/Insert.hs+9−87

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/Disks/List.hs+11−89

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/Firewalls/Delete.hs+9−88

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/Firewalls/Get.hs+9−88

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/Firewalls/Insert.hs+10−89

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/Firewalls/List.hs+10−90

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/Firewalls/Patch.hs+11−91

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/Firewalls/Update.hs+11−91

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/ForwardingRules/AggregatedList.hs+11−95

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/ForwardingRules/Delete.hs+7−89

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/ForwardingRules/Get.hs+8−90

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/ForwardingRules/Insert.hs+12−94

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/ForwardingRules/List.hs+12−94

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/ForwardingRules/SetTarget.hs+9−92

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/GlobalAddresses/Delete.hs+9−91

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/GlobalAddresses/Get.hs+9−91

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/GlobalAddresses/Insert.hs+10−92

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/GlobalAddresses/List.hs+10−92

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/GlobalForwardingRules/Delete.hs+8−92

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/GlobalForwardingRules/Get.hs+9−92

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/GlobalForwardingRules/Insert.hs+11−96

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/GlobalForwardingRules/List.hs+11−94

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/GlobalForwardingRules/SetTarget.hs+9−93

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/GlobalOperations/AggregatedList.hs+11−95

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/GlobalOperations/Delete.hs+9−91

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/GlobalOperations/Get.hs+9−91

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/GlobalOperations/List.hs+10−93

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/HTTPHealthChecks/Delete.hs+7−93

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/HTTPHealthChecks/Get.hs+8−94

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/HTTPHealthChecks/Insert.hs+11−98

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/HTTPHealthChecks/List.hs+11−97

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/HTTPHealthChecks/Patch.hs+9−95

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/HTTPHealthChecks/Update.hs+9−95

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/Images/Delete.hs+9−88

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/Images/Deprecate.hs+12−95

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/Images/Get.hs+9−90

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/Images/Insert.hs+10−88

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/Images/List.hs+10−88

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/InstanceGroupManagers/AbandonInstances.hs+10−94

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/InstanceGroupManagers/AggregatedList.hs+11−95

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/InstanceGroupManagers/Delete.hs+7−91

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/InstanceGroupManagers/DeleteInstances.hs+10−94

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/InstanceGroupManagers/Get.hs+8−91

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/InstanceGroupManagers/Insert.hs+12−96

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/InstanceGroupManagers/List.hs+12−95

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/InstanceGroupManagers/ListManagedInstances.hs+9−94

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/InstanceGroupManagers/RecreateInstances.hs+10−94

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/InstanceGroupManagers/Resize.hs+7−92

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/InstanceGroupManagers/SetInstanceTemplate.hs+10−95

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/InstanceGroupManagers/SetTargetPools.hs+10−95

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/InstanceGroups/AddInstances.hs+9−92

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/InstanceGroups/AggregatedList.hs+11−95

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/InstanceGroups/Delete.hs+7−89

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/InstanceGroups/Get.hs+7−89

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/InstanceGroups/Insert.hs+12−95

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/InstanceGroups/List.hs+12−94

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/InstanceGroups/ListInstances.hs+9−95

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/InstanceGroups/RemoveInstances.hs+9−94

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/InstanceGroups/SetNamedPorts.hs+9−94

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/InstanceTemplates/Delete.hs+8−90

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/InstanceTemplates/Get.hs+9−91

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/InstanceTemplates/Insert.hs+11−93

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/InstanceTemplates/List.hs+11−93

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/Instances/AddAccessConfig.hs+9−92

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/Instances/AggregatedList.hs+11−93

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/Instances/AttachDisk.hs+13−95

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/Instances/Delete.hs+10−92

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/Instances/DeleteAccessConfig.hs+7−92

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/Instances/DetachDisk.hs+10−93

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/Instances/Get.hs+10−89

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/Instances/GetSerialPortOutput.hs+11−95

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/Instances/Insert.hs+11−91

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/Instances/List.hs+11−94

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/Instances/Reset.hs+10−92

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/Instances/SetDiskAutoDelete.hs+11−95

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/Instances/SetMetadata.hs+12−95

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/Instances/SetScheduling.hs+12−95

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/Instances/SetTags.hs+12−94

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/Instances/Start.hs+9−92

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/Instances/Stop.hs+10−89

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/Licenses/Get.hs+9−87

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/MachineTypes/AggregatedList.hs+11−94

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/MachineTypes/Get.hs+7−89

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/MachineTypes/List.hs+12−94

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/Networks/Delete.hs+9−88

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/Networks/Get.hs+9−87

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/Networks/Insert.hs+10−89

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/Networks/List.hs+10−89

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/Projects/Get.hs+8−86

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/Projects/MoveDisk.hs+11−93

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/Projects/MoveInstance.hs+11−93

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/Projects/SetCommonInstanceMetadata.hs+10−95

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/Projects/SetUsageExportBucket.hs+11−96

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/RegionOperations/Delete.hs+9−91

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/RegionOperations/Get.hs+9−91

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/RegionOperations/List.hs+11−94

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/Regions/Get.hs+9−87

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/Regions/List.hs+10−87

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/Routes/Delete.hs+9−88

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/Routes/Get.hs+9−90

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/Routes/Insert.hs+10−89

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/Routes/List.hs+10−88

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/Snapshots/Delete.hs+8−87

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/Snapshots/Get.hs+8−87

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/Snapshots/List.hs+10−90

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/TargetHTTPProxies/Delete.hs+7−93

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/TargetHTTPProxies/Get.hs+8−94

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/TargetHTTPProxies/Insert.hs+11−98

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/TargetHTTPProxies/List.hs+11−97

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/TargetHTTPProxies/SetURLMap.hs+9−95

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/TargetInstances/AggregatedList.hs+11−95

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/TargetInstances/Delete.hs+7−89

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/TargetInstances/Get.hs+8−90

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/TargetInstances/Insert.hs+12−95

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/TargetInstances/List.hs+12−94

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/TargetPools/AddHealthCheck.hs+12−95

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/TargetPools/AddInstance.hs+12−95

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/TargetPools/AggregatedList.hs+11−94

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/TargetPools/Delete.hs+9−91

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/TargetPools/Get.hs+9−91

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/TargetPools/GetHealth.hs+12−95

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/TargetPools/Insert.hs+11−93

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/TargetPools/List.hs+12−94

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/TargetPools/RemoveHealthCheck.hs+12−97

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/TargetPools/RemoveInstance.hs+12−95

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/TargetPools/SetBackup.hs+9−92

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/TargetVPNGateways/AggregatedList.hs+11−95

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/TargetVPNGateways/Delete.hs+7−90

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/TargetVPNGateways/Get.hs+8−91

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/TargetVPNGateways/Insert.hs+12−95

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/TargetVPNGateways/List.hs+12−95

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/URLMaps/Delete.hs+9−91

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/URLMaps/Get.hs+9−90

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/URLMaps/Insert.hs+10−92

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/URLMaps/List.hs+10−91

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/URLMaps/Patch.hs+11−93

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/URLMaps/Update.hs+11−93

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/URLMaps/Validate.hs+12−94

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/VPNTunnels/AggregatedList.hs+11−94

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/VPNTunnels/Delete.hs+9−91

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/VPNTunnels/Get.hs+9−91

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/VPNTunnels/Insert.hs+11−93

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/VPNTunnels/List.hs+11−94

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/ZoneOperations/Delete.hs+10−91

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/ZoneOperations/Get.hs+10−91

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/ZoneOperations/List.hs+11−94

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/Zones/Get.hs+8−87

This diff is too big to show here.

gogol-compute/gen/Network/Google/Resource/Compute/Zones/List.hs+10−88

This diff is too big to show here.

gogol-container/gen/Network/Google/Container.hs+4−1

This diff is too big to show here.

gogol-container/gen/Network/Google/Container/Types.hs+13−5

This diff is too big to show here.

gogol-container/gen/Network/Google/Resource/Container/Projects/Zones/Clusters/Create.hs+7−78

This diff is too big to show here.

gogol-container/gen/Network/Google/Resource/Container/Projects/Zones/Clusters/Delete.hs+6−77

This diff is too big to show here.

gogol-container/gen/Network/Google/Resource/Container/Projects/Zones/Clusters/Get.hs+5−76

This diff is too big to show here.

gogol-container/gen/Network/Google/Resource/Container/Projects/Zones/Clusters/List.hs+6−76

This diff is too big to show here.

gogol-container/gen/Network/Google/Resource/Container/Projects/Zones/Clusters/Update.hs+7−79

This diff is too big to show here.

gogol-container/gen/Network/Google/Resource/Container/Projects/Zones/GetServerConfig.hs+6−77

This diff is too big to show here.

gogol-container/gen/Network/Google/Resource/Container/Projects/Zones/Operations/Get.hs+6−76

This diff is too big to show here.

gogol-container/gen/Network/Google/Resource/Container/Projects/Zones/Operations/List.hs+6−77

This diff is too big to show here.

gogol-customsearch/gen/Network/Google/CustomSearch.hs+4−1

This diff is too big to show here.

gogol-customsearch/gen/Network/Google/CustomSearch/Types.hs+6−5

This diff is too big to show here.

gogol-customsearch/gen/Network/Google/Resource/Search/CSE/List.hs+8−109

This diff is too big to show here.

gogol-dataflow/gen/Network/Google/Dataflow.hs+4−1

This diff is too big to show here.

gogol-dataflow/gen/Network/Google/Dataflow/Types.hs+18−5

This diff is too big to show here.

gogol-dataflow/gen/Network/Google/Resource/Dataflow/Projects/Jobs/Create.hs+6−76

This diff is too big to show here.

gogol-dataflow/gen/Network/Google/Resource/Dataflow/Projects/Jobs/Get.hs+5−75

This diff is too big to show here.

gogol-dataflow/gen/Network/Google/Resource/Dataflow/Projects/Jobs/GetMetrics.hs+6−76

This diff is too big to show here.

gogol-dataflow/gen/Network/Google/Resource/Dataflow/Projects/Jobs/List.hs+6−75

This diff is too big to show here.

gogol-dataflow/gen/Network/Google/Resource/Dataflow/Projects/Jobs/Messages/List.hs+6−79

This diff is too big to show here.

gogol-dataflow/gen/Network/Google/Resource/Dataflow/Projects/Jobs/Update.hs+6−75

This diff is too big to show here.

gogol-dataflow/gen/Network/Google/Resource/Dataflow/Projects/Jobs/WorkItems/Lease.hs+7−78

This diff is too big to show here.

gogol-dataflow/gen/Network/Google/Resource/Dataflow/Projects/Jobs/WorkItems/ReportStatus.hs+7−82

This diff is too big to show here.

gogol-datastore/gen/Network/Google/Datastore.hs+4−1

This diff is too big to show here.

gogol-datastore/gen/Network/Google/Datastore/Types.hs+23−5

This diff is too big to show here.

gogol-datastore/gen/Network/Google/Resource/Datastore/Datasets/AllocateIds.hs+11−94

This diff is too big to show here.

gogol-datastore/gen/Network/Google/Resource/Datastore/Datasets/BeginTransaction.hs+11−94

This diff is too big to show here.

gogol-datastore/gen/Network/Google/Resource/Datastore/Datasets/Commit.hs+11−90

This diff is too big to show here.

gogol-datastore/gen/Network/Google/Resource/Datastore/Datasets/Lookup.hs+11−90

This diff is too big to show here.

gogol-datastore/gen/Network/Google/Resource/Datastore/Datasets/Rollback.hs+11−90

This diff is too big to show here.

gogol-datastore/gen/Network/Google/Resource/Datastore/Datasets/RunQuery.hs+11−94

This diff is too big to show here.

gogol-debugger/gen/Network/Google/Debugger.hs+4−1

This diff is too big to show here.

gogol-debugger/gen/Network/Google/Debugger/Types.hs+23−6

This diff is too big to show here.

gogol-debugger/gen/Network/Google/Resource/CloudDebugger/Controller/Debuggees/Breakpoints/List.hs+6−79

This diff is too big to show here.

gogol-debugger/gen/Network/Google/Resource/CloudDebugger/Controller/Debuggees/Breakpoints/Update.hs+7−81

This diff is too big to show here.

gogol-debugger/gen/Network/Google/Resource/CloudDebugger/Controller/Debuggees/Register.hs+7−78

This diff is too big to show here.

gogol-debugger/gen/Network/Google/Resource/CloudDebugger/Debugger/Debuggees/Breakpoints/Delete.hs+5−78

This diff is too big to show here.

gogol-debugger/gen/Network/Google/Resource/CloudDebugger/Debugger/Debuggees/Breakpoints/Get.hs+6−77

This diff is too big to show here.

gogol-debugger/gen/Network/Google/Resource/CloudDebugger/Debugger/Debuggees/Breakpoints/List.hs+6−79

This diff is too big to show here.

gogol-debugger/gen/Network/Google/Resource/CloudDebugger/Debugger/Debuggees/Breakpoints/Set.hs+7−78

This diff is too big to show here.

gogol-debugger/gen/Network/Google/Resource/CloudDebugger/Debugger/Debuggees/List.hs+6−75

This diff is too big to show here.

gogol-deploymentmanager/gen/Network/Google/DeploymentManager.hs+4−1

This diff is too big to show here.

gogol-deploymentmanager/gen/Network/Google/DeploymentManager/Types.hs+30−5

This diff is too big to show here.

gogol-deploymentmanager/gen/Network/Google/Resource/DeploymentManager/Deployments/CancelPreview.hs+12−94

This diff is too big to show here.

gogol-deploymentmanager/gen/Network/Google/Resource/DeploymentManager/Deployments/Delete.hs+9−88

This diff is too big to show here.

gogol-deploymentmanager/gen/Network/Google/Resource/DeploymentManager/Deployments/Get.hs+9−88

This diff is too big to show here.

gogol-deploymentmanager/gen/Network/Google/Resource/DeploymentManager/Deployments/Insert.hs+11−91

This diff is too big to show here.

gogol-deploymentmanager/gen/Network/Google/Resource/DeploymentManager/Deployments/List.hs+11−90

This diff is too big to show here.

gogol-deploymentmanager/gen/Network/Google/Resource/DeploymentManager/Deployments/Patch.hs+6−86

This diff is too big to show here.

gogol-deploymentmanager/gen/Network/Google/Resource/DeploymentManager/Deployments/Stop.hs+12−91

This diff is too big to show here.

gogol-deploymentmanager/gen/Network/Google/Resource/DeploymentManager/Deployments/Update.hs+6−86

This diff is too big to show here.

gogol-deploymentmanager/gen/Network/Google/Resource/DeploymentManager/Manifests/Get.hs+9−88

This diff is too big to show here.

gogol-deploymentmanager/gen/Network/Google/Resource/DeploymentManager/Manifests/List.hs+12−91

This diff is too big to show here.

gogol-deploymentmanager/gen/Network/Google/Resource/DeploymentManager/Operations/Get.hs+9−88

This diff is too big to show here.

gogol-deploymentmanager/gen/Network/Google/Resource/DeploymentManager/Operations/List.hs+11−90

This diff is too big to show here.

gogol-deploymentmanager/gen/Network/Google/Resource/DeploymentManager/Resources/Get.hs+9−88

This diff is too big to show here.

gogol-deploymentmanager/gen/Network/Google/Resource/DeploymentManager/Resources/List.hs+12−91

This diff is too big to show here.

gogol-deploymentmanager/gen/Network/Google/Resource/DeploymentManager/Types/List.hs+11−89

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/DFAReporting.hs+4−1

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/DFAReporting/Types.hs+19−5

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/AccountActiveAdSummaries/Get.hs+8−92

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/AccountPermissionGroups/Get.hs+10−93

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/AccountPermissionGroups/List.hs+10−94

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/AccountPermissions/Get.hs+10−92

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/AccountPermissions/List.hs+9−92

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/AccountUserProFiles/Get.hs+10−93

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/AccountUserProFiles/Insert.hs+11−95

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/AccountUserProFiles/List.hs+8−92

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/AccountUserProFiles/Patch.hs+12−95

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/AccountUserProFiles/Update.hs+11−95

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Accounts/Get.hs+9−90

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Accounts/List.hs+8−87

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Accounts/Patch.hs+11−93

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Accounts/Update.hs+10−89

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Ads/Get.hs+8−91

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Ads/Insert.hs+10−88

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Ads/List.hs+9−111

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Ads/Patch.hs+11−92

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Ads/Update.hs+10−87

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/AdvertiserGroups/Delete.hs+9−91

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/AdvertiserGroups/Get.hs+10−92

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/AdvertiserGroups/Insert.hs+11−94

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/AdvertiserGroups/List.hs+8−90

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/AdvertiserGroups/Patch.hs+12−94

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/AdvertiserGroups/Update.hs+11−94

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Advertisers/Get.hs+9−88

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Advertisers/Insert.hs+10−93

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Advertisers/List.hs+6−90

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Advertisers/Patch.hs+12−91

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Advertisers/Update.hs+10−93

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Browsers/List.hs+9−88

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/CampaignCreativeAssociations/Insert.hs+12−97

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/CampaignCreativeAssociations/List.hs+12−97

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Campaigns/Get.hs+9−92

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Campaigns/Insert.hs+8−87

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Campaigns/List.hs+6−87

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Campaigns/Patch.hs+11−90

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Campaigns/Update.hs+10−89

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/ChangeLogs/Get.hs+9−91

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/ChangeLogs/List.hs+6−88

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Cities/List.hs+8−85

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/ConnectionTypes/Get.hs+10−92

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/ConnectionTypes/List.hs+9−92

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/ContentCategories/Delete.hs+9−91

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/ContentCategories/Get.hs+10−92

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/ContentCategories/Insert.hs+11−94

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/ContentCategories/List.hs+8−90

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/ContentCategories/Patch.hs+12−94

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/ContentCategories/Update.hs+11−94

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Countries/Get.hs+9−88

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Countries/List.hs+9−92

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/CreativeAssets/Insert.hs+10−93

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/CreativeFieldValues/Delete.hs+5−88

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/CreativeFieldValues/Get.hs+6−89

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/CreativeFieldValues/Insert.hs+7−90

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/CreativeFieldValues/List.hs+6−90

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/CreativeFieldValues/Patch.hs+7−90

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/CreativeFieldValues/Update.hs+7−90

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/CreativeFields/Delete.hs+9−91

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/CreativeFields/Get.hs+9−91

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/CreativeFields/Insert.hs+11−94

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/CreativeFields/List.hs+8−90

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/CreativeFields/Patch.hs+12−94

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/CreativeFields/Update.hs+11−94

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/CreativeGroups/Get.hs+9−91

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/CreativeGroups/Insert.hs+11−94

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/CreativeGroups/List.hs+8−90

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/CreativeGroups/Patch.hs+12−94

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/CreativeGroups/Update.hs+11−94

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Creatives/Get.hs+9−92

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Creatives/Insert.hs+10−93

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Creatives/List.hs+6−89

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Creatives/Patch.hs+11−93

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Creatives/Update.hs+10−93

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/DimensionValues/Query.hs+12−94

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/DirectorySiteContacts/Get.hs+10−93

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/DirectorySiteContacts/List.hs+8−92

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/DirectorySites/Get.hs+9−91

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/DirectorySites/Insert.hs+11−94

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/DirectorySites/List.hs+8−92

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/EventTags/Delete.hs+9−91

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/EventTags/Get.hs+9−91

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/EventTags/Insert.hs+10−93

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/EventTags/List.hs+8−90

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/EventTags/Patch.hs+11−93

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/EventTags/Update.hs+10−93

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Files/Get.hs+16−105

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Files/List.hs+12−91

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/FloodlightActivities/Delete.hs+9−91

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/FloodlightActivities/Generatetag.hs+8−92

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/FloodlightActivities/Get.hs+10−88

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/FloodlightActivities/Insert.hs+11−94

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/FloodlightActivities/List.hs+9−92

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/FloodlightActivities/Patch.hs+12−94

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/FloodlightActivities/Update.hs+11−94

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/FloodlightActivityGroups/Delete.hs+9−93

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/FloodlightActivityGroups/Get.hs+10−94

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/FloodlightActivityGroups/Insert.hs+11−96

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/FloodlightActivityGroups/List.hs+8−93

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/FloodlightActivityGroups/Patch.hs+12−96

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/FloodlightActivityGroups/Update.hs+11−96

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/FloodlightConfigurations/Get.hs+10−93

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/FloodlightConfigurations/List.hs+9−92

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/FloodlightConfigurations/Patch.hs+12−95

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/FloodlightConfigurations/Update.hs+11−95

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/InventoryItems/Get.hs+10−92

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/InventoryItems/List.hs+17−100

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/LandingPages/Delete.hs+9−91

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/LandingPages/Get.hs+9−91

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/LandingPages/Insert.hs+12−94

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/LandingPages/List.hs+10−92

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/LandingPages/Patch.hs+12−94

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/LandingPages/Update.hs+12−94

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Metros/List.hs+9−87

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/MobileCarriers/Get.hs+9−91

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/MobileCarriers/List.hs+9−92

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/OperatingSystemVersions/Get.hs+10−93

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/OperatingSystemVersions/List.hs+10−94

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/OperatingSystems/Get.hs+10−92

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/OperatingSystems/List.hs+9−92

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/OrderDocuments/Get.hs+10−92

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/OrderDocuments/List.hs+8−91

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Orders/Get.hs+10−88

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Orders/List.hs+8−86

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/PlacementGroups/Get.hs+10−92

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/PlacementGroups/Insert.hs+11−94

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/PlacementGroups/List.hs+7−98

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/PlacementGroups/Patch.hs+12−94

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/PlacementGroups/Update.hs+11−94

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/PlacementStrategies/Delete.hs+9−91

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/PlacementStrategies/Get.hs+10−92

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/PlacementStrategies/Insert.hs+11−94

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/PlacementStrategies/List.hs+8−90

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/PlacementStrategies/Patch.hs+12−94

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/PlacementStrategies/Update.hs+11−94

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Placements/Generatetags.hs+8−86

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Placements/Get.hs+9−88

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Placements/Insert.hs+10−89

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Placements/List.hs+7−105

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Placements/Patch.hs+11−90

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Placements/Update.hs+10−89

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/PlatformTypes/Get.hs+9−91

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/PlatformTypes/List.hs+9−92

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/PostalCodes/Get.hs+9−91

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/PostalCodes/List.hs+9−92

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Projects/Get.hs+9−90

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Projects/List.hs+8−87

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Regions/List.hs+9−87

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/RemarketingListShares/Get.hs+8−91

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/RemarketingListShares/Patch.hs+9−92

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/RemarketingListShares/Update.hs+11−96

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/RemarketingLists/Get.hs+10−92

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/RemarketingLists/Insert.hs+11−94

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/RemarketingLists/List.hs+8−91

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/RemarketingLists/Patch.hs+12−94

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/RemarketingLists/Update.hs+11−94

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Reports/CompatibleFields/Query.hs+11−96

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Reports/Delete.hs+9−88

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Reports/Files/Get.hs+15−109

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Reports/Files/List.hs+12−95

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Reports/Get.hs+9−87

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Reports/Insert.hs+10−89

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Reports/List.hs+12−90

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Reports/Patch.hs+11−90

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Reports/Run.hs+7−85

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Reports/Update.hs+11−90

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Sites/Get.hs+9−87

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Sites/Insert.hs+10−88

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Sites/List.hs+8−92

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Sites/Patch.hs+11−89

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Sites/Update.hs+10−88

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Sizes/Get.hs+9−90

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Sizes/Insert.hs+10−87

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Sizes/List.hs+8−86

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/SubAccounts/Get.hs+9−91

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/SubAccounts/Insert.hs+10−93

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/SubAccounts/List.hs+8−90

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/SubAccounts/Patch.hs+12−94

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/SubAccounts/Update.hs+10−93

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/TargetableRemarketingLists/Get.hs+10−94

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/TargetableRemarketingLists/List.hs+8−93

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/UserProFiles/Get.hs+9−92

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/UserProFiles/List.hs+10−96

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/UserRolePermissionGroups/Get.hs+10−94

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/UserRolePermissionGroups/List.hs+10−94

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/UserRolePermissions/Get.hs+10−93

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/UserRolePermissions/List.hs+9−92

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/UserRoles/Delete.hs+9−91

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/UserRoles/Get.hs+9−91

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/UserRoles/Insert.hs+10−93

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/UserRoles/List.hs+8−90

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/UserRoles/Patch.hs+11−93

This diff is too big to show here.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/UserRoles/Update.hs+10−93

This diff is too big to show here.

gogol-discovery/gen/Network/Google/Discovery.hs+4−1

This diff is too big to show here.

gogol-discovery/gen/Network/Google/Discovery/Types.hs+6−5

This diff is too big to show here.

gogol-discovery/gen/Network/Google/Resource/Discovery/APIs/GetRest.hs+10−91

This diff is too big to show here.

gogol-discovery/gen/Network/Google/Resource/Discovery/APIs/List.hs+9−87

This diff is too big to show here.

gogol-dns/gen/Network/Google/DNS.hs+4−1

This diff is too big to show here.

gogol-dns/gen/Network/Google/DNS/Types.hs+28−5

This diff is too big to show here.

gogol-dns/gen/Network/Google/Resource/DNS/Changes/Create.hs+9−88

This diff is too big to show here.

gogol-dns/gen/Network/Google/Resource/DNS/Changes/Get.hs+7−85

This diff is too big to show here.

gogol-dns/gen/Network/Google/Resource/DNS/Changes/List.hs+8−86

This diff is too big to show here.

gogol-dns/gen/Network/Google/Resource/DNS/ManagedZones/Create.hs+11−93

This diff is too big to show here.

gogol-dns/gen/Network/Google/Resource/DNS/ManagedZones/Delete.hs+8−90

This diff is too big to show here.

gogol-dns/gen/Network/Google/Resource/DNS/ManagedZones/Get.hs+8−90

This diff is too big to show here.

gogol-dns/gen/Network/Google/Resource/DNS/ManagedZones/List.hs+11−93

This diff is too big to show here.

gogol-dns/gen/Network/Google/Resource/DNS/Projects/Get.hs+8−86

This diff is too big to show here.

gogol-dns/gen/Network/Google/Resource/DNS/ResourceRecordSets/List.hs+8−91

This diff is too big to show here.

gogol-doubleclick-bids/gen/Network/Google/DoubleClickBids.hs+4−1

This diff is too big to show here.

gogol-doubleclick-bids/gen/Network/Google/DoubleClickBids/Types.hs+7−5

This diff is too big to show here.

gogol-doubleclick-bids/gen/Network/Google/Resource/DoubleClickBidManager/Lineitems/Downloadlineitems.hs+10−89

This diff is too big to show here.

gogol-doubleclick-bids/gen/Network/Google/Resource/DoubleClickBidManager/Lineitems/Uploadlineitems.hs+10−89

This diff is too big to show here.

gogol-doubleclick-bids/gen/Network/Google/Resource/DoubleClickBidManager/Queries/CreateQuery.hs+10−91

This diff is too big to show here.

gogol-doubleclick-bids/gen/Network/Google/Resource/DoubleClickBidManager/Queries/DeleteQuery.hs+9−90

This diff is too big to show here.

gogol-doubleclick-bids/gen/Network/Google/Resource/DoubleClickBidManager/Queries/GetQuery.hs+9−90

This diff is too big to show here.

gogol-doubleclick-bids/gen/Network/Google/Resource/DoubleClickBidManager/Queries/Listqueries.hs+10−91

This diff is too big to show here.

gogol-doubleclick-bids/gen/Network/Google/Resource/DoubleClickBidManager/Queries/RunQuery.hs+10−92

This diff is too big to show here.

gogol-doubleclick-bids/gen/Network/Google/Resource/DoubleClickBidManager/Reports/Listreports.hs+9−88

This diff is too big to show here.

gogol-doubleclick-search/gen/Network/Google/DoubleClickSearch.hs+4−1

This diff is too big to show here.

gogol-doubleclick-search/gen/Network/Google/DoubleClickSearch/Types.hs+13−5

This diff is too big to show here.

gogol-doubleclick-search/gen/Network/Google/Resource/DoubleClickSearch/Conversion/Get.hs+8−88

This diff is too big to show here.

gogol-doubleclick-search/gen/Network/Google/Resource/DoubleClickSearch/Conversion/Insert.hs+11−89

This diff is too big to show here.

gogol-doubleclick-search/gen/Network/Google/Resource/DoubleClickSearch/Conversion/Patch.hs+9−88

This diff is too big to show here.

gogol-doubleclick-search/gen/Network/Google/Resource/DoubleClickSearch/Conversion/Update.hs+11−89

This diff is too big to show here.

gogol-doubleclick-search/gen/Network/Google/Resource/DoubleClickSearch/Conversion/UpdateAvailability.hs+11−93

This diff is too big to show here.

gogol-doubleclick-search/gen/Network/Google/Resource/DoubleClickSearch/Reports/Generate.hs+16−92

This diff is too big to show here.

gogol-doubleclick-search/gen/Network/Google/Resource/DoubleClickSearch/Reports/Get.hs+9−86

This diff is too big to show here.

gogol-doubleclick-search/gen/Network/Google/Resource/DoubleClickSearch/Reports/GetFile.hs+15−109

This diff is too big to show here.

gogol-doubleclick-search/gen/Network/Google/Resource/DoubleClickSearch/Reports/Request.hs+10−88

This diff is too big to show here.

gogol-doubleclick-search/gen/Network/Google/Resource/DoubleClickSearch/SavedColumns/List.hs+9−91

This diff is too big to show here.

gogol-drive/gen/Network/Google/Drive.hs+4−1

This diff is too big to show here.

gogol-drive/gen/Network/Google/Drive/Types.hs+54−5

This diff is too big to show here.

gogol-drive/gen/Network/Google/Resource/Drive/About/Get.hs+7−85

This diff is too big to show here.

gogol-drive/gen/Network/Google/Resource/Drive/Apps/Get.hs+12−90

This diff is too big to show here.

gogol-drive/gen/Network/Google/Resource/Drive/Apps/List.hs+7−85

This diff is too big to show here.

gogol-drive/gen/Network/Google/Resource/Drive/Changes/Get.hs+14−91

This diff is too big to show here.

gogol-drive/gen/Network/Google/Resource/Drive/Changes/List.hs+7−89

This diff is too big to show here.

gogol-drive/gen/Network/Google/Resource/Drive/Changes/Watch.hs+8−88

This diff is too big to show here.

gogol-drive/gen/Network/Google/Resource/Drive/Channels/Stop.hs+9−88

This diff is too big to show here.

gogol-drive/gen/Network/Google/Resource/Drive/Children/Delete.hs+21−103

This diff is too big to show here.

gogol-drive/gen/Network/Google/Resource/Drive/Children/Get.hs+22−103

This diff is too big to show here.

gogol-drive/gen/Network/Google/Resource/Drive/Children/Insert.hs+11−94

This diff is too big to show here.

gogol-drive/gen/Network/Google/Resource/Drive/Children/List.hs+11−90

This diff is too big to show here.

gogol-drive/gen/Network/Google/Resource/Drive/Comments/Delete.hs+9−88

This diff is too big to show here.

gogol-drive/gen/Network/Google/Resource/Drive/Comments/Get.hs+7−85

This diff is too big to show here.

gogol-drive/gen/Network/Google/Resource/Drive/Comments/Insert.hs+9−89

This diff is too big to show here.

gogol-drive/gen/Network/Google/Resource/Drive/Comments/List.hs+44−130

This diff is too big to show here.

gogol-drive/gen/Network/Google/Resource/Drive/Comments/Patch.hs+11−91

This diff is too big to show here.

gogol-drive/gen/Network/Google/Resource/Drive/Comments/Update.hs+11−91

This diff is too big to show here.

gogol-drive/gen/Network/Google/Resource/Drive/Files/Copy.hs+8−86

This diff is too big to show here.

gogol-drive/gen/Network/Google/Resource/Drive/Files/Delete.hs+8−86

This diff is too big to show here.

gogol-drive/gen/Network/Google/Resource/Drive/Files/EmptyTrash.hs+9−93

This diff is too big to show here.

gogol-drive/gen/Network/Google/Resource/Drive/Files/GenerateIds.hs+7−89

This diff is too big to show here.

gogol-drive/gen/Network/Google/Resource/Drive/Files/Get.hs+13−102

This diff is too big to show here.

gogol-drive/gen/Network/Google/Resource/Drive/Files/Insert.hs+9−87

This diff is too big to show here.

gogol-drive/gen/Network/Google/Resource/Drive/Files/List.hs+13−92

This diff is too big to show here.

gogol-drive/gen/Network/Google/Resource/Drive/Files/Patch.hs+8−88

This diff is too big to show here.

gogol-drive/gen/Network/Google/Resource/Drive/Files/Touch.hs+8−86

This diff is too big to show here.

gogol-drive/gen/Network/Google/Resource/Drive/Files/Trash.hs+8−89

This diff is too big to show here.

gogol-drive/gen/Network/Google/Resource/Drive/Files/Untrash.hs+8−86

This diff is too big to show here.

gogol-drive/gen/Network/Google/Resource/Drive/Files/Update.hs+9−89

This diff is too big to show here.

gogol-drive/gen/Network/Google/Resource/Drive/Files/Watch.hs+14−104

This diff is too big to show here.

gogol-drive/gen/Network/Google/Resource/Drive/Parents/Delete.hs+21−103

This diff is too big to show here.

gogol-drive/gen/Network/Google/Resource/Drive/Parents/Get.hs+10−92

This diff is too big to show here.

gogol-drive/gen/Network/Google/Resource/Drive/Parents/Insert.hs+11−93

This diff is too big to show here.

gogol-drive/gen/Network/Google/Resource/Drive/Parents/List.hs+13−95

This diff is too big to show here.

gogol-drive/gen/Network/Google/Resource/Drive/Permissions/Delete.hs+8−90

This diff is too big to show here.

gogol-drive/gen/Network/Google/Resource/Drive/Permissions/Get.hs+8−90

This diff is too big to show here.

gogol-drive/gen/Network/Google/Resource/Drive/Permissions/GetIdForEmail.hs+7−91

This diff is too big to show here.

gogol-drive/gen/Network/Google/Resource/Drive/Permissions/Insert.hs+8−88

This diff is too big to show here.

gogol-drive/gen/Network/Google/Resource/Drive/Permissions/List.hs+9−91

This diff is too big to show here.

gogol-drive/gen/Network/Google/Resource/Drive/Permissions/Patch.hs+9−91

This diff is too big to show here.

gogol-drive/gen/Network/Google/Resource/Drive/Permissions/Update.hs+8−91

This diff is too big to show here.

gogol-drive/gen/Network/Google/Resource/Drive/Properties/Delete.hs+7−86

This diff is too big to show here.

gogol-drive/gen/Network/Google/Resource/Drive/Properties/Get.hs+7−86

This diff is too big to show here.

gogol-drive/gen/Network/Google/Resource/Drive/Properties/Insert.hs+10−92

This diff is too big to show here.

gogol-drive/gen/Network/Google/Resource/Drive/Properties/List.hs+8−87

This diff is too big to show here.

gogol-drive/gen/Network/Google/Resource/Drive/Properties/Patch.hs+8−87

This diff is too big to show here.

gogol-drive/gen/Network/Google/Resource/Drive/Properties/Update.hs+8−87

This diff is too big to show here.

gogol-drive/gen/Network/Google/Resource/Drive/Realtime/Get.hs+16−108

This diff is too big to show here.

gogol-drive/gen/Network/Google/Resource/Drive/Realtime/Update.hs+9−88

This diff is too big to show here.

gogol-drive/gen/Network/Google/Resource/Drive/Replies/Delete.hs+9−91

This diff is too big to show here.

gogol-drive/gen/Network/Google/Resource/Drive/Replies/Get.hs+7−86

This diff is too big to show here.

gogol-drive/gen/Network/Google/Resource/Drive/Replies/Insert.hs+12−92

This diff is too big to show here.

gogol-drive/gen/Network/Google/Resource/Drive/Replies/List.hs+8−89

This diff is too big to show here.

gogol-drive/gen/Network/Google/Resource/Drive/Replies/Patch.hs+13−92

This diff is too big to show here.

gogol-drive/gen/Network/Google/Resource/Drive/Replies/Update.hs+12−94

This diff is too big to show here.

gogol-drive/gen/Network/Google/Resource/Drive/Revisions/Delete.hs+9−88

This diff is too big to show here.

gogol-drive/gen/Network/Google/Resource/Drive/Revisions/Get.hs+9−91

This diff is too big to show here.

gogol-drive/gen/Network/Google/Resource/Drive/Revisions/List.hs+8−87

This diff is too big to show here.

gogol-drive/gen/Network/Google/Resource/Drive/Revisions/Patch.hs+11−93

This diff is too big to show here.

gogol-drive/gen/Network/Google/Resource/Drive/Revisions/Update.hs+11−90

This diff is too big to show here.

gogol-fitness/gen/Network/Google/Fitness.hs+4−1

This diff is too big to show here.

gogol-fitness/gen/Network/Google/Fitness/Types.hs+38−5

This diff is too big to show here.

gogol-fitness/gen/Network/Google/Resource/Fitness/Users/DataSources/Create.hs+10−94

This diff is too big to show here.

gogol-fitness/gen/Network/Google/Resource/Fitness/Users/DataSources/Datasets/Delete.hs+7−91

This diff is too big to show here.

gogol-fitness/gen/Network/Google/Resource/Fitness/Users/DataSources/Datasets/Get.hs+7−91

This diff is too big to show here.

gogol-fitness/gen/Network/Google/Resource/Fitness/Users/DataSources/Datasets/Patch.hs+8−92

This diff is too big to show here.

gogol-fitness/gen/Network/Google/Resource/Fitness/Users/DataSources/Delete.hs+8−91

This diff is too big to show here.

gogol-fitness/gen/Network/Google/Resource/Fitness/Users/DataSources/Get.hs+8−91

This diff is too big to show here.

gogol-fitness/gen/Network/Google/Resource/Fitness/Users/DataSources/List.hs+8−91

This diff is too big to show here.

gogol-fitness/gen/Network/Google/Resource/Fitness/Users/DataSources/Patch.hs+10−93

This diff is too big to show here.

gogol-fitness/gen/Network/Google/Resource/Fitness/Users/DataSources/Update.hs+9−92

This diff is too big to show here.

gogol-fitness/gen/Network/Google/Resource/Fitness/Users/Dataset/Aggregate.hs+11−93

This diff is too big to show here.

gogol-fitness/gen/Network/Google/Resource/Fitness/Users/Sessions/Delete.hs+7−89

This diff is too big to show here.

gogol-fitness/gen/Network/Google/Resource/Fitness/Users/Sessions/List.hs+8−90

This diff is too big to show here.

gogol-fitness/gen/Network/Google/Resource/Fitness/Users/Sessions/Update.hs+8−90

This diff is too big to show here.

gogol-fonts/gen/Network/Google/Fonts.hs+4−1

This diff is too big to show here.

gogol-fonts/gen/Network/Google/Fonts/Types.hs+6−5

This diff is too big to show here.

gogol-fonts/gen/Network/Google/Resource/Webfonts/Webfonts/List.hs+8−87

This diff is too big to show here.

gogol-freebasesearch/gen/Network/Google/FreebaseSearch.hs+4−1

This diff is too big to show here.

gogol-freebasesearch/gen/Network/Google/FreebaseSearch/Types.hs+6−5

This diff is too big to show here.

gogol-freebasesearch/gen/Network/Google/Method/Freebase/Reconcile.hs+11−90

This diff is too big to show here.

gogol-freebasesearch/gen/Network/Google/Method/Freebase/Search.hs+34−157

This diff is too big to show here.

gogol-fusiontables/gen/Network/Google/FusionTables.hs+23−20

This diff is too big to show here.

gogol-fusiontables/gen/Network/Google/FusionTables/Types.hs+37−24

This diff is too big to show here.

gogol-fusiontables/gen/Network/Google/FusionTables/Types/Product.hs+135−136

This diff is too big to show here.

gogol-fusiontables/gen/Network/Google/Resource/FusionTables/Column/Delete.hs+9−88

This diff is too big to show here.

gogol-fusiontables/gen/Network/Google/Resource/FusionTables/Column/Get.hs+9−87

This diff is too big to show here.

gogol-fusiontables/gen/Network/Google/Resource/FusionTables/Column/Insert.hs+10−89

This diff is too big to show here.

gogol-fusiontables/gen/Network/Google/Resource/FusionTables/Column/List.hs+9−87

This diff is too big to show here.

gogol-fusiontables/gen/Network/Google/Resource/FusionTables/Column/Patch.hs+11−90

This diff is too big to show here.

gogol-fusiontables/gen/Network/Google/Resource/FusionTables/Column/Update.hs+11−91

This diff is too big to show here.

gogol-fusiontables/gen/Network/Google/Resource/FusionTables/Query/SQL.hs+14−107

This diff is too big to show here.

gogol-fusiontables/gen/Network/Google/Resource/FusionTables/Query/SQLGet.hs+14−107

This diff is too big to show here.

gogol-fusiontables/gen/Network/Google/Resource/FusionTables/Style/Delete.hs+9−87

This diff is too big to show here.

gogol-fusiontables/gen/Network/Google/Resource/FusionTables/Style/Get.hs+9−87

This diff is too big to show here.

gogol-fusiontables/gen/Network/Google/Resource/FusionTables/Style/Insert.hs+11−89

This diff is too big to show here.

gogol-fusiontables/gen/Network/Google/Resource/FusionTables/Style/List.hs+10−88

This diff is too big to show here.

gogol-fusiontables/gen/Network/Google/Resource/FusionTables/Style/Patch.hs+12−91

This diff is too big to show here.

gogol-fusiontables/gen/Network/Google/Resource/FusionTables/Style/Update.hs+12−91

This diff is too big to show here.

gogol-fusiontables/gen/Network/Google/Resource/FusionTables/Table/Copy.hs+8−86

This diff is too big to show here.

gogol-fusiontables/gen/Network/Google/Resource/FusionTables/Table/Delete.hs+8−86

This diff is too big to show here.

gogol-fusiontables/gen/Network/Google/Resource/FusionTables/Table/Get.hs+14−92

This diff is too big to show here.

gogol-fusiontables/gen/Network/Google/Resource/FusionTables/Table/ImportRows.hs+15−97

This diff is too big to show here.

gogol-fusiontables/gen/Network/Google/Resource/FusionTables/Table/ImportTable.hs+12−93

This diff is too big to show here.

gogol-fusiontables/gen/Network/Google/Resource/FusionTables/Table/Insert.hs+14−96

This diff is too big to show here.

gogol-fusiontables/gen/Network/Google/Resource/FusionTables/Table/List.hs+20−102

This diff is too big to show here.

gogol-fusiontables/gen/Network/Google/Resource/FusionTables/Table/Patch.hs+8−89

This diff is too big to show here.

gogol-fusiontables/gen/Network/Google/Resource/FusionTables/Table/ReplaceRows.hs+15−97

This diff is too big to show here.

gogol-fusiontables/gen/Network/Google/Resource/FusionTables/Table/Update.hs+9−86

This diff is too big to show here.

gogol-fusiontables/gen/Network/Google/Resource/FusionTables/Task/Delete.hs+9−86

This diff is too big to show here.

gogol-fusiontables/gen/Network/Google/Resource/FusionTables/Task/Get.hs+8−87

This diff is too big to show here.

gogol-fusiontables/gen/Network/Google/Resource/FusionTables/Task/List.hs+10−88

This diff is too big to show here.

gogol-fusiontables/gen/Network/Google/Resource/FusionTables/Template/Delete.hs+9−91

This diff is too big to show here.

gogol-fusiontables/gen/Network/Google/Resource/FusionTables/Template/Get.hs+9−90

This diff is too big to show here.

gogol-fusiontables/gen/Network/Google/Resource/FusionTables/Template/Insert.hs+10−89

This diff is too big to show here.

gogol-fusiontables/gen/Network/Google/Resource/FusionTables/Template/List.hs+9−91

This diff is too big to show here.

gogol-fusiontables/gen/Network/Google/Resource/FusionTables/Template/Patch.hs+11−90

This diff is too big to show here.

gogol-fusiontables/gen/Network/Google/Resource/FusionTables/Template/Update.hs+11−93

This diff is too big to show here.

gogol-games-configuration/gen/Network/Google/GamesConfiguration.hs+4−1

This diff is too big to show here.

gogol-games-configuration/gen/Network/Google/GamesConfiguration/Types.hs+14−5

This diff is too big to show here.

gogol-games-configuration/gen/Network/Google/Resource/GamesConfiguration/AchievementConfigurations/Delete.hs+9−92

This diff is too big to show here.

gogol-games-configuration/gen/Network/Google/Resource/GamesConfiguration/AchievementConfigurations/Get.hs+10−93

This diff is too big to show here.

gogol-games-configuration/gen/Network/Google/Resource/GamesConfiguration/AchievementConfigurations/Insert.hs+10−94

This diff is too big to show here.

gogol-games-configuration/gen/Network/Google/Resource/GamesConfiguration/AchievementConfigurations/List.hs+8−91

This diff is too big to show here.

gogol-games-configuration/gen/Network/Google/Resource/GamesConfiguration/AchievementConfigurations/Patch.hs+10−94

This diff is too big to show here.

gogol-games-configuration/gen/Network/Google/Resource/GamesConfiguration/AchievementConfigurations/Update.hs+10−94

This diff is too big to show here.

gogol-games-configuration/gen/Network/Google/Resource/GamesConfiguration/ImageConfigurations/Upload.hs+12−94

This diff is too big to show here.

gogol-games-configuration/gen/Network/Google/Resource/GamesConfiguration/LeaderboardConfigurations/Delete.hs+9−92

This diff is too big to show here.

gogol-games-configuration/gen/Network/Google/Resource/GamesConfiguration/LeaderboardConfigurations/Get.hs+10−93

This diff is too big to show here.

gogol-games-configuration/gen/Network/Google/Resource/GamesConfiguration/LeaderboardConfigurations/Insert.hs+10−94

This diff is too big to show here.

gogol-games-configuration/gen/Network/Google/Resource/GamesConfiguration/LeaderboardConfigurations/List.hs+8−91

This diff is too big to show here.

gogol-games-configuration/gen/Network/Google/Resource/GamesConfiguration/LeaderboardConfigurations/Patch.hs+10−94

This diff is too big to show here.

gogol-games-configuration/gen/Network/Google/Resource/GamesConfiguration/LeaderboardConfigurations/Update.hs+10−94

This diff is too big to show here.

gogol-games-management/gen/Network/Google/GamesManagement.hs+4−1

This diff is too big to show here.

gogol-games-management/gen/Network/Google/GamesManagement/Types.hs+20−5

This diff is too big to show here.

gogol-games-management/gen/Network/Google/Resource/GamesManagement/Achievements/Reset.hs+10−89

This diff is too big to show here.

gogol-games-management/gen/Network/Google/Resource/GamesManagement/Achievements/ResetAll.hs+10−94

This diff is too big to show here.

gogol-games-management/gen/Network/Google/Resource/GamesManagement/Achievements/ResetAllForAllPlayers.hs+9−97

This diff is too big to show here.

gogol-games-management/gen/Network/Google/Resource/GamesManagement/Achievements/ResetForAllPlayers.hs+9−93

This diff is too big to show here.

gogol-games-management/gen/Network/Google/Resource/GamesManagement/Achievements/ResetMultipleForAllPlayers.hs+11−96

This diff is too big to show here.

gogol-games-management/gen/Network/Google/Resource/GamesManagement/Applications/ListHidden.hs+8−90

This diff is too big to show here.

gogol-games-management/gen/Network/Google/Resource/GamesManagement/Events/Reset.hs+8−86

This diff is too big to show here.

gogol-games-management/gen/Network/Google/Resource/GamesManagement/Events/ResetAll.hs+9−93

This diff is too big to show here.

gogol-games-management/gen/Network/Google/Resource/GamesManagement/Events/ResetAllForAllPlayers.hs+9−97

This diff is too big to show here.

gogol-games-management/gen/Network/Google/Resource/GamesManagement/Events/ResetForAllPlayers.hs+9−92

This diff is too big to show here.

gogol-games-management/gen/Network/Google/Resource/GamesManagement/Events/ResetMultipleForAllPlayers.hs+11−96

This diff is too big to show here.

gogol-games-management/gen/Network/Google/Resource/GamesManagement/Players/Hide.hs+8−86

This diff is too big to show here.

gogol-games-management/gen/Network/Google/Resource/GamesManagement/Players/Unhide.hs+8−87

This diff is too big to show here.

gogol-games-management/gen/Network/Google/Resource/GamesManagement/Quests/Reset.hs+8−86

This diff is too big to show here.

gogol-games-management/gen/Network/Google/Resource/GamesManagement/Quests/ResetAll.hs+9−93

This diff is too big to show here.

gogol-games-management/gen/Network/Google/Resource/GamesManagement/Quests/ResetAllForAllPlayers.hs+9−97

This diff is too big to show here.

gogol-games-management/gen/Network/Google/Resource/GamesManagement/Quests/ResetForAllPlayers.hs+9−92

This diff is too big to show here.

gogol-games-management/gen/Network/Google/Resource/GamesManagement/Quests/ResetMultipleForAllPlayers.hs+11−96

This diff is too big to show here.

gogol-games-management/gen/Network/Google/Resource/GamesManagement/Rooms/Reset.hs+9−89

This diff is too big to show here.

gogol-games-management/gen/Network/Google/Resource/GamesManagement/Rooms/ResetForAllPlayers.hs+9−95

This diff is too big to show here.

gogol-games-management/gen/Network/Google/Resource/GamesManagement/Scores/Reset.hs+10−88

This diff is too big to show here.

gogol-games-management/gen/Network/Google/Resource/GamesManagement/Scores/ResetAll.hs+10−94

This diff is too big to show here.

gogol-games-management/gen/Network/Google/Resource/GamesManagement/Scores/ResetAllForAllPlayers.hs+9−97

This diff is too big to show here.

gogol-games-management/gen/Network/Google/Resource/GamesManagement/Scores/ResetForAllPlayers.hs+9−92

This diff is too big to show here.

gogol-games-management/gen/Network/Google/Resource/GamesManagement/Scores/ResetMultipleForAllPlayers.hs+11−96

This diff is too big to show here.

gogol-games-management/gen/Network/Google/Resource/GamesManagement/TurnBasedMatches/Reset.hs+9−95

This diff is too big to show here.

gogol-games-management/gen/Network/Google/Resource/GamesManagement/TurnBasedMatches/ResetForAllPlayers.hs+9−100

This diff is too big to show here.

gogol-games/gen/Network/Google/Games.hs+4−1

This diff is too big to show here.

gogol-games/gen/Network/Google/Games/Types.hs+24−5

This diff is too big to show here.

gogol-games/gen/Network/Google/Resource/Games/AchievementDefinitions/List.hs+10−92

This diff is too big to show here.

gogol-games/gen/Network/Google/Resource/Games/Achievements/Increment.hs+6−85

This diff is too big to show here.

gogol-games/gen/Network/Google/Resource/Games/Achievements/List.hs+12−91

This diff is too big to show here.

gogol-games/gen/Network/Google/Resource/Games/Achievements/Reveal.hs+9−89

This diff is too big to show here.

gogol-games/gen/Network/Google/Resource/Games/Achievements/SetStepsAtLeast.hs+8−92

This diff is too big to show here.

gogol-games/gen/Network/Google/Resource/Games/Achievements/Unlock.hs+9−89

This diff is too big to show here.

gogol-games/gen/Network/Google/Resource/Games/Achievements/UpdateMultiple.hs+10−92

This diff is too big to show here.

gogol-games/gen/Network/Google/Resource/Games/Applications/Get.hs+7−86

This diff is too big to show here.

gogol-games/gen/Network/Google/Resource/Games/Applications/Played.hs+9−90

This diff is too big to show here.

gogol-games/gen/Network/Google/Resource/Games/Events/ListByPlayer.hs+10−93

This diff is too big to show here.

gogol-games/gen/Network/Google/Resource/Games/Events/ListDefinitions.hs+10−92

This diff is too big to show here.

gogol-games/gen/Network/Google/Resource/Games/Events/Record.hs+11−90

This diff is too big to show here.

gogol-games/gen/Network/Google/Resource/Games/Leaderboards/Get.hs+8−87

This diff is too big to show here.

gogol-games/gen/Network/Google/Resource/Games/Leaderboards/List.hs+10−89

This diff is too big to show here.

gogol-games/gen/Network/Google/Resource/Games/Metagame/GetMetagameConfig.hs+10−96

This diff is too big to show here.

gogol-games/gen/Network/Google/Resource/Games/Metagame/ListCategoriesByPlayer.hs+12−96

This diff is too big to show here.

gogol-games/gen/Network/Google/Resource/Games/Players/Get.hs+9−87

This diff is too big to show here.

gogol-games/gen/Network/Google/Resource/Games/Players/List.hs+11−89

This diff is too big to show here.

gogol-games/gen/Network/Google/Resource/Games/Pushtokens/Remove.hs+9−88

This diff is too big to show here.

gogol-games/gen/Network/Google/Resource/Games/Pushtokens/Update.hs+9−88

This diff is too big to show here.

gogol-games/gen/Network/Google/Resource/Games/QuestMilestones/Claim.hs+5−87

This diff is too big to show here.

gogol-games/gen/Network/Google/Resource/Games/Quests/Accept.hs+9−88

This diff is too big to show here.

gogol-games/gen/Network/Google/Resource/Games/Quests/List.hs+11−89

This diff is too big to show here.

gogol-games/gen/Network/Google/Resource/Games/Revisions/Check.hs+10−89

This diff is too big to show here.

gogol-games/gen/Network/Google/Resource/Games/Rooms/Create.hs+23−105

This diff is too big to show here.

gogol-games/gen/Network/Google/Resource/Games/Rooms/Decline.hs+9−88

This diff is too big to show here.

gogol-games/gen/Network/Google/Resource/Games/Rooms/Dismiss.hs+14−96

This diff is too big to show here.

gogol-games/gen/Network/Google/Resource/Games/Rooms/Get.hs+9−87

This diff is too big to show here.

gogol-games/gen/Network/Google/Resource/Games/Rooms/Join.hs+11−90

This diff is too big to show here.

gogol-games/gen/Network/Google/Resource/Games/Rooms/Leave.hs+11−90

This diff is too big to show here.

gogol-games/gen/Network/Google/Resource/Games/Rooms/List.hs+10−86

This diff is too big to show here.

gogol-games/gen/Network/Google/Resource/Games/Rooms/ReportStatus.hs+12−94

This diff is too big to show here.

gogol-games/gen/Network/Google/Resource/Games/Scores/Get.hs+8−87

This diff is too big to show here.

gogol-games/gen/Network/Google/Resource/Games/Scores/List.hs+8−89

This diff is too big to show here.

gogol-games/gen/Network/Google/Resource/Games/Scores/ListWindow.hs+8−90

This diff is too big to show here.

gogol-games/gen/Network/Google/Resource/Games/Scores/Submit.hs+8−87

This diff is too big to show here.

gogol-games/gen/Network/Google/Resource/Games/Scores/SubmitMultiple.hs+11−94

This diff is too big to show here.

gogol-games/gen/Network/Google/Resource/Games/Snapshots/Get.hs+9−87

This diff is too big to show here.

gogol-games/gen/Network/Google/Resource/Games/Snapshots/List.hs+11−90

This diff is too big to show here.

gogol-games/gen/Network/Google/Resource/Games/TurnBasedMatches/Cancel.hs+8−92

This diff is too big to show here.

gogol-games/gen/Network/Google/Resource/Games/TurnBasedMatches/Create.hs+23−106

This diff is too big to show here.

gogol-games/gen/Network/Google/Resource/Games/TurnBasedMatches/Decline.hs+9−88

This diff is too big to show here.

gogol-games/gen/Network/Google/Resource/Games/TurnBasedMatches/Dismiss.hs+8−92

This diff is too big to show here.

gogol-games/gen/Network/Google/Resource/Games/TurnBasedMatches/Finish.hs+12−95

This diff is too big to show here.

gogol-games/gen/Network/Google/Resource/Games/TurnBasedMatches/Get.hs+8−91

This diff is too big to show here.

gogol-games/gen/Network/Google/Resource/Games/TurnBasedMatches/Join.hs+10−93

This diff is too big to show here.

gogol-games/gen/Network/Google/Resource/Games/TurnBasedMatches/Leave.hs+22−106

This diff is too big to show here.

gogol-games/gen/Network/Google/Resource/Games/TurnBasedMatches/LeaveTurn.hs+8−91

This diff is too big to show here.

gogol-games/gen/Network/Google/Resource/Games/TurnBasedMatches/List.hs+6−89

This diff is too big to show here.

gogol-games/gen/Network/Google/Resource/Games/TurnBasedMatches/Rematch.hs+9−92

This diff is too big to show here.

gogol-games/gen/Network/Google/Resource/Games/TurnBasedMatches/Sync.hs+6−89

This diff is too big to show here.

gogol-games/gen/Network/Google/Resource/Games/TurnBasedMatches/TakeTurn.hs+12−95

This diff is too big to show here.

gogol-genomics/gen/Network/Google/Genomics.hs+4−1

This diff is too big to show here.

gogol-genomics/gen/Network/Google/Genomics/Types.hs+33−5

This diff is too big to show here.

gogol-genomics/gen/Network/Google/Resource/Genomics/Callsets/Create.hs+6−74

This diff is too big to show here.

gogol-genomics/gen/Network/Google/Resource/Genomics/Callsets/Delete.hs+5−73

This diff is too big to show here.

gogol-genomics/gen/Network/Google/Resource/Genomics/Callsets/Get.hs+5−72

This diff is too big to show here.

gogol-genomics/gen/Network/Google/Resource/Genomics/Callsets/Patch.hs+6−74

This diff is too big to show here.

gogol-genomics/gen/Network/Google/Resource/Genomics/Callsets/Search.hs+7−74

This diff is too big to show here.

gogol-genomics/gen/Network/Google/Resource/Genomics/Datasets/Create.hs+6−74

This diff is too big to show here.

gogol-genomics/gen/Network/Google/Resource/Genomics/Datasets/Delete.hs+5−73

This diff is too big to show here.

gogol-genomics/gen/Network/Google/Resource/Genomics/Datasets/Get.hs+5−72

This diff is too big to show here.

gogol-genomics/gen/Network/Google/Resource/Genomics/Datasets/GetIAMPolicy.hs+7−77

This diff is too big to show here.

gogol-genomics/gen/Network/Google/Resource/Genomics/Datasets/List.hs+6−73

This diff is too big to show here.

gogol-genomics/gen/Network/Google/Resource/Genomics/Datasets/Patch.hs+6−74

This diff is too big to show here.

gogol-genomics/gen/Network/Google/Resource/Genomics/Datasets/SetIAMPolicy.hs+7−77

This diff is too big to show here.

gogol-genomics/gen/Network/Google/Resource/Genomics/Datasets/TestIAMPermissions.hs+7−77

This diff is too big to show here.

gogol-genomics/gen/Network/Google/Resource/Genomics/Datasets/Undelete.hs+7−74

This diff is too big to show here.

gogol-genomics/gen/Network/Google/Resource/Genomics/Operations/Cancel.hs+7−74

This diff is too big to show here.

gogol-genomics/gen/Network/Google/Resource/Genomics/Operations/Delete.hs+5−73

This diff is too big to show here.

gogol-genomics/gen/Network/Google/Resource/Genomics/Operations/Get.hs+5−73

This diff is too big to show here.

gogol-genomics/gen/Network/Google/Resource/Genomics/Operations/List.hs+6−73

This diff is too big to show here.

gogol-genomics/gen/Network/Google/Resource/Genomics/Readgroupsets/Coveragebuckets/List.hs+6−78

This diff is too big to show here.

gogol-genomics/gen/Network/Google/Resource/Genomics/Readgroupsets/Delete.hs+5−73

This diff is too big to show here.

gogol-genomics/gen/Network/Google/Resource/Genomics/Readgroupsets/Export.hs+7−74

This diff is too big to show here.

gogol-genomics/gen/Network/Google/Resource/Genomics/Readgroupsets/Get.hs+5−73

This diff is too big to show here.

gogol-genomics/gen/Network/Google/Resource/Genomics/Readgroupsets/Import.hs+7−74

This diff is too big to show here.

gogol-genomics/gen/Network/Google/Resource/Genomics/Readgroupsets/Patch.hs+7−74

This diff is too big to show here.

gogol-genomics/gen/Network/Google/Resource/Genomics/Readgroupsets/Search.hs+7−77

This diff is too big to show here.

gogol-genomics/gen/Network/Google/Resource/Genomics/Reads/Search.hs+7−73

This diff is too big to show here.

gogol-genomics/gen/Network/Google/Resource/Genomics/References/Bases/List.hs+6−75

This diff is too big to show here.

gogol-genomics/gen/Network/Google/Resource/Genomics/References/Get.hs+5−75

This diff is too big to show here.

gogol-genomics/gen/Network/Google/Resource/Genomics/References/Search.hs+7−76

This diff is too big to show here.

gogol-genomics/gen/Network/Google/Resource/Genomics/Referencesets/Get.hs+5−72

This diff is too big to show here.

gogol-genomics/gen/Network/Google/Resource/Genomics/Referencesets/Search.hs+7−77

This diff is too big to show here.

gogol-genomics/gen/Network/Google/Resource/Genomics/Variants/Create.hs+6−76

This diff is too big to show here.

gogol-genomics/gen/Network/Google/Resource/Genomics/Variants/Delete.hs+5−73

This diff is too big to show here.

gogol-genomics/gen/Network/Google/Resource/Genomics/Variants/Get.hs+5−74

This diff is too big to show here.

gogol-genomics/gen/Network/Google/Resource/Genomics/Variants/Import.hs+7−74

This diff is too big to show here.

gogol-genomics/gen/Network/Google/Resource/Genomics/Variants/Patch.hs+6−76

This diff is too big to show here.

gogol-genomics/gen/Network/Google/Resource/Genomics/Variants/Search.hs+7−74

This diff is too big to show here.

gogol-genomics/gen/Network/Google/Resource/Genomics/Variantsets/Create.hs+6−74

This diff is too big to show here.

gogol-genomics/gen/Network/Google/Resource/Genomics/Variantsets/Delete.hs+5−75

This diff is too big to show here.

gogol-genomics/gen/Network/Google/Resource/Genomics/Variantsets/Export.hs+7−74

This diff is too big to show here.

gogol-genomics/gen/Network/Google/Resource/Genomics/Variantsets/Get.hs+5−73

This diff is too big to show here.

gogol-genomics/gen/Network/Google/Resource/Genomics/Variantsets/Patch.hs+7−74

This diff is too big to show here.

gogol-genomics/gen/Network/Google/Resource/Genomics/Variantsets/Search.hs+7−73

This diff is too big to show here.

gogol-gmail/gen/Network/Google/Gmail.hs+4−1

This diff is too big to show here.

gogol-gmail/gen/Network/Google/Gmail/Types.hs+46−8

This diff is too big to show here.

gogol-gmail/gen/Network/Google/Resource/Gmail/Users/Drafts/Create.hs+12−95

This diff is too big to show here.

gogol-gmail/gen/Network/Google/Resource/Gmail/Users/Drafts/Delete.hs+8−91

This diff is too big to show here.

gogol-gmail/gen/Network/Google/Resource/Gmail/Users/Drafts/Get.hs+9−91

This diff is too big to show here.

gogol-gmail/gen/Network/Google/Resource/Gmail/Users/Drafts/List.hs+10−92

This diff is too big to show here.

gogol-gmail/gen/Network/Google/Resource/Gmail/Users/Drafts/Send.hs+12−95

This diff is too big to show here.

gogol-gmail/gen/Network/Google/Resource/Gmail/Users/Drafts/Update.hs+13−96

This diff is too big to show here.

gogol-gmail/gen/Network/Google/Resource/Gmail/Users/GetProFile.hs+8−92

This diff is too big to show here.

gogol-gmail/gen/Network/Google/Resource/Gmail/Users/History/List.hs+8−90

This diff is too big to show here.

gogol-gmail/gen/Network/Google/Resource/Gmail/Users/Labels/Create.hs+10−92

This diff is too big to show here.

gogol-gmail/gen/Network/Google/Resource/Gmail/Users/Labels/Delete.hs+8−91

This diff is too big to show here.

gogol-gmail/gen/Network/Google/Resource/Gmail/Users/Labels/Get.hs+8−91

This diff is too big to show here.

gogol-gmail/gen/Network/Google/Resource/Gmail/Users/Labels/List.hs+9−91

This diff is too big to show here.

gogol-gmail/gen/Network/Google/Resource/Gmail/Users/Labels/Patch.hs+11−94

This diff is too big to show here.

gogol-gmail/gen/Network/Google/Resource/Gmail/Users/Labels/Update.hs+11−94

This diff is too big to show here.

gogol-gmail/gen/Network/Google/Resource/Gmail/Users/Messages/Attachments/Get.hs+10−94

This diff is too big to show here.

gogol-gmail/gen/Network/Google/Resource/Gmail/Users/Messages/Delete.hs+8−91

This diff is too big to show here.

gogol-gmail/gen/Network/Google/Resource/Gmail/Users/Messages/Get.hs+7−89

This diff is too big to show here.

gogol-gmail/gen/Network/Google/Resource/Gmail/Users/Messages/Import.hs+9−87

This diff is too big to show here.

gogol-gmail/gen/Network/Google/Resource/Gmail/Users/Messages/Insert.hs+9−91

This diff is too big to show here.

gogol-gmail/gen/Network/Google/Resource/Gmail/Users/Messages/List.hs+8−90

This diff is too big to show here.

gogol-gmail/gen/Network/Google/Resource/Gmail/Users/Messages/Modify.hs+12−95

This diff is too big to show here.

gogol-gmail/gen/Network/Google/Resource/Gmail/Users/Messages/Send.hs+12−95

This diff is too big to show here.

gogol-gmail/gen/Network/Google/Resource/Gmail/Users/Messages/Trash.hs+8−91

This diff is too big to show here.

gogol-gmail/gen/Network/Google/Resource/Gmail/Users/Messages/Untrash.hs+8−91

This diff is too big to show here.

gogol-gmail/gen/Network/Google/Resource/Gmail/Users/Stop.hs+8−87

This diff is too big to show here.

gogol-gmail/gen/Network/Google/Resource/Gmail/Users/Threads/Delete.hs+8−91

This diff is too big to show here.

gogol-gmail/gen/Network/Google/Resource/Gmail/Users/Threads/Get.hs+7−89

This diff is too big to show here.

gogol-gmail/gen/Network/Google/Resource/Gmail/Users/Threads/List.hs+8−90

This diff is too big to show here.

gogol-gmail/gen/Network/Google/Resource/Gmail/Users/Threads/Modify.hs+12−95

This diff is too big to show here.

gogol-gmail/gen/Network/Google/Resource/Gmail/Users/Threads/Trash.hs+8−91

This diff is too big to show here.

gogol-gmail/gen/Network/Google/Resource/Gmail/Users/Threads/Untrash.hs+8−91

This diff is too big to show here.

gogol-gmail/gen/Network/Google/Resource/Gmail/Users/Watch.hs+10−89

This diff is too big to show here.

gogol-groups-migration/gen/Network/Google/GroupsMigration.hs+4−1

This diff is too big to show here.

gogol-groups-migration/gen/Network/Google/GroupsMigration/Types.hs+13−5

This diff is too big to show here.

gogol-groups-migration/gen/Network/Google/Resource/GroupsMigration/Archive/Insert.hs+11−89

This diff is too big to show here.

gogol-groups-settings/gen/Network/Google/GroupsSettings.hs+4−1

This diff is too big to show here.

gogol-groups-settings/gen/Network/Google/GroupsSettings/Types.hs+13−5

This diff is too big to show here.

gogol-groups-settings/gen/Network/Google/Resource/GroupsSettings/Groups/Get.hs+9−87

This diff is too big to show here.

gogol-groups-settings/gen/Network/Google/Resource/GroupsSettings/Groups/Patch.hs+9−88

This diff is too big to show here.

gogol-groups-settings/gen/Network/Google/Resource/GroupsSettings/Groups/Update.hs+9−89

This diff is too big to show here.

gogol-identity-toolkit/gen/Network/Google/IdentityToolkit.hs+4−1

This diff is too big to show here.

gogol-identity-toolkit/gen/Network/Google/IdentityToolkit/Types.hs+6−5

This diff is too big to show here.

gogol-identity-toolkit/gen/Network/Google/Resource/IdentityToolkit/RelyingParty/CreateAuthURI.hs+12−95

This diff is too big to show here.

gogol-identity-toolkit/gen/Network/Google/Resource/IdentityToolkit/RelyingParty/DeleteAccount.hs+11−89

This diff is too big to show here.

gogol-identity-toolkit/gen/Network/Google/Resource/IdentityToolkit/RelyingParty/DownloadAccount.hs+12−96

This diff is too big to show here.

gogol-identity-toolkit/gen/Network/Google/Resource/IdentityToolkit/RelyingParty/GetAccountInfo.hs+12−95

This diff is too big to show here.

gogol-identity-toolkit/gen/Network/Google/Resource/IdentityToolkit/RelyingParty/GetOOBConfirmationCode.hs+11−99

This diff is too big to show here.

gogol-identity-toolkit/gen/Network/Google/Resource/IdentityToolkit/RelyingParty/GetPublicKeys.hs+11−97

This diff is too big to show here.

gogol-identity-toolkit/gen/Network/Google/Resource/IdentityToolkit/RelyingParty/GetRecaptchaParam.hs+10−97

This diff is too big to show here.

gogol-identity-toolkit/gen/Network/Google/Resource/IdentityToolkit/RelyingParty/ResetPassword.hs+12−95

This diff is too big to show here.

gogol-identity-toolkit/gen/Network/Google/Resource/IdentityToolkit/RelyingParty/SetAccountInfo.hs+12−95

This diff is too big to show here.

gogol-identity-toolkit/gen/Network/Google/Resource/IdentityToolkit/RelyingParty/UploadAccount.hs+12−95

This diff is too big to show here.

gogol-identity-toolkit/gen/Network/Google/Resource/IdentityToolkit/RelyingParty/VerifyAssertion.hs+12−96

This diff is too big to show here.

gogol-identity-toolkit/gen/Network/Google/Resource/IdentityToolkit/RelyingParty/VerifyPassword.hs+12−95

This diff is too big to show here.

gogol-latencytest/gen/Network/Google/LatencyTest.hs+4−1

This diff is too big to show here.

gogol-latencytest/gen/Network/Google/LatencyTest/Types.hs+13−6

This diff is too big to show here.

gogol-latencytest/gen/Network/Google/Resource/Cloudlatencytest/Statscollection/Updateaggregatedstats.hs+10−90

This diff is too big to show here.

gogol-latencytest/gen/Network/Google/Resource/Cloudlatencytest/Statscollection/Updatestats.hs+9−87

This diff is too big to show here.

gogol-logging/gen/Network/Google/Logging.hs+4−1

This diff is too big to show here.

gogol-logging/gen/Network/Google/Logging/Types.hs+34−5

This diff is too big to show here.

gogol-logging/gen/Network/Google/Resource/Logging/Projects/LogServices/Indexes/List.hs+7−80

This diff is too big to show here.

gogol-logging/gen/Network/Google/Resource/Logging/Projects/LogServices/List.hs+6−76

This diff is too big to show here.

gogol-logging/gen/Network/Google/Resource/Logging/Projects/LogServices/Sinks/Create.hs+6−78

This diff is too big to show here.

gogol-logging/gen/Network/Google/Resource/Logging/Projects/LogServices/Sinks/Delete.hs+6−77

This diff is too big to show here.

gogol-logging/gen/Network/Google/Resource/Logging/Projects/LogServices/Sinks/Get.hs+5−77

This diff is too big to show here.

gogol-logging/gen/Network/Google/Resource/Logging/Projects/LogServices/Sinks/List.hs+6−78

This diff is too big to show here.

gogol-logging/gen/Network/Google/Resource/Logging/Projects/LogServices/Sinks/Update.hs+7−78

This diff is too big to show here.

gogol-logging/gen/Network/Google/Resource/Logging/Projects/Logs/Delete.hs+5−75

This diff is too big to show here.

gogol-logging/gen/Network/Google/Resource/Logging/Projects/Logs/Entries/Write.hs+7−80

This diff is too big to show here.

gogol-logging/gen/Network/Google/Resource/Logging/Projects/Logs/List.hs+6−75

This diff is too big to show here.

gogol-logging/gen/Network/Google/Resource/Logging/Projects/Logs/Sinks/Create.hs+6−77

This diff is too big to show here.

gogol-logging/gen/Network/Google/Resource/Logging/Projects/Logs/Sinks/Delete.hs+6−76

This diff is too big to show here.

gogol-logging/gen/Network/Google/Resource/Logging/Projects/Logs/Sinks/Get.hs+5−76

This diff is too big to show here.

gogol-logging/gen/Network/Google/Resource/Logging/Projects/Logs/Sinks/List.hs+6−72

This diff is too big to show here.

gogol-logging/gen/Network/Google/Resource/Logging/Projects/Logs/Sinks/Update.hs+7−77

This diff is too big to show here.

gogol-logging/gen/Network/Google/Resource/Logging/Projects/Sinks/Create.hs+6−76

This diff is too big to show here.

gogol-logging/gen/Network/Google/Resource/Logging/Projects/Sinks/Delete.hs+5−75

This diff is too big to show here.

gogol-logging/gen/Network/Google/Resource/Logging/Projects/Sinks/Get.hs+5−75

This diff is too big to show here.

gogol-logging/gen/Network/Google/Resource/Logging/Projects/Sinks/List.hs+6−75

This diff is too big to show here.

gogol-logging/gen/Network/Google/Resource/Logging/Projects/Sinks/Update.hs+6−76

This diff is too big to show here.

gogol-maps-coordinate/gen/Network/Google/MapsCoordinate.hs+4−1

This diff is too big to show here.

gogol-maps-coordinate/gen/Network/Google/MapsCoordinate/Types.hs+18−5

This diff is too big to show here.

gogol-maps-coordinate/gen/Network/Google/Resource/Coordinate/CustomFieldDef/List.hs+9−93

This diff is too big to show here.

gogol-maps-coordinate/gen/Network/Google/Resource/Coordinate/Jobs/Get.hs+8−87

This diff is too big to show here.

gogol-maps-coordinate/gen/Network/Google/Resource/Coordinate/Jobs/Insert.hs+8−87

This diff is too big to show here.

gogol-maps-coordinate/gen/Network/Google/Resource/Coordinate/Jobs/List.hs+8−86

This diff is too big to show here.

gogol-maps-coordinate/gen/Network/Google/Resource/Coordinate/Jobs/Patch.hs+8−87

This diff is too big to show here.

gogol-maps-coordinate/gen/Network/Google/Resource/Coordinate/Jobs/Update.hs+8−87

This diff is too big to show here.

gogol-maps-coordinate/gen/Network/Google/Resource/Coordinate/Location/List.hs+8−87

This diff is too big to show here.

gogol-maps-coordinate/gen/Network/Google/Resource/Coordinate/Schedule/Get.hs+9−87

This diff is too big to show here.

gogol-maps-coordinate/gen/Network/Google/Resource/Coordinate/Schedule/Patch.hs+14−94

This diff is too big to show here.

gogol-maps-coordinate/gen/Network/Google/Resource/Coordinate/Schedule/Update.hs+14−94

This diff is too big to show here.

gogol-maps-coordinate/gen/Network/Google/Resource/Coordinate/Team/List.hs+11−89

This diff is too big to show here.

gogol-maps-coordinate/gen/Network/Google/Resource/Coordinate/Worker/List.hs+9−87

This diff is too big to show here.

gogol-maps-engine/gen/Network/Google/MapsEngine.hs+4−1

This diff is too big to show here.

gogol-maps-engine/gen/Network/Google/MapsEngine/Types.hs+18−5

This diff is too big to show here.

gogol-maps-engine/gen/Network/Google/Resource/MapsEngine/Assets/Get.hs+8−86

This diff is too big to show here.

gogol-maps-engine/gen/Network/Google/Resource/MapsEngine/Assets/List.hs+6−84

This diff is too big to show here.

gogol-maps-engine/gen/Network/Google/Resource/MapsEngine/Assets/Parents/List.hs+10−92

This diff is too big to show here.

gogol-maps-engine/gen/Network/Google/Resource/MapsEngine/Assets/Permissions/List.hs+9−91

This diff is too big to show here.

gogol-maps-engine/gen/Network/Google/Resource/MapsEngine/Layers/CancelProcessing.hs+9−91

This diff is too big to show here.

gogol-maps-engine/gen/Network/Google/Resource/MapsEngine/Layers/Create.hs+10−89

This diff is too big to show here.

gogol-maps-engine/gen/Network/Google/Resource/MapsEngine/Layers/Delete.hs+8−87

This diff is too big to show here.

gogol-maps-engine/gen/Network/Google/Resource/MapsEngine/Layers/Get.hs+9−87

This diff is too big to show here.

gogol-maps-engine/gen/Network/Google/Resource/MapsEngine/Layers/GetPublished.hs+9−91

This diff is too big to show here.

gogol-maps-engine/gen/Network/Google/Resource/MapsEngine/Layers/List.hs+6−84

This diff is too big to show here.

gogol-maps-engine/gen/Network/Google/Resource/MapsEngine/Layers/ListPublished.hs+10−92

This diff is too big to show here.

gogol-maps-engine/gen/Network/Google/Resource/MapsEngine/Layers/Parents/List.hs+10−93

This diff is too big to show here.

gogol-maps-engine/gen/Network/Google/Resource/MapsEngine/Layers/Patch.hs+10−91

This diff is too big to show here.

gogol-maps-engine/gen/Network/Google/Resource/MapsEngine/Layers/Permissions/BatchDelete.hs+11−95

This diff is too big to show here.

gogol-maps-engine/gen/Network/Google/Resource/MapsEngine/Layers/Permissions/BatchUpdate.hs+11−95

This diff is too big to show here.

gogol-maps-engine/gen/Network/Google/Resource/MapsEngine/Layers/Permissions/List.hs+9−91

This diff is too big to show here.

gogol-maps-engine/gen/Network/Google/Resource/MapsEngine/Layers/Process.hs+9−88

This diff is too big to show here.

gogol-maps-engine/gen/Network/Google/Resource/MapsEngine/Layers/Publish.hs+9−87

This diff is too big to show here.

gogol-maps-engine/gen/Network/Google/Resource/MapsEngine/Layers/UnPublish.hs+9−91

This diff is too big to show here.

gogol-maps-engine/gen/Network/Google/Resource/MapsEngine/Maps/Create.hs+9−87

This diff is too big to show here.

gogol-maps-engine/gen/Network/Google/Resource/MapsEngine/Maps/Delete.hs+8−86

This diff is too big to show here.

gogol-maps-engine/gen/Network/Google/Resource/MapsEngine/Maps/Get.hs+8−87

This diff is too big to show here.

gogol-maps-engine/gen/Network/Google/Resource/MapsEngine/Maps/GetPublished.hs+8−90

This diff is too big to show here.

gogol-maps-engine/gen/Network/Google/Resource/MapsEngine/Maps/List.hs+109−193

This diff is too big to show here.

gogol-maps-engine/gen/Network/Google/Resource/MapsEngine/Maps/ListPublished.hs+10−92

This diff is too big to show here.

gogol-maps-engine/gen/Network/Google/Resource/MapsEngine/Maps/Patch.hs+10−88

This diff is too big to show here.

gogol-maps-engine/gen/Network/Google/Resource/MapsEngine/Maps/Permissions/BatchDelete.hs+11−94

This diff is too big to show here.

gogol-maps-engine/gen/Network/Google/Resource/MapsEngine/Maps/Permissions/BatchUpdate.hs+11−94

This diff is too big to show here.

gogol-maps-engine/gen/Network/Google/Resource/MapsEngine/Maps/Permissions/List.hs+9−91

This diff is too big to show here.

gogol-maps-engine/gen/Network/Google/Resource/MapsEngine/Maps/Publish.hs+9−86

This diff is too big to show here.

gogol-maps-engine/gen/Network/Google/Resource/MapsEngine/Maps/UnPublish.hs+9−91

This diff is too big to show here.

gogol-maps-engine/gen/Network/Google/Resource/MapsEngine/Projects/Icons/Create.hs+12−95

This diff is too big to show here.

gogol-maps-engine/gen/Network/Google/Resource/MapsEngine/Projects/Icons/Get.hs+16−110

This diff is too big to show here.

gogol-maps-engine/gen/Network/Google/Resource/MapsEngine/Projects/Icons/List.hs+10−92

This diff is too big to show here.

gogol-maps-engine/gen/Network/Google/Resource/MapsEngine/Projects/List.hs+10−91

This diff is too big to show here.

gogol-maps-engine/gen/Network/Google/Resource/MapsEngine/RasterCollections/CancelProcessing.hs+9−93

This diff is too big to show here.

gogol-maps-engine/gen/Network/Google/Resource/MapsEngine/RasterCollections/Create.hs+10−92

This diff is too big to show here.

gogol-maps-engine/gen/Network/Google/Resource/MapsEngine/RasterCollections/Delete.hs+8−90

This diff is too big to show here.

gogol-maps-engine/gen/Network/Google/Resource/MapsEngine/RasterCollections/Get.hs+9−91

This diff is too big to show here.

gogol-maps-engine/gen/Network/Google/Resource/MapsEngine/RasterCollections/List.hs+6−89

This diff is too big to show here.

gogol-maps-engine/gen/Network/Google/Resource/MapsEngine/RasterCollections/Parents/List.hs+10−94

This diff is too big to show here.

gogol-maps-engine/gen/Network/Google/Resource/MapsEngine/RasterCollections/Patch.hs+10−92

This diff is too big to show here.

gogol-maps-engine/gen/Network/Google/Resource/MapsEngine/RasterCollections/Permissions/BatchDelete.hs+11−96

This diff is too big to show here.

gogol-maps-engine/gen/Network/Google/Resource/MapsEngine/RasterCollections/Permissions/BatchUpdate.hs+11−96

This diff is too big to show here.

gogol-maps-engine/gen/Network/Google/Resource/MapsEngine/RasterCollections/Permissions/List.hs+9−94

This diff is too big to show here.

gogol-maps-engine/gen/Network/Google/Resource/MapsEngine/RasterCollections/Process.hs+9−92

This diff is too big to show here.

gogol-maps-engine/gen/Network/Google/Resource/MapsEngine/RasterCollections/Rasters/BatchDelete.hs+14−99

This diff is too big to show here.

gogol-maps-engine/gen/Network/Google/Resource/MapsEngine/RasterCollections/Rasters/BatchInsert.hs+14−99

This diff is too big to show here.

gogol-maps-engine/gen/Network/Google/Resource/MapsEngine/RasterCollections/Rasters/List.hs+7−91

This diff is too big to show here.

gogol-maps-engine/gen/Network/Google/Resource/MapsEngine/Rasters/Delete.hs+8−87

This diff is too big to show here.

gogol-maps-engine/gen/Network/Google/Resource/MapsEngine/Rasters/Files/Insert.hs+11−93

This diff is too big to show here.

gogol-maps-engine/gen/Network/Google/Resource/MapsEngine/Rasters/Get.hs+8−86

This diff is too big to show here.

gogol-maps-engine/gen/Network/Google/Resource/MapsEngine/Rasters/List.hs+6−84

This diff is too big to show here.

gogol-maps-engine/gen/Network/Google/Resource/MapsEngine/Rasters/Parents/List.hs+10−92

This diff is too big to show here.

gogol-maps-engine/gen/Network/Google/Resource/MapsEngine/Rasters/Patch.hs+9−87

This diff is too big to show here.

gogol-maps-engine/gen/Network/Google/Resource/MapsEngine/Rasters/Permissions/BatchDelete.hs+11−95

This diff is too big to show here.

gogol-maps-engine/gen/Network/Google/Resource/MapsEngine/Rasters/Permissions/BatchUpdate.hs+11−95

This diff is too big to show here.

gogol-maps-engine/gen/Network/Google/Resource/MapsEngine/Rasters/Permissions/List.hs+9−91

This diff is too big to show here.

gogol-maps-engine/gen/Network/Google/Resource/MapsEngine/Rasters/Process.hs+9−88

This diff is too big to show here.

gogol-maps-engine/gen/Network/Google/Resource/MapsEngine/Rasters/Upload.hs+9−88

This diff is too big to show here.

gogol-maps-engine/gen/Network/Google/Resource/MapsEngine/Tables/Create.hs+9−88

This diff is too big to show here.

gogol-maps-engine/gen/Network/Google/Resource/MapsEngine/Tables/Delete.hs+8−87

This diff is too big to show here.

gogol-maps-engine/gen/Network/Google/Resource/MapsEngine/Tables/Features/BatchDelete.hs+11−94

This diff is too big to show here.

gogol-maps-engine/gen/Network/Google/Resource/MapsEngine/Tables/Features/BatchInsert.hs+11−94

This diff is too big to show here.

gogol-maps-engine/gen/Network/Google/Resource/MapsEngine/Tables/Features/BatchPatch.hs+11−94

This diff is too big to show here.

gogol-maps-engine/gen/Network/Google/Resource/MapsEngine/Tables/Features/Get.hs+10−92

This diff is too big to show here.

gogol-maps-engine/gen/Network/Google/Resource/MapsEngine/Tables/Features/List.hs+16−98

This diff is too big to show here.

gogol-maps-engine/gen/Network/Google/Resource/MapsEngine/Tables/Files/Insert.hs+11−93

This diff is too big to show here.

gogol-maps-engine/gen/Network/Google/Resource/MapsEngine/Tables/Get.hs+9−87

This diff is too big to show here.

gogol-maps-engine/gen/Network/Google/Resource/MapsEngine/Tables/List.hs+6−84

This diff is too big to show here.

gogol-maps-engine/gen/Network/Google/Resource/MapsEngine/Tables/Parents/List.hs+10−92

This diff is too big to show here.

gogol-maps-engine/gen/Network/Google/Resource/MapsEngine/Tables/Patch.hs+10−88

This diff is too big to show here.

gogol-maps-engine/gen/Network/Google/Resource/MapsEngine/Tables/Permissions/BatchDelete.hs+11−95

This diff is too big to show here.

gogol-maps-engine/gen/Network/Google/Resource/MapsEngine/Tables/Permissions/BatchUpdate.hs+11−95

This diff is too big to show here.

gogol-maps-engine/gen/Network/Google/Resource/MapsEngine/Tables/Permissions/List.hs+9−91

This diff is too big to show here.

gogol-maps-engine/gen/Network/Google/Resource/MapsEngine/Tables/Process.hs+9−86

This diff is too big to show here.

gogol-maps-engine/gen/Network/Google/Resource/MapsEngine/Tables/Upload.hs+9−88

This diff is too big to show here.

gogol-mirror/gen/Network/Google/Mirror.hs+4−1

This diff is too big to show here.

gogol-mirror/gen/Network/Google/Mirror/Types.hs+18−5

This diff is too big to show here.

gogol-mirror/gen/Network/Google/Resource/Mirror/Accounts/Insert.hs+8−87

This diff is too big to show here.

gogol-mirror/gen/Network/Google/Resource/Mirror/Contacts/Delete.hs+8−87

This diff is too big to show here.

gogol-mirror/gen/Network/Google/Resource/Mirror/Contacts/Get.hs+8−86

This diff is too big to show here.

gogol-mirror/gen/Network/Google/Resource/Mirror/Contacts/Insert.hs+9−88

This diff is too big to show here.

gogol-mirror/gen/Network/Google/Resource/Mirror/Contacts/List.hs+10−91

This diff is too big to show here.

gogol-mirror/gen/Network/Google/Resource/Mirror/Contacts/Patch.hs+9−89

This diff is too big to show here.

gogol-mirror/gen/Network/Google/Resource/Mirror/Contacts/Update.hs+9−89

This diff is too big to show here.

gogol-mirror/gen/Network/Google/Resource/Mirror/Locations/Get.hs+8−87

This diff is too big to show here.

gogol-mirror/gen/Network/Google/Resource/Mirror/Locations/List.hs+10−91

This diff is too big to show here.

gogol-mirror/gen/Network/Google/Resource/Mirror/Settings/Get.hs+8−86

This diff is too big to show here.

gogol-mirror/gen/Network/Google/Resource/Mirror/Subscriptions/Delete.hs+8−87

This diff is too big to show here.

gogol-mirror/gen/Network/Google/Resource/Mirror/Subscriptions/Insert.hs+10−89

This diff is too big to show here.

gogol-mirror/gen/Network/Google/Resource/Mirror/Subscriptions/List.hs+10−91

This diff is too big to show here.

gogol-mirror/gen/Network/Google/Resource/Mirror/Subscriptions/Update.hs+10−90

This diff is too big to show here.

gogol-mirror/gen/Network/Google/Resource/Mirror/Timeline/Attachments/Delete.hs+8−90

This diff is too big to show here.

gogol-mirror/gen/Network/Google/Resource/Mirror/Timeline/Attachments/Get.hs+15−109

This diff is too big to show here.

gogol-mirror/gen/Network/Google/Resource/Mirror/Timeline/Attachments/Insert.hs+11−93

This diff is too big to show here.

gogol-mirror/gen/Network/Google/Resource/Mirror/Timeline/Attachments/List.hs+9−91

This diff is too big to show here.

gogol-mirror/gen/Network/Google/Resource/Mirror/Timeline/Delete.hs+8−87

This diff is too big to show here.

gogol-mirror/gen/Network/Google/Resource/Mirror/Timeline/Get.hs+8−86

This diff is too big to show here.

gogol-mirror/gen/Network/Google/Resource/Mirror/Timeline/Insert.hs+10−90

This diff is too big to show here.

gogol-mirror/gen/Network/Google/Resource/Mirror/Timeline/List.hs+6−85

This diff is too big to show here.

gogol-mirror/gen/Network/Google/Resource/Mirror/Timeline/Patch.hs+10−90

This diff is too big to show here.

gogol-mirror/gen/Network/Google/Resource/Mirror/Timeline/Update.hs+12−92

This diff is too big to show here.

gogol-monitoring/gen/Network/Google/Monitoring.hs+4−1

This diff is too big to show here.

gogol-monitoring/gen/Network/Google/Monitoring/Types.hs+20−5

This diff is too big to show here.

gogol-monitoring/gen/Network/Google/Resource/CloudMonitoring/MetricDescriptors/Create.hs+11−93

This diff is too big to show here.

gogol-monitoring/gen/Network/Google/Resource/CloudMonitoring/MetricDescriptors/Delete.hs+10−92

This diff is too big to show here.

gogol-monitoring/gen/Network/Google/Resource/CloudMonitoring/MetricDescriptors/List.hs+13−95

This diff is too big to show here.

gogol-monitoring/gen/Network/Google/Resource/CloudMonitoring/Timeseries/List.hs+18−97

This diff is too big to show here.

gogol-monitoring/gen/Network/Google/Resource/CloudMonitoring/Timeseries/Write.hs+11−90

This diff is too big to show here.

gogol-monitoring/gen/Network/Google/Resource/CloudMonitoring/TimeseriesDescriptors/List.hs+95−168

This diff is too big to show here.

gogol-oauth2/gen/Network/Google/Method/OAuth2/GetCertForOpenIdConnect.hs+9−96

This diff is too big to show here.

gogol-oauth2/gen/Network/Google/Method/OAuth2/TokenInfo.hs+6−84

This diff is too big to show here.

gogol-oauth2/gen/Network/Google/OAuth2.hs+4−1

This diff is too big to show here.

gogol-oauth2/gen/Network/Google/OAuth2/Types.hs+29−5

This diff is too big to show here.

gogol-oauth2/gen/Network/Google/Resource/OAuth2/UserInfo/Get.hs+9−92

This diff is too big to show here.

gogol-oauth2/gen/Network/Google/Resource/OAuth2/UserInfo/V2/Me/Get.hs+9−95

This diff is too big to show here.

gogol-pagespeed/gen/Network/Google/PageSpeed.hs+4−1

This diff is too big to show here.

gogol-pagespeed/gen/Network/Google/PageSpeed/Types.hs+6−5

This diff is too big to show here.

gogol-pagespeed/gen/Network/Google/Resource/PagespeedOnline/PagespeedAPI/RunPagespeed.hs+5−88

This diff is too big to show here.

gogol-partners/gen/Network/Google/Partners.hs+4−1

This diff is too big to show here.

gogol-partners/gen/Network/Google/Partners/Types.hs+6−5

This diff is too big to show here.

gogol-partners/gen/Network/Google/Resource/Partners/ClientMessages/Log.hs+7−76

This diff is too big to show here.

gogol-partners/gen/Network/Google/Resource/Partners/Companies/Get.hs+6−79

This diff is too big to show here.

gogol-partners/gen/Network/Google/Resource/Partners/Companies/Leads/Create.hs+7−76

This diff is too big to show here.

gogol-partners/gen/Network/Google/Resource/Partners/Companies/List.hs+9−91

This diff is too big to show here.

gogol-partners/gen/Network/Google/Resource/Partners/UserEvents/Log.hs+7−76

This diff is too big to show here.

gogol-partners/gen/Network/Google/Resource/Partners/UserStates/List.hs+6−77

This diff is too big to show here.

gogol-play-moviespartner/gen/Network/Google/PlayMoviesPartner.hs+4−1

This diff is too big to show here.

gogol-play-moviespartner/gen/Network/Google/PlayMoviesPartner/Types.hs+13−6

This diff is too big to show here.

gogol-play-moviespartner/gen/Network/Google/Resource/PlayMoviesPartner/Accounts/Avails/List.hs+6−78

This diff is too big to show here.

gogol-play-moviespartner/gen/Network/Google/Resource/PlayMoviesPartner/Accounts/ExperienceLocales/Get.hs+6−77

This diff is too big to show here.

gogol-play-moviespartner/gen/Network/Google/Resource/PlayMoviesPartner/Accounts/ExperienceLocales/List.hs+7−81

This diff is too big to show here.

gogol-play-moviespartner/gen/Network/Google/Resource/PlayMoviesPartner/Accounts/Orders/Get.hs+5−75

This diff is too big to show here.

gogol-play-moviespartner/gen/Network/Google/Resource/PlayMoviesPartner/Accounts/Orders/List.hs+6−78

This diff is too big to show here.

gogol-play-moviespartner/gen/Network/Google/Resource/PlayMoviesPartner/Accounts/StoreInfos/Country/Get.hs+6−77

This diff is too big to show here.

gogol-play-moviespartner/gen/Network/Google/Resource/PlayMoviesPartner/Accounts/StoreInfos/List.hs+6−79

This diff is too big to show here.

gogol-plus-domains/gen/Network/Google/PlusDomains.hs+4−1

This diff is too big to show here.

gogol-plus-domains/gen/Network/Google/PlusDomains/Types.hs+60−5

This diff is too big to show here.

gogol-plus-domains/gen/Network/Google/Resource/PlusDomains/Activities/Get.hs+8−87

This diff is too big to show here.

gogol-plus-domains/gen/Network/Google/Resource/PlusDomains/Activities/Insert.hs+11−91

This diff is too big to show here.

gogol-plus-domains/gen/Network/Google/Resource/PlusDomains/Activities/List.hs+10−89

This diff is too big to show here.

gogol-plus-domains/gen/Network/Google/Resource/PlusDomains/Audiences/List.hs+9−88

This diff is too big to show here.

gogol-plus-domains/gen/Network/Google/Resource/PlusDomains/Circles/AddPeople.hs+8−90

This diff is too big to show here.

gogol-plus-domains/gen/Network/Google/Resource/PlusDomains/Circles/Get.hs+8−86

This diff is too big to show here.

gogol-plus-domains/gen/Network/Google/Resource/PlusDomains/Circles/Insert.hs+20−104

This diff is too big to show here.

gogol-plus-domains/gen/Network/Google/Resource/PlusDomains/Circles/List.hs+9−87

This diff is too big to show here.

gogol-plus-domains/gen/Network/Google/Resource/PlusDomains/Circles/Patch.hs+10−89

This diff is too big to show here.

gogol-plus-domains/gen/Network/Google/Resource/PlusDomains/Circles/Remove.hs+8−87

This diff is too big to show here.

gogol-plus-domains/gen/Network/Google/Resource/PlusDomains/Circles/RemovePeople.hs+8−90

This diff is too big to show here.

gogol-plus-domains/gen/Network/Google/Resource/PlusDomains/Circles/Update.hs+10−89

This diff is too big to show here.

gogol-plus-domains/gen/Network/Google/Resource/PlusDomains/Comments/Get.hs+14−91

This diff is too big to show here.

gogol-plus-domains/gen/Network/Google/Resource/PlusDomains/Comments/Insert.hs+10−89

This diff is too big to show here.

gogol-plus-domains/gen/Network/Google/Resource/PlusDomains/Comments/List.hs+36−121

This diff is too big to show here.

gogol-plus-domains/gen/Network/Google/Resource/PlusDomains/Media/Insert.hs+13−91

This diff is too big to show here.

gogol-plus-domains/gen/Network/Google/Resource/PlusDomains/People/Get.hs+8−86

This diff is too big to show here.

gogol-plus-domains/gen/Network/Google/Resource/PlusDomains/People/List.hs+11−90

This diff is too big to show here.

gogol-plus-domains/gen/Network/Google/Resource/PlusDomains/People/ListByActivity.hs+10−93

This diff is too big to show here.

gogol-plus-domains/gen/Network/Google/Resource/PlusDomains/People/ListByCircle.hs+9−92

This diff is too big to show here.

gogol-plus/gen/Network/Google/Plus.hs+4−1

This diff is too big to show here.

gogol-plus/gen/Network/Google/Plus/Types.hs+28−5

This diff is too big to show here.

gogol-plus/gen/Network/Google/Resource/Plus/Activities/Get.hs+8−87

This diff is too big to show here.

gogol-plus/gen/Network/Google/Resource/Plus/Activities/List.hs+10−90

This diff is too big to show here.

gogol-plus/gen/Network/Google/Resource/Plus/Activities/Search.hs+11−91

This diff is too big to show here.

gogol-plus/gen/Network/Google/Resource/Plus/Comments/Get.hs+8−86

This diff is too big to show here.

gogol-plus/gen/Network/Google/Resource/Plus/Comments/List.hs+10−89

This diff is too big to show here.

gogol-plus/gen/Network/Google/Resource/Plus/Moments/Insert.hs+12−91

This diff is too big to show here.

gogol-plus/gen/Network/Google/Resource/Plus/Moments/List.hs+12−91

This diff is too big to show here.

gogol-plus/gen/Network/Google/Resource/Plus/People/Get.hs+8−86

This diff is too big to show here.

gogol-plus/gen/Network/Google/Resource/Plus/People/List.hs+11−90

This diff is too big to show here.

gogol-plus/gen/Network/Google/Resource/Plus/People/ListByActivity.hs+10−93

This diff is too big to show here.

gogol-plus/gen/Network/Google/Resource/Plus/People/Search.hs+10−89

This diff is too big to show here.

gogol-prediction/gen/Network/Google/Prediction.hs+4−1

This diff is too big to show here.

gogol-prediction/gen/Network/Google/Prediction/Types.hs+28−5

This diff is too big to show here.

gogol-prediction/gen/Network/Google/Resource/Prediction/HostedModels/Predict.hs+9−91

This diff is too big to show here.

gogol-prediction/gen/Network/Google/Resource/Prediction/TrainedModels/Analyze.hs+9−91

This diff is too big to show here.

gogol-prediction/gen/Network/Google/Resource/Prediction/TrainedModels/Delete.hs+9−91

This diff is too big to show here.

gogol-prediction/gen/Network/Google/Resource/Prediction/TrainedModels/Get.hs+9−91

This diff is too big to show here.

gogol-prediction/gen/Network/Google/Resource/Prediction/TrainedModels/Insert.hs+10−92

This diff is too big to show here.

gogol-prediction/gen/Network/Google/Resource/Prediction/TrainedModels/List.hs+9−91

This diff is too big to show here.

gogol-prediction/gen/Network/Google/Resource/Prediction/TrainedModels/Predict.hs+11−94

This diff is too big to show here.

gogol-prediction/gen/Network/Google/Resource/Prediction/TrainedModels/Update.hs+11−94

This diff is too big to show here.

gogol-proximitybeacon/gen/Network/Google/ProximityBeacon.hs+4−1

This diff is too big to show here.

gogol-proximitybeacon/gen/Network/Google/ProximityBeacon/Types.hs+7−6

This diff is too big to show here.

gogol-proximitybeacon/gen/Network/Google/Resource/ProximityBeacon/BeaconInfo/GetforObserved.hs+7−80

This diff is too big to show here.

gogol-proximitybeacon/gen/Network/Google/Resource/ProximityBeacon/Beacons/Activate.hs+5−72

This diff is too big to show here.

gogol-proximitybeacon/gen/Network/Google/Resource/ProximityBeacon/Beacons/Attachments/BatchDelete.hs+6−77

This diff is too big to show here.

gogol-proximitybeacon/gen/Network/Google/Resource/ProximityBeacon/Beacons/Attachments/Create.hs+7−76

This diff is too big to show here.

gogol-proximitybeacon/gen/Network/Google/Resource/ProximityBeacon/Beacons/Attachments/Delete.hs+5−75

This diff is too big to show here.

gogol-proximitybeacon/gen/Network/Google/Resource/ProximityBeacon/Beacons/Attachments/List.hs+6−75

This diff is too big to show here.

gogol-proximitybeacon/gen/Network/Google/Resource/ProximityBeacon/Beacons/Deactivate.hs+5−74

This diff is too big to show here.

gogol-proximitybeacon/gen/Network/Google/Resource/ProximityBeacon/Beacons/Decommission.hs+5−72

This diff is too big to show here.

gogol-proximitybeacon/gen/Network/Google/Resource/ProximityBeacon/Beacons/Diagnostics/List.hs+6−75

This diff is too big to show here.

gogol-proximitybeacon/gen/Network/Google/Resource/ProximityBeacon/Beacons/Get.hs+5−71

This diff is too big to show here.

gogol-proximitybeacon/gen/Network/Google/Resource/ProximityBeacon/Beacons/List.hs+6−72

This diff is too big to show here.

gogol-proximitybeacon/gen/Network/Google/Resource/ProximityBeacon/Beacons/Register.hs+6−73

This diff is too big to show here.

gogol-proximitybeacon/gen/Network/Google/Resource/ProximityBeacon/Beacons/Update.hs+6−73

This diff is too big to show here.

gogol-proximitybeacon/gen/Network/Google/Resource/ProximityBeacon/Namespaces/List.hs+6−73

This diff is too big to show here.

gogol-pubsub/gen/Network/Google/PubSub.hs+4−1

This diff is too big to show here.

gogol-pubsub/gen/Network/Google/PubSub/Types.hs+19−5

This diff is too big to show here.

gogol-pubsub/gen/Network/Google/Resource/PubSub/Projects/Subscriptions/Acknowledge.hs+7−77

This diff is too big to show here.

gogol-pubsub/gen/Network/Google/Resource/PubSub/Projects/Subscriptions/Create.hs+7−77

This diff is too big to show here.

gogol-pubsub/gen/Network/Google/Resource/PubSub/Projects/Subscriptions/Delete.hs+5−76

This diff is too big to show here.

gogol-pubsub/gen/Network/Google/Resource/PubSub/Projects/Subscriptions/Get.hs+5−75

This diff is too big to show here.

gogol-pubsub/gen/Network/Google/Resource/PubSub/Projects/Subscriptions/GetIAMPolicy.hs+5−76

This diff is too big to show here.

gogol-pubsub/gen/Network/Google/Resource/PubSub/Projects/Subscriptions/List.hs+6−75

This diff is too big to show here.

gogol-pubsub/gen/Network/Google/Resource/PubSub/Projects/Subscriptions/ModifyAckDeadline.hs+7−78

This diff is too big to show here.

gogol-pubsub/gen/Network/Google/Resource/PubSub/Projects/Subscriptions/ModifyPushConfig.hs+7−78

This diff is too big to show here.

gogol-pubsub/gen/Network/Google/Resource/PubSub/Projects/Subscriptions/Pull.hs+7−76

This diff is too big to show here.

gogol-pubsub/gen/Network/Google/Resource/PubSub/Projects/Subscriptions/SetIAMPolicy.hs+7−78

This diff is too big to show here.

gogol-pubsub/gen/Network/Google/Resource/PubSub/Projects/Subscriptions/TestIAMPermissions.hs+7−78

This diff is too big to show here.

gogol-pubsub/gen/Network/Google/Resource/PubSub/Projects/Topics/Create.hs+6−75

This diff is too big to show here.

gogol-pubsub/gen/Network/Google/Resource/PubSub/Projects/Topics/Delete.hs+5−75

This diff is too big to show here.

gogol-pubsub/gen/Network/Google/Resource/PubSub/Projects/Topics/Get.hs+5−74

This diff is too big to show here.

gogol-pubsub/gen/Network/Google/Resource/PubSub/Projects/Topics/GetIAMPolicy.hs+5−75

This diff is too big to show here.

gogol-pubsub/gen/Network/Google/Resource/PubSub/Projects/Topics/List.hs+6−75

This diff is too big to show here.

gogol-pubsub/gen/Network/Google/Resource/PubSub/Projects/Topics/Publish.hs+7−76

This diff is too big to show here.

gogol-pubsub/gen/Network/Google/Resource/PubSub/Projects/Topics/SetIAMPolicy.hs+7−77

This diff is too big to show here.

gogol-pubsub/gen/Network/Google/Resource/PubSub/Projects/Topics/Subscriptions/List.hs+6−78

This diff is too big to show here.

gogol-pubsub/gen/Network/Google/Resource/PubSub/Projects/Topics/TestIAMPermissions.hs+7−78

This diff is too big to show here.

gogol-qpxexpress/gen/Network/Google/QPXExpress.hs+4−1

This diff is too big to show here.

gogol-qpxexpress/gen/Network/Google/QPXExpress/Types.hs+6−5

This diff is too big to show here.

gogol-qpxexpress/gen/Network/Google/Resource/QPXExpress/Trips/Search.hs+10−88

This diff is too big to show here.

gogol-replicapool-updater/gen/Network/Google/ReplicaPoolUpdater.hs+4−1

This diff is too big to show here.

gogol-replicapool-updater/gen/Network/Google/ReplicaPoolUpdater/Types.hs+29−5

This diff is too big to show here.

gogol-replicapool-updater/gen/Network/Google/Resource/ReplicaPoolUpdater/RollingUpdates/Cancel.hs+5−87

This diff is too big to show here.

gogol-replicapool-updater/gen/Network/Google/Resource/ReplicaPoolUpdater/RollingUpdates/Get.hs+5−87

This diff is too big to show here.

gogol-replicapool-updater/gen/Network/Google/Resource/ReplicaPoolUpdater/RollingUpdates/Insert.hs+12−95

This diff is too big to show here.

gogol-replicapool-updater/gen/Network/Google/Resource/ReplicaPoolUpdater/RollingUpdates/List.hs+12−94

This diff is too big to show here.

gogol-replicapool-updater/gen/Network/Google/Resource/ReplicaPoolUpdater/RollingUpdates/ListInstanceUpdates.hs+6−90

This diff is too big to show here.

gogol-replicapool-updater/gen/Network/Google/Resource/ReplicaPoolUpdater/RollingUpdates/Pause.hs+5−87

This diff is too big to show here.

gogol-replicapool-updater/gen/Network/Google/Resource/ReplicaPoolUpdater/RollingUpdates/Resume.hs+6−84

This diff is too big to show here.

gogol-replicapool-updater/gen/Network/Google/Resource/ReplicaPoolUpdater/RollingUpdates/Rollback.hs+5−87

This diff is too big to show here.

gogol-replicapool-updater/gen/Network/Google/Resource/ReplicaPoolUpdater/ZoneOperations/Get.hs+10−91

This diff is too big to show here.

gogol-replicapool-updater/gen/Network/Google/Resource/ReplicaPoolUpdater/ZoneOperations/List.hs+11−94

This diff is too big to show here.

gogol-replicapool/gen/Network/Google/ReplicaPool.hs+4−1

This diff is too big to show here.

gogol-replicapool/gen/Network/Google/ReplicaPool/Types.hs+28−5

This diff is too big to show here.

gogol-replicapool/gen/Network/Google/Resource/ReplicaPool/InstanceGroupManagers/AbandonInstances.hs+10−94

This diff is too big to show here.

gogol-replicapool/gen/Network/Google/Resource/ReplicaPool/InstanceGroupManagers/Delete.hs+7−91

This diff is too big to show here.

gogol-replicapool/gen/Network/Google/Resource/ReplicaPool/InstanceGroupManagers/DeleteInstances.hs+10−94

This diff is too big to show here.

gogol-replicapool/gen/Network/Google/Resource/ReplicaPool/InstanceGroupManagers/Get.hs+8−91

This diff is too big to show here.

gogol-replicapool/gen/Network/Google/Resource/ReplicaPool/InstanceGroupManagers/Insert.hs+12−96

This diff is too big to show here.

gogol-replicapool/gen/Network/Google/Resource/ReplicaPool/InstanceGroupManagers/List.hs+12−95

This diff is too big to show here.

gogol-replicapool/gen/Network/Google/Resource/ReplicaPool/InstanceGroupManagers/RecreateInstances.hs+10−94

This diff is too big to show here.

gogol-replicapool/gen/Network/Google/Resource/ReplicaPool/InstanceGroupManagers/Resize.hs+7−92

This diff is too big to show here.

gogol-replicapool/gen/Network/Google/Resource/ReplicaPool/InstanceGroupManagers/SetInstanceTemplate.hs+10−95

This diff is too big to show here.

gogol-replicapool/gen/Network/Google/Resource/ReplicaPool/InstanceGroupManagers/SetTargetPools.hs+10−95

This diff is too big to show here.

gogol-replicapool/gen/Network/Google/Resource/ReplicaPool/ZoneOperations/Get.hs+10−91

This diff is too big to show here.

gogol-replicapool/gen/Network/Google/Resource/ReplicaPool/ZoneOperations/List.hs+11−94

This diff is too big to show here.

gogol-resourcemanager/gen/Network/Google/Resource/CloudResourceManager/Organizations/Get.hs+5−73

This diff is too big to show here.

gogol-resourcemanager/gen/Network/Google/Resource/CloudResourceManager/Organizations/GetIAMPolicy.hs+7−77

This diff is too big to show here.

gogol-resourcemanager/gen/Network/Google/Resource/CloudResourceManager/Organizations/List.hs+6−73

This diff is too big to show here.

gogol-resourcemanager/gen/Network/Google/Resource/CloudResourceManager/Organizations/SetIAMPolicy.hs+7−77

This diff is too big to show here.

gogol-resourcemanager/gen/Network/Google/Resource/CloudResourceManager/Organizations/TestIAMPermissions.hs+7−79

This diff is too big to show here.

gogol-resourcemanager/gen/Network/Google/Resource/CloudResourceManager/Organizations/Update.hs+7−74

This diff is too big to show here.

gogol-resourcemanager/gen/Network/Google/Resource/CloudResourceManager/Projects/Create.hs+6−74

This diff is too big to show here.

gogol-resourcemanager/gen/Network/Google/Resource/CloudResourceManager/Projects/Delete.hs+5−73

This diff is too big to show here.

gogol-resourcemanager/gen/Network/Google/Resource/CloudResourceManager/Projects/Get.hs+5−72

This diff is too big to show here.

gogol-resourcemanager/gen/Network/Google/Resource/CloudResourceManager/Projects/GetIAMPolicy.hs+7−77

This diff is too big to show here.

gogol-resourcemanager/gen/Network/Google/Resource/CloudResourceManager/Projects/List.hs+6−73

This diff is too big to show here.

gogol-resourcemanager/gen/Network/Google/Resource/CloudResourceManager/Projects/SetIAMPolicy.hs+7−77

This diff is too big to show here.

gogol-resourcemanager/gen/Network/Google/Resource/CloudResourceManager/Projects/TestIAMPermissions.hs+7−78

This diff is too big to show here.

gogol-resourcemanager/gen/Network/Google/Resource/CloudResourceManager/Projects/Undelete.hs+5−75

This diff is too big to show here.

gogol-resourcemanager/gen/Network/Google/Resource/CloudResourceManager/Projects/Update.hs+6−74

This diff is too big to show here.

gogol-resourcemanager/gen/Network/Google/ResourceManager.hs+4−1

This diff is too big to show here.

gogol-resourcemanager/gen/Network/Google/ResourceManager/Types.hs+14−6

This diff is too big to show here.

gogol-resourceviews/gen/Network/Google/Resource/ResourceViews/ZoneOperations/Get.hs+10−91

This diff is too big to show here.

gogol-resourceviews/gen/Network/Google/Resource/ResourceViews/ZoneOperations/List.hs+11−94

This diff is too big to show here.

gogol-resourceviews/gen/Network/Google/Resource/ResourceViews/ZoneViews/AddResources.hs+9−92

This diff is too big to show here.

gogol-resourceviews/gen/Network/Google/Resource/ResourceViews/ZoneViews/Delete.hs+7−89

This diff is too big to show here.

gogol-resourceviews/gen/Network/Google/Resource/ResourceViews/ZoneViews/Get.hs+7−89

This diff is too big to show here.

gogol-resourceviews/gen/Network/Google/Resource/ResourceViews/ZoneViews/GetService.hs+8−91

This diff is too big to show here.

gogol-resourceviews/gen/Network/Google/Resource/ResourceViews/ZoneViews/Insert.hs+12−95

This diff is too big to show here.

gogol-resourceviews/gen/Network/Google/Resource/ResourceViews/ZoneViews/List.hs+10−93

This diff is too big to show here.

gogol-resourceviews/gen/Network/Google/Resource/ResourceViews/ZoneViews/ListResources.hs+8−92

This diff is too big to show here.

gogol-resourceviews/gen/Network/Google/Resource/ResourceViews/ZoneViews/RemoveResources.hs+9−92

This diff is too big to show here.

gogol-resourceviews/gen/Network/Google/Resource/ResourceViews/ZoneViews/SetService.hs+9−92

This diff is too big to show here.

gogol-resourceviews/gen/Network/Google/ResourceViews.hs+4−1

This diff is too big to show here.

gogol-resourceviews/gen/Network/Google/ResourceViews/Types.hs+40−5

This diff is too big to show here.

gogol-shopping-content/gen/Network/Google/Resource/Content/Accounts/AuthInfo.hs+10−94

This diff is too big to show here.

gogol-shopping-content/gen/Network/Google/Resource/Content/Accounts/Custombatch.hs+11−93

This diff is too big to show here.

gogol-shopping-content/gen/Network/Google/Resource/Content/Accounts/Delete.hs+9−88

This diff is too big to show here.

gogol-shopping-content/gen/Network/Google/Resource/Content/Accounts/Get.hs+9−90

This diff is too big to show here.

gogol-shopping-content/gen/Network/Google/Resource/Content/Accounts/Insert.hs+11−93

This diff is too big to show here.

gogol-shopping-content/gen/Network/Google/Resource/Content/Accounts/List.hs+10−89

This diff is too big to show here.

gogol-shopping-content/gen/Network/Google/Resource/Content/Accounts/Patch.hs+11−93

This diff is too big to show here.

gogol-shopping-content/gen/Network/Google/Resource/Content/Accounts/Update.hs+11−90

This diff is too big to show here.

gogol-shopping-content/gen/Network/Google/Resource/Content/Accountshipping/Custombatch.hs+23−105

This diff is too big to show here.

gogol-shopping-content/gen/Network/Google/Resource/Content/Accountshipping/Get.hs+10−89

This diff is too big to show here.

gogol-shopping-content/gen/Network/Google/Resource/Content/Accountshipping/List.hs+10−92

This diff is too big to show here.

gogol-shopping-content/gen/Network/Google/Resource/Content/Accountshipping/Patch.hs+12−91

This diff is too big to show here.

gogol-shopping-content/gen/Network/Google/Resource/Content/Accountshipping/Update.hs+12−94

This diff is too big to show here.

gogol-shopping-content/gen/Network/Google/Resource/Content/Accountstatuses/Custombatch.hs+10−89

This diff is too big to show here.

gogol-shopping-content/gen/Network/Google/Resource/Content/Accountstatuses/Get.hs+22−104

This diff is too big to show here.

gogol-shopping-content/gen/Network/Google/Resource/Content/Accountstatuses/List.hs+10−93

This diff is too big to show here.

gogol-shopping-content/gen/Network/Google/Resource/Content/Accounttax/Custombatch.hs+11−90

This diff is too big to show here.

gogol-shopping-content/gen/Network/Google/Resource/Content/Accounttax/Get.hs+22−106

This diff is too big to show here.

gogol-shopping-content/gen/Network/Google/Resource/Content/Accounttax/List.hs+10−92

This diff is too big to show here.

gogol-shopping-content/gen/Network/Google/Resource/Content/Accounttax/Patch.hs+12−94

This diff is too big to show here.

gogol-shopping-content/gen/Network/Google/Resource/Content/Accounttax/Update.hs+12−90

This diff is too big to show here.

gogol-shopping-content/gen/Network/Google/Resource/Content/Datafeeds/Custombatch.hs+21−105

This diff is too big to show here.

gogol-shopping-content/gen/Network/Google/Resource/Content/Datafeeds/Delete.hs+9−88

This diff is too big to show here.

gogol-shopping-content/gen/Network/Google/Resource/Content/Datafeeds/Get.hs+9−88

This diff is too big to show here.

gogol-shopping-content/gen/Network/Google/Resource/Content/Datafeeds/Insert.hs+11−90

This diff is too big to show here.

gogol-shopping-content/gen/Network/Google/Resource/Content/Datafeeds/List.hs+10−89

This diff is too big to show here.

gogol-shopping-content/gen/Network/Google/Resource/Content/Datafeeds/Patch.hs+11−90

This diff is too big to show here.

gogol-shopping-content/gen/Network/Google/Resource/Content/Datafeeds/Update.hs+11−90

This diff is too big to show here.

gogol-shopping-content/gen/Network/Google/Resource/Content/Datafeedstatuses/Custombatch.hs+10−90

This diff is too big to show here.

gogol-shopping-content/gen/Network/Google/Resource/Content/Datafeedstatuses/Get.hs+10−88

This diff is too big to show here.

gogol-shopping-content/gen/Network/Google/Resource/Content/Datafeedstatuses/List.hs+10−92

This diff is too big to show here.

gogol-shopping-content/gen/Network/Google/Resource/Content/Inventory/Custombatch.hs+11−90

This diff is too big to show here.

gogol-shopping-content/gen/Network/Google/Resource/Content/Inventory/Set.hs+13−92

This diff is too big to show here.

gogol-shopping-content/gen/Network/Google/Resource/Content/Orders/Acknowledge.hs+12−91

This diff is too big to show here.

gogol-shopping-content/gen/Network/Google/Resource/Content/Orders/AdvancetestOrder.hs+10−92

This diff is too big to show here.

gogol-shopping-content/gen/Network/Google/Resource/Content/Orders/Cancel.hs+12−91

This diff is too big to show here.

gogol-shopping-content/gen/Network/Google/Resource/Content/Orders/Cancellineitem.hs+12−91

This diff is too big to show here.

gogol-shopping-content/gen/Network/Google/Resource/Content/Orders/CreatetestOrder.hs+11−94

This diff is too big to show here.

gogol-shopping-content/gen/Network/Google/Resource/Content/Orders/Custombatch.hs+11−92

This diff is too big to show here.

gogol-shopping-content/gen/Network/Google/Resource/Content/Orders/Get.hs+9−87

This diff is too big to show here.

gogol-shopping-content/gen/Network/Google/Resource/Content/Orders/GetbymerchantOrderid.hs+24−107

This diff is too big to show here.

gogol-shopping-content/gen/Network/Google/Resource/Content/Orders/GettestOrdertemplate.hs+9−91

This diff is too big to show here.

gogol-shopping-content/gen/Network/Google/Resource/Content/Orders/List.hs+6−84

This diff is too big to show here.

gogol-shopping-content/gen/Network/Google/Resource/Content/Orders/Refund.hs+12−91

This diff is too big to show here.

gogol-shopping-content/gen/Network/Google/Resource/Content/Orders/Returnlineitem.hs+12−94

This diff is too big to show here.

gogol-shopping-content/gen/Network/Google/Resource/Content/Orders/Shiplineitems.hs+12−91

This diff is too big to show here.

gogol-shopping-content/gen/Network/Google/Resource/Content/Orders/UpdatemerchantOrderid.hs+12−95

This diff is too big to show here.

gogol-shopping-content/gen/Network/Google/Resource/Content/Orders/Updateshipment.hs+12−91

This diff is too big to show here.

gogol-shopping-content/gen/Network/Google/Resource/Content/Products/Custombatch.hs+11−89

This diff is too big to show here.

gogol-shopping-content/gen/Network/Google/Resource/Content/Products/Delete.hs+9−88

This diff is too big to show here.

gogol-shopping-content/gen/Network/Google/Resource/Content/Products/Get.hs+9−87

This diff is too big to show here.

gogol-shopping-content/gen/Network/Google/Resource/Content/Products/Insert.hs+11−90

This diff is too big to show here.

gogol-shopping-content/gen/Network/Google/Resource/Content/Products/List.hs+10−92

This diff is too big to show here.

gogol-shopping-content/gen/Network/Google/Resource/Content/Productstatuses/Custombatch.hs+10−89

This diff is too big to show here.

gogol-shopping-content/gen/Network/Google/Resource/Content/Productstatuses/Get.hs+9−91

This diff is too big to show here.

gogol-shopping-content/gen/Network/Google/Resource/Content/Productstatuses/List.hs+10−89

This diff is too big to show here.

gogol-shopping-content/gen/Network/Google/ShoppingContent.hs+41−38

This diff is too big to show here.

gogol-shopping-content/gen/Network/Google/ShoppingContent/Types.hs+50−42

This diff is too big to show here.

gogol-shopping-content/gen/Network/Google/ShoppingContent/Types/Product.hs+272−275

This diff is too big to show here.

gogol-siteverification/gen/Network/Google/Resource/SiteVerification/WebResource/Delete.hs+8−90

This diff is too big to show here.

gogol-siteverification/gen/Network/Google/Resource/SiteVerification/WebResource/Get.hs+9−91

This diff is too big to show here.

gogol-siteverification/gen/Network/Google/Resource/SiteVerification/WebResource/GetToken.hs+14−97

This diff is too big to show here.

gogol-siteverification/gen/Network/Google/Resource/SiteVerification/WebResource/Insert.hs+10−92

This diff is too big to show here.

gogol-siteverification/gen/Network/Google/Resource/SiteVerification/WebResource/List.hs+10−94

This diff is too big to show here.

gogol-siteverification/gen/Network/Google/Resource/SiteVerification/WebResource/Patch.hs+11−93

This diff is too big to show here.

gogol-siteverification/gen/Network/Google/Resource/SiteVerification/WebResource/Update.hs+11−93

This diff is too big to show here.

gogol-siteverification/gen/Network/Google/SiteVerification.hs+4−1

This diff is too big to show here.

gogol-siteverification/gen/Network/Google/SiteVerification/Types.hs+18−5

This diff is too big to show here.

gogol-spectrum/gen/Network/Google/Resource/Spectrum/Paws/GetSpectrum.hs+10−92

This diff is too big to show here.

gogol-spectrum/gen/Network/Google/Resource/Spectrum/Paws/GetSpectrumBatch.hs+10−94

This diff is too big to show here.

gogol-spectrum/gen/Network/Google/Resource/Spectrum/Paws/Init.hs+10−88

This diff is too big to show here.

gogol-spectrum/gen/Network/Google/Resource/Spectrum/Paws/NotifySpectrumUse.hs+10−94

This diff is too big to show here.

gogol-spectrum/gen/Network/Google/Resource/Spectrum/Paws/Register.hs+10−89

This diff is too big to show here.

gogol-spectrum/gen/Network/Google/Resource/Spectrum/Paws/VerifyDevice.hs+10−92

This diff is too big to show here.

gogol-spectrum/gen/Network/Google/Spectrum.hs+4−1

This diff is too big to show here.

gogol-spectrum/gen/Network/Google/Spectrum/Types.hs+6−5

This diff is too big to show here.

gogol-sqladmin/gen/Network/Google/Resource/SQL/BackupRuns/Delete.hs+10−93

This diff is too big to show here.

gogol-sqladmin/gen/Network/Google/Resource/SQL/BackupRuns/Get.hs+10−92

This diff is too big to show here.

gogol-sqladmin/gen/Network/Google/Resource/SQL/BackupRuns/List.hs+11−93

This diff is too big to show here.

gogol-sqladmin/gen/Network/Google/Resource/SQL/Databases/Delete.hs+10−89

This diff is too big to show here.

gogol-sqladmin/gen/Network/Google/Resource/SQL/Databases/Get.hs+10−88

This diff is too big to show here.

gogol-sqladmin/gen/Network/Google/Resource/SQL/Databases/Insert.hs+11−91

This diff is too big to show here.

gogol-sqladmin/gen/Network/Google/Resource/SQL/Databases/List.hs+10−89

This diff is too big to show here.

gogol-sqladmin/gen/Network/Google/Resource/SQL/Databases/Patch.hs+12−91

This diff is too big to show here.

gogol-sqladmin/gen/Network/Google/Resource/SQL/Databases/Update.hs+12−90

This diff is too big to show here.

gogol-sqladmin/gen/Network/Google/Resource/SQL/Flags/List.hs+10−90

This diff is too big to show here.

gogol-sqladmin/gen/Network/Google/Resource/SQL/Instances/Clone.hs+12−92

This diff is too big to show here.

gogol-sqladmin/gen/Network/Google/Resource/SQL/Instances/Delete.hs+9−88

This diff is too big to show here.

gogol-sqladmin/gen/Network/Google/Resource/SQL/Instances/Export.hs+12−92

This diff is too big to show here.

gogol-sqladmin/gen/Network/Google/Resource/SQL/Instances/Get.hs+10−89

This diff is too big to show here.

gogol-sqladmin/gen/Network/Google/Resource/SQL/Instances/Import.hs+12−94

This diff is too big to show here.

gogol-sqladmin/gen/Network/Google/Resource/SQL/Instances/Insert.hs+11−90

This diff is too big to show here.

gogol-sqladmin/gen/Network/Google/Resource/SQL/Instances/List.hs+10−89

This diff is too big to show here.

gogol-sqladmin/gen/Network/Google/Resource/SQL/Instances/Patch.hs+12−92

This diff is too big to show here.

gogol-sqladmin/gen/Network/Google/Resource/SQL/Instances/PromoteReplica.hs+9−91

This diff is too big to show here.

gogol-sqladmin/gen/Network/Google/Resource/SQL/Instances/ResetSSLConfig.hs+9−92

This diff is too big to show here.

gogol-sqladmin/gen/Network/Google/Resource/SQL/Instances/Restart.hs+9−88

This diff is too big to show here.

gogol-sqladmin/gen/Network/Google/Resource/SQL/Instances/RestoreBackup.hs+12−94

This diff is too big to show here.

gogol-sqladmin/gen/Network/Google/Resource/SQL/Instances/StartReplica.hs+9−87

This diff is too big to show here.

gogol-sqladmin/gen/Network/Google/Resource/SQL/Instances/StopReplica.hs+9−91

This diff is too big to show here.

gogol-sqladmin/gen/Network/Google/Resource/SQL/Instances/Update.hs+12−92

This diff is too big to show here.

gogol-sqladmin/gen/Network/Google/Resource/SQL/Operations/Get.hs+9−88

This diff is too big to show here.

gogol-sqladmin/gen/Network/Google/Resource/SQL/Operations/List.hs+11−90

This diff is too big to show here.

gogol-sqladmin/gen/Network/Google/Resource/SQL/SSLCerts/CreateEphemeral.hs+12−95

This diff is too big to show here.

gogol-sqladmin/gen/Network/Google/Resource/SQL/SSLCerts/Delete.hs+7−90

This diff is too big to show here.

gogol-sqladmin/gen/Network/Google/Resource/SQL/SSLCerts/Get.hs+7−88

This diff is too big to show here.

gogol-sqladmin/gen/Network/Google/Resource/SQL/SSLCerts/Insert.hs+12−94

This diff is too big to show here.

gogol-sqladmin/gen/Network/Google/Resource/SQL/SSLCerts/List.hs+10−92

This diff is too big to show here.

gogol-sqladmin/gen/Network/Google/Resource/SQL/Tiers/List.hs+9−87

This diff is too big to show here.

gogol-sqladmin/gen/Network/Google/Resource/SQL/Users/Delete.hs+10−89

This diff is too big to show here.

gogol-sqladmin/gen/Network/Google/Resource/SQL/Users/Insert.hs+11−90

This diff is too big to show here.

gogol-sqladmin/gen/Network/Google/Resource/SQL/Users/List.hs+10−88

This diff is too big to show here.

gogol-sqladmin/gen/Network/Google/Resource/SQL/Users/Update.hs+12−90

This diff is too big to show here.

gogol-sqladmin/gen/Network/Google/SQLAdmin.hs+4−1

This diff is too big to show here.

gogol-sqladmin/gen/Network/Google/SQLAdmin/Types.hs+18−5

This diff is too big to show here.

gogol-storage-transfer/gen/Network/Google/Resource/StorageTransfer/GetGoogleServiceAccount.hs+6−76

This diff is too big to show here.

gogol-storage-transfer/gen/Network/Google/Resource/StorageTransfer/GoogleServiceAccounts/Get.hs+6−76

This diff is too big to show here.

gogol-storage-transfer/gen/Network/Google/Resource/StorageTransfer/TransferJobs/Create.hs+7−76

This diff is too big to show here.

gogol-storage-transfer/gen/Network/Google/Resource/StorageTransfer/TransferJobs/Get.hs+5−75

This diff is too big to show here.

gogol-storage-transfer/gen/Network/Google/Resource/StorageTransfer/TransferJobs/List.hs+6−75

This diff is too big to show here.

gogol-storage-transfer/gen/Network/Google/Resource/StorageTransfer/TransferJobs/Patch.hs+7−76

This diff is too big to show here.

gogol-storage-transfer/gen/Network/Google/Resource/StorageTransfer/TransferOperations/Cancel.hs+5−74

This diff is too big to show here.

gogol-storage-transfer/gen/Network/Google/Resource/StorageTransfer/TransferOperations/Delete.hs+5−75

This diff is too big to show here.

gogol-storage-transfer/gen/Network/Google/Resource/StorageTransfer/TransferOperations/Get.hs+5−75

This diff is too big to show here.

gogol-storage-transfer/gen/Network/Google/Resource/StorageTransfer/TransferOperations/List.hs+6−75

This diff is too big to show here.

gogol-storage-transfer/gen/Network/Google/Resource/StorageTransfer/TransferOperations/Pause.hs+7−76

This diff is too big to show here.

gogol-storage-transfer/gen/Network/Google/Resource/StorageTransfer/TransferOperations/Resume.hs+7−77

This diff is too big to show here.

gogol-storage-transfer/gen/Network/Google/StorageTransfer.hs+4−1

This diff is too big to show here.

gogol-storage-transfer/gen/Network/Google/StorageTransfer/Types.hs+13−6

This diff is too big to show here.

gogol-storage/gen/Network/Google/Resource/Storage/BucketAccessControls/Delete.hs+9−92

This diff is too big to show here.

gogol-storage/gen/Network/Google/Resource/Storage/BucketAccessControls/Get.hs+10−93

This diff is too big to show here.

gogol-storage/gen/Network/Google/Resource/Storage/BucketAccessControls/Insert.hs+11−95

This diff is too big to show here.

gogol-storage/gen/Network/Google/Resource/Storage/BucketAccessControls/List.hs+9−93

This diff is too big to show here.

gogol-storage/gen/Network/Google/Resource/Storage/BucketAccessControls/Patch.hs+12−95

This diff is too big to show here.

gogol-storage/gen/Network/Google/Resource/Storage/BucketAccessControls/Update.hs+12−95

This diff is too big to show here.

gogol-storage/gen/Network/Google/Resource/Storage/Buckets/Delete.hs+7−86

This diff is too big to show here.

gogol-storage/gen/Network/Google/Resource/Storage/Buckets/Get.hs+7−85

This diff is too big to show here.

gogol-storage/gen/Network/Google/Resource/Storage/Buckets/Insert.hs+8−87

This diff is too big to show here.

gogol-storage/gen/Network/Google/Resource/Storage/Buckets/List.hs+11−89

This diff is too big to show here.

gogol-storage/gen/Network/Google/Resource/Storage/Buckets/Patch.hs+8−87

This diff is too big to show here.

gogol-storage/gen/Network/Google/Resource/Storage/Buckets/Update.hs+8−87

This diff is too big to show here.

gogol-storage/gen/Network/Google/Resource/Storage/Channels/Stop.hs+9−88

This diff is too big to show here.

gogol-storage/gen/Network/Google/Resource/Storage/DefaultObjectAccessControls/Delete.hs+9−93

This diff is too big to show here.

gogol-storage/gen/Network/Google/Resource/Storage/DefaultObjectAccessControls/Get.hs+10−94

This diff is too big to show here.

gogol-storage/gen/Network/Google/Resource/Storage/DefaultObjectAccessControls/Insert.hs+11−96

This diff is too big to show here.

gogol-storage/gen/Network/Google/Resource/Storage/DefaultObjectAccessControls/List.hs+8−92

This diff is too big to show here.

gogol-storage/gen/Network/Google/Resource/Storage/DefaultObjectAccessControls/Patch.hs+12−96

This diff is too big to show here.

gogol-storage/gen/Network/Google/Resource/Storage/DefaultObjectAccessControls/Update.hs+12−96

This diff is too big to show here.

gogol-storage/gen/Network/Google/Resource/Storage/ObjectAccessControls/Delete.hs+10−93

This diff is too big to show here.

gogol-storage/gen/Network/Google/Resource/Storage/ObjectAccessControls/Get.hs+11−94

This diff is too big to show here.

gogol-storage/gen/Network/Google/Resource/Storage/ObjectAccessControls/Insert.hs+12−95

This diff is too big to show here.

gogol-storage/gen/Network/Google/Resource/Storage/ObjectAccessControls/List.hs+10−93

This diff is too big to show here.

gogol-storage/gen/Network/Google/Resource/Storage/ObjectAccessControls/Patch.hs+13−96

This diff is too big to show here.

gogol-storage/gen/Network/Google/Resource/Storage/ObjectAccessControls/Update.hs+13−96

This diff is too big to show here.

gogol-storage/gen/Network/Google/Resource/Storage/Objects/Compose.hs+13−104

This diff is too big to show here.

gogol-storage/gen/Network/Google/Resource/Storage/Objects/Copy.hs+14−119

This diff is too big to show here.

gogol-storage/gen/Network/Google/Resource/Storage/Objects/Delete.hs+7−86

This diff is too big to show here.

gogol-storage/gen/Network/Google/Resource/Storage/Objects/Get.hs+13−103

This diff is too big to show here.

gogol-storage/gen/Network/Google/Resource/Storage/Objects/Insert.hs+16−108

This diff is too big to show here.

gogol-storage/gen/Network/Google/Resource/Storage/Objects/List.hs+13−92

This diff is too big to show here.

gogol-storage/gen/Network/Google/Resource/Storage/Objects/Patch.hs+8−88

This diff is too big to show here.

gogol-storage/gen/Network/Google/Resource/Storage/Objects/Rewrite.hs+8−98

This diff is too big to show here.

gogol-storage/gen/Network/Google/Resource/Storage/Objects/Update.hs+15−107

This diff is too big to show here.

gogol-storage/gen/Network/Google/Resource/Storage/Objects/WatchAll.hs+15−98

This diff is too big to show here.

gogol-storage/gen/Network/Google/Storage.hs+4−1

This diff is too big to show here.

gogol-storage/gen/Network/Google/Storage/Types.hs+33−5

This diff is too big to show here.

gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Containers/Create.hs+10−93

This diff is too big to show here.

gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Containers/Delete.hs+8−90

This diff is too big to show here.

gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Containers/Folders/Create.hs+9−93

This diff is too big to show here.

gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Containers/Folders/Delete.hs+7−91

This diff is too big to show here.

gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Containers/Folders/Entities/List.hs+8−92

This diff is too big to show here.

gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Containers/Folders/Get.hs+7−91

This diff is too big to show here.

gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Containers/Folders/List.hs+9−93

This diff is too big to show here.

gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Containers/Folders/Update.hs+8−92

This diff is too big to show here.

gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Containers/Get.hs+8−90

This diff is too big to show here.

gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Containers/List.hs+9−92

This diff is too big to show here.

gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Containers/Macros/Create.hs+9−93

This diff is too big to show here.

gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Containers/Macros/Delete.hs+7−91

This diff is too big to show here.

gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Containers/Macros/Get.hs+7−91

This diff is too big to show here.

gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Containers/Macros/List.hs+9−93

This diff is too big to show here.

gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Containers/Macros/Update.hs+8−92

This diff is too big to show here.

gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Containers/MoveFolders/Update.hs+7−91

This diff is too big to show here.

gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Containers/Rules/Create.hs+9−93

This diff is too big to show here.

gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Containers/Rules/Delete.hs+7−91

This diff is too big to show here.

gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Containers/Rules/Get.hs+7−90

This diff is too big to show here.

gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Containers/Rules/List.hs+9−93

This diff is too big to show here.

gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Containers/Rules/Update.hs+8−92

This diff is too big to show here.

gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Containers/Tags/Create.hs+9−93

This diff is too big to show here.

gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Containers/Tags/Delete.hs+7−91

This diff is too big to show here.

gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Containers/Tags/Get.hs+7−90

This diff is too big to show here.

gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Containers/Tags/List.hs+9−93

This diff is too big to show here.

gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Containers/Tags/Update.hs+8−92

This diff is too big to show here.

gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Containers/Triggers/Create.hs+9−94

This diff is too big to show here.

gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Containers/Triggers/Delete.hs+7−91

This diff is too big to show here.

gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Containers/Triggers/Get.hs+7−91

This diff is too big to show here.

gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Containers/Triggers/List.hs+9−93

This diff is too big to show here.

gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Containers/Triggers/Update.hs+8−92

This diff is too big to show here.

gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Containers/Update.hs+8−90

This diff is too big to show here.

gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Containers/Variables/Create.hs+9−94

This diff is too big to show here.

gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Containers/Variables/Delete.hs+7−91

This diff is too big to show here.

gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Containers/Variables/Get.hs+7−91

This diff is too big to show here.

gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Containers/Variables/List.hs+9−94

This diff is too big to show here.

gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Containers/Variables/Update.hs+8−88

This diff is too big to show here.

gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Containers/Versions/Create.hs+11−95

This diff is too big to show here.

gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Containers/Versions/Delete.hs+7−91

This diff is too big to show here.

gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Containers/Versions/Get.hs+8−92

This diff is too big to show here.

gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Containers/Versions/List.hs+8−92

This diff is too big to show here.

gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Containers/Versions/Publish.hs+8−92

This diff is too big to show here.

gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Containers/Versions/Restore.hs+8−92

This diff is too big to show here.

gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Containers/Versions/Undelete.hs+8−93

This diff is too big to show here.

gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Containers/Versions/Update.hs+9−93

This diff is too big to show here.

gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Get.hs+8−86

This diff is too big to show here.

gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/List.hs+10−91

This diff is too big to show here.

gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Permissions/Create.hs+10−93

This diff is too big to show here.

gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Permissions/Delete.hs+8−90

This diff is too big to show here.

gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Permissions/Get.hs+8−90

This diff is too big to show here.

gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Permissions/List.hs+9−92

This diff is too big to show here.

gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Permissions/Update.hs+9−91

This diff is too big to show here.

gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Update.hs+9−88

This diff is too big to show here.

gogol-tagmanager/gen/Network/Google/TagManager.hs+4−1

This diff is too big to show here.

gogol-tagmanager/gen/Network/Google/TagManager/Types.hs+43−5

This diff is too big to show here.

gogol-taskqueue/gen/Network/Google/Resource/TaskQueue/Taskqueues/Get.hs+8−90

This diff is too big to show here.

gogol-taskqueue/gen/Network/Google/Resource/TaskQueue/Tasks/Delete.hs+9−87

This diff is too big to show here.

gogol-taskqueue/gen/Network/Google/Resource/TaskQueue/Tasks/Get.hs+9−87

This diff is too big to show here.

gogol-taskqueue/gen/Network/Google/Resource/TaskQueue/Tasks/Insert.hs+10−88

This diff is too big to show here.

gogol-taskqueue/gen/Network/Google/Resource/TaskQueue/Tasks/Lease.hs+11−90

This diff is too big to show here.

gogol-taskqueue/gen/Network/Google/Resource/TaskQueue/Tasks/List.hs+8−85

This diff is too big to show here.

gogol-taskqueue/gen/Network/Google/Resource/TaskQueue/Tasks/Patch.hs+6−84

This diff is too big to show here.

gogol-taskqueue/gen/Network/Google/Resource/TaskQueue/Tasks/Update.hs+6−84

This diff is too big to show here.

gogol-taskqueue/gen/Network/Google/TaskQueue.hs+4−1

This diff is too big to show here.

gogol-taskqueue/gen/Network/Google/TaskQueue/Types.hs+18−5

This diff is too big to show here.

gogol-translate/gen/Network/Google/Resource/Language/Detections/List.hs+9−88

This diff is too big to show here.

gogol-translate/gen/Network/Google/Resource/Language/Languages/List.hs+9−88

This diff is too big to show here.

gogol-translate/gen/Network/Google/Resource/Language/Translations/List.hs+12−91

This diff is too big to show here.

gogol-translate/gen/Network/Google/Translate.hs+4−1

This diff is too big to show here.

gogol-translate/gen/Network/Google/Translate/Types.hs+6−5

This diff is too big to show here.

gogol-urlshortener/gen/Network/Google/Resource/URLShortener/URL/Get.hs+8−87

This diff is too big to show here.

gogol-urlshortener/gen/Network/Google/Resource/URLShortener/URL/Insert.hs+9−87

This diff is too big to show here.

gogol-urlshortener/gen/Network/Google/Resource/URLShortener/URL/List.hs+8−87

This diff is too big to show here.

gogol-urlshortener/gen/Network/Google/URLShortener.hs+4−1

This diff is too big to show here.

gogol-urlshortener/gen/Network/Google/URLShortener/Types.hs+13−5

This diff is too big to show here.

gogol-useraccounts/gen/Network/Google/Resource/CloudUserAccounts/GlobalAccountsOperations/Delete.hs+9−93

This diff is too big to show here.

gogol-useraccounts/gen/Network/Google/Resource/CloudUserAccounts/GlobalAccountsOperations/Get.hs+9−93

This diff is too big to show here.

gogol-useraccounts/gen/Network/Google/Resource/CloudUserAccounts/GlobalAccountsOperations/List.hs+11−96

This diff is too big to show here.

gogol-useraccounts/gen/Network/Google/Resource/CloudUserAccounts/Groups/AddMember.hs+12−94

This diff is too big to show here.

gogol-useraccounts/gen/Network/Google/Resource/CloudUserAccounts/Groups/Delete.hs+9−88

This diff is too big to show here.

gogol-useraccounts/gen/Network/Google/Resource/CloudUserAccounts/Groups/Get.hs+9−87

This diff is too big to show here.

gogol-useraccounts/gen/Network/Google/Resource/CloudUserAccounts/Groups/Insert.hs+10−89

This diff is too big to show here.

gogol-useraccounts/gen/Network/Google/Resource/CloudUserAccounts/Groups/List.hs+11−89

This diff is too big to show here.

gogol-useraccounts/gen/Network/Google/Resource/CloudUserAccounts/Groups/RemoveMember.hs+12−94

This diff is too big to show here.

gogol-useraccounts/gen/Network/Google/Resource/CloudUserAccounts/Linux/GetAuthorizedKeysView.hs+12−95

This diff is too big to show here.

gogol-useraccounts/gen/Network/Google/Resource/CloudUserAccounts/Linux/GetLinuxAccountViews.hs+14−98

This diff is too big to show here.

gogol-useraccounts/gen/Network/Google/Resource/CloudUserAccounts/Users/AddPublicKey.hs+11−94

This diff is too big to show here.

gogol-useraccounts/gen/Network/Google/Resource/CloudUserAccounts/Users/Delete.hs+9−87

This diff is too big to show here.

gogol-useraccounts/gen/Network/Google/Resource/CloudUserAccounts/Users/Get.hs+9−87

This diff is too big to show here.

gogol-useraccounts/gen/Network/Google/Resource/CloudUserAccounts/Users/Insert.hs+10−88

This diff is too big to show here.

gogol-useraccounts/gen/Network/Google/Resource/CloudUserAccounts/Users/List.hs+11−89

This diff is too big to show here.

gogol-useraccounts/gen/Network/Google/Resource/CloudUserAccounts/Users/RemovePublicKey.hs+7−90

This diff is too big to show here.

gogol-useraccounts/gen/Network/Google/UserAccounts.hs+4−1

This diff is too big to show here.

gogol-useraccounts/gen/Network/Google/UserAccounts/Types.hs+28−5

This diff is too big to show here.

gogol-webmaster-tools/gen/Network/Google/Resource/Webmasters/Searchanalytics/Query.hs+11−90

This diff is too big to show here.

gogol-webmaster-tools/gen/Network/Google/Resource/Webmasters/Sitemaps/Delete.hs+9−91

This diff is too big to show here.

gogol-webmaster-tools/gen/Network/Google/Resource/Webmasters/Sitemaps/Get.hs+9−87

This diff is too big to show here.

gogol-webmaster-tools/gen/Network/Google/Resource/Webmasters/Sitemaps/List.hs+23−105

This diff is too big to show here.

gogol-webmaster-tools/gen/Network/Google/Resource/Webmasters/Sitemaps/Submit.hs+9−88

This diff is too big to show here.

gogol-webmaster-tools/gen/Network/Google/Resource/Webmasters/Sites/Add.hs+8−86

This diff is too big to show here.

gogol-webmaster-tools/gen/Network/Google/Resource/Webmasters/Sites/Delete.hs+8−86

This diff is too big to show here.

gogol-webmaster-tools/gen/Network/Google/Resource/Webmasters/Sites/Get.hs+8−85

This diff is too big to show here.

gogol-webmaster-tools/gen/Network/Google/Resource/Webmasters/Sites/List.hs+10−90

This diff is too big to show here.

gogol-webmaster-tools/gen/Network/Google/Resource/Webmasters/URLCrawlErrorsSamples/Get.hs+11−94

This diff is too big to show here.

gogol-webmaster-tools/gen/Network/Google/Resource/Webmasters/URLCrawlErrorsSamples/List.hs+10−93

This diff is too big to show here.

gogol-webmaster-tools/gen/Network/Google/Resource/Webmasters/URLCrawlErrorsSamples/MarkAsFixed.hs+10−98

This diff is too big to show here.

gogol-webmaster-tools/gen/Network/Google/Resource/Webmasters/URLCrawlErrorscounts/Query.hs+8−91

This diff is too big to show here.

gogol-webmaster-tools/gen/Network/Google/WebmasterTools.hs+4−1

This diff is too big to show here.

gogol-webmaster-tools/gen/Network/Google/WebmasterTools/Types.hs+18−5

This diff is too big to show here.

gogol-youtube-analytics/gen/Network/Google/Resource/YouTubeAnalytics/BatchReportDefinitions/List.hs+9−92

This diff is too big to show here.

gogol-youtube-analytics/gen/Network/Google/Resource/YouTubeAnalytics/BatchReports/List.hs+8−90

This diff is too big to show here.

gogol-youtube-analytics/gen/Network/Google/Resource/YouTubeAnalytics/GroupItems/Delete.hs+7−89

This diff is too big to show here.

gogol-youtube-analytics/gen/Network/Google/Resource/YouTubeAnalytics/GroupItems/Insert.hs+9−91

This diff is too big to show here.

gogol-youtube-analytics/gen/Network/Google/Resource/YouTubeAnalytics/GroupItems/List.hs+8−90

This diff is too big to show here.

gogol-youtube-analytics/gen/Network/Google/Resource/YouTubeAnalytics/Groups/Delete.hs+7−86

This diff is too big to show here.

gogol-youtube-analytics/gen/Network/Google/Resource/YouTubeAnalytics/Groups/Insert.hs+9−88

This diff is too big to show here.

gogol-youtube-analytics/gen/Network/Google/Resource/YouTubeAnalytics/Groups/List.hs+8−86

This diff is too big to show here.

gogol-youtube-analytics/gen/Network/Google/Resource/YouTubeAnalytics/Groups/Update.hs+9−88

This diff is too big to show here.

gogol-youtube-analytics/gen/Network/Google/Resource/YouTubeAnalytics/Reports/Query.hs+16−96

This diff is too big to show here.

gogol-youtube-analytics/gen/Network/Google/YouTubeAnalytics.hs+4−1

This diff is too big to show here.

gogol-youtube-analytics/gen/Network/Google/YouTubeAnalytics/Types.hs+34−5

This diff is too big to show here.

gogol-youtube/gen/Network/Google/Resource/YouTube/Activities/Insert.hs+10−90

This diff is too big to show here.

gogol-youtube/gen/Network/Google/Resource/YouTube/Activities/List.hs+6−85

This diff is too big to show here.

gogol-youtube/gen/Network/Google/Resource/YouTube/Captions/Delete.hs+5−87

This diff is too big to show here.

gogol-youtube/gen/Network/Google/Resource/YouTube/Captions/Download.hs+11−106

This diff is too big to show here.

gogol-youtube/gen/Network/Google/Resource/YouTube/Captions/Insert.hs+7−86

This diff is too big to show here.

gogol-youtube/gen/Network/Google/Resource/YouTube/Captions/List.hs+6−88

This diff is too big to show here.

gogol-youtube/gen/Network/Google/Resource/YouTube/Captions/Update.hs+7−89

This diff is too big to show here.

gogol-youtube/gen/Network/Google/Resource/YouTube/ChannelBanners/Insert.hs+10−92

This diff is too big to show here.

gogol-youtube/gen/Network/Google/Resource/YouTube/ChannelSections/Delete.hs+7−89

This diff is too big to show here.

gogol-youtube/gen/Network/Google/Resource/YouTube/ChannelSections/Insert.hs+9−91

This diff is too big to show here.

gogol-youtube/gen/Network/Google/Resource/YouTube/ChannelSections/List.hs+8−90

This diff is too big to show here.

gogol-youtube/gen/Network/Google/Resource/YouTube/ChannelSections/Update.hs+9−91

This diff is too big to show here.

gogol-youtube/gen/Network/Google/Resource/YouTube/Channels/List.hs+8−87

This diff is too big to show here.

gogol-youtube/gen/Network/Google/Resource/YouTube/Channels/Update.hs+8−90

This diff is too big to show here.

gogol-youtube/gen/Network/Google/Resource/YouTube/CommentThreads/Insert.hs+11−94

This diff is too big to show here.

gogol-youtube/gen/Network/Google/Resource/YouTube/CommentThreads/List.hs+8−90

This diff is too big to show here.

gogol-youtube/gen/Network/Google/Resource/YouTube/CommentThreads/Update.hs+11−94

This diff is too big to show here.

gogol-youtube/gen/Network/Google/Resource/YouTube/Comments/Delete.hs+8−87

This diff is too big to show here.

gogol-youtube/gen/Network/Google/Resource/YouTube/Comments/Insert.hs+10−88

This diff is too big to show here.

gogol-youtube/gen/Network/Google/Resource/YouTube/Comments/List.hs+13−95

This diff is too big to show here.

gogol-youtube/gen/Network/Google/Resource/YouTube/Comments/MarkAsSpam.hs+8−92

This diff is too big to show here.

gogol-youtube/gen/Network/Google/Resource/YouTube/Comments/SetModerationStatus.hs+7−91

This diff is too big to show here.

gogol-youtube/gen/Network/Google/Resource/YouTube/Comments/Update.hs+10−90

This diff is too big to show here.

gogol-youtube/gen/Network/Google/Resource/YouTube/GuideCategories/List.hs+11−93

This diff is too big to show here.

gogol-youtube/gen/Network/Google/Resource/YouTube/I18nLanguages/List.hs+10−92

This diff is too big to show here.

gogol-youtube/gen/Network/Google/Resource/YouTube/I18nRegions/List.hs+10−92

This diff is too big to show here.

gogol-youtube/gen/Network/Google/Resource/YouTube/LiveBroadcasts/Bind.hs+8−90

This diff is too big to show here.

gogol-youtube/gen/Network/Google/Resource/YouTube/LiveBroadcasts/BindDirect.hs+8−91

This diff is too big to show here.

gogol-youtube/gen/Network/Google/Resource/YouTube/LiveBroadcasts/Control.hs+8−90

This diff is too big to show here.

gogol-youtube/gen/Network/Google/Resource/YouTube/LiveBroadcasts/Delete.hs+7−89

This diff is too big to show here.

gogol-youtube/gen/Network/Google/Resource/YouTube/LiveBroadcasts/Insert.hs+9−91

This diff is too big to show here.

gogol-youtube/gen/Network/Google/Resource/YouTube/LiveBroadcasts/List.hs+8−90

This diff is too big to show here.

gogol-youtube/gen/Network/Google/Resource/YouTube/LiveBroadcasts/Transition.hs+8−90

This diff is too big to show here.

gogol-youtube/gen/Network/Google/Resource/YouTube/LiveBroadcasts/Update.hs+9−91

This diff is too big to show here.

gogol-youtube/gen/Network/Google/Resource/YouTube/LiveStreams/Delete.hs+7−89

This diff is too big to show here.

gogol-youtube/gen/Network/Google/Resource/YouTube/LiveStreams/Insert.hs+8−90

This diff is too big to show here.

gogol-youtube/gen/Network/Google/Resource/YouTube/LiveStreams/List.hs+8−90

This diff is too big to show here.

gogol-youtube/gen/Network/Google/Resource/YouTube/LiveStreams/Update.hs+8−90

This diff is too big to show here.

gogol-youtube/gen/Network/Google/Resource/YouTube/PlayListItems/Delete.hs+8−92

This diff is too big to show here.

gogol-youtube/gen/Network/Google/Resource/YouTube/PlayListItems/Insert.hs+9−92

This diff is too big to show here.

gogol-youtube/gen/Network/Google/Resource/YouTube/PlayListItems/List.hs+8−91

This diff is too big to show here.

gogol-youtube/gen/Network/Google/Resource/YouTube/PlayListItems/Update.hs+11−95

This diff is too big to show here.

gogol-youtube/gen/Network/Google/Resource/YouTube/PlayLists/Delete.hs+7−89

This diff is too big to show here.

gogol-youtube/gen/Network/Google/Resource/YouTube/PlayLists/Insert.hs+8−90

This diff is too big to show here.

gogol-youtube/gen/Network/Google/Resource/YouTube/PlayLists/List.hs+8−90

This diff is too big to show here.

gogol-youtube/gen/Network/Google/Resource/YouTube/PlayLists/Update.hs+8−90

This diff is too big to show here.

gogol-youtube/gen/Network/Google/Resource/YouTube/Search/List.hs+9−105

This diff is too big to show here.

gogol-youtube/gen/Network/Google/Resource/YouTube/Subscriptions/Delete.hs+8−87

This diff is too big to show here.

gogol-youtube/gen/Network/Google/Resource/YouTube/Subscriptions/Insert.hs+11−91

This diff is too big to show here.

gogol-youtube/gen/Network/Google/Resource/YouTube/Subscriptions/List.hs+8−86

This diff is too big to show here.

gogol-youtube/gen/Network/Google/Resource/YouTube/Thumbnails/Set.hs+9−88

This diff is too big to show here.

gogol-youtube/gen/Network/Google/Resource/YouTube/VideoAbuseReportReasons/List.hs+10−95

This diff is too big to show here.

gogol-youtube/gen/Network/Google/Resource/YouTube/VideoCategories/List.hs+11−93

This diff is too big to show here.

gogol-youtube/gen/Network/Google/Resource/YouTube/Videos/Delete.hs+7−86

This diff is too big to show here.

gogol-youtube/gen/Network/Google/Resource/YouTube/Videos/GetRating.hs+8−90

This diff is too big to show here.

gogol-youtube/gen/Network/Google/Resource/YouTube/Videos/Insert.hs+9−88

This diff is too big to show here.

gogol-youtube/gen/Network/Google/Resource/YouTube/Videos/List.hs+6−84

This diff is too big to show here.

gogol-youtube/gen/Network/Google/Resource/YouTube/Videos/Rate.hs+9−87

This diff is too big to show here.

gogol-youtube/gen/Network/Google/Resource/YouTube/Videos/ReportAbuse.hs+9−91

This diff is too big to show here.

gogol-youtube/gen/Network/Google/Resource/YouTube/Videos/Update.hs+8−87

This diff is too big to show here.

gogol-youtube/gen/Network/Google/Resource/YouTube/Watermarks/Set.hs+9−88

This diff is too big to show here.

gogol-youtube/gen/Network/Google/Resource/YouTube/Watermarks/Unset.hs+7−86

This diff is too big to show here.

gogol-youtube/gen/Network/Google/YouTube.hs+4−1

This diff is too big to show here.

gogol-youtube/gen/Network/Google/YouTube/Types.hs+39−5

This diff is too big to show here.