diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -8,7 +8,7 @@ ## Version -`0.1.1` +`0.2.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 @@ -188,6 +188,9 @@ -- ** androidpublisher.purchases.subscriptions.revoke , module Network.Google.Resource.AndroidPublisher.Purchases.Subscriptions.Revoke + -- ** androidpublisher.purchases.voidedpurchases.list + , module Network.Google.Resource.AndroidPublisher.Purchases.Voidedpurchases.List + -- ** androidpublisher.reviews.get , module Network.Google.Resource.AndroidPublisher.Reviews.Get @@ -272,9 +275,13 @@ , ucAndroidOSVersion , ucText , ucDevice + , ucThumbsUpCount , ucAppVersionCode + , ucThumbsDownCount + , ucOriginalText , ucAppVersionName , ucReviewerLanguage + , ucDeviceMetadata , ucStarRating , ucLastModified @@ -433,6 +440,13 @@ , deobfuscationFile , dfSymbolType + -- ** VoidedPurchasesListResponse + , VoidedPurchasesListResponse + , voidedPurchasesListResponse + , vplrTokenPagination + , vplrPageInfo + , vplrVoidedPurchases + -- ** ExpansionFilesUploadResponse , ExpansionFilesUploadResponse , expansionFilesUploadResponse @@ -514,6 +528,21 @@ -- ** EditsExpansionFilesUpdateExpansionFileType , EditsExpansionFilesUpdateExpansionFileType (..) + -- ** DeviceMetadata + , DeviceMetadata + , deviceMetadata + , dmProductName + , dmGlEsVersion + , dmManufacturer + , dmScreenWidthPx + , dmRamMb + , dmCPUMake + , dmScreenHeightPx + , dmNATivePlatform + , dmDeviceClass + , dmCPUModel + , dmScreenDensityDpi + -- ** DeveloperComment , DeveloperComment , developerComment @@ -616,6 +645,14 @@ , tNanos , tSeconds + -- ** VoidedPurchase + , VoidedPurchase + , voidedPurchase + , vpKind + , vpPurchaseTimeMillis + , vpPurchaseToken + , vpVoidedTimeMillis + -- ** ReviewReplyResult , ReviewReplyResult , reviewReplyResult @@ -692,6 +729,7 @@ import Network.Google.Resource.AndroidPublisher.Purchases.Subscriptions.Get import Network.Google.Resource.AndroidPublisher.Purchases.Subscriptions.Refund import Network.Google.Resource.AndroidPublisher.Purchases.Subscriptions.Revoke +import Network.Google.Resource.AndroidPublisher.Purchases.Voidedpurchases.List import Network.Google.Resource.AndroidPublisher.Reviews.Get import Network.Google.Resource.AndroidPublisher.Reviews.List import Network.Google.Resource.AndroidPublisher.Reviews.Reply @@ -752,6 +790,7 @@ :<|> EditsDeleteResource :<|> EditsCommitResource :<|> EntitlementsListResource + :<|> PurchasesVoidedpurchasesListResource :<|> PurchasesProductsGetResource :<|> PurchasesSubscriptionsDeferResource :<|> PurchasesSubscriptionsGetResource 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 @@ -95,9 +95,13 @@ , ucAndroidOSVersion , ucText , ucDevice + , ucThumbsUpCount , ucAppVersionCode + , ucThumbsDownCount + , ucOriginalText , ucAppVersionName , ucReviewerLanguage + , ucDeviceMetadata , ucStarRating , ucLastModified @@ -256,6 +260,13 @@ , deobfuscationFile , dfSymbolType + -- * VoidedPurchasesListResponse + , VoidedPurchasesListResponse + , voidedPurchasesListResponse + , vplrTokenPagination + , vplrPageInfo + , vplrVoidedPurchases + -- * ExpansionFilesUploadResponse , ExpansionFilesUploadResponse , expansionFilesUploadResponse @@ -337,6 +348,21 @@ -- * EditsExpansionFilesUpdateExpansionFileType , EditsExpansionFilesUpdateExpansionFileType (..) + -- * DeviceMetadata + , DeviceMetadata + , deviceMetadata + , dmProductName + , dmGlEsVersion + , dmManufacturer + , dmScreenWidthPx + , dmRamMb + , dmCPUMake + , dmScreenHeightPx + , dmNATivePlatform + , dmDeviceClass + , dmCPUModel + , dmScreenDensityDpi + -- * DeveloperComment , DeveloperComment , developerComment @@ -438,6 +464,14 @@ , timestamp , tNanos , tSeconds + + -- * VoidedPurchase + , VoidedPurchase + , voidedPurchase + , vpKind + , vpPurchaseTimeMillis + , vpPurchaseToken + , vpVoidedTimeMillis -- * ReviewReplyResult , ReviewReplyResult 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 @@ -509,9 +509,13 @@ { _ucAndroidOSVersion :: !(Maybe (Textual Int32)) , _ucText :: !(Maybe Text) , _ucDevice :: !(Maybe Text) + , _ucThumbsUpCount :: !(Maybe (Textual Int32)) , _ucAppVersionCode :: !(Maybe (Textual Int32)) + , _ucThumbsDownCount :: !(Maybe (Textual Int32)) + , _ucOriginalText :: !(Maybe Text) , _ucAppVersionName :: !(Maybe Text) , _ucReviewerLanguage :: !(Maybe Text) + , _ucDeviceMetadata :: !(Maybe DeviceMetadata) , _ucStarRating :: !(Maybe (Textual Int32)) , _ucLastModified :: !(Maybe Timestamp) } deriving (Eq,Show,Data,Typeable,Generic) @@ -526,12 +530,20 @@ -- -- * 'ucDevice' -- +-- * 'ucThumbsUpCount' +-- -- * 'ucAppVersionCode' -- +-- * 'ucThumbsDownCount' +-- +-- * 'ucOriginalText' +-- -- * 'ucAppVersionName' -- -- * 'ucReviewerLanguage' -- +-- * 'ucDeviceMetadata' +-- -- * 'ucStarRating' -- -- * 'ucLastModified' @@ -542,9 +554,13 @@ { _ucAndroidOSVersion = Nothing , _ucText = Nothing , _ucDevice = Nothing + , _ucThumbsUpCount = Nothing , _ucAppVersionCode = Nothing + , _ucThumbsDownCount = Nothing + , _ucOriginalText = Nothing , _ucAppVersionName = Nothing , _ucReviewerLanguage = Nothing + , _ucDeviceMetadata = Nothing , _ucStarRating = Nothing , _ucLastModified = Nothing } @@ -567,6 +583,13 @@ ucDevice :: Lens' UserComment (Maybe Text) ucDevice = lens _ucDevice (\ s a -> s{_ucDevice = a}) +-- | Number of users who have given this review a thumbs up +ucThumbsUpCount :: Lens' UserComment (Maybe Int32) +ucThumbsUpCount + = lens _ucThumbsUpCount + (\ s a -> s{_ucThumbsUpCount = a}) + . mapping _Coerce + -- | Integer version code of the app as installed at the time the review was -- written. May be absent. ucAppVersionCode :: Lens' UserComment (Maybe Int32) @@ -575,6 +598,20 @@ (\ s a -> s{_ucAppVersionCode = a}) . mapping _Coerce +-- | Number of users who have given this review a thumbs down +ucThumbsDownCount :: Lens' UserComment (Maybe Int32) +ucThumbsDownCount + = lens _ucThumbsDownCount + (\ s a -> s{_ucThumbsDownCount = a}) + . mapping _Coerce + +-- | Untranslated text of the review, in the case where the review has been +-- translated. If the review has not been translated this is left blank. +ucOriginalText :: Lens' UserComment (Maybe Text) +ucOriginalText + = lens _ucOriginalText + (\ s a -> s{_ucOriginalText = a}) + -- | String version name of the app as installed at the time the review was -- written. May be absent. ucAppVersionName :: Lens' UserComment (Maybe Text) @@ -590,6 +627,12 @@ = lens _ucReviewerLanguage (\ s a -> s{_ucReviewerLanguage = a}) +-- | Some information about the characteristics of the user\'s device +ucDeviceMetadata :: Lens' UserComment (Maybe DeviceMetadata) +ucDeviceMetadata + = lens _ucDeviceMetadata + (\ s a -> s{_ucDeviceMetadata = a}) + -- | The star rating associated with the review, from 1 to 5. ucStarRating :: Lens' UserComment (Maybe Int32) ucStarRating @@ -609,9 +652,13 @@ UserComment' <$> (o .:? "androidOsVersion") <*> (o .:? "text") <*> (o .:? "device") + <*> (o .:? "thumbsUpCount") <*> (o .:? "appVersionCode") + <*> (o .:? "thumbsDownCount") + <*> (o .:? "originalText") <*> (o .:? "appVersionName") <*> (o .:? "reviewerLanguage") + <*> (o .:? "deviceMetadata") <*> (o .:? "starRating") <*> (o .:? "lastModified")) @@ -621,9 +668,13 @@ (catMaybes [("androidOsVersion" .=) <$> _ucAndroidOSVersion, ("text" .=) <$> _ucText, ("device" .=) <$> _ucDevice, + ("thumbsUpCount" .=) <$> _ucThumbsUpCount, ("appVersionCode" .=) <$> _ucAppVersionCode, + ("thumbsDownCount" .=) <$> _ucThumbsDownCount, + ("originalText" .=) <$> _ucOriginalText, ("appVersionName" .=) <$> _ucAppVersionName, ("reviewerLanguage" .=) <$> _ucReviewerLanguage, + ("deviceMetadata" .=) <$> _ucDeviceMetadata, ("starRating" .=) <$> _ucStarRating, ("lastModified" .=) <$> _ucLastModified]) @@ -1902,6 +1953,64 @@ (catMaybes [("symbolType" .=) <$> _dfSymbolType]) -- +-- /See:/ 'voidedPurchasesListResponse' smart constructor. +data VoidedPurchasesListResponse = VoidedPurchasesListResponse' + { _vplrTokenPagination :: !(Maybe TokenPagination) + , _vplrPageInfo :: !(Maybe PageInfo) + , _vplrVoidedPurchases :: !(Maybe [VoidedPurchase]) + } 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: +-- +-- * 'vplrTokenPagination' +-- +-- * 'vplrPageInfo' +-- +-- * 'vplrVoidedPurchases' +voidedPurchasesListResponse + :: VoidedPurchasesListResponse +voidedPurchasesListResponse = + VoidedPurchasesListResponse' + { _vplrTokenPagination = Nothing + , _vplrPageInfo = Nothing + , _vplrVoidedPurchases = Nothing + } + +vplrTokenPagination :: Lens' VoidedPurchasesListResponse (Maybe TokenPagination) +vplrTokenPagination + = lens _vplrTokenPagination + (\ s a -> s{_vplrTokenPagination = a}) + +vplrPageInfo :: Lens' VoidedPurchasesListResponse (Maybe PageInfo) +vplrPageInfo + = lens _vplrPageInfo (\ s a -> s{_vplrPageInfo = a}) + +vplrVoidedPurchases :: Lens' VoidedPurchasesListResponse [VoidedPurchase] +vplrVoidedPurchases + = lens _vplrVoidedPurchases + (\ s a -> s{_vplrVoidedPurchases = a}) + . _Default + . _Coerce + +instance FromJSON VoidedPurchasesListResponse where + parseJSON + = withObject "VoidedPurchasesListResponse" + (\ o -> + VoidedPurchasesListResponse' <$> + (o .:? "tokenPagination") <*> (o .:? "pageInfo") <*> + (o .:? "voidedPurchases" .!= mempty)) + +instance ToJSON VoidedPurchasesListResponse where + toJSON VoidedPurchasesListResponse'{..} + = object + (catMaybes + [("tokenPagination" .=) <$> _vplrTokenPagination, + ("pageInfo" .=) <$> _vplrPageInfo, + ("voidedPurchases" .=) <$> _vplrVoidedPurchases]) + +-- -- /See:/ 'expansionFilesUploadResponse' smart constructor. newtype ExpansionFilesUploadResponse = ExpansionFilesUploadResponse' { _efurExpansionFile :: Maybe ExpansionFile @@ -2406,6 +2515,164 @@ (catMaybes [("replyText" .=) <$> _rrrReplyText]) -- +-- /See:/ 'deviceMetadata' smart constructor. +data DeviceMetadata = DeviceMetadata' + { _dmProductName :: !(Maybe Text) + , _dmGlEsVersion :: !(Maybe (Textual Int32)) + , _dmManufacturer :: !(Maybe Text) + , _dmScreenWidthPx :: !(Maybe (Textual Int32)) + , _dmRamMb :: !(Maybe (Textual Int32)) + , _dmCPUMake :: !(Maybe Text) + , _dmScreenHeightPx :: !(Maybe (Textual Int32)) + , _dmNATivePlatform :: !(Maybe Text) + , _dmDeviceClass :: !(Maybe Text) + , _dmCPUModel :: !(Maybe Text) + , _dmScreenDensityDpi :: !(Maybe (Textual Int32)) + } 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: +-- +-- * 'dmProductName' +-- +-- * 'dmGlEsVersion' +-- +-- * 'dmManufacturer' +-- +-- * 'dmScreenWidthPx' +-- +-- * 'dmRamMb' +-- +-- * 'dmCPUMake' +-- +-- * 'dmScreenHeightPx' +-- +-- * 'dmNATivePlatform' +-- +-- * 'dmDeviceClass' +-- +-- * 'dmCPUModel' +-- +-- * 'dmScreenDensityDpi' +deviceMetadata + :: DeviceMetadata +deviceMetadata = + DeviceMetadata' + { _dmProductName = Nothing + , _dmGlEsVersion = Nothing + , _dmManufacturer = Nothing + , _dmScreenWidthPx = Nothing + , _dmRamMb = Nothing + , _dmCPUMake = Nothing + , _dmScreenHeightPx = Nothing + , _dmNATivePlatform = Nothing + , _dmDeviceClass = Nothing + , _dmCPUModel = Nothing + , _dmScreenDensityDpi = Nothing + } + +-- | Device model name (e.g. Droid) +dmProductName :: Lens' DeviceMetadata (Maybe Text) +dmProductName + = lens _dmProductName + (\ s a -> s{_dmProductName = a}) + +-- | OpenGL version +dmGlEsVersion :: Lens' DeviceMetadata (Maybe Int32) +dmGlEsVersion + = lens _dmGlEsVersion + (\ s a -> s{_dmGlEsVersion = a}) + . mapping _Coerce + +-- | Device manufacturer (e.g. Motorola) +dmManufacturer :: Lens' DeviceMetadata (Maybe Text) +dmManufacturer + = lens _dmManufacturer + (\ s a -> s{_dmManufacturer = a}) + +-- | Screen width in pixels +dmScreenWidthPx :: Lens' DeviceMetadata (Maybe Int32) +dmScreenWidthPx + = lens _dmScreenWidthPx + (\ s a -> s{_dmScreenWidthPx = a}) + . mapping _Coerce + +-- | Device RAM in Megabytes e.g. \"2048\" +dmRamMb :: Lens' DeviceMetadata (Maybe Int32) +dmRamMb + = lens _dmRamMb (\ s a -> s{_dmRamMb = a}) . + mapping _Coerce + +-- | Device CPU make e.g. \"Qualcomm\" +dmCPUMake :: Lens' DeviceMetadata (Maybe Text) +dmCPUMake + = lens _dmCPUMake (\ s a -> s{_dmCPUMake = a}) + +-- | Screen height in pixels +dmScreenHeightPx :: Lens' DeviceMetadata (Maybe Int32) +dmScreenHeightPx + = lens _dmScreenHeightPx + (\ s a -> s{_dmScreenHeightPx = a}) + . mapping _Coerce + +-- | Comma separated list of native platforms (e.g. \"arm\", \"arm7\") +dmNATivePlatform :: Lens' DeviceMetadata (Maybe Text) +dmNATivePlatform + = lens _dmNATivePlatform + (\ s a -> s{_dmNATivePlatform = a}) + +-- | Device class (e.g. tablet) +dmDeviceClass :: Lens' DeviceMetadata (Maybe Text) +dmDeviceClass + = lens _dmDeviceClass + (\ s a -> s{_dmDeviceClass = a}) + +-- | Device CPU model e.g. \"MSM8974\" +dmCPUModel :: Lens' DeviceMetadata (Maybe Text) +dmCPUModel + = lens _dmCPUModel (\ s a -> s{_dmCPUModel = a}) + +-- | Screen density in DPI +dmScreenDensityDpi :: Lens' DeviceMetadata (Maybe Int32) +dmScreenDensityDpi + = lens _dmScreenDensityDpi + (\ s a -> s{_dmScreenDensityDpi = a}) + . mapping _Coerce + +instance FromJSON DeviceMetadata where + parseJSON + = withObject "DeviceMetadata" + (\ o -> + DeviceMetadata' <$> + (o .:? "productName") <*> (o .:? "glEsVersion") <*> + (o .:? "manufacturer") + <*> (o .:? "screenWidthPx") + <*> (o .:? "ramMb") + <*> (o .:? "cpuMake") + <*> (o .:? "screenHeightPx") + <*> (o .:? "nativePlatform") + <*> (o .:? "deviceClass") + <*> (o .:? "cpuModel") + <*> (o .:? "screenDensityDpi")) + +instance ToJSON DeviceMetadata where + toJSON DeviceMetadata'{..} + = object + (catMaybes + [("productName" .=) <$> _dmProductName, + ("glEsVersion" .=) <$> _dmGlEsVersion, + ("manufacturer" .=) <$> _dmManufacturer, + ("screenWidthPx" .=) <$> _dmScreenWidthPx, + ("ramMb" .=) <$> _dmRamMb, + ("cpuMake" .=) <$> _dmCPUMake, + ("screenHeightPx" .=) <$> _dmScreenHeightPx, + ("nativePlatform" .=) <$> _dmNATivePlatform, + ("deviceClass" .=) <$> _dmDeviceClass, + ("cpuModel" .=) <$> _dmCPUModel, + ("screenDensityDpi" .=) <$> _dmScreenDensityDpi]) + +-- -- /See:/ 'developerComment' smart constructor. data DeveloperComment = DeveloperComment' { _dcText :: !(Maybe Text) @@ -3187,6 +3454,85 @@ (catMaybes [("nanos" .=) <$> _tNanos, ("seconds" .=) <$> _tSeconds]) + +-- | A VoidedPurchase resource indicates a purchase that was either +-- cancelled\/refunded\/charged-back. +-- +-- /See:/ 'voidedPurchase' smart constructor. +data VoidedPurchase = VoidedPurchase' + { _vpKind :: !Text + , _vpPurchaseTimeMillis :: !(Maybe (Textual Int64)) + , _vpPurchaseToken :: !(Maybe Text) + , _vpVoidedTimeMillis :: !(Maybe (Textual Int64)) + } 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: +-- +-- * 'vpKind' +-- +-- * 'vpPurchaseTimeMillis' +-- +-- * 'vpPurchaseToken' +-- +-- * 'vpVoidedTimeMillis' +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 +vpKind = lens _vpKind (\ s a -> s{_vpKind = a}) + +-- | The time at which the purchase was made, in milliseconds since the epoch +-- (Jan 1, 1970). +vpPurchaseTimeMillis :: Lens' VoidedPurchase (Maybe Int64) +vpPurchaseTimeMillis + = lens _vpPurchaseTimeMillis + (\ s a -> s{_vpPurchaseTimeMillis = a}) + . mapping _Coerce + +-- | The token that was generated when a purchase was made. This uniquely +-- identifies a purchase. +vpPurchaseToken :: Lens' VoidedPurchase (Maybe Text) +vpPurchaseToken + = lens _vpPurchaseToken + (\ s a -> s{_vpPurchaseToken = a}) + +-- | The time at which the purchase was cancelled\/refunded\/charged-back, in +-- milliseconds since the epoch (Jan 1, 1970). +vpVoidedTimeMillis :: Lens' VoidedPurchase (Maybe Int64) +vpVoidedTimeMillis + = lens _vpVoidedTimeMillis + (\ s a -> s{_vpVoidedTimeMillis = a}) + . mapping _Coerce + +instance FromJSON VoidedPurchase where + parseJSON + = withObject "VoidedPurchase" + (\ o -> + VoidedPurchase' <$> + (o .:? "kind" .!= "androidpublisher#voidedPurchase") + <*> (o .:? "purchaseTimeMillis") + <*> (o .:? "purchaseToken") + <*> (o .:? "voidedTimeMillis")) + +instance ToJSON VoidedPurchase where + toJSON VoidedPurchase'{..} + = object + (catMaybes + [Just ("kind" .= _vpKind), + ("purchaseTimeMillis" .=) <$> _vpPurchaseTimeMillis, + ("purchaseToken" .=) <$> _vpPurchaseToken, + ("voidedTimeMillis" .=) <$> _vpVoidedTimeMillis]) -- -- /See:/ 'reviewReplyResult' smart constructor. diff --git a/gen/Network/Google/Resource/AndroidPublisher/Purchases/Voidedpurchases/List.hs b/gen/Network/Google/Resource/AndroidPublisher/Purchases/Voidedpurchases/List.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/AndroidPublisher/Purchases/Voidedpurchases/List.hs @@ -0,0 +1,160 @@ +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE DeriveDataTypeable #-} +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE TypeOperators #-} + +{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- | +-- Module : Network.Google.Resource.AndroidPublisher.Purchases.Voidedpurchases.List +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Lists the purchases that were cancelled, refunded or charged-back. +-- +-- /See:/ for @androidpublisher.purchases.voidedpurchases.list@. +module Network.Google.Resource.AndroidPublisher.Purchases.Voidedpurchases.List + ( + -- * REST Resource + PurchasesVoidedpurchasesListResource + + -- * Creating a Request + , purchasesVoidedpurchasesList + , PurchasesVoidedpurchasesList + + -- * Request Lenses + , pvlPackageName + , pvlStartTime + , pvlToken + , pvlEndTime + , pvlStartIndex + , pvlMaxResults + ) where + +import Network.Google.AndroidPublisher.Types +import Network.Google.Prelude + +-- | A resource alias for @androidpublisher.purchases.voidedpurchases.list@ method which the +-- 'PurchasesVoidedpurchasesList' request conforms to. +type PurchasesVoidedpurchasesListResource = + "androidpublisher" :> + "v2" :> + "applications" :> + Capture "packageName" Text :> + "purchases" :> + "voidedpurchases" :> + QueryParam "startTime" (Textual Int64) :> + QueryParam "token" Text :> + QueryParam "endTime" (Textual Int64) :> + QueryParam "startIndex" (Textual Word32) :> + QueryParam "maxResults" (Textual Word32) :> + QueryParam "alt" AltJSON :> + Get '[JSON] VoidedPurchasesListResponse + +-- | Lists the purchases that were cancelled, refunded or charged-back. +-- +-- /See:/ 'purchasesVoidedpurchasesList' smart constructor. +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) + +-- | 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: +-- +-- * 'pvlPackageName' +-- +-- * 'pvlStartTime' +-- +-- * 'pvlToken' +-- +-- * 'pvlEndTime' +-- +-- * 'pvlStartIndex' +-- +-- * 'pvlMaxResults' +purchasesVoidedpurchasesList + :: Text -- ^ 'pvlPackageName' + -> PurchasesVoidedpurchasesList +purchasesVoidedpurchasesList pPvlPackageName_ = + PurchasesVoidedpurchasesList' + { _pvlPackageName = pPvlPackageName_ + , _pvlStartTime = Nothing + , _pvlToken = Nothing + , _pvlEndTime = Nothing + , _pvlStartIndex = Nothing + , _pvlMaxResults = Nothing + } + +-- | The package name of the application for which voided purchases need to +-- be returned (for example, \'com.some.thing\'). +pvlPackageName :: Lens' PurchasesVoidedpurchasesList Text +pvlPackageName + = lens _pvlPackageName + (\ s a -> s{_pvlPackageName = a}) + +-- | The time, in milliseconds since the Epoch, of the oldest voided in-app +-- product purchase that you want to see in the response. The value of this +-- parameter cannot be older than 30 days and is ignored if a pagination +-- token is set. Default value is current time minus 30 days. +pvlStartTime :: Lens' PurchasesVoidedpurchasesList (Maybe Int64) +pvlStartTime + = lens _pvlStartTime (\ s a -> s{_pvlStartTime = a}) + . mapping _Coerce + +pvlToken :: Lens' PurchasesVoidedpurchasesList (Maybe Text) +pvlToken = lens _pvlToken (\ s a -> s{_pvlToken = a}) + +-- | The time, in milliseconds since the Epoch, of the newest voided in-app +-- product purchase that you want to see in the response. The value of this +-- parameter cannot be greater than the current time and is ignored if a +-- pagination token is set. Default value is current time. +pvlEndTime :: Lens' PurchasesVoidedpurchasesList (Maybe Int64) +pvlEndTime + = lens _pvlEndTime (\ s a -> s{_pvlEndTime = a}) . + mapping _Coerce + +pvlStartIndex :: Lens' PurchasesVoidedpurchasesList (Maybe Word32) +pvlStartIndex + = lens _pvlStartIndex + (\ s a -> s{_pvlStartIndex = a}) + . mapping _Coerce + +pvlMaxResults :: Lens' PurchasesVoidedpurchasesList (Maybe Word32) +pvlMaxResults + = lens _pvlMaxResults + (\ s a -> s{_pvlMaxResults = a}) + . mapping _Coerce + +instance GoogleRequest PurchasesVoidedpurchasesList + where + type Rs PurchasesVoidedpurchasesList = + VoidedPurchasesListResponse + type Scopes PurchasesVoidedpurchasesList = + '["https://www.googleapis.com/auth/androidpublisher"] + requestClient PurchasesVoidedpurchasesList'{..} + = go _pvlPackageName _pvlStartTime _pvlToken + _pvlEndTime + _pvlStartIndex + _pvlMaxResults + (Just AltJSON) + androidPublisherService + where go + = buildClient + (Proxy :: Proxy PurchasesVoidedpurchasesListResource) + mempty 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 @@ -35,6 +35,7 @@ -- * Request Lenses , rgReviewId , rgPackageName + , rgTranslationLanguage ) where import Network.Google.AndroidPublisher.Types @@ -49,14 +50,16 @@ Capture "packageName" Text :> "reviews" :> Capture "reviewId" Text :> - QueryParam "alt" AltJSON :> Get '[JSON] Review + QueryParam "translationLanguage" Text :> + QueryParam "alt" AltJSON :> Get '[JSON] Review -- | Returns a single review. -- -- /See:/ 'reviewsGet' smart constructor. data ReviewsGet = ReviewsGet' - { _rgReviewId :: !Text - , _rgPackageName :: !Text + { _rgReviewId :: !Text + , _rgPackageName :: !Text + , _rgTranslationLanguage :: !(Maybe Text) } deriving (Eq,Show,Data,Typeable,Generic) -- | Creates a value of 'ReviewsGet' with the minimum fields required to make a request. @@ -66,6 +69,8 @@ -- * 'rgReviewId' -- -- * 'rgPackageName' +-- +-- * 'rgTranslationLanguage' reviewsGet :: Text -- ^ 'rgReviewId' -> Text -- ^ 'rgPackageName' @@ -74,6 +79,7 @@ ReviewsGet' { _rgReviewId = pRgReviewId_ , _rgPackageName = pRgPackageName_ + , _rgTranslationLanguage = Nothing } rgReviewId :: Lens' ReviewsGet Text @@ -87,12 +93,19 @@ = lens _rgPackageName (\ s a -> s{_rgPackageName = a}) +rgTranslationLanguage :: Lens' ReviewsGet (Maybe Text) +rgTranslationLanguage + = lens _rgTranslationLanguage + (\ s a -> s{_rgTranslationLanguage = a}) + instance GoogleRequest ReviewsGet where type Rs ReviewsGet = Review type Scopes ReviewsGet = '["https://www.googleapis.com/auth/androidpublisher"] requestClient ReviewsGet'{..} - = go _rgPackageName _rgReviewId (Just AltJSON) + = go _rgPackageName _rgReviewId + _rgTranslationLanguage + (Just AltJSON) androidPublisherService where go = buildClient (Proxy :: Proxy ReviewsGetResource) 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 @@ -35,6 +35,7 @@ -- * Request Lenses , rlPackageName , rlToken + , rlTranslationLanguage , rlStartIndex , rlMaxResults ) where @@ -51,19 +52,21 @@ Capture "packageName" Text :> "reviews" :> QueryParam "token" Text :> - QueryParam "startIndex" (Textual Word32) :> - QueryParam "maxResults" (Textual Word32) :> - QueryParam "alt" AltJSON :> - Get '[JSON] ReviewsListResponse + QueryParam "translationLanguage" Text :> + QueryParam "startIndex" (Textual Word32) :> + QueryParam "maxResults" (Textual Word32) :> + QueryParam "alt" AltJSON :> + Get '[JSON] ReviewsListResponse -- | Returns a list of reviews. -- -- /See:/ 'reviewsList' smart constructor. data ReviewsList = ReviewsList' - { _rlPackageName :: !Text - , _rlToken :: !(Maybe Text) - , _rlStartIndex :: !(Maybe (Textual Word32)) - , _rlMaxResults :: !(Maybe (Textual Word32)) + { _rlPackageName :: !Text + , _rlToken :: !(Maybe Text) + , _rlTranslationLanguage :: !(Maybe Text) + , _rlStartIndex :: !(Maybe (Textual Word32)) + , _rlMaxResults :: !(Maybe (Textual Word32)) } deriving (Eq,Show,Data,Typeable,Generic) -- | Creates a value of 'ReviewsList' with the minimum fields required to make a request. @@ -74,6 +77,8 @@ -- -- * 'rlToken' -- +-- * 'rlTranslationLanguage' +-- -- * 'rlStartIndex' -- -- * 'rlMaxResults' @@ -84,6 +89,7 @@ ReviewsList' { _rlPackageName = pRlPackageName_ , _rlToken = Nothing + , _rlTranslationLanguage = Nothing , _rlStartIndex = Nothing , _rlMaxResults = Nothing } @@ -98,6 +104,11 @@ rlToken :: Lens' ReviewsList (Maybe Text) rlToken = lens _rlToken (\ s a -> s{_rlToken = a}) +rlTranslationLanguage :: Lens' ReviewsList (Maybe Text) +rlTranslationLanguage + = lens _rlTranslationLanguage + (\ s a -> s{_rlTranslationLanguage = a}) + rlStartIndex :: Lens' ReviewsList (Maybe Word32) rlStartIndex = lens _rlStartIndex (\ s a -> s{_rlStartIndex = a}) @@ -113,7 +124,8 @@ type Scopes ReviewsList = '["https://www.googleapis.com/auth/androidpublisher"] requestClient ReviewsList'{..} - = go _rlPackageName _rlToken _rlStartIndex + = go _rlPackageName _rlToken _rlTranslationLanguage + _rlStartIndex _rlMaxResults (Just AltJSON) androidPublisherService 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.1.1 +version: 0.2.0 synopsis: Google Play Developer SDK. homepage: https://github.com/brendanhay/gogol bug-reports: https://github.com/brendanhay/gogol/issues @@ -88,6 +88,7 @@ , Network.Google.Resource.AndroidPublisher.Purchases.Subscriptions.Get , Network.Google.Resource.AndroidPublisher.Purchases.Subscriptions.Refund , Network.Google.Resource.AndroidPublisher.Purchases.Subscriptions.Revoke + , Network.Google.Resource.AndroidPublisher.Purchases.Voidedpurchases.List , Network.Google.Resource.AndroidPublisher.Reviews.Get , Network.Google.Resource.AndroidPublisher.Reviews.List , Network.Google.Resource.AndroidPublisher.Reviews.Reply @@ -97,5 +98,5 @@ , Network.Google.AndroidPublisher.Types.Sum build-depends: - gogol-core == 0.1.1.* + gogol-core == 0.2.0.* , base >= 4.7 && < 5