4ab7bf1 · gogol · git.iko.soy

git.iko.soy/gogol

Regenerating all services

commit4ab7bf1757940c9a8d68faa880d18af68bd42ef8 authorBrendan Hay <brendan.g.hay@gmail.com> dateTue 13 Oct 2015, 11:28 (11 years ago) parentc327699

75 files changed+198−200

compare with develop

unifiedsplit

core/src/Network/Google/Types.hs+18−13

@@ -47,7 +47,7 @@ import Data.Text.Lazy.Builder (Builder)

4747import qualified Data.Text.Lazy.Builder as Build

4848import GHC.Generics

4949import GHC.TypeLits

50−import Network.HTTP.Client (HttpException, RequestBody (..))

50+import Network.HTTP.Client (HttpException)

5151import Network.HTTP.Media hiding (Accept)

5252import Network.HTTP.Types hiding (Header)

5353import qualified Network.HTTP.Types as HTTP

@@ -98,6 +98,7 @@ _Default = iso f Just

9898 f (Just x) = x

9999 f Nothing = mempty

100100

101+type Body = Source IO ByteString

101102type Stream = ResumableSource (ResourceT IO) ByteString

102103

103104newtype ServiceId = ServiceId Text

@@ -187,7 +188,7 @@ data Request = Request

187188 { _rqPath :: Builder

188189 , _rqQuery :: DList (ByteString, Maybe ByteString)

189190 , _rqHeaders :: DList (HeaderName, ByteString)

190− , _rqBody :: Maybe (MediaType, RequestBody)

191+ , _rqBody :: Maybe (MediaType, Body)

191192 }

192193

193194instance Monoid Request where

@@ -215,7 +216,7 @@ appendHeader rq k (Just v) = rq

215216 { _rqHeaders = DList.snoc (_rqHeaders rq) (CI.mk k, Text.encodeUtf8 v)

216217 }

217218

218−setBody :: Request -> MediaType -> RequestBody -> Request

219+setBody :: Request -> MediaType -> Body -> Request

219220setBody rq c x = rq { _rqBody = Just (c, x) }

220221

221222-- | A materialised 'http-client' request and associated response parser.

@@ -251,21 +252,25 @@ client f cs m ns rq s = Client

251252 }

252253

253254class Accept c => ToBody c a where

254− toBody :: Proxy c -> a -> RequestBody

255+ toBody :: Proxy c -> a -> Body

255256

256−instance ToBody OctetStream RequestBody where

257+instance ToBody OctetStream Body where

257258 toBody Proxy = id

258259

259−instance ToBody OctetStream ByteString where toBody Proxy = RequestBodyBS

260−instance ToBody OctetStream LBS.ByteString where toBody Proxy = RequestBodyLBS

261−instance ToBody PlainText ByteString where toBody Proxy = RequestBodyBS

262−instance ToBody PlainText LBS.ByteString where toBody Proxy = RequestBodyLBS

260+instance ToBody OctetStream ByteString where

261+ toBody Proxy = CL.sourceList . (:[])

263262

264−instance ToJSON a => ToBody JSON a where

265− toBody Proxy = RequestBodyLBS . encode

263+instance ToBody OctetStream LBS.ByteString where

264+ toBody Proxy = CL.sourceList . LBS.toChunks

265+

266+instance ToBody PlainText ByteString where

267+ toBody Proxy = CL.sourceList . (:[])

266268

267−instance ToBody JSON Value where

268− toBody Proxy = RequestBodyLBS . encode

269+instance ToBody PlainText LBS.ByteString where

270+ toBody Proxy = CL.sourceList . LBS.toChunks

271+

272+instance ToJSON a => ToBody JSON a where

273+ toBody Proxy = CL.sourceList . LBS.toChunks . encode

269274

270275class Accept c => FromStream c a where

271276 fromStream :: Proxy c -> Stream -> ResourceT IO (Either String a)

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Accounts/List.hs+1−1

@@ -58,7 +58,7 @@ accountsList' = AccountsList'

5858

5959instance GoogleRequest AccountsList' where

6060 type Rs AccountsList' = AccountsList

61− requestClient AccountsList'{..}

61+ requestClient AccountsList'{}

6262 = go (Just AltJSON) adExchangeBuyerService

6363 where go

6464 = buildClient (Proxy :: Proxy AccountsListResource)

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/BillingInfo/List.hs+1−1

@@ -61,7 +61,7 @@ billingInfoList' = BillingInfoList'

6161

6262instance GoogleRequest BillingInfoList' where

6363 type Rs BillingInfoList' = BillingInfoList

64− requestClient BillingInfoList'{..}

64+ requestClient BillingInfoList'{}

6565 = go (Just AltJSON) adExchangeBuyerService

6666 where go

6767 = buildClient

gogol-admin-emailmigration/gen/Network/Google/Resource/EmailMigration/Mail/Insert.hs+4−4

@@ -47,7 +47,7 @@ type MailInsertResource =

4747 Capture "userKey" Text :>

4848 "mail" :>

4949 QueryParam "alt" AltJSON :>

50− MultipartRelated '[JSON] MailItem Stream :>

50+ MultipartRelated '[JSON] MailItem Body :>

5151 Post '[JSON] ()

5252

5353-- | Insert Mail into Google\'s Gmail backends

@@ -55,7 +55,7 @@ type MailInsertResource =

5555-- /See:/ 'mailInsert'' smart constructor.

5656data MailInsert' = MailInsert'

5757 { _miPayload :: !MailItem

58− , _miMedia :: !Stream

58+ , _miMedia :: !Body

5959 , _miUserKey :: !Text

6060 }

6161

@@ -70,7 +70,7 @@ data MailInsert' = MailInsert'

7070-- * 'miUserKey'

7171mailInsert'

7272 :: MailItem -- ^ 'payload'

73− -> Stream -- ^ 'media'

73+ -> Body -- ^ 'media'

7474 -> Text -- ^ 'userKey'

7575 -> MailInsert'

7676mailInsert' pMiPayload_ pMiMedia_ pMiUserKey_ =

@@ -85,7 +85,7 @@ miPayload :: Lens' MailInsert' MailItem

8585miPayload

8686 = lens _miPayload (\ s a -> s{_miPayload = a})

8787

88−miMedia :: Lens' MailInsert' Stream

88+miMedia :: Lens' MailInsert' Body

8989miMedia = lens _miMedia (\ s a -> s{_miMedia = a})

9090

9191-- | The email or immutable id of the user

gogol-adsense/gen/Network/Google/Resource/AdSense/Metadata/Dimensions/List.hs+1−1

@@ -59,7 +59,7 @@ metadataDimensionsList' = MetadataDimensionsList'

5959

6060instance GoogleRequest MetadataDimensionsList' where

6161 type Rs MetadataDimensionsList' = Metadata

62− requestClient MetadataDimensionsList'{..}

62+ requestClient MetadataDimensionsList'{}

6363 = go (Just AltJSON) adSenseService

6464 where go

6565 = buildClient

gogol-adsense/gen/Network/Google/Resource/AdSense/Metadata/Metrics/List.hs+1−1

@@ -59,7 +59,7 @@ metadataMetricsList' = MetadataMetricsList'

5959

6060instance GoogleRequest MetadataMetricsList' where

6161 type Rs MetadataMetricsList' = Metadata

62− requestClient MetadataMetricsList'{..}

62+ requestClient MetadataMetricsList'{}

6363 = go (Just AltJSON) adSenseService

6464 where go

6565 = buildClient

gogol-adsense/gen/Network/Google/Resource/AdSense/Payments/List.hs+1−1

@@ -58,7 +58,7 @@ paymentsList' = PaymentsList'

5858

5959instance GoogleRequest PaymentsList' where

6060 type Rs PaymentsList' = Payments

61− requestClient PaymentsList'{..}

61+ requestClient PaymentsList'{}

6262 = go (Just AltJSON) adSenseService

6363 where go

6464 = buildClient (Proxy :: Proxy PaymentsListResource)

gogol-analytics/gen/Network/Google/Resource/Analytics/Management/Uploads/UploadData.hs+4−5

@@ -54,8 +54,7 @@ type ManagementUploadsUploadDataResource =

5454 Capture "customDataSourceId" Text :>

5555 "uploads" :>

5656 QueryParam "alt" AltJSON :>

57− ReqBody '[OctetStream] RequestBody :>

58− Post '[JSON] Upload

57+ ReqBody '[OctetStream] Body :> Post '[JSON] Upload

5958

6059-- | Upload data for a custom data source.

6160--

@@ -63,7 +62,7 @@ type ManagementUploadsUploadDataResource =

6362data ManagementUploadsUploadData' = ManagementUploadsUploadData'

6463 { _muudWebPropertyId :: !Text

6564 , _muudCustomDataSourceId :: !Text

66− , _muudMedia :: !Stream

65+ , _muudMedia :: !Body

6766 , _muudAccountId :: !Text

6867 }

6968

@@ -81,7 +80,7 @@ data ManagementUploadsUploadData' = ManagementUploadsUploadData'

8180managementUploadsUploadData'

8281 :: Text -- ^ 'webPropertyId'

8382 -> Text -- ^ 'customDataSourceId'

84− -> Stream -- ^ 'media'

83+ -> Body -- ^ 'media'

8584 -> Text -- ^ 'accountId'

8685 -> ManagementUploadsUploadData'

8786managementUploadsUploadData' pMuudWebPropertyId_ pMuudCustomDataSourceId_ pMuudMedia_ pMuudAccountId_ =

@@ -104,7 +103,7 @@ muudCustomDataSourceId

104103 = lens _muudCustomDataSourceId

105104 (\ s a -> s{_muudCustomDataSourceId = a})

106105

107−muudMedia :: Lens' ManagementUploadsUploadData' Stream

106+muudMedia :: Lens' ManagementUploadsUploadData' Body

108107muudMedia

109108 = lens _muudMedia (\ s a -> s{_muudMedia = a})

110109

gogol-android-publisher/gen/Network/Google/Resource/AndroidPublisher/Edits/APKs/Upload.hs+4−5

@@ -49,14 +49,13 @@ type EditsAPKsUploadResource =

4949 Capture "editId" Text :>

5050 "apks" :>

5151 QueryParam "alt" AltJSON :>

52− ReqBody '[OctetStream] RequestBody :>

53− Post '[JSON] APK

52+ ReqBody '[OctetStream] Body :> Post '[JSON] APK

5453

5554--

5655-- /See:/ 'editsAPKsUpload'' smart constructor.

5756data EditsAPKsUpload' = EditsAPKsUpload'

5857 { _eapkuPackageName :: !Text

59− , _eapkuMedia :: !Stream

58+ , _eapkuMedia :: !Body

6059 , _eapkuEditId :: !Text

6160 }

6261

@@ -71,7 +70,7 @@ data EditsAPKsUpload' = EditsAPKsUpload'

7170-- * 'eapkuEditId'

7271editsAPKsUpload'

7372 :: Text -- ^ 'packageName'

74− -> Stream -- ^ 'media'

73+ -> Body -- ^ 'media'

7574 -> Text -- ^ 'editId'

7675 -> EditsAPKsUpload'

7776editsAPKsUpload' pEapkuPackageName_ pEapkuMedia_ pEapkuEditId_ =

@@ -88,7 +87,7 @@ eapkuPackageName

8887 = lens _eapkuPackageName

8988 (\ s a -> s{_eapkuPackageName = a})

9089

91−eapkuMedia :: Lens' EditsAPKsUpload' Stream

90+eapkuMedia :: Lens' EditsAPKsUpload' Body

9291eapkuMedia

9392 = lens _eapkuMedia (\ s a -> s{_eapkuMedia = a})

9493

gogol-android-publisher/gen/Network/Google/Resource/AndroidPublisher/Edits/ExpansionFiles/Upload.hs+4−4

@@ -56,7 +56,7 @@ type EditsExpansionFilesUploadResource =

5656 EditsExpansionFilesUploadExpansionFileType

5757 :>

5858 QueryParam "alt" AltJSON :>

59− ReqBody '[OctetStream] RequestBody :>

59+ ReqBody '[OctetStream] Body :>

6060 Post '[JSON] ExpansionFilesUploadResponse

6161

6262-- | Uploads and attaches a new Expansion File to the APK specified.

@@ -65,7 +65,7 @@ type EditsExpansionFilesUploadResource =

6565data EditsExpansionFilesUpload' = EditsExpansionFilesUpload'

6666 { _eefuPackageName :: !Text

6767 , _eefuAPKVersionCode :: !Int32

68− , _eefuMedia :: !Stream

68+ , _eefuMedia :: !Body

6969 , _eefuExpansionFileType :: !EditsExpansionFilesUploadExpansionFileType

7070 , _eefuEditId :: !Text

7171 }

@@ -86,7 +86,7 @@ data EditsExpansionFilesUpload' = EditsExpansionFilesUpload'

8686editsExpansionFilesUpload'

8787 :: Text -- ^ 'packageName'

8888 -> Int32 -- ^ 'apkVersionCode'

89− -> Stream -- ^ 'media'

89+ -> Body -- ^ 'media'

9090 -> EditsExpansionFilesUploadExpansionFileType -- ^ 'expansionFileType'

9191 -> Text -- ^ 'editId'

9292 -> EditsExpansionFilesUpload'

@@ -113,7 +113,7 @@ eefuAPKVersionCode

113113 = lens _eefuAPKVersionCode

114114 (\ s a -> s{_eefuAPKVersionCode = a})

115115

116−eefuMedia :: Lens' EditsExpansionFilesUpload' Stream

116+eefuMedia :: Lens' EditsExpansionFilesUpload' Body

117117eefuMedia

118118 = lens _eefuMedia (\ s a -> s{_eefuMedia = a})

119119

gogol-android-publisher/gen/Network/Google/Resource/AndroidPublisher/Edits/Images/Upload.hs+4−4

@@ -54,7 +54,7 @@ type EditsImagesUploadResource =

5454 Capture "language" Text :>

5555 Capture "imageType" EditsImagesUploadImageType :>

5656 QueryParam "alt" AltJSON :>

57− ReqBody '[OctetStream] RequestBody :>

57+ ReqBody '[OctetStream] Body :>

5858 Post '[JSON] ImagesUploadResponse

5959

6060-- | Uploads a new image and adds it to the list of images for the specified

@@ -63,7 +63,7 @@ type EditsImagesUploadResource =

6363-- /See:/ 'editsImagesUpload'' smart constructor.

6464data EditsImagesUpload' = EditsImagesUpload'

6565 { _eiuPackageName :: !Text

66− , _eiuMedia :: !Stream

66+ , _eiuMedia :: !Body

6767 , _eiuImageType :: !EditsImagesUploadImageType

6868 , _eiuLanguage :: !Text

6969 , _eiuEditId :: !Text

@@ -84,7 +84,7 @@ data EditsImagesUpload' = EditsImagesUpload'

8484-- * 'eiuEditId'

8585editsImagesUpload'

8686 :: Text -- ^ 'packageName'

87− -> Stream -- ^ 'media'

87+ -> Body -- ^ 'media'

8888 -> EditsImagesUploadImageType -- ^ 'imageType'

8989 -> Text -- ^ 'language'

9090 -> Text -- ^ 'editId'

@@ -105,7 +105,7 @@ eiuPackageName

105105 = lens _eiuPackageName

106106 (\ s a -> s{_eiuPackageName = a})

107107

108−eiuMedia :: Lens' EditsImagesUpload' Stream

108+eiuMedia :: Lens' EditsImagesUpload' Body

109109eiuMedia = lens _eiuMedia (\ s a -> s{_eiuMedia = a})

110110

111111eiuImageType :: Lens' EditsImagesUpload' EditsImagesUploadImageType

gogol-apps-calendar/gen/Network/Google/Resource/Calendar/Colors/Get.hs+1−1

@@ -58,7 +58,7 @@ colorsGet' = ColorsGet'

5858

5959instance GoogleRequest ColorsGet' where

6060 type Rs ColorsGet' = Colors

61− requestClient ColorsGet'{..}

61+ requestClient ColorsGet'{}

6262 = go (Just AltJSON) appsCalendarService

6363 where go

6464 = buildClient (Proxy :: Proxy ColorsGetResource)

gogol-bigquery/gen/Network/Google/Resource/BigQuery/Jobs/Insert.hs+4−5

@@ -48,15 +48,14 @@ type JobsInsertResource =

4848 Capture "projectId" Text :>

4949 "jobs" :>

5050 QueryParam "alt" AltJSON :>

51− MultipartRelated '[JSON] Job Stream :>

52− Post '[JSON] Job

51+ MultipartRelated '[JSON] Job Body :> Post '[JSON] Job

5352

5453-- | Starts a new asynchronous job. Requires the Can View project role.

5554--

5655-- /See:/ 'jobsInsert'' smart constructor.

5756data JobsInsert' = JobsInsert'

5857 { _jiPayload :: !Job

59− , _jiMedia :: !Stream

58+ , _jiMedia :: !Body

6059 , _jiProjectId :: !Text

6160 }

6261

@@ -71,7 +70,7 @@ data JobsInsert' = JobsInsert'

7170-- * 'jiProjectId'

7271jobsInsert'

7372 :: Job -- ^ 'payload'

74− -> Stream -- ^ 'media'

73+ -> Body -- ^ 'media'

7574 -> Text -- ^ 'projectId'

7675 -> JobsInsert'

7776jobsInsert' pJiPayload_ pJiMedia_ pJiProjectId_ =

@@ -86,7 +85,7 @@ jiPayload :: Lens' JobsInsert' Job

8685jiPayload

8786 = lens _jiPayload (\ s a -> s{_jiPayload = a})

8887

89−jiMedia :: Lens' JobsInsert' Stream

88+jiMedia :: Lens' JobsInsert' Body

9089jiMedia = lens _jiMedia (\ s a -> s{_jiMedia = a})

9190

9291-- | Project ID of the project that will be billed for the job

gogol-books/gen/Network/Google/Resource/Books/MyConfig/GetUserSettings.hs+1−1

@@ -59,7 +59,7 @@ myConfigGetUserSettings' = MyConfigGetUserSettings'

5959

6060instance GoogleRequest MyConfigGetUserSettings' where

6161 type Rs MyConfigGetUserSettings' = Usersettings

62− requestClient MyConfigGetUserSettings'{..}

62+ requestClient MyConfigGetUserSettings'{}

6363 = go (Just AltJSON) booksService

6464 where go

6565 = buildClient

gogol-civicinfo/gen/Network/Google/Resource/CivicInfo/Elections/ElectionQuery.hs+1−1

@@ -60,7 +60,7 @@ electionsElectionQuery' = ElectionsElectionQuery'

6060instance GoogleRequest ElectionsElectionQuery' where

6161 type Rs ElectionsElectionQuery' =

6262 ElectionsQueryResponse

63− requestClient ElectionsElectionQuery'{..}

63+ requestClient ElectionsElectionQuery'{}

6464 = go (Just AltJSON) civicInfoService

6565 where go

6666 = buildClient

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/CreativeAssets/Insert.hs+4−4

@@ -51,7 +51,7 @@ type CreativeAssetsInsertResource =

5151 Capture "advertiserId" Int64 :>

5252 "creativeAssets" :>

5353 QueryParam "alt" AltJSON :>

54− MultipartRelated '[JSON] CreativeAssetMetadata Stream

54+ MultipartRelated '[JSON] CreativeAssetMetadata Body

5555 :> Post '[JSON] CreativeAssetMetadata

5656

5757-- | Inserts a new creative asset.

@@ -61,7 +61,7 @@ data CreativeAssetsInsert' = CreativeAssetsInsert'

6161 { _caiAdvertiserId :: !Int64

6262 , _caiProFileId :: !Int64

6363 , _caiPayload :: !CreativeAssetMetadata

64− , _caiMedia :: !Stream

64+ , _caiMedia :: !Body

6565 }

6666

6767-- | Creates a value of 'CreativeAssetsInsert'' with the minimum fields required to make a request.

@@ -79,7 +79,7 @@ creativeAssetsInsert'

7979 :: Int64 -- ^ 'advertiserId'

8080 -> Int64 -- ^ 'profileId'

8181 -> CreativeAssetMetadata -- ^ 'payload'

82− -> Stream -- ^ 'media'

82+ -> Body -- ^ 'media'

8383 -> CreativeAssetsInsert'

8484creativeAssetsInsert' pCaiAdvertiserId_ pCaiProFileId_ pCaiPayload_ pCaiMedia_ =

8585 CreativeAssetsInsert'

@@ -105,7 +105,7 @@ caiPayload :: Lens' CreativeAssetsInsert' CreativeAssetMetadata

105105caiPayload

106106 = lens _caiPayload (\ s a -> s{_caiPayload = a})

107107

108−caiMedia :: Lens' CreativeAssetsInsert' Stream

108+caiMedia :: Lens' CreativeAssetsInsert' Body

109109caiMedia = lens _caiMedia (\ s a -> s{_caiMedia = a})

110110

111111instance GoogleRequest CreativeAssetsInsert' where

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/UserProFiles/List.hs+1−1

@@ -59,7 +59,7 @@ userProFilesList' = UserProFilesList'

5959

6060instance GoogleRequest UserProFilesList' where

6161 type Rs UserProFilesList' = UserProFileList

62− requestClient UserProFilesList'{..}

62+ requestClient UserProFilesList'{}

6363 = go (Just AltJSON) dFAReportingService

6464 where go

6565 = buildClient

gogol-doubleclick-bids/gen/Network/Google/Resource/DoubleClickBidManager/Queries/Listqueries.hs+1−1

@@ -59,7 +59,7 @@ queriesListqueries' = QueriesListqueries'

5959

6060instance GoogleRequest QueriesListqueries' where

6161 type Rs QueriesListqueries' = ListQueriesResponse

62− requestClient QueriesListqueries'{..}

62+ requestClient QueriesListqueries'{}

6363 = go (Just AltJSON) doubleClickBidsService

6464 where go

6565 = buildClient

gogol-drive/gen/Network/Google/Resource/Drive/Files/EmptyTrash.hs+1−1

@@ -59,7 +59,7 @@ filesEmptyTrash' = FilesEmptyTrash'

5959

6060instance GoogleRequest FilesEmptyTrash' where

6161 type Rs FilesEmptyTrash' = ()

62− requestClient FilesEmptyTrash'{..}

62+ requestClient FilesEmptyTrash'{}

6363 = go (Just AltJSON) driveService

6464 where go

6565 = buildClient

gogol-drive/gen/Network/Google/Resource/Drive/Files/Insert.hs+4−4

@@ -61,7 +61,7 @@ type FilesInsertResource =

6161 QueryParam "convert" Bool :>

6262 QueryParam "ocr" Bool :>

6363 QueryParam "alt" AltJSON :>

64− MultipartRelated '[JSON] File Stream :>

64+ MultipartRelated '[JSON] File Body :>

6565 Post '[JSON] File

6666

6767-- | Insert a new file.

@@ -73,7 +73,7 @@ data FilesInsert' = FilesInsert'

7373 , _fiTimedTextLanguage :: !(Maybe Text)

7474 , _fiPayload :: !File

7575 , _fiUseContentAsIndexableText :: !Bool

76− , _fiMedia :: !Stream

76+ , _fiMedia :: !Body

7777 , _fiTimedTextTrackName :: !(Maybe Text)

7878 , _fiOCRLanguage :: !(Maybe Text)

7979 , _fiConvert :: !Bool

@@ -105,7 +105,7 @@ data FilesInsert' = FilesInsert'

105105-- * 'fiOCR'

106106filesInsert'

107107 :: File -- ^ 'payload'

108− -> Stream -- ^ 'media'

108+ -> Body -- ^ 'media'

109109 -> FilesInsert'

110110filesInsert' pFiPayload_ pFiMedia_ =

111111 FilesInsert'

@@ -149,7 +149,7 @@ fiUseContentAsIndexableText

149149 = lens _fiUseContentAsIndexableText

150150 (\ s a -> s{_fiUseContentAsIndexableText = a})

151151

152−fiMedia :: Lens' FilesInsert' Stream

152+fiMedia :: Lens' FilesInsert' Body

153153fiMedia = lens _fiMedia (\ s a -> s{_fiMedia = a})

154154

155155-- | The timed text track name.

gogol-drive/gen/Network/Google/Resource/Drive/Files/Update.hs+4−4

@@ -75,7 +75,7 @@ type FilesUpdateResource =

7575 QueryParam "addParents" Text :>

7676 QueryParam "ocr" Bool :>

7777 QueryParam "alt" AltJSON :>

78− MultipartRelated '[JSON] File Stream :>

78+ MultipartRelated '[JSON] File Body :>

7979 Put '[JSON] File

8080

8181-- | Updates file metadata and\/or content.

@@ -90,7 +90,7 @@ data FilesUpdate' = FilesUpdate'

9090 , _fuRemoveParents :: !(Maybe Text)

9191 , _fuModifiedDateBehavior :: !(Maybe FilesUpdateModifiedDateBehavior)

9292 , _fuUseContentAsIndexableText :: !Bool

93− , _fuMedia :: !Stream

93+ , _fuMedia :: !Body

9494 , _fuTimedTextTrackName :: !(Maybe Text)

9595 , _fuOCRLanguage :: !(Maybe Text)

9696 , _fuConvert :: !Bool

@@ -137,7 +137,7 @@ data FilesUpdate' = FilesUpdate'

137137-- * 'fuOCR'

138138filesUpdate'

139139 :: File -- ^ 'payload'

140− -> Stream -- ^ 'media'

140+ -> Body -- ^ 'media'

141141 -> Text -- ^ 'fileId'

142142 -> FilesUpdate'

143143filesUpdate' pFuPayload_ pFuMedia_ pFuFileId_ =

@@ -213,7 +213,7 @@ fuUseContentAsIndexableText

213213 = lens _fuUseContentAsIndexableText

214214 (\ s a -> s{_fuUseContentAsIndexableText = a})

215215

216−fuMedia :: Lens' FilesUpdate' Stream

216+fuMedia :: Lens' FilesUpdate' Body

217217fuMedia = lens _fuMedia (\ s a -> s{_fuMedia = a})

218218

219219-- | The timed text track name.

gogol-drive/gen/Network/Google/Resource/Drive/Realtime/Update.hs+4−4

@@ -50,7 +50,7 @@ type RealtimeUpdateResource =

5050 "realtime" :>

5151 QueryParam "baseRevision" Text :>

5252 QueryParam "alt" AltJSON :>

53− ReqBody '[OctetStream] RequestBody :> Put '[JSON] ()

53+ ReqBody '[OctetStream] Body :> Put '[JSON] ()

5454

5555-- | Overwrites the Realtime API data model associated with this file with

5656-- the provided JSON data model.

@@ -58,7 +58,7 @@ type RealtimeUpdateResource =

5858-- /See:/ 'realtimeUpdate'' smart constructor.

5959data RealtimeUpdate' = RealtimeUpdate'

6060 { _rBaseRevision :: !(Maybe Text)

61− , _rMedia :: !Stream

61+ , _rMedia :: !Body

6262 , _rFileId :: !Text

6363 }

6464

@@ -72,7 +72,7 @@ data RealtimeUpdate' = RealtimeUpdate'

7272--

7373-- * 'rFileId'

7474realtimeUpdate'

75− :: Stream -- ^ 'media'

75+ :: Body -- ^ 'media'

7676 -> Text -- ^ 'fileId'

7777 -> RealtimeUpdate'

7878realtimeUpdate' pRMedia_ pRFileId_ =

@@ -92,7 +92,7 @@ rBaseRevision

9292 = lens _rBaseRevision

9393 (\ s a -> s{_rBaseRevision = a})

9494

95−rMedia :: Lens' RealtimeUpdate' Stream

95+rMedia :: Lens' RealtimeUpdate' Body

9696rMedia = lens _rMedia (\ s a -> s{_rMedia = a})

9797

9898-- | The ID of the file that the Realtime API data model is associated with.

gogol-fusiontables/gen/Network/Google/Resource/FusionTables/Table/ImportRows.hs+4−5

@@ -57,8 +57,7 @@ type TableImportRowsResource =

5757 QueryParam "encoding" Text :>

5858 QueryParam "isStrict" Bool :>

5959 QueryParam "alt" AltJSON :>

60− ReqBody '[OctetStream] RequestBody :>

61− Post '[JSON] Import

60+ ReqBody '[OctetStream] Body :> Post '[JSON] Import

6261

6362-- | Imports more rows into a table.

6463--

@@ -66,7 +65,7 @@ type TableImportRowsResource =

6665data TableImportRows' = TableImportRows'

6766 { _tirStartLine :: !(Maybe Int32)

6867 , _tirEndLine :: !(Maybe Int32)

69− , _tirMedia :: !Stream

68+ , _tirMedia :: !Body

7069 , _tirTableId :: !Text

7170 , _tirDelimiter :: !(Maybe Text)

7271 , _tirEncoding :: !(Maybe Text)

@@ -91,7 +90,7 @@ data TableImportRows' = TableImportRows'

9190--

9291-- * 'tirIsStrict'

9392tableImportRows'

94− :: Stream -- ^ 'media'

93+ :: Body -- ^ 'media'

9594 -> Text -- ^ 'tableId'

9695 -> TableImportRows'

9796tableImportRows' pTirMedia_ pTirTableId_ =

@@ -119,7 +118,7 @@ tirEndLine :: Lens' TableImportRows' (Maybe Int32)

119118tirEndLine

120119 = lens _tirEndLine (\ s a -> s{_tirEndLine = a})

121120

122−tirMedia :: Lens' TableImportRows' Stream

121+tirMedia :: Lens' TableImportRows' Body

123122tirMedia = lens _tirMedia (\ s a -> s{_tirMedia = a})

124123

125124-- | The table into which new rows are being imported.

gogol-fusiontables/gen/Network/Google/Resource/FusionTables/Table/ImportTable.hs+4−5

@@ -51,14 +51,13 @@ type TableImportTableResource =

5151 QueryParam "delimiter" Text :>

5252 QueryParam "encoding" Text :>

5353 QueryParam "alt" AltJSON :>

54− ReqBody '[OctetStream] RequestBody :>

55− Post '[JSON] Table

54+ ReqBody '[OctetStream] Body :> Post '[JSON] Table

5655

5756-- | Imports a new table.

5857--

5958-- /See:/ 'tableImportTable'' smart constructor.

6059data TableImportTable' = TableImportTable'

61− { _titMedia :: !Stream

60+ { _titMedia :: !Body

6261 , _titName :: !Text

6362 , _titDelimiter :: !(Maybe Text)

6463 , _titEncoding :: !(Maybe Text)

@@ -76,7 +75,7 @@ data TableImportTable' = TableImportTable'

7675--

7776-- * 'titEncoding'

7877tableImportTable'

79− :: Stream -- ^ 'media'

78+ :: Body -- ^ 'media'

8079 -> Text -- ^ 'name'

8180 -> TableImportTable'

8281tableImportTable' pTitMedia_ pTitName_ =

@@ -87,7 +86,7 @@ tableImportTable' pTitMedia_ pTitName_ =

8786 , _titEncoding = Nothing

8887 }

8988

90−titMedia :: Lens' TableImportTable' Stream

89+titMedia :: Lens' TableImportTable' Body

9190titMedia = lens _titMedia (\ s a -> s{_titMedia = a})

9291

9392-- | The name to be assigned to the new table.

gogol-fusiontables/gen/Network/Google/Resource/FusionTables/Table/ReplaceRows.hs+4−5

@@ -58,8 +58,7 @@ type TableReplaceRowsResource =

5858 QueryParam "encoding" Text :>

5959 QueryParam "isStrict" Bool :>

6060 QueryParam "alt" AltJSON :>

61− ReqBody '[OctetStream] RequestBody :>

62− Post '[JSON] Task

61+ ReqBody '[OctetStream] Body :> Post '[JSON] Task

6362

6463-- | Replaces rows of an existing table. Current rows remain visible until

6564-- all replacement rows are ready.

@@ -68,7 +67,7 @@ type TableReplaceRowsResource =

6867data TableReplaceRows' = TableReplaceRows'

6968 { _trrStartLine :: !(Maybe Int32)

7069 , _trrEndLine :: !(Maybe Int32)

71− , _trrMedia :: !Stream

70+ , _trrMedia :: !Body

7271 , _trrTableId :: !Text

7372 , _trrDelimiter :: !(Maybe Text)

7473 , _trrEncoding :: !(Maybe Text)

@@ -93,7 +92,7 @@ data TableReplaceRows' = TableReplaceRows'

9392--

9493-- * 'trrIsStrict'

9594tableReplaceRows'

96− :: Stream -- ^ 'media'

95+ :: Body -- ^ 'media'

9796 -> Text -- ^ 'tableId'

9897 -> TableReplaceRows'

9998tableReplaceRows' pTrrMedia_ pTrrTableId_ =

@@ -121,7 +120,7 @@ trrEndLine :: Lens' TableReplaceRows' (Maybe Int32)

121120trrEndLine

122121 = lens _trrEndLine (\ s a -> s{_trrEndLine = a})

123122

124−trrMedia :: Lens' TableReplaceRows' Stream

123+trrMedia :: Lens' TableReplaceRows' Body

125124trrMedia = lens _trrMedia (\ s a -> s{_trrMedia = a})

126125

127126-- | Table whose rows will be replaced.

gogol-games-configuration/gen/Network/Google/Resource/GamesConfiguration/ImageConfigurations/Upload.hs+4−4

@@ -51,7 +51,7 @@ type ImageConfigurationsUploadResource =

5151 ImageConfigurationsUploadImageType

5252 :>

5353 QueryParam "alt" AltJSON :>

54− ReqBody '[OctetStream] RequestBody :>

54+ ReqBody '[OctetStream] Body :>

5555 Post '[JSON] ImageConfiguration

5656

5757-- | Uploads an image for a resource with the given ID and image type.

@@ -59,7 +59,7 @@ type ImageConfigurationsUploadResource =

5959-- /See:/ 'imageConfigurationsUpload'' smart constructor.

6060data ImageConfigurationsUpload' = ImageConfigurationsUpload'

6161 { _icuResourceId :: !Text

62− , _icuMedia :: !Stream

62+ , _icuMedia :: !Body

6363 , _icuImageType :: !ImageConfigurationsUploadImageType

6464 }

6565

@@ -74,7 +74,7 @@ data ImageConfigurationsUpload' = ImageConfigurationsUpload'

7474-- * 'icuImageType'

7575imageConfigurationsUpload'

7676 :: Text -- ^ 'resourceId'

77− -> Stream -- ^ 'media'

77+ -> Body -- ^ 'media'

7878 -> ImageConfigurationsUploadImageType -- ^ 'imageType'

7979 -> ImageConfigurationsUpload'

8080imageConfigurationsUpload' pIcuResourceId_ pIcuMedia_ pIcuImageType_ =

@@ -90,7 +90,7 @@ icuResourceId

9090 = lens _icuResourceId

9191 (\ s a -> s{_icuResourceId = a})

9292

93−icuMedia :: Lens' ImageConfigurationsUpload' Stream

93+icuMedia :: Lens' ImageConfigurationsUpload' Body

9494icuMedia = lens _icuMedia (\ s a -> s{_icuMedia = a})

9595

9696-- | Selects which image in a resource for this method.

gogol-games-management/gen/Network/Google/Resource/GamesManagement/Achievements/ResetAll.hs+1−1

@@ -65,7 +65,7 @@ achievementsResetAll' = AchievementsResetAll'

6565instance GoogleRequest AchievementsResetAll' where

6666 type Rs AchievementsResetAll' =

6767 AchievementResetAllResponse

68− requestClient AchievementsResetAll'{..}

68+ requestClient AchievementsResetAll'{}

6969 = go (Just AltJSON) gamesManagementService

7070 where go

7171 = buildClient

gogol-games-management/gen/Network/Google/Resource/GamesManagement/Achievements/ResetAllForAllPlayers.hs+1−1

@@ -62,7 +62,7 @@ achievementsResetAllForAllPlayers' = AchievementsResetAllForAllPlayers'

6262instance GoogleRequest

6363 AchievementsResetAllForAllPlayers' where

6464 type Rs AchievementsResetAllForAllPlayers' = ()

65− requestClient AchievementsResetAllForAllPlayers'{..}

65+ requestClient AchievementsResetAllForAllPlayers'{}

6666 = go (Just AltJSON) gamesManagementService

6767 where go

6868 = buildClient

gogol-games-management/gen/Network/Google/Resource/GamesManagement/Events/ResetAll.hs+1−1

@@ -63,7 +63,7 @@ eventsResetAll' = EventsResetAll'

6363

6464instance GoogleRequest EventsResetAll' where

6565 type Rs EventsResetAll' = ()

66− requestClient EventsResetAll'{..}

66+ requestClient EventsResetAll'{}

6767 = go (Just AltJSON) gamesManagementService

6868 where go

6969 = buildClient (Proxy :: Proxy EventsResetAllResource)

gogol-games-management/gen/Network/Google/Resource/GamesManagement/Events/ResetAllForAllPlayers.hs+1−1

@@ -64,7 +64,7 @@ eventsResetAllForAllPlayers' = EventsResetAllForAllPlayers'

6464instance GoogleRequest EventsResetAllForAllPlayers'

6565 where

6666 type Rs EventsResetAllForAllPlayers' = ()

67− requestClient EventsResetAllForAllPlayers'{..}

67+ requestClient EventsResetAllForAllPlayers'{}

6868 = go (Just AltJSON) gamesManagementService

6969 where go

7070 = buildClient

gogol-games-management/gen/Network/Google/Resource/GamesManagement/Quests/ResetAll.hs+1−1

@@ -63,7 +63,7 @@ questsResetAll' = QuestsResetAll'

6363

6464instance GoogleRequest QuestsResetAll' where

6565 type Rs QuestsResetAll' = ()

66− requestClient QuestsResetAll'{..}

66+ requestClient QuestsResetAll'{}

6767 = go (Just AltJSON) gamesManagementService

6868 where go

6969 = buildClient (Proxy :: Proxy QuestsResetAllResource)

gogol-games-management/gen/Network/Google/Resource/GamesManagement/Quests/ResetAllForAllPlayers.hs+1−1

@@ -62,7 +62,7 @@ questsResetAllForAllPlayers' = QuestsResetAllForAllPlayers'

6262instance GoogleRequest QuestsResetAllForAllPlayers'

6363 where

6464 type Rs QuestsResetAllForAllPlayers' = ()

65− requestClient QuestsResetAllForAllPlayers'{..}

65+ requestClient QuestsResetAllForAllPlayers'{}

6666 = go (Just AltJSON) gamesManagementService

6767 where go

6868 = buildClient

gogol-games-management/gen/Network/Google/Resource/GamesManagement/Rooms/Reset.hs+1−1

@@ -63,7 +63,7 @@ roomsReset' = RoomsReset'

6363

6464instance GoogleRequest RoomsReset' where

6565 type Rs RoomsReset' = ()

66− requestClient RoomsReset'{..}

66+ requestClient RoomsReset'{}

6767 = go (Just AltJSON) gamesManagementService

6868 where go

6969 = buildClient (Proxy :: Proxy RoomsResetResource)

gogol-games-management/gen/Network/Google/Resource/GamesManagement/Rooms/ResetForAllPlayers.hs+1−1

@@ -63,7 +63,7 @@ roomsResetForAllPlayers' = RoomsResetForAllPlayers'

6363

6464instance GoogleRequest RoomsResetForAllPlayers' where

6565 type Rs RoomsResetForAllPlayers' = ()

66− requestClient RoomsResetForAllPlayers'{..}

66+ requestClient RoomsResetForAllPlayers'{}

6767 = go (Just AltJSON) gamesManagementService

6868 where go

6969 = buildClient

gogol-games-management/gen/Network/Google/Resource/GamesManagement/Scores/ResetAll.hs+1−1

@@ -64,7 +64,7 @@ scoresResetAll' = ScoresResetAll'

6464

6565instance GoogleRequest ScoresResetAll' where

6666 type Rs ScoresResetAll' = PlayerScoreResetAllResponse

67− requestClient ScoresResetAll'{..}

67+ requestClient ScoresResetAll'{}

6868 = go (Just AltJSON) gamesManagementService

6969 where go

7070 = buildClient (Proxy :: Proxy ScoresResetAllResource)

gogol-games-management/gen/Network/Google/Resource/GamesManagement/Scores/ResetAllForAllPlayers.hs+1−1

@@ -62,7 +62,7 @@ scoresResetAllForAllPlayers' = ScoresResetAllForAllPlayers'

6262instance GoogleRequest ScoresResetAllForAllPlayers'

6363 where

6464 type Rs ScoresResetAllForAllPlayers' = ()

65− requestClient ScoresResetAllForAllPlayers'{..}

65+ requestClient ScoresResetAllForAllPlayers'{}

6666 = go (Just AltJSON) gamesManagementService

6767 where go

6868 = buildClient

gogol-games-management/gen/Network/Google/Resource/GamesManagement/TurnBasedMatches/Reset.hs+1−1

@@ -61,7 +61,7 @@ turnBasedMatchesReset' = TurnBasedMatchesReset'

6161

6262instance GoogleRequest TurnBasedMatchesReset' where

6363 type Rs TurnBasedMatchesReset' = ()

64− requestClient TurnBasedMatchesReset'{..}

64+ requestClient TurnBasedMatchesReset'{}

6565 = go (Just AltJSON) gamesManagementService

6666 where go

6767 = buildClient

gogol-games-management/gen/Network/Google/Resource/GamesManagement/TurnBasedMatches/ResetForAllPlayers.hs+1−1

@@ -64,7 +64,7 @@ turnBasedMatchesResetForAllPlayers' = TurnBasedMatchesResetForAllPlayers'

6464instance GoogleRequest

6565 TurnBasedMatchesResetForAllPlayers' where

6666 type Rs TurnBasedMatchesResetForAllPlayers' = ()

67− requestClient TurnBasedMatchesResetForAllPlayers'{..}

67+ requestClient TurnBasedMatchesResetForAllPlayers'{}

6868 = go (Just AltJSON) gamesManagementService

6969 where go

7070 = buildClient

gogol-games/gen/Network/Google/Resource/Games/Applications/Played.hs+1−1

@@ -61,7 +61,7 @@ applicationsPlayed' = ApplicationsPlayed'

6161

6262instance GoogleRequest ApplicationsPlayed' where

6363 type Rs ApplicationsPlayed' = ()

64− requestClient ApplicationsPlayed'{..}

64+ requestClient ApplicationsPlayed'{}

6565 = go (Just AltJSON) gamesService

6666 where go

6767 = buildClient

gogol-games/gen/Network/Google/Resource/Games/Metagame/GetMetagameConfig.hs+1−1

@@ -60,7 +60,7 @@ metagameGetMetagameConfig' = MetagameGetMetagameConfig'

6060instance GoogleRequest MetagameGetMetagameConfig'

6161 where

6262 type Rs MetagameGetMetagameConfig' = MetagameConfig

63− requestClient MetagameGetMetagameConfig'{..}

63+ requestClient MetagameGetMetagameConfig'{}

6464 = go (Just AltJSON) gamesService

6565 where go

6666 = buildClient

gogol-gmail/gen/Network/Google/Resource/Gmail/Users/Drafts/Create.hs+4−4

@@ -47,7 +47,7 @@ type UsersDraftsCreateResource =

4747 Capture "userId" Text :>

4848 "drafts" :>

4949 QueryParam "alt" AltJSON :>

50− MultipartRelated '[JSON] Draft Stream :>

50+ MultipartRelated '[JSON] Draft Body :>

5151 Post '[JSON] Draft

5252

5353-- | Creates a new draft with the DRAFT label.

@@ -56,7 +56,7 @@ type UsersDraftsCreateResource =

5656data UsersDraftsCreate' = UsersDraftsCreate'

5757 { _udcPayload :: !Draft

5858 , _udcUserId :: !Text

59− , _udcMedia :: !Stream

59+ , _udcMedia :: !Body

6060 }

6161

6262-- | Creates a value of 'UsersDraftsCreate'' with the minimum fields required to make a request.

@@ -71,7 +71,7 @@ data UsersDraftsCreate' = UsersDraftsCreate'

7171usersDraftsCreate'

7272 :: Draft -- ^ 'payload'

7373 -> Text -- ^ 'media'

74− -> Stream

74+ -> Body

7575 -> UsersDraftsCreate'

7676usersDraftsCreate' pUdcPayload_ pUdcUserId_ pUdcMedia_ =

7777 UsersDraftsCreate'

@@ -91,7 +91,7 @@ udcUserId :: Lens' UsersDraftsCreate' Text

9191udcUserId

9292 = lens _udcUserId (\ s a -> s{_udcUserId = a})

9393

94−udcMedia :: Lens' UsersDraftsCreate' Stream

94+udcMedia :: Lens' UsersDraftsCreate' Body

9595udcMedia = lens _udcMedia (\ s a -> s{_udcMedia = a})

9696

9797instance GoogleRequest UsersDraftsCreate' where

gogol-gmail/gen/Network/Google/Resource/Gmail/Users/Drafts/Send.hs+4−4

@@ -49,7 +49,7 @@ type UsersDraftsSendResource =

4949 "drafts" :>

5050 "send" :>

5151 QueryParam "alt" AltJSON :>

52− MultipartRelated '[JSON] Draft Stream :>

52+ MultipartRelated '[JSON] Draft Body :>

5353 Post '[JSON] Message

5454

5555-- | Sends the specified, existing draft to the recipients in the To, Cc, and

@@ -59,7 +59,7 @@ type UsersDraftsSendResource =

5959data UsersDraftsSend' = UsersDraftsSend'

6060 { _udsPayload :: !Draft

6161 , _udsUserId :: !Text

62− , _udsMedia :: !Stream

62+ , _udsMedia :: !Body

6363 }

6464

6565-- | Creates a value of 'UsersDraftsSend'' with the minimum fields required to make a request.

@@ -74,7 +74,7 @@ data UsersDraftsSend' = UsersDraftsSend'

7474usersDraftsSend'

7575 :: Draft -- ^ 'payload'

7676 -> Text -- ^ 'media'

77− -> Stream

77+ -> Body

7878 -> UsersDraftsSend'

7979usersDraftsSend' pUdsPayload_ pUdsUserId_ pUdsMedia_ =

8080 UsersDraftsSend'

@@ -94,7 +94,7 @@ udsUserId :: Lens' UsersDraftsSend' Text

9494udsUserId

9595 = lens _udsUserId (\ s a -> s{_udsUserId = a})

9696

97−udsMedia :: Lens' UsersDraftsSend' Stream

97+udsMedia :: Lens' UsersDraftsSend' Body

9898udsMedia = lens _udsMedia (\ s a -> s{_udsMedia = a})

9999

100100instance GoogleRequest UsersDraftsSend' where

gogol-gmail/gen/Network/Google/Resource/Gmail/Users/Drafts/Update.hs+4−4

@@ -49,7 +49,7 @@ type UsersDraftsUpdateResource =

4949 "drafts" :>

5050 Capture "id" Text :>

5151 QueryParam "alt" AltJSON :>

52− MultipartRelated '[JSON] Draft Stream :>

52+ MultipartRelated '[JSON] Draft Body :>

5353 Put '[JSON] Draft

5454

5555-- | Replaces a draft\'s content.

@@ -58,7 +58,7 @@ type UsersDraftsUpdateResource =

5858data UsersDraftsUpdate' = UsersDraftsUpdate'

5959 { _uduPayload :: !Draft

6060 , _uduUserId :: !Text

61− , _uduMedia :: !Stream

61+ , _uduMedia :: !Body

6262 , _uduId :: !Text

6363 }

6464

@@ -76,7 +76,7 @@ data UsersDraftsUpdate' = UsersDraftsUpdate'

7676usersDraftsUpdate'

7777 :: Draft -- ^ 'payload'

7878 -> Text -- ^ 'media'

79− -> Stream -- ^ 'id'

79+ -> Body -- ^ 'id'

8080 -> Text

8181 -> UsersDraftsUpdate'

8282usersDraftsUpdate' pUduPayload_ pUduUserId_ pUduMedia_ pUduId_ =

@@ -98,7 +98,7 @@ uduUserId :: Lens' UsersDraftsUpdate' Text

9898uduUserId

9999 = lens _uduUserId (\ s a -> s{_uduUserId = a})

100100

101−uduMedia :: Lens' UsersDraftsUpdate' Stream

101+uduMedia :: Lens' UsersDraftsUpdate' Body

102102uduMedia = lens _uduMedia (\ s a -> s{_uduMedia = a})

103103

104104-- | The ID of the draft to update.

gogol-gmail/gen/Network/Google/Resource/Gmail/Users/Messages/Import.hs+4−4

@@ -60,7 +60,7 @@ type UsersMessagesImportResource =

6060 UsersMessagesImportInternalDateSource

6161 :>

6262 QueryParam "alt" AltJSON :>

63− MultipartRelated '[JSON] Message Stream :>

63+ MultipartRelated '[JSON] Message Body :>

6464 Post '[JSON] Message

6565

6666-- | Imports a message into only this user\'s mailbox, with standard email

@@ -71,7 +71,7 @@ type UsersMessagesImportResource =

7171data UsersMessagesImport' = UsersMessagesImport'

7272 { _uPayload :: !Message

7373 , _uUserId :: !Text

74− , _uMedia :: !Stream

74+ , _uMedia :: !Body

7575 , _uProcessForCalendar :: !Bool

7676 , _uDeleted :: !Bool

7777 , _uNeverMarkSpam :: !Bool

@@ -98,7 +98,7 @@ data UsersMessagesImport' = UsersMessagesImport'

9898usersMessagesImport'

9999 :: Message -- ^ 'payload'

100100 -> Text -- ^ 'media'

101− -> Stream

101+ -> Body

102102 -> UsersMessagesImport'

103103usersMessagesImport' pUPayload_ pUUserId_ pUMedia_ =

104104 UsersMessagesImport'

@@ -120,7 +120,7 @@ uPayload = lens _uPayload (\ s a -> s{_uPayload = a})

120120uUserId :: Lens' UsersMessagesImport' Text

121121uUserId = lens _uUserId (\ s a -> s{_uUserId = a})

122122

123−uMedia :: Lens' UsersMessagesImport' Stream

123+uMedia :: Lens' UsersMessagesImport' Body

124124uMedia = lens _uMedia (\ s a -> s{_uMedia = a})

125125

126126-- | Process calendar invites in the email and add any extracted meetings to

gogol-gmail/gen/Network/Google/Resource/Gmail/Users/Messages/Insert.hs+4−4

@@ -55,7 +55,7 @@ type UsersMessagesInsertResource =

5555 UsersMessagesInsertInternalDateSource

5656 :>

5757 QueryParam "alt" AltJSON :>

58− MultipartRelated '[JSON] Message Stream :>

58+ MultipartRelated '[JSON] Message Body :>

5959 Post '[JSON] Message

6060

6161-- | Directly inserts a message into only this user\'s mailbox similar to

@@ -66,7 +66,7 @@ type UsersMessagesInsertResource =

6666data UsersMessagesInsert' = UsersMessagesInsert'

6767 { _umiPayload :: !Message

6868 , _umiUserId :: !Text

69− , _umiMedia :: !Stream

69+ , _umiMedia :: !Body

7070 , _umiDeleted :: !Bool

7171 , _umiInternalDateSource :: !UsersMessagesInsertInternalDateSource

7272 }

@@ -87,7 +87,7 @@ data UsersMessagesInsert' = UsersMessagesInsert'

8787usersMessagesInsert'

8888 :: Message -- ^ 'payload'

8989 -> Text -- ^ 'media'

90− -> Stream

90+ -> Body

9191 -> UsersMessagesInsert'

9292usersMessagesInsert' pUmiPayload_ pUmiUserId_ pUmiMedia_ =

9393 UsersMessagesInsert'

@@ -109,7 +109,7 @@ umiUserId :: Lens' UsersMessagesInsert' Text

109109umiUserId

110110 = lens _umiUserId (\ s a -> s{_umiUserId = a})

111111

112−umiMedia :: Lens' UsersMessagesInsert' Stream

112+umiMedia :: Lens' UsersMessagesInsert' Body

113113umiMedia = lens _umiMedia (\ s a -> s{_umiMedia = a})

114114

115115-- | Mark the email as permanently deleted (not TRASH) and only visible in

gogol-gmail/gen/Network/Google/Resource/Gmail/Users/Messages/Send.hs+4−4

@@ -49,7 +49,7 @@ type UsersMessagesSendResource =

4949 "messages" :>

5050 "send" :>

5151 QueryParam "alt" AltJSON :>

52− MultipartRelated '[JSON] Message Stream :>

52+ MultipartRelated '[JSON] Message Body :>

5353 Post '[JSON] Message

5454

5555-- | Sends the specified message to the recipients in the To, Cc, and Bcc

@@ -59,7 +59,7 @@ type UsersMessagesSendResource =

5959data UsersMessagesSend' = UsersMessagesSend'

6060 { _umsPayload :: !Message

6161 , _umsUserId :: !Text

62− , _umsMedia :: !Stream

62+ , _umsMedia :: !Body

6363 }

6464

6565-- | Creates a value of 'UsersMessagesSend'' with the minimum fields required to make a request.

@@ -74,7 +74,7 @@ data UsersMessagesSend' = UsersMessagesSend'

7474usersMessagesSend'

7575 :: Message -- ^ 'payload'

7676 -> Text -- ^ 'media'

77− -> Stream

77+ -> Body

7878 -> UsersMessagesSend'

7979usersMessagesSend' pUmsPayload_ pUmsUserId_ pUmsMedia_ =

8080 UsersMessagesSend'

@@ -94,7 +94,7 @@ umsUserId :: Lens' UsersMessagesSend' Text

9494umsUserId

9595 = lens _umsUserId (\ s a -> s{_umsUserId = a})

9696

97−umsMedia :: Lens' UsersMessagesSend' Stream

97+umsMedia :: Lens' UsersMessagesSend' Body

9898umsMedia = lens _umsMedia (\ s a -> s{_umsMedia = a})

9999

100100instance GoogleRequest UsersMessagesSend' where

gogol-groups-migration/gen/Network/Google/Resource/GroupsMigration/Archive/Insert.hs+4−5

@@ -46,14 +46,13 @@ type ArchiveInsertResource =

4646 Capture "groupId" Text :>

4747 "archive" :>

4848 QueryParam "alt" AltJSON :>

49− ReqBody '[OctetStream] RequestBody :>

50− Post '[JSON] Groups

49+ ReqBody '[OctetStream] Body :> Post '[JSON] Groups

5150

5251-- | Inserts a new mail into the archive of the Google group.

5352--

5453-- /See:/ 'archiveInsert'' smart constructor.

5554data ArchiveInsert' = ArchiveInsert'

56− { _aiMedia :: !Stream

55+ { _aiMedia :: !Body

5756 , _aiGroupId :: !Text

5857 }

5958

@@ -65,7 +64,7 @@ data ArchiveInsert' = ArchiveInsert'

6564--

6665-- * 'aiGroupId'

6766archiveInsert'

68− :: Stream -- ^ 'media'

67+ :: Body -- ^ 'media'

6968 -> Text -- ^ 'groupId'

7069 -> ArchiveInsert'

7170archiveInsert' pAiMedia_ pAiGroupId_ =

@@ -74,7 +73,7 @@ archiveInsert' pAiMedia_ pAiGroupId_ =

7473 , _aiGroupId = pAiGroupId_

7574 }

7675

77−aiMedia :: Lens' ArchiveInsert' Stream

76+aiMedia :: Lens' ArchiveInsert' Body

7877aiMedia = lens _aiMedia (\ s a -> s{_aiMedia = a})

7978

8079-- | The group ID

gogol-identity-toolkit/gen/Network/Google/Resource/IdentityToolkit/RelyingParty/GetPublicKeys.hs+1−1

@@ -62,7 +62,7 @@ instance GoogleRequest RelyingPartyGetPublicKeys'

6262 where

6363 type Rs RelyingPartyGetPublicKeys' =

6464 IdentitytoolkitRelyingPartyGetPublicKeysResponse

65− requestClient RelyingPartyGetPublicKeys'{..}

65+ requestClient RelyingPartyGetPublicKeys'{}

6666 = go (Just AltJSON) identityToolkitService

6767 where go

6868 = buildClient

gogol-identity-toolkit/gen/Network/Google/Resource/IdentityToolkit/RelyingParty/GetRecaptchaParam.hs+1−1

@@ -61,7 +61,7 @@ instance GoogleRequest RelyingPartyGetRecaptchaParam'

6161 where

6262 type Rs RelyingPartyGetRecaptchaParam' =

6363 GetRecaptchaParamResponse

64− requestClient RelyingPartyGetRecaptchaParam'{..}

64+ requestClient RelyingPartyGetRecaptchaParam'{}

6565 = go (Just AltJSON) identityToolkitService

6666 where go

6767 = buildClient

gogol-maps-engine/gen/Network/Google/Resource/MapsEngine/Projects/Icons/Create.hs+4−4

@@ -48,7 +48,7 @@ type ProjectsIconsCreateResource =

4848 Capture "projectId" Text :>

4949 "icons" :>

5050 QueryParam "alt" AltJSON :>

51− MultipartRelated '[JSON] Icon Stream :>

51+ MultipartRelated '[JSON] Icon Body :>

5252 Post '[JSON] Icon

5353

5454-- | Create an icon.

@@ -56,7 +56,7 @@ type ProjectsIconsCreateResource =

5656-- /See:/ 'projectsIconsCreate'' smart constructor.

5757data ProjectsIconsCreate' = ProjectsIconsCreate'

5858 { _picPayload :: !Icon

59− , _picMedia :: !Stream

59+ , _picMedia :: !Body

6060 , _picProjectId :: !Text

6161 }

6262

@@ -71,7 +71,7 @@ data ProjectsIconsCreate' = ProjectsIconsCreate'

7171-- * 'picProjectId'

7272projectsIconsCreate'

7373 :: Icon -- ^ 'payload'

74− -> Stream -- ^ 'media'

74+ -> Body -- ^ 'media'

7575 -> Text -- ^ 'projectId'

7676 -> ProjectsIconsCreate'

7777projectsIconsCreate' pPicPayload_ pPicMedia_ pPicProjectId_ =

@@ -86,7 +86,7 @@ picPayload :: Lens' ProjectsIconsCreate' Icon

8686picPayload

8787 = lens _picPayload (\ s a -> s{_picPayload = a})

8888

89−picMedia :: Lens' ProjectsIconsCreate' Stream

89+picMedia :: Lens' ProjectsIconsCreate' Body

9090picMedia = lens _picMedia (\ s a -> s{_picMedia = a})

9191

9292-- | The ID of the project.

gogol-maps-engine/gen/Network/Google/Resource/MapsEngine/Projects/List.hs+1−1

@@ -59,7 +59,7 @@ projectsList' = ProjectsList'

5959

6060instance GoogleRequest ProjectsList' where

6161 type Rs ProjectsList' = ProjectsListResponse

62− requestClient ProjectsList'{..}

62+ requestClient ProjectsList'{}

6363 = go (Just AltJSON) mapsEngineService

6464 where go

6565 = buildClient (Proxy :: Proxy ProjectsListResource)

gogol-maps-engine/gen/Network/Google/Resource/MapsEngine/Rasters/Files/Insert.hs+4−4

@@ -49,13 +49,13 @@ type RastersFilesInsertResource =

4949 "files" :>

5050 QueryParam "filename" Text :>

5151 QueryParam "alt" AltJSON :>

52− ReqBody '[OctetStream] RequestBody :> Post '[JSON] ()

52+ ReqBody '[OctetStream] Body :> Post '[JSON] ()

5353

5454-- | Upload a file to a raster asset.

5555--

5656-- /See:/ 'rastersFilesInsert'' smart constructor.

5757data RastersFilesInsert' = RastersFilesInsert'

58− { _rfiMedia :: !Stream

58+ { _rfiMedia :: !Body

5959 , _rfiId :: !Text

6060 , _rfiFilename :: !Text

6161 }

@@ -70,7 +70,7 @@ data RastersFilesInsert' = RastersFilesInsert'

7070--

7171-- * 'rfiFilename'

7272rastersFilesInsert'

73− :: Stream -- ^ 'media'

73+ :: Body -- ^ 'media'

7474 -> Text -- ^ 'id'

7575 -> Text -- ^ 'filename'

7676 -> RastersFilesInsert'

@@ -81,7 +81,7 @@ rastersFilesInsert' pRfiMedia_ pRfiId_ pRfiFilename_ =

8181 , _rfiFilename = pRfiFilename_

8282 }

8383

84−rfiMedia :: Lens' RastersFilesInsert' Stream

84+rfiMedia :: Lens' RastersFilesInsert' Body

8585rfiMedia = lens _rfiMedia (\ s a -> s{_rfiMedia = a})

8686

8787-- | The ID of the raster asset.

gogol-maps-engine/gen/Network/Google/Resource/MapsEngine/Tables/Files/Insert.hs+4−4

@@ -52,7 +52,7 @@ type TablesFilesInsertResource =

5252 "files" :>

5353 QueryParam "filename" Text :>

5454 QueryParam "alt" AltJSON :>

55− ReqBody '[OctetStream] RequestBody :> Post '[JSON] ()

55+ ReqBody '[OctetStream] Body :> Post '[JSON] ()

5656

5757-- | Upload a file to a placeholder table asset. See Table Upload in the

5858-- Developer\'s Guide for more information. Supported file types are listed

@@ -61,7 +61,7 @@ type TablesFilesInsertResource =

6161--

6262-- /See:/ 'tablesFilesInsert'' smart constructor.

6363data TablesFilesInsert' = TablesFilesInsert'

64− { _tfiMedia :: !Stream

64+ { _tfiMedia :: !Body

6565 , _tfiId :: !Text

6666 , _tfiFilename :: !Text

6767 }

@@ -76,7 +76,7 @@ data TablesFilesInsert' = TablesFilesInsert'

7676--

7777-- * 'tfiFilename'

7878tablesFilesInsert'

79− :: Stream -- ^ 'media'

79+ :: Body -- ^ 'media'

8080 -> Text -- ^ 'id'

8181 -> Text -- ^ 'filename'

8282 -> TablesFilesInsert'

@@ -87,7 +87,7 @@ tablesFilesInsert' pTfiMedia_ pTfiId_ pTfiFilename_ =

8787 , _tfiFilename = pTfiFilename_

8888 }

8989

90−tfiMedia :: Lens' TablesFilesInsert' Stream

90+tfiMedia :: Lens' TablesFilesInsert' Body

9191tfiMedia = lens _tfiMedia (\ s a -> s{_tfiMedia = a})

9292

9393-- | The ID of the table asset.

gogol-mirror/gen/Network/Google/Resource/Mirror/Contacts/List.hs+1−1

@@ -59,7 +59,7 @@ contactsList' = ContactsList'

5959

6060instance GoogleRequest ContactsList' where

6161 type Rs ContactsList' = ContactsListResponse

62− requestClient ContactsList'{..}

62+ requestClient ContactsList'{}

6363 = go (Just AltJSON) mirrorService

6464 where go

6565 = buildClient (Proxy :: Proxy ContactsListResource)

gogol-mirror/gen/Network/Google/Resource/Mirror/Locations/List.hs+1−1

@@ -59,7 +59,7 @@ locationsList' = LocationsList'

5959

6060instance GoogleRequest LocationsList' where

6161 type Rs LocationsList' = LocationsListResponse

62− requestClient LocationsList'{..}

62+ requestClient LocationsList'{}

6363 = go (Just AltJSON) mirrorService

6464 where go

6565 = buildClient (Proxy :: Proxy LocationsListResource)

gogol-mirror/gen/Network/Google/Resource/Mirror/Subscriptions/List.hs+1−1

@@ -62,7 +62,7 @@ subscriptionsList' = SubscriptionsList'

6262instance GoogleRequest SubscriptionsList' where

6363 type Rs SubscriptionsList' =

6464 SubscriptionsListResponse

65− requestClient SubscriptionsList'{..}

65+ requestClient SubscriptionsList'{}

6666 = go (Just AltJSON) mirrorService

6767 where go

6868 = buildClient

gogol-mirror/gen/Network/Google/Resource/Mirror/Timeline/Attachments/Insert.hs+4−4

@@ -47,7 +47,7 @@ type TimelineAttachmentsInsertResource =

4747 Capture "itemId" Text :>

4848 "attachments" :>

4949 QueryParam "alt" AltJSON :>

50− ReqBody '[OctetStream] RequestBody :>

50+ ReqBody '[OctetStream] Body :>

5151 Post '[JSON] Attachment

5252

5353-- | Adds a new attachment to a timeline item.

@@ -55,7 +55,7 @@ type TimelineAttachmentsInsertResource =

5555-- /See:/ 'timelineAttachmentsInsert'' smart constructor.

5656data TimelineAttachmentsInsert' = TimelineAttachmentsInsert'

5757 { _taiItemId :: !Text

58− , _taiMedia :: !Stream

58+ , _taiMedia :: !Body

5959 }

6060

6161-- | Creates a value of 'TimelineAttachmentsInsert'' with the minimum fields required to make a request.

@@ -67,7 +67,7 @@ data TimelineAttachmentsInsert' = TimelineAttachmentsInsert'

6767-- * 'taiMedia'

6868timelineAttachmentsInsert'

6969 :: Text -- ^ 'itemId'

70− -> Stream -- ^ 'media'

70+ -> Body -- ^ 'media'

7171 -> TimelineAttachmentsInsert'

7272timelineAttachmentsInsert' pTaiItemId_ pTaiMedia_ =

7373 TimelineAttachmentsInsert'

@@ -80,7 +80,7 @@ taiItemId :: Lens' TimelineAttachmentsInsert' Text

8080taiItemId

8181 = lens _taiItemId (\ s a -> s{_taiItemId = a})

8282

83−taiMedia :: Lens' TimelineAttachmentsInsert' Stream

83+taiMedia :: Lens' TimelineAttachmentsInsert' Body

8484taiMedia = lens _taiMedia (\ s a -> s{_taiMedia = a})

8585

8686instance GoogleRequest TimelineAttachmentsInsert'

gogol-mirror/gen/Network/Google/Resource/Mirror/Timeline/Insert.hs+4−4

@@ -45,7 +45,7 @@ import Network.Google.Prelude

4545type TimelineInsertResource =

4646 "timeline" :>

4747 QueryParam "alt" AltJSON :>

48− MultipartRelated '[JSON] TimelineItem Stream :>

48+ MultipartRelated '[JSON] TimelineItem Body :>

4949 Post '[JSON] TimelineItem

5050

5151-- | Inserts a new item into the timeline.

@@ -53,7 +53,7 @@ type TimelineInsertResource =

5353-- /See:/ 'timelineInsert'' smart constructor.

5454data TimelineInsert' = TimelineInsert'

5555 { _tiPayload :: !TimelineItem

56− , _tiMedia :: !Stream

56+ , _tiMedia :: !Body

5757 }

5858

5959-- | Creates a value of 'TimelineInsert'' with the minimum fields required to make a request.

@@ -65,7 +65,7 @@ data TimelineInsert' = TimelineInsert'

6565-- * 'tiMedia'

6666timelineInsert'

6767 :: TimelineItem -- ^ 'payload'

68− -> Stream -- ^ 'media'

68+ -> Body -- ^ 'media'

6969 -> TimelineInsert'

7070timelineInsert' pTiPayload_ pTiMedia_ =

7171 TimelineInsert'

@@ -78,7 +78,7 @@ tiPayload :: Lens' TimelineInsert' TimelineItem

7878tiPayload

7979 = lens _tiPayload (\ s a -> s{_tiPayload = a})

8080

81−tiMedia :: Lens' TimelineInsert' Stream

81+tiMedia :: Lens' TimelineInsert' Body

8282tiMedia = lens _tiMedia (\ s a -> s{_tiMedia = a})

8383

8484instance GoogleRequest TimelineInsert' where

gogol-mirror/gen/Network/Google/Resource/Mirror/Timeline/Update.hs+4−4

@@ -47,7 +47,7 @@ type TimelineUpdateResource =

4747 "timeline" :>

4848 Capture "id" Text :>

4949 QueryParam "alt" AltJSON :>

50− MultipartRelated '[JSON] TimelineItem Stream :>

50+ MultipartRelated '[JSON] TimelineItem Body :>

5151 Put '[JSON] TimelineItem

5252

5353-- | Updates a timeline item in place.

@@ -55,7 +55,7 @@ type TimelineUpdateResource =

5555-- /See:/ 'timelineUpdate'' smart constructor.

5656data TimelineUpdate' = TimelineUpdate'

5757 { _tuPayload :: !TimelineItem

58− , _tuMedia :: !Stream

58+ , _tuMedia :: !Body

5959 , _tuId :: !Text

6060 }

6161

@@ -70,7 +70,7 @@ data TimelineUpdate' = TimelineUpdate'

7070-- * 'tuId'

7171timelineUpdate'

7272 :: TimelineItem -- ^ 'payload'

73− -> Stream -- ^ 'media'

73+ -> Body -- ^ 'media'

7474 -> Text -- ^ 'id'

7575 -> TimelineUpdate'

7676timelineUpdate' pTuPayload_ pTuMedia_ pTuId_ =

@@ -85,7 +85,7 @@ tuPayload :: Lens' TimelineUpdate' TimelineItem

8585tuPayload

8686 = lens _tuPayload (\ s a -> s{_tuPayload = a})

8787

88−tuMedia :: Lens' TimelineUpdate' Stream

88+tuMedia :: Lens' TimelineUpdate' Body

8989tuMedia = lens _tuMedia (\ s a -> s{_tuMedia = a})

9090

9191-- | The ID of the timeline item.

gogol-oauth2/gen/Network/Google/Method/OAuth2/GetCertForOpenIdConnect.hs+1−1

@@ -59,7 +59,7 @@ getCertForOpenIdConnect' = GetCertForOpenIdConnect'

5959

6060instance GoogleRequest GetCertForOpenIdConnect' where

6161 type Rs GetCertForOpenIdConnect' = JWK

62− requestClient GetCertForOpenIdConnect'{..}

62+ requestClient GetCertForOpenIdConnect'{}

6363 = go (Just AltJSON) oAuth2Service

6464 where go

6565 = buildClient

gogol-oauth2/gen/Network/Google/Resource/OAuth2/UserInfo/Get.hs+1−1

@@ -59,7 +59,7 @@ userInfoGet' = UserInfoGet'

5959

6060instance GoogleRequest UserInfoGet' where

6161 type Rs UserInfoGet' = UserInfoplus

62− requestClient UserInfoGet'{..}

62+ requestClient UserInfoGet'{}

6363 = go (Just AltJSON) oAuth2Service

6464 where go

6565 = buildClient (Proxy :: Proxy UserInfoGetResource)

gogol-oauth2/gen/Network/Google/Resource/OAuth2/UserInfo/V2/Me/Get.hs+1−1

@@ -59,7 +59,7 @@ userInfoV2MeGet' = UserInfoV2MeGet'

5959

6060instance GoogleRequest UserInfoV2MeGet' where

6161 type Rs UserInfoV2MeGet' = UserInfoplus

62− requestClient UserInfoV2MeGet'{..}

62+ requestClient UserInfoV2MeGet'{}

6363 = go (Just AltJSON) oAuth2Service

6464 where go

6565 = buildClient

gogol-plus-domains/gen/Network/Google/Resource/PlusDomains/Media/Insert.hs+4−4

@@ -53,7 +53,7 @@ type MediaInsertResource =

5353 "media" :>

5454 Capture "collection" MediaInsertCollection :>

5555 QueryParam "alt" AltJSON :>

56− MultipartRelated '[JSON] Media Stream :>

56+ MultipartRelated '[JSON] Media Body :>

5757 Post '[JSON] Media

5858

5959-- | Add a new media item to an album. The current upload size limitations

@@ -66,7 +66,7 @@ data MediaInsert' = MediaInsert'

6666 { _miCollection :: !MediaInsertCollection

6767 , _miPayload :: !Media

6868 , _miUserId :: !Text

69− , _miMedia :: !Stream

69+ , _miMedia :: !Body

7070 }

7171

7272-- | Creates a value of 'MediaInsert'' with the minimum fields required to make a request.

@@ -84,7 +84,7 @@ mediaInsert'

8484 :: MediaInsertCollection -- ^ 'collection'

8585 -> Media -- ^ 'payload'

8686 -> Text -- ^ 'userId'

87− -> Stream -- ^ 'media'

87+ -> Body -- ^ 'media'

8888 -> MediaInsert'

8989mediaInsert' pMiCollection_ pMiPayload_ pMiUserId_ pMiMedia_ =

9090 MediaInsert'

@@ -107,7 +107,7 @@ miPayload

107107miUserId :: Lens' MediaInsert' Text

108108miUserId = lens _miUserId (\ s a -> s{_miUserId = a})

109109

110−miMedia :: Lens' MediaInsert' Stream

110+miMedia :: Lens' MediaInsert' Body

111111miMedia = lens _miMedia (\ s a -> s{_miMedia = a})

112112

113113instance GoogleRequest MediaInsert' where

gogol-shopping-content/gen/Network/Google/Resource/Content/Accounts/AuthInfo.hs+1−1

@@ -60,7 +60,7 @@ accountsAuthInfo' = AccountsAuthInfo'

6060

6161instance GoogleRequest AccountsAuthInfo' where

6262 type Rs AccountsAuthInfo' = AccountsAuthInfoResponse

63− requestClient AccountsAuthInfo'{..}

63+ requestClient AccountsAuthInfo'{}

6464 = go (Just AltJSON) shoppingContentService

6565 where go

6666 = buildClient

gogol-siteverification/gen/Network/Google/Resource/SiteVerification/WebResource/List.hs+1−1

@@ -60,7 +60,7 @@ webResourceList' = WebResourceList'

6060instance GoogleRequest WebResourceList' where

6161 type Rs WebResourceList' =

6262 SiteVerificationWebResourceListResponse

63− requestClient WebResourceList'{..}

63+ requestClient WebResourceList'{}

6464 = go (Just AltJSON) siteVerificationService

6565 where go

6666 = buildClient

gogol-sqladmin/gen/Network/Google/Resource/SQL/Flags/List.hs+1−1

@@ -59,7 +59,7 @@ flagsList' = FlagsList'

5959

6060instance GoogleRequest FlagsList' where

6161 type Rs FlagsList' = FlagsListResponse

62− requestClient FlagsList'{..}

62+ requestClient FlagsList'{}

6363 = go (Just AltJSON) sQLAdminService

6464 where go

6565 = buildClient (Proxy :: Proxy FlagsListResource)

gogol-storage/gen/Network/Google/Resource/Storage/Objects/Insert.hs+5−5

@@ -65,7 +65,7 @@ type ObjectsInsertResource =

6565 QueryParam "contentEncoding" Text :>

6666 QueryParam "projection" ObjectsInsertProjection :>

6767 QueryParam "alt" AltJSON :>

68− MultipartRelated '[JSON] Object Stream :>

68+ MultipartRelated '[JSON] Object Body :>

6969 Post '[JSON] Object

7070 :<|>

7171 "b" :>

@@ -81,7 +81,7 @@ type ObjectsInsertResource =

8181 QueryParam "contentEncoding" Text :>

8282 QueryParam "projection" ObjectsInsertProjection :>

8383 QueryParam "alt" AltMedia :>

84− MultipartRelated '[JSON] Object Stream :>

84+ MultipartRelated '[JSON] Object Body :>

8585 Post '[OctetStream] Stream

8686

8787-- | Stores a new object and metadata.

@@ -94,7 +94,7 @@ data ObjectsInsert' = ObjectsInsert'

9494 , _oiPredefinedACL :: !(Maybe ObjectsInsertPredefinedACL)

9595 , _oiBucket :: !Text

9696 , _oiPayload :: !Object

97− , _oiMedia :: !Stream

97+ , _oiMedia :: !Body

9898 , _oiName :: !(Maybe Text)

9999 , _oiIfMetagenerationNotMatch :: !(Maybe Int64)

100100 , _oiContentEncoding :: !(Maybe Text)

@@ -129,7 +129,7 @@ data ObjectsInsert' = ObjectsInsert'

129129objectsInsert'

130130 :: Text -- ^ 'bucket'

131131 -> Object -- ^ 'payload'

132− -> Stream -- ^ 'media'

132+ -> Body -- ^ 'media'

133133 -> ObjectsInsert'

134134objectsInsert' pOiBucket_ pOiPayload_ pOiMedia_ =

135135 ObjectsInsert'

@@ -183,7 +183,7 @@ oiPayload :: Lens' ObjectsInsert' Object

183183oiPayload

184184 = lens _oiPayload (\ s a -> s{_oiPayload = a})

185185

186−oiMedia :: Lens' ObjectsInsert' Stream

186+oiMedia :: Lens' ObjectsInsert' Body

187187oiMedia = lens _oiMedia (\ s a -> s{_oiMedia = a})

188188

189189-- | Name of the object. Required when the object metadata is not otherwise

gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/List.hs+1−1

@@ -59,7 +59,7 @@ accountsList' = AccountsList'

5959

6060instance GoogleRequest AccountsList' where

6161 type Rs AccountsList' = ListAccountsResponse

62− requestClient AccountsList'{..}

62+ requestClient AccountsList'{}

6363 = go (Just AltJSON) tagManagerService

6464 where go

6565 = buildClient (Proxy :: Proxy AccountsListResource)

gogol-webmaster-tools/gen/Network/Google/Resource/Webmasters/Sites/List.hs+1−1

@@ -59,7 +59,7 @@ sitesList' = SitesList'

5959

6060instance GoogleRequest SitesList' where

6161 type Rs SitesList' = SitesListResponse

62− requestClient SitesList'{..}

62+ requestClient SitesList'{}

6363 = go (Just AltJSON) webmasterToolsService

6464 where go

6565 = buildClient (Proxy :: Proxy SitesListResource)

gogol-youtube/gen/Network/Google/Resource/YouTube/Captions/Insert.hs+4−4

@@ -53,7 +53,7 @@ type CaptionsInsertResource =

5353 QueryParam "onBehalfOfContentOwner" Text :>

5454 QueryParam "sync" Bool :>

5555 QueryParam "alt" AltJSON :>

56− MultipartRelated '[JSON] Caption Stream :>

56+ MultipartRelated '[JSON] Caption Body :>

5757 Post '[JSON] Caption

5858

5959-- | Uploads a caption track.

@@ -63,7 +63,7 @@ data CaptionsInsert' = CaptionsInsert'

6363 { _ciOnBehalfOf :: !(Maybe Text)

6464 , _ciPart :: !Text

6565 , _ciPayload :: !Caption

66− , _ciMedia :: !Stream

66+ , _ciMedia :: !Body

6767 , _ciOnBehalfOfContentOwner :: !(Maybe Text)

6868 , _ciSync :: !(Maybe Bool)

6969 }

@@ -86,7 +86,7 @@ data CaptionsInsert' = CaptionsInsert'

8686captionsInsert'

8787 :: Text -- ^ 'part'

8888 -> Caption -- ^ 'payload'

89− -> Stream -- ^ 'media'

89+ -> Body -- ^ 'media'

9090 -> CaptionsInsert'

9191captionsInsert' pCiPart_ pCiPayload_ pCiMedia_ =

9292 CaptionsInsert'

@@ -114,7 +114,7 @@ ciPayload :: Lens' CaptionsInsert' Caption

114114ciPayload

115115 = lens _ciPayload (\ s a -> s{_ciPayload = a})

116116

117−ciMedia :: Lens' CaptionsInsert' Stream

117+ciMedia :: Lens' CaptionsInsert' Body

118118ciMedia = lens _ciMedia (\ s a -> s{_ciMedia = a})

119119

120120-- | Note: This parameter is intended exclusively for YouTube content

gogol-youtube/gen/Network/Google/Resource/YouTube/Captions/Update.hs+4−4

@@ -55,7 +55,7 @@ type CaptionsUpdateResource =

5555 QueryParam "onBehalfOfContentOwner" Text :>

5656 QueryParam "sync" Bool :>

5757 QueryParam "alt" AltJSON :>

58− MultipartRelated '[JSON] Caption Stream :>

58+ MultipartRelated '[JSON] Caption Body :>

5959 Put '[JSON] Caption

6060

6161-- | Updates a caption track. When updating a caption track, you can change

@@ -67,7 +67,7 @@ data CaptionsUpdate' = CaptionsUpdate'

6767 { _capOnBehalfOf :: !(Maybe Text)

6868 , _capPart :: !Text

6969 , _capPayload :: !Caption

70− , _capMedia :: !Stream

70+ , _capMedia :: !Body

7171 , _capOnBehalfOfContentOwner :: !(Maybe Text)

7272 , _capSync :: !(Maybe Bool)

7373 }

@@ -90,7 +90,7 @@ data CaptionsUpdate' = CaptionsUpdate'

9090captionsUpdate'

9191 :: Text -- ^ 'part'

9292 -> Caption -- ^ 'payload'

93− -> Stream -- ^ 'media'

93+ -> Body -- ^ 'media'

9494 -> CaptionsUpdate'

9595captionsUpdate' pCapPart_ pCapPayload_ pCapMedia_ =

9696 CaptionsUpdate'

@@ -122,7 +122,7 @@ capPayload :: Lens' CaptionsUpdate' Caption

122122capPayload

123123 = lens _capPayload (\ s a -> s{_capPayload = a})

124124

125−capMedia :: Lens' CaptionsUpdate' Stream

125+capMedia :: Lens' CaptionsUpdate' Body

126126capMedia = lens _capMedia (\ s a -> s{_capMedia = a})

127127

128128-- | Note: This parameter is intended exclusively for YouTube content

gogol-youtube/gen/Network/Google/Resource/YouTube/ChannelBanners/Insert.hs+4−4

@@ -56,7 +56,7 @@ type ChannelBannersInsertResource =

5656 "insert" :>

5757 QueryParam "onBehalfOfContentOwner" Text :>

5858 QueryParam "alt" AltJSON :>

59− MultipartRelated '[JSON] ChannelBannerResource Stream

59+ MultipartRelated '[JSON] ChannelBannerResource Body

6060 :> Post '[JSON] ChannelBannerResource

6161

6262-- | Uploads a channel banner image to YouTube. This method represents the

@@ -72,7 +72,7 @@ type ChannelBannersInsertResource =

7272-- /See:/ 'channelBannersInsert'' smart constructor.

7373data ChannelBannersInsert' = ChannelBannersInsert'

7474 { _cbiPayload :: !ChannelBannerResource

75− , _cbiMedia :: !Stream

75+ , _cbiMedia :: !Body

7676 , _cbiOnBehalfOfContentOwner :: !(Maybe Text)

7777 }

7878

@@ -87,7 +87,7 @@ data ChannelBannersInsert' = ChannelBannersInsert'

8787-- * 'cbiOnBehalfOfContentOwner'

8888channelBannersInsert'

8989 :: ChannelBannerResource -- ^ 'payload'

90− -> Stream -- ^ 'media'

90+ -> Body -- ^ 'media'

9191 -> ChannelBannersInsert'

9292channelBannersInsert' pCbiPayload_ pCbiMedia_ =

9393 ChannelBannersInsert'

@@ -101,7 +101,7 @@ cbiPayload :: Lens' ChannelBannersInsert' ChannelBannerResource

101101cbiPayload

102102 = lens _cbiPayload (\ s a -> s{_cbiPayload = a})

103103

104−cbiMedia :: Lens' ChannelBannersInsert' Stream

104+cbiMedia :: Lens' ChannelBannersInsert' Body

105105cbiMedia = lens _cbiMedia (\ s a -> s{_cbiMedia = a})

106106

107107-- | Note: This parameter is intended exclusively for YouTube content

gogol-youtube/gen/Network/Google/Resource/YouTube/Thumbnails/Set.hs+4−4

@@ -49,14 +49,14 @@ type ThumbnailsSetResource =

4949 QueryParam "videoId" Text :>

5050 QueryParam "onBehalfOfContentOwner" Text :>

5151 QueryParam "alt" AltJSON :>

52− ReqBody '[OctetStream] RequestBody :>

52+ ReqBody '[OctetStream] Body :>

5353 Post '[JSON] ThumbnailSetResponse

5454

5555-- | Uploads a custom video thumbnail to YouTube and sets it for a video.

5656--

5757-- /See:/ 'thumbnailsSet'' smart constructor.

5858data ThumbnailsSet' = ThumbnailsSet'

59− { _tsMedia :: !Stream

59+ { _tsMedia :: !Body

6060 , _tsOnBehalfOfContentOwner :: !(Maybe Text)

6161 , _tsVideoId :: !Text

6262 }

@@ -71,7 +71,7 @@ data ThumbnailsSet' = ThumbnailsSet'

7171--

7272-- * 'tsVideoId'

7373thumbnailsSet'

74− :: Stream -- ^ 'media'

74+ :: Body -- ^ 'media'

7575 -> Text -- ^ 'videoId'

7676 -> ThumbnailsSet'

7777thumbnailsSet' pTsMedia_ pTsVideoId_ =

@@ -81,7 +81,7 @@ thumbnailsSet' pTsMedia_ pTsVideoId_ =

8181 , _tsVideoId = pTsVideoId_

8282 }

8383

84−tsMedia :: Lens' ThumbnailsSet' Stream

84+tsMedia :: Lens' ThumbnailsSet' Body

8585tsMedia = lens _tsMedia (\ s a -> s{_tsMedia = a})

8686

8787-- | Note: This parameter is intended exclusively for YouTube content

gogol-youtube/gen/Network/Google/Resource/YouTube/Videos/Insert.hs+4−4

@@ -57,7 +57,7 @@ type VideosInsertResource =

5757 QueryParam "notifySubscribers" Bool :>

5858 QueryParam "autoLevels" Bool :>

5959 QueryParam "alt" AltJSON :>

60− MultipartRelated '[JSON] Video Stream :>

60+ MultipartRelated '[JSON] Video Body :>

6161 Post '[JSON] Video

6262

6363-- | Uploads a video to YouTube and optionally sets the video\'s metadata.

@@ -67,7 +67,7 @@ data VideosInsert' = VideosInsert'

6767 { _viPart :: !Text

6868 , _viStabilize :: !(Maybe Bool)

6969 , _viPayload :: !Video

70− , _viMedia :: !Stream

70+ , _viMedia :: !Body

7171 , _viOnBehalfOfContentOwner :: !(Maybe Text)

7272 , _viOnBehalfOfContentOwnerChannel :: !(Maybe Text)

7373 , _viNotifySubscribers :: !Bool

@@ -96,7 +96,7 @@ data VideosInsert' = VideosInsert'

9696videosInsert'

9797 :: Text -- ^ 'part'

9898 -> Video -- ^ 'payload'

99− -> Stream -- ^ 'media'

99+ -> Body -- ^ 'media'

100100 -> VideosInsert'

101101videosInsert' pViPart_ pViPayload_ pViMedia_ =

102102 VideosInsert'

@@ -132,7 +132,7 @@ viPayload :: Lens' VideosInsert' Video

132132viPayload

133133 = lens _viPayload (\ s a -> s{_viPayload = a})

134134

135−viMedia :: Lens' VideosInsert' Stream

135+viMedia :: Lens' VideosInsert' Body

136136viMedia = lens _viMedia (\ s a -> s{_viMedia = a})

137137

138138-- | Note: This parameter is intended exclusively for YouTube content

gogol-youtube/gen/Network/Google/Resource/YouTube/Watermarks/Set.hs+4−4

@@ -50,7 +50,7 @@ type WatermarksSetResource =

5050 QueryParam "channelId" Text :>

5151 QueryParam "onBehalfOfContentOwner" Text :>

5252 QueryParam "alt" AltJSON :>

53− MultipartRelated '[JSON] InvideoBranding Stream :>

53+ MultipartRelated '[JSON] InvideoBranding Body :>

5454 Post '[JSON] ()

5555

5656-- | Uploads a watermark image to YouTube and sets it for a channel.

@@ -59,7 +59,7 @@ type WatermarksSetResource =

5959data WatermarksSet' = WatermarksSet'

6060 { _wsChannelId :: !Text

6161 , _wsPayload :: !InvideoBranding

62− , _wsMedia :: !Stream

62+ , _wsMedia :: !Body

6363 , _wsOnBehalfOfContentOwner :: !(Maybe Text)

6464 }

6565

@@ -77,7 +77,7 @@ data WatermarksSet' = WatermarksSet'

7777watermarksSet'

7878 :: Text -- ^ 'channelId'

7979 -> InvideoBranding -- ^ 'payload'

80− -> Stream -- ^ 'media'

80+ -> Body -- ^ 'media'

8181 -> WatermarksSet'

8282watermarksSet' pWsChannelId_ pWsPayload_ pWsMedia_ =

8383 WatermarksSet'

@@ -98,7 +98,7 @@ wsPayload :: Lens' WatermarksSet' InvideoBranding

9898wsPayload

9999 = lens _wsPayload (\ s a -> s{_wsPayload = a})

100100

101−wsMedia :: Lens' WatermarksSet' Stream

101+wsMedia :: Lens' WatermarksSet' Body

102102wsMedia = lens _wsMedia (\ s a -> s{_wsMedia = a})

103103

104104-- | Note: This parameter is intended exclusively for YouTube content