4ab7bf1 · gogol · git.iko.soy

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

compare with develop

unifiedsplit

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

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

48import GHC.Generics

49import GHC.TypeLits

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

50+import Network.HTTP.Client (HttpException)

51import Network.HTTP.Media hiding (Accept)

52import Network.HTTP.Types hiding (Header)

53import qualified Network.HTTP.Types as HTTP

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

98 f (Just x) = x

99 f Nothing = mempty

100

101+type Body = Source IO ByteString

101type Stream = ResumableSource (ResourceT IO) ByteString

102type Stream = ResumableSource (ResourceT IO) ByteString

102

103

103newtype ServiceId = ServiceId Text

104newtype ServiceId = ServiceId Text

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

187 { _rqPath :: Builder

188 { _rqPath :: Builder

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

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

189 , _rqHeaders :: DList (HeaderName, ByteString)

190 , _rqHeaders :: DList (HeaderName, ByteString)

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

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

191 }

192 }

192

193

193instance Monoid Request where

194instance Monoid Request where

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

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

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

216 }

217 }

217

218

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

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

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

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

220

221

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

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

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

251 }

252 }

252

253

253class Accept c => ToBody c a where

254class Accept c => ToBody c a where

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

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

255

256

256−instance ToBody OctetStream RequestBody where

257+instance ToBody OctetStream Body where

257 toBody Proxy = id

258 toBody Proxy = id

258

259

259−instance ToBody OctetStream ByteString where toBody Proxy = RequestBodyBS

260+instance ToBody OctetStream ByteString where

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

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

261−instance ToBody PlainText ByteString where toBody Proxy = RequestBodyBS

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

263

262

264−instance ToJSON a => ToBody JSON a where

263+instance ToBody OctetStream LBS.ByteString where

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

265+

266+instance ToBody PlainText ByteString where

265− toBody Proxy = RequestBodyLBS . encode

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

266

268

267−instance ToBody JSON Value where

269+instance ToBody PlainText LBS.ByteString where

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

271+

272+instance ToJSON a => ToBody JSON a where

268− toBody Proxy = RequestBodyLBS . encode

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

269

274

270class Accept c => FromStream c a where

275class Accept c => FromStream c a where

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

276 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'

58

59instance GoogleRequest AccountsList' where

60 type Rs AccountsList' = AccountsList

61− requestClient AccountsList'{..}

61+ requestClient AccountsList'{}

62 = go (Just AltJSON) adExchangeBuyerService

63 where go

64 = buildClient (Proxy :: Proxy AccountsListResource)

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

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

61

62instance GoogleRequest BillingInfoList' where

63 type Rs BillingInfoList' = BillingInfoList

64− requestClient BillingInfoList'{..}

64+ requestClient BillingInfoList'{}

65 = go (Just AltJSON) adExchangeBuyerService

66 where go

67 = buildClient

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

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

47 Capture "userKey" Text :>

48 "mail" :>

49 QueryParam "alt" AltJSON :>

50− MultipartRelated '[JSON] MailItem Stream :>

50+ MultipartRelated '[JSON] MailItem Body :>

51 Post '[JSON] ()

52

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

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

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

56data MailInsert' = MailInsert'

57 { _miPayload :: !MailItem

58− , _miMedia :: !Stream

58+ , _miMedia :: !Body

59 , _miUserKey :: !Text

60 }

61

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

70-- * 'miUserKey'

71mailInsert'

72 :: MailItem -- ^ 'payload'

73− -> Stream -- ^ 'media'

73+ -> Body -- ^ 'media'

74 -> Text -- ^ 'userKey'

75 -> MailInsert'

76mailInsert' pMiPayload_ pMiMedia_ pMiUserKey_ =

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

85miPayload

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

87

88−miMedia :: Lens' MailInsert' Stream

88+miMedia :: Lens' MailInsert' Body

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

90

91-- | 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'

59

60instance GoogleRequest MetadataDimensionsList' where

61 type Rs MetadataDimensionsList' = Metadata

62− requestClient MetadataDimensionsList'{..}

62+ requestClient MetadataDimensionsList'{}

63 = go (Just AltJSON) adSenseService

64 where go

65 = buildClient

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

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

59

60instance GoogleRequest MetadataMetricsList' where

61 type Rs MetadataMetricsList' = Metadata

62− requestClient MetadataMetricsList'{..}

62+ requestClient MetadataMetricsList'{}

63 = go (Just AltJSON) adSenseService

64 where go

65 = buildClient

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

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

58

59instance GoogleRequest PaymentsList' where

60 type Rs PaymentsList' = Payments

61− requestClient PaymentsList'{..}

61+ requestClient PaymentsList'{}

62 = go (Just AltJSON) adSenseService

63 where go

64 = buildClient (Proxy :: Proxy PaymentsListResource)

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

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

54 Capture "customDataSourceId" Text :>

55 "uploads" :>

56 QueryParam "alt" AltJSON :>

57− ReqBody '[OctetStream] RequestBody :>

58− Post '[JSON] Upload

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

59

58

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

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

61--

60--

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

63data ManagementUploadsUploadData' = ManagementUploadsUploadData'

62data ManagementUploadsUploadData' = ManagementUploadsUploadData'

64 { _muudWebPropertyId :: !Text

63 { _muudWebPropertyId :: !Text

65 , _muudCustomDataSourceId :: !Text

64 , _muudCustomDataSourceId :: !Text

66− , _muudMedia :: !Stream

65+ , _muudMedia :: !Body

67 , _muudAccountId :: !Text

66 , _muudAccountId :: !Text

68 }

67 }

69

68

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

81managementUploadsUploadData'

80managementUploadsUploadData'

82 :: Text -- ^ 'webPropertyId'

81 :: Text -- ^ 'webPropertyId'

83 -> Text -- ^ 'customDataSourceId'

82 -> Text -- ^ 'customDataSourceId'

84− -> Stream -- ^ 'media'

83+ -> Body -- ^ 'media'

85 -> Text -- ^ 'accountId'

84 -> Text -- ^ 'accountId'

86 -> ManagementUploadsUploadData'

85 -> ManagementUploadsUploadData'

87managementUploadsUploadData' pMuudWebPropertyId_ pMuudCustomDataSourceId_ pMuudMedia_ pMuudAccountId_ =

86managementUploadsUploadData' pMuudWebPropertyId_ pMuudCustomDataSourceId_ pMuudMedia_ pMuudAccountId_ =

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

104 = lens _muudCustomDataSourceId

103 = lens _muudCustomDataSourceId

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

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

106

105

107−muudMedia :: Lens' ManagementUploadsUploadData' Stream

106+muudMedia :: Lens' ManagementUploadsUploadData' Body

108muudMedia

107muudMedia

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

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

110

109

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

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

49 Capture "editId" Text :>

50 "apks" :>

51 QueryParam "alt" AltJSON :>

52− ReqBody '[OctetStream] RequestBody :>

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

53− Post '[JSON] APK

54

53

55--

54--

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

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

57data EditsAPKsUpload' = EditsAPKsUpload'

56data EditsAPKsUpload' = EditsAPKsUpload'

58 { _eapkuPackageName :: !Text

57 { _eapkuPackageName :: !Text

59− , _eapkuMedia :: !Stream

58+ , _eapkuMedia :: !Body

60 , _eapkuEditId :: !Text

59 , _eapkuEditId :: !Text

61 }

60 }

62

61

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

71-- * 'eapkuEditId'

70-- * 'eapkuEditId'

72editsAPKsUpload'

71editsAPKsUpload'

73 :: Text -- ^ 'packageName'

72 :: Text -- ^ 'packageName'

74− -> Stream -- ^ 'media'

73+ -> Body -- ^ 'media'

75 -> Text -- ^ 'editId'

74 -> Text -- ^ 'editId'

76 -> EditsAPKsUpload'

75 -> EditsAPKsUpload'

77editsAPKsUpload' pEapkuPackageName_ pEapkuMedia_ pEapkuEditId_ =

76editsAPKsUpload' pEapkuPackageName_ pEapkuMedia_ pEapkuEditId_ =

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

88 = lens _eapkuPackageName

87 = lens _eapkuPackageName

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

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

90

89

91−eapkuMedia :: Lens' EditsAPKsUpload' Stream

90+eapkuMedia :: Lens' EditsAPKsUpload' Body

92eapkuMedia

91eapkuMedia

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

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

94

93

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

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

56 EditsExpansionFilesUploadExpansionFileType

57 :>

58 QueryParam "alt" AltJSON :>

59− ReqBody '[OctetStream] RequestBody :>

59+ ReqBody '[OctetStream] Body :>

60 Post '[JSON] ExpansionFilesUploadResponse

61

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

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

65data EditsExpansionFilesUpload' = EditsExpansionFilesUpload'

66 { _eefuPackageName :: !Text

67 , _eefuAPKVersionCode :: !Int32

68− , _eefuMedia :: !Stream

68+ , _eefuMedia :: !Body

69 , _eefuExpansionFileType :: !EditsExpansionFilesUploadExpansionFileType

70 , _eefuEditId :: !Text

71 }

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

86editsExpansionFilesUpload'

87 :: Text -- ^ 'packageName'

88 -> Int32 -- ^ 'apkVersionCode'

89− -> Stream -- ^ 'media'

89+ -> Body -- ^ 'media'

90 -> EditsExpansionFilesUploadExpansionFileType -- ^ 'expansionFileType'

91 -> Text -- ^ 'editId'

92 -> EditsExpansionFilesUpload'

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

113 = lens _eefuAPKVersionCode

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

115

116−eefuMedia :: Lens' EditsExpansionFilesUpload' Stream

116+eefuMedia :: Lens' EditsExpansionFilesUpload' Body

117eefuMedia

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

119

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

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

54 Capture "language" Text :>

55 Capture "imageType" EditsImagesUploadImageType :>

56 QueryParam "alt" AltJSON :>

57− ReqBody '[OctetStream] RequestBody :>

57+ ReqBody '[OctetStream] Body :>

58 Post '[JSON] ImagesUploadResponse

59

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

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

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

64data EditsImagesUpload' = EditsImagesUpload'

65 { _eiuPackageName :: !Text

66− , _eiuMedia :: !Stream

66+ , _eiuMedia :: !Body

67 , _eiuImageType :: !EditsImagesUploadImageType

68 , _eiuLanguage :: !Text

69 , _eiuEditId :: !Text

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

84-- * 'eiuEditId'

85editsImagesUpload'

86 :: Text -- ^ 'packageName'

87− -> Stream -- ^ 'media'

87+ -> Body -- ^ 'media'

88 -> EditsImagesUploadImageType -- ^ 'imageType'

89 -> Text -- ^ 'language'

90 -> Text -- ^ 'editId'

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

105 = lens _eiuPackageName

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

107

108−eiuMedia :: Lens' EditsImagesUpload' Stream

108+eiuMedia :: Lens' EditsImagesUpload' Body

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

110

111eiuImageType :: Lens' EditsImagesUpload' EditsImagesUploadImageType

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

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

58

59instance GoogleRequest ColorsGet' where

60 type Rs ColorsGet' = Colors

61− requestClient ColorsGet'{..}

61+ requestClient ColorsGet'{}

62 = go (Just AltJSON) appsCalendarService

63 where go

64 = buildClient (Proxy :: Proxy ColorsGetResource)

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

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

48 Capture "projectId" Text :>

49 "jobs" :>

50 QueryParam "alt" AltJSON :>

51− MultipartRelated '[JSON] Job Stream :>

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

52− Post '[JSON] Job

53

52

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

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

55--

54--

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

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

57data JobsInsert' = JobsInsert'

56data JobsInsert' = JobsInsert'

58 { _jiPayload :: !Job

57 { _jiPayload :: !Job

59− , _jiMedia :: !Stream

58+ , _jiMedia :: !Body

60 , _jiProjectId :: !Text

59 , _jiProjectId :: !Text

61 }

60 }

62

61

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

71-- * 'jiProjectId'

70-- * 'jiProjectId'

72jobsInsert'

71jobsInsert'

73 :: Job -- ^ 'payload'

72 :: Job -- ^ 'payload'

74− -> Stream -- ^ 'media'

73+ -> Body -- ^ 'media'

75 -> Text -- ^ 'projectId'

74 -> Text -- ^ 'projectId'

76 -> JobsInsert'

75 -> JobsInsert'

77jobsInsert' pJiPayload_ pJiMedia_ pJiProjectId_ =

76jobsInsert' pJiPayload_ pJiMedia_ pJiProjectId_ =

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

86jiPayload

85jiPayload

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

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

88

87

89−jiMedia :: Lens' JobsInsert' Stream

88+jiMedia :: Lens' JobsInsert' Body

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

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

91

90

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

91-- | 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'

59

60instance GoogleRequest MyConfigGetUserSettings' where

61 type Rs MyConfigGetUserSettings' = Usersettings

62− requestClient MyConfigGetUserSettings'{..}

62+ requestClient MyConfigGetUserSettings'{}

63 = go (Just AltJSON) booksService

64 where go

65 = buildClient

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

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

60instance GoogleRequest ElectionsElectionQuery' where

61 type Rs ElectionsElectionQuery' =

62 ElectionsQueryResponse

63− requestClient ElectionsElectionQuery'{..}

63+ requestClient ElectionsElectionQuery'{}

64 = go (Just AltJSON) civicInfoService

65 where go

66 = buildClient

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

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

51 Capture "advertiserId" Int64 :>

52 "creativeAssets" :>

53 QueryParam "alt" AltJSON :>

54− MultipartRelated '[JSON] CreativeAssetMetadata Stream

54+ MultipartRelated '[JSON] CreativeAssetMetadata Body

55 :> Post '[JSON] CreativeAssetMetadata

56

57-- | Inserts a new creative asset.

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

61 { _caiAdvertiserId :: !Int64

62 , _caiProFileId :: !Int64

63 , _caiPayload :: !CreativeAssetMetadata

64− , _caiMedia :: !Stream

64+ , _caiMedia :: !Body

65 }

66

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

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

79 :: Int64 -- ^ 'advertiserId'

80 -> Int64 -- ^ 'profileId'

81 -> CreativeAssetMetadata -- ^ 'payload'

82− -> Stream -- ^ 'media'

82+ -> Body -- ^ 'media'

83 -> CreativeAssetsInsert'

84creativeAssetsInsert' pCaiAdvertiserId_ pCaiProFileId_ pCaiPayload_ pCaiMedia_ =

85 CreativeAssetsInsert'

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

105caiPayload

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

107

108−caiMedia :: Lens' CreativeAssetsInsert' Stream

108+caiMedia :: Lens' CreativeAssetsInsert' Body

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

110

111instance GoogleRequest CreativeAssetsInsert' where

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

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

59

60instance GoogleRequest UserProFilesList' where

61 type Rs UserProFilesList' = UserProFileList

62− requestClient UserProFilesList'{..}

62+ requestClient UserProFilesList'{}

63 = go (Just AltJSON) dFAReportingService

64 where go

65 = buildClient

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

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

59

60instance GoogleRequest QueriesListqueries' where

61 type Rs QueriesListqueries' = ListQueriesResponse

62− requestClient QueriesListqueries'{..}

62+ requestClient QueriesListqueries'{}

63 = go (Just AltJSON) doubleClickBidsService

64 where go

65 = buildClient

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

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

59

60instance GoogleRequest FilesEmptyTrash' where

61 type Rs FilesEmptyTrash' = ()

62− requestClient FilesEmptyTrash'{..}

62+ requestClient FilesEmptyTrash'{}

63 = go (Just AltJSON) driveService

64 where go

65 = buildClient

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

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

61 QueryParam "convert" Bool :>

62 QueryParam "ocr" Bool :>

63 QueryParam "alt" AltJSON :>

64− MultipartRelated '[JSON] File Stream :>

64+ MultipartRelated '[JSON] File Body :>

65 Post '[JSON] File

66

67-- | Insert a new file.

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

73 , _fiTimedTextLanguage :: !(Maybe Text)

74 , _fiPayload :: !File

75 , _fiUseContentAsIndexableText :: !Bool

76− , _fiMedia :: !Stream

76+ , _fiMedia :: !Body

77 , _fiTimedTextTrackName :: !(Maybe Text)

78 , _fiOCRLanguage :: !(Maybe Text)

79 , _fiConvert :: !Bool

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

105-- * 'fiOCR'

106filesInsert'

107 :: File -- ^ 'payload'

108− -> Stream -- ^ 'media'

108+ -> Body -- ^ 'media'

109 -> FilesInsert'

110filesInsert' pFiPayload_ pFiMedia_ =

111 FilesInsert'

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

149 = lens _fiUseContentAsIndexableText

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

151

152−fiMedia :: Lens' FilesInsert' Stream

152+fiMedia :: Lens' FilesInsert' Body

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

154

155-- | The timed text track name.

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

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

75 QueryParam "addParents" Text :>

76 QueryParam "ocr" Bool :>

77 QueryParam "alt" AltJSON :>

78− MultipartRelated '[JSON] File Stream :>

78+ MultipartRelated '[JSON] File Body :>

79 Put '[JSON] File

80

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

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

90 , _fuRemoveParents :: !(Maybe Text)

91 , _fuModifiedDateBehavior :: !(Maybe FilesUpdateModifiedDateBehavior)

92 , _fuUseContentAsIndexableText :: !Bool

93− , _fuMedia :: !Stream

93+ , _fuMedia :: !Body

94 , _fuTimedTextTrackName :: !(Maybe Text)

95 , _fuOCRLanguage :: !(Maybe Text)

96 , _fuConvert :: !Bool

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

137-- * 'fuOCR'

138filesUpdate'

139 :: File -- ^ 'payload'

140− -> Stream -- ^ 'media'

140+ -> Body -- ^ 'media'

141 -> Text -- ^ 'fileId'

142 -> FilesUpdate'

143filesUpdate' pFuPayload_ pFuMedia_ pFuFileId_ =

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

213 = lens _fuUseContentAsIndexableText

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

215

216−fuMedia :: Lens' FilesUpdate' Stream

216+fuMedia :: Lens' FilesUpdate' Body

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

218

219-- | The timed text track name.

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

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

50 "realtime" :>

51 QueryParam "baseRevision" Text :>

52 QueryParam "alt" AltJSON :>

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

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

54

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

56-- the provided JSON data model.

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

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

59data RealtimeUpdate' = RealtimeUpdate'

60 { _rBaseRevision :: !(Maybe Text)

61− , _rMedia :: !Stream

61+ , _rMedia :: !Body

62 , _rFileId :: !Text

63 }

64

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

72--

73-- * 'rFileId'

74realtimeUpdate'

75− :: Stream -- ^ 'media'

75+ :: Body -- ^ 'media'

76 -> Text -- ^ 'fileId'

77 -> RealtimeUpdate'

78realtimeUpdate' pRMedia_ pRFileId_ =

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

92 = lens _rBaseRevision

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

94

95−rMedia :: Lens' RealtimeUpdate' Stream

95+rMedia :: Lens' RealtimeUpdate' Body

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

97

98-- | 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 =

57 QueryParam "encoding" Text :>

58 QueryParam "isStrict" Bool :>

59 QueryParam "alt" AltJSON :>

60− ReqBody '[OctetStream] RequestBody :>

61− Post '[JSON] Import

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

62

61

63-- | Imports more rows into a table.

62-- | Imports more rows into a table.

64--

63--

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

66data TableImportRows' = TableImportRows'

65data TableImportRows' = TableImportRows'

67 { _tirStartLine :: !(Maybe Int32)

66 { _tirStartLine :: !(Maybe Int32)

68 , _tirEndLine :: !(Maybe Int32)

67 , _tirEndLine :: !(Maybe Int32)

69− , _tirMedia :: !Stream

68+ , _tirMedia :: !Body

70 , _tirTableId :: !Text

69 , _tirTableId :: !Text

71 , _tirDelimiter :: !(Maybe Text)

70 , _tirDelimiter :: !(Maybe Text)

72 , _tirEncoding :: !(Maybe Text)

71 , _tirEncoding :: !(Maybe Text)

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

91--

90--

92-- * 'tirIsStrict'

91-- * 'tirIsStrict'

93tableImportRows'

92tableImportRows'

94− :: Stream -- ^ 'media'

93+ :: Body -- ^ 'media'

95 -> Text -- ^ 'tableId'

94 -> Text -- ^ 'tableId'

96 -> TableImportRows'

95 -> TableImportRows'

97tableImportRows' pTirMedia_ pTirTableId_ =

96tableImportRows' pTirMedia_ pTirTableId_ =

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

119tirEndLine

118tirEndLine

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

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

121

120

122−tirMedia :: Lens' TableImportRows' Stream

121+tirMedia :: Lens' TableImportRows' Body

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

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

124

123

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

124-- | 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 =

51 QueryParam "delimiter" Text :>

52 QueryParam "encoding" Text :>

53 QueryParam "alt" AltJSON :>

54− ReqBody '[OctetStream] RequestBody :>

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

55− Post '[JSON] Table

56

55

57-- | Imports a new table.

56-- | Imports a new table.

58--

57--

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

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

60data TableImportTable' = TableImportTable'

59data TableImportTable' = TableImportTable'

61− { _titMedia :: !Stream

60+ { _titMedia :: !Body

62 , _titName :: !Text

61 , _titName :: !Text

63 , _titDelimiter :: !(Maybe Text)

62 , _titDelimiter :: !(Maybe Text)

64 , _titEncoding :: !(Maybe Text)

63 , _titEncoding :: !(Maybe Text)

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

76--

75--

77-- * 'titEncoding'

76-- * 'titEncoding'

78tableImportTable'

77tableImportTable'

79− :: Stream -- ^ 'media'

78+ :: Body -- ^ 'media'

80 -> Text -- ^ 'name'

79 -> Text -- ^ 'name'

81 -> TableImportTable'

80 -> TableImportTable'

82tableImportTable' pTitMedia_ pTitName_ =

81tableImportTable' pTitMedia_ pTitName_ =

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

87 , _titEncoding = Nothing

86 , _titEncoding = Nothing

88 }

87 }

89

88

90−titMedia :: Lens' TableImportTable' Stream

89+titMedia :: Lens' TableImportTable' Body

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

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

92

91

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

92-- | 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 =

58 QueryParam "encoding" Text :>

59 QueryParam "isStrict" Bool :>

60 QueryParam "alt" AltJSON :>

61− ReqBody '[OctetStream] RequestBody :>

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

62− Post '[JSON] Task

63

62

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

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

65-- all replacement rows are ready.

64-- all replacement rows are ready.

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

68data TableReplaceRows' = TableReplaceRows'

67data TableReplaceRows' = TableReplaceRows'

69 { _trrStartLine :: !(Maybe Int32)

68 { _trrStartLine :: !(Maybe Int32)

70 , _trrEndLine :: !(Maybe Int32)

69 , _trrEndLine :: !(Maybe Int32)

71− , _trrMedia :: !Stream

70+ , _trrMedia :: !Body

72 , _trrTableId :: !Text

71 , _trrTableId :: !Text

73 , _trrDelimiter :: !(Maybe Text)

72 , _trrDelimiter :: !(Maybe Text)

74 , _trrEncoding :: !(Maybe Text)

73 , _trrEncoding :: !(Maybe Text)

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

93--

92--

94-- * 'trrIsStrict'

93-- * 'trrIsStrict'

95tableReplaceRows'

94tableReplaceRows'

96− :: Stream -- ^ 'media'

95+ :: Body -- ^ 'media'

97 -> Text -- ^ 'tableId'

96 -> Text -- ^ 'tableId'

98 -> TableReplaceRows'

97 -> TableReplaceRows'

99tableReplaceRows' pTrrMedia_ pTrrTableId_ =

98tableReplaceRows' pTrrMedia_ pTrrTableId_ =

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

121trrEndLine

120trrEndLine

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

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

123

122

124−trrMedia :: Lens' TableReplaceRows' Stream

123+trrMedia :: Lens' TableReplaceRows' Body

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

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

126

125

127-- | Table whose rows will be replaced.

126-- | 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 =

51 ImageConfigurationsUploadImageType

52 :>

53 QueryParam "alt" AltJSON :>

54− ReqBody '[OctetStream] RequestBody :>

54+ ReqBody '[OctetStream] Body :>

55 Post '[JSON] ImageConfiguration

56

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

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

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

60data ImageConfigurationsUpload' = ImageConfigurationsUpload'

61 { _icuResourceId :: !Text

62− , _icuMedia :: !Stream

62+ , _icuMedia :: !Body

63 , _icuImageType :: !ImageConfigurationsUploadImageType

64 }

65

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

74-- * 'icuImageType'

75imageConfigurationsUpload'

76 :: Text -- ^ 'resourceId'

77− -> Stream -- ^ 'media'

77+ -> Body -- ^ 'media'

78 -> ImageConfigurationsUploadImageType -- ^ 'imageType'

79 -> ImageConfigurationsUpload'

80imageConfigurationsUpload' pIcuResourceId_ pIcuMedia_ pIcuImageType_ =

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

90 = lens _icuResourceId

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

92

93−icuMedia :: Lens' ImageConfigurationsUpload' Stream

93+icuMedia :: Lens' ImageConfigurationsUpload' Body

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

95

96-- | 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'

65instance GoogleRequest AchievementsResetAll' where

66 type Rs AchievementsResetAll' =

67 AchievementResetAllResponse

68− requestClient AchievementsResetAll'{..}

68+ requestClient AchievementsResetAll'{}

69 = go (Just AltJSON) gamesManagementService

70 where go

71 = buildClient

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

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

62instance GoogleRequest

63 AchievementsResetAllForAllPlayers' where

64 type Rs AchievementsResetAllForAllPlayers' = ()

65− requestClient AchievementsResetAllForAllPlayers'{..}

65+ requestClient AchievementsResetAllForAllPlayers'{}

66 = go (Just AltJSON) gamesManagementService

67 where go

68 = buildClient

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

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

63

64instance GoogleRequest EventsResetAll' where

65 type Rs EventsResetAll' = ()

66− requestClient EventsResetAll'{..}

66+ requestClient EventsResetAll'{}

67 = go (Just AltJSON) gamesManagementService

68 where go

69 = buildClient (Proxy :: Proxy EventsResetAllResource)

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

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

64instance GoogleRequest EventsResetAllForAllPlayers'

65 where

66 type Rs EventsResetAllForAllPlayers' = ()

67− requestClient EventsResetAllForAllPlayers'{..}

67+ requestClient EventsResetAllForAllPlayers'{}

68 = go (Just AltJSON) gamesManagementService

69 where go

70 = buildClient

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

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

63

64instance GoogleRequest QuestsResetAll' where

65 type Rs QuestsResetAll' = ()

66− requestClient QuestsResetAll'{..}

66+ requestClient QuestsResetAll'{}

67 = go (Just AltJSON) gamesManagementService

68 where go

69 = buildClient (Proxy :: Proxy QuestsResetAllResource)

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

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

62instance GoogleRequest QuestsResetAllForAllPlayers'

63 where

64 type Rs QuestsResetAllForAllPlayers' = ()

65− requestClient QuestsResetAllForAllPlayers'{..}

65+ requestClient QuestsResetAllForAllPlayers'{}

66 = go (Just AltJSON) gamesManagementService

67 where go

68 = buildClient

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

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

63

64instance GoogleRequest RoomsReset' where

65 type Rs RoomsReset' = ()

66− requestClient RoomsReset'{..}

66+ requestClient RoomsReset'{}

67 = go (Just AltJSON) gamesManagementService

68 where go

69 = buildClient (Proxy :: Proxy RoomsResetResource)

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

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

63

64instance GoogleRequest RoomsResetForAllPlayers' where

65 type Rs RoomsResetForAllPlayers' = ()

66− requestClient RoomsResetForAllPlayers'{..}

66+ requestClient RoomsResetForAllPlayers'{}

67 = go (Just AltJSON) gamesManagementService

68 where go

69 = buildClient

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

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

64

65instance GoogleRequest ScoresResetAll' where

66 type Rs ScoresResetAll' = PlayerScoreResetAllResponse

67− requestClient ScoresResetAll'{..}

67+ requestClient ScoresResetAll'{}

68 = go (Just AltJSON) gamesManagementService

69 where go

70 = buildClient (Proxy :: Proxy ScoresResetAllResource)

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

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

62instance GoogleRequest ScoresResetAllForAllPlayers'

63 where

64 type Rs ScoresResetAllForAllPlayers' = ()

65− requestClient ScoresResetAllForAllPlayers'{..}

65+ requestClient ScoresResetAllForAllPlayers'{}

66 = go (Just AltJSON) gamesManagementService

67 where go

68 = buildClient

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

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

61

62instance GoogleRequest TurnBasedMatchesReset' where

63 type Rs TurnBasedMatchesReset' = ()

64− requestClient TurnBasedMatchesReset'{..}

64+ requestClient TurnBasedMatchesReset'{}

65 = go (Just AltJSON) gamesManagementService

66 where go

67 = buildClient

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

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

64instance GoogleRequest

65 TurnBasedMatchesResetForAllPlayers' where

66 type Rs TurnBasedMatchesResetForAllPlayers' = ()

67− requestClient TurnBasedMatchesResetForAllPlayers'{..}

67+ requestClient TurnBasedMatchesResetForAllPlayers'{}

68 = go (Just AltJSON) gamesManagementService

69 where go

70 = buildClient

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

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

61

62instance GoogleRequest ApplicationsPlayed' where

63 type Rs ApplicationsPlayed' = ()

64− requestClient ApplicationsPlayed'{..}

64+ requestClient ApplicationsPlayed'{}

65 = go (Just AltJSON) gamesService

66 where go

67 = buildClient

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

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

60instance GoogleRequest MetagameGetMetagameConfig'

61 where

62 type Rs MetagameGetMetagameConfig' = MetagameConfig

63− requestClient MetagameGetMetagameConfig'{..}

63+ requestClient MetagameGetMetagameConfig'{}

64 = go (Just AltJSON) gamesService

65 where go

66 = buildClient

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

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

47 Capture "userId" Text :>

48 "drafts" :>

49 QueryParam "alt" AltJSON :>

50− MultipartRelated '[JSON] Draft Stream :>

50+ MultipartRelated '[JSON] Draft Body :>

51 Post '[JSON] Draft

52

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

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

56data UsersDraftsCreate' = UsersDraftsCreate'

57 { _udcPayload :: !Draft

58 , _udcUserId :: !Text

59− , _udcMedia :: !Stream

59+ , _udcMedia :: !Body

60 }

61

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

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

71usersDraftsCreate'

72 :: Draft -- ^ 'payload'

73 -> Text -- ^ 'media'

74− -> Stream

74+ -> Body

75 -> UsersDraftsCreate'

76usersDraftsCreate' pUdcPayload_ pUdcUserId_ pUdcMedia_ =

77 UsersDraftsCreate'

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

91udcUserId

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

93

94−udcMedia :: Lens' UsersDraftsCreate' Stream

94+udcMedia :: Lens' UsersDraftsCreate' Body

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

96

97instance GoogleRequest UsersDraftsCreate' where

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

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

49 "drafts" :>

50 "send" :>

51 QueryParam "alt" AltJSON :>

52− MultipartRelated '[JSON] Draft Stream :>

52+ MultipartRelated '[JSON] Draft Body :>

53 Post '[JSON] Message

54

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

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

59data UsersDraftsSend' = UsersDraftsSend'

60 { _udsPayload :: !Draft

61 , _udsUserId :: !Text

62− , _udsMedia :: !Stream

62+ , _udsMedia :: !Body

63 }

64

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

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

74usersDraftsSend'

75 :: Draft -- ^ 'payload'

76 -> Text -- ^ 'media'

77− -> Stream

77+ -> Body

78 -> UsersDraftsSend'

79usersDraftsSend' pUdsPayload_ pUdsUserId_ pUdsMedia_ =

80 UsersDraftsSend'

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

94udsUserId

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

96

97−udsMedia :: Lens' UsersDraftsSend' Stream

97+udsMedia :: Lens' UsersDraftsSend' Body

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

99

100instance GoogleRequest UsersDraftsSend' where

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

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

49 "drafts" :>

50 Capture "id" Text :>

51 QueryParam "alt" AltJSON :>

52− MultipartRelated '[JSON] Draft Stream :>

52+ MultipartRelated '[JSON] Draft Body :>

53 Put '[JSON] Draft

54

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

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

58data UsersDraftsUpdate' = UsersDraftsUpdate'

59 { _uduPayload :: !Draft

60 , _uduUserId :: !Text

61− , _uduMedia :: !Stream

61+ , _uduMedia :: !Body

62 , _uduId :: !Text

63 }

64

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

76usersDraftsUpdate'

77 :: Draft -- ^ 'payload'

78 -> Text -- ^ 'media'

79− -> Stream -- ^ 'id'

79+ -> Body -- ^ 'id'

80 -> Text

81 -> UsersDraftsUpdate'

82usersDraftsUpdate' pUduPayload_ pUduUserId_ pUduMedia_ pUduId_ =

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

98uduUserId

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

100

101−uduMedia :: Lens' UsersDraftsUpdate' Stream

101+uduMedia :: Lens' UsersDraftsUpdate' Body

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

103

104-- | 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 =

60 UsersMessagesImportInternalDateSource

61 :>

62 QueryParam "alt" AltJSON :>

63− MultipartRelated '[JSON] Message Stream :>

63+ MultipartRelated '[JSON] Message Body :>

64 Post '[JSON] Message

65

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

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

71data UsersMessagesImport' = UsersMessagesImport'

72 { _uPayload :: !Message

73 , _uUserId :: !Text

74− , _uMedia :: !Stream

74+ , _uMedia :: !Body

75 , _uProcessForCalendar :: !Bool

76 , _uDeleted :: !Bool

77 , _uNeverMarkSpam :: !Bool

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

98usersMessagesImport'

99 :: Message -- ^ 'payload'

100 -> Text -- ^ 'media'

101− -> Stream

101+ -> Body

102 -> UsersMessagesImport'

103usersMessagesImport' pUPayload_ pUUserId_ pUMedia_ =

104 UsersMessagesImport'

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

120uUserId :: Lens' UsersMessagesImport' Text

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

122

123−uMedia :: Lens' UsersMessagesImport' Stream

123+uMedia :: Lens' UsersMessagesImport' Body

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

125

126-- | 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 =

55 UsersMessagesInsertInternalDateSource

56 :>

57 QueryParam "alt" AltJSON :>

58− MultipartRelated '[JSON] Message Stream :>

58+ MultipartRelated '[JSON] Message Body :>

59 Post '[JSON] Message

60

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

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

66data UsersMessagesInsert' = UsersMessagesInsert'

67 { _umiPayload :: !Message

68 , _umiUserId :: !Text

69− , _umiMedia :: !Stream

69+ , _umiMedia :: !Body

70 , _umiDeleted :: !Bool

71 , _umiInternalDateSource :: !UsersMessagesInsertInternalDateSource

72 }

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

87usersMessagesInsert'

88 :: Message -- ^ 'payload'

89 -> Text -- ^ 'media'

90− -> Stream

90+ -> Body

91 -> UsersMessagesInsert'

92usersMessagesInsert' pUmiPayload_ pUmiUserId_ pUmiMedia_ =

93 UsersMessagesInsert'

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

109umiUserId

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

111

112−umiMedia :: Lens' UsersMessagesInsert' Stream

112+umiMedia :: Lens' UsersMessagesInsert' Body

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

114

115-- | 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 =

49 "messages" :>

50 "send" :>

51 QueryParam "alt" AltJSON :>

52− MultipartRelated '[JSON] Message Stream :>

52+ MultipartRelated '[JSON] Message Body :>

53 Post '[JSON] Message

54

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

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

59data UsersMessagesSend' = UsersMessagesSend'

60 { _umsPayload :: !Message

61 , _umsUserId :: !Text

62− , _umsMedia :: !Stream

62+ , _umsMedia :: !Body

63 }

64

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

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

74usersMessagesSend'

75 :: Message -- ^ 'payload'

76 -> Text -- ^ 'media'

77− -> Stream

77+ -> Body

78 -> UsersMessagesSend'

79usersMessagesSend' pUmsPayload_ pUmsUserId_ pUmsMedia_ =

80 UsersMessagesSend'

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

94umsUserId

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

96

97−umsMedia :: Lens' UsersMessagesSend' Stream

97+umsMedia :: Lens' UsersMessagesSend' Body

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

99

100instance GoogleRequest UsersMessagesSend' where

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

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

46 Capture "groupId" Text :>

47 "archive" :>

48 QueryParam "alt" AltJSON :>

49− ReqBody '[OctetStream] RequestBody :>

50− Post '[JSON] Groups

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

51

50

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

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

53--

52--

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

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

55data ArchiveInsert' = ArchiveInsert'

54data ArchiveInsert' = ArchiveInsert'

56− { _aiMedia :: !Stream

55+ { _aiMedia :: !Body

57 , _aiGroupId :: !Text

56 , _aiGroupId :: !Text

58 }

57 }

59

58

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

65--

64--

66-- * 'aiGroupId'

65-- * 'aiGroupId'

67archiveInsert'

66archiveInsert'

68− :: Stream -- ^ 'media'

67+ :: Body -- ^ 'media'

69 -> Text -- ^ 'groupId'

68 -> Text -- ^ 'groupId'

70 -> ArchiveInsert'

69 -> ArchiveInsert'

71archiveInsert' pAiMedia_ pAiGroupId_ =

70archiveInsert' pAiMedia_ pAiGroupId_ =

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

74 , _aiGroupId = pAiGroupId_

73 , _aiGroupId = pAiGroupId_

75 }

74 }

76

75

77−aiMedia :: Lens' ArchiveInsert' Stream

76+aiMedia :: Lens' ArchiveInsert' Body

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

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

79

78

80-- | The group ID

79-- | The group ID

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

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

62 where

63 type Rs RelyingPartyGetPublicKeys' =

64 IdentitytoolkitRelyingPartyGetPublicKeysResponse

65− requestClient RelyingPartyGetPublicKeys'{..}

65+ requestClient RelyingPartyGetPublicKeys'{}

66 = go (Just AltJSON) identityToolkitService

67 where go

68 = buildClient

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

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

61 where

62 type Rs RelyingPartyGetRecaptchaParam' =

63 GetRecaptchaParamResponse

64− requestClient RelyingPartyGetRecaptchaParam'{..}

64+ requestClient RelyingPartyGetRecaptchaParam'{}

65 = go (Just AltJSON) identityToolkitService

66 where go

67 = buildClient

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

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

48 Capture "projectId" Text :>

49 "icons" :>

50 QueryParam "alt" AltJSON :>

51− MultipartRelated '[JSON] Icon Stream :>

51+ MultipartRelated '[JSON] Icon Body :>

52 Post '[JSON] Icon

53

54-- | Create an icon.

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

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

57data ProjectsIconsCreate' = ProjectsIconsCreate'

58 { _picPayload :: !Icon

59− , _picMedia :: !Stream

59+ , _picMedia :: !Body

60 , _picProjectId :: !Text

61 }

62

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

71-- * 'picProjectId'

72projectsIconsCreate'

73 :: Icon -- ^ 'payload'

74− -> Stream -- ^ 'media'

74+ -> Body -- ^ 'media'

75 -> Text -- ^ 'projectId'

76 -> ProjectsIconsCreate'

77projectsIconsCreate' pPicPayload_ pPicMedia_ pPicProjectId_ =

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

86picPayload

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

88

89−picMedia :: Lens' ProjectsIconsCreate' Stream

89+picMedia :: Lens' ProjectsIconsCreate' Body

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

91

92-- | The ID of the project.

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

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

59

60instance GoogleRequest ProjectsList' where

61 type Rs ProjectsList' = ProjectsListResponse

62− requestClient ProjectsList'{..}

62+ requestClient ProjectsList'{}

63 = go (Just AltJSON) mapsEngineService

64 where go

65 = buildClient (Proxy :: Proxy ProjectsListResource)

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

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

49 "files" :>

50 QueryParam "filename" Text :>

51 QueryParam "alt" AltJSON :>

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

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

53

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

55--

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

57data RastersFilesInsert' = RastersFilesInsert'

58− { _rfiMedia :: !Stream

58+ { _rfiMedia :: !Body

59 , _rfiId :: !Text

60 , _rfiFilename :: !Text

61 }

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

70--

71-- * 'rfiFilename'

72rastersFilesInsert'

73− :: Stream -- ^ 'media'

73+ :: Body -- ^ 'media'

74 -> Text -- ^ 'id'

75 -> Text -- ^ 'filename'

76 -> RastersFilesInsert'

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

81 , _rfiFilename = pRfiFilename_

82 }

83

84−rfiMedia :: Lens' RastersFilesInsert' Stream

84+rfiMedia :: Lens' RastersFilesInsert' Body

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

86

87-- | 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 =

52 "files" :>

53 QueryParam "filename" Text :>

54 QueryParam "alt" AltJSON :>

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

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

56

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

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

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

61--

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

63data TablesFilesInsert' = TablesFilesInsert'

64− { _tfiMedia :: !Stream

64+ { _tfiMedia :: !Body

65 , _tfiId :: !Text

66 , _tfiFilename :: !Text

67 }

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

76--

77-- * 'tfiFilename'

78tablesFilesInsert'

79− :: Stream -- ^ 'media'

79+ :: Body -- ^ 'media'

80 -> Text -- ^ 'id'

81 -> Text -- ^ 'filename'

82 -> TablesFilesInsert'

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

87 , _tfiFilename = pTfiFilename_

88 }

89

90−tfiMedia :: Lens' TablesFilesInsert' Stream

90+tfiMedia :: Lens' TablesFilesInsert' Body

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

92

93-- | The ID of the table asset.

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

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

59

60instance GoogleRequest ContactsList' where

61 type Rs ContactsList' = ContactsListResponse

62− requestClient ContactsList'{..}

62+ requestClient ContactsList'{}

63 = go (Just AltJSON) mirrorService

64 where go

65 = buildClient (Proxy :: Proxy ContactsListResource)

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

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

59

60instance GoogleRequest LocationsList' where

61 type Rs LocationsList' = LocationsListResponse

62− requestClient LocationsList'{..}

62+ requestClient LocationsList'{}

63 = go (Just AltJSON) mirrorService

64 where go

65 = buildClient (Proxy :: Proxy LocationsListResource)

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

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

62instance GoogleRequest SubscriptionsList' where

63 type Rs SubscriptionsList' =

64 SubscriptionsListResponse

65− requestClient SubscriptionsList'{..}

65+ requestClient SubscriptionsList'{}

66 = go (Just AltJSON) mirrorService

67 where go

68 = buildClient

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

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

47 Capture "itemId" Text :>

48 "attachments" :>

49 QueryParam "alt" AltJSON :>

50− ReqBody '[OctetStream] RequestBody :>

50+ ReqBody '[OctetStream] Body :>

51 Post '[JSON] Attachment

52

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

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

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

56data TimelineAttachmentsInsert' = TimelineAttachmentsInsert'

57 { _taiItemId :: !Text

58− , _taiMedia :: !Stream

58+ , _taiMedia :: !Body

59 }

60

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

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

67-- * 'taiMedia'

68timelineAttachmentsInsert'

69 :: Text -- ^ 'itemId'

70− -> Stream -- ^ 'media'

70+ -> Body -- ^ 'media'

71 -> TimelineAttachmentsInsert'

72timelineAttachmentsInsert' pTaiItemId_ pTaiMedia_ =

73 TimelineAttachmentsInsert'

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

80taiItemId

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

82

83−taiMedia :: Lens' TimelineAttachmentsInsert' Stream

83+taiMedia :: Lens' TimelineAttachmentsInsert' Body

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

85

86instance GoogleRequest TimelineAttachmentsInsert'

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

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

45type TimelineInsertResource =

46 "timeline" :>

47 QueryParam "alt" AltJSON :>

48− MultipartRelated '[JSON] TimelineItem Stream :>

48+ MultipartRelated '[JSON] TimelineItem Body :>

49 Post '[JSON] TimelineItem

50

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

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

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

54data TimelineInsert' = TimelineInsert'

55 { _tiPayload :: !TimelineItem

56− , _tiMedia :: !Stream

56+ , _tiMedia :: !Body

57 }

58

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

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

65-- * 'tiMedia'

66timelineInsert'

67 :: TimelineItem -- ^ 'payload'

68− -> Stream -- ^ 'media'

68+ -> Body -- ^ 'media'

69 -> TimelineInsert'

70timelineInsert' pTiPayload_ pTiMedia_ =

71 TimelineInsert'

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

78tiPayload

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

80

81−tiMedia :: Lens' TimelineInsert' Stream

81+tiMedia :: Lens' TimelineInsert' Body

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

83

84instance GoogleRequest TimelineInsert' where

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

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

47 "timeline" :>

48 Capture "id" Text :>

49 QueryParam "alt" AltJSON :>

50− MultipartRelated '[JSON] TimelineItem Stream :>

50+ MultipartRelated '[JSON] TimelineItem Body :>

51 Put '[JSON] TimelineItem

52

53-- | Updates a timeline item in place.

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

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

56data TimelineUpdate' = TimelineUpdate'

57 { _tuPayload :: !TimelineItem

58− , _tuMedia :: !Stream

58+ , _tuMedia :: !Body

59 , _tuId :: !Text

60 }

61

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

70-- * 'tuId'

71timelineUpdate'

72 :: TimelineItem -- ^ 'payload'

73− -> Stream -- ^ 'media'

73+ -> Body -- ^ 'media'

74 -> Text -- ^ 'id'

75 -> TimelineUpdate'

76timelineUpdate' pTuPayload_ pTuMedia_ pTuId_ =

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

85tuPayload

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

87

88−tuMedia :: Lens' TimelineUpdate' Stream

88+tuMedia :: Lens' TimelineUpdate' Body

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

90

91-- | The ID of the timeline item.

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

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

59

60instance GoogleRequest GetCertForOpenIdConnect' where

61 type Rs GetCertForOpenIdConnect' = JWK

62− requestClient GetCertForOpenIdConnect'{..}

62+ requestClient GetCertForOpenIdConnect'{}

63 = go (Just AltJSON) oAuth2Service

64 where go

65 = buildClient

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

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

59

60instance GoogleRequest UserInfoGet' where

61 type Rs UserInfoGet' = UserInfoplus

62− requestClient UserInfoGet'{..}

62+ requestClient UserInfoGet'{}

63 = go (Just AltJSON) oAuth2Service

64 where go

65 = buildClient (Proxy :: Proxy UserInfoGetResource)

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

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

59

60instance GoogleRequest UserInfoV2MeGet' where

61 type Rs UserInfoV2MeGet' = UserInfoplus

62− requestClient UserInfoV2MeGet'{..}

62+ requestClient UserInfoV2MeGet'{}

63 = go (Just AltJSON) oAuth2Service

64 where go

65 = buildClient

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

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

53 "media" :>

54 Capture "collection" MediaInsertCollection :>

55 QueryParam "alt" AltJSON :>

56− MultipartRelated '[JSON] Media Stream :>

56+ MultipartRelated '[JSON] Media Body :>

57 Post '[JSON] Media

58

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

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

66 { _miCollection :: !MediaInsertCollection

67 , _miPayload :: !Media

68 , _miUserId :: !Text

69− , _miMedia :: !Stream

69+ , _miMedia :: !Body

70 }

71

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

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

84 :: MediaInsertCollection -- ^ 'collection'

85 -> Media -- ^ 'payload'

86 -> Text -- ^ 'userId'

87− -> Stream -- ^ 'media'

87+ -> Body -- ^ 'media'

88 -> MediaInsert'

89mediaInsert' pMiCollection_ pMiPayload_ pMiUserId_ pMiMedia_ =

90 MediaInsert'

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

107miUserId :: Lens' MediaInsert' Text

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

109

110−miMedia :: Lens' MediaInsert' Stream

110+miMedia :: Lens' MediaInsert' Body

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

112

113instance GoogleRequest MediaInsert' where

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

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

60

61instance GoogleRequest AccountsAuthInfo' where

62 type Rs AccountsAuthInfo' = AccountsAuthInfoResponse

63− requestClient AccountsAuthInfo'{..}

63+ requestClient AccountsAuthInfo'{}

64 = go (Just AltJSON) shoppingContentService

65 where go

66 = buildClient

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

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

60instance GoogleRequest WebResourceList' where

61 type Rs WebResourceList' =

62 SiteVerificationWebResourceListResponse

63− requestClient WebResourceList'{..}

63+ requestClient WebResourceList'{}

64 = go (Just AltJSON) siteVerificationService

65 where go

66 = buildClient

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

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

59

60instance GoogleRequest FlagsList' where

61 type Rs FlagsList' = FlagsListResponse

62− requestClient FlagsList'{..}

62+ requestClient FlagsList'{}

63 = go (Just AltJSON) sQLAdminService

64 where go

65 = buildClient (Proxy :: Proxy FlagsListResource)

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

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

65 QueryParam "contentEncoding" Text :>

66 QueryParam "projection" ObjectsInsertProjection :>

67 QueryParam "alt" AltJSON :>

68− MultipartRelated '[JSON] Object Stream :>

68+ MultipartRelated '[JSON] Object Body :>

69 Post '[JSON] Object

70 :<|>

71 "b" :>

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

81 QueryParam "contentEncoding" Text :>

82 QueryParam "projection" ObjectsInsertProjection :>

83 QueryParam "alt" AltMedia :>

84− MultipartRelated '[JSON] Object Stream :>

84+ MultipartRelated '[JSON] Object Body :>

85 Post '[OctetStream] Stream

86

87-- | Stores a new object and metadata.

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

94 , _oiPredefinedACL :: !(Maybe ObjectsInsertPredefinedACL)

95 , _oiBucket :: !Text

96 , _oiPayload :: !Object

97− , _oiMedia :: !Stream

97+ , _oiMedia :: !Body

98 , _oiName :: !(Maybe Text)

99 , _oiIfMetagenerationNotMatch :: !(Maybe Int64)

100 , _oiContentEncoding :: !(Maybe Text)

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

129objectsInsert'

130 :: Text -- ^ 'bucket'

131 -> Object -- ^ 'payload'

132− -> Stream -- ^ 'media'

132+ -> Body -- ^ 'media'

133 -> ObjectsInsert'

134objectsInsert' pOiBucket_ pOiPayload_ pOiMedia_ =

135 ObjectsInsert'

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

183oiPayload

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

185

186−oiMedia :: Lens' ObjectsInsert' Stream

186+oiMedia :: Lens' ObjectsInsert' Body

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

188

189-- | 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'

59

60instance GoogleRequest AccountsList' where

61 type Rs AccountsList' = ListAccountsResponse

62− requestClient AccountsList'{..}

62+ requestClient AccountsList'{}

63 = go (Just AltJSON) tagManagerService

64 where go

65 = buildClient (Proxy :: Proxy AccountsListResource)

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

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

59

60instance GoogleRequest SitesList' where

61 type Rs SitesList' = SitesListResponse

62− requestClient SitesList'{..}

62+ requestClient SitesList'{}

63 = go (Just AltJSON) webmasterToolsService

64 where go

65 = buildClient (Proxy :: Proxy SitesListResource)

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

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

53 QueryParam "onBehalfOfContentOwner" Text :>

54 QueryParam "sync" Bool :>

55 QueryParam "alt" AltJSON :>

56− MultipartRelated '[JSON] Caption Stream :>

56+ MultipartRelated '[JSON] Caption Body :>

57 Post '[JSON] Caption

58

59-- | Uploads a caption track.

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

63 { _ciOnBehalfOf :: !(Maybe Text)

64 , _ciPart :: !Text

65 , _ciPayload :: !Caption

66− , _ciMedia :: !Stream

66+ , _ciMedia :: !Body

67 , _ciOnBehalfOfContentOwner :: !(Maybe Text)

68 , _ciSync :: !(Maybe Bool)

69 }

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

86captionsInsert'

87 :: Text -- ^ 'part'

88 -> Caption -- ^ 'payload'

89− -> Stream -- ^ 'media'

89+ -> Body -- ^ 'media'

90 -> CaptionsInsert'

91captionsInsert' pCiPart_ pCiPayload_ pCiMedia_ =

92 CaptionsInsert'

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

114ciPayload

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

116

117−ciMedia :: Lens' CaptionsInsert' Stream

117+ciMedia :: Lens' CaptionsInsert' Body

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

119

120-- | 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 =

55 QueryParam "onBehalfOfContentOwner" Text :>

56 QueryParam "sync" Bool :>

57 QueryParam "alt" AltJSON :>

58− MultipartRelated '[JSON] Caption Stream :>

58+ MultipartRelated '[JSON] Caption Body :>

59 Put '[JSON] Caption

60

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

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

67 { _capOnBehalfOf :: !(Maybe Text)

68 , _capPart :: !Text

69 , _capPayload :: !Caption

70− , _capMedia :: !Stream

70+ , _capMedia :: !Body

71 , _capOnBehalfOfContentOwner :: !(Maybe Text)

72 , _capSync :: !(Maybe Bool)

73 }

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

90captionsUpdate'

91 :: Text -- ^ 'part'

92 -> Caption -- ^ 'payload'

93− -> Stream -- ^ 'media'

93+ -> Body -- ^ 'media'

94 -> CaptionsUpdate'

95captionsUpdate' pCapPart_ pCapPayload_ pCapMedia_ =

96 CaptionsUpdate'

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

122capPayload

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

124

125−capMedia :: Lens' CaptionsUpdate' Stream

125+capMedia :: Lens' CaptionsUpdate' Body

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

127

128-- | 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 =

56 "insert" :>

57 QueryParam "onBehalfOfContentOwner" Text :>

58 QueryParam "alt" AltJSON :>

59− MultipartRelated '[JSON] ChannelBannerResource Stream

59+ MultipartRelated '[JSON] ChannelBannerResource Body

60 :> Post '[JSON] ChannelBannerResource

61

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

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

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

73data ChannelBannersInsert' = ChannelBannersInsert'

74 { _cbiPayload :: !ChannelBannerResource

75− , _cbiMedia :: !Stream

75+ , _cbiMedia :: !Body

76 , _cbiOnBehalfOfContentOwner :: !(Maybe Text)

77 }

78

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

87-- * 'cbiOnBehalfOfContentOwner'

88channelBannersInsert'

89 :: ChannelBannerResource -- ^ 'payload'

90− -> Stream -- ^ 'media'

90+ -> Body -- ^ 'media'

91 -> ChannelBannersInsert'

92channelBannersInsert' pCbiPayload_ pCbiMedia_ =

93 ChannelBannersInsert'

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

101cbiPayload

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

103

104−cbiMedia :: Lens' ChannelBannersInsert' Stream

104+cbiMedia :: Lens' ChannelBannersInsert' Body

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

106

107-- | 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 =

49 QueryParam "videoId" Text :>

50 QueryParam "onBehalfOfContentOwner" Text :>

51 QueryParam "alt" AltJSON :>

52− ReqBody '[OctetStream] RequestBody :>

52+ ReqBody '[OctetStream] Body :>

53 Post '[JSON] ThumbnailSetResponse

54

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

56--

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

58data ThumbnailsSet' = ThumbnailsSet'

59− { _tsMedia :: !Stream

59+ { _tsMedia :: !Body

60 , _tsOnBehalfOfContentOwner :: !(Maybe Text)

61 , _tsVideoId :: !Text

62 }

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

71--

72-- * 'tsVideoId'

73thumbnailsSet'

74− :: Stream -- ^ 'media'

74+ :: Body -- ^ 'media'

75 -> Text -- ^ 'videoId'

76 -> ThumbnailsSet'

77thumbnailsSet' pTsMedia_ pTsVideoId_ =

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

81 , _tsVideoId = pTsVideoId_

82 }

83

84−tsMedia :: Lens' ThumbnailsSet' Stream

84+tsMedia :: Lens' ThumbnailsSet' Body

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

86

87-- | 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 =

57 QueryParam "notifySubscribers" Bool :>

58 QueryParam "autoLevels" Bool :>

59 QueryParam "alt" AltJSON :>

60− MultipartRelated '[JSON] Video Stream :>

60+ MultipartRelated '[JSON] Video Body :>

61 Post '[JSON] Video

62

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

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

67 { _viPart :: !Text

68 , _viStabilize :: !(Maybe Bool)

69 , _viPayload :: !Video

70− , _viMedia :: !Stream

70+ , _viMedia :: !Body

71 , _viOnBehalfOfContentOwner :: !(Maybe Text)

72 , _viOnBehalfOfContentOwnerChannel :: !(Maybe Text)

73 , _viNotifySubscribers :: !Bool

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

96videosInsert'

97 :: Text -- ^ 'part'

98 -> Video -- ^ 'payload'

99− -> Stream -- ^ 'media'

99+ -> Body -- ^ 'media'

100 -> VideosInsert'

101videosInsert' pViPart_ pViPayload_ pViMedia_ =

102 VideosInsert'

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

132viPayload

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

134

135−viMedia :: Lens' VideosInsert' Stream

135+viMedia :: Lens' VideosInsert' Body

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

137

138-- | 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 =

50 QueryParam "channelId" Text :>

51 QueryParam "onBehalfOfContentOwner" Text :>

52 QueryParam "alt" AltJSON :>

53− MultipartRelated '[JSON] InvideoBranding Stream :>

53+ MultipartRelated '[JSON] InvideoBranding Body :>

54 Post '[JSON] ()

55

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

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

59data WatermarksSet' = WatermarksSet'

60 { _wsChannelId :: !Text

61 , _wsPayload :: !InvideoBranding

62− , _wsMedia :: !Stream

62+ , _wsMedia :: !Body

63 , _wsOnBehalfOfContentOwner :: !(Maybe Text)

64 }

65

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

77watermarksSet'

78 :: Text -- ^ 'channelId'

79 -> InvideoBranding -- ^ 'payload'

80− -> Stream -- ^ 'media'

80+ -> Body -- ^ 'media'

81 -> WatermarksSet'

82watermarksSet' pWsChannelId_ pWsPayload_ pWsMedia_ =

83 WatermarksSet'

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

98wsPayload

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

100

101−wsMedia :: Lens' WatermarksSet' Stream

101+wsMedia :: Lens' WatermarksSet' Body

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

103

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