gogol-android-publisher 0.1.1 → 0.2.0

raw patch · 8 files changed

+621/−16 lines, 8 filesdep ~gogol-corePVP ok

version bump matches the API change (PVP)

Dependency ranges changed: gogol-core

API changes (from Hackage documentation)

Files

• README.md +1/−1
• gen/Network/Google/AndroidPublisher.hs +39/−0
• gen/Network/Google/AndroidPublisher/Types.hs +34/−0
• gen/Network/Google/AndroidPublisher/Types/Product.hs +346/−0
• gen/Network/Google/Resource/AndroidPublisher/Purchases/Voidedpurchases/List.hs +160/−0
• gen/Network/Google/Resource/AndroidPublisher/Reviews/Get.hs +17/−4
• gen/Network/Google/Resource/AndroidPublisher/Reviews/List.hs +21/−9
• gogol-android-publisher.cabal +3/−2

@@ -8,7 +8,7 @@  ## Version -`0.1.1`+`0.2.0`   ## Description

@@ -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

@@ -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

@@ -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.

@@ -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 <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Lists the purchases that were cancelled, refunded or charged-back.+--+-- /See:/ <https://developers.google.com/android-publisher Google Play Developer API Reference> 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

@@ -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)

@@ -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

@@ -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