packages feed

gogol-android-publisher 0.4.0 → 0.5.0

raw patch · 57 files changed

+872/−533 lines, 57 filesdep ~gogol-corePVP ok

version bump matches the API change (PVP)

Dependency ranges changed: gogol-core

API changes (from Hackage documentation)

+ Network.Google.AndroidPublisher: countryTargeting :: CountryTargeting
+ Network.Google.AndroidPublisher: ctCountries :: Lens' CountryTargeting [Text]
+ Network.Google.AndroidPublisher: ctIncludeRestOfWorld :: Lens' CountryTargeting (Maybe Bool)
+ Network.Google.AndroidPublisher: data CountryTargeting
+ Network.Google.AndroidPublisher: trCountryTargeting :: Lens' TrackRelease (Maybe CountryTargeting)
+ Network.Google.AndroidPublisher.Types: countryTargeting :: CountryTargeting
+ Network.Google.AndroidPublisher.Types: ctCountries :: Lens' CountryTargeting [Text]
+ Network.Google.AndroidPublisher.Types: ctIncludeRestOfWorld :: Lens' CountryTargeting (Maybe Bool)
+ Network.Google.AndroidPublisher.Types: data CountryTargeting
+ Network.Google.AndroidPublisher.Types: trCountryTargeting :: Lens' TrackRelease (Maybe CountryTargeting)

Files

README.md view
@@ -8,7 +8,7 @@  ## Version -`0.3.0`+`0.5.0`   ## Description
gen/Network/Google/AndroidPublisher.hs view
@@ -410,10 +410,17 @@     , trStatus     , trReleaseNotes     , trUserFraction+    , trCountryTargeting     , trName      -- ** EditsImagesListImageType     , EditsImagesListImageType (..)++    -- ** CountryTargeting+    , CountryTargeting+    , countryTargeting+    , ctIncludeRestOfWorld+    , ctCountries      -- ** Bundle     , Bundle
gen/Network/Google/AndroidPublisher/Types.hs view
@@ -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
gen/Network/Google/AndroidPublisher/Types/Product.hs view
@@ -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)
gen/Network/Google/Resource/AndroidPublisher/Edits/APKs/Addexternallyhosted.hs view
@@ -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\".
gen/Network/Google/Resource/AndroidPublisher/Edits/APKs/List.hs view
@@ -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\".
gen/Network/Google/Resource/AndroidPublisher/Edits/APKs/Upload.hs view
@@ -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\".
gen/Network/Google/Resource/AndroidPublisher/Edits/Bundles/List.hs view
@@ -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\".
gen/Network/Google/Resource/AndroidPublisher/Edits/Bundles/Upload.hs view
@@ -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
gen/Network/Google/Resource/AndroidPublisher/Edits/Commit.hs view
@@ -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\".
gen/Network/Google/Resource/AndroidPublisher/Edits/Delete.hs view
@@ -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\".
gen/Network/Google/Resource/AndroidPublisher/Edits/DeobfuscationFiles/Upload.hs view
@@ -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
gen/Network/Google/Resource/AndroidPublisher/Edits/Details/Get.hs view
@@ -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\".
gen/Network/Google/Resource/AndroidPublisher/Edits/Details/Patch.hs view
@@ -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\".
gen/Network/Google/Resource/AndroidPublisher/Edits/Details/Update.hs view
@@ -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\".
gen/Network/Google/Resource/AndroidPublisher/Edits/ExpansionFiles/Get.hs view
@@ -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\".
gen/Network/Google/Resource/AndroidPublisher/Edits/ExpansionFiles/Patch.hs view
@@ -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\".
gen/Network/Google/Resource/AndroidPublisher/Edits/ExpansionFiles/Update.hs view
@@ -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\".
gen/Network/Google/Resource/AndroidPublisher/Edits/ExpansionFiles/Upload.hs view
@@ -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) =
gen/Network/Google/Resource/AndroidPublisher/Edits/Get.hs view
@@ -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\".
gen/Network/Google/Resource/AndroidPublisher/Edits/Images/Delete.hs view
@@ -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\".
gen/Network/Google/Resource/AndroidPublisher/Edits/Images/Deleteall.hs view
@@ -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\".
gen/Network/Google/Resource/AndroidPublisher/Edits/Images/List.hs view
@@ -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\".
gen/Network/Google/Resource/AndroidPublisher/Edits/Images/Upload.hs view
@@ -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) =
gen/Network/Google/Resource/AndroidPublisher/Edits/Insert.hs view
@@ -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\".
gen/Network/Google/Resource/AndroidPublisher/Edits/Listings/Delete.hs view
@@ -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\".
gen/Network/Google/Resource/AndroidPublisher/Edits/Listings/Deleteall.hs view
@@ -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\".
gen/Network/Google/Resource/AndroidPublisher/Edits/Listings/Get.hs view
@@ -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\".
gen/Network/Google/Resource/AndroidPublisher/Edits/Listings/List.hs view
@@ -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\".
gen/Network/Google/Resource/AndroidPublisher/Edits/Listings/Patch.hs view
@@ -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\".
gen/Network/Google/Resource/AndroidPublisher/Edits/Listings/Update.hs view
@@ -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\".
gen/Network/Google/Resource/AndroidPublisher/Edits/Testers/Get.hs view
@@ -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})
gen/Network/Google/Resource/AndroidPublisher/Edits/Testers/Patch.hs view
@@ -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})
gen/Network/Google/Resource/AndroidPublisher/Edits/Testers/Update.hs view
@@ -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})
gen/Network/Google/Resource/AndroidPublisher/Edits/Tracks/Get.hs view
@@ -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
gen/Network/Google/Resource/AndroidPublisher/Edits/Tracks/List.hs view
@@ -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\".
gen/Network/Google/Resource/AndroidPublisher/Edits/Tracks/Patch.hs view
@@ -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:/ <https://developers.google.com/android-publisher Google Play Developer API Reference> 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
gen/Network/Google/Resource/AndroidPublisher/Edits/Tracks/Update.hs view
@@ -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:/ <https://developers.google.com/android-publisher Google Play Developer API Reference> 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
gen/Network/Google/Resource/AndroidPublisher/Edits/Validate.hs view
@@ -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\".
gen/Network/Google/Resource/AndroidPublisher/InAppProducts/Delete.hs view
@@ -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\".
gen/Network/Google/Resource/AndroidPublisher/InAppProducts/Get.hs view
@@ -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
gen/Network/Google/Resource/AndroidPublisher/InAppProducts/Insert.hs view
@@ -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
gen/Network/Google/Resource/AndroidPublisher/InAppProducts/List.hs view
@@ -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\".
gen/Network/Google/Resource/AndroidPublisher/InAppProducts/Patch.hs view
@@ -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
gen/Network/Google/Resource/AndroidPublisher/InAppProducts/Update.hs view
@@ -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
gen/Network/Google/Resource/AndroidPublisher/Orders/Refund.hs view
@@ -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\').
gen/Network/Google/Resource/AndroidPublisher/Purchases/Products/Get.hs view
@@ -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\').
gen/Network/Google/Resource/AndroidPublisher/Purchases/Subscriptions/Cancel.hs view
@@ -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\').
gen/Network/Google/Resource/AndroidPublisher/Purchases/Subscriptions/Defer.hs view
@@ -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\').
gen/Network/Google/Resource/AndroidPublisher/Purchases/Subscriptions/Get.hs view
@@ -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\').
gen/Network/Google/Resource/AndroidPublisher/Purchases/Subscriptions/Refund.hs view
@@ -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\').
gen/Network/Google/Resource/AndroidPublisher/Purchases/Subscriptions/Revoke.hs view
@@ -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\').
gen/Network/Google/Resource/AndroidPublisher/Purchases/Voidedpurchases/List.hs view
@@ -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\').
gen/Network/Google/Resource/AndroidPublisher/Reviews/Get.hs view
@@ -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
gen/Network/Google/Resource/AndroidPublisher/Reviews/List.hs view
@@ -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\".
gen/Network/Google/Resource/AndroidPublisher/Reviews/Reply.hs view
@@ -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
gogol-android-publisher.cabal view
@@ -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