diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -8,7 +8,7 @@ ## Version -`0.3.0` +`0.5.0` ## Description diff --git a/gen/Network/Google/AndroidPublisher.hs b/gen/Network/Google/AndroidPublisher.hs --- a/gen/Network/Google/AndroidPublisher.hs +++ b/gen/Network/Google/AndroidPublisher.hs @@ -410,10 +410,17 @@ , trStatus , trReleaseNotes , trUserFraction + , trCountryTargeting , trName -- ** EditsImagesListImageType , EditsImagesListImageType (..) + + -- ** CountryTargeting + , CountryTargeting + , countryTargeting + , ctIncludeRestOfWorld + , ctCountries -- ** Bundle , Bundle diff --git a/gen/Network/Google/AndroidPublisher/Types.hs b/gen/Network/Google/AndroidPublisher/Types.hs --- a/gen/Network/Google/AndroidPublisher/Types.hs +++ b/gen/Network/Google/AndroidPublisher/Types.hs @@ -245,11 +245,18 @@ , trStatus , trReleaseNotes , trUserFraction + , trCountryTargeting , trName -- * EditsImagesListImageType , EditsImagesListImageType (..) + -- * CountryTargeting + , CountryTargeting + , countryTargeting + , ctIncludeRestOfWorld + , ctCountries + -- * Bundle , Bundle , bundle @@ -470,4 +477,4 @@ -- | View and manage your Google Play Developer account androidPublisherScope :: Proxy '["https://www.googleapis.com/auth/androidpublisher"] -androidPublisherScope = Proxy; +androidPublisherScope = Proxy diff --git a/gen/Network/Google/AndroidPublisher/Types/Product.hs b/gen/Network/Google/AndroidPublisher/Types/Product.hs --- a/gen/Network/Google/AndroidPublisher/Types/Product.hs +++ b/gen/Network/Google/AndroidPublisher/Types/Product.hs @@ -23,10 +23,13 @@ -- | List of localized title and description data. -- -- /See:/ 'inAppProductListings' smart constructor. -newtype InAppProductListings = InAppProductListings' +newtype InAppProductListings = + InAppProductListings' { _iaplAddtional :: HashMap Text InAppProductListing - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'InAppProductListings' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -36,10 +39,9 @@ :: HashMap Text InAppProductListing -- ^ 'iaplAddtional' -> InAppProductListings inAppProductListings pIaplAddtional_ = - InAppProductListings' - { _iaplAddtional = _Coerce # pIaplAddtional_ - } + InAppProductListings' {_iaplAddtional = _Coerce # pIaplAddtional_} + -- | The language of the localized data, as defined by BCP 47. i.e.: -- \"en-US\", \"en-GB\". iaplAddtional :: Lens' InAppProductListings (HashMap Text InAppProductListing) @@ -59,11 +61,14 @@ -- -- /See:/ 'monthDay' smart constructor. -data MonthDay = MonthDay' +data MonthDay = + MonthDay' { _mdDay :: !(Maybe (Textual Word32)) , _mdMonth :: !(Maybe (Textual Word32)) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'MonthDay' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -73,12 +78,9 @@ -- * 'mdMonth' monthDay :: MonthDay -monthDay = - MonthDay' - { _mdDay = Nothing - , _mdMonth = Nothing - } +monthDay = MonthDay' {_mdDay = Nothing, _mdMonth = Nothing} + -- | Day of a month, value in [1, 31] range. Valid range depends on the -- specified month. mdDay :: Lens' MonthDay (Maybe Word32) @@ -106,11 +108,14 @@ -- -- /See:/ 'track' smart constructor. -data Track = Track' +data Track = + Track' { _tTrack :: !(Maybe Text) , _tReleases :: !(Maybe [TrackRelease]) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Track' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -120,12 +125,9 @@ -- * 'tReleases' track :: Track -track = - Track' - { _tTrack = Nothing - , _tReleases = Nothing - } +track = Track' {_tTrack = Nothing, _tReleases = Nothing} + -- | Identifier for this track. tTrack :: Lens' Track (Maybe Text) tTrack = lens _tTrack (\ s a -> s{_tTrack = a}) @@ -154,12 +156,15 @@ -- -- /See:/ 'image' smart constructor. -data Image = Image' +data Image = + Image' { _iURL :: !(Maybe Text) , _iSha1 :: !(Maybe Text) , _iId :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Image' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -171,13 +176,9 @@ -- * 'iId' image :: Image -image = - Image' - { _iURL = Nothing - , _iSha1 = Nothing - , _iId = Nothing - } +image = Image' {_iURL = Nothing, _iSha1 = Nothing, _iId = Nothing} + -- | A URL that will serve a preview of the image. iURL :: Lens' Image (Maybe Text) iURL = lens _iURL (\ s a -> s{_iURL = a}) @@ -206,11 +207,14 @@ -- -- /See:/ 'inAppProductListing' smart constructor. -data InAppProductListing = InAppProductListing' +data InAppProductListing = + InAppProductListing' { _iaplTitle :: !(Maybe Text) , _iaplDescription :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'InAppProductListing' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -221,11 +225,9 @@ inAppProductListing :: InAppProductListing inAppProductListing = - InAppProductListing' - { _iaplTitle = Nothing - , _iaplDescription = Nothing - } + InAppProductListing' {_iaplTitle = Nothing, _iaplDescription = Nothing} + iaplTitle :: Lens' InAppProductListing (Maybe Text) iaplTitle = lens _iaplTitle (\ s a -> s{_iaplTitle = a}) @@ -251,10 +253,13 @@ -- -- /See:/ 'imagesDeleteAllResponse' smart constructor. -newtype ImagesDeleteAllResponse = ImagesDeleteAllResponse' +newtype ImagesDeleteAllResponse = + ImagesDeleteAllResponse' { _idarDeleted :: Maybe [Image] - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ImagesDeleteAllResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -262,11 +267,9 @@ -- * 'idarDeleted' imagesDeleteAllResponse :: ImagesDeleteAllResponse -imagesDeleteAllResponse = - ImagesDeleteAllResponse' - { _idarDeleted = Nothing - } +imagesDeleteAllResponse = ImagesDeleteAllResponse' {_idarDeleted = Nothing} + idarDeleted :: Lens' ImagesDeleteAllResponse [Image] idarDeleted = lens _idarDeleted (\ s a -> s{_idarDeleted = a}) . @@ -287,11 +290,14 @@ -- -- /See:/ 'tokenPagination' smart constructor. -data TokenPagination = TokenPagination' +data TokenPagination = + TokenPagination' { _tpNextPageToken :: !(Maybe Text) , _tpPreviousPageToken :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'TokenPagination' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -302,11 +308,9 @@ tokenPagination :: TokenPagination tokenPagination = - TokenPagination' - { _tpNextPageToken = Nothing - , _tpPreviousPageToken = Nothing - } + TokenPagination' {_tpNextPageToken = Nothing, _tpPreviousPageToken = Nothing} + tpNextPageToken :: Lens' TokenPagination (Maybe Text) tpNextPageToken = lens _tpNextPageToken @@ -334,11 +338,14 @@ -- -- /See:/ 'expansionFile' smart constructor. -data ExpansionFile = ExpansionFile' +data ExpansionFile = + ExpansionFile' { _efFileSize :: !(Maybe (Textual Int64)) , _efReferencesVersion :: !(Maybe (Textual Int32)) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ExpansionFile' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -349,11 +356,9 @@ expansionFile :: ExpansionFile expansionFile = - ExpansionFile' - { _efFileSize = Nothing - , _efReferencesVersion = Nothing - } + ExpansionFile' {_efFileSize = Nothing, _efReferencesVersion = Nothing} + -- | If set this field indicates that this APK has an Expansion File uploaded -- to it: this APK does not reference another APK\'s Expansion File. The -- field\'s value is the size of the uploaded Expansion File in bytes. @@ -386,7 +391,8 @@ -- -- /See:/ 'userComment' smart constructor. -data UserComment = UserComment' +data UserComment = + UserComment' { _ucAndroidOSVersion :: !(Maybe (Textual Int32)) , _ucText :: !(Maybe Text) , _ucDevice :: !(Maybe Text) @@ -399,8 +405,10 @@ , _ucDeviceMetadata :: !(Maybe DeviceMetadata) , _ucStarRating :: !(Maybe (Textual Int32)) , _ucLastModified :: !(Maybe Timestamp) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UserComment' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -431,7 +439,7 @@ userComment :: UserComment userComment = - UserComment' + UserComment' { _ucAndroidOSVersion = Nothing , _ucText = Nothing , _ucDevice = Nothing @@ -446,6 +454,7 @@ , _ucLastModified = Nothing } + -- | Integer Android SDK version of the user\'s device at the time the review -- was written, e.g. 23 is Marshmallow. May be absent. ucAndroidOSVersion :: Lens' UserComment (Maybe Int32) @@ -561,11 +570,14 @@ -- -- /See:/ 'testers' smart constructor. -data Testers = Testers' +data Testers = + Testers' { _tGooglePlusCommUnities :: !(Maybe [Text]) , _tGoogleGroups :: !(Maybe [Text]) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Testers' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -575,12 +587,9 @@ -- * 'tGoogleGroups' testers :: Testers -testers = - Testers' - { _tGooglePlusCommUnities = Nothing - , _tGoogleGroups = Nothing - } +testers = Testers' {_tGooglePlusCommUnities = Nothing, _tGoogleGroups = Nothing} + tGooglePlusCommUnities :: Lens' Testers [Text] tGooglePlusCommUnities = lens _tGooglePlusCommUnities @@ -615,11 +624,14 @@ -- cancellation flow (cancellation reason survey). -- -- /See:/ 'subscriptionCancelSurveyResult' smart constructor. -data SubscriptionCancelSurveyResult = SubscriptionCancelSurveyResult' +data SubscriptionCancelSurveyResult = + SubscriptionCancelSurveyResult' { _scsrCancelSurveyReason :: !(Maybe (Textual Int32)) , _scsrUserInputCancelReason :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'SubscriptionCancelSurveyResult' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -630,11 +642,10 @@ subscriptionCancelSurveyResult :: SubscriptionCancelSurveyResult subscriptionCancelSurveyResult = - SubscriptionCancelSurveyResult' - { _scsrCancelSurveyReason = Nothing - , _scsrUserInputCancelReason = Nothing - } + SubscriptionCancelSurveyResult' + {_scsrCancelSurveyReason = Nothing, _scsrUserInputCancelReason = Nothing} + -- | The cancellation reason the user chose in the survey. Possible values -- are: - Other - I don\'t use this service enough - Technical issues - -- Cost-related reasons - I found a better app @@ -671,14 +682,17 @@ -- -- /See:/ 'listing' smart constructor. -data Listing = Listing' +data Listing = + Listing' { _lFullDescription :: !(Maybe Text) , _lVideo :: !(Maybe Text) , _lShortDescription :: !(Maybe Text) , _lLanguage :: !(Maybe Text) , _lTitle :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Listing' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -695,7 +709,7 @@ listing :: Listing listing = - Listing' + Listing' { _lFullDescription = Nothing , _lVideo = Nothing , _lShortDescription = Nothing @@ -703,6 +717,7 @@ , _lTitle = Nothing } + -- | Full description of the app; this may be up to 4000 characters in -- length. lFullDescription :: Lens' Listing (Maybe Text) @@ -752,11 +767,14 @@ -- -- /See:/ 'aPK' smart constructor. -data APK = APK' +data APK = + APK' { _aVersionCode :: !(Maybe (Textual Int32)) , _aBinary :: !(Maybe APKBinary) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'APK' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -766,12 +784,9 @@ -- * 'aBinary' aPK :: APK -aPK = - APK' - { _aVersionCode = Nothing - , _aBinary = Nothing - } +aPK = APK' {_aVersionCode = Nothing, _aBinary = Nothing} + -- | The version code of the APK, as specified in the APK\'s manifest file. aVersionCode :: Lens' APK (Maybe Int32) aVersionCode @@ -797,10 +812,13 @@ -- -- /See:/ 'subscriptionPurchasesDeferRequest' smart constructor. -newtype SubscriptionPurchasesDeferRequest = SubscriptionPurchasesDeferRequest' +newtype SubscriptionPurchasesDeferRequest = + SubscriptionPurchasesDeferRequest' { _spdrDeferralInfo :: Maybe SubscriptionDeferralInfo - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'SubscriptionPurchasesDeferRequest' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -809,10 +827,9 @@ subscriptionPurchasesDeferRequest :: SubscriptionPurchasesDeferRequest subscriptionPurchasesDeferRequest = - SubscriptionPurchasesDeferRequest' - { _spdrDeferralInfo = Nothing - } + SubscriptionPurchasesDeferRequest' {_spdrDeferralInfo = Nothing} + -- | The information about the new desired expiry time for the subscription. spdrDeferralInfo :: Lens' SubscriptionPurchasesDeferRequest (Maybe SubscriptionDeferralInfo) spdrDeferralInfo @@ -836,11 +853,14 @@ -- -- /See:/ 'tracksListResponse' smart constructor. -data TracksListResponse = TracksListResponse' +data TracksListResponse = + TracksListResponse' { _tlrTracks :: !(Maybe [Track]) , _tlrKind :: !Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'TracksListResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -851,11 +871,10 @@ tracksListResponse :: TracksListResponse tracksListResponse = - TracksListResponse' - { _tlrTracks = Nothing - , _tlrKind = "androidpublisher#tracksListResponse" - } + TracksListResponse' + {_tlrTracks = Nothing, _tlrKind = "androidpublisher#tracksListResponse"} + tlrTracks :: Lens' TracksListResponse [Track] tlrTracks = lens _tlrTracks (\ s a -> s{_tlrTracks = a}) . @@ -885,12 +904,15 @@ -- -- /See:/ 'season' smart constructor. -data Season = Season' +data Season = + Season' { _sStart :: !(Maybe MonthDay) , _sEnd :: !(Maybe MonthDay) , _sProrations :: !(Maybe [Prorate]) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Season' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -902,13 +924,9 @@ -- * 'sProrations' season :: Season -season = - Season' - { _sStart = Nothing - , _sEnd = Nothing - , _sProrations = Nothing - } +season = Season' {_sStart = Nothing, _sEnd = Nothing, _sProrations = Nothing} + -- | Inclusive start date of the recurrence period. sStart :: Lens' Season (Maybe MonthDay) sStart = lens _sStart (\ s a -> s{_sStart = a}) @@ -944,12 +962,15 @@ -- -- /See:/ 'pageInfo' smart constructor. -data PageInfo = PageInfo' +data PageInfo = + PageInfo' { _piResultPerPage :: !(Maybe (Textual Int32)) , _piTotalResults :: !(Maybe (Textual Int32)) , _piStartIndex :: !(Maybe (Textual Int32)) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'PageInfo' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -962,12 +983,13 @@ pageInfo :: PageInfo pageInfo = - PageInfo' + PageInfo' { _piResultPerPage = Nothing , _piTotalResults = Nothing , _piStartIndex = Nothing } + piResultPerPage :: Lens' PageInfo (Maybe Int32) piResultPerPage = lens _piResultPerPage @@ -1003,10 +1025,13 @@ -- -- /See:/ 'imagesListResponse' smart constructor. -newtype ImagesListResponse = ImagesListResponse' +newtype ImagesListResponse = + ImagesListResponse' { _ilrImages :: Maybe [Image] - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ImagesListResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1014,11 +1039,9 @@ -- * 'ilrImages' imagesListResponse :: ImagesListResponse -imagesListResponse = - ImagesListResponse' - { _ilrImages = Nothing - } +imagesListResponse = ImagesListResponse' {_ilrImages = Nothing} + ilrImages :: Lens' ImagesListResponse [Image] ilrImages = lens _ilrImages (\ s a -> s{_ilrImages = a}) . @@ -1039,11 +1062,14 @@ -- changes before committing them in one operation. -- -- /See:/ 'appEdit' smart constructor. -data AppEdit = AppEdit' +data AppEdit = + AppEdit' { _aeId :: !(Maybe Text) , _aeExpiryTimeSeconds :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'AppEdit' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1053,12 +1079,9 @@ -- * 'aeExpiryTimeSeconds' appEdit :: AppEdit -appEdit = - AppEdit' - { _aeId = Nothing - , _aeExpiryTimeSeconds = Nothing - } +appEdit = AppEdit' {_aeId = Nothing, _aeExpiryTimeSeconds = Nothing} + -- | The ID of the edit that can be used in subsequent API calls. aeId :: Lens' AppEdit (Maybe Text) aeId = lens _aeId (\ s a -> s{_aeId = a}) @@ -1088,7 +1111,8 @@ -- product purchase. -- -- /See:/ 'productPurchase' smart constructor. -data ProductPurchase = ProductPurchase' +data ProductPurchase = + ProductPurchase' { _ppPurchaseState :: !(Maybe (Textual Int32)) , _ppConsumptionState :: !(Maybe (Textual Int32)) , _ppKind :: !Text @@ -1096,8 +1120,10 @@ , _ppPurchaseType :: !(Maybe (Textual Int32)) , _ppDeveloperPayload :: !(Maybe Text) , _ppOrderId :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProductPurchase' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1118,7 +1144,7 @@ productPurchase :: ProductPurchase productPurchase = - ProductPurchase' + ProductPurchase' { _ppPurchaseState = Nothing , _ppConsumptionState = Nothing , _ppKind = "androidpublisher#productPurchase" @@ -1128,6 +1154,7 @@ , _ppOrderId = Nothing } + -- | The purchase state of the order. Possible values are: - Purchased - -- Canceled ppPurchaseState :: Lens' ProductPurchase (Maybe Int32) @@ -1160,7 +1187,8 @@ -- | The type of purchase of the inapp product. This field is only set if -- this purchase was not made using the standard in-app billing flow. -- Possible values are: - Test (i.e. purchased from a license testing --- account) - Promo (i.e. purchased using a promo code) +-- account) - Promo (i.e. purchased using a promo code) - Rewarded (i.e. +-- from watching a video ad instead of paying) ppPurchaseType :: Lens' ProductPurchase (Maybe Int32) ppPurchaseType = lens _ppPurchaseType @@ -1207,12 +1235,15 @@ -- -- /See:/ 'reviewsListResponse' smart constructor. -data ReviewsListResponse = ReviewsListResponse' +data ReviewsListResponse = + ReviewsListResponse' { _rlrTokenPagination :: !(Maybe TokenPagination) , _rlrPageInfo :: !(Maybe PageInfo) , _rlrReviews :: !(Maybe [Review]) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ReviewsListResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1225,12 +1256,13 @@ reviewsListResponse :: ReviewsListResponse reviewsListResponse = - ReviewsListResponse' + ReviewsListResponse' { _rlrTokenPagination = Nothing , _rlrPageInfo = Nothing , _rlrReviews = Nothing } + rlrTokenPagination :: Lens' ReviewsListResponse (Maybe TokenPagination) rlrTokenPagination = lens _rlrTokenPagination @@ -1264,10 +1296,13 @@ -- -- /See:/ 'subscriptionPurchasesDeferResponse' smart constructor. -newtype SubscriptionPurchasesDeferResponse = SubscriptionPurchasesDeferResponse' +newtype SubscriptionPurchasesDeferResponse = + SubscriptionPurchasesDeferResponse' { _spdrNewExpiryTimeMillis :: Maybe (Textual Int64) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'SubscriptionPurchasesDeferResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1276,10 +1311,9 @@ subscriptionPurchasesDeferResponse :: SubscriptionPurchasesDeferResponse subscriptionPurchasesDeferResponse = - SubscriptionPurchasesDeferResponse' - { _spdrNewExpiryTimeMillis = Nothing - } + SubscriptionPurchasesDeferResponse' {_spdrNewExpiryTimeMillis = Nothing} + -- | The new expiry time for the subscription in milliseconds since the -- Epoch. spdrNewExpiryTimeMillis :: Lens' SubscriptionPurchasesDeferResponse (Maybe Int64) @@ -1308,7 +1342,8 @@ -- subscription purchase. -- -- /See:/ 'subscriptionPurchase' smart constructor. -data SubscriptionPurchase = SubscriptionPurchase' +data SubscriptionPurchase = + SubscriptionPurchase' { _spGivenName :: !(Maybe Text) , _spAutoResumeTimeMillis :: !(Maybe (Textual Int64)) , _spUserCancellationTimeMillis :: !(Maybe (Textual Int64)) @@ -1331,8 +1366,10 @@ , _spStartTimeMillis :: !(Maybe (Textual Int64)) , _spOrderId :: !(Maybe Text) , _spCancelSurveyResult :: !(Maybe SubscriptionCancelSurveyResult) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'SubscriptionPurchase' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1383,7 +1420,7 @@ subscriptionPurchase :: SubscriptionPurchase subscriptionPurchase = - SubscriptionPurchase' + SubscriptionPurchase' { _spGivenName = Nothing , _spAutoResumeTimeMillis = Nothing , _spUserCancellationTimeMillis = Nothing @@ -1408,6 +1445,7 @@ , _spCancelSurveyResult = Nothing } + -- | The given name of the user when the subscription was purchased. Only -- present for purchases made with \'Subscribe with Google\'. spGivenName :: Lens' SubscriptionPurchase (Maybe Text) @@ -1650,11 +1688,14 @@ -- the experience for a successful conversion. -- -- /See:/ 'subscriptionPriceChange' smart constructor. -data SubscriptionPriceChange = SubscriptionPriceChange' +data SubscriptionPriceChange = + SubscriptionPriceChange' { _spcState :: !(Maybe (Textual Int32)) , _spcNewPrice :: !(Maybe Price) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'SubscriptionPriceChange' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1665,11 +1706,9 @@ subscriptionPriceChange :: SubscriptionPriceChange subscriptionPriceChange = - SubscriptionPriceChange' - { _spcState = Nothing - , _spcNewPrice = Nothing - } + SubscriptionPriceChange' {_spcState = Nothing, _spcNewPrice = Nothing} + -- | The current state of the price change. Possible values are: - -- Outstanding: State for a pending price change waiting for the user to -- agree. In this state, you can optionally seek confirmation from the user @@ -1704,13 +1743,16 @@ -- -- /See:/ 'appDetails' smart constructor. -data AppDetails = AppDetails' +data AppDetails = + AppDetails' { _adContactPhone :: !(Maybe Text) , _adContactEmail :: !(Maybe Text) , _adContactWebsite :: !(Maybe Text) , _adDefaultLanguage :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'AppDetails' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1725,13 +1767,14 @@ appDetails :: AppDetails appDetails = - AppDetails' + AppDetails' { _adContactPhone = Nothing , _adContactEmail = Nothing , _adContactWebsite = Nothing , _adDefaultLanguage = Nothing } + -- | The user-visible support telephone number for this app. adContactPhone :: Lens' AppDetails (Maybe Text) adContactPhone @@ -1778,10 +1821,13 @@ -- products can never be free. -- -- /See:/ 'inAppProductPrices' smart constructor. -newtype InAppProductPrices = InAppProductPrices' +newtype InAppProductPrices = + InAppProductPrices' { _iAppAddtional :: HashMap Text Price - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'InAppProductPrices' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1791,10 +1837,9 @@ :: HashMap Text Price -- ^ 'iAppAddtional' -> InAppProductPrices inAppProductPrices pIAppAddtional_ = - InAppProductPrices' - { _iAppAddtional = _Coerce # pIAppAddtional_ - } + InAppProductPrices' {_iAppAddtional = _Coerce # pIAppAddtional_} + -- | Region code, as defined by ISO 3166-2. iAppAddtional :: Lens' InAppProductPrices (HashMap Text Price) iAppAddtional @@ -1816,7 +1861,8 @@ -- restricted to the enterprise private channel -- -- /See:/ 'externallyHostedAPK' smart constructor. -data ExternallyHostedAPK = ExternallyHostedAPK' +data ExternallyHostedAPK = + ExternallyHostedAPK' { _ehapkApplicationLabel :: !(Maybe Text) , _ehapkMaximumSdk :: !(Maybe (Textual Int32)) , _ehapkNATiveCodes :: !(Maybe [Text]) @@ -1832,8 +1878,10 @@ , _ehapkFileSha1Base64 :: !(Maybe Text) , _ehapkUsesPermissions :: !(Maybe [ExternallyHostedAPKUsesPermission]) , _ehapkCertificateBase64s :: !(Maybe [Text]) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ExternallyHostedAPK' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1870,7 +1918,7 @@ externallyHostedAPK :: ExternallyHostedAPK externallyHostedAPK = - ExternallyHostedAPK' + ExternallyHostedAPK' { _ehapkApplicationLabel = Nothing , _ehapkMaximumSdk = Nothing , _ehapkNATiveCodes = Nothing @@ -1888,6 +1936,7 @@ , _ehapkCertificateBase64s = Nothing } + -- | The application label. ehapkApplicationLabel :: Lens' ExternallyHostedAPK (Maybe Text) ehapkApplicationLabel @@ -2037,14 +2086,18 @@ -- -- /See:/ 'trackRelease' smart constructor. -data TrackRelease = TrackRelease' - { _trVersionCodes :: !(Maybe [Textual Int64]) - , _trStatus :: !(Maybe Text) - , _trReleaseNotes :: !(Maybe [LocalizedText]) - , _trUserFraction :: !(Maybe (Textual Double)) - , _trName :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) +data TrackRelease = + TrackRelease' + { _trVersionCodes :: !(Maybe [Textual Int64]) + , _trStatus :: !(Maybe Text) + , _trReleaseNotes :: !(Maybe [LocalizedText]) + , _trUserFraction :: !(Maybe (Textual Double)) + , _trCountryTargeting :: !(Maybe CountryTargeting) + , _trName :: !(Maybe Text) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'TrackRelease' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -2057,18 +2110,22 @@ -- -- * 'trUserFraction' -- +-- * 'trCountryTargeting' +-- -- * 'trName' trackRelease :: TrackRelease trackRelease = - TrackRelease' + TrackRelease' { _trVersionCodes = Nothing , _trStatus = Nothing , _trReleaseNotes = Nothing , _trUserFraction = Nothing + , _trCountryTargeting = Nothing , _trName = Nothing } + -- | A list of all version codes of APKs that will be exposed to the users of -- this track when this release is rolled out. Note that this list should -- contain all versions you wish to be active, including those you wish to @@ -2100,6 +2157,11 @@ (\ s a -> s{_trUserFraction = a}) . mapping _Coerce +trCountryTargeting :: Lens' TrackRelease (Maybe CountryTargeting) +trCountryTargeting + = lens _trCountryTargeting + (\ s a -> s{_trCountryTargeting = a}) + -- | The release name, used to identify this release in the Play Console UI. -- Not required to be unique. This is optional, if not set it will be -- generated from the version_name in the APKs. @@ -2115,6 +2177,7 @@ (o .:? "status") <*> (o .:? "releaseNotes" .!= mempty) <*> (o .:? "userFraction") + <*> (o .:? "countryTargeting") <*> (o .:? "name")) instance ToJSON TrackRelease where @@ -2125,16 +2188,69 @@ ("status" .=) <$> _trStatus, ("releaseNotes" .=) <$> _trReleaseNotes, ("userFraction" .=) <$> _trUserFraction, + ("countryTargeting" .=) <$> _trCountryTargeting, ("name" .=) <$> _trName]) -- +-- /See:/ 'countryTargeting' smart constructor. +data CountryTargeting = + CountryTargeting' + { _ctIncludeRestOfWorld :: !(Maybe Bool) + , _ctCountries :: !(Maybe [Text]) + } + deriving (Eq, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'CountryTargeting' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'ctIncludeRestOfWorld' +-- +-- * 'ctCountries' +countryTargeting + :: CountryTargeting +countryTargeting = + CountryTargeting' {_ctIncludeRestOfWorld = Nothing, _ctCountries = Nothing} + + +ctIncludeRestOfWorld :: Lens' CountryTargeting (Maybe Bool) +ctIncludeRestOfWorld + = lens _ctIncludeRestOfWorld + (\ s a -> s{_ctIncludeRestOfWorld = a}) + +ctCountries :: Lens' CountryTargeting [Text] +ctCountries + = lens _ctCountries (\ s a -> s{_ctCountries = a}) . + _Default + . _Coerce + +instance FromJSON CountryTargeting where + parseJSON + = withObject "CountryTargeting" + (\ o -> + CountryTargeting' <$> + (o .:? "includeRestOfWorld") <*> + (o .:? "countries" .!= mempty)) + +instance ToJSON CountryTargeting where + toJSON CountryTargeting'{..} + = object + (catMaybes + [("includeRestOfWorld" .=) <$> _ctIncludeRestOfWorld, + ("countries" .=) <$> _ctCountries]) + +-- -- /See:/ 'bundle' smart constructor. -data Bundle = Bundle' +data Bundle = + Bundle' { _bVersionCode :: !(Maybe (Textual Int32)) , _bSha1 :: !(Maybe Text) , _bSha256 :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Bundle' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -2146,13 +2262,9 @@ -- * 'bSha256' bundle :: Bundle -bundle = - Bundle' - { _bVersionCode = Nothing - , _bSha1 = Nothing - , _bSha256 = Nothing - } +bundle = Bundle' {_bVersionCode = Nothing, _bSha1 = Nothing, _bSha256 = Nothing} + -- | The version code of the Android App Bundle. As specified in the Android -- App Bundle\'s base module APK manifest file. bVersionCode :: Lens' Bundle (Maybe Int32) @@ -2188,10 +2300,13 @@ -- | Represents a deobfuscation file. -- -- /See:/ 'deobfuscationFile' smart constructor. -newtype DeobfuscationFile = DeobfuscationFile' +newtype DeobfuscationFile = + DeobfuscationFile' { _dfSymbolType :: Maybe Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeobfuscationFile' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -2199,11 +2314,9 @@ -- * 'dfSymbolType' deobfuscationFile :: DeobfuscationFile -deobfuscationFile = - DeobfuscationFile' - { _dfSymbolType = Nothing - } +deobfuscationFile = DeobfuscationFile' {_dfSymbolType = Nothing} + -- | The type of the deobfuscation file. dfSymbolType :: Lens' DeobfuscationFile (Maybe Text) dfSymbolType @@ -2221,12 +2334,15 @@ -- -- /See:/ 'voidedPurchasesListResponse' smart constructor. -data VoidedPurchasesListResponse = VoidedPurchasesListResponse' +data VoidedPurchasesListResponse = + VoidedPurchasesListResponse' { _vplrTokenPagination :: !(Maybe TokenPagination) , _vplrPageInfo :: !(Maybe PageInfo) , _vplrVoidedPurchases :: !(Maybe [VoidedPurchase]) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'VoidedPurchasesListResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -2239,12 +2355,13 @@ voidedPurchasesListResponse :: VoidedPurchasesListResponse voidedPurchasesListResponse = - VoidedPurchasesListResponse' + VoidedPurchasesListResponse' { _vplrTokenPagination = Nothing , _vplrPageInfo = Nothing , _vplrVoidedPurchases = Nothing } + vplrTokenPagination :: Lens' VoidedPurchasesListResponse (Maybe TokenPagination) vplrTokenPagination = lens _vplrTokenPagination @@ -2279,10 +2396,13 @@ -- -- /See:/ 'expansionFilesUploadResponse' smart constructor. -newtype ExpansionFilesUploadResponse = ExpansionFilesUploadResponse' +newtype ExpansionFilesUploadResponse = + ExpansionFilesUploadResponse' { _efurExpansionFile :: Maybe ExpansionFile - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ExpansionFilesUploadResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -2291,10 +2411,9 @@ expansionFilesUploadResponse :: ExpansionFilesUploadResponse expansionFilesUploadResponse = - ExpansionFilesUploadResponse' - { _efurExpansionFile = Nothing - } + ExpansionFilesUploadResponse' {_efurExpansionFile = Nothing} + efurExpansionFile :: Lens' ExpansionFilesUploadResponse (Maybe ExpansionFile) efurExpansionFile = lens _efurExpansionFile @@ -2315,10 +2434,13 @@ -- -- /See:/ 'imagesUploadResponse' smart constructor. -newtype ImagesUploadResponse = ImagesUploadResponse' +newtype ImagesUploadResponse = + ImagesUploadResponse' { _iurImage :: Maybe Image - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ImagesUploadResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -2326,11 +2448,9 @@ -- * 'iurImage' imagesUploadResponse :: ImagesUploadResponse -imagesUploadResponse = - ImagesUploadResponse' - { _iurImage = Nothing - } +imagesUploadResponse = ImagesUploadResponse' {_iurImage = Nothing} + iurImage :: Lens' ImagesUploadResponse (Maybe Image) iurImage = lens _iurImage (\ s a -> s{_iurImage = a}) @@ -2345,11 +2465,14 @@ -- -- /See:/ 'prorate' smart constructor. -data Prorate = Prorate' +data Prorate = + Prorate' { _pStart :: !(Maybe MonthDay) , _pDefaultPrice :: !(Maybe Price) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Prorate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -2359,12 +2482,9 @@ -- * 'pDefaultPrice' prorate :: Prorate -prorate = - Prorate' - { _pStart = Nothing - , _pDefaultPrice = Nothing - } +prorate = Prorate' {_pStart = Nothing, _pDefaultPrice = Nothing} + -- | Defines the first day on which the price takes effect. pStart :: Lens' Prorate (Maybe MonthDay) pStart = lens _pStart (\ s a -> s{_pStart = a}) @@ -2394,10 +2514,13 @@ -- -- /See:/ 'deobfuscationFilesUploadResponse' smart constructor. -newtype DeobfuscationFilesUploadResponse = DeobfuscationFilesUploadResponse' +newtype DeobfuscationFilesUploadResponse = + DeobfuscationFilesUploadResponse' { _dfurDeobfuscationFile :: Maybe DeobfuscationFile - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeobfuscationFilesUploadResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -2406,10 +2529,9 @@ deobfuscationFilesUploadResponse :: DeobfuscationFilesUploadResponse deobfuscationFilesUploadResponse = - DeobfuscationFilesUploadResponse' - { _dfurDeobfuscationFile = Nothing - } + DeobfuscationFilesUploadResponse' {_dfurDeobfuscationFile = Nothing} + dfurDeobfuscationFile :: Lens' DeobfuscationFilesUploadResponse (Maybe DeobfuscationFile) dfurDeobfuscationFile = lens _dfurDeobfuscationFile @@ -2433,13 +2555,16 @@ -- -- /See:/ 'inAppProductsListResponse' smart constructor. -data InAppProductsListResponse = InAppProductsListResponse' +data InAppProductsListResponse = + InAppProductsListResponse' { _iaplrTokenPagination :: !(Maybe TokenPagination) , _iaplrPageInfo :: !(Maybe PageInfo) , _iaplrKind :: !Text , _iaplrInAppProduct :: !(Maybe [InAppProduct]) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'InAppProductsListResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -2454,13 +2579,14 @@ inAppProductsListResponse :: InAppProductsListResponse inAppProductsListResponse = - InAppProductsListResponse' + InAppProductsListResponse' { _iaplrTokenPagination = Nothing , _iaplrPageInfo = Nothing , _iaplrKind = "androidpublisher#inappproductsListResponse" , _iaplrInAppProduct = Nothing } + iaplrTokenPagination :: Lens' InAppProductsListResponse (Maybe TokenPagination) iaplrTokenPagination = lens _iaplrTokenPagination @@ -2505,11 +2631,14 @@ -- -- /See:/ 'localizedText' smart constructor. -data LocalizedText = LocalizedText' +data LocalizedText = + LocalizedText' { _ltText :: !(Maybe Text) , _ltLanguage :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'LocalizedText' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -2519,12 +2648,9 @@ -- * 'ltLanguage' localizedText :: LocalizedText -localizedText = - LocalizedText' - { _ltText = Nothing - , _ltLanguage = Nothing - } +localizedText = LocalizedText' {_ltText = Nothing, _ltLanguage = Nothing} + -- | The text in the given \`language\`. ltText :: Lens' LocalizedText (Maybe Text) ltText = lens _ltText (\ s a -> s{_ltText = a}) @@ -2550,12 +2676,15 @@ -- -- /See:/ 'review' smart constructor. -data Review = Review' +data Review = + Review' { _rReviewId :: !(Maybe Text) , _rAuthorName :: !(Maybe Text) , _rComments :: !(Maybe [Comment]) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Review' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -2568,12 +2697,9 @@ review :: Review review = - Review' - { _rReviewId = Nothing - , _rAuthorName = Nothing - , _rComments = Nothing - } + Review' {_rReviewId = Nothing, _rAuthorName = Nothing, _rComments = Nothing} + -- | Unique identifier for this review. rReviewId :: Lens' Review (Maybe Text) rReviewId @@ -2609,10 +2735,13 @@ -- -- /See:/ 'aPKsAddExternallyHostedResponse' smart constructor. -newtype APKsAddExternallyHostedResponse = APKsAddExternallyHostedResponse' +newtype APKsAddExternallyHostedResponse = + APKsAddExternallyHostedResponse' { _apkaehrExternallyHostedAPK :: Maybe ExternallyHostedAPK - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'APKsAddExternallyHostedResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -2621,10 +2750,9 @@ aPKsAddExternallyHostedResponse :: APKsAddExternallyHostedResponse aPKsAddExternallyHostedResponse = - APKsAddExternallyHostedResponse' - { _apkaehrExternallyHostedAPK = Nothing - } + APKsAddExternallyHostedResponse' {_apkaehrExternallyHostedAPK = Nothing} + -- | The definition of the externally-hosted APK and where it is located. apkaehrExternallyHostedAPK :: Lens' APKsAddExternallyHostedResponse (Maybe ExternallyHostedAPK) apkaehrExternallyHostedAPK @@ -2650,11 +2778,14 @@ -- subscription purchase to a future expiry time. -- -- /See:/ 'subscriptionDeferralInfo' smart constructor. -data SubscriptionDeferralInfo = SubscriptionDeferralInfo' +data SubscriptionDeferralInfo = + SubscriptionDeferralInfo' { _sdiDesiredExpiryTimeMillis :: !(Maybe (Textual Int64)) , _sdiExpectedExpiryTimeMillis :: !(Maybe (Textual Int64)) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'SubscriptionDeferralInfo' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -2665,11 +2796,12 @@ subscriptionDeferralInfo :: SubscriptionDeferralInfo subscriptionDeferralInfo = - SubscriptionDeferralInfo' + SubscriptionDeferralInfo' { _sdiDesiredExpiryTimeMillis = Nothing , _sdiExpectedExpiryTimeMillis = Nothing } + -- | The desired next expiry time to assign to the subscription, in -- milliseconds since the Epoch. The given time must be later\/greater than -- the current expiry time for the subscription. @@ -2707,10 +2839,13 @@ -- -- /See:/ 'reviewsReplyRequest' smart constructor. -newtype ReviewsReplyRequest = ReviewsReplyRequest' +newtype ReviewsReplyRequest = + ReviewsReplyRequest' { _rrrReplyText :: Maybe Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ReviewsReplyRequest' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -2718,11 +2853,9 @@ -- * 'rrrReplyText' reviewsReplyRequest :: ReviewsReplyRequest -reviewsReplyRequest = - ReviewsReplyRequest' - { _rrrReplyText = Nothing - } +reviewsReplyRequest = ReviewsReplyRequest' {_rrrReplyText = Nothing} + -- | The text to set as the reply. Replies of more than approximately 350 -- characters will be rejected. HTML tags will be stripped. rrrReplyText :: Lens' ReviewsReplyRequest (Maybe Text) @@ -2741,7 +2874,8 @@ -- -- /See:/ 'deviceMetadata' smart constructor. -data DeviceMetadata = DeviceMetadata' +data DeviceMetadata = + DeviceMetadata' { _dmProductName :: !(Maybe Text) , _dmGlEsVersion :: !(Maybe (Textual Int32)) , _dmManufacturer :: !(Maybe Text) @@ -2753,8 +2887,10 @@ , _dmDeviceClass :: !(Maybe Text) , _dmCPUModel :: !(Maybe Text) , _dmScreenDensityDpi :: !(Maybe (Textual Int32)) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeviceMetadata' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -2783,7 +2919,7 @@ deviceMetadata :: DeviceMetadata deviceMetadata = - DeviceMetadata' + DeviceMetadata' { _dmProductName = Nothing , _dmGlEsVersion = Nothing , _dmManufacturer = Nothing @@ -2797,6 +2933,7 @@ , _dmScreenDensityDpi = Nothing } + -- | Device model name (e.g. Droid) dmProductName :: Lens' DeviceMetadata (Maybe Text) dmProductName @@ -2899,11 +3036,14 @@ -- -- /See:/ 'developerComment' smart constructor. -data DeveloperComment = DeveloperComment' +data DeveloperComment = + DeveloperComment' { _dcText :: !(Maybe Text) , _dcLastModified :: !(Maybe Timestamp) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeveloperComment' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -2914,11 +3054,9 @@ developerComment :: DeveloperComment developerComment = - DeveloperComment' - { _dcText = Nothing - , _dcLastModified = Nothing - } + DeveloperComment' {_dcText = Nothing, _dcLastModified = Nothing} + -- | The content of the comment, i.e. reply body. dcText :: Lens' DeveloperComment (Maybe Text) dcText = lens _dcText (\ s a -> s{_dcText = a}) @@ -2945,7 +3083,8 @@ -- -- /See:/ 'inAppProduct' smart constructor. -data InAppProduct = InAppProduct' +data InAppProduct = + InAppProduct' { _iapStatus :: !(Maybe Text) , _iapGracePeriod :: !(Maybe Text) , _iapTrialPeriod :: !(Maybe Text) @@ -2958,8 +3097,10 @@ , _iapDefaultPrice :: !(Maybe Price) , _iapListings :: !(Maybe InAppProductListings) , _iapDefaultLanguage :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'InAppProduct' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -2990,7 +3131,7 @@ inAppProduct :: InAppProduct inAppProduct = - InAppProduct' + InAppProduct' { _iapStatus = Nothing , _iapGracePeriod = Nothing , _iapTrialPeriod = Nothing @@ -3005,6 +3146,7 @@ , _iapDefaultLanguage = Nothing } + iapStatus :: Lens' InAppProduct (Maybe Text) iapStatus = lens _iapStatus (\ s a -> s{_iapStatus = a}) @@ -3116,11 +3258,14 @@ -- -- /See:/ 'price' smart constructor. -data Price = Price' +data Price = + Price' { _pPriceMicros :: !(Maybe Text) , _pCurrency :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Price' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -3130,12 +3275,9 @@ -- * 'pCurrency' price :: Price -price = - Price' - { _pPriceMicros = Nothing - , _pCurrency = Nothing - } +price = Price' {_pPriceMicros = Nothing, _pCurrency = Nothing} + -- | The price in millionths of the currency base unit represented as a -- string. pPriceMicros :: Lens' Price (Maybe Text) @@ -3164,11 +3306,14 @@ -- | Represents the binary payload of an APK. -- -- /See:/ 'aPKBinary' smart constructor. -data APKBinary = APKBinary' +data APKBinary = + APKBinary' { _apkbSha1 :: !(Maybe Text) , _apkbSha256 :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'APKBinary' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -3178,12 +3323,9 @@ -- * 'apkbSha256' aPKBinary :: APKBinary -aPKBinary = - APKBinary' - { _apkbSha1 = Nothing - , _apkbSha256 = Nothing - } +aPKBinary = APKBinary' {_apkbSha1 = Nothing, _apkbSha256 = Nothing} + -- | A sha1 hash of the APK payload, encoded as a hex string and matching the -- output of the sha1sum command. apkbSha1 :: Lens' APKBinary (Maybe Text) @@ -3210,11 +3352,14 @@ -- -- /See:/ 'aPKsListResponse' smart constructor. -data APKsListResponse = APKsListResponse' +data APKsListResponse = + APKsListResponse' { _apklrKind :: !Text , _apklrAPKs :: !(Maybe [APK]) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'APKsListResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -3225,11 +3370,10 @@ aPKsListResponse :: APKsListResponse aPKsListResponse = - APKsListResponse' - { _apklrKind = "androidpublisher#apksListResponse" - , _apklrAPKs = Nothing - } + APKsListResponse' + {_apklrKind = "androidpublisher#apksListResponse", _apklrAPKs = Nothing} + -- | Identifies what kind of resource this is. Value: the fixed string -- \"androidpublisher#apksListResponse\". apklrKind :: Lens' APKsListResponse Text @@ -3260,10 +3404,13 @@ -- -- /See:/ 'reviewsReplyResponse' smart constructor. -newtype ReviewsReplyResponse = ReviewsReplyResponse' +newtype ReviewsReplyResponse = + ReviewsReplyResponse' { _rrrResult :: Maybe ReviewReplyResult - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ReviewsReplyResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -3271,11 +3418,9 @@ -- * 'rrrResult' reviewsReplyResponse :: ReviewsReplyResponse -reviewsReplyResponse = - ReviewsReplyResponse' - { _rrrResult = Nothing - } +reviewsReplyResponse = ReviewsReplyResponse' {_rrrResult = Nothing} + rrrResult :: Lens' ReviewsReplyResponse (Maybe ReviewReplyResult) rrrResult = lens _rrrResult (\ s a -> s{_rrrResult = a}) @@ -3292,11 +3437,14 @@ -- | A permission used by this APK. -- -- /See:/ 'externallyHostedAPKUsesPermission' smart constructor. -data ExternallyHostedAPKUsesPermission = ExternallyHostedAPKUsesPermission' +data ExternallyHostedAPKUsesPermission = + ExternallyHostedAPKUsesPermission' { _ehapkupName :: !(Maybe Text) , _ehapkupMaxSdkVersion :: !(Maybe (Textual Int32)) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ExternallyHostedAPKUsesPermission' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -3307,11 +3455,10 @@ externallyHostedAPKUsesPermission :: ExternallyHostedAPKUsesPermission externallyHostedAPKUsesPermission = - ExternallyHostedAPKUsesPermission' - { _ehapkupName = Nothing - , _ehapkupMaxSdkVersion = Nothing - } + ExternallyHostedAPKUsesPermission' + {_ehapkupName = Nothing, _ehapkupMaxSdkVersion = Nothing} + -- | The name of the permission requested. ehapkupName :: Lens' ExternallyHostedAPKUsesPermission (Maybe Text) ehapkupName @@ -3343,11 +3490,14 @@ -- -- /See:/ 'listingsListResponse' smart constructor. -data ListingsListResponse = ListingsListResponse' +data ListingsListResponse = + ListingsListResponse' { _llrKind :: !Text , _llrListings :: !(Maybe [Listing]) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListingsListResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -3358,11 +3508,10 @@ listingsListResponse :: ListingsListResponse listingsListResponse = - ListingsListResponse' - { _llrKind = "androidpublisher#listingsListResponse" - , _llrListings = Nothing - } + ListingsListResponse' + {_llrKind = "androidpublisher#listingsListResponse", _llrListings = Nothing} + -- | Identifies what kind of resource this is. Value: the fixed string -- \"androidpublisher#listingsListResponse\". llrKind :: Lens' ListingsListResponse Text @@ -3392,10 +3541,13 @@ -- -- /See:/ 'aPKsAddExternallyHostedRequest' smart constructor. -newtype APKsAddExternallyHostedRequest = APKsAddExternallyHostedRequest' +newtype APKsAddExternallyHostedRequest = + APKsAddExternallyHostedRequest' { _aExternallyHostedAPK :: Maybe ExternallyHostedAPK - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'APKsAddExternallyHostedRequest' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -3404,10 +3556,9 @@ aPKsAddExternallyHostedRequest :: APKsAddExternallyHostedRequest aPKsAddExternallyHostedRequest = - APKsAddExternallyHostedRequest' - { _aExternallyHostedAPK = Nothing - } + APKsAddExternallyHostedRequest' {_aExternallyHostedAPK = Nothing} + -- | The definition of the externally-hosted APK and where it is located. aExternallyHostedAPK :: Lens' APKsAddExternallyHostedRequest (Maybe ExternallyHostedAPK) aExternallyHostedAPK @@ -3431,11 +3582,14 @@ -- -- /See:/ 'comment' smart constructor. -data Comment = Comment' +data Comment = + Comment' { _cUserComment :: !(Maybe UserComment) , _cDeveloperComment :: !(Maybe DeveloperComment) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Comment' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -3445,12 +3599,9 @@ -- * 'cDeveloperComment' comment :: Comment -comment = - Comment' - { _cUserComment = Nothing - , _cDeveloperComment = Nothing - } +comment = Comment' {_cUserComment = Nothing, _cDeveloperComment = Nothing} + -- | A comment from a user. cUserComment :: Lens' Comment (Maybe UserComment) cUserComment @@ -3478,11 +3629,14 @@ -- -- /See:/ 'timestamp' smart constructor. -data Timestamp = Timestamp' +data Timestamp = + Timestamp' { _tNanos :: !(Maybe (Textual Int32)) , _tSeconds :: !(Maybe (Textual Int64)) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Timestamp' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -3492,12 +3646,9 @@ -- * 'tSeconds' timestamp :: Timestamp -timestamp = - Timestamp' - { _tNanos = Nothing - , _tSeconds = Nothing - } +timestamp = Timestamp' {_tNanos = Nothing, _tSeconds = Nothing} + tNanos :: Lens' Timestamp (Maybe Int32) tNanos = lens _tNanos (\ s a -> s{_tNanos = a}) . @@ -3525,13 +3676,16 @@ -- canceled\/refunded\/charged-back. -- -- /See:/ 'voidedPurchase' smart constructor. -data VoidedPurchase = VoidedPurchase' +data VoidedPurchase = + VoidedPurchase' { _vpKind :: !Text , _vpPurchaseTimeMillis :: !(Maybe (Textual Int64)) , _vpPurchaseToken :: !(Maybe Text) , _vpVoidedTimeMillis :: !(Maybe (Textual Int64)) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'VoidedPurchase' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -3546,13 +3700,14 @@ voidedPurchase :: VoidedPurchase voidedPurchase = - VoidedPurchase' + VoidedPurchase' { _vpKind = "androidpublisher#voidedPurchase" , _vpPurchaseTimeMillis = Nothing , _vpPurchaseToken = Nothing , _vpVoidedTimeMillis = Nothing } + -- | This kind represents a voided purchase object in the androidpublisher -- service. vpKind :: Lens' VoidedPurchase Text @@ -3602,11 +3757,14 @@ -- -- /See:/ 'bundlesListResponse' smart constructor. -data BundlesListResponse = BundlesListResponse' +data BundlesListResponse = + BundlesListResponse' { _blrBundles :: !(Maybe [Bundle]) , _blrKind :: !Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'BundlesListResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -3617,11 +3775,10 @@ bundlesListResponse :: BundlesListResponse bundlesListResponse = - BundlesListResponse' - { _blrBundles = Nothing - , _blrKind = "androidpublisher#bundlesListResponse" - } + BundlesListResponse' + {_blrBundles = Nothing, _blrKind = "androidpublisher#bundlesListResponse"} + blrBundles :: Lens' BundlesListResponse [Bundle] blrBundles = lens _blrBundles (\ s a -> s{_blrBundles = a}) . @@ -3651,11 +3808,14 @@ -- -- /See:/ 'reviewReplyResult' smart constructor. -data ReviewReplyResult = ReviewReplyResult' +data ReviewReplyResult = + ReviewReplyResult' { _rReplyText :: !(Maybe Text) , _rLastEdited :: !(Maybe Timestamp) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ReviewReplyResult' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -3666,10 +3826,8 @@ reviewReplyResult :: ReviewReplyResult reviewReplyResult = - ReviewReplyResult' - { _rReplyText = Nothing - , _rLastEdited = Nothing - } + ReviewReplyResult' {_rReplyText = Nothing, _rLastEdited = Nothing} + -- | The reply text that was applied. rReplyText :: Lens' ReviewReplyResult (Maybe Text) diff --git a/gen/Network/Google/Resource/AndroidPublisher/Edits/APKs/Addexternallyhosted.hs b/gen/Network/Google/Resource/AndroidPublisher/Edits/APKs/Addexternallyhosted.hs --- a/gen/Network/Google/Resource/AndroidPublisher/Edits/APKs/Addexternallyhosted.hs +++ b/gen/Network/Google/Resource/AndroidPublisher/Edits/APKs/Addexternallyhosted.hs @@ -65,12 +65,15 @@ -- configured to restrict distribution to the enterprise domain. -- -- /See:/ 'editsAPKsAddexternallyhosted' smart constructor. -data EditsAPKsAddexternallyhosted = EditsAPKsAddexternallyhosted' +data EditsAPKsAddexternallyhosted = + EditsAPKsAddexternallyhosted' { _eapkaPackageName :: !Text , _eapkaPayload :: !APKsAddExternallyHostedRequest , _eapkaEditId :: !Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'EditsAPKsAddexternallyhosted' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -86,11 +89,12 @@ -> Text -- ^ 'eapkaEditId' -> EditsAPKsAddexternallyhosted editsAPKsAddexternallyhosted pEapkaPackageName_ pEapkaPayload_ pEapkaEditId_ = - EditsAPKsAddexternallyhosted' + EditsAPKsAddexternallyhosted' { _eapkaPackageName = pEapkaPackageName_ , _eapkaPayload = pEapkaPayload_ , _eapkaEditId = pEapkaEditId_ } + -- | Unique identifier for the Android app that is being updated; for -- example, \"com.spiffygame\". diff --git a/gen/Network/Google/Resource/AndroidPublisher/Edits/APKs/List.hs b/gen/Network/Google/Resource/AndroidPublisher/Edits/APKs/List.hs --- a/gen/Network/Google/Resource/AndroidPublisher/Edits/APKs/List.hs +++ b/gen/Network/Google/Resource/AndroidPublisher/Edits/APKs/List.hs @@ -53,11 +53,14 @@ -- -- /See:/ 'editsAPKsList' smart constructor. -data EditsAPKsList = EditsAPKsList' +data EditsAPKsList = + EditsAPKsList' { _eapklPackageName :: !Text , _eapklEditId :: !Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'EditsAPKsList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -70,10 +73,9 @@ -> Text -- ^ 'eapklEditId' -> EditsAPKsList editsAPKsList pEapklPackageName_ pEapklEditId_ = - EditsAPKsList' - { _eapklPackageName = pEapklPackageName_ - , _eapklEditId = pEapklEditId_ - } + EditsAPKsList' + {_eapklPackageName = pEapklPackageName_, _eapklEditId = pEapklEditId_} + -- | Unique identifier for the Android app that is being updated; for -- example, \"com.spiffygame\". diff --git a/gen/Network/Google/Resource/AndroidPublisher/Edits/APKs/Upload.hs b/gen/Network/Google/Resource/AndroidPublisher/Edits/APKs/Upload.hs --- a/gen/Network/Google/Resource/AndroidPublisher/Edits/APKs/Upload.hs +++ b/gen/Network/Google/Resource/AndroidPublisher/Edits/APKs/Upload.hs @@ -64,11 +64,14 @@ -- -- /See:/ 'editsAPKsUpload' smart constructor. -data EditsAPKsUpload = EditsAPKsUpload' +data EditsAPKsUpload = + EditsAPKsUpload' { _eapkuPackageName :: !Text , _eapkuEditId :: !Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'EditsAPKsUpload' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -81,10 +84,9 @@ -> Text -- ^ 'eapkuEditId' -> EditsAPKsUpload editsAPKsUpload pEapkuPackageName_ pEapkuEditId_ = - EditsAPKsUpload' - { _eapkuPackageName = pEapkuPackageName_ - , _eapkuEditId = pEapkuEditId_ - } + EditsAPKsUpload' + {_eapkuPackageName = pEapkuPackageName_, _eapkuEditId = pEapkuEditId_} + -- | Unique identifier for the Android app that is being updated; for -- example, \"com.spiffygame\". diff --git a/gen/Network/Google/Resource/AndroidPublisher/Edits/Bundles/List.hs b/gen/Network/Google/Resource/AndroidPublisher/Edits/Bundles/List.hs --- a/gen/Network/Google/Resource/AndroidPublisher/Edits/Bundles/List.hs +++ b/gen/Network/Google/Resource/AndroidPublisher/Edits/Bundles/List.hs @@ -53,11 +53,14 @@ -- -- /See:/ 'editsBundlesList' smart constructor. -data EditsBundlesList = EditsBundlesList' +data EditsBundlesList = + EditsBundlesList' { _eblPackageName :: !Text , _eblEditId :: !Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'EditsBundlesList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -70,10 +73,9 @@ -> Text -- ^ 'eblEditId' -> EditsBundlesList editsBundlesList pEblPackageName_ pEblEditId_ = - EditsBundlesList' - { _eblPackageName = pEblPackageName_ - , _eblEditId = pEblEditId_ - } + EditsBundlesList' + {_eblPackageName = pEblPackageName_, _eblEditId = pEblEditId_} + -- | Unique identifier for the Android app that is being updated; for -- example, \"com.spiffygame\". diff --git a/gen/Network/Google/Resource/AndroidPublisher/Edits/Bundles/Upload.hs b/gen/Network/Google/Resource/AndroidPublisher/Edits/Bundles/Upload.hs --- a/gen/Network/Google/Resource/AndroidPublisher/Edits/Bundles/Upload.hs +++ b/gen/Network/Google/Resource/AndroidPublisher/Edits/Bundles/Upload.hs @@ -80,12 +80,15 @@ -- for an example in java. -- -- /See:/ 'editsBundlesUpload' smart constructor. -data EditsBundlesUpload = EditsBundlesUpload' +data EditsBundlesUpload = + EditsBundlesUpload' { _ebuPackageName :: !Text , _ebuAckBundleInstallationWarning :: !(Maybe Bool) , _ebuEditId :: !Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'EditsBundlesUpload' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -100,12 +103,13 @@ -> Text -- ^ 'ebuEditId' -> EditsBundlesUpload editsBundlesUpload pEbuPackageName_ pEbuEditId_ = - EditsBundlesUpload' + EditsBundlesUpload' { _ebuPackageName = pEbuPackageName_ , _ebuAckBundleInstallationWarning = Nothing , _ebuEditId = pEbuEditId_ } + -- | Unique identifier for the Android app that is being updated; for -- example, \"com.spiffygame\". ebuPackageName :: Lens' EditsBundlesUpload Text @@ -141,7 +145,8 @@ mempty instance GoogleRequest - (MediaUpload EditsBundlesUpload) where + (MediaUpload EditsBundlesUpload) + where type Rs (MediaUpload EditsBundlesUpload) = Bundle type Scopes (MediaUpload EditsBundlesUpload) = Scopes EditsBundlesUpload diff --git a/gen/Network/Google/Resource/AndroidPublisher/Edits/Commit.hs b/gen/Network/Google/Resource/AndroidPublisher/Edits/Commit.hs --- a/gen/Network/Google/Resource/AndroidPublisher/Edits/Commit.hs +++ b/gen/Network/Google/Resource/AndroidPublisher/Edits/Commit.hs @@ -54,11 +54,14 @@ -- | Commits\/applies the changes made in this edit back to the app. -- -- /See:/ 'editsCommit' smart constructor. -data EditsCommit = EditsCommit' +data EditsCommit = + EditsCommit' { _ecPackageName :: !Text , _ecEditId :: !Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'EditsCommit' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -71,10 +74,8 @@ -> Text -- ^ 'ecEditId' -> EditsCommit editsCommit pEcPackageName_ pEcEditId_ = - EditsCommit' - { _ecPackageName = pEcPackageName_ - , _ecEditId = pEcEditId_ - } + EditsCommit' {_ecPackageName = pEcPackageName_, _ecEditId = pEcEditId_} + -- | Unique identifier for the Android app that is being updated; for -- example, \"com.spiffygame\". diff --git a/gen/Network/Google/Resource/AndroidPublisher/Edits/Delete.hs b/gen/Network/Google/Resource/AndroidPublisher/Edits/Delete.hs --- a/gen/Network/Google/Resource/AndroidPublisher/Edits/Delete.hs +++ b/gen/Network/Google/Resource/AndroidPublisher/Edits/Delete.hs @@ -58,11 +58,14 @@ -- you want to preemptively abandon an edit. -- -- /See:/ 'editsDelete' smart constructor. -data EditsDelete = EditsDelete' +data EditsDelete = + EditsDelete' { _edPackageName :: !Text , _edEditId :: !Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'EditsDelete' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -75,10 +78,8 @@ -> Text -- ^ 'edEditId' -> EditsDelete editsDelete pEdPackageName_ pEdEditId_ = - EditsDelete' - { _edPackageName = pEdPackageName_ - , _edEditId = pEdEditId_ - } + EditsDelete' {_edPackageName = pEdPackageName_, _edEditId = pEdEditId_} + -- | Unique identifier for the Android app that is being updated; for -- example, \"com.spiffygame\". diff --git a/gen/Network/Google/Resource/AndroidPublisher/Edits/DeobfuscationFiles/Upload.hs b/gen/Network/Google/Resource/AndroidPublisher/Edits/DeobfuscationFiles/Upload.hs --- a/gen/Network/Google/Resource/AndroidPublisher/Edits/DeobfuscationFiles/Upload.hs +++ b/gen/Network/Google/Resource/AndroidPublisher/Edits/DeobfuscationFiles/Upload.hs @@ -83,13 +83,16 @@ -- file already exists, it will be replaced. -- -- /See:/ 'editsDeobfuscationFilesUpload' smart constructor. -data EditsDeobfuscationFilesUpload = EditsDeobfuscationFilesUpload' +data EditsDeobfuscationFilesUpload = + EditsDeobfuscationFilesUpload' { _edfuDeobfuscationFileType :: !EditsDeobfuscationFilesUploadDeobfuscationFileType , _edfuPackageName :: !Text , _edfuAPKVersionCode :: !(Textual Int32) , _edfuEditId :: !Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'EditsDeobfuscationFilesUpload' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -108,13 +111,14 @@ -> Text -- ^ 'edfuEditId' -> EditsDeobfuscationFilesUpload editsDeobfuscationFilesUpload pEdfuDeobfuscationFileType_ pEdfuPackageName_ pEdfuAPKVersionCode_ pEdfuEditId_ = - EditsDeobfuscationFilesUpload' + EditsDeobfuscationFilesUpload' { _edfuDeobfuscationFileType = pEdfuDeobfuscationFileType_ , _edfuPackageName = pEdfuPackageName_ , _edfuAPKVersionCode = _Coerce # pEdfuAPKVersionCode_ , _edfuEditId = pEdfuEditId_ } + edfuDeobfuscationFileType :: Lens' EditsDeobfuscationFilesUpload EditsDeobfuscationFilesUploadDeobfuscationFileType edfuDeobfuscationFileType = lens _edfuDeobfuscationFileType @@ -157,7 +161,8 @@ mempty instance GoogleRequest - (MediaUpload EditsDeobfuscationFilesUpload) where + (MediaUpload EditsDeobfuscationFilesUpload) + where type Rs (MediaUpload EditsDeobfuscationFilesUpload) = DeobfuscationFilesUploadResponse type Scopes diff --git a/gen/Network/Google/Resource/AndroidPublisher/Edits/Details/Get.hs b/gen/Network/Google/Resource/AndroidPublisher/Edits/Details/Get.hs --- a/gen/Network/Google/Resource/AndroidPublisher/Edits/Details/Get.hs +++ b/gen/Network/Google/Resource/AndroidPublisher/Edits/Details/Get.hs @@ -57,11 +57,14 @@ -- and developer support contact information. -- -- /See:/ 'editsDetailsGet' smart constructor. -data EditsDetailsGet = EditsDetailsGet' +data EditsDetailsGet = + EditsDetailsGet' { _edgPackageName :: !Text , _edgEditId :: !Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'EditsDetailsGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -74,10 +77,9 @@ -> Text -- ^ 'edgEditId' -> EditsDetailsGet editsDetailsGet pEdgPackageName_ pEdgEditId_ = - EditsDetailsGet' - { _edgPackageName = pEdgPackageName_ - , _edgEditId = pEdgEditId_ - } + EditsDetailsGet' + {_edgPackageName = pEdgPackageName_, _edgEditId = pEdgEditId_} + -- | Unique identifier for the Android app that is being updated; for -- example, \"com.spiffygame\". diff --git a/gen/Network/Google/Resource/AndroidPublisher/Edits/Details/Patch.hs b/gen/Network/Google/Resource/AndroidPublisher/Edits/Details/Patch.hs --- a/gen/Network/Google/Resource/AndroidPublisher/Edits/Details/Patch.hs +++ b/gen/Network/Google/Resource/AndroidPublisher/Edits/Details/Patch.hs @@ -58,12 +58,15 @@ -- | Updates app details for this edit. This method supports patch semantics. -- -- /See:/ 'editsDetailsPatch' smart constructor. -data EditsDetailsPatch = EditsDetailsPatch' +data EditsDetailsPatch = + EditsDetailsPatch' { _edpPackageName :: !Text , _edpPayload :: !AppDetails , _edpEditId :: !Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'EditsDetailsPatch' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -79,11 +82,12 @@ -> Text -- ^ 'edpEditId' -> EditsDetailsPatch editsDetailsPatch pEdpPackageName_ pEdpPayload_ pEdpEditId_ = - EditsDetailsPatch' + EditsDetailsPatch' { _edpPackageName = pEdpPackageName_ , _edpPayload = pEdpPayload_ , _edpEditId = pEdpEditId_ } + -- | Unique identifier for the Android app that is being updated; for -- example, \"com.spiffygame\". diff --git a/gen/Network/Google/Resource/AndroidPublisher/Edits/Details/Update.hs b/gen/Network/Google/Resource/AndroidPublisher/Edits/Details/Update.hs --- a/gen/Network/Google/Resource/AndroidPublisher/Edits/Details/Update.hs +++ b/gen/Network/Google/Resource/AndroidPublisher/Edits/Details/Update.hs @@ -57,12 +57,15 @@ -- | Updates app details for this edit. -- -- /See:/ 'editsDetailsUpdate' smart constructor. -data EditsDetailsUpdate = EditsDetailsUpdate' +data EditsDetailsUpdate = + EditsDetailsUpdate' { _eduPackageName :: !Text , _eduPayload :: !AppDetails , _eduEditId :: !Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'EditsDetailsUpdate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -78,11 +81,12 @@ -> Text -- ^ 'eduEditId' -> EditsDetailsUpdate editsDetailsUpdate pEduPackageName_ pEduPayload_ pEduEditId_ = - EditsDetailsUpdate' + EditsDetailsUpdate' { _eduPackageName = pEduPackageName_ , _eduPayload = pEduPayload_ , _eduEditId = pEduEditId_ } + -- | Unique identifier for the Android app that is being updated; for -- example, \"com.spiffygame\". diff --git a/gen/Network/Google/Resource/AndroidPublisher/Edits/ExpansionFiles/Get.hs b/gen/Network/Google/Resource/AndroidPublisher/Edits/ExpansionFiles/Get.hs --- a/gen/Network/Google/Resource/AndroidPublisher/Edits/ExpansionFiles/Get.hs +++ b/gen/Network/Google/Resource/AndroidPublisher/Edits/ExpansionFiles/Get.hs @@ -62,13 +62,16 @@ -- | Fetches the Expansion File configuration for the APK specified. -- -- /See:/ 'editsExpansionFilesGet' smart constructor. -data EditsExpansionFilesGet = EditsExpansionFilesGet' +data EditsExpansionFilesGet = + EditsExpansionFilesGet' { _eefgPackageName :: !Text , _eefgAPKVersionCode :: !(Textual Int32) , _eefgExpansionFileType :: !EditsExpansionFilesGetExpansionFileType , _eefgEditId :: !Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'EditsExpansionFilesGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -87,12 +90,13 @@ -> Text -- ^ 'eefgEditId' -> EditsExpansionFilesGet editsExpansionFilesGet pEefgPackageName_ pEefgAPKVersionCode_ pEefgExpansionFileType_ pEefgEditId_ = - EditsExpansionFilesGet' + EditsExpansionFilesGet' { _eefgPackageName = pEefgPackageName_ , _eefgAPKVersionCode = _Coerce # pEefgAPKVersionCode_ , _eefgExpansionFileType = pEefgExpansionFileType_ , _eefgEditId = pEefgEditId_ } + -- | Unique identifier for the Android app that is being updated; for -- example, \"com.spiffygame\". diff --git a/gen/Network/Google/Resource/AndroidPublisher/Edits/ExpansionFiles/Patch.hs b/gen/Network/Google/Resource/AndroidPublisher/Edits/ExpansionFiles/Patch.hs --- a/gen/Network/Google/Resource/AndroidPublisher/Edits/ExpansionFiles/Patch.hs +++ b/gen/Network/Google/Resource/AndroidPublisher/Edits/ExpansionFiles/Patch.hs @@ -69,14 +69,17 @@ -- method. This method supports patch semantics. -- -- /See:/ 'editsExpansionFilesPatch' smart constructor. -data EditsExpansionFilesPatch = EditsExpansionFilesPatch' +data EditsExpansionFilesPatch = + EditsExpansionFilesPatch' { _eefpPackageName :: !Text , _eefpAPKVersionCode :: !(Textual Int32) , _eefpPayload :: !ExpansionFile , _eefpExpansionFileType :: !EditsExpansionFilesPatchExpansionFileType , _eefpEditId :: !Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'EditsExpansionFilesPatch' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -98,13 +101,14 @@ -> Text -- ^ 'eefpEditId' -> EditsExpansionFilesPatch editsExpansionFilesPatch pEefpPackageName_ pEefpAPKVersionCode_ pEefpPayload_ pEefpExpansionFileType_ pEefpEditId_ = - EditsExpansionFilesPatch' + EditsExpansionFilesPatch' { _eefpPackageName = pEefpPackageName_ , _eefpAPKVersionCode = _Coerce # pEefpAPKVersionCode_ , _eefpPayload = pEefpPayload_ , _eefpExpansionFileType = pEefpExpansionFileType_ , _eefpEditId = pEefpEditId_ } + -- | Unique identifier for the Android app that is being updated; for -- example, \"com.spiffygame\". diff --git a/gen/Network/Google/Resource/AndroidPublisher/Edits/ExpansionFiles/Update.hs b/gen/Network/Google/Resource/AndroidPublisher/Edits/ExpansionFiles/Update.hs --- a/gen/Network/Google/Resource/AndroidPublisher/Edits/ExpansionFiles/Update.hs +++ b/gen/Network/Google/Resource/AndroidPublisher/Edits/ExpansionFiles/Update.hs @@ -69,14 +69,17 @@ -- method. -- -- /See:/ 'editsExpansionFilesUpdate' smart constructor. -data EditsExpansionFilesUpdate = EditsExpansionFilesUpdate' +data EditsExpansionFilesUpdate = + EditsExpansionFilesUpdate' { _eefuPackageName :: !Text , _eefuAPKVersionCode :: !(Textual Int32) , _eefuPayload :: !ExpansionFile , _eefuExpansionFileType :: !EditsExpansionFilesUpdateExpansionFileType , _eefuEditId :: !Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'EditsExpansionFilesUpdate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -98,13 +101,14 @@ -> Text -- ^ 'eefuEditId' -> EditsExpansionFilesUpdate editsExpansionFilesUpdate pEefuPackageName_ pEefuAPKVersionCode_ pEefuPayload_ pEefuExpansionFileType_ pEefuEditId_ = - EditsExpansionFilesUpdate' + EditsExpansionFilesUpdate' { _eefuPackageName = pEefuPackageName_ , _eefuAPKVersionCode = _Coerce # pEefuAPKVersionCode_ , _eefuPayload = pEefuPayload_ , _eefuExpansionFileType = pEefuExpansionFileType_ , _eefuEditId = pEefuEditId_ } + -- | Unique identifier for the Android app that is being updated; for -- example, \"com.spiffygame\". diff --git a/gen/Network/Google/Resource/AndroidPublisher/Edits/ExpansionFiles/Upload.hs b/gen/Network/Google/Resource/AndroidPublisher/Edits/ExpansionFiles/Upload.hs --- a/gen/Network/Google/Resource/AndroidPublisher/Edits/ExpansionFiles/Upload.hs +++ b/gen/Network/Google/Resource/AndroidPublisher/Edits/ExpansionFiles/Upload.hs @@ -81,13 +81,16 @@ -- | Uploads and attaches a new Expansion File to the APK specified. -- -- /See:/ 'editsExpansionFilesUpload' smart constructor. -data EditsExpansionFilesUpload = EditsExpansionFilesUpload' +data EditsExpansionFilesUpload = + EditsExpansionFilesUpload' { _ePackageName :: !Text , _eAPKVersionCode :: !(Textual Int32) , _eExpansionFileType :: !EditsExpansionFilesUploadExpansionFileType , _eEditId :: !Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'EditsExpansionFilesUpload' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -106,13 +109,14 @@ -> Text -- ^ 'eEditId' -> EditsExpansionFilesUpload editsExpansionFilesUpload pEPackageName_ pEAPKVersionCode_ pEExpansionFileType_ pEEditId_ = - EditsExpansionFilesUpload' + EditsExpansionFilesUpload' { _ePackageName = pEPackageName_ , _eAPKVersionCode = _Coerce # pEAPKVersionCode_ , _eExpansionFileType = pEExpansionFileType_ , _eEditId = pEEditId_ } + -- | Unique identifier for the Android app that is being updated; for -- example, \"com.spiffygame\". ePackageName :: Lens' EditsExpansionFilesUpload Text @@ -153,7 +157,8 @@ mempty instance GoogleRequest - (MediaUpload EditsExpansionFilesUpload) where + (MediaUpload EditsExpansionFilesUpload) + where type Rs (MediaUpload EditsExpansionFilesUpload) = ExpansionFilesUploadResponse type Scopes (MediaUpload EditsExpansionFilesUpload) = diff --git a/gen/Network/Google/Resource/AndroidPublisher/Edits/Get.hs b/gen/Network/Google/Resource/AndroidPublisher/Edits/Get.hs --- a/gen/Network/Google/Resource/AndroidPublisher/Edits/Get.hs +++ b/gen/Network/Google/Resource/AndroidPublisher/Edits/Get.hs @@ -56,11 +56,14 @@ -- edit is no long active (e.g. has been deleted, superseded or expired). -- -- /See:/ 'editsGet' smart constructor. -data EditsGet = EditsGet' +data EditsGet = + EditsGet' { _egPackageName :: !Text , _egEditId :: !Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'EditsGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -73,10 +76,8 @@ -> Text -- ^ 'egEditId' -> EditsGet editsGet pEgPackageName_ pEgEditId_ = - EditsGet' - { _egPackageName = pEgPackageName_ - , _egEditId = pEgEditId_ - } + EditsGet' {_egPackageName = pEgPackageName_, _egEditId = pEgEditId_} + -- | Unique identifier for the Android app that is being updated; for -- example, \"com.spiffygame\". diff --git a/gen/Network/Google/Resource/AndroidPublisher/Edits/Images/Delete.hs b/gen/Network/Google/Resource/AndroidPublisher/Edits/Images/Delete.hs --- a/gen/Network/Google/Resource/AndroidPublisher/Edits/Images/Delete.hs +++ b/gen/Network/Google/Resource/AndroidPublisher/Edits/Images/Delete.hs @@ -61,14 +61,17 @@ -- | Deletes the image (specified by id) from the edit. -- -- /See:/ 'editsImagesDelete' smart constructor. -data EditsImagesDelete = EditsImagesDelete' +data EditsImagesDelete = + EditsImagesDelete' { _eidPackageName :: !Text , _eidImageType :: !EditsImagesDeleteImageType , _eidImageId :: !Text , _eidLanguage :: !Text , _eidEditId :: !Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'EditsImagesDelete' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -90,13 +93,14 @@ -> Text -- ^ 'eidEditId' -> EditsImagesDelete editsImagesDelete pEidPackageName_ pEidImageType_ pEidImageId_ pEidLanguage_ pEidEditId_ = - EditsImagesDelete' + EditsImagesDelete' { _eidPackageName = pEidPackageName_ , _eidImageType = pEidImageType_ , _eidImageId = pEidImageId_ , _eidLanguage = pEidLanguage_ , _eidEditId = pEidEditId_ } + -- | Unique identifier for the Android app that is being updated; for -- example, \"com.spiffygame\". diff --git a/gen/Network/Google/Resource/AndroidPublisher/Edits/Images/Deleteall.hs b/gen/Network/Google/Resource/AndroidPublisher/Edits/Images/Deleteall.hs --- a/gen/Network/Google/Resource/AndroidPublisher/Edits/Images/Deleteall.hs +++ b/gen/Network/Google/Resource/AndroidPublisher/Edits/Images/Deleteall.hs @@ -60,13 +60,16 @@ -- | Deletes all images for the specified language and image type. -- -- /See:/ 'editsImagesDeleteall' smart constructor. -data EditsImagesDeleteall = EditsImagesDeleteall' +data EditsImagesDeleteall = + EditsImagesDeleteall' { _ediPackageName :: !Text , _ediImageType :: !EditsImagesDeleteallImageType , _ediLanguage :: !Text , _ediEditId :: !Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'EditsImagesDeleteall' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -85,12 +88,13 @@ -> Text -- ^ 'ediEditId' -> EditsImagesDeleteall editsImagesDeleteall pEdiPackageName_ pEdiImageType_ pEdiLanguage_ pEdiEditId_ = - EditsImagesDeleteall' + EditsImagesDeleteall' { _ediPackageName = pEdiPackageName_ , _ediImageType = pEdiImageType_ , _ediLanguage = pEdiLanguage_ , _ediEditId = pEdiEditId_ } + -- | Unique identifier for the Android app that is being updated; for -- example, \"com.spiffygame\". diff --git a/gen/Network/Google/Resource/AndroidPublisher/Edits/Images/List.hs b/gen/Network/Google/Resource/AndroidPublisher/Edits/Images/List.hs --- a/gen/Network/Google/Resource/AndroidPublisher/Edits/Images/List.hs +++ b/gen/Network/Google/Resource/AndroidPublisher/Edits/Images/List.hs @@ -60,13 +60,16 @@ -- | Lists all images for the specified language and image type. -- -- /See:/ 'editsImagesList' smart constructor. -data EditsImagesList = EditsImagesList' +data EditsImagesList = + EditsImagesList' { _eilPackageName :: !Text , _eilImageType :: !EditsImagesListImageType , _eilLanguage :: !Text , _eilEditId :: !Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'EditsImagesList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -85,12 +88,13 @@ -> Text -- ^ 'eilEditId' -> EditsImagesList editsImagesList pEilPackageName_ pEilImageType_ pEilLanguage_ pEilEditId_ = - EditsImagesList' + EditsImagesList' { _eilPackageName = pEilPackageName_ , _eilImageType = pEilImageType_ , _eilLanguage = pEilLanguage_ , _eilEditId = pEilEditId_ } + -- | Unique identifier for the Android app that is being updated; for -- example, \"com.spiffygame\". diff --git a/gen/Network/Google/Resource/AndroidPublisher/Edits/Images/Upload.hs b/gen/Network/Google/Resource/AndroidPublisher/Edits/Images/Upload.hs --- a/gen/Network/Google/Resource/AndroidPublisher/Edits/Images/Upload.hs +++ b/gen/Network/Google/Resource/AndroidPublisher/Edits/Images/Upload.hs @@ -76,13 +76,16 @@ -- language and image type. -- -- /See:/ 'editsImagesUpload' smart constructor. -data EditsImagesUpload = EditsImagesUpload' +data EditsImagesUpload = + EditsImagesUpload' { _eiuPackageName :: !Text , _eiuImageType :: !EditsImagesUploadImageType , _eiuLanguage :: !Text , _eiuEditId :: !Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'EditsImagesUpload' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -101,13 +104,14 @@ -> Text -- ^ 'eiuEditId' -> EditsImagesUpload editsImagesUpload pEiuPackageName_ pEiuImageType_ pEiuLanguage_ pEiuEditId_ = - EditsImagesUpload' + EditsImagesUpload' { _eiuPackageName = pEiuPackageName_ , _eiuImageType = pEiuImageType_ , _eiuLanguage = pEiuLanguage_ , _eiuEditId = pEiuEditId_ } + -- | Unique identifier for the Android app that is being updated; for -- example, \"com.spiffygame\". eiuPackageName :: Lens' EditsImagesUpload Text @@ -146,7 +150,8 @@ mempty instance GoogleRequest - (MediaUpload EditsImagesUpload) where + (MediaUpload EditsImagesUpload) + where type Rs (MediaUpload EditsImagesUpload) = ImagesUploadResponse type Scopes (MediaUpload EditsImagesUpload) = diff --git a/gen/Network/Google/Resource/AndroidPublisher/Edits/Insert.hs b/gen/Network/Google/Resource/AndroidPublisher/Edits/Insert.hs --- a/gen/Network/Google/Resource/AndroidPublisher/Edits/Insert.hs +++ b/gen/Network/Google/Resource/AndroidPublisher/Edits/Insert.hs @@ -54,11 +54,14 @@ -- | Creates a new edit for an app, populated with the app\'s current state. -- -- /See:/ 'editsInsert' smart constructor. -data EditsInsert = EditsInsert' +data EditsInsert = + EditsInsert' { _eiPackageName :: !Text , _eiPayload :: !AppEdit - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'EditsInsert' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -71,10 +74,8 @@ -> AppEdit -- ^ 'eiPayload' -> EditsInsert editsInsert pEiPackageName_ pEiPayload_ = - EditsInsert' - { _eiPackageName = pEiPackageName_ - , _eiPayload = pEiPayload_ - } + EditsInsert' {_eiPackageName = pEiPackageName_, _eiPayload = pEiPayload_} + -- | Unique identifier for the Android app that is being updated; for -- example, \"com.spiffygame\". diff --git a/gen/Network/Google/Resource/AndroidPublisher/Edits/Listings/Delete.hs b/gen/Network/Google/Resource/AndroidPublisher/Edits/Listings/Delete.hs --- a/gen/Network/Google/Resource/AndroidPublisher/Edits/Listings/Delete.hs +++ b/gen/Network/Google/Resource/AndroidPublisher/Edits/Listings/Delete.hs @@ -57,12 +57,15 @@ -- | Deletes the specified localized store listing from an edit. -- -- /See:/ 'editsListingsDelete' smart constructor. -data EditsListingsDelete = EditsListingsDelete' +data EditsListingsDelete = + EditsListingsDelete' { _eldPackageName :: !Text , _eldLanguage :: !Text , _eldEditId :: !Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'EditsListingsDelete' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -78,11 +81,12 @@ -> Text -- ^ 'eldEditId' -> EditsListingsDelete editsListingsDelete pEldPackageName_ pEldLanguage_ pEldEditId_ = - EditsListingsDelete' + EditsListingsDelete' { _eldPackageName = pEldPackageName_ , _eldLanguage = pEldLanguage_ , _eldEditId = pEldEditId_ } + -- | Unique identifier for the Android app that is being updated; for -- example, \"com.spiffygame\". diff --git a/gen/Network/Google/Resource/AndroidPublisher/Edits/Listings/Deleteall.hs b/gen/Network/Google/Resource/AndroidPublisher/Edits/Listings/Deleteall.hs --- a/gen/Network/Google/Resource/AndroidPublisher/Edits/Listings/Deleteall.hs +++ b/gen/Network/Google/Resource/AndroidPublisher/Edits/Listings/Deleteall.hs @@ -55,11 +55,14 @@ -- | Deletes all localized listings from an edit. -- -- /See:/ 'editsListingsDeleteall' smart constructor. -data EditsListingsDeleteall = EditsListingsDeleteall' +data EditsListingsDeleteall = + EditsListingsDeleteall' { _eldlPackageName :: !Text , _eldlEditId :: !Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'EditsListingsDeleteall' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -72,10 +75,9 @@ -> Text -- ^ 'eldlEditId' -> EditsListingsDeleteall editsListingsDeleteall pEldlPackageName_ pEldlEditId_ = - EditsListingsDeleteall' - { _eldlPackageName = pEldlPackageName_ - , _eldlEditId = pEldlEditId_ - } + EditsListingsDeleteall' + {_eldlPackageName = pEldlPackageName_, _eldlEditId = pEldlEditId_} + -- | Unique identifier for the Android app that is being updated; for -- example, \"com.spiffygame\". diff --git a/gen/Network/Google/Resource/AndroidPublisher/Edits/Listings/Get.hs b/gen/Network/Google/Resource/AndroidPublisher/Edits/Listings/Get.hs --- a/gen/Network/Google/Resource/AndroidPublisher/Edits/Listings/Get.hs +++ b/gen/Network/Google/Resource/AndroidPublisher/Edits/Listings/Get.hs @@ -57,12 +57,15 @@ -- | Fetches information about a localized store listing. -- -- /See:/ 'editsListingsGet' smart constructor. -data EditsListingsGet = EditsListingsGet' +data EditsListingsGet = + EditsListingsGet' { _elgPackageName :: !Text , _elgLanguage :: !Text , _elgEditId :: !Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'EditsListingsGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -78,11 +81,12 @@ -> Text -- ^ 'elgEditId' -> EditsListingsGet editsListingsGet pElgPackageName_ pElgLanguage_ pElgEditId_ = - EditsListingsGet' + EditsListingsGet' { _elgPackageName = pElgPackageName_ , _elgLanguage = pElgLanguage_ , _elgEditId = pElgEditId_ } + -- | Unique identifier for the Android app that is being updated; for -- example, \"com.spiffygame\". diff --git a/gen/Network/Google/Resource/AndroidPublisher/Edits/Listings/List.hs b/gen/Network/Google/Resource/AndroidPublisher/Edits/Listings/List.hs --- a/gen/Network/Google/Resource/AndroidPublisher/Edits/Listings/List.hs +++ b/gen/Network/Google/Resource/AndroidPublisher/Edits/Listings/List.hs @@ -56,11 +56,14 @@ -- | Returns all of the localized store listings attached to this edit. -- -- /See:/ 'editsListingsList' smart constructor. -data EditsListingsList = EditsListingsList' +data EditsListingsList = + EditsListingsList' { _ellPackageName :: !Text , _ellEditId :: !Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'EditsListingsList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -73,10 +76,9 @@ -> Text -- ^ 'ellEditId' -> EditsListingsList editsListingsList pEllPackageName_ pEllEditId_ = - EditsListingsList' - { _ellPackageName = pEllPackageName_ - , _ellEditId = pEllEditId_ - } + EditsListingsList' + {_ellPackageName = pEllPackageName_, _ellEditId = pEllEditId_} + -- | Unique identifier for the Android app that is being updated; for -- example, \"com.spiffygame\". diff --git a/gen/Network/Google/Resource/AndroidPublisher/Edits/Listings/Patch.hs b/gen/Network/Google/Resource/AndroidPublisher/Edits/Listings/Patch.hs --- a/gen/Network/Google/Resource/AndroidPublisher/Edits/Listings/Patch.hs +++ b/gen/Network/Google/Resource/AndroidPublisher/Edits/Listings/Patch.hs @@ -61,13 +61,16 @@ -- semantics. -- -- /See:/ 'editsListingsPatch' smart constructor. -data EditsListingsPatch = EditsListingsPatch' +data EditsListingsPatch = + EditsListingsPatch' { _elpPackageName :: !Text , _elpPayload :: !Listing , _elpLanguage :: !Text , _elpEditId :: !Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'EditsListingsPatch' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -86,12 +89,13 @@ -> Text -- ^ 'elpEditId' -> EditsListingsPatch editsListingsPatch pElpPackageName_ pElpPayload_ pElpLanguage_ pElpEditId_ = - EditsListingsPatch' + EditsListingsPatch' { _elpPackageName = pElpPackageName_ , _elpPayload = pElpPayload_ , _elpLanguage = pElpLanguage_ , _elpEditId = pElpEditId_ } + -- | Unique identifier for the Android app that is being updated; for -- example, \"com.spiffygame\". diff --git a/gen/Network/Google/Resource/AndroidPublisher/Edits/Listings/Update.hs b/gen/Network/Google/Resource/AndroidPublisher/Edits/Listings/Update.hs --- a/gen/Network/Google/Resource/AndroidPublisher/Edits/Listings/Update.hs +++ b/gen/Network/Google/Resource/AndroidPublisher/Edits/Listings/Update.hs @@ -59,13 +59,16 @@ -- | Creates or updates a localized store listing. -- -- /See:/ 'editsListingsUpdate' smart constructor. -data EditsListingsUpdate = EditsListingsUpdate' +data EditsListingsUpdate = + EditsListingsUpdate' { _eluPackageName :: !Text , _eluPayload :: !Listing , _eluLanguage :: !Text , _eluEditId :: !Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'EditsListingsUpdate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -84,12 +87,13 @@ -> Text -- ^ 'eluEditId' -> EditsListingsUpdate editsListingsUpdate pEluPackageName_ pEluPayload_ pEluLanguage_ pEluEditId_ = - EditsListingsUpdate' + EditsListingsUpdate' { _eluPackageName = pEluPackageName_ , _eluPayload = pEluPayload_ , _eluLanguage = pEluLanguage_ , _eluEditId = pEluEditId_ } + -- | Unique identifier for the Android app that is being updated; for -- example, \"com.spiffygame\". diff --git a/gen/Network/Google/Resource/AndroidPublisher/Edits/Testers/Get.hs b/gen/Network/Google/Resource/AndroidPublisher/Edits/Testers/Get.hs --- a/gen/Network/Google/Resource/AndroidPublisher/Edits/Testers/Get.hs +++ b/gen/Network/Google/Resource/AndroidPublisher/Edits/Testers/Get.hs @@ -54,12 +54,15 @@ -- -- /See:/ 'editsTestersGet' smart constructor. -data EditsTestersGet = EditsTestersGet' +data EditsTestersGet = + EditsTestersGet' { _etgTrack :: !Text , _etgPackageName :: !Text , _etgEditId :: !Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'EditsTestersGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -75,14 +78,14 @@ -> Text -- ^ 'etgEditId' -> EditsTestersGet editsTestersGet pEtgTrack_ pEtgPackageName_ pEtgEditId_ = - EditsTestersGet' + EditsTestersGet' { _etgTrack = pEtgTrack_ , _etgPackageName = pEtgPackageName_ , _etgEditId = pEtgEditId_ } --- | The track to read or modify. Acceptable values are: \"alpha\", \"beta\", --- \"production\", \"rollout\" or \"internal\". + +-- | The track to read or modify. etgTrack :: Lens' EditsTestersGet Text etgTrack = lens _etgTrack (\ s a -> s{_etgTrack = a}) diff --git a/gen/Network/Google/Resource/AndroidPublisher/Edits/Testers/Patch.hs b/gen/Network/Google/Resource/AndroidPublisher/Edits/Testers/Patch.hs --- a/gen/Network/Google/Resource/AndroidPublisher/Edits/Testers/Patch.hs +++ b/gen/Network/Google/Resource/AndroidPublisher/Edits/Testers/Patch.hs @@ -56,13 +56,16 @@ -- -- /See:/ 'editsTestersPatch' smart constructor. -data EditsTestersPatch = EditsTestersPatch' +data EditsTestersPatch = + EditsTestersPatch' { _etpTrack :: !Text , _etpPackageName :: !Text , _etpPayload :: !Testers , _etpEditId :: !Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'EditsTestersPatch' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -81,15 +84,15 @@ -> Text -- ^ 'etpEditId' -> EditsTestersPatch editsTestersPatch pEtpTrack_ pEtpPackageName_ pEtpPayload_ pEtpEditId_ = - EditsTestersPatch' + EditsTestersPatch' { _etpTrack = pEtpTrack_ , _etpPackageName = pEtpPackageName_ , _etpPayload = pEtpPayload_ , _etpEditId = pEtpEditId_ } --- | The track to read or modify. Acceptable values are: \"alpha\", \"beta\", --- \"production\", \"rollout\" or \"internal\". + +-- | The track to read or modify. etpTrack :: Lens' EditsTestersPatch Text etpTrack = lens _etpTrack (\ s a -> s{_etpTrack = a}) diff --git a/gen/Network/Google/Resource/AndroidPublisher/Edits/Testers/Update.hs b/gen/Network/Google/Resource/AndroidPublisher/Edits/Testers/Update.hs --- a/gen/Network/Google/Resource/AndroidPublisher/Edits/Testers/Update.hs +++ b/gen/Network/Google/Resource/AndroidPublisher/Edits/Testers/Update.hs @@ -56,13 +56,16 @@ -- -- /See:/ 'editsTestersUpdate' smart constructor. -data EditsTestersUpdate = EditsTestersUpdate' +data EditsTestersUpdate = + EditsTestersUpdate' { _etutTrack :: !Text , _etutPackageName :: !Text , _etutPayload :: !Testers , _etutEditId :: !Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'EditsTestersUpdate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -81,15 +84,15 @@ -> Text -- ^ 'etutEditId' -> EditsTestersUpdate editsTestersUpdate pEtutTrack_ pEtutPackageName_ pEtutPayload_ pEtutEditId_ = - EditsTestersUpdate' + EditsTestersUpdate' { _etutTrack = pEtutTrack_ , _etutPackageName = pEtutPackageName_ , _etutPayload = pEtutPayload_ , _etutEditId = pEtutEditId_ } --- | The track to read or modify. Acceptable values are: \"alpha\", \"beta\", --- \"production\", \"rollout\" or \"internal\". + +-- | The track to read or modify. etutTrack :: Lens' EditsTestersUpdate Text etutTrack = lens _etutTrack (\ s a -> s{_etutTrack = a}) diff --git a/gen/Network/Google/Resource/AndroidPublisher/Edits/Tracks/Get.hs b/gen/Network/Google/Resource/AndroidPublisher/Edits/Tracks/Get.hs --- a/gen/Network/Google/Resource/AndroidPublisher/Edits/Tracks/Get.hs +++ b/gen/Network/Google/Resource/AndroidPublisher/Edits/Tracks/Get.hs @@ -59,12 +59,15 @@ -- the APK version codes that are in this track. -- -- /See:/ 'editsTracksGet' smart constructor. -data EditsTracksGet = EditsTracksGet' +data EditsTracksGet = + EditsTracksGet' { _etgtTrack :: !Text , _etgtPackageName :: !Text , _etgtEditId :: !Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'EditsTracksGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -80,11 +83,12 @@ -> Text -- ^ 'etgtEditId' -> EditsTracksGet editsTracksGet pEtgtTrack_ pEtgtPackageName_ pEtgtEditId_ = - EditsTracksGet' + EditsTracksGet' { _etgtTrack = pEtgtTrack_ , _etgtPackageName = pEtgtPackageName_ , _etgtEditId = pEtgtEditId_ } + -- | The track to read or modify. etgtTrack :: Lens' EditsTracksGet Text diff --git a/gen/Network/Google/Resource/AndroidPublisher/Edits/Tracks/List.hs b/gen/Network/Google/Resource/AndroidPublisher/Edits/Tracks/List.hs --- a/gen/Network/Google/Resource/AndroidPublisher/Edits/Tracks/List.hs +++ b/gen/Network/Google/Resource/AndroidPublisher/Edits/Tracks/List.hs @@ -56,11 +56,14 @@ -- | Lists all the track configurations for this edit. -- -- /See:/ 'editsTracksList' smart constructor. -data EditsTracksList = EditsTracksList' +data EditsTracksList = + EditsTracksList' { _etlPackageName :: !Text , _etlEditId :: !Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'EditsTracksList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -73,10 +76,9 @@ -> Text -- ^ 'etlEditId' -> EditsTracksList editsTracksList pEtlPackageName_ pEtlEditId_ = - EditsTracksList' - { _etlPackageName = pEtlPackageName_ - , _etlEditId = pEtlEditId_ - } + EditsTracksList' + {_etlPackageName = pEtlPackageName_, _etlEditId = pEtlEditId_} + -- | Unique identifier for the Android app that is being updated; for -- example, \"com.spiffygame\". diff --git a/gen/Network/Google/Resource/AndroidPublisher/Edits/Tracks/Patch.hs b/gen/Network/Google/Resource/AndroidPublisher/Edits/Tracks/Patch.hs --- a/gen/Network/Google/Resource/AndroidPublisher/Edits/Tracks/Patch.hs +++ b/gen/Network/Google/Resource/AndroidPublisher/Edits/Tracks/Patch.hs @@ -20,10 +20,8 @@ -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- Updates the track configuration for the specified track type. When --- halted, the rollout track cannot be updated without adding new APKs, and --- adding new APKs will cause it to resume. This method supports patch --- semantics. +-- Updates the track configuration for the specified track type. This +-- method supports patch semantics. -- -- /See:/ for @androidpublisher.edits.tracks.patch@. module Network.Google.Resource.AndroidPublisher.Edits.Tracks.Patch @@ -59,19 +57,20 @@ QueryParam "alt" AltJSON :> ReqBody '[JSON] Track :> Patch '[JSON] Track --- | Updates the track configuration for the specified track type. When --- halted, the rollout track cannot be updated without adding new APKs, and --- adding new APKs will cause it to resume. This method supports patch --- semantics. +-- | Updates the track configuration for the specified track type. This +-- method supports patch semantics. -- -- /See:/ 'editsTracksPatch' smart constructor. -data EditsTracksPatch = EditsTracksPatch' +data EditsTracksPatch = + EditsTracksPatch' { _etptTrack :: !Text , _etptPackageName :: !Text , _etptPayload :: !Track , _etptEditId :: !Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'EditsTracksPatch' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -90,12 +89,13 @@ -> Text -- ^ 'etptEditId' -> EditsTracksPatch editsTracksPatch pEtptTrack_ pEtptPackageName_ pEtptPayload_ pEtptEditId_ = - EditsTracksPatch' + EditsTracksPatch' { _etptTrack = pEtptTrack_ , _etptPackageName = pEtptPackageName_ , _etptPayload = pEtptPayload_ , _etptEditId = pEtptEditId_ } + -- | The track to read or modify. etptTrack :: Lens' EditsTracksPatch Text diff --git a/gen/Network/Google/Resource/AndroidPublisher/Edits/Tracks/Update.hs b/gen/Network/Google/Resource/AndroidPublisher/Edits/Tracks/Update.hs --- a/gen/Network/Google/Resource/AndroidPublisher/Edits/Tracks/Update.hs +++ b/gen/Network/Google/Resource/AndroidPublisher/Edits/Tracks/Update.hs @@ -20,9 +20,7 @@ -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- Updates the track configuration for the specified track type. When --- halted, the rollout track cannot be updated without adding new APKs, and --- adding new APKs will cause it to resume. +-- Updates the track configuration for the specified track type. -- -- /See:/ for @androidpublisher.edits.tracks.update@. module Network.Google.Resource.AndroidPublisher.Edits.Tracks.Update @@ -58,18 +56,19 @@ QueryParam "alt" AltJSON :> ReqBody '[JSON] Track :> Put '[JSON] Track --- | Updates the track configuration for the specified track type. When --- halted, the rollout track cannot be updated without adding new APKs, and --- adding new APKs will cause it to resume. +-- | Updates the track configuration for the specified track type. -- -- /See:/ 'editsTracksUpdate' smart constructor. -data EditsTracksUpdate = EditsTracksUpdate' +data EditsTracksUpdate = + EditsTracksUpdate' { _etuTrack :: !Text , _etuPackageName :: !Text , _etuPayload :: !Track , _etuEditId :: !Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'EditsTracksUpdate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -88,12 +87,13 @@ -> Text -- ^ 'etuEditId' -> EditsTracksUpdate editsTracksUpdate pEtuTrack_ pEtuPackageName_ pEtuPayload_ pEtuEditId_ = - EditsTracksUpdate' + EditsTracksUpdate' { _etuTrack = pEtuTrack_ , _etuPackageName = pEtuPackageName_ , _etuPayload = pEtuPayload_ , _etuEditId = pEtuEditId_ } + -- | The track to read or modify. etuTrack :: Lens' EditsTracksUpdate Text diff --git a/gen/Network/Google/Resource/AndroidPublisher/Edits/Validate.hs b/gen/Network/Google/Resource/AndroidPublisher/Edits/Validate.hs --- a/gen/Network/Google/Resource/AndroidPublisher/Edits/Validate.hs +++ b/gen/Network/Google/Resource/AndroidPublisher/Edits/Validate.hs @@ -56,11 +56,14 @@ -- are not applied to the live app. -- -- /See:/ 'editsValidate' smart constructor. -data EditsValidate = EditsValidate' +data EditsValidate = + EditsValidate' { _evPackageName :: !Text , _evEditId :: !Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'EditsValidate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -73,10 +76,8 @@ -> Text -- ^ 'evEditId' -> EditsValidate editsValidate pEvPackageName_ pEvEditId_ = - EditsValidate' - { _evPackageName = pEvPackageName_ - , _evEditId = pEvEditId_ - } + EditsValidate' {_evPackageName = pEvPackageName_, _evEditId = pEvEditId_} + -- | Unique identifier for the Android app that is being updated; for -- example, \"com.spiffygame\". diff --git a/gen/Network/Google/Resource/AndroidPublisher/InAppProducts/Delete.hs b/gen/Network/Google/Resource/AndroidPublisher/InAppProducts/Delete.hs --- a/gen/Network/Google/Resource/AndroidPublisher/InAppProducts/Delete.hs +++ b/gen/Network/Google/Resource/AndroidPublisher/InAppProducts/Delete.hs @@ -54,11 +54,14 @@ -- | Delete an in-app product for an app. -- -- /See:/ 'inAppProductsDelete' smart constructor. -data InAppProductsDelete = InAppProductsDelete' +data InAppProductsDelete = + InAppProductsDelete' { _iapdPackageName :: !Text , _iapdSKU :: !Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'InAppProductsDelete' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -71,10 +74,9 @@ -> Text -- ^ 'iapdSKU' -> InAppProductsDelete inAppProductsDelete pIapdPackageName_ pIapdSKU_ = - InAppProductsDelete' - { _iapdPackageName = pIapdPackageName_ - , _iapdSKU = pIapdSKU_ - } + InAppProductsDelete' + {_iapdPackageName = pIapdPackageName_, _iapdSKU = pIapdSKU_} + -- | Unique identifier for the Android app with the in-app product; for -- example, \"com.spiffygame\". diff --git a/gen/Network/Google/Resource/AndroidPublisher/InAppProducts/Get.hs b/gen/Network/Google/Resource/AndroidPublisher/InAppProducts/Get.hs --- a/gen/Network/Google/Resource/AndroidPublisher/InAppProducts/Get.hs +++ b/gen/Network/Google/Resource/AndroidPublisher/InAppProducts/Get.hs @@ -54,11 +54,14 @@ -- | Returns information about the in-app product specified. -- -- /See:/ 'inAppProductsGet' smart constructor. -data InAppProductsGet = InAppProductsGet' +data InAppProductsGet = + InAppProductsGet' { _iapgPackageName :: !Text , _iapgSKU :: !Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'InAppProductsGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -71,10 +74,8 @@ -> Text -- ^ 'iapgSKU' -> InAppProductsGet inAppProductsGet pIapgPackageName_ pIapgSKU_ = - InAppProductsGet' - { _iapgPackageName = pIapgPackageName_ - , _iapgSKU = pIapgSKU_ - } + InAppProductsGet' {_iapgPackageName = pIapgPackageName_, _iapgSKU = pIapgSKU_} + iapgPackageName :: Lens' InAppProductsGet Text iapgPackageName diff --git a/gen/Network/Google/Resource/AndroidPublisher/InAppProducts/Insert.hs b/gen/Network/Google/Resource/AndroidPublisher/InAppProducts/Insert.hs --- a/gen/Network/Google/Resource/AndroidPublisher/InAppProducts/Insert.hs +++ b/gen/Network/Google/Resource/AndroidPublisher/InAppProducts/Insert.hs @@ -57,12 +57,15 @@ -- | Creates a new in-app product for an app. -- -- /See:/ 'inAppProductsInsert' smart constructor. -data InAppProductsInsert = InAppProductsInsert' +data InAppProductsInsert = + InAppProductsInsert' { _iapiAutoConvertMissingPrices :: !(Maybe Bool) , _iapiPackageName :: !Text , _iapiPayload :: !InAppProduct - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'InAppProductsInsert' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -77,11 +80,12 @@ -> InAppProduct -- ^ 'iapiPayload' -> InAppProductsInsert inAppProductsInsert pIapiPackageName_ pIapiPayload_ = - InAppProductsInsert' + InAppProductsInsert' { _iapiAutoConvertMissingPrices = Nothing , _iapiPackageName = pIapiPackageName_ , _iapiPayload = pIapiPayload_ } + -- | If true the prices for all regions targeted by the parent app that -- don\'t have a price specified for this in-app product will be auto diff --git a/gen/Network/Google/Resource/AndroidPublisher/InAppProducts/List.hs b/gen/Network/Google/Resource/AndroidPublisher/InAppProducts/List.hs --- a/gen/Network/Google/Resource/AndroidPublisher/InAppProducts/List.hs +++ b/gen/Network/Google/Resource/AndroidPublisher/InAppProducts/List.hs @@ -61,13 +61,16 @@ -- managed in-app products.. -- -- /See:/ 'inAppProductsList' smart constructor. -data InAppProductsList = InAppProductsList' +data InAppProductsList = + InAppProductsList' { _iaplPackageName :: !Text , _iaplToken :: !(Maybe Text) , _iaplStartIndex :: !(Maybe (Textual Word32)) , _iaplMaxResults :: !(Maybe (Textual Word32)) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'InAppProductsList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -83,12 +86,13 @@ :: Text -- ^ 'iaplPackageName' -> InAppProductsList inAppProductsList pIaplPackageName_ = - InAppProductsList' + InAppProductsList' { _iaplPackageName = pIaplPackageName_ , _iaplToken = Nothing , _iaplStartIndex = Nothing , _iaplMaxResults = Nothing } + -- | Unique identifier for the Android app with in-app products; for example, -- \"com.spiffygame\". diff --git a/gen/Network/Google/Resource/AndroidPublisher/InAppProducts/Patch.hs b/gen/Network/Google/Resource/AndroidPublisher/InAppProducts/Patch.hs --- a/gen/Network/Google/Resource/AndroidPublisher/InAppProducts/Patch.hs +++ b/gen/Network/Google/Resource/AndroidPublisher/InAppProducts/Patch.hs @@ -61,13 +61,16 @@ -- semantics. -- -- /See:/ 'inAppProductsPatch' smart constructor. -data InAppProductsPatch = InAppProductsPatch' +data InAppProductsPatch = + InAppProductsPatch' { _iAppAutoConvertMissingPrices :: !(Maybe Bool) , _iAppPackageName :: !Text , _iAppPayload :: !InAppProduct , _iAppSKU :: !Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'InAppProductsPatch' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -85,12 +88,13 @@ -> Text -- ^ 'iAppSKU' -> InAppProductsPatch inAppProductsPatch pIAppPackageName_ pIAppPayload_ pIAppSKU_ = - InAppProductsPatch' + InAppProductsPatch' { _iAppAutoConvertMissingPrices = Nothing , _iAppPackageName = pIAppPackageName_ , _iAppPayload = pIAppPayload_ , _iAppSKU = pIAppSKU_ } + -- | If true the prices for all regions targeted by the parent app that -- don\'t have a price specified for this in-app product will be auto diff --git a/gen/Network/Google/Resource/AndroidPublisher/InAppProducts/Update.hs b/gen/Network/Google/Resource/AndroidPublisher/InAppProducts/Update.hs --- a/gen/Network/Google/Resource/AndroidPublisher/InAppProducts/Update.hs +++ b/gen/Network/Google/Resource/AndroidPublisher/InAppProducts/Update.hs @@ -59,13 +59,16 @@ -- | Updates the details of an in-app product. -- -- /See:/ 'inAppProductsUpdate' smart constructor. -data InAppProductsUpdate = InAppProductsUpdate' +data InAppProductsUpdate = + InAppProductsUpdate' { _iapuAutoConvertMissingPrices :: !(Maybe Bool) , _iapuPackageName :: !Text , _iapuPayload :: !InAppProduct , _iapuSKU :: !Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'InAppProductsUpdate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -83,12 +86,13 @@ -> Text -- ^ 'iapuSKU' -> InAppProductsUpdate inAppProductsUpdate pIapuPackageName_ pIapuPayload_ pIapuSKU_ = - InAppProductsUpdate' + InAppProductsUpdate' { _iapuAutoConvertMissingPrices = Nothing , _iapuPackageName = pIapuPackageName_ , _iapuPayload = pIapuPayload_ , _iapuSKU = pIapuSKU_ } + -- | If true the prices for all regions targeted by the parent app that -- don\'t have a price specified for this in-app product will be auto diff --git a/gen/Network/Google/Resource/AndroidPublisher/Orders/Refund.hs b/gen/Network/Google/Resource/AndroidPublisher/Orders/Refund.hs --- a/gen/Network/Google/Resource/AndroidPublisher/Orders/Refund.hs +++ b/gen/Network/Google/Resource/AndroidPublisher/Orders/Refund.hs @@ -56,12 +56,15 @@ -- | Refund a user\'s subscription or in-app purchase order. -- -- /See:/ 'ordersRefund' smart constructor. -data OrdersRefund = OrdersRefund' +data OrdersRefund = + OrdersRefund' { _orPackageName :: !Text , _orRevoke :: !(Maybe Bool) , _orOrderId :: !Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'OrdersRefund' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -76,11 +79,12 @@ -> Text -- ^ 'orOrderId' -> OrdersRefund ordersRefund pOrPackageName_ pOrOrderId_ = - OrdersRefund' + OrdersRefund' { _orPackageName = pOrPackageName_ , _orRevoke = Nothing , _orOrderId = pOrOrderId_ } + -- | The package name of the application for which this subscription or -- in-app item was purchased (for example, \'com.some.thing\'). diff --git a/gen/Network/Google/Resource/AndroidPublisher/Purchases/Products/Get.hs b/gen/Network/Google/Resource/AndroidPublisher/Purchases/Products/Get.hs --- a/gen/Network/Google/Resource/AndroidPublisher/Purchases/Products/Get.hs +++ b/gen/Network/Google/Resource/AndroidPublisher/Purchases/Products/Get.hs @@ -59,12 +59,15 @@ -- | Checks the purchase and consumption status of an inapp item. -- -- /See:/ 'purchasesProductsGet' smart constructor. -data PurchasesProductsGet = PurchasesProductsGet' +data PurchasesProductsGet = + PurchasesProductsGet' { _ppgPackageName :: !Text , _ppgToken :: !Text , _ppgProductId :: !Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'PurchasesProductsGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -80,11 +83,12 @@ -> Text -- ^ 'ppgProductId' -> PurchasesProductsGet purchasesProductsGet pPpgPackageName_ pPpgToken_ pPpgProductId_ = - PurchasesProductsGet' + PurchasesProductsGet' { _ppgPackageName = pPpgPackageName_ , _ppgToken = pPpgToken_ , _ppgProductId = pPpgProductId_ } + -- | The package name of the application the inapp product was sold in (for -- example, \'com.some.thing\'). diff --git a/gen/Network/Google/Resource/AndroidPublisher/Purchases/Subscriptions/Cancel.hs b/gen/Network/Google/Resource/AndroidPublisher/Purchases/Subscriptions/Cancel.hs --- a/gen/Network/Google/Resource/AndroidPublisher/Purchases/Subscriptions/Cancel.hs +++ b/gen/Network/Google/Resource/AndroidPublisher/Purchases/Subscriptions/Cancel.hs @@ -60,12 +60,15 @@ -- until its expiration time. -- -- /See:/ 'purchasesSubscriptionsCancel' smart constructor. -data PurchasesSubscriptionsCancel = PurchasesSubscriptionsCancel' +data PurchasesSubscriptionsCancel = + PurchasesSubscriptionsCancel' { _pscPackageName :: !Text , _pscToken :: !Text , _pscSubscriptionId :: !Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'PurchasesSubscriptionsCancel' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -81,11 +84,12 @@ -> Text -- ^ 'pscSubscriptionId' -> PurchasesSubscriptionsCancel purchasesSubscriptionsCancel pPscPackageName_ pPscToken_ pPscSubscriptionId_ = - PurchasesSubscriptionsCancel' + PurchasesSubscriptionsCancel' { _pscPackageName = pPscPackageName_ , _pscToken = pPscToken_ , _pscSubscriptionId = pPscSubscriptionId_ } + -- | The package name of the application for which this subscription was -- purchased (for example, \'com.some.thing\'). diff --git a/gen/Network/Google/Resource/AndroidPublisher/Purchases/Subscriptions/Defer.hs b/gen/Network/Google/Resource/AndroidPublisher/Purchases/Subscriptions/Defer.hs --- a/gen/Network/Google/Resource/AndroidPublisher/Purchases/Subscriptions/Defer.hs +++ b/gen/Network/Google/Resource/AndroidPublisher/Purchases/Subscriptions/Defer.hs @@ -63,13 +63,16 @@ -- expiration time. -- -- /See:/ 'purchasesSubscriptionsDefer' smart constructor. -data PurchasesSubscriptionsDefer = PurchasesSubscriptionsDefer' +data PurchasesSubscriptionsDefer = + PurchasesSubscriptionsDefer' { _psdPackageName :: !Text , _psdToken :: !Text , _psdPayload :: !SubscriptionPurchasesDeferRequest , _psdSubscriptionId :: !Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'PurchasesSubscriptionsDefer' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -88,12 +91,13 @@ -> Text -- ^ 'psdSubscriptionId' -> PurchasesSubscriptionsDefer purchasesSubscriptionsDefer pPsdPackageName_ pPsdToken_ pPsdPayload_ pPsdSubscriptionId_ = - PurchasesSubscriptionsDefer' + PurchasesSubscriptionsDefer' { _psdPackageName = pPsdPackageName_ , _psdToken = pPsdToken_ , _psdPayload = pPsdPayload_ , _psdSubscriptionId = pPsdSubscriptionId_ } + -- | The package name of the application for which this subscription was -- purchased (for example, \'com.some.thing\'). diff --git a/gen/Network/Google/Resource/AndroidPublisher/Purchases/Subscriptions/Get.hs b/gen/Network/Google/Resource/AndroidPublisher/Purchases/Subscriptions/Get.hs --- a/gen/Network/Google/Resource/AndroidPublisher/Purchases/Subscriptions/Get.hs +++ b/gen/Network/Google/Resource/AndroidPublisher/Purchases/Subscriptions/Get.hs @@ -61,12 +61,15 @@ -- expiry time. -- -- /See:/ 'purchasesSubscriptionsGet' smart constructor. -data PurchasesSubscriptionsGet = PurchasesSubscriptionsGet' +data PurchasesSubscriptionsGet = + PurchasesSubscriptionsGet' { _psgPackageName :: !Text , _psgToken :: !Text , _psgSubscriptionId :: !Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'PurchasesSubscriptionsGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -82,11 +85,12 @@ -> Text -- ^ 'psgSubscriptionId' -> PurchasesSubscriptionsGet purchasesSubscriptionsGet pPsgPackageName_ pPsgToken_ pPsgSubscriptionId_ = - PurchasesSubscriptionsGet' + PurchasesSubscriptionsGet' { _psgPackageName = pPsgPackageName_ , _psgToken = pPsgToken_ , _psgSubscriptionId = pPsgSubscriptionId_ } + -- | The package name of the application for which this subscription was -- purchased (for example, \'com.some.thing\'). diff --git a/gen/Network/Google/Resource/AndroidPublisher/Purchases/Subscriptions/Refund.hs b/gen/Network/Google/Resource/AndroidPublisher/Purchases/Subscriptions/Refund.hs --- a/gen/Network/Google/Resource/AndroidPublisher/Purchases/Subscriptions/Refund.hs +++ b/gen/Network/Google/Resource/AndroidPublisher/Purchases/Subscriptions/Refund.hs @@ -60,12 +60,15 @@ -- valid until its expiration time and it will continue to recur. -- -- /See:/ 'purchasesSubscriptionsRefund' smart constructor. -data PurchasesSubscriptionsRefund = PurchasesSubscriptionsRefund' +data PurchasesSubscriptionsRefund = + PurchasesSubscriptionsRefund' { _psrPackageName :: !Text , _psrToken :: !Text , _psrSubscriptionId :: !Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'PurchasesSubscriptionsRefund' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -81,11 +84,12 @@ -> Text -- ^ 'psrSubscriptionId' -> PurchasesSubscriptionsRefund purchasesSubscriptionsRefund pPsrPackageName_ pPsrToken_ pPsrSubscriptionId_ = - PurchasesSubscriptionsRefund' + PurchasesSubscriptionsRefund' { _psrPackageName = pPsrPackageName_ , _psrToken = pPsrToken_ , _psrSubscriptionId = pPsrSubscriptionId_ } + -- | The package name of the application for which this subscription was -- purchased (for example, \'com.some.thing\'). diff --git a/gen/Network/Google/Resource/AndroidPublisher/Purchases/Subscriptions/Revoke.hs b/gen/Network/Google/Resource/AndroidPublisher/Purchases/Subscriptions/Revoke.hs --- a/gen/Network/Google/Resource/AndroidPublisher/Purchases/Subscriptions/Revoke.hs +++ b/gen/Network/Google/Resource/AndroidPublisher/Purchases/Subscriptions/Revoke.hs @@ -62,12 +62,15 @@ -- recurring. -- -- /See:/ 'purchasesSubscriptionsRevoke' smart constructor. -data PurchasesSubscriptionsRevoke = PurchasesSubscriptionsRevoke' +data PurchasesSubscriptionsRevoke = + PurchasesSubscriptionsRevoke' { _pPackageName :: !Text , _pToken :: !Text , _pSubscriptionId :: !Text - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'PurchasesSubscriptionsRevoke' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -83,11 +86,12 @@ -> Text -- ^ 'pSubscriptionId' -> PurchasesSubscriptionsRevoke purchasesSubscriptionsRevoke pPPackageName_ pPToken_ pPSubscriptionId_ = - PurchasesSubscriptionsRevoke' + PurchasesSubscriptionsRevoke' { _pPackageName = pPPackageName_ , _pToken = pPToken_ , _pSubscriptionId = pPSubscriptionId_ } + -- | The package name of the application for which this subscription was -- purchased (for example, \'com.some.thing\'). diff --git a/gen/Network/Google/Resource/AndroidPublisher/Purchases/Voidedpurchases/List.hs b/gen/Network/Google/Resource/AndroidPublisher/Purchases/Voidedpurchases/List.hs --- a/gen/Network/Google/Resource/AndroidPublisher/Purchases/Voidedpurchases/List.hs +++ b/gen/Network/Google/Resource/AndroidPublisher/Purchases/Voidedpurchases/List.hs @@ -64,15 +64,18 @@ -- | Lists the purchases that were canceled, refunded or charged-back. -- -- /See:/ 'purchasesVoidedpurchasesList' smart constructor. -data PurchasesVoidedpurchasesList = PurchasesVoidedpurchasesList' +data PurchasesVoidedpurchasesList = + PurchasesVoidedpurchasesList' { _pvlPackageName :: !Text , _pvlStartTime :: !(Maybe (Textual Int64)) , _pvlToken :: !(Maybe Text) , _pvlEndTime :: !(Maybe (Textual Int64)) , _pvlStartIndex :: !(Maybe (Textual Word32)) , _pvlMaxResults :: !(Maybe (Textual Word32)) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'PurchasesVoidedpurchasesList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -92,7 +95,7 @@ :: Text -- ^ 'pvlPackageName' -> PurchasesVoidedpurchasesList purchasesVoidedpurchasesList pPvlPackageName_ = - PurchasesVoidedpurchasesList' + PurchasesVoidedpurchasesList' { _pvlPackageName = pPvlPackageName_ , _pvlStartTime = Nothing , _pvlToken = Nothing @@ -100,6 +103,7 @@ , _pvlStartIndex = Nothing , _pvlMaxResults = Nothing } + -- | The package name of the application for which voided purchases need to -- be returned (for example, \'com.some.thing\'). diff --git a/gen/Network/Google/Resource/AndroidPublisher/Reviews/Get.hs b/gen/Network/Google/Resource/AndroidPublisher/Reviews/Get.hs --- a/gen/Network/Google/Resource/AndroidPublisher/Reviews/Get.hs +++ b/gen/Network/Google/Resource/AndroidPublisher/Reviews/Get.hs @@ -56,12 +56,15 @@ -- | Returns a single review. -- -- /See:/ 'reviewsGet' smart constructor. -data ReviewsGet = ReviewsGet' +data ReviewsGet = + ReviewsGet' { _rgReviewId :: !Text , _rgPackageName :: !Text , _rgTranslationLanguage :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ReviewsGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -76,11 +79,12 @@ -> Text -- ^ 'rgPackageName' -> ReviewsGet reviewsGet pRgReviewId_ pRgPackageName_ = - ReviewsGet' + ReviewsGet' { _rgReviewId = pRgReviewId_ , _rgPackageName = pRgPackageName_ , _rgTranslationLanguage = Nothing } + rgReviewId :: Lens' ReviewsGet Text rgReviewId diff --git a/gen/Network/Google/Resource/AndroidPublisher/Reviews/List.hs b/gen/Network/Google/Resource/AndroidPublisher/Reviews/List.hs --- a/gen/Network/Google/Resource/AndroidPublisher/Reviews/List.hs +++ b/gen/Network/Google/Resource/AndroidPublisher/Reviews/List.hs @@ -61,14 +61,17 @@ -- | Returns a list of reviews. Only reviews from last week will be returned. -- -- /See:/ 'reviewsList' smart constructor. -data ReviewsList = ReviewsList' +data ReviewsList = + ReviewsList' { _rlPackageName :: !Text , _rlToken :: !(Maybe Text) , _rlTranslationLanguage :: !(Maybe Text) , _rlStartIndex :: !(Maybe (Textual Word32)) , _rlMaxResults :: !(Maybe (Textual Word32)) - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ReviewsList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -86,13 +89,14 @@ :: Text -- ^ 'rlPackageName' -> ReviewsList reviewsList pRlPackageName_ = - ReviewsList' + ReviewsList' { _rlPackageName = pRlPackageName_ , _rlToken = Nothing , _rlTranslationLanguage = Nothing , _rlStartIndex = Nothing , _rlMaxResults = Nothing } + -- | Unique identifier for the Android app for which we want reviews; for -- example, \"com.spiffygame\". diff --git a/gen/Network/Google/Resource/AndroidPublisher/Reviews/Reply.hs b/gen/Network/Google/Resource/AndroidPublisher/Reviews/Reply.hs --- a/gen/Network/Google/Resource/AndroidPublisher/Reviews/Reply.hs +++ b/gen/Network/Google/Resource/AndroidPublisher/Reviews/Reply.hs @@ -57,12 +57,15 @@ -- | Reply to a single review, or update an existing reply. -- -- /See:/ 'reviewsReply' smart constructor. -data ReviewsReply = ReviewsReply' +data ReviewsReply = + ReviewsReply' { _rrReviewId :: !Text , _rrPackageName :: !Text , _rrPayload :: !ReviewsReplyRequest - } deriving (Eq,Show,Data,Typeable,Generic) + } + deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ReviewsReply' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -78,11 +81,12 @@ -> ReviewsReplyRequest -- ^ 'rrPayload' -> ReviewsReply reviewsReply pRrReviewId_ pRrPackageName_ pRrPayload_ = - ReviewsReply' + ReviewsReply' { _rrReviewId = pRrReviewId_ , _rrPackageName = pRrPackageName_ , _rrPayload = pRrPayload_ } + rrReviewId :: Lens' ReviewsReply Text rrReviewId diff --git a/gogol-android-publisher.cabal b/gogol-android-publisher.cabal --- a/gogol-android-publisher.cabal +++ b/gogol-android-publisher.cabal @@ -1,5 +1,5 @@ name: gogol-android-publisher -version: 0.4.0 +version: 0.5.0 synopsis: Google Play Developer SDK. homepage: https://github.com/brendanhay/gogol bug-reports: https://github.com/brendanhay/gogol/issues @@ -93,5 +93,5 @@ , Network.Google.AndroidPublisher.Types.Sum build-depends: - gogol-core == 0.4.0.* + gogol-core == 0.5.0.* , base >= 4.7 && < 5