@@ -509,9 +509,13 @@ data UserComment = UserComment'
509 { _ucAndroidOSVersion :: !(Maybe (Textual Int32))
509 { _ucAndroidOSVersion :: !(Maybe (Textual Int32))
510 , _ucText :: !(Maybe Text)
510 , _ucText :: !(Maybe Text)
511 , _ucDevice :: !(Maybe Text)
511 , _ucDevice :: !(Maybe Text)
512+ , _ucThumbsUpCount :: !(Maybe (Textual Int32))
512 , _ucAppVersionCode :: !(Maybe (Textual Int32))
513 , _ucAppVersionCode :: !(Maybe (Textual Int32))
514+ , _ucThumbsDownCount :: !(Maybe (Textual Int32))
515+ , _ucOriginalText :: !(Maybe Text)
513 , _ucAppVersionName :: !(Maybe Text)
516 , _ucAppVersionName :: !(Maybe Text)
514 , _ucReviewerLanguage :: !(Maybe Text)
517 , _ucReviewerLanguage :: !(Maybe Text)
518+ , _ucDeviceMetadata :: !(Maybe DeviceMetadata)
515 , _ucStarRating :: !(Maybe (Textual Int32))
519 , _ucStarRating :: !(Maybe (Textual Int32))
516 , _ucLastModified :: !(Maybe Timestamp)
520 , _ucLastModified :: !(Maybe Timestamp)
517 } deriving (Eq,Show,Data,Typeable,Generic)
521 } deriving (Eq,Show,Data,Typeable,Generic)
@@ -526,12 +530,20 @@ data UserComment = UserComment'
527-- * 'ucDevice'
531-- * 'ucDevice'
533+-- * 'ucThumbsUpCount'
529-- * 'ucAppVersionCode'
535-- * 'ucAppVersionCode'
537+-- * 'ucThumbsDownCount'
539+-- * 'ucOriginalText'
531-- * 'ucAppVersionName'
541-- * 'ucAppVersionName'
533-- * 'ucReviewerLanguage'
543-- * 'ucReviewerLanguage'
545+-- * 'ucDeviceMetadata'
535-- * 'ucStarRating'
547-- * 'ucStarRating'
537-- * 'ucLastModified'
549-- * 'ucLastModified'
@@ -542,9 +554,13 @@ userComment =
542 { _ucAndroidOSVersion = Nothing
554 { _ucAndroidOSVersion = Nothing
543 , _ucText = Nothing
555 , _ucText = Nothing
544 , _ucDevice = Nothing
556 , _ucDevice = Nothing
557+ , _ucThumbsUpCount = Nothing
545 , _ucAppVersionCode = Nothing
558 , _ucAppVersionCode = Nothing
559+ , _ucThumbsDownCount = Nothing
560+ , _ucOriginalText = Nothing
546 , _ucAppVersionName = Nothing
561 , _ucAppVersionName = Nothing
547 , _ucReviewerLanguage = Nothing
562 , _ucReviewerLanguage = Nothing
563+ , _ucDeviceMetadata = Nothing
548 , _ucStarRating = Nothing
564 , _ucStarRating = Nothing
549 , _ucLastModified = Nothing
565 , _ucLastModified = Nothing
@@ -567,6 +583,13 @@ ucText = lens _ucText (\ s a -> s{_ucText = a})
567ucDevice :: Lens' UserComment (Maybe Text)
583ucDevice :: Lens' UserComment (Maybe Text)
568ucDevice = lens _ucDevice (\ s a -> s{_ucDevice = a})
584ucDevice = lens _ucDevice (\ s a -> s{_ucDevice = a})
586+-- | Number of users who have given this review a thumbs up
587+ucThumbsUpCount :: Lens' UserComment (Maybe Int32)
589+ = lens _ucThumbsUpCount
590+ (\ s a -> s{_ucThumbsUpCount = a})
570-- | Integer version code of the app as installed at the time the review was
593-- | Integer version code of the app as installed at the time the review was
571-- written. May be absent.
594-- written. May be absent.
572ucAppVersionCode :: Lens' UserComment (Maybe Int32)
595ucAppVersionCode :: Lens' UserComment (Maybe Int32)
@@ -575,6 +598,20 @@ ucAppVersionCode
575 (\ s a -> s{_ucAppVersionCode = a})
598 (\ s a -> s{_ucAppVersionCode = a})
576 . mapping _Coerce
599 . mapping _Coerce
601+-- | Number of users who have given this review a thumbs down
602+ucThumbsDownCount :: Lens' UserComment (Maybe Int32)
604+ = lens _ucThumbsDownCount
605+ (\ s a -> s{_ucThumbsDownCount = a})
608+-- | Untranslated text of the review, in the case where the review has been
609+-- translated. If the review has not been translated this is left blank.
610+ucOriginalText :: Lens' UserComment (Maybe Text)
612+ = lens _ucOriginalText
613+ (\ s a -> s{_ucOriginalText = a})
578-- | String version name of the app as installed at the time the review was
615-- | String version name of the app as installed at the time the review was
579-- written. May be absent.
616-- written. May be absent.
580ucAppVersionName :: Lens' UserComment (Maybe Text)
617ucAppVersionName :: Lens' UserComment (Maybe Text)
@@ -590,6 +627,12 @@ ucReviewerLanguage
590 = lens _ucReviewerLanguage
627 = lens _ucReviewerLanguage
591 (\ s a -> s{_ucReviewerLanguage = a})
628 (\ s a -> s{_ucReviewerLanguage = a})
630+-- | Some information about the characteristics of the user\'s device
631+ucDeviceMetadata :: Lens' UserComment (Maybe DeviceMetadata)
633+ = lens _ucDeviceMetadata
634+ (\ s a -> s{_ucDeviceMetadata = a})
593-- | The star rating associated with the review, from 1 to 5.
636-- | The star rating associated with the review, from 1 to 5.
594ucStarRating :: Lens' UserComment (Maybe Int32)
637ucStarRating :: Lens' UserComment (Maybe Int32)
595ucStarRating
638ucStarRating
@@ -609,9 +652,13 @@ instance FromJSON UserComment where
609 UserComment' <$>
652 UserComment' <$>
610 (o .:? "androidOsVersion") <*> (o .:? "text") <*>
653 (o .:? "androidOsVersion") <*> (o .:? "text") <*>
611 (o .:? "device")
654 (o .:? "device")
655+ <*> (o .:? "thumbsUpCount")
612 <*> (o .:? "appVersionCode")
656 <*> (o .:? "appVersionCode")
657+ <*> (o .:? "thumbsDownCount")
658+ <*> (o .:? "originalText")
613 <*> (o .:? "appVersionName")
659 <*> (o .:? "appVersionName")
614 <*> (o .:? "reviewerLanguage")
660 <*> (o .:? "reviewerLanguage")
661+ <*> (o .:? "deviceMetadata")
615 <*> (o .:? "starRating")
662 <*> (o .:? "starRating")
616 <*> (o .:? "lastModified"))
663 <*> (o .:? "lastModified"))
@@ -621,9 +668,13 @@ instance ToJSON UserComment where
621 (catMaybes
668 (catMaybes
622 [("androidOsVersion" .=) <$> _ucAndroidOSVersion,
669 [("androidOsVersion" .=) <$> _ucAndroidOSVersion,
623 ("text" .=) <$> _ucText, ("device" .=) <$> _ucDevice,
670 ("text" .=) <$> _ucText, ("device" .=) <$> _ucDevice,
671+ ("thumbsUpCount" .=) <$> _ucThumbsUpCount,
624 ("appVersionCode" .=) <$> _ucAppVersionCode,
672 ("appVersionCode" .=) <$> _ucAppVersionCode,
673+ ("thumbsDownCount" .=) <$> _ucThumbsDownCount,
674+ ("originalText" .=) <$> _ucOriginalText,
625 ("appVersionName" .=) <$> _ucAppVersionName,
675 ("appVersionName" .=) <$> _ucAppVersionName,
626 ("reviewerLanguage" .=) <$> _ucReviewerLanguage,
676 ("reviewerLanguage" .=) <$> _ucReviewerLanguage,
677+ ("deviceMetadata" .=) <$> _ucDeviceMetadata,
627 ("starRating" .=) <$> _ucStarRating,
678 ("starRating" .=) <$> _ucStarRating,
628 ("lastModified" .=) <$> _ucLastModified])
679 ("lastModified" .=) <$> _ucLastModified])
@@ -1901,6 +1952,64 @@ instance ToJSON DeobfuscationFile where
1901 = object
1952 = object
1902 (catMaybes [("symbolType" .=) <$> _dfSymbolType])
1953 (catMaybes [("symbolType" .=) <$> _dfSymbolType])
1956+-- /See:/ 'voidedPurchasesListResponse' smart constructor.
1957+data VoidedPurchasesListResponse = VoidedPurchasesListResponse'
1958+ { _vplrTokenPagination :: !(Maybe TokenPagination)
1959+ , _vplrPageInfo :: !(Maybe PageInfo)
1960+ , _vplrVoidedPurchases :: !(Maybe [VoidedPurchase])
1961+ } deriving (Eq,Show,Data,Typeable,Generic)
1963+-- | Creates a value of 'VoidedPurchasesListResponse' with the minimum fields required to make a request.
1965+-- Use one of the following lenses to modify other fields as desired:
1967+-- * 'vplrTokenPagination'
1971+-- * 'vplrVoidedPurchases'
1972+voidedPurchasesListResponse
1973+ :: VoidedPurchasesListResponse
1974+voidedPurchasesListResponse =
1975+ VoidedPurchasesListResponse'
1976+ { _vplrTokenPagination = Nothing
1977+ , _vplrPageInfo = Nothing
1978+ , _vplrVoidedPurchases = Nothing
1981+vplrTokenPagination :: Lens' VoidedPurchasesListResponse (Maybe TokenPagination)
1983+ = lens _vplrTokenPagination
1984+ (\ s a -> s{_vplrTokenPagination = a})
1986+vplrPageInfo :: Lens' VoidedPurchasesListResponse (Maybe PageInfo)
1988+ = lens _vplrPageInfo (\ s a -> s{_vplrPageInfo = a})
1990+vplrVoidedPurchases :: Lens' VoidedPurchasesListResponse [VoidedPurchase]
1992+ = lens _vplrVoidedPurchases
1993+ (\ s a -> s{_vplrVoidedPurchases = a})
1997+instance FromJSON VoidedPurchasesListResponse where
1999+ = withObject "VoidedPurchasesListResponse"
2001+ VoidedPurchasesListResponse' <$>
2002+ (o .:? "tokenPagination") <*> (o .:? "pageInfo") <*>
2003+ (o .:? "voidedPurchases" .!= mempty))
2005+instance ToJSON VoidedPurchasesListResponse where
2006+ toJSON VoidedPurchasesListResponse'{..}
2009+ [("tokenPagination" .=) <$> _vplrTokenPagination,
2010+ ("pageInfo" .=) <$> _vplrPageInfo,
2011+ ("voidedPurchases" .=) <$> _vplrVoidedPurchases])
1905-- /See:/ 'expansionFilesUploadResponse' smart constructor.
2014-- /See:/ 'expansionFilesUploadResponse' smart constructor.
1906newtype ExpansionFilesUploadResponse = ExpansionFilesUploadResponse'
2015newtype ExpansionFilesUploadResponse = ExpansionFilesUploadResponse'
@@ -2405,6 +2514,164 @@ instance ToJSON ReviewsReplyRequest where
2405 = object
2514 = object
2406 (catMaybes [("replyText" .=) <$> _rrrReplyText])
2515 (catMaybes [("replyText" .=) <$> _rrrReplyText])
2518+-- /See:/ 'deviceMetadata' smart constructor.
2519+data DeviceMetadata = DeviceMetadata'
2520+ { _dmProductName :: !(Maybe Text)
2521+ , _dmGlEsVersion :: !(Maybe (Textual Int32))
2522+ , _dmManufacturer :: !(Maybe Text)
2523+ , _dmScreenWidthPx :: !(Maybe (Textual Int32))
2524+ , _dmRamMb :: !(Maybe (Textual Int32))
2525+ , _dmCPUMake :: !(Maybe Text)
2526+ , _dmScreenHeightPx :: !(Maybe (Textual Int32))
2527+ , _dmNATivePlatform :: !(Maybe Text)
2528+ , _dmDeviceClass :: !(Maybe Text)
2529+ , _dmCPUModel :: !(Maybe Text)
2530+ , _dmScreenDensityDpi :: !(Maybe (Textual Int32))
2531+ } deriving (Eq,Show,Data,Typeable,Generic)
2533+-- | Creates a value of 'DeviceMetadata' with the minimum fields required to make a request.
2535+-- Use one of the following lenses to modify other fields as desired:
2537+-- * 'dmProductName'
2539+-- * 'dmGlEsVersion'
2541+-- * 'dmManufacturer'
2543+-- * 'dmScreenWidthPx'
2549+-- * 'dmScreenHeightPx'
2551+-- * 'dmNATivePlatform'
2553+-- * 'dmDeviceClass'
2557+-- * 'dmScreenDensityDpi'
2562+ { _dmProductName = Nothing
2563+ , _dmGlEsVersion = Nothing
2564+ , _dmManufacturer = Nothing
2565+ , _dmScreenWidthPx = Nothing
2566+ , _dmRamMb = Nothing
2567+ , _dmCPUMake = Nothing
2568+ , _dmScreenHeightPx = Nothing
2569+ , _dmNATivePlatform = Nothing
2570+ , _dmDeviceClass = Nothing
2571+ , _dmCPUModel = Nothing
2572+ , _dmScreenDensityDpi = Nothing
2575+-- | Device model name (e.g. Droid)
2576+dmProductName :: Lens' DeviceMetadata (Maybe Text)
2578+ = lens _dmProductName
2579+ (\ s a -> s{_dmProductName = a})
2582+dmGlEsVersion :: Lens' DeviceMetadata (Maybe Int32)
2584+ = lens _dmGlEsVersion
2585+ (\ s a -> s{_dmGlEsVersion = a})
2588+-- | Device manufacturer (e.g. Motorola)
2589+dmManufacturer :: Lens' DeviceMetadata (Maybe Text)
2591+ = lens _dmManufacturer
2592+ (\ s a -> s{_dmManufacturer = a})
2594+-- | Screen width in pixels
2595+dmScreenWidthPx :: Lens' DeviceMetadata (Maybe Int32)
2597+ = lens _dmScreenWidthPx
2598+ (\ s a -> s{_dmScreenWidthPx = a})
2601+-- | Device RAM in Megabytes e.g. \"2048\"
2602+dmRamMb :: Lens' DeviceMetadata (Maybe Int32)
2604+ = lens _dmRamMb (\ s a -> s{_dmRamMb = a}) .
2607+-- | Device CPU make e.g. \"Qualcomm\"
2608+dmCPUMake :: Lens' DeviceMetadata (Maybe Text)
2610+ = lens _dmCPUMake (\ s a -> s{_dmCPUMake = a})
2612+-- | Screen height in pixels
2613+dmScreenHeightPx :: Lens' DeviceMetadata (Maybe Int32)
2615+ = lens _dmScreenHeightPx
2616+ (\ s a -> s{_dmScreenHeightPx = a})
2619+-- | Comma separated list of native platforms (e.g. \"arm\", \"arm7\")
2620+dmNATivePlatform :: Lens' DeviceMetadata (Maybe Text)
2622+ = lens _dmNATivePlatform
2623+ (\ s a -> s{_dmNATivePlatform = a})
2625+-- | Device class (e.g. tablet)
2626+dmDeviceClass :: Lens' DeviceMetadata (Maybe Text)
2628+ = lens _dmDeviceClass
2629+ (\ s a -> s{_dmDeviceClass = a})
2631+-- | Device CPU model e.g. \"MSM8974\"
2632+dmCPUModel :: Lens' DeviceMetadata (Maybe Text)
2634+ = lens _dmCPUModel (\ s a -> s{_dmCPUModel = a})
2636+-- | Screen density in DPI
2637+dmScreenDensityDpi :: Lens' DeviceMetadata (Maybe Int32)
2639+ = lens _dmScreenDensityDpi
2640+ (\ s a -> s{_dmScreenDensityDpi = a})
2643+instance FromJSON DeviceMetadata where
2645+ = withObject "DeviceMetadata"
2647+ DeviceMetadata' <$>
2648+ (o .:? "productName") <*> (o .:? "glEsVersion") <*>
2649+ (o .:? "manufacturer")
2650+ <*> (o .:? "screenWidthPx")
2651+ <*> (o .:? "ramMb")
2652+ <*> (o .:? "cpuMake")
2653+ <*> (o .:? "screenHeightPx")
2654+ <*> (o .:? "nativePlatform")
2655+ <*> (o .:? "deviceClass")
2656+ <*> (o .:? "cpuModel")
2657+ <*> (o .:? "screenDensityDpi"))
2659+instance ToJSON DeviceMetadata where
2660+ toJSON DeviceMetadata'{..}
2663+ [("productName" .=) <$> _dmProductName,
2664+ ("glEsVersion" .=) <$> _dmGlEsVersion,
2665+ ("manufacturer" .=) <$> _dmManufacturer,
2666+ ("screenWidthPx" .=) <$> _dmScreenWidthPx,
2667+ ("ramMb" .=) <$> _dmRamMb,
2668+ ("cpuMake" .=) <$> _dmCPUMake,
2669+ ("screenHeightPx" .=) <$> _dmScreenHeightPx,
2670+ ("nativePlatform" .=) <$> _dmNATivePlatform,
2671+ ("deviceClass" .=) <$> _dmDeviceClass,
2672+ ("cpuModel" .=) <$> _dmCPUModel,
2673+ ("screenDensityDpi" .=) <$> _dmScreenDensityDpi])
2409-- /See:/ 'developerComment' smart constructor.
2676-- /See:/ 'developerComment' smart constructor.
2410data DeveloperComment = DeveloperComment'
2677data DeveloperComment = DeveloperComment'
@@ -3188,6 +3455,85 @@ instance ToJSON Timestamp where
3188 [("nanos" .=) <$> _tNanos,
3455 [("nanos" .=) <$> _tNanos,
3189 ("seconds" .=) <$> _tSeconds])
3456 ("seconds" .=) <$> _tSeconds])
3458+-- | A VoidedPurchase resource indicates a purchase that was either
3459+-- cancelled\/refunded\/charged-back.
3461+-- /See:/ 'voidedPurchase' smart constructor.
3462+data VoidedPurchase = VoidedPurchase'
3464+ , _vpPurchaseTimeMillis :: !(Maybe (Textual Int64))
3465+ , _vpPurchaseToken :: !(Maybe Text)
3466+ , _vpVoidedTimeMillis :: !(Maybe (Textual Int64))
3467+ } deriving (Eq,Show,Data,Typeable,Generic)
3469+-- | Creates a value of 'VoidedPurchase' with the minimum fields required to make a request.
3471+-- Use one of the following lenses to modify other fields as desired:
3475+-- * 'vpPurchaseTimeMillis'
3477+-- * 'vpPurchaseToken'
3479+-- * 'vpVoidedTimeMillis'
3484+ { _vpKind = "androidpublisher#voidedPurchase"
3485+ , _vpPurchaseTimeMillis = Nothing
3486+ , _vpPurchaseToken = Nothing
3487+ , _vpVoidedTimeMillis = Nothing
3490+-- | This kind represents a voided purchase object in the androidpublisher
3492+vpKind :: Lens' VoidedPurchase Text
3493+vpKind = lens _vpKind (\ s a -> s{_vpKind = a})
3495+-- | The time at which the purchase was made, in milliseconds since the epoch
3497+vpPurchaseTimeMillis :: Lens' VoidedPurchase (Maybe Int64)
3498+vpPurchaseTimeMillis
3499+ = lens _vpPurchaseTimeMillis
3500+ (\ s a -> s{_vpPurchaseTimeMillis = a})
3503+-- | The token that was generated when a purchase was made. This uniquely
3504+-- identifies a purchase.
3505+vpPurchaseToken :: Lens' VoidedPurchase (Maybe Text)
3507+ = lens _vpPurchaseToken
3508+ (\ s a -> s{_vpPurchaseToken = a})
3510+-- | The time at which the purchase was cancelled\/refunded\/charged-back, in
3511+-- milliseconds since the epoch (Jan 1, 1970).
3512+vpVoidedTimeMillis :: Lens' VoidedPurchase (Maybe Int64)
3514+ = lens _vpVoidedTimeMillis
3515+ (\ s a -> s{_vpVoidedTimeMillis = a})
3518+instance FromJSON VoidedPurchase where
3520+ = withObject "VoidedPurchase"
3522+ VoidedPurchase' <$>
3523+ (o .:? "kind" .!= "androidpublisher#voidedPurchase")
3524+ <*> (o .:? "purchaseTimeMillis")
3525+ <*> (o .:? "purchaseToken")
3526+ <*> (o .:? "voidedTimeMillis"))
3528+instance ToJSON VoidedPurchase where
3529+ toJSON VoidedPurchase'{..}
3532+ [Just ("kind" .= _vpKind),
3533+ ("purchaseTimeMillis" .=) <$> _vpPurchaseTimeMillis,
3534+ ("purchaseToken" .=) <$> _vpPurchaseToken,
3535+ ("voidedTimeMillis" .=) <$> _vpVoidedTimeMillis])
3192-- /See:/ 'reviewReplyResult' smart constructor.
3538-- /See:/ 'reviewReplyResult' smart constructor.
3193data ReviewReplyResult = ReviewReplyResult'
3539data ReviewReplyResult = ReviewReplyResult'