Regenerating all services
gogol-adexchange-buyer/gen/Network/Google/AdExchangeBuyer.hs+24−21
@@ -20,8 +20,11 @@
20-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference>
20-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference>
21module Network.Google.AdExchangeBuyer
21module Network.Google.AdExchangeBuyer
23+ -- * Service Configuration
24+ adExchangeBuyerService
23 -- * API Declaration
26 -- * API Declaration
24− AdExchangeBuyerAPI
27+ , AdExchangeBuyerAPI
26 -- * Resources
29 -- * Resources
@@ -959,26 +962,26 @@ module Network.Google.AdExchangeBuyer
959 -- ** MarketplaceOrder
962 -- ** MarketplaceOrder
960 , MarketplaceOrder
963 , MarketplaceOrder
961 , marketplaceOrder
964 , marketplaceOrder
962− , marBuyerPrivateData
965+ , mBuyerPrivateData
963− , marIsSetupComplete
966+ , mIsSetupComplete
964− , marBuyerContacts
967+ , mBuyerContacts
965− , marKind
968+ , mKind
966− , marOriginatorRole
969+ , mOriginatorRole
967− , marRevisionNumber
970+ , mRevisionNumber
968− , marBilledBuyer
971+ , mBilledBuyer
969− , marIsRenegotiating
972+ , mIsRenegotiating
970− , marHasSellerSignedOff
973+ , mHasSellerSignedOff
971− , marSeller
974+ , mSeller
972− , marOrderState
975+ , mOrderState
973− , marName
976+ , mName
974− , marSellerContacts
977+ , mSellerContacts
975− , marLastUpdaterRole
978+ , mLastUpdaterRole
976− , marLabels
979+ , mLabels
977− , marRevisionTimeMs
980+ , mRevisionTimeMs
978− , marOrderId
981+ , mOrderId
979− , marLastUpdaterOrCommentorRole
982+ , mLastUpdaterOrCommentorRole
980− , marHasBuyerSignedOff
983+ , mHasBuyerSignedOff
981− , marBuyer
984+ , mBuyer
983 -- ** AddOrderDealsRequest
986 -- ** AddOrderDealsRequest
984 , AddOrderDealsRequest
987 , AddOrderDealsRequest
gogol-adexchange-buyer/gen/Network/Google/AdExchangeBuyer/Types.hs+33−25
@@ -15,8 +15,11 @@
16module Network.Google.AdExchangeBuyer.Types
16module Network.Google.AdExchangeBuyer.Types
18− -- * Service Request
18+ -- * Service Configuration
19− adExchangeBuyerRequest
19+ adExchangeBuyerService
22+ , adexchangeBuyerScope
21 -- * BrandDTO
24 -- * BrandDTO
22 , BrandDTO
25 , BrandDTO
@@ -812,26 +815,26 @@ module Network.Google.AdExchangeBuyer.Types
812 -- * MarketplaceOrder
815 -- * MarketplaceOrder
813 , MarketplaceOrder
816 , MarketplaceOrder
814 , marketplaceOrder
817 , marketplaceOrder
815− , marBuyerPrivateData
818+ , mBuyerPrivateData
816− , marIsSetupComplete
819+ , mIsSetupComplete
817− , marBuyerContacts
820+ , mBuyerContacts
818− , marKind
821+ , mKind
819− , marOriginatorRole
822+ , mOriginatorRole
820− , marRevisionNumber
823+ , mRevisionNumber
821− , marBilledBuyer
824+ , mBilledBuyer
822− , marIsRenegotiating
825+ , mIsRenegotiating
823− , marHasSellerSignedOff
826+ , mHasSellerSignedOff
824− , marSeller
827+ , mSeller
825− , marOrderState
828+ , mOrderState
826− , marName
829+ , mName
827− , marSellerContacts
830+ , mSellerContacts
828− , marLastUpdaterRole
831+ , mLastUpdaterRole
829− , marLabels
832+ , mLabels
830− , marRevisionTimeMs
833+ , mRevisionTimeMs
831− , marOrderId
834+ , mOrderId
832− , marLastUpdaterOrCommentorRole
835+ , mLastUpdaterOrCommentorRole
833− , marHasBuyerSignedOff
836+ , mHasBuyerSignedOff
834− , marBuyer
837+ , mBuyer
836 -- * AddOrderDealsRequest
839 -- * AddOrderDealsRequest
837 , AddOrderDealsRequest
840 , AddOrderDealsRequest
@@ -853,7 +856,12 @@ import Network.Google.AdExchangeBuyer.Types.Sum
853import Network.Google.Prelude
856import Network.Google.Prelude
855-- | 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.
858-- | 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
859+adExchangeBuyerService :: Service
857−adExchangeBuyerRequest
860+adExchangeBuyerService
861+ = defaultService (ServiceId "adexchangebuyer:v1.4")
858− = defaultRequest "https://www.googleapis.com/"
862+ "www.googleapis.com"
859 "adexchangebuyer/v1.4/"
863 "adexchangebuyer/v1.4/"
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
7445-- /See:/ 'marketplaceOrder' smart constructor.
7445-- /See:/ 'marketplaceOrder' smart constructor.
7446data MarketplaceOrder = MarketplaceOrder
7446data MarketplaceOrder = MarketplaceOrder
7447− { _marBuyerPrivateData :: !(Maybe PrivateData)
7447+ { _mBuyerPrivateData :: !(Maybe PrivateData)
7448− , _marIsSetupComplete :: !(Maybe Bool)
7448+ , _mIsSetupComplete :: !(Maybe Bool)
7449− , _marBuyerContacts :: !(Maybe [ContactInformation])
7449+ , _mBuyerContacts :: !(Maybe [ContactInformation])
7450− , _marKind :: !Text
7450+ , _mKind :: !Text
7451− , _marOriginatorRole :: !(Maybe Text)
7451+ , _mOriginatorRole :: !(Maybe Text)
7452− , _marRevisionNumber :: !(Maybe Int64)
7452+ , _mRevisionNumber :: !(Maybe Int64)
7453− , _marBilledBuyer :: !(Maybe Buyer)
7453+ , _mBilledBuyer :: !(Maybe Buyer)
7454− , _marIsRenegotiating :: !(Maybe Bool)
7454+ , _mIsRenegotiating :: !(Maybe Bool)
7455− , _marHasSellerSignedOff :: !(Maybe Bool)
7455+ , _mHasSellerSignedOff :: !(Maybe Bool)
7456− , _marSeller :: !(Maybe Seller)
7456+ , _mSeller :: !(Maybe Seller)
7457− , _marOrderState :: !(Maybe Text)
7457+ , _mOrderState :: !(Maybe Text)
7458− , _marName :: !(Maybe Text)
7458+ , _mName :: !(Maybe Text)
7459− , _marSellerContacts :: !(Maybe [ContactInformation])
7459+ , _mSellerContacts :: !(Maybe [ContactInformation])
7460− , _marLastUpdaterRole :: !(Maybe Text)
7460+ , _mLastUpdaterRole :: !(Maybe Text)
7461− , _marLabels :: !(Maybe [MarketplaceLabel])
7461+ , _mLabels :: !(Maybe [MarketplaceLabel])
7462− , _marRevisionTimeMs :: !(Maybe Int64)
7462+ , _mRevisionTimeMs :: !(Maybe Int64)
7463− , _marOrderId :: !(Maybe Text)
7463+ , _mOrderId :: !(Maybe Text)
7464− , _marLastUpdaterOrCommentorRole :: !(Maybe Text)
7464+ , _mLastUpdaterOrCommentorRole :: !(Maybe Text)
7465− , _marHasBuyerSignedOff :: !(Maybe Bool)
7465+ , _mHasBuyerSignedOff :: !(Maybe Bool)
7466− , _marBuyer :: !(Maybe Buyer)
7466+ , _mBuyer :: !(Maybe Buyer)
7467 } deriving (Eq,Show,Data,Typeable,Generic)
7467 } deriving (Eq,Show,Data,Typeable,Generic)
7469-- | Creates a value of 'MarketplaceOrder' with the minimum fields required to make a request.
7469-- | Creates a value of 'MarketplaceOrder' with the minimum fields required to make a request.
7471-- Use one of the following lenses to modify other fields as desired:
7471-- Use one of the following lenses to modify other fields as desired:
7473−-- * 'marBuyerPrivateData'
7473+-- * 'mBuyerPrivateData'
7475−-- * 'marIsSetupComplete'
7475+-- * 'mIsSetupComplete'
7477−-- * 'marBuyerContacts'
7477+-- * 'mBuyerContacts'
7479−-- * 'marKind'
7479+-- * 'mKind'
7481−-- * 'marOriginatorRole'
7481+-- * 'mOriginatorRole'
7483−-- * 'marRevisionNumber'
7483+-- * 'mRevisionNumber'
7485−-- * 'marBilledBuyer'
7485+-- * 'mBilledBuyer'
7487−-- * 'marIsRenegotiating'
7487+-- * 'mIsRenegotiating'
7489−-- * 'marHasSellerSignedOff'
7489+-- * 'mHasSellerSignedOff'
7491−-- * 'marSeller'
7491+-- * 'mSeller'
7493−-- * 'marOrderState'
7493+-- * 'mOrderState'
7495−-- * 'marName'
7495+-- * 'mName'
7497−-- * 'marSellerContacts'
7497+-- * 'mSellerContacts'
7499−-- * 'marLastUpdaterRole'
7499+-- * 'mLastUpdaterRole'
7501−-- * 'marLabels'
7501+-- * 'mLabels'
7503−-- * 'marRevisionTimeMs'
7503+-- * 'mRevisionTimeMs'
7505−-- * 'marOrderId'
7505+-- * 'mOrderId'
7507−-- * 'marLastUpdaterOrCommentorRole'
7507+-- * 'mLastUpdaterOrCommentorRole'
7509−-- * 'marHasBuyerSignedOff'
7509+-- * 'mHasBuyerSignedOff'
7511−-- * 'marBuyer'
7511+-- * 'mBuyer'
7512marketplaceOrder
7512marketplaceOrder
7513 :: MarketplaceOrder
7513 :: MarketplaceOrder
7514marketplaceOrder =
7514marketplaceOrder =
7515 MarketplaceOrder
7515 MarketplaceOrder
7516− { _marBuyerPrivateData = Nothing
7516+ { _mBuyerPrivateData = Nothing
7517− , _marIsSetupComplete = Nothing
7517+ , _mIsSetupComplete = Nothing
7518− , _marBuyerContacts = Nothing
7518+ , _mBuyerContacts = Nothing
7519− , _marKind = "adexchangebuyer#marketplaceOrder"
7519+ , _mKind = "adexchangebuyer#marketplaceOrder"
7520− , _marOriginatorRole = Nothing
7520+ , _mOriginatorRole = Nothing
7521− , _marRevisionNumber = Nothing
7521+ , _mRevisionNumber = Nothing
7522− , _marBilledBuyer = Nothing
7522+ , _mBilledBuyer = Nothing
7523− , _marIsRenegotiating = Nothing
7523+ , _mIsRenegotiating = Nothing
7524− , _marHasSellerSignedOff = Nothing
7524+ , _mHasSellerSignedOff = Nothing
7525− , _marSeller = Nothing
7525+ , _mSeller = Nothing
7526− , _marOrderState = Nothing
7526+ , _mOrderState = Nothing
7527− , _marName = Nothing
7527+ , _mName = Nothing
7528− , _marSellerContacts = Nothing
7528+ , _mSellerContacts = Nothing
7529− , _marLastUpdaterRole = Nothing
7529+ , _mLastUpdaterRole = Nothing
7530− , _marLabels = Nothing
7530+ , _mLabels = Nothing
7531− , _marRevisionTimeMs = Nothing
7531+ , _mRevisionTimeMs = Nothing
7532− , _marOrderId = Nothing
7532+ , _mOrderId = Nothing
7533− , _marLastUpdaterOrCommentorRole = Nothing
7533+ , _mLastUpdaterOrCommentorRole = Nothing
7534− , _marHasBuyerSignedOff = Nothing
7534+ , _mHasBuyerSignedOff = Nothing
7535− , _marBuyer = Nothing
7535+ , _mBuyer = Nothing
7538-- | Private data for buyer. (hidden from seller).
7538-- | Private data for buyer. (hidden from seller).
7539−marBuyerPrivateData :: Lens' MarketplaceOrder (Maybe PrivateData)
7539+mBuyerPrivateData :: Lens' MarketplaceOrder (Maybe PrivateData)
7540−marBuyerPrivateData
7540+mBuyerPrivateData
7541− = lens _marBuyerPrivateData
7541+ = lens _mBuyerPrivateData
7542− (\ s a -> s{_marBuyerPrivateData = a})
7542+ (\ s a -> s{_mBuyerPrivateData = a})
7544-- | True, if the buyside inventory setup is complete for this order.
7544-- | True, if the buyside inventory setup is complete for this order.
7545-- (readonly)
7545-- (readonly)
7546−marIsSetupComplete :: Lens' MarketplaceOrder (Maybe Bool)
7546+mIsSetupComplete :: Lens' MarketplaceOrder (Maybe Bool)
7547−marIsSetupComplete
7547+mIsSetupComplete
7548− = lens _marIsSetupComplete
7548+ = lens _mIsSetupComplete
7549− (\ s a -> s{_marIsSetupComplete = a})
7549+ (\ s a -> s{_mIsSetupComplete = a})
7551-- | Optional contact information fort the buyer. (seller-readonly)
7551-- | Optional contact information fort the buyer. (seller-readonly)
7552−marBuyerContacts :: Lens' MarketplaceOrder [ContactInformation]
7552+mBuyerContacts :: Lens' MarketplaceOrder [ContactInformation]
7553−marBuyerContacts
7553+mBuyerContacts
7554− = lens _marBuyerContacts
7554+ = lens _mBuyerContacts
7555− (\ s a -> s{_marBuyerContacts = a})
7555+ (\ s a -> s{_mBuyerContacts = a})
7556 . _Default
7556 . _Default
7557 . _Coerce
7557 . _Coerce
7559-- | Identifies what kind of resource this is. Value: the fixed string
7559-- | Identifies what kind of resource this is. Value: the fixed string
7560-- \"adexchangebuyer#marketplaceOrder\".
7560-- \"adexchangebuyer#marketplaceOrder\".
7561−marKind :: Lens' MarketplaceOrder Text
7561+mKind :: Lens' MarketplaceOrder Text
7562−marKind = lens _marKind (\ s a -> s{_marKind = a})
7562+mKind = lens _mKind (\ s a -> s{_mKind = a})
7564-- | Indicates whether the buyer\/seller created the offer.(readonly)
7564-- | Indicates whether the buyer\/seller created the offer.(readonly)
7565−marOriginatorRole :: Lens' MarketplaceOrder (Maybe Text)
7565+mOriginatorRole :: Lens' MarketplaceOrder (Maybe Text)
7566−marOriginatorRole
7566+mOriginatorRole
7567− = lens _marOriginatorRole
7567+ = lens _mOriginatorRole
7568− (\ s a -> s{_marOriginatorRole = a})
7568+ (\ s a -> s{_mOriginatorRole = a})
7570-- | The revision number for the order (readonly).
7570-- | The revision number for the order (readonly).
7571−marRevisionNumber :: Lens' MarketplaceOrder (Maybe Int64)
7571+mRevisionNumber :: Lens' MarketplaceOrder (Maybe Int64)
7572−marRevisionNumber
7572+mRevisionNumber
7573− = lens _marRevisionNumber
7573+ = lens _mRevisionNumber
7574− (\ s a -> s{_marRevisionNumber = a})
7574+ (\ s a -> s{_mRevisionNumber = a})
7576-- | Reference to the buyer that will get billed for this order. (readonly)
7576-- | Reference to the buyer that will get billed for this order. (readonly)
7577−marBilledBuyer :: Lens' MarketplaceOrder (Maybe Buyer)
7577+mBilledBuyer :: Lens' MarketplaceOrder (Maybe Buyer)
7578−marBilledBuyer
7578+mBilledBuyer
7579− = lens _marBilledBuyer
7579+ = lens _mBilledBuyer (\ s a -> s{_mBilledBuyer = a})
7580− (\ s a -> s{_marBilledBuyer = a})
7582-- | True if the order is being renegotiated (readonly).
7581-- | True if the order is being renegotiated (readonly).
7583−marIsRenegotiating :: Lens' MarketplaceOrder (Maybe Bool)
7582+mIsRenegotiating :: Lens' MarketplaceOrder (Maybe Bool)
7584−marIsRenegotiating
7583+mIsRenegotiating
7585− = lens _marIsRenegotiating
7584+ = lens _mIsRenegotiating
7586− (\ s a -> s{_marIsRenegotiating = a})
7585+ (\ s a -> s{_mIsRenegotiating = a})
7588-- | When an order is in an accepted state, indicates whether the buyer has
7587-- | When an order is in an accepted state, indicates whether the buyer has
7589-- signed off Once both sides have signed off on a deal, the order can be
7588-- signed off Once both sides have signed off on a deal, the order can be
7590-- finalized by the seller. (buyer-readonly)
7589-- finalized by the seller. (buyer-readonly)
7591−marHasSellerSignedOff :: Lens' MarketplaceOrder (Maybe Bool)
7590+mHasSellerSignedOff :: Lens' MarketplaceOrder (Maybe Bool)
7592−marHasSellerSignedOff
7591+mHasSellerSignedOff
7593− = lens _marHasSellerSignedOff
7592+ = lens _mHasSellerSignedOff
7594− (\ s a -> s{_marHasSellerSignedOff = a})
7593+ (\ s a -> s{_mHasSellerSignedOff = a})
7596-- | Reference to the seller on the order. (readonly, except on create)
7595-- | Reference to the seller on the order. (readonly, except on create)
7597−marSeller :: Lens' MarketplaceOrder (Maybe Seller)
7596+mSeller :: Lens' MarketplaceOrder (Maybe Seller)
7598−marSeller
7597+mSeller = lens _mSeller (\ s a -> s{_mSeller = a})
7599− = lens _marSeller (\ s a -> s{_marSeller = a})
7601-- | The current state of the order. (readonly)
7599-- | The current state of the order. (readonly)
7602−marOrderState :: Lens' MarketplaceOrder (Maybe Text)
7600+mOrderState :: Lens' MarketplaceOrder (Maybe Text)
7603−marOrderState
7601+mOrderState
7604− = lens _marOrderState
7602+ = lens _mOrderState (\ s a -> s{_mOrderState = a})
7605− (\ s a -> s{_marOrderState = a})
7607-- | The name for the order (updatable)
7604-- | The name for the order (updatable)
7608−marName :: Lens' MarketplaceOrder (Maybe Text)
7605+mName :: Lens' MarketplaceOrder (Maybe Text)
7609−marName = lens _marName (\ s a -> s{_marName = a})
7606+mName = lens _mName (\ s a -> s{_mName = a})
7611-- | Optional contact information for the seller (buyer-readonly).
7608-- | Optional contact information for the seller (buyer-readonly).
7612−marSellerContacts :: Lens' MarketplaceOrder [ContactInformation]
7609+mSellerContacts :: Lens' MarketplaceOrder [ContactInformation]
7613−marSellerContacts
7610+mSellerContacts
7614− = lens _marSellerContacts
7611+ = lens _mSellerContacts
7615− (\ s a -> s{_marSellerContacts = a})
7612+ (\ s a -> s{_mSellerContacts = a})
7616 . _Default
7613 . _Default
7617 . _Coerce
7614 . _Coerce
7619−marLastUpdaterRole :: Lens' MarketplaceOrder (Maybe Text)
7616+mLastUpdaterRole :: Lens' MarketplaceOrder (Maybe Text)
7620−marLastUpdaterRole
7617+mLastUpdaterRole
7621− = lens _marLastUpdaterRole
7618+ = lens _mLastUpdaterRole
7622− (\ s a -> s{_marLastUpdaterRole = a})
7619+ (\ s a -> s{_mLastUpdaterRole = a})
7624-- | List of labels associated with the order. (readonly)
7621-- | List of labels associated with the order. (readonly)
7625−marLabels :: Lens' MarketplaceOrder [MarketplaceLabel]
7622+mLabels :: Lens' MarketplaceOrder [MarketplaceLabel]
7626−marLabels
7623+mLabels
7627− = lens _marLabels (\ s a -> s{_marLabels = a}) .
7628− _Default
7624+ = lens _mLabels (\ s a -> s{_mLabels = a}) . _Default
7629 . _Coerce
7625 . _Coerce
7631-- | The time (ms since epoch) when the order was last revised (readonly).
7627-- | The time (ms since epoch) when the order was last revised (readonly).
7632−marRevisionTimeMs :: Lens' MarketplaceOrder (Maybe Int64)
7628+mRevisionTimeMs :: Lens' MarketplaceOrder (Maybe Int64)
7633−marRevisionTimeMs
7629+mRevisionTimeMs
7634− = lens _marRevisionTimeMs
7630+ = lens _mRevisionTimeMs
7635− (\ s a -> s{_marRevisionTimeMs = a})
7631+ (\ s a -> s{_mRevisionTimeMs = a})
7637-- | The unique id of the order. (readonly).
7633-- | The unique id of the order. (readonly).
7638−marOrderId :: Lens' MarketplaceOrder (Maybe Text)
7634+mOrderId :: Lens' MarketplaceOrder (Maybe Text)
7639−marOrderId
7635+mOrderId = lens _mOrderId (\ s a -> s{_mOrderId = a})
7640− = lens _marOrderId (\ s a -> s{_marOrderId = a})
7642-- | The role of the last user that either updated the order or left a
7637-- | The role of the last user that either updated the order or left a
7643-- comment. (readonly)
7638-- comment. (readonly)
7644−marLastUpdaterOrCommentorRole :: Lens' MarketplaceOrder (Maybe Text)
7639+mLastUpdaterOrCommentorRole :: Lens' MarketplaceOrder (Maybe Text)
7645−marLastUpdaterOrCommentorRole
7640+mLastUpdaterOrCommentorRole
7646− = lens _marLastUpdaterOrCommentorRole
7641+ = lens _mLastUpdaterOrCommentorRole
7647− (\ s a -> s{_marLastUpdaterOrCommentorRole = a})
7642+ (\ s a -> s{_mLastUpdaterOrCommentorRole = a})
7649-- | When an order is in an accepted state, indicates whether the buyer has
7644-- | When an order is in an accepted state, indicates whether the buyer has
7650-- signed off Once both sides have signed off on a deal, the order can be
7645-- signed off Once both sides have signed off on a deal, the order can be
7651-- finalized by the seller. (seller-readonly)
7646-- finalized by the seller. (seller-readonly)
7652−marHasBuyerSignedOff :: Lens' MarketplaceOrder (Maybe Bool)
7647+mHasBuyerSignedOff :: Lens' MarketplaceOrder (Maybe Bool)
7653−marHasBuyerSignedOff
7648+mHasBuyerSignedOff
7654− = lens _marHasBuyerSignedOff
7649+ = lens _mHasBuyerSignedOff
7655− (\ s a -> s{_marHasBuyerSignedOff = a})
7650+ (\ s a -> s{_mHasBuyerSignedOff = a})
7657-- | Reference to the buyer on the order. (readonly, except on create)
7652-- | Reference to the buyer on the order. (readonly, except on create)
7658−marBuyer :: Lens' MarketplaceOrder (Maybe Buyer)
7653+mBuyer :: Lens' MarketplaceOrder (Maybe Buyer)
7659−marBuyer = lens _marBuyer (\ s a -> s{_marBuyer = a})
7654+mBuyer = lens _mBuyer (\ s a -> s{_mBuyer = a})
7661instance FromJSON MarketplaceOrder where
7656instance FromJSON MarketplaceOrder where
7662 parseJSON
7657 parseJSON
@@ -7689,27 +7684,27 @@ instance ToJSON MarketplaceOrder where
7689 toJSON MarketplaceOrder{..}
7684 toJSON MarketplaceOrder{..}
7690 = object
7685 = object
7691 (catMaybes
7686 (catMaybes
7692− [("buyerPrivateData" .=) <$> _marBuyerPrivateData,
7687+ [("buyerPrivateData" .=) <$> _mBuyerPrivateData,
7693− ("isSetupComplete" .=) <$> _marIsSetupComplete,
7688+ ("isSetupComplete" .=) <$> _mIsSetupComplete,
7694− ("buyerContacts" .=) <$> _marBuyerContacts,
7689+ ("buyerContacts" .=) <$> _mBuyerContacts,
7695− Just ("kind" .= _marKind),
7690+ Just ("kind" .= _mKind),
7696− ("originatorRole" .=) <$> _marOriginatorRole,
7691+ ("originatorRole" .=) <$> _mOriginatorRole,
7697− ("revisionNumber" .=) <$> _marRevisionNumber,
7692+ ("revisionNumber" .=) <$> _mRevisionNumber,
7698− ("billedBuyer" .=) <$> _marBilledBuyer,
7693+ ("billedBuyer" .=) <$> _mBilledBuyer,
7699− ("isRenegotiating" .=) <$> _marIsRenegotiating,
7694+ ("isRenegotiating" .=) <$> _mIsRenegotiating,
7700− ("hasSellerSignedOff" .=) <$> _marHasSellerSignedOff,
7695+ ("hasSellerSignedOff" .=) <$> _mHasSellerSignedOff,
7701− ("seller" .=) <$> _marSeller,
7696+ ("seller" .=) <$> _mSeller,
7702− ("orderState" .=) <$> _marOrderState,
7697+ ("orderState" .=) <$> _mOrderState,
7703− ("name" .=) <$> _marName,
7698+ ("name" .=) <$> _mName,
7704− ("sellerContacts" .=) <$> _marSellerContacts,
7699+ ("sellerContacts" .=) <$> _mSellerContacts,
7705− ("lastUpdaterRole" .=) <$> _marLastUpdaterRole,
7700+ ("lastUpdaterRole" .=) <$> _mLastUpdaterRole,
7706− ("labels" .=) <$> _marLabels,
7701+ ("labels" .=) <$> _mLabels,
7707− ("revisionTimeMs" .=) <$> _marRevisionTimeMs,
7702+ ("revisionTimeMs" .=) <$> _mRevisionTimeMs,
7708− ("orderId" .=) <$> _marOrderId,
7703+ ("orderId" .=) <$> _mOrderId,
7709 ("lastUpdaterOrCommentorRole" .=) <$>
7704 ("lastUpdaterOrCommentorRole" .=) <$>
7710− _marLastUpdaterOrCommentorRole,
7705+ _mLastUpdaterOrCommentorRole,
7711− ("hasBuyerSignedOff" .=) <$> _marHasBuyerSignedOff,
7706+ ("hasBuyerSignedOff" .=) <$> _mHasBuyerSignedOff,
7712− ("buyer" .=) <$> _marBuyer])
7707+ ("buyer" .=) <$> _mBuyer])
7715-- /See:/ 'addOrderDealsRequest' smart constructor.
7710-- /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
33 , AccountsGet'
33 , AccountsGet'
35 -- * Request Lenses
35 -- * Request Lenses
45import Network.Google.AdExchangeBuyer.Types
39import Network.Google.AdExchangeBuyer.Types
@@ -50,108 +44,36 @@ import Network.Google.Prelude
50type AccountsGetResource =
44type AccountsGetResource =
51 "accounts" :>
45 "accounts" :>
52 Capture "id" Int32 :>
46 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
61-- | Gets one account by ID.
49-- | Gets one account by ID.
63-- /See:/ 'accountsGet'' smart constructor.
51-- /See:/ 'accountsGet'' smart constructor.
64−data AccountsGet' = AccountsGet'
52+newtype AccountsGet' = AccountsGet'
65− { _agQuotaUser :: !(Maybe Text)
66− , _agPrettyPrint :: !Bool
67− , _agUserIP :: !(Maybe Text)
68− , _agKey :: !(Maybe AuthKey)
69− , _agId :: !Int32
53+ { _agId :: Int32
70− , _agOAuthToken :: !(Maybe OAuthToken)
71− , _agFields :: !(Maybe Text)
72 } deriving (Eq,Show,Data,Typeable,Generic)
54 } deriving (Eq,Show,Data,Typeable,Generic)
74-- | Creates a value of 'AccountsGet'' with the minimum fields required to make a request.
56-- | Creates a value of 'AccountsGet'' with the minimum fields required to make a request.
76-- Use one of the following lenses to modify other fields as desired:
58-- Use one of the following lenses to modify other fields as desired:
86-- * 'agId'
60-- * 'agId'
91accountsGet'
61accountsGet'
92 :: Int32 -- ^ 'id'
62 :: Int32 -- ^ 'id'
93 -> AccountsGet'
63 -> AccountsGet'
94accountsGet' pAgId_ =
64accountsGet' pAgId_ =
95 AccountsGet'
65 AccountsGet'
96− { _agQuotaUser = Nothing
97− , _agPrettyPrint = True
98− , _agUserIP = Nothing
100− , _agId = pAgId_
66+ { _agId = pAgId_
101− , _agOAuthToken = Nothing
102− , _agFields = Nothing
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)
110− = lens _agQuotaUser (\ s a -> s{_agQuotaUser = a})
112−-- | Returns response with indentations and line breaks.
113−agPrettyPrint :: Lens' AccountsGet' Bool
115− = lens _agPrettyPrint
116− (\ s a -> s{_agPrettyPrint = a})
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})
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
126−agKey :: Lens' AccountsGet' (Maybe AuthKey)
127−agKey = lens _agKey (\ s a -> s{_agKey = a})
129-- | The account id
69-- | The account id
130agId :: Lens' AccountsGet' Int32
70agId :: Lens' AccountsGet' Int32
131agId = lens _agId (\ s a -> s{_agId = a})
71agId = lens _agId (\ s a -> s{_agId = a})
133−-- | OAuth 2.0 token for the current user.
134−agOAuthToken :: Lens' AccountsGet' (Maybe OAuthToken)
136− = lens _agOAuthToken (\ s a -> s{_agOAuthToken = a})
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})
142−instance GoogleAuth AccountsGet' where
143− _AuthKey = agKey . _Just
144− _AuthToken = agOAuthToken . _Just
146instance GoogleRequest AccountsGet' where
73instance GoogleRequest AccountsGet' where
147 type Rs AccountsGet' = Account
74 type Rs AccountsGet' = Account
148− request = requestWith adExchangeBuyerRequest
149− requestWith rq AccountsGet'{..}
75+ requestClient AccountsGet'{..}
150− = go _agId _agQuotaUser (Just _agPrettyPrint)
155− (Just AltJSON)
76+ = go _agId (Just AltJSON) adExchangeBuyerService
157− = clientBuild (Proxy :: Proxy AccountsGetResource) rq
78+ = buildClient (Proxy :: Proxy AccountsGetResource)
gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Accounts/List.hs+9−90
@@ -32,13 +32,6 @@ module Network.Google.Resource.AdExchangeBuyer.Accounts.List
32 , accountsList'
32 , accountsList'
33 , AccountsList'
33 , AccountsList'
44import Network.Google.AdExchangeBuyer.Types
37import Network.Google.AdExchangeBuyer.Types
@@ -48,99 +41,25 @@ import Network.Google.Prelude
48-- 'AccountsList'' request conforms to.
41-- 'AccountsList'' request conforms to.
49type AccountsListResource =
42type AccountsListResource =
50 "accounts" :>
43 "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
59-- | Retrieves the authenticated user\'s list of accounts.
46-- | Retrieves the authenticated user\'s list of accounts.
61-- /See:/ 'accountsList'' smart constructor.
48-- /See:/ 'accountsList'' smart constructor.
62−data AccountsList' = AccountsList'
49+data AccountsList' =
63− { _alQuotaUser :: !(Maybe Text)
50+ AccountsList'
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)
51+ deriving (Eq,Show,Data,Typeable,Generic)
71-- | Creates a value of 'AccountsList'' with the minimum fields required to make a request.
53-- | Creates a value of 'AccountsList'' with the minimum fields required to make a request.
73−-- Use one of the following lenses to modify other fields as desired:
86accountsList'
55accountsList'
87 :: AccountsList'
56 :: AccountsList'
88−accountsList' =
57+accountsList' = AccountsList'
90− { _alQuotaUser = Nothing
91− , _alPrettyPrint = True
92− , _alUserIP = Nothing
94− , _alOAuthToken = Nothing
95− , _alFields = Nothing
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)
103− = lens _alQuotaUser (\ s a -> s{_alQuotaUser = a})
105−-- | Returns response with indentations and line breaks.
106−alPrettyPrint :: Lens' AccountsList' Bool
108− = lens _alPrettyPrint
109− (\ s a -> s{_alPrettyPrint = a})
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})
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
119−alKey :: Lens' AccountsList' (Maybe AuthKey)
120−alKey = lens _alKey (\ s a -> s{_alKey = a})
122−-- | OAuth 2.0 token for the current user.
123−alOAuthToken :: Lens' AccountsList' (Maybe OAuthToken)
125− = lens _alOAuthToken (\ s a -> s{_alOAuthToken = a})
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})
131−instance GoogleAuth AccountsList' where
132− _AuthKey = alKey . _Just
133− _AuthToken = alOAuthToken . _Just
135instance GoogleRequest AccountsList' where
59instance GoogleRequest AccountsList' where
136 type Rs AccountsList' = AccountsList
60 type Rs AccountsList' = AccountsList
137− request = requestWith adExchangeBuyerRequest
138− requestWith rq AccountsList'{..}
61+ requestClient AccountsList'{..}
139− = go _alQuotaUser (Just _alPrettyPrint) _alUserIP
143− (Just AltJSON)
62+ = go (Just AltJSON) adExchangeBuyerService
145− = clientBuild (Proxy :: Proxy AccountsListResource)
64+ = buildClient (Proxy :: Proxy AccountsListResource)
gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Accounts/Patch.hs+10−89
@@ -33,14 +33,8 @@ module Network.Google.Resource.AdExchangeBuyer.Accounts.Patch
33 , AccountsPatch'
33 , AccountsPatch'
35 -- * Request Lenses
35 -- * Request Lenses
39 , apPayload
36 , apPayload
46import Network.Google.AdExchangeBuyer.Types
40import Network.Google.AdExchangeBuyer.Types
@@ -51,121 +45,48 @@ import Network.Google.Prelude
51type AccountsPatchResource =
45type AccountsPatchResource =
52 "accounts" :>
46 "accounts" :>
53 Capture "id" Int32 :>
47 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 :>
48+ QueryParam "alt" AltJSON :>
61− ReqBody '[JSON] Account :> Patch '[JSON] Account
49+ ReqBody '[JSON] Account :> Patch '[JSON] Account
63-- | Updates an existing account. This method supports patch semantics.
51-- | Updates an existing account. This method supports patch semantics.
65-- /See:/ 'accountsPatch'' smart constructor.
53-- /See:/ 'accountsPatch'' smart constructor.
66data AccountsPatch' = AccountsPatch'
54data AccountsPatch' = AccountsPatch'
67− { _apQuotaUser :: !(Maybe Text)
68− , _apPrettyPrint :: !Bool
69− , _apUserIP :: !(Maybe Text)
70− , _apPayload :: !Account
55+ { _apPayload :: !Account
71− , _apKey :: !(Maybe AuthKey)
72− , _apId :: !Int32
56+ , _apId :: !Int32
73− , _apOAuthToken :: !(Maybe OAuthToken)
74− , _apFields :: !(Maybe Text)
75 } deriving (Eq,Show,Data,Typeable,Generic)
57 } deriving (Eq,Show,Data,Typeable,Generic)
77-- | Creates a value of 'AccountsPatch'' with the minimum fields required to make a request.
59-- | Creates a value of 'AccountsPatch'' with the minimum fields required to make a request.
79-- Use one of the following lenses to modify other fields as desired:
61-- Use one of the following lenses to modify other fields as desired:
87-- * 'apPayload'
63-- * 'apPayload'
91-- * 'apId'
65-- * 'apId'
96accountsPatch'
66accountsPatch'
97 :: Account -- ^ 'payload'
67 :: Account -- ^ 'payload'
98 -> Int32 -- ^ 'id'
68 -> Int32 -- ^ 'id'
99 -> AccountsPatch'
69 -> AccountsPatch'
100accountsPatch' pApPayload_ pApId_ =
70accountsPatch' pApPayload_ pApId_ =
101 AccountsPatch'
71 AccountsPatch'
102− { _apQuotaUser = Nothing
103− , _apPrettyPrint = True
104− , _apUserIP = Nothing
105− , _apPayload = pApPayload_
72+ { _apPayload = pApPayload_
107 , _apId = pApId_
73 , _apId = pApId_
108− , _apOAuthToken = Nothing
109− , _apFields = Nothing
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)
117− = lens _apQuotaUser (\ s a -> s{_apQuotaUser = a})
119−-- | Returns response with indentations and line breaks.
120−apPrettyPrint :: Lens' AccountsPatch' Bool
122− = lens _apPrettyPrint
123− (\ s a -> s{_apPrettyPrint = a})
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})
130-- | Multipart request metadata.
76-- | Multipart request metadata.
131apPayload :: Lens' AccountsPatch' Account
77apPayload :: Lens' AccountsPatch' Account
133 = lens _apPayload (\ s a -> s{_apPayload = a})
79 = lens _apPayload (\ s a -> s{_apPayload = a})
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
138−apKey :: Lens' AccountsPatch' (Maybe AuthKey)
139−apKey = lens _apKey (\ s a -> s{_apKey = a})
141-- | The account id
81-- | The account id
142apId :: Lens' AccountsPatch' Int32
82apId :: Lens' AccountsPatch' Int32
143apId = lens _apId (\ s a -> s{_apId = a})
83apId = lens _apId (\ s a -> s{_apId = a})
145−-- | OAuth 2.0 token for the current user.
146−apOAuthToken :: Lens' AccountsPatch' (Maybe OAuthToken)
148− = lens _apOAuthToken (\ s a -> s{_apOAuthToken = a})
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})
154−instance GoogleAuth AccountsPatch' where
155− _AuthKey = apKey . _Just
156− _AuthToken = apOAuthToken . _Just
158instance GoogleRequest AccountsPatch' where
85instance GoogleRequest AccountsPatch' where
159 type Rs AccountsPatch' = Account
86 type Rs AccountsPatch' = Account
160− request = requestWith adExchangeBuyerRequest
161− requestWith rq AccountsPatch'{..}
87+ requestClient AccountsPatch'{..}
162− = go _apId _apQuotaUser (Just _apPrettyPrint)
167− (Just AltJSON)
88+ = go _apId (Just AltJSON) _apPayload
168− _apPayload
89+ adExchangeBuyerService
170− = clientBuild (Proxy :: Proxy AccountsPatchResource)
91+ = buildClient (Proxy :: Proxy AccountsPatchResource)
gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Accounts/Update.hs+10−89
@@ -33,14 +33,8 @@ module Network.Google.Resource.AdExchangeBuyer.Accounts.Update
33 , AccountsUpdate'
33 , AccountsUpdate'
35 -- * Request Lenses
35 -- * Request Lenses
39 , auPayload
36 , auPayload
46import Network.Google.AdExchangeBuyer.Types
40import Network.Google.AdExchangeBuyer.Types
@@ -51,121 +45,48 @@ import Network.Google.Prelude
51type AccountsUpdateResource =
45type AccountsUpdateResource =
52 "accounts" :>
46 "accounts" :>
53 Capture "id" Int32 :>
47 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 :>
48+ QueryParam "alt" AltJSON :>
61− ReqBody '[JSON] Account :> Put '[JSON] Account
49+ ReqBody '[JSON] Account :> Put '[JSON] Account
63-- | Updates an existing account.
51-- | Updates an existing account.
65-- /See:/ 'accountsUpdate'' smart constructor.
53-- /See:/ 'accountsUpdate'' smart constructor.
66data AccountsUpdate' = AccountsUpdate'
54data AccountsUpdate' = AccountsUpdate'
67− { _auQuotaUser :: !(Maybe Text)
68− , _auPrettyPrint :: !Bool
69− , _auUserIP :: !(Maybe Text)
70− , _auPayload :: !Account
55+ { _auPayload :: !Account
71− , _auKey :: !(Maybe AuthKey)
72− , _auId :: !Int32
56+ , _auId :: !Int32
73− , _auOAuthToken :: !(Maybe OAuthToken)
74− , _auFields :: !(Maybe Text)
75 } deriving (Eq,Show,Data,Typeable,Generic)
57 } deriving (Eq,Show,Data,Typeable,Generic)
77-- | Creates a value of 'AccountsUpdate'' with the minimum fields required to make a request.
59-- | Creates a value of 'AccountsUpdate'' with the minimum fields required to make a request.
79-- Use one of the following lenses to modify other fields as desired:
61-- Use one of the following lenses to modify other fields as desired:
87-- * 'auPayload'
63-- * 'auPayload'
91-- * 'auId'
65-- * 'auId'
96accountsUpdate'
66accountsUpdate'
97 :: Account -- ^ 'payload'
67 :: Account -- ^ 'payload'
98 -> Int32 -- ^ 'id'
68 -> Int32 -- ^ 'id'
99 -> AccountsUpdate'
69 -> AccountsUpdate'
100accountsUpdate' pAuPayload_ pAuId_ =
70accountsUpdate' pAuPayload_ pAuId_ =
101 AccountsUpdate'
71 AccountsUpdate'
102− { _auQuotaUser = Nothing
103− , _auPrettyPrint = True
104− , _auUserIP = Nothing
105− , _auPayload = pAuPayload_
72+ { _auPayload = pAuPayload_
107 , _auId = pAuId_
73 , _auId = pAuId_
108− , _auOAuthToken = Nothing
109− , _auFields = Nothing
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)
117− = lens _auQuotaUser (\ s a -> s{_auQuotaUser = a})
119−-- | Returns response with indentations and line breaks.
120−auPrettyPrint :: Lens' AccountsUpdate' Bool
122− = lens _auPrettyPrint
123− (\ s a -> s{_auPrettyPrint = a})
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})
130-- | Multipart request metadata.
76-- | Multipart request metadata.
131auPayload :: Lens' AccountsUpdate' Account
77auPayload :: Lens' AccountsUpdate' Account
133 = lens _auPayload (\ s a -> s{_auPayload = a})
79 = lens _auPayload (\ s a -> s{_auPayload = a})
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
138−auKey :: Lens' AccountsUpdate' (Maybe AuthKey)
139−auKey = lens _auKey (\ s a -> s{_auKey = a})
141-- | The account id
81-- | The account id
142auId :: Lens' AccountsUpdate' Int32
82auId :: Lens' AccountsUpdate' Int32
143auId = lens _auId (\ s a -> s{_auId = a})
83auId = lens _auId (\ s a -> s{_auId = a})
145−-- | OAuth 2.0 token for the current user.
146−auOAuthToken :: Lens' AccountsUpdate' (Maybe OAuthToken)
148− = lens _auOAuthToken (\ s a -> s{_auOAuthToken = a})
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})
154−instance GoogleAuth AccountsUpdate' where
155− _AuthKey = auKey . _Just
156− _AuthToken = auOAuthToken . _Just
158instance GoogleRequest AccountsUpdate' where
85instance GoogleRequest AccountsUpdate' where
159 type Rs AccountsUpdate' = Account
86 type Rs AccountsUpdate' = Account
160− request = requestWith adExchangeBuyerRequest
161− requestWith rq AccountsUpdate'{..}
87+ requestClient AccountsUpdate'{..}
162− = go _auId _auQuotaUser (Just _auPrettyPrint)
167− (Just AltJSON)
88+ = go _auId (Just AltJSON) _auPayload
168− _auPayload
89+ adExchangeBuyerService
170− = clientBuild (Proxy :: Proxy AccountsUpdateResource)
91+ = buildClient (Proxy :: Proxy AccountsUpdateResource)
gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/BillingInfo/Get.hs+9−91
@@ -33,13 +33,7 @@ module Network.Google.Resource.AdExchangeBuyer.BillingInfo.Get
33 , BillingInfoGet'
33 , BillingInfoGet'
35 -- * Request Lenses
35 -- * Request Lenses
39 , bigAccountId
36 , bigAccountId
45import Network.Google.AdExchangeBuyer.Types
39import Network.Google.AdExchangeBuyer.Types
@@ -50,114 +44,38 @@ import Network.Google.Prelude
50type BillingInfoGetResource =
44type BillingInfoGetResource =
51 "billinginfo" :>
45 "billinginfo" :>
52 Capture "accountId" Int32 :>
46 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
61-- | Returns the billing information for one account specified by account ID.
49-- | Returns the billing information for one account specified by account ID.
63-- /See:/ 'billingInfoGet'' smart constructor.
51-- /See:/ 'billingInfoGet'' smart constructor.
64−data BillingInfoGet' = BillingInfoGet'
52+newtype BillingInfoGet' = BillingInfoGet'
65− { _bigQuotaUser :: !(Maybe Text)
66− , _bigPrettyPrint :: !Bool
67− , _bigUserIP :: !(Maybe Text)
68− , _bigAccountId :: !Int32
53+ { _bigAccountId :: Int32
69− , _bigKey :: !(Maybe AuthKey)
70− , _bigOAuthToken :: !(Maybe OAuthToken)
71− , _bigFields :: !(Maybe Text)
72 } deriving (Eq,Show,Data,Typeable,Generic)
54 } deriving (Eq,Show,Data,Typeable,Generic)
74-- | Creates a value of 'BillingInfoGet'' with the minimum fields required to make a request.
56-- | Creates a value of 'BillingInfoGet'' with the minimum fields required to make a request.
76-- Use one of the following lenses to modify other fields as desired:
58-- Use one of the following lenses to modify other fields as desired:
84-- * 'bigAccountId'
60-- * 'bigAccountId'
91billingInfoGet'
61billingInfoGet'
92 :: Int32 -- ^ 'accountId'
62 :: Int32 -- ^ 'accountId'
93 -> BillingInfoGet'
63 -> BillingInfoGet'
94billingInfoGet' pBigAccountId_ =
64billingInfoGet' pBigAccountId_ =
95 BillingInfoGet'
65 BillingInfoGet'
96− { _bigQuotaUser = Nothing
97− , _bigPrettyPrint = True
98− , _bigUserIP = Nothing
99− , _bigAccountId = pBigAccountId_
66+ { _bigAccountId = pBigAccountId_
101− , _bigOAuthToken = Nothing
102− , _bigFields = Nothing
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)
110− = lens _bigQuotaUser (\ s a -> s{_bigQuotaUser = a})
112−-- | Returns response with indentations and line breaks.
113−bigPrettyPrint :: Lens' BillingInfoGet' Bool
115− = lens _bigPrettyPrint
116− (\ s a -> s{_bigPrettyPrint = a})
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)
122− = lens _bigUserIP (\ s a -> s{_bigUserIP = a})
124-- | The account id.
69-- | The account id.
125bigAccountId :: Lens' BillingInfoGet' Int32
70bigAccountId :: Lens' BillingInfoGet' Int32
126bigAccountId
71bigAccountId
127 = lens _bigAccountId (\ s a -> s{_bigAccountId = a})
72 = lens _bigAccountId (\ s a -> s{_bigAccountId = a})
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
132−bigKey :: Lens' BillingInfoGet' (Maybe AuthKey)
133−bigKey = lens _bigKey (\ s a -> s{_bigKey = a})
135−-- | OAuth 2.0 token for the current user.
136−bigOAuthToken :: Lens' BillingInfoGet' (Maybe OAuthToken)
138− = lens _bigOAuthToken
139− (\ s a -> s{_bigOAuthToken = a})
141−-- | Selector specifying which fields to include in a partial response.
142−bigFields :: Lens' BillingInfoGet' (Maybe Text)
144− = lens _bigFields (\ s a -> s{_bigFields = a})
146−instance GoogleAuth BillingInfoGet' where
147− _AuthKey = bigKey . _Just
148− _AuthToken = bigOAuthToken . _Just
150instance GoogleRequest BillingInfoGet' where
74instance GoogleRequest BillingInfoGet' where
151 type Rs BillingInfoGet' = BillingInfo
75 type Rs BillingInfoGet' = BillingInfo
152− request = requestWith adExchangeBuyerRequest
153− requestWith rq BillingInfoGet'{..}
76+ requestClient BillingInfoGet'{..}
154− = go _bigAccountId _bigQuotaUser
155− (Just _bigPrettyPrint)
160− (Just AltJSON)
77+ = go _bigAccountId (Just AltJSON)
78+ adExchangeBuyerService
162− = clientBuild (Proxy :: Proxy BillingInfoGetResource)
80+ = buildClient (Proxy :: Proxy BillingInfoGetResource)
gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/BillingInfo/List.hs+10−94
@@ -33,13 +33,6 @@ module Network.Google.Resource.AdExchangeBuyer.BillingInfo.List
33 , billingInfoList'
33 , billingInfoList'
34 , BillingInfoList'
34 , BillingInfoList'
45import Network.Google.AdExchangeBuyer.Types
38import Network.Google.AdExchangeBuyer.Types
@@ -49,105 +42,28 @@ import Network.Google.Prelude
49-- 'BillingInfoList'' request conforms to.
42-- 'BillingInfoList'' request conforms to.
50type BillingInfoListResource =
43type BillingInfoListResource =
51 "billinginfo" :>
44 "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 :>
45+ QueryParam "alt" AltJSON :>
59− Get '[JSON] BillingInfoList
46+ Get '[JSON] BillingInfoList
61-- | Retrieves a list of billing information for all accounts of the
48-- | Retrieves a list of billing information for all accounts of the
62-- authenticated user.
49-- authenticated user.
64-- /See:/ 'billingInfoList'' smart constructor.
51-- /See:/ 'billingInfoList'' smart constructor.
65−data BillingInfoList' = BillingInfoList'
52+data BillingInfoList' =
66− { _bilQuotaUser :: !(Maybe Text)
53+ BillingInfoList'
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)
54+ deriving (Eq,Show,Data,Typeable,Generic)
74-- | Creates a value of 'BillingInfoList'' with the minimum fields required to make a request.
56-- | Creates a value of 'BillingInfoList'' with the minimum fields required to make a request.
76−-- Use one of the following lenses to modify other fields as desired:
89billingInfoList'
58billingInfoList'
90 :: BillingInfoList'
59 :: BillingInfoList'
91−billingInfoList' =
60+billingInfoList' = BillingInfoList'
93− { _bilQuotaUser = Nothing
94− , _bilPrettyPrint = True
95− , _bilUserIP = Nothing
97− , _bilOAuthToken = Nothing
98− , _bilFields = Nothing
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)
106− = lens _bilQuotaUser (\ s a -> s{_bilQuotaUser = a})
108−-- | Returns response with indentations and line breaks.
109−bilPrettyPrint :: Lens' BillingInfoList' Bool
111− = lens _bilPrettyPrint
112− (\ s a -> s{_bilPrettyPrint = a})
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)
118− = lens _bilUserIP (\ s a -> s{_bilUserIP = a})
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
123−bilKey :: Lens' BillingInfoList' (Maybe AuthKey)
124−bilKey = lens _bilKey (\ s a -> s{_bilKey = a})
126−-- | OAuth 2.0 token for the current user.
127−bilOAuthToken :: Lens' BillingInfoList' (Maybe OAuthToken)
129− = lens _bilOAuthToken
130− (\ s a -> s{_bilOAuthToken = a})
132−-- | Selector specifying which fields to include in a partial response.
133−bilFields :: Lens' BillingInfoList' (Maybe Text)
135− = lens _bilFields (\ s a -> s{_bilFields = a})
137−instance GoogleAuth BillingInfoList' where
138− _AuthKey = bilKey . _Just
139− _AuthToken = bilOAuthToken . _Just
141instance GoogleRequest BillingInfoList' where
62instance GoogleRequest BillingInfoList' where
142 type Rs BillingInfoList' = BillingInfoList
63 type Rs BillingInfoList' = BillingInfoList
143− request = requestWith adExchangeBuyerRequest
144− requestWith rq BillingInfoList'{..}
64+ requestClient BillingInfoList'{..}
145− = go _bilQuotaUser (Just _bilPrettyPrint) _bilUserIP
149− (Just AltJSON)
65+ = go (Just AltJSON) adExchangeBuyerService
151− = clientBuild
67+ = buildClient
152 (Proxy :: Proxy BillingInfoListResource)
68 (Proxy :: Proxy BillingInfoListResource)
gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Budget/Get.hs+9−87
@@ -34,14 +34,8 @@ module Network.Google.Resource.AdExchangeBuyer.Budget.Get
34 , BudgetGet'
34 , BudgetGet'
36 -- * Request Lenses
36 -- * Request Lenses
40 , bgAccountId
37 , bgAccountId
43 , bgBillingId
38 , bgBillingId
47import Network.Google.AdExchangeBuyer.Types
41import Network.Google.AdExchangeBuyer.Types
@@ -53,121 +47,49 @@ type BudgetGetResource =
53 "billinginfo" :>
47 "billinginfo" :>
54 Capture "accountId" Int64 :>
48 Capture "accountId" Int64 :>
55 Capture "billingId" Int64 :>
49 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
64-- | Returns the budget information for the adgroup specified by the
52-- | Returns the budget information for the adgroup specified by the
65-- accountId and billingId.
53-- accountId and billingId.
67-- /See:/ 'budgetGet'' smart constructor.
55-- /See:/ 'budgetGet'' smart constructor.
68data BudgetGet' = BudgetGet'
56data BudgetGet' = BudgetGet'
69− { _bgQuotaUser :: !(Maybe Text)
70− , _bgPrettyPrint :: !Bool
71− , _bgUserIP :: !(Maybe Text)
72− , _bgAccountId :: !Int64
57+ { _bgAccountId :: !Int64
73− , _bgKey :: !(Maybe AuthKey)
74− , _bgOAuthToken :: !(Maybe OAuthToken)
75− , _bgBillingId :: !Int64
58+ , _bgBillingId :: !Int64
76− , _bgFields :: !(Maybe Text)
77 } deriving (Eq,Show,Data,Typeable,Generic)
59 } deriving (Eq,Show,Data,Typeable,Generic)
79-- | Creates a value of 'BudgetGet'' with the minimum fields required to make a request.
61-- | Creates a value of 'BudgetGet'' with the minimum fields required to make a request.
81-- Use one of the following lenses to modify other fields as desired:
63-- Use one of the following lenses to modify other fields as desired:
89-- * 'bgAccountId'
65-- * 'bgAccountId'
95-- * 'bgBillingId'
67-- * 'bgBillingId'
99 :: Int64 -- ^ 'accountId'
69 :: Int64 -- ^ 'accountId'
100 -> Int64 -- ^ 'billingId'
70 -> Int64 -- ^ 'billingId'
101 -> BudgetGet'
71 -> BudgetGet'
102budgetGet' pBgAccountId_ pBgBillingId_ =
72budgetGet' pBgAccountId_ pBgBillingId_ =
103 BudgetGet'
73 BudgetGet'
104− { _bgQuotaUser = Nothing
105− , _bgPrettyPrint = True
106− , _bgUserIP = Nothing
107− , _bgAccountId = pBgAccountId_
74+ { _bgAccountId = pBgAccountId_
109− , _bgOAuthToken = Nothing
110 , _bgBillingId = pBgBillingId_
75 , _bgBillingId = pBgBillingId_
111− , _bgFields = Nothing
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)
119− = lens _bgQuotaUser (\ s a -> s{_bgQuotaUser = a})
121−-- | Returns response with indentations and line breaks.
122−bgPrettyPrint :: Lens' BudgetGet' Bool
124− = lens _bgPrettyPrint
125− (\ s a -> s{_bgPrettyPrint = a})
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})
132-- | The account id to get the budget information for.
78-- | The account id to get the budget information for.
133bgAccountId :: Lens' BudgetGet' Int64
79bgAccountId :: Lens' BudgetGet' Int64
134bgAccountId
80bgAccountId
135 = lens _bgAccountId (\ s a -> s{_bgAccountId = a})
81 = lens _bgAccountId (\ s a -> s{_bgAccountId = a})
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
140−bgKey :: Lens' BudgetGet' (Maybe AuthKey)
141−bgKey = lens _bgKey (\ s a -> s{_bgKey = a})
143−-- | OAuth 2.0 token for the current user.
144−bgOAuthToken :: Lens' BudgetGet' (Maybe OAuthToken)
146− = lens _bgOAuthToken (\ s a -> s{_bgOAuthToken = a})
148-- | The billing id to get the budget information for.
83-- | The billing id to get the budget information for.
149bgBillingId :: Lens' BudgetGet' Int64
84bgBillingId :: Lens' BudgetGet' Int64
150bgBillingId
85bgBillingId
151 = lens _bgBillingId (\ s a -> s{_bgBillingId = a})
86 = lens _bgBillingId (\ s a -> s{_bgBillingId = a})
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})
157−instance GoogleAuth BudgetGet' where
158− _AuthKey = bgKey . _Just
159− _AuthToken = bgOAuthToken . _Just
161instance GoogleRequest BudgetGet' where
88instance GoogleRequest BudgetGet' where
162 type Rs BudgetGet' = Budget
89 type Rs BudgetGet' = Budget
163− request = requestWith adExchangeBuyerRequest
164− requestWith rq BudgetGet'{..}
90+ requestClient BudgetGet'{..}
165− = go _bgAccountId _bgBillingId _bgQuotaUser
91+ = go _bgAccountId _bgBillingId (Just AltJSON)
166− (Just _bgPrettyPrint)
92+ adExchangeBuyerService
173− = clientBuild (Proxy :: Proxy BudgetGetResource) rq
94+ = buildClient (Proxy :: Proxy BudgetGetResource)
gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Budget/Patch.hs+11−89
@@ -35,15 +35,9 @@ module Network.Google.Resource.AdExchangeBuyer.Budget.Patch
35 , BudgetPatch'
35 , BudgetPatch'
37 -- * Request Lenses
37 -- * Request Lenses
41 , bpPayload
38 , bpPayload
42 , bpAccountId
39 , bpAccountId
45 , bpBillingId
40 , bpBillingId
49import Network.Google.AdExchangeBuyer.Types
43import Network.Google.AdExchangeBuyer.Types
@@ -55,14 +49,8 @@ type BudgetPatchResource =
55 "billinginfo" :>
49 "billinginfo" :>
56 Capture "accountId" Int64 :>
50 Capture "accountId" Int64 :>
57 Capture "billingId" Int64 :>
51 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 :>
52+ QueryParam "alt" AltJSON :>
65− ReqBody '[JSON] Budget :> Patch '[JSON] Budget
53+ ReqBody '[JSON] Budget :> Patch '[JSON] Budget
67-- | Updates the budget amount for the budget of the adgroup specified by the
55-- | Updates the budget amount for the budget of the adgroup specified by the
68-- accountId and billingId, with the budget amount in the request. This
56-- accountId and billingId, with the budget amount in the request. This
@@ -70,38 +58,20 @@ type BudgetPatchResource =
71-- /See:/ 'budgetPatch'' smart constructor.
59-- /See:/ 'budgetPatch'' smart constructor.
72data BudgetPatch' = BudgetPatch'
60data BudgetPatch' = BudgetPatch'
73− { _bpQuotaUser :: !(Maybe Text)
74− , _bpPrettyPrint :: !Bool
75− , _bpUserIP :: !(Maybe Text)
76− , _bpPayload :: !Budget
61+ { _bpPayload :: !Budget
77− , _bpAccountId :: !Int64
62+ , _bpAccountId :: !Int64
78− , _bpKey :: !(Maybe AuthKey)
79− , _bpOAuthToken :: !(Maybe OAuthToken)
80− , _bpBillingId :: !Int64
63+ , _bpBillingId :: !Int64
81− , _bpFields :: !(Maybe Text)
82 } deriving (Eq,Show,Data,Typeable,Generic)
64 } deriving (Eq,Show,Data,Typeable,Generic)
84-- | Creates a value of 'BudgetPatch'' with the minimum fields required to make a request.
66-- | Creates a value of 'BudgetPatch'' with the minimum fields required to make a request.
86-- Use one of the following lenses to modify other fields as desired:
68-- Use one of the following lenses to modify other fields as desired:
94-- * 'bpPayload'
70-- * 'bpPayload'
96-- * 'bpAccountId'
72-- * 'bpAccountId'
102-- * 'bpBillingId'
74-- * 'bpBillingId'
105budgetPatch'
75budgetPatch'
106 :: Budget -- ^ 'payload'
76 :: Budget -- ^ 'payload'
107 -> Int64 -- ^ 'accountId'
77 -> Int64 -- ^ 'accountId'
@@ -109,35 +79,11 @@ budgetPatch'
109 -> BudgetPatch'
79 -> BudgetPatch'
110budgetPatch' pBpPayload_ pBpAccountId_ pBpBillingId_ =
80budgetPatch' pBpPayload_ pBpAccountId_ pBpBillingId_ =
111 BudgetPatch'
81 BudgetPatch'
112− { _bpQuotaUser = Nothing
113− , _bpPrettyPrint = True
114− , _bpUserIP = Nothing
115− , _bpPayload = pBpPayload_
82+ { _bpPayload = pBpPayload_
116 , _bpAccountId = pBpAccountId_
83 , _bpAccountId = pBpAccountId_
118− , _bpOAuthToken = Nothing
119 , _bpBillingId = pBpBillingId_
84 , _bpBillingId = pBpBillingId_
120− , _bpFields = Nothing
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)
128− = lens _bpQuotaUser (\ s a -> s{_bpQuotaUser = a})
130−-- | Returns response with indentations and line breaks.
131−bpPrettyPrint :: Lens' BudgetPatch' Bool
133− = lens _bpPrettyPrint
134− (\ s a -> s{_bpPrettyPrint = a})
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})
141-- | Multipart request metadata.
87-- | Multipart request metadata.
142bpPayload :: Lens' BudgetPatch' Budget
88bpPayload :: Lens' BudgetPatch' Budget
@@ -148,41 +94,17 @@ bpAccountId :: Lens' BudgetPatch' Int64
148bpAccountId
94bpAccountId
149 = lens _bpAccountId (\ s a -> s{_bpAccountId = a})
95 = lens _bpAccountId (\ s a -> s{_bpAccountId = a})
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
154−bpKey :: Lens' BudgetPatch' (Maybe AuthKey)
155−bpKey = lens _bpKey (\ s a -> s{_bpKey = a})
157−-- | OAuth 2.0 token for the current user.
158−bpOAuthToken :: Lens' BudgetPatch' (Maybe OAuthToken)
160− = lens _bpOAuthToken (\ s a -> s{_bpOAuthToken = a})
162-- | The billing id associated with the budget being updated.
97-- | The billing id associated with the budget being updated.
163bpBillingId :: Lens' BudgetPatch' Int64
98bpBillingId :: Lens' BudgetPatch' Int64
164bpBillingId
99bpBillingId
165 = lens _bpBillingId (\ s a -> s{_bpBillingId = a})
100 = lens _bpBillingId (\ s a -> s{_bpBillingId = a})
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})
171−instance GoogleAuth BudgetPatch' where
172− _AuthKey = bpKey . _Just
173− _AuthToken = bpOAuthToken . _Just
175instance GoogleRequest BudgetPatch' where
102instance GoogleRequest BudgetPatch' where
176 type Rs BudgetPatch' = Budget
103 type Rs BudgetPatch' = Budget
177− request = requestWith adExchangeBuyerRequest
178− requestWith rq BudgetPatch'{..}
104+ requestClient BudgetPatch'{..}
179− = go _bpAccountId _bpBillingId _bpQuotaUser
105+ = go _bpAccountId _bpBillingId (Just AltJSON)
180− (Just _bpPrettyPrint)
186 _bpPayload
106 _bpPayload
107+ adExchangeBuyerService
188− = clientBuild (Proxy :: Proxy BudgetPatchResource) rq
109+ = buildClient (Proxy :: Proxy BudgetPatchResource)
gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Budget/Update.hs+11−90
@@ -34,15 +34,9 @@ module Network.Google.Resource.AdExchangeBuyer.Budget.Update
34 , BudgetUpdate'
34 , BudgetUpdate'
36 -- * Request Lenses
36 -- * Request Lenses
40 , buPayload
37 , buPayload
41 , buAccountId
38 , buAccountId
44 , buBillingId
39 , buBillingId
48import Network.Google.AdExchangeBuyer.Types
42import Network.Google.AdExchangeBuyer.Types
@@ -54,52 +48,28 @@ type BudgetUpdateResource =
54 "billinginfo" :>
48 "billinginfo" :>
55 Capture "accountId" Int64 :>
49 Capture "accountId" Int64 :>
56 Capture "billingId" Int64 :>
50 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 :>
51+ QueryParam "alt" AltJSON :>
64− ReqBody '[JSON] Budget :> Put '[JSON] Budget
52+ ReqBody '[JSON] Budget :> Put '[JSON] Budget
66-- | Updates the budget amount for the budget of the adgroup specified by the
54-- | Updates the budget amount for the budget of the adgroup specified by the
67-- accountId and billingId, with the budget amount in the request.
55-- accountId and billingId, with the budget amount in the request.
69-- /See:/ 'budgetUpdate'' smart constructor.
57-- /See:/ 'budgetUpdate'' smart constructor.
70data BudgetUpdate' = BudgetUpdate'
58data BudgetUpdate' = BudgetUpdate'
71− { _buQuotaUser :: !(Maybe Text)
72− , _buPrettyPrint :: !Bool
73− , _buUserIP :: !(Maybe Text)
74− , _buPayload :: !Budget
59+ { _buPayload :: !Budget
75− , _buAccountId :: !Int64
60+ , _buAccountId :: !Int64
76− , _buKey :: !(Maybe AuthKey)
77− , _buOAuthToken :: !(Maybe OAuthToken)
78− , _buBillingId :: !Int64
61+ , _buBillingId :: !Int64
79− , _buFields :: !(Maybe Text)
80 } deriving (Eq,Show,Data,Typeable,Generic)
62 } deriving (Eq,Show,Data,Typeable,Generic)
82-- | Creates a value of 'BudgetUpdate'' with the minimum fields required to make a request.
64-- | Creates a value of 'BudgetUpdate'' with the minimum fields required to make a request.
84-- Use one of the following lenses to modify other fields as desired:
66-- Use one of the following lenses to modify other fields as desired:
92-- * 'buPayload'
68-- * 'buPayload'
94-- * 'buAccountId'
70-- * 'buAccountId'
100-- * 'buBillingId'
72-- * 'buBillingId'
103budgetUpdate'
73budgetUpdate'
104 :: Budget -- ^ 'payload'
74 :: Budget -- ^ 'payload'
105 -> Int64 -- ^ 'accountId'
75 -> Int64 -- ^ 'accountId'
@@ -107,35 +77,11 @@ budgetUpdate'
107 -> BudgetUpdate'
77 -> BudgetUpdate'
108budgetUpdate' pBuPayload_ pBuAccountId_ pBuBillingId_ =
78budgetUpdate' pBuPayload_ pBuAccountId_ pBuBillingId_ =
109 BudgetUpdate'
79 BudgetUpdate'
110− { _buQuotaUser = Nothing
111− , _buPrettyPrint = True
112− , _buUserIP = Nothing
113− , _buPayload = pBuPayload_
80+ { _buPayload = pBuPayload_
114 , _buAccountId = pBuAccountId_
81 , _buAccountId = pBuAccountId_
116− , _buOAuthToken = Nothing
117 , _buBillingId = pBuBillingId_
82 , _buBillingId = pBuBillingId_
118− , _buFields = Nothing
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)
126− = lens _buQuotaUser (\ s a -> s{_buQuotaUser = a})
128−-- | Returns response with indentations and line breaks.
129−buPrettyPrint :: Lens' BudgetUpdate' Bool
131− = lens _buPrettyPrint
132− (\ s a -> s{_buPrettyPrint = a})
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})
139-- | Multipart request metadata.
85-- | Multipart request metadata.
140buPayload :: Lens' BudgetUpdate' Budget
86buPayload :: Lens' BudgetUpdate' Budget
@@ -146,42 +92,17 @@ buAccountId :: Lens' BudgetUpdate' Int64
146buAccountId
92buAccountId
147 = lens _buAccountId (\ s a -> s{_buAccountId = a})
93 = lens _buAccountId (\ s a -> s{_buAccountId = a})
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
152−buKey :: Lens' BudgetUpdate' (Maybe AuthKey)
153−buKey = lens _buKey (\ s a -> s{_buKey = a})
155−-- | OAuth 2.0 token for the current user.
156−buOAuthToken :: Lens' BudgetUpdate' (Maybe OAuthToken)
158− = lens _buOAuthToken (\ s a -> s{_buOAuthToken = a})
160-- | The billing id associated with the budget being updated.
95-- | The billing id associated with the budget being updated.
161buBillingId :: Lens' BudgetUpdate' Int64
96buBillingId :: Lens' BudgetUpdate' Int64
162buBillingId
97buBillingId
163 = lens _buBillingId (\ s a -> s{_buBillingId = a})
98 = lens _buBillingId (\ s a -> s{_buBillingId = a})
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})
169−instance GoogleAuth BudgetUpdate' where
170− _AuthKey = buKey . _Just
171− _AuthToken = buOAuthToken . _Just
173instance GoogleRequest BudgetUpdate' where
100instance GoogleRequest BudgetUpdate' where
174 type Rs BudgetUpdate' = Budget
101 type Rs BudgetUpdate' = Budget
175− request = requestWith adExchangeBuyerRequest
176− requestWith rq BudgetUpdate'{..}
102+ requestClient BudgetUpdate'{..}
177− = go _buAccountId _buBillingId _buQuotaUser
103+ = go _buAccountId _buBillingId (Just AltJSON)
178− (Just _buPrettyPrint)
184 _buPayload
104 _buPayload
105+ adExchangeBuyerService
186− = clientBuild (Proxy :: Proxy BudgetUpdateResource)
107+ = buildClient (Proxy :: Proxy BudgetUpdateResource)
gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/ClientAccess/Delete.hs+7−89
@@ -33,14 +33,8 @@ module Network.Google.Resource.AdExchangeBuyer.ClientAccess.Delete
33 , ClientAccessDelete'
33 , ClientAccessDelete'
35 -- * Request Lenses
35 -- * Request Lenses
39 , cadSponsorAccountId
36 , cadSponsorAccountId
41 , cadClientAccountId
37 , cadClientAccountId
46import Network.Google.AdExchangeBuyer.Types
40import Network.Google.AdExchangeBuyer.Types
@@ -52,125 +46,49 @@ type ClientAccessDeleteResource =
52 "clientAccess" :>
46 "clientAccess" :>
53 Capture "clientAccountId" Int64 :>
47 Capture "clientAccountId" Int64 :>
54 QueryParam "sponsorAccountId" Int32 :>
48 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] ()
64-- /See:/ 'clientAccessDelete'' smart constructor.
52-- /See:/ 'clientAccessDelete'' smart constructor.
65data ClientAccessDelete' = ClientAccessDelete'
53data ClientAccessDelete' = ClientAccessDelete'
66− { _cadQuotaUser :: !(Maybe Text)
67− , _cadPrettyPrint :: !Bool
68− , _cadUserIP :: !(Maybe Text)
69− , _cadSponsorAccountId :: !Int32
54+ { _cadSponsorAccountId :: !Int32
70− , _cadKey :: !(Maybe AuthKey)
71 , _cadClientAccountId :: !Int64
55 , _cadClientAccountId :: !Int64
72− , _cadOAuthToken :: !(Maybe OAuthToken)
73− , _cadFields :: !(Maybe Text)
74 } deriving (Eq,Show,Data,Typeable,Generic)
56 } deriving (Eq,Show,Data,Typeable,Generic)
76-- | Creates a value of 'ClientAccessDelete'' with the minimum fields required to make a request.
58-- | Creates a value of 'ClientAccessDelete'' with the minimum fields required to make a request.
78-- Use one of the following lenses to modify other fields as desired:
60-- Use one of the following lenses to modify other fields as desired:
86-- * 'cadSponsorAccountId'
62-- * 'cadSponsorAccountId'
90-- * 'cadClientAccountId'
64-- * 'cadClientAccountId'
95clientAccessDelete'
65clientAccessDelete'
96 :: Int32 -- ^ 'sponsorAccountId'
66 :: Int32 -- ^ 'sponsorAccountId'
97 -> Int64 -- ^ 'clientAccountId'
67 -> Int64 -- ^ 'clientAccountId'
98 -> ClientAccessDelete'
68 -> ClientAccessDelete'
99clientAccessDelete' pCadSponsorAccountId_ pCadClientAccountId_ =
69clientAccessDelete' pCadSponsorAccountId_ pCadClientAccountId_ =
100 ClientAccessDelete'
70 ClientAccessDelete'
101− { _cadQuotaUser = Nothing
102− , _cadPrettyPrint = True
103− , _cadUserIP = Nothing
104− , _cadSponsorAccountId = pCadSponsorAccountId_
71+ { _cadSponsorAccountId = pCadSponsorAccountId_
106 , _cadClientAccountId = pCadClientAccountId_
72 , _cadClientAccountId = pCadClientAccountId_
107− , _cadOAuthToken = Nothing
108− , _cadFields = Nothing
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)
116− = lens _cadQuotaUser (\ s a -> s{_cadQuotaUser = a})
118−-- | Returns response with indentations and line breaks.
119−cadPrettyPrint :: Lens' ClientAccessDelete' Bool
121− = lens _cadPrettyPrint
122− (\ s a -> s{_cadPrettyPrint = a})
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)
128− = lens _cadUserIP (\ s a -> s{_cadUserIP = a})
130cadSponsorAccountId :: Lens' ClientAccessDelete' Int32
75cadSponsorAccountId :: Lens' ClientAccessDelete' Int32
131cadSponsorAccountId
76cadSponsorAccountId
132 = lens _cadSponsorAccountId
77 = lens _cadSponsorAccountId
133 (\ s a -> s{_cadSponsorAccountId = a})
78 (\ s a -> s{_cadSponsorAccountId = a})
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
138−cadKey :: Lens' ClientAccessDelete' (Maybe AuthKey)
139−cadKey = lens _cadKey (\ s a -> s{_cadKey = a})
141cadClientAccountId :: Lens' ClientAccessDelete' Int64
80cadClientAccountId :: Lens' ClientAccessDelete' Int64
142cadClientAccountId
81cadClientAccountId
143 = lens _cadClientAccountId
82 = lens _cadClientAccountId
144 (\ s a -> s{_cadClientAccountId = a})
83 (\ s a -> s{_cadClientAccountId = a})
146−-- | OAuth 2.0 token for the current user.
147−cadOAuthToken :: Lens' ClientAccessDelete' (Maybe OAuthToken)
149− = lens _cadOAuthToken
150− (\ s a -> s{_cadOAuthToken = a})
152−-- | Selector specifying which fields to include in a partial response.
153−cadFields :: Lens' ClientAccessDelete' (Maybe Text)
155− = lens _cadFields (\ s a -> s{_cadFields = a})
157−instance GoogleAuth ClientAccessDelete' where
158− _AuthKey = cadKey . _Just
159− _AuthToken = cadOAuthToken . _Just
161instance GoogleRequest ClientAccessDelete' where
85instance GoogleRequest ClientAccessDelete' where
162 type Rs ClientAccessDelete' = ()
86 type Rs ClientAccessDelete' = ()
163− request = requestWith adExchangeBuyerRequest
164− requestWith rq ClientAccessDelete'{..}
87+ requestClient ClientAccessDelete'{..}
165 = go _cadClientAccountId (Just _cadSponsorAccountId)
88 = go _cadClientAccountId (Just _cadSponsorAccountId)
167− (Just _cadPrettyPrint)
172 (Just AltJSON)
89 (Just AltJSON)
90+ adExchangeBuyerService
174− = clientBuild
92+ = buildClient
175 (Proxy :: Proxy ClientAccessDeleteResource)
93 (Proxy :: Proxy ClientAccessDeleteResource)
gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/ClientAccess/Get.hs+8−90
@@ -33,14 +33,8 @@ module Network.Google.Resource.AdExchangeBuyer.ClientAccess.Get
33 , ClientAccessGet'
33 , ClientAccessGet'
35 -- * Request Lenses
35 -- * Request Lenses
39 , cagSponsorAccountId
36 , cagSponsorAccountId
41 , cagClientAccountId
37 , cagClientAccountId
46import Network.Google.AdExchangeBuyer.Types
40import Network.Google.AdExchangeBuyer.Types
@@ -52,126 +46,50 @@ type ClientAccessGetResource =
52 "clientAccess" :>
46 "clientAccess" :>
53 Capture "clientAccountId" Int64 :>
47 Capture "clientAccountId" Int64 :>
54 QueryParam "sponsorAccountId" Int32 :>
48 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 :>
49+ QueryParam "alt" AltJSON :>
62− Get '[JSON] ClientAccessCapabilities
50+ Get '[JSON] ClientAccessCapabilities
65-- /See:/ 'clientAccessGet'' smart constructor.
53-- /See:/ 'clientAccessGet'' smart constructor.
66data ClientAccessGet' = ClientAccessGet'
54data ClientAccessGet' = ClientAccessGet'
67− { _cagQuotaUser :: !(Maybe Text)
68− , _cagPrettyPrint :: !Bool
69− , _cagUserIP :: !(Maybe Text)
70− , _cagSponsorAccountId :: !Int32
55+ { _cagSponsorAccountId :: !Int32
71− , _cagKey :: !(Maybe AuthKey)
72 , _cagClientAccountId :: !Int64
56 , _cagClientAccountId :: !Int64
73− , _cagOAuthToken :: !(Maybe OAuthToken)
74− , _cagFields :: !(Maybe Text)
75 } deriving (Eq,Show,Data,Typeable,Generic)
57 } deriving (Eq,Show,Data,Typeable,Generic)
77-- | Creates a value of 'ClientAccessGet'' with the minimum fields required to make a request.
59-- | Creates a value of 'ClientAccessGet'' with the minimum fields required to make a request.
79-- Use one of the following lenses to modify other fields as desired:
61-- Use one of the following lenses to modify other fields as desired:
87-- * 'cagSponsorAccountId'
63-- * 'cagSponsorAccountId'
91-- * 'cagClientAccountId'
65-- * 'cagClientAccountId'
96clientAccessGet'
66clientAccessGet'
97 :: Int32 -- ^ 'sponsorAccountId'
67 :: Int32 -- ^ 'sponsorAccountId'
98 -> Int64 -- ^ 'clientAccountId'
68 -> Int64 -- ^ 'clientAccountId'
99 -> ClientAccessGet'
69 -> ClientAccessGet'
100clientAccessGet' pCagSponsorAccountId_ pCagClientAccountId_ =
70clientAccessGet' pCagSponsorAccountId_ pCagClientAccountId_ =
101 ClientAccessGet'
71 ClientAccessGet'
102− { _cagQuotaUser = Nothing
103− , _cagPrettyPrint = True
104− , _cagUserIP = Nothing
105− , _cagSponsorAccountId = pCagSponsorAccountId_
72+ { _cagSponsorAccountId = pCagSponsorAccountId_
107 , _cagClientAccountId = pCagClientAccountId_
73 , _cagClientAccountId = pCagClientAccountId_
108− , _cagOAuthToken = Nothing
109− , _cagFields = Nothing
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)
117− = lens _cagQuotaUser (\ s a -> s{_cagQuotaUser = a})
119−-- | Returns response with indentations and line breaks.
120−cagPrettyPrint :: Lens' ClientAccessGet' Bool
122− = lens _cagPrettyPrint
123− (\ s a -> s{_cagPrettyPrint = a})
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)
129− = lens _cagUserIP (\ s a -> s{_cagUserIP = a})
131cagSponsorAccountId :: Lens' ClientAccessGet' Int32
76cagSponsorAccountId :: Lens' ClientAccessGet' Int32
132cagSponsorAccountId
77cagSponsorAccountId
133 = lens _cagSponsorAccountId
78 = lens _cagSponsorAccountId
134 (\ s a -> s{_cagSponsorAccountId = a})
79 (\ s a -> s{_cagSponsorAccountId = a})
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
139−cagKey :: Lens' ClientAccessGet' (Maybe AuthKey)
140−cagKey = lens _cagKey (\ s a -> s{_cagKey = a})
142cagClientAccountId :: Lens' ClientAccessGet' Int64
81cagClientAccountId :: Lens' ClientAccessGet' Int64
143cagClientAccountId
82cagClientAccountId
144 = lens _cagClientAccountId
83 = lens _cagClientAccountId
145 (\ s a -> s{_cagClientAccountId = a})
84 (\ s a -> s{_cagClientAccountId = a})
147−-- | OAuth 2.0 token for the current user.
148−cagOAuthToken :: Lens' ClientAccessGet' (Maybe OAuthToken)
150− = lens _cagOAuthToken
151− (\ s a -> s{_cagOAuthToken = a})
153−-- | Selector specifying which fields to include in a partial response.
154−cagFields :: Lens' ClientAccessGet' (Maybe Text)
156− = lens _cagFields (\ s a -> s{_cagFields = a})
158−instance GoogleAuth ClientAccessGet' where
159− _AuthKey = cagKey . _Just
160− _AuthToken = cagOAuthToken . _Just
162instance GoogleRequest ClientAccessGet' where
86instance GoogleRequest ClientAccessGet' where
163 type Rs ClientAccessGet' = ClientAccessCapabilities
87 type Rs ClientAccessGet' = ClientAccessCapabilities
164− request = requestWith adExchangeBuyerRequest
165− requestWith rq ClientAccessGet'{..}
88+ requestClient ClientAccessGet'{..}
166 = go _cagClientAccountId (Just _cagSponsorAccountId)
89 = go _cagClientAccountId (Just _cagSponsorAccountId)
168− (Just _cagPrettyPrint)
173 (Just AltJSON)
90 (Just AltJSON)
91+ adExchangeBuyerService
175− = clientBuild
93+ = buildClient
176 (Proxy :: Proxy ClientAccessGetResource)
94 (Proxy :: Proxy ClientAccessGetResource)
gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/ClientAccess/Insert.hs+9−91
@@ -33,15 +33,9 @@ module Network.Google.Resource.AdExchangeBuyer.ClientAccess.Insert
33 , ClientAccessInsert'
33 , ClientAccessInsert'
35 -- * Request Lenses
35 -- * Request Lenses
39 , caiSponsorAccountId
36 , caiSponsorAccountId
40 , caiPayload
37 , caiPayload
42 , caiClientAccountId
38 , caiClientAccountId
47import Network.Google.AdExchangeBuyer.Types
41import Network.Google.AdExchangeBuyer.Types
@@ -53,86 +47,37 @@ type ClientAccessInsertResource =
53 "clientAccess" :>
47 "clientAccess" :>
54 QueryParam "sponsorAccountId" Int32 :>
48 QueryParam "sponsorAccountId" Int32 :>
55 QueryParam "clientAccountId" Int64 :>
49 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 :>
50+ QueryParam "alt" AltJSON :>
63− ReqBody '[JSON] ClientAccessCapabilities :>
51+ ReqBody '[JSON] ClientAccessCapabilities :>
64− Post '[JSON] ClientAccessCapabilities
52+ Post '[JSON] ClientAccessCapabilities
67-- /See:/ 'clientAccessInsert'' smart constructor.
55-- /See:/ 'clientAccessInsert'' smart constructor.
68data ClientAccessInsert' = ClientAccessInsert'
56data ClientAccessInsert' = ClientAccessInsert'
69− { _caiQuotaUser :: !(Maybe Text)
70− , _caiPrettyPrint :: !Bool
71− , _caiUserIP :: !(Maybe Text)
72− , _caiSponsorAccountId :: !(Maybe Int32)
57+ { _caiSponsorAccountId :: !(Maybe Int32)
73 , _caiPayload :: !ClientAccessCapabilities
58 , _caiPayload :: !ClientAccessCapabilities
74− , _caiKey :: !(Maybe AuthKey)
75 , _caiClientAccountId :: !(Maybe Int64)
59 , _caiClientAccountId :: !(Maybe Int64)
76− , _caiOAuthToken :: !(Maybe OAuthToken)
77− , _caiFields :: !(Maybe Text)
78 } deriving (Eq,Show,Data,Typeable,Generic)
60 } deriving (Eq,Show,Data,Typeable,Generic)
80-- | Creates a value of 'ClientAccessInsert'' with the minimum fields required to make a request.
62-- | Creates a value of 'ClientAccessInsert'' with the minimum fields required to make a request.
82-- Use one of the following lenses to modify other fields as desired:
64-- Use one of the following lenses to modify other fields as desired:
90-- * 'caiSponsorAccountId'
66-- * 'caiSponsorAccountId'
92-- * 'caiPayload'
68-- * 'caiPayload'
96-- * 'caiClientAccountId'
70-- * 'caiClientAccountId'
101clientAccessInsert'
71clientAccessInsert'
102 :: ClientAccessCapabilities -- ^ 'payload'
72 :: ClientAccessCapabilities -- ^ 'payload'
103 -> ClientAccessInsert'
73 -> ClientAccessInsert'
104clientAccessInsert' pCaiPayload_ =
74clientAccessInsert' pCaiPayload_ =
105 ClientAccessInsert'
75 ClientAccessInsert'
106− { _caiQuotaUser = Nothing
107− , _caiPrettyPrint = True
108− , _caiUserIP = Nothing
109− , _caiSponsorAccountId = Nothing
76+ { _caiSponsorAccountId = Nothing
110 , _caiPayload = pCaiPayload_
77 , _caiPayload = pCaiPayload_
112 , _caiClientAccountId = Nothing
78 , _caiClientAccountId = Nothing
113− , _caiOAuthToken = Nothing
114− , _caiFields = Nothing
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)
122− = lens _caiQuotaUser (\ s a -> s{_caiQuotaUser = a})
124−-- | Returns response with indentations and line breaks.
125−caiPrettyPrint :: Lens' ClientAccessInsert' Bool
127− = lens _caiPrettyPrint
128− (\ s a -> s{_caiPrettyPrint = a})
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)
134− = lens _caiUserIP (\ s a -> s{_caiUserIP = a})
136caiSponsorAccountId :: Lens' ClientAccessInsert' (Maybe Int32)
81caiSponsorAccountId :: Lens' ClientAccessInsert' (Maybe Int32)
137caiSponsorAccountId
82caiSponsorAccountId
138 = lens _caiSponsorAccountId
83 = lens _caiSponsorAccountId
@@ -143,47 +88,20 @@ caiPayload :: Lens' ClientAccessInsert' ClientAccessCapabilities
143caiPayload
88caiPayload
144 = lens _caiPayload (\ s a -> s{_caiPayload = a})
89 = lens _caiPayload (\ s a -> s{_caiPayload = a})
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
149−caiKey :: Lens' ClientAccessInsert' (Maybe AuthKey)
150−caiKey = lens _caiKey (\ s a -> s{_caiKey = a})
152caiClientAccountId :: Lens' ClientAccessInsert' (Maybe Int64)
91caiClientAccountId :: Lens' ClientAccessInsert' (Maybe Int64)
153caiClientAccountId
92caiClientAccountId
154 = lens _caiClientAccountId
93 = lens _caiClientAccountId
155 (\ s a -> s{_caiClientAccountId = a})
94 (\ s a -> s{_caiClientAccountId = a})
157−-- | OAuth 2.0 token for the current user.
158−caiOAuthToken :: Lens' ClientAccessInsert' (Maybe OAuthToken)
160− = lens _caiOAuthToken
161− (\ s a -> s{_caiOAuthToken = a})
163−-- | Selector specifying which fields to include in a partial response.
164−caiFields :: Lens' ClientAccessInsert' (Maybe Text)
166− = lens _caiFields (\ s a -> s{_caiFields = a})
168−instance GoogleAuth ClientAccessInsert' where
169− _AuthKey = caiKey . _Just
170− _AuthToken = caiOAuthToken . _Just
172instance GoogleRequest ClientAccessInsert' where
96instance GoogleRequest ClientAccessInsert' where
173 type Rs ClientAccessInsert' =
97 type Rs ClientAccessInsert' =
174 ClientAccessCapabilities
98 ClientAccessCapabilities
175− request = requestWith adExchangeBuyerRequest
176− requestWith rq ClientAccessInsert'{..}
99+ requestClient ClientAccessInsert'{..}
177 = go _caiSponsorAccountId _caiClientAccountId
100 = go _caiSponsorAccountId _caiClientAccountId
179− (Just _caiPrettyPrint)
184 (Just AltJSON)
101 (Just AltJSON)
185 _caiPayload
102 _caiPayload
103+ adExchangeBuyerService
187− = clientBuild
105+ = buildClient
188 (Proxy :: Proxy ClientAccessInsertResource)
106 (Proxy :: Proxy ClientAccessInsertResource)
gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/ClientAccess/List.hs+11−92
@@ -33,13 +33,7 @@ module Network.Google.Resource.AdExchangeBuyer.ClientAccess.List
33 , ClientAccessList'
33 , ClientAccessList'
35 -- * Request Lenses
35 -- * Request Lenses
39 , calPayload
36 , calPayload
45import Network.Google.AdExchangeBuyer.Types
39import Network.Google.AdExchangeBuyer.Types
@@ -49,116 +43,41 @@ import Network.Google.Prelude
49-- 'ClientAccessList'' request conforms to.
43-- 'ClientAccessList'' request conforms to.
50type ClientAccessListResource =
44type ClientAccessListResource =
51 "clientAccess" :>
45 "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 :>
46+ QueryParam "alt" AltJSON :>
59− ReqBody '[JSON] ListClientAccessCapabilitiesRequest
47+ ReqBody '[JSON] ListClientAccessCapabilitiesRequest
60− :> Get '[JSON] ListClientAccessCapabilitiesResponse
48+ :> Get '[JSON] ListClientAccessCapabilitiesResponse
63-- /See:/ 'clientAccessList'' smart constructor.
51-- /See:/ 'clientAccessList'' smart constructor.
64−data ClientAccessList' = ClientAccessList'
52+newtype ClientAccessList' = ClientAccessList'
65− { _calQuotaUser :: !(Maybe Text)
66− , _calPrettyPrint :: !Bool
67− , _calUserIP :: !(Maybe Text)
68− , _calPayload :: !ListClientAccessCapabilitiesRequest
53+ { _calPayload :: ListClientAccessCapabilitiesRequest
69− , _calKey :: !(Maybe AuthKey)
70− , _calOAuthToken :: !(Maybe OAuthToken)
71− , _calFields :: !(Maybe Text)
72 } deriving (Eq,Show,Data,Typeable,Generic)
54 } deriving (Eq,Show,Data,Typeable,Generic)
74-- | Creates a value of 'ClientAccessList'' with the minimum fields required to make a request.
56-- | Creates a value of 'ClientAccessList'' with the minimum fields required to make a request.
76-- Use one of the following lenses to modify other fields as desired:
58-- Use one of the following lenses to modify other fields as desired:
84-- * 'calPayload'
60-- * 'calPayload'
91clientAccessList'
61clientAccessList'
92 :: ListClientAccessCapabilitiesRequest -- ^ 'payload'
62 :: ListClientAccessCapabilitiesRequest -- ^ 'payload'
93 -> ClientAccessList'
63 -> ClientAccessList'
94clientAccessList' pCalPayload_ =
64clientAccessList' pCalPayload_ =
95 ClientAccessList'
65 ClientAccessList'
96− { _calQuotaUser = Nothing
97− , _calPrettyPrint = True
98− , _calUserIP = Nothing
99− , _calPayload = pCalPayload_
66+ { _calPayload = pCalPayload_
101− , _calOAuthToken = Nothing
102− , _calFields = Nothing
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)
110− = lens _calQuotaUser (\ s a -> s{_calQuotaUser = a})
112−-- | Returns response with indentations and line breaks.
113−calPrettyPrint :: Lens' ClientAccessList' Bool
115− = lens _calPrettyPrint
116− (\ s a -> s{_calPrettyPrint = a})
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)
122− = lens _calUserIP (\ s a -> s{_calUserIP = a})
124-- | Multipart request metadata.
69-- | Multipart request metadata.
125calPayload :: Lens' ClientAccessList' ListClientAccessCapabilitiesRequest
70calPayload :: Lens' ClientAccessList' ListClientAccessCapabilitiesRequest
126calPayload
71calPayload
127 = lens _calPayload (\ s a -> s{_calPayload = a})
72 = lens _calPayload (\ s a -> s{_calPayload = a})
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
132−calKey :: Lens' ClientAccessList' (Maybe AuthKey)
133−calKey = lens _calKey (\ s a -> s{_calKey = a})
135−-- | OAuth 2.0 token for the current user.
136−calOAuthToken :: Lens' ClientAccessList' (Maybe OAuthToken)
138− = lens _calOAuthToken
139− (\ s a -> s{_calOAuthToken = a})
141−-- | Selector specifying which fields to include in a partial response.
142−calFields :: Lens' ClientAccessList' (Maybe Text)
144− = lens _calFields (\ s a -> s{_calFields = a})
146−instance GoogleAuth ClientAccessList' where
147− _AuthKey = calKey . _Just
148− _AuthToken = calOAuthToken . _Just
150instance GoogleRequest ClientAccessList' where
74instance GoogleRequest ClientAccessList' where
151 type Rs ClientAccessList' =
75 type Rs ClientAccessList' =
152 ListClientAccessCapabilitiesResponse
76 ListClientAccessCapabilitiesResponse
153− request = requestWith adExchangeBuyerRequest
154− requestWith rq ClientAccessList'{..}
77+ requestClient ClientAccessList'{..}
155− = go _calQuotaUser (Just _calPrettyPrint) _calUserIP
159− (Just AltJSON)
78+ = go (Just AltJSON) _calPayload
160− _calPayload
79+ adExchangeBuyerService
162− = clientBuild
81+ = buildClient
163 (Proxy :: Proxy ClientAccessListResource)
82 (Proxy :: Proxy ClientAccessListResource)
gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/ClientAccess/Patch.hs+9−91
@@ -33,15 +33,9 @@ module Network.Google.Resource.AdExchangeBuyer.ClientAccess.Patch
33 , ClientAccessPatch'
33 , ClientAccessPatch'
35 -- * Request Lenses
35 -- * Request Lenses
39 , capSponsorAccountId
36 , capSponsorAccountId
40 , capPayload
37 , capPayload
42 , capClientAccountId
38 , capClientAccountId
47import Network.Google.AdExchangeBuyer.Types
41import Network.Google.AdExchangeBuyer.Types
@@ -53,51 +47,27 @@ type ClientAccessPatchResource =
53 "clientAccess" :>
47 "clientAccess" :>
54 Capture "clientAccountId" Int64 :>
48 Capture "clientAccountId" Int64 :>
55 QueryParam "sponsorAccountId" Int32 :>
49 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 :>
50+ QueryParam "alt" AltJSON :>
63− ReqBody '[JSON] ClientAccessCapabilities :>
51+ ReqBody '[JSON] ClientAccessCapabilities :>
64− Patch '[JSON] ClientAccessCapabilities
52+ Patch '[JSON] ClientAccessCapabilities
67-- /See:/ 'clientAccessPatch'' smart constructor.
55-- /See:/ 'clientAccessPatch'' smart constructor.
68data ClientAccessPatch' = ClientAccessPatch'
56data ClientAccessPatch' = ClientAccessPatch'
69− { _capQuotaUser :: !(Maybe Text)
70− , _capPrettyPrint :: !Bool
71− , _capUserIP :: !(Maybe Text)
72− , _capSponsorAccountId :: !Int32
57+ { _capSponsorAccountId :: !Int32
73 , _capPayload :: !ClientAccessCapabilities
58 , _capPayload :: !ClientAccessCapabilities
74− , _capKey :: !(Maybe AuthKey)
75 , _capClientAccountId :: !Int64
59 , _capClientAccountId :: !Int64
76− , _capOAuthToken :: !(Maybe OAuthToken)
77− , _capFields :: !(Maybe Text)
78 } deriving (Eq,Show,Data,Typeable,Generic)
60 } deriving (Eq,Show,Data,Typeable,Generic)
80-- | Creates a value of 'ClientAccessPatch'' with the minimum fields required to make a request.
62-- | Creates a value of 'ClientAccessPatch'' with the minimum fields required to make a request.
82-- Use one of the following lenses to modify other fields as desired:
64-- Use one of the following lenses to modify other fields as desired:
90-- * 'capSponsorAccountId'
66-- * 'capSponsorAccountId'
92-- * 'capPayload'
68-- * 'capPayload'
96-- * 'capClientAccountId'
70-- * 'capClientAccountId'
101clientAccessPatch'
71clientAccessPatch'
102 :: Int32 -- ^ 'sponsorAccountId'
72 :: Int32 -- ^ 'sponsorAccountId'
103 -> ClientAccessCapabilities -- ^ 'payload'
73 -> ClientAccessCapabilities -- ^ 'payload'
@@ -105,36 +75,11 @@ clientAccessPatch'
105 -> ClientAccessPatch'
75 -> ClientAccessPatch'
106clientAccessPatch' pCapSponsorAccountId_ pCapPayload_ pCapClientAccountId_ =
76clientAccessPatch' pCapSponsorAccountId_ pCapPayload_ pCapClientAccountId_ =
107 ClientAccessPatch'
77 ClientAccessPatch'
108− { _capQuotaUser = Nothing
109− , _capPrettyPrint = True
110− , _capUserIP = Nothing
111− , _capSponsorAccountId = pCapSponsorAccountId_
78+ { _capSponsorAccountId = pCapSponsorAccountId_
112 , _capPayload = pCapPayload_
79 , _capPayload = pCapPayload_
114 , _capClientAccountId = pCapClientAccountId_
80 , _capClientAccountId = pCapClientAccountId_
115− , _capOAuthToken = Nothing
116− , _capFields = Nothing
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)
124− = lens _capQuotaUser (\ s a -> s{_capQuotaUser = a})
126−-- | Returns response with indentations and line breaks.
127−capPrettyPrint :: Lens' ClientAccessPatch' Bool
129− = lens _capPrettyPrint
130− (\ s a -> s{_capPrettyPrint = a})
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)
136− = lens _capUserIP (\ s a -> s{_capUserIP = a})
138capSponsorAccountId :: Lens' ClientAccessPatch' Int32
83capSponsorAccountId :: Lens' ClientAccessPatch' Int32
139capSponsorAccountId
84capSponsorAccountId
140 = lens _capSponsorAccountId
85 = lens _capSponsorAccountId
@@ -145,46 +90,19 @@ capPayload :: Lens' ClientAccessPatch' ClientAccessCapabilities
145capPayload
90capPayload
146 = lens _capPayload (\ s a -> s{_capPayload = a})
91 = lens _capPayload (\ s a -> s{_capPayload = a})
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
151−capKey :: Lens' ClientAccessPatch' (Maybe AuthKey)
152−capKey = lens _capKey (\ s a -> s{_capKey = a})
154capClientAccountId :: Lens' ClientAccessPatch' Int64
93capClientAccountId :: Lens' ClientAccessPatch' Int64
155capClientAccountId
94capClientAccountId
156 = lens _capClientAccountId
95 = lens _capClientAccountId
157 (\ s a -> s{_capClientAccountId = a})
96 (\ s a -> s{_capClientAccountId = a})
159−-- | OAuth 2.0 token for the current user.
160−capOAuthToken :: Lens' ClientAccessPatch' (Maybe OAuthToken)
162− = lens _capOAuthToken
163− (\ s a -> s{_capOAuthToken = a})
165−-- | Selector specifying which fields to include in a partial response.
166−capFields :: Lens' ClientAccessPatch' (Maybe Text)
168− = lens _capFields (\ s a -> s{_capFields = a})
170−instance GoogleAuth ClientAccessPatch' where
171− _AuthKey = capKey . _Just
172− _AuthToken = capOAuthToken . _Just
174instance GoogleRequest ClientAccessPatch' where
98instance GoogleRequest ClientAccessPatch' where
175 type Rs ClientAccessPatch' = ClientAccessCapabilities
99 type Rs ClientAccessPatch' = ClientAccessCapabilities
176− request = requestWith adExchangeBuyerRequest
177− requestWith rq ClientAccessPatch'{..}
100+ requestClient ClientAccessPatch'{..}
178 = go _capClientAccountId (Just _capSponsorAccountId)
101 = go _capClientAccountId (Just _capSponsorAccountId)
180− (Just _capPrettyPrint)
185 (Just AltJSON)
102 (Just AltJSON)
186 _capPayload
103 _capPayload
104+ adExchangeBuyerService
188− = clientBuild
106+ = buildClient
189 (Proxy :: Proxy ClientAccessPatchResource)
107 (Proxy :: Proxy ClientAccessPatchResource)
gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/ClientAccess/Update.hs+9−91
@@ -33,15 +33,9 @@ module Network.Google.Resource.AdExchangeBuyer.ClientAccess.Update
33 , ClientAccessUpdate'
33 , ClientAccessUpdate'
35 -- * Request Lenses
35 -- * Request Lenses
39 , cauSponsorAccountId
36 , cauSponsorAccountId
40 , cauPayload
37 , cauPayload
42 , cauClientAccountId
38 , cauClientAccountId
47import Network.Google.AdExchangeBuyer.Types
41import Network.Google.AdExchangeBuyer.Types
@@ -53,51 +47,27 @@ type ClientAccessUpdateResource =
53 "clientAccess" :>
47 "clientAccess" :>
54 Capture "clientAccountId" Int64 :>
48 Capture "clientAccountId" Int64 :>
55 QueryParam "sponsorAccountId" Int32 :>
49 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 :>
50+ QueryParam "alt" AltJSON :>
63− ReqBody '[JSON] ClientAccessCapabilities :>
51+ ReqBody '[JSON] ClientAccessCapabilities :>
64− Put '[JSON] ClientAccessCapabilities
52+ Put '[JSON] ClientAccessCapabilities
67-- /See:/ 'clientAccessUpdate'' smart constructor.
55-- /See:/ 'clientAccessUpdate'' smart constructor.
68data ClientAccessUpdate' = ClientAccessUpdate'
56data ClientAccessUpdate' = ClientAccessUpdate'
69− { _cauQuotaUser :: !(Maybe Text)
70− , _cauPrettyPrint :: !Bool
71− , _cauUserIP :: !(Maybe Text)
72− , _cauSponsorAccountId :: !Int32
57+ { _cauSponsorAccountId :: !Int32
73 , _cauPayload :: !ClientAccessCapabilities
58 , _cauPayload :: !ClientAccessCapabilities
74− , _cauKey :: !(Maybe AuthKey)
75 , _cauClientAccountId :: !Int64
59 , _cauClientAccountId :: !Int64
76− , _cauOAuthToken :: !(Maybe OAuthToken)
77− , _cauFields :: !(Maybe Text)
78 } deriving (Eq,Show,Data,Typeable,Generic)
60 } deriving (Eq,Show,Data,Typeable,Generic)
80-- | Creates a value of 'ClientAccessUpdate'' with the minimum fields required to make a request.
62-- | Creates a value of 'ClientAccessUpdate'' with the minimum fields required to make a request.
82-- Use one of the following lenses to modify other fields as desired:
64-- Use one of the following lenses to modify other fields as desired:
90-- * 'cauSponsorAccountId'
66-- * 'cauSponsorAccountId'
92-- * 'cauPayload'
68-- * 'cauPayload'
96-- * 'cauClientAccountId'
70-- * 'cauClientAccountId'
101clientAccessUpdate'
71clientAccessUpdate'
102 :: Int32 -- ^ 'sponsorAccountId'
72 :: Int32 -- ^ 'sponsorAccountId'
103 -> ClientAccessCapabilities -- ^ 'payload'
73 -> ClientAccessCapabilities -- ^ 'payload'
@@ -105,36 +75,11 @@ clientAccessUpdate'
105 -> ClientAccessUpdate'
75 -> ClientAccessUpdate'
106clientAccessUpdate' pCauSponsorAccountId_ pCauPayload_ pCauClientAccountId_ =
76clientAccessUpdate' pCauSponsorAccountId_ pCauPayload_ pCauClientAccountId_ =
107 ClientAccessUpdate'
77 ClientAccessUpdate'
108− { _cauQuotaUser = Nothing
109− , _cauPrettyPrint = True
110− , _cauUserIP = Nothing
111− , _cauSponsorAccountId = pCauSponsorAccountId_
78+ { _cauSponsorAccountId = pCauSponsorAccountId_
112 , _cauPayload = pCauPayload_
79 , _cauPayload = pCauPayload_
114 , _cauClientAccountId = pCauClientAccountId_
80 , _cauClientAccountId = pCauClientAccountId_
115− , _cauOAuthToken = Nothing
116− , _cauFields = Nothing
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)
124− = lens _cauQuotaUser (\ s a -> s{_cauQuotaUser = a})
126−-- | Returns response with indentations and line breaks.
127−cauPrettyPrint :: Lens' ClientAccessUpdate' Bool
129− = lens _cauPrettyPrint
130− (\ s a -> s{_cauPrettyPrint = a})
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)
136− = lens _cauUserIP (\ s a -> s{_cauUserIP = a})
138cauSponsorAccountId :: Lens' ClientAccessUpdate' Int32
83cauSponsorAccountId :: Lens' ClientAccessUpdate' Int32
139cauSponsorAccountId
84cauSponsorAccountId
140 = lens _cauSponsorAccountId
85 = lens _cauSponsorAccountId
@@ -145,47 +90,20 @@ cauPayload :: Lens' ClientAccessUpdate' ClientAccessCapabilities
145cauPayload
90cauPayload
146 = lens _cauPayload (\ s a -> s{_cauPayload = a})
91 = lens _cauPayload (\ s a -> s{_cauPayload = a})
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
151−cauKey :: Lens' ClientAccessUpdate' (Maybe AuthKey)
152−cauKey = lens _cauKey (\ s a -> s{_cauKey = a})
154cauClientAccountId :: Lens' ClientAccessUpdate' Int64
93cauClientAccountId :: Lens' ClientAccessUpdate' Int64
155cauClientAccountId
94cauClientAccountId
156 = lens _cauClientAccountId
95 = lens _cauClientAccountId
157 (\ s a -> s{_cauClientAccountId = a})
96 (\ s a -> s{_cauClientAccountId = a})
159−-- | OAuth 2.0 token for the current user.
160−cauOAuthToken :: Lens' ClientAccessUpdate' (Maybe OAuthToken)
162− = lens _cauOAuthToken
163− (\ s a -> s{_cauOAuthToken = a})
165−-- | Selector specifying which fields to include in a partial response.
166−cauFields :: Lens' ClientAccessUpdate' (Maybe Text)
168− = lens _cauFields (\ s a -> s{_cauFields = a})
170−instance GoogleAuth ClientAccessUpdate' where
171− _AuthKey = cauKey . _Just
172− _AuthToken = cauOAuthToken . _Just
174instance GoogleRequest ClientAccessUpdate' where
98instance GoogleRequest ClientAccessUpdate' where
175 type Rs ClientAccessUpdate' =
99 type Rs ClientAccessUpdate' =
176 ClientAccessCapabilities
100 ClientAccessCapabilities
177− request = requestWith adExchangeBuyerRequest
178− requestWith rq ClientAccessUpdate'{..}
101+ requestClient ClientAccessUpdate'{..}
179 = go _cauClientAccountId (Just _cauSponsorAccountId)
102 = go _cauClientAccountId (Just _cauSponsorAccountId)
181− (Just _cauPrettyPrint)
186 (Just AltJSON)
103 (Just AltJSON)
187 _cauPayload
104 _cauPayload
105+ adExchangeBuyerService
189− = clientBuild
107+ = buildClient
190 (Proxy :: Proxy ClientAccessUpdateResource)
108 (Proxy :: Proxy ClientAccessUpdateResource)
gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Creatives/Get.hs+8−87
@@ -34,14 +34,8 @@ module Network.Google.Resource.AdExchangeBuyer.Creatives.Get
34 , CreativesGet'
34 , CreativesGet'
36 -- * Request Lenses
36 -- * Request Lenses
39 , cgBuyerCreativeId
37 , cgBuyerCreativeId
41 , cgAccountId
38 , cgAccountId
47import Network.Google.AdExchangeBuyer.Types
41import Network.Google.AdExchangeBuyer.Types
@@ -53,123 +47,50 @@ type CreativesGetResource =
53 "creatives" :>
47 "creatives" :>
54 Capture "accountId" Int32 :>
48 Capture "accountId" Int32 :>
55 Capture "buyerCreativeId" Text :>
49 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
64-- | Gets the status for a single creative. A creative will be available
52-- | Gets the status for a single creative. A creative will be available
65-- 30-40 minutes after submission.
53-- 30-40 minutes after submission.
67-- /See:/ 'creativesGet'' smart constructor.
55-- /See:/ 'creativesGet'' smart constructor.
68data CreativesGet' = CreativesGet'
56data CreativesGet' = CreativesGet'
69− { _cgQuotaUser :: !(Maybe Text)
70− , _cgPrettyPrint :: !Bool
71− , _cgBuyerCreativeId :: !Text
57+ { _cgBuyerCreativeId :: !Text
72− , _cgUserIP :: !(Maybe Text)
73 , _cgAccountId :: !Int32
58 , _cgAccountId :: !Int32
74− , _cgKey :: !(Maybe AuthKey)
75− , _cgOAuthToken :: !(Maybe OAuthToken)
76− , _cgFields :: !(Maybe Text)
77 } deriving (Eq,Show,Data,Typeable,Generic)
59 } deriving (Eq,Show,Data,Typeable,Generic)
79-- | Creates a value of 'CreativesGet'' with the minimum fields required to make a request.
61-- | Creates a value of 'CreativesGet'' with the minimum fields required to make a request.
81-- Use one of the following lenses to modify other fields as desired:
63-- Use one of the following lenses to modify other fields as desired:
87-- * 'cgBuyerCreativeId'
65-- * 'cgBuyerCreativeId'
91-- * 'cgAccountId'
67-- * 'cgAccountId'
98creativesGet'
68creativesGet'
99 :: Text -- ^ 'buyerCreativeId'
69 :: Text -- ^ 'buyerCreativeId'
100 -> Int32 -- ^ 'accountId'
70 -> Int32 -- ^ 'accountId'
101 -> CreativesGet'
71 -> CreativesGet'
102creativesGet' pCgBuyerCreativeId_ pCgAccountId_ =
72creativesGet' pCgBuyerCreativeId_ pCgAccountId_ =
103 CreativesGet'
73 CreativesGet'
104− { _cgQuotaUser = Nothing
105− , _cgPrettyPrint = True
106− , _cgBuyerCreativeId = pCgBuyerCreativeId_
74+ { _cgBuyerCreativeId = pCgBuyerCreativeId_
107− , _cgUserIP = Nothing
108 , _cgAccountId = pCgAccountId_
75 , _cgAccountId = pCgAccountId_
110− , _cgOAuthToken = Nothing
111− , _cgFields = Nothing
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)
119− = lens _cgQuotaUser (\ s a -> s{_cgQuotaUser = a})
121−-- | Returns response with indentations and line breaks.
122−cgPrettyPrint :: Lens' CreativesGet' Bool
124− = lens _cgPrettyPrint
125− (\ s a -> s{_cgPrettyPrint = a})
127-- | The buyer-specific id for this creative.
78-- | The buyer-specific id for this creative.
128cgBuyerCreativeId :: Lens' CreativesGet' Text
79cgBuyerCreativeId :: Lens' CreativesGet' Text
129cgBuyerCreativeId
80cgBuyerCreativeId
130 = lens _cgBuyerCreativeId
81 = lens _cgBuyerCreativeId
131 (\ s a -> s{_cgBuyerCreativeId = a})
82 (\ s a -> s{_cgBuyerCreativeId = a})
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})
138-- | The id for the account that will serve this creative.
84-- | The id for the account that will serve this creative.
139cgAccountId :: Lens' CreativesGet' Int32
85cgAccountId :: Lens' CreativesGet' Int32
140cgAccountId
86cgAccountId
141 = lens _cgAccountId (\ s a -> s{_cgAccountId = a})
87 = lens _cgAccountId (\ s a -> s{_cgAccountId = a})
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
146−cgKey :: Lens' CreativesGet' (Maybe AuthKey)
147−cgKey = lens _cgKey (\ s a -> s{_cgKey = a})
149−-- | OAuth 2.0 token for the current user.
150−cgOAuthToken :: Lens' CreativesGet' (Maybe OAuthToken)
152− = lens _cgOAuthToken (\ s a -> s{_cgOAuthToken = a})
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})
158−instance GoogleAuth CreativesGet' where
159− _AuthKey = cgKey . _Just
160− _AuthToken = cgOAuthToken . _Just
162instance GoogleRequest CreativesGet' where
89instance GoogleRequest CreativesGet' where
163 type Rs CreativesGet' = Creative
90 type Rs CreativesGet' = Creative
164− request = requestWith adExchangeBuyerRequest
165− requestWith rq CreativesGet'{..}
91+ requestClient CreativesGet'{..}
166− = go _cgAccountId _cgBuyerCreativeId _cgQuotaUser
92+ = go _cgAccountId _cgBuyerCreativeId (Just AltJSON)
167− (Just _cgPrettyPrint)
93+ adExchangeBuyerService
174− = clientBuild (Proxy :: Proxy CreativesGetResource)
95+ = buildClient (Proxy :: Proxy CreativesGetResource)
gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Creatives/Insert.hs+9−88
@@ -33,13 +33,7 @@ module Network.Google.Resource.AdExchangeBuyer.Creatives.Insert
33 , CreativesInsert'
33 , CreativesInsert'
35 -- * Request Lenses
35 -- * Request Lenses
39 , ciPayload
36 , ciPayload
45import Network.Google.AdExchangeBuyer.Types
39import Network.Google.AdExchangeBuyer.Types
@@ -49,112 +43,39 @@ import Network.Google.Prelude
49-- 'CreativesInsert'' request conforms to.
43-- 'CreativesInsert'' request conforms to.
50type CreativesInsertResource =
44type CreativesInsertResource =
51 "creatives" :>
45 "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 :>
46+ QueryParam "alt" AltJSON :>
59− ReqBody '[JSON] Creative :> Post '[JSON] Creative
47+ ReqBody '[JSON] Creative :> Post '[JSON] Creative
61-- | Submit a new creative.
49-- | Submit a new creative.
63-- /See:/ 'creativesInsert'' smart constructor.
51-- /See:/ 'creativesInsert'' smart constructor.
64−data CreativesInsert' = CreativesInsert'
52+newtype CreativesInsert' = CreativesInsert'
65− { _ciQuotaUser :: !(Maybe Text)
66− , _ciPrettyPrint :: !Bool
67− , _ciUserIP :: !(Maybe Text)
68− , _ciPayload :: !Creative
53+ { _ciPayload :: Creative
69− , _ciKey :: !(Maybe AuthKey)
70− , _ciOAuthToken :: !(Maybe OAuthToken)
71− , _ciFields :: !(Maybe Text)
72 } deriving (Eq,Show,Data,Typeable,Generic)
54 } deriving (Eq,Show,Data,Typeable,Generic)
74-- | Creates a value of 'CreativesInsert'' with the minimum fields required to make a request.
56-- | Creates a value of 'CreativesInsert'' with the minimum fields required to make a request.
76-- Use one of the following lenses to modify other fields as desired:
58-- Use one of the following lenses to modify other fields as desired:
84-- * 'ciPayload'
60-- * 'ciPayload'
91creativesInsert'
61creativesInsert'
92 :: Creative -- ^ 'payload'
62 :: Creative -- ^ 'payload'
93 -> CreativesInsert'
63 -> CreativesInsert'
94creativesInsert' pCiPayload_ =
64creativesInsert' pCiPayload_ =
95 CreativesInsert'
65 CreativesInsert'
96− { _ciQuotaUser = Nothing
97− , _ciPrettyPrint = True
98− , _ciUserIP = Nothing
99− , _ciPayload = pCiPayload_
66+ { _ciPayload = pCiPayload_
101− , _ciOAuthToken = Nothing
102− , _ciFields = Nothing
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)
110− = lens _ciQuotaUser (\ s a -> s{_ciQuotaUser = a})
112−-- | Returns response with indentations and line breaks.
113−ciPrettyPrint :: Lens' CreativesInsert' Bool
115− = lens _ciPrettyPrint
116− (\ s a -> s{_ciPrettyPrint = a})
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})
123-- | Multipart request metadata.
69-- | Multipart request metadata.
124ciPayload :: Lens' CreativesInsert' Creative
70ciPayload :: Lens' CreativesInsert' Creative
126 = lens _ciPayload (\ s a -> s{_ciPayload = a})
72 = lens _ciPayload (\ s a -> s{_ciPayload = a})
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
131−ciKey :: Lens' CreativesInsert' (Maybe AuthKey)
132−ciKey = lens _ciKey (\ s a -> s{_ciKey = a})
134−-- | OAuth 2.0 token for the current user.
135−ciOAuthToken :: Lens' CreativesInsert' (Maybe OAuthToken)
137− = lens _ciOAuthToken (\ s a -> s{_ciOAuthToken = a})
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})
143−instance GoogleAuth CreativesInsert' where
144− _AuthKey = ciKey . _Just
145− _AuthToken = ciOAuthToken . _Just
147instance GoogleRequest CreativesInsert' where
74instance GoogleRequest CreativesInsert' where
148 type Rs CreativesInsert' = Creative
75 type Rs CreativesInsert' = Creative
149− request = requestWith adExchangeBuyerRequest
150− requestWith rq CreativesInsert'{..}
76+ requestClient CreativesInsert'{..}
151− = go _ciQuotaUser (Just _ciPrettyPrint) _ciUserIP
77+ = go (Just AltJSON) _ciPayload adExchangeBuyerService
158− = clientBuild
79+ = buildClient
159 (Proxy :: Proxy CreativesInsertResource)
80 (Proxy :: Proxy CreativesInsertResource)
gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Creatives/List.hs+7−87
@@ -34,18 +34,12 @@ module Network.Google.Resource.AdExchangeBuyer.Creatives.List
34 , CreativesList'
34 , CreativesList'
36 -- * Request Lenses
36 -- * Request Lenses
39 , clBuyerCreativeId
37 , clBuyerCreativeId
41 , clOpenAuctionStatusFilter
38 , clOpenAuctionStatusFilter
42 , clAccountId
39 , clAccountId
44 , clPageToken
40 , clPageToken
45 , clDealsStatusFilter
41 , clDealsStatusFilter
47 , clMaxResults
42 , clMaxResults
51import Network.Google.AdExchangeBuyer.Types
45import Network.Google.AdExchangeBuyer.Types
@@ -65,92 +59,48 @@ type CreativesListResource =
65 CreativesListDealsStatusFilter
59 CreativesListDealsStatusFilter
67 QueryParam "maxResults" Word32 :>
61 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
77-- | Retrieves a list of the authenticated user\'s active creatives. A
64-- | Retrieves a list of the authenticated user\'s active creatives. A
78-- creative will be available 30-40 minutes after submission.
65-- creative will be available 30-40 minutes after submission.
80-- /See:/ 'creativesList'' smart constructor.
67-- /See:/ 'creativesList'' smart constructor.
81data CreativesList' = CreativesList'
68data CreativesList' = CreativesList'
82− { _clQuotaUser :: !(Maybe Text)
83− , _clPrettyPrint :: !Bool
84− , _clBuyerCreativeId :: !(Maybe [Text])
69+ { _clBuyerCreativeId :: !(Maybe [Text])
85− , _clUserIP :: !(Maybe Text)
86 , _clOpenAuctionStatusFilter :: !(Maybe CreativesListOpenAuctionStatusFilter)
70 , _clOpenAuctionStatusFilter :: !(Maybe CreativesListOpenAuctionStatusFilter)
87 , _clAccountId :: !(Maybe [Int32])
71 , _clAccountId :: !(Maybe [Int32])
88− , _clKey :: !(Maybe AuthKey)
89 , _clPageToken :: !(Maybe Text)
72 , _clPageToken :: !(Maybe Text)
90 , _clDealsStatusFilter :: !(Maybe CreativesListDealsStatusFilter)
73 , _clDealsStatusFilter :: !(Maybe CreativesListDealsStatusFilter)
91− , _clOAuthToken :: !(Maybe OAuthToken)
92 , _clMaxResults :: !(Maybe Word32)
74 , _clMaxResults :: !(Maybe Word32)
93− , _clFields :: !(Maybe Text)
94 } deriving (Eq,Show,Data,Typeable,Generic)
75 } deriving (Eq,Show,Data,Typeable,Generic)
96-- | Creates a value of 'CreativesList'' with the minimum fields required to make a request.
77-- | Creates a value of 'CreativesList'' with the minimum fields required to make a request.
98-- Use one of the following lenses to modify other fields as desired:
79-- Use one of the following lenses to modify other fields as desired:
104-- * 'clBuyerCreativeId'
81-- * 'clBuyerCreativeId'
108-- * 'clOpenAuctionStatusFilter'
83-- * 'clOpenAuctionStatusFilter'
110-- * 'clAccountId'
85-- * 'clAccountId'
114-- * 'clPageToken'
87-- * 'clPageToken'
116-- * 'clDealsStatusFilter'
89-- * 'clDealsStatusFilter'
120-- * 'clMaxResults'
91-- * 'clMaxResults'
123creativesList'
92creativesList'
124 :: CreativesList'
93 :: CreativesList'
125creativesList' =
94creativesList' =
126 CreativesList'
95 CreativesList'
127− { _clQuotaUser = Nothing
128− , _clPrettyPrint = True
129− , _clBuyerCreativeId = Nothing
96+ { _clBuyerCreativeId = Nothing
130− , _clUserIP = Nothing
131 , _clOpenAuctionStatusFilter = Nothing
97 , _clOpenAuctionStatusFilter = Nothing
132 , _clAccountId = Nothing
98 , _clAccountId = Nothing
134 , _clPageToken = Nothing
99 , _clPageToken = Nothing
135 , _clDealsStatusFilter = Nothing
100 , _clDealsStatusFilter = Nothing
136− , _clOAuthToken = Nothing
137 , _clMaxResults = Nothing
101 , _clMaxResults = Nothing
138− , _clFields = Nothing
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)
146− = lens _clQuotaUser (\ s a -> s{_clQuotaUser = a})
148−-- | Returns response with indentations and line breaks.
149−clPrettyPrint :: Lens' CreativesList' Bool
151− = lens _clPrettyPrint
152− (\ s a -> s{_clPrettyPrint = a})
154-- | When specified, only creatives for the given buyer creative ids are
104-- | When specified, only creatives for the given buyer creative ids are
155-- returned.
105-- returned.
156clBuyerCreativeId :: Lens' CreativesList' [Text]
106clBuyerCreativeId :: Lens' CreativesList' [Text]
@@ -160,11 +110,6 @@ clBuyerCreativeId
160 . _Default
110 . _Default
161 . _Coerce
111 . _Coerce
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})
168-- | When specified, only creatives having the given open auction status are
113-- | When specified, only creatives having the given open auction status are
169-- returned.
114-- returned.
170clOpenAuctionStatusFilter :: Lens' CreativesList' (Maybe CreativesListOpenAuctionStatusFilter)
115clOpenAuctionStatusFilter :: Lens' CreativesList' (Maybe CreativesListOpenAuctionStatusFilter)
@@ -179,12 +124,6 @@ clAccountId
180 . _Coerce
125 . _Coerce
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
185−clKey :: Lens' CreativesList' (Maybe AuthKey)
186−clKey = lens _clKey (\ s a -> s{_clKey = a})
188-- | A continuation token, used to page through ad clients. To retrieve the
127-- | A continuation token, used to page through ad clients. To retrieve the
189-- next page, set this parameter to the value of \"nextPageToken\" from the
128-- next page, set this parameter to the value of \"nextPageToken\" from the
190-- previous response. Optional.
129-- previous response. Optional.
@@ -199,42 +138,23 @@ clDealsStatusFilter
199 = lens _clDealsStatusFilter
138 = lens _clDealsStatusFilter
200 (\ s a -> s{_clDealsStatusFilter = a})
139 (\ s a -> s{_clDealsStatusFilter = a})
202−-- | OAuth 2.0 token for the current user.
203−clOAuthToken :: Lens' CreativesList' (Maybe OAuthToken)
205− = lens _clOAuthToken (\ s a -> s{_clOAuthToken = a})
207-- | Maximum number of entries returned on one result page. If not set, the
141-- | Maximum number of entries returned on one result page. If not set, the
208-- default is 100. Optional.
142-- default is 100. Optional.
209clMaxResults :: Lens' CreativesList' (Maybe Word32)
143clMaxResults :: Lens' CreativesList' (Maybe Word32)
210clMaxResults
144clMaxResults
211 = lens _clMaxResults (\ s a -> s{_clMaxResults = a})
145 = lens _clMaxResults (\ s a -> s{_clMaxResults = a})
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})
217−instance GoogleAuth CreativesList' where
218− _AuthKey = clKey . _Just
219− _AuthToken = clOAuthToken . _Just
221instance GoogleRequest CreativesList' where
147instance GoogleRequest CreativesList' where
222 type Rs CreativesList' = CreativesList
148 type Rs CreativesList' = CreativesList
223− request = requestWith adExchangeBuyerRequest
224− requestWith rq CreativesList'{..}
149+ requestClient CreativesList'{..}
225 = go (_clBuyerCreativeId ^. _Default)
150 = go (_clBuyerCreativeId ^. _Default)
226 _clOpenAuctionStatusFilter
151 _clOpenAuctionStatusFilter
227 (_clAccountId ^. _Default)
152 (_clAccountId ^. _Default)
228 _clPageToken
153 _clPageToken
229 _clDealsStatusFilter
154 _clDealsStatusFilter
230 _clMaxResults
155 _clMaxResults
232− (Just _clPrettyPrint)
237 (Just AltJSON)
156 (Just AltJSON)
157+ adExchangeBuyerService
239− = clientBuild (Proxy :: Proxy CreativesListResource)
159+ = buildClient (Proxy :: Proxy CreativesListResource)
gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Deals/Get.hs+12−90
@@ -33,14 +33,8 @@ module Network.Google.Resource.AdExchangeBuyer.Deals.Get
33 , DealsGet'
33 , DealsGet'
35 -- * Request Lenses
35 -- * Request Lenses
39 , dgPayload
36 , dgPayload
40 , dgDealId
37 , dgDealId
46import Network.Google.AdExchangeBuyer.Types
40import Network.Google.AdExchangeBuyer.Types
@@ -51,84 +45,36 @@ import Network.Google.Prelude
51type DealsGetResource =
45type DealsGetResource =
52 "deals" :>
46 "deals" :>
53 Capture "dealId" Int64 :>
47 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 :>
48+ QueryParam "alt" AltJSON :>
61− ReqBody '[JSON]
49+ ReqBody '[JSON]
62− GetFinalizedNegotiationByExternalDealIdRequest
50+ GetFinalizedNegotiationByExternalDealIdRequest
63− :> Get '[JSON] NegotiationDTO
51+ :> Get '[JSON] NegotiationDTO
65-- | Gets the requested deal.
53-- | Gets the requested deal.
67-- /See:/ 'dealsGet'' smart constructor.
55-- /See:/ 'dealsGet'' smart constructor.
68data DealsGet' = DealsGet'
56data DealsGet' = DealsGet'
69− { _dgQuotaUser :: !(Maybe Text)
70− , _dgPrettyPrint :: !Bool
71− , _dgUserIP :: !(Maybe Text)
72− , _dgPayload :: !GetFinalizedNegotiationByExternalDealIdRequest
57+ { _dgPayload :: !GetFinalizedNegotiationByExternalDealIdRequest
73− , _dgDealId :: !Int64
58+ , _dgDealId :: !Int64
74− , _dgKey :: !(Maybe AuthKey)
75− , _dgOAuthToken :: !(Maybe OAuthToken)
76− , _dgFields :: !(Maybe Text)
77 } deriving (Eq,Show,Data,Typeable,Generic)
59 } deriving (Eq,Show,Data,Typeable,Generic)
79-- | Creates a value of 'DealsGet'' with the minimum fields required to make a request.
61-- | Creates a value of 'DealsGet'' with the minimum fields required to make a request.
81-- Use one of the following lenses to modify other fields as desired:
63-- Use one of the following lenses to modify other fields as desired:
89-- * 'dgPayload'
65-- * 'dgPayload'
91-- * 'dgDealId'
67-- * 'dgDealId'
99 :: GetFinalizedNegotiationByExternalDealIdRequest -- ^ 'payload'
69 :: GetFinalizedNegotiationByExternalDealIdRequest -- ^ 'payload'
100 -> Int64 -- ^ 'dealId'
70 -> Int64 -- ^ 'dealId'
101 -> DealsGet'
71 -> DealsGet'
102dealsGet' pDgPayload_ pDgDealId_ =
72dealsGet' pDgPayload_ pDgDealId_ =
103 DealsGet'
73 DealsGet'
104− { _dgQuotaUser = Nothing
105− , _dgPrettyPrint = True
106− , _dgUserIP = Nothing
107− , _dgPayload = pDgPayload_
74+ { _dgPayload = pDgPayload_
108 , _dgDealId = pDgDealId_
75 , _dgDealId = pDgDealId_
110− , _dgOAuthToken = Nothing
111− , _dgFields = Nothing
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)
119− = lens _dgQuotaUser (\ s a -> s{_dgQuotaUser = a})
121−-- | Returns response with indentations and line breaks.
122−dgPrettyPrint :: Lens' DealsGet' Bool
124− = lens _dgPrettyPrint
125− (\ s a -> s{_dgPrettyPrint = a})
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})
132-- | Multipart request metadata.
78-- | Multipart request metadata.
133dgPayload :: Lens' DealsGet' GetFinalizedNegotiationByExternalDealIdRequest
79dgPayload :: Lens' DealsGet' GetFinalizedNegotiationByExternalDealIdRequest
@@ -137,35 +83,11 @@ dgPayload
137dgDealId :: Lens' DealsGet' Int64
83dgDealId :: Lens' DealsGet' Int64
138dgDealId = lens _dgDealId (\ s a -> s{_dgDealId = a})
84dgDealId = lens _dgDealId (\ s a -> s{_dgDealId = a})
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
143−dgKey :: Lens' DealsGet' (Maybe AuthKey)
144−dgKey = lens _dgKey (\ s a -> s{_dgKey = a})
146−-- | OAuth 2.0 token for the current user.
147−dgOAuthToken :: Lens' DealsGet' (Maybe OAuthToken)
149− = lens _dgOAuthToken (\ s a -> s{_dgOAuthToken = a})
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})
155−instance GoogleAuth DealsGet' where
156− _AuthKey = dgKey . _Just
157− _AuthToken = dgOAuthToken . _Just
159instance GoogleRequest DealsGet' where
86instance GoogleRequest DealsGet' where
160 type Rs DealsGet' = NegotiationDTO
87 type Rs DealsGet' = NegotiationDTO
161− request = requestWith adExchangeBuyerRequest
88+ requestClient DealsGet'{..}
162− requestWith rq DealsGet'{..}
163− = go _dgDealId _dgQuotaUser (Just _dgPrettyPrint)
168− (Just AltJSON)
89+ = go _dgDealId (Just AltJSON) _dgPayload
169− _dgPayload
90+ adExchangeBuyerService
171− = clientBuild (Proxy :: Proxy DealsGetResource) rq
92+ = buildClient (Proxy :: Proxy DealsGetResource)
gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceDeals/Delete.hs+11−93
@@ -33,14 +33,8 @@ module Network.Google.Resource.AdExchangeBuyer.MarketplaceDeals.Delete
33 , MarketplaceDealsDelete'
33 , MarketplaceDealsDelete'
35 -- * Request Lenses
35 -- * Request Lenses
39 , mddPayload
36 , mddPayload
42 , mddOrderId
37 , mddOrderId
46import Network.Google.AdExchangeBuyer.Types
40import Network.Google.AdExchangeBuyer.Types
@@ -53,128 +47,52 @@ type MarketplaceDealsDeleteResource =
53 Capture "orderId" Text :>
47 Capture "orderId" Text :>
54 "deals" :>
48 "deals" :>
55 "delete" :>
49 "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 :>
50+ QueryParam "alt" AltJSON :>
63− ReqBody '[JSON] DeleteOrderDealsRequest :>
51+ ReqBody '[JSON] DeleteOrderDealsRequest :>
64− Post '[JSON] DeleteOrderDealsResponse
52+ Post '[JSON] DeleteOrderDealsResponse
66-- | Delete the specified deals from the order
54-- | Delete the specified deals from the order
68-- /See:/ 'marketplaceDealsDelete'' smart constructor.
56-- /See:/ 'marketplaceDealsDelete'' smart constructor.
69data MarketplaceDealsDelete' = MarketplaceDealsDelete'
57data MarketplaceDealsDelete' = MarketplaceDealsDelete'
70− { _mddQuotaUser :: !(Maybe Text)
71− , _mddPrettyPrint :: !Bool
72− , _mddUserIP :: !(Maybe Text)
73− , _mddPayload :: !DeleteOrderDealsRequest
58+ { _mddPayload :: !DeleteOrderDealsRequest
74− , _mddKey :: !(Maybe AuthKey)
75− , _mddOAuthToken :: !(Maybe OAuthToken)
76− , _mddOrderId :: !Text
59+ , _mddOrderId :: !Text
77− , _mddFields :: !(Maybe Text)
78 } deriving (Eq,Show,Data,Typeable,Generic)
60 } deriving (Eq,Show,Data,Typeable,Generic)
80-- | Creates a value of 'MarketplaceDealsDelete'' with the minimum fields required to make a request.
62-- | Creates a value of 'MarketplaceDealsDelete'' with the minimum fields required to make a request.
82-- Use one of the following lenses to modify other fields as desired:
64-- Use one of the following lenses to modify other fields as desired:
90-- * 'mddPayload'
66-- * 'mddPayload'
96-- * 'mddOrderId'
68-- * 'mddOrderId'
99marketplaceDealsDelete'
69marketplaceDealsDelete'
100 :: DeleteOrderDealsRequest -- ^ 'payload'
70 :: DeleteOrderDealsRequest -- ^ 'payload'
101 -> Text -- ^ 'orderId'
71 -> Text -- ^ 'orderId'
102 -> MarketplaceDealsDelete'
72 -> MarketplaceDealsDelete'
103marketplaceDealsDelete' pMddPayload_ pMddOrderId_ =
73marketplaceDealsDelete' pMddPayload_ pMddOrderId_ =
104 MarketplaceDealsDelete'
74 MarketplaceDealsDelete'
105− { _mddQuotaUser = Nothing
106− , _mddPrettyPrint = True
107− , _mddUserIP = Nothing
108− , _mddPayload = pMddPayload_
75+ { _mddPayload = pMddPayload_
110− , _mddOAuthToken = Nothing
111 , _mddOrderId = pMddOrderId_
76 , _mddOrderId = pMddOrderId_
112− , _mddFields = Nothing
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)
120− = lens _mddQuotaUser (\ s a -> s{_mddQuotaUser = a})
122−-- | Returns response with indentations and line breaks.
123−mddPrettyPrint :: Lens' MarketplaceDealsDelete' Bool
125− = lens _mddPrettyPrint
126− (\ s a -> s{_mddPrettyPrint = a})
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)
132− = lens _mddUserIP (\ s a -> s{_mddUserIP = a})
134-- | Multipart request metadata.
79-- | Multipart request metadata.
135mddPayload :: Lens' MarketplaceDealsDelete' DeleteOrderDealsRequest
80mddPayload :: Lens' MarketplaceDealsDelete' DeleteOrderDealsRequest
136mddPayload
81mddPayload
137 = lens _mddPayload (\ s a -> s{_mddPayload = a})
82 = lens _mddPayload (\ s a -> s{_mddPayload = a})
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
142−mddKey :: Lens' MarketplaceDealsDelete' (Maybe AuthKey)
143−mddKey = lens _mddKey (\ s a -> s{_mddKey = a})
145−-- | OAuth 2.0 token for the current user.
146−mddOAuthToken :: Lens' MarketplaceDealsDelete' (Maybe OAuthToken)
148− = lens _mddOAuthToken
149− (\ s a -> s{_mddOAuthToken = a})
151-- | The orderId to delete deals from.
84-- | The orderId to delete deals from.
152mddOrderId :: Lens' MarketplaceDealsDelete' Text
85mddOrderId :: Lens' MarketplaceDealsDelete' Text
153mddOrderId
86mddOrderId
154 = lens _mddOrderId (\ s a -> s{_mddOrderId = a})
87 = lens _mddOrderId (\ s a -> s{_mddOrderId = a})
156−-- | Selector specifying which fields to include in a partial response.
157−mddFields :: Lens' MarketplaceDealsDelete' (Maybe Text)
159− = lens _mddFields (\ s a -> s{_mddFields = a})
161−instance GoogleAuth MarketplaceDealsDelete' where
162− _AuthKey = mddKey . _Just
163− _AuthToken = mddOAuthToken . _Just
165instance GoogleRequest MarketplaceDealsDelete' where
89instance GoogleRequest MarketplaceDealsDelete' where
166 type Rs MarketplaceDealsDelete' =
90 type Rs MarketplaceDealsDelete' =
167 DeleteOrderDealsResponse
91 DeleteOrderDealsResponse
168− request = requestWith adExchangeBuyerRequest
169− requestWith rq MarketplaceDealsDelete'{..}
92+ requestClient MarketplaceDealsDelete'{..}
170− = go _mddOrderId _mddQuotaUser (Just _mddPrettyPrint)
175− (Just AltJSON)
93+ = go _mddOrderId (Just AltJSON) _mddPayload
176− _mddPayload
94+ adExchangeBuyerService
178− = clientBuild
96+ = buildClient
179 (Proxy :: Proxy MarketplaceDealsDeleteResource)
97 (Proxy :: Proxy MarketplaceDealsDeleteResource)
gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceDeals/Insert.hs+11−93
@@ -33,14 +33,8 @@ module Network.Google.Resource.AdExchangeBuyer.MarketplaceDeals.Insert
33 , MarketplaceDealsInsert'
33 , MarketplaceDealsInsert'
35 -- * Request Lenses
35 -- * Request Lenses
39 , mdiPayload
36 , mdiPayload
42 , mdiOrderId
37 , mdiOrderId
46import Network.Google.AdExchangeBuyer.Types
40import Network.Google.AdExchangeBuyer.Types
@@ -53,128 +47,52 @@ type MarketplaceDealsInsertResource =
53 Capture "orderId" Text :>
47 Capture "orderId" Text :>
54 "deals" :>
48 "deals" :>
55 "insert" :>
49 "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 :>
50+ QueryParam "alt" AltJSON :>
63− ReqBody '[JSON] AddOrderDealsRequest :>
51+ ReqBody '[JSON] AddOrderDealsRequest :>
64− Post '[JSON] AddOrderDealsResponse
52+ Post '[JSON] AddOrderDealsResponse
66-- | Add new deals for the specified order
54-- | Add new deals for the specified order
68-- /See:/ 'marketplaceDealsInsert'' smart constructor.
56-- /See:/ 'marketplaceDealsInsert'' smart constructor.
69data MarketplaceDealsInsert' = MarketplaceDealsInsert'
57data MarketplaceDealsInsert' = MarketplaceDealsInsert'
70− { _mdiQuotaUser :: !(Maybe Text)
71− , _mdiPrettyPrint :: !Bool
72− , _mdiUserIP :: !(Maybe Text)
73− , _mdiPayload :: !AddOrderDealsRequest
58+ { _mdiPayload :: !AddOrderDealsRequest
74− , _mdiKey :: !(Maybe AuthKey)
75− , _mdiOAuthToken :: !(Maybe OAuthToken)
76− , _mdiOrderId :: !Text
59+ , _mdiOrderId :: !Text
77− , _mdiFields :: !(Maybe Text)
78 } deriving (Eq,Show,Data,Typeable,Generic)
60 } deriving (Eq,Show,Data,Typeable,Generic)
80-- | Creates a value of 'MarketplaceDealsInsert'' with the minimum fields required to make a request.
62-- | Creates a value of 'MarketplaceDealsInsert'' with the minimum fields required to make a request.
82-- Use one of the following lenses to modify other fields as desired:
64-- Use one of the following lenses to modify other fields as desired:
90-- * 'mdiPayload'
66-- * 'mdiPayload'
96-- * 'mdiOrderId'
68-- * 'mdiOrderId'
99marketplaceDealsInsert'
69marketplaceDealsInsert'
100 :: AddOrderDealsRequest -- ^ 'payload'
70 :: AddOrderDealsRequest -- ^ 'payload'
101 -> Text -- ^ 'orderId'
71 -> Text -- ^ 'orderId'
102 -> MarketplaceDealsInsert'
72 -> MarketplaceDealsInsert'
103marketplaceDealsInsert' pMdiPayload_ pMdiOrderId_ =
73marketplaceDealsInsert' pMdiPayload_ pMdiOrderId_ =
104 MarketplaceDealsInsert'
74 MarketplaceDealsInsert'
105− { _mdiQuotaUser = Nothing
106− , _mdiPrettyPrint = True
107− , _mdiUserIP = Nothing
108− , _mdiPayload = pMdiPayload_
75+ { _mdiPayload = pMdiPayload_
110− , _mdiOAuthToken = Nothing
111 , _mdiOrderId = pMdiOrderId_
76 , _mdiOrderId = pMdiOrderId_
112− , _mdiFields = Nothing
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)
120− = lens _mdiQuotaUser (\ s a -> s{_mdiQuotaUser = a})
122−-- | Returns response with indentations and line breaks.
123−mdiPrettyPrint :: Lens' MarketplaceDealsInsert' Bool
125− = lens _mdiPrettyPrint
126− (\ s a -> s{_mdiPrettyPrint = a})
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)
132− = lens _mdiUserIP (\ s a -> s{_mdiUserIP = a})
134-- | Multipart request metadata.
79-- | Multipart request metadata.
135mdiPayload :: Lens' MarketplaceDealsInsert' AddOrderDealsRequest
80mdiPayload :: Lens' MarketplaceDealsInsert' AddOrderDealsRequest
136mdiPayload
81mdiPayload
137 = lens _mdiPayload (\ s a -> s{_mdiPayload = a})
82 = lens _mdiPayload (\ s a -> s{_mdiPayload = a})
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
142−mdiKey :: Lens' MarketplaceDealsInsert' (Maybe AuthKey)
143−mdiKey = lens _mdiKey (\ s a -> s{_mdiKey = a})
145−-- | OAuth 2.0 token for the current user.
146−mdiOAuthToken :: Lens' MarketplaceDealsInsert' (Maybe OAuthToken)
148− = lens _mdiOAuthToken
149− (\ s a -> s{_mdiOAuthToken = a})
151-- | OrderId for which deals need to be added.
84-- | OrderId for which deals need to be added.
152mdiOrderId :: Lens' MarketplaceDealsInsert' Text
85mdiOrderId :: Lens' MarketplaceDealsInsert' Text
153mdiOrderId
86mdiOrderId
154 = lens _mdiOrderId (\ s a -> s{_mdiOrderId = a})
87 = lens _mdiOrderId (\ s a -> s{_mdiOrderId = a})
156−-- | Selector specifying which fields to include in a partial response.
157−mdiFields :: Lens' MarketplaceDealsInsert' (Maybe Text)
159− = lens _mdiFields (\ s a -> s{_mdiFields = a})
161−instance GoogleAuth MarketplaceDealsInsert' where
162− _AuthKey = mdiKey . _Just
163− _AuthToken = mdiOAuthToken . _Just
165instance GoogleRequest MarketplaceDealsInsert' where
89instance GoogleRequest MarketplaceDealsInsert' where
166 type Rs MarketplaceDealsInsert' =
90 type Rs MarketplaceDealsInsert' =
167 AddOrderDealsResponse
91 AddOrderDealsResponse
168− request = requestWith adExchangeBuyerRequest
169− requestWith rq MarketplaceDealsInsert'{..}
92+ requestClient MarketplaceDealsInsert'{..}
170− = go _mdiOrderId _mdiQuotaUser (Just _mdiPrettyPrint)
175− (Just AltJSON)
93+ = go _mdiOrderId (Just AltJSON) _mdiPayload
176− _mdiPayload
94+ adExchangeBuyerService
178− = clientBuild
96+ = buildClient
179 (Proxy :: Proxy MarketplaceDealsInsertResource)
97 (Proxy :: Proxy MarketplaceDealsInsertResource)
gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceDeals/List.hs+10−91
@@ -33,13 +33,7 @@ module Network.Google.Resource.AdExchangeBuyer.MarketplaceDeals.List
33 , MarketplaceDealsList'
33 , MarketplaceDealsList'
35 -- * Request Lenses
35 -- * Request Lenses
41 , mdlOrderId
36 , mdlOrderId
45import Network.Google.AdExchangeBuyer.Types
39import Network.Google.AdExchangeBuyer.Types
@@ -51,115 +45,40 @@ type MarketplaceDealsListResource =
51 "marketplaceOrders" :>
45 "marketplaceOrders" :>
52 Capture "orderId" Text :>
46 Capture "orderId" Text :>
53 "deals" :>
47 "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 :>
48+ QueryParam "alt" AltJSON :>
61− Get '[JSON] GetOrderDealsResponse
49+ Get '[JSON] GetOrderDealsResponse
63-- | List all the deals for a given order
51-- | List all the deals for a given order
65-- /See:/ 'marketplaceDealsList'' smart constructor.
53-- /See:/ 'marketplaceDealsList'' smart constructor.
66−data MarketplaceDealsList' = MarketplaceDealsList'
54+newtype MarketplaceDealsList' = MarketplaceDealsList'
67− { _mdlQuotaUser :: !(Maybe Text)
68− , _mdlPrettyPrint :: !Bool
69− , _mdlUserIP :: !(Maybe Text)
70− , _mdlKey :: !(Maybe AuthKey)
71− , _mdlOAuthToken :: !(Maybe OAuthToken)
72− , _mdlOrderId :: !Text
55+ { _mdlOrderId :: Text
73− , _mdlFields :: !(Maybe Text)
74 } deriving (Eq,Show,Data,Typeable,Generic)
56 } deriving (Eq,Show,Data,Typeable,Generic)
76-- | Creates a value of 'MarketplaceDealsList'' with the minimum fields required to make a request.
58-- | Creates a value of 'MarketplaceDealsList'' with the minimum fields required to make a request.
78-- Use one of the following lenses to modify other fields as desired:
60-- Use one of the following lenses to modify other fields as desired:
90-- * 'mdlOrderId'
62-- * 'mdlOrderId'
93marketplaceDealsList'
63marketplaceDealsList'
94 :: Text -- ^ 'orderId'
64 :: Text -- ^ 'orderId'
95 -> MarketplaceDealsList'
65 -> MarketplaceDealsList'
96marketplaceDealsList' pMdlOrderId_ =
66marketplaceDealsList' pMdlOrderId_ =
97 MarketplaceDealsList'
67 MarketplaceDealsList'
98− { _mdlQuotaUser = Nothing
99− , _mdlPrettyPrint = True
100− , _mdlUserIP = Nothing
102− , _mdlOAuthToken = Nothing
103− , _mdlOrderId = pMdlOrderId_
68+ { _mdlOrderId = pMdlOrderId_
104− , _mdlFields = Nothing
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)
112− = lens _mdlQuotaUser (\ s a -> s{_mdlQuotaUser = a})
114−-- | Returns response with indentations and line breaks.
115−mdlPrettyPrint :: Lens' MarketplaceDealsList' Bool
117− = lens _mdlPrettyPrint
118− (\ s a -> s{_mdlPrettyPrint = a})
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)
124− = lens _mdlUserIP (\ s a -> s{_mdlUserIP = a})
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
129−mdlKey :: Lens' MarketplaceDealsList' (Maybe AuthKey)
130−mdlKey = lens _mdlKey (\ s a -> s{_mdlKey = a})
132−-- | OAuth 2.0 token for the current user.
133−mdlOAuthToken :: Lens' MarketplaceDealsList' (Maybe OAuthToken)
135− = lens _mdlOAuthToken
136− (\ s a -> s{_mdlOAuthToken = a})
138-- | The orderId to get deals for.
71-- | The orderId to get deals for.
139mdlOrderId :: Lens' MarketplaceDealsList' Text
72mdlOrderId :: Lens' MarketplaceDealsList' Text
140mdlOrderId
73mdlOrderId
141 = lens _mdlOrderId (\ s a -> s{_mdlOrderId = a})
74 = lens _mdlOrderId (\ s a -> s{_mdlOrderId = a})
143−-- | Selector specifying which fields to include in a partial response.
144−mdlFields :: Lens' MarketplaceDealsList' (Maybe Text)
146− = lens _mdlFields (\ s a -> s{_mdlFields = a})
148−instance GoogleAuth MarketplaceDealsList' where
149− _AuthKey = mdlKey . _Just
150− _AuthToken = mdlOAuthToken . _Just
152instance GoogleRequest MarketplaceDealsList' where
76instance GoogleRequest MarketplaceDealsList' where
153 type Rs MarketplaceDealsList' = GetOrderDealsResponse
77 type Rs MarketplaceDealsList' = GetOrderDealsResponse
154− request = requestWith adExchangeBuyerRequest
155− requestWith rq MarketplaceDealsList'{..}
78+ requestClient MarketplaceDealsList'{..}
156− = go _mdlOrderId _mdlQuotaUser (Just _mdlPrettyPrint)
161− (Just AltJSON)
79+ = go _mdlOrderId (Just AltJSON)
80+ adExchangeBuyerService
163− = clientBuild
82+ = buildClient
164 (Proxy :: Proxy MarketplaceDealsListResource)
83 (Proxy :: Proxy MarketplaceDealsListResource)
gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceDeals/Update.hs+11−93
@@ -33,14 +33,8 @@ module Network.Google.Resource.AdExchangeBuyer.MarketplaceDeals.Update
33 , MarketplaceDealsUpdate'
33 , MarketplaceDealsUpdate'
35 -- * Request Lenses
35 -- * Request Lenses
39 , mduPayload
36 , mduPayload
42 , mduOrderId
37 , mduOrderId
46import Network.Google.AdExchangeBuyer.Types
40import Network.Google.AdExchangeBuyer.Types
@@ -53,128 +47,52 @@ type MarketplaceDealsUpdateResource =
53 Capture "orderId" Text :>
47 Capture "orderId" Text :>
54 "deals" :>
48 "deals" :>
55 "update" :>
49 "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 :>
50+ QueryParam "alt" AltJSON :>
63− ReqBody '[JSON] EditAllOrderDealsRequest :>
51+ ReqBody '[JSON] EditAllOrderDealsRequest :>
64− Post '[JSON] EditAllOrderDealsResponse
52+ Post '[JSON] EditAllOrderDealsResponse
66-- | Replaces all the deals in the order with the passed in deals
54-- | Replaces all the deals in the order with the passed in deals
68-- /See:/ 'marketplaceDealsUpdate'' smart constructor.
56-- /See:/ 'marketplaceDealsUpdate'' smart constructor.
69data MarketplaceDealsUpdate' = MarketplaceDealsUpdate'
57data MarketplaceDealsUpdate' = MarketplaceDealsUpdate'
70− { _mduQuotaUser :: !(Maybe Text)
71− , _mduPrettyPrint :: !Bool
72− , _mduUserIP :: !(Maybe Text)
73− , _mduPayload :: !EditAllOrderDealsRequest
58+ { _mduPayload :: !EditAllOrderDealsRequest
74− , _mduKey :: !(Maybe AuthKey)
75− , _mduOAuthToken :: !(Maybe OAuthToken)
76− , _mduOrderId :: !Text
59+ , _mduOrderId :: !Text
77− , _mduFields :: !(Maybe Text)
78 } deriving (Eq,Show,Data,Typeable,Generic)
60 } deriving (Eq,Show,Data,Typeable,Generic)
80-- | Creates a value of 'MarketplaceDealsUpdate'' with the minimum fields required to make a request.
62-- | Creates a value of 'MarketplaceDealsUpdate'' with the minimum fields required to make a request.
82-- Use one of the following lenses to modify other fields as desired:
64-- Use one of the following lenses to modify other fields as desired:
90-- * 'mduPayload'
66-- * 'mduPayload'
96-- * 'mduOrderId'
68-- * 'mduOrderId'
99marketplaceDealsUpdate'
69marketplaceDealsUpdate'
100 :: EditAllOrderDealsRequest -- ^ 'payload'
70 :: EditAllOrderDealsRequest -- ^ 'payload'
101 -> Text -- ^ 'orderId'
71 -> Text -- ^ 'orderId'
102 -> MarketplaceDealsUpdate'
72 -> MarketplaceDealsUpdate'
103marketplaceDealsUpdate' pMduPayload_ pMduOrderId_ =
73marketplaceDealsUpdate' pMduPayload_ pMduOrderId_ =
104 MarketplaceDealsUpdate'
74 MarketplaceDealsUpdate'
105− { _mduQuotaUser = Nothing
106− , _mduPrettyPrint = True
107− , _mduUserIP = Nothing
108− , _mduPayload = pMduPayload_
75+ { _mduPayload = pMduPayload_
110− , _mduOAuthToken = Nothing
111 , _mduOrderId = pMduOrderId_
76 , _mduOrderId = pMduOrderId_
112− , _mduFields = Nothing
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)
120− = lens _mduQuotaUser (\ s a -> s{_mduQuotaUser = a})
122−-- | Returns response with indentations and line breaks.
123−mduPrettyPrint :: Lens' MarketplaceDealsUpdate' Bool
125− = lens _mduPrettyPrint
126− (\ s a -> s{_mduPrettyPrint = a})
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)
132− = lens _mduUserIP (\ s a -> s{_mduUserIP = a})
134-- | Multipart request metadata.
79-- | Multipart request metadata.
135mduPayload :: Lens' MarketplaceDealsUpdate' EditAllOrderDealsRequest
80mduPayload :: Lens' MarketplaceDealsUpdate' EditAllOrderDealsRequest
136mduPayload
81mduPayload
137 = lens _mduPayload (\ s a -> s{_mduPayload = a})
82 = lens _mduPayload (\ s a -> s{_mduPayload = a})
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
142−mduKey :: Lens' MarketplaceDealsUpdate' (Maybe AuthKey)
143−mduKey = lens _mduKey (\ s a -> s{_mduKey = a})
145−-- | OAuth 2.0 token for the current user.
146−mduOAuthToken :: Lens' MarketplaceDealsUpdate' (Maybe OAuthToken)
148− = lens _mduOAuthToken
149− (\ s a -> s{_mduOAuthToken = a})
151-- | The orderId to edit deals on.
84-- | The orderId to edit deals on.
152mduOrderId :: Lens' MarketplaceDealsUpdate' Text
85mduOrderId :: Lens' MarketplaceDealsUpdate' Text
153mduOrderId
86mduOrderId
154 = lens _mduOrderId (\ s a -> s{_mduOrderId = a})
87 = lens _mduOrderId (\ s a -> s{_mduOrderId = a})
156−-- | Selector specifying which fields to include in a partial response.
157−mduFields :: Lens' MarketplaceDealsUpdate' (Maybe Text)
159− = lens _mduFields (\ s a -> s{_mduFields = a})
161−instance GoogleAuth MarketplaceDealsUpdate' where
162− _AuthKey = mduKey . _Just
163− _AuthToken = mduOAuthToken . _Just
165instance GoogleRequest MarketplaceDealsUpdate' where
89instance GoogleRequest MarketplaceDealsUpdate' where
166 type Rs MarketplaceDealsUpdate' =
90 type Rs MarketplaceDealsUpdate' =
167 EditAllOrderDealsResponse
91 EditAllOrderDealsResponse
168− request = requestWith adExchangeBuyerRequest
169− requestWith rq MarketplaceDealsUpdate'{..}
92+ requestClient MarketplaceDealsUpdate'{..}
170− = go _mduOrderId _mduQuotaUser (Just _mduPrettyPrint)
175− (Just AltJSON)
93+ = go _mduOrderId (Just AltJSON) _mduPayload
176− _mduPayload
94+ adExchangeBuyerService
178− = clientBuild
96+ = buildClient
179 (Proxy :: Proxy MarketplaceDealsUpdateResource)
97 (Proxy :: Proxy MarketplaceDealsUpdateResource)
gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceNotes/Insert.hs+11−93
@@ -33,14 +33,8 @@ module Network.Google.Resource.AdExchangeBuyer.MarketplaceNotes.Insert
33 , MarketplaceNotesInsert'
33 , MarketplaceNotesInsert'
35 -- * Request Lenses
35 -- * Request Lenses
39 , mniPayload
36 , mniPayload
42 , mniOrderId
37 , mniOrderId
46import Network.Google.AdExchangeBuyer.Types
40import Network.Google.AdExchangeBuyer.Types
@@ -53,128 +47,52 @@ type MarketplaceNotesInsertResource =
53 Capture "orderId" Text :>
47 Capture "orderId" Text :>
54 "notes" :>
48 "notes" :>
55 "insert" :>
49 "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 :>
50+ QueryParam "alt" AltJSON :>
63− ReqBody '[JSON] AddOrderNotesRequest :>
51+ ReqBody '[JSON] AddOrderNotesRequest :>
64− Post '[JSON] AddOrderNotesResponse
52+ Post '[JSON] AddOrderNotesResponse
66-- | Add notes to the order
54-- | Add notes to the order
68-- /See:/ 'marketplaceNotesInsert'' smart constructor.
56-- /See:/ 'marketplaceNotesInsert'' smart constructor.
69data MarketplaceNotesInsert' = MarketplaceNotesInsert'
57data MarketplaceNotesInsert' = MarketplaceNotesInsert'
70− { _mniQuotaUser :: !(Maybe Text)
71− , _mniPrettyPrint :: !Bool
72− , _mniUserIP :: !(Maybe Text)
73− , _mniPayload :: !AddOrderNotesRequest
58+ { _mniPayload :: !AddOrderNotesRequest
74− , _mniKey :: !(Maybe AuthKey)
75− , _mniOAuthToken :: !(Maybe OAuthToken)
76− , _mniOrderId :: !Text
59+ , _mniOrderId :: !Text
77− , _mniFields :: !(Maybe Text)
78 } deriving (Eq,Show,Data,Typeable,Generic)
60 } deriving (Eq,Show,Data,Typeable,Generic)
80-- | Creates a value of 'MarketplaceNotesInsert'' with the minimum fields required to make a request.
62-- | Creates a value of 'MarketplaceNotesInsert'' with the minimum fields required to make a request.
82-- Use one of the following lenses to modify other fields as desired:
64-- Use one of the following lenses to modify other fields as desired:
90-- * 'mniPayload'
66-- * 'mniPayload'
96-- * 'mniOrderId'
68-- * 'mniOrderId'
99marketplaceNotesInsert'
69marketplaceNotesInsert'
100 :: AddOrderNotesRequest -- ^ 'payload'
70 :: AddOrderNotesRequest -- ^ 'payload'
101 -> Text -- ^ 'orderId'
71 -> Text -- ^ 'orderId'
102 -> MarketplaceNotesInsert'
72 -> MarketplaceNotesInsert'
103marketplaceNotesInsert' pMniPayload_ pMniOrderId_ =
73marketplaceNotesInsert' pMniPayload_ pMniOrderId_ =
104 MarketplaceNotesInsert'
74 MarketplaceNotesInsert'
105− { _mniQuotaUser = Nothing
106− , _mniPrettyPrint = True
107− , _mniUserIP = Nothing
108− , _mniPayload = pMniPayload_
75+ { _mniPayload = pMniPayload_
110− , _mniOAuthToken = Nothing
111 , _mniOrderId = pMniOrderId_
76 , _mniOrderId = pMniOrderId_
112− , _mniFields = Nothing
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)
120− = lens _mniQuotaUser (\ s a -> s{_mniQuotaUser = a})
122−-- | Returns response with indentations and line breaks.
123−mniPrettyPrint :: Lens' MarketplaceNotesInsert' Bool
125− = lens _mniPrettyPrint
126− (\ s a -> s{_mniPrettyPrint = a})
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)
132− = lens _mniUserIP (\ s a -> s{_mniUserIP = a})
134-- | Multipart request metadata.
79-- | Multipart request metadata.
135mniPayload :: Lens' MarketplaceNotesInsert' AddOrderNotesRequest
80mniPayload :: Lens' MarketplaceNotesInsert' AddOrderNotesRequest
136mniPayload
81mniPayload
137 = lens _mniPayload (\ s a -> s{_mniPayload = a})
82 = lens _mniPayload (\ s a -> s{_mniPayload = a})
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
142−mniKey :: Lens' MarketplaceNotesInsert' (Maybe AuthKey)
143−mniKey = lens _mniKey (\ s a -> s{_mniKey = a})
145−-- | OAuth 2.0 token for the current user.
146−mniOAuthToken :: Lens' MarketplaceNotesInsert' (Maybe OAuthToken)
148− = lens _mniOAuthToken
149− (\ s a -> s{_mniOAuthToken = a})
151-- | The orderId to add notes for.
84-- | The orderId to add notes for.
152mniOrderId :: Lens' MarketplaceNotesInsert' Text
85mniOrderId :: Lens' MarketplaceNotesInsert' Text
153mniOrderId
86mniOrderId
154 = lens _mniOrderId (\ s a -> s{_mniOrderId = a})
87 = lens _mniOrderId (\ s a -> s{_mniOrderId = a})
156−-- | Selector specifying which fields to include in a partial response.
157−mniFields :: Lens' MarketplaceNotesInsert' (Maybe Text)
159− = lens _mniFields (\ s a -> s{_mniFields = a})
161−instance GoogleAuth MarketplaceNotesInsert' where
162− _AuthKey = mniKey . _Just
163− _AuthToken = mniOAuthToken . _Just
165instance GoogleRequest MarketplaceNotesInsert' where
89instance GoogleRequest MarketplaceNotesInsert' where
166 type Rs MarketplaceNotesInsert' =
90 type Rs MarketplaceNotesInsert' =
167 AddOrderNotesResponse
91 AddOrderNotesResponse
168− request = requestWith adExchangeBuyerRequest
169− requestWith rq MarketplaceNotesInsert'{..}
92+ requestClient MarketplaceNotesInsert'{..}
170− = go _mniOrderId _mniQuotaUser (Just _mniPrettyPrint)
175− (Just AltJSON)
93+ = go _mniOrderId (Just AltJSON) _mniPayload
176− _mniPayload
94+ adExchangeBuyerService
178− = clientBuild
96+ = buildClient
179 (Proxy :: Proxy MarketplaceNotesInsertResource)
97 (Proxy :: Proxy MarketplaceNotesInsertResource)
gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceNotes/List.hs+10−91
@@ -33,13 +33,7 @@ module Network.Google.Resource.AdExchangeBuyer.MarketplaceNotes.List
33 , MarketplaceNotesList'
33 , MarketplaceNotesList'
35 -- * Request Lenses
35 -- * Request Lenses
41 , mnlOrderId
36 , mnlOrderId
45import Network.Google.AdExchangeBuyer.Types
39import Network.Google.AdExchangeBuyer.Types
@@ -51,115 +45,40 @@ type MarketplaceNotesListResource =
51 "marketplaceOrders" :>
45 "marketplaceOrders" :>
52 Capture "orderId" Text :>
46 Capture "orderId" Text :>
53 "notes" :>
47 "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 :>
48+ QueryParam "alt" AltJSON :>
61− Get '[JSON] GetOrderNotesResponse
49+ Get '[JSON] GetOrderNotesResponse
63-- | Get all the notes associated with an order
51-- | Get all the notes associated with an order
65-- /See:/ 'marketplaceNotesList'' smart constructor.
53-- /See:/ 'marketplaceNotesList'' smart constructor.
66−data MarketplaceNotesList' = MarketplaceNotesList'
54+newtype MarketplaceNotesList' = MarketplaceNotesList'
67− { _mnlQuotaUser :: !(Maybe Text)
68− , _mnlPrettyPrint :: !Bool
69− , _mnlUserIP :: !(Maybe Text)
70− , _mnlKey :: !(Maybe AuthKey)
71− , _mnlOAuthToken :: !(Maybe OAuthToken)
72− , _mnlOrderId :: !Text
55+ { _mnlOrderId :: Text
73− , _mnlFields :: !(Maybe Text)
74 } deriving (Eq,Show,Data,Typeable,Generic)
56 } deriving (Eq,Show,Data,Typeable,Generic)
76-- | Creates a value of 'MarketplaceNotesList'' with the minimum fields required to make a request.
58-- | Creates a value of 'MarketplaceNotesList'' with the minimum fields required to make a request.
78-- Use one of the following lenses to modify other fields as desired:
60-- Use one of the following lenses to modify other fields as desired:
90-- * 'mnlOrderId'
62-- * 'mnlOrderId'
93marketplaceNotesList'
63marketplaceNotesList'
94 :: Text -- ^ 'orderId'
64 :: Text -- ^ 'orderId'
95 -> MarketplaceNotesList'
65 -> MarketplaceNotesList'
96marketplaceNotesList' pMnlOrderId_ =
66marketplaceNotesList' pMnlOrderId_ =
97 MarketplaceNotesList'
67 MarketplaceNotesList'
98− { _mnlQuotaUser = Nothing
99− , _mnlPrettyPrint = True
100− , _mnlUserIP = Nothing
102− , _mnlOAuthToken = Nothing
103− , _mnlOrderId = pMnlOrderId_
68+ { _mnlOrderId = pMnlOrderId_
104− , _mnlFields = Nothing
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)
112− = lens _mnlQuotaUser (\ s a -> s{_mnlQuotaUser = a})
114−-- | Returns response with indentations and line breaks.
115−mnlPrettyPrint :: Lens' MarketplaceNotesList' Bool
117− = lens _mnlPrettyPrint
118− (\ s a -> s{_mnlPrettyPrint = a})
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)
124− = lens _mnlUserIP (\ s a -> s{_mnlUserIP = a})
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
129−mnlKey :: Lens' MarketplaceNotesList' (Maybe AuthKey)
130−mnlKey = lens _mnlKey (\ s a -> s{_mnlKey = a})
132−-- | OAuth 2.0 token for the current user.
133−mnlOAuthToken :: Lens' MarketplaceNotesList' (Maybe OAuthToken)
135− = lens _mnlOAuthToken
136− (\ s a -> s{_mnlOAuthToken = a})
138-- | The orderId to get notes for.
71-- | The orderId to get notes for.
139mnlOrderId :: Lens' MarketplaceNotesList' Text
72mnlOrderId :: Lens' MarketplaceNotesList' Text
140mnlOrderId
73mnlOrderId
141 = lens _mnlOrderId (\ s a -> s{_mnlOrderId = a})
74 = lens _mnlOrderId (\ s a -> s{_mnlOrderId = a})
143−-- | Selector specifying which fields to include in a partial response.
144−mnlFields :: Lens' MarketplaceNotesList' (Maybe Text)
146− = lens _mnlFields (\ s a -> s{_mnlFields = a})
148−instance GoogleAuth MarketplaceNotesList' where
149− _AuthKey = mnlKey . _Just
150− _AuthToken = mnlOAuthToken . _Just
152instance GoogleRequest MarketplaceNotesList' where
76instance GoogleRequest MarketplaceNotesList' where
153 type Rs MarketplaceNotesList' = GetOrderNotesResponse
77 type Rs MarketplaceNotesList' = GetOrderNotesResponse
154− request = requestWith adExchangeBuyerRequest
155− requestWith rq MarketplaceNotesList'{..}
78+ requestClient MarketplaceNotesList'{..}
156− = go _mnlOrderId _mnlQuotaUser (Just _mnlPrettyPrint)
161− (Just AltJSON)
79+ = go _mnlOrderId (Just AltJSON)
80+ adExchangeBuyerService
163− = clientBuild
82+ = buildClient
164 (Proxy :: Proxy MarketplaceNotesListResource)
83 (Proxy :: Proxy MarketplaceNotesListResource)
gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceOffers/Get.hs+10−91
@@ -33,13 +33,7 @@ module Network.Google.Resource.AdExchangeBuyer.MarketplaceOffers.Get
33 , MarketplaceOffersGet'
33 , MarketplaceOffersGet'
35 -- * Request Lenses
35 -- * Request Lenses
40 , mogOfferId
36 , mogOfferId
45import Network.Google.AdExchangeBuyer.Types
39import Network.Google.AdExchangeBuyer.Types
@@ -50,115 +44,40 @@ import Network.Google.Prelude
50type MarketplaceOffersGetResource =
44type MarketplaceOffersGetResource =
51 "marketplaceOffers" :>
45 "marketplaceOffers" :>
52 Capture "offerId" Text :>
46 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 :>
47+ QueryParam "alt" AltJSON :>
60− Get '[JSON] MarketplaceOffer
48+ Get '[JSON] MarketplaceOffer
62-- | Gets the requested negotiation.
50-- | Gets the requested negotiation.
64-- /See:/ 'marketplaceOffersGet'' smart constructor.
52-- /See:/ 'marketplaceOffersGet'' smart constructor.
65−data MarketplaceOffersGet' = MarketplaceOffersGet'
53+newtype MarketplaceOffersGet' = MarketplaceOffersGet'
66− { _mogQuotaUser :: !(Maybe Text)
67− , _mogPrettyPrint :: !Bool
68− , _mogUserIP :: !(Maybe Text)
69− , _mogKey :: !(Maybe AuthKey)
70− , _mogOfferId :: !Text
54+ { _mogOfferId :: Text
71− , _mogOAuthToken :: !(Maybe OAuthToken)
72− , _mogFields :: !(Maybe Text)
73 } deriving (Eq,Show,Data,Typeable,Generic)
55 } deriving (Eq,Show,Data,Typeable,Generic)
75-- | Creates a value of 'MarketplaceOffersGet'' with the minimum fields required to make a request.
57-- | Creates a value of 'MarketplaceOffersGet'' with the minimum fields required to make a request.
77-- Use one of the following lenses to modify other fields as desired:
59-- Use one of the following lenses to modify other fields as desired:
87-- * 'mogOfferId'
61-- * 'mogOfferId'
92marketplaceOffersGet'
62marketplaceOffersGet'
93 :: Text -- ^ 'offerId'
63 :: Text -- ^ 'offerId'
94 -> MarketplaceOffersGet'
64 -> MarketplaceOffersGet'
95marketplaceOffersGet' pMogOfferId_ =
65marketplaceOffersGet' pMogOfferId_ =
96 MarketplaceOffersGet'
66 MarketplaceOffersGet'
97− { _mogQuotaUser = Nothing
98− , _mogPrettyPrint = True
99− , _mogUserIP = Nothing
101− , _mogOfferId = pMogOfferId_
67+ { _mogOfferId = pMogOfferId_
102− , _mogOAuthToken = Nothing
103− , _mogFields = Nothing
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)
111− = lens _mogQuotaUser (\ s a -> s{_mogQuotaUser = a})
113−-- | Returns response with indentations and line breaks.
114−mogPrettyPrint :: Lens' MarketplaceOffersGet' Bool
116− = lens _mogPrettyPrint
117− (\ s a -> s{_mogPrettyPrint = a})
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)
123− = lens _mogUserIP (\ s a -> s{_mogUserIP = a})
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
128−mogKey :: Lens' MarketplaceOffersGet' (Maybe AuthKey)
129−mogKey = lens _mogKey (\ s a -> s{_mogKey = a})
131-- | The offerId for the offer to get the head revision for.
70-- | The offerId for the offer to get the head revision for.
132mogOfferId :: Lens' MarketplaceOffersGet' Text
71mogOfferId :: Lens' MarketplaceOffersGet' Text
133mogOfferId
72mogOfferId
134 = lens _mogOfferId (\ s a -> s{_mogOfferId = a})
73 = lens _mogOfferId (\ s a -> s{_mogOfferId = a})
136−-- | OAuth 2.0 token for the current user.
137−mogOAuthToken :: Lens' MarketplaceOffersGet' (Maybe OAuthToken)
139− = lens _mogOAuthToken
140− (\ s a -> s{_mogOAuthToken = a})
142−-- | Selector specifying which fields to include in a partial response.
143−mogFields :: Lens' MarketplaceOffersGet' (Maybe Text)
145− = lens _mogFields (\ s a -> s{_mogFields = a})
147−instance GoogleAuth MarketplaceOffersGet' where
148− _AuthKey = mogKey . _Just
149− _AuthToken = mogOAuthToken . _Just
151instance GoogleRequest MarketplaceOffersGet' where
75instance GoogleRequest MarketplaceOffersGet' where
152 type Rs MarketplaceOffersGet' = MarketplaceOffer
76 type Rs MarketplaceOffersGet' = MarketplaceOffer
153− request = requestWith adExchangeBuyerRequest
154− requestWith rq MarketplaceOffersGet'{..}
77+ requestClient MarketplaceOffersGet'{..}
155− = go _mogOfferId _mogQuotaUser (Just _mogPrettyPrint)
160− (Just AltJSON)
78+ = go _mogOfferId (Just AltJSON)
79+ adExchangeBuyerService
162− = clientBuild
81+ = buildClient
163 (Proxy :: Proxy MarketplaceOffersGetResource)
82 (Proxy :: Proxy MarketplaceOffersGetResource)
gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceOffers/Search.hs+10−92
@@ -33,13 +33,7 @@ module Network.Google.Resource.AdExchangeBuyer.MarketplaceOffers.Search
33 , MarketplaceOffersSearch'
33 , MarketplaceOffersSearch'
35 -- * Request Lenses
35 -- * Request Lenses
40 , mosPqlQuery
36 , mosPqlQuery
45import Network.Google.AdExchangeBuyer.Types
39import Network.Google.AdExchangeBuyer.Types
@@ -51,115 +45,39 @@ type MarketplaceOffersSearchResource =
51 "marketplaceOffers" :>
45 "marketplaceOffers" :>
52 "search" :>
46 "search" :>
53 QueryParam "pqlQuery" Text :>
47 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 :>
48+ QueryParam "alt" AltJSON :>
61− Get '[JSON] GetOffersResponse
49+ Get '[JSON] GetOffersResponse
63-- | Gets the requested negotiation.
51-- | Gets the requested negotiation.
65-- /See:/ 'marketplaceOffersSearch'' smart constructor.
53-- /See:/ 'marketplaceOffersSearch'' smart constructor.
66−data MarketplaceOffersSearch' = MarketplaceOffersSearch'
54+newtype MarketplaceOffersSearch' = MarketplaceOffersSearch'
67− { _mosQuotaUser :: !(Maybe Text)
68− , _mosPrettyPrint :: !Bool
69− , _mosUserIP :: !(Maybe Text)
70− , _mosKey :: !(Maybe AuthKey)
71− , _mosPqlQuery :: !(Maybe Text)
55+ { _mosPqlQuery :: Maybe Text
72− , _mosOAuthToken :: !(Maybe OAuthToken)
73− , _mosFields :: !(Maybe Text)
74 } deriving (Eq,Show,Data,Typeable,Generic)
56 } deriving (Eq,Show,Data,Typeable,Generic)
76-- | Creates a value of 'MarketplaceOffersSearch'' with the minimum fields required to make a request.
58-- | Creates a value of 'MarketplaceOffersSearch'' with the minimum fields required to make a request.
78-- Use one of the following lenses to modify other fields as desired:
60-- Use one of the following lenses to modify other fields as desired:
88-- * 'mosPqlQuery'
62-- * 'mosPqlQuery'
93marketplaceOffersSearch'
63marketplaceOffersSearch'
94 :: MarketplaceOffersSearch'
64 :: MarketplaceOffersSearch'
95marketplaceOffersSearch' =
65marketplaceOffersSearch' =
96 MarketplaceOffersSearch'
66 MarketplaceOffersSearch'
97− { _mosQuotaUser = Nothing
98− , _mosPrettyPrint = True
99− , _mosUserIP = Nothing
101− , _mosPqlQuery = Nothing
67+ { _mosPqlQuery = Nothing
102− , _mosOAuthToken = Nothing
103− , _mosFields = Nothing
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)
111− = lens _mosQuotaUser (\ s a -> s{_mosQuotaUser = a})
113−-- | Returns response with indentations and line breaks.
114−mosPrettyPrint :: Lens' MarketplaceOffersSearch' Bool
116− = lens _mosPrettyPrint
117− (\ s a -> s{_mosPrettyPrint = a})
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)
123− = lens _mosUserIP (\ s a -> s{_mosUserIP = a})
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
128−mosKey :: Lens' MarketplaceOffersSearch' (Maybe AuthKey)
129−mosKey = lens _mosKey (\ s a -> s{_mosKey = a})
131-- | The pql query used to query for offers.
70-- | The pql query used to query for offers.
132mosPqlQuery :: Lens' MarketplaceOffersSearch' (Maybe Text)
71mosPqlQuery :: Lens' MarketplaceOffersSearch' (Maybe Text)
133mosPqlQuery
72mosPqlQuery
134 = lens _mosPqlQuery (\ s a -> s{_mosPqlQuery = a})
73 = lens _mosPqlQuery (\ s a -> s{_mosPqlQuery = a})
136−-- | OAuth 2.0 token for the current user.
137−mosOAuthToken :: Lens' MarketplaceOffersSearch' (Maybe OAuthToken)
139− = lens _mosOAuthToken
140− (\ s a -> s{_mosOAuthToken = a})
142−-- | Selector specifying which fields to include in a partial response.
143−mosFields :: Lens' MarketplaceOffersSearch' (Maybe Text)
145− = lens _mosFields (\ s a -> s{_mosFields = a})
147−instance GoogleAuth MarketplaceOffersSearch' where
148− _AuthKey = mosKey . _Just
149− _AuthToken = mosOAuthToken . _Just
151instance GoogleRequest MarketplaceOffersSearch' where
75instance GoogleRequest MarketplaceOffersSearch' where
152 type Rs MarketplaceOffersSearch' = GetOffersResponse
76 type Rs MarketplaceOffersSearch' = GetOffersResponse
153− request = requestWith adExchangeBuyerRequest
154− requestWith rq MarketplaceOffersSearch'{..}
77+ requestClient MarketplaceOffersSearch'{..}
155− = go _mosPqlQuery _mosQuotaUser
156− (Just _mosPrettyPrint)
161− (Just AltJSON)
78+ = go _mosPqlQuery (Just AltJSON)
79+ adExchangeBuyerService
163− = clientBuild
81+ = buildClient
164 (Proxy :: Proxy MarketplaceOffersSearchResource)
82 (Proxy :: Proxy MarketplaceOffersSearchResource)
gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceOrders/Get.hs+16−92
@@ -33,13 +33,7 @@ module Network.Google.Resource.AdExchangeBuyer.MarketplaceOrders.Get
33 , MarketplaceOrdersGet'
33 , MarketplaceOrdersGet'
35 -- * Request Lenses
35 -- * Request Lenses
36− , mQuotaUser
36+ , mogOrderId
45import Network.Google.AdExchangeBuyer.Types
39import Network.Google.AdExchangeBuyer.Types
@@ -50,110 +44,40 @@ import Network.Google.Prelude
50type MarketplaceOrdersGetResource =
44type MarketplaceOrdersGetResource =
51 "marketplaceOrders" :>
45 "marketplaceOrders" :>
52 Capture "orderId" Text :>
46 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 :>
47+ QueryParam "alt" AltJSON :>
60− Get '[JSON] MarketplaceOrder
48+ Get '[JSON] MarketplaceOrder
62-- | Get an order given its id
50-- | Get an order given its id
64-- /See:/ 'marketplaceOrdersGet'' smart constructor.
52-- /See:/ 'marketplaceOrdersGet'' smart constructor.
65−data MarketplaceOrdersGet' = MarketplaceOrdersGet'
53+newtype MarketplaceOrdersGet' = MarketplaceOrdersGet'
66− { _mQuotaUser :: !(Maybe Text)
54+ { _mogOrderId :: Text
67− , _mPrettyPrint :: !Bool
68− , _mUserIP :: !(Maybe Text)
69− , _mKey :: !(Maybe AuthKey)
70− , _mOAuthToken :: !(Maybe OAuthToken)
72− , _mFields :: !(Maybe Text)
73 } deriving (Eq,Show,Data,Typeable,Generic)
55 } deriving (Eq,Show,Data,Typeable,Generic)
75-- | Creates a value of 'MarketplaceOrdersGet'' with the minimum fields required to make a request.
57-- | Creates a value of 'MarketplaceOrdersGet'' with the minimum fields required to make a request.
77-- Use one of the following lenses to modify other fields as desired:
59-- Use one of the following lenses to modify other fields as desired:
79−-- * 'mQuotaUser'
61+-- * 'mogOrderId'
92marketplaceOrdersGet'
62marketplaceOrdersGet'
93 :: Text -- ^ 'orderId'
63 :: Text -- ^ 'orderId'
94 -> MarketplaceOrdersGet'
64 -> MarketplaceOrdersGet'
95−marketplaceOrdersGet' pMOrderId_ =
65+marketplaceOrdersGet' pMogOrderId_ =
96 MarketplaceOrdersGet'
66 MarketplaceOrdersGet'
97− { _mQuotaUser = Nothing
67+ { _mogOrderId = pMogOrderId_
98− , _mPrettyPrint = True
101− , _mOAuthToken = Nothing
102− , _mOrderId = pMOrderId_
103− , _mFields = Nothing
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)
111− = lens _mQuotaUser (\ s a -> s{_mQuotaUser = a})
113−-- | Returns response with indentations and line breaks.
114−mPrettyPrint :: Lens' MarketplaceOrdersGet' Bool
116− = lens _mPrettyPrint (\ s a -> s{_mPrettyPrint = a})
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})
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
126−mKey :: Lens' MarketplaceOrdersGet' (Maybe AuthKey)
127−mKey = lens _mKey (\ s a -> s{_mKey = a})
129−-- | OAuth 2.0 token for the current user.
130−mOAuthToken :: Lens' MarketplaceOrdersGet' (Maybe OAuthToken)
132− = lens _mOAuthToken (\ s a -> s{_mOAuthToken = a})
134-- | Id of the order to retrieve.
70-- | Id of the order to retrieve.
135−mOrderId :: Lens' MarketplaceOrdersGet' Text
71+mogOrderId :: Lens' MarketplaceOrdersGet' Text
136−mOrderId = lens _mOrderId (\ s a -> s{_mOrderId = a})
72+mogOrderId
137−
73+ = lens _mogOrderId (\ s a -> s{_mogOrderId = a})
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})
142−instance GoogleAuth MarketplaceOrdersGet' where
143− _AuthKey = mKey . _Just
144− _AuthToken = mOAuthToken . _Just
146instance GoogleRequest MarketplaceOrdersGet' where
75instance GoogleRequest MarketplaceOrdersGet' where
147 type Rs MarketplaceOrdersGet' = MarketplaceOrder
76 type Rs MarketplaceOrdersGet' = MarketplaceOrder
148− request = requestWith adExchangeBuyerRequest
149− requestWith rq MarketplaceOrdersGet'{..}
77+ requestClient MarketplaceOrdersGet'{..}
150− = go _mOrderId _mQuotaUser (Just _mPrettyPrint)
155− (Just AltJSON)
78+ = go _mogOrderId (Just AltJSON)
79+ adExchangeBuyerService
157− = clientBuild
81+ = buildClient
158 (Proxy :: Proxy MarketplaceOrdersGetResource)
82 (Proxy :: Proxy MarketplaceOrdersGetResource)
gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceOrders/Insert.hs+11−92
@@ -33,13 +33,7 @@ module Network.Google.Resource.AdExchangeBuyer.MarketplaceOrders.Insert
33 , MarketplaceOrdersInsert'
33 , MarketplaceOrdersInsert'
35 -- * Request Lenses
35 -- * Request Lenses
39 , moiPayload
36 , moiPayload
45import Network.Google.AdExchangeBuyer.Types
39import Network.Google.AdExchangeBuyer.Types
@@ -50,117 +44,42 @@ import Network.Google.Prelude
50type MarketplaceOrdersInsertResource =
44type MarketplaceOrdersInsertResource =
51 "marketplaceOrders" :>
45 "marketplaceOrders" :>
52 "insert" :>
46 "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 :>
47+ QueryParam "alt" AltJSON :>
60− ReqBody '[JSON] CreateOrdersRequest :>
48+ ReqBody '[JSON] CreateOrdersRequest :>
61− Post '[JSON] CreateOrdersResponse
49+ Post '[JSON] CreateOrdersResponse
63-- | Create the given list of orders
51-- | Create the given list of orders
65-- /See:/ 'marketplaceOrdersInsert'' smart constructor.
53-- /See:/ 'marketplaceOrdersInsert'' smart constructor.
66−data MarketplaceOrdersInsert' = MarketplaceOrdersInsert'
54+newtype MarketplaceOrdersInsert' = MarketplaceOrdersInsert'
67− { _moiQuotaUser :: !(Maybe Text)
68− , _moiPrettyPrint :: !Bool
69− , _moiUserIP :: !(Maybe Text)
70− , _moiPayload :: !CreateOrdersRequest
55+ { _moiPayload :: CreateOrdersRequest
71− , _moiKey :: !(Maybe AuthKey)
72− , _moiOAuthToken :: !(Maybe OAuthToken)
73− , _moiFields :: !(Maybe Text)
74 } deriving (Eq,Show,Data,Typeable,Generic)
56 } deriving (Eq,Show,Data,Typeable,Generic)
76-- | Creates a value of 'MarketplaceOrdersInsert'' with the minimum fields required to make a request.
58-- | Creates a value of 'MarketplaceOrdersInsert'' with the minimum fields required to make a request.
78-- Use one of the following lenses to modify other fields as desired:
60-- Use one of the following lenses to modify other fields as desired:
86-- * 'moiPayload'
62-- * 'moiPayload'
93marketplaceOrdersInsert'
63marketplaceOrdersInsert'
94 :: CreateOrdersRequest -- ^ 'payload'
64 :: CreateOrdersRequest -- ^ 'payload'
95 -> MarketplaceOrdersInsert'
65 -> MarketplaceOrdersInsert'
96marketplaceOrdersInsert' pMoiPayload_ =
66marketplaceOrdersInsert' pMoiPayload_ =
97 MarketplaceOrdersInsert'
67 MarketplaceOrdersInsert'
98− { _moiQuotaUser = Nothing
99− , _moiPrettyPrint = True
100− , _moiUserIP = Nothing
101− , _moiPayload = pMoiPayload_
68+ { _moiPayload = pMoiPayload_
103− , _moiOAuthToken = Nothing
104− , _moiFields = Nothing
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)
112− = lens _moiQuotaUser (\ s a -> s{_moiQuotaUser = a})
114−-- | Returns response with indentations and line breaks.
115−moiPrettyPrint :: Lens' MarketplaceOrdersInsert' Bool
117− = lens _moiPrettyPrint
118− (\ s a -> s{_moiPrettyPrint = a})
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)
124− = lens _moiUserIP (\ s a -> s{_moiUserIP = a})
126-- | Multipart request metadata.
71-- | Multipart request metadata.
127moiPayload :: Lens' MarketplaceOrdersInsert' CreateOrdersRequest
72moiPayload :: Lens' MarketplaceOrdersInsert' CreateOrdersRequest
128moiPayload
73moiPayload
129 = lens _moiPayload (\ s a -> s{_moiPayload = a})
74 = lens _moiPayload (\ s a -> s{_moiPayload = a})
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
134−moiKey :: Lens' MarketplaceOrdersInsert' (Maybe AuthKey)
135−moiKey = lens _moiKey (\ s a -> s{_moiKey = a})
137−-- | OAuth 2.0 token for the current user.
138−moiOAuthToken :: Lens' MarketplaceOrdersInsert' (Maybe OAuthToken)
140− = lens _moiOAuthToken
141− (\ s a -> s{_moiOAuthToken = a})
143−-- | Selector specifying which fields to include in a partial response.
144−moiFields :: Lens' MarketplaceOrdersInsert' (Maybe Text)
146− = lens _moiFields (\ s a -> s{_moiFields = a})
148−instance GoogleAuth MarketplaceOrdersInsert' where
149− _AuthKey = moiKey . _Just
150− _AuthToken = moiOAuthToken . _Just
152instance GoogleRequest MarketplaceOrdersInsert' where
76instance GoogleRequest MarketplaceOrdersInsert' where
153 type Rs MarketplaceOrdersInsert' =
77 type Rs MarketplaceOrdersInsert' =
154 CreateOrdersResponse
78 CreateOrdersResponse
155− request = requestWith adExchangeBuyerRequest
156− requestWith rq MarketplaceOrdersInsert'{..}
79+ requestClient MarketplaceOrdersInsert'{..}
157− = go _moiQuotaUser (Just _moiPrettyPrint) _moiUserIP
161− (Just AltJSON)
80+ = go (Just AltJSON) _moiPayload
162− _moiPayload
81+ adExchangeBuyerService
164− = clientBuild
83+ = buildClient
165 (Proxy :: Proxy MarketplaceOrdersInsertResource)
84 (Proxy :: Proxy MarketplaceOrdersInsertResource)
gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceOrders/Patch.hs+9−91
@@ -33,16 +33,10 @@ module Network.Google.Resource.AdExchangeBuyer.MarketplaceOrders.Patch
33 , MarketplaceOrdersPatch'
33 , MarketplaceOrdersPatch'
35 -- * Request Lenses
35 -- * Request Lenses
37 , mopUpdateAction
36 , mopUpdateAction
40 , mopRevisionNumber
37 , mopRevisionNumber
41 , mopPayload
38 , mopPayload
44 , mopOrderId
39 , mopOrderId
48import Network.Google.AdExchangeBuyer.Types
42import Network.Google.AdExchangeBuyer.Types
@@ -57,55 +51,31 @@ type MarketplaceOrdersPatchResource =
57 Capture "updateAction"
51 Capture "updateAction"
58 MarketplaceOrdersPatchUpdateAction
52 MarketplaceOrdersPatchUpdateAction
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 :>
54+ QueryParam "alt" AltJSON :>
67− ReqBody '[JSON] MarketplaceOrder :>
55+ ReqBody '[JSON] MarketplaceOrder :>
68− Patch '[JSON] MarketplaceOrder
56+ Patch '[JSON] MarketplaceOrder
70-- | Update the given order. This method supports patch semantics.
58-- | Update the given order. This method supports patch semantics.
72-- /See:/ 'marketplaceOrdersPatch'' smart constructor.
60-- /See:/ 'marketplaceOrdersPatch'' smart constructor.
73data MarketplaceOrdersPatch' = MarketplaceOrdersPatch'
61data MarketplaceOrdersPatch' = MarketplaceOrdersPatch'
74− { _mopQuotaUser :: !(Maybe Text)
75− , _mopUpdateAction :: !MarketplaceOrdersPatchUpdateAction
62+ { _mopUpdateAction :: !MarketplaceOrdersPatchUpdateAction
76− , _mopPrettyPrint :: !Bool
77− , _mopUserIP :: !(Maybe Text)
78 , _mopRevisionNumber :: !Int64
63 , _mopRevisionNumber :: !Int64
79 , _mopPayload :: !MarketplaceOrder
64 , _mopPayload :: !MarketplaceOrder
80− , _mopKey :: !(Maybe AuthKey)
81− , _mopOAuthToken :: !(Maybe OAuthToken)
82 , _mopOrderId :: !Text
65 , _mopOrderId :: !Text
83− , _mopFields :: !(Maybe Text)
84 } deriving (Eq,Show,Data,Typeable,Generic)
66 } deriving (Eq,Show,Data,Typeable,Generic)
86-- | Creates a value of 'MarketplaceOrdersPatch'' with the minimum fields required to make a request.
68-- | Creates a value of 'MarketplaceOrdersPatch'' with the minimum fields required to make a request.
88-- Use one of the following lenses to modify other fields as desired:
70-- Use one of the following lenses to modify other fields as desired:
92-- * 'mopUpdateAction'
72-- * 'mopUpdateAction'
98-- * 'mopRevisionNumber'
74-- * 'mopRevisionNumber'
100-- * 'mopPayload'
76-- * 'mopPayload'
106-- * 'mopOrderId'
78-- * 'mopOrderId'
109marketplaceOrdersPatch'
79marketplaceOrdersPatch'
110 :: MarketplaceOrdersPatchUpdateAction -- ^ 'updateAction'
80 :: MarketplaceOrdersPatchUpdateAction -- ^ 'updateAction'
111 -> Int64 -- ^ 'revisionNumber'
81 -> Int64 -- ^ 'revisionNumber'
@@ -114,43 +84,18 @@ marketplaceOrdersPatch'
114 -> MarketplaceOrdersPatch'
84 -> MarketplaceOrdersPatch'
115marketplaceOrdersPatch' pMopUpdateAction_ pMopRevisionNumber_ pMopPayload_ pMopOrderId_ =
85marketplaceOrdersPatch' pMopUpdateAction_ pMopRevisionNumber_ pMopPayload_ pMopOrderId_ =
116 MarketplaceOrdersPatch'
86 MarketplaceOrdersPatch'
117− { _mopQuotaUser = Nothing
118− , _mopUpdateAction = pMopUpdateAction_
87+ { _mopUpdateAction = pMopUpdateAction_
119− , _mopPrettyPrint = True
120− , _mopUserIP = Nothing
121 , _mopRevisionNumber = pMopRevisionNumber_
88 , _mopRevisionNumber = pMopRevisionNumber_
122 , _mopPayload = pMopPayload_
89 , _mopPayload = pMopPayload_
124− , _mopOAuthToken = Nothing
125 , _mopOrderId = pMopOrderId_
90 , _mopOrderId = pMopOrderId_
126− , _mopFields = Nothing
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)
134− = lens _mopQuotaUser (\ s a -> s{_mopQuotaUser = a})
136-- | The proposed action to take on the order.
93-- | The proposed action to take on the order.
137mopUpdateAction :: Lens' MarketplaceOrdersPatch' MarketplaceOrdersPatchUpdateAction
94mopUpdateAction :: Lens' MarketplaceOrdersPatch' MarketplaceOrdersPatchUpdateAction
138mopUpdateAction
95mopUpdateAction
139 = lens _mopUpdateAction
96 = lens _mopUpdateAction
140 (\ s a -> s{_mopUpdateAction = a})
97 (\ s a -> s{_mopUpdateAction = a})
142−-- | Returns response with indentations and line breaks.
143−mopPrettyPrint :: Lens' MarketplaceOrdersPatch' Bool
145− = lens _mopPrettyPrint
146− (\ s a -> s{_mopPrettyPrint = a})
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)
152− = lens _mopUserIP (\ s a -> s{_mopUserIP = a})
154-- | The last known revision number to update. If the head revision in the
99-- | The last known revision number to update. If the head revision in the
155-- marketplace database has since changed, an error will be thrown. The
100-- marketplace database has since changed, an error will be thrown. The
156-- caller should then fetch the lastest order at head revision and retry
101-- caller should then fetch the lastest order at head revision and retry
@@ -165,46 +110,19 @@ mopPayload :: Lens' MarketplaceOrdersPatch' MarketplaceOrder
165mopPayload
110mopPayload
166 = lens _mopPayload (\ s a -> s{_mopPayload = a})
111 = lens _mopPayload (\ s a -> s{_mopPayload = a})
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
171−mopKey :: Lens' MarketplaceOrdersPatch' (Maybe AuthKey)
172−mopKey = lens _mopKey (\ s a -> s{_mopKey = a})
174−-- | OAuth 2.0 token for the current user.
175−mopOAuthToken :: Lens' MarketplaceOrdersPatch' (Maybe OAuthToken)
177− = lens _mopOAuthToken
178− (\ s a -> s{_mopOAuthToken = a})
180-- | The order id to update.
113-- | The order id to update.
181mopOrderId :: Lens' MarketplaceOrdersPatch' Text
114mopOrderId :: Lens' MarketplaceOrdersPatch' Text
182mopOrderId
115mopOrderId
183 = lens _mopOrderId (\ s a -> s{_mopOrderId = a})
116 = lens _mopOrderId (\ s a -> s{_mopOrderId = a})
185−-- | Selector specifying which fields to include in a partial response.
186−mopFields :: Lens' MarketplaceOrdersPatch' (Maybe Text)
188− = lens _mopFields (\ s a -> s{_mopFields = a})
190−instance GoogleAuth MarketplaceOrdersPatch' where
191− _AuthKey = mopKey . _Just
192− _AuthToken = mopOAuthToken . _Just
194instance GoogleRequest MarketplaceOrdersPatch' where
118instance GoogleRequest MarketplaceOrdersPatch' where
195 type Rs MarketplaceOrdersPatch' = MarketplaceOrder
119 type Rs MarketplaceOrdersPatch' = MarketplaceOrder
196− request = requestWith adExchangeBuyerRequest
197− requestWith rq MarketplaceOrdersPatch'{..}
120+ requestClient MarketplaceOrdersPatch'{..}
198 = go _mopOrderId _mopRevisionNumber _mopUpdateAction
121 = go _mopOrderId _mopRevisionNumber _mopUpdateAction
200− (Just _mopPrettyPrint)
205 (Just AltJSON)
122 (Just AltJSON)
206 _mopPayload
123 _mopPayload
124+ adExchangeBuyerService
208− = clientBuild
126+ = buildClient
209 (Proxy :: Proxy MarketplaceOrdersPatchResource)
127 (Proxy :: Proxy MarketplaceOrdersPatchResource)
gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceOrders/Search.hs+14−97
@@ -33,13 +33,7 @@ module Network.Google.Resource.AdExchangeBuyer.MarketplaceOrders.Search
33 , MarketplaceOrdersSearch'
33 , MarketplaceOrdersSearch'
35 -- * Request Lenses
35 -- * Request Lenses
36− , marQuotaUser
36+ , mPqlQuery
45import Network.Google.AdExchangeBuyer.Types
39import Network.Google.AdExchangeBuyer.Types
@@ -51,115 +45,38 @@ type MarketplaceOrdersSearchResource =
51 "marketplaceOrders" :>
45 "marketplaceOrders" :>
52 "search" :>
46 "search" :>
53 QueryParam "pqlQuery" Text :>
47 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 :>
48+ QueryParam "alt" AltJSON :>
61− Get '[JSON] GetOrdersResponse
49+ Get '[JSON] GetOrdersResponse
63-- | Search for orders using pql query
51-- | Search for orders using pql query
65-- /See:/ 'marketplaceOrdersSearch'' smart constructor.
53-- /See:/ 'marketplaceOrdersSearch'' smart constructor.
66−data MarketplaceOrdersSearch' = MarketplaceOrdersSearch'
54+newtype MarketplaceOrdersSearch' = MarketplaceOrdersSearch'
67− { _marQuotaUser :: !(Maybe Text)
55+ { _mPqlQuery :: 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)
74 } deriving (Eq,Show,Data,Typeable,Generic)
56 } deriving (Eq,Show,Data,Typeable,Generic)
76-- | Creates a value of 'MarketplaceOrdersSearch'' with the minimum fields required to make a request.
58-- | Creates a value of 'MarketplaceOrdersSearch'' with the minimum fields required to make a request.
78-- Use one of the following lenses to modify other fields as desired:
60-- Use one of the following lenses to modify other fields as desired:
80−-- * 'marQuotaUser'
62+-- * 'mPqlQuery'
93marketplaceOrdersSearch'
63marketplaceOrdersSearch'
94 :: MarketplaceOrdersSearch'
64 :: MarketplaceOrdersSearch'
95marketplaceOrdersSearch' =
65marketplaceOrdersSearch' =
96 MarketplaceOrdersSearch'
66 MarketplaceOrdersSearch'
97− { _marQuotaUser = Nothing
98− , _marPrettyPrint = True
99− , _marUserIP = Nothing
101− , _marPqlQuery = Nothing
102− , _marOAuthToken = Nothing
103− , _marFields = Nothing
67+ { _mPqlQuery = Nothing
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)
111− = lens _marQuotaUser (\ s a -> s{_marQuotaUser = a})
113−-- | Returns response with indentations and line breaks.
114−marPrettyPrint :: Lens' MarketplaceOrdersSearch' Bool
116− = lens _marPrettyPrint
117− (\ s a -> s{_marPrettyPrint = a})
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)
123− = lens _marUserIP (\ s a -> s{_marUserIP = a})
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
128−marKey :: Lens' MarketplaceOrdersSearch' (Maybe AuthKey)
129−marKey = lens _marKey (\ s a -> s{_marKey = a})
131-- | Query string to retrieve specific orders.
70-- | Query string to retrieve specific orders.
132−marPqlQuery :: Lens' MarketplaceOrdersSearch' (Maybe Text)
134− = lens _marPqlQuery (\ s a -> s{_marPqlQuery = a})
136−-- | OAuth 2.0 token for the current user.
137−marOAuthToken :: Lens' MarketplaceOrdersSearch' (Maybe OAuthToken)
139− = lens _marOAuthToken
140− (\ s a -> s{_marOAuthToken = a})
142−-- | Selector specifying which fields to include in a partial response.
143−marFields :: Lens' MarketplaceOrdersSearch' (Maybe Text)
71+mPqlQuery :: Lens' MarketplaceOrdersSearch' (Maybe Text)
144−marFields
72+mPqlQuery
145− = lens _marFields (\ s a -> s{_marFields = a})
73+ = lens _mPqlQuery (\ s a -> s{_mPqlQuery = a})
147−instance GoogleAuth MarketplaceOrdersSearch' where
148− _AuthKey = marKey . _Just
149− _AuthToken = marOAuthToken . _Just
151instance GoogleRequest MarketplaceOrdersSearch' where
75instance GoogleRequest MarketplaceOrdersSearch' where
152 type Rs MarketplaceOrdersSearch' = GetOrdersResponse
76 type Rs MarketplaceOrdersSearch' = GetOrdersResponse
153− request = requestWith adExchangeBuyerRequest
154− requestWith rq MarketplaceOrdersSearch'{..}
77+ requestClient MarketplaceOrdersSearch'{..}
155− = go _marPqlQuery _marQuotaUser
78+ = go _mPqlQuery (Just AltJSON) adExchangeBuyerService
156− (Just _marPrettyPrint)
163− = clientBuild
80+ = buildClient
164 (Proxy :: Proxy MarketplaceOrdersSearchResource)
81 (Proxy :: Proxy MarketplaceOrdersSearchResource)
gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceOrders/Update.hs+9−91
@@ -33,16 +33,10 @@ module Network.Google.Resource.AdExchangeBuyer.MarketplaceOrders.Update
33 , MarketplaceOrdersUpdate'
33 , MarketplaceOrdersUpdate'
35 -- * Request Lenses
35 -- * Request Lenses
37 , mouUpdateAction
36 , mouUpdateAction
40 , mouRevisionNumber
37 , mouRevisionNumber
41 , mouPayload
38 , mouPayload
44 , mouOrderId
39 , mouOrderId
48import Network.Google.AdExchangeBuyer.Types
42import Network.Google.AdExchangeBuyer.Types
@@ -57,55 +51,31 @@ type MarketplaceOrdersUpdateResource =
57 Capture "updateAction"
51 Capture "updateAction"
58 MarketplaceOrdersUpdateUpdateAction
52 MarketplaceOrdersUpdateUpdateAction
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 :>
54+ QueryParam "alt" AltJSON :>
67− ReqBody '[JSON] MarketplaceOrder :>
55+ ReqBody '[JSON] MarketplaceOrder :>
68− Put '[JSON] MarketplaceOrder
56+ Put '[JSON] MarketplaceOrder
70-- | Update the given order
58-- | Update the given order
72-- /See:/ 'marketplaceOrdersUpdate'' smart constructor.
60-- /See:/ 'marketplaceOrdersUpdate'' smart constructor.
73data MarketplaceOrdersUpdate' = MarketplaceOrdersUpdate'
61data MarketplaceOrdersUpdate' = MarketplaceOrdersUpdate'
74− { _mouQuotaUser :: !(Maybe Text)
75− , _mouUpdateAction :: !MarketplaceOrdersUpdateUpdateAction
62+ { _mouUpdateAction :: !MarketplaceOrdersUpdateUpdateAction
76− , _mouPrettyPrint :: !Bool
77− , _mouUserIP :: !(Maybe Text)
78 , _mouRevisionNumber :: !Int64
63 , _mouRevisionNumber :: !Int64
79 , _mouPayload :: !MarketplaceOrder
64 , _mouPayload :: !MarketplaceOrder
80− , _mouKey :: !(Maybe AuthKey)
81− , _mouOAuthToken :: !(Maybe OAuthToken)
82 , _mouOrderId :: !Text
65 , _mouOrderId :: !Text
83− , _mouFields :: !(Maybe Text)
84 } deriving (Eq,Show,Data,Typeable,Generic)
66 } deriving (Eq,Show,Data,Typeable,Generic)
86-- | Creates a value of 'MarketplaceOrdersUpdate'' with the minimum fields required to make a request.
68-- | Creates a value of 'MarketplaceOrdersUpdate'' with the minimum fields required to make a request.
88-- Use one of the following lenses to modify other fields as desired:
70-- Use one of the following lenses to modify other fields as desired:
92-- * 'mouUpdateAction'
72-- * 'mouUpdateAction'
98-- * 'mouRevisionNumber'
74-- * 'mouRevisionNumber'
100-- * 'mouPayload'
76-- * 'mouPayload'
106-- * 'mouOrderId'
78-- * 'mouOrderId'
109marketplaceOrdersUpdate'
79marketplaceOrdersUpdate'
110 :: MarketplaceOrdersUpdateUpdateAction -- ^ 'updateAction'
80 :: MarketplaceOrdersUpdateUpdateAction -- ^ 'updateAction'
111 -> Int64 -- ^ 'revisionNumber'
81 -> Int64 -- ^ 'revisionNumber'
@@ -114,43 +84,18 @@ marketplaceOrdersUpdate'
114 -> MarketplaceOrdersUpdate'
84 -> MarketplaceOrdersUpdate'
115marketplaceOrdersUpdate' pMouUpdateAction_ pMouRevisionNumber_ pMouPayload_ pMouOrderId_ =
85marketplaceOrdersUpdate' pMouUpdateAction_ pMouRevisionNumber_ pMouPayload_ pMouOrderId_ =
116 MarketplaceOrdersUpdate'
86 MarketplaceOrdersUpdate'
117− { _mouQuotaUser = Nothing
118− , _mouUpdateAction = pMouUpdateAction_
87+ { _mouUpdateAction = pMouUpdateAction_
119− , _mouPrettyPrint = True
120− , _mouUserIP = Nothing
121 , _mouRevisionNumber = pMouRevisionNumber_
88 , _mouRevisionNumber = pMouRevisionNumber_
122 , _mouPayload = pMouPayload_
89 , _mouPayload = pMouPayload_
124− , _mouOAuthToken = Nothing
125 , _mouOrderId = pMouOrderId_
90 , _mouOrderId = pMouOrderId_
126− , _mouFields = Nothing
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)
134− = lens _mouQuotaUser (\ s a -> s{_mouQuotaUser = a})
136-- | The proposed action to take on the order.
93-- | The proposed action to take on the order.
137mouUpdateAction :: Lens' MarketplaceOrdersUpdate' MarketplaceOrdersUpdateUpdateAction
94mouUpdateAction :: Lens' MarketplaceOrdersUpdate' MarketplaceOrdersUpdateUpdateAction
138mouUpdateAction
95mouUpdateAction
139 = lens _mouUpdateAction
96 = lens _mouUpdateAction
140 (\ s a -> s{_mouUpdateAction = a})
97 (\ s a -> s{_mouUpdateAction = a})
142−-- | Returns response with indentations and line breaks.
143−mouPrettyPrint :: Lens' MarketplaceOrdersUpdate' Bool
145− = lens _mouPrettyPrint
146− (\ s a -> s{_mouPrettyPrint = a})
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)
152− = lens _mouUserIP (\ s a -> s{_mouUserIP = a})
154-- | The last known revision number to update. If the head revision in the
99-- | The last known revision number to update. If the head revision in the
155-- marketplace database has since changed, an error will be thrown. The
100-- marketplace database has since changed, an error will be thrown. The
156-- caller should then fetch the lastest order at head revision and retry
101-- caller should then fetch the lastest order at head revision and retry
@@ -165,46 +110,19 @@ mouPayload :: Lens' MarketplaceOrdersUpdate' MarketplaceOrder
165mouPayload
110mouPayload
166 = lens _mouPayload (\ s a -> s{_mouPayload = a})
111 = lens _mouPayload (\ s a -> s{_mouPayload = a})
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
171−mouKey :: Lens' MarketplaceOrdersUpdate' (Maybe AuthKey)
172−mouKey = lens _mouKey (\ s a -> s{_mouKey = a})
174−-- | OAuth 2.0 token for the current user.
175−mouOAuthToken :: Lens' MarketplaceOrdersUpdate' (Maybe OAuthToken)
177− = lens _mouOAuthToken
178− (\ s a -> s{_mouOAuthToken = a})
180-- | The order id to update.
113-- | The order id to update.
181mouOrderId :: Lens' MarketplaceOrdersUpdate' Text
114mouOrderId :: Lens' MarketplaceOrdersUpdate' Text
182mouOrderId
115mouOrderId
183 = lens _mouOrderId (\ s a -> s{_mouOrderId = a})
116 = lens _mouOrderId (\ s a -> s{_mouOrderId = a})
185−-- | Selector specifying which fields to include in a partial response.
186−mouFields :: Lens' MarketplaceOrdersUpdate' (Maybe Text)
188− = lens _mouFields (\ s a -> s{_mouFields = a})
190−instance GoogleAuth MarketplaceOrdersUpdate' where
191− _AuthKey = mouKey . _Just
192− _AuthToken = mouOAuthToken . _Just
194instance GoogleRequest MarketplaceOrdersUpdate' where
118instance GoogleRequest MarketplaceOrdersUpdate' where
195 type Rs MarketplaceOrdersUpdate' = MarketplaceOrder
119 type Rs MarketplaceOrdersUpdate' = MarketplaceOrder
196− request = requestWith adExchangeBuyerRequest
197− requestWith rq MarketplaceOrdersUpdate'{..}
120+ requestClient MarketplaceOrdersUpdate'{..}
198 = go _mouOrderId _mouRevisionNumber _mouUpdateAction
121 = go _mouOrderId _mouRevisionNumber _mouUpdateAction
200− (Just _mouPrettyPrint)
205 (Just AltJSON)
122 (Just AltJSON)
206 _mouPayload
123 _mouPayload
124+ adExchangeBuyerService
208− = clientBuild
126+ = buildClient
209 (Proxy :: Proxy MarketplaceOrdersUpdateResource)
127 (Proxy :: Proxy MarketplaceOrdersUpdateResource)
gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/NegotiationRounds/Insert.hs+10−93
@@ -33,14 +33,8 @@ module Network.Google.Resource.AdExchangeBuyer.NegotiationRounds.Insert
33 , NegotiationRoundsInsert'
33 , NegotiationRoundsInsert'
35 -- * Request Lenses
35 -- * Request Lenses
39 , nriPayload
36 , nriPayload
42 , nriNegotiationId
37 , nriNegotiationId
46import Network.Google.AdExchangeBuyer.Types
40import Network.Google.AdExchangeBuyer.Types
@@ -52,129 +46,52 @@ type NegotiationRoundsInsertResource =
52 "negotiations" :>
46 "negotiations" :>
53 Capture "negotiationId" Int64 :>
47 Capture "negotiationId" Int64 :>
54 "negotiationrounds" :>
48 "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 :>
49+ QueryParam "alt" AltJSON :>
62− ReqBody '[JSON] NegotiationRoundDTO :>
50+ ReqBody '[JSON] NegotiationRoundDTO :>
63− Post '[JSON] NegotiationRoundDTO
51+ Post '[JSON] NegotiationRoundDTO
65-- | Adds the requested negotiationRound to the requested negotiation.
53-- | Adds the requested negotiationRound to the requested negotiation.
67-- /See:/ 'negotiationRoundsInsert'' smart constructor.
55-- /See:/ 'negotiationRoundsInsert'' smart constructor.
68data NegotiationRoundsInsert' = NegotiationRoundsInsert'
56data NegotiationRoundsInsert' = NegotiationRoundsInsert'
69− { _nriQuotaUser :: !(Maybe Text)
70− , _nriPrettyPrint :: !Bool
71− , _nriUserIP :: !(Maybe Text)
72− , _nriPayload :: !NegotiationRoundDTO
57+ { _nriPayload :: !NegotiationRoundDTO
73− , _nriKey :: !(Maybe AuthKey)
74− , _nriOAuthToken :: !(Maybe OAuthToken)
75 , _nriNegotiationId :: !Int64
58 , _nriNegotiationId :: !Int64
76− , _nriFields :: !(Maybe Text)
77 } deriving (Eq,Show,Data,Typeable,Generic)
59 } deriving (Eq,Show,Data,Typeable,Generic)
79-- | Creates a value of 'NegotiationRoundsInsert'' with the minimum fields required to make a request.
61-- | Creates a value of 'NegotiationRoundsInsert'' with the minimum fields required to make a request.
81-- Use one of the following lenses to modify other fields as desired:
63-- Use one of the following lenses to modify other fields as desired:
89-- * 'nriPayload'
65-- * 'nriPayload'
95-- * 'nriNegotiationId'
67-- * 'nriNegotiationId'
98negotiationRoundsInsert'
68negotiationRoundsInsert'
99 :: NegotiationRoundDTO -- ^ 'payload'
69 :: NegotiationRoundDTO -- ^ 'payload'
100 -> Int64 -- ^ 'negotiationId'
70 -> Int64 -- ^ 'negotiationId'
101 -> NegotiationRoundsInsert'
71 -> NegotiationRoundsInsert'
102negotiationRoundsInsert' pNriPayload_ pNriNegotiationId_ =
72negotiationRoundsInsert' pNriPayload_ pNriNegotiationId_ =
103 NegotiationRoundsInsert'
73 NegotiationRoundsInsert'
104− { _nriQuotaUser = Nothing
105− , _nriPrettyPrint = True
106− , _nriUserIP = Nothing
107− , _nriPayload = pNriPayload_
74+ { _nriPayload = pNriPayload_
109− , _nriOAuthToken = Nothing
110 , _nriNegotiationId = pNriNegotiationId_
75 , _nriNegotiationId = pNriNegotiationId_
111− , _nriFields = Nothing
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)
119− = lens _nriQuotaUser (\ s a -> s{_nriQuotaUser = a})
121−-- | Returns response with indentations and line breaks.
122−nriPrettyPrint :: Lens' NegotiationRoundsInsert' Bool
124− = lens _nriPrettyPrint
125− (\ s a -> s{_nriPrettyPrint = a})
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)
131− = lens _nriUserIP (\ s a -> s{_nriUserIP = a})
133-- | Multipart request metadata.
78-- | Multipart request metadata.
134nriPayload :: Lens' NegotiationRoundsInsert' NegotiationRoundDTO
79nriPayload :: Lens' NegotiationRoundsInsert' NegotiationRoundDTO
135nriPayload
80nriPayload
136 = lens _nriPayload (\ s a -> s{_nriPayload = a})
81 = lens _nriPayload (\ s a -> s{_nriPayload = a})
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
141−nriKey :: Lens' NegotiationRoundsInsert' (Maybe AuthKey)
142−nriKey = lens _nriKey (\ s a -> s{_nriKey = a})
144−-- | OAuth 2.0 token for the current user.
145−nriOAuthToken :: Lens' NegotiationRoundsInsert' (Maybe OAuthToken)
147− = lens _nriOAuthToken
148− (\ s a -> s{_nriOAuthToken = a})
150nriNegotiationId :: Lens' NegotiationRoundsInsert' Int64
83nriNegotiationId :: Lens' NegotiationRoundsInsert' Int64
151nriNegotiationId
84nriNegotiationId
152 = lens _nriNegotiationId
85 = lens _nriNegotiationId
153 (\ s a -> s{_nriNegotiationId = a})
86 (\ s a -> s{_nriNegotiationId = a})
155−-- | Selector specifying which fields to include in a partial response.
156−nriFields :: Lens' NegotiationRoundsInsert' (Maybe Text)
158− = lens _nriFields (\ s a -> s{_nriFields = a})
160−instance GoogleAuth NegotiationRoundsInsert' where
161− _AuthKey = nriKey . _Just
162− _AuthToken = nriOAuthToken . _Just
164instance GoogleRequest NegotiationRoundsInsert' where
88instance GoogleRequest NegotiationRoundsInsert' where
165 type Rs NegotiationRoundsInsert' =
89 type Rs NegotiationRoundsInsert' =
166 NegotiationRoundDTO
90 NegotiationRoundDTO
167− request = requestWith adExchangeBuyerRequest
168− requestWith rq NegotiationRoundsInsert'{..}
91+ requestClient NegotiationRoundsInsert'{..}
169− = go _nriNegotiationId _nriQuotaUser
92+ = go _nriNegotiationId (Just AltJSON) _nriPayload
170− (Just _nriPrettyPrint)
93+ adExchangeBuyerService
178− = clientBuild
95+ = buildClient
179 (Proxy :: Proxy NegotiationRoundsInsertResource)
96 (Proxy :: Proxy NegotiationRoundsInsertResource)
gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Negotiations/Get.hs+10−90
@@ -33,14 +33,8 @@ module Network.Google.Resource.AdExchangeBuyer.Negotiations.Get
33 , NegotiationsGet'
33 , NegotiationsGet'
35 -- * Request Lenses
35 -- * Request Lenses
39 , ngPayload
36 , ngPayload
42 , ngNegotiationId
37 , ngNegotiationId
46import Network.Google.AdExchangeBuyer.Types
40import Network.Google.AdExchangeBuyer.Types
@@ -51,125 +45,51 @@ import Network.Google.Prelude
51type NegotiationsGetResource =
45type NegotiationsGetResource =
52 "negotiations" :>
46 "negotiations" :>
53 Capture "negotiationId" Int64 :>
47 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 :>
48+ QueryParam "alt" AltJSON :>
61− ReqBody '[JSON] GetNegotiationByIdRequest :>
49+ ReqBody '[JSON] GetNegotiationByIdRequest :>
62− Get '[JSON] NegotiationDTO
50+ Get '[JSON] NegotiationDTO
64-- | Gets the requested negotiation.
52-- | Gets the requested negotiation.
66-- /See:/ 'negotiationsGet'' smart constructor.
54-- /See:/ 'negotiationsGet'' smart constructor.
67data NegotiationsGet' = NegotiationsGet'
55data NegotiationsGet' = NegotiationsGet'
68− { _ngQuotaUser :: !(Maybe Text)
69− , _ngPrettyPrint :: !Bool
70− , _ngUserIP :: !(Maybe Text)
71− , _ngPayload :: !GetNegotiationByIdRequest
56+ { _ngPayload :: !GetNegotiationByIdRequest
72− , _ngKey :: !(Maybe AuthKey)
73− , _ngOAuthToken :: !(Maybe OAuthToken)
74 , _ngNegotiationId :: !Int64
57 , _ngNegotiationId :: !Int64
75− , _ngFields :: !(Maybe Text)
76 } deriving (Eq,Show,Data,Typeable,Generic)
58 } deriving (Eq,Show,Data,Typeable,Generic)
78-- | Creates a value of 'NegotiationsGet'' with the minimum fields required to make a request.
60-- | Creates a value of 'NegotiationsGet'' with the minimum fields required to make a request.
80-- Use one of the following lenses to modify other fields as desired:
62-- Use one of the following lenses to modify other fields as desired:
88-- * 'ngPayload'
64-- * 'ngPayload'
94-- * 'ngNegotiationId'
66-- * 'ngNegotiationId'
97negotiationsGet'
67negotiationsGet'
98 :: GetNegotiationByIdRequest -- ^ 'payload'
68 :: GetNegotiationByIdRequest -- ^ 'payload'
99 -> Int64 -- ^ 'negotiationId'
69 -> Int64 -- ^ 'negotiationId'
100 -> NegotiationsGet'
70 -> NegotiationsGet'
101negotiationsGet' pNgPayload_ pNgNegotiationId_ =
71negotiationsGet' pNgPayload_ pNgNegotiationId_ =
102 NegotiationsGet'
72 NegotiationsGet'
103− { _ngQuotaUser = Nothing
104− , _ngPrettyPrint = True
105− , _ngUserIP = Nothing
106− , _ngPayload = pNgPayload_
73+ { _ngPayload = pNgPayload_
108− , _ngOAuthToken = Nothing
109 , _ngNegotiationId = pNgNegotiationId_
74 , _ngNegotiationId = pNgNegotiationId_
110− , _ngFields = Nothing
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)
118− = lens _ngQuotaUser (\ s a -> s{_ngQuotaUser = a})
120−-- | Returns response with indentations and line breaks.
121−ngPrettyPrint :: Lens' NegotiationsGet' Bool
123− = lens _ngPrettyPrint
124− (\ s a -> s{_ngPrettyPrint = a})
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})
131-- | Multipart request metadata.
77-- | Multipart request metadata.
132ngPayload :: Lens' NegotiationsGet' GetNegotiationByIdRequest
78ngPayload :: Lens' NegotiationsGet' GetNegotiationByIdRequest
134 = lens _ngPayload (\ s a -> s{_ngPayload = a})
80 = lens _ngPayload (\ s a -> s{_ngPayload = a})
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
139−ngKey :: Lens' NegotiationsGet' (Maybe AuthKey)
140−ngKey = lens _ngKey (\ s a -> s{_ngKey = a})
142−-- | OAuth 2.0 token for the current user.
143−ngOAuthToken :: Lens' NegotiationsGet' (Maybe OAuthToken)
145− = lens _ngOAuthToken (\ s a -> s{_ngOAuthToken = a})
147ngNegotiationId :: Lens' NegotiationsGet' Int64
82ngNegotiationId :: Lens' NegotiationsGet' Int64
148ngNegotiationId
83ngNegotiationId
149 = lens _ngNegotiationId
84 = lens _ngNegotiationId
150 (\ s a -> s{_ngNegotiationId = a})
85 (\ s a -> s{_ngNegotiationId = a})
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})
156−instance GoogleAuth NegotiationsGet' where
157− _AuthKey = ngKey . _Just
158− _AuthToken = ngOAuthToken . _Just
160instance GoogleRequest NegotiationsGet' where
87instance GoogleRequest NegotiationsGet' where
161 type Rs NegotiationsGet' = NegotiationDTO
88 type Rs NegotiationsGet' = NegotiationDTO
162− request = requestWith adExchangeBuyerRequest
163− requestWith rq NegotiationsGet'{..}
89+ requestClient NegotiationsGet'{..}
164− = go _ngNegotiationId _ngQuotaUser
90+ = go _ngNegotiationId (Just AltJSON) _ngPayload
165− (Just _ngPrettyPrint)
91+ adExchangeBuyerService
173− = clientBuild
93+ = buildClient
174 (Proxy :: Proxy NegotiationsGetResource)
94 (Proxy :: Proxy NegotiationsGetResource)
gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Negotiations/Insert.hs+10−89
@@ -33,13 +33,7 @@ module Network.Google.Resource.AdExchangeBuyer.Negotiations.Insert
33 , NegotiationsInsert'
33 , NegotiationsInsert'
35 -- * Request Lenses
35 -- * Request Lenses
39 , niPayload
36 , niPayload
45import Network.Google.AdExchangeBuyer.Types
39import Network.Google.AdExchangeBuyer.Types
@@ -49,113 +43,40 @@ import Network.Google.Prelude
49-- 'NegotiationsInsert'' request conforms to.
43-- 'NegotiationsInsert'' request conforms to.
50type NegotiationsInsertResource =
44type NegotiationsInsertResource =
51 "negotiations" :>
45 "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 :>
46+ QueryParam "alt" AltJSON :>
59− ReqBody '[JSON] NegotiationDTO :>
47+ ReqBody '[JSON] NegotiationDTO :>
60− Post '[JSON] NegotiationDTO
48+ Post '[JSON] NegotiationDTO
62-- | Creates or updates the requested negotiation.
50-- | Creates or updates the requested negotiation.
64-- /See:/ 'negotiationsInsert'' smart constructor.
52-- /See:/ 'negotiationsInsert'' smart constructor.
65−data NegotiationsInsert' = NegotiationsInsert'
53+newtype NegotiationsInsert' = NegotiationsInsert'
66− { _niQuotaUser :: !(Maybe Text)
67− , _niPrettyPrint :: !Bool
68− , _niUserIP :: !(Maybe Text)
69− , _niPayload :: !NegotiationDTO
54+ { _niPayload :: NegotiationDTO
70− , _niKey :: !(Maybe AuthKey)
71− , _niOAuthToken :: !(Maybe OAuthToken)
72− , _niFields :: !(Maybe Text)
73 } deriving (Eq,Show,Data,Typeable,Generic)
55 } deriving (Eq,Show,Data,Typeable,Generic)
75-- | Creates a value of 'NegotiationsInsert'' with the minimum fields required to make a request.
57-- | Creates a value of 'NegotiationsInsert'' with the minimum fields required to make a request.
77-- Use one of the following lenses to modify other fields as desired:
59-- Use one of the following lenses to modify other fields as desired:
85-- * 'niPayload'
61-- * 'niPayload'
92negotiationsInsert'
62negotiationsInsert'
93 :: NegotiationDTO -- ^ 'payload'
63 :: NegotiationDTO -- ^ 'payload'
94 -> NegotiationsInsert'
64 -> NegotiationsInsert'
95negotiationsInsert' pNiPayload_ =
65negotiationsInsert' pNiPayload_ =
96 NegotiationsInsert'
66 NegotiationsInsert'
97− { _niQuotaUser = Nothing
98− , _niPrettyPrint = True
99− , _niUserIP = Nothing
100− , _niPayload = pNiPayload_
67+ { _niPayload = pNiPayload_
102− , _niOAuthToken = Nothing
103− , _niFields = Nothing
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)
111− = lens _niQuotaUser (\ s a -> s{_niQuotaUser = a})
113−-- | Returns response with indentations and line breaks.
114−niPrettyPrint :: Lens' NegotiationsInsert' Bool
116− = lens _niPrettyPrint
117− (\ s a -> s{_niPrettyPrint = a})
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})
124-- | Multipart request metadata.
70-- | Multipart request metadata.
125niPayload :: Lens' NegotiationsInsert' NegotiationDTO
71niPayload :: Lens' NegotiationsInsert' NegotiationDTO
127 = lens _niPayload (\ s a -> s{_niPayload = a})
73 = lens _niPayload (\ s a -> s{_niPayload = a})
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
132−niKey :: Lens' NegotiationsInsert' (Maybe AuthKey)
133−niKey = lens _niKey (\ s a -> s{_niKey = a})
135−-- | OAuth 2.0 token for the current user.
136−niOAuthToken :: Lens' NegotiationsInsert' (Maybe OAuthToken)
138− = lens _niOAuthToken (\ s a -> s{_niOAuthToken = a})
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})
144−instance GoogleAuth NegotiationsInsert' where
145− _AuthKey = niKey . _Just
146− _AuthToken = niOAuthToken . _Just
148instance GoogleRequest NegotiationsInsert' where
75instance GoogleRequest NegotiationsInsert' where
149 type Rs NegotiationsInsert' = NegotiationDTO
76 type Rs NegotiationsInsert' = NegotiationDTO
150− request = requestWith adExchangeBuyerRequest
151− requestWith rq NegotiationsInsert'{..}
77+ requestClient NegotiationsInsert'{..}
152− = go _niQuotaUser (Just _niPrettyPrint) _niUserIP
78+ = go (Just AltJSON) _niPayload adExchangeBuyerService
159− = clientBuild
80+ = buildClient
160 (Proxy :: Proxy NegotiationsInsertResource)
81 (Proxy :: Proxy NegotiationsInsertResource)
gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Negotiations/List.hs+10−89
@@ -33,13 +33,7 @@ module Network.Google.Resource.AdExchangeBuyer.Negotiations.List
33 , NegotiationsList'
33 , NegotiationsList'
35 -- * Request Lenses
35 -- * Request Lenses
39 , nlPayload
36 , nlPayload
45import Network.Google.AdExchangeBuyer.Types
39import Network.Google.AdExchangeBuyer.Types
@@ -49,113 +43,40 @@ import Network.Google.Prelude
49-- 'NegotiationsList'' request conforms to.
43-- 'NegotiationsList'' request conforms to.
50type NegotiationsListResource =
44type NegotiationsListResource =
51 "negotiations" :>
45 "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 :>
46+ QueryParam "alt" AltJSON :>
59− ReqBody '[JSON] GetNegotiationsRequest :>
47+ ReqBody '[JSON] GetNegotiationsRequest :>
60− Get '[JSON] GetNegotiationsResponse
48+ Get '[JSON] GetNegotiationsResponse
62-- | Lists all negotiations the authenticated user has access to.
50-- | Lists all negotiations the authenticated user has access to.
64-- /See:/ 'negotiationsList'' smart constructor.
52-- /See:/ 'negotiationsList'' smart constructor.
65−data NegotiationsList' = NegotiationsList'
53+newtype NegotiationsList' = NegotiationsList'
66− { _nlQuotaUser :: !(Maybe Text)
67− , _nlPrettyPrint :: !Bool
68− , _nlUserIP :: !(Maybe Text)
69− , _nlPayload :: !GetNegotiationsRequest
54+ { _nlPayload :: GetNegotiationsRequest
70− , _nlKey :: !(Maybe AuthKey)
71− , _nlOAuthToken :: !(Maybe OAuthToken)
72− , _nlFields :: !(Maybe Text)
73 } deriving (Eq,Show,Data,Typeable,Generic)
55 } deriving (Eq,Show,Data,Typeable,Generic)
75-- | Creates a value of 'NegotiationsList'' with the minimum fields required to make a request.
57-- | Creates a value of 'NegotiationsList'' with the minimum fields required to make a request.
77-- Use one of the following lenses to modify other fields as desired:
59-- Use one of the following lenses to modify other fields as desired:
85-- * 'nlPayload'
61-- * 'nlPayload'
92negotiationsList'
62negotiationsList'
93 :: GetNegotiationsRequest -- ^ 'payload'
63 :: GetNegotiationsRequest -- ^ 'payload'
94 -> NegotiationsList'
64 -> NegotiationsList'
95negotiationsList' pNlPayload_ =
65negotiationsList' pNlPayload_ =
96 NegotiationsList'
66 NegotiationsList'
97− { _nlQuotaUser = Nothing
98− , _nlPrettyPrint = True
99− , _nlUserIP = Nothing
100− , _nlPayload = pNlPayload_
67+ { _nlPayload = pNlPayload_
102− , _nlOAuthToken = Nothing
103− , _nlFields = Nothing
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)
111− = lens _nlQuotaUser (\ s a -> s{_nlQuotaUser = a})
113−-- | Returns response with indentations and line breaks.
114−nlPrettyPrint :: Lens' NegotiationsList' Bool
116− = lens _nlPrettyPrint
117− (\ s a -> s{_nlPrettyPrint = a})
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})
124-- | Multipart request metadata.
70-- | Multipart request metadata.
125nlPayload :: Lens' NegotiationsList' GetNegotiationsRequest
71nlPayload :: Lens' NegotiationsList' GetNegotiationsRequest
127 = lens _nlPayload (\ s a -> s{_nlPayload = a})
73 = lens _nlPayload (\ s a -> s{_nlPayload = a})
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
132−nlKey :: Lens' NegotiationsList' (Maybe AuthKey)
133−nlKey = lens _nlKey (\ s a -> s{_nlKey = a})
135−-- | OAuth 2.0 token for the current user.
136−nlOAuthToken :: Lens' NegotiationsList' (Maybe OAuthToken)
138− = lens _nlOAuthToken (\ s a -> s{_nlOAuthToken = a})
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})
144−instance GoogleAuth NegotiationsList' where
145− _AuthKey = nlKey . _Just
146− _AuthToken = nlOAuthToken . _Just
148instance GoogleRequest NegotiationsList' where
75instance GoogleRequest NegotiationsList' where
149 type Rs NegotiationsList' = GetNegotiationsResponse
76 type Rs NegotiationsList' = GetNegotiationsResponse
150− request = requestWith adExchangeBuyerRequest
151− requestWith rq NegotiationsList'{..}
77+ requestClient NegotiationsList'{..}
152− = go _nlQuotaUser (Just _nlPrettyPrint) _nlUserIP
78+ = go (Just AltJSON) _nlPayload adExchangeBuyerService
159− = clientBuild
80+ = buildClient
160 (Proxy :: Proxy NegotiationsListResource)
81 (Proxy :: Proxy NegotiationsListResource)
gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Offers/Get.hs+8−86
@@ -33,13 +33,7 @@ module Network.Google.Resource.AdExchangeBuyer.Offers.Get
33 , OffersGet'
33 , OffersGet'
35 -- * Request Lenses
35 -- * Request Lenses
40 , ogOfferId
36 , ogOfferId
45import Network.Google.AdExchangeBuyer.Types
39import Network.Google.AdExchangeBuyer.Types
@@ -50,108 +44,36 @@ import Network.Google.Prelude
50type OffersGetResource =
44type OffersGetResource =
51 "offers" :>
45 "offers" :>
52 Capture "offerId" Int64 :>
46 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
61-- | Gets the requested offer.
49-- | Gets the requested offer.
63-- /See:/ 'offersGet'' smart constructor.
51-- /See:/ 'offersGet'' smart constructor.
64−data OffersGet' = OffersGet'
52+newtype OffersGet' = OffersGet'
65− { _ogQuotaUser :: !(Maybe Text)
66− , _ogPrettyPrint :: !Bool
67− , _ogUserIP :: !(Maybe Text)
68− , _ogKey :: !(Maybe AuthKey)
69− , _ogOfferId :: !Int64
53+ { _ogOfferId :: Int64
70− , _ogOAuthToken :: !(Maybe OAuthToken)
71− , _ogFields :: !(Maybe Text)
72 } deriving (Eq,Show,Data,Typeable,Generic)
54 } deriving (Eq,Show,Data,Typeable,Generic)
74-- | Creates a value of 'OffersGet'' with the minimum fields required to make a request.
56-- | Creates a value of 'OffersGet'' with the minimum fields required to make a request.
76-- Use one of the following lenses to modify other fields as desired:
58-- Use one of the following lenses to modify other fields as desired:
86-- * 'ogOfferId'
60-- * 'ogOfferId'
92 :: Int64 -- ^ 'offerId'
62 :: Int64 -- ^ 'offerId'
93 -> OffersGet'
63 -> OffersGet'
94offersGet' pOgOfferId_ =
64offersGet' pOgOfferId_ =
95 OffersGet'
65 OffersGet'
96− { _ogQuotaUser = Nothing
97− , _ogPrettyPrint = True
98− , _ogUserIP = Nothing
100− , _ogOfferId = pOgOfferId_
66+ { _ogOfferId = pOgOfferId_
101− , _ogOAuthToken = Nothing
102− , _ogFields = Nothing
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)
110− = lens _ogQuotaUser (\ s a -> s{_ogQuotaUser = a})
112−-- | Returns response with indentations and line breaks.
113−ogPrettyPrint :: Lens' OffersGet' Bool
115− = lens _ogPrettyPrint
116− (\ s a -> s{_ogPrettyPrint = a})
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})
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
126−ogKey :: Lens' OffersGet' (Maybe AuthKey)
127−ogKey = lens _ogKey (\ s a -> s{_ogKey = a})
129ogOfferId :: Lens' OffersGet' Int64
69ogOfferId :: Lens' OffersGet' Int64
131 = lens _ogOfferId (\ s a -> s{_ogOfferId = a})
71 = lens _ogOfferId (\ s a -> s{_ogOfferId = a})
133−-- | OAuth 2.0 token for the current user.
134−ogOAuthToken :: Lens' OffersGet' (Maybe OAuthToken)
136− = lens _ogOAuthToken (\ s a -> s{_ogOAuthToken = a})
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})
142−instance GoogleAuth OffersGet' where
143− _AuthKey = ogKey . _Just
144− _AuthToken = ogOAuthToken . _Just
146instance GoogleRequest OffersGet' where
73instance GoogleRequest OffersGet' where
147 type Rs OffersGet' = OfferDTO
74 type Rs OffersGet' = OfferDTO
148− request = requestWith adExchangeBuyerRequest
149− requestWith rq OffersGet'{..}
75+ requestClient OffersGet'{..}
150− = go _ogOfferId _ogQuotaUser (Just _ogPrettyPrint)
76+ = go _ogOfferId (Just AltJSON) adExchangeBuyerService
157− = clientBuild (Proxy :: Proxy OffersGetResource) rq
78+ = buildClient (Proxy :: Proxy OffersGetResource)
gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Offers/Insert.hs+9−88
@@ -33,13 +33,7 @@ module Network.Google.Resource.AdExchangeBuyer.Offers.Insert
33 , OffersInsert'
33 , OffersInsert'
35 -- * Request Lenses
35 -- * Request Lenses
39 , oiPayload
36 , oiPayload
45import Network.Google.AdExchangeBuyer.Types
39import Network.Google.AdExchangeBuyer.Types
@@ -49,111 +43,38 @@ import Network.Google.Prelude
49-- 'OffersInsert'' request conforms to.
43-- 'OffersInsert'' request conforms to.
50type OffersInsertResource =
44type OffersInsertResource =
51 "offers" :>
45 "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 :>
46+ QueryParam "alt" AltJSON :>
59− ReqBody '[JSON] OfferDTO :> Post '[JSON] OfferDTO
47+ ReqBody '[JSON] OfferDTO :> Post '[JSON] OfferDTO
61-- | Creates or updates the requested offer.
49-- | Creates or updates the requested offer.
63-- /See:/ 'offersInsert'' smart constructor.
51-- /See:/ 'offersInsert'' smart constructor.
64−data OffersInsert' = OffersInsert'
52+newtype OffersInsert' = OffersInsert'
65− { _oiQuotaUser :: !(Maybe Text)
66− , _oiPrettyPrint :: !Bool
67− , _oiUserIP :: !(Maybe Text)
68− , _oiPayload :: !OfferDTO
53+ { _oiPayload :: OfferDTO
69− , _oiKey :: !(Maybe AuthKey)
70− , _oiOAuthToken :: !(Maybe OAuthToken)
71− , _oiFields :: !(Maybe Text)
72 } deriving (Eq,Show,Data,Typeable,Generic)
54 } deriving (Eq,Show,Data,Typeable,Generic)
74-- | Creates a value of 'OffersInsert'' with the minimum fields required to make a request.
56-- | Creates a value of 'OffersInsert'' with the minimum fields required to make a request.
76-- Use one of the following lenses to modify other fields as desired:
58-- Use one of the following lenses to modify other fields as desired:
84-- * 'oiPayload'
60-- * 'oiPayload'
91offersInsert'
61offersInsert'
92 :: OfferDTO -- ^ 'payload'
62 :: OfferDTO -- ^ 'payload'
93 -> OffersInsert'
63 -> OffersInsert'
94offersInsert' pOiPayload_ =
64offersInsert' pOiPayload_ =
95 OffersInsert'
65 OffersInsert'
96− { _oiQuotaUser = Nothing
97− , _oiPrettyPrint = True
98− , _oiUserIP = Nothing
99− , _oiPayload = pOiPayload_
66+ { _oiPayload = pOiPayload_
101− , _oiOAuthToken = Nothing
102− , _oiFields = Nothing
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)
110− = lens _oiQuotaUser (\ s a -> s{_oiQuotaUser = a})
112−-- | Returns response with indentations and line breaks.
113−oiPrettyPrint :: Lens' OffersInsert' Bool
115− = lens _oiPrettyPrint
116− (\ s a -> s{_oiPrettyPrint = a})
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})
123-- | Multipart request metadata.
69-- | Multipart request metadata.
124oiPayload :: Lens' OffersInsert' OfferDTO
70oiPayload :: Lens' OffersInsert' OfferDTO
126 = lens _oiPayload (\ s a -> s{_oiPayload = a})
72 = lens _oiPayload (\ s a -> s{_oiPayload = a})
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
131−oiKey :: Lens' OffersInsert' (Maybe AuthKey)
132−oiKey = lens _oiKey (\ s a -> s{_oiKey = a})
134−-- | OAuth 2.0 token for the current user.
135−oiOAuthToken :: Lens' OffersInsert' (Maybe OAuthToken)
137− = lens _oiOAuthToken (\ s a -> s{_oiOAuthToken = a})
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})
143−instance GoogleAuth OffersInsert' where
144− _AuthKey = oiKey . _Just
145− _AuthToken = oiOAuthToken . _Just
147instance GoogleRequest OffersInsert' where
74instance GoogleRequest OffersInsert' where
148 type Rs OffersInsert' = OfferDTO
75 type Rs OffersInsert' = OfferDTO
149− request = requestWith adExchangeBuyerRequest
150− requestWith rq OffersInsert'{..}
76+ requestClient OffersInsert'{..}
151− = go _oiQuotaUser (Just _oiPrettyPrint) _oiUserIP
77+ = go (Just AltJSON) _oiPayload adExchangeBuyerService
158− = clientBuild (Proxy :: Proxy OffersInsertResource)
79+ = buildClient (Proxy :: Proxy OffersInsertResource)
gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Offers/List.hs+10−88
@@ -33,13 +33,7 @@ module Network.Google.Resource.AdExchangeBuyer.Offers.List
33 , OffersList'
33 , OffersList'
35 -- * Request Lenses
35 -- * Request Lenses
39 , olPayload
36 , olPayload
45import Network.Google.AdExchangeBuyer.Types
39import Network.Google.AdExchangeBuyer.Types
@@ -49,111 +43,39 @@ import Network.Google.Prelude
49-- 'OffersList'' request conforms to.
43-- 'OffersList'' request conforms to.
50type OffersListResource =
44type OffersListResource =
51 "offers" :>
45 "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 :>
46+ QueryParam "alt" AltJSON :>
59− ReqBody '[JSON] ListOffersRequest :>
47+ ReqBody '[JSON] ListOffersRequest :>
60− Get '[JSON] ListOffersResponse
48+ Get '[JSON] ListOffersResponse
62-- | Lists all offers the authenticated user has access to.
50-- | Lists all offers the authenticated user has access to.
64-- /See:/ 'offersList'' smart constructor.
52-- /See:/ 'offersList'' smart constructor.
65−data OffersList' = OffersList'
53+newtype OffersList' = OffersList'
66− { _olQuotaUser :: !(Maybe Text)
67− , _olPrettyPrint :: !Bool
68− , _olUserIP :: !(Maybe Text)
69− , _olPayload :: !ListOffersRequest
54+ { _olPayload :: ListOffersRequest
70− , _olKey :: !(Maybe AuthKey)
71− , _olOAuthToken :: !(Maybe OAuthToken)
72− , _olFields :: !(Maybe Text)
73 } deriving (Eq,Show,Data,Typeable,Generic)
55 } deriving (Eq,Show,Data,Typeable,Generic)
75-- | Creates a value of 'OffersList'' with the minimum fields required to make a request.
57-- | Creates a value of 'OffersList'' with the minimum fields required to make a request.
77-- Use one of the following lenses to modify other fields as desired:
59-- Use one of the following lenses to modify other fields as desired:
85-- * 'olPayload'
61-- * 'olPayload'
92offersList'
62offersList'
93 :: ListOffersRequest -- ^ 'payload'
63 :: ListOffersRequest -- ^ 'payload'
94 -> OffersList'
64 -> OffersList'
95offersList' pOlPayload_ =
65offersList' pOlPayload_ =
96 OffersList'
66 OffersList'
97− { _olQuotaUser = Nothing
98− , _olPrettyPrint = True
99− , _olUserIP = Nothing
100− , _olPayload = pOlPayload_
67+ { _olPayload = pOlPayload_
102− , _olOAuthToken = Nothing
103− , _olFields = Nothing
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)
111− = lens _olQuotaUser (\ s a -> s{_olQuotaUser = a})
113−-- | Returns response with indentations and line breaks.
114−olPrettyPrint :: Lens' OffersList' Bool
116− = lens _olPrettyPrint
117− (\ s a -> s{_olPrettyPrint = a})
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})
124-- | Multipart request metadata.
70-- | Multipart request metadata.
125olPayload :: Lens' OffersList' ListOffersRequest
71olPayload :: Lens' OffersList' ListOffersRequest
127 = lens _olPayload (\ s a -> s{_olPayload = a})
73 = lens _olPayload (\ s a -> s{_olPayload = a})
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
132−olKey :: Lens' OffersList' (Maybe AuthKey)
133−olKey = lens _olKey (\ s a -> s{_olKey = a})
135−-- | OAuth 2.0 token for the current user.
136−olOAuthToken :: Lens' OffersList' (Maybe OAuthToken)
138− = lens _olOAuthToken (\ s a -> s{_olOAuthToken = a})
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})
144−instance GoogleAuth OffersList' where
145− _AuthKey = olKey . _Just
146− _AuthToken = olOAuthToken . _Just
148instance GoogleRequest OffersList' where
75instance GoogleRequest OffersList' where
149 type Rs OffersList' = ListOffersResponse
76 type Rs OffersList' = ListOffersResponse
150− request = requestWith adExchangeBuyerRequest
151− requestWith rq OffersList'{..}
77+ requestClient OffersList'{..}
152− = go _olQuotaUser (Just _olPrettyPrint) _olUserIP
78+ = go (Just AltJSON) _olPayload adExchangeBuyerService
159− = clientBuild (Proxy :: Proxy OffersListResource) rq
80+ = buildClient (Proxy :: Proxy OffersListResource)
gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/PerformanceReport/List.hs+8−90
@@ -33,17 +33,11 @@ module Network.Google.Resource.AdExchangeBuyer.PerformanceReport.List
33 , PerformanceReportList'
33 , PerformanceReportList'
35 -- * Request Lenses
35 -- * Request Lenses
39 , prlAccountId
36 , prlAccountId
41 , prlPageToken
37 , prlPageToken
43 , prlEndDateTime
38 , prlEndDateTime
44 , prlMaxResults
39 , prlMaxResults
45 , prlStartDateTime
40 , prlStartDateTime
49import Network.Google.AdExchangeBuyer.Types
43import Network.Google.AdExchangeBuyer.Types
@@ -58,57 +52,33 @@ type PerformanceReportListResource =
58 QueryParam "startDateTime" Text :>
52 QueryParam "startDateTime" Text :>
59 QueryParam "pageToken" Text :>
53 QueryParam "pageToken" Text :>
60 QueryParam "maxResults" Word32 :>
54 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 :>
55+ QueryParam "alt" AltJSON :>
68− Get '[JSON] PerformanceReportList
56+ Get '[JSON] PerformanceReportList
70-- | Retrieves the authenticated user\'s list of performance metrics.
58-- | Retrieves the authenticated user\'s list of performance metrics.
72-- /See:/ 'performanceReportList'' smart constructor.
60-- /See:/ 'performanceReportList'' smart constructor.
73data PerformanceReportList' = PerformanceReportList'
61data PerformanceReportList' = PerformanceReportList'
74− { _prlQuotaUser :: !(Maybe Text)
75− , _prlPrettyPrint :: !Bool
76− , _prlUserIP :: !(Maybe Text)
77− , _prlAccountId :: !Int64
62+ { _prlAccountId :: !Int64
78− , _prlKey :: !(Maybe AuthKey)
79 , _prlPageToken :: !(Maybe Text)
63 , _prlPageToken :: !(Maybe Text)
80− , _prlOAuthToken :: !(Maybe OAuthToken)
81 , _prlEndDateTime :: !Text
64 , _prlEndDateTime :: !Text
82 , _prlMaxResults :: !(Maybe Word32)
65 , _prlMaxResults :: !(Maybe Word32)
83 , _prlStartDateTime :: !Text
66 , _prlStartDateTime :: !Text
84− , _prlFields :: !(Maybe Text)
85 } deriving (Eq,Show,Data,Typeable,Generic)
67 } deriving (Eq,Show,Data,Typeable,Generic)
87-- | Creates a value of 'PerformanceReportList'' with the minimum fields required to make a request.
69-- | Creates a value of 'PerformanceReportList'' with the minimum fields required to make a request.
89-- Use one of the following lenses to modify other fields as desired:
71-- Use one of the following lenses to modify other fields as desired:
97-- * 'prlAccountId'
73-- * 'prlAccountId'
101-- * 'prlPageToken'
75-- * 'prlPageToken'
105-- * 'prlEndDateTime'
77-- * 'prlEndDateTime'
107-- * 'prlMaxResults'
79-- * 'prlMaxResults'
109-- * 'prlStartDateTime'
81-- * 'prlStartDateTime'
112performanceReportList'
82performanceReportList'
113 :: Int64 -- ^ 'accountId'
83 :: Int64 -- ^ 'accountId'
114 -> Text -- ^ 'endDateTime'
84 -> Text -- ^ 'endDateTime'
@@ -116,49 +86,18 @@ performanceReportList'
116 -> PerformanceReportList'
86 -> PerformanceReportList'
117performanceReportList' pPrlAccountId_ pPrlEndDateTime_ pPrlStartDateTime_ =
87performanceReportList' pPrlAccountId_ pPrlEndDateTime_ pPrlStartDateTime_ =
118 PerformanceReportList'
88 PerformanceReportList'
119− { _prlQuotaUser = Nothing
120− , _prlPrettyPrint = True
121− , _prlUserIP = Nothing
122− , _prlAccountId = pPrlAccountId_
89+ { _prlAccountId = pPrlAccountId_
124 , _prlPageToken = Nothing
90 , _prlPageToken = Nothing
125− , _prlOAuthToken = Nothing
126 , _prlEndDateTime = pPrlEndDateTime_
91 , _prlEndDateTime = pPrlEndDateTime_
127 , _prlMaxResults = Nothing
92 , _prlMaxResults = Nothing
128 , _prlStartDateTime = pPrlStartDateTime_
93 , _prlStartDateTime = pPrlStartDateTime_
129− , _prlFields = Nothing
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)
137− = lens _prlQuotaUser (\ s a -> s{_prlQuotaUser = a})
139−-- | Returns response with indentations and line breaks.
140−prlPrettyPrint :: Lens' PerformanceReportList' Bool
142− = lens _prlPrettyPrint
143− (\ s a -> s{_prlPrettyPrint = a})
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)
149− = lens _prlUserIP (\ s a -> s{_prlUserIP = a})
151-- | The account id to get the reports.
96-- | The account id to get the reports.
152prlAccountId :: Lens' PerformanceReportList' Int64
97prlAccountId :: Lens' PerformanceReportList' Int64
153prlAccountId
98prlAccountId
154 = lens _prlAccountId (\ s a -> s{_prlAccountId = a})
99 = lens _prlAccountId (\ s a -> s{_prlAccountId = a})
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
159−prlKey :: Lens' PerformanceReportList' (Maybe AuthKey)
160−prlKey = lens _prlKey (\ s a -> s{_prlKey = a})
162-- | A continuation token, used to page through performance reports. To
101-- | A continuation token, used to page through performance reports. To
163-- retrieve the next page, set this parameter to the value of
102-- retrieve the next page, set this parameter to the value of
164-- \"nextPageToken\" from the previous response. Optional.
103-- \"nextPageToken\" from the previous response. Optional.
@@ -166,12 +105,6 @@ prlPageToken :: Lens' PerformanceReportList' (Maybe Text)
166prlPageToken
105prlPageToken
167 = lens _prlPageToken (\ s a -> s{_prlPageToken = a})
106 = lens _prlPageToken (\ s a -> s{_prlPageToken = a})
169−-- | OAuth 2.0 token for the current user.
170−prlOAuthToken :: Lens' PerformanceReportList' (Maybe OAuthToken)
172− = lens _prlOAuthToken
173− (\ s a -> s{_prlOAuthToken = a})
175-- | The end time of the report in ISO 8601 timestamp format using UTC.
108-- | The end time of the report in ISO 8601 timestamp format using UTC.
176prlEndDateTime :: Lens' PerformanceReportList' Text
109prlEndDateTime :: Lens' PerformanceReportList' Text
177prlEndDateTime
110prlEndDateTime
@@ -191,32 +124,17 @@ prlStartDateTime
191 = lens _prlStartDateTime
124 = lens _prlStartDateTime
192 (\ s a -> s{_prlStartDateTime = a})
125 (\ s a -> s{_prlStartDateTime = a})
194−-- | Selector specifying which fields to include in a partial response.
195−prlFields :: Lens' PerformanceReportList' (Maybe Text)
197− = lens _prlFields (\ s a -> s{_prlFields = a})
199−instance GoogleAuth PerformanceReportList' where
200− _AuthKey = prlKey . _Just
201− _AuthToken = prlOAuthToken . _Just
203instance GoogleRequest PerformanceReportList' where
127instance GoogleRequest PerformanceReportList' where
204 type Rs PerformanceReportList' =
128 type Rs PerformanceReportList' =
205 PerformanceReportList
129 PerformanceReportList
206− request = requestWith adExchangeBuyerRequest
207− requestWith rq PerformanceReportList'{..}
130+ requestClient PerformanceReportList'{..}
208 = go (Just _prlAccountId) (Just _prlEndDateTime)
131 = go (Just _prlAccountId) (Just _prlEndDateTime)
209 (Just _prlStartDateTime)
132 (Just _prlStartDateTime)
210 _prlPageToken
133 _prlPageToken
211 _prlMaxResults
134 _prlMaxResults
213− (Just _prlPrettyPrint)
218 (Just AltJSON)
135 (Just AltJSON)
136+ adExchangeBuyerService
220− = clientBuild
138+ = buildClient
221 (Proxy :: Proxy PerformanceReportListResource)
139 (Proxy :: Proxy PerformanceReportListResource)
gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/PretargetingConfig/Delete.hs+9−91
@@ -33,14 +33,8 @@ module Network.Google.Resource.AdExchangeBuyer.PretargetingConfig.Delete
33 , PretargetingConfigDelete'
33 , PretargetingConfigDelete'
35 -- * Request Lenses
35 -- * Request Lenses
39 , pcdAccountId
36 , pcdAccountId
41 , pcdConfigId
37 , pcdConfigId
46import Network.Google.AdExchangeBuyer.Types
40import Network.Google.AdExchangeBuyer.Types
@@ -52,126 +46,50 @@ type PretargetingConfigDeleteResource =
52 "pretargetingconfigs" :>
46 "pretargetingconfigs" :>
53 Capture "accountId" Int64 :>
47 Capture "accountId" Int64 :>
54 Capture "configId" Int64 :>
48 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] ()
63-- | Deletes an existing pretargeting config.
51-- | Deletes an existing pretargeting config.
65-- /See:/ 'pretargetingConfigDelete'' smart constructor.
53-- /See:/ 'pretargetingConfigDelete'' smart constructor.
66data PretargetingConfigDelete' = PretargetingConfigDelete'
54data PretargetingConfigDelete' = PretargetingConfigDelete'
67− { _pcdQuotaUser :: !(Maybe Text)
68− , _pcdPrettyPrint :: !Bool
69− , _pcdUserIP :: !(Maybe Text)
70− , _pcdAccountId :: !Int64
55+ { _pcdAccountId :: !Int64
71− , _pcdKey :: !(Maybe AuthKey)
72− , _pcdConfigId :: !Int64
56+ , _pcdConfigId :: !Int64
73− , _pcdOAuthToken :: !(Maybe OAuthToken)
74− , _pcdFields :: !(Maybe Text)
75 } deriving (Eq,Show,Data,Typeable,Generic)
57 } deriving (Eq,Show,Data,Typeable,Generic)
77-- | Creates a value of 'PretargetingConfigDelete'' with the minimum fields required to make a request.
59-- | Creates a value of 'PretargetingConfigDelete'' with the minimum fields required to make a request.
79-- Use one of the following lenses to modify other fields as desired:
61-- Use one of the following lenses to modify other fields as desired:
87-- * 'pcdAccountId'
63-- * 'pcdAccountId'
91-- * 'pcdConfigId'
65-- * 'pcdConfigId'
96pretargetingConfigDelete'
66pretargetingConfigDelete'
97 :: Int64 -- ^ 'accountId'
67 :: Int64 -- ^ 'accountId'
98 -> Int64 -- ^ 'configId'
68 -> Int64 -- ^ 'configId'
99 -> PretargetingConfigDelete'
69 -> PretargetingConfigDelete'
100pretargetingConfigDelete' pPcdAccountId_ pPcdConfigId_ =
70pretargetingConfigDelete' pPcdAccountId_ pPcdConfigId_ =
101 PretargetingConfigDelete'
71 PretargetingConfigDelete'
102− { _pcdQuotaUser = Nothing
103− , _pcdPrettyPrint = True
104− , _pcdUserIP = Nothing
105− , _pcdAccountId = pPcdAccountId_
72+ { _pcdAccountId = pPcdAccountId_
107 , _pcdConfigId = pPcdConfigId_
73 , _pcdConfigId = pPcdConfigId_
108− , _pcdOAuthToken = Nothing
109− , _pcdFields = Nothing
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)
117− = lens _pcdQuotaUser (\ s a -> s{_pcdQuotaUser = a})
119−-- | Returns response with indentations and line breaks.
120−pcdPrettyPrint :: Lens' PretargetingConfigDelete' Bool
122− = lens _pcdPrettyPrint
123− (\ s a -> s{_pcdPrettyPrint = a})
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)
129− = lens _pcdUserIP (\ s a -> s{_pcdUserIP = a})
131-- | The account id to delete the pretargeting config for.
76-- | The account id to delete the pretargeting config for.
132pcdAccountId :: Lens' PretargetingConfigDelete' Int64
77pcdAccountId :: Lens' PretargetingConfigDelete' Int64
133pcdAccountId
78pcdAccountId
134 = lens _pcdAccountId (\ s a -> s{_pcdAccountId = a})
79 = lens _pcdAccountId (\ s a -> s{_pcdAccountId = a})
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
139−pcdKey :: Lens' PretargetingConfigDelete' (Maybe AuthKey)
140−pcdKey = lens _pcdKey (\ s a -> s{_pcdKey = a})
142-- | The specific id of the configuration to delete.
81-- | The specific id of the configuration to delete.
143pcdConfigId :: Lens' PretargetingConfigDelete' Int64
82pcdConfigId :: Lens' PretargetingConfigDelete' Int64
144pcdConfigId
83pcdConfigId
145 = lens _pcdConfigId (\ s a -> s{_pcdConfigId = a})
84 = lens _pcdConfigId (\ s a -> s{_pcdConfigId = a})
147−-- | OAuth 2.0 token for the current user.
148−pcdOAuthToken :: Lens' PretargetingConfigDelete' (Maybe OAuthToken)
150− = lens _pcdOAuthToken
151− (\ s a -> s{_pcdOAuthToken = a})
153−-- | Selector specifying which fields to include in a partial response.
154−pcdFields :: Lens' PretargetingConfigDelete' (Maybe Text)
156− = lens _pcdFields (\ s a -> s{_pcdFields = a})
158−instance GoogleAuth PretargetingConfigDelete' where
159− _AuthKey = pcdKey . _Just
160− _AuthToken = pcdOAuthToken . _Just
162instance GoogleRequest PretargetingConfigDelete'
86instance GoogleRequest PretargetingConfigDelete'
164 type Rs PretargetingConfigDelete' = ()
88 type Rs PretargetingConfigDelete' = ()
165− request = requestWith adExchangeBuyerRequest
166− requestWith rq PretargetingConfigDelete'{..}
89+ requestClient PretargetingConfigDelete'{..}
167− = go _pcdAccountId _pcdConfigId _pcdQuotaUser
90+ = go _pcdAccountId _pcdConfigId (Just AltJSON)
168− (Just _pcdPrettyPrint)
91+ adExchangeBuyerService
175− = clientBuild
93+ = buildClient
176 (Proxy :: Proxy PretargetingConfigDeleteResource)
94 (Proxy :: Proxy PretargetingConfigDeleteResource)
gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/PretargetingConfig/Get.hs+10−92
@@ -33,14 +33,8 @@ module Network.Google.Resource.AdExchangeBuyer.PretargetingConfig.Get
33 , PretargetingConfigGet'
33 , PretargetingConfigGet'
35 -- * Request Lenses
35 -- * Request Lenses
39 , pcgAccountId
36 , pcgAccountId
41 , pcgConfigId
37 , pcgConfigId
46import Network.Google.AdExchangeBuyer.Types
40import Network.Google.AdExchangeBuyer.Types
@@ -52,126 +46,50 @@ type PretargetingConfigGetResource =
52 "pretargetingconfigs" :>
46 "pretargetingconfigs" :>
53 Capture "accountId" Int64 :>
47 Capture "accountId" Int64 :>
54 Capture "configId" Int64 :>
48 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 :>
49+ QueryParam "alt" AltJSON :>
62− Get '[JSON] PretargetingConfig
50+ Get '[JSON] PretargetingConfig
64-- | Gets a specific pretargeting configuration
52-- | Gets a specific pretargeting configuration
66-- /See:/ 'pretargetingConfigGet'' smart constructor.
54-- /See:/ 'pretargetingConfigGet'' smart constructor.
67data PretargetingConfigGet' = PretargetingConfigGet'
55data PretargetingConfigGet' = PretargetingConfigGet'
68− { _pcgQuotaUser :: !(Maybe Text)
69− , _pcgPrettyPrint :: !Bool
70− , _pcgUserIP :: !(Maybe Text)
71− , _pcgAccountId :: !Int64
56+ { _pcgAccountId :: !Int64
72− , _pcgKey :: !(Maybe AuthKey)
73− , _pcgConfigId :: !Int64
57+ , _pcgConfigId :: !Int64
74− , _pcgOAuthToken :: !(Maybe OAuthToken)
75− , _pcgFields :: !(Maybe Text)
76 } deriving (Eq,Show,Data,Typeable,Generic)
58 } deriving (Eq,Show,Data,Typeable,Generic)
78-- | Creates a value of 'PretargetingConfigGet'' with the minimum fields required to make a request.
60-- | Creates a value of 'PretargetingConfigGet'' with the minimum fields required to make a request.
80-- Use one of the following lenses to modify other fields as desired:
62-- Use one of the following lenses to modify other fields as desired:
88-- * 'pcgAccountId'
64-- * 'pcgAccountId'
92-- * 'pcgConfigId'
66-- * 'pcgConfigId'
97pretargetingConfigGet'
67pretargetingConfigGet'
98 :: Int64 -- ^ 'accountId'
68 :: Int64 -- ^ 'accountId'
99 -> Int64 -- ^ 'configId'
69 -> Int64 -- ^ 'configId'
100 -> PretargetingConfigGet'
70 -> PretargetingConfigGet'
101pretargetingConfigGet' pPcgAccountId_ pPcgConfigId_ =
71pretargetingConfigGet' pPcgAccountId_ pPcgConfigId_ =
102 PretargetingConfigGet'
72 PretargetingConfigGet'
103− { _pcgQuotaUser = Nothing
104− , _pcgPrettyPrint = True
105− , _pcgUserIP = Nothing
106− , _pcgAccountId = pPcgAccountId_
73+ { _pcgAccountId = pPcgAccountId_
108 , _pcgConfigId = pPcgConfigId_
74 , _pcgConfigId = pPcgConfigId_
109− , _pcgOAuthToken = Nothing
110− , _pcgFields = Nothing
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)
118− = lens _pcgQuotaUser (\ s a -> s{_pcgQuotaUser = a})
120−-- | Returns response with indentations and line breaks.
121−pcgPrettyPrint :: Lens' PretargetingConfigGet' Bool
123− = lens _pcgPrettyPrint
124− (\ s a -> s{_pcgPrettyPrint = a})
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)
130− = lens _pcgUserIP (\ s a -> s{_pcgUserIP = a})
132-- | The account id to get the pretargeting config for.
77-- | The account id to get the pretargeting config for.
133pcgAccountId :: Lens' PretargetingConfigGet' Int64
78pcgAccountId :: Lens' PretargetingConfigGet' Int64
134pcgAccountId
79pcgAccountId
135 = lens _pcgAccountId (\ s a -> s{_pcgAccountId = a})
80 = lens _pcgAccountId (\ s a -> s{_pcgAccountId = a})
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
140−pcgKey :: Lens' PretargetingConfigGet' (Maybe AuthKey)
141−pcgKey = lens _pcgKey (\ s a -> s{_pcgKey = a})
143-- | The specific id of the configuration to retrieve.
82-- | The specific id of the configuration to retrieve.
144pcgConfigId :: Lens' PretargetingConfigGet' Int64
83pcgConfigId :: Lens' PretargetingConfigGet' Int64
145pcgConfigId
84pcgConfigId
146 = lens _pcgConfigId (\ s a -> s{_pcgConfigId = a})
85 = lens _pcgConfigId (\ s a -> s{_pcgConfigId = a})
148−-- | OAuth 2.0 token for the current user.
149−pcgOAuthToken :: Lens' PretargetingConfigGet' (Maybe OAuthToken)
151− = lens _pcgOAuthToken
152− (\ s a -> s{_pcgOAuthToken = a})
154−-- | Selector specifying which fields to include in a partial response.
155−pcgFields :: Lens' PretargetingConfigGet' (Maybe Text)
157− = lens _pcgFields (\ s a -> s{_pcgFields = a})
159−instance GoogleAuth PretargetingConfigGet' where
160− _AuthKey = pcgKey . _Just
161− _AuthToken = pcgOAuthToken . _Just
163instance GoogleRequest PretargetingConfigGet' where
87instance GoogleRequest PretargetingConfigGet' where
164 type Rs PretargetingConfigGet' = PretargetingConfig
88 type Rs PretargetingConfigGet' = PretargetingConfig
165− request = requestWith adExchangeBuyerRequest
166− requestWith rq PretargetingConfigGet'{..}
89+ requestClient PretargetingConfigGet'{..}
167− = go _pcgAccountId _pcgConfigId _pcgQuotaUser
90+ = go _pcgAccountId _pcgConfigId (Just AltJSON)
168− (Just _pcgPrettyPrint)
91+ adExchangeBuyerService
175− = clientBuild
93+ = buildClient
176 (Proxy :: Proxy PretargetingConfigGetResource)
94 (Proxy :: Proxy PretargetingConfigGetResource)
gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/PretargetingConfig/Insert.hs+11−94
@@ -33,14 +33,8 @@ module Network.Google.Resource.AdExchangeBuyer.PretargetingConfig.Insert
33 , PretargetingConfigInsert'
33 , PretargetingConfigInsert'
35 -- * Request Lenses
35 -- * Request Lenses
39 , pciPayload
36 , pciPayload
40 , pciAccountId
37 , pciAccountId
46import Network.Google.AdExchangeBuyer.Types
40import Network.Google.AdExchangeBuyer.Types
@@ -51,84 +45,35 @@ import Network.Google.Prelude
51type PretargetingConfigInsertResource =
45type PretargetingConfigInsertResource =
52 "pretargetingconfigs" :>
46 "pretargetingconfigs" :>
53 Capture "accountId" Int64 :>
47 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 :>
48+ QueryParam "alt" AltJSON :>
61− ReqBody '[JSON] PretargetingConfig :>
49+ ReqBody '[JSON] PretargetingConfig :>
62− Post '[JSON] PretargetingConfig
50+ Post '[JSON] PretargetingConfig
64-- | Inserts a new pretargeting configuration.
52-- | Inserts a new pretargeting configuration.
66-- /See:/ 'pretargetingConfigInsert'' smart constructor.
54-- /See:/ 'pretargetingConfigInsert'' smart constructor.
67data PretargetingConfigInsert' = PretargetingConfigInsert'
55data PretargetingConfigInsert' = PretargetingConfigInsert'
68− { _pciQuotaUser :: !(Maybe Text)
69− , _pciPrettyPrint :: !Bool
70− , _pciUserIP :: !(Maybe Text)
71− , _pciPayload :: !PretargetingConfig
56+ { _pciPayload :: !PretargetingConfig
72− , _pciAccountId :: !Int64
57+ , _pciAccountId :: !Int64
73− , _pciKey :: !(Maybe AuthKey)
74− , _pciOAuthToken :: !(Maybe OAuthToken)
75− , _pciFields :: !(Maybe Text)
76 } deriving (Eq,Show,Data,Typeable,Generic)
58 } deriving (Eq,Show,Data,Typeable,Generic)
78-- | Creates a value of 'PretargetingConfigInsert'' with the minimum fields required to make a request.
60-- | Creates a value of 'PretargetingConfigInsert'' with the minimum fields required to make a request.
80-- Use one of the following lenses to modify other fields as desired:
62-- Use one of the following lenses to modify other fields as desired:
88-- * 'pciPayload'
64-- * 'pciPayload'
90-- * 'pciAccountId'
66-- * 'pciAccountId'
97pretargetingConfigInsert'
67pretargetingConfigInsert'
98 :: PretargetingConfig -- ^ 'payload'
68 :: PretargetingConfig -- ^ 'payload'
99 -> Int64 -- ^ 'accountId'
69 -> Int64 -- ^ 'accountId'
100 -> PretargetingConfigInsert'
70 -> PretargetingConfigInsert'
101pretargetingConfigInsert' pPciPayload_ pPciAccountId_ =
71pretargetingConfigInsert' pPciPayload_ pPciAccountId_ =
102 PretargetingConfigInsert'
72 PretargetingConfigInsert'
103− { _pciQuotaUser = Nothing
104− , _pciPrettyPrint = True
105− , _pciUserIP = Nothing
106− , _pciPayload = pPciPayload_
73+ { _pciPayload = pPciPayload_
107 , _pciAccountId = pPciAccountId_
74 , _pciAccountId = pPciAccountId_
109− , _pciOAuthToken = Nothing
110− , _pciFields = Nothing
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)
118− = lens _pciQuotaUser (\ s a -> s{_pciQuotaUser = a})
120−-- | Returns response with indentations and line breaks.
121−pciPrettyPrint :: Lens' PretargetingConfigInsert' Bool
123− = lens _pciPrettyPrint
124− (\ s a -> s{_pciPrettyPrint = a})
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)
130− = lens _pciUserIP (\ s a -> s{_pciUserIP = a})
132-- | Multipart request metadata.
77-- | Multipart request metadata.
133pciPayload :: Lens' PretargetingConfigInsert' PretargetingConfig
78pciPayload :: Lens' PretargetingConfigInsert' PretargetingConfig
134pciPayload
79pciPayload
@@ -139,42 +84,14 @@ pciAccountId :: Lens' PretargetingConfigInsert' Int64
139pciAccountId
84pciAccountId
140 = lens _pciAccountId (\ s a -> s{_pciAccountId = a})
85 = lens _pciAccountId (\ s a -> s{_pciAccountId = a})
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
145−pciKey :: Lens' PretargetingConfigInsert' (Maybe AuthKey)
146−pciKey = lens _pciKey (\ s a -> s{_pciKey = a})
148−-- | OAuth 2.0 token for the current user.
149−pciOAuthToken :: Lens' PretargetingConfigInsert' (Maybe OAuthToken)
151− = lens _pciOAuthToken
152− (\ s a -> s{_pciOAuthToken = a})
154−-- | Selector specifying which fields to include in a partial response.
155−pciFields :: Lens' PretargetingConfigInsert' (Maybe Text)
157− = lens _pciFields (\ s a -> s{_pciFields = a})
159−instance GoogleAuth PretargetingConfigInsert' where
160− _AuthKey = pciKey . _Just
161− _AuthToken = pciOAuthToken . _Just
163instance GoogleRequest PretargetingConfigInsert'
87instance GoogleRequest PretargetingConfigInsert'
165 type Rs PretargetingConfigInsert' =
89 type Rs PretargetingConfigInsert' =
166 PretargetingConfig
90 PretargetingConfig
167− request = requestWith adExchangeBuyerRequest
168− requestWith rq PretargetingConfigInsert'{..}
91+ requestClient PretargetingConfigInsert'{..}
169− = go _pciAccountId _pciQuotaUser
92+ = go _pciAccountId (Just AltJSON) _pciPayload
170− (Just _pciPrettyPrint)
93+ adExchangeBuyerService
178− = clientBuild
95+ = buildClient
179 (Proxy :: Proxy PretargetingConfigInsertResource)
96 (Proxy :: Proxy PretargetingConfigInsertResource)
gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/PretargetingConfig/List.hs+10−92
@@ -34,13 +34,7 @@ module Network.Google.Resource.AdExchangeBuyer.PretargetingConfig.List
34 , PretargetingConfigList'
34 , PretargetingConfigList'
36 -- * Request Lenses
36 -- * Request Lenses
40 , pclAccountId
37 , pclAccountId
46import Network.Google.AdExchangeBuyer.Types
40import Network.Google.AdExchangeBuyer.Types
@@ -51,118 +45,42 @@ import Network.Google.Prelude
51type PretargetingConfigListResource =
45type PretargetingConfigListResource =
52 "pretargetingconfigs" :>
46 "pretargetingconfigs" :>
53 Capture "accountId" Int64 :>
47 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 :>
48+ QueryParam "alt" AltJSON :>
61− Get '[JSON] PretargetingConfigList
49+ Get '[JSON] PretargetingConfigList
63-- | Retrieves a list of the authenticated user\'s pretargeting
51-- | Retrieves a list of the authenticated user\'s pretargeting
64-- configurations.
52-- configurations.
66-- /See:/ 'pretargetingConfigList'' smart constructor.
54-- /See:/ 'pretargetingConfigList'' smart constructor.
67−data PretargetingConfigList' = PretargetingConfigList'
55+newtype PretargetingConfigList' = PretargetingConfigList'
68− { _pclQuotaUser :: !(Maybe Text)
69− , _pclPrettyPrint :: !Bool
70− , _pclUserIP :: !(Maybe Text)
71− , _pclAccountId :: !Int64
56+ { _pclAccountId :: Int64
72− , _pclKey :: !(Maybe AuthKey)
73− , _pclOAuthToken :: !(Maybe OAuthToken)
74− , _pclFields :: !(Maybe Text)
75 } deriving (Eq,Show,Data,Typeable,Generic)
57 } deriving (Eq,Show,Data,Typeable,Generic)
77-- | Creates a value of 'PretargetingConfigList'' with the minimum fields required to make a request.
59-- | Creates a value of 'PretargetingConfigList'' with the minimum fields required to make a request.
79-- Use one of the following lenses to modify other fields as desired:
61-- Use one of the following lenses to modify other fields as desired:
87-- * 'pclAccountId'
63-- * 'pclAccountId'
94pretargetingConfigList'
64pretargetingConfigList'
95 :: Int64 -- ^ 'accountId'
65 :: Int64 -- ^ 'accountId'
96 -> PretargetingConfigList'
66 -> PretargetingConfigList'
97pretargetingConfigList' pPclAccountId_ =
67pretargetingConfigList' pPclAccountId_ =
98 PretargetingConfigList'
68 PretargetingConfigList'
99− { _pclQuotaUser = Nothing
100− , _pclPrettyPrint = True
101− , _pclUserIP = Nothing
102− , _pclAccountId = pPclAccountId_
69+ { _pclAccountId = pPclAccountId_
104− , _pclOAuthToken = Nothing
105− , _pclFields = Nothing
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)
113− = lens _pclQuotaUser (\ s a -> s{_pclQuotaUser = a})
115−-- | Returns response with indentations and line breaks.
116−pclPrettyPrint :: Lens' PretargetingConfigList' Bool
118− = lens _pclPrettyPrint
119− (\ s a -> s{_pclPrettyPrint = a})
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)
125− = lens _pclUserIP (\ s a -> s{_pclUserIP = a})
127-- | The account id to get the pretargeting configs for.
72-- | The account id to get the pretargeting configs for.
128pclAccountId :: Lens' PretargetingConfigList' Int64
73pclAccountId :: Lens' PretargetingConfigList' Int64
129pclAccountId
74pclAccountId
130 = lens _pclAccountId (\ s a -> s{_pclAccountId = a})
75 = lens _pclAccountId (\ s a -> s{_pclAccountId = a})
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
135−pclKey :: Lens' PretargetingConfigList' (Maybe AuthKey)
136−pclKey = lens _pclKey (\ s a -> s{_pclKey = a})
138−-- | OAuth 2.0 token for the current user.
139−pclOAuthToken :: Lens' PretargetingConfigList' (Maybe OAuthToken)
141− = lens _pclOAuthToken
142− (\ s a -> s{_pclOAuthToken = a})
144−-- | Selector specifying which fields to include in a partial response.
145−pclFields :: Lens' PretargetingConfigList' (Maybe Text)
147− = lens _pclFields (\ s a -> s{_pclFields = a})
149−instance GoogleAuth PretargetingConfigList' where
150− _AuthKey = pclKey . _Just
151− _AuthToken = pclOAuthToken . _Just
153instance GoogleRequest PretargetingConfigList' where
77instance GoogleRequest PretargetingConfigList' where
154 type Rs PretargetingConfigList' =
78 type Rs PretargetingConfigList' =
155 PretargetingConfigList
79 PretargetingConfigList
156− request = requestWith adExchangeBuyerRequest
157− requestWith rq PretargetingConfigList'{..}
80+ requestClient PretargetingConfigList'{..}
158− = go _pclAccountId _pclQuotaUser
159− (Just _pclPrettyPrint)
164− (Just AltJSON)
81+ = go _pclAccountId (Just AltJSON)
82+ adExchangeBuyerService
166− = clientBuild
84+ = buildClient
167 (Proxy :: Proxy PretargetingConfigListResource)
85 (Proxy :: Proxy PretargetingConfigListResource)
gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/PretargetingConfig/Patch.hs+12−94
@@ -34,15 +34,9 @@ module Network.Google.Resource.AdExchangeBuyer.PretargetingConfig.Patch
34 , PretargetingConfigPatch'
34 , PretargetingConfigPatch'
36 -- * Request Lenses
36 -- * Request Lenses
40 , pcpPayload
37 , pcpPayload
41 , pcpAccountId
38 , pcpAccountId
43 , pcpConfigId
39 , pcpConfigId
48import Network.Google.AdExchangeBuyer.Types
42import Network.Google.AdExchangeBuyer.Types
@@ -54,53 +48,29 @@ type PretargetingConfigPatchResource =
54 "pretargetingconfigs" :>
48 "pretargetingconfigs" :>
55 Capture "accountId" Int64 :>
49 Capture "accountId" Int64 :>
56 Capture "configId" Int64 :>
50 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 :>
51+ QueryParam "alt" AltJSON :>
64− ReqBody '[JSON] PretargetingConfig :>
52+ ReqBody '[JSON] PretargetingConfig :>
65− Patch '[JSON] PretargetingConfig
53+ Patch '[JSON] PretargetingConfig
67-- | Updates an existing pretargeting config. This method supports patch
55-- | Updates an existing pretargeting config. This method supports patch
68-- semantics.
56-- semantics.
70-- /See:/ 'pretargetingConfigPatch'' smart constructor.
58-- /See:/ 'pretargetingConfigPatch'' smart constructor.
71data PretargetingConfigPatch' = PretargetingConfigPatch'
59data PretargetingConfigPatch' = PretargetingConfigPatch'
72− { _pcpQuotaUser :: !(Maybe Text)
73− , _pcpPrettyPrint :: !Bool
74− , _pcpUserIP :: !(Maybe Text)
75− , _pcpPayload :: !PretargetingConfig
60+ { _pcpPayload :: !PretargetingConfig
76− , _pcpAccountId :: !Int64
61+ , _pcpAccountId :: !Int64
77− , _pcpKey :: !(Maybe AuthKey)
78− , _pcpConfigId :: !Int64
62+ , _pcpConfigId :: !Int64
79− , _pcpOAuthToken :: !(Maybe OAuthToken)
80− , _pcpFields :: !(Maybe Text)
81 } deriving (Eq,Show,Data,Typeable,Generic)
63 } deriving (Eq,Show,Data,Typeable,Generic)
83-- | Creates a value of 'PretargetingConfigPatch'' with the minimum fields required to make a request.
65-- | Creates a value of 'PretargetingConfigPatch'' with the minimum fields required to make a request.
85-- Use one of the following lenses to modify other fields as desired:
67-- Use one of the following lenses to modify other fields as desired:
93-- * 'pcpPayload'
69-- * 'pcpPayload'
95-- * 'pcpAccountId'
71-- * 'pcpAccountId'
99-- * 'pcpConfigId'
73-- * 'pcpConfigId'
104pretargetingConfigPatch'
74pretargetingConfigPatch'
105 :: PretargetingConfig -- ^ 'payload'
75 :: PretargetingConfig -- ^ 'payload'
106 -> Int64 -- ^ 'accountId'
76 -> Int64 -- ^ 'accountId'
@@ -108,36 +78,11 @@ pretargetingConfigPatch'
108 -> PretargetingConfigPatch'
78 -> PretargetingConfigPatch'
109pretargetingConfigPatch' pPcpPayload_ pPcpAccountId_ pPcpConfigId_ =
79pretargetingConfigPatch' pPcpPayload_ pPcpAccountId_ pPcpConfigId_ =
110 PretargetingConfigPatch'
80 PretargetingConfigPatch'
111− { _pcpQuotaUser = Nothing
112− , _pcpPrettyPrint = True
113− , _pcpUserIP = Nothing
114− , _pcpPayload = pPcpPayload_
81+ { _pcpPayload = pPcpPayload_
115 , _pcpAccountId = pPcpAccountId_
82 , _pcpAccountId = pPcpAccountId_
117 , _pcpConfigId = pPcpConfigId_
83 , _pcpConfigId = pPcpConfigId_
118− , _pcpOAuthToken = Nothing
119− , _pcpFields = Nothing
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)
127− = lens _pcpQuotaUser (\ s a -> s{_pcpQuotaUser = a})
129−-- | Returns response with indentations and line breaks.
130−pcpPrettyPrint :: Lens' PretargetingConfigPatch' Bool
132− = lens _pcpPrettyPrint
133− (\ s a -> s{_pcpPrettyPrint = a})
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)
139− = lens _pcpUserIP (\ s a -> s{_pcpUserIP = a})
141-- | Multipart request metadata.
86-- | Multipart request metadata.
142pcpPayload :: Lens' PretargetingConfigPatch' PretargetingConfig
87pcpPayload :: Lens' PretargetingConfigPatch' PretargetingConfig
143pcpPayload
88pcpPayload
@@ -148,45 +93,18 @@ pcpAccountId :: Lens' PretargetingConfigPatch' Int64
148pcpAccountId
93pcpAccountId
149 = lens _pcpAccountId (\ s a -> s{_pcpAccountId = a})
94 = lens _pcpAccountId (\ s a -> s{_pcpAccountId = a})
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
154−pcpKey :: Lens' PretargetingConfigPatch' (Maybe AuthKey)
155−pcpKey = lens _pcpKey (\ s a -> s{_pcpKey = a})
157-- | The specific id of the configuration to update.
96-- | The specific id of the configuration to update.
158pcpConfigId :: Lens' PretargetingConfigPatch' Int64
97pcpConfigId :: Lens' PretargetingConfigPatch' Int64
159pcpConfigId
98pcpConfigId
160 = lens _pcpConfigId (\ s a -> s{_pcpConfigId = a})
99 = lens _pcpConfigId (\ s a -> s{_pcpConfigId = a})
162−-- | OAuth 2.0 token for the current user.
163−pcpOAuthToken :: Lens' PretargetingConfigPatch' (Maybe OAuthToken)
165− = lens _pcpOAuthToken
166− (\ s a -> s{_pcpOAuthToken = a})
168−-- | Selector specifying which fields to include in a partial response.
169−pcpFields :: Lens' PretargetingConfigPatch' (Maybe Text)
171− = lens _pcpFields (\ s a -> s{_pcpFields = a})
173−instance GoogleAuth PretargetingConfigPatch' where
174− _AuthKey = pcpKey . _Just
175− _AuthToken = pcpOAuthToken . _Just
177instance GoogleRequest PretargetingConfigPatch' where
101instance GoogleRequest PretargetingConfigPatch' where
178 type Rs PretargetingConfigPatch' = PretargetingConfig
102 type Rs PretargetingConfigPatch' = PretargetingConfig
179− request = requestWith adExchangeBuyerRequest
180− requestWith rq PretargetingConfigPatch'{..}
103+ requestClient PretargetingConfigPatch'{..}
181− = go _pcpAccountId _pcpConfigId _pcpQuotaUser
104+ = go _pcpAccountId _pcpConfigId (Just AltJSON)
182− (Just _pcpPrettyPrint)
188 _pcpPayload
105 _pcpPayload
106+ adExchangeBuyerService
190− = clientBuild
108+ = buildClient
191 (Proxy :: Proxy PretargetingConfigPatchResource)
109 (Proxy :: Proxy PretargetingConfigPatchResource)
gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/PretargetingConfig/Update.hs+12−94
@@ -33,15 +33,9 @@ module Network.Google.Resource.AdExchangeBuyer.PretargetingConfig.Update
33 , PretargetingConfigUpdate'
33 , PretargetingConfigUpdate'
35 -- * Request Lenses
35 -- * Request Lenses
39 , pcuPayload
36 , pcuPayload
40 , pcuAccountId
37 , pcuAccountId
42 , pcuConfigId
38 , pcuConfigId
47import Network.Google.AdExchangeBuyer.Types
41import Network.Google.AdExchangeBuyer.Types
@@ -53,52 +47,28 @@ type PretargetingConfigUpdateResource =
53 "pretargetingconfigs" :>
47 "pretargetingconfigs" :>
54 Capture "accountId" Int64 :>
48 Capture "accountId" Int64 :>
55 Capture "configId" Int64 :>
49 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 :>
50+ QueryParam "alt" AltJSON :>
63− ReqBody '[JSON] PretargetingConfig :>
51+ ReqBody '[JSON] PretargetingConfig :>
64− Put '[JSON] PretargetingConfig
52+ Put '[JSON] PretargetingConfig
66-- | Updates an existing pretargeting config.
54-- | Updates an existing pretargeting config.
68-- /See:/ 'pretargetingConfigUpdate'' smart constructor.
56-- /See:/ 'pretargetingConfigUpdate'' smart constructor.
69data PretargetingConfigUpdate' = PretargetingConfigUpdate'
57data PretargetingConfigUpdate' = PretargetingConfigUpdate'
70− { _pcuQuotaUser :: !(Maybe Text)
71− , _pcuPrettyPrint :: !Bool
72− , _pcuUserIP :: !(Maybe Text)
73− , _pcuPayload :: !PretargetingConfig
58+ { _pcuPayload :: !PretargetingConfig
74− , _pcuAccountId :: !Int64
59+ , _pcuAccountId :: !Int64
75− , _pcuKey :: !(Maybe AuthKey)
76− , _pcuConfigId :: !Int64
60+ , _pcuConfigId :: !Int64
77− , _pcuOAuthToken :: !(Maybe OAuthToken)
78− , _pcuFields :: !(Maybe Text)
79 } deriving (Eq,Show,Data,Typeable,Generic)
61 } deriving (Eq,Show,Data,Typeable,Generic)
81-- | Creates a value of 'PretargetingConfigUpdate'' with the minimum fields required to make a request.
63-- | Creates a value of 'PretargetingConfigUpdate'' with the minimum fields required to make a request.
83-- Use one of the following lenses to modify other fields as desired:
65-- Use one of the following lenses to modify other fields as desired:
91-- * 'pcuPayload'
67-- * 'pcuPayload'
93-- * 'pcuAccountId'
69-- * 'pcuAccountId'
97-- * 'pcuConfigId'
71-- * 'pcuConfigId'
102pretargetingConfigUpdate'
72pretargetingConfigUpdate'
103 :: PretargetingConfig -- ^ 'payload'
73 :: PretargetingConfig -- ^ 'payload'
104 -> Int64 -- ^ 'accountId'
74 -> Int64 -- ^ 'accountId'
@@ -106,36 +76,11 @@ pretargetingConfigUpdate'
106 -> PretargetingConfigUpdate'
76 -> PretargetingConfigUpdate'
107pretargetingConfigUpdate' pPcuPayload_ pPcuAccountId_ pPcuConfigId_ =
77pretargetingConfigUpdate' pPcuPayload_ pPcuAccountId_ pPcuConfigId_ =
108 PretargetingConfigUpdate'
78 PretargetingConfigUpdate'
109− { _pcuQuotaUser = Nothing
110− , _pcuPrettyPrint = True
111− , _pcuUserIP = Nothing
112− , _pcuPayload = pPcuPayload_
79+ { _pcuPayload = pPcuPayload_
113 , _pcuAccountId = pPcuAccountId_
80 , _pcuAccountId = pPcuAccountId_
115 , _pcuConfigId = pPcuConfigId_
81 , _pcuConfigId = pPcuConfigId_
116− , _pcuOAuthToken = Nothing
117− , _pcuFields = Nothing
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)
125− = lens _pcuQuotaUser (\ s a -> s{_pcuQuotaUser = a})
127−-- | Returns response with indentations and line breaks.
128−pcuPrettyPrint :: Lens' PretargetingConfigUpdate' Bool
130− = lens _pcuPrettyPrint
131− (\ s a -> s{_pcuPrettyPrint = a})
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)
137− = lens _pcuUserIP (\ s a -> s{_pcuUserIP = a})
139-- | Multipart request metadata.
84-- | Multipart request metadata.
140pcuPayload :: Lens' PretargetingConfigUpdate' PretargetingConfig
85pcuPayload :: Lens' PretargetingConfigUpdate' PretargetingConfig
141pcuPayload
86pcuPayload
@@ -146,47 +91,20 @@ pcuAccountId :: Lens' PretargetingConfigUpdate' Int64
146pcuAccountId
91pcuAccountId
147 = lens _pcuAccountId (\ s a -> s{_pcuAccountId = a})
92 = lens _pcuAccountId (\ s a -> s{_pcuAccountId = a})
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
152−pcuKey :: Lens' PretargetingConfigUpdate' (Maybe AuthKey)
153−pcuKey = lens _pcuKey (\ s a -> s{_pcuKey = a})
155-- | The specific id of the configuration to update.
94-- | The specific id of the configuration to update.
156pcuConfigId :: Lens' PretargetingConfigUpdate' Int64
95pcuConfigId :: Lens' PretargetingConfigUpdate' Int64
157pcuConfigId
96pcuConfigId
158 = lens _pcuConfigId (\ s a -> s{_pcuConfigId = a})
97 = lens _pcuConfigId (\ s a -> s{_pcuConfigId = a})
160−-- | OAuth 2.0 token for the current user.
161−pcuOAuthToken :: Lens' PretargetingConfigUpdate' (Maybe OAuthToken)
163− = lens _pcuOAuthToken
164− (\ s a -> s{_pcuOAuthToken = a})
166−-- | Selector specifying which fields to include in a partial response.
167−pcuFields :: Lens' PretargetingConfigUpdate' (Maybe Text)
169− = lens _pcuFields (\ s a -> s{_pcuFields = a})
171−instance GoogleAuth PretargetingConfigUpdate' where
172− _AuthKey = pcuKey . _Just
173− _AuthToken = pcuOAuthToken . _Just
175instance GoogleRequest PretargetingConfigUpdate'
99instance GoogleRequest PretargetingConfigUpdate'
177 type Rs PretargetingConfigUpdate' =
101 type Rs PretargetingConfigUpdate' =
178 PretargetingConfig
102 PretargetingConfig
179− request = requestWith adExchangeBuyerRequest
180− requestWith rq PretargetingConfigUpdate'{..}
103+ requestClient PretargetingConfigUpdate'{..}
181− = go _pcuAccountId _pcuConfigId _pcuQuotaUser
104+ = go _pcuAccountId _pcuConfigId (Just AltJSON)
182− (Just _pcuPrettyPrint)
188 _pcuPayload
105 _pcuPayload
106+ adExchangeBuyerService
190− = clientBuild
108+ = buildClient
191 (Proxy :: Proxy PretargetingConfigUpdateResource)
109 (Proxy :: Proxy PretargetingConfigUpdateResource)
gogol-adexchange-seller/gen/Network/Google/AdExchangeSeller.hs+4−1
@@ -19,8 +19,11 @@
19-- /See:/ <https://developers.google.com/ad-exchange/seller-rest/ Ad Exchange Seller API Reference>
19-- /See:/ <https://developers.google.com/ad-exchange/seller-rest/ Ad Exchange Seller API Reference>
20module Network.Google.AdExchangeSeller
20module Network.Google.AdExchangeSeller
22+ -- * Service Configuration
23+ adExchangeSellerService
22 -- * API Declaration
25 -- * API Declaration
23− AdExchangeSellerAPI
26+ , AdExchangeSellerAPI
25 -- * Resources
28 -- * Resources
gogol-adexchange-seller/gen/Network/Google/AdExchangeSeller/Types.hs+18−5
@@ -15,8 +15,12 @@
16module Network.Google.AdExchangeSeller.Types
16module Network.Google.AdExchangeSeller.Types
18− -- * Service Request
18+ -- * Service Configuration
19− adExchangeSellerRequest
19+ adExchangeSellerService
22+ , adexchangeSellerReadonlyScope
23+ , adexchangeSellerScope
21 -- * AdClients
25 -- * AdClients
22 , AdClients
26 , AdClients
@@ -179,7 +183,16 @@ import Network.Google.AdExchangeSeller.Types.Sum
179import Network.Google.Prelude
183import Network.Google.Prelude
181-- | 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.
185-- | 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
186+adExchangeSellerService :: Service
183−adExchangeSellerRequest
187+adExchangeSellerService
188+ = defaultService (ServiceId "adexchangeseller:v2.0")
184− = defaultRequest "https://www.googleapis.com/"
189+ "www.googleapis.com"
185 "adexchangeseller/v2.0/"
190 "adexchangeseller/v2.0/"
192+-- | View your Ad Exchange data
193+adexchangeSellerReadonlyScope :: OAuthScope
194+adexchangeSellerReadonlyScope = OAuthScope "https://www.googleapis.com/auth/adexchange.seller.readonly";
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
33 , AccountsAdClientsList'
33 , AccountsAdClientsList'
35 -- * Request Lenses
35 -- * Request Lenses
39 , aaclAccountId
36 , aaclAccountId
41 , aaclPageToken
37 , aaclPageToken
43 , aaclMaxResults
38 , aaclMaxResults
47import Network.Google.AdExchangeSeller.Types
41import Network.Google.AdExchangeSeller.Types
@@ -55,98 +49,42 @@ type AccountsAdClientsListResource =
55 "adclients" :>
49 "adclients" :>
56 QueryParam "pageToken" Text :>
50 QueryParam "pageToken" Text :>
57 QueryParam "maxResults" Word32 :>
51 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
66-- | List all ad clients in this Ad Exchange account.
54-- | List all ad clients in this Ad Exchange account.
68-- /See:/ 'accountsAdClientsList'' smart constructor.
56-- /See:/ 'accountsAdClientsList'' smart constructor.
69data AccountsAdClientsList' = AccountsAdClientsList'
57data AccountsAdClientsList' = AccountsAdClientsList'
70− { _aaclQuotaUser :: !(Maybe Text)
71− , _aaclPrettyPrint :: !Bool
72− , _aaclUserIP :: !(Maybe Text)
73− , _aaclAccountId :: !Text
58+ { _aaclAccountId :: !Text
74− , _aaclKey :: !(Maybe AuthKey)
75− , _aaclPageToken :: !(Maybe Text)
59+ , _aaclPageToken :: !(Maybe Text)
76− , _aaclOAuthToken :: !(Maybe OAuthToken)
77− , _aaclMaxResults :: !(Maybe Word32)
60+ , _aaclMaxResults :: !(Maybe Word32)
78− , _aaclFields :: !(Maybe Text)
79 } deriving (Eq,Show,Data,Typeable,Generic)
61 } deriving (Eq,Show,Data,Typeable,Generic)
81-- | Creates a value of 'AccountsAdClientsList'' with the minimum fields required to make a request.
63-- | Creates a value of 'AccountsAdClientsList'' with the minimum fields required to make a request.
83-- Use one of the following lenses to modify other fields as desired:
65-- Use one of the following lenses to modify other fields as desired:
87−-- * 'aaclPrettyPrint'
91-- * 'aaclAccountId'
67-- * 'aaclAccountId'
95-- * 'aaclPageToken'
69-- * 'aaclPageToken'
99-- * 'aaclMaxResults'
71-- * 'aaclMaxResults'
102accountsAdClientsList'
72accountsAdClientsList'
103 :: Text -- ^ 'accountId'
73 :: Text -- ^ 'accountId'
104 -> AccountsAdClientsList'
74 -> AccountsAdClientsList'
105accountsAdClientsList' pAaclAccountId_ =
75accountsAdClientsList' pAaclAccountId_ =
106 AccountsAdClientsList'
76 AccountsAdClientsList'
107− { _aaclQuotaUser = Nothing
108− , _aaclPrettyPrint = True
109− , _aaclUserIP = Nothing
110− , _aaclAccountId = pAaclAccountId_
77+ { _aaclAccountId = pAaclAccountId_
111− , _aaclKey = Nothing
112 , _aaclPageToken = Nothing
78 , _aaclPageToken = Nothing
113− , _aaclOAuthToken = Nothing
114 , _aaclMaxResults = Nothing
79 , _aaclMaxResults = Nothing
115− , _aaclFields = Nothing
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)
123− = lens _aaclQuotaUser
124− (\ s a -> s{_aaclQuotaUser = a})
126−-- | Returns response with indentations and line breaks.
127−aaclPrettyPrint :: Lens' AccountsAdClientsList' Bool
129− = lens _aaclPrettyPrint
130− (\ s a -> s{_aaclPrettyPrint = a})
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)
136− = lens _aaclUserIP (\ s a -> s{_aaclUserIP = a})
138-- | Account to which the ad client belongs.
82-- | Account to which the ad client belongs.
139aaclAccountId :: Lens' AccountsAdClientsList' Text
83aaclAccountId :: Lens' AccountsAdClientsList' Text
140aaclAccountId
84aaclAccountId
141 = lens _aaclAccountId
85 = lens _aaclAccountId
142 (\ s a -> s{_aaclAccountId = a})
86 (\ s a -> s{_aaclAccountId = a})
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
147−aaclKey :: Lens' AccountsAdClientsList' (Maybe AuthKey)
148−aaclKey = lens _aaclKey (\ s a -> s{_aaclKey = a})
150-- | A continuation token, used to page through ad clients. To retrieve the
88-- | A continuation token, used to page through ad clients. To retrieve the
151-- next page, set this parameter to the value of \"nextPageToken\" from the
89-- next page, set this parameter to the value of \"nextPageToken\" from the
152-- previous response.
90-- previous response.
@@ -155,12 +93,6 @@ aaclPageToken
155 = lens _aaclPageToken
93 = lens _aaclPageToken
156 (\ s a -> s{_aaclPageToken = a})
94 (\ s a -> s{_aaclPageToken = a})
158−-- | OAuth 2.0 token for the current user.
159−aaclOAuthToken :: Lens' AccountsAdClientsList' (Maybe OAuthToken)
161− = lens _aaclOAuthToken
162− (\ s a -> s{_aaclOAuthToken = a})
164-- | The maximum number of ad clients to include in the response, used for
96-- | The maximum number of ad clients to include in the response, used for
165-- paging.
97-- paging.
166aaclMaxResults :: Lens' AccountsAdClientsList' (Maybe Word32)
98aaclMaxResults :: Lens' AccountsAdClientsList' (Maybe Word32)
@@ -168,28 +100,13 @@ aaclMaxResults
168 = lens _aaclMaxResults
100 = lens _aaclMaxResults
169 (\ s a -> s{_aaclMaxResults = a})
101 (\ s a -> s{_aaclMaxResults = a})
171−-- | Selector specifying which fields to include in a partial response.
172−aaclFields :: Lens' AccountsAdClientsList' (Maybe Text)
174− = lens _aaclFields (\ s a -> s{_aaclFields = a})
176−instance GoogleAuth AccountsAdClientsList' where
177− _AuthKey = aaclKey . _Just
178− _AuthToken = aaclOAuthToken . _Just
180instance GoogleRequest AccountsAdClientsList' where
103instance GoogleRequest AccountsAdClientsList' where
181 type Rs AccountsAdClientsList' = AdClients
104 type Rs AccountsAdClientsList' = AdClients
182− request = requestWith adExchangeSellerRequest
183− requestWith rq AccountsAdClientsList'{..}
105+ requestClient AccountsAdClientsList'{..}
184 = go _aaclAccountId _aaclPageToken _aaclMaxResults
106 = go _aaclAccountId _aaclPageToken _aaclMaxResults
186− (Just _aaclPrettyPrint)
191 (Just AltJSON)
107 (Just AltJSON)
108+ adExchangeSellerService
193− = clientBuild
110+ = buildClient
194 (Proxy :: Proxy AccountsAdClientsListResource)
111 (Proxy :: Proxy AccountsAdClientsListResource)
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
33 , AccountsAlertsList'
33 , AccountsAlertsList'
35 -- * Request Lenses
35 -- * Request Lenses
39 , aalLocale
36 , aalLocale
40 , aalAccountId
37 , aalAccountId
46import Network.Google.AdExchangeSeller.Types
40import Network.Google.AdExchangeSeller.Types
@@ -53,81 +47,32 @@ type AccountsAlertsListResource =
53 Capture "accountId" Text :>
47 Capture "accountId" Text :>
54 "alerts" :>
48 "alerts" :>
55 QueryParam "locale" Text :>
49 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
64-- | List the alerts for this Ad Exchange account.
52-- | List the alerts for this Ad Exchange account.
66-- /See:/ 'accountsAlertsList'' smart constructor.
54-- /See:/ 'accountsAlertsList'' smart constructor.
67data AccountsAlertsList' = AccountsAlertsList'
55data AccountsAlertsList' = AccountsAlertsList'
68− { _aalQuotaUser :: !(Maybe Text)
69− , _aalPrettyPrint :: !Bool
70− , _aalUserIP :: !(Maybe Text)
71− , _aalLocale :: !(Maybe Text)
56+ { _aalLocale :: !(Maybe Text)
72− , _aalAccountId :: !Text
57+ , _aalAccountId :: !Text
73− , _aalKey :: !(Maybe AuthKey)
74− , _aalOAuthToken :: !(Maybe OAuthToken)
75− , _aalFields :: !(Maybe Text)
76 } deriving (Eq,Show,Data,Typeable,Generic)
58 } deriving (Eq,Show,Data,Typeable,Generic)
78-- | Creates a value of 'AccountsAlertsList'' with the minimum fields required to make a request.
60-- | Creates a value of 'AccountsAlertsList'' with the minimum fields required to make a request.
80-- Use one of the following lenses to modify other fields as desired:
62-- Use one of the following lenses to modify other fields as desired:
88-- * 'aalLocale'
64-- * 'aalLocale'
90-- * 'aalAccountId'
66-- * 'aalAccountId'
97accountsAlertsList'
67accountsAlertsList'
98 :: Text -- ^ 'accountId'
68 :: Text -- ^ 'accountId'
99 -> AccountsAlertsList'
69 -> AccountsAlertsList'
100accountsAlertsList' pAalAccountId_ =
70accountsAlertsList' pAalAccountId_ =
101 AccountsAlertsList'
71 AccountsAlertsList'
102− { _aalQuotaUser = Nothing
103− , _aalPrettyPrint = True
104− , _aalUserIP = Nothing
105− , _aalLocale = Nothing
72+ { _aalLocale = Nothing
106 , _aalAccountId = pAalAccountId_
73 , _aalAccountId = pAalAccountId_
108− , _aalOAuthToken = Nothing
109− , _aalFields = Nothing
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)
117− = lens _aalQuotaUser (\ s a -> s{_aalQuotaUser = a})
119−-- | Returns response with indentations and line breaks.
120−aalPrettyPrint :: Lens' AccountsAlertsList' Bool
122− = lens _aalPrettyPrint
123− (\ s a -> s{_aalPrettyPrint = a})
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)
129− = lens _aalUserIP (\ s a -> s{_aalUserIP = a})
131-- | The locale to use for translating alert messages. The account locale
76-- | The locale to use for translating alert messages. The account locale
132-- will be used if this is not supplied. The AdSense default (English) will
77-- will be used if this is not supplied. The AdSense default (English) will
133-- be used if the supplied locale is invalid or unsupported.
78-- be used if the supplied locale is invalid or unsupported.
@@ -140,39 +85,12 @@ aalAccountId :: Lens' AccountsAlertsList' Text
140aalAccountId
85aalAccountId
141 = lens _aalAccountId (\ s a -> s{_aalAccountId = a})
86 = lens _aalAccountId (\ s a -> s{_aalAccountId = a})
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
146−aalKey :: Lens' AccountsAlertsList' (Maybe AuthKey)
147−aalKey = lens _aalKey (\ s a -> s{_aalKey = a})
149−-- | OAuth 2.0 token for the current user.
150−aalOAuthToken :: Lens' AccountsAlertsList' (Maybe OAuthToken)
152− = lens _aalOAuthToken
153− (\ s a -> s{_aalOAuthToken = a})
155−-- | Selector specifying which fields to include in a partial response.
156−aalFields :: Lens' AccountsAlertsList' (Maybe Text)
158− = lens _aalFields (\ s a -> s{_aalFields = a})
160−instance GoogleAuth AccountsAlertsList' where
161− _AuthKey = aalKey . _Just
162− _AuthToken = aalOAuthToken . _Just
164instance GoogleRequest AccountsAlertsList' where
88instance GoogleRequest AccountsAlertsList' where
165 type Rs AccountsAlertsList' = Alerts
89 type Rs AccountsAlertsList' = Alerts
166− request = requestWith adExchangeSellerRequest
167− requestWith rq AccountsAlertsList'{..}
90+ requestClient AccountsAlertsList'{..}
168− = go _aalAccountId _aalLocale _aalQuotaUser
91+ = go _aalAccountId _aalLocale (Just AltJSON)
169− (Just _aalPrettyPrint)
92+ adExchangeSellerService
176− = clientBuild
94+ = buildClient
177 (Proxy :: Proxy AccountsAlertsListResource)
95 (Proxy :: Proxy AccountsAlertsListResource)
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
33 , AccountsCustomChannelsGet'
33 , AccountsCustomChannelsGet'
35 -- * Request Lenses
35 -- * Request Lenses
38 , accgCustomChannelId
36 , accgCustomChannelId
40 , accgAdClientId
37 , accgAdClientId
41 , accgAccountId
38 , accgAccountId
47import Network.Google.AdExchangeSeller.Types
41import Network.Google.AdExchangeSeller.Types
@@ -56,51 +50,26 @@ type AccountsCustomChannelsGetResource =
56 Capture "adClientId" Text :>
50 Capture "adClientId" Text :>
57 "customchannels" :>
51 "customchannels" :>
58 Capture "customChannelId" Text :>
52 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
68-- | Get the specified custom channel from the specified ad client.
55-- | Get the specified custom channel from the specified ad client.
70-- /See:/ 'accountsCustomChannelsGet'' smart constructor.
57-- /See:/ 'accountsCustomChannelsGet'' smart constructor.
71data AccountsCustomChannelsGet' = AccountsCustomChannelsGet'
58data AccountsCustomChannelsGet' = AccountsCustomChannelsGet'
72− { _accgQuotaUser :: !(Maybe Text)
73− , _accgPrettyPrint :: !Bool
74− , _accgCustomChannelId :: !Text
59+ { _accgCustomChannelId :: !Text
75− , _accgUserIP :: !(Maybe Text)
76 , _accgAdClientId :: !Text
60 , _accgAdClientId :: !Text
77 , _accgAccountId :: !Text
61 , _accgAccountId :: !Text
78− , _accgKey :: !(Maybe AuthKey)
79− , _accgOAuthToken :: !(Maybe OAuthToken)
80− , _accgFields :: !(Maybe Text)
81 } deriving (Eq,Show,Data,Typeable,Generic)
62 } deriving (Eq,Show,Data,Typeable,Generic)
83-- | Creates a value of 'AccountsCustomChannelsGet'' with the minimum fields required to make a request.
64-- | Creates a value of 'AccountsCustomChannelsGet'' with the minimum fields required to make a request.
85-- Use one of the following lenses to modify other fields as desired:
66-- Use one of the following lenses to modify other fields as desired:
89−-- * 'accgPrettyPrint'
91-- * 'accgCustomChannelId'
68-- * 'accgCustomChannelId'
95-- * 'accgAdClientId'
70-- * 'accgAdClientId'
97-- * 'accgAccountId'
72-- * 'accgAccountId'
101−-- * 'accgOAuthToken'
104accountsCustomChannelsGet'
73accountsCustomChannelsGet'
105 :: Text -- ^ 'customChannelId'
74 :: Text -- ^ 'customChannelId'
106 -> Text -- ^ 'adClientId'
75 -> Text -- ^ 'adClientId'
@@ -108,43 +77,17 @@ accountsCustomChannelsGet'
108 -> AccountsCustomChannelsGet'
77 -> AccountsCustomChannelsGet'
109accountsCustomChannelsGet' pAccgCustomChannelId_ pAccgAdClientId_ pAccgAccountId_ =
78accountsCustomChannelsGet' pAccgCustomChannelId_ pAccgAdClientId_ pAccgAccountId_ =
110 AccountsCustomChannelsGet'
79 AccountsCustomChannelsGet'
111− { _accgQuotaUser = Nothing
112− , _accgPrettyPrint = True
113− , _accgCustomChannelId = pAccgCustomChannelId_
80+ { _accgCustomChannelId = pAccgCustomChannelId_
114− , _accgUserIP = Nothing
115 , _accgAdClientId = pAccgAdClientId_
81 , _accgAdClientId = pAccgAdClientId_
116 , _accgAccountId = pAccgAccountId_
82 , _accgAccountId = pAccgAccountId_
117− , _accgKey = Nothing
118− , _accgOAuthToken = Nothing
119− , _accgFields = Nothing
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)
127− = lens _accgQuotaUser
128− (\ s a -> s{_accgQuotaUser = a})
130−-- | Returns response with indentations and line breaks.
131−accgPrettyPrint :: Lens' AccountsCustomChannelsGet' Bool
133− = lens _accgPrettyPrint
134− (\ s a -> s{_accgPrettyPrint = a})
136-- | Custom channel to retrieve.
85-- | Custom channel to retrieve.
137accgCustomChannelId :: Lens' AccountsCustomChannelsGet' Text
86accgCustomChannelId :: Lens' AccountsCustomChannelsGet' Text
138accgCustomChannelId
87accgCustomChannelId
139 = lens _accgCustomChannelId
88 = lens _accgCustomChannelId
140 (\ s a -> s{_accgCustomChannelId = a})
89 (\ s a -> s{_accgCustomChannelId = a})
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)
146− = lens _accgUserIP (\ s a -> s{_accgUserIP = a})
148-- | Ad client which contains the custom channel.
91-- | Ad client which contains the custom channel.
149accgAdClientId :: Lens' AccountsCustomChannelsGet' Text
92accgAdClientId :: Lens' AccountsCustomChannelsGet' Text
150accgAdClientId
93accgAdClientId
@@ -157,42 +100,15 @@ accgAccountId
157 = lens _accgAccountId
100 = lens _accgAccountId
158 (\ s a -> s{_accgAccountId = a})
101 (\ s a -> s{_accgAccountId = a})
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
163−accgKey :: Lens' AccountsCustomChannelsGet' (Maybe AuthKey)
164−accgKey = lens _accgKey (\ s a -> s{_accgKey = a})
166−-- | OAuth 2.0 token for the current user.
167−accgOAuthToken :: Lens' AccountsCustomChannelsGet' (Maybe OAuthToken)
169− = lens _accgOAuthToken
170− (\ s a -> s{_accgOAuthToken = a})
172−-- | Selector specifying which fields to include in a partial response.
173−accgFields :: Lens' AccountsCustomChannelsGet' (Maybe Text)
175− = lens _accgFields (\ s a -> s{_accgFields = a})
177−instance GoogleAuth AccountsCustomChannelsGet' where
178− _AuthKey = accgKey . _Just
179− _AuthToken = accgOAuthToken . _Just
181instance GoogleRequest AccountsCustomChannelsGet'
103instance GoogleRequest AccountsCustomChannelsGet'
183 type Rs AccountsCustomChannelsGet' = CustomChannel
105 type Rs AccountsCustomChannelsGet' = CustomChannel
184− request = requestWith adExchangeSellerRequest
185− requestWith rq AccountsCustomChannelsGet'{..}
106+ requestClient AccountsCustomChannelsGet'{..}
186 = go _accgAccountId _accgAdClientId
107 = go _accgAccountId _accgAdClientId
187 _accgCustomChannelId
108 _accgCustomChannelId
189− (Just _accgPrettyPrint)
194 (Just AltJSON)
109 (Just AltJSON)
110+ adExchangeSellerService
196− = clientBuild
112+ = buildClient
197 (Proxy :: Proxy AccountsCustomChannelsGetResource)
113 (Proxy :: Proxy AccountsCustomChannelsGetResource)
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
34 , AccountsCustomChannelsList'
34 , AccountsCustomChannelsList'
36 -- * Request Lenses
36 -- * Request Lenses
40 , acclAdClientId
37 , acclAdClientId
41 , acclAccountId
38 , acclAccountId
43 , acclPageToken
39 , acclPageToken
45 , acclMaxResults
40 , acclMaxResults
49import Network.Google.AdExchangeSeller.Types
43import Network.Google.AdExchangeSeller.Types
@@ -59,93 +53,43 @@ type AccountsCustomChannelsListResource =
59 "customchannels" :>
53 "customchannels" :>
60 QueryParam "pageToken" Text :>
54 QueryParam "pageToken" Text :>
61 QueryParam "maxResults" Word32 :>
55 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 :>
56+ QueryParam "alt" AltJSON :>
69− Get '[JSON] CustomChannels
57+ Get '[JSON] CustomChannels
71-- | List all custom channels in the specified ad client for this Ad Exchange
59-- | List all custom channels in the specified ad client for this Ad Exchange
72-- account.
60-- account.
74-- /See:/ 'accountsCustomChannelsList'' smart constructor.
62-- /See:/ 'accountsCustomChannelsList'' smart constructor.
75data AccountsCustomChannelsList' = AccountsCustomChannelsList'
63data AccountsCustomChannelsList' = AccountsCustomChannelsList'
76− { _acclQuotaUser :: !(Maybe Text)
77− , _acclPrettyPrint :: !Bool
78− , _acclUserIP :: !(Maybe Text)
79− , _acclAdClientId :: !Text
64+ { _acclAdClientId :: !Text
80− , _acclAccountId :: !Text
65+ , _acclAccountId :: !Text
81− , _acclKey :: !(Maybe AuthKey)
82− , _acclPageToken :: !(Maybe Text)
66+ , _acclPageToken :: !(Maybe Text)
83− , _acclOAuthToken :: !(Maybe OAuthToken)
84− , _acclMaxResults :: !(Maybe Word32)
67+ , _acclMaxResults :: !(Maybe Word32)
85− , _acclFields :: !(Maybe Text)
86 } deriving (Eq,Show,Data,Typeable,Generic)
68 } deriving (Eq,Show,Data,Typeable,Generic)
88-- | Creates a value of 'AccountsCustomChannelsList'' with the minimum fields required to make a request.
70-- | Creates a value of 'AccountsCustomChannelsList'' with the minimum fields required to make a request.
90-- Use one of the following lenses to modify other fields as desired:
72-- Use one of the following lenses to modify other fields as desired:
94−-- * 'acclPrettyPrint'
98-- * 'acclAdClientId'
74-- * 'acclAdClientId'
100-- * 'acclAccountId'
76-- * 'acclAccountId'
104-- * 'acclPageToken'
78-- * 'acclPageToken'
106−-- * 'acclOAuthToken'
108-- * 'acclMaxResults'
80-- * 'acclMaxResults'
111accountsCustomChannelsList'
81accountsCustomChannelsList'
112 :: Text -- ^ 'adClientId'
82 :: Text -- ^ 'adClientId'
113 -> Text -- ^ 'accountId'
83 -> Text -- ^ 'accountId'
114 -> AccountsCustomChannelsList'
84 -> AccountsCustomChannelsList'
115accountsCustomChannelsList' pAcclAdClientId_ pAcclAccountId_ =
85accountsCustomChannelsList' pAcclAdClientId_ pAcclAccountId_ =
116 AccountsCustomChannelsList'
86 AccountsCustomChannelsList'
117− { _acclQuotaUser = Nothing
118− , _acclPrettyPrint = True
119− , _acclUserIP = Nothing
120− , _acclAdClientId = pAcclAdClientId_
87+ { _acclAdClientId = pAcclAdClientId_
121 , _acclAccountId = pAcclAccountId_
88 , _acclAccountId = pAcclAccountId_
122− , _acclKey = Nothing
123 , _acclPageToken = Nothing
89 , _acclPageToken = Nothing
124− , _acclOAuthToken = Nothing
125 , _acclMaxResults = Nothing
90 , _acclMaxResults = Nothing
126− , _acclFields = Nothing
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)
134− = lens _acclQuotaUser
135− (\ s a -> s{_acclQuotaUser = a})
137−-- | Returns response with indentations and line breaks.
138−acclPrettyPrint :: Lens' AccountsCustomChannelsList' Bool
140− = lens _acclPrettyPrint
141− (\ s a -> s{_acclPrettyPrint = a})
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)
147− = lens _acclUserIP (\ s a -> s{_acclUserIP = a})
149-- | Ad client for which to list custom channels.
93-- | Ad client for which to list custom channels.
150acclAdClientId :: Lens' AccountsCustomChannelsList' Text
94acclAdClientId :: Lens' AccountsCustomChannelsList' Text
151acclAdClientId
95acclAdClientId
@@ -158,12 +102,6 @@ acclAccountId
158 = lens _acclAccountId
102 = lens _acclAccountId
159 (\ s a -> s{_acclAccountId = a})
103 (\ s a -> s{_acclAccountId = a})
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
164−acclKey :: Lens' AccountsCustomChannelsList' (Maybe AuthKey)
165−acclKey = lens _acclKey (\ s a -> s{_acclKey = a})
167-- | A continuation token, used to page through custom channels. To retrieve
105-- | A continuation token, used to page through custom channels. To retrieve
168-- the next page, set this parameter to the value of \"nextPageToken\" from
106-- the next page, set this parameter to the value of \"nextPageToken\" from
169-- the previous response.
107-- the previous response.
@@ -172,12 +110,6 @@ acclPageToken
172 = lens _acclPageToken
110 = lens _acclPageToken
173 (\ s a -> s{_acclPageToken = a})
111 (\ s a -> s{_acclPageToken = a})
175−-- | OAuth 2.0 token for the current user.
176−acclOAuthToken :: Lens' AccountsCustomChannelsList' (Maybe OAuthToken)
178− = lens _acclOAuthToken
179− (\ s a -> s{_acclOAuthToken = a})
181-- | The maximum number of custom channels to include in the response, used
113-- | The maximum number of custom channels to include in the response, used
182-- for paging.
114-- for paging.
183acclMaxResults :: Lens' AccountsCustomChannelsList' (Maybe Word32)
115acclMaxResults :: Lens' AccountsCustomChannelsList' (Maybe Word32)
@@ -185,30 +117,15 @@ acclMaxResults
185 = lens _acclMaxResults
117 = lens _acclMaxResults
186 (\ s a -> s{_acclMaxResults = a})
118 (\ s a -> s{_acclMaxResults = a})
188−-- | Selector specifying which fields to include in a partial response.
189−acclFields :: Lens' AccountsCustomChannelsList' (Maybe Text)
191− = lens _acclFields (\ s a -> s{_acclFields = a})
193−instance GoogleAuth AccountsCustomChannelsList' where
194− _AuthKey = acclKey . _Just
195− _AuthToken = acclOAuthToken . _Just
197instance GoogleRequest AccountsCustomChannelsList'
120instance GoogleRequest AccountsCustomChannelsList'
199 type Rs AccountsCustomChannelsList' = CustomChannels
122 type Rs AccountsCustomChannelsList' = CustomChannels
200− request = requestWith adExchangeSellerRequest
201− requestWith rq AccountsCustomChannelsList'{..}
123+ requestClient AccountsCustomChannelsList'{..}
202 = go _acclAccountId _acclAdClientId _acclPageToken
124 = go _acclAccountId _acclAdClientId _acclPageToken
203 _acclMaxResults
125 _acclMaxResults
205− (Just _acclPrettyPrint)
210 (Just AltJSON)
126 (Just AltJSON)
127+ adExchangeSellerService
212− = clientBuild
129+ = buildClient
213 (Proxy :: Proxy AccountsCustomChannelsListResource)
130 (Proxy :: Proxy AccountsCustomChannelsListResource)
gogol-adexchange-seller/gen/Network/Google/Resource/AdExchangeSeller/Accounts/Get.hs+9−86
@@ -33,13 +33,7 @@ module Network.Google.Resource.AdExchangeSeller.Accounts.Get
33 , AccountsGet'
33 , AccountsGet'
35 -- * Request Lenses
35 -- * Request Lenses
39 , agAccountId
36 , agAccountId
45import Network.Google.AdExchangeSeller.Types
39import Network.Google.AdExchangeSeller.Types
@@ -50,109 +44,38 @@ import Network.Google.Prelude
50type AccountsGetResource =
44type AccountsGetResource =
51 "accounts" :>
45 "accounts" :>
52 Capture "accountId" Text :>
46 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
61-- | Get information about the selected Ad Exchange account.
49-- | Get information about the selected Ad Exchange account.
63-- /See:/ 'accountsGet'' smart constructor.
51-- /See:/ 'accountsGet'' smart constructor.
64−data AccountsGet' = AccountsGet'
52+newtype AccountsGet' = AccountsGet'
65− { _agQuotaUser :: !(Maybe Text)
66− , _agPrettyPrint :: !Bool
67− , _agUserIP :: !(Maybe Text)
68− , _agAccountId :: !Text
53+ { _agAccountId :: Text
69− , _agKey :: !(Maybe AuthKey)
70− , _agOAuthToken :: !(Maybe OAuthToken)
71− , _agFields :: !(Maybe Text)
72 } deriving (Eq,Show,Data,Typeable,Generic)
54 } deriving (Eq,Show,Data,Typeable,Generic)
74-- | Creates a value of 'AccountsGet'' with the minimum fields required to make a request.
56-- | Creates a value of 'AccountsGet'' with the minimum fields required to make a request.
76-- Use one of the following lenses to modify other fields as desired:
58-- Use one of the following lenses to modify other fields as desired:
84-- * 'agAccountId'
60-- * 'agAccountId'
91accountsGet'
61accountsGet'
92 :: Text -- ^ 'accountId'
62 :: Text -- ^ 'accountId'
93 -> AccountsGet'
63 -> AccountsGet'
94accountsGet' pAgAccountId_ =
64accountsGet' pAgAccountId_ =
95 AccountsGet'
65 AccountsGet'
96− { _agQuotaUser = Nothing
97− , _agPrettyPrint = True
98− , _agUserIP = Nothing
99− , _agAccountId = pAgAccountId_
66+ { _agAccountId = pAgAccountId_
101− , _agOAuthToken = Nothing
102− , _agFields = Nothing
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)
110− = lens _agQuotaUser (\ s a -> s{_agQuotaUser = a})
112−-- | Returns response with indentations and line breaks.
113−agPrettyPrint :: Lens' AccountsGet' Bool
115− = lens _agPrettyPrint
116− (\ s a -> s{_agPrettyPrint = a})
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})
123-- | Account to get information about. Tip: \'myaccount\' is a valid ID.
69-- | Account to get information about. Tip: \'myaccount\' is a valid ID.
124agAccountId :: Lens' AccountsGet' Text
70agAccountId :: Lens' AccountsGet' Text
125agAccountId
71agAccountId
126 = lens _agAccountId (\ s a -> s{_agAccountId = a})
72 = lens _agAccountId (\ s a -> s{_agAccountId = a})
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
131−agKey :: Lens' AccountsGet' (Maybe AuthKey)
132−agKey = lens _agKey (\ s a -> s{_agKey = a})
134−-- | OAuth 2.0 token for the current user.
135−agOAuthToken :: Lens' AccountsGet' (Maybe OAuthToken)
137− = lens _agOAuthToken (\ s a -> s{_agOAuthToken = a})
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})
143−instance GoogleAuth AccountsGet' where
144− _AuthKey = agKey . _Just
145− _AuthToken = agOAuthToken . _Just
147instance GoogleRequest AccountsGet' where
74instance GoogleRequest AccountsGet' where
148 type Rs AccountsGet' = Account
75 type Rs AccountsGet' = Account
149− request = requestWith adExchangeSellerRequest
150− requestWith rq AccountsGet'{..}
76+ requestClient AccountsGet'{..}
151− = go _agAccountId _agQuotaUser (Just _agPrettyPrint)
156− (Just AltJSON)
77+ = go _agAccountId (Just AltJSON)
78+ adExchangeSellerService
158− = clientBuild (Proxy :: Proxy AccountsGetResource) rq
80+ = buildClient (Proxy :: Proxy AccountsGetResource)
gogol-adexchange-seller/gen/Network/Google/Resource/AdExchangeSeller/Accounts/List.hs+9−88
@@ -33,14 +33,8 @@ module Network.Google.Resource.AdExchangeSeller.Accounts.List
33 , AccountsList'
33 , AccountsList'
35 -- * Request Lenses
35 -- * Request Lenses
40 , alPageToken
36 , alPageToken
42 , alMaxResults
37 , alMaxResults
46import Network.Google.AdExchangeSeller.Types
40import Network.Google.AdExchangeSeller.Types
@@ -52,85 +46,31 @@ type AccountsListResource =
52 "accounts" :>
46 "accounts" :>
53 QueryParam "pageToken" Text :>
47 QueryParam "pageToken" Text :>
54 QueryParam "maxResults" Int32 :>
48 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
63-- | List all accounts available to this Ad Exchange account.
51-- | List all accounts available to this Ad Exchange account.
65-- /See:/ 'accountsList'' smart constructor.
53-- /See:/ 'accountsList'' smart constructor.
66data AccountsList' = AccountsList'
54data AccountsList' = AccountsList'
67− { _alQuotaUser :: !(Maybe Text)
68− , _alPrettyPrint :: !Bool
69− , _alUserIP :: !(Maybe Text)
70− , _alKey :: !(Maybe AuthKey)
71− , _alPageToken :: !(Maybe Text)
55+ { _alPageToken :: !(Maybe Text)
72− , _alOAuthToken :: !(Maybe OAuthToken)
73− , _alMaxResults :: !(Maybe Int32)
56+ , _alMaxResults :: !(Maybe Int32)
74− , _alFields :: !(Maybe Text)
75 } deriving (Eq,Show,Data,Typeable,Generic)
57 } deriving (Eq,Show,Data,Typeable,Generic)
77-- | Creates a value of 'AccountsList'' with the minimum fields required to make a request.
59-- | Creates a value of 'AccountsList'' with the minimum fields required to make a request.
79-- Use one of the following lenses to modify other fields as desired:
61-- Use one of the following lenses to modify other fields as desired:
89-- * 'alPageToken'
63-- * 'alPageToken'
93-- * 'alMaxResults'
65-- * 'alMaxResults'
96accountsList'
66accountsList'
97 :: AccountsList'
67 :: AccountsList'
98accountsList' =
68accountsList' =
99 AccountsList'
69 AccountsList'
100− { _alQuotaUser = Nothing
101− , _alPrettyPrint = True
102− , _alUserIP = Nothing
104− , _alPageToken = Nothing
70+ { _alPageToken = Nothing
105− , _alOAuthToken = Nothing
106 , _alMaxResults = Nothing
71 , _alMaxResults = Nothing
107− , _alFields = Nothing
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)
115− = lens _alQuotaUser (\ s a -> s{_alQuotaUser = a})
117−-- | Returns response with indentations and line breaks.
118−alPrettyPrint :: Lens' AccountsList' Bool
120− = lens _alPrettyPrint
121− (\ s a -> s{_alPrettyPrint = a})
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})
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
131−alKey :: Lens' AccountsList' (Maybe AuthKey)
132−alKey = lens _alKey (\ s a -> s{_alKey = a})
134-- | A continuation token, used to page through accounts. To retrieve the
74-- | A continuation token, used to page through accounts. To retrieve the
135-- next page, set this parameter to the value of \"nextPageToken\" from the
75-- next page, set this parameter to the value of \"nextPageToken\" from the
136-- previous response.
76-- previous response.
@@ -138,36 +78,17 @@ alPageToken :: Lens' AccountsList' (Maybe Text)
138alPageToken
78alPageToken
139 = lens _alPageToken (\ s a -> s{_alPageToken = a})
79 = lens _alPageToken (\ s a -> s{_alPageToken = a})
141−-- | OAuth 2.0 token for the current user.
142−alOAuthToken :: Lens' AccountsList' (Maybe OAuthToken)
144− = lens _alOAuthToken (\ s a -> s{_alOAuthToken = a})
146-- | The maximum number of accounts to include in the response, used for
81-- | The maximum number of accounts to include in the response, used for
147-- paging.
82-- paging.
148alMaxResults :: Lens' AccountsList' (Maybe Int32)
83alMaxResults :: Lens' AccountsList' (Maybe Int32)
149alMaxResults
84alMaxResults
150 = lens _alMaxResults (\ s a -> s{_alMaxResults = a})
85 = lens _alMaxResults (\ s a -> s{_alMaxResults = a})
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})
156−instance GoogleAuth AccountsList' where
157− _AuthKey = alKey . _Just
158− _AuthToken = alOAuthToken . _Just
160instance GoogleRequest AccountsList' where
87instance GoogleRequest AccountsList' where
161 type Rs AccountsList' = Accounts
88 type Rs AccountsList' = Accounts
162− request = requestWith adExchangeSellerRequest
163− requestWith rq AccountsList'{..}
89+ requestClient AccountsList'{..}
164− = go _alPageToken _alMaxResults _alQuotaUser
90+ = go _alPageToken _alMaxResults (Just AltJSON)
165− (Just _alPrettyPrint)
91+ adExchangeSellerService
172− = clientBuild (Proxy :: Proxy AccountsListResource)
93+ = buildClient (Proxy :: Proxy AccountsListResource)
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
34 , AccountsMetadataDimensionsList'
34 , AccountsMetadataDimensionsList'
36 -- * Request Lenses
36 -- * Request Lenses
40 , amdlAccountId
37 , amdlAccountId
46import Network.Google.AdExchangeSeller.Types
40import Network.Google.AdExchangeSeller.Types
@@ -53,121 +47,43 @@ type AccountsMetadataDimensionsListResource =
53 Capture "accountId" Text :>
47 Capture "accountId" Text :>
54 "metadata" :>
48 "metadata" :>
55 "dimensions" :>
49 "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
64-- | List the metadata for the dimensions available to this AdExchange
52-- | List the metadata for the dimensions available to this AdExchange
65-- account.
53-- account.
67-- /See:/ 'accountsMetadataDimensionsList'' smart constructor.
55-- /See:/ 'accountsMetadataDimensionsList'' smart constructor.
68−data AccountsMetadataDimensionsList' = AccountsMetadataDimensionsList'
56+newtype AccountsMetadataDimensionsList' = AccountsMetadataDimensionsList'
69− { _amdlQuotaUser :: !(Maybe Text)
70− , _amdlPrettyPrint :: !Bool
71− , _amdlUserIP :: !(Maybe Text)
72− , _amdlAccountId :: !Text
57+ { _amdlAccountId :: Text
73− , _amdlKey :: !(Maybe AuthKey)
74− , _amdlOAuthToken :: !(Maybe OAuthToken)
75− , _amdlFields :: !(Maybe Text)
76 } deriving (Eq,Show,Data,Typeable,Generic)
58 } deriving (Eq,Show,Data,Typeable,Generic)
78-- | Creates a value of 'AccountsMetadataDimensionsList'' with the minimum fields required to make a request.
60-- | Creates a value of 'AccountsMetadataDimensionsList'' with the minimum fields required to make a request.
80-- Use one of the following lenses to modify other fields as desired:
62-- Use one of the following lenses to modify other fields as desired:
84−-- * 'amdlPrettyPrint'
88-- * 'amdlAccountId'
64-- * 'amdlAccountId'
95accountsMetadataDimensionsList'
65accountsMetadataDimensionsList'
96 :: Text -- ^ 'accountId'
66 :: Text -- ^ 'accountId'
97 -> AccountsMetadataDimensionsList'
67 -> AccountsMetadataDimensionsList'
98accountsMetadataDimensionsList' pAmdlAccountId_ =
68accountsMetadataDimensionsList' pAmdlAccountId_ =
99 AccountsMetadataDimensionsList'
69 AccountsMetadataDimensionsList'
100− { _amdlQuotaUser = Nothing
101− , _amdlPrettyPrint = True
102− , _amdlUserIP = Nothing
103− , _amdlAccountId = pAmdlAccountId_
70+ { _amdlAccountId = pAmdlAccountId_
104− , _amdlKey = Nothing
105− , _amdlOAuthToken = Nothing
106− , _amdlFields = Nothing
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)
114− = lens _amdlQuotaUser
115− (\ s a -> s{_amdlQuotaUser = a})
117−-- | Returns response with indentations and line breaks.
118−amdlPrettyPrint :: Lens' AccountsMetadataDimensionsList' Bool
120− = lens _amdlPrettyPrint
121− (\ s a -> s{_amdlPrettyPrint = a})
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)
127− = lens _amdlUserIP (\ s a -> s{_amdlUserIP = a})
129-- | Account with visibility to the dimensions.
73-- | Account with visibility to the dimensions.
130amdlAccountId :: Lens' AccountsMetadataDimensionsList' Text
74amdlAccountId :: Lens' AccountsMetadataDimensionsList' Text
131amdlAccountId
75amdlAccountId
132 = lens _amdlAccountId
76 = lens _amdlAccountId
133 (\ s a -> s{_amdlAccountId = a})
77 (\ s a -> s{_amdlAccountId = a})
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
138−amdlKey :: Lens' AccountsMetadataDimensionsList' (Maybe AuthKey)
139−amdlKey = lens _amdlKey (\ s a -> s{_amdlKey = a})
141−-- | OAuth 2.0 token for the current user.
142−amdlOAuthToken :: Lens' AccountsMetadataDimensionsList' (Maybe OAuthToken)
144− = lens _amdlOAuthToken
145− (\ s a -> s{_amdlOAuthToken = a})
147−-- | Selector specifying which fields to include in a partial response.
148−amdlFields :: Lens' AccountsMetadataDimensionsList' (Maybe Text)
150− = lens _amdlFields (\ s a -> s{_amdlFields = a})
152−instance GoogleAuth AccountsMetadataDimensionsList'
154− _AuthKey = amdlKey . _Just
155− _AuthToken = amdlOAuthToken . _Just
157instance GoogleRequest
79instance GoogleRequest
158 AccountsMetadataDimensionsList' where
80 AccountsMetadataDimensionsList' where
159 type Rs AccountsMetadataDimensionsList' = Metadata
81 type Rs AccountsMetadataDimensionsList' = Metadata
160− request = requestWith adExchangeSellerRequest
161− requestWith rq AccountsMetadataDimensionsList'{..}
82+ requestClient AccountsMetadataDimensionsList'{..}
162− = go _amdlAccountId _amdlQuotaUser
163− (Just _amdlPrettyPrint)
168− (Just AltJSON)
83+ = go _amdlAccountId (Just AltJSON)
84+ adExchangeSellerService
170− = clientBuild
86+ = buildClient
171 (Proxy ::
87 (Proxy ::
172 Proxy AccountsMetadataDimensionsListResource)
88 Proxy AccountsMetadataDimensionsListResource)
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
33 , AccountsMetadataMetricsList'
33 , AccountsMetadataMetricsList'
35 -- * Request Lenses
35 -- * Request Lenses
39 , ammlAccountId
36 , ammlAccountId
45import Network.Google.AdExchangeSeller.Types
39import Network.Google.AdExchangeSeller.Types
@@ -52,119 +46,41 @@ type AccountsMetadataMetricsListResource =
52 Capture "accountId" Text :>
46 Capture "accountId" Text :>
53 "metadata" :>
47 "metadata" :>
54 "metrics" :>
48 "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
63-- | List the metadata for the metrics available to this AdExchange account.
51-- | List the metadata for the metrics available to this AdExchange account.
65-- /See:/ 'accountsMetadataMetricsList'' smart constructor.
53-- /See:/ 'accountsMetadataMetricsList'' smart constructor.
66−data AccountsMetadataMetricsList' = AccountsMetadataMetricsList'
54+newtype AccountsMetadataMetricsList' = AccountsMetadataMetricsList'
67− { _ammlQuotaUser :: !(Maybe Text)
68− , _ammlPrettyPrint :: !Bool
69− , _ammlUserIP :: !(Maybe Text)
70− , _ammlAccountId :: !Text
55+ { _ammlAccountId :: Text
71− , _ammlKey :: !(Maybe AuthKey)
72− , _ammlOAuthToken :: !(Maybe OAuthToken)
73− , _ammlFields :: !(Maybe Text)
74 } deriving (Eq,Show,Data,Typeable,Generic)
56 } deriving (Eq,Show,Data,Typeable,Generic)
76-- | Creates a value of 'AccountsMetadataMetricsList'' with the minimum fields required to make a request.
58-- | Creates a value of 'AccountsMetadataMetricsList'' with the minimum fields required to make a request.
78-- Use one of the following lenses to modify other fields as desired:
60-- Use one of the following lenses to modify other fields as desired:
82−-- * 'ammlPrettyPrint'
86-- * 'ammlAccountId'
62-- * 'ammlAccountId'
93accountsMetadataMetricsList'
63accountsMetadataMetricsList'
94 :: Text -- ^ 'accountId'
64 :: Text -- ^ 'accountId'
95 -> AccountsMetadataMetricsList'
65 -> AccountsMetadataMetricsList'
96accountsMetadataMetricsList' pAmmlAccountId_ =
66accountsMetadataMetricsList' pAmmlAccountId_ =
97 AccountsMetadataMetricsList'
67 AccountsMetadataMetricsList'
98− { _ammlQuotaUser = Nothing
99− , _ammlPrettyPrint = True
100− , _ammlUserIP = Nothing
101− , _ammlAccountId = pAmmlAccountId_
68+ { _ammlAccountId = pAmmlAccountId_
102− , _ammlKey = Nothing
103− , _ammlOAuthToken = Nothing
104− , _ammlFields = Nothing
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)
112− = lens _ammlQuotaUser
113− (\ s a -> s{_ammlQuotaUser = a})
115−-- | Returns response with indentations and line breaks.
116−ammlPrettyPrint :: Lens' AccountsMetadataMetricsList' Bool
118− = lens _ammlPrettyPrint
119− (\ s a -> s{_ammlPrettyPrint = a})
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)
125− = lens _ammlUserIP (\ s a -> s{_ammlUserIP = a})
127-- | Account with visibility to the metrics.
71-- | Account with visibility to the metrics.
128ammlAccountId :: Lens' AccountsMetadataMetricsList' Text
72ammlAccountId :: Lens' AccountsMetadataMetricsList' Text
129ammlAccountId
73ammlAccountId
130 = lens _ammlAccountId
74 = lens _ammlAccountId
131 (\ s a -> s{_ammlAccountId = a})
75 (\ s a -> s{_ammlAccountId = a})
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
136−ammlKey :: Lens' AccountsMetadataMetricsList' (Maybe AuthKey)
137−ammlKey = lens _ammlKey (\ s a -> s{_ammlKey = a})
139−-- | OAuth 2.0 token for the current user.
140−ammlOAuthToken :: Lens' AccountsMetadataMetricsList' (Maybe OAuthToken)
142− = lens _ammlOAuthToken
143− (\ s a -> s{_ammlOAuthToken = a})
145−-- | Selector specifying which fields to include in a partial response.
146−ammlFields :: Lens' AccountsMetadataMetricsList' (Maybe Text)
148− = lens _ammlFields (\ s a -> s{_ammlFields = a})
150−instance GoogleAuth AccountsMetadataMetricsList'
152− _AuthKey = ammlKey . _Just
153− _AuthToken = ammlOAuthToken . _Just
155instance GoogleRequest AccountsMetadataMetricsList'
77instance GoogleRequest AccountsMetadataMetricsList'
157 type Rs AccountsMetadataMetricsList' = Metadata
79 type Rs AccountsMetadataMetricsList' = Metadata
158− request = requestWith adExchangeSellerRequest
159− requestWith rq AccountsMetadataMetricsList'{..}
80+ requestClient AccountsMetadataMetricsList'{..}
160− = go _ammlAccountId _ammlQuotaUser
161− (Just _ammlPrettyPrint)
166− (Just AltJSON)
81+ = go _ammlAccountId (Just AltJSON)
82+ adExchangeSellerService
168− = clientBuild
84+ = buildClient
169 (Proxy :: Proxy AccountsMetadataMetricsListResource)
85 (Proxy :: Proxy AccountsMetadataMetricsListResource)
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
33 , AccountsPreferredDealsGet'
33 , AccountsPreferredDealsGet'
35 -- * Request Lenses
35 -- * Request Lenses
39 , apdgDealId
36 , apdgDealId
40 , apdgAccountId
37 , apdgAccountId
46import Network.Google.AdExchangeSeller.Types
40import Network.Google.AdExchangeSeller.Types
@@ -53,83 +47,33 @@ type AccountsPreferredDealsGetResource =
53 Capture "accountId" Text :>
47 Capture "accountId" Text :>
54 "preferreddeals" :>
48 "preferreddeals" :>
55 Capture "dealId" Text :>
49 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
64-- | Get information about the selected Ad Exchange Preferred Deal.
52-- | Get information about the selected Ad Exchange Preferred Deal.
66-- /See:/ 'accountsPreferredDealsGet'' smart constructor.
54-- /See:/ 'accountsPreferredDealsGet'' smart constructor.
67data AccountsPreferredDealsGet' = AccountsPreferredDealsGet'
55data AccountsPreferredDealsGet' = AccountsPreferredDealsGet'
68− { _apdgQuotaUser :: !(Maybe Text)
69− , _apdgPrettyPrint :: !Bool
70− , _apdgUserIP :: !(Maybe Text)
71− , _apdgDealId :: !Text
56+ { _apdgDealId :: !Text
72− , _apdgAccountId :: !Text
57+ , _apdgAccountId :: !Text
73− , _apdgKey :: !(Maybe AuthKey)
74− , _apdgOAuthToken :: !(Maybe OAuthToken)
75− , _apdgFields :: !(Maybe Text)
76 } deriving (Eq,Show,Data,Typeable,Generic)
58 } deriving (Eq,Show,Data,Typeable,Generic)
78-- | Creates a value of 'AccountsPreferredDealsGet'' with the minimum fields required to make a request.
60-- | Creates a value of 'AccountsPreferredDealsGet'' with the minimum fields required to make a request.
80-- Use one of the following lenses to modify other fields as desired:
62-- Use one of the following lenses to modify other fields as desired:
84−-- * 'apdgPrettyPrint'
88-- * 'apdgDealId'
64-- * 'apdgDealId'
90-- * 'apdgAccountId'
66-- * 'apdgAccountId'
97accountsPreferredDealsGet'
67accountsPreferredDealsGet'
98 :: Text -- ^ 'dealId'
68 :: Text -- ^ 'dealId'
99 -> Text -- ^ 'accountId'
69 -> Text -- ^ 'accountId'
100 -> AccountsPreferredDealsGet'
70 -> AccountsPreferredDealsGet'
101accountsPreferredDealsGet' pApdgDealId_ pApdgAccountId_ =
71accountsPreferredDealsGet' pApdgDealId_ pApdgAccountId_ =
102 AccountsPreferredDealsGet'
72 AccountsPreferredDealsGet'
103− { _apdgQuotaUser = Nothing
104− , _apdgPrettyPrint = True
105− , _apdgUserIP = Nothing
106− , _apdgDealId = pApdgDealId_
73+ { _apdgDealId = pApdgDealId_
107 , _apdgAccountId = pApdgAccountId_
74 , _apdgAccountId = pApdgAccountId_
108− , _apdgKey = Nothing
109− , _apdgOAuthToken = Nothing
110− , _apdgFields = Nothing
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)
118− = lens _apdgQuotaUser
119− (\ s a -> s{_apdgQuotaUser = a})
121−-- | Returns response with indentations and line breaks.
122−apdgPrettyPrint :: Lens' AccountsPreferredDealsGet' Bool
124− = lens _apdgPrettyPrint
125− (\ s a -> s{_apdgPrettyPrint = a})
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)
131− = lens _apdgUserIP (\ s a -> s{_apdgUserIP = a})
133-- | Preferred deal to get information about.
77-- | Preferred deal to get information about.
134apdgDealId :: Lens' AccountsPreferredDealsGet' Text
78apdgDealId :: Lens' AccountsPreferredDealsGet' Text
135apdgDealId
79apdgDealId
@@ -141,40 +85,13 @@ apdgAccountId
141 = lens _apdgAccountId
85 = lens _apdgAccountId
142 (\ s a -> s{_apdgAccountId = a})
86 (\ s a -> s{_apdgAccountId = a})
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
147−apdgKey :: Lens' AccountsPreferredDealsGet' (Maybe AuthKey)
148−apdgKey = lens _apdgKey (\ s a -> s{_apdgKey = a})
150−-- | OAuth 2.0 token for the current user.
151−apdgOAuthToken :: Lens' AccountsPreferredDealsGet' (Maybe OAuthToken)
153− = lens _apdgOAuthToken
154− (\ s a -> s{_apdgOAuthToken = a})
156−-- | Selector specifying which fields to include in a partial response.
157−apdgFields :: Lens' AccountsPreferredDealsGet' (Maybe Text)
159− = lens _apdgFields (\ s a -> s{_apdgFields = a})
161−instance GoogleAuth AccountsPreferredDealsGet' where
162− _AuthKey = apdgKey . _Just
163− _AuthToken = apdgOAuthToken . _Just
165instance GoogleRequest AccountsPreferredDealsGet'
88instance GoogleRequest AccountsPreferredDealsGet'
167 type Rs AccountsPreferredDealsGet' = PreferredDeal
90 type Rs AccountsPreferredDealsGet' = PreferredDeal
168− request = requestWith adExchangeSellerRequest
169− requestWith rq AccountsPreferredDealsGet'{..}
91+ requestClient AccountsPreferredDealsGet'{..}
170− = go _apdgAccountId _apdgDealId _apdgQuotaUser
92+ = go _apdgAccountId _apdgDealId (Just AltJSON)
171− (Just _apdgPrettyPrint)
93+ adExchangeSellerService
178− = clientBuild
95+ = buildClient
179 (Proxy :: Proxy AccountsPreferredDealsGetResource)
96 (Proxy :: Proxy AccountsPreferredDealsGetResource)
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
33 , AccountsPreferredDealsList'
33 , AccountsPreferredDealsList'
35 -- * Request Lenses
35 -- * Request Lenses
39 , apdlAccountId
36 , apdlAccountId
45import Network.Google.AdExchangeSeller.Types
39import Network.Google.AdExchangeSeller.Types
@@ -51,119 +45,42 @@ type AccountsPreferredDealsListResource =
51 "accounts" :>
45 "accounts" :>
52 Capture "accountId" Text :>
46 Capture "accountId" Text :>
53 "preferreddeals" :>
47 "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 :>
48+ QueryParam "alt" AltJSON :>
61− Get '[JSON] PreferredDeals
49+ Get '[JSON] PreferredDeals
63-- | List the preferred deals for this Ad Exchange account.
51-- | List the preferred deals for this Ad Exchange account.
65-- /See:/ 'accountsPreferredDealsList'' smart constructor.
53-- /See:/ 'accountsPreferredDealsList'' smart constructor.
66−data AccountsPreferredDealsList' = AccountsPreferredDealsList'
54+newtype AccountsPreferredDealsList' = AccountsPreferredDealsList'
67− { _apdlQuotaUser :: !(Maybe Text)
68− , _apdlPrettyPrint :: !Bool
69− , _apdlUserIP :: !(Maybe Text)
70− , _apdlAccountId :: !Text
55+ { _apdlAccountId :: Text
71− , _apdlKey :: !(Maybe AuthKey)
72− , _apdlOAuthToken :: !(Maybe OAuthToken)
73− , _apdlFields :: !(Maybe Text)
74 } deriving (Eq,Show,Data,Typeable,Generic)
56 } deriving (Eq,Show,Data,Typeable,Generic)
76-- | Creates a value of 'AccountsPreferredDealsList'' with the minimum fields required to make a request.
58-- | Creates a value of 'AccountsPreferredDealsList'' with the minimum fields required to make a request.
78-- Use one of the following lenses to modify other fields as desired:
60-- Use one of the following lenses to modify other fields as desired:
82−-- * 'apdlPrettyPrint'
86-- * 'apdlAccountId'
62-- * 'apdlAccountId'
93accountsPreferredDealsList'
63accountsPreferredDealsList'
94 :: Text -- ^ 'accountId'
64 :: Text -- ^ 'accountId'
95 -> AccountsPreferredDealsList'
65 -> AccountsPreferredDealsList'
96accountsPreferredDealsList' pApdlAccountId_ =
66accountsPreferredDealsList' pApdlAccountId_ =
97 AccountsPreferredDealsList'
67 AccountsPreferredDealsList'
98− { _apdlQuotaUser = Nothing
99− , _apdlPrettyPrint = True
100− , _apdlUserIP = Nothing
101− , _apdlAccountId = pApdlAccountId_
68+ { _apdlAccountId = pApdlAccountId_
102− , _apdlKey = Nothing
103− , _apdlOAuthToken = Nothing
104− , _apdlFields = Nothing
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)
112− = lens _apdlQuotaUser
113− (\ s a -> s{_apdlQuotaUser = a})
115−-- | Returns response with indentations and line breaks.
116−apdlPrettyPrint :: Lens' AccountsPreferredDealsList' Bool
118− = lens _apdlPrettyPrint
119− (\ s a -> s{_apdlPrettyPrint = a})
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)
125− = lens _apdlUserIP (\ s a -> s{_apdlUserIP = a})
127-- | Account owning the deals.
71-- | Account owning the deals.
128apdlAccountId :: Lens' AccountsPreferredDealsList' Text
72apdlAccountId :: Lens' AccountsPreferredDealsList' Text
129apdlAccountId
73apdlAccountId
130 = lens _apdlAccountId
74 = lens _apdlAccountId
131 (\ s a -> s{_apdlAccountId = a})
75 (\ s a -> s{_apdlAccountId = a})
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
136−apdlKey :: Lens' AccountsPreferredDealsList' (Maybe AuthKey)
137−apdlKey = lens _apdlKey (\ s a -> s{_apdlKey = a})
139−-- | OAuth 2.0 token for the current user.
140−apdlOAuthToken :: Lens' AccountsPreferredDealsList' (Maybe OAuthToken)
142− = lens _apdlOAuthToken
143− (\ s a -> s{_apdlOAuthToken = a})
145−-- | Selector specifying which fields to include in a partial response.
146−apdlFields :: Lens' AccountsPreferredDealsList' (Maybe Text)
148− = lens _apdlFields (\ s a -> s{_apdlFields = a})
150−instance GoogleAuth AccountsPreferredDealsList' where
151− _AuthKey = apdlKey . _Just
152− _AuthToken = apdlOAuthToken . _Just
154instance GoogleRequest AccountsPreferredDealsList'
77instance GoogleRequest AccountsPreferredDealsList'
156 type Rs AccountsPreferredDealsList' = PreferredDeals
79 type Rs AccountsPreferredDealsList' = PreferredDeals
157− request = requestWith adExchangeSellerRequest
158− requestWith rq AccountsPreferredDealsList'{..}
80+ requestClient AccountsPreferredDealsList'{..}
159− = go _apdlAccountId _apdlQuotaUser
160− (Just _apdlPrettyPrint)
165− (Just AltJSON)
81+ = go _apdlAccountId (Just AltJSON)
82+ adExchangeSellerService
167− = clientBuild
84+ = buildClient
168 (Proxy :: Proxy AccountsPreferredDealsListResource)
85 (Proxy :: Proxy AccountsPreferredDealsListResource)
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
35 , AccountsReportsGenerate'
35 , AccountsReportsGenerate'
37 -- * Request Lenses
37 -- * Request Lenses
41 , argDimension
38 , argDimension
42 , argLocale
39 , argLocale
43 , argEndDate
40 , argEndDate
44 , argStartDate
41 , argStartDate
45 , argAccountId
42 , argAccountId
46 , argMetric
43 , argMetric
49 , argFilter
45 , argFilter
51 , argStartIndex
46 , argStartIndex
52 , argMaxResults
47 , argMaxResults
56import Network.Google.AdExchangeSeller.Types
50import Network.Google.AdExchangeSeller.Types
@@ -71,14 +65,7 @@ type AccountsReportsGenerateResource =
71 QueryParams "filter" Text :>
65 QueryParams "filter" Text :>
72 QueryParam "startIndex" Word32 :>
66 QueryParam "startIndex" Word32 :>
73 QueryParam "maxResults" Word32 :>
67 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
83 "accounts" :>
70 "accounts" :>
84 Capture "accountId" Text :>
71 Capture "accountId" Text :>
@@ -92,14 +79,8 @@ type AccountsReportsGenerateResource =
92 QueryParams "filter" Text :>
79 QueryParams "filter" Text :>
93 QueryParam "startIndex" Word32 :>
80 QueryParam "startIndex" Word32 :>
94 QueryParam "maxResults" Word32 :>
81 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 :>
82+ QueryParam "alt" AltMedia :>
102− Get '[OctetStream] Stream
83+ Get '[OctetStream] Stream
104-- | Generate an Ad Exchange report based on the report request sent in the
85-- | Generate an Ad Exchange report based on the report request sent in the
105-- query parameters. Returns the result as JSON; to retrieve output in CSV
86-- query parameters. Returns the result as JSON; to retrieve output in CSV
@@ -107,34 +88,22 @@ type AccountsReportsGenerateResource =
108-- /See:/ 'accountsReportsGenerate'' smart constructor.
89-- /See:/ 'accountsReportsGenerate'' smart constructor.
109data AccountsReportsGenerate' = AccountsReportsGenerate'
90data AccountsReportsGenerate' = AccountsReportsGenerate'
110− { _argQuotaUser :: !(Maybe Text)
111− , _argPrettyPrint :: !Bool
112− , _argUserIP :: !(Maybe Text)
113− , _argDimension :: !(Maybe [Text])
91+ { _argDimension :: !(Maybe [Text])
114− , _argLocale :: !(Maybe Text)
92+ , _argLocale :: !(Maybe Text)
115− , _argEndDate :: !Text
93+ , _argEndDate :: !Text
116− , _argStartDate :: !Text
94+ , _argStartDate :: !Text
117− , _argAccountId :: !Text
95+ , _argAccountId :: !Text
118− , _argMetric :: !(Maybe [Text])
96+ , _argMetric :: !(Maybe [Text])
119− , _argKey :: !(Maybe AuthKey)
120− , _argSort :: !(Maybe [Text])
97+ , _argSort :: !(Maybe [Text])
121− , _argFilter :: !(Maybe [Text])
98+ , _argFilter :: !(Maybe [Text])
122− , _argOAuthToken :: !(Maybe OAuthToken)
123− , _argStartIndex :: !(Maybe Word32)
99+ , _argStartIndex :: !(Maybe Word32)
124− , _argMaxResults :: !(Maybe Word32)
100+ , _argMaxResults :: !(Maybe Word32)
125− , _argFields :: !(Maybe Text)
126 } deriving (Eq,Show,Data,Typeable,Generic)
101 } deriving (Eq,Show,Data,Typeable,Generic)
128-- | Creates a value of 'AccountsReportsGenerate'' with the minimum fields required to make a request.
103-- | Creates a value of 'AccountsReportsGenerate'' with the minimum fields required to make a request.
130-- Use one of the following lenses to modify other fields as desired:
105-- Use one of the following lenses to modify other fields as desired:
134−-- * 'argPrettyPrint'
138-- * 'argDimension'
107-- * 'argDimension'
140-- * 'argLocale'
109-- * 'argLocale'
@@ -147,19 +116,13 @@ data AccountsReportsGenerate' = AccountsReportsGenerate'
148-- * 'argMetric'
117-- * 'argMetric'
152-- * 'argSort'
119-- * 'argSort'
154-- * 'argFilter'
121-- * 'argFilter'
158-- * 'argStartIndex'
123-- * 'argStartIndex'
160-- * 'argMaxResults'
125-- * 'argMaxResults'
163accountsReportsGenerate'
126accountsReportsGenerate'
164 :: Text -- ^ 'endDate'
127 :: Text -- ^ 'endDate'
165 -> Text -- ^ 'startDate'
128 -> Text -- ^ 'startDate'
@@ -167,43 +130,18 @@ accountsReportsGenerate'
167 -> AccountsReportsGenerate'
130 -> AccountsReportsGenerate'
168accountsReportsGenerate' pArgEndDate_ pArgStartDate_ pArgAccountId_ =
131accountsReportsGenerate' pArgEndDate_ pArgStartDate_ pArgAccountId_ =
169 AccountsReportsGenerate'
132 AccountsReportsGenerate'
170− { _argQuotaUser = Nothing
171− , _argPrettyPrint = True
172− , _argUserIP = Nothing
173− , _argDimension = Nothing
133+ { _argDimension = Nothing
174 , _argLocale = Nothing
134 , _argLocale = Nothing
175 , _argEndDate = pArgEndDate_
135 , _argEndDate = pArgEndDate_
176 , _argStartDate = pArgStartDate_
136 , _argStartDate = pArgStartDate_
177 , _argAccountId = pArgAccountId_
137 , _argAccountId = pArgAccountId_
178 , _argMetric = Nothing
138 , _argMetric = Nothing
180 , _argSort = Nothing
139 , _argSort = Nothing
181 , _argFilter = Nothing
140 , _argFilter = Nothing
182− , _argOAuthToken = Nothing
183 , _argStartIndex = Nothing
141 , _argStartIndex = Nothing
184 , _argMaxResults = Nothing
142 , _argMaxResults = Nothing
185− , _argFields = Nothing
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)
193− = lens _argQuotaUser (\ s a -> s{_argQuotaUser = a})
195−-- | Returns response with indentations and line breaks.
196−argPrettyPrint :: Lens' AccountsReportsGenerate' Bool
198− = lens _argPrettyPrint
199− (\ s a -> s{_argPrettyPrint = a})
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)
205− = lens _argUserIP (\ s a -> s{_argUserIP = a})
207-- | Dimensions to base the report on.
145-- | Dimensions to base the report on.
208argDimension :: Lens' AccountsReportsGenerate' [Text]
146argDimension :: Lens' AccountsReportsGenerate' [Text]
209argDimension
147argDimension
@@ -240,12 +178,6 @@ argMetric
241 . _Coerce
179 . _Coerce
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
246−argKey :: Lens' AccountsReportsGenerate' (Maybe AuthKey)
247−argKey = lens _argKey (\ s a -> s{_argKey = a})
249-- | The name of a dimension or metric to sort the resulting report on,
181-- | The name of a dimension or metric to sort the resulting report on,
250-- optionally prefixed with \"+\" to sort ascending or \"-\" to sort
182-- optionally prefixed with \"+\" to sort ascending or \"-\" to sort
251-- descending. If no prefix is specified, the column is sorted ascending.
183-- descending. If no prefix is specified, the column is sorted ascending.
@@ -261,12 +193,6 @@ argFilter
262 . _Coerce
194 . _Coerce
264−-- | OAuth 2.0 token for the current user.
265−argOAuthToken :: Lens' AccountsReportsGenerate' (Maybe OAuthToken)
267− = lens _argOAuthToken
268− (\ s a -> s{_argOAuthToken = a})
270-- | Index of the first row of report data to return.
196-- | Index of the first row of report data to return.
271argStartIndex :: Lens' AccountsReportsGenerate' (Maybe Word32)
197argStartIndex :: Lens' AccountsReportsGenerate' (Maybe Word32)
272argStartIndex
198argStartIndex
@@ -279,19 +205,9 @@ argMaxResults
279 = lens _argMaxResults
205 = lens _argMaxResults
280 (\ s a -> s{_argMaxResults = a})
206 (\ s a -> s{_argMaxResults = a})
282−-- | Selector specifying which fields to include in a partial response.
283−argFields :: Lens' AccountsReportsGenerate' (Maybe Text)
285− = lens _argFields (\ s a -> s{_argFields = a})
287−instance GoogleAuth AccountsReportsGenerate' where
288− _AuthKey = argKey . _Just
289− _AuthToken = argOAuthToken . _Just
291instance GoogleRequest AccountsReportsGenerate' where
208instance GoogleRequest AccountsReportsGenerate' where
292 type Rs AccountsReportsGenerate' = Report
209 type Rs AccountsReportsGenerate' = Report
293− request = requestWith adExchangeSellerRequest
294− requestWith rq AccountsReportsGenerate'{..}
210+ requestClient AccountsReportsGenerate'{..}
295 = go _argAccountId (Just _argStartDate)
211 = go _argAccountId (Just _argStartDate)
296 (Just _argEndDate)
212 (Just _argEndDate)
297 (_argDimension ^. _Default)
213 (_argDimension ^. _Default)
@@ -301,24 +217,18 @@ instance GoogleRequest AccountsReportsGenerate' where
301 (_argFilter ^. _Default)
217 (_argFilter ^. _Default)
302 _argStartIndex
218 _argStartIndex
303 _argMaxResults
219 _argMaxResults
305− (Just _argPrettyPrint)
310 (Just AltJSON)
220 (Just AltJSON)
221+ adExchangeSellerService
311 where go :<|> _
222 where go :<|> _
312− = clientBuild
223+ = buildClient
313 (Proxy :: Proxy AccountsReportsGenerateResource)
224 (Proxy :: Proxy AccountsReportsGenerateResource)
316instance GoogleRequest
227instance GoogleRequest
317 (MediaDownload AccountsReportsGenerate') where
228 (MediaDownload AccountsReportsGenerate') where
318 type Rs (MediaDownload AccountsReportsGenerate') =
229 type Rs (MediaDownload AccountsReportsGenerate') =
320− request = requestWith adExchangeSellerRequest
231+ requestClient
322 (MediaDownload AccountsReportsGenerate'{..})
232 (MediaDownload AccountsReportsGenerate'{..})
323 = go _argAccountId (Just _argStartDate)
233 = go _argAccountId (Just _argStartDate)
324 (Just _argEndDate)
234 (Just _argEndDate)
@@ -329,14 +239,9 @@ instance GoogleRequest
329 (_argFilter ^. _Default)
239 (_argFilter ^. _Default)
330 _argStartIndex
240 _argStartIndex
331 _argMaxResults
241 _argMaxResults
333− (Just _argPrettyPrint)
338 (Just AltMedia)
242 (Just AltMedia)
243+ adExchangeSellerService
339 where _ :<|> go
244 where _ :<|> go
340− = clientBuild
245+ = buildClient
341 (Proxy :: Proxy AccountsReportsGenerateResource)
246 (Proxy :: Proxy AccountsReportsGenerateResource)
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
34 , AccountsReportsSavedGenerate'
34 , AccountsReportsSavedGenerate'
36 -- * Request Lenses
36 -- * Request Lenses
40 , arsgLocale
37 , arsgLocale
41 , arsgSavedReportId
38 , arsgSavedReportId
42 , arsgAccountId
39 , arsgAccountId
45 , arsgStartIndex
40 , arsgStartIndex
46 , arsgMaxResults
41 , arsgMaxResults
50import Network.Google.AdExchangeSeller.Types
44import Network.Google.AdExchangeSeller.Types
@@ -60,96 +54,46 @@ type AccountsReportsSavedGenerateResource =
60 QueryParam "locale" Text :>
54 QueryParam "locale" Text :>
61 QueryParam "startIndex" Int32 :>
55 QueryParam "startIndex" Int32 :>
62 QueryParam "maxResults" Int32 :>
56 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
71-- | Generate an Ad Exchange report based on the saved report ID sent in the
59-- | Generate an Ad Exchange report based on the saved report ID sent in the
72-- query parameters.
60-- query parameters.
74-- /See:/ 'accountsReportsSavedGenerate'' smart constructor.
62-- /See:/ 'accountsReportsSavedGenerate'' smart constructor.
75data AccountsReportsSavedGenerate' = AccountsReportsSavedGenerate'
63data AccountsReportsSavedGenerate' = AccountsReportsSavedGenerate'
76− { _arsgQuotaUser :: !(Maybe Text)
77− , _arsgPrettyPrint :: !Bool
78− , _arsgUserIP :: !(Maybe Text)
79− , _arsgLocale :: !(Maybe Text)
64+ { _arsgLocale :: !(Maybe Text)
80 , _arsgSavedReportId :: !Text
65 , _arsgSavedReportId :: !Text
81 , _arsgAccountId :: !Text
66 , _arsgAccountId :: !Text
82− , _arsgKey :: !(Maybe AuthKey)
83− , _arsgOAuthToken :: !(Maybe OAuthToken)
84 , _arsgStartIndex :: !(Maybe Int32)
67 , _arsgStartIndex :: !(Maybe Int32)
85 , _arsgMaxResults :: !(Maybe Int32)
68 , _arsgMaxResults :: !(Maybe Int32)
86− , _arsgFields :: !(Maybe Text)
87 } deriving (Eq,Show,Data,Typeable,Generic)
69 } deriving (Eq,Show,Data,Typeable,Generic)
89-- | Creates a value of 'AccountsReportsSavedGenerate'' with the minimum fields required to make a request.
71-- | Creates a value of 'AccountsReportsSavedGenerate'' with the minimum fields required to make a request.
91-- Use one of the following lenses to modify other fields as desired:
73-- Use one of the following lenses to modify other fields as desired:
95−-- * 'arsgPrettyPrint'
99-- * 'arsgLocale'
75-- * 'arsgLocale'
101-- * 'arsgSavedReportId'
77-- * 'arsgSavedReportId'
103-- * 'arsgAccountId'
79-- * 'arsgAccountId'
107−-- * 'arsgOAuthToken'
109-- * 'arsgStartIndex'
81-- * 'arsgStartIndex'
111-- * 'arsgMaxResults'
83-- * 'arsgMaxResults'
114accountsReportsSavedGenerate'
84accountsReportsSavedGenerate'
115 :: Text -- ^ 'savedReportId'
85 :: Text -- ^ 'savedReportId'
116 -> Text -- ^ 'accountId'
86 -> Text -- ^ 'accountId'
117 -> AccountsReportsSavedGenerate'
87 -> AccountsReportsSavedGenerate'
118accountsReportsSavedGenerate' pArsgSavedReportId_ pArsgAccountId_ =
88accountsReportsSavedGenerate' pArsgSavedReportId_ pArsgAccountId_ =
119 AccountsReportsSavedGenerate'
89 AccountsReportsSavedGenerate'
120− { _arsgQuotaUser = Nothing
121− , _arsgPrettyPrint = True
122− , _arsgUserIP = Nothing
123− , _arsgLocale = Nothing
90+ { _arsgLocale = Nothing
124 , _arsgSavedReportId = pArsgSavedReportId_
91 , _arsgSavedReportId = pArsgSavedReportId_
125 , _arsgAccountId = pArsgAccountId_
92 , _arsgAccountId = pArsgAccountId_
126− , _arsgKey = Nothing
127− , _arsgOAuthToken = Nothing
128 , _arsgStartIndex = Nothing
93 , _arsgStartIndex = Nothing
129 , _arsgMaxResults = Nothing
94 , _arsgMaxResults = Nothing
130− , _arsgFields = Nothing
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)
138− = lens _arsgQuotaUser
139− (\ s a -> s{_arsgQuotaUser = a})
141−-- | Returns response with indentations and line breaks.
142−arsgPrettyPrint :: Lens' AccountsReportsSavedGenerate' Bool
144− = lens _arsgPrettyPrint
145− (\ s a -> s{_arsgPrettyPrint = a})
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)
151− = lens _arsgUserIP (\ s a -> s{_arsgUserIP = a})
153-- | Optional locale to use for translating report output to a local
97-- | Optional locale to use for translating report output to a local
154-- language. Defaults to \"en_US\" if not specified.
98-- language. Defaults to \"en_US\" if not specified.
155arsgLocale :: Lens' AccountsReportsSavedGenerate' (Maybe Text)
99arsgLocale :: Lens' AccountsReportsSavedGenerate' (Maybe Text)
@@ -168,18 +112,6 @@ arsgAccountId
168 = lens _arsgAccountId
112 = lens _arsgAccountId
169 (\ s a -> s{_arsgAccountId = a})
113 (\ s a -> s{_arsgAccountId = a})
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
174−arsgKey :: Lens' AccountsReportsSavedGenerate' (Maybe AuthKey)
175−arsgKey = lens _arsgKey (\ s a -> s{_arsgKey = a})
177−-- | OAuth 2.0 token for the current user.
178−arsgOAuthToken :: Lens' AccountsReportsSavedGenerate' (Maybe OAuthToken)
180− = lens _arsgOAuthToken
181− (\ s a -> s{_arsgOAuthToken = a})
183-- | Index of the first row of report data to return.
115-- | Index of the first row of report data to return.
184arsgStartIndex :: Lens' AccountsReportsSavedGenerate' (Maybe Int32)
116arsgStartIndex :: Lens' AccountsReportsSavedGenerate' (Maybe Int32)
185arsgStartIndex
117arsgStartIndex
@@ -192,32 +124,16 @@ arsgMaxResults
192 = lens _arsgMaxResults
124 = lens _arsgMaxResults
193 (\ s a -> s{_arsgMaxResults = a})
125 (\ s a -> s{_arsgMaxResults = a})
195−-- | Selector specifying which fields to include in a partial response.
196−arsgFields :: Lens' AccountsReportsSavedGenerate' (Maybe Text)
198− = lens _arsgFields (\ s a -> s{_arsgFields = a})
200−instance GoogleAuth AccountsReportsSavedGenerate'
202− _AuthKey = arsgKey . _Just
203− _AuthToken = arsgOAuthToken . _Just
205instance GoogleRequest AccountsReportsSavedGenerate'
127instance GoogleRequest AccountsReportsSavedGenerate'
207 type Rs AccountsReportsSavedGenerate' = Report
129 type Rs AccountsReportsSavedGenerate' = Report
208− request = requestWith adExchangeSellerRequest
209− requestWith rq AccountsReportsSavedGenerate'{..}
130+ requestClient AccountsReportsSavedGenerate'{..}
210 = go _arsgAccountId _arsgSavedReportId _arsgLocale
131 = go _arsgAccountId _arsgSavedReportId _arsgLocale
211 _arsgStartIndex
132 _arsgStartIndex
212 _arsgMaxResults
133 _arsgMaxResults
214− (Just _arsgPrettyPrint)
219 (Just AltJSON)
134 (Just AltJSON)
135+ adExchangeSellerService
221− = clientBuild
137+ = buildClient
222 (Proxy :: Proxy AccountsReportsSavedGenerateResource)
138 (Proxy :: Proxy AccountsReportsSavedGenerateResource)
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
33 , AccountsReportsSavedList'
33 , AccountsReportsSavedList'
35 -- * Request Lenses
35 -- * Request Lenses
39 , arslAccountId
36 , arslAccountId
41 , arslPageToken
37 , arslPageToken
43 , arslMaxResults
38 , arslMaxResults
47import Network.Google.AdExchangeSeller.Types
41import Network.Google.AdExchangeSeller.Types
@@ -56,99 +50,42 @@ type AccountsReportsSavedListResource =
56 "saved" :>
50 "saved" :>
57 QueryParam "pageToken" Text :>
51 QueryParam "pageToken" Text :>
58 QueryParam "maxResults" Int32 :>
52 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
68-- | List all saved reports in this Ad Exchange account.
55-- | List all saved reports in this Ad Exchange account.
70-- /See:/ 'accountsReportsSavedList'' smart constructor.
57-- /See:/ 'accountsReportsSavedList'' smart constructor.
71data AccountsReportsSavedList' = AccountsReportsSavedList'
58data AccountsReportsSavedList' = AccountsReportsSavedList'
72− { _arslQuotaUser :: !(Maybe Text)
73− , _arslPrettyPrint :: !Bool
74− , _arslUserIP :: !(Maybe Text)
75− , _arslAccountId :: !Text
59+ { _arslAccountId :: !Text
76− , _arslKey :: !(Maybe AuthKey)
77− , _arslPageToken :: !(Maybe Text)
60+ , _arslPageToken :: !(Maybe Text)
78− , _arslOAuthToken :: !(Maybe OAuthToken)
79− , _arslMaxResults :: !(Maybe Int32)
61+ , _arslMaxResults :: !(Maybe Int32)
80− , _arslFields :: !(Maybe Text)
81 } deriving (Eq,Show,Data,Typeable,Generic)
62 } deriving (Eq,Show,Data,Typeable,Generic)
83-- | Creates a value of 'AccountsReportsSavedList'' with the minimum fields required to make a request.
64-- | Creates a value of 'AccountsReportsSavedList'' with the minimum fields required to make a request.
85-- Use one of the following lenses to modify other fields as desired:
66-- Use one of the following lenses to modify other fields as desired:
89−-- * 'arslPrettyPrint'
93-- * 'arslAccountId'
68-- * 'arslAccountId'
97-- * 'arslPageToken'
70-- * 'arslPageToken'
101-- * 'arslMaxResults'
72-- * 'arslMaxResults'
104accountsReportsSavedList'
73accountsReportsSavedList'
105 :: Text -- ^ 'accountId'
74 :: Text -- ^ 'accountId'
106 -> AccountsReportsSavedList'
75 -> AccountsReportsSavedList'
107accountsReportsSavedList' pArslAccountId_ =
76accountsReportsSavedList' pArslAccountId_ =
108 AccountsReportsSavedList'
77 AccountsReportsSavedList'
109− { _arslQuotaUser = Nothing
110− , _arslPrettyPrint = True
111− , _arslUserIP = Nothing
112− , _arslAccountId = pArslAccountId_
78+ { _arslAccountId = pArslAccountId_
113− , _arslKey = Nothing
114 , _arslPageToken = Nothing
79 , _arslPageToken = Nothing
115− , _arslOAuthToken = Nothing
116 , _arslMaxResults = Nothing
80 , _arslMaxResults = Nothing
117− , _arslFields = Nothing
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)
125− = lens _arslQuotaUser
126− (\ s a -> s{_arslQuotaUser = a})
128−-- | Returns response with indentations and line breaks.
129−arslPrettyPrint :: Lens' AccountsReportsSavedList' Bool
131− = lens _arslPrettyPrint
132− (\ s a -> s{_arslPrettyPrint = a})
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)
138− = lens _arslUserIP (\ s a -> s{_arslUserIP = a})
140-- | Account owning the saved reports.
83-- | Account owning the saved reports.
141arslAccountId :: Lens' AccountsReportsSavedList' Text
84arslAccountId :: Lens' AccountsReportsSavedList' Text
142arslAccountId
85arslAccountId
143 = lens _arslAccountId
86 = lens _arslAccountId
144 (\ s a -> s{_arslAccountId = a})
87 (\ s a -> s{_arslAccountId = a})
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
149−arslKey :: Lens' AccountsReportsSavedList' (Maybe AuthKey)
150−arslKey = lens _arslKey (\ s a -> s{_arslKey = a})
152-- | A continuation token, used to page through saved reports. To retrieve
89-- | A continuation token, used to page through saved reports. To retrieve
153-- the next page, set this parameter to the value of \"nextPageToken\" from
90-- the next page, set this parameter to the value of \"nextPageToken\" from
154-- the previous response.
91-- the previous response.
@@ -157,12 +94,6 @@ arslPageToken
157 = lens _arslPageToken
94 = lens _arslPageToken
158 (\ s a -> s{_arslPageToken = a})
95 (\ s a -> s{_arslPageToken = a})
160−-- | OAuth 2.0 token for the current user.
161−arslOAuthToken :: Lens' AccountsReportsSavedList' (Maybe OAuthToken)
163− = lens _arslOAuthToken
164− (\ s a -> s{_arslOAuthToken = a})
166-- | The maximum number of saved reports to include in the response, used for
97-- | The maximum number of saved reports to include in the response, used for
167-- paging.
98-- paging.
168arslMaxResults :: Lens' AccountsReportsSavedList' (Maybe Int32)
99arslMaxResults :: Lens' AccountsReportsSavedList' (Maybe Int32)
@@ -170,29 +101,14 @@ arslMaxResults
170 = lens _arslMaxResults
101 = lens _arslMaxResults
171 (\ s a -> s{_arslMaxResults = a})
102 (\ s a -> s{_arslMaxResults = a})
173−-- | Selector specifying which fields to include in a partial response.
174−arslFields :: Lens' AccountsReportsSavedList' (Maybe Text)
176− = lens _arslFields (\ s a -> s{_arslFields = a})
178−instance GoogleAuth AccountsReportsSavedList' where
179− _AuthKey = arslKey . _Just
180− _AuthToken = arslOAuthToken . _Just
182instance GoogleRequest AccountsReportsSavedList'
104instance GoogleRequest AccountsReportsSavedList'
184 type Rs AccountsReportsSavedList' = SavedReports
106 type Rs AccountsReportsSavedList' = SavedReports
185− request = requestWith adExchangeSellerRequest
186− requestWith rq AccountsReportsSavedList'{..}
107+ requestClient AccountsReportsSavedList'{..}
187 = go _arslAccountId _arslPageToken _arslMaxResults
108 = go _arslAccountId _arslPageToken _arslMaxResults
189− (Just _arslPrettyPrint)
194 (Just AltJSON)
109 (Just AltJSON)
110+ adExchangeSellerService
196− = clientBuild
112+ = buildClient
197 (Proxy :: Proxy AccountsReportsSavedListResource)
113 (Proxy :: Proxy AccountsReportsSavedListResource)
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
34 , AccountsURLChannelsList'
34 , AccountsURLChannelsList'
36 -- * Request Lenses
36 -- * Request Lenses
40 , auclAdClientId
37 , auclAdClientId
41 , auclAccountId
38 , auclAccountId
43 , auclPageToken
39 , auclPageToken
45 , auclMaxResults
40 , auclMaxResults
49import Network.Google.AdExchangeSeller.Types
43import Network.Google.AdExchangeSeller.Types
@@ -59,93 +53,42 @@ type AccountsURLChannelsListResource =
59 "urlchannels" :>
53 "urlchannels" :>
60 QueryParam "pageToken" Text :>
54 QueryParam "pageToken" Text :>
61 QueryParam "maxResults" Word32 :>
55 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
71-- | List all URL channels in the specified ad client for this Ad Exchange
58-- | List all URL channels in the specified ad client for this Ad Exchange
72-- account.
59-- account.
74-- /See:/ 'accountsURLChannelsList'' smart constructor.
61-- /See:/ 'accountsURLChannelsList'' smart constructor.
75data AccountsURLChannelsList' = AccountsURLChannelsList'
62data AccountsURLChannelsList' = AccountsURLChannelsList'
76− { _auclQuotaUser :: !(Maybe Text)
77− , _auclPrettyPrint :: !Bool
78− , _auclUserIP :: !(Maybe Text)
79− , _auclAdClientId :: !Text
63+ { _auclAdClientId :: !Text
80− , _auclAccountId :: !Text
64+ , _auclAccountId :: !Text
81− , _auclKey :: !(Maybe AuthKey)
82− , _auclPageToken :: !(Maybe Text)
65+ , _auclPageToken :: !(Maybe Text)
83− , _auclOAuthToken :: !(Maybe OAuthToken)
84− , _auclMaxResults :: !(Maybe Word32)
66+ , _auclMaxResults :: !(Maybe Word32)
85− , _auclFields :: !(Maybe Text)
86 } deriving (Eq,Show,Data,Typeable,Generic)
67 } deriving (Eq,Show,Data,Typeable,Generic)
88-- | Creates a value of 'AccountsURLChannelsList'' with the minimum fields required to make a request.
69-- | Creates a value of 'AccountsURLChannelsList'' with the minimum fields required to make a request.
90-- Use one of the following lenses to modify other fields as desired:
71-- Use one of the following lenses to modify other fields as desired:
94−-- * 'auclPrettyPrint'
98-- * 'auclAdClientId'
73-- * 'auclAdClientId'
100-- * 'auclAccountId'
75-- * 'auclAccountId'
104-- * 'auclPageToken'
77-- * 'auclPageToken'
106−-- * 'auclOAuthToken'
108-- * 'auclMaxResults'
79-- * 'auclMaxResults'
111accountsURLChannelsList'
80accountsURLChannelsList'
112 :: Text -- ^ 'adClientId'
81 :: Text -- ^ 'adClientId'
113 -> Text -- ^ 'accountId'
82 -> Text -- ^ 'accountId'
114 -> AccountsURLChannelsList'
83 -> AccountsURLChannelsList'
115accountsURLChannelsList' pAuclAdClientId_ pAuclAccountId_ =
84accountsURLChannelsList' pAuclAdClientId_ pAuclAccountId_ =
116 AccountsURLChannelsList'
85 AccountsURLChannelsList'
117− { _auclQuotaUser = Nothing
118− , _auclPrettyPrint = True
119− , _auclUserIP = Nothing
120− , _auclAdClientId = pAuclAdClientId_
86+ { _auclAdClientId = pAuclAdClientId_
121 , _auclAccountId = pAuclAccountId_
87 , _auclAccountId = pAuclAccountId_
122− , _auclKey = Nothing
123 , _auclPageToken = Nothing
88 , _auclPageToken = Nothing
124− , _auclOAuthToken = Nothing
125 , _auclMaxResults = Nothing
89 , _auclMaxResults = Nothing
126− , _auclFields = Nothing
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)
134− = lens _auclQuotaUser
135− (\ s a -> s{_auclQuotaUser = a})
137−-- | Returns response with indentations and line breaks.
138−auclPrettyPrint :: Lens' AccountsURLChannelsList' Bool
140− = lens _auclPrettyPrint
141− (\ s a -> s{_auclPrettyPrint = a})
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)
147− = lens _auclUserIP (\ s a -> s{_auclUserIP = a})
149-- | Ad client for which to list URL channels.
92-- | Ad client for which to list URL channels.
150auclAdClientId :: Lens' AccountsURLChannelsList' Text
93auclAdClientId :: Lens' AccountsURLChannelsList' Text
151auclAdClientId
94auclAdClientId
@@ -158,12 +101,6 @@ auclAccountId
158 = lens _auclAccountId
101 = lens _auclAccountId
159 (\ s a -> s{_auclAccountId = a})
102 (\ s a -> s{_auclAccountId = a})
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
164−auclKey :: Lens' AccountsURLChannelsList' (Maybe AuthKey)
165−auclKey = lens _auclKey (\ s a -> s{_auclKey = a})
167-- | A continuation token, used to page through URL channels. To retrieve the
104-- | A continuation token, used to page through URL channels. To retrieve the
168-- next page, set this parameter to the value of \"nextPageToken\" from the
105-- next page, set this parameter to the value of \"nextPageToken\" from the
169-- previous response.
106-- previous response.
@@ -172,12 +109,6 @@ auclPageToken
172 = lens _auclPageToken
109 = lens _auclPageToken
173 (\ s a -> s{_auclPageToken = a})
110 (\ s a -> s{_auclPageToken = a})
175−-- | OAuth 2.0 token for the current user.
176−auclOAuthToken :: Lens' AccountsURLChannelsList' (Maybe OAuthToken)
178− = lens _auclOAuthToken
179− (\ s a -> s{_auclOAuthToken = a})
181-- | The maximum number of URL channels to include in the response, used for
112-- | The maximum number of URL channels to include in the response, used for
182-- paging.
113-- paging.
183auclMaxResults :: Lens' AccountsURLChannelsList' (Maybe Word32)
114auclMaxResults :: Lens' AccountsURLChannelsList' (Maybe Word32)
@@ -185,29 +116,14 @@ auclMaxResults
185 = lens _auclMaxResults
116 = lens _auclMaxResults
186 (\ s a -> s{_auclMaxResults = a})
117 (\ s a -> s{_auclMaxResults = a})
188−-- | Selector specifying which fields to include in a partial response.
189−auclFields :: Lens' AccountsURLChannelsList' (Maybe Text)
191− = lens _auclFields (\ s a -> s{_auclFields = a})
193−instance GoogleAuth AccountsURLChannelsList' where
194− _AuthKey = auclKey . _Just
195− _AuthToken = auclOAuthToken . _Just
197instance GoogleRequest AccountsURLChannelsList' where
119instance GoogleRequest AccountsURLChannelsList' where
198 type Rs AccountsURLChannelsList' = URLChannels
120 type Rs AccountsURLChannelsList' = URLChannels
199− request = requestWith adExchangeSellerRequest
200− requestWith rq AccountsURLChannelsList'{..}
121+ requestClient AccountsURLChannelsList'{..}
201 = go _auclAccountId _auclAdClientId _auclPageToken
122 = go _auclAccountId _auclAdClientId _auclPageToken
202 _auclMaxResults
123 _auclMaxResults
204− (Just _auclPrettyPrint)
209 (Just AltJSON)
124 (Just AltJSON)
125+ adExchangeSellerService
211− = clientBuild
127+ = buildClient
212 (Proxy :: Proxy AccountsURLChannelsListResource)
128 (Proxy :: Proxy AccountsURLChannelsListResource)
gogol-admin-datatransfer/gen/Network/Google/DataTransfer.hs+4−1
@@ -19,8 +19,11 @@
19-- /See:/ <https://developers.google.com/admin-sdk/data-transfer/ Admin Data Transfer API Reference>
19-- /See:/ <https://developers.google.com/admin-sdk/data-transfer/ Admin Data Transfer API Reference>
20module Network.Google.DataTransfer
20module Network.Google.DataTransfer
22+ -- * Service Configuration
22 -- * API Declaration
25 -- * API Declaration
23− DataTransferAPI
26+ , DataTransferAPI
25 -- * Resources
28 -- * Resources
gogol-admin-datatransfer/gen/Network/Google/DataTransfer/Types.hs+18−5
@@ -15,8 +15,12 @@
16module Network.Google.DataTransfer.Types
16module Network.Google.DataTransfer.Types
18− -- * Service Request
18+ -- * Service Configuration
19− dataTransferRequest
19+ dataTransferService
22+ , adminDatatransferReadonlyScope
23+ , adminDatatransferScope
21 -- * Application
25 -- * Application
22 , Application
26 , Application
@@ -74,7 +78,16 @@ import Network.Google.DataTransfer.Types.Sum
74import Network.Google.Prelude
78import Network.Google.Prelude
76-- | 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.
80-- | 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
81+dataTransferService :: Service
78−dataTransferRequest
82+dataTransferService
83+ = defaultService (ServiceId "admin:datatransfer_v1")
79− = defaultRequest "https://www.googleapis.com/"
84+ "www.googleapis.com"
80 "admin/datatransfer/v1/"
85 "admin/datatransfer/v1/"
87+-- | View data transfers between users in your organization
88+adminDatatransferReadonlyScope :: OAuthScope
89+adminDatatransferReadonlyScope = OAuthScope "https://www.googleapis.com/auth/admin.datatransfer.readonly";
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
33 , ApplicationsGet'
33 , ApplicationsGet'
35 -- * Request Lenses
35 -- * Request Lenses
39 , agApplicationId
36 , agApplicationId
45import Network.Google.DataTransfer.Types
39import Network.Google.DataTransfer.Types
@@ -50,113 +44,40 @@ import Network.Google.Prelude
50type ApplicationsGetResource =
44type ApplicationsGetResource =
51 "applications" :>
45 "applications" :>
52 Capture "applicationId" Int64 :>
46 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
61-- | Retrieves information about an application for the given application ID.
49-- | Retrieves information about an application for the given application ID.
63-- /See:/ 'applicationsGet'' smart constructor.
51-- /See:/ 'applicationsGet'' smart constructor.
64−data ApplicationsGet' = ApplicationsGet'
52+newtype ApplicationsGet' = ApplicationsGet'
65− { _agQuotaUser :: !(Maybe Text)
66− , _agPrettyPrint :: !Bool
67− , _agUserIP :: !(Maybe Text)
68− , _agApplicationId :: !Int64
53+ { _agApplicationId :: Int64
69− , _agKey :: !(Maybe AuthKey)
70− , _agOAuthToken :: !(Maybe OAuthToken)
71− , _agFields :: !(Maybe Text)
72 } deriving (Eq,Show,Data,Typeable,Generic)
54 } deriving (Eq,Show,Data,Typeable,Generic)
74-- | Creates a value of 'ApplicationsGet'' with the minimum fields required to make a request.
56-- | Creates a value of 'ApplicationsGet'' with the minimum fields required to make a request.
76-- Use one of the following lenses to modify other fields as desired:
58-- Use one of the following lenses to modify other fields as desired:
84-- * 'agApplicationId'
60-- * 'agApplicationId'
91applicationsGet'
61applicationsGet'
92 :: Int64 -- ^ 'applicationId'
62 :: Int64 -- ^ 'applicationId'
93 -> ApplicationsGet'
63 -> ApplicationsGet'
94applicationsGet' pAgApplicationId_ =
64applicationsGet' pAgApplicationId_ =
95 ApplicationsGet'
65 ApplicationsGet'
96− { _agQuotaUser = Nothing
97− , _agPrettyPrint = True
98− , _agUserIP = Nothing
99− , _agApplicationId = pAgApplicationId_
66+ { _agApplicationId = pAgApplicationId_
101− , _agOAuthToken = Nothing
102− , _agFields = Nothing
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)
110− = lens _agQuotaUser (\ s a -> s{_agQuotaUser = a})
112−-- | Returns response with indentations and line breaks.
113−agPrettyPrint :: Lens' ApplicationsGet' Bool
115− = lens _agPrettyPrint
116− (\ s a -> s{_agPrettyPrint = a})
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})
123-- | ID of the application resource to be retrieved.
69-- | ID of the application resource to be retrieved.
124agApplicationId :: Lens' ApplicationsGet' Int64
70agApplicationId :: Lens' ApplicationsGet' Int64
125agApplicationId
71agApplicationId
126 = lens _agApplicationId
72 = lens _agApplicationId
127 (\ s a -> s{_agApplicationId = a})
73 (\ s a -> s{_agApplicationId = a})
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
132−agKey :: Lens' ApplicationsGet' (Maybe AuthKey)
133−agKey = lens _agKey (\ s a -> s{_agKey = a})
135−-- | OAuth 2.0 token for the current user.
136−agOAuthToken :: Lens' ApplicationsGet' (Maybe OAuthToken)
138− = lens _agOAuthToken (\ s a -> s{_agOAuthToken = a})
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})
144−instance GoogleAuth ApplicationsGet' where
145− _AuthKey = agKey . _Just
146− _AuthToken = agOAuthToken . _Just
148instance GoogleRequest ApplicationsGet' where
75instance GoogleRequest ApplicationsGet' where
149 type Rs ApplicationsGet' = Application
76 type Rs ApplicationsGet' = Application
150− request = requestWith dataTransferRequest
151− requestWith rq ApplicationsGet'{..}
77+ requestClient ApplicationsGet'{..}
152− = go _agApplicationId _agQuotaUser
78+ = go _agApplicationId (Just AltJSON)
153− (Just _agPrettyPrint)
79+ dataTransferService
160− = clientBuild
81+ = buildClient
161 (Proxy :: Proxy ApplicationsGetResource)
82 (Proxy :: Proxy ApplicationsGetResource)
gogol-admin-datatransfer/gen/Network/Google/Resource/DataTransfer/Applications/List.hs+10−89
@@ -33,15 +33,9 @@ module Network.Google.Resource.DataTransfer.Applications.List
33 , ApplicationsList'
33 , ApplicationsList'
35 -- * Request Lenses
35 -- * Request Lenses
39 , alCustomerId
36 , alCustomerId
41 , alPageToken
37 , alPageToken
43 , alMaxResults
38 , alMaxResults
47import Network.Google.DataTransfer.Types
41import Network.Google.DataTransfer.Types
@@ -54,131 +48,58 @@ type ApplicationsListResource =
54 QueryParam "customerId" Text :>
48 QueryParam "customerId" Text :>
55 QueryParam "pageToken" Text :>
49 QueryParam "pageToken" Text :>
56 QueryParam "maxResults" Word32 :>
50 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 :>
51+ QueryParam "alt" AltJSON :>
64− Get '[JSON] ApplicationsListResponse
52+ Get '[JSON] ApplicationsListResponse
66-- | Lists the applications available for data transfer for a customer.
54-- | Lists the applications available for data transfer for a customer.
68-- /See:/ 'applicationsList'' smart constructor.
56-- /See:/ 'applicationsList'' smart constructor.
69data ApplicationsList' = ApplicationsList'
57data ApplicationsList' = ApplicationsList'
70− { _alQuotaUser :: !(Maybe Text)
71− , _alPrettyPrint :: !Bool
72− , _alUserIP :: !(Maybe Text)
73− , _alCustomerId :: !(Maybe Text)
58+ { _alCustomerId :: !(Maybe Text)
74− , _alKey :: !(Maybe AuthKey)
75− , _alPageToken :: !(Maybe Text)
59+ , _alPageToken :: !(Maybe Text)
76− , _alOAuthToken :: !(Maybe OAuthToken)
77− , _alMaxResults :: !(Maybe Word32)
60+ , _alMaxResults :: !(Maybe Word32)
78− , _alFields :: !(Maybe Text)
79 } deriving (Eq,Show,Data,Typeable,Generic)
61 } deriving (Eq,Show,Data,Typeable,Generic)
81-- | Creates a value of 'ApplicationsList'' with the minimum fields required to make a request.
63-- | Creates a value of 'ApplicationsList'' with the minimum fields required to make a request.
83-- Use one of the following lenses to modify other fields as desired:
65-- Use one of the following lenses to modify other fields as desired:
91-- * 'alCustomerId'
67-- * 'alCustomerId'
95-- * 'alPageToken'
69-- * 'alPageToken'
99-- * 'alMaxResults'
71-- * 'alMaxResults'
102applicationsList'
72applicationsList'
103 :: ApplicationsList'
73 :: ApplicationsList'
104applicationsList' =
74applicationsList' =
105 ApplicationsList'
75 ApplicationsList'
106− { _alQuotaUser = Nothing
107− , _alPrettyPrint = True
108− , _alUserIP = Nothing
109− , _alCustomerId = Nothing
76+ { _alCustomerId = Nothing
111 , _alPageToken = Nothing
77 , _alPageToken = Nothing
112− , _alOAuthToken = Nothing
113 , _alMaxResults = Nothing
78 , _alMaxResults = Nothing
114− , _alFields = Nothing
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)
122− = lens _alQuotaUser (\ s a -> s{_alQuotaUser = a})
124−-- | Returns response with indentations and line breaks.
125−alPrettyPrint :: Lens' ApplicationsList' Bool
127− = lens _alPrettyPrint
128− (\ s a -> s{_alPrettyPrint = a})
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})
135-- | Immutable ID of the Google Apps account.
81-- | Immutable ID of the Google Apps account.
136alCustomerId :: Lens' ApplicationsList' (Maybe Text)
82alCustomerId :: Lens' ApplicationsList' (Maybe Text)
137alCustomerId
83alCustomerId
138 = lens _alCustomerId (\ s a -> s{_alCustomerId = a})
84 = lens _alCustomerId (\ s a -> s{_alCustomerId = a})
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
143−alKey :: Lens' ApplicationsList' (Maybe AuthKey)
144−alKey = lens _alKey (\ s a -> s{_alKey = a})
146-- | Token to specify next page in the list.
86-- | Token to specify next page in the list.
147alPageToken :: Lens' ApplicationsList' (Maybe Text)
87alPageToken :: Lens' ApplicationsList' (Maybe Text)
148alPageToken
88alPageToken
149 = lens _alPageToken (\ s a -> s{_alPageToken = a})
89 = lens _alPageToken (\ s a -> s{_alPageToken = a})
151−-- | OAuth 2.0 token for the current user.
152−alOAuthToken :: Lens' ApplicationsList' (Maybe OAuthToken)
154− = lens _alOAuthToken (\ s a -> s{_alOAuthToken = a})
156-- | Maximum number of results to return. Default is 100.
91-- | Maximum number of results to return. Default is 100.
157alMaxResults :: Lens' ApplicationsList' (Maybe Word32)
92alMaxResults :: Lens' ApplicationsList' (Maybe Word32)
158alMaxResults
93alMaxResults
159 = lens _alMaxResults (\ s a -> s{_alMaxResults = a})
94 = lens _alMaxResults (\ s a -> s{_alMaxResults = a})
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})
165−instance GoogleAuth ApplicationsList' where
166− _AuthKey = alKey . _Just
167− _AuthToken = alOAuthToken . _Just
169instance GoogleRequest ApplicationsList' where
96instance GoogleRequest ApplicationsList' where
170 type Rs ApplicationsList' = ApplicationsListResponse
97 type Rs ApplicationsList' = ApplicationsListResponse
171− request = requestWith dataTransferRequest
172− requestWith rq ApplicationsList'{..}
98+ requestClient ApplicationsList'{..}
173 = go _alCustomerId _alPageToken _alMaxResults
99 = go _alCustomerId _alPageToken _alMaxResults
175− (Just _alPrettyPrint)
180 (Just AltJSON)
100 (Just AltJSON)
182− = clientBuild
103+ = buildClient
183 (Proxy :: Proxy ApplicationsListResource)
104 (Proxy :: Proxy ApplicationsListResource)
gogol-admin-datatransfer/gen/Network/Google/Resource/DataTransfer/Transfers/Get.hs+9−88
@@ -33,13 +33,7 @@ module Network.Google.Resource.DataTransfer.Transfers.Get
33 , TransfersGet'
33 , TransfersGet'
35 -- * Request Lenses
35 -- * Request Lenses
41 , tgDataTransferId
36 , tgDataTransferId
45import Network.Google.DataTransfer.Types
39import Network.Google.DataTransfer.Types
@@ -50,87 +44,28 @@ import Network.Google.Prelude
50type TransfersGetResource =
44type TransfersGetResource =
51 "transfers" :>
45 "transfers" :>
52 Capture "dataTransferId" Text :>
46 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
61-- | Retrieves a data transfer request by its resource ID.
49-- | Retrieves a data transfer request by its resource ID.
63-- /See:/ 'transfersGet'' smart constructor.
51-- /See:/ 'transfersGet'' smart constructor.
64−data TransfersGet' = TransfersGet'
52+newtype TransfersGet' = TransfersGet'
65− { _tgQuotaUser :: !(Maybe Text)
66− , _tgPrettyPrint :: !Bool
67− , _tgUserIP :: !(Maybe Text)
68− , _tgKey :: !(Maybe AuthKey)
69− , _tgOAuthToken :: !(Maybe OAuthToken)
70− , _tgDataTransferId :: !Text
53+ { _tgDataTransferId :: Text
71− , _tgFields :: !(Maybe Text)
72 } deriving (Eq,Show,Data,Typeable,Generic)
54 } deriving (Eq,Show,Data,Typeable,Generic)
74-- | Creates a value of 'TransfersGet'' with the minimum fields required to make a request.
56-- | Creates a value of 'TransfersGet'' with the minimum fields required to make a request.
76-- Use one of the following lenses to modify other fields as desired:
58-- Use one of the following lenses to modify other fields as desired:
88-- * 'tgDataTransferId'
60-- * 'tgDataTransferId'
91transfersGet'
61transfersGet'
92 :: Text -- ^ 'dataTransferId'
62 :: Text -- ^ 'dataTransferId'
93 -> TransfersGet'
63 -> TransfersGet'
94transfersGet' pTgDataTransferId_ =
64transfersGet' pTgDataTransferId_ =
95 TransfersGet'
65 TransfersGet'
96− { _tgQuotaUser = Nothing
97− , _tgPrettyPrint = True
98− , _tgUserIP = Nothing
100− , _tgOAuthToken = Nothing
101− , _tgDataTransferId = pTgDataTransferId_
66+ { _tgDataTransferId = pTgDataTransferId_
102− , _tgFields = Nothing
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)
110− = lens _tgQuotaUser (\ s a -> s{_tgQuotaUser = a})
112−-- | Returns response with indentations and line breaks.
113−tgPrettyPrint :: Lens' TransfersGet' Bool
115− = lens _tgPrettyPrint
116− (\ s a -> s{_tgPrettyPrint = a})
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})
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
126−tgKey :: Lens' TransfersGet' (Maybe AuthKey)
127−tgKey = lens _tgKey (\ s a -> s{_tgKey = a})
129−-- | OAuth 2.0 token for the current user.
130−tgOAuthToken :: Lens' TransfersGet' (Maybe OAuthToken)
132− = lens _tgOAuthToken (\ s a -> s{_tgOAuthToken = a})
134-- | ID of the resource to be retrieved. This is returned in the response
69-- | ID of the resource to be retrieved. This is returned in the response
135-- from the insert method.
70-- from the insert method.
136tgDataTransferId :: Lens' TransfersGet' Text
71tgDataTransferId :: Lens' TransfersGet' Text
@@ -138,25 +73,11 @@ tgDataTransferId
138 = lens _tgDataTransferId
73 = lens _tgDataTransferId
139 (\ s a -> s{_tgDataTransferId = a})
74 (\ s a -> s{_tgDataTransferId = a})
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})
145−instance GoogleAuth TransfersGet' where
146− _AuthKey = tgKey . _Just
147− _AuthToken = tgOAuthToken . _Just
149instance GoogleRequest TransfersGet' where
76instance GoogleRequest TransfersGet' where
150 type Rs TransfersGet' = DataTransfer
77 type Rs TransfersGet' = DataTransfer
151− request = requestWith dataTransferRequest
152− requestWith rq TransfersGet'{..}
78+ requestClient TransfersGet'{..}
153− = go _tgDataTransferId _tgQuotaUser
79+ = go _tgDataTransferId (Just AltJSON)
154− (Just _tgPrettyPrint)
80+ dataTransferService
161− = clientBuild (Proxy :: Proxy TransfersGetResource)
82+ = buildClient (Proxy :: Proxy TransfersGetResource)
gogol-admin-datatransfer/gen/Network/Google/Resource/DataTransfer/Transfers/Insert.hs+10−89
@@ -33,13 +33,7 @@ module Network.Google.Resource.DataTransfer.Transfers.Insert
33 , TransfersInsert'
33 , TransfersInsert'
35 -- * Request Lenses
35 -- * Request Lenses
39 , tiPayload
36 , tiPayload
45import Network.Google.DataTransfer.Types
39import Network.Google.DataTransfer.Types
@@ -49,113 +43,40 @@ import Network.Google.Prelude
49-- 'TransfersInsert'' request conforms to.
43-- 'TransfersInsert'' request conforms to.
50type TransfersInsertResource =
44type TransfersInsertResource =
51 "transfers" :>
45 "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 :>
46+ QueryParam "alt" AltJSON :>
59− ReqBody '[JSON] DataTransfer :>
47+ ReqBody '[JSON] DataTransfer :>
60− Post '[JSON] DataTransfer
48+ Post '[JSON] DataTransfer
62-- | Inserts a data transfer request.
50-- | Inserts a data transfer request.
64-- /See:/ 'transfersInsert'' smart constructor.
52-- /See:/ 'transfersInsert'' smart constructor.
65−data TransfersInsert' = TransfersInsert'
53+newtype TransfersInsert' = TransfersInsert'
66− { _tiQuotaUser :: !(Maybe Text)
67− , _tiPrettyPrint :: !Bool
68− , _tiUserIP :: !(Maybe Text)
69− , _tiPayload :: !DataTransfer
54+ { _tiPayload :: DataTransfer
70− , _tiKey :: !(Maybe AuthKey)
71− , _tiOAuthToken :: !(Maybe OAuthToken)
72− , _tiFields :: !(Maybe Text)
73 } deriving (Eq,Show,Data,Typeable,Generic)
55 } deriving (Eq,Show,Data,Typeable,Generic)
75-- | Creates a value of 'TransfersInsert'' with the minimum fields required to make a request.
57-- | Creates a value of 'TransfersInsert'' with the minimum fields required to make a request.
77-- Use one of the following lenses to modify other fields as desired:
59-- Use one of the following lenses to modify other fields as desired:
85-- * 'tiPayload'
61-- * 'tiPayload'
92transfersInsert'
62transfersInsert'
93 :: DataTransfer -- ^ 'payload'
63 :: DataTransfer -- ^ 'payload'
94 -> TransfersInsert'
64 -> TransfersInsert'
95transfersInsert' pTiPayload_ =
65transfersInsert' pTiPayload_ =
96 TransfersInsert'
66 TransfersInsert'
97− { _tiQuotaUser = Nothing
98− , _tiPrettyPrint = True
99− , _tiUserIP = Nothing
100− , _tiPayload = pTiPayload_
67+ { _tiPayload = pTiPayload_
102− , _tiOAuthToken = Nothing
103− , _tiFields = Nothing
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)
111− = lens _tiQuotaUser (\ s a -> s{_tiQuotaUser = a})
113−-- | Returns response with indentations and line breaks.
114−tiPrettyPrint :: Lens' TransfersInsert' Bool
116− = lens _tiPrettyPrint
117− (\ s a -> s{_tiPrettyPrint = a})
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})
124-- | Multipart request metadata.
70-- | Multipart request metadata.
125tiPayload :: Lens' TransfersInsert' DataTransfer
71tiPayload :: Lens' TransfersInsert' DataTransfer
127 = lens _tiPayload (\ s a -> s{_tiPayload = a})
73 = lens _tiPayload (\ s a -> s{_tiPayload = a})
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
132−tiKey :: Lens' TransfersInsert' (Maybe AuthKey)
133−tiKey = lens _tiKey (\ s a -> s{_tiKey = a})
135−-- | OAuth 2.0 token for the current user.
136−tiOAuthToken :: Lens' TransfersInsert' (Maybe OAuthToken)
138− = lens _tiOAuthToken (\ s a -> s{_tiOAuthToken = a})
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})
144−instance GoogleAuth TransfersInsert' where
145− _AuthKey = tiKey . _Just
146− _AuthToken = tiOAuthToken . _Just
148instance GoogleRequest TransfersInsert' where
75instance GoogleRequest TransfersInsert' where
149 type Rs TransfersInsert' = DataTransfer
76 type Rs TransfersInsert' = DataTransfer
150− request = requestWith dataTransferRequest
151− requestWith rq TransfersInsert'{..}
77+ requestClient TransfersInsert'{..}
152− = go _tiQuotaUser (Just _tiPrettyPrint) _tiUserIP
156− (Just AltJSON)
78+ = go (Just AltJSON) _tiPayload dataTransferService
159− = clientBuild
80+ = buildClient
160 (Proxy :: Proxy TransfersInsertResource)
81 (Proxy :: Proxy TransfersInsertResource)
gogol-admin-datatransfer/gen/Network/Google/Resource/DataTransfer/Transfers/List.hs+6−85
@@ -35,17 +35,11 @@ module Network.Google.Resource.DataTransfer.Transfers.List
36 -- * Request Lenses
36 -- * Request Lenses
37 , tlStatus
37 , tlStatus
40 , tlOldOwnerUserId
38 , tlOldOwnerUserId
42 , tlNewOwnerUserId
39 , tlNewOwnerUserId
43 , tlCustomerId
40 , tlCustomerId
45 , tlPageToken
41 , tlPageToken
47 , tlMaxResults
42 , tlMaxResults
51import Network.Google.DataTransfer.Types
45import Network.Google.DataTransfer.Types
@@ -61,14 +55,8 @@ type TransfersListResource =
61 QueryParam "customerId" Text :>
55 QueryParam "customerId" Text :>
62 QueryParam "pageToken" Text :>
56 QueryParam "pageToken" Text :>
63 QueryParam "maxResults" Int32 :>
57 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 :>
58+ QueryParam "alt" AltJSON :>
71− Get '[JSON] DataTransfersListResponse
59+ Get '[JSON] DataTransfersListResponse
73-- | Lists the transfers for a customer by source user, destination user, or
61-- | Lists the transfers for a customer by source user, destination user, or
@@ -76,17 +64,11 @@ type TransfersListResource =
76-- /See:/ 'transfersList'' smart constructor.
64-- /See:/ 'transfersList'' smart constructor.
77data TransfersList' = TransfersList'
65data TransfersList' = TransfersList'
78 { _tlStatus :: !(Maybe Text)
66 { _tlStatus :: !(Maybe Text)
79− , _tlQuotaUser :: !(Maybe Text)
80− , _tlPrettyPrint :: !Bool
81 , _tlOldOwnerUserId :: !(Maybe Text)
67 , _tlOldOwnerUserId :: !(Maybe Text)
82− , _tlUserIP :: !(Maybe Text)
83 , _tlNewOwnerUserId :: !(Maybe Text)
68 , _tlNewOwnerUserId :: !(Maybe Text)
84 , _tlCustomerId :: !(Maybe Text)
69 , _tlCustomerId :: !(Maybe Text)
85− , _tlKey :: !(Maybe AuthKey)
86 , _tlPageToken :: !(Maybe Text)
70 , _tlPageToken :: !(Maybe Text)
87− , _tlOAuthToken :: !(Maybe OAuthToken)
88 , _tlMaxResults :: !(Maybe Int32)
71 , _tlMaxResults :: !(Maybe Int32)
89− , _tlFields :: !(Maybe Text)
90 } deriving (Eq,Show,Data,Typeable,Generic)
72 } deriving (Eq,Show,Data,Typeable,Generic)
92-- | Creates a value of 'TransfersList'' with the minimum fields required to make a request.
74-- | Creates a value of 'TransfersList'' with the minimum fields required to make a request.
@@ -95,73 +77,37 @@ data TransfersList' = TransfersList'
96-- * 'tlStatus'
78-- * 'tlStatus'
102-- * 'tlOldOwnerUserId'
80-- * 'tlOldOwnerUserId'
106-- * 'tlNewOwnerUserId'
82-- * 'tlNewOwnerUserId'
108-- * 'tlCustomerId'
84-- * 'tlCustomerId'
112-- * 'tlPageToken'
86-- * 'tlPageToken'
116-- * 'tlMaxResults'
88-- * 'tlMaxResults'
119transfersList'
89transfersList'
120 :: TransfersList'
90 :: TransfersList'
121transfersList' =
91transfersList' =
122 TransfersList'
92 TransfersList'
123 { _tlStatus = Nothing
93 { _tlStatus = Nothing
124− , _tlQuotaUser = Nothing
125− , _tlPrettyPrint = True
126 , _tlOldOwnerUserId = Nothing
94 , _tlOldOwnerUserId = Nothing
127− , _tlUserIP = Nothing
128 , _tlNewOwnerUserId = Nothing
95 , _tlNewOwnerUserId = Nothing
129 , _tlCustomerId = Nothing
96 , _tlCustomerId = Nothing
131 , _tlPageToken = Nothing
97 , _tlPageToken = Nothing
132− , _tlOAuthToken = Nothing
133 , _tlMaxResults = Nothing
98 , _tlMaxResults = Nothing
134− , _tlFields = Nothing
137-- | Status of the transfer.
101-- | Status of the transfer.
138tlStatus :: Lens' TransfersList' (Maybe Text)
102tlStatus :: Lens' TransfersList' (Maybe Text)
139tlStatus = lens _tlStatus (\ s a -> s{_tlStatus = a})
103tlStatus = lens _tlStatus (\ s a -> s{_tlStatus = a})
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)
146− = lens _tlQuotaUser (\ s a -> s{_tlQuotaUser = a})
148−-- | Returns response with indentations and line breaks.
149−tlPrettyPrint :: Lens' TransfersList' Bool
151− = lens _tlPrettyPrint
152− (\ s a -> s{_tlPrettyPrint = a})
154-- | Source user\'s profile ID.
105-- | Source user\'s profile ID.
155tlOldOwnerUserId :: Lens' TransfersList' (Maybe Text)
106tlOldOwnerUserId :: Lens' TransfersList' (Maybe Text)
156tlOldOwnerUserId
107tlOldOwnerUserId
157 = lens _tlOldOwnerUserId
108 = lens _tlOldOwnerUserId
158 (\ s a -> s{_tlOldOwnerUserId = a})
109 (\ s a -> s{_tlOldOwnerUserId = a})
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})
165-- | Destination user\'s profile ID.
111-- | Destination user\'s profile ID.
166tlNewOwnerUserId :: Lens' TransfersList' (Maybe Text)
112tlNewOwnerUserId :: Lens' TransfersList' (Maybe Text)
167tlNewOwnerUserId
113tlNewOwnerUserId
@@ -173,50 +119,25 @@ tlCustomerId :: Lens' TransfersList' (Maybe Text)
173tlCustomerId
119tlCustomerId
174 = lens _tlCustomerId (\ s a -> s{_tlCustomerId = a})
120 = lens _tlCustomerId (\ s a -> s{_tlCustomerId = a})
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
179−tlKey :: Lens' TransfersList' (Maybe AuthKey)
180−tlKey = lens _tlKey (\ s a -> s{_tlKey = a})
182-- | Token to specify the next page in the list.
122-- | Token to specify the next page in the list.
183tlPageToken :: Lens' TransfersList' (Maybe Text)
123tlPageToken :: Lens' TransfersList' (Maybe Text)
184tlPageToken
124tlPageToken
185 = lens _tlPageToken (\ s a -> s{_tlPageToken = a})
125 = lens _tlPageToken (\ s a -> s{_tlPageToken = a})
187−-- | OAuth 2.0 token for the current user.
188−tlOAuthToken :: Lens' TransfersList' (Maybe OAuthToken)
190− = lens _tlOAuthToken (\ s a -> s{_tlOAuthToken = a})
192-- | Maximum number of results to return. Default is 100.
127-- | Maximum number of results to return. Default is 100.
193tlMaxResults :: Lens' TransfersList' (Maybe Int32)
128tlMaxResults :: Lens' TransfersList' (Maybe Int32)
194tlMaxResults
129tlMaxResults
195 = lens _tlMaxResults (\ s a -> s{_tlMaxResults = a})
130 = lens _tlMaxResults (\ s a -> s{_tlMaxResults = a})
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})
201−instance GoogleAuth TransfersList' where
202− _AuthKey = tlKey . _Just
203− _AuthToken = tlOAuthToken . _Just
205instance GoogleRequest TransfersList' where
132instance GoogleRequest TransfersList' where
206 type Rs TransfersList' = DataTransfersListResponse
133 type Rs TransfersList' = DataTransfersListResponse
207− request = requestWith dataTransferRequest
208− requestWith rq TransfersList'{..}
134+ requestClient TransfersList'{..}
209 = go _tlStatus _tlOldOwnerUserId _tlNewOwnerUserId
135 = go _tlStatus _tlOldOwnerUserId _tlNewOwnerUserId
210 _tlCustomerId
136 _tlCustomerId
211 _tlPageToken
137 _tlPageToken
212 _tlMaxResults
138 _tlMaxResults
214− (Just _tlPrettyPrint)
219 (Just AltJSON)
139 (Just AltJSON)
221− = clientBuild (Proxy :: Proxy TransfersListResource)
142+ = buildClient (Proxy :: Proxy TransfersListResource)
gogol-admin-directory/gen/Network/Google/Directory.hs+4−1
@@ -20,8 +20,11 @@
20-- /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference>
20-- /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference>
21module Network.Google.Directory
21module Network.Google.Directory
23+ -- * Service Configuration
23 -- * API Declaration
26 -- * API Declaration
24− DirectoryAPI
27+ , DirectoryAPI
26 -- * Resources
29 -- * Resources
gogol-admin-directory/gen/Network/Google/Directory/Types.hs+103−5
@@ -15,8 +15,29 @@
16module Network.Google.Directory.Types
16module Network.Google.Directory.Types
18− -- * Service Request
18+ -- * Service Configuration
19− directoryRequest
19+ directoryService
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
21 -- * VerificationCode
42 -- * VerificationCode
22 , VerificationCode
43 , VerificationCode
@@ -581,7 +602,84 @@ import Network.Google.Directory.Types.Sum
581import Network.Google.Prelude
602import Network.Google.Prelude
583-- | 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.
604-- | 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
605+directoryService :: Service
585−directoryRequest
606+directoryService
607+ = defaultService (ServiceId "admin:directory_v1")
586− = defaultRequest "https://www.googleapis.com/"
608+ "www.googleapis.com"
587 "admin/directory/v1/"
609 "admin/directory/v1/"
611+-- | View groups on your domain
612+adminDirectoryGroupReadonlyScope :: OAuthScope
613+adminDirectoryGroupReadonlyScope = OAuthScope "https://www.googleapis.com/auth/admin.directory.group.readonly";
615+-- | View your Chrome OS devices\' metadata
616+adminDirectoryDeviceChromeosReadonlyScope :: OAuthScope
617+adminDirectoryDeviceChromeosReadonlyScope = OAuthScope "https://www.googleapis.com/auth/admin.directory.device.chromeos.readonly";
619+-- | View and manage your Chrome OS devices\' metadata
620+adminDirectoryDeviceChromeosScope :: OAuthScope
621+adminDirectoryDeviceChromeosScope = OAuthScope "https://www.googleapis.com/auth/admin.directory.device.chromeos";
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";
627+-- | View group subscriptions on your domain
628+adminDirectoryGroupMemberReadonlyScope :: OAuthScope
629+adminDirectoryGroupMemberReadonlyScope = OAuthScope "https://www.googleapis.com/auth/admin.directory.group.member.readonly";
631+-- | View and manage user aliases on your domain
632+adminDirectoryUserAliasScope :: OAuthScope
633+adminDirectoryUserAliasScope = OAuthScope "https://www.googleapis.com/auth/admin.directory.user.alias";
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";
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";
643+-- | View user schemas on your domain
644+adminDirectoryUserschemaReadonlyScope :: OAuthScope
645+adminDirectoryUserschemaReadonlyScope = OAuthScope "https://www.googleapis.com/auth/admin.directory.userschema.readonly";
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";
651+-- | View organization units on your domain
652+adminDirectoryOrgunitReadonlyScope :: OAuthScope
653+adminDirectoryOrgunitReadonlyScope = OAuthScope "https://www.googleapis.com/auth/admin.directory.orgunit.readonly";
655+-- | View and manage organization units on your domain
656+adminDirectoryOrgunitScope :: OAuthScope
657+adminDirectoryOrgunitScope = OAuthScope "https://www.googleapis.com/auth/admin.directory.orgunit";
659+-- | View users on your domain
660+adminDirectoryUserReadonlyScope :: OAuthScope
661+adminDirectoryUserReadonlyScope = OAuthScope "https://www.googleapis.com/auth/admin.directory.user.readonly";
663+-- | View user aliases on your domain
664+adminDirectoryUserAliasReadonlyScope :: OAuthScope
665+adminDirectoryUserAliasReadonlyScope = OAuthScope "https://www.googleapis.com/auth/admin.directory.user.alias.readonly";
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";
671+-- | View and manage group subscriptions on your domain
672+adminDirectoryGroupMemberScope :: OAuthScope
673+adminDirectoryGroupMemberScope = OAuthScope "https://www.googleapis.com/auth/admin.directory.group.member";
675+-- | View and manage notifications received on your domain
676+adminDirectoryNotificationsScope :: OAuthScope
677+adminDirectoryNotificationsScope = OAuthScope "https://www.googleapis.com/auth/admin.directory.notifications";
679+-- | View and manage your mobile devices\' metadata
680+adminDirectoryDeviceMobileScope :: OAuthScope
681+adminDirectoryDeviceMobileScope = OAuthScope "https://www.googleapis.com/auth/admin.directory.device.mobile";
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
33 , ChannelsStop'
33 , ChannelsStop'
35 -- * Request Lenses
35 -- * Request Lenses
39 , csPayload
36 , csPayload
45import Network.Google.Directory.Types
39import Network.Google.Directory.Types
@@ -52,111 +46,38 @@ type ChannelsStopResource =
52 "directory_v1" :>
46 "directory_v1" :>
53 "channels" :>
47 "channels" :>
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 :>
49+ QueryParam "alt" AltJSON :>
62− ReqBody '[JSON] Channel :> Post '[JSON] ()
50+ ReqBody '[JSON] Channel :> Post '[JSON] ()
64-- | Stop watching resources through this channel
52-- | Stop watching resources through this channel
66-- /See:/ 'channelsStop'' smart constructor.
54-- /See:/ 'channelsStop'' smart constructor.
67−data ChannelsStop' = ChannelsStop'
55+newtype ChannelsStop' = ChannelsStop'
68− { _csQuotaUser :: !(Maybe Text)
69− , _csPrettyPrint :: !Bool
70− , _csUserIP :: !(Maybe Text)
71− , _csPayload :: !Channel
56+ { _csPayload :: Channel
72− , _csKey :: !(Maybe AuthKey)
73− , _csOAuthToken :: !(Maybe OAuthToken)
74− , _csFields :: !(Maybe Text)
75 } deriving (Eq,Show,Data,Typeable,Generic)
57 } deriving (Eq,Show,Data,Typeable,Generic)
77-- | Creates a value of 'ChannelsStop'' with the minimum fields required to make a request.
59-- | Creates a value of 'ChannelsStop'' with the minimum fields required to make a request.
79-- Use one of the following lenses to modify other fields as desired:
61-- Use one of the following lenses to modify other fields as desired:
87-- * 'csPayload'
63-- * 'csPayload'
94channelsStop'
64channelsStop'
95 :: Channel -- ^ 'payload'
65 :: Channel -- ^ 'payload'
96 -> ChannelsStop'
66 -> ChannelsStop'
97channelsStop' pCsPayload_ =
67channelsStop' pCsPayload_ =
98 ChannelsStop'
68 ChannelsStop'
99− { _csQuotaUser = Nothing
100− , _csPrettyPrint = True
101− , _csUserIP = Nothing
102− , _csPayload = pCsPayload_
69+ { _csPayload = pCsPayload_
104− , _csOAuthToken = Nothing
105− , _csFields = Nothing
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)
113− = lens _csQuotaUser (\ s a -> s{_csQuotaUser = a})
115−-- | Returns response with indentations and line breaks.
116−csPrettyPrint :: Lens' ChannelsStop' Bool
118− = lens _csPrettyPrint
119− (\ s a -> s{_csPrettyPrint = a})
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})
126-- | Multipart request metadata.
72-- | Multipart request metadata.
127csPayload :: Lens' ChannelsStop' Channel
73csPayload :: Lens' ChannelsStop' Channel
129 = lens _csPayload (\ s a -> s{_csPayload = a})
75 = lens _csPayload (\ s a -> s{_csPayload = a})
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
134−csKey :: Lens' ChannelsStop' (Maybe AuthKey)
135−csKey = lens _csKey (\ s a -> s{_csKey = a})
137−-- | OAuth 2.0 token for the current user.
138−csOAuthToken :: Lens' ChannelsStop' (Maybe OAuthToken)
140− = lens _csOAuthToken (\ s a -> s{_csOAuthToken = a})
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})
146−instance GoogleAuth ChannelsStop' where
147− _AuthKey = csKey . _Just
148− _AuthToken = csOAuthToken . _Just
150instance GoogleRequest ChannelsStop' where
77instance GoogleRequest ChannelsStop' where
151 type Rs ChannelsStop' = ()
78 type Rs ChannelsStop' = ()
152− request = requestWith directoryRequest
153− requestWith rq ChannelsStop'{..}
79+ requestClient ChannelsStop'{..}
154− = go _csQuotaUser (Just _csPrettyPrint) _csUserIP
158− (Just AltJSON)
80+ = go (Just AltJSON) _csPayload directoryService
161− = clientBuild (Proxy :: Proxy ChannelsStopResource)
82+ = buildClient (Proxy :: Proxy ChannelsStopResource)
gogol-admin-directory/gen/Network/Google/Resource/Directory/Asps/Delete.hs+9−87
@@ -33,14 +33,8 @@ module Network.Google.Resource.Directory.Asps.Delete
33 , AspsDelete'
33 , AspsDelete'
35 -- * Request Lenses
35 -- * Request Lenses
38 , adCodeId
36 , adCodeId
42 , adUserKey
37 , adUserKey
46import Network.Google.Directory.Types
40import Network.Google.Directory.Types
@@ -53,120 +47,48 @@ type AspsDeleteResource =
53 Capture "userKey" Text :>
47 Capture "userKey" Text :>
55 Capture "codeId" Int32 :>
49 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] ()
64-- | Delete an ASP issued by a user.
52-- | Delete an ASP issued by a user.
66-- /See:/ 'aspsDelete'' smart constructor.
54-- /See:/ 'aspsDelete'' smart constructor.
67data AspsDelete' = AspsDelete'
55data AspsDelete' = AspsDelete'
68− { _adQuotaUser :: !(Maybe Text)
69− , _adPrettyPrint :: !Bool
70− , _adCodeId :: !Int32
56+ { _adCodeId :: !Int32
71− , _adUserIP :: !(Maybe Text)
72− , _adKey :: !(Maybe AuthKey)
73− , _adOAuthToken :: !(Maybe OAuthToken)
74− , _adUserKey :: !Text
57+ , _adUserKey :: !Text
75− , _adFields :: !(Maybe Text)
76 } deriving (Eq,Show,Data,Typeable,Generic)
58 } deriving (Eq,Show,Data,Typeable,Generic)
78-- | Creates a value of 'AspsDelete'' with the minimum fields required to make a request.
60-- | Creates a value of 'AspsDelete'' with the minimum fields required to make a request.
80-- Use one of the following lenses to modify other fields as desired:
62-- Use one of the following lenses to modify other fields as desired:
86-- * 'adCodeId'
64-- * 'adCodeId'
94-- * 'adUserKey'
66-- * 'adUserKey'
97aspsDelete'
67aspsDelete'
98 :: Int32 -- ^ 'codeId'
68 :: Int32 -- ^ 'codeId'
99 -> Text -- ^ 'userKey'
69 -> Text -- ^ 'userKey'
100 -> AspsDelete'
70 -> AspsDelete'
101aspsDelete' pAdCodeId_ pAdUserKey_ =
71aspsDelete' pAdCodeId_ pAdUserKey_ =
102 AspsDelete'
72 AspsDelete'
103− { _adQuotaUser = Nothing
104− , _adPrettyPrint = True
105− , _adCodeId = pAdCodeId_
73+ { _adCodeId = pAdCodeId_
106− , _adUserIP = Nothing
108− , _adOAuthToken = Nothing
109 , _adUserKey = pAdUserKey_
74 , _adUserKey = pAdUserKey_
110− , _adFields = Nothing
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)
118− = lens _adQuotaUser (\ s a -> s{_adQuotaUser = a})
120−-- | Returns response with indentations and line breaks.
121−adPrettyPrint :: Lens' AspsDelete' Bool
123− = lens _adPrettyPrint
124− (\ s a -> s{_adPrettyPrint = a})
126-- | The unique ID of the ASP to be deleted.
77-- | The unique ID of the ASP to be deleted.
127adCodeId :: Lens' AspsDelete' Int32
78adCodeId :: Lens' AspsDelete' Int32
128adCodeId = lens _adCodeId (\ s a -> s{_adCodeId = a})
79adCodeId = lens _adCodeId (\ s a -> s{_adCodeId = a})
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})
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
138−adKey :: Lens' AspsDelete' (Maybe AuthKey)
139−adKey = lens _adKey (\ s a -> s{_adKey = a})
141−-- | OAuth 2.0 token for the current user.
142−adOAuthToken :: Lens' AspsDelete' (Maybe OAuthToken)
144− = lens _adOAuthToken (\ s a -> s{_adOAuthToken = a})
146-- | Identifies the user in the API request. The value can be the user\'s
81-- | Identifies the user in the API request. The value can be the user\'s
147-- primary email address, alias email address, or unique user ID.
82-- primary email address, alias email address, or unique user ID.
148adUserKey :: Lens' AspsDelete' Text
83adUserKey :: Lens' AspsDelete' Text
150 = lens _adUserKey (\ s a -> s{_adUserKey = a})
85 = lens _adUserKey (\ s a -> s{_adUserKey = a})
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})
156−instance GoogleAuth AspsDelete' where
157− _AuthKey = adKey . _Just
158− _AuthToken = adOAuthToken . _Just
160instance GoogleRequest AspsDelete' where
87instance GoogleRequest AspsDelete' where
161 type Rs AspsDelete' = ()
88 type Rs AspsDelete' = ()
162− request = requestWith directoryRequest
163− requestWith rq AspsDelete'{..}
89+ requestClient AspsDelete'{..}
164− = go _adUserKey _adCodeId _adQuotaUser
90+ = go _adUserKey _adCodeId (Just AltJSON)
165− (Just _adPrettyPrint)
91+ directoryService
172− = clientBuild (Proxy :: Proxy AspsDeleteResource) rq
93+ = buildClient (Proxy :: Proxy AspsDeleteResource)
gogol-admin-directory/gen/Network/Google/Resource/Directory/Asps/Get.hs+8−87
@@ -33,14 +33,8 @@ module Network.Google.Resource.Directory.Asps.Get
33 , AspsGet'
33 , AspsGet'
35 -- * Request Lenses
35 -- * Request Lenses
38 , agCodeId
36 , agCodeId
42 , agUserKey
37 , agUserKey
46import Network.Google.Directory.Types
40import Network.Google.Directory.Types
@@ -53,120 +47,47 @@ type AspsGetResource =
53 Capture "userKey" Text :>
47 Capture "userKey" Text :>
55 Capture "codeId" Int32 :>
49 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
64-- | Get information about an ASP issued by a user.
52-- | Get information about an ASP issued by a user.
66-- /See:/ 'aspsGet'' smart constructor.
54-- /See:/ 'aspsGet'' smart constructor.
67data AspsGet' = AspsGet'
55data AspsGet' = AspsGet'
68− { _agQuotaUser :: !(Maybe Text)
69− , _agPrettyPrint :: !Bool
70− , _agCodeId :: !Int32
56+ { _agCodeId :: !Int32
71− , _agUserIP :: !(Maybe Text)
72− , _agKey :: !(Maybe AuthKey)
73− , _agOAuthToken :: !(Maybe OAuthToken)
74− , _agUserKey :: !Text
57+ , _agUserKey :: !Text
75− , _agFields :: !(Maybe Text)
76 } deriving (Eq,Show,Data,Typeable,Generic)
58 } deriving (Eq,Show,Data,Typeable,Generic)
78-- | Creates a value of 'AspsGet'' with the minimum fields required to make a request.
60-- | Creates a value of 'AspsGet'' with the minimum fields required to make a request.
80-- Use one of the following lenses to modify other fields as desired:
62-- Use one of the following lenses to modify other fields as desired:
86-- * 'agCodeId'
64-- * 'agCodeId'
94-- * 'agUserKey'
66-- * 'agUserKey'
98 :: Int32 -- ^ 'codeId'
68 :: Int32 -- ^ 'codeId'
99 -> Text -- ^ 'userKey'
69 -> Text -- ^ 'userKey'
100 -> AspsGet'
70 -> AspsGet'
101aspsGet' pAgCodeId_ pAgUserKey_ =
71aspsGet' pAgCodeId_ pAgUserKey_ =
103− { _agQuotaUser = Nothing
104− , _agPrettyPrint = True
105− , _agCodeId = pAgCodeId_
73+ { _agCodeId = pAgCodeId_
106− , _agUserIP = Nothing
108− , _agOAuthToken = Nothing
109 , _agUserKey = pAgUserKey_
74 , _agUserKey = pAgUserKey_
110− , _agFields = Nothing
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)
118− = lens _agQuotaUser (\ s a -> s{_agQuotaUser = a})
120−-- | Returns response with indentations and line breaks.
121−agPrettyPrint :: Lens' AspsGet' Bool
123− = lens _agPrettyPrint
124− (\ s a -> s{_agPrettyPrint = a})
126-- | The unique ID of the ASP.
77-- | The unique ID of the ASP.
127agCodeId :: Lens' AspsGet' Int32
78agCodeId :: Lens' AspsGet' Int32
128agCodeId = lens _agCodeId (\ s a -> s{_agCodeId = a})
79agCodeId = lens _agCodeId (\ s a -> s{_agCodeId = a})
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})
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
138−agKey :: Lens' AspsGet' (Maybe AuthKey)
139−agKey = lens _agKey (\ s a -> s{_agKey = a})
141−-- | OAuth 2.0 token for the current user.
142−agOAuthToken :: Lens' AspsGet' (Maybe OAuthToken)
144− = lens _agOAuthToken (\ s a -> s{_agOAuthToken = a})
146-- | Identifies the user in the API request. The value can be the user\'s
81-- | Identifies the user in the API request. The value can be the user\'s
147-- primary email address, alias email address, or unique user ID.
82-- primary email address, alias email address, or unique user ID.
148agUserKey :: Lens' AspsGet' Text
83agUserKey :: Lens' AspsGet' Text
150 = lens _agUserKey (\ s a -> s{_agUserKey = a})
85 = lens _agUserKey (\ s a -> s{_agUserKey = a})
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})
156−instance GoogleAuth AspsGet' where
157− _AuthKey = agKey . _Just
158− _AuthToken = agOAuthToken . _Just
160instance GoogleRequest AspsGet' where
87instance GoogleRequest AspsGet' where
161 type Rs AspsGet' = Asp
88 type Rs AspsGet' = Asp
162− request = requestWith directoryRequest
89+ requestClient AspsGet'{..}
163− requestWith rq AspsGet'{..}
164− = go _agUserKey _agCodeId _agQuotaUser
90+ = go _agUserKey _agCodeId (Just AltJSON)
165− (Just _agPrettyPrint)
91+ directoryService
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
33 , AspsList'
33 , AspsList'
35 -- * Request Lenses
35 -- * Request Lenses
41 , alUserKey
36 , alUserKey
45import Network.Google.Directory.Types
39import Network.Google.Directory.Types
@@ -51,110 +45,38 @@ type AspsListResource =
51 "users" :>
45 "users" :>
52 Capture "userKey" Text :>
46 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 :> Get '[JSON] Asps
48+ QueryParam "alt" AltJSON :> Get '[JSON] Asps
62-- | List the ASPs issued by a user.
50-- | List the ASPs issued by a user.
64-- /See:/ 'aspsList'' smart constructor.
52-- /See:/ 'aspsList'' smart constructor.
65−data AspsList' = AspsList'
53+newtype AspsList' = AspsList'
66− { _alQuotaUser :: !(Maybe Text)
67− , _alPrettyPrint :: !Bool
68− , _alUserIP :: !(Maybe Text)
69− , _alKey :: !(Maybe AuthKey)
70− , _alOAuthToken :: !(Maybe OAuthToken)
71− , _alUserKey :: !Text
54+ { _alUserKey :: Text
72− , _alFields :: !(Maybe Text)
73 } deriving (Eq,Show,Data,Typeable,Generic)
55 } deriving (Eq,Show,Data,Typeable,Generic)
75-- | Creates a value of 'AspsList'' with the minimum fields required to make a request.
57-- | Creates a value of 'AspsList'' with the minimum fields required to make a request.
77-- Use one of the following lenses to modify other fields as desired:
59-- Use one of the following lenses to modify other fields as desired:
89-- * 'alUserKey'
61-- * 'alUserKey'
93 :: Text -- ^ 'userKey'
63 :: Text -- ^ 'userKey'
94 -> AspsList'
64 -> AspsList'
95aspsList' pAlUserKey_ =
65aspsList' pAlUserKey_ =
97− { _alQuotaUser = Nothing
98− , _alPrettyPrint = True
99− , _alUserIP = Nothing
101− , _alOAuthToken = Nothing
102− , _alUserKey = pAlUserKey_
67+ { _alUserKey = pAlUserKey_
103− , _alFields = Nothing
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)
111− = lens _alQuotaUser (\ s a -> s{_alQuotaUser = a})
113−-- | Returns response with indentations and line breaks.
114−alPrettyPrint :: Lens' AspsList' Bool
116− = lens _alPrettyPrint
117− (\ s a -> s{_alPrettyPrint = a})
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})
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
127−alKey :: Lens' AspsList' (Maybe AuthKey)
128−alKey = lens _alKey (\ s a -> s{_alKey = a})
130−-- | OAuth 2.0 token for the current user.
131−alOAuthToken :: Lens' AspsList' (Maybe OAuthToken)
133− = lens _alOAuthToken (\ s a -> s{_alOAuthToken = a})
135-- | Identifies the user in the API request. The value can be the user\'s
70-- | Identifies the user in the API request. The value can be the user\'s
136-- primary email address, alias email address, or unique user ID.
71-- primary email address, alias email address, or unique user ID.
137alUserKey :: Lens' AspsList' Text
72alUserKey :: Lens' AspsList' Text
139 = lens _alUserKey (\ s a -> s{_alUserKey = a})
74 = lens _alUserKey (\ s a -> s{_alUserKey = a})
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})
145−instance GoogleAuth AspsList' where
146− _AuthKey = alKey . _Just
147− _AuthToken = alOAuthToken . _Just
149instance GoogleRequest AspsList' where
76instance GoogleRequest AspsList' where
150 type Rs AspsList' = Asps
77 type Rs AspsList' = Asps
151− request = requestWith directoryRequest
78+ requestClient AspsList'{..}
152− requestWith rq AspsList'{..}
153− = go _alUserKey _alQuotaUser (Just _alPrettyPrint)
158− (Just AltJSON)
79+ = go _alUserKey (Just AltJSON) directoryService
160− = clientBuild (Proxy :: Proxy AspsListResource) rq
81+ = buildClient (Proxy :: Proxy AspsListResource)
gogol-admin-directory/gen/Network/Google/Resource/Directory/ChromeosDevices/Get.hs+10−92
@@ -33,15 +33,9 @@ module Network.Google.Resource.Directory.ChromeosDevices.Get
33 , ChromeosDevicesGet'
33 , ChromeosDevicesGet'
35 -- * Request Lenses
35 -- * Request Lenses
39 , cdgCustomerId
36 , cdgCustomerId
41 , cdgDeviceId
37 , cdgDeviceId
42 , cdgProjection
38 , cdgProjection
47import Network.Google.Directory.Types
41import Network.Google.Directory.Types
@@ -57,99 +51,44 @@ type ChromeosDevicesGetResource =
57 Capture "deviceId" Text :>
51 Capture "deviceId" Text :>
58 QueryParam "projection" ChromeosDevicesGetProjection
52 QueryParam "projection" ChromeosDevicesGetProjection
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 :>
54+ QueryParam "alt" AltJSON :>
67− Get '[JSON] ChromeOSDevice
55+ Get '[JSON] ChromeOSDevice
69-- | Retrieve Chrome OS Device
57-- | Retrieve Chrome OS Device
71-- /See:/ 'chromeosDevicesGet'' smart constructor.
59-- /See:/ 'chromeosDevicesGet'' smart constructor.
72data ChromeosDevicesGet' = ChromeosDevicesGet'
60data ChromeosDevicesGet' = ChromeosDevicesGet'
73− { _cdgQuotaUser :: !(Maybe Text)
74− , _cdgPrettyPrint :: !Bool
75− , _cdgUserIP :: !(Maybe Text)
76− , _cdgCustomerId :: !Text
61+ { _cdgCustomerId :: !Text
77− , _cdgKey :: !(Maybe AuthKey)
78− , _cdgDeviceId :: !Text
62+ , _cdgDeviceId :: !Text
79− , _cdgProjection :: !(Maybe ChromeosDevicesGetProjection)
63+ , _cdgProjection :: !(Maybe ChromeosDevicesGetProjection)
80− , _cdgOAuthToken :: !(Maybe OAuthToken)
81− , _cdgFields :: !(Maybe Text)
82 } deriving (Eq,Show,Data,Typeable,Generic)
64 } deriving (Eq,Show,Data,Typeable,Generic)
84-- | Creates a value of 'ChromeosDevicesGet'' with the minimum fields required to make a request.
66-- | Creates a value of 'ChromeosDevicesGet'' with the minimum fields required to make a request.
86-- Use one of the following lenses to modify other fields as desired:
68-- Use one of the following lenses to modify other fields as desired:
94-- * 'cdgCustomerId'
70-- * 'cdgCustomerId'
98-- * 'cdgDeviceId'
72-- * 'cdgDeviceId'
100-- * 'cdgProjection'
74-- * 'cdgProjection'
105chromeosDevicesGet'
75chromeosDevicesGet'
106 :: Text -- ^ 'customerId'
76 :: Text -- ^ 'customerId'
107 -> Text -- ^ 'deviceId'
77 -> Text -- ^ 'deviceId'
108 -> ChromeosDevicesGet'
78 -> ChromeosDevicesGet'
109chromeosDevicesGet' pCdgCustomerId_ pCdgDeviceId_ =
79chromeosDevicesGet' pCdgCustomerId_ pCdgDeviceId_ =
110 ChromeosDevicesGet'
80 ChromeosDevicesGet'
111− { _cdgQuotaUser = Nothing
112− , _cdgPrettyPrint = True
113− , _cdgUserIP = Nothing
114− , _cdgCustomerId = pCdgCustomerId_
81+ { _cdgCustomerId = pCdgCustomerId_
116 , _cdgDeviceId = pCdgDeviceId_
82 , _cdgDeviceId = pCdgDeviceId_
117 , _cdgProjection = Nothing
83 , _cdgProjection = Nothing
118− , _cdgOAuthToken = Nothing
119− , _cdgFields = Nothing
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)
127− = lens _cdgQuotaUser (\ s a -> s{_cdgQuotaUser = a})
129−-- | Returns response with indentations and line breaks.
130−cdgPrettyPrint :: Lens' ChromeosDevicesGet' Bool
132− = lens _cdgPrettyPrint
133− (\ s a -> s{_cdgPrettyPrint = a})
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)
139− = lens _cdgUserIP (\ s a -> s{_cdgUserIP = a})
141-- | Immutable id of the Google Apps account
86-- | Immutable id of the Google Apps account
142cdgCustomerId :: Lens' ChromeosDevicesGet' Text
87cdgCustomerId :: Lens' ChromeosDevicesGet' Text
143cdgCustomerId
88cdgCustomerId
144 = lens _cdgCustomerId
89 = lens _cdgCustomerId
145 (\ s a -> s{_cdgCustomerId = a})
90 (\ s a -> s{_cdgCustomerId = a})
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
150−cdgKey :: Lens' ChromeosDevicesGet' (Maybe AuthKey)
151−cdgKey = lens _cdgKey (\ s a -> s{_cdgKey = a})
153-- | Immutable id of Chrome OS Device
92-- | Immutable id of Chrome OS Device
154cdgDeviceId :: Lens' ChromeosDevicesGet' Text
93cdgDeviceId :: Lens' ChromeosDevicesGet' Text
155cdgDeviceId
94cdgDeviceId
@@ -161,34 +100,13 @@ cdgProjection
161 = lens _cdgProjection
100 = lens _cdgProjection
162 (\ s a -> s{_cdgProjection = a})
101 (\ s a -> s{_cdgProjection = a})
164−-- | OAuth 2.0 token for the current user.
165−cdgOAuthToken :: Lens' ChromeosDevicesGet' (Maybe OAuthToken)
167− = lens _cdgOAuthToken
168− (\ s a -> s{_cdgOAuthToken = a})
170−-- | Selector specifying which fields to include in a partial response.
171−cdgFields :: Lens' ChromeosDevicesGet' (Maybe Text)
173− = lens _cdgFields (\ s a -> s{_cdgFields = a})
175−instance GoogleAuth ChromeosDevicesGet' where
176− _AuthKey = cdgKey . _Just
177− _AuthToken = cdgOAuthToken . _Just
179instance GoogleRequest ChromeosDevicesGet' where
103instance GoogleRequest ChromeosDevicesGet' where
180 type Rs ChromeosDevicesGet' = ChromeOSDevice
104 type Rs ChromeosDevicesGet' = ChromeOSDevice
181− request = requestWith directoryRequest
182− requestWith rq ChromeosDevicesGet'{..}
105+ requestClient ChromeosDevicesGet'{..}
183 = go _cdgCustomerId _cdgDeviceId _cdgProjection
106 = go _cdgCustomerId _cdgDeviceId _cdgProjection
185− (Just _cdgPrettyPrint)
190 (Just AltJSON)
107 (Just AltJSON)
192− = clientBuild
110+ = buildClient
193 (Proxy :: Proxy ChromeosDevicesGetResource)
111 (Proxy :: Proxy ChromeosDevicesGetResource)
gogol-admin-directory/gen/Network/Google/Resource/Directory/ChromeosDevices/List.hs+14−96
@@ -33,19 +33,13 @@ module Network.Google.Resource.Directory.ChromeosDevices.List
33 , ChromeosDevicesList'
33 , ChromeosDevicesList'
35 -- * Request Lenses
35 -- * Request Lenses
38 , cdlOrderBy
36 , cdlOrderBy
40 , cdlCustomerId
37 , cdlCustomerId
41 , cdlSortOrder
38 , cdlSortOrder
43 , cdlQuery
39 , cdlQuery
44 , cdlProjection
40 , cdlProjection
45 , cdlPageToken
41 , cdlPageToken
47 , cdlMaxResults
42 , cdlMaxResults
51import Network.Google.Directory.Types
45import Network.Google.Directory.Types
@@ -66,107 +60,58 @@ type ChromeosDevicesListResource =
67 QueryParam "pageToken" Text :>
61 QueryParam "pageToken" Text :>
68 QueryParam "maxResults" Int32 :>
62 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 :>
63+ QueryParam "alt" AltJSON :>
76− Get '[JSON] ChromeOSDevices
64+ Get '[JSON] ChromeOSDevices
78-- | Retrieve all Chrome OS Devices of a customer (paginated)
66-- | Retrieve all Chrome OS Devices of a customer (paginated)
80-- /See:/ 'chromeosDevicesList'' smart constructor.
68-- /See:/ 'chromeosDevicesList'' smart constructor.
81data ChromeosDevicesList' = ChromeosDevicesList'
69data ChromeosDevicesList' = ChromeosDevicesList'
82− { _cdlQuotaUser :: !(Maybe Text)
83− , _cdlPrettyPrint :: !Bool
84− , _cdlOrderBy :: !(Maybe ChromeosDevicesListOrderBy)
70+ { _cdlOrderBy :: !(Maybe ChromeosDevicesListOrderBy)
85− , _cdlUserIP :: !(Maybe Text)
86− , _cdlCustomerId :: !Text
71+ , _cdlCustomerId :: !Text
87− , _cdlSortOrder :: !(Maybe ChromeosDevicesListSortOrder)
72+ , _cdlSortOrder :: !(Maybe ChromeosDevicesListSortOrder)
88− , _cdlKey :: !(Maybe AuthKey)
89− , _cdlQuery :: !(Maybe Text)
73+ , _cdlQuery :: !(Maybe Text)
90− , _cdlProjection :: !(Maybe ChromeosDevicesListProjection)
74+ , _cdlProjection :: !(Maybe ChromeosDevicesListProjection)
91− , _cdlPageToken :: !(Maybe Text)
75+ , _cdlPageToken :: !(Maybe Text)
92− , _cdlOAuthToken :: !(Maybe OAuthToken)
93− , _cdlMaxResults :: !(Maybe Int32)
76+ , _cdlMaxResults :: !(Maybe Int32)
94− , _cdlFields :: !(Maybe Text)
95 } deriving (Eq,Show,Data,Typeable,Generic)
77 } deriving (Eq,Show,Data,Typeable,Generic)
97-- | Creates a value of 'ChromeosDevicesList'' with the minimum fields required to make a request.
79-- | Creates a value of 'ChromeosDevicesList'' with the minimum fields required to make a request.
99-- Use one of the following lenses to modify other fields as desired:
81-- Use one of the following lenses to modify other fields as desired:
103−-- * 'cdlPrettyPrint'
105-- * 'cdlOrderBy'
83-- * 'cdlOrderBy'
109-- * 'cdlCustomerId'
85-- * 'cdlCustomerId'
111-- * 'cdlSortOrder'
87-- * 'cdlSortOrder'
115-- * 'cdlQuery'
89-- * 'cdlQuery'
117-- * 'cdlProjection'
91-- * 'cdlProjection'
119-- * 'cdlPageToken'
93-- * 'cdlPageToken'
123-- * 'cdlMaxResults'
95-- * 'cdlMaxResults'
126chromeosDevicesList'
96chromeosDevicesList'
127 :: Text -- ^ 'customerId'
97 :: Text -- ^ 'customerId'
128 -> ChromeosDevicesList'
98 -> ChromeosDevicesList'
129chromeosDevicesList' pCdlCustomerId_ =
99chromeosDevicesList' pCdlCustomerId_ =
130 ChromeosDevicesList'
100 ChromeosDevicesList'
131− { _cdlQuotaUser = Nothing
132− , _cdlPrettyPrint = True
133− , _cdlOrderBy = Nothing
101+ { _cdlOrderBy = Nothing
134− , _cdlUserIP = Nothing
135 , _cdlCustomerId = pCdlCustomerId_
102 , _cdlCustomerId = pCdlCustomerId_
136 , _cdlSortOrder = Nothing
103 , _cdlSortOrder = Nothing
138 , _cdlQuery = Nothing
104 , _cdlQuery = Nothing
139 , _cdlProjection = Nothing
105 , _cdlProjection = Nothing
140 , _cdlPageToken = Nothing
106 , _cdlPageToken = Nothing
141− , _cdlOAuthToken = Nothing
142 , _cdlMaxResults = Nothing
107 , _cdlMaxResults = Nothing
143− , _cdlFields = Nothing
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)
151− = lens _cdlQuotaUser (\ s a -> s{_cdlQuotaUser = a})
153−-- | Returns response with indentations and line breaks.
154−cdlPrettyPrint :: Lens' ChromeosDevicesList' Bool
156− = lens _cdlPrettyPrint
157− (\ s a -> s{_cdlPrettyPrint = a})
159-- | Column to use for sorting results
110-- | Column to use for sorting results
160cdlOrderBy :: Lens' ChromeosDevicesList' (Maybe ChromeosDevicesListOrderBy)
111cdlOrderBy :: Lens' ChromeosDevicesList' (Maybe ChromeosDevicesListOrderBy)
161cdlOrderBy
112cdlOrderBy
162 = lens _cdlOrderBy (\ s a -> s{_cdlOrderBy = a})
113 = lens _cdlOrderBy (\ s a -> s{_cdlOrderBy = a})
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)
168− = lens _cdlUserIP (\ s a -> s{_cdlUserIP = a})
170-- | Immutable id of the Google Apps account
115-- | Immutable id of the Google Apps account
171cdlCustomerId :: Lens' ChromeosDevicesList' Text
116cdlCustomerId :: Lens' ChromeosDevicesList' Text
172cdlCustomerId
117cdlCustomerId
@@ -179,12 +124,6 @@ cdlSortOrder :: Lens' ChromeosDevicesList' (Maybe ChromeosDevicesListSortOrder)
179cdlSortOrder
124cdlSortOrder
180 = lens _cdlSortOrder (\ s a -> s{_cdlSortOrder = a})
125 = lens _cdlSortOrder (\ s a -> s{_cdlSortOrder = a})
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
185−cdlKey :: Lens' ChromeosDevicesList' (Maybe AuthKey)
186−cdlKey = lens _cdlKey (\ s a -> s{_cdlKey = a})
188-- | Search string in the format given at
127-- | Search string in the format given at
189-- http:\/\/support.google.com\/chromeos\/a\/bin\/answer.py?hl=en&answer=1698333
128-- http:\/\/support.google.com\/chromeos\/a\/bin\/answer.py?hl=en&answer=1698333
190cdlQuery :: Lens' ChromeosDevicesList' (Maybe Text)
129cdlQuery :: Lens' ChromeosDevicesList' (Maybe Text)
@@ -201,44 +140,23 @@ cdlPageToken :: Lens' ChromeosDevicesList' (Maybe Text)
201cdlPageToken
140cdlPageToken
202 = lens _cdlPageToken (\ s a -> s{_cdlPageToken = a})
141 = lens _cdlPageToken (\ s a -> s{_cdlPageToken = a})
204−-- | OAuth 2.0 token for the current user.
205−cdlOAuthToken :: Lens' ChromeosDevicesList' (Maybe OAuthToken)
207− = lens _cdlOAuthToken
208− (\ s a -> s{_cdlOAuthToken = a})
210-- | Maximum number of results to return. Default is 100
143-- | Maximum number of results to return. Default is 100
211cdlMaxResults :: Lens' ChromeosDevicesList' (Maybe Int32)
144cdlMaxResults :: Lens' ChromeosDevicesList' (Maybe Int32)
212cdlMaxResults
145cdlMaxResults
213 = lens _cdlMaxResults
146 = lens _cdlMaxResults
214 (\ s a -> s{_cdlMaxResults = a})
147 (\ s a -> s{_cdlMaxResults = a})
216−-- | Selector specifying which fields to include in a partial response.
217−cdlFields :: Lens' ChromeosDevicesList' (Maybe Text)
219− = lens _cdlFields (\ s a -> s{_cdlFields = a})
221−instance GoogleAuth ChromeosDevicesList' where
222− _AuthKey = cdlKey . _Just
223− _AuthToken = cdlOAuthToken . _Just
225instance GoogleRequest ChromeosDevicesList' where
149instance GoogleRequest ChromeosDevicesList' where
226 type Rs ChromeosDevicesList' = ChromeOSDevices
150 type Rs ChromeosDevicesList' = ChromeOSDevices
227− request = requestWith directoryRequest
228− requestWith rq ChromeosDevicesList'{..}
151+ requestClient ChromeosDevicesList'{..}
229 = go _cdlCustomerId _cdlOrderBy _cdlSortOrder
152 = go _cdlCustomerId _cdlOrderBy _cdlSortOrder
230 _cdlQuery
153 _cdlQuery
231 _cdlProjection
154 _cdlProjection
232 _cdlPageToken
155 _cdlPageToken
233 _cdlMaxResults
156 _cdlMaxResults
235− (Just _cdlPrettyPrint)
240 (Just AltJSON)
157 (Just AltJSON)
242− = clientBuild
160+ = buildClient
243 (Proxy :: Proxy ChromeosDevicesListResource)
161 (Proxy :: Proxy ChromeosDevicesListResource)
gogol-admin-directory/gen/Network/Google/Resource/Directory/ChromeosDevices/Patch.hs+12−94
@@ -33,16 +33,10 @@ module Network.Google.Resource.Directory.ChromeosDevices.Patch
33 , ChromeosDevicesPatch'
33 , ChromeosDevicesPatch'
35 -- * Request Lenses
35 -- * Request Lenses
39 , cdpPayload
36 , cdpPayload
40 , cdpCustomerId
37 , cdpCustomerId
42 , cdpDeviceId
38 , cdpDeviceId
43 , cdpProjection
39 , cdpProjection
48import Network.Google.Directory.Types
42import Network.Google.Directory.Types
@@ -59,55 +53,31 @@ type ChromeosDevicesPatchResource =
59 QueryParam "projection"
53 QueryParam "projection"
60 ChromeosDevicesPatchProjection
54 ChromeosDevicesPatchProjection
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 :>
56+ QueryParam "alt" AltJSON :>
69− ReqBody '[JSON] ChromeOSDevice :>
57+ ReqBody '[JSON] ChromeOSDevice :>
70− Patch '[JSON] ChromeOSDevice
58+ Patch '[JSON] ChromeOSDevice
72-- | Update Chrome OS Device. This method supports patch semantics.
60-- | Update Chrome OS Device. This method supports patch semantics.
74-- /See:/ 'chromeosDevicesPatch'' smart constructor.
62-- /See:/ 'chromeosDevicesPatch'' smart constructor.
75data ChromeosDevicesPatch' = ChromeosDevicesPatch'
63data ChromeosDevicesPatch' = ChromeosDevicesPatch'
76− { _cdpQuotaUser :: !(Maybe Text)
77− , _cdpPrettyPrint :: !Bool
78− , _cdpUserIP :: !(Maybe Text)
79− , _cdpPayload :: !ChromeOSDevice
64+ { _cdpPayload :: !ChromeOSDevice
80− , _cdpCustomerId :: !Text
65+ , _cdpCustomerId :: !Text
81− , _cdpKey :: !(Maybe AuthKey)
82− , _cdpDeviceId :: !Text
66+ , _cdpDeviceId :: !Text
83− , _cdpProjection :: !(Maybe ChromeosDevicesPatchProjection)
67+ , _cdpProjection :: !(Maybe ChromeosDevicesPatchProjection)
84− , _cdpOAuthToken :: !(Maybe OAuthToken)
85− , _cdpFields :: !(Maybe Text)
86 } deriving (Eq,Show,Data,Typeable,Generic)
68 } deriving (Eq,Show,Data,Typeable,Generic)
88-- | Creates a value of 'ChromeosDevicesPatch'' with the minimum fields required to make a request.
70-- | Creates a value of 'ChromeosDevicesPatch'' with the minimum fields required to make a request.
90-- Use one of the following lenses to modify other fields as desired:
72-- Use one of the following lenses to modify other fields as desired:
98-- * 'cdpPayload'
74-- * 'cdpPayload'
100-- * 'cdpCustomerId'
76-- * 'cdpCustomerId'
104-- * 'cdpDeviceId'
78-- * 'cdpDeviceId'
106-- * 'cdpProjection'
80-- * 'cdpProjection'
111chromeosDevicesPatch'
81chromeosDevicesPatch'
112 :: ChromeOSDevice -- ^ 'payload'
82 :: ChromeOSDevice -- ^ 'payload'
113 -> Text -- ^ 'customerId'
83 -> Text -- ^ 'customerId'
@@ -115,37 +85,12 @@ chromeosDevicesPatch'
115 -> ChromeosDevicesPatch'
85 -> ChromeosDevicesPatch'
116chromeosDevicesPatch' pCdpPayload_ pCdpCustomerId_ pCdpDeviceId_ =
86chromeosDevicesPatch' pCdpPayload_ pCdpCustomerId_ pCdpDeviceId_ =
117 ChromeosDevicesPatch'
87 ChromeosDevicesPatch'
118− { _cdpQuotaUser = Nothing
119− , _cdpPrettyPrint = True
120− , _cdpUserIP = Nothing
121− , _cdpPayload = pCdpPayload_
88+ { _cdpPayload = pCdpPayload_
122 , _cdpCustomerId = pCdpCustomerId_
89 , _cdpCustomerId = pCdpCustomerId_
124 , _cdpDeviceId = pCdpDeviceId_
90 , _cdpDeviceId = pCdpDeviceId_
125 , _cdpProjection = Nothing
91 , _cdpProjection = Nothing
126− , _cdpOAuthToken = Nothing
127− , _cdpFields = Nothing
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)
135− = lens _cdpQuotaUser (\ s a -> s{_cdpQuotaUser = a})
137−-- | Returns response with indentations and line breaks.
138−cdpPrettyPrint :: Lens' ChromeosDevicesPatch' Bool
140− = lens _cdpPrettyPrint
141− (\ s a -> s{_cdpPrettyPrint = a})
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)
147− = lens _cdpUserIP (\ s a -> s{_cdpUserIP = a})
149-- | Multipart request metadata.
94-- | Multipart request metadata.
150cdpPayload :: Lens' ChromeosDevicesPatch' ChromeOSDevice
95cdpPayload :: Lens' ChromeosDevicesPatch' ChromeOSDevice
151cdpPayload
96cdpPayload
@@ -157,12 +102,6 @@ cdpCustomerId
157 = lens _cdpCustomerId
102 = lens _cdpCustomerId
158 (\ s a -> s{_cdpCustomerId = a})
103 (\ s a -> s{_cdpCustomerId = a})
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
163−cdpKey :: Lens' ChromeosDevicesPatch' (Maybe AuthKey)
164−cdpKey = lens _cdpKey (\ s a -> s{_cdpKey = a})
166-- | Immutable id of Chrome OS Device
105-- | Immutable id of Chrome OS Device
167cdpDeviceId :: Lens' ChromeosDevicesPatch' Text
106cdpDeviceId :: Lens' ChromeosDevicesPatch' Text
168cdpDeviceId
107cdpDeviceId
@@ -174,35 +113,14 @@ cdpProjection
174 = lens _cdpProjection
113 = lens _cdpProjection
175 (\ s a -> s{_cdpProjection = a})
114 (\ s a -> s{_cdpProjection = a})
177−-- | OAuth 2.0 token for the current user.
178−cdpOAuthToken :: Lens' ChromeosDevicesPatch' (Maybe OAuthToken)
180− = lens _cdpOAuthToken
181− (\ s a -> s{_cdpOAuthToken = a})
183−-- | Selector specifying which fields to include in a partial response.
184−cdpFields :: Lens' ChromeosDevicesPatch' (Maybe Text)
186− = lens _cdpFields (\ s a -> s{_cdpFields = a})
188−instance GoogleAuth ChromeosDevicesPatch' where
189− _AuthKey = cdpKey . _Just
190− _AuthToken = cdpOAuthToken . _Just
192instance GoogleRequest ChromeosDevicesPatch' where
116instance GoogleRequest ChromeosDevicesPatch' where
193 type Rs ChromeosDevicesPatch' = ChromeOSDevice
117 type Rs ChromeosDevicesPatch' = ChromeOSDevice
194− request = requestWith directoryRequest
195− requestWith rq ChromeosDevicesPatch'{..}
118+ requestClient ChromeosDevicesPatch'{..}
196 = go _cdpCustomerId _cdpDeviceId _cdpProjection
119 = go _cdpCustomerId _cdpDeviceId _cdpProjection
198− (Just _cdpPrettyPrint)
203 (Just AltJSON)
120 (Just AltJSON)
204 _cdpPayload
121 _cdpPayload
206− = clientBuild
124+ = buildClient
207 (Proxy :: Proxy ChromeosDevicesPatchResource)
125 (Proxy :: Proxy ChromeosDevicesPatchResource)
gogol-admin-directory/gen/Network/Google/Resource/Directory/ChromeosDevices/Update.hs+12−94
@@ -33,16 +33,10 @@ module Network.Google.Resource.Directory.ChromeosDevices.Update
33 , ChromeosDevicesUpdate'
33 , ChromeosDevicesUpdate'
35 -- * Request Lenses
35 -- * Request Lenses
39 , cduPayload
36 , cduPayload
40 , cduCustomerId
37 , cduCustomerId
42 , cduDeviceId
38 , cduDeviceId
43 , cduProjection
39 , cduProjection
48import Network.Google.Directory.Types
42import Network.Google.Directory.Types
@@ -59,55 +53,31 @@ type ChromeosDevicesUpdateResource =
59 QueryParam "projection"
53 QueryParam "projection"
60 ChromeosDevicesUpdateProjection
54 ChromeosDevicesUpdateProjection
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 :>
56+ QueryParam "alt" AltJSON :>
69− ReqBody '[JSON] ChromeOSDevice :>
57+ ReqBody '[JSON] ChromeOSDevice :>
70− Put '[JSON] ChromeOSDevice
58+ Put '[JSON] ChromeOSDevice
72-- | Update Chrome OS Device
60-- | Update Chrome OS Device
74-- /See:/ 'chromeosDevicesUpdate'' smart constructor.
62-- /See:/ 'chromeosDevicesUpdate'' smart constructor.
75data ChromeosDevicesUpdate' = ChromeosDevicesUpdate'
63data ChromeosDevicesUpdate' = ChromeosDevicesUpdate'
76− { _cduQuotaUser :: !(Maybe Text)
77− , _cduPrettyPrint :: !Bool
78− , _cduUserIP :: !(Maybe Text)
79− , _cduPayload :: !ChromeOSDevice
64+ { _cduPayload :: !ChromeOSDevice
80− , _cduCustomerId :: !Text
65+ , _cduCustomerId :: !Text
81− , _cduKey :: !(Maybe AuthKey)
82− , _cduDeviceId :: !Text
66+ , _cduDeviceId :: !Text
83− , _cduProjection :: !(Maybe ChromeosDevicesUpdateProjection)
67+ , _cduProjection :: !(Maybe ChromeosDevicesUpdateProjection)
84− , _cduOAuthToken :: !(Maybe OAuthToken)
85− , _cduFields :: !(Maybe Text)
86 } deriving (Eq,Show,Data,Typeable,Generic)
68 } deriving (Eq,Show,Data,Typeable,Generic)
88-- | Creates a value of 'ChromeosDevicesUpdate'' with the minimum fields required to make a request.
70-- | Creates a value of 'ChromeosDevicesUpdate'' with the minimum fields required to make a request.
90-- Use one of the following lenses to modify other fields as desired:
72-- Use one of the following lenses to modify other fields as desired:
98-- * 'cduPayload'
74-- * 'cduPayload'
100-- * 'cduCustomerId'
76-- * 'cduCustomerId'
104-- * 'cduDeviceId'
78-- * 'cduDeviceId'
106-- * 'cduProjection'
80-- * 'cduProjection'
111chromeosDevicesUpdate'
81chromeosDevicesUpdate'
112 :: ChromeOSDevice -- ^ 'payload'
82 :: ChromeOSDevice -- ^ 'payload'
113 -> Text -- ^ 'customerId'
83 -> Text -- ^ 'customerId'
@@ -115,37 +85,12 @@ chromeosDevicesUpdate'
115 -> ChromeosDevicesUpdate'
85 -> ChromeosDevicesUpdate'
116chromeosDevicesUpdate' pCduPayload_ pCduCustomerId_ pCduDeviceId_ =
86chromeosDevicesUpdate' pCduPayload_ pCduCustomerId_ pCduDeviceId_ =
117 ChromeosDevicesUpdate'
87 ChromeosDevicesUpdate'
118− { _cduQuotaUser = Nothing
119− , _cduPrettyPrint = True
120− , _cduUserIP = Nothing
121− , _cduPayload = pCduPayload_
88+ { _cduPayload = pCduPayload_
122 , _cduCustomerId = pCduCustomerId_
89 , _cduCustomerId = pCduCustomerId_
124 , _cduDeviceId = pCduDeviceId_
90 , _cduDeviceId = pCduDeviceId_
125 , _cduProjection = Nothing
91 , _cduProjection = Nothing
126− , _cduOAuthToken = Nothing
127− , _cduFields = Nothing
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)
135− = lens _cduQuotaUser (\ s a -> s{_cduQuotaUser = a})
137−-- | Returns response with indentations and line breaks.
138−cduPrettyPrint :: Lens' ChromeosDevicesUpdate' Bool
140− = lens _cduPrettyPrint
141− (\ s a -> s{_cduPrettyPrint = a})
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)
147− = lens _cduUserIP (\ s a -> s{_cduUserIP = a})
149-- | Multipart request metadata.
94-- | Multipart request metadata.
150cduPayload :: Lens' ChromeosDevicesUpdate' ChromeOSDevice
95cduPayload :: Lens' ChromeosDevicesUpdate' ChromeOSDevice
151cduPayload
96cduPayload
@@ -157,12 +102,6 @@ cduCustomerId
157 = lens _cduCustomerId
102 = lens _cduCustomerId
158 (\ s a -> s{_cduCustomerId = a})
103 (\ s a -> s{_cduCustomerId = a})
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
163−cduKey :: Lens' ChromeosDevicesUpdate' (Maybe AuthKey)
164−cduKey = lens _cduKey (\ s a -> s{_cduKey = a})
166-- | Immutable id of Chrome OS Device
105-- | Immutable id of Chrome OS Device
167cduDeviceId :: Lens' ChromeosDevicesUpdate' Text
106cduDeviceId :: Lens' ChromeosDevicesUpdate' Text
168cduDeviceId
107cduDeviceId
@@ -174,35 +113,14 @@ cduProjection
174 = lens _cduProjection
113 = lens _cduProjection
175 (\ s a -> s{_cduProjection = a})
114 (\ s a -> s{_cduProjection = a})
177−-- | OAuth 2.0 token for the current user.
178−cduOAuthToken :: Lens' ChromeosDevicesUpdate' (Maybe OAuthToken)
180− = lens _cduOAuthToken
181− (\ s a -> s{_cduOAuthToken = a})
183−-- | Selector specifying which fields to include in a partial response.
184−cduFields :: Lens' ChromeosDevicesUpdate' (Maybe Text)
186− = lens _cduFields (\ s a -> s{_cduFields = a})
188−instance GoogleAuth ChromeosDevicesUpdate' where
189− _AuthKey = cduKey . _Just
190− _AuthToken = cduOAuthToken . _Just
192instance GoogleRequest ChromeosDevicesUpdate' where
116instance GoogleRequest ChromeosDevicesUpdate' where
193 type Rs ChromeosDevicesUpdate' = ChromeOSDevice
117 type Rs ChromeosDevicesUpdate' = ChromeOSDevice
194− request = requestWith directoryRequest
195− requestWith rq ChromeosDevicesUpdate'{..}
118+ requestClient ChromeosDevicesUpdate'{..}
196 = go _cduCustomerId _cduDeviceId _cduProjection
119 = go _cduCustomerId _cduDeviceId _cduProjection
198− (Just _cduPrettyPrint)
203 (Just AltJSON)
120 (Just AltJSON)
204 _cduPayload
121 _cduPayload
206− = clientBuild
124+ = buildClient
207 (Proxy :: Proxy ChromeosDevicesUpdateResource)
125 (Proxy :: Proxy ChromeosDevicesUpdateResource)
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
33 , GroupsAliasesDelete'
33 , GroupsAliasesDelete'
35 -- * Request Lenses
35 -- * Request Lenses
39 , gadGroupKey
36 , gadGroupKey
40 , gadAlias
37 , gadAlias
46import Network.Google.Directory.Types
40import Network.Google.Directory.Types
@@ -53,82 +47,33 @@ type GroupsAliasesDeleteResource =
53 Capture "groupKey" Text :>
47 Capture "groupKey" Text :>
54 "aliases" :>
48 "aliases" :>
55 Capture "alias" Text :>
49 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] ()
64-- | Remove a alias for the group
52-- | Remove a alias for the group
66-- /See:/ 'groupsAliasesDelete'' smart constructor.
54-- /See:/ 'groupsAliasesDelete'' smart constructor.
67data GroupsAliasesDelete' = GroupsAliasesDelete'
55data GroupsAliasesDelete' = GroupsAliasesDelete'
68− { _gadQuotaUser :: !(Maybe Text)
69− , _gadPrettyPrint :: !Bool
70− , _gadUserIP :: !(Maybe Text)
71− , _gadGroupKey :: !Text
56+ { _gadGroupKey :: !Text
72− , _gadAlias :: !Text
57+ , _gadAlias :: !Text
73− , _gadKey :: !(Maybe AuthKey)
74− , _gadOAuthToken :: !(Maybe OAuthToken)
75− , _gadFields :: !(Maybe Text)
76 } deriving (Eq,Show,Data,Typeable,Generic)
58 } deriving (Eq,Show,Data,Typeable,Generic)
78-- | Creates a value of 'GroupsAliasesDelete'' with the minimum fields required to make a request.
60-- | Creates a value of 'GroupsAliasesDelete'' with the minimum fields required to make a request.
80-- Use one of the following lenses to modify other fields as desired:
62-- Use one of the following lenses to modify other fields as desired:
88-- * 'gadGroupKey'
64-- * 'gadGroupKey'
90-- * 'gadAlias'
66-- * 'gadAlias'
97groupsAliasesDelete'
67groupsAliasesDelete'
98 :: Text -- ^ 'groupKey'
68 :: Text -- ^ 'groupKey'
99 -> Text -- ^ 'alias'
69 -> Text -- ^ 'alias'
100 -> GroupsAliasesDelete'
70 -> GroupsAliasesDelete'
101groupsAliasesDelete' pGadGroupKey_ pGadAlias_ =
71groupsAliasesDelete' pGadGroupKey_ pGadAlias_ =
102 GroupsAliasesDelete'
72 GroupsAliasesDelete'
103− { _gadQuotaUser = Nothing
104− , _gadPrettyPrint = True
105− , _gadUserIP = Nothing
106− , _gadGroupKey = pGadGroupKey_
73+ { _gadGroupKey = pGadGroupKey_
107 , _gadAlias = pGadAlias_
74 , _gadAlias = pGadAlias_
109− , _gadOAuthToken = Nothing
110− , _gadFields = Nothing
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)
118− = lens _gadQuotaUser (\ s a -> s{_gadQuotaUser = a})
120−-- | Returns response with indentations and line breaks.
121−gadPrettyPrint :: Lens' GroupsAliasesDelete' Bool
123− = lens _gadPrettyPrint
124− (\ s a -> s{_gadPrettyPrint = a})
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)
130− = lens _gadUserIP (\ s a -> s{_gadUserIP = a})
132-- | Email or immutable Id of the group
77-- | Email or immutable Id of the group
133gadGroupKey :: Lens' GroupsAliasesDelete' Text
78gadGroupKey :: Lens' GroupsAliasesDelete' Text
134gadGroupKey
79gadGroupKey
@@ -138,39 +83,12 @@ gadGroupKey
138gadAlias :: Lens' GroupsAliasesDelete' Text
83gadAlias :: Lens' GroupsAliasesDelete' Text
139gadAlias = lens _gadAlias (\ s a -> s{_gadAlias = a})
84gadAlias = lens _gadAlias (\ s a -> s{_gadAlias = a})
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
144−gadKey :: Lens' GroupsAliasesDelete' (Maybe AuthKey)
145−gadKey = lens _gadKey (\ s a -> s{_gadKey = a})
147−-- | OAuth 2.0 token for the current user.
148−gadOAuthToken :: Lens' GroupsAliasesDelete' (Maybe OAuthToken)
150− = lens _gadOAuthToken
151− (\ s a -> s{_gadOAuthToken = a})
153−-- | Selector specifying which fields to include in a partial response.
154−gadFields :: Lens' GroupsAliasesDelete' (Maybe Text)
156− = lens _gadFields (\ s a -> s{_gadFields = a})
158−instance GoogleAuth GroupsAliasesDelete' where
159− _AuthKey = gadKey . _Just
160− _AuthToken = gadOAuthToken . _Just
162instance GoogleRequest GroupsAliasesDelete' where
86instance GoogleRequest GroupsAliasesDelete' where
163 type Rs GroupsAliasesDelete' = ()
87 type Rs GroupsAliasesDelete' = ()
164− request = requestWith directoryRequest
165− requestWith rq GroupsAliasesDelete'{..}
88+ requestClient GroupsAliasesDelete'{..}
166− = go _gadGroupKey _gadAlias _gadQuotaUser
89+ = go _gadGroupKey _gadAlias (Just AltJSON)
167− (Just _gadPrettyPrint)
90+ directoryService
174− = clientBuild
92+ = buildClient
175 (Proxy :: Proxy GroupsAliasesDeleteResource)
93 (Proxy :: Proxy GroupsAliasesDeleteResource)
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
33 , GroupsAliasesInsert'
33 , GroupsAliasesInsert'
35 -- * Request Lenses
35 -- * Request Lenses
39 , gaiGroupKey
36 , gaiGroupKey
40 , gaiPayload
37 , gaiPayload
46import Network.Google.Directory.Types
40import Network.Google.Directory.Types
@@ -52,83 +46,34 @@ type GroupsAliasesInsertResource =
52 "groups" :>
46 "groups" :>
53 Capture "groupKey" Text :>
47 Capture "groupKey" Text :>
54 "aliases" :>
48 "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 :>
49+ QueryParam "alt" AltJSON :>
62− ReqBody '[JSON] Alias :> Post '[JSON] Alias
50+ ReqBody '[JSON] Alias :> Post '[JSON] Alias
64-- | Add a alias for the group
52-- | Add a alias for the group
66-- /See:/ 'groupsAliasesInsert'' smart constructor.
54-- /See:/ 'groupsAliasesInsert'' smart constructor.
67data GroupsAliasesInsert' = GroupsAliasesInsert'
55data GroupsAliasesInsert' = GroupsAliasesInsert'
68− { _gaiQuotaUser :: !(Maybe Text)
69− , _gaiPrettyPrint :: !Bool
70− , _gaiUserIP :: !(Maybe Text)
71− , _gaiGroupKey :: !Text
56+ { _gaiGroupKey :: !Text
72− , _gaiPayload :: !Alias
57+ , _gaiPayload :: !Alias
73− , _gaiKey :: !(Maybe AuthKey)
74− , _gaiOAuthToken :: !(Maybe OAuthToken)
75− , _gaiFields :: !(Maybe Text)
76 } deriving (Eq,Show,Data,Typeable,Generic)
58 } deriving (Eq,Show,Data,Typeable,Generic)
78-- | Creates a value of 'GroupsAliasesInsert'' with the minimum fields required to make a request.
60-- | Creates a value of 'GroupsAliasesInsert'' with the minimum fields required to make a request.
80-- Use one of the following lenses to modify other fields as desired:
62-- Use one of the following lenses to modify other fields as desired:
88-- * 'gaiGroupKey'
64-- * 'gaiGroupKey'
90-- * 'gaiPayload'
66-- * 'gaiPayload'
97groupsAliasesInsert'
67groupsAliasesInsert'
98 :: Text -- ^ 'groupKey'
68 :: Text -- ^ 'groupKey'
99 -> Alias -- ^ 'payload'
69 -> Alias -- ^ 'payload'
100 -> GroupsAliasesInsert'
70 -> GroupsAliasesInsert'
101groupsAliasesInsert' pGaiGroupKey_ pGaiPayload_ =
71groupsAliasesInsert' pGaiGroupKey_ pGaiPayload_ =
102 GroupsAliasesInsert'
72 GroupsAliasesInsert'
103− { _gaiQuotaUser = Nothing
104− , _gaiPrettyPrint = True
105− , _gaiUserIP = Nothing
106− , _gaiGroupKey = pGaiGroupKey_
73+ { _gaiGroupKey = pGaiGroupKey_
107 , _gaiPayload = pGaiPayload_
74 , _gaiPayload = pGaiPayload_
109− , _gaiOAuthToken = Nothing
110− , _gaiFields = Nothing
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)
118− = lens _gaiQuotaUser (\ s a -> s{_gaiQuotaUser = a})
120−-- | Returns response with indentations and line breaks.
121−gaiPrettyPrint :: Lens' GroupsAliasesInsert' Bool
123− = lens _gaiPrettyPrint
124− (\ s a -> s{_gaiPrettyPrint = a})
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)
130− = lens _gaiUserIP (\ s a -> s{_gaiUserIP = a})
132-- | Email or immutable Id of the group
77-- | Email or immutable Id of the group
133gaiGroupKey :: Lens' GroupsAliasesInsert' Text
78gaiGroupKey :: Lens' GroupsAliasesInsert' Text
134gaiGroupKey
79gaiGroupKey
@@ -139,40 +84,12 @@ gaiPayload :: Lens' GroupsAliasesInsert' Alias
139gaiPayload
84gaiPayload
140 = lens _gaiPayload (\ s a -> s{_gaiPayload = a})
85 = lens _gaiPayload (\ s a -> s{_gaiPayload = a})
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
145−gaiKey :: Lens' GroupsAliasesInsert' (Maybe AuthKey)
146−gaiKey = lens _gaiKey (\ s a -> s{_gaiKey = a})
148−-- | OAuth 2.0 token for the current user.
149−gaiOAuthToken :: Lens' GroupsAliasesInsert' (Maybe OAuthToken)
151− = lens _gaiOAuthToken
152− (\ s a -> s{_gaiOAuthToken = a})
154−-- | Selector specifying which fields to include in a partial response.
155−gaiFields :: Lens' GroupsAliasesInsert' (Maybe Text)
157− = lens _gaiFields (\ s a -> s{_gaiFields = a})
159−instance GoogleAuth GroupsAliasesInsert' where
160− _AuthKey = gaiKey . _Just
161− _AuthToken = gaiOAuthToken . _Just
163instance GoogleRequest GroupsAliasesInsert' where
87instance GoogleRequest GroupsAliasesInsert' where
164 type Rs GroupsAliasesInsert' = Alias
88 type Rs GroupsAliasesInsert' = Alias
165− request = requestWith directoryRequest
166− requestWith rq GroupsAliasesInsert'{..}
89+ requestClient GroupsAliasesInsert'{..}
167− = go _gaiGroupKey _gaiQuotaUser
168− (Just _gaiPrettyPrint)
173− (Just AltJSON)
90+ = go _gaiGroupKey (Just AltJSON) _gaiPayload
174− _gaiPayload
91+ directoryService
176− = clientBuild
93+ = buildClient
177 (Proxy :: Proxy GroupsAliasesInsertResource)
94 (Proxy :: Proxy GroupsAliasesInsertResource)
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
33 , GroupsAliasesList'
33 , GroupsAliasesList'
35 -- * Request Lenses
35 -- * Request Lenses
39 , galGroupKey
36 , galGroupKey
45import Network.Google.Directory.Types
39import Network.Google.Directory.Types
@@ -51,115 +45,38 @@ type GroupsAliasesListResource =
51 "groups" :>
45 "groups" :>
52 Capture "groupKey" Text :>
46 Capture "groupKey" Text :>
53 "aliases" :>
47 "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
62-- | List all aliases for a group
50-- | List all aliases for a group
64-- /See:/ 'groupsAliasesList'' smart constructor.
52-- /See:/ 'groupsAliasesList'' smart constructor.
65−data GroupsAliasesList' = GroupsAliasesList'
53+newtype GroupsAliasesList' = GroupsAliasesList'
66− { _galQuotaUser :: !(Maybe Text)
67− , _galPrettyPrint :: !Bool
68− , _galUserIP :: !(Maybe Text)
69− , _galGroupKey :: !Text
54+ { _galGroupKey :: Text
70− , _galKey :: !(Maybe AuthKey)
71− , _galOAuthToken :: !(Maybe OAuthToken)
72− , _galFields :: !(Maybe Text)
73 } deriving (Eq,Show,Data,Typeable,Generic)
55 } deriving (Eq,Show,Data,Typeable,Generic)
75-- | Creates a value of 'GroupsAliasesList'' with the minimum fields required to make a request.
57-- | Creates a value of 'GroupsAliasesList'' with the minimum fields required to make a request.
77-- Use one of the following lenses to modify other fields as desired:
59-- Use one of the following lenses to modify other fields as desired:
85-- * 'galGroupKey'
61-- * 'galGroupKey'
92groupsAliasesList'
62groupsAliasesList'
93 :: Text -- ^ 'groupKey'
63 :: Text -- ^ 'groupKey'
94 -> GroupsAliasesList'
64 -> GroupsAliasesList'
95groupsAliasesList' pGalGroupKey_ =
65groupsAliasesList' pGalGroupKey_ =
96 GroupsAliasesList'
66 GroupsAliasesList'
97− { _galQuotaUser = Nothing
98− , _galPrettyPrint = True
99− , _galUserIP = Nothing
100− , _galGroupKey = pGalGroupKey_
67+ { _galGroupKey = pGalGroupKey_
102− , _galOAuthToken = Nothing
103− , _galFields = Nothing
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)
111− = lens _galQuotaUser (\ s a -> s{_galQuotaUser = a})
113−-- | Returns response with indentations and line breaks.
114−galPrettyPrint :: Lens' GroupsAliasesList' Bool
116− = lens _galPrettyPrint
117− (\ s a -> s{_galPrettyPrint = a})
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)
123− = lens _galUserIP (\ s a -> s{_galUserIP = a})
125-- | Email or immutable Id of the group
70-- | Email or immutable Id of the group
126galGroupKey :: Lens' GroupsAliasesList' Text
71galGroupKey :: Lens' GroupsAliasesList' Text
127galGroupKey
72galGroupKey
128 = lens _galGroupKey (\ s a -> s{_galGroupKey = a})
73 = lens _galGroupKey (\ s a -> s{_galGroupKey = a})
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
133−galKey :: Lens' GroupsAliasesList' (Maybe AuthKey)
134−galKey = lens _galKey (\ s a -> s{_galKey = a})
136−-- | OAuth 2.0 token for the current user.
137−galOAuthToken :: Lens' GroupsAliasesList' (Maybe OAuthToken)
139− = lens _galOAuthToken
140− (\ s a -> s{_galOAuthToken = a})
142−-- | Selector specifying which fields to include in a partial response.
143−galFields :: Lens' GroupsAliasesList' (Maybe Text)
145− = lens _galFields (\ s a -> s{_galFields = a})
147−instance GoogleAuth GroupsAliasesList' where
148− _AuthKey = galKey . _Just
149− _AuthToken = galOAuthToken . _Just
151instance GoogleRequest GroupsAliasesList' where
75instance GoogleRequest GroupsAliasesList' where
152 type Rs GroupsAliasesList' = Aliases
76 type Rs GroupsAliasesList' = Aliases
153− request = requestWith directoryRequest
154− requestWith rq GroupsAliasesList'{..}
77+ requestClient GroupsAliasesList'{..}
155− = go _galGroupKey _galQuotaUser
156− (Just _galPrettyPrint)
161− (Just AltJSON)
78+ = go _galGroupKey (Just AltJSON) directoryService
163− = clientBuild
80+ = buildClient
164 (Proxy :: Proxy GroupsAliasesListResource)
81 (Proxy :: Proxy GroupsAliasesListResource)
gogol-admin-directory/gen/Network/Google/Resource/Directory/Groups/Delete.hs+8−87
@@ -33,13 +33,7 @@ module Network.Google.Resource.Directory.Groups.Delete
33 , GroupsDelete'
33 , GroupsDelete'
35 -- * Request Lenses
35 -- * Request Lenses
39 , gdGroupKey
36 , gdGroupKey
45import Network.Google.Directory.Types
39import Network.Google.Directory.Types
@@ -50,110 +44,37 @@ import Network.Google.Prelude
50type GroupsDeleteResource =
44type GroupsDeleteResource =
51 "groups" :>
45 "groups" :>
52 Capture "groupKey" Text :>
46 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] ()
61-- | Delete Group
49-- | Delete Group
63-- /See:/ 'groupsDelete'' smart constructor.
51-- /See:/ 'groupsDelete'' smart constructor.
64−data GroupsDelete' = GroupsDelete'
52+newtype GroupsDelete' = GroupsDelete'
65− { _gdQuotaUser :: !(Maybe Text)
66− , _gdPrettyPrint :: !Bool
67− , _gdUserIP :: !(Maybe Text)
68− , _gdGroupKey :: !Text
53+ { _gdGroupKey :: Text
69− , _gdKey :: !(Maybe AuthKey)
70− , _gdOAuthToken :: !(Maybe OAuthToken)
71− , _gdFields :: !(Maybe Text)
72 } deriving (Eq,Show,Data,Typeable,Generic)
54 } deriving (Eq,Show,Data,Typeable,Generic)
74-- | Creates a value of 'GroupsDelete'' with the minimum fields required to make a request.
56-- | Creates a value of 'GroupsDelete'' with the minimum fields required to make a request.
76-- Use one of the following lenses to modify other fields as desired:
58-- Use one of the following lenses to modify other fields as desired:
84-- * 'gdGroupKey'
60-- * 'gdGroupKey'
91groupsDelete'
61groupsDelete'
92 :: Text -- ^ 'groupKey'
62 :: Text -- ^ 'groupKey'
93 -> GroupsDelete'
63 -> GroupsDelete'
94groupsDelete' pGdGroupKey_ =
64groupsDelete' pGdGroupKey_ =
95 GroupsDelete'
65 GroupsDelete'
96− { _gdQuotaUser = Nothing
97− , _gdPrettyPrint = True
98− , _gdUserIP = Nothing
99− , _gdGroupKey = pGdGroupKey_
66+ { _gdGroupKey = pGdGroupKey_
101− , _gdOAuthToken = Nothing
102− , _gdFields = Nothing
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)
110− = lens _gdQuotaUser (\ s a -> s{_gdQuotaUser = a})
112−-- | Returns response with indentations and line breaks.
113−gdPrettyPrint :: Lens' GroupsDelete' Bool
115− = lens _gdPrettyPrint
116− (\ s a -> s{_gdPrettyPrint = a})
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})
123-- | Email or immutable Id of the group
69-- | Email or immutable Id of the group
124gdGroupKey :: Lens' GroupsDelete' Text
70gdGroupKey :: Lens' GroupsDelete' Text
125gdGroupKey
71gdGroupKey
126 = lens _gdGroupKey (\ s a -> s{_gdGroupKey = a})
72 = lens _gdGroupKey (\ s a -> s{_gdGroupKey = a})
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
131−gdKey :: Lens' GroupsDelete' (Maybe AuthKey)
132−gdKey = lens _gdKey (\ s a -> s{_gdKey = a})
134−-- | OAuth 2.0 token for the current user.
135−gdOAuthToken :: Lens' GroupsDelete' (Maybe OAuthToken)
137− = lens _gdOAuthToken (\ s a -> s{_gdOAuthToken = a})
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})
143−instance GoogleAuth GroupsDelete' where
144− _AuthKey = gdKey . _Just
145− _AuthToken = gdOAuthToken . _Just
147instance GoogleRequest GroupsDelete' where
74instance GoogleRequest GroupsDelete' where
148 type Rs GroupsDelete' = ()
75 type Rs GroupsDelete' = ()
149− request = requestWith directoryRequest
150− requestWith rq GroupsDelete'{..}
76+ requestClient GroupsDelete'{..}
151− = go _gdGroupKey _gdQuotaUser (Just _gdPrettyPrint)
156− (Just AltJSON)
77+ = go _gdGroupKey (Just AltJSON) directoryService
158− = clientBuild (Proxy :: Proxy GroupsDeleteResource)
79+ = buildClient (Proxy :: Proxy GroupsDeleteResource)
gogol-admin-directory/gen/Network/Google/Resource/Directory/Groups/Get.hs+8−86
@@ -33,13 +33,7 @@ module Network.Google.Resource.Directory.Groups.Get
33 , GroupsGet'
33 , GroupsGet'
35 -- * Request Lenses
35 -- * Request Lenses
39 , ggGroupKey
36 , ggGroupKey
45import Network.Google.Directory.Types
39import Network.Google.Directory.Types
@@ -50,109 +44,37 @@ import Network.Google.Prelude
50type GroupsGetResource =
44type GroupsGetResource =
51 "groups" :>
45 "groups" :>
52 Capture "groupKey" Text :>
46 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
61-- | Retrieve Group
49-- | Retrieve Group
63-- /See:/ 'groupsGet'' smart constructor.
51-- /See:/ 'groupsGet'' smart constructor.
64−data GroupsGet' = GroupsGet'
52+newtype GroupsGet' = GroupsGet'
65− { _ggQuotaUser :: !(Maybe Text)
66− , _ggPrettyPrint :: !Bool
67− , _ggUserIP :: !(Maybe Text)
68− , _ggGroupKey :: !Text
53+ { _ggGroupKey :: Text
69− , _ggKey :: !(Maybe AuthKey)
70− , _ggOAuthToken :: !(Maybe OAuthToken)
71− , _ggFields :: !(Maybe Text)
72 } deriving (Eq,Show,Data,Typeable,Generic)
54 } deriving (Eq,Show,Data,Typeable,Generic)
74-- | Creates a value of 'GroupsGet'' with the minimum fields required to make a request.
56-- | Creates a value of 'GroupsGet'' with the minimum fields required to make a request.
76-- Use one of the following lenses to modify other fields as desired:
58-- Use one of the following lenses to modify other fields as desired:
84-- * 'ggGroupKey'
60-- * 'ggGroupKey'
92 :: Text -- ^ 'groupKey'
62 :: Text -- ^ 'groupKey'
93 -> GroupsGet'
63 -> GroupsGet'
94groupsGet' pGgGroupKey_ =
64groupsGet' pGgGroupKey_ =
95 GroupsGet'
65 GroupsGet'
96− { _ggQuotaUser = Nothing
97− , _ggPrettyPrint = True
98− , _ggUserIP = Nothing
99− , _ggGroupKey = pGgGroupKey_
66+ { _ggGroupKey = pGgGroupKey_
101− , _ggOAuthToken = Nothing
102− , _ggFields = Nothing
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)
110− = lens _ggQuotaUser (\ s a -> s{_ggQuotaUser = a})
112−-- | Returns response with indentations and line breaks.
113−ggPrettyPrint :: Lens' GroupsGet' Bool
115− = lens _ggPrettyPrint
116− (\ s a -> s{_ggPrettyPrint = a})
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})
123-- | Email or immutable Id of the group
69-- | Email or immutable Id of the group
124ggGroupKey :: Lens' GroupsGet' Text
70ggGroupKey :: Lens' GroupsGet' Text
125ggGroupKey
71ggGroupKey
126 = lens _ggGroupKey (\ s a -> s{_ggGroupKey = a})
72 = lens _ggGroupKey (\ s a -> s{_ggGroupKey = a})
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
131−ggKey :: Lens' GroupsGet' (Maybe AuthKey)
132−ggKey = lens _ggKey (\ s a -> s{_ggKey = a})
134−-- | OAuth 2.0 token for the current user.
135−ggOAuthToken :: Lens' GroupsGet' (Maybe OAuthToken)
137− = lens _ggOAuthToken (\ s a -> s{_ggOAuthToken = a})
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})
143−instance GoogleAuth GroupsGet' where
144− _AuthKey = ggKey . _Just
145− _AuthToken = ggOAuthToken . _Just
147instance GoogleRequest GroupsGet' where
74instance GoogleRequest GroupsGet' where
148 type Rs GroupsGet' = Group
75 type Rs GroupsGet' = Group
149− request = requestWith directoryRequest
150− requestWith rq GroupsGet'{..}
76+ requestClient GroupsGet'{..}
151− = go _ggGroupKey _ggQuotaUser (Just _ggPrettyPrint)
156− (Just AltJSON)
77+ = go _ggGroupKey (Just AltJSON) directoryService
158− = clientBuild (Proxy :: Proxy GroupsGetResource) rq
79+ = buildClient (Proxy :: Proxy GroupsGetResource)
gogol-admin-directory/gen/Network/Google/Resource/Directory/Groups/Insert.hs+9−88
@@ -33,13 +33,7 @@ module Network.Google.Resource.Directory.Groups.Insert
33 , GroupsInsert'
33 , GroupsInsert'
35 -- * Request Lenses
35 -- * Request Lenses
39 , giPayload
36 , giPayload
45import Network.Google.Directory.Types
39import Network.Google.Directory.Types
@@ -49,111 +43,38 @@ import Network.Google.Prelude
49-- 'GroupsInsert'' request conforms to.
43-- 'GroupsInsert'' request conforms to.
50type GroupsInsertResource =
44type GroupsInsertResource =
51 "groups" :>
45 "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 :>
46+ QueryParam "alt" AltJSON :>
59− ReqBody '[JSON] Group :> Post '[JSON] Group
47+ ReqBody '[JSON] Group :> Post '[JSON] Group
61-- | Create Group
49-- | Create Group
63-- /See:/ 'groupsInsert'' smart constructor.
51-- /See:/ 'groupsInsert'' smart constructor.
64−data GroupsInsert' = GroupsInsert'
52+newtype GroupsInsert' = GroupsInsert'
65− { _giQuotaUser :: !(Maybe Text)
66− , _giPrettyPrint :: !Bool
67− , _giUserIP :: !(Maybe Text)
68− , _giPayload :: !Group
53+ { _giPayload :: Group
69− , _giKey :: !(Maybe AuthKey)
70− , _giOAuthToken :: !(Maybe OAuthToken)
71− , _giFields :: !(Maybe Text)
72 } deriving (Eq,Show,Data,Typeable,Generic)
54 } deriving (Eq,Show,Data,Typeable,Generic)
74-- | Creates a value of 'GroupsInsert'' with the minimum fields required to make a request.
56-- | Creates a value of 'GroupsInsert'' with the minimum fields required to make a request.
76-- Use one of the following lenses to modify other fields as desired:
58-- Use one of the following lenses to modify other fields as desired:
84-- * 'giPayload'
60-- * 'giPayload'
91groupsInsert'
61groupsInsert'
92 :: Group -- ^ 'payload'
62 :: Group -- ^ 'payload'
93 -> GroupsInsert'
63 -> GroupsInsert'
94groupsInsert' pGiPayload_ =
64groupsInsert' pGiPayload_ =
95 GroupsInsert'
65 GroupsInsert'
96− { _giQuotaUser = Nothing
97− , _giPrettyPrint = True
98− , _giUserIP = Nothing
99− , _giPayload = pGiPayload_
66+ { _giPayload = pGiPayload_
101− , _giOAuthToken = Nothing
102− , _giFields = Nothing
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)
110− = lens _giQuotaUser (\ s a -> s{_giQuotaUser = a})
112−-- | Returns response with indentations and line breaks.
113−giPrettyPrint :: Lens' GroupsInsert' Bool
115− = lens _giPrettyPrint
116− (\ s a -> s{_giPrettyPrint = a})
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})
123-- | Multipart request metadata.
69-- | Multipart request metadata.
124giPayload :: Lens' GroupsInsert' Group
70giPayload :: Lens' GroupsInsert' Group
126 = lens _giPayload (\ s a -> s{_giPayload = a})
72 = lens _giPayload (\ s a -> s{_giPayload = a})
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
131−giKey :: Lens' GroupsInsert' (Maybe AuthKey)
132−giKey = lens _giKey (\ s a -> s{_giKey = a})
134−-- | OAuth 2.0 token for the current user.
135−giOAuthToken :: Lens' GroupsInsert' (Maybe OAuthToken)
137− = lens _giOAuthToken (\ s a -> s{_giOAuthToken = a})
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})
143−instance GoogleAuth GroupsInsert' where
144− _AuthKey = giKey . _Just
145− _AuthToken = giOAuthToken . _Just
147instance GoogleRequest GroupsInsert' where
74instance GoogleRequest GroupsInsert' where
148 type Rs GroupsInsert' = Group
75 type Rs GroupsInsert' = Group
149− request = requestWith directoryRequest
150− requestWith rq GroupsInsert'{..}
76+ requestClient GroupsInsert'{..}
151− = go _giQuotaUser (Just _giPrettyPrint) _giUserIP
155− (Just AltJSON)
77+ = go (Just AltJSON) _giPayload directoryService
158− = clientBuild (Proxy :: Proxy GroupsInsertResource)
79+ = buildClient (Proxy :: Proxy GroupsInsertResource)
gogol-admin-directory/gen/Network/Google/Resource/Directory/Groups/List.hs+11−89
@@ -33,17 +33,11 @@ module Network.Google.Resource.Directory.Groups.List
33 , GroupsList'
33 , GroupsList'
35 -- * Request Lenses
35 -- * Request Lenses
39 , glDomain
36 , glDomain
40 , glCustomer
37 , glCustomer
42 , glPageToken
38 , glPageToken
44 , glUserKey
39 , glUserKey
45 , glMaxResults
40 , glMaxResults
49import Network.Google.Directory.Types
43import Network.Google.Directory.Types
@@ -58,91 +52,43 @@ type GroupsListResource =
58 QueryParam "pageToken" Text :>
52 QueryParam "pageToken" Text :>
59 QueryParam "userKey" Text :>
53 QueryParam "userKey" Text :>
60 QueryParam "maxResults" Int32 :>
54 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
69-- | Retrieve all groups in a domain (paginated)
57-- | Retrieve all groups in a domain (paginated)
71-- /See:/ 'groupsList'' smart constructor.
59-- /See:/ 'groupsList'' smart constructor.
72data GroupsList' = GroupsList'
60data GroupsList' = GroupsList'
73− { _glQuotaUser :: !(Maybe Text)
74− , _glPrettyPrint :: !Bool
75− , _glUserIP :: !(Maybe Text)
76− , _glDomain :: !(Maybe Text)
61+ { _glDomain :: !(Maybe Text)
77− , _glCustomer :: !(Maybe Text)
62+ , _glCustomer :: !(Maybe Text)
78− , _glKey :: !(Maybe AuthKey)
79− , _glPageToken :: !(Maybe Text)
63+ , _glPageToken :: !(Maybe Text)
80− , _glOAuthToken :: !(Maybe OAuthToken)
81− , _glUserKey :: !(Maybe Text)
64+ , _glUserKey :: !(Maybe Text)
82− , _glMaxResults :: !(Maybe Int32)
65+ , _glMaxResults :: !(Maybe Int32)
83− , _glFields :: !(Maybe Text)
84 } deriving (Eq,Show,Data,Typeable,Generic)
66 } deriving (Eq,Show,Data,Typeable,Generic)
86-- | Creates a value of 'GroupsList'' with the minimum fields required to make a request.
68-- | Creates a value of 'GroupsList'' with the minimum fields required to make a request.
88-- Use one of the following lenses to modify other fields as desired:
70-- Use one of the following lenses to modify other fields as desired:
96-- * 'glDomain'
72-- * 'glDomain'
98-- * 'glCustomer'
74-- * 'glCustomer'
102-- * 'glPageToken'
76-- * 'glPageToken'
106-- * 'glUserKey'
78-- * 'glUserKey'
108-- * 'glMaxResults'
80-- * 'glMaxResults'
111groupsList'
81groupsList'
112 :: GroupsList'
82 :: GroupsList'
113groupsList' =
83groupsList' =
114 GroupsList'
84 GroupsList'
115− { _glQuotaUser = Nothing
116− , _glPrettyPrint = True
117− , _glUserIP = Nothing
118− , _glDomain = Nothing
85+ { _glDomain = Nothing
119 , _glCustomer = Nothing
86 , _glCustomer = Nothing
121 , _glPageToken = Nothing
87 , _glPageToken = Nothing
122− , _glOAuthToken = Nothing
123 , _glUserKey = Nothing
88 , _glUserKey = Nothing
124 , _glMaxResults = Nothing
89 , _glMaxResults = Nothing
125− , _glFields = Nothing
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)
133− = lens _glQuotaUser (\ s a -> s{_glQuotaUser = a})
135−-- | Returns response with indentations and line breaks.
136−glPrettyPrint :: Lens' GroupsList' Bool
138− = lens _glPrettyPrint
139− (\ s a -> s{_glPrettyPrint = a})
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})
146-- | Name of the domain. Fill this field to get groups from only this domain.
92-- | Name of the domain. Fill this field to get groups from only this domain.
147-- To return all groups in a multi-domain fill customer field instead.
93-- To return all groups in a multi-domain fill customer field instead.
148glDomain :: Lens' GroupsList' (Maybe Text)
94glDomain :: Lens' GroupsList' (Maybe Text)
@@ -154,22 +100,11 @@ glCustomer :: Lens' GroupsList' (Maybe Text)
154glCustomer
100glCustomer
155 = lens _glCustomer (\ s a -> s{_glCustomer = a})
101 = lens _glCustomer (\ s a -> s{_glCustomer = a})
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
160−glKey :: Lens' GroupsList' (Maybe AuthKey)
161−glKey = lens _glKey (\ s a -> s{_glKey = a})
163-- | Token to specify next page in the list
103-- | Token to specify next page in the list
164glPageToken :: Lens' GroupsList' (Maybe Text)
104glPageToken :: Lens' GroupsList' (Maybe Text)
165glPageToken
105glPageToken
166 = lens _glPageToken (\ s a -> s{_glPageToken = a})
106 = lens _glPageToken (\ s a -> s{_glPageToken = a})
168−-- | OAuth 2.0 token for the current user.
169−glOAuthToken :: Lens' GroupsList' (Maybe OAuthToken)
171− = lens _glOAuthToken (\ s a -> s{_glOAuthToken = a})
173-- | Email or immutable Id of the user if only those groups are to be listed,
108-- | Email or immutable Id of the user if only those groups are to be listed,
174-- the given user is a member of. If Id, it should match with id of user
109-- the given user is a member of. If Id, it should match with id of user
@@ -182,26 +117,13 @@ glMaxResults :: Lens' GroupsList' (Maybe Int32)
182glMaxResults
117glMaxResults
183 = lens _glMaxResults (\ s a -> s{_glMaxResults = a})
118 = lens _glMaxResults (\ s a -> s{_glMaxResults = a})
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})
189−instance GoogleAuth GroupsList' where
190− _AuthKey = glKey . _Just
191− _AuthToken = glOAuthToken . _Just
193instance GoogleRequest GroupsList' where
120instance GoogleRequest GroupsList' where
194 type Rs GroupsList' = Groups
121 type Rs GroupsList' = Groups
195− request = requestWith directoryRequest
196− requestWith rq GroupsList'{..}
122+ requestClient GroupsList'{..}
197 = go _glDomain _glCustomer _glPageToken _glUserKey
123 = go _glDomain _glCustomer _glPageToken _glUserKey
198 _glMaxResults
124 _glMaxResults
200− (Just _glPrettyPrint)
205 (Just AltJSON)
125 (Just AltJSON)
207− = clientBuild (Proxy :: Proxy GroupsListResource) rq
128+ = buildClient (Proxy :: Proxy GroupsListResource)
gogol-admin-directory/gen/Network/Google/Resource/Directory/Groups/Patch.hs+10−88
@@ -33,14 +33,8 @@ module Network.Google.Resource.Directory.Groups.Patch
33 , GroupsPatch'
33 , GroupsPatch'
35 -- * Request Lenses
35 -- * Request Lenses
39 , gpGroupKey
36 , gpGroupKey
40 , gpPayload
37 , gpPayload
46import Network.Google.Directory.Types
40import Network.Google.Directory.Types
@@ -51,82 +45,34 @@ import Network.Google.Prelude
51type GroupsPatchResource =
45type GroupsPatchResource =
52 "groups" :>
46 "groups" :>
53 Capture "groupKey" Text :>
47 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 :>
48+ QueryParam "alt" AltJSON :>
61− ReqBody '[JSON] Group :> Patch '[JSON] Group
49+ ReqBody '[JSON] Group :> Patch '[JSON] Group
63-- | Update Group. This method supports patch semantics.
51-- | Update Group. This method supports patch semantics.
65-- /See:/ 'groupsPatch'' smart constructor.
53-- /See:/ 'groupsPatch'' smart constructor.
66data GroupsPatch' = GroupsPatch'
54data GroupsPatch' = GroupsPatch'
67− { _gpQuotaUser :: !(Maybe Text)
68− , _gpPrettyPrint :: !Bool
69− , _gpUserIP :: !(Maybe Text)
70− , _gpGroupKey :: !Text
55+ { _gpGroupKey :: !Text
71− , _gpPayload :: !Group
56+ , _gpPayload :: !Group
72− , _gpKey :: !(Maybe AuthKey)
73− , _gpOAuthToken :: !(Maybe OAuthToken)
74− , _gpFields :: !(Maybe Text)
75 } deriving (Eq,Show,Data,Typeable,Generic)
57 } deriving (Eq,Show,Data,Typeable,Generic)
77-- | Creates a value of 'GroupsPatch'' with the minimum fields required to make a request.
59-- | Creates a value of 'GroupsPatch'' with the minimum fields required to make a request.
79-- Use one of the following lenses to modify other fields as desired:
61-- Use one of the following lenses to modify other fields as desired:
87-- * 'gpGroupKey'
63-- * 'gpGroupKey'
89-- * 'gpPayload'
65-- * 'gpPayload'
96groupsPatch'
66groupsPatch'
97 :: Text -- ^ 'groupKey'
67 :: Text -- ^ 'groupKey'
98 -> Group -- ^ 'payload'
68 -> Group -- ^ 'payload'
99 -> GroupsPatch'
69 -> GroupsPatch'
100groupsPatch' pGpGroupKey_ pGpPayload_ =
70groupsPatch' pGpGroupKey_ pGpPayload_ =
101 GroupsPatch'
71 GroupsPatch'
102− { _gpQuotaUser = Nothing
103− , _gpPrettyPrint = True
104− , _gpUserIP = Nothing
105− , _gpGroupKey = pGpGroupKey_
72+ { _gpGroupKey = pGpGroupKey_
106 , _gpPayload = pGpPayload_
73 , _gpPayload = pGpPayload_
108− , _gpOAuthToken = Nothing
109− , _gpFields = Nothing
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)
117− = lens _gpQuotaUser (\ s a -> s{_gpQuotaUser = a})
119−-- | Returns response with indentations and line breaks.
120−gpPrettyPrint :: Lens' GroupsPatch' Bool
122− = lens _gpPrettyPrint
123− (\ s a -> s{_gpPrettyPrint = a})
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})
130-- | Email or immutable Id of the group. If Id, it should match with id of
76-- | Email or immutable Id of the group. If Id, it should match with id of
131-- group object
77-- group object
132gpGroupKey :: Lens' GroupsPatch' Text
78gpGroupKey :: Lens' GroupsPatch' Text
@@ -138,35 +84,11 @@ gpPayload :: Lens' GroupsPatch' Group
139 = lens _gpPayload (\ s a -> s{_gpPayload = a})
85 = lens _gpPayload (\ s a -> s{_gpPayload = a})
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
144−gpKey :: Lens' GroupsPatch' (Maybe AuthKey)
145−gpKey = lens _gpKey (\ s a -> s{_gpKey = a})
147−-- | OAuth 2.0 token for the current user.
148−gpOAuthToken :: Lens' GroupsPatch' (Maybe OAuthToken)
150− = lens _gpOAuthToken (\ s a -> s{_gpOAuthToken = a})
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})
156−instance GoogleAuth GroupsPatch' where
157− _AuthKey = gpKey . _Just
158− _AuthToken = gpOAuthToken . _Just
160instance GoogleRequest GroupsPatch' where
87instance GoogleRequest GroupsPatch' where
161 type Rs GroupsPatch' = Group
88 type Rs GroupsPatch' = Group
162− request = requestWith directoryRequest
163− requestWith rq GroupsPatch'{..}
89+ requestClient GroupsPatch'{..}
164− = go _gpGroupKey _gpQuotaUser (Just _gpPrettyPrint)
169− (Just AltJSON)
90+ = go _gpGroupKey (Just AltJSON) _gpPayload
170− _gpPayload
91+ directoryService
172− = clientBuild (Proxy :: Proxy GroupsPatchResource) rq
93+ = buildClient (Proxy :: Proxy GroupsPatchResource)
gogol-admin-directory/gen/Network/Google/Resource/Directory/Groups/Update.hs+10−89
@@ -33,14 +33,8 @@ module Network.Google.Resource.Directory.Groups.Update
33 , GroupsUpdate'
33 , GroupsUpdate'
35 -- * Request Lenses
35 -- * Request Lenses
39 , guGroupKey
36 , guGroupKey
40 , guPayload
37 , guPayload
46import Network.Google.Directory.Types
40import Network.Google.Directory.Types
@@ -51,82 +45,34 @@ import Network.Google.Prelude
51type GroupsUpdateResource =
45type GroupsUpdateResource =
52 "groups" :>
46 "groups" :>
53 Capture "groupKey" Text :>
47 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 :>
48+ QueryParam "alt" AltJSON :>
61− ReqBody '[JSON] Group :> Put '[JSON] Group
49+ ReqBody '[JSON] Group :> Put '[JSON] Group
63-- | Update Group
51-- | Update Group
65-- /See:/ 'groupsUpdate'' smart constructor.
53-- /See:/ 'groupsUpdate'' smart constructor.
66data GroupsUpdate' = GroupsUpdate'
54data GroupsUpdate' = GroupsUpdate'
67− { _guQuotaUser :: !(Maybe Text)
68− , _guPrettyPrint :: !Bool
69− , _guUserIP :: !(Maybe Text)
70− , _guGroupKey :: !Text
55+ { _guGroupKey :: !Text
71− , _guPayload :: !Group
56+ , _guPayload :: !Group
72− , _guKey :: !(Maybe AuthKey)
73− , _guOAuthToken :: !(Maybe OAuthToken)
74− , _guFields :: !(Maybe Text)
75 } deriving (Eq,Show,Data,Typeable,Generic)
57 } deriving (Eq,Show,Data,Typeable,Generic)
77-- | Creates a value of 'GroupsUpdate'' with the minimum fields required to make a request.
59-- | Creates a value of 'GroupsUpdate'' with the minimum fields required to make a request.
79-- Use one of the following lenses to modify other fields as desired:
61-- Use one of the following lenses to modify other fields as desired:
87-- * 'guGroupKey'
63-- * 'guGroupKey'
89-- * 'guPayload'
65-- * 'guPayload'
96groupsUpdate'
66groupsUpdate'
97 :: Text -- ^ 'groupKey'
67 :: Text -- ^ 'groupKey'
98 -> Group -- ^ 'payload'
68 -> Group -- ^ 'payload'
99 -> GroupsUpdate'
69 -> GroupsUpdate'
100groupsUpdate' pGuGroupKey_ pGuPayload_ =
70groupsUpdate' pGuGroupKey_ pGuPayload_ =
101 GroupsUpdate'
71 GroupsUpdate'
102− { _guQuotaUser = Nothing
103− , _guPrettyPrint = True
104− , _guUserIP = Nothing
105− , _guGroupKey = pGuGroupKey_
72+ { _guGroupKey = pGuGroupKey_
106 , _guPayload = pGuPayload_
73 , _guPayload = pGuPayload_
108− , _guOAuthToken = Nothing
109− , _guFields = Nothing
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)
117− = lens _guQuotaUser (\ s a -> s{_guQuotaUser = a})
119−-- | Returns response with indentations and line breaks.
120−guPrettyPrint :: Lens' GroupsUpdate' Bool
122− = lens _guPrettyPrint
123− (\ s a -> s{_guPrettyPrint = a})
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})
130-- | Email or immutable Id of the group. If Id, it should match with id of
76-- | Email or immutable Id of the group. If Id, it should match with id of
131-- group object
77-- group object
132guGroupKey :: Lens' GroupsUpdate' Text
78guGroupKey :: Lens' GroupsUpdate' Text
@@ -138,36 +84,11 @@ guPayload :: Lens' GroupsUpdate' Group
139 = lens _guPayload (\ s a -> s{_guPayload = a})
85 = lens _guPayload (\ s a -> s{_guPayload = a})
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
144−guKey :: Lens' GroupsUpdate' (Maybe AuthKey)
145−guKey = lens _guKey (\ s a -> s{_guKey = a})
147−-- | OAuth 2.0 token for the current user.
148−guOAuthToken :: Lens' GroupsUpdate' (Maybe OAuthToken)
150− = lens _guOAuthToken (\ s a -> s{_guOAuthToken = a})
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})
156−instance GoogleAuth GroupsUpdate' where
157− _AuthKey = guKey . _Just
158− _AuthToken = guOAuthToken . _Just
160instance GoogleRequest GroupsUpdate' where
87instance GoogleRequest GroupsUpdate' where
161 type Rs GroupsUpdate' = Group
88 type Rs GroupsUpdate' = Group
162− request = requestWith directoryRequest
163− requestWith rq GroupsUpdate'{..}
89+ requestClient GroupsUpdate'{..}
164− = go _guGroupKey _guQuotaUser (Just _guPrettyPrint)
169− (Just AltJSON)
90+ = go _guGroupKey (Just AltJSON) _guPayload
170− _guPayload
91+ directoryService
172− = clientBuild (Proxy :: Proxy GroupsUpdateResource)
93+ = buildClient (Proxy :: Proxy GroupsUpdateResource)
gogol-admin-directory/gen/Network/Google/Resource/Directory/Members/Delete.hs+9−88
@@ -33,14 +33,8 @@ module Network.Google.Resource.Directory.Members.Delete
33 , MembersDelete'
33 , MembersDelete'
35 -- * Request Lenses
35 -- * Request Lenses
37 , mdMemberKey
36 , mdMemberKey
40 , mdGroupKey
37 , mdGroupKey
46import Network.Google.Directory.Types
40import Network.Google.Directory.Types
@@ -53,121 +47,48 @@ type MembersDeleteResource =
53 Capture "groupKey" Text :>
47 Capture "groupKey" Text :>
54 "members" :>
48 "members" :>
55 Capture "memberKey" Text :>
49 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] ()
64-- | Remove membership.
52-- | Remove membership.
66-- /See:/ 'membersDelete'' smart constructor.
54-- /See:/ 'membersDelete'' smart constructor.
67data MembersDelete' = MembersDelete'
55data MembersDelete' = MembersDelete'
68− { _mdQuotaUser :: !(Maybe Text)
69− , _mdMemberKey :: !Text
56+ { _mdMemberKey :: !Text
70− , _mdPrettyPrint :: !Bool
71− , _mdUserIP :: !(Maybe Text)
72− , _mdGroupKey :: !Text
57+ , _mdGroupKey :: !Text
73− , _mdKey :: !(Maybe AuthKey)
74− , _mdOAuthToken :: !(Maybe OAuthToken)
75− , _mdFields :: !(Maybe Text)
76 } deriving (Eq,Show,Data,Typeable,Generic)
58 } deriving (Eq,Show,Data,Typeable,Generic)
78-- | Creates a value of 'MembersDelete'' with the minimum fields required to make a request.
60-- | Creates a value of 'MembersDelete'' with the minimum fields required to make a request.
80-- Use one of the following lenses to modify other fields as desired:
62-- Use one of the following lenses to modify other fields as desired:
84-- * 'mdMemberKey'
64-- * 'mdMemberKey'
90-- * 'mdGroupKey'
66-- * 'mdGroupKey'
97membersDelete'
67membersDelete'
98 :: Text -- ^ 'memberKey'
68 :: Text -- ^ 'memberKey'
99 -> Text -- ^ 'groupKey'
69 -> Text -- ^ 'groupKey'
100 -> MembersDelete'
70 -> MembersDelete'
101membersDelete' pMdMemberKey_ pMdGroupKey_ =
71membersDelete' pMdMemberKey_ pMdGroupKey_ =
102 MembersDelete'
72 MembersDelete'
103− { _mdQuotaUser = Nothing
104− , _mdMemberKey = pMdMemberKey_
73+ { _mdMemberKey = pMdMemberKey_
105− , _mdPrettyPrint = True
106− , _mdUserIP = Nothing
107 , _mdGroupKey = pMdGroupKey_
74 , _mdGroupKey = pMdGroupKey_
109− , _mdOAuthToken = Nothing
110− , _mdFields = Nothing
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)
118− = lens _mdQuotaUser (\ s a -> s{_mdQuotaUser = a})
120-- | Email or immutable Id of the member
77-- | Email or immutable Id of the member
121mdMemberKey :: Lens' MembersDelete' Text
78mdMemberKey :: Lens' MembersDelete' Text
122mdMemberKey
79mdMemberKey
123 = lens _mdMemberKey (\ s a -> s{_mdMemberKey = a})
80 = lens _mdMemberKey (\ s a -> s{_mdMemberKey = a})
125−-- | Returns response with indentations and line breaks.
126−mdPrettyPrint :: Lens' MembersDelete' Bool
128− = lens _mdPrettyPrint
129− (\ s a -> s{_mdPrettyPrint = a})
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})
136-- | Email or immutable Id of the group
82-- | Email or immutable Id of the group
137mdGroupKey :: Lens' MembersDelete' Text
83mdGroupKey :: Lens' MembersDelete' Text
138mdGroupKey
84mdGroupKey
139 = lens _mdGroupKey (\ s a -> s{_mdGroupKey = a})
85 = lens _mdGroupKey (\ s a -> s{_mdGroupKey = a})
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
144−mdKey :: Lens' MembersDelete' (Maybe AuthKey)
145−mdKey = lens _mdKey (\ s a -> s{_mdKey = a})
147−-- | OAuth 2.0 token for the current user.
148−mdOAuthToken :: Lens' MembersDelete' (Maybe OAuthToken)
150− = lens _mdOAuthToken (\ s a -> s{_mdOAuthToken = a})
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})
156−instance GoogleAuth MembersDelete' where
157− _AuthKey = mdKey . _Just
158− _AuthToken = mdOAuthToken . _Just
160instance GoogleRequest MembersDelete' where
87instance GoogleRequest MembersDelete' where
161 type Rs MembersDelete' = ()
88 type Rs MembersDelete' = ()
162− request = requestWith directoryRequest
163− requestWith rq MembersDelete'{..}
89+ requestClient MembersDelete'{..}
164− = go _mdGroupKey _mdMemberKey _mdQuotaUser
90+ = go _mdGroupKey _mdMemberKey (Just AltJSON)
165− (Just _mdPrettyPrint)
91+ directoryService
172− = clientBuild (Proxy :: Proxy MembersDeleteResource)
93+ = buildClient (Proxy :: Proxy MembersDeleteResource)
gogol-admin-directory/gen/Network/Google/Resource/Directory/Members/Get.hs+9−87
@@ -33,14 +33,8 @@ module Network.Google.Resource.Directory.Members.Get
33 , MembersGet'
33 , MembersGet'
35 -- * Request Lenses
35 -- * Request Lenses
37 , mgMemberKey
36 , mgMemberKey
40 , mgGroupKey
37 , mgGroupKey
46import Network.Google.Directory.Types
40import Network.Google.Directory.Types
@@ -53,120 +47,48 @@ type MembersGetResource =
53 Capture "groupKey" Text :>
47 Capture "groupKey" Text :>
54 "members" :>
48 "members" :>
55 Capture "memberKey" Text :>
49 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
64-- | Retrieve Group Member
52-- | Retrieve Group Member
66-- /See:/ 'membersGet'' smart constructor.
54-- /See:/ 'membersGet'' smart constructor.
67data MembersGet' = MembersGet'
55data MembersGet' = MembersGet'
68− { _mgQuotaUser :: !(Maybe Text)
69− , _mgMemberKey :: !Text
56+ { _mgMemberKey :: !Text
70− , _mgPrettyPrint :: !Bool
71− , _mgUserIP :: !(Maybe Text)
72− , _mgGroupKey :: !Text
57+ , _mgGroupKey :: !Text
73− , _mgKey :: !(Maybe AuthKey)
74− , _mgOAuthToken :: !(Maybe OAuthToken)
75− , _mgFields :: !(Maybe Text)
76 } deriving (Eq,Show,Data,Typeable,Generic)
58 } deriving (Eq,Show,Data,Typeable,Generic)
78-- | Creates a value of 'MembersGet'' with the minimum fields required to make a request.
60-- | Creates a value of 'MembersGet'' with the minimum fields required to make a request.
80-- Use one of the following lenses to modify other fields as desired:
62-- Use one of the following lenses to modify other fields as desired:
84-- * 'mgMemberKey'
64-- * 'mgMemberKey'
90-- * 'mgGroupKey'
66-- * 'mgGroupKey'
97membersGet'
67membersGet'
98 :: Text -- ^ 'memberKey'
68 :: Text -- ^ 'memberKey'
99 -> Text -- ^ 'groupKey'
69 -> Text -- ^ 'groupKey'
100 -> MembersGet'
70 -> MembersGet'
101membersGet' pMgMemberKey_ pMgGroupKey_ =
71membersGet' pMgMemberKey_ pMgGroupKey_ =
102 MembersGet'
72 MembersGet'
103− { _mgQuotaUser = Nothing
104− , _mgMemberKey = pMgMemberKey_
73+ { _mgMemberKey = pMgMemberKey_
105− , _mgPrettyPrint = True
106− , _mgUserIP = Nothing
107 , _mgGroupKey = pMgGroupKey_
74 , _mgGroupKey = pMgGroupKey_
109− , _mgOAuthToken = Nothing
110− , _mgFields = Nothing
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)
118− = lens _mgQuotaUser (\ s a -> s{_mgQuotaUser = a})
120-- | Email or immutable Id of the member
77-- | Email or immutable Id of the member
121mgMemberKey :: Lens' MembersGet' Text
78mgMemberKey :: Lens' MembersGet' Text
122mgMemberKey
79mgMemberKey
123 = lens _mgMemberKey (\ s a -> s{_mgMemberKey = a})
80 = lens _mgMemberKey (\ s a -> s{_mgMemberKey = a})
125−-- | Returns response with indentations and line breaks.
126−mgPrettyPrint :: Lens' MembersGet' Bool
128− = lens _mgPrettyPrint
129− (\ s a -> s{_mgPrettyPrint = a})
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})
136-- | Email or immutable Id of the group
82-- | Email or immutable Id of the group
137mgGroupKey :: Lens' MembersGet' Text
83mgGroupKey :: Lens' MembersGet' Text
138mgGroupKey
84mgGroupKey
139 = lens _mgGroupKey (\ s a -> s{_mgGroupKey = a})
85 = lens _mgGroupKey (\ s a -> s{_mgGroupKey = a})
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
144−mgKey :: Lens' MembersGet' (Maybe AuthKey)
145−mgKey = lens _mgKey (\ s a -> s{_mgKey = a})
147−-- | OAuth 2.0 token for the current user.
148−mgOAuthToken :: Lens' MembersGet' (Maybe OAuthToken)
150− = lens _mgOAuthToken (\ s a -> s{_mgOAuthToken = a})
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})
156−instance GoogleAuth MembersGet' where
157− _AuthKey = mgKey . _Just
158− _AuthToken = mgOAuthToken . _Just
160instance GoogleRequest MembersGet' where
87instance GoogleRequest MembersGet' where
161 type Rs MembersGet' = Member
88 type Rs MembersGet' = Member
162− request = requestWith directoryRequest
163− requestWith rq MembersGet'{..}
89+ requestClient MembersGet'{..}
164− = go _mgGroupKey _mgMemberKey _mgQuotaUser
90+ = go _mgGroupKey _mgMemberKey (Just AltJSON)
165− (Just _mgPrettyPrint)
91+ directoryService
172− = clientBuild (Proxy :: Proxy MembersGetResource) rq
93+ = buildClient (Proxy :: Proxy MembersGetResource)
gogol-admin-directory/gen/Network/Google/Resource/Directory/Members/Insert.hs+10−89
@@ -33,14 +33,8 @@ module Network.Google.Resource.Directory.Members.Insert
33 , MembersInsert'
33 , MembersInsert'
35 -- * Request Lenses
35 -- * Request Lenses
39 , miGroupKey
36 , miGroupKey
40 , miPayload
37 , miPayload
46import Network.Google.Directory.Types
40import Network.Google.Directory.Types
@@ -52,82 +46,34 @@ type MembersInsertResource =
52 "groups" :>
46 "groups" :>
53 Capture "groupKey" Text :>
47 Capture "groupKey" Text :>
54 "members" :>
48 "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 :>
49+ QueryParam "alt" AltJSON :>
62− ReqBody '[JSON] Member :> Post '[JSON] Member
50+ ReqBody '[JSON] Member :> Post '[JSON] Member
64-- | Add user to the specified group.
52-- | Add user to the specified group.
66-- /See:/ 'membersInsert'' smart constructor.
54-- /See:/ 'membersInsert'' smart constructor.
67data MembersInsert' = MembersInsert'
55data MembersInsert' = MembersInsert'
68− { _miQuotaUser :: !(Maybe Text)
69− , _miPrettyPrint :: !Bool
70− , _miUserIP :: !(Maybe Text)
71− , _miGroupKey :: !Text
56+ { _miGroupKey :: !Text
72− , _miPayload :: !Member
57+ , _miPayload :: !Member
73− , _miKey :: !(Maybe AuthKey)
74− , _miOAuthToken :: !(Maybe OAuthToken)
75− , _miFields :: !(Maybe Text)
76 } deriving (Eq,Show,Data,Typeable,Generic)
58 } deriving (Eq,Show,Data,Typeable,Generic)
78-- | Creates a value of 'MembersInsert'' with the minimum fields required to make a request.
60-- | Creates a value of 'MembersInsert'' with the minimum fields required to make a request.
80-- Use one of the following lenses to modify other fields as desired:
62-- Use one of the following lenses to modify other fields as desired:
88-- * 'miGroupKey'
64-- * 'miGroupKey'
90-- * 'miPayload'
66-- * 'miPayload'
97membersInsert'
67membersInsert'
98 :: Text -- ^ 'groupKey'
68 :: Text -- ^ 'groupKey'
99 -> Member -- ^ 'payload'
69 -> Member -- ^ 'payload'
100 -> MembersInsert'
70 -> MembersInsert'
101membersInsert' pMiGroupKey_ pMiPayload_ =
71membersInsert' pMiGroupKey_ pMiPayload_ =
102 MembersInsert'
72 MembersInsert'
103− { _miQuotaUser = Nothing
104− , _miPrettyPrint = True
105− , _miUserIP = Nothing
106− , _miGroupKey = pMiGroupKey_
73+ { _miGroupKey = pMiGroupKey_
107 , _miPayload = pMiPayload_
74 , _miPayload = pMiPayload_
109− , _miOAuthToken = Nothing
110− , _miFields = Nothing
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)
118− = lens _miQuotaUser (\ s a -> s{_miQuotaUser = a})
120−-- | Returns response with indentations and line breaks.
121−miPrettyPrint :: Lens' MembersInsert' Bool
123− = lens _miPrettyPrint
124− (\ s a -> s{_miPrettyPrint = a})
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})
131-- | Email or immutable Id of the group
77-- | Email or immutable Id of the group
132miGroupKey :: Lens' MembersInsert' Text
78miGroupKey :: Lens' MembersInsert' Text
133miGroupKey
79miGroupKey
@@ -138,36 +84,11 @@ miPayload :: Lens' MembersInsert' Member
139 = lens _miPayload (\ s a -> s{_miPayload = a})
85 = lens _miPayload (\ s a -> s{_miPayload = a})
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
144−miKey :: Lens' MembersInsert' (Maybe AuthKey)
145−miKey = lens _miKey (\ s a -> s{_miKey = a})
147−-- | OAuth 2.0 token for the current user.
148−miOAuthToken :: Lens' MembersInsert' (Maybe OAuthToken)
150− = lens _miOAuthToken (\ s a -> s{_miOAuthToken = a})
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})
156−instance GoogleAuth MembersInsert' where
157− _AuthKey = miKey . _Just
158− _AuthToken = miOAuthToken . _Just
160instance GoogleRequest MembersInsert' where
87instance GoogleRequest MembersInsert' where
161 type Rs MembersInsert' = Member
88 type Rs MembersInsert' = Member
162− request = requestWith directoryRequest
163− requestWith rq MembersInsert'{..}
89+ requestClient MembersInsert'{..}
164− = go _miGroupKey _miQuotaUser (Just _miPrettyPrint)
169− (Just AltJSON)
90+ = go _miGroupKey (Just AltJSON) _miPayload
170− _miPayload
91+ directoryService
172− = clientBuild (Proxy :: Proxy MembersInsertResource)
93+ = buildClient (Proxy :: Proxy MembersInsertResource)
gogol-admin-directory/gen/Network/Google/Resource/Directory/Members/List.hs+10−88
@@ -33,16 +33,10 @@ module Network.Google.Resource.Directory.Members.List
33 , MembersList'
33 , MembersList'
35 -- * Request Lenses
35 -- * Request Lenses
40 , mlGroupKey
37 , mlGroupKey
42 , mlPageToken
38 , mlPageToken
44 , mlMaxResults
39 , mlMaxResults
48import Network.Google.Directory.Types
42import Network.Google.Directory.Types
@@ -57,137 +51,65 @@ type MembersListResource =
57 QueryParam "roles" Text :>
51 QueryParam "roles" Text :>
58 QueryParam "pageToken" Text :>
52 QueryParam "pageToken" Text :>
59 QueryParam "maxResults" Int32 :>
53 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
68-- | Retrieve all members in a group (paginated)
56-- | Retrieve all members in a group (paginated)
70-- /See:/ 'membersList'' smart constructor.
58-- /See:/ 'membersList'' smart constructor.
71data MembersList' = MembersList'
59data MembersList' = MembersList'
72− { _mlQuotaUser :: !(Maybe Text)
73− , _mlRoles :: !(Maybe Text)
74− , _mlPrettyPrint :: !Bool
75− , _mlUserIP :: !(Maybe Text)
60+ { _mlRoles :: !(Maybe Text)
76− , _mlGroupKey :: !Text
61+ , _mlGroupKey :: !Text
77− , _mlKey :: !(Maybe AuthKey)
78− , _mlPageToken :: !(Maybe Text)
62+ , _mlPageToken :: !(Maybe Text)
79− , _mlOAuthToken :: !(Maybe OAuthToken)
80− , _mlMaxResults :: !(Maybe Int32)
63+ , _mlMaxResults :: !(Maybe Int32)
81− , _mlFields :: !(Maybe Text)
82 } deriving (Eq,Show,Data,Typeable,Generic)
64 } deriving (Eq,Show,Data,Typeable,Generic)
84-- | Creates a value of 'MembersList'' with the minimum fields required to make a request.
66-- | Creates a value of 'MembersList'' with the minimum fields required to make a request.
86-- Use one of the following lenses to modify other fields as desired:
68-- Use one of the following lenses to modify other fields as desired:
90-- * 'mlRoles'
70-- * 'mlRoles'
96-- * 'mlGroupKey'
72-- * 'mlGroupKey'
100-- * 'mlPageToken'
74-- * 'mlPageToken'
104-- * 'mlMaxResults'
76-- * 'mlMaxResults'
107membersList'
77membersList'
108 :: Text -- ^ 'groupKey'
78 :: Text -- ^ 'groupKey'
109 -> MembersList'
79 -> MembersList'
110membersList' pMlGroupKey_ =
80membersList' pMlGroupKey_ =
111 MembersList'
81 MembersList'
112− { _mlQuotaUser = Nothing
113− , _mlRoles = Nothing
82+ { _mlRoles = Nothing
114− , _mlPrettyPrint = True
115− , _mlUserIP = Nothing
116 , _mlGroupKey = pMlGroupKey_
83 , _mlGroupKey = pMlGroupKey_
118 , _mlPageToken = Nothing
84 , _mlPageToken = Nothing
119− , _mlOAuthToken = Nothing
120 , _mlMaxResults = Nothing
85 , _mlMaxResults = Nothing
121− , _mlFields = Nothing
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)
129− = lens _mlQuotaUser (\ s a -> s{_mlQuotaUser = a})
131-- | Comma separated role values to filter list results on.
88-- | Comma separated role values to filter list results on.
132mlRoles :: Lens' MembersList' (Maybe Text)
89mlRoles :: Lens' MembersList' (Maybe Text)
133mlRoles = lens _mlRoles (\ s a -> s{_mlRoles = a})
90mlRoles = lens _mlRoles (\ s a -> s{_mlRoles = a})
135−-- | Returns response with indentations and line breaks.
136−mlPrettyPrint :: Lens' MembersList' Bool
138− = lens _mlPrettyPrint
139− (\ s a -> s{_mlPrettyPrint = a})
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})
146-- | Email or immutable Id of the group
92-- | Email or immutable Id of the group
147mlGroupKey :: Lens' MembersList' Text
93mlGroupKey :: Lens' MembersList' Text
148mlGroupKey
94mlGroupKey
149 = lens _mlGroupKey (\ s a -> s{_mlGroupKey = a})
95 = lens _mlGroupKey (\ s a -> s{_mlGroupKey = a})
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
154−mlKey :: Lens' MembersList' (Maybe AuthKey)
155−mlKey = lens _mlKey (\ s a -> s{_mlKey = a})
157-- | Token to specify next page in the list
97-- | Token to specify next page in the list
158mlPageToken :: Lens' MembersList' (Maybe Text)
98mlPageToken :: Lens' MembersList' (Maybe Text)
159mlPageToken
99mlPageToken
160 = lens _mlPageToken (\ s a -> s{_mlPageToken = a})
100 = lens _mlPageToken (\ s a -> s{_mlPageToken = a})
162−-- | OAuth 2.0 token for the current user.
163−mlOAuthToken :: Lens' MembersList' (Maybe OAuthToken)
165− = lens _mlOAuthToken (\ s a -> s{_mlOAuthToken = a})
167-- | Maximum number of results to return. Default is 200
102-- | Maximum number of results to return. Default is 200
168mlMaxResults :: Lens' MembersList' (Maybe Int32)
103mlMaxResults :: Lens' MembersList' (Maybe Int32)
169mlMaxResults
104mlMaxResults
170 = lens _mlMaxResults (\ s a -> s{_mlMaxResults = a})
105 = lens _mlMaxResults (\ s a -> s{_mlMaxResults = a})
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})
176−instance GoogleAuth MembersList' where
177− _AuthKey = mlKey . _Just
178− _AuthToken = mlOAuthToken . _Just
180instance GoogleRequest MembersList' where
107instance GoogleRequest MembersList' where
181 type Rs MembersList' = Members
108 type Rs MembersList' = Members
182− request = requestWith directoryRequest
183− requestWith rq MembersList'{..}
109+ requestClient MembersList'{..}
184 = go _mlGroupKey _mlRoles _mlPageToken _mlMaxResults
110 = go _mlGroupKey _mlRoles _mlPageToken _mlMaxResults
186− (Just _mlPrettyPrint)
191 (Just AltJSON)
111 (Just AltJSON)
193− = clientBuild (Proxy :: Proxy MembersListResource) rq
114+ = buildClient (Proxy :: Proxy MembersListResource)
gogol-admin-directory/gen/Network/Google/Resource/Directory/Members/Patch.hs+11−90
@@ -34,15 +34,9 @@ module Network.Google.Resource.Directory.Members.Patch
34 , MembersPatch'
34 , MembersPatch'
36 -- * Request Lenses
36 -- * Request Lenses
38 , mpMemberKey
37 , mpMemberKey
41 , mpGroupKey
38 , mpGroupKey
42 , mpPayload
39 , mpPayload
48import Network.Google.Directory.Types
42import Network.Google.Directory.Types
@@ -55,52 +49,28 @@ type MembersPatchResource =
55 Capture "groupKey" Text :>
49 Capture "groupKey" Text :>
56 "members" :>
50 "members" :>
57 Capture "memberKey" Text :>
51 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 :>
52+ QueryParam "alt" AltJSON :>
65− ReqBody '[JSON] Member :> Patch '[JSON] Member
53+ ReqBody '[JSON] Member :> Patch '[JSON] Member
67-- | Update membership of a user in the specified group. This method supports
55-- | Update membership of a user in the specified group. This method supports
68-- patch semantics.
56-- patch semantics.
70-- /See:/ 'membersPatch'' smart constructor.
58-- /See:/ 'membersPatch'' smart constructor.
71data MembersPatch' = MembersPatch'
59data MembersPatch' = MembersPatch'
72− { _mpQuotaUser :: !(Maybe Text)
73− , _mpMemberKey :: !Text
60+ { _mpMemberKey :: !Text
74− , _mpPrettyPrint :: !Bool
75− , _mpUserIP :: !(Maybe Text)
76− , _mpGroupKey :: !Text
61+ , _mpGroupKey :: !Text
77− , _mpPayload :: !Member
62+ , _mpPayload :: !Member
78− , _mpKey :: !(Maybe AuthKey)
79− , _mpOAuthToken :: !(Maybe OAuthToken)
80− , _mpFields :: !(Maybe Text)
81 } deriving (Eq,Show,Data,Typeable,Generic)
63 } deriving (Eq,Show,Data,Typeable,Generic)
83-- | Creates a value of 'MembersPatch'' with the minimum fields required to make a request.
65-- | Creates a value of 'MembersPatch'' with the minimum fields required to make a request.
85-- Use one of the following lenses to modify other fields as desired:
67-- Use one of the following lenses to modify other fields as desired:
89-- * 'mpMemberKey'
69-- * 'mpMemberKey'
95-- * 'mpGroupKey'
71-- * 'mpGroupKey'
97-- * 'mpPayload'
73-- * 'mpPayload'
104membersPatch'
74membersPatch'
105 :: Text -- ^ 'memberKey'
75 :: Text -- ^ 'memberKey'
106 -> Text -- ^ 'groupKey'
76 -> Text -- ^ 'groupKey'
@@ -108,41 +78,17 @@ membersPatch'
108 -> MembersPatch'
78 -> MembersPatch'
109membersPatch' pMpMemberKey_ pMpGroupKey_ pMpPayload_ =
79membersPatch' pMpMemberKey_ pMpGroupKey_ pMpPayload_ =
110 MembersPatch'
80 MembersPatch'
111− { _mpQuotaUser = Nothing
112− , _mpMemberKey = pMpMemberKey_
81+ { _mpMemberKey = pMpMemberKey_
113− , _mpPrettyPrint = True
114− , _mpUserIP = Nothing
115 , _mpGroupKey = pMpGroupKey_
82 , _mpGroupKey = pMpGroupKey_
116 , _mpPayload = pMpPayload_
83 , _mpPayload = pMpPayload_
118− , _mpOAuthToken = Nothing
119− , _mpFields = Nothing
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)
127− = lens _mpQuotaUser (\ s a -> s{_mpQuotaUser = a})
129-- | Email or immutable Id of the user. If Id, it should match with id of
86-- | Email or immutable Id of the user. If Id, it should match with id of
130-- member object
87-- member object
131mpMemberKey :: Lens' MembersPatch' Text
88mpMemberKey :: Lens' MembersPatch' Text
132mpMemberKey
89mpMemberKey
133 = lens _mpMemberKey (\ s a -> s{_mpMemberKey = a})
90 = lens _mpMemberKey (\ s a -> s{_mpMemberKey = a})
135−-- | Returns response with indentations and line breaks.
136−mpPrettyPrint :: Lens' MembersPatch' Bool
138− = lens _mpPrettyPrint
139− (\ s a -> s{_mpPrettyPrint = a})
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})
146-- | Email or immutable Id of the group. If Id, it should match with id of
92-- | Email or immutable Id of the group. If Id, it should match with id of
147-- group object
93-- group object
148mpGroupKey :: Lens' MembersPatch' Text
94mpGroupKey :: Lens' MembersPatch' Text
@@ -154,37 +100,12 @@ mpPayload :: Lens' MembersPatch' Member
155 = lens _mpPayload (\ s a -> s{_mpPayload = a})
101 = lens _mpPayload (\ s a -> s{_mpPayload = a})
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
160−mpKey :: Lens' MembersPatch' (Maybe AuthKey)
161−mpKey = lens _mpKey (\ s a -> s{_mpKey = a})
163−-- | OAuth 2.0 token for the current user.
164−mpOAuthToken :: Lens' MembersPatch' (Maybe OAuthToken)
166− = lens _mpOAuthToken (\ s a -> s{_mpOAuthToken = a})
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})
172−instance GoogleAuth MembersPatch' where
173− _AuthKey = mpKey . _Just
174− _AuthToken = mpOAuthToken . _Just
176instance GoogleRequest MembersPatch' where
103instance GoogleRequest MembersPatch' where
177 type Rs MembersPatch' = Member
104 type Rs MembersPatch' = Member
178− request = requestWith directoryRequest
179− requestWith rq MembersPatch'{..}
105+ requestClient MembersPatch'{..}
180− = go _mpGroupKey _mpMemberKey _mpQuotaUser
106+ = go _mpGroupKey _mpMemberKey (Just AltJSON)
181− (Just _mpPrettyPrint)
187 _mpPayload
107 _mpPayload
189− = clientBuild (Proxy :: Proxy MembersPatchResource)
110+ = buildClient (Proxy :: Proxy MembersPatchResource)
gogol-admin-directory/gen/Network/Google/Resource/Directory/Members/Update.hs+11−90
@@ -33,15 +33,9 @@ module Network.Google.Resource.Directory.Members.Update
33 , MembersUpdate'
33 , MembersUpdate'
35 -- * Request Lenses
35 -- * Request Lenses
37 , muMemberKey
36 , muMemberKey
40 , muGroupKey
37 , muGroupKey
41 , muPayload
38 , muPayload
47import Network.Google.Directory.Types
41import Network.Google.Directory.Types
@@ -54,51 +48,27 @@ type MembersUpdateResource =
54 Capture "groupKey" Text :>
48 Capture "groupKey" Text :>
55 "members" :>
49 "members" :>
56 Capture "memberKey" Text :>
50 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 :>
51+ QueryParam "alt" AltJSON :>
64− ReqBody '[JSON] Member :> Put '[JSON] Member
52+ ReqBody '[JSON] Member :> Put '[JSON] Member
66-- | Update membership of a user in the specified group.
54-- | Update membership of a user in the specified group.
68-- /See:/ 'membersUpdate'' smart constructor.
56-- /See:/ 'membersUpdate'' smart constructor.
69data MembersUpdate' = MembersUpdate'
57data MembersUpdate' = MembersUpdate'
70− { _muQuotaUser :: !(Maybe Text)
71− , _muMemberKey :: !Text
58+ { _muMemberKey :: !Text
72− , _muPrettyPrint :: !Bool
73− , _muUserIP :: !(Maybe Text)
74− , _muGroupKey :: !Text
59+ , _muGroupKey :: !Text
75− , _muPayload :: !Member
60+ , _muPayload :: !Member
76− , _muKey :: !(Maybe AuthKey)
77− , _muOAuthToken :: !(Maybe OAuthToken)
78− , _muFields :: !(Maybe Text)
79 } deriving (Eq,Show,Data,Typeable,Generic)
61 } deriving (Eq,Show,Data,Typeable,Generic)
81-- | Creates a value of 'MembersUpdate'' with the minimum fields required to make a request.
63-- | Creates a value of 'MembersUpdate'' with the minimum fields required to make a request.
83-- Use one of the following lenses to modify other fields as desired:
65-- Use one of the following lenses to modify other fields as desired:
87-- * 'muMemberKey'
67-- * 'muMemberKey'
93-- * 'muGroupKey'
69-- * 'muGroupKey'
95-- * 'muPayload'
71-- * 'muPayload'
102membersUpdate'
72membersUpdate'
103 :: Text -- ^ 'memberKey'
73 :: Text -- ^ 'memberKey'
104 -> Text -- ^ 'groupKey'
74 -> Text -- ^ 'groupKey'
@@ -106,41 +76,17 @@ membersUpdate'
106 -> MembersUpdate'
76 -> MembersUpdate'
107membersUpdate' pMuMemberKey_ pMuGroupKey_ pMuPayload_ =
77membersUpdate' pMuMemberKey_ pMuGroupKey_ pMuPayload_ =
108 MembersUpdate'
78 MembersUpdate'
109− { _muQuotaUser = Nothing
110− , _muMemberKey = pMuMemberKey_
79+ { _muMemberKey = pMuMemberKey_
111− , _muPrettyPrint = True
112− , _muUserIP = Nothing
113 , _muGroupKey = pMuGroupKey_
80 , _muGroupKey = pMuGroupKey_
114 , _muPayload = pMuPayload_
81 , _muPayload = pMuPayload_
116− , _muOAuthToken = Nothing
117− , _muFields = Nothing
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)
125− = lens _muQuotaUser (\ s a -> s{_muQuotaUser = a})
127-- | Email or immutable Id of the user. If Id, it should match with id of
84-- | Email or immutable Id of the user. If Id, it should match with id of
128-- member object
85-- member object
129muMemberKey :: Lens' MembersUpdate' Text
86muMemberKey :: Lens' MembersUpdate' Text
130muMemberKey
87muMemberKey
131 = lens _muMemberKey (\ s a -> s{_muMemberKey = a})
88 = lens _muMemberKey (\ s a -> s{_muMemberKey = a})
133−-- | Returns response with indentations and line breaks.
134−muPrettyPrint :: Lens' MembersUpdate' Bool
136− = lens _muPrettyPrint
137− (\ s a -> s{_muPrettyPrint = a})
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})
144-- | Email or immutable Id of the group. If Id, it should match with id of
90-- | Email or immutable Id of the group. If Id, it should match with id of
145-- group object
91-- group object
146muGroupKey :: Lens' MembersUpdate' Text
92muGroupKey :: Lens' MembersUpdate' Text
@@ -152,37 +98,12 @@ muPayload :: Lens' MembersUpdate' Member
153 = lens _muPayload (\ s a -> s{_muPayload = a})
99 = lens _muPayload (\ s a -> s{_muPayload = a})
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
158−muKey :: Lens' MembersUpdate' (Maybe AuthKey)
159−muKey = lens _muKey (\ s a -> s{_muKey = a})
161−-- | OAuth 2.0 token for the current user.
162−muOAuthToken :: Lens' MembersUpdate' (Maybe OAuthToken)
164− = lens _muOAuthToken (\ s a -> s{_muOAuthToken = a})
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})
170−instance GoogleAuth MembersUpdate' where
171− _AuthKey = muKey . _Just
172− _AuthToken = muOAuthToken . _Just
174instance GoogleRequest MembersUpdate' where
101instance GoogleRequest MembersUpdate' where
175 type Rs MembersUpdate' = Member
102 type Rs MembersUpdate' = Member
176− request = requestWith directoryRequest
177− requestWith rq MembersUpdate'{..}
103+ requestClient MembersUpdate'{..}
178− = go _muGroupKey _muMemberKey _muQuotaUser
104+ = go _muGroupKey _muMemberKey (Just AltJSON)
179− (Just _muPrettyPrint)
185 _muPayload
105 _muPayload
187− = clientBuild (Proxy :: Proxy MembersUpdateResource)
108+ = buildClient (Proxy :: Proxy MembersUpdateResource)
gogol-admin-directory/gen/Network/Google/Resource/Directory/MobileDevices/Action.hs+11−94
@@ -33,15 +33,9 @@ module Network.Google.Resource.Directory.MobileDevices.Action
33 , MobileDevicesAction'
33 , MobileDevicesAction'
35 -- * Request Lenses
35 -- * Request Lenses
37 , mdaResourceId
36 , mdaResourceId
40 , mdaPayload
37 , mdaPayload
41 , mdaCustomerId
38 , mdaCustomerId
47import Network.Google.Directory.Types
41import Network.Google.Directory.Types
@@ -56,52 +50,27 @@ type MobileDevicesActionResource =
56 "mobile" :>
50 "mobile" :>
57 Capture "resourceId" Text :>
51 Capture "resourceId" Text :>
58 "action" :>
52 "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 :>
53+ QueryParam "alt" AltJSON :>
66− ReqBody '[JSON] MobileDeviceAction :>
54+ ReqBody '[JSON] MobileDeviceAction :> Post '[JSON] ()
69-- | Take action on Mobile Device
56-- | Take action on Mobile Device
71-- /See:/ 'mobileDevicesAction'' smart constructor.
58-- /See:/ 'mobileDevicesAction'' smart constructor.
72data MobileDevicesAction' = MobileDevicesAction'
59data MobileDevicesAction' = MobileDevicesAction'
73− { _mdaQuotaUser :: !(Maybe Text)
74− , _mdaResourceId :: !Text
60+ { _mdaResourceId :: !Text
75− , _mdaPrettyPrint :: !Bool
76− , _mdaUserIP :: !(Maybe Text)
77− , _mdaPayload :: !MobileDeviceAction
61+ , _mdaPayload :: !MobileDeviceAction
78− , _mdaCustomerId :: !Text
62+ , _mdaCustomerId :: !Text
79− , _mdaKey :: !(Maybe AuthKey)
80− , _mdaOAuthToken :: !(Maybe OAuthToken)
81− , _mdaFields :: !(Maybe Text)
82 } deriving (Eq,Show,Data,Typeable,Generic)
63 } deriving (Eq,Show,Data,Typeable,Generic)
84-- | Creates a value of 'MobileDevicesAction'' with the minimum fields required to make a request.
65-- | Creates a value of 'MobileDevicesAction'' with the minimum fields required to make a request.
86-- Use one of the following lenses to modify other fields as desired:
67-- Use one of the following lenses to modify other fields as desired:
90-- * 'mdaResourceId'
69-- * 'mdaResourceId'
96-- * 'mdaPayload'
71-- * 'mdaPayload'
98-- * 'mdaCustomerId'
73-- * 'mdaCustomerId'
105mobileDevicesAction'
74mobileDevicesAction'
106 :: Text -- ^ 'resourceId'
75 :: Text -- ^ 'resourceId'
107 -> MobileDeviceAction -- ^ 'payload'
76 -> MobileDeviceAction -- ^ 'payload'
@@ -109,42 +78,17 @@ mobileDevicesAction'
109 -> MobileDevicesAction'
78 -> MobileDevicesAction'
110mobileDevicesAction' pMdaResourceId_ pMdaPayload_ pMdaCustomerId_ =
79mobileDevicesAction' pMdaResourceId_ pMdaPayload_ pMdaCustomerId_ =
111 MobileDevicesAction'
80 MobileDevicesAction'
112− { _mdaQuotaUser = Nothing
113− , _mdaResourceId = pMdaResourceId_
81+ { _mdaResourceId = pMdaResourceId_
114− , _mdaPrettyPrint = True
115− , _mdaUserIP = Nothing
116 , _mdaPayload = pMdaPayload_
82 , _mdaPayload = pMdaPayload_
117 , _mdaCustomerId = pMdaCustomerId_
83 , _mdaCustomerId = pMdaCustomerId_
119− , _mdaOAuthToken = Nothing
120− , _mdaFields = Nothing
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)
128− = lens _mdaQuotaUser (\ s a -> s{_mdaQuotaUser = a})
130-- | Immutable id of Mobile Device
86-- | Immutable id of Mobile Device
131mdaResourceId :: Lens' MobileDevicesAction' Text
87mdaResourceId :: Lens' MobileDevicesAction' Text
132mdaResourceId
88mdaResourceId
133 = lens _mdaResourceId
89 = lens _mdaResourceId
134 (\ s a -> s{_mdaResourceId = a})
90 (\ s a -> s{_mdaResourceId = a})
136−-- | Returns response with indentations and line breaks.
137−mdaPrettyPrint :: Lens' MobileDevicesAction' Bool
139− = lens _mdaPrettyPrint
140− (\ s a -> s{_mdaPrettyPrint = a})
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)
146− = lens _mdaUserIP (\ s a -> s{_mdaUserIP = a})
148-- | Multipart request metadata.
92-- | Multipart request metadata.
149mdaPayload :: Lens' MobileDevicesAction' MobileDeviceAction
93mdaPayload :: Lens' MobileDevicesAction' MobileDeviceAction
150mdaPayload
94mdaPayload
@@ -156,40 +100,13 @@ mdaCustomerId
156 = lens _mdaCustomerId
100 = lens _mdaCustomerId
157 (\ s a -> s{_mdaCustomerId = a})
101 (\ s a -> s{_mdaCustomerId = a})
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
162−mdaKey :: Lens' MobileDevicesAction' (Maybe AuthKey)
163−mdaKey = lens _mdaKey (\ s a -> s{_mdaKey = a})
165−-- | OAuth 2.0 token for the current user.
166−mdaOAuthToken :: Lens' MobileDevicesAction' (Maybe OAuthToken)
168− = lens _mdaOAuthToken
169− (\ s a -> s{_mdaOAuthToken = a})
171−-- | Selector specifying which fields to include in a partial response.
172−mdaFields :: Lens' MobileDevicesAction' (Maybe Text)
174− = lens _mdaFields (\ s a -> s{_mdaFields = a})
176−instance GoogleAuth MobileDevicesAction' where
177− _AuthKey = mdaKey . _Just
178− _AuthToken = mdaOAuthToken . _Just
180instance GoogleRequest MobileDevicesAction' where
103instance GoogleRequest MobileDevicesAction' where
181 type Rs MobileDevicesAction' = ()
104 type Rs MobileDevicesAction' = ()
182− request = requestWith directoryRequest
183− requestWith rq MobileDevicesAction'{..}
105+ requestClient MobileDevicesAction'{..}
184− = go _mdaCustomerId _mdaResourceId _mdaQuotaUser
106+ = go _mdaCustomerId _mdaResourceId (Just AltJSON)
185− (Just _mdaPrettyPrint)
191 _mdaPayload
107 _mdaPayload
193− = clientBuild
110+ = buildClient
194 (Proxy :: Proxy MobileDevicesActionResource)
111 (Proxy :: Proxy MobileDevicesActionResource)
gogol-admin-directory/gen/Network/Google/Resource/Directory/MobileDevices/Delete.hs+9−91
@@ -33,14 +33,8 @@ module Network.Google.Resource.Directory.MobileDevices.Delete
33 , MobileDevicesDelete'
33 , MobileDevicesDelete'
35 -- * Request Lenses
35 -- * Request Lenses
37 , mddResourceId
36 , mddResourceId
40 , mddCustomerId
37 , mddCustomerId
46import Network.Google.Directory.Types
40import Network.Google.Directory.Types
@@ -54,127 +48,51 @@ type MobileDevicesDeleteResource =
54 "devices" :>
48 "devices" :>
55 "mobile" :>
49 "mobile" :>
56 Capture "resourceId" Text :>
50 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] ()
65-- | Delete Mobile Device
53-- | Delete Mobile Device
67-- /See:/ 'mobileDevicesDelete'' smart constructor.
55-- /See:/ 'mobileDevicesDelete'' smart constructor.
68data MobileDevicesDelete' = MobileDevicesDelete'
56data MobileDevicesDelete' = MobileDevicesDelete'
69− { _mddQuotaUser :: !(Maybe Text)
70− , _mddResourceId :: !Text
57+ { _mddResourceId :: !Text
71− , _mddPrettyPrint :: !Bool
72− , _mddUserIP :: !(Maybe Text)
73− , _mddCustomerId :: !Text
58+ , _mddCustomerId :: !Text
74− , _mddKey :: !(Maybe AuthKey)
75− , _mddOAuthToken :: !(Maybe OAuthToken)
76− , _mddFields :: !(Maybe Text)
77 } deriving (Eq,Show,Data,Typeable,Generic)
59 } deriving (Eq,Show,Data,Typeable,Generic)
79-- | Creates a value of 'MobileDevicesDelete'' with the minimum fields required to make a request.
61-- | Creates a value of 'MobileDevicesDelete'' with the minimum fields required to make a request.
81-- Use one of the following lenses to modify other fields as desired:
63-- Use one of the following lenses to modify other fields as desired:
85-- * 'mddResourceId'
65-- * 'mddResourceId'
91-- * 'mddCustomerId'
67-- * 'mddCustomerId'
98mobileDevicesDelete'
68mobileDevicesDelete'
99 :: Text -- ^ 'resourceId'
69 :: Text -- ^ 'resourceId'
100 -> Text -- ^ 'customerId'
70 -> Text -- ^ 'customerId'
101 -> MobileDevicesDelete'
71 -> MobileDevicesDelete'
102mobileDevicesDelete' pMddResourceId_ pMddCustomerId_ =
72mobileDevicesDelete' pMddResourceId_ pMddCustomerId_ =
103 MobileDevicesDelete'
73 MobileDevicesDelete'
104− { _mddQuotaUser = Nothing
105− , _mddResourceId = pMddResourceId_
74+ { _mddResourceId = pMddResourceId_
106− , _mddPrettyPrint = True
107− , _mddUserIP = Nothing
108 , _mddCustomerId = pMddCustomerId_
75 , _mddCustomerId = pMddCustomerId_
110− , _mddOAuthToken = Nothing
111− , _mddFields = Nothing
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)
119− = lens _mddQuotaUser (\ s a -> s{_mddQuotaUser = a})
121-- | Immutable id of Mobile Device
78-- | Immutable id of Mobile Device
122mddResourceId :: Lens' MobileDevicesDelete' Text
79mddResourceId :: Lens' MobileDevicesDelete' Text
123mddResourceId
80mddResourceId
124 = lens _mddResourceId
81 = lens _mddResourceId
125 (\ s a -> s{_mddResourceId = a})
82 (\ s a -> s{_mddResourceId = a})
127−-- | Returns response with indentations and line breaks.
128−mddPrettyPrint :: Lens' MobileDevicesDelete' Bool
130− = lens _mddPrettyPrint
131− (\ s a -> s{_mddPrettyPrint = a})
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)
137− = lens _mddUserIP (\ s a -> s{_mddUserIP = a})
139-- | Immutable id of the Google Apps account
84-- | Immutable id of the Google Apps account
140mddCustomerId :: Lens' MobileDevicesDelete' Text
85mddCustomerId :: Lens' MobileDevicesDelete' Text
141mddCustomerId
86mddCustomerId
142 = lens _mddCustomerId
87 = lens _mddCustomerId
143 (\ s a -> s{_mddCustomerId = a})
88 (\ s a -> s{_mddCustomerId = a})
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
148−mddKey :: Lens' MobileDevicesDelete' (Maybe AuthKey)
149−mddKey = lens _mddKey (\ s a -> s{_mddKey = a})
151−-- | OAuth 2.0 token for the current user.
152−mddOAuthToken :: Lens' MobileDevicesDelete' (Maybe OAuthToken)
154− = lens _mddOAuthToken
155− (\ s a -> s{_mddOAuthToken = a})
157−-- | Selector specifying which fields to include in a partial response.
158−mddFields :: Lens' MobileDevicesDelete' (Maybe Text)
160− = lens _mddFields (\ s a -> s{_mddFields = a})
162−instance GoogleAuth MobileDevicesDelete' where
163− _AuthKey = mddKey . _Just
164− _AuthToken = mddOAuthToken . _Just
166instance GoogleRequest MobileDevicesDelete' where
90instance GoogleRequest MobileDevicesDelete' where
167 type Rs MobileDevicesDelete' = ()
91 type Rs MobileDevicesDelete' = ()
168− request = requestWith directoryRequest
169− requestWith rq MobileDevicesDelete'{..}
92+ requestClient MobileDevicesDelete'{..}
170− = go _mddCustomerId _mddResourceId _mddQuotaUser
93+ = go _mddCustomerId _mddResourceId (Just AltJSON)
171− (Just _mddPrettyPrint)
94+ directoryService
178− = clientBuild
96+ = buildClient
179 (Proxy :: Proxy MobileDevicesDeleteResource)
97 (Proxy :: Proxy MobileDevicesDeleteResource)
gogol-admin-directory/gen/Network/Google/Resource/Directory/MobileDevices/Get.hs+9−92
@@ -33,15 +33,9 @@ module Network.Google.Resource.Directory.MobileDevices.Get
33 , MobileDevicesGet'
33 , MobileDevicesGet'
35 -- * Request Lenses
35 -- * Request Lenses
37 , mdgResourceId
36 , mdgResourceId
40 , mdgCustomerId
37 , mdgCustomerId
42 , mdgProjection
38 , mdgProjection
47import Network.Google.Directory.Types
41import Network.Google.Directory.Types
@@ -56,139 +50,62 @@ type MobileDevicesGetResource =
56 "mobile" :>
50 "mobile" :>
57 Capture "resourceId" Text :>
51 Capture "resourceId" Text :>
58 QueryParam "projection" MobileDevicesGetProjection :>
52 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
68-- | Retrieve Mobile Device
55-- | Retrieve Mobile Device
70-- /See:/ 'mobileDevicesGet'' smart constructor.
57-- /See:/ 'mobileDevicesGet'' smart constructor.
71data MobileDevicesGet' = MobileDevicesGet'
58data MobileDevicesGet' = MobileDevicesGet'
72− { _mdgQuotaUser :: !(Maybe Text)
73− , _mdgResourceId :: !Text
59+ { _mdgResourceId :: !Text
74− , _mdgPrettyPrint :: !Bool
75− , _mdgUserIP :: !(Maybe Text)
76− , _mdgCustomerId :: !Text
60+ , _mdgCustomerId :: !Text
77− , _mdgKey :: !(Maybe AuthKey)
78− , _mdgProjection :: !(Maybe MobileDevicesGetProjection)
61+ , _mdgProjection :: !(Maybe MobileDevicesGetProjection)
79− , _mdgOAuthToken :: !(Maybe OAuthToken)
80− , _mdgFields :: !(Maybe Text)
81 } deriving (Eq,Show,Data,Typeable,Generic)
62 } deriving (Eq,Show,Data,Typeable,Generic)
83-- | Creates a value of 'MobileDevicesGet'' with the minimum fields required to make a request.
64-- | Creates a value of 'MobileDevicesGet'' with the minimum fields required to make a request.
85-- Use one of the following lenses to modify other fields as desired:
66-- Use one of the following lenses to modify other fields as desired:
89-- * 'mdgResourceId'
68-- * 'mdgResourceId'
95-- * 'mdgCustomerId'
70-- * 'mdgCustomerId'
99-- * 'mdgProjection'
72-- * 'mdgProjection'
104mobileDevicesGet'
73mobileDevicesGet'
105 :: Text -- ^ 'resourceId'
74 :: Text -- ^ 'resourceId'
106 -> Text -- ^ 'customerId'
75 -> Text -- ^ 'customerId'
107 -> MobileDevicesGet'
76 -> MobileDevicesGet'
108mobileDevicesGet' pMdgResourceId_ pMdgCustomerId_ =
77mobileDevicesGet' pMdgResourceId_ pMdgCustomerId_ =
109 MobileDevicesGet'
78 MobileDevicesGet'
110− { _mdgQuotaUser = Nothing
111− , _mdgResourceId = pMdgResourceId_
79+ { _mdgResourceId = pMdgResourceId_
112− , _mdgPrettyPrint = True
113− , _mdgUserIP = Nothing
114 , _mdgCustomerId = pMdgCustomerId_
80 , _mdgCustomerId = pMdgCustomerId_
116 , _mdgProjection = Nothing
81 , _mdgProjection = Nothing
117− , _mdgOAuthToken = Nothing
118− , _mdgFields = Nothing
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)
126− = lens _mdgQuotaUser (\ s a -> s{_mdgQuotaUser = a})
128-- | Immutable id of Mobile Device
84-- | Immutable id of Mobile Device
129mdgResourceId :: Lens' MobileDevicesGet' Text
85mdgResourceId :: Lens' MobileDevicesGet' Text
130mdgResourceId
86mdgResourceId
131 = lens _mdgResourceId
87 = lens _mdgResourceId
132 (\ s a -> s{_mdgResourceId = a})
88 (\ s a -> s{_mdgResourceId = a})
134−-- | Returns response with indentations and line breaks.
135−mdgPrettyPrint :: Lens' MobileDevicesGet' Bool
137− = lens _mdgPrettyPrint
138− (\ s a -> s{_mdgPrettyPrint = a})
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)
144− = lens _mdgUserIP (\ s a -> s{_mdgUserIP = a})
146-- | Immutable id of the Google Apps account
90-- | Immutable id of the Google Apps account
147mdgCustomerId :: Lens' MobileDevicesGet' Text
91mdgCustomerId :: Lens' MobileDevicesGet' Text
148mdgCustomerId
92mdgCustomerId
149 = lens _mdgCustomerId
93 = lens _mdgCustomerId
150 (\ s a -> s{_mdgCustomerId = a})
94 (\ s a -> s{_mdgCustomerId = a})
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
155−mdgKey :: Lens' MobileDevicesGet' (Maybe AuthKey)
156−mdgKey = lens _mdgKey (\ s a -> s{_mdgKey = a})
158-- | Restrict information returned to a set of selected fields.
96-- | Restrict information returned to a set of selected fields.
159mdgProjection :: Lens' MobileDevicesGet' (Maybe MobileDevicesGetProjection)
97mdgProjection :: Lens' MobileDevicesGet' (Maybe MobileDevicesGetProjection)
160mdgProjection
98mdgProjection
161 = lens _mdgProjection
99 = lens _mdgProjection
162 (\ s a -> s{_mdgProjection = a})
100 (\ s a -> s{_mdgProjection = a})
164−-- | OAuth 2.0 token for the current user.
165−mdgOAuthToken :: Lens' MobileDevicesGet' (Maybe OAuthToken)
167− = lens _mdgOAuthToken
168− (\ s a -> s{_mdgOAuthToken = a})
170−-- | Selector specifying which fields to include in a partial response.
171−mdgFields :: Lens' MobileDevicesGet' (Maybe Text)
173− = lens _mdgFields (\ s a -> s{_mdgFields = a})
175−instance GoogleAuth MobileDevicesGet' where
176− _AuthKey = mdgKey . _Just
177− _AuthToken = mdgOAuthToken . _Just
179instance GoogleRequest MobileDevicesGet' where
102instance GoogleRequest MobileDevicesGet' where
180 type Rs MobileDevicesGet' = MobileDevice
103 type Rs MobileDevicesGet' = MobileDevice
181− request = requestWith directoryRequest
182− requestWith rq MobileDevicesGet'{..}
104+ requestClient MobileDevicesGet'{..}
183 = go _mdgCustomerId _mdgResourceId _mdgProjection
105 = go _mdgCustomerId _mdgResourceId _mdgProjection
185− (Just _mdgPrettyPrint)
190 (Just AltJSON)
106 (Just AltJSON)
192− = clientBuild
109+ = buildClient
193 (Proxy :: Proxy MobileDevicesGetResource)
110 (Proxy :: Proxy MobileDevicesGetResource)
gogol-admin-directory/gen/Network/Google/Resource/Directory/MobileDevices/List.hs+13−96
@@ -33,19 +33,13 @@ module Network.Google.Resource.Directory.MobileDevices.List
33 , MobileDevicesList'
33 , MobileDevicesList'
35 -- * Request Lenses
35 -- * Request Lenses
38 , mdlOrderBy
36 , mdlOrderBy
40 , mdlCustomerId
37 , mdlCustomerId
41 , mdlSortOrder
38 , mdlSortOrder
43 , mdlQuery
39 , mdlQuery
44 , mdlProjection
40 , mdlProjection
45 , mdlPageToken
41 , mdlPageToken
47 , mdlMaxResults
42 , mdlMaxResults
51import Network.Google.Directory.Types
45import Network.Google.Directory.Types
@@ -65,107 +59,57 @@ type MobileDevicesListResource =
66 QueryParam "pageToken" Text :>
60 QueryParam "pageToken" Text :>
67 QueryParam "maxResults" Int32 :>
61 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
77-- | Retrieve all Mobile Devices of a customer (paginated)
64-- | Retrieve all Mobile Devices of a customer (paginated)
79-- /See:/ 'mobileDevicesList'' smart constructor.
66-- /See:/ 'mobileDevicesList'' smart constructor.
80data MobileDevicesList' = MobileDevicesList'
67data MobileDevicesList' = MobileDevicesList'
81− { _mdlQuotaUser :: !(Maybe Text)
82− , _mdlPrettyPrint :: !Bool
83− , _mdlOrderBy :: !(Maybe MobileDevicesListOrderBy)
68+ { _mdlOrderBy :: !(Maybe MobileDevicesListOrderBy)
84− , _mdlUserIP :: !(Maybe Text)
85− , _mdlCustomerId :: !Text
69+ , _mdlCustomerId :: !Text
86− , _mdlSortOrder :: !(Maybe MobileDevicesListSortOrder)
70+ , _mdlSortOrder :: !(Maybe MobileDevicesListSortOrder)
87− , _mdlKey :: !(Maybe AuthKey)
88− , _mdlQuery :: !(Maybe Text)
71+ , _mdlQuery :: !(Maybe Text)
89− , _mdlProjection :: !(Maybe MobileDevicesListProjection)
72+ , _mdlProjection :: !(Maybe MobileDevicesListProjection)
90− , _mdlPageToken :: !(Maybe Text)
73+ , _mdlPageToken :: !(Maybe Text)
91− , _mdlOAuthToken :: !(Maybe OAuthToken)
92− , _mdlMaxResults :: !(Maybe Int32)
74+ , _mdlMaxResults :: !(Maybe Int32)
93− , _mdlFields :: !(Maybe Text)
94 } deriving (Eq,Show,Data,Typeable,Generic)
75 } deriving (Eq,Show,Data,Typeable,Generic)
96-- | Creates a value of 'MobileDevicesList'' with the minimum fields required to make a request.
77-- | Creates a value of 'MobileDevicesList'' with the minimum fields required to make a request.
98-- Use one of the following lenses to modify other fields as desired:
79-- Use one of the following lenses to modify other fields as desired:
102−-- * 'mdlPrettyPrint'
104-- * 'mdlOrderBy'
81-- * 'mdlOrderBy'
108-- * 'mdlCustomerId'
83-- * 'mdlCustomerId'
110-- * 'mdlSortOrder'
85-- * 'mdlSortOrder'
114-- * 'mdlQuery'
87-- * 'mdlQuery'
116-- * 'mdlProjection'
89-- * 'mdlProjection'
118-- * 'mdlPageToken'
91-- * 'mdlPageToken'
122-- * 'mdlMaxResults'
93-- * 'mdlMaxResults'
125mobileDevicesList'
94mobileDevicesList'
126 :: Text -- ^ 'customerId'
95 :: Text -- ^ 'customerId'
127 -> MobileDevicesList'
96 -> MobileDevicesList'
128mobileDevicesList' pMdlCustomerId_ =
97mobileDevicesList' pMdlCustomerId_ =
129 MobileDevicesList'
98 MobileDevicesList'
130− { _mdlQuotaUser = Nothing
131− , _mdlPrettyPrint = True
132− , _mdlOrderBy = Nothing
99+ { _mdlOrderBy = Nothing
133− , _mdlUserIP = Nothing
134 , _mdlCustomerId = pMdlCustomerId_
100 , _mdlCustomerId = pMdlCustomerId_
135 , _mdlSortOrder = Nothing
101 , _mdlSortOrder = Nothing
137 , _mdlQuery = Nothing
102 , _mdlQuery = Nothing
138 , _mdlProjection = Nothing
103 , _mdlProjection = Nothing
139 , _mdlPageToken = Nothing
104 , _mdlPageToken = Nothing
140− , _mdlOAuthToken = Nothing
141 , _mdlMaxResults = Nothing
105 , _mdlMaxResults = Nothing
142− , _mdlFields = Nothing
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)
150− = lens _mdlQuotaUser (\ s a -> s{_mdlQuotaUser = a})
152−-- | Returns response with indentations and line breaks.
153−mdlPrettyPrint :: Lens' MobileDevicesList' Bool
155− = lens _mdlPrettyPrint
156− (\ s a -> s{_mdlPrettyPrint = a})
158-- | Column to use for sorting results
108-- | Column to use for sorting results
159mdlOrderBy :: Lens' MobileDevicesList' (Maybe MobileDevicesListOrderBy)
109mdlOrderBy :: Lens' MobileDevicesList' (Maybe MobileDevicesListOrderBy)
160mdlOrderBy
110mdlOrderBy
161 = lens _mdlOrderBy (\ s a -> s{_mdlOrderBy = a})
111 = lens _mdlOrderBy (\ s a -> s{_mdlOrderBy = a})
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)
167− = lens _mdlUserIP (\ s a -> s{_mdlUserIP = a})
169-- | Immutable id of the Google Apps account
113-- | Immutable id of the Google Apps account
170mdlCustomerId :: Lens' MobileDevicesList' Text
114mdlCustomerId :: Lens' MobileDevicesList' Text
171mdlCustomerId
115mdlCustomerId
@@ -178,12 +122,6 @@ mdlSortOrder :: Lens' MobileDevicesList' (Maybe MobileDevicesListSortOrder)
178mdlSortOrder
122mdlSortOrder
179 = lens _mdlSortOrder (\ s a -> s{_mdlSortOrder = a})
123 = lens _mdlSortOrder (\ s a -> s{_mdlSortOrder = a})
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
184−mdlKey :: Lens' MobileDevicesList' (Maybe AuthKey)
185−mdlKey = lens _mdlKey (\ s a -> s{_mdlKey = a})
187-- | Search string in the format given at
125-- | Search string in the format given at
188-- http:\/\/support.google.com\/a\/bin\/answer.py?hl=en&answer=1408863#search
126-- http:\/\/support.google.com\/a\/bin\/answer.py?hl=en&answer=1408863#search
189mdlQuery :: Lens' MobileDevicesList' (Maybe Text)
127mdlQuery :: Lens' MobileDevicesList' (Maybe Text)
@@ -200,44 +138,23 @@ mdlPageToken :: Lens' MobileDevicesList' (Maybe Text)
200mdlPageToken
138mdlPageToken
201 = lens _mdlPageToken (\ s a -> s{_mdlPageToken = a})
139 = lens _mdlPageToken (\ s a -> s{_mdlPageToken = a})
203−-- | OAuth 2.0 token for the current user.
204−mdlOAuthToken :: Lens' MobileDevicesList' (Maybe OAuthToken)
206− = lens _mdlOAuthToken
207− (\ s a -> s{_mdlOAuthToken = a})
209-- | Maximum number of results to return. Default is 100
141-- | Maximum number of results to return. Default is 100
210mdlMaxResults :: Lens' MobileDevicesList' (Maybe Int32)
142mdlMaxResults :: Lens' MobileDevicesList' (Maybe Int32)
211mdlMaxResults
143mdlMaxResults
212 = lens _mdlMaxResults
144 = lens _mdlMaxResults
213 (\ s a -> s{_mdlMaxResults = a})
145 (\ s a -> s{_mdlMaxResults = a})
215−-- | Selector specifying which fields to include in a partial response.
216−mdlFields :: Lens' MobileDevicesList' (Maybe Text)
218− = lens _mdlFields (\ s a -> s{_mdlFields = a})
220−instance GoogleAuth MobileDevicesList' where
221− _AuthKey = mdlKey . _Just
222− _AuthToken = mdlOAuthToken . _Just
224instance GoogleRequest MobileDevicesList' where
147instance GoogleRequest MobileDevicesList' where
225 type Rs MobileDevicesList' = MobileDevices
148 type Rs MobileDevicesList' = MobileDevices
226− request = requestWith directoryRequest
227− requestWith rq MobileDevicesList'{..}
149+ requestClient MobileDevicesList'{..}
228 = go _mdlCustomerId _mdlOrderBy _mdlSortOrder
150 = go _mdlCustomerId _mdlOrderBy _mdlSortOrder
229 _mdlQuery
151 _mdlQuery
230 _mdlProjection
152 _mdlProjection
231 _mdlPageToken
153 _mdlPageToken
232 _mdlMaxResults
154 _mdlMaxResults
234− (Just _mdlPrettyPrint)
239 (Just AltJSON)
155 (Just AltJSON)
241− = clientBuild
158+ = buildClient
242 (Proxy :: Proxy MobileDevicesListResource)
159 (Proxy :: Proxy MobileDevicesListResource)
gogol-admin-directory/gen/Network/Google/Resource/Directory/Notifications/Delete.hs+8−87
@@ -33,14 +33,8 @@ module Network.Google.Resource.Directory.Notifications.Delete
33 , NotificationsDelete'
33 , NotificationsDelete'
35 -- * Request Lenses
35 -- * Request Lenses
39 , ndCustomer
36 , ndCustomer
41 , ndNotificationId
37 , ndNotificationId
46import Network.Google.Directory.Types
40import Network.Google.Directory.Types
@@ -53,124 +47,51 @@ type NotificationsDeleteResource =
53 Capture "customer" Text :>
47 Capture "customer" Text :>
54 "notifications" :>
48 "notifications" :>
55 Capture "notificationId" Text :>
49 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] ()
64-- | Deletes a notification
52-- | Deletes a notification
66-- /See:/ 'notificationsDelete'' smart constructor.
54-- /See:/ 'notificationsDelete'' smart constructor.
67data NotificationsDelete' = NotificationsDelete'
55data NotificationsDelete' = NotificationsDelete'
68− { _ndQuotaUser :: !(Maybe Text)
69− , _ndPrettyPrint :: !Bool
70− , _ndUserIP :: !(Maybe Text)
71− , _ndCustomer :: !Text
56+ { _ndCustomer :: !Text
72− , _ndKey :: !(Maybe AuthKey)
73 , _ndNotificationId :: !Text
57 , _ndNotificationId :: !Text
74− , _ndOAuthToken :: !(Maybe OAuthToken)
75− , _ndFields :: !(Maybe Text)
76 } deriving (Eq,Show,Data,Typeable,Generic)
58 } deriving (Eq,Show,Data,Typeable,Generic)
78-- | Creates a value of 'NotificationsDelete'' with the minimum fields required to make a request.
60-- | Creates a value of 'NotificationsDelete'' with the minimum fields required to make a request.
80-- Use one of the following lenses to modify other fields as desired:
62-- Use one of the following lenses to modify other fields as desired:
88-- * 'ndCustomer'
64-- * 'ndCustomer'
92-- * 'ndNotificationId'
66-- * 'ndNotificationId'
97notificationsDelete'
67notificationsDelete'
98 :: Text -- ^ 'customer'
68 :: Text -- ^ 'customer'
99 -> Text -- ^ 'notificationId'
69 -> Text -- ^ 'notificationId'
100 -> NotificationsDelete'
70 -> NotificationsDelete'
101notificationsDelete' pNdCustomer_ pNdNotificationId_ =
71notificationsDelete' pNdCustomer_ pNdNotificationId_ =
102 NotificationsDelete'
72 NotificationsDelete'
103− { _ndQuotaUser = Nothing
104− , _ndPrettyPrint = True
105− , _ndUserIP = Nothing
106− , _ndCustomer = pNdCustomer_
73+ { _ndCustomer = pNdCustomer_
108 , _ndNotificationId = pNdNotificationId_
74 , _ndNotificationId = pNdNotificationId_
109− , _ndOAuthToken = Nothing
110− , _ndFields = Nothing
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)
118− = lens _ndQuotaUser (\ s a -> s{_ndQuotaUser = a})
120−-- | Returns response with indentations and line breaks.
121−ndPrettyPrint :: Lens' NotificationsDelete' Bool
123− = lens _ndPrettyPrint
124− (\ s a -> s{_ndPrettyPrint = a})
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})
131-- | The unique ID for the customer\'s Google account. The customerId is also
77-- | The unique ID for the customer\'s Google account. The customerId is also
132-- returned as part of the Users resource.
78-- returned as part of the Users resource.
133ndCustomer :: Lens' NotificationsDelete' Text
79ndCustomer :: Lens' NotificationsDelete' Text
134ndCustomer
80ndCustomer
135 = lens _ndCustomer (\ s a -> s{_ndCustomer = a})
81 = lens _ndCustomer (\ s a -> s{_ndCustomer = a})
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
140−ndKey :: Lens' NotificationsDelete' (Maybe AuthKey)
141−ndKey = lens _ndKey (\ s a -> s{_ndKey = a})
143-- | The unique ID of the notification.
83-- | The unique ID of the notification.
144ndNotificationId :: Lens' NotificationsDelete' Text
84ndNotificationId :: Lens' NotificationsDelete' Text
145ndNotificationId
85ndNotificationId
146 = lens _ndNotificationId
86 = lens _ndNotificationId
147 (\ s a -> s{_ndNotificationId = a})
87 (\ s a -> s{_ndNotificationId = a})
149−-- | OAuth 2.0 token for the current user.
150−ndOAuthToken :: Lens' NotificationsDelete' (Maybe OAuthToken)
152− = lens _ndOAuthToken (\ s a -> s{_ndOAuthToken = a})
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})
158−instance GoogleAuth NotificationsDelete' where
159− _AuthKey = ndKey . _Just
160− _AuthToken = ndOAuthToken . _Just
162instance GoogleRequest NotificationsDelete' where
89instance GoogleRequest NotificationsDelete' where
163 type Rs NotificationsDelete' = ()
90 type Rs NotificationsDelete' = ()
164− request = requestWith directoryRequest
165− requestWith rq NotificationsDelete'{..}
91+ requestClient NotificationsDelete'{..}
166− = go _ndCustomer _ndNotificationId _ndQuotaUser
92+ = go _ndCustomer _ndNotificationId (Just AltJSON)
167− (Just _ndPrettyPrint)
93+ directoryService
174− = clientBuild
95+ = buildClient
175 (Proxy :: Proxy NotificationsDeleteResource)
96 (Proxy :: Proxy NotificationsDeleteResource)
gogol-admin-directory/gen/Network/Google/Resource/Directory/Notifications/Get.hs+8−87
@@ -33,14 +33,8 @@ module Network.Google.Resource.Directory.Notifications.Get
33 , NotificationsGet'
33 , NotificationsGet'
35 -- * Request Lenses
35 -- * Request Lenses
39 , ngCustomer
36 , ngCustomer
41 , ngNotificationId
37 , ngNotificationId
46import Network.Google.Directory.Types
40import Network.Google.Directory.Types
@@ -53,124 +47,51 @@ type NotificationsGetResource =
53 Capture "customer" Text :>
47 Capture "customer" Text :>
54 "notifications" :>
48 "notifications" :>
55 Capture "notificationId" Text :>
49 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
64-- | Retrieves a notification.
52-- | Retrieves a notification.
66-- /See:/ 'notificationsGet'' smart constructor.
54-- /See:/ 'notificationsGet'' smart constructor.
67data NotificationsGet' = NotificationsGet'
55data NotificationsGet' = NotificationsGet'
68− { _ngQuotaUser :: !(Maybe Text)
69− , _ngPrettyPrint :: !Bool
70− , _ngUserIP :: !(Maybe Text)
71− , _ngCustomer :: !Text
56+ { _ngCustomer :: !Text
72− , _ngKey :: !(Maybe AuthKey)
73 , _ngNotificationId :: !Text
57 , _ngNotificationId :: !Text
74− , _ngOAuthToken :: !(Maybe OAuthToken)
75− , _ngFields :: !(Maybe Text)
76 } deriving (Eq,Show,Data,Typeable,Generic)
58 } deriving (Eq,Show,Data,Typeable,Generic)
78-- | Creates a value of 'NotificationsGet'' with the minimum fields required to make a request.
60-- | Creates a value of 'NotificationsGet'' with the minimum fields required to make a request.
80-- Use one of the following lenses to modify other fields as desired:
62-- Use one of the following lenses to modify other fields as desired:
88-- * 'ngCustomer'
64-- * 'ngCustomer'
92-- * 'ngNotificationId'
66-- * 'ngNotificationId'
97notificationsGet'
67notificationsGet'
98 :: Text -- ^ 'customer'
68 :: Text -- ^ 'customer'
99 -> Text -- ^ 'notificationId'
69 -> Text -- ^ 'notificationId'
100 -> NotificationsGet'
70 -> NotificationsGet'
101notificationsGet' pNgCustomer_ pNgNotificationId_ =
71notificationsGet' pNgCustomer_ pNgNotificationId_ =
102 NotificationsGet'
72 NotificationsGet'
103− { _ngQuotaUser = Nothing
104− , _ngPrettyPrint = True
105− , _ngUserIP = Nothing
106− , _ngCustomer = pNgCustomer_
73+ { _ngCustomer = pNgCustomer_
108 , _ngNotificationId = pNgNotificationId_
74 , _ngNotificationId = pNgNotificationId_
109− , _ngOAuthToken = Nothing
110− , _ngFields = Nothing
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)
118− = lens _ngQuotaUser (\ s a -> s{_ngQuotaUser = a})
120−-- | Returns response with indentations and line breaks.
121−ngPrettyPrint :: Lens' NotificationsGet' Bool
123− = lens _ngPrettyPrint
124− (\ s a -> s{_ngPrettyPrint = a})
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})
131-- | The unique ID for the customer\'s Google account. The customerId is also
77-- | The unique ID for the customer\'s Google account. The customerId is also
132-- returned as part of the Users resource.
78-- returned as part of the Users resource.
133ngCustomer :: Lens' NotificationsGet' Text
79ngCustomer :: Lens' NotificationsGet' Text
134ngCustomer
80ngCustomer
135 = lens _ngCustomer (\ s a -> s{_ngCustomer = a})
81 = lens _ngCustomer (\ s a -> s{_ngCustomer = a})
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
140−ngKey :: Lens' NotificationsGet' (Maybe AuthKey)
141−ngKey = lens _ngKey (\ s a -> s{_ngKey = a})
143-- | The unique ID of the notification.
83-- | The unique ID of the notification.
144ngNotificationId :: Lens' NotificationsGet' Text
84ngNotificationId :: Lens' NotificationsGet' Text
145ngNotificationId
85ngNotificationId
146 = lens _ngNotificationId
86 = lens _ngNotificationId
147 (\ s a -> s{_ngNotificationId = a})
87 (\ s a -> s{_ngNotificationId = a})
149−-- | OAuth 2.0 token for the current user.
150−ngOAuthToken :: Lens' NotificationsGet' (Maybe OAuthToken)
152− = lens _ngOAuthToken (\ s a -> s{_ngOAuthToken = a})
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})
158−instance GoogleAuth NotificationsGet' where
159− _AuthKey = ngKey . _Just
160− _AuthToken = ngOAuthToken . _Just
162instance GoogleRequest NotificationsGet' where
89instance GoogleRequest NotificationsGet' where
163 type Rs NotificationsGet' = Notification
90 type Rs NotificationsGet' = Notification
164− request = requestWith directoryRequest
165− requestWith rq NotificationsGet'{..}
91+ requestClient NotificationsGet'{..}
166− = go _ngCustomer _ngNotificationId _ngQuotaUser
92+ = go _ngCustomer _ngNotificationId (Just AltJSON)
167− (Just _ngPrettyPrint)
93+ directoryService
174− = clientBuild
95+ = buildClient
175 (Proxy :: Proxy NotificationsGetResource)
96 (Proxy :: Proxy NotificationsGetResource)
gogol-admin-directory/gen/Network/Google/Resource/Directory/Notifications/List.hs+10−90
@@ -33,16 +33,10 @@ module Network.Google.Resource.Directory.Notifications.List
33 , NotificationsList'
33 , NotificationsList'
35 -- * Request Lenses
35 -- * Request Lenses
39 , nlCustomer
36 , nlCustomer
41 , nlLanguage
37 , nlLanguage
42 , nlPageToken
38 , nlPageToken
44 , nlMaxResults
39 , nlMaxResults
48import Network.Google.Directory.Types
42import Network.Google.Directory.Types
@@ -57,100 +51,45 @@ type NotificationsListResource =
57 QueryParam "language" Text :>
51 QueryParam "language" Text :>
58 QueryParam "pageToken" Text :>
52 QueryParam "pageToken" Text :>
59 QueryParam "maxResults" Word32 :>
53 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
69-- | Retrieves a list of notifications.
56-- | Retrieves a list of notifications.
71-- /See:/ 'notificationsList'' smart constructor.
58-- /See:/ 'notificationsList'' smart constructor.
72data NotificationsList' = NotificationsList'
59data NotificationsList' = NotificationsList'
73− { _nlQuotaUser :: !(Maybe Text)
74− , _nlPrettyPrint :: !Bool
75− , _nlUserIP :: !(Maybe Text)
76− , _nlCustomer :: !Text
60+ { _nlCustomer :: !Text
77− , _nlKey :: !(Maybe AuthKey)
78− , _nlLanguage :: !(Maybe Text)
61+ , _nlLanguage :: !(Maybe Text)
79− , _nlPageToken :: !(Maybe Text)
62+ , _nlPageToken :: !(Maybe Text)
80− , _nlOAuthToken :: !(Maybe OAuthToken)
81− , _nlMaxResults :: !(Maybe Word32)
63+ , _nlMaxResults :: !(Maybe Word32)
82− , _nlFields :: !(Maybe Text)
83 } deriving (Eq,Show,Data,Typeable,Generic)
64 } deriving (Eq,Show,Data,Typeable,Generic)
85-- | Creates a value of 'NotificationsList'' with the minimum fields required to make a request.
66-- | Creates a value of 'NotificationsList'' with the minimum fields required to make a request.
87-- Use one of the following lenses to modify other fields as desired:
68-- Use one of the following lenses to modify other fields as desired:
95-- * 'nlCustomer'
70-- * 'nlCustomer'
99-- * 'nlLanguage'
72-- * 'nlLanguage'
101-- * 'nlPageToken'
74-- * 'nlPageToken'
105-- * 'nlMaxResults'
76-- * 'nlMaxResults'
108notificationsList'
77notificationsList'
109 :: Text -- ^ 'customer'
78 :: Text -- ^ 'customer'
110 -> NotificationsList'
79 -> NotificationsList'
111notificationsList' pNlCustomer_ =
80notificationsList' pNlCustomer_ =
112 NotificationsList'
81 NotificationsList'
113− { _nlQuotaUser = Nothing
114− , _nlPrettyPrint = True
115− , _nlUserIP = Nothing
116− , _nlCustomer = pNlCustomer_
82+ { _nlCustomer = pNlCustomer_
118 , _nlLanguage = Nothing
83 , _nlLanguage = Nothing
119 , _nlPageToken = Nothing
84 , _nlPageToken = Nothing
120− , _nlOAuthToken = Nothing
121 , _nlMaxResults = Nothing
85 , _nlMaxResults = Nothing
122− , _nlFields = Nothing
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)
130− = lens _nlQuotaUser (\ s a -> s{_nlQuotaUser = a})
132−-- | Returns response with indentations and line breaks.
133−nlPrettyPrint :: Lens' NotificationsList' Bool
135− = lens _nlPrettyPrint
136− (\ s a -> s{_nlPrettyPrint = a})
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})
143-- | The unique ID for the customer\'s Google account.
88-- | The unique ID for the customer\'s Google account.
144nlCustomer :: Lens' NotificationsList' Text
89nlCustomer :: Lens' NotificationsList' Text
145nlCustomer
90nlCustomer
146 = lens _nlCustomer (\ s a -> s{_nlCustomer = a})
91 = lens _nlCustomer (\ s a -> s{_nlCustomer = a})
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
151−nlKey :: Lens' NotificationsList' (Maybe AuthKey)
152−nlKey = lens _nlKey (\ s a -> s{_nlKey = a})
154-- | The ISO 639-1 code of the language notifications are returned in. The
93-- | The ISO 639-1 code of the language notifications are returned in. The
155-- default is English (en).
94-- default is English (en).
156nlLanguage :: Lens' NotificationsList' (Maybe Text)
95nlLanguage :: Lens' NotificationsList' (Maybe Text)
@@ -162,38 +101,19 @@ nlPageToken :: Lens' NotificationsList' (Maybe Text)
162nlPageToken
101nlPageToken
163 = lens _nlPageToken (\ s a -> s{_nlPageToken = a})
102 = lens _nlPageToken (\ s a -> s{_nlPageToken = a})
165−-- | OAuth 2.0 token for the current user.
166−nlOAuthToken :: Lens' NotificationsList' (Maybe OAuthToken)
168− = lens _nlOAuthToken (\ s a -> s{_nlOAuthToken = a})
170-- | Maximum number of notifications to return per page. The default is 100.
104-- | Maximum number of notifications to return per page. The default is 100.
171nlMaxResults :: Lens' NotificationsList' (Maybe Word32)
105nlMaxResults :: Lens' NotificationsList' (Maybe Word32)
172nlMaxResults
106nlMaxResults
173 = lens _nlMaxResults (\ s a -> s{_nlMaxResults = a})
107 = lens _nlMaxResults (\ s a -> s{_nlMaxResults = a})
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})
179−instance GoogleAuth NotificationsList' where
180− _AuthKey = nlKey . _Just
181− _AuthToken = nlOAuthToken . _Just
183instance GoogleRequest NotificationsList' where
109instance GoogleRequest NotificationsList' where
184 type Rs NotificationsList' = Notifications
110 type Rs NotificationsList' = Notifications
185− request = requestWith directoryRequest
186− requestWith rq NotificationsList'{..}
111+ requestClient NotificationsList'{..}
187 = go _nlCustomer _nlLanguage _nlPageToken
112 = go _nlCustomer _nlLanguage _nlPageToken
188 _nlMaxResults
113 _nlMaxResults
190− (Just _nlPrettyPrint)
195 (Just AltJSON)
114 (Just AltJSON)
197− = clientBuild
117+ = buildClient
198 (Proxy :: Proxy NotificationsListResource)
118 (Proxy :: Proxy NotificationsListResource)
gogol-admin-directory/gen/Network/Google/Resource/Directory/Notifications/Patch.hs+10−89
@@ -33,15 +33,9 @@ module Network.Google.Resource.Directory.Notifications.Patch
33 , NotificationsPatch'
33 , NotificationsPatch'
35 -- * Request Lenses
35 -- * Request Lenses
39 , npPayload
36 , npPayload
40 , npCustomer
37 , npCustomer
42 , npNotificationId
38 , npNotificationId
47import Network.Google.Directory.Types
41import Network.Google.Directory.Types
@@ -54,52 +48,28 @@ type NotificationsPatchResource =
54 Capture "customer" Text :>
48 Capture "customer" Text :>
55 "notifications" :>
49 "notifications" :>
56 Capture "notificationId" Text :>
50 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 :>
51+ QueryParam "alt" AltJSON :>
64− ReqBody '[JSON] Notification :>
52+ ReqBody '[JSON] Notification :>
65− Patch '[JSON] Notification
53+ Patch '[JSON] Notification
67-- | Updates a notification. This method supports patch semantics.
55-- | Updates a notification. This method supports patch semantics.
69-- /See:/ 'notificationsPatch'' smart constructor.
57-- /See:/ 'notificationsPatch'' smart constructor.
70data NotificationsPatch' = NotificationsPatch'
58data NotificationsPatch' = NotificationsPatch'
71− { _npQuotaUser :: !(Maybe Text)
72− , _npPrettyPrint :: !Bool
73− , _npUserIP :: !(Maybe Text)
74− , _npPayload :: !Notification
59+ { _npPayload :: !Notification
75 , _npCustomer :: !Text
60 , _npCustomer :: !Text
76− , _npKey :: !(Maybe AuthKey)
77 , _npNotificationId :: !Text
61 , _npNotificationId :: !Text
78− , _npOAuthToken :: !(Maybe OAuthToken)
79− , _npFields :: !(Maybe Text)
80 } deriving (Eq,Show,Data,Typeable,Generic)
62 } deriving (Eq,Show,Data,Typeable,Generic)
82-- | Creates a value of 'NotificationsPatch'' with the minimum fields required to make a request.
64-- | Creates a value of 'NotificationsPatch'' with the minimum fields required to make a request.
84-- Use one of the following lenses to modify other fields as desired:
66-- Use one of the following lenses to modify other fields as desired:
92-- * 'npPayload'
68-- * 'npPayload'
94-- * 'npCustomer'
70-- * 'npCustomer'
98-- * 'npNotificationId'
72-- * 'npNotificationId'
103notificationsPatch'
73notificationsPatch'
104 :: Notification -- ^ 'payload'
74 :: Notification -- ^ 'payload'
105 -> Text -- ^ 'customer'
75 -> Text -- ^ 'customer'
@@ -107,35 +77,11 @@ notificationsPatch'
107 -> NotificationsPatch'
77 -> NotificationsPatch'
108notificationsPatch' pNpPayload_ pNpCustomer_ pNpNotificationId_ =
78notificationsPatch' pNpPayload_ pNpCustomer_ pNpNotificationId_ =
109 NotificationsPatch'
79 NotificationsPatch'
110− { _npQuotaUser = Nothing
111− , _npPrettyPrint = True
112− , _npUserIP = Nothing
113− , _npPayload = pNpPayload_
80+ { _npPayload = pNpPayload_
114 , _npCustomer = pNpCustomer_
81 , _npCustomer = pNpCustomer_
116 , _npNotificationId = pNpNotificationId_
82 , _npNotificationId = pNpNotificationId_
117− , _npOAuthToken = Nothing
118− , _npFields = Nothing
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)
126− = lens _npQuotaUser (\ s a -> s{_npQuotaUser = a})
128−-- | Returns response with indentations and line breaks.
129−npPrettyPrint :: Lens' NotificationsPatch' Bool
131− = lens _npPrettyPrint
132− (\ s a -> s{_npPrettyPrint = a})
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})
139-- | Multipart request metadata.
85-- | Multipart request metadata.
140npPayload :: Lens' NotificationsPatch' Notification
86npPayload :: Lens' NotificationsPatch' Notification
@@ -146,44 +92,19 @@ npCustomer :: Lens' NotificationsPatch' Text
146npCustomer
92npCustomer
147 = lens _npCustomer (\ s a -> s{_npCustomer = a})
93 = lens _npCustomer (\ s a -> s{_npCustomer = a})
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
152−npKey :: Lens' NotificationsPatch' (Maybe AuthKey)
153−npKey = lens _npKey (\ s a -> s{_npKey = a})
155-- | The unique ID of the notification.
95-- | The unique ID of the notification.
156npNotificationId :: Lens' NotificationsPatch' Text
96npNotificationId :: Lens' NotificationsPatch' Text
157npNotificationId
97npNotificationId
158 = lens _npNotificationId
98 = lens _npNotificationId
159 (\ s a -> s{_npNotificationId = a})
99 (\ s a -> s{_npNotificationId = a})
161−-- | OAuth 2.0 token for the current user.
162−npOAuthToken :: Lens' NotificationsPatch' (Maybe OAuthToken)
164− = lens _npOAuthToken (\ s a -> s{_npOAuthToken = a})
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})
170−instance GoogleAuth NotificationsPatch' where
171− _AuthKey = npKey . _Just
172− _AuthToken = npOAuthToken . _Just
174instance GoogleRequest NotificationsPatch' where
101instance GoogleRequest NotificationsPatch' where
175 type Rs NotificationsPatch' = Notification
102 type Rs NotificationsPatch' = Notification
176− request = requestWith directoryRequest
177− requestWith rq NotificationsPatch'{..}
103+ requestClient NotificationsPatch'{..}
178− = go _npCustomer _npNotificationId _npQuotaUser
104+ = go _npCustomer _npNotificationId (Just AltJSON)
179− (Just _npPrettyPrint)
185 _npPayload
105 _npPayload
187− = clientBuild
108+ = buildClient
188 (Proxy :: Proxy NotificationsPatchResource)
109 (Proxy :: Proxy NotificationsPatchResource)
gogol-admin-directory/gen/Network/Google/Resource/Directory/Notifications/Update.hs+10−89
@@ -33,15 +33,9 @@ module Network.Google.Resource.Directory.Notifications.Update
33 , NotificationsUpdate'
33 , NotificationsUpdate'
35 -- * Request Lenses
35 -- * Request Lenses
39 , nuPayload
36 , nuPayload
40 , nuCustomer
37 , nuCustomer
42 , nuNotificationId
38 , nuNotificationId
47import Network.Google.Directory.Types
41import Network.Google.Directory.Types
@@ -54,52 +48,28 @@ type NotificationsUpdateResource =
54 Capture "customer" Text :>
48 Capture "customer" Text :>
55 "notifications" :>
49 "notifications" :>
56 Capture "notificationId" Text :>
50 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 :>
51+ QueryParam "alt" AltJSON :>
64− ReqBody '[JSON] Notification :>
52+ ReqBody '[JSON] Notification :>
65− Put '[JSON] Notification
53+ Put '[JSON] Notification
67-- | Updates a notification.
55-- | Updates a notification.
69-- /See:/ 'notificationsUpdate'' smart constructor.
57-- /See:/ 'notificationsUpdate'' smart constructor.
70data NotificationsUpdate' = NotificationsUpdate'
58data NotificationsUpdate' = NotificationsUpdate'
71− { _nuQuotaUser :: !(Maybe Text)
72− , _nuPrettyPrint :: !Bool
73− , _nuUserIP :: !(Maybe Text)
74− , _nuPayload :: !Notification
59+ { _nuPayload :: !Notification
75 , _nuCustomer :: !Text
60 , _nuCustomer :: !Text
76− , _nuKey :: !(Maybe AuthKey)
77 , _nuNotificationId :: !Text
61 , _nuNotificationId :: !Text
78− , _nuOAuthToken :: !(Maybe OAuthToken)
79− , _nuFields :: !(Maybe Text)
80 } deriving (Eq,Show,Data,Typeable,Generic)
62 } deriving (Eq,Show,Data,Typeable,Generic)
82-- | Creates a value of 'NotificationsUpdate'' with the minimum fields required to make a request.
64-- | Creates a value of 'NotificationsUpdate'' with the minimum fields required to make a request.
84-- Use one of the following lenses to modify other fields as desired:
66-- Use one of the following lenses to modify other fields as desired:
92-- * 'nuPayload'
68-- * 'nuPayload'
94-- * 'nuCustomer'
70-- * 'nuCustomer'
98-- * 'nuNotificationId'
72-- * 'nuNotificationId'
103notificationsUpdate'
73notificationsUpdate'
104 :: Notification -- ^ 'payload'
74 :: Notification -- ^ 'payload'
105 -> Text -- ^ 'customer'
75 -> Text -- ^ 'customer'
@@ -107,35 +77,11 @@ notificationsUpdate'
107 -> NotificationsUpdate'
77 -> NotificationsUpdate'
108notificationsUpdate' pNuPayload_ pNuCustomer_ pNuNotificationId_ =
78notificationsUpdate' pNuPayload_ pNuCustomer_ pNuNotificationId_ =
109 NotificationsUpdate'
79 NotificationsUpdate'
110− { _nuQuotaUser = Nothing
111− , _nuPrettyPrint = True
112− , _nuUserIP = Nothing
113− , _nuPayload = pNuPayload_
80+ { _nuPayload = pNuPayload_
114 , _nuCustomer = pNuCustomer_
81 , _nuCustomer = pNuCustomer_
116 , _nuNotificationId = pNuNotificationId_
82 , _nuNotificationId = pNuNotificationId_
117− , _nuOAuthToken = Nothing
118− , _nuFields = Nothing
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)
126− = lens _nuQuotaUser (\ s a -> s{_nuQuotaUser = a})
128−-- | Returns response with indentations and line breaks.
129−nuPrettyPrint :: Lens' NotificationsUpdate' Bool
131− = lens _nuPrettyPrint
132− (\ s a -> s{_nuPrettyPrint = a})
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})
139-- | Multipart request metadata.
85-- | Multipart request metadata.
140nuPayload :: Lens' NotificationsUpdate' Notification
86nuPayload :: Lens' NotificationsUpdate' Notification
@@ -146,44 +92,19 @@ nuCustomer :: Lens' NotificationsUpdate' Text
146nuCustomer
92nuCustomer
147 = lens _nuCustomer (\ s a -> s{_nuCustomer = a})
93 = lens _nuCustomer (\ s a -> s{_nuCustomer = a})
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
152−nuKey :: Lens' NotificationsUpdate' (Maybe AuthKey)
153−nuKey = lens _nuKey (\ s a -> s{_nuKey = a})
155-- | The unique ID of the notification.
95-- | The unique ID of the notification.
156nuNotificationId :: Lens' NotificationsUpdate' Text
96nuNotificationId :: Lens' NotificationsUpdate' Text
157nuNotificationId
97nuNotificationId
158 = lens _nuNotificationId
98 = lens _nuNotificationId
159 (\ s a -> s{_nuNotificationId = a})
99 (\ s a -> s{_nuNotificationId = a})
161−-- | OAuth 2.0 token for the current user.
162−nuOAuthToken :: Lens' NotificationsUpdate' (Maybe OAuthToken)
164− = lens _nuOAuthToken (\ s a -> s{_nuOAuthToken = a})
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})
170−instance GoogleAuth NotificationsUpdate' where
171− _AuthKey = nuKey . _Just
172− _AuthToken = nuOAuthToken . _Just
174instance GoogleRequest NotificationsUpdate' where
101instance GoogleRequest NotificationsUpdate' where
175 type Rs NotificationsUpdate' = Notification
102 type Rs NotificationsUpdate' = Notification
176− request = requestWith directoryRequest
177− requestWith rq NotificationsUpdate'{..}
103+ requestClient NotificationsUpdate'{..}
178− = go _nuCustomer _nuNotificationId _nuQuotaUser
104+ = go _nuCustomer _nuNotificationId (Just AltJSON)
179− (Just _nuPrettyPrint)
185 _nuPayload
105 _nuPayload
187− = clientBuild
108+ = buildClient
188 (Proxy :: Proxy NotificationsUpdateResource)
109 (Proxy :: Proxy NotificationsUpdateResource)
gogol-admin-directory/gen/Network/Google/Resource/Directory/OrgUnits/Delete.hs+8−90
@@ -33,14 +33,8 @@ module Network.Google.Resource.Directory.OrgUnits.Delete
33 , OrgUnitsDelete'
33 , OrgUnitsDelete'
35 -- * Request Lenses
35 -- * Request Lenses
39 , oudOrgUnitPath
36 , oudOrgUnitPath
40 , oudCustomerId
37 , oudCustomerId
46import Network.Google.Directory.Types
40import Network.Google.Directory.Types
@@ -53,82 +47,33 @@ type OrgUnitsDeleteResource =
53 Capture "customerId" Text :>
47 Capture "customerId" Text :>
54 "orgunits" :>
48 "orgunits" :>
55 Captures "orgUnitPath" Text :>
49 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] ()
64-- | Remove Organization Unit
52-- | Remove Organization Unit
66-- /See:/ 'orgUnitsDelete'' smart constructor.
54-- /See:/ 'orgUnitsDelete'' smart constructor.
67data OrgUnitsDelete' = OrgUnitsDelete'
55data OrgUnitsDelete' = OrgUnitsDelete'
68− { _oudQuotaUser :: !(Maybe Text)
69− , _oudPrettyPrint :: !Bool
70− , _oudUserIP :: !(Maybe Text)
71− , _oudOrgUnitPath :: ![Text]
56+ { _oudOrgUnitPath :: ![Text]
72 , _oudCustomerId :: !Text
57 , _oudCustomerId :: !Text
73− , _oudKey :: !(Maybe AuthKey)
74− , _oudOAuthToken :: !(Maybe OAuthToken)
75− , _oudFields :: !(Maybe Text)
76 } deriving (Eq,Show,Data,Typeable,Generic)
58 } deriving (Eq,Show,Data,Typeable,Generic)
78-- | Creates a value of 'OrgUnitsDelete'' with the minimum fields required to make a request.
60-- | Creates a value of 'OrgUnitsDelete'' with the minimum fields required to make a request.
80-- Use one of the following lenses to modify other fields as desired:
62-- Use one of the following lenses to modify other fields as desired:
88-- * 'oudOrgUnitPath'
64-- * 'oudOrgUnitPath'
90-- * 'oudCustomerId'
66-- * 'oudCustomerId'
97orgUnitsDelete'
67orgUnitsDelete'
98 :: [Text] -- ^ 'orgUnitPath'
68 :: [Text] -- ^ 'orgUnitPath'
99 -> Text -- ^ 'customerId'
69 -> Text -- ^ 'customerId'
100 -> OrgUnitsDelete'
70 -> OrgUnitsDelete'
101orgUnitsDelete' pOudOrgUnitPath_ pOudCustomerId_ =
71orgUnitsDelete' pOudOrgUnitPath_ pOudCustomerId_ =
102 OrgUnitsDelete'
72 OrgUnitsDelete'
103− { _oudQuotaUser = Nothing
104− , _oudPrettyPrint = True
105− , _oudUserIP = Nothing
106− , _oudOrgUnitPath = pOudOrgUnitPath_
73+ { _oudOrgUnitPath = pOudOrgUnitPath_
107 , _oudCustomerId = pOudCustomerId_
74 , _oudCustomerId = pOudCustomerId_
109− , _oudOAuthToken = Nothing
110− , _oudFields = Nothing
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)
118− = lens _oudQuotaUser (\ s a -> s{_oudQuotaUser = a})
120−-- | Returns response with indentations and line breaks.
121−oudPrettyPrint :: Lens' OrgUnitsDelete' Bool
123− = lens _oudPrettyPrint
124− (\ s a -> s{_oudPrettyPrint = a})
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)
130− = lens _oudUserIP (\ s a -> s{_oudUserIP = a})
132-- | Full path of the organization unit or its Id
77-- | Full path of the organization unit or its Id
133oudOrgUnitPath :: Lens' OrgUnitsDelete' [Text]
78oudOrgUnitPath :: Lens' OrgUnitsDelete' [Text]
134oudOrgUnitPath
79oudOrgUnitPath
@@ -142,38 +87,11 @@ oudCustomerId
142 = lens _oudCustomerId
87 = lens _oudCustomerId
143 (\ s a -> s{_oudCustomerId = a})
88 (\ s a -> s{_oudCustomerId = a})
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
148−oudKey :: Lens' OrgUnitsDelete' (Maybe AuthKey)
149−oudKey = lens _oudKey (\ s a -> s{_oudKey = a})
151−-- | OAuth 2.0 token for the current user.
152−oudOAuthToken :: Lens' OrgUnitsDelete' (Maybe OAuthToken)
154− = lens _oudOAuthToken
155− (\ s a -> s{_oudOAuthToken = a})
157−-- | Selector specifying which fields to include in a partial response.
158−oudFields :: Lens' OrgUnitsDelete' (Maybe Text)
160− = lens _oudFields (\ s a -> s{_oudFields = a})
162−instance GoogleAuth OrgUnitsDelete' where
163− _AuthKey = oudKey . _Just
164− _AuthToken = oudOAuthToken . _Just
166instance GoogleRequest OrgUnitsDelete' where
90instance GoogleRequest OrgUnitsDelete' where
167 type Rs OrgUnitsDelete' = ()
91 type Rs OrgUnitsDelete' = ()
168− request = requestWith directoryRequest
169− requestWith rq OrgUnitsDelete'{..}
92+ requestClient OrgUnitsDelete'{..}
170− = go _oudCustomerId _oudOrgUnitPath _oudQuotaUser
93+ = go _oudCustomerId _oudOrgUnitPath (Just AltJSON)
171− (Just _oudPrettyPrint)
94+ directoryService
178− = clientBuild (Proxy :: Proxy OrgUnitsDeleteResource)
96+ = buildClient (Proxy :: Proxy OrgUnitsDeleteResource)
gogol-admin-directory/gen/Network/Google/Resource/Directory/OrgUnits/Get.hs+8−89
@@ -33,14 +33,8 @@ module Network.Google.Resource.Directory.OrgUnits.Get
33 , OrgUnitsGet'
33 , OrgUnitsGet'
35 -- * Request Lenses
35 -- * Request Lenses
39 , ougOrgUnitPath
36 , ougOrgUnitPath
40 , ougCustomerId
37 , ougCustomerId
46import Network.Google.Directory.Types
40import Network.Google.Directory.Types
@@ -53,82 +47,33 @@ type OrgUnitsGetResource =
53 Capture "customerId" Text :>
47 Capture "customerId" Text :>
54 "orgunits" :>
48 "orgunits" :>
55 Captures "orgUnitPath" Text :>
49 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
64-- | Retrieve Organization Unit
52-- | Retrieve Organization Unit
66-- /See:/ 'orgUnitsGet'' smart constructor.
54-- /See:/ 'orgUnitsGet'' smart constructor.
67data OrgUnitsGet' = OrgUnitsGet'
55data OrgUnitsGet' = OrgUnitsGet'
68− { _ougQuotaUser :: !(Maybe Text)
69− , _ougPrettyPrint :: !Bool
70− , _ougUserIP :: !(Maybe Text)
71− , _ougOrgUnitPath :: ![Text]
56+ { _ougOrgUnitPath :: ![Text]
72 , _ougCustomerId :: !Text
57 , _ougCustomerId :: !Text
73− , _ougKey :: !(Maybe AuthKey)
74− , _ougOAuthToken :: !(Maybe OAuthToken)
75− , _ougFields :: !(Maybe Text)
76 } deriving (Eq,Show,Data,Typeable,Generic)
58 } deriving (Eq,Show,Data,Typeable,Generic)
78-- | Creates a value of 'OrgUnitsGet'' with the minimum fields required to make a request.
60-- | Creates a value of 'OrgUnitsGet'' with the minimum fields required to make a request.
80-- Use one of the following lenses to modify other fields as desired:
62-- Use one of the following lenses to modify other fields as desired:
88-- * 'ougOrgUnitPath'
64-- * 'ougOrgUnitPath'
90-- * 'ougCustomerId'
66-- * 'ougCustomerId'
97orgUnitsGet'
67orgUnitsGet'
98 :: [Text] -- ^ 'orgUnitPath'
68 :: [Text] -- ^ 'orgUnitPath'
99 -> Text -- ^ 'customerId'
69 -> Text -- ^ 'customerId'
100 -> OrgUnitsGet'
70 -> OrgUnitsGet'
101orgUnitsGet' pOugOrgUnitPath_ pOugCustomerId_ =
71orgUnitsGet' pOugOrgUnitPath_ pOugCustomerId_ =
102 OrgUnitsGet'
72 OrgUnitsGet'
103− { _ougQuotaUser = Nothing
104− , _ougPrettyPrint = True
105− , _ougUserIP = Nothing
106− , _ougOrgUnitPath = pOugOrgUnitPath_
73+ { _ougOrgUnitPath = pOugOrgUnitPath_
107 , _ougCustomerId = pOugCustomerId_
74 , _ougCustomerId = pOugCustomerId_
109− , _ougOAuthToken = Nothing
110− , _ougFields = Nothing
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)
118− = lens _ougQuotaUser (\ s a -> s{_ougQuotaUser = a})
120−-- | Returns response with indentations and line breaks.
121−ougPrettyPrint :: Lens' OrgUnitsGet' Bool
123− = lens _ougPrettyPrint
124− (\ s a -> s{_ougPrettyPrint = a})
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)
130− = lens _ougUserIP (\ s a -> s{_ougUserIP = a})
132-- | Full path of the organization unit or its Id
77-- | Full path of the organization unit or its Id
133ougOrgUnitPath :: Lens' OrgUnitsGet' [Text]
78ougOrgUnitPath :: Lens' OrgUnitsGet' [Text]
134ougOrgUnitPath
79ougOrgUnitPath
@@ -142,37 +87,11 @@ ougCustomerId
142 = lens _ougCustomerId
87 = lens _ougCustomerId
143 (\ s a -> s{_ougCustomerId = a})
88 (\ s a -> s{_ougCustomerId = a})
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
148−ougKey :: Lens' OrgUnitsGet' (Maybe AuthKey)
149−ougKey = lens _ougKey (\ s a -> s{_ougKey = a})
151−-- | OAuth 2.0 token for the current user.
152−ougOAuthToken :: Lens' OrgUnitsGet' (Maybe OAuthToken)
154− = lens _ougOAuthToken
155− (\ s a -> s{_ougOAuthToken = a})
157−-- | Selector specifying which fields to include in a partial response.
158−ougFields :: Lens' OrgUnitsGet' (Maybe Text)
160− = lens _ougFields (\ s a -> s{_ougFields = a})
162−instance GoogleAuth OrgUnitsGet' where
163− _AuthKey = ougKey . _Just
164− _AuthToken = ougOAuthToken . _Just
166instance GoogleRequest OrgUnitsGet' where
90instance GoogleRequest OrgUnitsGet' where
167 type Rs OrgUnitsGet' = OrgUnit
91 type Rs OrgUnitsGet' = OrgUnit
168− request = requestWith directoryRequest
169− requestWith rq OrgUnitsGet'{..}
92+ requestClient OrgUnitsGet'{..}
170− = go _ougCustomerId _ougOrgUnitPath _ougQuotaUser
93+ = go _ougCustomerId _ougOrgUnitPath (Just AltJSON)
171− (Just _ougPrettyPrint)
94+ directoryService
178− = clientBuild (Proxy :: Proxy OrgUnitsGetResource) rq
96+ = buildClient (Proxy :: Proxy OrgUnitsGetResource)
gogol-admin-directory/gen/Network/Google/Resource/Directory/OrgUnits/Insert.hs+10−93
@@ -33,14 +33,8 @@ module Network.Google.Resource.Directory.OrgUnits.Insert
33 , OrgUnitsInsert'
33 , OrgUnitsInsert'
35 -- * Request Lenses
35 -- * Request Lenses
39 , ouiPayload
36 , ouiPayload
40 , ouiCustomerId
37 , ouiCustomerId
46import Network.Google.Directory.Types
40import Network.Google.Directory.Types
@@ -52,83 +46,34 @@ type OrgUnitsInsertResource =
52 "customer" :>
46 "customer" :>
53 Capture "customerId" Text :>
47 Capture "customerId" Text :>
54 "orgunits" :>
48 "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 :>
49+ QueryParam "alt" AltJSON :>
62− ReqBody '[JSON] OrgUnit :> Post '[JSON] OrgUnit
50+ ReqBody '[JSON] OrgUnit :> Post '[JSON] OrgUnit
64-- | Add Organization Unit
52-- | Add Organization Unit
66-- /See:/ 'orgUnitsInsert'' smart constructor.
54-- /See:/ 'orgUnitsInsert'' smart constructor.
67data OrgUnitsInsert' = OrgUnitsInsert'
55data OrgUnitsInsert' = OrgUnitsInsert'
68− { _ouiQuotaUser :: !(Maybe Text)
69− , _ouiPrettyPrint :: !Bool
70− , _ouiUserIP :: !(Maybe Text)
71− , _ouiPayload :: !OrgUnit
56+ { _ouiPayload :: !OrgUnit
72− , _ouiCustomerId :: !Text
57+ , _ouiCustomerId :: !Text
73− , _ouiKey :: !(Maybe AuthKey)
74− , _ouiOAuthToken :: !(Maybe OAuthToken)
75− , _ouiFields :: !(Maybe Text)
76 } deriving (Eq,Show,Data,Typeable,Generic)
58 } deriving (Eq,Show,Data,Typeable,Generic)
78-- | Creates a value of 'OrgUnitsInsert'' with the minimum fields required to make a request.
60-- | Creates a value of 'OrgUnitsInsert'' with the minimum fields required to make a request.
80-- Use one of the following lenses to modify other fields as desired:
62-- Use one of the following lenses to modify other fields as desired:
88-- * 'ouiPayload'
64-- * 'ouiPayload'
90-- * 'ouiCustomerId'
66-- * 'ouiCustomerId'
97orgUnitsInsert'
67orgUnitsInsert'
98 :: OrgUnit -- ^ 'payload'
68 :: OrgUnit -- ^ 'payload'
99 -> Text -- ^ 'customerId'
69 -> Text -- ^ 'customerId'
100 -> OrgUnitsInsert'
70 -> OrgUnitsInsert'
101orgUnitsInsert' pOuiPayload_ pOuiCustomerId_ =
71orgUnitsInsert' pOuiPayload_ pOuiCustomerId_ =
102 OrgUnitsInsert'
72 OrgUnitsInsert'
103− { _ouiQuotaUser = Nothing
104− , _ouiPrettyPrint = True
105− , _ouiUserIP = Nothing
106− , _ouiPayload = pOuiPayload_
73+ { _ouiPayload = pOuiPayload_
107 , _ouiCustomerId = pOuiCustomerId_
74 , _ouiCustomerId = pOuiCustomerId_
109− , _ouiOAuthToken = Nothing
110− , _ouiFields = Nothing
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)
118− = lens _ouiQuotaUser (\ s a -> s{_ouiQuotaUser = a})
120−-- | Returns response with indentations and line breaks.
121−ouiPrettyPrint :: Lens' OrgUnitsInsert' Bool
123− = lens _ouiPrettyPrint
124− (\ s a -> s{_ouiPrettyPrint = a})
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)
130− = lens _ouiUserIP (\ s a -> s{_ouiUserIP = a})
132-- | Multipart request metadata.
77-- | Multipart request metadata.
133ouiPayload :: Lens' OrgUnitsInsert' OrgUnit
78ouiPayload :: Lens' OrgUnitsInsert' OrgUnit
134ouiPayload
79ouiPayload
@@ -140,39 +85,11 @@ ouiCustomerId
140 = lens _ouiCustomerId
85 = lens _ouiCustomerId
141 (\ s a -> s{_ouiCustomerId = a})
86 (\ s a -> s{_ouiCustomerId = a})
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
146−ouiKey :: Lens' OrgUnitsInsert' (Maybe AuthKey)
147−ouiKey = lens _ouiKey (\ s a -> s{_ouiKey = a})
149−-- | OAuth 2.0 token for the current user.
150−ouiOAuthToken :: Lens' OrgUnitsInsert' (Maybe OAuthToken)
152− = lens _ouiOAuthToken
153− (\ s a -> s{_ouiOAuthToken = a})
155−-- | Selector specifying which fields to include in a partial response.
156−ouiFields :: Lens' OrgUnitsInsert' (Maybe Text)
158− = lens _ouiFields (\ s a -> s{_ouiFields = a})
160−instance GoogleAuth OrgUnitsInsert' where
161− _AuthKey = ouiKey . _Just
162− _AuthToken = ouiOAuthToken . _Just
164instance GoogleRequest OrgUnitsInsert' where
88instance GoogleRequest OrgUnitsInsert' where
165 type Rs OrgUnitsInsert' = OrgUnit
89 type Rs OrgUnitsInsert' = OrgUnit
166− request = requestWith directoryRequest
167− requestWith rq OrgUnitsInsert'{..}
90+ requestClient OrgUnitsInsert'{..}
168− = go _ouiCustomerId _ouiQuotaUser
91+ = go _ouiCustomerId (Just AltJSON) _ouiPayload
169− (Just _ouiPrettyPrint)
92+ directoryService
177− = clientBuild (Proxy :: Proxy OrgUnitsInsertResource)
94+ = buildClient (Proxy :: Proxy OrgUnitsInsertResource)
gogol-admin-directory/gen/Network/Google/Resource/Directory/OrgUnits/List.hs+7−89
@@ -33,15 +33,9 @@ module Network.Google.Resource.Directory.OrgUnits.List
33 , OrgUnitsList'
33 , OrgUnitsList'
35 -- * Request Lenses
35 -- * Request Lenses
39 , oulOrgUnitPath
36 , oulOrgUnitPath
40 , oulCustomerId
37 , oulCustomerId
47import Network.Google.Directory.Types
41import Network.Google.Directory.Types
@@ -55,85 +49,36 @@ type OrgUnitsListResource =
55 "orgunits" :>
49 "orgunits" :>
56 QueryParam "orgUnitPath" Text :>
50 QueryParam "orgUnitPath" Text :>
57 QueryParam "type" OrgUnitsListType :>
51 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
66-- | Retrieve all Organization Units
54-- | Retrieve all Organization Units
68-- /See:/ 'orgUnitsList'' smart constructor.
56-- /See:/ 'orgUnitsList'' smart constructor.
69data OrgUnitsList' = OrgUnitsList'
57data OrgUnitsList' = OrgUnitsList'
70− { _oulQuotaUser :: !(Maybe Text)
71− , _oulPrettyPrint :: !Bool
72− , _oulUserIP :: !(Maybe Text)
73− , _oulOrgUnitPath :: !Text
58+ { _oulOrgUnitPath :: !Text
74 , _oulCustomerId :: !Text
59 , _oulCustomerId :: !Text
75− , _oulKey :: !(Maybe AuthKey)
76 , _oulType :: !(Maybe OrgUnitsListType)
60 , _oulType :: !(Maybe OrgUnitsListType)
77− , _oulOAuthToken :: !(Maybe OAuthToken)
78− , _oulFields :: !(Maybe Text)
79 } deriving (Eq,Show,Data,Typeable,Generic)
61 } deriving (Eq,Show,Data,Typeable,Generic)
81-- | Creates a value of 'OrgUnitsList'' with the minimum fields required to make a request.
63-- | Creates a value of 'OrgUnitsList'' with the minimum fields required to make a request.
83-- Use one of the following lenses to modify other fields as desired:
65-- Use one of the following lenses to modify other fields as desired:
91-- * 'oulOrgUnitPath'
67-- * 'oulOrgUnitPath'
93-- * 'oulCustomerId'
69-- * 'oulCustomerId'
97-- * 'oulType'
71-- * 'oulType'
102orgUnitsList'
72orgUnitsList'
103 :: Text -- ^ 'customerId'
73 :: Text -- ^ 'customerId'
104 -> OrgUnitsList'
74 -> OrgUnitsList'
105orgUnitsList' pOulCustomerId_ =
75orgUnitsList' pOulCustomerId_ =
106 OrgUnitsList'
76 OrgUnitsList'
107− { _oulQuotaUser = Nothing
108− , _oulPrettyPrint = True
109− , _oulUserIP = Nothing
110− , _oulOrgUnitPath = ""
77+ { _oulOrgUnitPath = ""
111 , _oulCustomerId = pOulCustomerId_
78 , _oulCustomerId = pOulCustomerId_
113 , _oulType = Nothing
79 , _oulType = Nothing
114− , _oulOAuthToken = Nothing
115− , _oulFields = Nothing
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)
123− = lens _oulQuotaUser (\ s a -> s{_oulQuotaUser = a})
125−-- | Returns response with indentations and line breaks.
126−oulPrettyPrint :: Lens' OrgUnitsList' Bool
128− = lens _oulPrettyPrint
129− (\ s a -> s{_oulPrettyPrint = a})
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)
135− = lens _oulUserIP (\ s a -> s{_oulUserIP = a})
137-- | the URL-encoded organization unit\'s path or its Id
82-- | the URL-encoded organization unit\'s path or its Id
138oulOrgUnitPath :: Lens' OrgUnitsList' Text
83oulOrgUnitPath :: Lens' OrgUnitsList' Text
139oulOrgUnitPath
84oulOrgUnitPath
@@ -146,43 +91,16 @@ oulCustomerId
146 = lens _oulCustomerId
91 = lens _oulCustomerId
147 (\ s a -> s{_oulCustomerId = a})
92 (\ s a -> s{_oulCustomerId = a})
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
152−oulKey :: Lens' OrgUnitsList' (Maybe AuthKey)
153−oulKey = lens _oulKey (\ s a -> s{_oulKey = a})
155-- | Whether to return all sub-organizations or just immediate children
94-- | Whether to return all sub-organizations or just immediate children
156oulType :: Lens' OrgUnitsList' (Maybe OrgUnitsListType)
95oulType :: Lens' OrgUnitsList' (Maybe OrgUnitsListType)
157oulType = lens _oulType (\ s a -> s{_oulType = a})
96oulType = lens _oulType (\ s a -> s{_oulType = a})
159−-- | OAuth 2.0 token for the current user.
160−oulOAuthToken :: Lens' OrgUnitsList' (Maybe OAuthToken)
162− = lens _oulOAuthToken
163− (\ s a -> s{_oulOAuthToken = a})
165−-- | Selector specifying which fields to include in a partial response.
166−oulFields :: Lens' OrgUnitsList' (Maybe Text)
168− = lens _oulFields (\ s a -> s{_oulFields = a})
170−instance GoogleAuth OrgUnitsList' where
171− _AuthKey = oulKey . _Just
172− _AuthToken = oulOAuthToken . _Just
174instance GoogleRequest OrgUnitsList' where
98instance GoogleRequest OrgUnitsList' where
175 type Rs OrgUnitsList' = OrgUnits
99 type Rs OrgUnitsList' = OrgUnits
176− request = requestWith directoryRequest
177− requestWith rq OrgUnitsList'{..}
100+ requestClient OrgUnitsList'{..}
178 = go _oulCustomerId (Just _oulOrgUnitPath) _oulType
101 = go _oulCustomerId (Just _oulOrgUnitPath) _oulType
180− (Just _oulPrettyPrint)
185 (Just AltJSON)
102 (Just AltJSON)
187− = clientBuild (Proxy :: Proxy OrgUnitsListResource)
105+ = buildClient (Proxy :: Proxy OrgUnitsListResource)
gogol-admin-directory/gen/Network/Google/Resource/Directory/OrgUnits/Patch.hs+9−91
@@ -33,15 +33,9 @@ module Network.Google.Resource.Directory.OrgUnits.Patch
33 , OrgUnitsPatch'
33 , OrgUnitsPatch'
35 -- * Request Lenses
35 -- * Request Lenses
39 , oupPayload
36 , oupPayload
40 , oupOrgUnitPath
37 , oupOrgUnitPath
41 , oupCustomerId
38 , oupCustomerId
47import Network.Google.Directory.Types
41import Network.Google.Directory.Types
@@ -54,51 +48,27 @@ type OrgUnitsPatchResource =
54 Capture "customerId" Text :>
48 Capture "customerId" Text :>
55 "orgunits" :>
49 "orgunits" :>
56 Captures "orgUnitPath" Text :>
50 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 :>
51+ QueryParam "alt" AltJSON :>
64− ReqBody '[JSON] OrgUnit :> Patch '[JSON] OrgUnit
52+ ReqBody '[JSON] OrgUnit :> Patch '[JSON] OrgUnit
66-- | Update Organization Unit. This method supports patch semantics.
54-- | Update Organization Unit. This method supports patch semantics.
68-- /See:/ 'orgUnitsPatch'' smart constructor.
56-- /See:/ 'orgUnitsPatch'' smart constructor.
69data OrgUnitsPatch' = OrgUnitsPatch'
57data OrgUnitsPatch' = OrgUnitsPatch'
70− { _oupQuotaUser :: !(Maybe Text)
71− , _oupPrettyPrint :: !Bool
72− , _oupUserIP :: !(Maybe Text)
73− , _oupPayload :: !OrgUnit
58+ { _oupPayload :: !OrgUnit
74 , _oupOrgUnitPath :: ![Text]
59 , _oupOrgUnitPath :: ![Text]
75 , _oupCustomerId :: !Text
60 , _oupCustomerId :: !Text
76− , _oupKey :: !(Maybe AuthKey)
77− , _oupOAuthToken :: !(Maybe OAuthToken)
78− , _oupFields :: !(Maybe Text)
79 } deriving (Eq,Show,Data,Typeable,Generic)
61 } deriving (Eq,Show,Data,Typeable,Generic)
81-- | Creates a value of 'OrgUnitsPatch'' with the minimum fields required to make a request.
63-- | Creates a value of 'OrgUnitsPatch'' with the minimum fields required to make a request.
83-- Use one of the following lenses to modify other fields as desired:
65-- Use one of the following lenses to modify other fields as desired:
91-- * 'oupPayload'
67-- * 'oupPayload'
93-- * 'oupOrgUnitPath'
69-- * 'oupOrgUnitPath'
95-- * 'oupCustomerId'
71-- * 'oupCustomerId'
102orgUnitsPatch'
72orgUnitsPatch'
103 :: OrgUnit -- ^ 'payload'
73 :: OrgUnit -- ^ 'payload'
104 -> [Text] -- ^ 'orgUnitPath'
74 -> [Text] -- ^ 'orgUnitPath'
@@ -106,36 +76,11 @@ orgUnitsPatch'
106 -> OrgUnitsPatch'
76 -> OrgUnitsPatch'
107orgUnitsPatch' pOupPayload_ pOupOrgUnitPath_ pOupCustomerId_ =
77orgUnitsPatch' pOupPayload_ pOupOrgUnitPath_ pOupCustomerId_ =
108 OrgUnitsPatch'
78 OrgUnitsPatch'
109− { _oupQuotaUser = Nothing
110− , _oupPrettyPrint = True
111− , _oupUserIP = Nothing
112− , _oupPayload = pOupPayload_
79+ { _oupPayload = pOupPayload_
113 , _oupOrgUnitPath = pOupOrgUnitPath_
80 , _oupOrgUnitPath = pOupOrgUnitPath_
114 , _oupCustomerId = pOupCustomerId_
81 , _oupCustomerId = pOupCustomerId_
116− , _oupOAuthToken = Nothing
117− , _oupFields = Nothing
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)
125− = lens _oupQuotaUser (\ s a -> s{_oupQuotaUser = a})
127−-- | Returns response with indentations and line breaks.
128−oupPrettyPrint :: Lens' OrgUnitsPatch' Bool
130− = lens _oupPrettyPrint
131− (\ s a -> s{_oupPrettyPrint = a})
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)
137− = lens _oupUserIP (\ s a -> s{_oupUserIP = a})
139-- | Multipart request metadata.
84-- | Multipart request metadata.
140oupPayload :: Lens' OrgUnitsPatch' OrgUnit
85oupPayload :: Lens' OrgUnitsPatch' OrgUnit
141oupPayload
86oupPayload
@@ -154,39 +99,12 @@ oupCustomerId
154 = lens _oupCustomerId
99 = lens _oupCustomerId
155 (\ s a -> s{_oupCustomerId = a})
100 (\ s a -> s{_oupCustomerId = a})
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
160−oupKey :: Lens' OrgUnitsPatch' (Maybe AuthKey)
161−oupKey = lens _oupKey (\ s a -> s{_oupKey = a})
163−-- | OAuth 2.0 token for the current user.
164−oupOAuthToken :: Lens' OrgUnitsPatch' (Maybe OAuthToken)
166− = lens _oupOAuthToken
167− (\ s a -> s{_oupOAuthToken = a})
169−-- | Selector specifying which fields to include in a partial response.
170−oupFields :: Lens' OrgUnitsPatch' (Maybe Text)
172− = lens _oupFields (\ s a -> s{_oupFields = a})
174−instance GoogleAuth OrgUnitsPatch' where
175− _AuthKey = oupKey . _Just
176− _AuthToken = oupOAuthToken . _Just
178instance GoogleRequest OrgUnitsPatch' where
102instance GoogleRequest OrgUnitsPatch' where
179 type Rs OrgUnitsPatch' = OrgUnit
103 type Rs OrgUnitsPatch' = OrgUnit
180− request = requestWith directoryRequest
181− requestWith rq OrgUnitsPatch'{..}
104+ requestClient OrgUnitsPatch'{..}
182− = go _oupCustomerId _oupOrgUnitPath _oupQuotaUser
105+ = go _oupCustomerId _oupOrgUnitPath (Just AltJSON)
183− (Just _oupPrettyPrint)
189 _oupPayload
106 _oupPayload
191− = clientBuild (Proxy :: Proxy OrgUnitsPatchResource)
109+ = buildClient (Proxy :: Proxy OrgUnitsPatchResource)
gogol-admin-directory/gen/Network/Google/Resource/Directory/OrgUnits/Update.hs+9−91
@@ -33,15 +33,9 @@ module Network.Google.Resource.Directory.OrgUnits.Update
33 , OrgUnitsUpdate'
33 , OrgUnitsUpdate'
35 -- * Request Lenses
35 -- * Request Lenses
39 , ouuPayload
36 , ouuPayload
40 , ouuOrgUnitPath
37 , ouuOrgUnitPath
41 , ouuCustomerId
38 , ouuCustomerId
47import Network.Google.Directory.Types
41import Network.Google.Directory.Types
@@ -54,51 +48,27 @@ type OrgUnitsUpdateResource =
54 Capture "customerId" Text :>
48 Capture "customerId" Text :>
55 "orgunits" :>
49 "orgunits" :>
56 Captures "orgUnitPath" Text :>
50 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 :>
51+ QueryParam "alt" AltJSON :>
64− ReqBody '[JSON] OrgUnit :> Put '[JSON] OrgUnit
52+ ReqBody '[JSON] OrgUnit :> Put '[JSON] OrgUnit
66-- | Update Organization Unit
54-- | Update Organization Unit
68-- /See:/ 'orgUnitsUpdate'' smart constructor.
56-- /See:/ 'orgUnitsUpdate'' smart constructor.
69data OrgUnitsUpdate' = OrgUnitsUpdate'
57data OrgUnitsUpdate' = OrgUnitsUpdate'
70− { _ouuQuotaUser :: !(Maybe Text)
71− , _ouuPrettyPrint :: !Bool
72− , _ouuUserIP :: !(Maybe Text)
73− , _ouuPayload :: !OrgUnit
58+ { _ouuPayload :: !OrgUnit
74 , _ouuOrgUnitPath :: ![Text]
59 , _ouuOrgUnitPath :: ![Text]
75 , _ouuCustomerId :: !Text
60 , _ouuCustomerId :: !Text
76− , _ouuKey :: !(Maybe AuthKey)
77− , _ouuOAuthToken :: !(Maybe OAuthToken)
78− , _ouuFields :: !(Maybe Text)
79 } deriving (Eq,Show,Data,Typeable,Generic)
61 } deriving (Eq,Show,Data,Typeable,Generic)
81-- | Creates a value of 'OrgUnitsUpdate'' with the minimum fields required to make a request.
63-- | Creates a value of 'OrgUnitsUpdate'' with the minimum fields required to make a request.
83-- Use one of the following lenses to modify other fields as desired:
65-- Use one of the following lenses to modify other fields as desired:
91-- * 'ouuPayload'
67-- * 'ouuPayload'
93-- * 'ouuOrgUnitPath'
69-- * 'ouuOrgUnitPath'
95-- * 'ouuCustomerId'
71-- * 'ouuCustomerId'
102orgUnitsUpdate'
72orgUnitsUpdate'
103 :: OrgUnit -- ^ 'payload'
73 :: OrgUnit -- ^ 'payload'
104 -> [Text] -- ^ 'orgUnitPath'
74 -> [Text] -- ^ 'orgUnitPath'
@@ -106,36 +76,11 @@ orgUnitsUpdate'
106 -> OrgUnitsUpdate'
76 -> OrgUnitsUpdate'
107orgUnitsUpdate' pOuuPayload_ pOuuOrgUnitPath_ pOuuCustomerId_ =
77orgUnitsUpdate' pOuuPayload_ pOuuOrgUnitPath_ pOuuCustomerId_ =
108 OrgUnitsUpdate'
78 OrgUnitsUpdate'
109− { _ouuQuotaUser = Nothing
110− , _ouuPrettyPrint = True
111− , _ouuUserIP = Nothing
112− , _ouuPayload = pOuuPayload_
79+ { _ouuPayload = pOuuPayload_
113 , _ouuOrgUnitPath = pOuuOrgUnitPath_
80 , _ouuOrgUnitPath = pOuuOrgUnitPath_
114 , _ouuCustomerId = pOuuCustomerId_
81 , _ouuCustomerId = pOuuCustomerId_
116− , _ouuOAuthToken = Nothing
117− , _ouuFields = Nothing
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)
125− = lens _ouuQuotaUser (\ s a -> s{_ouuQuotaUser = a})
127−-- | Returns response with indentations and line breaks.
128−ouuPrettyPrint :: Lens' OrgUnitsUpdate' Bool
130− = lens _ouuPrettyPrint
131− (\ s a -> s{_ouuPrettyPrint = a})
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)
137− = lens _ouuUserIP (\ s a -> s{_ouuUserIP = a})
139-- | Multipart request metadata.
84-- | Multipart request metadata.
140ouuPayload :: Lens' OrgUnitsUpdate' OrgUnit
85ouuPayload :: Lens' OrgUnitsUpdate' OrgUnit
141ouuPayload
86ouuPayload
@@ -154,39 +99,12 @@ ouuCustomerId
154 = lens _ouuCustomerId
99 = lens _ouuCustomerId
155 (\ s a -> s{_ouuCustomerId = a})
100 (\ s a -> s{_ouuCustomerId = a})
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
160−ouuKey :: Lens' OrgUnitsUpdate' (Maybe AuthKey)
161−ouuKey = lens _ouuKey (\ s a -> s{_ouuKey = a})
163−-- | OAuth 2.0 token for the current user.
164−ouuOAuthToken :: Lens' OrgUnitsUpdate' (Maybe OAuthToken)
166− = lens _ouuOAuthToken
167− (\ s a -> s{_ouuOAuthToken = a})
169−-- | Selector specifying which fields to include in a partial response.
170−ouuFields :: Lens' OrgUnitsUpdate' (Maybe Text)
172− = lens _ouuFields (\ s a -> s{_ouuFields = a})
174−instance GoogleAuth OrgUnitsUpdate' where
175− _AuthKey = ouuKey . _Just
176− _AuthToken = ouuOAuthToken . _Just
178instance GoogleRequest OrgUnitsUpdate' where
102instance GoogleRequest OrgUnitsUpdate' where
179 type Rs OrgUnitsUpdate' = OrgUnit
103 type Rs OrgUnitsUpdate' = OrgUnit
180− request = requestWith directoryRequest
181− requestWith rq OrgUnitsUpdate'{..}
104+ requestClient OrgUnitsUpdate'{..}
182− = go _ouuCustomerId _ouuOrgUnitPath _ouuQuotaUser
105+ = go _ouuCustomerId _ouuOrgUnitPath (Just AltJSON)
183− (Just _ouuPrettyPrint)
189 _ouuPayload
106 _ouuPayload
191− = clientBuild (Proxy :: Proxy OrgUnitsUpdateResource)
109+ = buildClient (Proxy :: Proxy OrgUnitsUpdateResource)
gogol-admin-directory/gen/Network/Google/Resource/Directory/Schemas/Delete.hs+9−88
@@ -33,14 +33,8 @@ module Network.Google.Resource.Directory.Schemas.Delete
33 , SchemasDelete'
33 , SchemasDelete'
35 -- * Request Lenses
35 -- * Request Lenses
39 , sdCustomerId
36 , sdCustomerId
42 , sdSchemaKey
37 , sdSchemaKey
46import Network.Google.Directory.Types
40import Network.Google.Directory.Types
@@ -53,121 +47,48 @@ type SchemasDeleteResource =
53 Capture "customerId" Text :>
47 Capture "customerId" Text :>
54 "schemas" :>
48 "schemas" :>
55 Capture "schemaKey" Text :>
49 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] ()
64-- | Delete schema
52-- | Delete schema
66-- /See:/ 'schemasDelete'' smart constructor.
54-- /See:/ 'schemasDelete'' smart constructor.
67data SchemasDelete' = SchemasDelete'
55data SchemasDelete' = SchemasDelete'
68− { _sdQuotaUser :: !(Maybe Text)
69− , _sdPrettyPrint :: !Bool
70− , _sdUserIP :: !(Maybe Text)
71− , _sdCustomerId :: !Text
56+ { _sdCustomerId :: !Text
72− , _sdKey :: !(Maybe AuthKey)
73− , _sdOAuthToken :: !(Maybe OAuthToken)
74− , _sdSchemaKey :: !Text
57+ , _sdSchemaKey :: !Text
75− , _sdFields :: !(Maybe Text)
76 } deriving (Eq,Show,Data,Typeable,Generic)
58 } deriving (Eq,Show,Data,Typeable,Generic)
78-- | Creates a value of 'SchemasDelete'' with the minimum fields required to make a request.
60-- | Creates a value of 'SchemasDelete'' with the minimum fields required to make a request.
80-- Use one of the following lenses to modify other fields as desired:
62-- Use one of the following lenses to modify other fields as desired:
88-- * 'sdCustomerId'
64-- * 'sdCustomerId'
94-- * 'sdSchemaKey'
66-- * 'sdSchemaKey'
97schemasDelete'
67schemasDelete'
98 :: Text -- ^ 'customerId'
68 :: Text -- ^ 'customerId'
99 -> Text -- ^ 'schemaKey'
69 -> Text -- ^ 'schemaKey'
100 -> SchemasDelete'
70 -> SchemasDelete'
101schemasDelete' pSdCustomerId_ pSdSchemaKey_ =
71schemasDelete' pSdCustomerId_ pSdSchemaKey_ =
102 SchemasDelete'
72 SchemasDelete'
103− { _sdQuotaUser = Nothing
104− , _sdPrettyPrint = True
105− , _sdUserIP = Nothing
106− , _sdCustomerId = pSdCustomerId_
73+ { _sdCustomerId = pSdCustomerId_
108− , _sdOAuthToken = Nothing
109 , _sdSchemaKey = pSdSchemaKey_
74 , _sdSchemaKey = pSdSchemaKey_
110− , _sdFields = Nothing
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)
118− = lens _sdQuotaUser (\ s a -> s{_sdQuotaUser = a})
120−-- | Returns response with indentations and line breaks.
121−sdPrettyPrint :: Lens' SchemasDelete' Bool
123− = lens _sdPrettyPrint
124− (\ s a -> s{_sdPrettyPrint = a})
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})
131-- | Immutable id of the Google Apps account
77-- | Immutable id of the Google Apps account
132sdCustomerId :: Lens' SchemasDelete' Text
78sdCustomerId :: Lens' SchemasDelete' Text
133sdCustomerId
79sdCustomerId
134 = lens _sdCustomerId (\ s a -> s{_sdCustomerId = a})
80 = lens _sdCustomerId (\ s a -> s{_sdCustomerId = a})
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
139−sdKey :: Lens' SchemasDelete' (Maybe AuthKey)
140−sdKey = lens _sdKey (\ s a -> s{_sdKey = a})
142−-- | OAuth 2.0 token for the current user.
143−sdOAuthToken :: Lens' SchemasDelete' (Maybe OAuthToken)
145− = lens _sdOAuthToken (\ s a -> s{_sdOAuthToken = a})
147-- | Name or immutable Id of the schema
82-- | Name or immutable Id of the schema
148sdSchemaKey :: Lens' SchemasDelete' Text
83sdSchemaKey :: Lens' SchemasDelete' Text
149sdSchemaKey
84sdSchemaKey
150 = lens _sdSchemaKey (\ s a -> s{_sdSchemaKey = a})
85 = lens _sdSchemaKey (\ s a -> s{_sdSchemaKey = a})
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})
156−instance GoogleAuth SchemasDelete' where
157− _AuthKey = sdKey . _Just
158− _AuthToken = sdOAuthToken . _Just
160instance GoogleRequest SchemasDelete' where
87instance GoogleRequest SchemasDelete' where
161 type Rs SchemasDelete' = ()
88 type Rs SchemasDelete' = ()
162− request = requestWith directoryRequest
163− requestWith rq SchemasDelete'{..}
89+ requestClient SchemasDelete'{..}
164− = go _sdCustomerId _sdSchemaKey _sdQuotaUser
90+ = go _sdCustomerId _sdSchemaKey (Just AltJSON)
165− (Just _sdPrettyPrint)
91+ directoryService
172− = clientBuild (Proxy :: Proxy SchemasDeleteResource)
93+ = buildClient (Proxy :: Proxy SchemasDeleteResource)
gogol-admin-directory/gen/Network/Google/Resource/Directory/Schemas/Get.hs+9−87
@@ -33,14 +33,8 @@ module Network.Google.Resource.Directory.Schemas.Get
33 , SchemasGet'
33 , SchemasGet'
35 -- * Request Lenses
35 -- * Request Lenses
39 , sgCustomerId
36 , sgCustomerId
42 , sgSchemaKey
37 , sgSchemaKey
46import Network.Google.Directory.Types
40import Network.Google.Directory.Types
@@ -53,120 +47,48 @@ type SchemasGetResource =
53 Capture "customerId" Text :>
47 Capture "customerId" Text :>
54 "schemas" :>
48 "schemas" :>
55 Capture "schemaKey" Text :>
49 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
64-- | Retrieve schema
52-- | Retrieve schema
66-- /See:/ 'schemasGet'' smart constructor.
54-- /See:/ 'schemasGet'' smart constructor.
67data SchemasGet' = SchemasGet'
55data SchemasGet' = SchemasGet'
68− { _sgQuotaUser :: !(Maybe Text)
69− , _sgPrettyPrint :: !Bool
70− , _sgUserIP :: !(Maybe Text)
71− , _sgCustomerId :: !Text
56+ { _sgCustomerId :: !Text
72− , _sgKey :: !(Maybe AuthKey)
73− , _sgOAuthToken :: !(Maybe OAuthToken)
74− , _sgSchemaKey :: !Text
57+ , _sgSchemaKey :: !Text
75− , _sgFields :: !(Maybe Text)
76 } deriving (Eq,Show,Data,Typeable,Generic)
58 } deriving (Eq,Show,Data,Typeable,Generic)
78-- | Creates a value of 'SchemasGet'' with the minimum fields required to make a request.
60-- | Creates a value of 'SchemasGet'' with the minimum fields required to make a request.
80-- Use one of the following lenses to modify other fields as desired:
62-- Use one of the following lenses to modify other fields as desired:
88-- * 'sgCustomerId'
64-- * 'sgCustomerId'
94-- * 'sgSchemaKey'
66-- * 'sgSchemaKey'
97schemasGet'
67schemasGet'
98 :: Text -- ^ 'customerId'
68 :: Text -- ^ 'customerId'
99 -> Text -- ^ 'schemaKey'
69 -> Text -- ^ 'schemaKey'
100 -> SchemasGet'
70 -> SchemasGet'
101schemasGet' pSgCustomerId_ pSgSchemaKey_ =
71schemasGet' pSgCustomerId_ pSgSchemaKey_ =
102 SchemasGet'
72 SchemasGet'
103− { _sgQuotaUser = Nothing
104− , _sgPrettyPrint = True
105− , _sgUserIP = Nothing
106− , _sgCustomerId = pSgCustomerId_
73+ { _sgCustomerId = pSgCustomerId_
108− , _sgOAuthToken = Nothing
109 , _sgSchemaKey = pSgSchemaKey_
74 , _sgSchemaKey = pSgSchemaKey_
110− , _sgFields = Nothing
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)
118− = lens _sgQuotaUser (\ s a -> s{_sgQuotaUser = a})
120−-- | Returns response with indentations and line breaks.
121−sgPrettyPrint :: Lens' SchemasGet' Bool
123− = lens _sgPrettyPrint
124− (\ s a -> s{_sgPrettyPrint = a})
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})
131-- | Immutable id of the Google Apps account
77-- | Immutable id of the Google Apps account
132sgCustomerId :: Lens' SchemasGet' Text
78sgCustomerId :: Lens' SchemasGet' Text
133sgCustomerId
79sgCustomerId
134 = lens _sgCustomerId (\ s a -> s{_sgCustomerId = a})
80 = lens _sgCustomerId (\ s a -> s{_sgCustomerId = a})
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
139−sgKey :: Lens' SchemasGet' (Maybe AuthKey)
140−sgKey = lens _sgKey (\ s a -> s{_sgKey = a})
142−-- | OAuth 2.0 token for the current user.
143−sgOAuthToken :: Lens' SchemasGet' (Maybe OAuthToken)
145− = lens _sgOAuthToken (\ s a -> s{_sgOAuthToken = a})
147-- | Name or immutable Id of the schema
82-- | Name or immutable Id of the schema
148sgSchemaKey :: Lens' SchemasGet' Text
83sgSchemaKey :: Lens' SchemasGet' Text
149sgSchemaKey
84sgSchemaKey
150 = lens _sgSchemaKey (\ s a -> s{_sgSchemaKey = a})
85 = lens _sgSchemaKey (\ s a -> s{_sgSchemaKey = a})
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})
156−instance GoogleAuth SchemasGet' where
157− _AuthKey = sgKey . _Just
158− _AuthToken = sgOAuthToken . _Just
160instance GoogleRequest SchemasGet' where
87instance GoogleRequest SchemasGet' where
161 type Rs SchemasGet' = Schema
88 type Rs SchemasGet' = Schema
162− request = requestWith directoryRequest
163− requestWith rq SchemasGet'{..}
89+ requestClient SchemasGet'{..}
164− = go _sgCustomerId _sgSchemaKey _sgQuotaUser
90+ = go _sgCustomerId _sgSchemaKey (Just AltJSON)
165− (Just _sgPrettyPrint)
91+ directoryService
172− = clientBuild (Proxy :: Proxy SchemasGetResource) rq
93+ = buildClient (Proxy :: Proxy SchemasGetResource)
gogol-admin-directory/gen/Network/Google/Resource/Directory/Schemas/Insert.hs+10−89
@@ -33,14 +33,8 @@ module Network.Google.Resource.Directory.Schemas.Insert
33 , SchemasInsert'
33 , SchemasInsert'
35 -- * Request Lenses
35 -- * Request Lenses
39 , siPayload
36 , siPayload
40 , siCustomerId
37 , siCustomerId
46import Network.Google.Directory.Types
40import Network.Google.Directory.Types
@@ -52,82 +46,34 @@ type SchemasInsertResource =
52 "customer" :>
46 "customer" :>
53 Capture "customerId" Text :>
47 Capture "customerId" Text :>
54 "schemas" :>
48 "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 :>
49+ QueryParam "alt" AltJSON :>
62− ReqBody '[JSON] Schema :> Post '[JSON] Schema
50+ ReqBody '[JSON] Schema :> Post '[JSON] Schema
64-- | Create schema.
52-- | Create schema.
66-- /See:/ 'schemasInsert'' smart constructor.
54-- /See:/ 'schemasInsert'' smart constructor.
67data SchemasInsert' = SchemasInsert'
55data SchemasInsert' = SchemasInsert'
68− { _siQuotaUser :: !(Maybe Text)
69− , _siPrettyPrint :: !Bool
70− , _siUserIP :: !(Maybe Text)
71− , _siPayload :: !Schema
56+ { _siPayload :: !Schema
72− , _siCustomerId :: !Text
57+ , _siCustomerId :: !Text
73− , _siKey :: !(Maybe AuthKey)
74− , _siOAuthToken :: !(Maybe OAuthToken)
75− , _siFields :: !(Maybe Text)
76 } deriving (Eq,Show,Data,Typeable,Generic)
58 } deriving (Eq,Show,Data,Typeable,Generic)
78-- | Creates a value of 'SchemasInsert'' with the minimum fields required to make a request.
60-- | Creates a value of 'SchemasInsert'' with the minimum fields required to make a request.
80-- Use one of the following lenses to modify other fields as desired:
62-- Use one of the following lenses to modify other fields as desired:
88-- * 'siPayload'
64-- * 'siPayload'
90-- * 'siCustomerId'
66-- * 'siCustomerId'
97schemasInsert'
67schemasInsert'
98 :: Schema -- ^ 'payload'
68 :: Schema -- ^ 'payload'
99 -> Text -- ^ 'customerId'
69 -> Text -- ^ 'customerId'
100 -> SchemasInsert'
70 -> SchemasInsert'
101schemasInsert' pSiPayload_ pSiCustomerId_ =
71schemasInsert' pSiPayload_ pSiCustomerId_ =
102 SchemasInsert'
72 SchemasInsert'
103− { _siQuotaUser = Nothing
104− , _siPrettyPrint = True
105− , _siUserIP = Nothing
106− , _siPayload = pSiPayload_
73+ { _siPayload = pSiPayload_
107 , _siCustomerId = pSiCustomerId_
74 , _siCustomerId = pSiCustomerId_
109− , _siOAuthToken = Nothing
110− , _siFields = Nothing
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)
118− = lens _siQuotaUser (\ s a -> s{_siQuotaUser = a})
120−-- | Returns response with indentations and line breaks.
121−siPrettyPrint :: Lens' SchemasInsert' Bool
123− = lens _siPrettyPrint
124− (\ s a -> s{_siPrettyPrint = a})
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})
131-- | Multipart request metadata.
77-- | Multipart request metadata.
132siPayload :: Lens' SchemasInsert' Schema
78siPayload :: Lens' SchemasInsert' Schema
@@ -138,36 +84,11 @@ siCustomerId :: Lens' SchemasInsert' Text
138siCustomerId
84siCustomerId
139 = lens _siCustomerId (\ s a -> s{_siCustomerId = a})
85 = lens _siCustomerId (\ s a -> s{_siCustomerId = a})
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
144−siKey :: Lens' SchemasInsert' (Maybe AuthKey)
145−siKey = lens _siKey (\ s a -> s{_siKey = a})
147−-- | OAuth 2.0 token for the current user.
148−siOAuthToken :: Lens' SchemasInsert' (Maybe OAuthToken)
150− = lens _siOAuthToken (\ s a -> s{_siOAuthToken = a})
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})
156−instance GoogleAuth SchemasInsert' where
157− _AuthKey = siKey . _Just
158− _AuthToken = siOAuthToken . _Just
160instance GoogleRequest SchemasInsert' where
87instance GoogleRequest SchemasInsert' where
161 type Rs SchemasInsert' = Schema
88 type Rs SchemasInsert' = Schema
162− request = requestWith directoryRequest
163− requestWith rq SchemasInsert'{..}
89+ requestClient SchemasInsert'{..}
164− = go _siCustomerId _siQuotaUser (Just _siPrettyPrint)
169− (Just AltJSON)
90+ = go _siCustomerId (Just AltJSON) _siPayload
170− _siPayload
91+ directoryService
172− = clientBuild (Proxy :: Proxy SchemasInsertResource)
93+ = buildClient (Proxy :: Proxy SchemasInsertResource)
gogol-admin-directory/gen/Network/Google/Resource/Directory/Schemas/List.hs+8−86
@@ -33,13 +33,7 @@ module Network.Google.Resource.Directory.Schemas.List
33 , SchemasList'
33 , SchemasList'
35 -- * Request Lenses
35 -- * Request Lenses
39 , slCustomerId
36 , slCustomerId
45import Network.Google.Directory.Types
39import Network.Google.Directory.Types
@@ -51,109 +45,37 @@ type SchemasListResource =
51 "customer" :>
45 "customer" :>
52 Capture "customerId" Text :>
46 Capture "customerId" Text :>
53 "schemas" :>
47 "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
62-- | Retrieve all schemas for a customer
50-- | Retrieve all schemas for a customer
64-- /See:/ 'schemasList'' smart constructor.
52-- /See:/ 'schemasList'' smart constructor.
65−data SchemasList' = SchemasList'
53+newtype SchemasList' = SchemasList'
66− { _slQuotaUser :: !(Maybe Text)
67− , _slPrettyPrint :: !Bool
68− , _slUserIP :: !(Maybe Text)
69− , _slCustomerId :: !Text
54+ { _slCustomerId :: Text
70− , _slKey :: !(Maybe AuthKey)
71− , _slOAuthToken :: !(Maybe OAuthToken)
72− , _slFields :: !(Maybe Text)
73 } deriving (Eq,Show,Data,Typeable,Generic)
55 } deriving (Eq,Show,Data,Typeable,Generic)
75-- | Creates a value of 'SchemasList'' with the minimum fields required to make a request.
57-- | Creates a value of 'SchemasList'' with the minimum fields required to make a request.
77-- Use one of the following lenses to modify other fields as desired:
59-- Use one of the following lenses to modify other fields as desired:
85-- * 'slCustomerId'
61-- * 'slCustomerId'
92schemasList'
62schemasList'
93 :: Text -- ^ 'customerId'
63 :: Text -- ^ 'customerId'
94 -> SchemasList'
64 -> SchemasList'
95schemasList' pSlCustomerId_ =
65schemasList' pSlCustomerId_ =
96 SchemasList'
66 SchemasList'
97− { _slQuotaUser = Nothing
98− , _slPrettyPrint = True
99− , _slUserIP = Nothing
100− , _slCustomerId = pSlCustomerId_
67+ { _slCustomerId = pSlCustomerId_
102− , _slOAuthToken = Nothing
103− , _slFields = Nothing
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)
111− = lens _slQuotaUser (\ s a -> s{_slQuotaUser = a})
113−-- | Returns response with indentations and line breaks.
114−slPrettyPrint :: Lens' SchemasList' Bool
116− = lens _slPrettyPrint
117− (\ s a -> s{_slPrettyPrint = a})
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})
124-- | Immutable id of the Google Apps account
70-- | Immutable id of the Google Apps account
125slCustomerId :: Lens' SchemasList' Text
71slCustomerId :: Lens' SchemasList' Text
126slCustomerId
72slCustomerId
127 = lens _slCustomerId (\ s a -> s{_slCustomerId = a})
73 = lens _slCustomerId (\ s a -> s{_slCustomerId = a})
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
132−slKey :: Lens' SchemasList' (Maybe AuthKey)
133−slKey = lens _slKey (\ s a -> s{_slKey = a})
135−-- | OAuth 2.0 token for the current user.
136−slOAuthToken :: Lens' SchemasList' (Maybe OAuthToken)
138− = lens _slOAuthToken (\ s a -> s{_slOAuthToken = a})
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})
144−instance GoogleAuth SchemasList' where
145− _AuthKey = slKey . _Just
146− _AuthToken = slOAuthToken . _Just
148instance GoogleRequest SchemasList' where
75instance GoogleRequest SchemasList' where
149 type Rs SchemasList' = Schemas
76 type Rs SchemasList' = Schemas
150− request = requestWith directoryRequest
151− requestWith rq SchemasList'{..}
77+ requestClient SchemasList'{..}
152− = go _slCustomerId _slQuotaUser (Just _slPrettyPrint)
157− (Just AltJSON)
78+ = go _slCustomerId (Just AltJSON) directoryService
159− = clientBuild (Proxy :: Proxy SchemasListResource) rq
80+ = buildClient (Proxy :: Proxy SchemasListResource)
gogol-admin-directory/gen/Network/Google/Resource/Directory/Schemas/Patch.hs+11−90
@@ -33,15 +33,9 @@ module Network.Google.Resource.Directory.Schemas.Patch
33 , SchemasPatch'
33 , SchemasPatch'
35 -- * Request Lenses
35 -- * Request Lenses
39 , spPayload
36 , spPayload
40 , spCustomerId
37 , spCustomerId
43 , spSchemaKey
38 , spSchemaKey
47import Network.Google.Directory.Types
41import Network.Google.Directory.Types
@@ -54,51 +48,27 @@ type SchemasPatchResource =
54 Capture "customerId" Text :>
48 Capture "customerId" Text :>
55 "schemas" :>
49 "schemas" :>
56 Capture "schemaKey" Text :>
50 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 :>
51+ QueryParam "alt" AltJSON :>
64− ReqBody '[JSON] Schema :> Patch '[JSON] Schema
52+ ReqBody '[JSON] Schema :> Patch '[JSON] Schema
66-- | Update schema. This method supports patch semantics.
54-- | Update schema. This method supports patch semantics.
68-- /See:/ 'schemasPatch'' smart constructor.
56-- /See:/ 'schemasPatch'' smart constructor.
69data SchemasPatch' = SchemasPatch'
57data SchemasPatch' = SchemasPatch'
70− { _spQuotaUser :: !(Maybe Text)
71− , _spPrettyPrint :: !Bool
72− , _spUserIP :: !(Maybe Text)
73− , _spPayload :: !Schema
58+ { _spPayload :: !Schema
74− , _spCustomerId :: !Text
59+ , _spCustomerId :: !Text
75− , _spKey :: !(Maybe AuthKey)
76− , _spOAuthToken :: !(Maybe OAuthToken)
77− , _spSchemaKey :: !Text
60+ , _spSchemaKey :: !Text
78− , _spFields :: !(Maybe Text)
79 } deriving (Eq,Show,Data,Typeable,Generic)
61 } deriving (Eq,Show,Data,Typeable,Generic)
81-- | Creates a value of 'SchemasPatch'' with the minimum fields required to make a request.
63-- | Creates a value of 'SchemasPatch'' with the minimum fields required to make a request.
83-- Use one of the following lenses to modify other fields as desired:
65-- Use one of the following lenses to modify other fields as desired:
91-- * 'spPayload'
67-- * 'spPayload'
93-- * 'spCustomerId'
69-- * 'spCustomerId'
99-- * 'spSchemaKey'
71-- * 'spSchemaKey'
102schemasPatch'
72schemasPatch'
103 :: Schema -- ^ 'payload'
73 :: Schema -- ^ 'payload'
104 -> Text -- ^ 'customerId'
74 -> Text -- ^ 'customerId'
@@ -106,35 +76,11 @@ schemasPatch'
106 -> SchemasPatch'
76 -> SchemasPatch'
107schemasPatch' pSpPayload_ pSpCustomerId_ pSpSchemaKey_ =
77schemasPatch' pSpPayload_ pSpCustomerId_ pSpSchemaKey_ =
108 SchemasPatch'
78 SchemasPatch'
109− { _spQuotaUser = Nothing
110− , _spPrettyPrint = True
111− , _spUserIP = Nothing
112− , _spPayload = pSpPayload_
79+ { _spPayload = pSpPayload_
113 , _spCustomerId = pSpCustomerId_
80 , _spCustomerId = pSpCustomerId_
115− , _spOAuthToken = Nothing
116 , _spSchemaKey = pSpSchemaKey_
81 , _spSchemaKey = pSpSchemaKey_
117− , _spFields = Nothing
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)
125− = lens _spQuotaUser (\ s a -> s{_spQuotaUser = a})
127−-- | Returns response with indentations and line breaks.
128−spPrettyPrint :: Lens' SchemasPatch' Bool
130− = lens _spPrettyPrint
131− (\ s a -> s{_spPrettyPrint = a})
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})
138-- | Multipart request metadata.
84-- | Multipart request metadata.
139spPayload :: Lens' SchemasPatch' Schema
85spPayload :: Lens' SchemasPatch' Schema
@@ -145,42 +91,17 @@ spCustomerId :: Lens' SchemasPatch' Text
145spCustomerId
91spCustomerId
146 = lens _spCustomerId (\ s a -> s{_spCustomerId = a})
92 = lens _spCustomerId (\ s a -> s{_spCustomerId = a})
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
151−spKey :: Lens' SchemasPatch' (Maybe AuthKey)
152−spKey = lens _spKey (\ s a -> s{_spKey = a})
154−-- | OAuth 2.0 token for the current user.
155−spOAuthToken :: Lens' SchemasPatch' (Maybe OAuthToken)
157− = lens _spOAuthToken (\ s a -> s{_spOAuthToken = a})
159-- | Name or immutable Id of the schema.
94-- | Name or immutable Id of the schema.
160spSchemaKey :: Lens' SchemasPatch' Text
95spSchemaKey :: Lens' SchemasPatch' Text
161spSchemaKey
96spSchemaKey
162 = lens _spSchemaKey (\ s a -> s{_spSchemaKey = a})
97 = lens _spSchemaKey (\ s a -> s{_spSchemaKey = a})
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})
168−instance GoogleAuth SchemasPatch' where
169− _AuthKey = spKey . _Just
170− _AuthToken = spOAuthToken . _Just
172instance GoogleRequest SchemasPatch' where
99instance GoogleRequest SchemasPatch' where
173 type Rs SchemasPatch' = Schema
100 type Rs SchemasPatch' = Schema
174− request = requestWith directoryRequest
175− requestWith rq SchemasPatch'{..}
101+ requestClient SchemasPatch'{..}
176− = go _spCustomerId _spSchemaKey _spQuotaUser
102+ = go _spCustomerId _spSchemaKey (Just AltJSON)
177− (Just _spPrettyPrint)
183 _spPayload
103 _spPayload
185− = clientBuild (Proxy :: Proxy SchemasPatchResource)
106+ = buildClient (Proxy :: Proxy SchemasPatchResource)
gogol-admin-directory/gen/Network/Google/Resource/Directory/Schemas/Update.hs+11−90
@@ -33,15 +33,9 @@ module Network.Google.Resource.Directory.Schemas.Update
33 , SchemasUpdate'
33 , SchemasUpdate'
35 -- * Request Lenses
35 -- * Request Lenses
39 , suPayload
36 , suPayload
40 , suCustomerId
37 , suCustomerId
43 , suSchemaKey
38 , suSchemaKey
47import Network.Google.Directory.Types
41import Network.Google.Directory.Types
@@ -54,51 +48,27 @@ type SchemasUpdateResource =
54 Capture "customerId" Text :>
48 Capture "customerId" Text :>
55 "schemas" :>
49 "schemas" :>
56 Capture "schemaKey" Text :>
50 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 :>
51+ QueryParam "alt" AltJSON :>
64− ReqBody '[JSON] Schema :> Put '[JSON] Schema
52+ ReqBody '[JSON] Schema :> Put '[JSON] Schema
66-- | Update schema
54-- | Update schema
68-- /See:/ 'schemasUpdate'' smart constructor.
56-- /See:/ 'schemasUpdate'' smart constructor.
69data SchemasUpdate' = SchemasUpdate'
57data SchemasUpdate' = SchemasUpdate'
70− { _suQuotaUser :: !(Maybe Text)
71− , _suPrettyPrint :: !Bool
72− , _suUserIP :: !(Maybe Text)
73− , _suPayload :: !Schema
58+ { _suPayload :: !Schema
74− , _suCustomerId :: !Text
59+ , _suCustomerId :: !Text
75− , _suKey :: !(Maybe AuthKey)
76− , _suOAuthToken :: !(Maybe OAuthToken)
77− , _suSchemaKey :: !Text
60+ , _suSchemaKey :: !Text
78− , _suFields :: !(Maybe Text)
79 } deriving (Eq,Show,Data,Typeable,Generic)
61 } deriving (Eq,Show,Data,Typeable,Generic)
81-- | Creates a value of 'SchemasUpdate'' with the minimum fields required to make a request.
63-- | Creates a value of 'SchemasUpdate'' with the minimum fields required to make a request.
83-- Use one of the following lenses to modify other fields as desired:
65-- Use one of the following lenses to modify other fields as desired:
91-- * 'suPayload'
67-- * 'suPayload'
93-- * 'suCustomerId'
69-- * 'suCustomerId'
99-- * 'suSchemaKey'
71-- * 'suSchemaKey'
102schemasUpdate'
72schemasUpdate'
103 :: Schema -- ^ 'payload'
73 :: Schema -- ^ 'payload'
104 -> Text -- ^ 'customerId'
74 -> Text -- ^ 'customerId'
@@ -106,35 +76,11 @@ schemasUpdate'
106 -> SchemasUpdate'
76 -> SchemasUpdate'
107schemasUpdate' pSuPayload_ pSuCustomerId_ pSuSchemaKey_ =
77schemasUpdate' pSuPayload_ pSuCustomerId_ pSuSchemaKey_ =
108 SchemasUpdate'
78 SchemasUpdate'
109− { _suQuotaUser = Nothing
110− , _suPrettyPrint = True
111− , _suUserIP = Nothing
112− , _suPayload = pSuPayload_
79+ { _suPayload = pSuPayload_
113 , _suCustomerId = pSuCustomerId_
80 , _suCustomerId = pSuCustomerId_
115− , _suOAuthToken = Nothing
116 , _suSchemaKey = pSuSchemaKey_
81 , _suSchemaKey = pSuSchemaKey_
117− , _suFields = Nothing
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)
125− = lens _suQuotaUser (\ s a -> s{_suQuotaUser = a})
127−-- | Returns response with indentations and line breaks.
128−suPrettyPrint :: Lens' SchemasUpdate' Bool
130− = lens _suPrettyPrint
131− (\ s a -> s{_suPrettyPrint = a})
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})
138-- | Multipart request metadata.
84-- | Multipart request metadata.
139suPayload :: Lens' SchemasUpdate' Schema
85suPayload :: Lens' SchemasUpdate' Schema
@@ -145,42 +91,17 @@ suCustomerId :: Lens' SchemasUpdate' Text
145suCustomerId
91suCustomerId
146 = lens _suCustomerId (\ s a -> s{_suCustomerId = a})
92 = lens _suCustomerId (\ s a -> s{_suCustomerId = a})
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
151−suKey :: Lens' SchemasUpdate' (Maybe AuthKey)
152−suKey = lens _suKey (\ s a -> s{_suKey = a})
154−-- | OAuth 2.0 token for the current user.
155−suOAuthToken :: Lens' SchemasUpdate' (Maybe OAuthToken)
157− = lens _suOAuthToken (\ s a -> s{_suOAuthToken = a})
159-- | Name or immutable Id of the schema.
94-- | Name or immutable Id of the schema.
160suSchemaKey :: Lens' SchemasUpdate' Text
95suSchemaKey :: Lens' SchemasUpdate' Text
161suSchemaKey
96suSchemaKey
162 = lens _suSchemaKey (\ s a -> s{_suSchemaKey = a})
97 = lens _suSchemaKey (\ s a -> s{_suSchemaKey = a})
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})
168−instance GoogleAuth SchemasUpdate' where
169− _AuthKey = suKey . _Just
170− _AuthToken = suOAuthToken . _Just
172instance GoogleRequest SchemasUpdate' where
99instance GoogleRequest SchemasUpdate' where
173 type Rs SchemasUpdate' = Schema
100 type Rs SchemasUpdate' = Schema
174− request = requestWith directoryRequest
175− requestWith rq SchemasUpdate'{..}
101+ requestClient SchemasUpdate'{..}
176− = go _suCustomerId _suSchemaKey _suQuotaUser
102+ = go _suCustomerId _suSchemaKey (Just AltJSON)
177− (Just _suPrettyPrint)
183 _suPayload
103 _suPayload
185− = clientBuild (Proxy :: Proxy SchemasUpdateResource)
106+ = buildClient (Proxy :: Proxy SchemasUpdateResource)
gogol-admin-directory/gen/Network/Google/Resource/Directory/Tokens/Delete.hs+8−87
@@ -34,13 +34,7 @@ module Network.Google.Resource.Directory.Tokens.Delete
35 -- * Request Lenses
35 -- * Request Lenses
36 , tdClientId
36 , tdClientId
42 , tdUserKey
37 , tdUserKey
46import Network.Google.Directory.Types
40import Network.Google.Directory.Types
@@ -53,26 +47,14 @@ type TokensDeleteResource =
53 Capture "userKey" Text :>
47 Capture "userKey" Text :>
54 "tokens" :>
48 "tokens" :>
55 Capture "clientId" Text :>
49 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] ()
64-- | Delete all access tokens issued by a user for an application.
52-- | Delete all access tokens issued by a user for an application.
66-- /See:/ 'tokensDelete'' smart constructor.
54-- /See:/ 'tokensDelete'' smart constructor.
67data TokensDelete' = TokensDelete'
55data TokensDelete' = TokensDelete'
68− { _tdClientId :: !Text
56+ { _tdClientId :: !Text
69− , _tdQuotaUser :: !(Maybe Text)
57+ , _tdUserKey :: !Text
70− , _tdPrettyPrint :: !Bool
71− , _tdUserIP :: !(Maybe Text)
72− , _tdKey :: !(Maybe AuthKey)
73− , _tdOAuthToken :: !(Maybe OAuthToken)
74− , _tdUserKey :: !Text
75− , _tdFields :: !(Maybe Text)
76 } deriving (Eq,Show,Data,Typeable,Generic)
58 } deriving (Eq,Show,Data,Typeable,Generic)
78-- | Creates a value of 'TokensDelete'' with the minimum fields required to make a request.
60-- | Creates a value of 'TokensDelete'' with the minimum fields required to make a request.
@@ -81,19 +63,7 @@ data TokensDelete' = TokensDelete'
82-- * 'tdClientId'
64-- * 'tdClientId'
94-- * 'tdUserKey'
66-- * 'tdUserKey'
97tokensDelete'
67tokensDelete'
98 :: Text -- ^ 'clientId'
68 :: Text -- ^ 'clientId'
99 -> Text -- ^ 'userKey'
69 -> Text -- ^ 'userKey'
@@ -101,13 +71,7 @@ tokensDelete'
101tokensDelete' pTdClientId_ pTdUserKey_ =
71tokensDelete' pTdClientId_ pTdUserKey_ =
102 TokensDelete'
72 TokensDelete'
103 { _tdClientId = pTdClientId_
73 { _tdClientId = pTdClientId_
104− , _tdQuotaUser = Nothing
105− , _tdPrettyPrint = True
106− , _tdUserIP = Nothing
108− , _tdOAuthToken = Nothing
109 , _tdUserKey = pTdUserKey_
74 , _tdUserKey = pTdUserKey_
110− , _tdFields = Nothing
113-- | The Client ID of the application the token is issued to.
77-- | The Client ID of the application the token is issued to.
@@ -115,60 +79,17 @@ tdClientId :: Lens' TokensDelete' Text
115tdClientId
79tdClientId
116 = lens _tdClientId (\ s a -> s{_tdClientId = a})
80 = lens _tdClientId (\ s a -> s{_tdClientId = a})
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)
123− = lens _tdQuotaUser (\ s a -> s{_tdQuotaUser = a})
125−-- | Returns response with indentations and line breaks.
126−tdPrettyPrint :: Lens' TokensDelete' Bool
128− = lens _tdPrettyPrint
129− (\ s a -> s{_tdPrettyPrint = a})
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})
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
139−tdKey :: Lens' TokensDelete' (Maybe AuthKey)
140−tdKey = lens _tdKey (\ s a -> s{_tdKey = a})
142−-- | OAuth 2.0 token for the current user.
143−tdOAuthToken :: Lens' TokensDelete' (Maybe OAuthToken)
145− = lens _tdOAuthToken (\ s a -> s{_tdOAuthToken = a})
147-- | Identifies the user in the API request. The value can be the user\'s
82-- | Identifies the user in the API request. The value can be the user\'s
148-- primary email address, alias email address, or unique user ID.
83-- primary email address, alias email address, or unique user ID.
149tdUserKey :: Lens' TokensDelete' Text
84tdUserKey :: Lens' TokensDelete' Text
151 = lens _tdUserKey (\ s a -> s{_tdUserKey = a})
86 = lens _tdUserKey (\ s a -> s{_tdUserKey = a})
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})
157−instance GoogleAuth TokensDelete' where
158− _AuthKey = tdKey . _Just
159− _AuthToken = tdOAuthToken . _Just
161instance GoogleRequest TokensDelete' where
88instance GoogleRequest TokensDelete' where
162 type Rs TokensDelete' = ()
89 type Rs TokensDelete' = ()
163− request = requestWith directoryRequest
164− requestWith rq TokensDelete'{..}
90+ requestClient TokensDelete'{..}
165− = go _tdUserKey _tdClientId _tdQuotaUser
91+ = go _tdUserKey _tdClientId (Just AltJSON)
166− (Just _tdPrettyPrint)
92+ directoryService
173− = clientBuild (Proxy :: Proxy TokensDeleteResource)
94+ = buildClient (Proxy :: Proxy TokensDeleteResource)
gogol-admin-directory/gen/Network/Google/Resource/Directory/Tokens/Get.hs+8−86
@@ -34,13 +34,7 @@ module Network.Google.Resource.Directory.Tokens.Get
35 -- * Request Lenses
35 -- * Request Lenses
36 , tgClientId
36 , tgClientId
42 , tgUserKey
37 , tgUserKey
46import Network.Google.Directory.Types
40import Network.Google.Directory.Types
@@ -53,26 +47,14 @@ type TokensGetResource =
53 Capture "userKey" Text :>
47 Capture "userKey" Text :>
54 "tokens" :>
48 "tokens" :>
55 Capture "clientId" Text :>
49 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
64-- | Get information about an access token issued by a user.
52-- | Get information about an access token issued by a user.
66-- /See:/ 'tokensGet'' smart constructor.
54-- /See:/ 'tokensGet'' smart constructor.
67data TokensGet' = TokensGet'
55data TokensGet' = TokensGet'
68− { _tgClientId :: !Text
56+ { _tgClientId :: !Text
69− , _tgQuotaUser :: !(Maybe Text)
57+ , _tgUserKey :: !Text
70− , _tgPrettyPrint :: !Bool
71− , _tgUserIP :: !(Maybe Text)
72− , _tgKey :: !(Maybe AuthKey)
73− , _tgOAuthToken :: !(Maybe OAuthToken)
74− , _tgUserKey :: !Text
75− , _tgFields :: !(Maybe Text)
76 } deriving (Eq,Show,Data,Typeable,Generic)
58 } deriving (Eq,Show,Data,Typeable,Generic)
78-- | Creates a value of 'TokensGet'' with the minimum fields required to make a request.
60-- | Creates a value of 'TokensGet'' with the minimum fields required to make a request.
@@ -81,19 +63,7 @@ data TokensGet' = TokensGet'
82-- * 'tgClientId'
64-- * 'tgClientId'
94-- * 'tgUserKey'
66-- * 'tgUserKey'
98 :: Text -- ^ 'clientId'
68 :: Text -- ^ 'clientId'
99 -> Text -- ^ 'userKey'
69 -> Text -- ^ 'userKey'
@@ -101,13 +71,7 @@ tokensGet'
101tokensGet' pTgClientId_ pTgUserKey_ =
71tokensGet' pTgClientId_ pTgUserKey_ =
102 TokensGet'
72 TokensGet'
103 { _tgClientId = pTgClientId_
73 { _tgClientId = pTgClientId_
104− , _tgQuotaUser = Nothing
105− , _tgPrettyPrint = True
106− , _tgUserIP = Nothing
108− , _tgOAuthToken = Nothing
109 , _tgUserKey = pTgUserKey_
74 , _tgUserKey = pTgUserKey_
110− , _tgFields = Nothing
113-- | The Client ID of the application the token is issued to.
77-- | The Client ID of the application the token is issued to.
@@ -115,59 +79,17 @@ tgClientId :: Lens' TokensGet' Text
115tgClientId
79tgClientId
116 = lens _tgClientId (\ s a -> s{_tgClientId = a})
80 = lens _tgClientId (\ s a -> s{_tgClientId = a})
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)
123− = lens _tgQuotaUser (\ s a -> s{_tgQuotaUser = a})
125−-- | Returns response with indentations and line breaks.
126−tgPrettyPrint :: Lens' TokensGet' Bool
128− = lens _tgPrettyPrint
129− (\ s a -> s{_tgPrettyPrint = a})
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})
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
139−tgKey :: Lens' TokensGet' (Maybe AuthKey)
140−tgKey = lens _tgKey (\ s a -> s{_tgKey = a})
142−-- | OAuth 2.0 token for the current user.
143−tgOAuthToken :: Lens' TokensGet' (Maybe OAuthToken)
145− = lens _tgOAuthToken (\ s a -> s{_tgOAuthToken = a})
147-- | Identifies the user in the API request. The value can be the user\'s
82-- | Identifies the user in the API request. The value can be the user\'s
148-- primary email address, alias email address, or unique user ID.
83-- primary email address, alias email address, or unique user ID.
149tgUserKey :: Lens' TokensGet' Text
84tgUserKey :: Lens' TokensGet' Text
151 = lens _tgUserKey (\ s a -> s{_tgUserKey = a})
86 = lens _tgUserKey (\ s a -> s{_tgUserKey = a})
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})
157−instance GoogleAuth TokensGet' where
158− _AuthKey = tgKey . _Just
159− _AuthToken = tgOAuthToken . _Just
161instance GoogleRequest TokensGet' where
88instance GoogleRequest TokensGet' where
162 type Rs TokensGet' = Token
89 type Rs TokensGet' = Token
163− request = requestWith directoryRequest
164− requestWith rq TokensGet'{..}
90+ requestClient TokensGet'{..}
165− = go _tgUserKey _tgClientId _tgQuotaUser
91+ = go _tgUserKey _tgClientId (Just AltJSON)
166− (Just _tgPrettyPrint)
92+ directoryService
173− = clientBuild (Proxy :: Proxy TokensGetResource) rq
94+ = buildClient (Proxy :: Proxy TokensGetResource)
gogol-admin-directory/gen/Network/Google/Resource/Directory/Tokens/List.hs+8−86
@@ -34,13 +34,7 @@ module Network.Google.Resource.Directory.Tokens.List
34 , TokensList'
34 , TokensList'
36 -- * Request Lenses
36 -- * Request Lenses
42 , tlUserKey
37 , tlUserKey
46import Network.Google.Directory.Types
40import Network.Google.Directory.Types
@@ -52,111 +46,39 @@ type TokensListResource =
52 "users" :>
46 "users" :>
53 Capture "userKey" Text :>
47 Capture "userKey" Text :>
54 "tokens" :>
48 "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
63-- | Returns the set of tokens specified user has issued to 3rd party
51-- | Returns the set of tokens specified user has issued to 3rd party
64-- applications.
52-- applications.
66-- /See:/ 'tokensList'' smart constructor.
54-- /See:/ 'tokensList'' smart constructor.
67−data TokensList' = TokensList'
55+newtype TokensList' = TokensList'
68− { _tlQuotaUser :: !(Maybe Text)
69− , _tlPrettyPrint :: !Bool
70− , _tlUserIP :: !(Maybe Text)
71− , _tlKey :: !(Maybe AuthKey)
72− , _tlOAuthToken :: !(Maybe OAuthToken)
73− , _tlUserKey :: !Text
56+ { _tlUserKey :: Text
74− , _tlFields :: !(Maybe Text)
75 } deriving (Eq,Show,Data,Typeable,Generic)
57 } deriving (Eq,Show,Data,Typeable,Generic)
77-- | Creates a value of 'TokensList'' with the minimum fields required to make a request.
59-- | Creates a value of 'TokensList'' with the minimum fields required to make a request.
79-- Use one of the following lenses to modify other fields as desired:
61-- Use one of the following lenses to modify other fields as desired:
91-- * 'tlUserKey'
63-- * 'tlUserKey'
94tokensList'
64tokensList'
95 :: Text -- ^ 'userKey'
65 :: Text -- ^ 'userKey'
96 -> TokensList'
66 -> TokensList'
97tokensList' pTlUserKey_ =
67tokensList' pTlUserKey_ =
98 TokensList'
68 TokensList'
99− { _tlQuotaUser = Nothing
100− , _tlPrettyPrint = True
101− , _tlUserIP = Nothing
103− , _tlOAuthToken = Nothing
104− , _tlUserKey = pTlUserKey_
69+ { _tlUserKey = pTlUserKey_
105− , _tlFields = Nothing
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)
113− = lens _tlQuotaUser (\ s a -> s{_tlQuotaUser = a})
115−-- | Returns response with indentations and line breaks.
116−tlPrettyPrint :: Lens' TokensList' Bool
118− = lens _tlPrettyPrint
119− (\ s a -> s{_tlPrettyPrint = a})
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})
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
129−tlKey :: Lens' TokensList' (Maybe AuthKey)
130−tlKey = lens _tlKey (\ s a -> s{_tlKey = a})
132−-- | OAuth 2.0 token for the current user.
133−tlOAuthToken :: Lens' TokensList' (Maybe OAuthToken)
135− = lens _tlOAuthToken (\ s a -> s{_tlOAuthToken = a})
137-- | Identifies the user in the API request. The value can be the user\'s
72-- | Identifies the user in the API request. The value can be the user\'s
138-- primary email address, alias email address, or unique user ID.
73-- primary email address, alias email address, or unique user ID.
139tlUserKey :: Lens' TokensList' Text
74tlUserKey :: Lens' TokensList' Text
141 = lens _tlUserKey (\ s a -> s{_tlUserKey = a})
76 = lens _tlUserKey (\ s a -> s{_tlUserKey = a})
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})
147−instance GoogleAuth TokensList' where
148− _AuthKey = tlKey . _Just
149− _AuthToken = tlOAuthToken . _Just
151instance GoogleRequest TokensList' where
78instance GoogleRequest TokensList' where
152 type Rs TokensList' = Tokens
79 type Rs TokensList' = Tokens
153− request = requestWith directoryRequest
154− requestWith rq TokensList'{..}
80+ requestClient TokensList'{..}
155− = go _tlUserKey _tlQuotaUser (Just _tlPrettyPrint)
160− (Just AltJSON)
81+ = go _tlUserKey (Just AltJSON) directoryService
162− = clientBuild (Proxy :: Proxy TokensListResource) rq
83+ = buildClient (Proxy :: Proxy TokensListResource)
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
33 , UsersAliasesDelete'
33 , UsersAliasesDelete'
35 -- * Request Lenses
35 -- * Request Lenses
39 , uadAlias
36 , uadAlias
42 , uadUserKey
37 , uadUserKey
46import Network.Google.Directory.Types
40import Network.Google.Directory.Types
@@ -53,124 +47,48 @@ type UsersAliasesDeleteResource =
53 Capture "userKey" Text :>
47 Capture "userKey" Text :>
54 "aliases" :>
48 "aliases" :>
55 Capture "alias" Text :>
49 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] ()
64-- | Remove a alias for the user
52-- | Remove a alias for the user
66-- /See:/ 'usersAliasesDelete'' smart constructor.
54-- /See:/ 'usersAliasesDelete'' smart constructor.
67data UsersAliasesDelete' = UsersAliasesDelete'
55data UsersAliasesDelete' = UsersAliasesDelete'
68− { _uadQuotaUser :: !(Maybe Text)
69− , _uadPrettyPrint :: !Bool
70− , _uadUserIP :: !(Maybe Text)
71− , _uadAlias :: !Text
56+ { _uadAlias :: !Text
72− , _uadKey :: !(Maybe AuthKey)
73− , _uadOAuthToken :: !(Maybe OAuthToken)
74− , _uadUserKey :: !Text
57+ , _uadUserKey :: !Text
75− , _uadFields :: !(Maybe Text)
76 } deriving (Eq,Show,Data,Typeable,Generic)
58 } deriving (Eq,Show,Data,Typeable,Generic)
78-- | Creates a value of 'UsersAliasesDelete'' with the minimum fields required to make a request.
60-- | Creates a value of 'UsersAliasesDelete'' with the minimum fields required to make a request.
80-- Use one of the following lenses to modify other fields as desired:
62-- Use one of the following lenses to modify other fields as desired:
88-- * 'uadAlias'
64-- * 'uadAlias'
94-- * 'uadUserKey'
66-- * 'uadUserKey'
97usersAliasesDelete'
67usersAliasesDelete'
98 :: Text -- ^ 'alias'
68 :: Text -- ^ 'alias'
99 -> Text -- ^ 'userKey'
69 -> Text -- ^ 'userKey'
100 -> UsersAliasesDelete'
70 -> UsersAliasesDelete'
101usersAliasesDelete' pUadAlias_ pUadUserKey_ =
71usersAliasesDelete' pUadAlias_ pUadUserKey_ =
102 UsersAliasesDelete'
72 UsersAliasesDelete'
103− { _uadQuotaUser = Nothing
104− , _uadPrettyPrint = True
105− , _uadUserIP = Nothing
106− , _uadAlias = pUadAlias_
73+ { _uadAlias = pUadAlias_
108− , _uadOAuthToken = Nothing
109 , _uadUserKey = pUadUserKey_
74 , _uadUserKey = pUadUserKey_
110− , _uadFields = Nothing
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)
118− = lens _uadQuotaUser (\ s a -> s{_uadQuotaUser = a})
120−-- | Returns response with indentations and line breaks.
121−uadPrettyPrint :: Lens' UsersAliasesDelete' Bool
123− = lens _uadPrettyPrint
124− (\ s a -> s{_uadPrettyPrint = a})
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)
130− = lens _uadUserIP (\ s a -> s{_uadUserIP = a})
132-- | The alias to be removed
77-- | The alias to be removed
133uadAlias :: Lens' UsersAliasesDelete' Text
78uadAlias :: Lens' UsersAliasesDelete' Text
134uadAlias = lens _uadAlias (\ s a -> s{_uadAlias = a})
79uadAlias = lens _uadAlias (\ s a -> s{_uadAlias = a})
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
139−uadKey :: Lens' UsersAliasesDelete' (Maybe AuthKey)
140−uadKey = lens _uadKey (\ s a -> s{_uadKey = a})
142−-- | OAuth 2.0 token for the current user.
143−uadOAuthToken :: Lens' UsersAliasesDelete' (Maybe OAuthToken)
145− = lens _uadOAuthToken
146− (\ s a -> s{_uadOAuthToken = a})
148-- | Email or immutable Id of the user
81-- | Email or immutable Id of the user
149uadUserKey :: Lens' UsersAliasesDelete' Text
82uadUserKey :: Lens' UsersAliasesDelete' Text
150uadUserKey
83uadUserKey
151 = lens _uadUserKey (\ s a -> s{_uadUserKey = a})
84 = lens _uadUserKey (\ s a -> s{_uadUserKey = a})
153−-- | Selector specifying which fields to include in a partial response.
154−uadFields :: Lens' UsersAliasesDelete' (Maybe Text)
156− = lens _uadFields (\ s a -> s{_uadFields = a})
158−instance GoogleAuth UsersAliasesDelete' where
159− _AuthKey = uadKey . _Just
160− _AuthToken = uadOAuthToken . _Just
162instance GoogleRequest UsersAliasesDelete' where
86instance GoogleRequest UsersAliasesDelete' where
163 type Rs UsersAliasesDelete' = ()
87 type Rs UsersAliasesDelete' = ()
164− request = requestWith directoryRequest
165− requestWith rq UsersAliasesDelete'{..}
88+ requestClient UsersAliasesDelete'{..}
166− = go _uadUserKey _uadAlias _uadQuotaUser
89+ = go _uadUserKey _uadAlias (Just AltJSON)
167− (Just _uadPrettyPrint)
90+ directoryService
174− = clientBuild
92+ = buildClient
175 (Proxy :: Proxy UsersAliasesDeleteResource)
93 (Proxy :: Proxy UsersAliasesDeleteResource)
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
33 , UsersAliasesInsert'
33 , UsersAliasesInsert'
35 -- * Request Lenses
35 -- * Request Lenses
39 , uaiPayload
36 , uaiPayload
42 , uaiUserKey
37 , uaiUserKey
46import Network.Google.Directory.Types
40import Network.Google.Directory.Types
@@ -52,126 +46,50 @@ type UsersAliasesInsertResource =
52 "users" :>
46 "users" :>
53 Capture "userKey" Text :>
47 Capture "userKey" Text :>
54 "aliases" :>
48 "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 :>
49+ QueryParam "alt" AltJSON :>
62− ReqBody '[JSON] Alias :> Post '[JSON] Alias
50+ ReqBody '[JSON] Alias :> Post '[JSON] Alias
64-- | Add a alias for the user
52-- | Add a alias for the user
66-- /See:/ 'usersAliasesInsert'' smart constructor.
54-- /See:/ 'usersAliasesInsert'' smart constructor.
67data UsersAliasesInsert' = UsersAliasesInsert'
55data UsersAliasesInsert' = UsersAliasesInsert'
68− { _uaiQuotaUser :: !(Maybe Text)
69− , _uaiPrettyPrint :: !Bool
70− , _uaiUserIP :: !(Maybe Text)
71− , _uaiPayload :: !Alias
56+ { _uaiPayload :: !Alias
72− , _uaiKey :: !(Maybe AuthKey)
73− , _uaiOAuthToken :: !(Maybe OAuthToken)
74− , _uaiUserKey :: !Text
57+ , _uaiUserKey :: !Text
75− , _uaiFields :: !(Maybe Text)
76 } deriving (Eq,Show,Data,Typeable,Generic)
58 } deriving (Eq,Show,Data,Typeable,Generic)
78-- | Creates a value of 'UsersAliasesInsert'' with the minimum fields required to make a request.
60-- | Creates a value of 'UsersAliasesInsert'' with the minimum fields required to make a request.
80-- Use one of the following lenses to modify other fields as desired:
62-- Use one of the following lenses to modify other fields as desired:
88-- * 'uaiPayload'
64-- * 'uaiPayload'
94-- * 'uaiUserKey'
66-- * 'uaiUserKey'
97usersAliasesInsert'
67usersAliasesInsert'
98 :: Alias -- ^ 'payload'
68 :: Alias -- ^ 'payload'
99 -> Text -- ^ 'userKey'
69 -> Text -- ^ 'userKey'
100 -> UsersAliasesInsert'
70 -> UsersAliasesInsert'
101usersAliasesInsert' pUaiPayload_ pUaiUserKey_ =
71usersAliasesInsert' pUaiPayload_ pUaiUserKey_ =
102 UsersAliasesInsert'
72 UsersAliasesInsert'
103− { _uaiQuotaUser = Nothing
104− , _uaiPrettyPrint = True
105− , _uaiUserIP = Nothing
106− , _uaiPayload = pUaiPayload_
73+ { _uaiPayload = pUaiPayload_
108− , _uaiOAuthToken = Nothing
109 , _uaiUserKey = pUaiUserKey_
74 , _uaiUserKey = pUaiUserKey_
110− , _uaiFields = Nothing
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)
118− = lens _uaiQuotaUser (\ s a -> s{_uaiQuotaUser = a})
120−-- | Returns response with indentations and line breaks.
121−uaiPrettyPrint :: Lens' UsersAliasesInsert' Bool
123− = lens _uaiPrettyPrint
124− (\ s a -> s{_uaiPrettyPrint = a})
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)
130− = lens _uaiUserIP (\ s a -> s{_uaiUserIP = a})
132-- | Multipart request metadata.
77-- | Multipart request metadata.
133uaiPayload :: Lens' UsersAliasesInsert' Alias
78uaiPayload :: Lens' UsersAliasesInsert' Alias
134uaiPayload
79uaiPayload
135 = lens _uaiPayload (\ s a -> s{_uaiPayload = a})
80 = lens _uaiPayload (\ s a -> s{_uaiPayload = a})
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
140−uaiKey :: Lens' UsersAliasesInsert' (Maybe AuthKey)
141−uaiKey = lens _uaiKey (\ s a -> s{_uaiKey = a})
143−-- | OAuth 2.0 token for the current user.
144−uaiOAuthToken :: Lens' UsersAliasesInsert' (Maybe OAuthToken)
146− = lens _uaiOAuthToken
147− (\ s a -> s{_uaiOAuthToken = a})
149-- | Email or immutable Id of the user
82-- | Email or immutable Id of the user
150uaiUserKey :: Lens' UsersAliasesInsert' Text
83uaiUserKey :: Lens' UsersAliasesInsert' Text
151uaiUserKey
84uaiUserKey
152 = lens _uaiUserKey (\ s a -> s{_uaiUserKey = a})
85 = lens _uaiUserKey (\ s a -> s{_uaiUserKey = a})
154−-- | Selector specifying which fields to include in a partial response.
155−uaiFields :: Lens' UsersAliasesInsert' (Maybe Text)
157− = lens _uaiFields (\ s a -> s{_uaiFields = a})
159−instance GoogleAuth UsersAliasesInsert' where
160− _AuthKey = uaiKey . _Just
161− _AuthToken = uaiOAuthToken . _Just
163instance GoogleRequest UsersAliasesInsert' where
87instance GoogleRequest UsersAliasesInsert' where
164 type Rs UsersAliasesInsert' = Alias
88 type Rs UsersAliasesInsert' = Alias
165− request = requestWith directoryRequest
166− requestWith rq UsersAliasesInsert'{..}
89+ requestClient UsersAliasesInsert'{..}
167− = go _uaiUserKey _uaiQuotaUser (Just _uaiPrettyPrint)
172− (Just AltJSON)
90+ = go _uaiUserKey (Just AltJSON) _uaiPayload
173− _uaiPayload
91+ directoryService
175− = clientBuild
93+ = buildClient
176 (Proxy :: Proxy UsersAliasesInsertResource)
94 (Proxy :: Proxy UsersAliasesInsertResource)
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
35 -- * Request Lenses
35 -- * Request Lenses
36 , ualEvent
36 , ualEvent
42 , ualUserKey
37 , ualUserKey
46import Network.Google.Directory.Types
40import Network.Google.Directory.Types
@@ -53,26 +47,14 @@ type UsersAliasesListResource =
53 Capture "userKey" Text :>
47 Capture "userKey" Text :>
54 "aliases" :>
48 "aliases" :>
55 QueryParam "event" UsersAliasesListEvent :>
49 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
64-- | List all aliases for a user
52-- | List all aliases for a user
66-- /See:/ 'usersAliasesList'' smart constructor.
54-- /See:/ 'usersAliasesList'' smart constructor.
67data UsersAliasesList' = UsersAliasesList'
55data UsersAliasesList' = UsersAliasesList'
68− { _ualEvent :: !(Maybe UsersAliasesListEvent)
56+ { _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
57+ , _ualUserKey :: !Text
75− , _ualFields :: !(Maybe Text)
76 } deriving (Eq,Show,Data,Typeable,Generic)
58 } deriving (Eq,Show,Data,Typeable,Generic)
78-- | Creates a value of 'UsersAliasesList'' with the minimum fields required to make a request.
60-- | Creates a value of 'UsersAliasesList'' with the minimum fields required to make a request.
@@ -81,95 +63,31 @@ data UsersAliasesList' = UsersAliasesList'
82-- * 'ualEvent'
64-- * 'ualEvent'
94-- * 'ualUserKey'
66-- * 'ualUserKey'
97usersAliasesList'
67usersAliasesList'
98 :: Text -- ^ 'userKey'
68 :: Text -- ^ 'userKey'
99 -> UsersAliasesList'
69 -> UsersAliasesList'
100usersAliasesList' pUalUserKey_ =
70usersAliasesList' pUalUserKey_ =
101 UsersAliasesList'
71 UsersAliasesList'
102 { _ualEvent = Nothing
72 { _ualEvent = Nothing
103− , _ualQuotaUser = Nothing
104− , _ualPrettyPrint = True
105− , _ualUserIP = Nothing
107− , _ualOAuthToken = Nothing
108 , _ualUserKey = pUalUserKey_
73 , _ualUserKey = pUalUserKey_
109− , _ualFields = Nothing
112-- | Event on which subscription is intended (if subscribing)
76-- | Event on which subscription is intended (if subscribing)
113ualEvent :: Lens' UsersAliasesList' (Maybe UsersAliasesListEvent)
77ualEvent :: Lens' UsersAliasesList' (Maybe UsersAliasesListEvent)
114ualEvent = lens _ualEvent (\ s a -> s{_ualEvent = a})
78ualEvent = lens _ualEvent (\ s a -> s{_ualEvent = a})
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)
121− = lens _ualQuotaUser (\ s a -> s{_ualQuotaUser = a})
123−-- | Returns response with indentations and line breaks.
124−ualPrettyPrint :: Lens' UsersAliasesList' Bool
126− = lens _ualPrettyPrint
127− (\ s a -> s{_ualPrettyPrint = a})
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)
133− = lens _ualUserIP (\ s a -> s{_ualUserIP = a})
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
138−ualKey :: Lens' UsersAliasesList' (Maybe AuthKey)
139−ualKey = lens _ualKey (\ s a -> s{_ualKey = a})
141−-- | OAuth 2.0 token for the current user.
142−ualOAuthToken :: Lens' UsersAliasesList' (Maybe OAuthToken)
144− = lens _ualOAuthToken
145− (\ s a -> s{_ualOAuthToken = a})
147-- | Email or immutable Id of the user
80-- | Email or immutable Id of the user
148ualUserKey :: Lens' UsersAliasesList' Text
81ualUserKey :: Lens' UsersAliasesList' Text
149ualUserKey
82ualUserKey
150 = lens _ualUserKey (\ s a -> s{_ualUserKey = a})
83 = lens _ualUserKey (\ s a -> s{_ualUserKey = a})
152−-- | Selector specifying which fields to include in a partial response.
153−ualFields :: Lens' UsersAliasesList' (Maybe Text)
155− = lens _ualFields (\ s a -> s{_ualFields = a})
157−instance GoogleAuth UsersAliasesList' where
158− _AuthKey = ualKey . _Just
159− _AuthToken = ualOAuthToken . _Just
161instance GoogleRequest UsersAliasesList' where
85instance GoogleRequest UsersAliasesList' where
162 type Rs UsersAliasesList' = Aliases
86 type Rs UsersAliasesList' = Aliases
163− request = requestWith directoryRequest
164− requestWith rq UsersAliasesList'{..}
87+ requestClient UsersAliasesList'{..}
165− = go _ualUserKey _ualEvent _ualQuotaUser
88+ = go _ualUserKey _ualEvent (Just AltJSON)
166− (Just _ualPrettyPrint)
89+ directoryService
173− = clientBuild
91+ = buildClient
174 (Proxy :: Proxy UsersAliasesListResource)
92 (Proxy :: Proxy UsersAliasesListResource)
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
35 -- * Request Lenses
35 -- * Request Lenses
36 , uawEvent
36 , uawEvent
40 , uawPayload
37 , uawPayload
43 , uawUserKey
38 , uawUserKey
47import Network.Google.Directory.Types
41import Network.Google.Directory.Types
@@ -55,28 +49,16 @@ type UsersAliasesWatchResource =
55 "aliases" :>
49 "aliases" :>
56 "watch" :>
50 "watch" :>
57 QueryParam "event" UsersAliasesWatchEvent :>
51 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 :>
52+ QueryParam "alt" AltJSON :>
65− ReqBody '[JSON] Channel :> Post '[JSON] Channel
53+ ReqBody '[JSON] Channel :> Post '[JSON] Channel
67-- | Watch for changes in user aliases list
55-- | Watch for changes in user aliases list
69-- /See:/ 'usersAliasesWatch'' smart constructor.
57-- /See:/ 'usersAliasesWatch'' smart constructor.
70data UsersAliasesWatch' = UsersAliasesWatch'
58data UsersAliasesWatch' = UsersAliasesWatch'
71− { _uawEvent :: !(Maybe UsersAliasesWatchEvent)
59+ { _uawEvent :: !(Maybe UsersAliasesWatchEvent)
72− , _uawQuotaUser :: !(Maybe Text)
73− , _uawPrettyPrint :: !Bool
74− , _uawUserIP :: !(Maybe Text)
75− , _uawPayload :: !Channel
60+ , _uawPayload :: !Channel
76− , _uawKey :: !(Maybe AuthKey)
77− , _uawOAuthToken :: !(Maybe OAuthToken)
78− , _uawUserKey :: !Text
61+ , _uawUserKey :: !Text
79− , _uawFields :: !(Maybe Text)
80 } deriving (Eq,Show,Data,Typeable,Generic)
62 } deriving (Eq,Show,Data,Typeable,Generic)
82-- | Creates a value of 'UsersAliasesWatch'' with the minimum fields required to make a request.
64-- | Creates a value of 'UsersAliasesWatch'' with the minimum fields required to make a request.
@@ -85,21 +67,9 @@ data UsersAliasesWatch' = UsersAliasesWatch'
86-- * 'uawEvent'
68-- * 'uawEvent'
94-- * 'uawPayload'
70-- * 'uawPayload'
100-- * 'uawUserKey'
72-- * 'uawUserKey'
103usersAliasesWatch'
73usersAliasesWatch'
104 :: Channel -- ^ 'payload'
74 :: Channel -- ^ 'payload'
105 -> Text -- ^ 'userKey'
75 -> Text -- ^ 'userKey'
@@ -107,83 +77,30 @@ usersAliasesWatch'
107usersAliasesWatch' pUawPayload_ pUawUserKey_ =
77usersAliasesWatch' pUawPayload_ pUawUserKey_ =
108 UsersAliasesWatch'
78 UsersAliasesWatch'
109 { _uawEvent = Nothing
79 { _uawEvent = Nothing
110− , _uawQuotaUser = Nothing
111− , _uawPrettyPrint = True
112− , _uawUserIP = Nothing
113 , _uawPayload = pUawPayload_
80 , _uawPayload = pUawPayload_
115− , _uawOAuthToken = Nothing
116 , _uawUserKey = pUawUserKey_
81 , _uawUserKey = pUawUserKey_
117− , _uawFields = Nothing
120-- | Event on which subscription is intended (if subscribing)
84-- | Event on which subscription is intended (if subscribing)
121uawEvent :: Lens' UsersAliasesWatch' (Maybe UsersAliasesWatchEvent)
85uawEvent :: Lens' UsersAliasesWatch' (Maybe UsersAliasesWatchEvent)
122uawEvent = lens _uawEvent (\ s a -> s{_uawEvent = a})
86uawEvent = lens _uawEvent (\ s a -> s{_uawEvent = a})
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)
129− = lens _uawQuotaUser (\ s a -> s{_uawQuotaUser = a})
131−-- | Returns response with indentations and line breaks.
132−uawPrettyPrint :: Lens' UsersAliasesWatch' Bool
134− = lens _uawPrettyPrint
135− (\ s a -> s{_uawPrettyPrint = a})
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)
141− = lens _uawUserIP (\ s a -> s{_uawUserIP = a})
143-- | Multipart request metadata.
88-- | Multipart request metadata.
144uawPayload :: Lens' UsersAliasesWatch' Channel
89uawPayload :: Lens' UsersAliasesWatch' Channel
145uawPayload
90uawPayload
146 = lens _uawPayload (\ s a -> s{_uawPayload = a})
91 = lens _uawPayload (\ s a -> s{_uawPayload = a})
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
151−uawKey :: Lens' UsersAliasesWatch' (Maybe AuthKey)
152−uawKey = lens _uawKey (\ s a -> s{_uawKey = a})
154−-- | OAuth 2.0 token for the current user.
155−uawOAuthToken :: Lens' UsersAliasesWatch' (Maybe OAuthToken)
157− = lens _uawOAuthToken
158− (\ s a -> s{_uawOAuthToken = a})
160-- | Email or immutable Id of the user
93-- | Email or immutable Id of the user
161uawUserKey :: Lens' UsersAliasesWatch' Text
94uawUserKey :: Lens' UsersAliasesWatch' Text
162uawUserKey
95uawUserKey
163 = lens _uawUserKey (\ s a -> s{_uawUserKey = a})
96 = lens _uawUserKey (\ s a -> s{_uawUserKey = a})
165−-- | Selector specifying which fields to include in a partial response.
166−uawFields :: Lens' UsersAliasesWatch' (Maybe Text)
168− = lens _uawFields (\ s a -> s{_uawFields = a})
170−instance GoogleAuth UsersAliasesWatch' where
171− _AuthKey = uawKey . _Just
172− _AuthToken = uawOAuthToken . _Just
174instance GoogleRequest UsersAliasesWatch' where
98instance GoogleRequest UsersAliasesWatch' where
175 type Rs UsersAliasesWatch' = Channel
99 type Rs UsersAliasesWatch' = Channel
176− request = requestWith directoryRequest
177− requestWith rq UsersAliasesWatch'{..}
100+ requestClient UsersAliasesWatch'{..}
178− = go _uawUserKey _uawEvent _uawQuotaUser
101+ = go _uawUserKey _uawEvent (Just AltJSON) _uawPayload
179− (Just _uawPrettyPrint)
102+ directoryService
187− = clientBuild
104+ = buildClient
188 (Proxy :: Proxy UsersAliasesWatchResource)
105 (Proxy :: Proxy UsersAliasesWatchResource)
gogol-admin-directory/gen/Network/Google/Resource/Directory/Users/Delete.hs+8−86
@@ -33,13 +33,7 @@ module Network.Google.Resource.Directory.Users.Delete
33 , UsersDelete'
33 , UsersDelete'
35 -- * Request Lenses
35 -- * Request Lenses
41 , udUserKey
36 , udUserKey
45import Network.Google.Directory.Types
39import Network.Google.Directory.Types
@@ -50,109 +44,37 @@ import Network.Google.Prelude
50type UsersDeleteResource =
44type UsersDeleteResource =
51 "users" :>
45 "users" :>
52 Capture "userKey" Text :>
46 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] ()
61-- | Delete user
49-- | Delete user
63-- /See:/ 'usersDelete'' smart constructor.
51-- /See:/ 'usersDelete'' smart constructor.
64−data UsersDelete' = UsersDelete'
52+newtype UsersDelete' = UsersDelete'
65− { _udQuotaUser :: !(Maybe Text)
66− , _udPrettyPrint :: !Bool
67− , _udUserIP :: !(Maybe Text)
68− , _udKey :: !(Maybe AuthKey)
69− , _udOAuthToken :: !(Maybe OAuthToken)
70− , _udUserKey :: !Text
53+ { _udUserKey :: Text
71− , _udFields :: !(Maybe Text)
72 } deriving (Eq,Show,Data,Typeable,Generic)
54 } deriving (Eq,Show,Data,Typeable,Generic)
74-- | Creates a value of 'UsersDelete'' with the minimum fields required to make a request.
56-- | Creates a value of 'UsersDelete'' with the minimum fields required to make a request.
76-- Use one of the following lenses to modify other fields as desired:
58-- Use one of the following lenses to modify other fields as desired:
88-- * 'udUserKey'
60-- * 'udUserKey'
91usersDelete'
61usersDelete'
92 :: Text -- ^ 'userKey'
62 :: Text -- ^ 'userKey'
93 -> UsersDelete'
63 -> UsersDelete'
94usersDelete' pUdUserKey_ =
64usersDelete' pUdUserKey_ =
95 UsersDelete'
65 UsersDelete'
96− { _udQuotaUser = Nothing
97− , _udPrettyPrint = True
98− , _udUserIP = Nothing
100− , _udOAuthToken = Nothing
101− , _udUserKey = pUdUserKey_
66+ { _udUserKey = pUdUserKey_
102− , _udFields = Nothing
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)
110− = lens _udQuotaUser (\ s a -> s{_udQuotaUser = a})
112−-- | Returns response with indentations and line breaks.
113−udPrettyPrint :: Lens' UsersDelete' Bool
115− = lens _udPrettyPrint
116− (\ s a -> s{_udPrettyPrint = a})
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})
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
126−udKey :: Lens' UsersDelete' (Maybe AuthKey)
127−udKey = lens _udKey (\ s a -> s{_udKey = a})
129−-- | OAuth 2.0 token for the current user.
130−udOAuthToken :: Lens' UsersDelete' (Maybe OAuthToken)
132− = lens _udOAuthToken (\ s a -> s{_udOAuthToken = a})
134-- | Email or immutable Id of the user
69-- | Email or immutable Id of the user
135udUserKey :: Lens' UsersDelete' Text
70udUserKey :: Lens' UsersDelete' Text
137 = lens _udUserKey (\ s a -> s{_udUserKey = a})
72 = lens _udUserKey (\ s a -> s{_udUserKey = a})
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})
143−instance GoogleAuth UsersDelete' where
144− _AuthKey = udKey . _Just
145− _AuthToken = udOAuthToken . _Just
147instance GoogleRequest UsersDelete' where
74instance GoogleRequest UsersDelete' where
148 type Rs UsersDelete' = ()
75 type Rs UsersDelete' = ()
149− request = requestWith directoryRequest
150− requestWith rq UsersDelete'{..}
76+ requestClient UsersDelete'{..}
151− = go _udUserKey _udQuotaUser (Just _udPrettyPrint)
156− (Just AltJSON)
77+ = go _udUserKey (Just AltJSON) directoryService
158− = clientBuild (Proxy :: Proxy UsersDeleteResource) rq
79+ = buildClient (Proxy :: Proxy UsersDeleteResource)
gogol-admin-directory/gen/Network/Google/Resource/Directory/Users/Get.hs+7−85
@@ -33,16 +33,10 @@ module Network.Google.Resource.Directory.Users.Get
33 , UsersGet'
33 , UsersGet'
35 -- * Request Lenses
35 -- * Request Lenses
38 , ugViewType
36 , ugViewType
39 , ugCustomFieldMask
37 , ugCustomFieldMask
42 , ugProjection
38 , ugProjection
44 , ugUserKey
39 , ugUserKey
48import Network.Google.Directory.Types
42import Network.Google.Directory.Types
@@ -56,83 +50,40 @@ type UsersGetResource =
56 QueryParam "viewType" UsersGetViewType :>
50 QueryParam "viewType" UsersGetViewType :>
57 QueryParam "customFieldMask" Text :>
51 QueryParam "customFieldMask" Text :>
58 QueryParam "projection" UsersGetProjection :>
52 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
67-- | retrieve user
55-- | retrieve user
69-- /See:/ 'usersGet'' smart constructor.
57-- /See:/ 'usersGet'' smart constructor.
70data UsersGet' = UsersGet'
58data UsersGet' = UsersGet'
71− { _ugQuotaUser :: !(Maybe Text)
72− , _ugPrettyPrint :: !Bool
73− , _ugViewType :: !UsersGetViewType
59+ { _ugViewType :: !UsersGetViewType
74 , _ugCustomFieldMask :: !(Maybe Text)
60 , _ugCustomFieldMask :: !(Maybe Text)
75− , _ugUserIP :: !(Maybe Text)
76− , _ugKey :: !(Maybe AuthKey)
77 , _ugProjection :: !UsersGetProjection
61 , _ugProjection :: !UsersGetProjection
78− , _ugOAuthToken :: !(Maybe OAuthToken)
79 , _ugUserKey :: !Text
62 , _ugUserKey :: !Text
80− , _ugFields :: !(Maybe Text)
81 } deriving (Eq,Show,Data,Typeable,Generic)
63 } deriving (Eq,Show,Data,Typeable,Generic)
83-- | Creates a value of 'UsersGet'' with the minimum fields required to make a request.
65-- | Creates a value of 'UsersGet'' with the minimum fields required to make a request.
85-- Use one of the following lenses to modify other fields as desired:
67-- Use one of the following lenses to modify other fields as desired:
91-- * 'ugViewType'
69-- * 'ugViewType'
93-- * 'ugCustomFieldMask'
71-- * 'ugCustomFieldMask'
99-- * 'ugProjection'
73-- * 'ugProjection'
103-- * 'ugUserKey'
75-- * 'ugUserKey'
107 :: Text -- ^ 'userKey'
77 :: Text -- ^ 'userKey'
108 -> UsersGet'
78 -> UsersGet'
109usersGet' pUgUserKey_ =
79usersGet' pUgUserKey_ =
110 UsersGet'
80 UsersGet'
111− { _ugQuotaUser = Nothing
112− , _ugPrettyPrint = True
113− , _ugViewType = UGVTAdminView
81+ { _ugViewType = UGVTAdminView
114 , _ugCustomFieldMask = Nothing
82 , _ugCustomFieldMask = Nothing
115− , _ugUserIP = Nothing
117 , _ugProjection = UGPBasic
83 , _ugProjection = UGPBasic
118− , _ugOAuthToken = Nothing
119 , _ugUserKey = pUgUserKey_
84 , _ugUserKey = pUgUserKey_
120− , _ugFields = Nothing
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)
128− = lens _ugQuotaUser (\ s a -> s{_ugQuotaUser = a})
130−-- | Returns response with indentations and line breaks.
131−ugPrettyPrint :: Lens' UsersGet' Bool
133− = lens _ugPrettyPrint
134− (\ s a -> s{_ugPrettyPrint = a})
136-- | Whether to fetch the ADMIN_VIEW or DOMAIN_PUBLIC view of the user.
87-- | Whether to fetch the ADMIN_VIEW or DOMAIN_PUBLIC view of the user.
137ugViewType :: Lens' UsersGet' UsersGetViewType
88ugViewType :: Lens' UsersGet' UsersGetViewType
138ugViewType
89ugViewType
@@ -145,52 +96,23 @@ ugCustomFieldMask
145 = lens _ugCustomFieldMask
96 = lens _ugCustomFieldMask
146 (\ s a -> s{_ugCustomFieldMask = a})
97 (\ s a -> s{_ugCustomFieldMask = a})
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})
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
156−ugKey :: Lens' UsersGet' (Maybe AuthKey)
157−ugKey = lens _ugKey (\ s a -> s{_ugKey = a})
159-- | What subset of fields to fetch for this user.
99-- | What subset of fields to fetch for this user.
160ugProjection :: Lens' UsersGet' UsersGetProjection
100ugProjection :: Lens' UsersGet' UsersGetProjection
161ugProjection
101ugProjection
162 = lens _ugProjection (\ s a -> s{_ugProjection = a})
102 = lens _ugProjection (\ s a -> s{_ugProjection = a})
164−-- | OAuth 2.0 token for the current user.
165−ugOAuthToken :: Lens' UsersGet' (Maybe OAuthToken)
167− = lens _ugOAuthToken (\ s a -> s{_ugOAuthToken = a})
169-- | Email or immutable Id of the user
104-- | Email or immutable Id of the user
170ugUserKey :: Lens' UsersGet' Text
105ugUserKey :: Lens' UsersGet' Text
172 = lens _ugUserKey (\ s a -> s{_ugUserKey = a})
107 = lens _ugUserKey (\ s a -> s{_ugUserKey = a})
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})
178−instance GoogleAuth UsersGet' where
179− _AuthKey = ugKey . _Just
180− _AuthToken = ugOAuthToken . _Just
182instance GoogleRequest UsersGet' where
109instance GoogleRequest UsersGet' where
183 type Rs UsersGet' = User
110 type Rs UsersGet' = User
184− request = requestWith directoryRequest
111+ requestClient UsersGet'{..}
185− requestWith rq UsersGet'{..}
186 = go _ugUserKey (Just _ugViewType) _ugCustomFieldMask
112 = go _ugUserKey (Just _ugViewType) _ugCustomFieldMask
187 (Just _ugProjection)
113 (Just _ugProjection)
189− (Just _ugPrettyPrint)
194 (Just AltJSON)
114 (Just AltJSON)
196− = clientBuild (Proxy :: Proxy UsersGetResource) rq
117+ = buildClient (Proxy :: Proxy UsersGetResource)
gogol-admin-directory/gen/Network/Google/Resource/Directory/Users/Insert.hs+9−87
@@ -33,13 +33,7 @@ module Network.Google.Resource.Directory.Users.Insert
33 , UsersInsert'
33 , UsersInsert'
35 -- * Request Lenses
35 -- * Request Lenses
39 , uiPayload
36 , uiPayload
45import Network.Google.Directory.Types
39import Network.Google.Directory.Types
@@ -49,110 +43,38 @@ import Network.Google.Prelude
49-- 'UsersInsert'' request conforms to.
43-- 'UsersInsert'' request conforms to.
50type UsersInsertResource =
44type UsersInsertResource =
51 "users" :>
45 "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 :>
46+ QueryParam "alt" AltJSON :>
59− ReqBody '[JSON] User :> Post '[JSON] User
47+ ReqBody '[JSON] User :> Post '[JSON] User
61-- | create user.
49-- | create user.
63-- /See:/ 'usersInsert'' smart constructor.
51-- /See:/ 'usersInsert'' smart constructor.
64−data UsersInsert' = UsersInsert'
52+newtype UsersInsert' = UsersInsert'
65− { _uiQuotaUser :: !(Maybe Text)
66− , _uiPrettyPrint :: !Bool
67− , _uiUserIP :: !(Maybe Text)
68− , _uiPayload :: !User
53+ { _uiPayload :: User
69− , _uiKey :: !(Maybe AuthKey)
70− , _uiOAuthToken :: !(Maybe OAuthToken)
71− , _uiFields :: !(Maybe Text)
72 } deriving (Eq,Show,Data,Typeable,Generic)
54 } deriving (Eq,Show,Data,Typeable,Generic)
74-- | Creates a value of 'UsersInsert'' with the minimum fields required to make a request.
56-- | Creates a value of 'UsersInsert'' with the minimum fields required to make a request.
76-- Use one of the following lenses to modify other fields as desired:
58-- Use one of the following lenses to modify other fields as desired:
84-- * 'uiPayload'
60-- * 'uiPayload'
91usersInsert'
61usersInsert'
92 :: User -- ^ 'payload'
62 :: User -- ^ 'payload'
93 -> UsersInsert'
63 -> UsersInsert'
94usersInsert' pUiPayload_ =
64usersInsert' pUiPayload_ =
95 UsersInsert'
65 UsersInsert'
96− { _uiQuotaUser = Nothing
97− , _uiPrettyPrint = True
98− , _uiUserIP = Nothing
99− , _uiPayload = pUiPayload_
66+ { _uiPayload = pUiPayload_
101− , _uiOAuthToken = Nothing
102− , _uiFields = Nothing
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)
110− = lens _uiQuotaUser (\ s a -> s{_uiQuotaUser = a})
112−-- | Returns response with indentations and line breaks.
113−uiPrettyPrint :: Lens' UsersInsert' Bool
115− = lens _uiPrettyPrint
116− (\ s a -> s{_uiPrettyPrint = a})
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})
123-- | Multipart request metadata.
69-- | Multipart request metadata.
124uiPayload :: Lens' UsersInsert' User
70uiPayload :: Lens' UsersInsert' User
126 = lens _uiPayload (\ s a -> s{_uiPayload = a})
72 = lens _uiPayload (\ s a -> s{_uiPayload = a})
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
131−uiKey :: Lens' UsersInsert' (Maybe AuthKey)
132−uiKey = lens _uiKey (\ s a -> s{_uiKey = a})
134−-- | OAuth 2.0 token for the current user.
135−uiOAuthToken :: Lens' UsersInsert' (Maybe OAuthToken)
137− = lens _uiOAuthToken (\ s a -> s{_uiOAuthToken = a})
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})
143−instance GoogleAuth UsersInsert' where
144− _AuthKey = uiKey . _Just
145− _AuthToken = uiOAuthToken . _Just
147instance GoogleRequest UsersInsert' where
74instance GoogleRequest UsersInsert' where
148 type Rs UsersInsert' = User
75 type Rs UsersInsert' = User
149− request = requestWith directoryRequest
150− requestWith rq UsersInsert'{..}
76+ requestClient UsersInsert'{..}
151− = go _uiQuotaUser (Just _uiPrettyPrint) _uiUserIP
155− (Just AltJSON)
77+ = go (Just AltJSON) _uiPayload directoryService
158− = clientBuild (Proxy :: Proxy UsersInsertResource) rq
79+ = buildClient (Proxy :: Proxy UsersInsertResource)
gogol-admin-directory/gen/Network/Google/Resource/Directory/Users/List.hs+5−84
@@ -34,23 +34,17 @@ module Network.Google.Resource.Directory.Users.List
35 -- * Request Lenses
35 -- * Request Lenses
39 , ulOrderBy
37 , ulOrderBy
40 , ulViewType
38 , ulViewType
41 , ulCustomFieldMask
39 , ulCustomFieldMask
43 , ulDomain
40 , ulDomain
44 , ulShowDeleted
41 , ulShowDeleted
45 , ulSortOrder
42 , ulSortOrder
46 , ulCustomer
43 , ulCustomer
49 , ulProjection
45 , ulProjection
50 , ulPageToken
46 , ulPageToken
52 , ulMaxResults
47 , ulMaxResults
56import Network.Google.Directory.Types
50import Network.Google.Directory.Types
@@ -72,37 +66,24 @@ type UsersListResource =
72 QueryParam "projection" UsersListProjection :>
66 QueryParam "projection" UsersListProjection :>
73 QueryParam "pageToken" Text :>
67 QueryParam "pageToken" Text :>
74 QueryParam "maxResults" Int32 :>
68 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
84-- | Retrieve either deleted users or all users in a domain (paginated)
71-- | Retrieve either deleted users or all users in a domain (paginated)
86-- /See:/ 'usersList'' smart constructor.
73-- /See:/ 'usersList'' smart constructor.
87data UsersList' = UsersList'
74data UsersList' = UsersList'
88 { _ulEvent :: !(Maybe UsersListEvent)
75 { _ulEvent :: !(Maybe UsersListEvent)
89− , _ulQuotaUser :: !(Maybe Text)
90− , _ulPrettyPrint :: !Bool
91 , _ulOrderBy :: !(Maybe UsersListOrderBy)
76 , _ulOrderBy :: !(Maybe UsersListOrderBy)
92 , _ulViewType :: !UsersListViewType
77 , _ulViewType :: !UsersListViewType
93 , _ulCustomFieldMask :: !(Maybe Text)
78 , _ulCustomFieldMask :: !(Maybe Text)
94− , _ulUserIP :: !(Maybe Text)
95 , _ulDomain :: !(Maybe Text)
79 , _ulDomain :: !(Maybe Text)
96 , _ulShowDeleted :: !(Maybe Text)
80 , _ulShowDeleted :: !(Maybe Text)
97 , _ulSortOrder :: !(Maybe UsersListSortOrder)
81 , _ulSortOrder :: !(Maybe UsersListSortOrder)
98 , _ulCustomer :: !(Maybe Text)
82 , _ulCustomer :: !(Maybe Text)
99− , _ulKey :: !(Maybe AuthKey)
100 , _ulQuery :: !(Maybe Text)
83 , _ulQuery :: !(Maybe Text)
101 , _ulProjection :: !UsersListProjection
84 , _ulProjection :: !UsersListProjection
102 , _ulPageToken :: !(Maybe Text)
85 , _ulPageToken :: !(Maybe Text)
103− , _ulOAuthToken :: !(Maybe OAuthToken)
104 , _ulMaxResults :: !(Maybe Int32)
86 , _ulMaxResults :: !(Maybe Int32)
105− , _ulFields :: !(Maybe Text)
106 } deriving (Eq,Show,Data,Typeable,Generic)
87 } deriving (Eq,Show,Data,Typeable,Generic)
108-- | Creates a value of 'UsersList'' with the minimum fields required to make a request.
89-- | Creates a value of 'UsersList'' with the minimum fields required to make a request.
@@ -111,18 +92,12 @@ data UsersList' = UsersList'
112-- * 'ulEvent'
93-- * 'ulEvent'
118-- * 'ulOrderBy'
95-- * 'ulOrderBy'
120-- * 'ulViewType'
97-- * 'ulViewType'
122-- * 'ulCustomFieldMask'
99-- * 'ulCustomFieldMask'
126-- * 'ulDomain'
101-- * 'ulDomain'
128-- * 'ulShowDeleted'
103-- * 'ulShowDeleted'
@@ -131,60 +106,35 @@ data UsersList' = UsersList'
132-- * 'ulCustomer'
107-- * 'ulCustomer'
136-- * 'ulQuery'
109-- * 'ulQuery'
138-- * 'ulProjection'
111-- * 'ulProjection'
140-- * 'ulPageToken'
113-- * 'ulPageToken'
144-- * 'ulMaxResults'
115-- * 'ulMaxResults'
147usersList'
116usersList'
148 :: UsersList'
117 :: UsersList'
149usersList' =
118usersList' =
150 UsersList'
119 UsersList'
151 { _ulEvent = Nothing
120 { _ulEvent = Nothing
152− , _ulQuotaUser = Nothing
153− , _ulPrettyPrint = True
154 , _ulOrderBy = Nothing
121 , _ulOrderBy = Nothing
155 , _ulViewType = AdminView
122 , _ulViewType = AdminView
156 , _ulCustomFieldMask = Nothing
123 , _ulCustomFieldMask = Nothing
157− , _ulUserIP = Nothing
158 , _ulDomain = Nothing
124 , _ulDomain = Nothing
159 , _ulShowDeleted = Nothing
125 , _ulShowDeleted = Nothing
160 , _ulSortOrder = Nothing
126 , _ulSortOrder = Nothing
161 , _ulCustomer = Nothing
127 , _ulCustomer = Nothing
163 , _ulQuery = Nothing
128 , _ulQuery = Nothing
164 , _ulProjection = ULPBasic
129 , _ulProjection = ULPBasic
165 , _ulPageToken = Nothing
130 , _ulPageToken = Nothing
166− , _ulOAuthToken = Nothing
167 , _ulMaxResults = Nothing
131 , _ulMaxResults = Nothing
168− , _ulFields = Nothing
171-- | Event on which subscription is intended (if subscribing)
134-- | Event on which subscription is intended (if subscribing)
172ulEvent :: Lens' UsersList' (Maybe UsersListEvent)
135ulEvent :: Lens' UsersList' (Maybe UsersListEvent)
173ulEvent = lens _ulEvent (\ s a -> s{_ulEvent = a})
136ulEvent = lens _ulEvent (\ s a -> s{_ulEvent = a})
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)
180− = lens _ulQuotaUser (\ s a -> s{_ulQuotaUser = a})
182−-- | Returns response with indentations and line breaks.
183−ulPrettyPrint :: Lens' UsersList' Bool
185− = lens _ulPrettyPrint
186− (\ s a -> s{_ulPrettyPrint = a})
188-- | Column to use for sorting results
138-- | Column to use for sorting results
189ulOrderBy :: Lens' UsersList' (Maybe UsersListOrderBy)
139ulOrderBy :: Lens' UsersList' (Maybe UsersListOrderBy)
@@ -202,11 +152,6 @@ ulCustomFieldMask
202 = lens _ulCustomFieldMask
152 = lens _ulCustomFieldMask
203 (\ s a -> s{_ulCustomFieldMask = a})
153 (\ s a -> s{_ulCustomFieldMask = a})
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})
210-- | Name of the domain. Fill this field to get users from only this domain.
155-- | Name of the domain. Fill this field to get users from only this domain.
211-- To return all users in a multi-domain fill customer field instead.
156-- To return all users in a multi-domain fill customer field instead.
212ulDomain :: Lens' UsersList' (Maybe Text)
157ulDomain :: Lens' UsersList' (Maybe Text)
@@ -229,12 +174,6 @@ ulCustomer :: Lens' UsersList' (Maybe Text)
229ulCustomer
174ulCustomer
230 = lens _ulCustomer (\ s a -> s{_ulCustomer = a})
175 = lens _ulCustomer (\ s a -> s{_ulCustomer = a})
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
235−ulKey :: Lens' UsersList' (Maybe AuthKey)
236−ulKey = lens _ulKey (\ s a -> s{_ulKey = a})
238-- | Query string search. Should be of the form \"\". Complete documentation
177-- | Query string search. Should be of the form \"\". Complete documentation
240-- https:\/\/developers.google.com\/admin-sdk\/directory\/v1\/guides\/search-users
179-- https:\/\/developers.google.com\/admin-sdk\/directory\/v1\/guides\/search-users
@@ -251,28 +190,14 @@ ulPageToken :: Lens' UsersList' (Maybe Text)
251ulPageToken
190ulPageToken
252 = lens _ulPageToken (\ s a -> s{_ulPageToken = a})
191 = lens _ulPageToken (\ s a -> s{_ulPageToken = a})
254−-- | OAuth 2.0 token for the current user.
255−ulOAuthToken :: Lens' UsersList' (Maybe OAuthToken)
257− = lens _ulOAuthToken (\ s a -> s{_ulOAuthToken = a})
259-- | Maximum number of results to return. Default is 100. Max allowed is 500
193-- | Maximum number of results to return. Default is 100. Max allowed is 500
260ulMaxResults :: Lens' UsersList' (Maybe Int32)
194ulMaxResults :: Lens' UsersList' (Maybe Int32)
261ulMaxResults
195ulMaxResults
262 = lens _ulMaxResults (\ s a -> s{_ulMaxResults = a})
196 = lens _ulMaxResults (\ s a -> s{_ulMaxResults = a})
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})
268−instance GoogleAuth UsersList' where
269− _AuthKey = ulKey . _Just
270− _AuthToken = ulOAuthToken . _Just
272instance GoogleRequest UsersList' where
198instance GoogleRequest UsersList' where
273 type Rs UsersList' = Users
199 type Rs UsersList' = Users
274− request = requestWith directoryRequest
275− requestWith rq UsersList'{..}
200+ requestClient UsersList'{..}
276 = go _ulEvent _ulOrderBy (Just _ulViewType)
201 = go _ulEvent _ulOrderBy (Just _ulViewType)
277 _ulCustomFieldMask
202 _ulCustomFieldMask
278 _ulDomain
203 _ulDomain
@@ -283,12 +208,8 @@ instance GoogleRequest UsersList' where
283 (Just _ulProjection)
208 (Just _ulProjection)
284 _ulPageToken
209 _ulPageToken
285 _ulMaxResults
210 _ulMaxResults
287− (Just _ulPrettyPrint)
292 (Just AltJSON)
211 (Just AltJSON)
294− = clientBuild (Proxy :: Proxy UsersListResource) rq
214+ = buildClient (Proxy :: Proxy UsersListResource)
gogol-admin-directory/gen/Network/Google/Resource/Directory/Users/MakeAdmin.hs+10−92
@@ -33,14 +33,8 @@ module Network.Google.Resource.Directory.Users.MakeAdmin
33 , UsersMakeAdmin'
33 , UsersMakeAdmin'
35 -- * Request Lenses
35 -- * Request Lenses
39 , umaPayload
36 , umaPayload
42 , umaUserKey
37 , umaUserKey
46import Network.Google.Directory.Types
40import Network.Google.Directory.Types
@@ -52,125 +46,49 @@ type UsersMakeAdminResource =
52 "users" :>
46 "users" :>
53 Capture "userKey" Text :>
47 Capture "userKey" Text :>
54 "makeAdmin" :>
48 "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 :>
49+ QueryParam "alt" AltJSON :>
62− ReqBody '[JSON] UserMakeAdmin :> Post '[JSON] ()
50+ ReqBody '[JSON] UserMakeAdmin :> Post '[JSON] ()
64-- | change admin status of a user
52-- | change admin status of a user
66-- /See:/ 'usersMakeAdmin'' smart constructor.
54-- /See:/ 'usersMakeAdmin'' smart constructor.
67data UsersMakeAdmin' = UsersMakeAdmin'
55data UsersMakeAdmin' = UsersMakeAdmin'
68− { _umaQuotaUser :: !(Maybe Text)
69− , _umaPrettyPrint :: !Bool
70− , _umaUserIP :: !(Maybe Text)
71− , _umaPayload :: !UserMakeAdmin
56+ { _umaPayload :: !UserMakeAdmin
72− , _umaKey :: !(Maybe AuthKey)
73− , _umaOAuthToken :: !(Maybe OAuthToken)
74− , _umaUserKey :: !Text
57+ , _umaUserKey :: !Text
75− , _umaFields :: !(Maybe Text)
76 } deriving (Eq,Show,Data,Typeable,Generic)
58 } deriving (Eq,Show,Data,Typeable,Generic)
78-- | Creates a value of 'UsersMakeAdmin'' with the minimum fields required to make a request.
60-- | Creates a value of 'UsersMakeAdmin'' with the minimum fields required to make a request.
80-- Use one of the following lenses to modify other fields as desired:
62-- Use one of the following lenses to modify other fields as desired:
88-- * 'umaPayload'
64-- * 'umaPayload'
94-- * 'umaUserKey'
66-- * 'umaUserKey'
97usersMakeAdmin'
67usersMakeAdmin'
98 :: UserMakeAdmin -- ^ 'payload'
68 :: UserMakeAdmin -- ^ 'payload'
99 -> Text -- ^ 'userKey'
69 -> Text -- ^ 'userKey'
100 -> UsersMakeAdmin'
70 -> UsersMakeAdmin'
101usersMakeAdmin' pUmaPayload_ pUmaUserKey_ =
71usersMakeAdmin' pUmaPayload_ pUmaUserKey_ =
102 UsersMakeAdmin'
72 UsersMakeAdmin'
103− { _umaQuotaUser = Nothing
104− , _umaPrettyPrint = True
105− , _umaUserIP = Nothing
106− , _umaPayload = pUmaPayload_
73+ { _umaPayload = pUmaPayload_
108− , _umaOAuthToken = Nothing
109 , _umaUserKey = pUmaUserKey_
74 , _umaUserKey = pUmaUserKey_
110− , _umaFields = Nothing
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)
118− = lens _umaQuotaUser (\ s a -> s{_umaQuotaUser = a})
120−-- | Returns response with indentations and line breaks.
121−umaPrettyPrint :: Lens' UsersMakeAdmin' Bool
123− = lens _umaPrettyPrint
124− (\ s a -> s{_umaPrettyPrint = a})
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)
130− = lens _umaUserIP (\ s a -> s{_umaUserIP = a})
132-- | Multipart request metadata.
77-- | Multipart request metadata.
133umaPayload :: Lens' UsersMakeAdmin' UserMakeAdmin
78umaPayload :: Lens' UsersMakeAdmin' UserMakeAdmin
134umaPayload
79umaPayload
135 = lens _umaPayload (\ s a -> s{_umaPayload = a})
80 = lens _umaPayload (\ s a -> s{_umaPayload = a})
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
140−umaKey :: Lens' UsersMakeAdmin' (Maybe AuthKey)
141−umaKey = lens _umaKey (\ s a -> s{_umaKey = a})
143−-- | OAuth 2.0 token for the current user.
144−umaOAuthToken :: Lens' UsersMakeAdmin' (Maybe OAuthToken)
146− = lens _umaOAuthToken
147− (\ s a -> s{_umaOAuthToken = a})
149-- | Email or immutable Id of the user as admin
82-- | Email or immutable Id of the user as admin
150umaUserKey :: Lens' UsersMakeAdmin' Text
83umaUserKey :: Lens' UsersMakeAdmin' Text
151umaUserKey
84umaUserKey
152 = lens _umaUserKey (\ s a -> s{_umaUserKey = a})
85 = lens _umaUserKey (\ s a -> s{_umaUserKey = a})
154−-- | Selector specifying which fields to include in a partial response.
155−umaFields :: Lens' UsersMakeAdmin' (Maybe Text)
157− = lens _umaFields (\ s a -> s{_umaFields = a})
159−instance GoogleAuth UsersMakeAdmin' where
160− _AuthKey = umaKey . _Just
161− _AuthToken = umaOAuthToken . _Just
163instance GoogleRequest UsersMakeAdmin' where
87instance GoogleRequest UsersMakeAdmin' where
164 type Rs UsersMakeAdmin' = ()
88 type Rs UsersMakeAdmin' = ()
165− request = requestWith directoryRequest
166− requestWith rq UsersMakeAdmin'{..}
89+ requestClient UsersMakeAdmin'{..}
167− = go _umaUserKey _umaQuotaUser (Just _umaPrettyPrint)
172− (Just AltJSON)
90+ = go _umaUserKey (Just AltJSON) _umaPayload
173− _umaPayload
91+ directoryService
175− = clientBuild (Proxy :: Proxy UsersMakeAdminResource)
93+ = buildClient (Proxy :: Proxy UsersMakeAdminResource)
gogol-admin-directory/gen/Network/Google/Resource/Directory/Users/Patch.hs+10−88
@@ -33,14 +33,8 @@ module Network.Google.Resource.Directory.Users.Patch
33 , UsersPatch'
33 , UsersPatch'
35 -- * Request Lenses
35 -- * Request Lenses
39 , upPayload
36 , upPayload
42 , upUserKey
37 , upUserKey
46import Network.Google.Directory.Types
40import Network.Google.Directory.Types
@@ -51,122 +45,50 @@ import Network.Google.Prelude
51type UsersPatchResource =
45type UsersPatchResource =
52 "users" :>
46 "users" :>
53 Capture "userKey" Text :>
47 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 :>
48+ QueryParam "alt" AltJSON :>
61− ReqBody '[JSON] User :> Patch '[JSON] User
49+ ReqBody '[JSON] User :> Patch '[JSON] User
63-- | update user. This method supports patch semantics.
51-- | update user. This method supports patch semantics.
65-- /See:/ 'usersPatch'' smart constructor.
53-- /See:/ 'usersPatch'' smart constructor.
66data UsersPatch' = UsersPatch'
54data UsersPatch' = UsersPatch'
67− { _upQuotaUser :: !(Maybe Text)
68− , _upPrettyPrint :: !Bool
69− , _upUserIP :: !(Maybe Text)
70− , _upPayload :: !User
55+ { _upPayload :: !User
71− , _upKey :: !(Maybe AuthKey)
72− , _upOAuthToken :: !(Maybe OAuthToken)
73− , _upUserKey :: !Text
56+ , _upUserKey :: !Text
74− , _upFields :: !(Maybe Text)
75 } deriving (Eq,Show,Data,Typeable,Generic)
57 } deriving (Eq,Show,Data,Typeable,Generic)
77-- | Creates a value of 'UsersPatch'' with the minimum fields required to make a request.
59-- | Creates a value of 'UsersPatch'' with the minimum fields required to make a request.
79-- Use one of the following lenses to modify other fields as desired:
61-- Use one of the following lenses to modify other fields as desired:
87-- * 'upPayload'
63-- * 'upPayload'
93-- * 'upUserKey'
65-- * 'upUserKey'
96usersPatch'
66usersPatch'
97 :: User -- ^ 'payload'
67 :: User -- ^ 'payload'
98 -> Text -- ^ 'userKey'
68 -> Text -- ^ 'userKey'
99 -> UsersPatch'
69 -> UsersPatch'
100usersPatch' pUpPayload_ pUpUserKey_ =
70usersPatch' pUpPayload_ pUpUserKey_ =
101 UsersPatch'
71 UsersPatch'
102− { _upQuotaUser = Nothing
103− , _upPrettyPrint = True
104− , _upUserIP = Nothing
105− , _upPayload = pUpPayload_
72+ { _upPayload = pUpPayload_
107− , _upOAuthToken = Nothing
108 , _upUserKey = pUpUserKey_
73 , _upUserKey = pUpUserKey_
109− , _upFields = Nothing
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)
117− = lens _upQuotaUser (\ s a -> s{_upQuotaUser = a})
119−-- | Returns response with indentations and line breaks.
120−upPrettyPrint :: Lens' UsersPatch' Bool
122− = lens _upPrettyPrint
123− (\ s a -> s{_upPrettyPrint = a})
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})
130-- | Multipart request metadata.
76-- | Multipart request metadata.
131upPayload :: Lens' UsersPatch' User
77upPayload :: Lens' UsersPatch' User
133 = lens _upPayload (\ s a -> s{_upPayload = a})
79 = lens _upPayload (\ s a -> s{_upPayload = a})
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
138−upKey :: Lens' UsersPatch' (Maybe AuthKey)
139−upKey = lens _upKey (\ s a -> s{_upKey = a})
141−-- | OAuth 2.0 token for the current user.
142−upOAuthToken :: Lens' UsersPatch' (Maybe OAuthToken)
144− = lens _upOAuthToken (\ s a -> s{_upOAuthToken = a})
146-- | Email or immutable Id of the user. If Id, it should match with id of
81-- | Email or immutable Id of the user. If Id, it should match with id of
147-- user object
82-- user object
148upUserKey :: Lens' UsersPatch' Text
83upUserKey :: Lens' UsersPatch' Text
150 = lens _upUserKey (\ s a -> s{_upUserKey = a})
85 = lens _upUserKey (\ s a -> s{_upUserKey = a})
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})
156−instance GoogleAuth UsersPatch' where
157− _AuthKey = upKey . _Just
158− _AuthToken = upOAuthToken . _Just
160instance GoogleRequest UsersPatch' where
87instance GoogleRequest UsersPatch' where
161 type Rs UsersPatch' = User
88 type Rs UsersPatch' = User
162− request = requestWith directoryRequest
163− requestWith rq UsersPatch'{..}
89+ requestClient UsersPatch'{..}
164− = go _upUserKey _upQuotaUser (Just _upPrettyPrint)
169− (Just AltJSON)
90+ = go _upUserKey (Just AltJSON) _upPayload
170− _upPayload
91+ directoryService
172− = clientBuild (Proxy :: Proxy UsersPatchResource) rq
93+ = buildClient (Proxy :: Proxy UsersPatchResource)
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
33 , UsersPhotosDelete'
33 , UsersPhotosDelete'
35 -- * Request Lenses
35 -- * Request Lenses
41 , updUserKey
36 , updUserKey
45import Network.Google.Directory.Types
39import Network.Google.Directory.Types
@@ -52,114 +46,38 @@ type UsersPhotosDeleteResource =
52 Capture "userKey" Text :>
46 Capture "userKey" Text :>
53 "photos" :>
47 "photos" :>
54 "thumbnail" :>
48 "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] ()
63-- | Remove photos for the user
51-- | Remove photos for the user
65-- /See:/ 'usersPhotosDelete'' smart constructor.
53-- /See:/ 'usersPhotosDelete'' smart constructor.
66−data UsersPhotosDelete' = UsersPhotosDelete'
54+newtype UsersPhotosDelete' = UsersPhotosDelete'
67− { _updQuotaUser :: !(Maybe Text)
68− , _updPrettyPrint :: !Bool
69− , _updUserIP :: !(Maybe Text)
70− , _updKey :: !(Maybe AuthKey)
71− , _updOAuthToken :: !(Maybe OAuthToken)
72− , _updUserKey :: !Text
55+ { _updUserKey :: Text
73− , _updFields :: !(Maybe Text)
74 } deriving (Eq,Show,Data,Typeable,Generic)
56 } deriving (Eq,Show,Data,Typeable,Generic)
76-- | Creates a value of 'UsersPhotosDelete'' with the minimum fields required to make a request.
58-- | Creates a value of 'UsersPhotosDelete'' with the minimum fields required to make a request.
78-- Use one of the following lenses to modify other fields as desired:
60-- Use one of the following lenses to modify other fields as desired:
90-- * 'updUserKey'
62-- * 'updUserKey'
93usersPhotosDelete'
63usersPhotosDelete'
94 :: Text -- ^ 'userKey'
64 :: Text -- ^ 'userKey'
95 -> UsersPhotosDelete'
65 -> UsersPhotosDelete'
96usersPhotosDelete' pUpdUserKey_ =
66usersPhotosDelete' pUpdUserKey_ =
97 UsersPhotosDelete'
67 UsersPhotosDelete'
98− { _updQuotaUser = Nothing
99− , _updPrettyPrint = True
100− , _updUserIP = Nothing
102− , _updOAuthToken = Nothing
103− , _updUserKey = pUpdUserKey_
68+ { _updUserKey = pUpdUserKey_
104− , _updFields = Nothing
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)
112− = lens _updQuotaUser (\ s a -> s{_updQuotaUser = a})
114−-- | Returns response with indentations and line breaks.
115−updPrettyPrint :: Lens' UsersPhotosDelete' Bool
117− = lens _updPrettyPrint
118− (\ s a -> s{_updPrettyPrint = a})
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)
124− = lens _updUserIP (\ s a -> s{_updUserIP = a})
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
129−updKey :: Lens' UsersPhotosDelete' (Maybe AuthKey)
130−updKey = lens _updKey (\ s a -> s{_updKey = a})
132−-- | OAuth 2.0 token for the current user.
133−updOAuthToken :: Lens' UsersPhotosDelete' (Maybe OAuthToken)
135− = lens _updOAuthToken
136− (\ s a -> s{_updOAuthToken = a})
138-- | Email or immutable Id of the user
71-- | Email or immutable Id of the user
139updUserKey :: Lens' UsersPhotosDelete' Text
72updUserKey :: Lens' UsersPhotosDelete' Text
140updUserKey
73updUserKey
141 = lens _updUserKey (\ s a -> s{_updUserKey = a})
74 = lens _updUserKey (\ s a -> s{_updUserKey = a})
143−-- | Selector specifying which fields to include in a partial response.
144−updFields :: Lens' UsersPhotosDelete' (Maybe Text)
146− = lens _updFields (\ s a -> s{_updFields = a})
148−instance GoogleAuth UsersPhotosDelete' where
149− _AuthKey = updKey . _Just
150− _AuthToken = updOAuthToken . _Just
152instance GoogleRequest UsersPhotosDelete' where
76instance GoogleRequest UsersPhotosDelete' where
153 type Rs UsersPhotosDelete' = ()
77 type Rs UsersPhotosDelete' = ()
154− request = requestWith directoryRequest
155− requestWith rq UsersPhotosDelete'{..}
78+ requestClient UsersPhotosDelete'{..}
156− = go _updUserKey _updQuotaUser (Just _updPrettyPrint)
161− (Just AltJSON)
79+ = go _updUserKey (Just AltJSON) directoryService
163− = clientBuild
81+ = buildClient
164 (Proxy :: Proxy UsersPhotosDeleteResource)
82 (Proxy :: Proxy UsersPhotosDeleteResource)
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
33 , UsersPhotosGet'
33 , UsersPhotosGet'
35 -- * Request Lenses
35 -- * Request Lenses
41 , upgUserKey
36 , upgUserKey
45import Network.Google.Directory.Types
39import Network.Google.Directory.Types
@@ -52,113 +46,37 @@ type UsersPhotosGetResource =
52 Capture "userKey" Text :>
46 Capture "userKey" Text :>
53 "photos" :>
47 "photos" :>
54 "thumbnail" :>
48 "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
63-- | Retrieve photo of a user
51-- | Retrieve photo of a user
65-- /See:/ 'usersPhotosGet'' smart constructor.
53-- /See:/ 'usersPhotosGet'' smart constructor.
66−data UsersPhotosGet' = UsersPhotosGet'
54+newtype UsersPhotosGet' = UsersPhotosGet'
67− { _upgQuotaUser :: !(Maybe Text)
68− , _upgPrettyPrint :: !Bool
69− , _upgUserIP :: !(Maybe Text)
70− , _upgKey :: !(Maybe AuthKey)
71− , _upgOAuthToken :: !(Maybe OAuthToken)
72− , _upgUserKey :: !Text
55+ { _upgUserKey :: Text
73− , _upgFields :: !(Maybe Text)
74 } deriving (Eq,Show,Data,Typeable,Generic)
56 } deriving (Eq,Show,Data,Typeable,Generic)
76-- | Creates a value of 'UsersPhotosGet'' with the minimum fields required to make a request.
58-- | Creates a value of 'UsersPhotosGet'' with the minimum fields required to make a request.
78-- Use one of the following lenses to modify other fields as desired:
60-- Use one of the following lenses to modify other fields as desired:
90-- * 'upgUserKey'
62-- * 'upgUserKey'
93usersPhotosGet'
63usersPhotosGet'
94 :: Text -- ^ 'userKey'
64 :: Text -- ^ 'userKey'
95 -> UsersPhotosGet'
65 -> UsersPhotosGet'
96usersPhotosGet' pUpgUserKey_ =
66usersPhotosGet' pUpgUserKey_ =
97 UsersPhotosGet'
67 UsersPhotosGet'
98− { _upgQuotaUser = Nothing
99− , _upgPrettyPrint = True
100− , _upgUserIP = Nothing
102− , _upgOAuthToken = Nothing
103− , _upgUserKey = pUpgUserKey_
68+ { _upgUserKey = pUpgUserKey_
104− , _upgFields = Nothing
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)
112− = lens _upgQuotaUser (\ s a -> s{_upgQuotaUser = a})
114−-- | Returns response with indentations and line breaks.
115−upgPrettyPrint :: Lens' UsersPhotosGet' Bool
117− = lens _upgPrettyPrint
118− (\ s a -> s{_upgPrettyPrint = a})
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)
124− = lens _upgUserIP (\ s a -> s{_upgUserIP = a})
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
129−upgKey :: Lens' UsersPhotosGet' (Maybe AuthKey)
130−upgKey = lens _upgKey (\ s a -> s{_upgKey = a})
132−-- | OAuth 2.0 token for the current user.
133−upgOAuthToken :: Lens' UsersPhotosGet' (Maybe OAuthToken)
135− = lens _upgOAuthToken
136− (\ s a -> s{_upgOAuthToken = a})
138-- | Email or immutable Id of the user
71-- | Email or immutable Id of the user
139upgUserKey :: Lens' UsersPhotosGet' Text
72upgUserKey :: Lens' UsersPhotosGet' Text
140upgUserKey
73upgUserKey
141 = lens _upgUserKey (\ s a -> s{_upgUserKey = a})
74 = lens _upgUserKey (\ s a -> s{_upgUserKey = a})
143−-- | Selector specifying which fields to include in a partial response.
144−upgFields :: Lens' UsersPhotosGet' (Maybe Text)
146− = lens _upgFields (\ s a -> s{_upgFields = a})
148−instance GoogleAuth UsersPhotosGet' where
149− _AuthKey = upgKey . _Just
150− _AuthToken = upgOAuthToken . _Just
152instance GoogleRequest UsersPhotosGet' where
76instance GoogleRequest UsersPhotosGet' where
153 type Rs UsersPhotosGet' = UserPhoto
77 type Rs UsersPhotosGet' = UserPhoto
154− request = requestWith directoryRequest
155− requestWith rq UsersPhotosGet'{..}
78+ requestClient UsersPhotosGet'{..}
156− = go _upgUserKey _upgQuotaUser (Just _upgPrettyPrint)
161− (Just AltJSON)
79+ = go _upgUserKey (Just AltJSON) directoryService
163− = clientBuild (Proxy :: Proxy UsersPhotosGetResource)
81+ = buildClient (Proxy :: Proxy UsersPhotosGetResource)
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
33 , UsersPhotosPatch'
33 , UsersPhotosPatch'
35 -- * Request Lenses
35 -- * Request Lenses
39 , uppPayload
36 , uppPayload
42 , uppUserKey
37 , uppUserKey
46import Network.Google.Directory.Types
40import Network.Google.Directory.Types
@@ -53,126 +47,50 @@ type UsersPhotosPatchResource =
53 Capture "userKey" Text :>
47 Capture "userKey" Text :>
54 "photos" :>
48 "photos" :>
55 "thumbnail" :>
49 "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 :>
50+ QueryParam "alt" AltJSON :>
63− ReqBody '[JSON] UserPhoto :> Patch '[JSON] UserPhoto
51+ ReqBody '[JSON] UserPhoto :> Patch '[JSON] UserPhoto
65-- | Add a photo for the user. This method supports patch semantics.
53-- | Add a photo for the user. This method supports patch semantics.
67-- /See:/ 'usersPhotosPatch'' smart constructor.
55-- /See:/ 'usersPhotosPatch'' smart constructor.
68data UsersPhotosPatch' = UsersPhotosPatch'
56data UsersPhotosPatch' = UsersPhotosPatch'
69− { _uppQuotaUser :: !(Maybe Text)
70− , _uppPrettyPrint :: !Bool
71− , _uppUserIP :: !(Maybe Text)
72− , _uppPayload :: !UserPhoto
57+ { _uppPayload :: !UserPhoto
73− , _uppKey :: !(Maybe AuthKey)
74− , _uppOAuthToken :: !(Maybe OAuthToken)
75− , _uppUserKey :: !Text
58+ , _uppUserKey :: !Text
76− , _uppFields :: !(Maybe Text)
77 } deriving (Eq,Show,Data,Typeable,Generic)
59 } deriving (Eq,Show,Data,Typeable,Generic)
79-- | Creates a value of 'UsersPhotosPatch'' with the minimum fields required to make a request.
61-- | Creates a value of 'UsersPhotosPatch'' with the minimum fields required to make a request.
81-- Use one of the following lenses to modify other fields as desired:
63-- Use one of the following lenses to modify other fields as desired:
89-- * 'uppPayload'
65-- * 'uppPayload'
95-- * 'uppUserKey'
67-- * 'uppUserKey'
98usersPhotosPatch'
68usersPhotosPatch'
99 :: UserPhoto -- ^ 'payload'
69 :: UserPhoto -- ^ 'payload'
100 -> Text -- ^ 'userKey'
70 -> Text -- ^ 'userKey'
101 -> UsersPhotosPatch'
71 -> UsersPhotosPatch'
102usersPhotosPatch' pUppPayload_ pUppUserKey_ =
72usersPhotosPatch' pUppPayload_ pUppUserKey_ =
103 UsersPhotosPatch'
73 UsersPhotosPatch'
104− { _uppQuotaUser = Nothing
105− , _uppPrettyPrint = True
106− , _uppUserIP = Nothing
107− , _uppPayload = pUppPayload_
74+ { _uppPayload = pUppPayload_
109− , _uppOAuthToken = Nothing
110 , _uppUserKey = pUppUserKey_
75 , _uppUserKey = pUppUserKey_
111− , _uppFields = Nothing
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)
119− = lens _uppQuotaUser (\ s a -> s{_uppQuotaUser = a})
121−-- | Returns response with indentations and line breaks.
122−uppPrettyPrint :: Lens' UsersPhotosPatch' Bool
124− = lens _uppPrettyPrint
125− (\ s a -> s{_uppPrettyPrint = a})
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)
131− = lens _uppUserIP (\ s a -> s{_uppUserIP = a})
133-- | Multipart request metadata.
78-- | Multipart request metadata.
134uppPayload :: Lens' UsersPhotosPatch' UserPhoto
79uppPayload :: Lens' UsersPhotosPatch' UserPhoto
135uppPayload
80uppPayload
136 = lens _uppPayload (\ s a -> s{_uppPayload = a})
81 = lens _uppPayload (\ s a -> s{_uppPayload = a})
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
141−uppKey :: Lens' UsersPhotosPatch' (Maybe AuthKey)
142−uppKey = lens _uppKey (\ s a -> s{_uppKey = a})
144−-- | OAuth 2.0 token for the current user.
145−uppOAuthToken :: Lens' UsersPhotosPatch' (Maybe OAuthToken)
147− = lens _uppOAuthToken
148− (\ s a -> s{_uppOAuthToken = a})
150-- | Email or immutable Id of the user
83-- | Email or immutable Id of the user
151uppUserKey :: Lens' UsersPhotosPatch' Text
84uppUserKey :: Lens' UsersPhotosPatch' Text
152uppUserKey
85uppUserKey
153 = lens _uppUserKey (\ s a -> s{_uppUserKey = a})
86 = lens _uppUserKey (\ s a -> s{_uppUserKey = a})
155−-- | Selector specifying which fields to include in a partial response.
156−uppFields :: Lens' UsersPhotosPatch' (Maybe Text)
158− = lens _uppFields (\ s a -> s{_uppFields = a})
160−instance GoogleAuth UsersPhotosPatch' where
161− _AuthKey = uppKey . _Just
162− _AuthToken = uppOAuthToken . _Just
164instance GoogleRequest UsersPhotosPatch' where
88instance GoogleRequest UsersPhotosPatch' where
165 type Rs UsersPhotosPatch' = UserPhoto
89 type Rs UsersPhotosPatch' = UserPhoto
166− request = requestWith directoryRequest
167− requestWith rq UsersPhotosPatch'{..}
90+ requestClient UsersPhotosPatch'{..}
168− = go _uppUserKey _uppQuotaUser (Just _uppPrettyPrint)
173− (Just AltJSON)
91+ = go _uppUserKey (Just AltJSON) _uppPayload
174− _uppPayload
92+ directoryService
176− = clientBuild
94+ = buildClient
177 (Proxy :: Proxy UsersPhotosPatchResource)
95 (Proxy :: Proxy UsersPhotosPatchResource)
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
33 , UsersPhotosUpdate'
33 , UsersPhotosUpdate'
35 -- * Request Lenses
35 -- * Request Lenses
39 , upuPayload
36 , upuPayload
42 , upuUserKey
37 , upuUserKey
46import Network.Google.Directory.Types
40import Network.Google.Directory.Types
@@ -53,126 +47,50 @@ type UsersPhotosUpdateResource =
53 Capture "userKey" Text :>
47 Capture "userKey" Text :>
54 "photos" :>
48 "photos" :>
55 "thumbnail" :>
49 "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 :>
50+ QueryParam "alt" AltJSON :>
63− ReqBody '[JSON] UserPhoto :> Put '[JSON] UserPhoto
51+ ReqBody '[JSON] UserPhoto :> Put '[JSON] UserPhoto
65-- | Add a photo for the user
53-- | Add a photo for the user
67-- /See:/ 'usersPhotosUpdate'' smart constructor.
55-- /See:/ 'usersPhotosUpdate'' smart constructor.
68data UsersPhotosUpdate' = UsersPhotosUpdate'
56data UsersPhotosUpdate' = UsersPhotosUpdate'
69− { _upuQuotaUser :: !(Maybe Text)
70− , _upuPrettyPrint :: !Bool
71− , _upuUserIP :: !(Maybe Text)
72− , _upuPayload :: !UserPhoto
57+ { _upuPayload :: !UserPhoto
73− , _upuKey :: !(Maybe AuthKey)
74− , _upuOAuthToken :: !(Maybe OAuthToken)
75− , _upuUserKey :: !Text
58+ , _upuUserKey :: !Text
76− , _upuFields :: !(Maybe Text)
77 } deriving (Eq,Show,Data,Typeable,Generic)
59 } deriving (Eq,Show,Data,Typeable,Generic)
79-- | Creates a value of 'UsersPhotosUpdate'' with the minimum fields required to make a request.
61-- | Creates a value of 'UsersPhotosUpdate'' with the minimum fields required to make a request.
81-- Use one of the following lenses to modify other fields as desired:
63-- Use one of the following lenses to modify other fields as desired:
89-- * 'upuPayload'
65-- * 'upuPayload'
95-- * 'upuUserKey'
67-- * 'upuUserKey'
98usersPhotosUpdate'
68usersPhotosUpdate'
99 :: UserPhoto -- ^ 'payload'
69 :: UserPhoto -- ^ 'payload'
100 -> Text -- ^ 'userKey'
70 -> Text -- ^ 'userKey'
101 -> UsersPhotosUpdate'
71 -> UsersPhotosUpdate'
102usersPhotosUpdate' pUpuPayload_ pUpuUserKey_ =
72usersPhotosUpdate' pUpuPayload_ pUpuUserKey_ =
103 UsersPhotosUpdate'
73 UsersPhotosUpdate'
104− { _upuQuotaUser = Nothing
105− , _upuPrettyPrint = True
106− , _upuUserIP = Nothing
107− , _upuPayload = pUpuPayload_
74+ { _upuPayload = pUpuPayload_
109− , _upuOAuthToken = Nothing
110 , _upuUserKey = pUpuUserKey_
75 , _upuUserKey = pUpuUserKey_
111− , _upuFields = Nothing
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)
119− = lens _upuQuotaUser (\ s a -> s{_upuQuotaUser = a})
121−-- | Returns response with indentations and line breaks.
122−upuPrettyPrint :: Lens' UsersPhotosUpdate' Bool
124− = lens _upuPrettyPrint
125− (\ s a -> s{_upuPrettyPrint = a})
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)
131− = lens _upuUserIP (\ s a -> s{_upuUserIP = a})
133-- | Multipart request metadata.
78-- | Multipart request metadata.
134upuPayload :: Lens' UsersPhotosUpdate' UserPhoto
79upuPayload :: Lens' UsersPhotosUpdate' UserPhoto
135upuPayload
80upuPayload
136 = lens _upuPayload (\ s a -> s{_upuPayload = a})
81 = lens _upuPayload (\ s a -> s{_upuPayload = a})
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
141−upuKey :: Lens' UsersPhotosUpdate' (Maybe AuthKey)
142−upuKey = lens _upuKey (\ s a -> s{_upuKey = a})
144−-- | OAuth 2.0 token for the current user.
145−upuOAuthToken :: Lens' UsersPhotosUpdate' (Maybe OAuthToken)
147− = lens _upuOAuthToken
148− (\ s a -> s{_upuOAuthToken = a})
150-- | Email or immutable Id of the user
83-- | Email or immutable Id of the user
151upuUserKey :: Lens' UsersPhotosUpdate' Text
84upuUserKey :: Lens' UsersPhotosUpdate' Text
152upuUserKey
85upuUserKey
153 = lens _upuUserKey (\ s a -> s{_upuUserKey = a})
86 = lens _upuUserKey (\ s a -> s{_upuUserKey = a})
155−-- | Selector specifying which fields to include in a partial response.
156−upuFields :: Lens' UsersPhotosUpdate' (Maybe Text)
158− = lens _upuFields (\ s a -> s{_upuFields = a})
160−instance GoogleAuth UsersPhotosUpdate' where
161− _AuthKey = upuKey . _Just
162− _AuthToken = upuOAuthToken . _Just
164instance GoogleRequest UsersPhotosUpdate' where
88instance GoogleRequest UsersPhotosUpdate' where
165 type Rs UsersPhotosUpdate' = UserPhoto
89 type Rs UsersPhotosUpdate' = UserPhoto
166− request = requestWith directoryRequest
167− requestWith rq UsersPhotosUpdate'{..}
90+ requestClient UsersPhotosUpdate'{..}
168− = go _upuUserKey _upuQuotaUser (Just _upuPrettyPrint)
173− (Just AltJSON)
91+ = go _upuUserKey (Just AltJSON) _upuPayload
174− _upuPayload
92+ directoryService
176− = clientBuild
94+ = buildClient
177 (Proxy :: Proxy UsersPhotosUpdateResource)
95 (Proxy :: Proxy UsersPhotosUpdateResource)
gogol-admin-directory/gen/Network/Google/Resource/Directory/Users/Undelete.hs+10−88
@@ -33,14 +33,8 @@ module Network.Google.Resource.Directory.Users.Undelete
33 , UsersUndelete'
33 , UsersUndelete'
35 -- * Request Lenses
35 -- * Request Lenses
39 , uPayload
36 , uPayload
42 , uUserKey
37 , uUserKey
46import Network.Google.Directory.Types
40import Network.Google.Directory.Types
@@ -52,119 +46,47 @@ type UsersUndeleteResource =
52 "users" :>
46 "users" :>
53 Capture "userKey" Text :>
47 Capture "userKey" Text :>
54 "undelete" :>
48 "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 :>
49+ QueryParam "alt" AltJSON :>
62− ReqBody '[JSON] UserUndelete :> Post '[JSON] ()
50+ ReqBody '[JSON] UserUndelete :> Post '[JSON] ()
64-- | Undelete a deleted user
52-- | Undelete a deleted user
66-- /See:/ 'usersUndelete'' smart constructor.
54-- /See:/ 'usersUndelete'' smart constructor.
67data UsersUndelete' = UsersUndelete'
55data UsersUndelete' = UsersUndelete'
68− { _uQuotaUser :: !(Maybe Text)
69− , _uPrettyPrint :: !Bool
70− , _uUserIP :: !(Maybe Text)
71− , _uPayload :: !UserUndelete
56+ { _uPayload :: !UserUndelete
72− , _uKey :: !(Maybe AuthKey)
73− , _uOAuthToken :: !(Maybe OAuthToken)
74− , _uUserKey :: !Text
57+ , _uUserKey :: !Text
75− , _uFields :: !(Maybe Text)
76 } deriving (Eq,Show,Data,Typeable,Generic)
58 } deriving (Eq,Show,Data,Typeable,Generic)
78-- | Creates a value of 'UsersUndelete'' with the minimum fields required to make a request.
60-- | Creates a value of 'UsersUndelete'' with the minimum fields required to make a request.
80-- Use one of the following lenses to modify other fields as desired:
62-- Use one of the following lenses to modify other fields as desired:
88-- * 'uPayload'
64-- * 'uPayload'
94-- * 'uUserKey'
66-- * 'uUserKey'
97usersUndelete'
67usersUndelete'
98 :: UserUndelete -- ^ 'payload'
68 :: UserUndelete -- ^ 'payload'
99 -> Text -- ^ 'userKey'
69 -> Text -- ^ 'userKey'
100 -> UsersUndelete'
70 -> UsersUndelete'
101usersUndelete' pUPayload_ pUUserKey_ =
71usersUndelete' pUPayload_ pUUserKey_ =
102 UsersUndelete'
72 UsersUndelete'
103− { _uQuotaUser = Nothing
104− , _uPrettyPrint = True
105− , _uUserIP = Nothing
106− , _uPayload = pUPayload_
73+ { _uPayload = pUPayload_
108− , _uOAuthToken = Nothing
109 , _uUserKey = pUUserKey_
74 , _uUserKey = pUUserKey_
110− , _uFields = Nothing
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)
118− = lens _uQuotaUser (\ s a -> s{_uQuotaUser = a})
120−-- | Returns response with indentations and line breaks.
121−uPrettyPrint :: Lens' UsersUndelete' Bool
123− = lens _uPrettyPrint (\ s a -> s{_uPrettyPrint = a})
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})
130-- | Multipart request metadata.
77-- | Multipart request metadata.
131uPayload :: Lens' UsersUndelete' UserUndelete
78uPayload :: Lens' UsersUndelete' UserUndelete
132uPayload = lens _uPayload (\ s a -> s{_uPayload = a})
79uPayload = lens _uPayload (\ s a -> s{_uPayload = a})
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
137−uKey :: Lens' UsersUndelete' (Maybe AuthKey)
138−uKey = lens _uKey (\ s a -> s{_uKey = a})
140−-- | OAuth 2.0 token for the current user.
141−uOAuthToken :: Lens' UsersUndelete' (Maybe OAuthToken)
143− = lens _uOAuthToken (\ s a -> s{_uOAuthToken = a})
145-- | The immutable id of the user
81-- | The immutable id of the user
146uUserKey :: Lens' UsersUndelete' Text
82uUserKey :: Lens' UsersUndelete' Text
147uUserKey = lens _uUserKey (\ s a -> s{_uUserKey = a})
83uUserKey = lens _uUserKey (\ s a -> s{_uUserKey = a})
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})
153−instance GoogleAuth UsersUndelete' where
154− _AuthKey = uKey . _Just
155− _AuthToken = uOAuthToken . _Just
157instance GoogleRequest UsersUndelete' where
85instance GoogleRequest UsersUndelete' where
158 type Rs UsersUndelete' = ()
86 type Rs UsersUndelete' = ()
159− request = requestWith directoryRequest
160− requestWith rq UsersUndelete'{..}
87+ requestClient UsersUndelete'{..}
161− = go _uUserKey _uQuotaUser (Just _uPrettyPrint)
166− (Just AltJSON)
88+ = go _uUserKey (Just AltJSON) _uPayload
167− _uPayload
89+ directoryService
169− = clientBuild (Proxy :: Proxy UsersUndeleteResource)
91+ = buildClient (Proxy :: Proxy UsersUndeleteResource)
gogol-admin-directory/gen/Network/Google/Resource/Directory/Users/Update.hs+10−88
@@ -33,14 +33,8 @@ module Network.Google.Resource.Directory.Users.Update
33 , UsersUpdate'
33 , UsersUpdate'
35 -- * Request Lenses
35 -- * Request Lenses
39 , uuPayload
36 , uuPayload
42 , uuUserKey
37 , uuUserKey
46import Network.Google.Directory.Types
40import Network.Google.Directory.Types
@@ -51,122 +45,50 @@ import Network.Google.Prelude
51type UsersUpdateResource =
45type UsersUpdateResource =
52 "users" :>
46 "users" :>
53 Capture "userKey" Text :>
47 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 :>
48+ QueryParam "alt" AltJSON :>
61− ReqBody '[JSON] User :> Put '[JSON] User
49+ ReqBody '[JSON] User :> Put '[JSON] User
63-- | update user
51-- | update user
65-- /See:/ 'usersUpdate'' smart constructor.
53-- /See:/ 'usersUpdate'' smart constructor.
66data UsersUpdate' = UsersUpdate'
54data UsersUpdate' = UsersUpdate'
67− { _uuQuotaUser :: !(Maybe Text)
68− , _uuPrettyPrint :: !Bool
69− , _uuUserIP :: !(Maybe Text)
70− , _uuPayload :: !User
55+ { _uuPayload :: !User
71− , _uuKey :: !(Maybe AuthKey)
72− , _uuOAuthToken :: !(Maybe OAuthToken)
73− , _uuUserKey :: !Text
56+ , _uuUserKey :: !Text
74− , _uuFields :: !(Maybe Text)
75 } deriving (Eq,Show,Data,Typeable,Generic)
57 } deriving (Eq,Show,Data,Typeable,Generic)
77-- | Creates a value of 'UsersUpdate'' with the minimum fields required to make a request.
59-- | Creates a value of 'UsersUpdate'' with the minimum fields required to make a request.
79-- Use one of the following lenses to modify other fields as desired:
61-- Use one of the following lenses to modify other fields as desired:
87-- * 'uuPayload'
63-- * 'uuPayload'
93-- * 'uuUserKey'
65-- * 'uuUserKey'
96usersUpdate'
66usersUpdate'
97 :: User -- ^ 'payload'
67 :: User -- ^ 'payload'
98 -> Text -- ^ 'userKey'
68 -> Text -- ^ 'userKey'
99 -> UsersUpdate'
69 -> UsersUpdate'
100usersUpdate' pUuPayload_ pUuUserKey_ =
70usersUpdate' pUuPayload_ pUuUserKey_ =
101 UsersUpdate'
71 UsersUpdate'
102− { _uuQuotaUser = Nothing
103− , _uuPrettyPrint = True
104− , _uuUserIP = Nothing
105− , _uuPayload = pUuPayload_
72+ { _uuPayload = pUuPayload_
107− , _uuOAuthToken = Nothing
108 , _uuUserKey = pUuUserKey_
73 , _uuUserKey = pUuUserKey_
109− , _uuFields = Nothing
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)
117− = lens _uuQuotaUser (\ s a -> s{_uuQuotaUser = a})
119−-- | Returns response with indentations and line breaks.
120−uuPrettyPrint :: Lens' UsersUpdate' Bool
122− = lens _uuPrettyPrint
123− (\ s a -> s{_uuPrettyPrint = a})
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})
130-- | Multipart request metadata.
76-- | Multipart request metadata.
131uuPayload :: Lens' UsersUpdate' User
77uuPayload :: Lens' UsersUpdate' User
133 = lens _uuPayload (\ s a -> s{_uuPayload = a})
79 = lens _uuPayload (\ s a -> s{_uuPayload = a})
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
138−uuKey :: Lens' UsersUpdate' (Maybe AuthKey)
139−uuKey = lens _uuKey (\ s a -> s{_uuKey = a})
141−-- | OAuth 2.0 token for the current user.
142−uuOAuthToken :: Lens' UsersUpdate' (Maybe OAuthToken)
144− = lens _uuOAuthToken (\ s a -> s{_uuOAuthToken = a})
146-- | Email or immutable Id of the user. If Id, it should match with id of
81-- | Email or immutable Id of the user. If Id, it should match with id of
147-- user object
82-- user object
148uuUserKey :: Lens' UsersUpdate' Text
83uuUserKey :: Lens' UsersUpdate' Text
150 = lens _uuUserKey (\ s a -> s{_uuUserKey = a})
85 = lens _uuUserKey (\ s a -> s{_uuUserKey = a})
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})
156−instance GoogleAuth UsersUpdate' where
157− _AuthKey = uuKey . _Just
158− _AuthToken = uuOAuthToken . _Just
160instance GoogleRequest UsersUpdate' where
87instance GoogleRequest UsersUpdate' where
161 type Rs UsersUpdate' = User
88 type Rs UsersUpdate' = User
162− request = requestWith directoryRequest
163− requestWith rq UsersUpdate'{..}
89+ requestClient UsersUpdate'{..}
164− = go _uuUserKey _uuQuotaUser (Just _uuPrettyPrint)
169− (Just AltJSON)
90+ = go _uuUserKey (Just AltJSON) _uuPayload
170− _uuPayload
91+ directoryService
172− = clientBuild (Proxy :: Proxy UsersUpdateResource) rq
93+ = buildClient (Proxy :: Proxy UsersUpdateResource)
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.