2fef97e · gogol · git.iko.soy

git.iko.soy/gogol

on develop help sign in

Regenerating sum types to replace To/FromText instances

2fef97eBrendan Hay10 years ago

gogol-adexchange-buyer/gen/Network/Google/AdExchangeBuyer/Types/Sum.hs+41−41

compare with develop

unifiedsplit

@@ -38,16 +38,16 @@ data CreativesListOpenAuctionStatusFilter

39instance Hashable CreativesListOpenAuctionStatusFilter

41−instance FromText CreativesListOpenAuctionStatusFilter where

41+instance FromHttpApiData CreativesListOpenAuctionStatusFilter where

42− fromText = \case

42+ parseQueryParam = \case

43− "approved" -> Just Approved

43+ "approved" -> Right Approved

44− "conditionally_approved" -> Just ConditionallyApproved

44+ "conditionally_approved" -> Right ConditionallyApproved

45− "disapproved" -> Just DisApproved

45+ "disapproved" -> Right DisApproved

46− "not_checked" -> Just NotChecked

46+ "not_checked" -> Right NotChecked

47− _ -> Nothing

47+ x -> Left ("Unable to parse CreativesListOpenAuctionStatusFilter from: " <> x)

48−

48+

49−instance ToText CreativesListOpenAuctionStatusFilter where

49+instance ToHttpApiData CreativesListOpenAuctionStatusFilter where

50− toText = \case

50+ toQueryParam = \case

51 Approved -> "approved"

52 ConditionallyApproved -> "conditionally_approved"

53 DisApproved -> "disapproved"

@@ -75,17 +75,17 @@ data ProposalsPatchUpdateAction

76instance Hashable ProposalsPatchUpdateAction

78−instance FromText ProposalsPatchUpdateAction where

78+instance FromHttpApiData ProposalsPatchUpdateAction where

79− fromText = \case

79+ parseQueryParam = \case

80− "accept" -> Just Accept

80+ "accept" -> Right Accept

81− "cancel" -> Just Cancel

81+ "cancel" -> Right Cancel

82− "propose" -> Just Propose

82+ "propose" -> Right Propose

83− "unknownAction" -> Just UnknownAction

83+ "unknownAction" -> Right UnknownAction

84− "updateFinalized" -> Just UpdateFinalized

84+ "updateFinalized" -> Right UpdateFinalized

85− _ -> Nothing

85+ x -> Left ("Unable to parse ProposalsPatchUpdateAction from: " <> x)

86−

86+

87−instance ToText ProposalsPatchUpdateAction where

87+instance ToHttpApiData ProposalsPatchUpdateAction where

88− toText = \case

88+ toQueryParam = \case

89 Accept -> "accept"

90 Cancel -> "cancel"

91 Propose -> "propose"

@@ -117,16 +117,16 @@ data CreativesListDealsStatusFilter

117

118instance Hashable CreativesListDealsStatusFilter

119

120−instance FromText CreativesListDealsStatusFilter where

120+instance FromHttpApiData CreativesListDealsStatusFilter where

121− fromText = \case

121+ parseQueryParam = \case

122− "approved" -> Just CLDSFApproved

122+ "approved" -> Right CLDSFApproved

123− "conditionally_approved" -> Just CLDSFConditionallyApproved

123+ "conditionally_approved" -> Right CLDSFConditionallyApproved

124− "disapproved" -> Just CLDSFDisApproved

124+ "disapproved" -> Right CLDSFDisApproved

125− "not_checked" -> Just CLDSFNotChecked

125+ "not_checked" -> Right CLDSFNotChecked

126− _ -> Nothing

126+ x -> Left ("Unable to parse CreativesListDealsStatusFilter from: " <> x)

127

128−instance ToText CreativesListDealsStatusFilter where

128+instance ToHttpApiData CreativesListDealsStatusFilter where

129− toText = \case

129+ toQueryParam = \case

130 CLDSFApproved -> "approved"

131 CLDSFConditionallyApproved -> "conditionally_approved"

132 CLDSFDisApproved -> "disapproved"

@@ -154,17 +154,17 @@ data ProposalsUpdateUpdateAction

154

155instance Hashable ProposalsUpdateUpdateAction

156

157−instance FromText ProposalsUpdateUpdateAction where

157+instance FromHttpApiData ProposalsUpdateUpdateAction where

158− fromText = \case

158+ parseQueryParam = \case

159− "accept" -> Just PUUAAccept

159+ "accept" -> Right PUUAAccept

160− "cancel" -> Just PUUACancel

160+ "cancel" -> Right PUUACancel

161− "propose" -> Just PUUAPropose

161+ "propose" -> Right PUUAPropose

162− "unknownAction" -> Just PUUAUnknownAction

162+ "unknownAction" -> Right PUUAUnknownAction

163− "updateFinalized" -> Just PUUAUpdateFinalized

163+ "updateFinalized" -> Right PUUAUpdateFinalized

164− _ -> Nothing

164+ x -> Left ("Unable to parse ProposalsUpdateUpdateAction from: " <> x)

165−

165+

166−instance ToText ProposalsUpdateUpdateAction where

166+instance ToHttpApiData ProposalsUpdateUpdateAction where

167− toText = \case

167+ toQueryParam = \case

168 PUUAAccept -> "accept"

169 PUUACancel -> "cancel"

170 PUUAPropose -> "propose"

gogol-admin-directory/gen/Network/Google/Directory/Types/Sum.hs+201−201

@@ -39,17 +39,17 @@ data UsersListEvent

40instance Hashable UsersListEvent

42−instance FromText UsersListEvent where

42+instance FromHttpApiData UsersListEvent where

43− fromText = \case

43+ parseQueryParam = \case

44− "add" -> Just Add

44+ "add" -> Right Add

45− "delete" -> Just Delete'

45+ "delete" -> Right Delete'

46− "makeAdmin" -> Just MakeAdmin

46+ "makeAdmin" -> Right MakeAdmin

47− "undelete" -> Just Undelete

47+ "undelete" -> Right Undelete

48− "update" -> Just Update

48+ "update" -> Right Update

49− _ -> Nothing

49+ x -> Left ("Unable to parse UsersListEvent from: " <> x)

50−

50+

51−instance ToText UsersListEvent where

51+instance ToHttpApiData UsersListEvent where

52− toText = \case

52+ toQueryParam = \case

53 Add -> "add"

54 Delete' -> "delete"

55 MakeAdmin -> "makeAdmin"

@@ -74,14 +74,14 @@ data UsersAliasesListEvent

75instance Hashable UsersAliasesListEvent

77−instance FromText UsersAliasesListEvent where

77+instance FromHttpApiData UsersAliasesListEvent where

78− fromText = \case

78+ parseQueryParam = \case

79− "add" -> Just UALEAdd

79+ "add" -> Right UALEAdd

80− "delete" -> Just UALEDelete'

80+ "delete" -> Right UALEDelete'

81− _ -> Nothing

81+ x -> Left ("Unable to parse UsersAliasesListEvent from: " <> x)

83−instance ToText UsersAliasesListEvent where

83+instance ToHttpApiData UsersAliasesListEvent where

84− toText = \case

84+ toQueryParam = \case

85 UALEAdd -> "add"

86 UALEDelete' -> "delete"

@@ -103,14 +103,14 @@ data UsersAliasesWatchEvent

103

104instance Hashable UsersAliasesWatchEvent

105

106−instance FromText UsersAliasesWatchEvent where

106+instance FromHttpApiData UsersAliasesWatchEvent where

107− fromText = \case

107+ parseQueryParam = \case

108− "add" -> Just UAWEAdd

108+ "add" -> Right UAWEAdd

109− "delete" -> Just UAWEDelete'

109+ "delete" -> Right UAWEDelete'

110− _ -> Nothing

110+ x -> Left ("Unable to parse UsersAliasesWatchEvent from: " <> x)

111

112−instance ToText UsersAliasesWatchEvent where

112+instance ToHttpApiData UsersAliasesWatchEvent where

113− toText = \case

113+ toQueryParam = \case

114 UAWEAdd -> "add"

115 UAWEDelete' -> "delete"

116

@@ -141,17 +141,17 @@ data UsersWatchEvent

141

142instance Hashable UsersWatchEvent

143

144−instance FromText UsersWatchEvent where

144+instance FromHttpApiData UsersWatchEvent where

145− fromText = \case

145+ parseQueryParam = \case

146− "add" -> Just UWEAdd

146+ "add" -> Right UWEAdd

147− "delete" -> Just UWEDelete'

147+ "delete" -> Right UWEDelete'

148− "makeAdmin" -> Just UWEMakeAdmin

148+ "makeAdmin" -> Right UWEMakeAdmin

149− "undelete" -> Just UWEUndelete

149+ "undelete" -> Right UWEUndelete

150− "update" -> Just UWEUpdate

150+ "update" -> Right UWEUpdate

151− _ -> Nothing

151+ x -> Left ("Unable to parse UsersWatchEvent from: " <> x)

152−

152+

153−instance ToText UsersWatchEvent where

153+instance ToHttpApiData UsersWatchEvent where

154− toText = \case

154+ toQueryParam = \case

155 UWEAdd -> "add"

156 UWEDelete' -> "delete"

157 UWEMakeAdmin -> "makeAdmin"

@@ -177,14 +177,14 @@ data ChromeosDevicesPatchProjection

177

178instance Hashable ChromeosDevicesPatchProjection

179

180−instance FromText ChromeosDevicesPatchProjection where

180+instance FromHttpApiData ChromeosDevicesPatchProjection where

181− fromText = \case

181+ parseQueryParam = \case

182− "BASIC" -> Just Basic

182+ "BASIC" -> Right Basic

183− "FULL" -> Just Full

183+ "FULL" -> Right Full

184− _ -> Nothing

184+ x -> Left ("Unable to parse ChromeosDevicesPatchProjection from: " <> x)

185

186−instance ToText ChromeosDevicesPatchProjection where

186+instance ToHttpApiData ChromeosDevicesPatchProjection where

187− toText = \case

187+ toQueryParam = \case

188 Basic -> "BASIC"

189 Full -> "FULL"

190

@@ -207,14 +207,14 @@ data ChromeosDevicesGetProjection

207

208instance Hashable ChromeosDevicesGetProjection

209

210−instance FromText ChromeosDevicesGetProjection where

210+instance FromHttpApiData ChromeosDevicesGetProjection where

211− fromText = \case

211+ parseQueryParam = \case

212− "BASIC" -> Just CDGPBasic

212+ "BASIC" -> Right CDGPBasic

213− "FULL" -> Just CDGPFull

213+ "FULL" -> Right CDGPFull

214− _ -> Nothing

214+ x -> Left ("Unable to parse ChromeosDevicesGetProjection from: " <> x)

215

216−instance ToText ChromeosDevicesGetProjection where

216+instance ToHttpApiData ChromeosDevicesGetProjection where

217− toText = \case

217+ toQueryParam = \case

218 CDGPBasic -> "BASIC"

219 CDGPFull -> "FULL"

220

@@ -236,14 +236,14 @@ data UsersListViewType

236

237instance Hashable UsersListViewType

238

239−instance FromText UsersListViewType where

239+instance FromHttpApiData UsersListViewType where

240− fromText = \case

240+ parseQueryParam = \case

241− "admin_view" -> Just AdminView

241+ "admin_view" -> Right AdminView

242− "domain_public" -> Just DomainPublic

242+ "domain_public" -> Right DomainPublic

243− _ -> Nothing

243+ x -> Left ("Unable to parse UsersListViewType from: " <> x)

244

245−instance ToText UsersListViewType where

245+instance ToHttpApiData UsersListViewType where

246− toText = \case

246+ toQueryParam = \case

247 AdminView -> "admin_view"

248 DomainPublic -> "domain_public"

249

@@ -265,14 +265,14 @@ data OrgUnitsListType

265

266instance Hashable OrgUnitsListType

267

268−instance FromText OrgUnitsListType where

268+instance FromHttpApiData OrgUnitsListType where

269− fromText = \case

269+ parseQueryParam = \case

270− "all" -> Just All

270+ "all" -> Right All

271− "children" -> Just Children

271+ "children" -> Right Children

272− _ -> Nothing

272+ x -> Left ("Unable to parse OrgUnitsListType from: " <> x)

273

274−instance ToText OrgUnitsListType where

274+instance ToHttpApiData OrgUnitsListType where

275− toText = \case

275+ toQueryParam = \case

276 All -> "all"

277 Children -> "children"

278

@@ -295,14 +295,14 @@ data MobileDevicesListSortOrder

295

296instance Hashable MobileDevicesListSortOrder

297

298−instance FromText MobileDevicesListSortOrder where

298+instance FromHttpApiData MobileDevicesListSortOrder where

299− fromText = \case

299+ parseQueryParam = \case

300− "ASCENDING" -> Just Ascending

300+ "ASCENDING" -> Right Ascending

301− "DESCENDING" -> Just Descending

301+ "DESCENDING" -> Right Descending

302− _ -> Nothing

302+ x -> Left ("Unable to parse MobileDevicesListSortOrder from: " <> x)

303

304−instance ToText MobileDevicesListSortOrder where

304+instance ToHttpApiData MobileDevicesListSortOrder where

305− toText = \case

305+ toQueryParam = \case

306 Ascending -> "ASCENDING"

307 Descending -> "DESCENDING"

308

@@ -327,15 +327,15 @@ data UsersListOrderBy

327

328instance Hashable UsersListOrderBy

329

330−instance FromText UsersListOrderBy where

330+instance FromHttpApiData UsersListOrderBy where

331− fromText = \case

331+ parseQueryParam = \case

332− "email" -> Just Email

332+ "email" -> Right Email

333− "familyName" -> Just FamilyName

333+ "familyName" -> Right FamilyName

334− "givenName" -> Just GivenName

334+ "givenName" -> Right GivenName

335− _ -> Nothing

335+ x -> Left ("Unable to parse UsersListOrderBy from: " <> x)

336

337−instance ToText UsersListOrderBy where

337+instance ToHttpApiData UsersListOrderBy where

338− toText = \case

338+ toQueryParam = \case

339 Email -> "email"

340 FamilyName -> "familyName"

341 GivenName -> "givenName"

@@ -358,14 +358,14 @@ data UsersWatchViewType

358

359instance Hashable UsersWatchViewType

360

361−instance FromText UsersWatchViewType where

361+instance FromHttpApiData UsersWatchViewType where

362− fromText = \case

362+ parseQueryParam = \case

363− "admin_view" -> Just UWVTAdminView

363+ "admin_view" -> Right UWVTAdminView

364− "domain_public" -> Just UWVTDomainPublic

364+ "domain_public" -> Right UWVTDomainPublic

365− _ -> Nothing

365+ x -> Left ("Unable to parse UsersWatchViewType from: " <> x)

366

367−instance ToText UsersWatchViewType where

367+instance ToHttpApiData UsersWatchViewType where

368− toText = \case

368+ toQueryParam = \case

369 UWVTAdminView -> "admin_view"

370 UWVTDomainPublic -> "domain_public"

371

@@ -390,15 +390,15 @@ data UsersGetProjection

390

391instance Hashable UsersGetProjection

392

393−instance FromText UsersGetProjection where

393+instance FromHttpApiData UsersGetProjection where

394− fromText = \case

394+ parseQueryParam = \case

395− "basic" -> Just UGPBasic

395+ "basic" -> Right UGPBasic

396− "custom" -> Just UGPCustom

396+ "custom" -> Right UGPCustom

397− "full" -> Just UGPFull

397+ "full" -> Right UGPFull

398− _ -> Nothing

398+ x -> Left ("Unable to parse UsersGetProjection from: " <> x)

399

400−instance ToText UsersGetProjection where

400+instance ToHttpApiData UsersGetProjection where

401− toText = \case

401+ toQueryParam = \case

402 UGPBasic -> "basic"

403 UGPCustom -> "custom"

404 UGPFull -> "full"

@@ -422,14 +422,14 @@ data MobileDevicesListProjection

422

423instance Hashable MobileDevicesListProjection

424

425−instance FromText MobileDevicesListProjection where

425+instance FromHttpApiData MobileDevicesListProjection where

426− fromText = \case

426+ parseQueryParam = \case

427− "BASIC" -> Just MDLPBasic

427+ "BASIC" -> Right MDLPBasic

428− "FULL" -> Just MDLPFull

428+ "FULL" -> Right MDLPFull

429− _ -> Nothing

429+ x -> Left ("Unable to parse MobileDevicesListProjection from: " <> x)

430

431−instance ToText MobileDevicesListProjection where

431+instance ToHttpApiData MobileDevicesListProjection where

432− toText = \case

432+ toQueryParam = \case

433 MDLPBasic -> "BASIC"

434 MDLPFull -> "FULL"

435

@@ -469,20 +469,20 @@ data MobileDevicesListOrderBy

469

470instance Hashable MobileDevicesListOrderBy

471

472−instance FromText MobileDevicesListOrderBy where

472+instance FromHttpApiData MobileDevicesListOrderBy where

473− fromText = \case

473+ parseQueryParam = \case

474− "deviceId" -> Just MDLOBDeviceId

474+ "deviceId" -> Right MDLOBDeviceId

475− "email" -> Just MDLOBEmail

475+ "email" -> Right MDLOBEmail

476− "lastSync" -> Just MDLOBLastSync

476+ "lastSync" -> Right MDLOBLastSync

477− "model" -> Just MDLOBModel

477+ "model" -> Right MDLOBModel

478− "name" -> Just MDLOBName

478+ "name" -> Right MDLOBName

479− "os" -> Just MDLOBOS

479+ "os" -> Right MDLOBOS

480− "status" -> Just MDLOBStatus

480+ "status" -> Right MDLOBStatus

481− "type" -> Just MDLOBType

481+ "type" -> Right MDLOBType

482− _ -> Nothing

482+ x -> Left ("Unable to parse MobileDevicesListOrderBy from: " <> x)

483−

483+

484−instance ToText MobileDevicesListOrderBy where

484+instance ToHttpApiData MobileDevicesListOrderBy where

485− toText = \case

485+ toQueryParam = \case

486 MDLOBDeviceId -> "deviceId"

487 MDLOBEmail -> "email"

488 MDLOBLastSync -> "lastSync"

@@ -510,14 +510,14 @@ data UsersListSortOrder

510

511instance Hashable UsersListSortOrder

512

513−instance FromText UsersListSortOrder where

513+instance FromHttpApiData UsersListSortOrder where

514− fromText = \case

514+ parseQueryParam = \case

515− "ASCENDING" -> Just ULSOAscending

515+ "ASCENDING" -> Right ULSOAscending

516− "DESCENDING" -> Just ULSODescending

516+ "DESCENDING" -> Right ULSODescending

517− _ -> Nothing

517+ x -> Left ("Unable to parse UsersListSortOrder from: " <> x)

518

519−instance ToText UsersListSortOrder where

519+instance ToHttpApiData UsersListSortOrder where

520− toText = \case

520+ toQueryParam = \case

521 ULSOAscending -> "ASCENDING"

522 ULSODescending -> "DESCENDING"

523

@@ -540,14 +540,14 @@ data ChromeosDevicesListSortOrder

540

541instance Hashable ChromeosDevicesListSortOrder

542

543−instance FromText ChromeosDevicesListSortOrder where

543+instance FromHttpApiData ChromeosDevicesListSortOrder where

544− fromText = \case

544+ parseQueryParam = \case

545− "ASCENDING" -> Just CDLSOAscending

545+ "ASCENDING" -> Right CDLSOAscending

546− "DESCENDING" -> Just CDLSODescending

546+ "DESCENDING" -> Right CDLSODescending

547− _ -> Nothing

547+ x -> Left ("Unable to parse ChromeosDevicesListSortOrder from: " <> x)

548

549−instance ToText ChromeosDevicesListSortOrder where

549+instance ToHttpApiData ChromeosDevicesListSortOrder where

550− toText = \case

550+ toQueryParam = \case

551 CDLSOAscending -> "ASCENDING"

552 CDLSODescending -> "DESCENDING"

553

@@ -569,14 +569,14 @@ data UsersWatchSortOrder

569

570instance Hashable UsersWatchSortOrder

571

572−instance FromText UsersWatchSortOrder where

572+instance FromHttpApiData UsersWatchSortOrder where

573− fromText = \case

573+ parseQueryParam = \case

574− "ASCENDING" -> Just UWSOAscending

574+ "ASCENDING" -> Right UWSOAscending

575− "DESCENDING" -> Just UWSODescending

575+ "DESCENDING" -> Right UWSODescending

576− _ -> Nothing

576+ x -> Left ("Unable to parse UsersWatchSortOrder from: " <> x)

577

578−instance ToText UsersWatchSortOrder where

578+instance ToHttpApiData UsersWatchSortOrder where

579− toText = \case

579+ toQueryParam = \case

580 UWSOAscending -> "ASCENDING"

581 UWSODescending -> "DESCENDING"

582

@@ -601,15 +601,15 @@ data UsersListProjection

601

602instance Hashable UsersListProjection

603

604−instance FromText UsersListProjection where

604+instance FromHttpApiData UsersListProjection where

605− fromText = \case

605+ parseQueryParam = \case

606− "basic" -> Just ULPBasic

606+ "basic" -> Right ULPBasic

607− "custom" -> Just ULPCustom

607+ "custom" -> Right ULPCustom

608− "full" -> Just ULPFull

608+ "full" -> Right ULPFull

609− _ -> Nothing

609+ x -> Left ("Unable to parse UsersListProjection from: " <> x)

610

611−instance ToText UsersListProjection where

611+instance ToHttpApiData UsersListProjection where

612− toText = \case

612+ toQueryParam = \case

613 ULPBasic -> "basic"

614 ULPCustom -> "custom"

615 ULPFull -> "full"

@@ -633,14 +633,14 @@ data ChromeosDevicesUpdateProjection

633

634instance Hashable ChromeosDevicesUpdateProjection

635

636−instance FromText ChromeosDevicesUpdateProjection where

636+instance FromHttpApiData ChromeosDevicesUpdateProjection where

637− fromText = \case

637+ parseQueryParam = \case

638− "BASIC" -> Just CDUPBasic

638+ "BASIC" -> Right CDUPBasic

639− "FULL" -> Just CDUPFull

639+ "FULL" -> Right CDUPFull

640− _ -> Nothing

640+ x -> Left ("Unable to parse ChromeosDevicesUpdateProjection from: " <> x)

641

642−instance ToText ChromeosDevicesUpdateProjection where

642+instance ToHttpApiData ChromeosDevicesUpdateProjection where

643− toText = \case

643+ toQueryParam = \case

644 CDUPBasic -> "BASIC"

645 CDUPFull -> "FULL"

646

@@ -663,14 +663,14 @@ data MobileDevicesGetProjection

663

664instance Hashable MobileDevicesGetProjection

665

666−instance FromText MobileDevicesGetProjection where

666+instance FromHttpApiData MobileDevicesGetProjection where

667− fromText = \case

667+ parseQueryParam = \case

668− "BASIC" -> Just MDGPBasic

668+ "BASIC" -> Right MDGPBasic

669− "FULL" -> Just MDGPFull

669+ "FULL" -> Right MDGPFull

670− _ -> Nothing

670+ x -> Left ("Unable to parse MobileDevicesGetProjection from: " <> x)

671

672−instance ToText MobileDevicesGetProjection where

672+instance ToHttpApiData MobileDevicesGetProjection where

673− toText = \case

673+ toQueryParam = \case

674 MDGPBasic -> "BASIC"

675 MDGPFull -> "FULL"

676

@@ -707,19 +707,19 @@ data ChromeosDevicesListOrderBy

707

708instance Hashable ChromeosDevicesListOrderBy

709

710−instance FromText ChromeosDevicesListOrderBy where

710+instance FromHttpApiData ChromeosDevicesListOrderBy where

711− fromText = \case

711+ parseQueryParam = \case

712− "annotatedLocation" -> Just AnnotatedLocation

712+ "annotatedLocation" -> Right AnnotatedLocation

713− "annotatedUser" -> Just AnnotatedUser

713+ "annotatedUser" -> Right AnnotatedUser

714− "lastSync" -> Just LastSync

714+ "lastSync" -> Right LastSync

715− "notes" -> Just Notes

715+ "notes" -> Right Notes

716− "serialNumber" -> Just SerialNumber

716+ "serialNumber" -> Right SerialNumber

717− "status" -> Just Status

717+ "status" -> Right Status

718− "supportEndDate" -> Just SupportEndDate

718+ "supportEndDate" -> Right SupportEndDate

719− _ -> Nothing

719+ x -> Left ("Unable to parse ChromeosDevicesListOrderBy from: " <> x)

720−

720+

721−instance ToText ChromeosDevicesListOrderBy where

721+instance ToHttpApiData ChromeosDevicesListOrderBy where

722− toText = \case

722+ toQueryParam = \case

723 AnnotatedLocation -> "annotatedLocation"

724 AnnotatedUser -> "annotatedUser"

725 LastSync -> "lastSync"

@@ -749,15 +749,15 @@ data UsersWatchProjection

749

750instance Hashable UsersWatchProjection

751

752−instance FromText UsersWatchProjection where

752+instance FromHttpApiData UsersWatchProjection where

753− fromText = \case

753+ parseQueryParam = \case

754− "basic" -> Just UWPBasic

754+ "basic" -> Right UWPBasic

755− "custom" -> Just UWPCustom

755+ "custom" -> Right UWPCustom

756− "full" -> Just UWPFull

756+ "full" -> Right UWPFull

757− _ -> Nothing

757+ x -> Left ("Unable to parse UsersWatchProjection from: " <> x)

758

759−instance ToText UsersWatchProjection where

759+instance ToHttpApiData UsersWatchProjection where

760− toText = \case

760+ toQueryParam = \case

761 UWPBasic -> "basic"

762 UWPCustom -> "custom"

763 UWPFull -> "full"

@@ -783,15 +783,15 @@ data UsersWatchOrderBy

783

784instance Hashable UsersWatchOrderBy

785

786−instance FromText UsersWatchOrderBy where

786+instance FromHttpApiData UsersWatchOrderBy where

787− fromText = \case

787+ parseQueryParam = \case

788− "email" -> Just UWOBEmail

788+ "email" -> Right UWOBEmail

789− "familyName" -> Just UWOBFamilyName

789+ "familyName" -> Right UWOBFamilyName

790− "givenName" -> Just UWOBGivenName

790+ "givenName" -> Right UWOBGivenName

791− _ -> Nothing

791+ x -> Left ("Unable to parse UsersWatchOrderBy from: " <> x)

792

793−instance ToText UsersWatchOrderBy where

793+instance ToHttpApiData UsersWatchOrderBy where

794− toText = \case

794+ toQueryParam = \case

795 UWOBEmail -> "email"

796 UWOBFamilyName -> "familyName"

797 UWOBGivenName -> "givenName"

@@ -815,14 +815,14 @@ data ChromeosDevicesListProjection

815

816instance Hashable ChromeosDevicesListProjection

817

818−instance FromText ChromeosDevicesListProjection where

818+instance FromHttpApiData ChromeosDevicesListProjection where

819− fromText = \case

819+ parseQueryParam = \case

820− "BASIC" -> Just CDLPBasic

820+ "BASIC" -> Right CDLPBasic

821− "FULL" -> Just CDLPFull

821+ "FULL" -> Right CDLPFull

822− _ -> Nothing

822+ x -> Left ("Unable to parse ChromeosDevicesListProjection from: " <> x)

823

824−instance ToText ChromeosDevicesListProjection where

824+instance ToHttpApiData ChromeosDevicesListProjection where

825− toText = \case

825+ toQueryParam = \case

826 CDLPBasic -> "BASIC"

827 CDLPFull -> "FULL"

828

@@ -844,14 +844,14 @@ data UsersGetViewType

844

845instance Hashable UsersGetViewType

846

847−instance FromText UsersGetViewType where

847+instance FromHttpApiData UsersGetViewType where

848− fromText = \case

848+ parseQueryParam = \case

849− "admin_view" -> Just UGVTAdminView

849+ "admin_view" -> Right UGVTAdminView

850− "domain_public" -> Just UGVTDomainPublic

850+ "domain_public" -> Right UGVTDomainPublic

851− _ -> Nothing

851+ x -> Left ("Unable to parse UsersGetViewType from: " <> x)

852

853−instance ToText UsersGetViewType where

853+instance ToHttpApiData UsersGetViewType where

854− toText = \case

854+ toQueryParam = \case

855 UGVTAdminView -> "admin_view"

856 UGVTDomainPublic -> "domain_public"

857

gogol-adsense-host/gen/Network/Google/AdSenseHost/Types/Sum.hs+11−11

@@ -39,17 +39,17 @@ data AssociationSessionsStartProductCode

40instance Hashable AssociationSessionsStartProductCode

42−instance FromText AssociationSessionsStartProductCode where

42+instance FromHttpApiData AssociationSessionsStartProductCode where

43− fromText = \case

43+ parseQueryParam = \case

44− "AFC" -> Just Afc

44+ "AFC" -> Right Afc

45− "AFG" -> Just Afg

45+ "AFG" -> Right Afg

46− "AFMC" -> Just Afmc

46+ "AFMC" -> Right Afmc

47− "AFS" -> Just Afs

47+ "AFS" -> Right Afs

48− "AFV" -> Just Afv

48+ "AFV" -> Right Afv

49− _ -> Nothing

49+ x -> Left ("Unable to parse AssociationSessionsStartProductCode from: " <> x)

50−

50+

51−instance ToText AssociationSessionsStartProductCode where

51+instance ToHttpApiData AssociationSessionsStartProductCode where

52− toText = \case

52+ toQueryParam = \case

53 Afc -> "AFC"

54 Afg -> "AFG"

55 Afmc -> "AFMC"

gogol-affiliates/gen/Network/Google/Affiliates/Types/Sum.hs+174−174

@@ -31,14 +31,14 @@ data PublishersGetRole

32instance Hashable PublishersGetRole

34−instance FromText PublishersGetRole where

34+instance FromHttpApiData PublishersGetRole where

35− fromText = \case

35+ parseQueryParam = \case

36− "advertisers" -> Just PGRAdvertisers

36+ "advertisers" -> Right PGRAdvertisers

37− "publishers" -> Just PGRPublishers

37+ "publishers" -> Right PGRPublishers

38− _ -> Nothing

38+ x -> Left ("Unable to parse PublishersGetRole from: " <> x)

39−

39+

40−instance ToText PublishersGetRole where

40+instance ToHttpApiData PublishersGetRole where

41− toText = \case

41+ toQueryParam = \case

42 PGRAdvertisers -> "advertisers"

43 PGRPublishers -> "publishers"

@@ -64,15 +64,15 @@ data ReportsGetEventType

65instance Hashable ReportsGetEventType

67−instance FromText ReportsGetEventType where

67+instance FromHttpApiData ReportsGetEventType where

68− fromText = \case

68+ parseQueryParam = \case

69− "action" -> Just Action

69+ "action" -> Right Action

70− "charge" -> Just Charge

70+ "charge" -> Right Charge

71− "transaction" -> Just Transaction

71+ "transaction" -> Right Transaction

72− _ -> Nothing

72+ x -> Left ("Unable to parse ReportsGetEventType from: " <> x)

74−instance ToText ReportsGetEventType where

74+instance ToHttpApiData ReportsGetEventType where

75− toText = \case

75+ toQueryParam = \case

76 Action -> "action"

77 Charge -> "charge"

78 Transaction -> "transaction"

@@ -99,15 +99,15 @@ data ReportsGetStatus

100instance Hashable ReportsGetStatus

101

102−instance FromText ReportsGetStatus where

102+instance FromHttpApiData ReportsGetStatus where

103− fromText = \case

103+ parseQueryParam = \case

104− "active" -> Just Active

104+ "active" -> Right Active

105− "canceled" -> Just Canceled

105+ "canceled" -> Right Canceled

106− "invalid" -> Just Invalid

106+ "invalid" -> Right Invalid

107− _ -> Nothing

107+ x -> Left ("Unable to parse ReportsGetStatus from: " <> x)

108

109−instance ToText ReportsGetStatus where

109+instance ToHttpApiData ReportsGetStatus where

110− toText = \case

110+ toQueryParam = \case

111 Active -> "active"

112 Canceled -> "canceled"

113 Invalid -> "invalid"

@@ -134,17 +134,17 @@ data LinksListPromotionType

134

135instance Hashable LinksListPromotionType

136

137−instance FromText LinksListPromotionType where

137+instance FromHttpApiData LinksListPromotionType where

138− fromText = \case

138+ parseQueryParam = \case

139− "coupon" -> Just Coupon

139+ "coupon" -> Right Coupon

140− "free_gift" -> Just FreeGift

140+ "free_gift" -> Right FreeGift

141− "free_shipping" -> Just FreeShipping

141+ "free_shipping" -> Right FreeShipping

142− "percent_off" -> Just PercentOff

142+ "percent_off" -> Right PercentOff

143− "price_cut" -> Just PriceCut

143+ "price_cut" -> Right PriceCut

144− _ -> Nothing

144+ x -> Left ("Unable to parse LinksListPromotionType from: " <> x)

145−

145+

146−instance ToText LinksListPromotionType where

146+instance ToHttpApiData LinksListPromotionType where

147− toText = \case

147+ toQueryParam = \case

148 Coupon -> "coupon"

149 FreeGift -> "free_gift"

150 FreeShipping -> "free_shipping"

@@ -178,15 +178,15 @@ data EventsListType

178

179instance Hashable EventsListType

180

181−instance FromText EventsListType where

181+instance FromHttpApiData EventsListType where

182− fromText = \case

182+ parseQueryParam = \case

183− "action" -> Just ELTAction

183+ "action" -> Right ELTAction

184− "charge" -> Just ELTCharge

184+ "charge" -> Right ELTCharge

185− "transaction" -> Just ELTTransaction

185+ "transaction" -> Right ELTTransaction

186− _ -> Nothing

186+ x -> Left ("Unable to parse EventsListType from: " <> x)

187

188−instance ToText EventsListType where

188+instance ToHttpApiData EventsListType where

189− toText = \case

189+ toQueryParam = \case

190 ELTAction -> "action"

191 ELTCharge -> "charge"

192 ELTTransaction -> "transaction"

@@ -210,14 +210,14 @@ data LinksListRole

210

211instance Hashable LinksListRole

212

213−instance FromText LinksListRole where

213+instance FromHttpApiData LinksListRole where

214− fromText = \case

214+ parseQueryParam = \case

215− "advertisers" -> Just LLRAdvertisers

215+ "advertisers" -> Right LLRAdvertisers

216− "publishers" -> Just LLRPublishers

216+ "publishers" -> Right LLRPublishers

217− _ -> Nothing

217+ x -> Left ("Unable to parse LinksListRole from: " <> x)

218

219−instance ToText LinksListRole where

219+instance ToHttpApiData LinksListRole where

220− toText = \case

220+ toQueryParam = \case

221 LLRAdvertisers -> "advertisers"

222 LLRPublishers -> "publishers"

223

@@ -237,13 +237,13 @@ data ReportsGetReportType

237

238instance Hashable ReportsGetReportType

239

240−instance FromText ReportsGetReportType where

240+instance FromHttpApiData ReportsGetReportType where

241− fromText = \case

241+ parseQueryParam = \case

242− "order_delta" -> Just OrderDelta

242+ "order_delta" -> Right OrderDelta

243− _ -> Nothing

243+ x -> Left ("Unable to parse ReportsGetReportType from: " <> x)

244

245−instance ToText ReportsGetReportType where

245+instance ToHttpApiData ReportsGetReportType where

246− toText = \case

246+ toQueryParam = \case

247 OrderDelta -> "order_delta"

248

249instance FromJSON ReportsGetReportType where

@@ -265,14 +265,14 @@ data AdvertisersListRole

265

266instance Hashable AdvertisersListRole

267

268−instance FromText AdvertisersListRole where

268+instance FromHttpApiData AdvertisersListRole where

269− fromText = \case

269+ parseQueryParam = \case

270− "advertisers" -> Just ALRAdvertisers

270+ "advertisers" -> Right ALRAdvertisers

271− "publishers" -> Just ALRPublishers

271+ "publishers" -> Right ALRPublishers

272− _ -> Nothing

272+ x -> Left ("Unable to parse AdvertisersListRole from: " <> x)

273

274−instance ToText AdvertisersListRole where

274+instance ToHttpApiData AdvertisersListRole where

275− toText = \case

275+ toQueryParam = \case

276 ALRAdvertisers -> "advertisers"

277 ALRPublishers -> "publishers"

278

@@ -295,14 +295,14 @@ data LinksInsertRole

295

296instance Hashable LinksInsertRole

297

298−instance FromText LinksInsertRole where

298+instance FromHttpApiData LinksInsertRole where

299− fromText = \case

299+ parseQueryParam = \case

300− "advertisers" -> Just LIRAdvertisers

300+ "advertisers" -> Right LIRAdvertisers

301− "publishers" -> Just LIRPublishers

301+ "publishers" -> Right LIRPublishers

302− _ -> Nothing

302+ x -> Left ("Unable to parse LinksInsertRole from: " <> x)

303

304−instance ToText LinksInsertRole where

304+instance ToHttpApiData LinksInsertRole where

305− toText = \case

305+ toQueryParam = \case

306 LIRAdvertisers -> "advertisers"

307 LIRPublishers -> "publishers"

308

@@ -325,14 +325,14 @@ data PublishersListRole

325

326instance Hashable PublishersListRole

327

328−instance FromText PublishersListRole where

328+instance FromHttpApiData PublishersListRole where

329− fromText = \case

329+ parseQueryParam = \case

330− "advertisers" -> Just PLRAdvertisers

330+ "advertisers" -> Right PLRAdvertisers

331− "publishers" -> Just PLRPublishers

331+ "publishers" -> Right PLRPublishers

332− _ -> Nothing

332+ x -> Left ("Unable to parse PublishersListRole from: " <> x)

333

334−instance ToText PublishersListRole where

334+instance ToHttpApiData PublishersListRole where

335− toText = \case

335+ toQueryParam = \case

336 PLRAdvertisers -> "advertisers"

337 PLRPublishers -> "publishers"

338

@@ -352,14 +352,14 @@ data LinksListAuthorship

352

353instance Hashable LinksListAuthorship

354

355−instance FromText LinksListAuthorship where

355+instance FromHttpApiData LinksListAuthorship where

356− fromText = \case

356+ parseQueryParam = \case

357− "advertiser" -> Just LLAAdvertiser

357+ "advertiser" -> Right LLAAdvertiser

358− "publisher" -> Just LLAPublisher

358+ "publisher" -> Right LLAPublisher

359− _ -> Nothing

359+ x -> Left ("Unable to parse LinksListAuthorship from: " <> x)

360

361−instance ToText LinksListAuthorship where

361+instance ToHttpApiData LinksListAuthorship where

362− toText = \case

362+ toQueryParam = \case

363 LLAAdvertiser -> "advertiser"

364 LLAPublisher -> "publisher"

365

@@ -382,14 +382,14 @@ data LinksGetRole

382

383instance Hashable LinksGetRole

384

385−instance FromText LinksGetRole where

385+instance FromHttpApiData LinksGetRole where

386− fromText = \case

386+ parseQueryParam = \case

387− "advertisers" -> Just LGRAdvertisers

387+ "advertisers" -> Right LGRAdvertisers

388− "publishers" -> Just LGRPublishers

388+ "publishers" -> Right LGRPublishers

389− _ -> Nothing

389+ x -> Left ("Unable to parse LinksGetRole from: " <> x)

390

391−instance ToText LinksGetRole where

391+instance ToHttpApiData LinksGetRole where

392− toText = \case

392+ toQueryParam = \case

393 LGRAdvertisers -> "advertisers"

394 LGRPublishers -> "publishers"

395

@@ -409,14 +409,14 @@ data LinksListLinkType

409

410instance Hashable LinksListLinkType

411

412−instance FromText LinksListLinkType where

412+instance FromHttpApiData LinksListLinkType where

413− fromText = \case

413+ parseQueryParam = \case

414− "banner" -> Just Banner

414+ "banner" -> Right Banner

415− "text" -> Just Text

415+ "text" -> Right Text

416− _ -> Nothing

416+ x -> Left ("Unable to parse LinksListLinkType from: " <> x)

417

418−instance ToText LinksListLinkType where

418+instance ToHttpApiData LinksListLinkType where

419− toText = \case

419+ toQueryParam = \case

420 Banner -> "banner"

421 Text -> "text"

422

@@ -439,14 +439,14 @@ data EventsListRole

439

440instance Hashable EventsListRole

441

442−instance FromText EventsListRole where

442+instance FromHttpApiData EventsListRole where

443− fromText = \case

443+ parseQueryParam = \case

444− "advertisers" -> Just ELRAdvertisers

444+ "advertisers" -> Right ELRAdvertisers

445− "publishers" -> Just ELRPublishers

445+ "publishers" -> Right ELRPublishers

446− _ -> Nothing

446+ x -> Left ("Unable to parse EventsListRole from: " <> x)

447

448−instance ToText EventsListRole where

448+instance ToHttpApiData EventsListRole where

449− toText = \case

449+ toQueryParam = \case

450 ELRAdvertisers -> "advertisers"

451 ELRPublishers -> "publishers"

452

@@ -481,17 +481,17 @@ data AdvertisersListRelationshipStatus

481

482instance Hashable AdvertisersListRelationshipStatus

483

484−instance FromText AdvertisersListRelationshipStatus where

484+instance FromHttpApiData AdvertisersListRelationshipStatus where

485− fromText = \case

485+ parseQueryParam = \case

486− "approved" -> Just Approved

486+ "approved" -> Right Approved

487− "available" -> Just Available

487+ "available" -> Right Available

488− "deactivated" -> Just Deactivated

488+ "deactivated" -> Right Deactivated

489− "declined" -> Just Declined

489+ "declined" -> Right Declined

490− "pending" -> Just Pending

490+ "pending" -> Right Pending

491− _ -> Nothing

491+ x -> Left ("Unable to parse AdvertisersListRelationshipStatus from: " <> x)

492−

492+

493−instance ToText AdvertisersListRelationshipStatus where

493+instance ToHttpApiData AdvertisersListRelationshipStatus where

494− toText = \case

494+ toQueryParam = \case

495 Approved -> "approved"

496 Available -> "available"

497 Deactivated -> "deactivated"

@@ -516,14 +516,14 @@ data CcOffersListProjection

516

517instance Hashable CcOffersListProjection

518

519−instance FromText CcOffersListProjection where

519+instance FromHttpApiData CcOffersListProjection where

520− fromText = \case

520+ parseQueryParam = \case

521− "full" -> Just Full

521+ "full" -> Right Full

522− "summary" -> Just Summary

522+ "summary" -> Right Summary

523− _ -> Nothing

523+ x -> Left ("Unable to parse CcOffersListProjection from: " <> x)

524

525−instance ToText CcOffersListProjection where

525+instance ToHttpApiData CcOffersListProjection where

526− toText = \case

526+ toQueryParam = \case

527 Full -> "full"

528 Summary -> "summary"

529

@@ -546,14 +546,14 @@ data AdvertisersGetRole

546

547instance Hashable AdvertisersGetRole

548

549−instance FromText AdvertisersGetRole where

549+instance FromHttpApiData AdvertisersGetRole where

550− fromText = \case

550+ parseQueryParam = \case

551− "advertisers" -> Just AGRAdvertisers

551+ "advertisers" -> Right AGRAdvertisers

552− "publishers" -> Just AGRPublishers

552+ "publishers" -> Right AGRPublishers

553− _ -> Nothing

553+ x -> Left ("Unable to parse AdvertisersGetRole from: " <> x)

554

555−instance ToText AdvertisersGetRole where

555+instance ToHttpApiData AdvertisersGetRole where

556− toText = \case

556+ toQueryParam = \case

557 AGRAdvertisers -> "advertisers"

558 AGRPublishers -> "publishers"

559

@@ -593,18 +593,18 @@ data EventsListChargeType

593

594instance Hashable EventsListChargeType

595

596−instance FromText EventsListChargeType where

596+instance FromHttpApiData EventsListChargeType where

597− fromText = \case

597+ parseQueryParam = \case

598− "credit" -> Just Credit

598+ "credit" -> Right Credit

599− "debit" -> Just Debit

599+ "debit" -> Right Debit

600− "monthly_minimum" -> Just MonthlyMinimum

600+ "monthly_minimum" -> Right MonthlyMinimum

601− "other" -> Just Other

601+ "other" -> Right Other

602− "slotting_fee" -> Just SlottingFee

602+ "slotting_fee" -> Right SlottingFee

603− "tier_bonus" -> Just TierBonus

603+ "tier_bonus" -> Right TierBonus

604− _ -> Nothing

604+ x -> Left ("Unable to parse EventsListChargeType from: " <> x)

605−

605+

606−instance ToText EventsListChargeType where

606+instance ToHttpApiData EventsListChargeType where

607− toText = \case

607+ toQueryParam = \case

608 Credit -> "credit"

609 Debit -> "debit"

610 MonthlyMinimum -> "monthly_minimum"

@@ -642,17 +642,17 @@ data PublishersListRelationshipStatus

642

643instance Hashable PublishersListRelationshipStatus

644

645−instance FromText PublishersListRelationshipStatus where

645+instance FromHttpApiData PublishersListRelationshipStatus where

646− fromText = \case

646+ parseQueryParam = \case

647− "approved" -> Just PLRSApproved

647+ "approved" -> Right PLRSApproved

648− "available" -> Just PLRSAvailable

648+ "available" -> Right PLRSAvailable

649− "deactivated" -> Just PLRSDeactivated

649+ "deactivated" -> Right PLRSDeactivated

650− "declined" -> Just PLRSDeclined

650+ "declined" -> Right PLRSDeclined

651− "pending" -> Just PLRSPending

651+ "pending" -> Right PLRSPending

652− _ -> Nothing

652+ x -> Left ("Unable to parse PublishersListRelationshipStatus from: " <> x)

653−

653+

654−instance ToText PublishersListRelationshipStatus where

654+instance ToHttpApiData PublishersListRelationshipStatus where

655− toText = \case

655+ toQueryParam = \case

656 PLRSApproved -> "approved"

657 PLRSAvailable -> "available"

658 PLRSDeactivated -> "deactivated"

@@ -678,14 +678,14 @@ data ReportsGetRole

678

679instance Hashable ReportsGetRole

680

681−instance FromText ReportsGetRole where

681+instance FromHttpApiData ReportsGetRole where

682− fromText = \case

682+ parseQueryParam = \case

683− "advertisers" -> Just RGRAdvertisers

683+ "advertisers" -> Right RGRAdvertisers

684− "publishers" -> Just RGRPublishers

684+ "publishers" -> Right RGRPublishers

685− _ -> Nothing

685+ x -> Left ("Unable to parse ReportsGetRole from: " <> x)

686

687−instance ToText ReportsGetRole where

687+instance ToHttpApiData ReportsGetRole where

688− toText = \case

688+ toQueryParam = \case

689 RGRAdvertisers -> "advertisers"

690 RGRPublishers -> "publishers"

691

@@ -705,14 +705,14 @@ data LinksListRelationshipStatus

705

706instance Hashable LinksListRelationshipStatus

707

708−instance FromText LinksListRelationshipStatus where

708+instance FromHttpApiData LinksListRelationshipStatus where

709− fromText = \case

709+ parseQueryParam = \case

710− "approved" -> Just LLRSApproved

710+ "approved" -> Right LLRSApproved

711− "available" -> Just LLRSAvailable

711+ "available" -> Right LLRSAvailable

712− _ -> Nothing

712+ x -> Left ("Unable to parse LinksListRelationshipStatus from: " <> x)

713

714−instance ToText LinksListRelationshipStatus where

714+instance ToHttpApiData LinksListRelationshipStatus where

715− toText = \case

715+ toQueryParam = \case

716 LLRSApproved -> "approved"

717 LLRSAvailable -> "available"

718

@@ -735,14 +735,14 @@ data EventsListStatus

735

736instance Hashable EventsListStatus

737

738−instance FromText EventsListStatus where

738+instance FromHttpApiData EventsListStatus where

739− fromText = \case

739+ parseQueryParam = \case

740− "active" -> Just ELSActive

740+ "active" -> Right ELSActive

741− "canceled" -> Just ELSCanceled

741+ "canceled" -> Right ELSCanceled

742− _ -> Nothing

742+ x -> Left ("Unable to parse EventsListStatus from: " <> x)

743

744−instance ToText EventsListStatus where

744+instance ToHttpApiData EventsListStatus where

745− toText = \case

745+ toQueryParam = \case

746 ELSActive -> "active"

747 ELSCanceled -> "canceled"

748

gogol-analytics/gen/Network/Google/Analytics/Types/Sum.hs+24−24

@@ -34,15 +34,15 @@ data DataGaGetSamplingLevel

35instance Hashable DataGaGetSamplingLevel

37−instance FromText DataGaGetSamplingLevel where

37+instance FromHttpApiData DataGaGetSamplingLevel where

38− fromText = \case

38+ parseQueryParam = \case

39− "DEFAULT" -> Just Default

39+ "DEFAULT" -> Right Default

40− "FASTER" -> Just Faster

40+ "FASTER" -> Right Faster

41− "HIGHER_PRECISION" -> Just HigherPrecision

41+ "HIGHER_PRECISION" -> Right HigherPrecision

42− _ -> Nothing

42+ x -> Left ("Unable to parse DataGaGetSamplingLevel from: " <> x)

43−

43+

44−instance ToText DataGaGetSamplingLevel where

44+instance ToHttpApiData DataGaGetSamplingLevel where

45− toText = \case

45+ toQueryParam = \case

46 Default -> "DEFAULT"

47 Faster -> "FASTER"

48 HigherPrecision -> "HIGHER_PRECISION"

@@ -66,14 +66,14 @@ data DataGaGetOutput

67instance Hashable DataGaGetOutput

69−instance FromText DataGaGetOutput where

69+instance FromHttpApiData DataGaGetOutput where

70− fromText = \case

70+ parseQueryParam = \case

71− "dataTable" -> Just DataTable

71+ "dataTable" -> Right DataTable

72− "json" -> Just JSON

72+ "json" -> Right JSON

73− _ -> Nothing

73+ x -> Left ("Unable to parse DataGaGetOutput from: " <> x)

75−instance ToText DataGaGetOutput where

75+instance ToHttpApiData DataGaGetOutput where

76− toText = \case

76+ toQueryParam = \case

77 DataTable -> "dataTable"

78 JSON -> "json"

@@ -99,15 +99,15 @@ data DataMcfGetSamplingLevel

100instance Hashable DataMcfGetSamplingLevel

101

102−instance FromText DataMcfGetSamplingLevel where

102+instance FromHttpApiData DataMcfGetSamplingLevel where

103− fromText = \case

103+ parseQueryParam = \case

104− "DEFAULT" -> Just DMGSLDefault

104+ "DEFAULT" -> Right DMGSLDefault

105− "FASTER" -> Just DMGSLFaster

105+ "FASTER" -> Right DMGSLFaster

106− "HIGHER_PRECISION" -> Just DMGSLHigherPrecision

106+ "HIGHER_PRECISION" -> Right DMGSLHigherPrecision

107− _ -> Nothing

107+ x -> Left ("Unable to parse DataMcfGetSamplingLevel from: " <> x)

108

109−instance ToText DataMcfGetSamplingLevel where

109+instance ToHttpApiData DataMcfGetSamplingLevel where

110− toText = \case

110+ toQueryParam = \case

111 DMGSLDefault -> "DEFAULT"

112 DMGSLFaster -> "FASTER"

113 DMGSLHigherPrecision -> "HIGHER_PRECISION"

gogol-android-publisher/gen/Network/Google/AndroidPublisher/Types/Sum.hs+142−142

@@ -41,21 +41,21 @@ data EditsImagesDeleteallImageType

42instance Hashable EditsImagesDeleteallImageType

44−instance FromText EditsImagesDeleteallImageType where

44+instance FromHttpApiData EditsImagesDeleteallImageType where

45− fromText = \case

45+ parseQueryParam = \case

46− "featureGraphic" -> Just FeatureGraphic

46+ "featureGraphic" -> Right FeatureGraphic

47− "icon" -> Just Icon

47+ "icon" -> Right Icon

48− "phoneScreenshots" -> Just PhoneScreenshots

48+ "phoneScreenshots" -> Right PhoneScreenshots

49− "promoGraphic" -> Just PromoGraphic

49+ "promoGraphic" -> Right PromoGraphic

50− "sevenInchScreenshots" -> Just SevenInchScreenshots

50+ "sevenInchScreenshots" -> Right SevenInchScreenshots

51− "tenInchScreenshots" -> Just TenInchScreenshots

51+ "tenInchScreenshots" -> Right TenInchScreenshots

52− "tvBanner" -> Just TvBanner

52+ "tvBanner" -> Right TvBanner

53− "tvScreenshots" -> Just TvScreenshots

53+ "tvScreenshots" -> Right TvScreenshots

54− "wearScreenshots" -> Just WearScreenshots

54+ "wearScreenshots" -> Right WearScreenshots

55− _ -> Nothing

55+ x -> Left ("Unable to parse EditsImagesDeleteallImageType from: " <> x)

56−

56+

57−instance ToText EditsImagesDeleteallImageType where

57+instance ToHttpApiData EditsImagesDeleteallImageType where

58− toText = \case

58+ toQueryParam = \case

59 FeatureGraphic -> "featureGraphic"

60 Icon -> "icon"

61 PhoneScreenshots -> "phoneScreenshots"

@@ -86,16 +86,16 @@ data EditsTracksPatchTrack

87instance Hashable EditsTracksPatchTrack

89−instance FromText EditsTracksPatchTrack where

89+instance FromHttpApiData EditsTracksPatchTrack where

90− fromText = \case

90+ parseQueryParam = \case

91− "alpha" -> Just Alpha

91+ "alpha" -> Right Alpha

92− "beta" -> Just Beta

92+ "beta" -> Right Beta

93− "production" -> Just Production

93+ "production" -> Right Production

94− "rollout" -> Just Rollout

94+ "rollout" -> Right Rollout

95− _ -> Nothing

95+ x -> Left ("Unable to parse EditsTracksPatchTrack from: " <> x)

97−instance ToText EditsTracksPatchTrack where

97+instance ToHttpApiData EditsTracksPatchTrack where

98− toText = \case

98+ toQueryParam = \case

99 Alpha -> "alpha"

100 Beta -> "beta"

101 Production -> "production"

@@ -121,16 +121,16 @@ data EditsTracksGetTrack

121

122instance Hashable EditsTracksGetTrack

123

124−instance FromText EditsTracksGetTrack where

124+instance FromHttpApiData EditsTracksGetTrack where

125− fromText = \case

125+ parseQueryParam = \case

126− "alpha" -> Just ETGTAlpha

126+ "alpha" -> Right ETGTAlpha

127− "beta" -> Just ETGTBeta

127+ "beta" -> Right ETGTBeta

128− "production" -> Just ETGTProduction

128+ "production" -> Right ETGTProduction

129− "rollout" -> Just ETGTRollout

129+ "rollout" -> Right ETGTRollout

130− _ -> Nothing

130+ x -> Left ("Unable to parse EditsTracksGetTrack from: " <> x)

131

132−instance ToText EditsTracksGetTrack where

132+instance ToHttpApiData EditsTracksGetTrack where

133− toText = \case

133+ toQueryParam = \case

134 ETGTAlpha -> "alpha"

135 ETGTBeta -> "beta"

136 ETGTProduction -> "production"

@@ -156,16 +156,16 @@ data EditsTracksUpdateTrack

156

157instance Hashable EditsTracksUpdateTrack

158

159−instance FromText EditsTracksUpdateTrack where

159+instance FromHttpApiData EditsTracksUpdateTrack where

160− fromText = \case

160+ parseQueryParam = \case

161− "alpha" -> Just ETUTAlpha

161+ "alpha" -> Right ETUTAlpha

162− "beta" -> Just ETUTBeta

162+ "beta" -> Right ETUTBeta

163− "production" -> Just ETUTProduction

163+ "production" -> Right ETUTProduction

164− "rollout" -> Just ETUTRollout

164+ "rollout" -> Right ETUTRollout

165− _ -> Nothing

165+ x -> Left ("Unable to parse EditsTracksUpdateTrack from: " <> x)

166

167−instance ToText EditsTracksUpdateTrack where

167+instance ToHttpApiData EditsTracksUpdateTrack where

168− toText = \case

168+ toQueryParam = \case

169 ETUTAlpha -> "alpha"

170 ETUTBeta -> "beta"

171 ETUTProduction -> "production"

@@ -200,21 +200,21 @@ data EditsImagesListImageType

200

201instance Hashable EditsImagesListImageType

202

203−instance FromText EditsImagesListImageType where

203+instance FromHttpApiData EditsImagesListImageType where

204− fromText = \case

204+ parseQueryParam = \case

205− "featureGraphic" -> Just EILITFeatureGraphic

205+ "featureGraphic" -> Right EILITFeatureGraphic

206− "icon" -> Just EILITIcon

206+ "icon" -> Right EILITIcon

207− "phoneScreenshots" -> Just EILITPhoneScreenshots

207+ "phoneScreenshots" -> Right EILITPhoneScreenshots

208− "promoGraphic" -> Just EILITPromoGraphic

208+ "promoGraphic" -> Right EILITPromoGraphic

209− "sevenInchScreenshots" -> Just EILITSevenInchScreenshots

209+ "sevenInchScreenshots" -> Right EILITSevenInchScreenshots

210− "tenInchScreenshots" -> Just EILITTenInchScreenshots

210+ "tenInchScreenshots" -> Right EILITTenInchScreenshots

211− "tvBanner" -> Just EILITTvBanner

211+ "tvBanner" -> Right EILITTvBanner

212− "tvScreenshots" -> Just EILITTvScreenshots

212+ "tvScreenshots" -> Right EILITTvScreenshots

213− "wearScreenshots" -> Just EILITWearScreenshots

213+ "wearScreenshots" -> Right EILITWearScreenshots

214− _ -> Nothing

214+ x -> Left ("Unable to parse EditsImagesListImageType from: " <> x)

215−

215+

216−instance ToText EditsImagesListImageType where

216+instance ToHttpApiData EditsImagesListImageType where

217− toText = \case

217+ toQueryParam = \case

218 EILITFeatureGraphic -> "featureGraphic"

219 EILITIcon -> "icon"

220 EILITPhoneScreenshots -> "phoneScreenshots"

@@ -244,16 +244,16 @@ data EditsTestersPatchTrack

244

245instance Hashable EditsTestersPatchTrack

246

247−instance FromText EditsTestersPatchTrack where

247+instance FromHttpApiData EditsTestersPatchTrack where

248− fromText = \case

248+ parseQueryParam = \case

249− "alpha" -> Just ETPTAlpha

249+ "alpha" -> Right ETPTAlpha

250− "beta" -> Just ETPTBeta

250+ "beta" -> Right ETPTBeta

251− "production" -> Just ETPTProduction

251+ "production" -> Right ETPTProduction

252− "rollout" -> Just ETPTRollout

252+ "rollout" -> Right ETPTRollout

253− _ -> Nothing

253+ x -> Left ("Unable to parse EditsTestersPatchTrack from: " <> x)

254

255−instance ToText EditsTestersPatchTrack where

255+instance ToHttpApiData EditsTestersPatchTrack where

256− toText = \case

256+ toQueryParam = \case

257 ETPTAlpha -> "alpha"

258 ETPTBeta -> "beta"

259 ETPTProduction -> "production"

@@ -278,16 +278,16 @@ data EditsTestersGetTrack

278

279instance Hashable EditsTestersGetTrack

280

281−instance FromText EditsTestersGetTrack where

281+instance FromHttpApiData EditsTestersGetTrack where

282− fromText = \case

282+ parseQueryParam = \case

283− "alpha" -> Just EAlpha

283+ "alpha" -> Right EAlpha

284− "beta" -> Just EBeta

284+ "beta" -> Right EBeta

285− "production" -> Just EProduction

285+ "production" -> Right EProduction

286− "rollout" -> Just ERollout

286+ "rollout" -> Right ERollout

287− _ -> Nothing

287+ x -> Left ("Unable to parse EditsTestersGetTrack from: " <> x)

288

289−instance ToText EditsTestersGetTrack where

289+instance ToHttpApiData EditsTestersGetTrack where

290− toText = \case

290+ toQueryParam = \case

291 EAlpha -> "alpha"

292 EBeta -> "beta"

293 EProduction -> "production"

@@ -322,21 +322,21 @@ data EditsImagesUploadImageType

322

323instance Hashable EditsImagesUploadImageType

324

325−instance FromText EditsImagesUploadImageType where

325+instance FromHttpApiData EditsImagesUploadImageType where

326− fromText = \case

326+ parseQueryParam = \case

327− "featureGraphic" -> Just EIUITFeatureGraphic

327+ "featureGraphic" -> Right EIUITFeatureGraphic

328− "icon" -> Just EIUITIcon

328+ "icon" -> Right EIUITIcon

329− "phoneScreenshots" -> Just EIUITPhoneScreenshots

329+ "phoneScreenshots" -> Right EIUITPhoneScreenshots

330− "promoGraphic" -> Just EIUITPromoGraphic

330+ "promoGraphic" -> Right EIUITPromoGraphic

331− "sevenInchScreenshots" -> Just EIUITSevenInchScreenshots

331+ "sevenInchScreenshots" -> Right EIUITSevenInchScreenshots

332− "tenInchScreenshots" -> Just EIUITTenInchScreenshots

332+ "tenInchScreenshots" -> Right EIUITTenInchScreenshots

333− "tvBanner" -> Just EIUITTvBanner

333+ "tvBanner" -> Right EIUITTvBanner

334− "tvScreenshots" -> Just EIUITTvScreenshots

334+ "tvScreenshots" -> Right EIUITTvScreenshots

335− "wearScreenshots" -> Just EIUITWearScreenshots

335+ "wearScreenshots" -> Right EIUITWearScreenshots

336− _ -> Nothing

336+ x -> Left ("Unable to parse EditsImagesUploadImageType from: " <> x)

337−

337+

338−instance ToText EditsImagesUploadImageType where

338+instance ToHttpApiData EditsImagesUploadImageType where

339− toText = \case

339+ toQueryParam = \case

340 EIUITFeatureGraphic -> "featureGraphic"

341 EIUITIcon -> "icon"

342 EIUITPhoneScreenshots -> "phoneScreenshots"

@@ -362,14 +362,14 @@ data EditsExpansionFilesUploadExpansionFileType

362

363instance Hashable EditsExpansionFilesUploadExpansionFileType

364

365−instance FromText EditsExpansionFilesUploadExpansionFileType where

365+instance FromHttpApiData EditsExpansionFilesUploadExpansionFileType where

366− fromText = \case

366+ parseQueryParam = \case

367− "main" -> Just Main

367+ "main" -> Right Main

368− "patch" -> Just Patch'

368+ "patch" -> Right Patch'

369− _ -> Nothing

369+ x -> Left ("Unable to parse EditsExpansionFilesUploadExpansionFileType from: " <> x)

370

371−instance ToText EditsExpansionFilesUploadExpansionFileType where

371+instance ToHttpApiData EditsExpansionFilesUploadExpansionFileType where

372− toText = \case

372+ toQueryParam = \case

373 Main -> "main"

374 Patch' -> "patch"

375

@@ -388,14 +388,14 @@ data EditsExpansionFilesGetExpansionFileType

388

389instance Hashable EditsExpansionFilesGetExpansionFileType

390

391−instance FromText EditsExpansionFilesGetExpansionFileType where

391+instance FromHttpApiData EditsExpansionFilesGetExpansionFileType where

392− fromText = \case

392+ parseQueryParam = \case

393− "main" -> Just EEFGEFTMain

393+ "main" -> Right EEFGEFTMain

394− "patch" -> Just EEFGEFTPatch'

394+ "patch" -> Right EEFGEFTPatch'

395− _ -> Nothing

395+ x -> Left ("Unable to parse EditsExpansionFilesGetExpansionFileType from: " <> x)

396

397−instance ToText EditsExpansionFilesGetExpansionFileType where

397+instance ToHttpApiData EditsExpansionFilesGetExpansionFileType where

398− toText = \case

398+ toQueryParam = \case

399 EEFGEFTMain -> "main"

400 EEFGEFTPatch' -> "patch"

401

@@ -414,14 +414,14 @@ data EditsExpansionFilesPatchExpansionFileType

414

415instance Hashable EditsExpansionFilesPatchExpansionFileType

416

417−instance FromText EditsExpansionFilesPatchExpansionFileType where

417+instance FromHttpApiData EditsExpansionFilesPatchExpansionFileType where

418− fromText = \case

418+ parseQueryParam = \case

419− "main" -> Just EEFPEFTMain

419+ "main" -> Right EEFPEFTMain

420− "patch" -> Just EEFPEFTPatch'

420+ "patch" -> Right EEFPEFTPatch'

421− _ -> Nothing

421+ x -> Left ("Unable to parse EditsExpansionFilesPatchExpansionFileType from: " <> x)

422

423−instance ToText EditsExpansionFilesPatchExpansionFileType where

423+instance ToHttpApiData EditsExpansionFilesPatchExpansionFileType where

424− toText = \case

424+ toQueryParam = \case

425 EEFPEFTMain -> "main"

426 EEFPEFTPatch' -> "patch"

427

@@ -440,14 +440,14 @@ data EditsExpansionFilesUpdateExpansionFileType

440

441instance Hashable EditsExpansionFilesUpdateExpansionFileType

442

443−instance FromText EditsExpansionFilesUpdateExpansionFileType where

443+instance FromHttpApiData EditsExpansionFilesUpdateExpansionFileType where

444− fromText = \case

444+ parseQueryParam = \case

445− "main" -> Just EEFUEFTMain

445+ "main" -> Right EEFUEFTMain

446− "patch" -> Just EEFUEFTPatch'

446+ "patch" -> Right EEFUEFTPatch'

447− _ -> Nothing

447+ x -> Left ("Unable to parse EditsExpansionFilesUpdateExpansionFileType from: " <> x)

448

449−instance ToText EditsExpansionFilesUpdateExpansionFileType where

449+instance ToHttpApiData EditsExpansionFilesUpdateExpansionFileType where

450− toText = \case

450+ toQueryParam = \case

451 EEFUEFTMain -> "main"

452 EEFUEFTPatch' -> "patch"

453

@@ -480,21 +480,21 @@ data EditsImagesDeleteImageType

480

481instance Hashable EditsImagesDeleteImageType

482

483−instance FromText EditsImagesDeleteImageType where

483+instance FromHttpApiData EditsImagesDeleteImageType where

484− fromText = \case

484+ parseQueryParam = \case

485− "featureGraphic" -> Just EIDITFeatureGraphic

485+ "featureGraphic" -> Right EIDITFeatureGraphic

486− "icon" -> Just EIDITIcon

486+ "icon" -> Right EIDITIcon

487− "phoneScreenshots" -> Just EIDITPhoneScreenshots

487+ "phoneScreenshots" -> Right EIDITPhoneScreenshots

488− "promoGraphic" -> Just EIDITPromoGraphic

488+ "promoGraphic" -> Right EIDITPromoGraphic

489− "sevenInchScreenshots" -> Just EIDITSevenInchScreenshots

489+ "sevenInchScreenshots" -> Right EIDITSevenInchScreenshots

490− "tenInchScreenshots" -> Just EIDITTenInchScreenshots

490+ "tenInchScreenshots" -> Right EIDITTenInchScreenshots

491− "tvBanner" -> Just EIDITTvBanner

491+ "tvBanner" -> Right EIDITTvBanner

492− "tvScreenshots" -> Just EIDITTvScreenshots

492+ "tvScreenshots" -> Right EIDITTvScreenshots

493− "wearScreenshots" -> Just EIDITWearScreenshots

493+ "wearScreenshots" -> Right EIDITWearScreenshots

494− _ -> Nothing

494+ x -> Left ("Unable to parse EditsImagesDeleteImageType from: " <> x)

495−

495+

496−instance ToText EditsImagesDeleteImageType where

496+instance ToHttpApiData EditsImagesDeleteImageType where

497− toText = \case

497+ toQueryParam = \case

498 EIDITFeatureGraphic -> "featureGraphic"

499 EIDITIcon -> "icon"

500 EIDITPhoneScreenshots -> "phoneScreenshots"

@@ -524,16 +524,16 @@ data EditsTestersUpdateTrack

524

525instance Hashable EditsTestersUpdateTrack

526

527−instance FromText EditsTestersUpdateTrack where

527+instance FromHttpApiData EditsTestersUpdateTrack where

528− fromText = \case

528+ parseQueryParam = \case

529− "alpha" -> Just EDIAlpha

529+ "alpha" -> Right EDIAlpha

530− "beta" -> Just EDIBeta

530+ "beta" -> Right EDIBeta

531− "production" -> Just EDIProduction

531+ "production" -> Right EDIProduction

532− "rollout" -> Just EDIRollout

532+ "rollout" -> Right EDIRollout

533− _ -> Nothing

533+ x -> Left ("Unable to parse EditsTestersUpdateTrack from: " <> x)

534

535−instance ToText EditsTestersUpdateTrack where

535+instance ToHttpApiData EditsTestersUpdateTrack where

536− toText = \case

536+ toQueryParam = \case

537 EDIAlpha -> "alpha"

538 EDIBeta -> "beta"

539 EDIProduction -> "production"

gogol-apps-activity/gen/Network/Google/AppsActivity/Types/Sum.hs+59−59

@@ -46,23 +46,23 @@ data EventPrimaryEventType

47instance Hashable EventPrimaryEventType

49−instance FromText EventPrimaryEventType where

49+instance FromHttpApiData EventPrimaryEventType where

50− fromText = \case

50+ parseQueryParam = \case

51− "comment" -> Just EPETComment

51+ "comment" -> Right EPETComment

52− "create" -> Just EPETCreate

52+ "create" -> Right EPETCreate

53− "edit" -> Just EPETEdit

53+ "edit" -> Right EPETEdit

54− "emptyTrash" -> Just EPETEmptyTrash

54+ "emptyTrash" -> Right EPETEmptyTrash

55− "move" -> Just EPETMove

55+ "move" -> Right EPETMove

56− "permissionChange" -> Just EPETPermissionChange

56+ "permissionChange" -> Right EPETPermissionChange

57− "rename" -> Just EPETRename

57+ "rename" -> Right EPETRename

58− "trash" -> Just EPETTrash

58+ "trash" -> Right EPETTrash

59− "unknown" -> Just EPETUnknown

59+ "unknown" -> Right EPETUnknown

60− "untrash" -> Just EPETUntrash

60+ "untrash" -> Right EPETUntrash

61− "upload" -> Just EPETUpload

61+ "upload" -> Right EPETUpload

62− _ -> Nothing

62+ x -> Left ("Unable to parse EventPrimaryEventType from: " <> x)

63−

63+

64−instance ToText EventPrimaryEventType where

64+instance ToHttpApiData EventPrimaryEventType where

65− toText = \case

65+ toQueryParam = \case

66 EPETComment -> "comment"

67 EPETCreate -> "create"

68 EPETEdit -> "edit"

@@ -96,16 +96,16 @@ data PermissionRole

97instance Hashable PermissionRole

99−instance FromText PermissionRole where

99+instance FromHttpApiData PermissionRole where

100− fromText = \case

100+ parseQueryParam = \case

101− "commenter" -> Just Commenter

101+ "commenter" -> Right Commenter

102− "owner" -> Just Owner

102+ "owner" -> Right Owner

103− "reader" -> Just Reader

103+ "reader" -> Right Reader

104− "writer" -> Just Writer

104+ "writer" -> Right Writer

105− _ -> Nothing

105+ x -> Left ("Unable to parse PermissionRole from: " <> x)

106

107−instance ToText PermissionRole where

107+instance ToHttpApiData PermissionRole where

108− toText = \case

108+ toQueryParam = \case

109 Commenter -> "commenter"

110 Owner -> "owner"

111 Reader -> "reader"

@@ -131,16 +131,16 @@ data PermissionType

131

132instance Hashable PermissionType

133

134−instance FromText PermissionType where

134+instance FromHttpApiData PermissionType where

135− fromText = \case

135+ parseQueryParam = \case

136− "anyone" -> Just PTAnyone

136+ "anyone" -> Right PTAnyone

137− "domain" -> Just PTDomain

137+ "domain" -> Right PTDomain

138− "group" -> Just PTGroup

138+ "group" -> Right PTGroup

139− "user" -> Just PTUser

139+ "user" -> Right PTUser

140− _ -> Nothing

140+ x -> Left ("Unable to parse PermissionType from: " <> x)

141

142−instance ToText PermissionType where

142+instance ToHttpApiData PermissionType where

143− toText = \case

143+ toQueryParam = \case

144 PTAnyone -> "anyone"

145 PTDomain -> "domain"

146 PTGroup -> "group"

@@ -179,23 +179,23 @@ data EventAdditionalEventTypesItem

179

180instance Hashable EventAdditionalEventTypesItem

181

182−instance FromText EventAdditionalEventTypesItem where

182+instance FromHttpApiData EventAdditionalEventTypesItem where

183− fromText = \case

183+ parseQueryParam = \case

184− "comment" -> Just EAETIComment

184+ "comment" -> Right EAETIComment

185− "create" -> Just EAETICreate

185+ "create" -> Right EAETICreate

186− "edit" -> Just EAETIEdit

186+ "edit" -> Right EAETIEdit

187− "emptyTrash" -> Just EAETIEmptyTrash

187+ "emptyTrash" -> Right EAETIEmptyTrash

188− "move" -> Just EAETIMove

188+ "move" -> Right EAETIMove

189− "permissionChange" -> Just EAETIPermissionChange

189+ "permissionChange" -> Right EAETIPermissionChange

190− "rename" -> Just EAETIRename

190+ "rename" -> Right EAETIRename

191− "trash" -> Just EAETITrash

191+ "trash" -> Right EAETITrash

192− "unknown" -> Just EAETIUnknown

192+ "unknown" -> Right EAETIUnknown

193− "untrash" -> Just EAETIUntrash

193+ "untrash" -> Right EAETIUntrash

194− "upload" -> Just EAETIUpload

194+ "upload" -> Right EAETIUpload

195− _ -> Nothing

195+ x -> Left ("Unable to parse EventAdditionalEventTypesItem from: " <> x)

196−

196+

197−instance ToText EventAdditionalEventTypesItem where

197+instance ToHttpApiData EventAdditionalEventTypesItem where

198− toText = \case

198+ toQueryParam = \case

199 EAETIComment -> "comment"

200 EAETICreate -> "create"

201 EAETIEdit -> "edit"

@@ -225,14 +225,14 @@ data ActivitiesListGroupingStrategy

225

226instance Hashable ActivitiesListGroupingStrategy

227

228−instance FromText ActivitiesListGroupingStrategy where

228+instance FromHttpApiData ActivitiesListGroupingStrategy where

229− fromText = \case

229+ parseQueryParam = \case

230− "driveUi" -> Just DriveUi

230+ "driveUi" -> Right DriveUi

231− "none" -> Just None

231+ "none" -> Right None

232− _ -> Nothing

232+ x -> Left ("Unable to parse ActivitiesListGroupingStrategy from: " <> x)

233

234−instance ToText ActivitiesListGroupingStrategy where

234+instance ToHttpApiData ActivitiesListGroupingStrategy where

235− toText = \case

235+ toQueryParam = \case

236 DriveUi -> "driveUi"

237 None -> "none"

238

gogol-apps-calendar/gen/Network/Google/AppsCalendar/Types/Sum.hs+33−33

@@ -32,14 +32,14 @@ data EventsListOrderBy

33instance Hashable EventsListOrderBy

35−instance FromText EventsListOrderBy where

35+instance FromHttpApiData EventsListOrderBy where

36− fromText = \case

36+ parseQueryParam = \case

37− "startTime" -> Just StartTime

37+ "startTime" -> Right StartTime

38− "updated" -> Just Updated

38+ "updated" -> Right Updated

39− _ -> Nothing

39+ x -> Left ("Unable to parse EventsListOrderBy from: " <> x)

40−

40+

41−instance ToText EventsListOrderBy where

41+instance ToHttpApiData EventsListOrderBy where

42− toText = \case

42+ toQueryParam = \case

43 StartTime -> "startTime"

44 Updated -> "updated"

@@ -68,16 +68,16 @@ data CalendarListListMinAccessRole

69instance Hashable CalendarListListMinAccessRole

71−instance FromText CalendarListListMinAccessRole where

71+instance FromHttpApiData CalendarListListMinAccessRole where

72− fromText = \case

72+ parseQueryParam = \case

73− "freeBusyReader" -> Just FreeBusyReader

73+ "freeBusyReader" -> Right FreeBusyReader

74− "owner" -> Just Owner

74+ "owner" -> Right Owner

75− "reader" -> Just Reader

75+ "reader" -> Right Reader

76− "writer" -> Just Writer

76+ "writer" -> Right Writer

77− _ -> Nothing

77+ x -> Left ("Unable to parse CalendarListListMinAccessRole from: " <> x)

79−instance ToText CalendarListListMinAccessRole where

79+instance ToHttpApiData CalendarListListMinAccessRole where

80− toText = \case

80+ toQueryParam = \case

81 FreeBusyReader -> "freeBusyReader"

82 Owner -> "owner"

83 Reader -> "reader"

@@ -103,14 +103,14 @@ data EventsWatchOrderBy

103

104instance Hashable EventsWatchOrderBy

105

106−instance FromText EventsWatchOrderBy where

106+instance FromHttpApiData EventsWatchOrderBy where

107− fromText = \case

107+ parseQueryParam = \case

108− "startTime" -> Just EWOBStartTime

108+ "startTime" -> Right EWOBStartTime

109− "updated" -> Just EWOBUpdated

109+ "updated" -> Right EWOBUpdated

110− _ -> Nothing

110+ x -> Left ("Unable to parse EventsWatchOrderBy from: " <> x)

111

112−instance ToText EventsWatchOrderBy where

112+instance ToHttpApiData EventsWatchOrderBy where

113− toText = \case

113+ toQueryParam = \case

114 EWOBStartTime -> "startTime"

115 EWOBUpdated -> "updated"

116

@@ -139,16 +139,16 @@ data CalendarListWatchMinAccessRole

139

140instance Hashable CalendarListWatchMinAccessRole

141

142−instance FromText CalendarListWatchMinAccessRole where

142+instance FromHttpApiData CalendarListWatchMinAccessRole where

143− fromText = \case

143+ parseQueryParam = \case

144− "freeBusyReader" -> Just CLWMARFreeBusyReader

144+ "freeBusyReader" -> Right CLWMARFreeBusyReader

145− "owner" -> Just CLWMAROwner

145+ "owner" -> Right CLWMAROwner

146− "reader" -> Just CLWMARReader

146+ "reader" -> Right CLWMARReader

147− "writer" -> Just CLWMARWriter

147+ "writer" -> Right CLWMARWriter

148− _ -> Nothing

148+ x -> Left ("Unable to parse CalendarListWatchMinAccessRole from: " <> x)

149

150−instance ToText CalendarListWatchMinAccessRole where

150+instance ToHttpApiData CalendarListWatchMinAccessRole where

151− toText = \case

151+ toQueryParam = \case

152 CLWMARFreeBusyReader -> "freeBusyReader"

153 CLWMAROwner -> "owner"

154 CLWMARReader -> "reader"

gogol-apps-reseller/gen/Network/Google/AppsReseller/Types/Sum.hs+10−10

@@ -36,16 +36,16 @@ data SubscriptionsDeleteDeletionType

37instance Hashable SubscriptionsDeleteDeletionType

39−instance FromText SubscriptionsDeleteDeletionType where

39+instance FromHttpApiData SubscriptionsDeleteDeletionType where

40− fromText = \case

40+ parseQueryParam = \case

41− "cancel" -> Just Cancel

41+ "cancel" -> Right Cancel

42− "downgrade" -> Just Downgrade

42+ "downgrade" -> Right Downgrade

43− "suspend" -> Just Suspend

43+ "suspend" -> Right Suspend

44− "transfer_to_direct" -> Just TransferToDirect

44+ "transfer_to_direct" -> Right TransferToDirect

45− _ -> Nothing

45+ x -> Left ("Unable to parse SubscriptionsDeleteDeletionType from: " <> x)

46−

46+

47−instance ToText SubscriptionsDeleteDeletionType where

47+instance ToHttpApiData SubscriptionsDeleteDeletionType where

48− toText = \case

48+ toQueryParam = \case

49 Cancel -> "cancel"

50 Downgrade -> "downgrade"

51 Suspend -> "suspend"

gogol-bigquery/gen/Network/Google/BigQuery/Types/Sum.hs+15−15

@@ -30,14 +30,14 @@ data JobsListProjection

31instance Hashable JobsListProjection

33−instance FromText JobsListProjection where

33+instance FromHttpApiData JobsListProjection where

34− fromText = \case

34+ parseQueryParam = \case

35− "full" -> Just Full

35+ "full" -> Right Full

36− "minimal" -> Just Minimal

36+ "minimal" -> Right Minimal

37− _ -> Nothing

37+ x -> Left ("Unable to parse JobsListProjection from: " <> x)

39−instance ToText JobsListProjection where

39+instance ToHttpApiData JobsListProjection where

40− toText = \case

40+ toQueryParam = \case

41 Full -> "full"

42 Minimal -> "minimal"

@@ -62,15 +62,15 @@ data JobsListStateFilter

63instance Hashable JobsListStateFilter

65−instance FromText JobsListStateFilter where

65+instance FromHttpApiData JobsListStateFilter where

66− fromText = \case

66+ parseQueryParam = \case

67− "done" -> Just Done

67+ "done" -> Right Done

68− "pending" -> Just Pending

68+ "pending" -> Right Pending

69− "running" -> Just Running

69+ "running" -> Right Running

70− _ -> Nothing

70+ x -> Left ("Unable to parse JobsListStateFilter from: " <> x)

72−instance ToText JobsListStateFilter where

72+instance ToHttpApiData JobsListStateFilter where

73− toText = \case

73+ toQueryParam = \case

74 Done -> "done"

75 Pending -> "pending"

76 Running -> "running"

gogol-blogger/gen/Network/Google/Blogger/Types/Sum.hs+174−174

@@ -30,14 +30,14 @@ data PostsListOrderBy

31instance Hashable PostsListOrderBy

33−instance FromText PostsListOrderBy where

33+instance FromHttpApiData PostsListOrderBy where

34− fromText = \case

34+ parseQueryParam = \case

35− "published" -> Just Published

35+ "published" -> Right Published

36− "updated" -> Just Updated

36+ "updated" -> Right Updated

37− _ -> Nothing

37+ x -> Left ("Unable to parse PostsListOrderBy from: " <> x)

38−

38+

39−instance ToText PostsListOrderBy where

39+instance ToHttpApiData PostsListOrderBy where

40− toText = \case

40+ toQueryParam = \case

41 Published -> "published"

42 Updated -> "updated"

@@ -63,15 +63,15 @@ data PostsListView

64instance Hashable PostsListView

66−instance FromText PostsListView where

66+instance FromHttpApiData PostsListView where

67− fromText = \case

67+ parseQueryParam = \case

68− "ADMIN" -> Just Admin

68+ "ADMIN" -> Right Admin

69− "AUTHOR" -> Just Author

69+ "AUTHOR" -> Right Author

70− "READER" -> Just Reader

70+ "READER" -> Right Reader

71− _ -> Nothing

71+ x -> Left ("Unable to parse PostsListView from: " <> x)

73−instance ToText PostsListView where

73+instance ToHttpApiData PostsListView where

74− toText = \case

74+ toQueryParam = \case

75 Admin -> "ADMIN"

76 Author -> "AUTHOR"

77 Reader -> "READER"

@@ -96,15 +96,15 @@ data PageViewsGetRange

97instance Hashable PageViewsGetRange

99−instance FromText PageViewsGetRange where

99+instance FromHttpApiData PageViewsGetRange where

100− fromText = \case

100+ parseQueryParam = \case

101− "30DAYS" -> Just PVGR30DAYS

101+ "30DAYS" -> Right PVGR30DAYS

102− "7DAYS" -> Just PVGR7DAYS

102+ "7DAYS" -> Right PVGR7DAYS

103− "all" -> Just PVGRAll

103+ "all" -> Right PVGRAll

104− _ -> Nothing

104+ x -> Left ("Unable to parse PageViewsGetRange from: " <> x)

105

106−instance ToText PageViewsGetRange where

106+instance ToHttpApiData PageViewsGetRange where

107− toText = \case

107+ toQueryParam = \case

108 PVGR30DAYS -> "30DAYS"

109 PVGR7DAYS -> "7DAYS"

110 PVGRAll -> "all"

@@ -131,15 +131,15 @@ data CommentsListView

131

132instance Hashable CommentsListView

133

134−instance FromText CommentsListView where

134+instance FromHttpApiData CommentsListView where

135− fromText = \case

135+ parseQueryParam = \case

136− "ADMIN" -> Just CLVAdmin

136+ "ADMIN" -> Right CLVAdmin

137− "AUTHOR" -> Just CLVAuthor

137+ "AUTHOR" -> Right CLVAuthor

138− "READER" -> Just CLVReader

138+ "READER" -> Right CLVReader

139− _ -> Nothing

139+ x -> Left ("Unable to parse CommentsListView from: " <> x)

140

141−instance ToText CommentsListView where

141+instance ToHttpApiData CommentsListView where

142− toText = \case

142+ toQueryParam = \case

143 CLVAdmin -> "ADMIN"

144 CLVAuthor -> "AUTHOR"

145 CLVReader -> "READER"

@@ -164,15 +164,15 @@ data PostUserInfosListStatus

164

165instance Hashable PostUserInfosListStatus

166

167−instance FromText PostUserInfosListStatus where

167+instance FromHttpApiData PostUserInfosListStatus where

168− fromText = \case

168+ parseQueryParam = \case

169− "draft" -> Just Draft

169+ "draft" -> Right Draft

170− "live" -> Just Live

170+ "live" -> Right Live

171− "scheduled" -> Just Scheduled

171+ "scheduled" -> Right Scheduled

172− _ -> Nothing

172+ x -> Left ("Unable to parse PostUserInfosListStatus from: " <> x)

173

174−instance ToText PostUserInfosListStatus where

174+instance ToHttpApiData PostUserInfosListStatus where

175− toText = \case

175+ toQueryParam = \case

176 Draft -> "draft"

177 Live -> "live"

178 Scheduled -> "scheduled"

@@ -199,15 +199,15 @@ data PostsGetView

199

200instance Hashable PostsGetView

201

202−instance FromText PostsGetView where

202+instance FromHttpApiData PostsGetView where

203− fromText = \case

203+ parseQueryParam = \case

204− "ADMIN" -> Just PGVAdmin

204+ "ADMIN" -> Right PGVAdmin

205− "AUTHOR" -> Just PGVAuthor

205+ "AUTHOR" -> Right PGVAuthor

206− "READER" -> Just PGVReader

206+ "READER" -> Right PGVReader

207− _ -> Nothing

207+ x -> Left ("Unable to parse PostsGetView from: " <> x)

208

209−instance ToText PostsGetView where

209+instance ToHttpApiData PostsGetView where

210− toText = \case

210+ toQueryParam = \case

211 PGVAdmin -> "ADMIN"

212 PGVAuthor -> "AUTHOR"

213 PGVReader -> "READER"

@@ -230,14 +230,14 @@ data PostsSearchOrderBy

230

231instance Hashable PostsSearchOrderBy

232

233−instance FromText PostsSearchOrderBy where

233+instance FromHttpApiData PostsSearchOrderBy where

234− fromText = \case

234+ parseQueryParam = \case

235− "published" -> Just PSOBPublished

235+ "published" -> Right PSOBPublished

236− "updated" -> Just PSOBUpdated

236+ "updated" -> Right PSOBUpdated

237− _ -> Nothing

237+ x -> Left ("Unable to parse PostsSearchOrderBy from: " <> x)

238

239−instance ToText PostsSearchOrderBy where

239+instance ToHttpApiData PostsSearchOrderBy where

240− toText = \case

240+ toQueryParam = \case

241 PSOBPublished -> "published"

242 PSOBUpdated -> "updated"

243

@@ -264,16 +264,16 @@ data CommentsListByBlogStatus

264

265instance Hashable CommentsListByBlogStatus

266

267−instance FromText CommentsListByBlogStatus where

267+instance FromHttpApiData CommentsListByBlogStatus where

268− fromText = \case

268+ parseQueryParam = \case

269− "emptied" -> Just CLBBSEmptied

269+ "emptied" -> Right CLBBSEmptied

270− "live" -> Just CLBBSLive

270+ "live" -> Right CLBBSLive

271− "pending" -> Just CLBBSPending

271+ "pending" -> Right CLBBSPending

272− "spam" -> Just CLBBSSpam

272+ "spam" -> Right CLBBSSpam

273− _ -> Nothing

273+ x -> Left ("Unable to parse CommentsListByBlogStatus from: " <> x)

274

275−instance ToText CommentsListByBlogStatus where

275+instance ToHttpApiData CommentsListByBlogStatus where

276− toText = \case

276+ toQueryParam = \case

277 CLBBSEmptied -> "emptied"

278 CLBBSLive -> "live"

279 CLBBSPending -> "pending"

@@ -299,15 +299,15 @@ data PagesGetView

299

300instance Hashable PagesGetView

301

302−instance FromText PagesGetView where

302+instance FromHttpApiData PagesGetView where

303− fromText = \case

303+ parseQueryParam = \case

304− "ADMIN" -> Just PAdmin

304+ "ADMIN" -> Right PAdmin

305− "AUTHOR" -> Just PAuthor

305+ "AUTHOR" -> Right PAuthor

306− "READER" -> Just PReader

306+ "READER" -> Right PReader

307− _ -> Nothing

307+ x -> Left ("Unable to parse PagesGetView from: " <> x)

308

309−instance ToText PagesGetView where

309+instance ToHttpApiData PagesGetView where

310− toText = \case

310+ toQueryParam = \case

311 PAdmin -> "ADMIN"

312 PAuthor -> "AUTHOR"

313 PReader -> "READER"

@@ -330,14 +330,14 @@ data PostUserInfosListOrderBy

330

331instance Hashable PostUserInfosListOrderBy

332

333−instance FromText PostUserInfosListOrderBy where

333+instance FromHttpApiData PostUserInfosListOrderBy where

334− fromText = \case

334+ parseQueryParam = \case

335− "published" -> Just PUILOBPublished

335+ "published" -> Right PUILOBPublished

336− "updated" -> Just PUILOBUpdated

336+ "updated" -> Right PUILOBUpdated

337− _ -> Nothing

337+ x -> Left ("Unable to parse PostUserInfosListOrderBy from: " <> x)

338

339−instance ToText PostUserInfosListOrderBy where

339+instance ToHttpApiData PostUserInfosListOrderBy where

340− toText = \case

340+ toQueryParam = \case

341 PUILOBPublished -> "published"

342 PUILOBUpdated -> "updated"

343

@@ -363,15 +363,15 @@ data BlogsGetView

363

364instance Hashable BlogsGetView

365

366−instance FromText BlogsGetView where

366+instance FromHttpApiData BlogsGetView where

367− fromText = \case

367+ parseQueryParam = \case

368− "ADMIN" -> Just BGVAdmin

368+ "ADMIN" -> Right BGVAdmin

369− "AUTHOR" -> Just BGVAuthor

369+ "AUTHOR" -> Right BGVAuthor

370− "READER" -> Just BGVReader

370+ "READER" -> Right BGVReader

371− _ -> Nothing

371+ x -> Left ("Unable to parse BlogsGetView from: " <> x)

372

373−instance ToText BlogsGetView where

373+instance ToHttpApiData BlogsGetView where

374− toText = \case

374+ toQueryParam = \case

375 BGVAdmin -> "ADMIN"

376 BGVAuthor -> "AUTHOR"

377 BGVReader -> "READER"

@@ -398,15 +398,15 @@ data BlogsGetByURLView

398

399instance Hashable BlogsGetByURLView

400

401−instance FromText BlogsGetByURLView where

401+instance FromHttpApiData BlogsGetByURLView where

402− fromText = \case

402+ parseQueryParam = \case

403− "ADMIN" -> Just BGBUVAdmin

403+ "ADMIN" -> Right BGBUVAdmin

404− "AUTHOR" -> Just BGBUVAuthor

404+ "AUTHOR" -> Right BGBUVAuthor

405− "READER" -> Just BGBUVReader

405+ "READER" -> Right BGBUVReader

406− _ -> Nothing

406+ x -> Left ("Unable to parse BlogsGetByURLView from: " <> x)

407

408−instance ToText BlogsGetByURLView where

408+instance ToHttpApiData BlogsGetByURLView where

409− toText = \case

409+ toQueryParam = \case

410 BGBUVAdmin -> "ADMIN"

411 BGBUVAuthor -> "AUTHOR"

412 BGBUVReader -> "READER"

@@ -434,16 +434,16 @@ data CommentsListStatus

434

435instance Hashable CommentsListStatus

436

437−instance FromText CommentsListStatus where

437+instance FromHttpApiData CommentsListStatus where

438− fromText = \case

438+ parseQueryParam = \case

439− "emptied" -> Just CLSEmptied

439+ "emptied" -> Right CLSEmptied

440− "live" -> Just CLSLive

440+ "live" -> Right CLSLive

441− "pending" -> Just CLSPending

441+ "pending" -> Right CLSPending

442− "spam" -> Just CLSSpam

442+ "spam" -> Right CLSSpam

443− _ -> Nothing

443+ x -> Left ("Unable to parse CommentsListStatus from: " <> x)

444

445−instance ToText CommentsListStatus where

445+instance ToHttpApiData CommentsListStatus where

446− toText = \case

446+ toQueryParam = \case

447 CLSEmptied -> "emptied"

448 CLSLive -> "live"

449 CLSPending -> "pending"

@@ -468,14 +468,14 @@ data BlogsListByUserStatus

468

469instance Hashable BlogsListByUserStatus

470

471−instance FromText BlogsListByUserStatus where

471+instance FromHttpApiData BlogsListByUserStatus where

472− fromText = \case

472+ parseQueryParam = \case

473− "DELETED" -> Just BLBUSDeleted

473+ "DELETED" -> Right BLBUSDeleted

474− "LIVE" -> Just BLBUSLive

474+ "LIVE" -> Right BLBUSLive

475− _ -> Nothing

475+ x -> Left ("Unable to parse BlogsListByUserStatus from: " <> x)

476

477−instance ToText BlogsListByUserStatus where

477+instance ToHttpApiData BlogsListByUserStatus where

478− toText = \case

478+ toQueryParam = \case

479 BLBUSDeleted -> "DELETED"

480 BLBUSLive -> "LIVE"

481

@@ -501,15 +501,15 @@ data PagesListView

501

502instance Hashable PagesListView

503

504−instance FromText PagesListView where

504+instance FromHttpApiData PagesListView where

505− fromText = \case

505+ parseQueryParam = \case

506− "ADMIN" -> Just PLVAdmin

506+ "ADMIN" -> Right PLVAdmin

507− "AUTHOR" -> Just PLVAuthor

507+ "AUTHOR" -> Right PLVAuthor

508− "READER" -> Just PLVReader

508+ "READER" -> Right PLVReader

509− _ -> Nothing

509+ x -> Left ("Unable to parse PagesListView from: " <> x)

510

511−instance ToText PagesListView where

511+instance ToHttpApiData PagesListView where

512− toText = \case

512+ toQueryParam = \case

513 PLVAdmin -> "ADMIN"

514 PLVAuthor -> "AUTHOR"

515 PLVReader -> "READER"

@@ -535,15 +535,15 @@ data PostsListStatus

535

536instance Hashable PostsListStatus

537

538−instance FromText PostsListStatus where

538+instance FromHttpApiData PostsListStatus where

539− fromText = \case

539+ parseQueryParam = \case

540− "draft" -> Just PLSDraft

540+ "draft" -> Right PLSDraft

541− "live" -> Just PLSLive

541+ "live" -> Right PLSLive

542− "scheduled" -> Just PLSScheduled

542+ "scheduled" -> Right PLSScheduled

543− _ -> Nothing

543+ x -> Left ("Unable to parse PostsListStatus from: " <> x)

544

545−instance ToText PostsListStatus where

545+instance ToHttpApiData PostsListStatus where

546− toText = \case

546+ toQueryParam = \case

547 PLSDraft -> "draft"

548 PLSLive -> "live"

549 PLSScheduled -> "scheduled"

@@ -570,15 +570,15 @@ data BlogsListByUserView

570

571instance Hashable BlogsListByUserView

572

573−instance FromText BlogsListByUserView where

573+instance FromHttpApiData BlogsListByUserView where

574− fromText = \case

574+ parseQueryParam = \case

575− "ADMIN" -> Just BLBUVAdmin

575+ "ADMIN" -> Right BLBUVAdmin

576− "AUTHOR" -> Just BLBUVAuthor

576+ "AUTHOR" -> Right BLBUVAuthor

577− "READER" -> Just BLBUVReader

577+ "READER" -> Right BLBUVReader

578− _ -> Nothing

578+ x -> Left ("Unable to parse BlogsListByUserView from: " <> x)

579

580−instance ToText BlogsListByUserView where

580+instance ToHttpApiData BlogsListByUserView where

581− toText = \case

581+ toQueryParam = \case

582 BLBUVAdmin -> "ADMIN"

583 BLBUVAuthor -> "AUTHOR"

584 BLBUVReader -> "READER"

@@ -605,15 +605,15 @@ data PostUserInfosListView

605

606instance Hashable PostUserInfosListView

607

608−instance FromText PostUserInfosListView where

608+instance FromHttpApiData PostUserInfosListView where

609− fromText = \case

609+ parseQueryParam = \case

610− "ADMIN" -> Just PUILVAdmin

610+ "ADMIN" -> Right PUILVAdmin

611− "AUTHOR" -> Just PUILVAuthor

611+ "AUTHOR" -> Right PUILVAuthor

612− "READER" -> Just PUILVReader

612+ "READER" -> Right PUILVReader

613− _ -> Nothing

613+ x -> Left ("Unable to parse PostUserInfosListView from: " <> x)

614

615−instance ToText PostUserInfosListView where

615+instance ToHttpApiData PostUserInfosListView where

616− toText = \case

616+ toQueryParam = \case

617 PUILVAdmin -> "ADMIN"

618 PUILVAuthor -> "AUTHOR"

619 PUILVReader -> "READER"

@@ -642,15 +642,15 @@ data CommentsGetView

642

643instance Hashable CommentsGetView

644

645−instance FromText CommentsGetView where

645+instance FromHttpApiData CommentsGetView where

646− fromText = \case

646+ parseQueryParam = \case

647− "ADMIN" -> Just CGVAdmin

647+ "ADMIN" -> Right CGVAdmin

648− "AUTHOR" -> Just CGVAuthor

648+ "AUTHOR" -> Right CGVAuthor

649− "READER" -> Just CGVReader

649+ "READER" -> Right CGVReader

650− _ -> Nothing

650+ x -> Left ("Unable to parse CommentsGetView from: " <> x)

651

652−instance ToText CommentsGetView where

652+instance ToHttpApiData CommentsGetView where

653− toText = \case

653+ toQueryParam = \case

654 CGVAdmin -> "ADMIN"

655 CGVAuthor -> "AUTHOR"

656 CGVReader -> "READER"

@@ -677,15 +677,15 @@ data PostsGetByPathView

677

678instance Hashable PostsGetByPathView

679

680−instance FromText PostsGetByPathView where

680+instance FromHttpApiData PostsGetByPathView where

681− fromText = \case

681+ parseQueryParam = \case

682− "ADMIN" -> Just PGBPVAdmin

682+ "ADMIN" -> Right PGBPVAdmin

683− "AUTHOR" -> Just PGBPVAuthor

683+ "AUTHOR" -> Right PGBPVAuthor

684− "READER" -> Just PGBPVReader

684+ "READER" -> Right PGBPVReader

685− _ -> Nothing

685+ x -> Left ("Unable to parse PostsGetByPathView from: " <> x)

686

687−instance ToText PostsGetByPathView where

687+instance ToHttpApiData PostsGetByPathView where

688− toText = \case

688+ toQueryParam = \case

689 PGBPVAdmin -> "ADMIN"

690 PGBPVAuthor -> "AUTHOR"

691 PGBPVReader -> "READER"

@@ -707,14 +707,14 @@ data PagesListStatus

707

708instance Hashable PagesListStatus

709

710−instance FromText PagesListStatus where

710+instance FromHttpApiData PagesListStatus where

711− fromText = \case

711+ parseQueryParam = \case

712− "draft" -> Just PDraft

712+ "draft" -> Right PDraft

713− "live" -> Just PLive

713+ "live" -> Right PLive

714− _ -> Nothing

714+ x -> Left ("Unable to parse PagesListStatus from: " <> x)

715

716−instance ToText PagesListStatus where

716+instance ToHttpApiData PagesListStatus where

717− toText = \case

717+ toQueryParam = \case

718 PDraft -> "draft"

719 PLive -> "live"

720

@@ -742,15 +742,15 @@ data BlogsListByUserRole

742

743instance Hashable BlogsListByUserRole

744

745−instance FromText BlogsListByUserRole where

745+instance FromHttpApiData BlogsListByUserRole where

746− fromText = \case

746+ parseQueryParam = \case

747− "ADMIN" -> Just BLBURAdmin

747+ "ADMIN" -> Right BLBURAdmin

748− "AUTHOR" -> Just BLBURAuthor

748+ "AUTHOR" -> Right BLBURAuthor

749− "READER" -> Just BLBURReader

749+ "READER" -> Right BLBURReader

750− _ -> Nothing

750+ x -> Left ("Unable to parse BlogsListByUserRole from: " <> x)

751

752−instance ToText BlogsListByUserRole where

752+instance ToHttpApiData BlogsListByUserRole where

753− toText = \case

753+ toQueryParam = \case

754 BLBURAdmin -> "ADMIN"

755 BLBURAuthor -> "AUTHOR"

756 BLBURReader -> "READER"

gogol-books/gen/Network/Google/Books/Types/Sum.hs+173−173

@@ -30,14 +30,14 @@ data VolumesListProjection

31instance Hashable VolumesListProjection

33−instance FromText VolumesListProjection where

33+instance FromHttpApiData VolumesListProjection where

34− fromText = \case

34+ parseQueryParam = \case

35− "full" -> Just Full

35+ "full" -> Right Full

36− "lite" -> Just Lite

36+ "lite" -> Right Lite

37− _ -> Nothing

37+ x -> Left ("Unable to parse VolumesListProjection from: " <> x)

38−

38+

39−instance ToText VolumesListProjection where

39+instance ToHttpApiData VolumesListProjection where

40− toText = \case

40+ toQueryParam = \case

41 Full -> "full"

42 Lite -> "lite"

@@ -59,14 +59,14 @@ data MyLibraryBookshelvesVolumesListProjection

60instance Hashable MyLibraryBookshelvesVolumesListProjection

62−instance FromText MyLibraryBookshelvesVolumesListProjection where

62+instance FromHttpApiData MyLibraryBookshelvesVolumesListProjection where

63− fromText = \case

63+ parseQueryParam = \case

64− "full" -> Just MLBVLPFull

64+ "full" -> Right MLBVLPFull

65− "lite" -> Just MLBVLPLite

65+ "lite" -> Right MLBVLPLite

66− _ -> Nothing

66+ x -> Left ("Unable to parse MyLibraryBookshelvesVolumesListProjection from: " <> x)

68−instance ToText MyLibraryBookshelvesVolumesListProjection where

68+instance ToHttpApiData MyLibraryBookshelvesVolumesListProjection where

69− toText = \case

69+ toQueryParam = \case

70 MLBVLPFull -> "full"

71 MLBVLPLite -> "lite"

@@ -88,14 +88,14 @@ data VolumesListOrderBy

89instance Hashable VolumesListOrderBy

91−instance FromText VolumesListOrderBy where

91+instance FromHttpApiData VolumesListOrderBy where

92− fromText = \case

92+ parseQueryParam = \case

93− "newest" -> Just Newest

93+ "newest" -> Right Newest

94− "relevance" -> Just Relevance

94+ "relevance" -> Right Relevance

95− _ -> Nothing

95+ x -> Left ("Unable to parse VolumesListOrderBy from: " <> x)

97−instance ToText VolumesListOrderBy where

97+instance ToHttpApiData VolumesListOrderBy where

98− toText = \case

98+ toQueryParam = \case

99 Newest -> "newest"

100 Relevance -> "relevance"

101

@@ -117,14 +117,14 @@ data VolumesListLibraryRestrict

117

118instance Hashable VolumesListLibraryRestrict

119

120−instance FromText VolumesListLibraryRestrict where

120+instance FromHttpApiData VolumesListLibraryRestrict where

121− fromText = \case

121+ parseQueryParam = \case

122− "my-library" -> Just MyLibrary

122+ "my-library" -> Right MyLibrary

123− "no-restrict" -> Just NoRestrict

123+ "no-restrict" -> Right NoRestrict

124− _ -> Nothing

124+ x -> Left ("Unable to parse VolumesListLibraryRestrict from: " <> x)

125

126−instance ToText VolumesListLibraryRestrict where

126+instance ToHttpApiData VolumesListLibraryRestrict where

127− toText = \case

127+ toQueryParam = \case

128 MyLibrary -> "my-library"

129 NoRestrict -> "no-restrict"

130

@@ -143,13 +143,13 @@ data MyLibraryBookshelvesRemoveVolumeReason

143

144instance Hashable MyLibraryBookshelvesRemoveVolumeReason

145

146−instance FromText MyLibraryBookshelvesRemoveVolumeReason where

146+instance FromHttpApiData MyLibraryBookshelvesRemoveVolumeReason where

147− fromText = \case

147+ parseQueryParam = \case

148− "ONBOARDING" -> Just Onboarding

148+ "ONBOARDING" -> Right Onboarding

149− _ -> Nothing

149+ x -> Left ("Unable to parse MyLibraryBookshelvesRemoveVolumeReason from: " <> x)

150

151−instance ToText MyLibraryBookshelvesRemoveVolumeReason where

151+instance ToHttpApiData MyLibraryBookshelvesRemoveVolumeReason where

152− toText = \case

152+ toQueryParam = \case

153 Onboarding -> "ONBOARDING"

154

155instance FromJSON MyLibraryBookshelvesRemoveVolumeReason where

@@ -171,14 +171,14 @@ data OnboardingListCategoryVolumesMaxAllowedMaturityRating

171

172instance Hashable OnboardingListCategoryVolumesMaxAllowedMaturityRating

173

174−instance FromText OnboardingListCategoryVolumesMaxAllowedMaturityRating where

174+instance FromHttpApiData OnboardingListCategoryVolumesMaxAllowedMaturityRating where

175− fromText = \case

175+ parseQueryParam = \case

176− "mature" -> Just Mature

176+ "mature" -> Right Mature

177− "not-mature" -> Just NotMature

177+ "not-mature" -> Right NotMature

178− _ -> Nothing

178+ x -> Left ("Unable to parse OnboardingListCategoryVolumesMaxAllowedMaturityRating from: " <> x)

179

180−instance ToText OnboardingListCategoryVolumesMaxAllowedMaturityRating where

180+instance ToHttpApiData OnboardingListCategoryVolumesMaxAllowedMaturityRating where

181− toText = \case

181+ toQueryParam = \case

182 Mature -> "mature"

183 NotMature -> "not-mature"

184

@@ -197,13 +197,13 @@ data VolumesListDownload

197

198instance Hashable VolumesListDownload

199

200−instance FromText VolumesListDownload where

200+instance FromHttpApiData VolumesListDownload where

201− fromText = \case

201+ parseQueryParam = \case

202− "epub" -> Just Epub

202+ "epub" -> Right Epub

203− _ -> Nothing

203+ x -> Left ("Unable to parse VolumesListDownload from: " <> x)

204

205−instance ToText VolumesListDownload where

205+instance ToHttpApiData VolumesListDownload where

206− toText = \case

206+ toQueryParam = \case

207 Epub -> "epub"

208

209instance FromJSON VolumesListDownload where

@@ -224,14 +224,14 @@ data VolumesGetProjection

224

225instance Hashable VolumesGetProjection

226

227−instance FromText VolumesGetProjection where

227+instance FromHttpApiData VolumesGetProjection where

228− fromText = \case

228+ parseQueryParam = \case

229− "full" -> Just VGPFull

229+ "full" -> Right VGPFull

230− "lite" -> Just VGPLite

230+ "lite" -> Right VGPLite

231− _ -> Nothing

231+ x -> Left ("Unable to parse VolumesGetProjection from: " <> x)

232

233−instance ToText VolumesGetProjection where

233+instance ToHttpApiData VolumesGetProjection where

234− toText = \case

234+ toQueryParam = \case

235 VGPFull -> "full"

236 VGPLite -> "lite"

237

@@ -256,15 +256,15 @@ data VolumesAssociatedListAssociation

256

257instance Hashable VolumesAssociatedListAssociation

258

259−instance FromText VolumesAssociatedListAssociation where

259+instance FromHttpApiData VolumesAssociatedListAssociation where

260− fromText = \case

260+ parseQueryParam = \case

261− "end-of-sample" -> Just EndOfSample

261+ "end-of-sample" -> Right EndOfSample

262− "end-of-volume" -> Just EndOfVolume

262+ "end-of-volume" -> Right EndOfVolume

263− "related-for-play" -> Just RelatedForPlay

263+ "related-for-play" -> Right RelatedForPlay

264− _ -> Nothing

264+ x -> Left ("Unable to parse VolumesAssociatedListAssociation from: " <> x)

265

266−instance ToText VolumesAssociatedListAssociation where

266+instance ToHttpApiData VolumesAssociatedListAssociation where

267− toText = \case

267+ toQueryParam = \case

268 EndOfSample -> "end-of-sample"

269 EndOfVolume -> "end-of-volume"

270 RelatedForPlay -> "related-for-play"

@@ -287,14 +287,14 @@ data VolumesRecommendedRateRating

287

288instance Hashable VolumesRecommendedRateRating

289

290−instance FromText VolumesRecommendedRateRating where

290+instance FromHttpApiData VolumesRecommendedRateRating where

291− fromText = \case

291+ parseQueryParam = \case

292− "HAVE_IT" -> Just HaveIt

292+ "HAVE_IT" -> Right HaveIt

293− "NOT_INTERESTED" -> Just NotInterested

293+ "NOT_INTERESTED" -> Right NotInterested

294− _ -> Nothing

294+ x -> Left ("Unable to parse VolumesRecommendedRateRating from: " <> x)

295

296−instance ToText VolumesRecommendedRateRating where

296+instance ToHttpApiData VolumesRecommendedRateRating where

297− toText = \case

297+ toQueryParam = \case

298 HaveIt -> "HAVE_IT"

299 NotInterested -> "NOT_INTERESTED"

300

@@ -319,15 +319,15 @@ data VolumesUserUploadedListProcessingState

319

320instance Hashable VolumesUserUploadedListProcessingState

321

322−instance FromText VolumesUserUploadedListProcessingState where

322+instance FromHttpApiData VolumesUserUploadedListProcessingState where

323− fromText = \case

323+ parseQueryParam = \case

324− "COMPLETED_FAILED" -> Just CompletedFailed

324+ "COMPLETED_FAILED" -> Right CompletedFailed

325− "COMPLETED_SUCCESS" -> Just CompletedSuccess

325+ "COMPLETED_SUCCESS" -> Right CompletedSuccess

326− "RUNNING" -> Just Running

326+ "RUNNING" -> Right Running

327− _ -> Nothing

327+ x -> Left ("Unable to parse VolumesUserUploadedListProcessingState from: " <> x)

328

329−instance ToText VolumesUserUploadedListProcessingState where

329+instance ToHttpApiData VolumesUserUploadedListProcessingState where

330− toText = \case

330+ toQueryParam = \case

331 CompletedFailed -> "COMPLETED_FAILED"

332 CompletedSuccess -> "COMPLETED_SUCCESS"

333 Running -> "RUNNING"

@@ -347,13 +347,13 @@ data MyConfigSyncVolumeLicensesFeatures

347

348instance Hashable MyConfigSyncVolumeLicensesFeatures

349

350−instance FromText MyConfigSyncVolumeLicensesFeatures where

350+instance FromHttpApiData MyConfigSyncVolumeLicensesFeatures where

351− fromText = \case

351+ parseQueryParam = \case

352− "RENTALS" -> Just Rentals

352+ "RENTALS" -> Right Rentals

353− _ -> Nothing

353+ x -> Left ("Unable to parse MyConfigSyncVolumeLicensesFeatures from: " <> x)

354

355−instance ToText MyConfigSyncVolumeLicensesFeatures where

355+instance ToHttpApiData MyConfigSyncVolumeLicensesFeatures where

356− toText = \case

356+ toQueryParam = \case

357 Rentals -> "RENTALS"

358

359instance FromJSON MyConfigSyncVolumeLicensesFeatures where

@@ -375,14 +375,14 @@ data VolumesAssociatedListMaxAllowedMaturityRating

375

376instance Hashable VolumesAssociatedListMaxAllowedMaturityRating

377

378−instance FromText VolumesAssociatedListMaxAllowedMaturityRating where

378+instance FromHttpApiData VolumesAssociatedListMaxAllowedMaturityRating where

379− fromText = \case

379+ parseQueryParam = \case

380− "mature" -> Just VALMAMRMature

380+ "mature" -> Right VALMAMRMature

381− "not-mature" -> Just VALMAMRNotMature

381+ "not-mature" -> Right VALMAMRNotMature

382− _ -> Nothing

382+ x -> Left ("Unable to parse VolumesAssociatedListMaxAllowedMaturityRating from: " <> x)

383

384−instance ToText VolumesAssociatedListMaxAllowedMaturityRating where

384+instance ToHttpApiData VolumesAssociatedListMaxAllowedMaturityRating where

385− toText = \case

385+ toQueryParam = \case

386 VALMAMRMature -> "mature"

387 VALMAMRNotMature -> "not-mature"

388

@@ -413,17 +413,17 @@ data VolumesListFilter

413

414instance Hashable VolumesListFilter

415

416−instance FromText VolumesListFilter where

416+instance FromHttpApiData VolumesListFilter where

417− fromText = \case

417+ parseQueryParam = \case

418− "ebooks" -> Just VLFEbooks

418+ "ebooks" -> Right VLFEbooks

419− "free-ebooks" -> Just VLFFreeEbooks

419+ "free-ebooks" -> Right VLFFreeEbooks

420− "full" -> Just VLFFull

420+ "full" -> Right VLFFull

421− "paid-ebooks" -> Just VLFPaidEbooks

421+ "paid-ebooks" -> Right VLFPaidEbooks

422− "partial" -> Just VLFPartial

422+ "partial" -> Right VLFPartial

423− _ -> Nothing

423+ x -> Left ("Unable to parse VolumesListFilter from: " <> x)

424−

424+

425−instance ToText VolumesListFilter where

425+instance ToHttpApiData VolumesListFilter where

426− toText = \case

426+ toQueryParam = \case

427 VLFEbooks -> "ebooks"

428 VLFFreeEbooks -> "free-ebooks"

429 VLFFull -> "full"

@@ -449,14 +449,14 @@ data VolumesRecommendedListMaxAllowedMaturityRating

449

450instance Hashable VolumesRecommendedListMaxAllowedMaturityRating

451

452−instance FromText VolumesRecommendedListMaxAllowedMaturityRating where

452+instance FromHttpApiData VolumesRecommendedListMaxAllowedMaturityRating where

453− fromText = \case

453+ parseQueryParam = \case

454− "mature" -> Just VRLMAMRMature

454+ "mature" -> Right VRLMAMRMature

455− "not-mature" -> Just VRLMAMRNotMature

455+ "not-mature" -> Right VRLMAMRNotMature

456− _ -> Nothing

456+ x -> Left ("Unable to parse VolumesRecommendedListMaxAllowedMaturityRating from: " <> x)

457

458−instance ToText VolumesRecommendedListMaxAllowedMaturityRating where

458+instance ToHttpApiData VolumesRecommendedListMaxAllowedMaturityRating where

459− toText = \case

459+ toQueryParam = \case

460 VRLMAMRMature -> "mature"

461 VRLMAMRNotMature -> "not-mature"

462

@@ -481,15 +481,15 @@ data MyLibraryBookshelvesAddVolumeReason

481

482instance Hashable MyLibraryBookshelvesAddVolumeReason

483

484−instance FromText MyLibraryBookshelvesAddVolumeReason where

484+instance FromHttpApiData MyLibraryBookshelvesAddVolumeReason where

485− fromText = \case

485+ parseQueryParam = \case

486− "IOS_PREX" -> Just MLBAVRIosPrex

486+ "IOS_PREX" -> Right MLBAVRIosPrex

487− "IOS_SEARCH" -> Just MLBAVRIosSearch

487+ "IOS_SEARCH" -> Right MLBAVRIosSearch

488− "ONBOARDING" -> Just MLBAVROnboarding

488+ "ONBOARDING" -> Right MLBAVROnboarding

489− _ -> Nothing

489+ x -> Left ("Unable to parse MyLibraryBookshelvesAddVolumeReason from: " <> x)

490

491−instance ToText MyLibraryBookshelvesAddVolumeReason where

491+instance ToHttpApiData MyLibraryBookshelvesAddVolumeReason where

492− toText = \case

492+ toQueryParam = \case

493 MLBAVRIosPrex -> "IOS_PREX"

494 MLBAVRIosSearch -> "IOS_SEARCH"

495 MLBAVROnboarding -> "ONBOARDING"

@@ -527,19 +527,19 @@ data VolumesMybooksListAcquireMethod

527

528instance Hashable VolumesMybooksListAcquireMethod

529

530−instance FromText VolumesMybooksListAcquireMethod where

530+instance FromHttpApiData VolumesMybooksListAcquireMethod where

531− fromText = \case

531+ parseQueryParam = \case

532− "PREORDERED" -> Just PreOrdered

532+ "PREORDERED" -> Right PreOrdered

533− "PREVIOUSLY_RENTED" -> Just PreviouslyRented

533+ "PREVIOUSLY_RENTED" -> Right PreviouslyRented

534− "PUBLIC_DOMAIN" -> Just PublicDomain

534+ "PUBLIC_DOMAIN" -> Right PublicDomain

535− "PURCHASED" -> Just Purchased

535+ "PURCHASED" -> Right Purchased

536− "RENTED" -> Just Rented

536+ "RENTED" -> Right Rented

537− "SAMPLE" -> Just Sample

537+ "SAMPLE" -> Right Sample

538− "UPLOADED" -> Just Uploaded

538+ "UPLOADED" -> Right Uploaded

539− _ -> Nothing

539+ x -> Left ("Unable to parse VolumesMybooksListAcquireMethod from: " <> x)

540−

540+

541−instance ToText VolumesMybooksListAcquireMethod where

541+instance ToHttpApiData VolumesMybooksListAcquireMethod where

542− toText = \case

542+ toQueryParam = \case

543 PreOrdered -> "PREORDERED"

544 PreviouslyRented -> "PREVIOUSLY_RENTED"

545 PublicDomain -> "PUBLIC_DOMAIN"

@@ -567,14 +567,14 @@ data PersonalizedstreamGetMaxAllowedMaturityRating

567

568instance Hashable PersonalizedstreamGetMaxAllowedMaturityRating

569

570−instance FromText PersonalizedstreamGetMaxAllowedMaturityRating where

570+instance FromHttpApiData PersonalizedstreamGetMaxAllowedMaturityRating where

571− fromText = \case

571+ parseQueryParam = \case

572− "mature" -> Just PGMAMRMature

572+ "mature" -> Right PGMAMRMature

573− "not-mature" -> Just PGMAMRNotMature

573+ "not-mature" -> Right PGMAMRNotMature

574− _ -> Nothing

574+ x -> Left ("Unable to parse PersonalizedstreamGetMaxAllowedMaturityRating from: " <> x)

575

576−instance ToText PersonalizedstreamGetMaxAllowedMaturityRating where

576+instance ToHttpApiData PersonalizedstreamGetMaxAllowedMaturityRating where

577− toText = \case

577+ toQueryParam = \case

578 PGMAMRMature -> "mature"

579 PGMAMRNotMature -> "not-mature"

580

@@ -599,15 +599,15 @@ data VolumesListPrintType

599

600instance Hashable VolumesListPrintType

601

602−instance FromText VolumesListPrintType where

602+instance FromHttpApiData VolumesListPrintType where

603− fromText = \case

603+ parseQueryParam = \case

604− "all" -> Just All

604+ "all" -> Right All

605− "books" -> Just Books

605+ "books" -> Right Books

606− "magazines" -> Just Magazines

606+ "magazines" -> Right Magazines

607− _ -> Nothing

607+ x -> Left ("Unable to parse VolumesListPrintType from: " <> x)

608

609−instance ToText VolumesListPrintType where

609+instance ToHttpApiData VolumesListPrintType where

610− toText = \case

610+ toQueryParam = \case

611 All -> "all"

612 Books -> "books"

613 Magazines -> "magazines"

@@ -634,15 +634,15 @@ data VolumesMybooksListProcessingState

634

635instance Hashable VolumesMybooksListProcessingState

636

637−instance FromText VolumesMybooksListProcessingState where

637+instance FromHttpApiData VolumesMybooksListProcessingState where

638− fromText = \case

638+ parseQueryParam = \case

639− "COMPLETED_FAILED" -> Just VMLPSCompletedFailed

639+ "COMPLETED_FAILED" -> Right VMLPSCompletedFailed

640− "COMPLETED_SUCCESS" -> Just VMLPSCompletedSuccess

640+ "COMPLETED_SUCCESS" -> Right VMLPSCompletedSuccess

641− "RUNNING" -> Just VMLPSRunning

641+ "RUNNING" -> Right VMLPSRunning

642− _ -> Nothing

642+ x -> Left ("Unable to parse VolumesMybooksListProcessingState from: " <> x)

643

644−instance ToText VolumesMybooksListProcessingState where

644+instance ToHttpApiData VolumesMybooksListProcessingState where

645− toText = \case

645+ toQueryParam = \case

646 VMLPSCompletedFailed -> "COMPLETED_FAILED"

647 VMLPSCompletedSuccess -> "COMPLETED_SUCCESS"

648 VMLPSRunning -> "RUNNING"

@@ -669,15 +669,15 @@ data MyConfigRequestAccessLicenseTypes

669

670instance Hashable MyConfigRequestAccessLicenseTypes

671

672−instance FromText MyConfigRequestAccessLicenseTypes where

672+instance FromHttpApiData MyConfigRequestAccessLicenseTypes where

673− fromText = \case

673+ parseQueryParam = \case

674− "BOTH" -> Just Both

674+ "BOTH" -> Right Both

675− "CONCURRENT" -> Just Concurrent

675+ "CONCURRENT" -> Right Concurrent

676− "DOWNLOAD" -> Just Download

676+ "DOWNLOAD" -> Right Download

677− _ -> Nothing

677+ x -> Left ("Unable to parse MyConfigRequestAccessLicenseTypes from: " <> x)

678

679−instance ToText MyConfigRequestAccessLicenseTypes where

679+instance ToHttpApiData MyConfigRequestAccessLicenseTypes where

680− toText = \case

680+ toQueryParam = \case

681 Both -> "BOTH"

682 Concurrent -> "CONCURRENT"

683 Download -> "DOWNLOAD"

@@ -712,18 +712,18 @@ data MyLibraryReadingPositionsSetPositionAction

712

713instance Hashable MyLibraryReadingPositionsSetPositionAction

714

715−instance FromText MyLibraryReadingPositionsSetPositionAction where

715+instance FromHttpApiData MyLibraryReadingPositionsSetPositionAction where

716− fromText = \case

716+ parseQueryParam = \case

717− "bookmark" -> Just Bookmark

717+ "bookmark" -> Right Bookmark

718− "chapter" -> Just Chapter

718+ "chapter" -> Right Chapter

719− "next-page" -> Just NextPage

719+ "next-page" -> Right NextPage

720− "prev-page" -> Just PrevPage

720+ "prev-page" -> Right PrevPage

721− "scroll" -> Just Scroll

721+ "scroll" -> Right Scroll

722− "search" -> Just Search

722+ "search" -> Right Search

723− _ -> Nothing

723+ x -> Left ("Unable to parse MyLibraryReadingPositionsSetPositionAction from: " <> x)

724−

724+

725−instance ToText MyLibraryReadingPositionsSetPositionAction where

725+instance ToHttpApiData MyLibraryReadingPositionsSetPositionAction where

726− toText = \case

726+ toQueryParam = \case

727 Bookmark -> "bookmark"

728 Chapter -> "chapter"

729 NextPage -> "next-page"

gogol-civicinfo/gen/Network/Google/CivicInfo/Types/Sum.hs+60−60

@@ -44,21 +44,21 @@ data RepresentativesRepresentativeInfoByDivisionLevels

45instance Hashable RepresentativesRepresentativeInfoByDivisionLevels

47−instance FromText RepresentativesRepresentativeInfoByDivisionLevels where

47+instance FromHttpApiData RepresentativesRepresentativeInfoByDivisionLevels where

48− fromText = \case

48+ parseQueryParam = \case

49− "administrativeArea1" -> Just ADMINISTRATIVEAREA1

49+ "administrativeArea1" -> Right ADMINISTRATIVEAREA1

50− "administrativeArea2" -> Just ADMINISTRATIVEAREA2

50+ "administrativeArea2" -> Right ADMINISTRATIVEAREA2

51− "country" -> Just Country

51+ "country" -> Right Country

52− "international" -> Just International

52+ "international" -> Right International

53− "locality" -> Just Locality

53+ "locality" -> Right Locality

54− "regional" -> Just Regional

54+ "regional" -> Right Regional

55− "special" -> Just Special

55+ "special" -> Right Special

56− "subLocality1" -> Just SUBLOCALITY1

56+ "subLocality1" -> Right SUBLOCALITY1

57− "subLocality2" -> Just SUBLOCALITY2

57+ "subLocality2" -> Right SUBLOCALITY2

58− _ -> Nothing

58+ x -> Left ("Unable to parse RepresentativesRepresentativeInfoByDivisionLevels from: " <> x)

60−instance ToText RepresentativesRepresentativeInfoByDivisionLevels where

60+instance ToHttpApiData RepresentativesRepresentativeInfoByDivisionLevels where

61− toText = \case

61+ toQueryParam = \case

62 ADMINISTRATIVEAREA1 -> "administrativeArea1"

63 ADMINISTRATIVEAREA2 -> "administrativeArea2"

64 Country -> "country"

@@ -101,21 +101,21 @@ data RepresentativesRepresentativeInfoByAddressLevels

101

102instance Hashable RepresentativesRepresentativeInfoByAddressLevels

103

104−instance FromText RepresentativesRepresentativeInfoByAddressLevels where

104+instance FromHttpApiData RepresentativesRepresentativeInfoByAddressLevels where

105− fromText = \case

105+ parseQueryParam = \case

106− "administrativeArea1" -> Just RRIBALADMINISTRATIVEAREA1

106+ "administrativeArea1" -> Right RRIBALADMINISTRATIVEAREA1

107− "administrativeArea2" -> Just RRIBALADMINISTRATIVEAREA2

107+ "administrativeArea2" -> Right RRIBALADMINISTRATIVEAREA2

108− "country" -> Just RRIBALCountry

108+ "country" -> Right RRIBALCountry

109− "international" -> Just RRIBALInternational

109+ "international" -> Right RRIBALInternational

110− "locality" -> Just RRIBALLocality

110+ "locality" -> Right RRIBALLocality

111− "regional" -> Just RRIBALRegional

111+ "regional" -> Right RRIBALRegional

112− "special" -> Just RRIBALSpecial

112+ "special" -> Right RRIBALSpecial

113− "subLocality1" -> Just RRIBALSUBLOCALITY1

113+ "subLocality1" -> Right RRIBALSUBLOCALITY1

114− "subLocality2" -> Just RRIBALSUBLOCALITY2

114+ "subLocality2" -> Right RRIBALSUBLOCALITY2

115− _ -> Nothing

115+ x -> Left ("Unable to parse RepresentativesRepresentativeInfoByAddressLevels from: " <> x)

116

117−instance ToText RepresentativesRepresentativeInfoByAddressLevels where

117+instance ToHttpApiData RepresentativesRepresentativeInfoByAddressLevels where

118− toText = \case

118+ toQueryParam = \case

119 RRIBALADMINISTRATIVEAREA1 -> "administrativeArea1"

120 RRIBALADMINISTRATIVEAREA2 -> "administrativeArea2"

121 RRIBALCountry -> "country"

@@ -162,23 +162,23 @@ data RepresentativesRepresentativeInfoByDivisionRoles

162

163instance Hashable RepresentativesRepresentativeInfoByDivisionRoles

164

165−instance FromText RepresentativesRepresentativeInfoByDivisionRoles where

165+instance FromHttpApiData RepresentativesRepresentativeInfoByDivisionRoles where

166− fromText = \case

166+ parseQueryParam = \case

167− "deputyHeadOfGovernment" -> Just DeputyHeadOfGovernment

167+ "deputyHeadOfGovernment" -> Right DeputyHeadOfGovernment

168− "executiveCouncil" -> Just ExecutiveCouncil

168+ "executiveCouncil" -> Right ExecutiveCouncil

169− "governmentOfficer" -> Just GovernmentOfficer

169+ "governmentOfficer" -> Right GovernmentOfficer

170− "headOfGovernment" -> Just HeadOfGovernment

170+ "headOfGovernment" -> Right HeadOfGovernment

171− "headOfState" -> Just HeadOfState

171+ "headOfState" -> Right HeadOfState

172− "highestCourtJudge" -> Just HighestCourtJudge

172+ "highestCourtJudge" -> Right HighestCourtJudge

173− "judge" -> Just Judge

173+ "judge" -> Right Judge

174− "legislatorLowerBody" -> Just LegislatorLowerBody

174+ "legislatorLowerBody" -> Right LegislatorLowerBody

175− "legislatorUpperBody" -> Just LegislatorUpperBody

175+ "legislatorUpperBody" -> Right LegislatorUpperBody

176− "schoolBoard" -> Just SchoolBoard

176+ "schoolBoard" -> Right SchoolBoard

177− "specialPurposeOfficer" -> Just SpecialPurposeOfficer

177+ "specialPurposeOfficer" -> Right SpecialPurposeOfficer

178− _ -> Nothing

178+ x -> Left ("Unable to parse RepresentativesRepresentativeInfoByDivisionRoles from: " <> x)

179

180−instance ToText RepresentativesRepresentativeInfoByDivisionRoles where

180+instance ToHttpApiData RepresentativesRepresentativeInfoByDivisionRoles where

181− toText = \case

181+ toQueryParam = \case

182 DeputyHeadOfGovernment -> "deputyHeadOfGovernment"

183 ExecutiveCouncil -> "executiveCouncil"

184 GovernmentOfficer -> "governmentOfficer"

@@ -227,23 +227,23 @@ data RepresentativesRepresentativeInfoByAddressRoles

227

228instance Hashable RepresentativesRepresentativeInfoByAddressRoles

229

230−instance FromText RepresentativesRepresentativeInfoByAddressRoles where

230+instance FromHttpApiData RepresentativesRepresentativeInfoByAddressRoles where

231− fromText = \case

231+ parseQueryParam = \case

232− "deputyHeadOfGovernment" -> Just RRIBARDeputyHeadOfGovernment

232+ "deputyHeadOfGovernment" -> Right RRIBARDeputyHeadOfGovernment

233− "executiveCouncil" -> Just RRIBARExecutiveCouncil

233+ "executiveCouncil" -> Right RRIBARExecutiveCouncil

234− "governmentOfficer" -> Just RRIBARGovernmentOfficer

234+ "governmentOfficer" -> Right RRIBARGovernmentOfficer

235− "headOfGovernment" -> Just RRIBARHeadOfGovernment

235+ "headOfGovernment" -> Right RRIBARHeadOfGovernment

236− "headOfState" -> Just RRIBARHeadOfState

236+ "headOfState" -> Right RRIBARHeadOfState

237− "highestCourtJudge" -> Just RRIBARHighestCourtJudge

237+ "highestCourtJudge" -> Right RRIBARHighestCourtJudge

238− "judge" -> Just RRIBARJudge

238+ "judge" -> Right RRIBARJudge

239− "legislatorLowerBody" -> Just RRIBARLegislatorLowerBody

239+ "legislatorLowerBody" -> Right RRIBARLegislatorLowerBody

240− "legislatorUpperBody" -> Just RRIBARLegislatorUpperBody

240+ "legislatorUpperBody" -> Right RRIBARLegislatorUpperBody

241− "schoolBoard" -> Just RRIBARSchoolBoard

241+ "schoolBoard" -> Right RRIBARSchoolBoard

242− "specialPurposeOfficer" -> Just RRIBARSpecialPurposeOfficer

242+ "specialPurposeOfficer" -> Right RRIBARSpecialPurposeOfficer

243− _ -> Nothing

243+ x -> Left ("Unable to parse RepresentativesRepresentativeInfoByAddressRoles from: " <> x)

244

245−instance ToText RepresentativesRepresentativeInfoByAddressRoles where

245+instance ToHttpApiData RepresentativesRepresentativeInfoByAddressRoles where

246− toText = \case

246+ toQueryParam = \case

247 RRIBARDeputyHeadOfGovernment -> "deputyHeadOfGovernment"

248 RRIBARExecutiveCouncil -> "executiveCouncil"

249 RRIBARGovernmentOfficer -> "governmentOfficer"

gogol-cloudmonitoring/gen/Network/Google/CloudMonitoring/Types/Sum.hs+18−18

@@ -34,16 +34,16 @@ data TimeseriesListAggregator

35instance Hashable TimeseriesListAggregator

37−instance FromText TimeseriesListAggregator where

37+instance FromHttpApiData TimeseriesListAggregator where

38− fromText = \case

38+ parseQueryParam = \case

39− "max" -> Just Max

39+ "max" -> Right Max

40− "mean" -> Just Mean

40+ "mean" -> Right Mean

41− "min" -> Just Min

41+ "min" -> Right Min

42− "sum" -> Just Sum

42+ "sum" -> Right Sum

43− _ -> Nothing

43+ x -> Left ("Unable to parse TimeseriesListAggregator from: " <> x)

45−instance ToText TimeseriesListAggregator where

45+instance ToHttpApiData TimeseriesListAggregator where

46− toText = \case

46+ toQueryParam = \case

47 Max -> "max"

48 Mean -> "mean"

49 Min -> "min"

@@ -71,16 +71,16 @@ data TimeseriesDescriptorsListAggregator

72instance Hashable TimeseriesDescriptorsListAggregator

74−instance FromText TimeseriesDescriptorsListAggregator where

74+instance FromHttpApiData TimeseriesDescriptorsListAggregator where

75− fromText = \case

75+ parseQueryParam = \case

76− "max" -> Just TDLAMax

76+ "max" -> Right TDLAMax

77− "mean" -> Just TDLAMean

77+ "mean" -> Right TDLAMean

78− "min" -> Just TDLAMin

78+ "min" -> Right TDLAMin

79− "sum" -> Just TDLASum

79+ "sum" -> Right TDLASum

80− _ -> Nothing

80+ x -> Left ("Unable to parse TimeseriesDescriptorsListAggregator from: " <> x)

82−instance ToText TimeseriesDescriptorsListAggregator where

82+instance ToHttpApiData TimeseriesDescriptorsListAggregator where

83− toText = \case

83+ toQueryParam = \case

84 TDLAMax -> "max"

85 TDLAMean -> "mean"

86 TDLAMin -> "min"

gogol-compute/gen/Network/Google/Compute/Types/Sum.hs+653−653

@@ -31,14 +31,14 @@ data SchedulingOnHostMaintenance

32instance Hashable SchedulingOnHostMaintenance

34−instance FromText SchedulingOnHostMaintenance where

34+instance FromHttpApiData SchedulingOnHostMaintenance where

35− fromText = \case

35+ parseQueryParam = \case

36− "MIGRATE" -> Just Migrate

36+ "MIGRATE" -> Right Migrate

37− "TERMINATE" -> Just Terminate

37+ "TERMINATE" -> Right Terminate

38− _ -> Nothing

38+ x -> Left ("Unable to parse SchedulingOnHostMaintenance from: " <> x)

39−

39+

40−instance ToText SchedulingOnHostMaintenance where

40+instance ToHttpApiData SchedulingOnHostMaintenance where

41− toText = \case

41+ toQueryParam = \case

42 Migrate -> "MIGRATE"

43 Terminate -> "TERMINATE"

@@ -62,15 +62,15 @@ data AutoscalingPolicyCustomMetricUtilizationUtilizationTargetType

63instance Hashable AutoscalingPolicyCustomMetricUtilizationUtilizationTargetType

65−instance FromText AutoscalingPolicyCustomMetricUtilizationUtilizationTargetType where

65+instance FromHttpApiData AutoscalingPolicyCustomMetricUtilizationUtilizationTargetType where

66− fromText = \case

66+ parseQueryParam = \case

67− "DELTA_PER_MINUTE" -> Just DeltaPerMinute

67+ "DELTA_PER_MINUTE" -> Right DeltaPerMinute

68− "DELTA_PER_SECOND" -> Just DeltaPerSecond

68+ "DELTA_PER_SECOND" -> Right DeltaPerSecond

69− "GAUGE" -> Just Gauge

69+ "GAUGE" -> Right Gauge

70− _ -> Nothing

70+ x -> Left ("Unable to parse AutoscalingPolicyCustomMetricUtilizationUtilizationTargetType from: " <> x)

72−instance ToText AutoscalingPolicyCustomMetricUtilizationUtilizationTargetType where

72+instance ToHttpApiData AutoscalingPolicyCustomMetricUtilizationUtilizationTargetType where

73− toText = \case

73+ toQueryParam = \case

74 DeltaPerMinute -> "DELTA_PER_MINUTE"

75 DeltaPerSecond -> "DELTA_PER_SECOND"

76 Gauge -> "GAUGE"

@@ -118,27 +118,27 @@ data OperationWarningsItemCode

118

119instance Hashable OperationWarningsItemCode

120

121−instance FromText OperationWarningsItemCode where

121+instance FromHttpApiData OperationWarningsItemCode where

122− fromText = \case

122+ parseQueryParam = \case

123− "CLEANUP_FAILED" -> Just CleanupFailed

123+ "CLEANUP_FAILED" -> Right CleanupFailed

124− "DEPRECATED_RESOURCE_USED" -> Just DeprecatedResourceUsed

124+ "DEPRECATED_RESOURCE_USED" -> Right DeprecatedResourceUsed

125− "DISK_SIZE_LARGER_THAN_IMAGE_SIZE" -> Just DiskSizeLargerThanImageSize

125+ "DISK_SIZE_LARGER_THAN_IMAGE_SIZE" -> Right DiskSizeLargerThanImageSize

126− "INJECTED_KERNELS_DEPRECATED" -> Just InjectedKernelsDeprecated

126+ "INJECTED_KERNELS_DEPRECATED" -> Right InjectedKernelsDeprecated

127− "NEXT_HOP_ADDRESS_NOT_ASSIGNED" -> Just NextHopAddressNotAssigned

127+ "NEXT_HOP_ADDRESS_NOT_ASSIGNED" -> Right NextHopAddressNotAssigned

128− "NEXT_HOP_CANNOT_IP_FORWARD" -> Just NextHopCannotIPForward

128+ "NEXT_HOP_CANNOT_IP_FORWARD" -> Right NextHopCannotIPForward

129− "NEXT_HOP_INSTANCE_NOT_FOUND" -> Just NextHopInstanceNotFound

129+ "NEXT_HOP_INSTANCE_NOT_FOUND" -> Right NextHopInstanceNotFound

130− "NEXT_HOP_INSTANCE_NOT_ON_NETWORK" -> Just NextHopInstanceNotOnNetwork

130+ "NEXT_HOP_INSTANCE_NOT_ON_NETWORK" -> Right NextHopInstanceNotOnNetwork

131− "NEXT_HOP_NOT_RUNNING" -> Just NextHopNotRunning

131+ "NEXT_HOP_NOT_RUNNING" -> Right NextHopNotRunning

132− "NOT_CRITICAL_ERROR" -> Just NotCriticalError

132+ "NOT_CRITICAL_ERROR" -> Right NotCriticalError

133− "NO_RESULTS_ON_PAGE" -> Just NoResultsOnPage

133+ "NO_RESULTS_ON_PAGE" -> Right NoResultsOnPage

134− "REQUIRED_TOS_AGREEMENT" -> Just RequiredTosAgreement

134+ "REQUIRED_TOS_AGREEMENT" -> Right RequiredTosAgreement

135− "RESOURCE_NOT_DELETED" -> Just ResourceNotDeleted

135+ "RESOURCE_NOT_DELETED" -> Right ResourceNotDeleted

136− "SINGLE_INSTANCE_PROPERTY_TEMPLATE" -> Just SingleInstancePropertyTemplate

136+ "SINGLE_INSTANCE_PROPERTY_TEMPLATE" -> Right SingleInstancePropertyTemplate

137− "UNREACHABLE" -> Just Unreachable

137+ "UNREACHABLE" -> Right Unreachable

138− _ -> Nothing

138+ x -> Left ("Unable to parse OperationWarningsItemCode from: " <> x)

139−

139+

140−instance ToText OperationWarningsItemCode where

140+instance ToHttpApiData OperationWarningsItemCode where

141− toText = \case

141+ toQueryParam = \case

142 CleanupFailed -> "CLEANUP_FAILED"

143 DeprecatedResourceUsed -> "DEPRECATED_RESOURCE_USED"

144 DiskSizeLargerThanImageSize -> "DISK_SIZE_LARGER_THAN_IMAGE_SIZE"

@@ -172,14 +172,14 @@ data BackendServiceProtocol

172

173instance Hashable BackendServiceProtocol

174

175−instance FromText BackendServiceProtocol where

175+instance FromHttpApiData BackendServiceProtocol where

176− fromText = \case

176+ parseQueryParam = \case

177− "HTTP" -> Just HTTP

177+ "HTTP" -> Right HTTP

178− "HTTPS" -> Just HTTPS

178+ "HTTPS" -> Right HTTPS

179− _ -> Nothing

179+ x -> Left ("Unable to parse BackendServiceProtocol from: " <> x)

180

181−instance ToText BackendServiceProtocol where

181+instance ToHttpApiData BackendServiceProtocol where

182− toText = \case

182+ toQueryParam = \case

183 HTTP -> "HTTP"

184 HTTPS -> "HTTPS"

185

@@ -200,14 +200,14 @@ data AttachedDiskType

200

201instance Hashable AttachedDiskType

202

203−instance FromText AttachedDiskType where

203+instance FromHttpApiData AttachedDiskType where

204− fromText = \case

204+ parseQueryParam = \case

205− "PERSISTENT" -> Just Persistent

205+ "PERSISTENT" -> Right Persistent

206− "SCRATCH" -> Just Scratch

206+ "SCRATCH" -> Right Scratch

207− _ -> Nothing

207+ x -> Left ("Unable to parse AttachedDiskType from: " <> x)

208

209−instance ToText AttachedDiskType where

209+instance ToHttpApiData AttachedDiskType where

210− toText = \case

210+ toQueryParam = \case

211 Persistent -> "PERSISTENT"

212 Scratch -> "SCRATCH"

213

@@ -226,13 +226,13 @@ data ImageSourceType

226

227instance Hashable ImageSourceType

228

229−instance FromText ImageSourceType where

229+instance FromHttpApiData ImageSourceType where

230− fromText = \case

230+ parseQueryParam = \case

231− "RAW" -> Just Raw

231+ "RAW" -> Right Raw

232− _ -> Nothing

232+ x -> Left ("Unable to parse ImageSourceType from: " <> x)

233

234−instance ToText ImageSourceType where

234+instance ToHttpApiData ImageSourceType where

235− toText = \case

235+ toQueryParam = \case

236 Raw -> "RAW"

237

238instance FromJSON ImageSourceType where

@@ -278,27 +278,27 @@ data ForwardingRulesScopedListWarningCode

278

279instance Hashable ForwardingRulesScopedListWarningCode

280

281−instance FromText ForwardingRulesScopedListWarningCode where

281+instance FromHttpApiData ForwardingRulesScopedListWarningCode where

282− fromText = \case

282+ parseQueryParam = \case

283− "CLEANUP_FAILED" -> Just FRSLWCCleanupFailed

283+ "CLEANUP_FAILED" -> Right FRSLWCCleanupFailed

284− "DEPRECATED_RESOURCE_USED" -> Just FRSLWCDeprecatedResourceUsed

284+ "DEPRECATED_RESOURCE_USED" -> Right FRSLWCDeprecatedResourceUsed

285− "DISK_SIZE_LARGER_THAN_IMAGE_SIZE" -> Just FRSLWCDiskSizeLargerThanImageSize

285+ "DISK_SIZE_LARGER_THAN_IMAGE_SIZE" -> Right FRSLWCDiskSizeLargerThanImageSize

286− "INJECTED_KERNELS_DEPRECATED" -> Just FRSLWCInjectedKernelsDeprecated

286+ "INJECTED_KERNELS_DEPRECATED" -> Right FRSLWCInjectedKernelsDeprecated

287− "NEXT_HOP_ADDRESS_NOT_ASSIGNED" -> Just FRSLWCNextHopAddressNotAssigned

287+ "NEXT_HOP_ADDRESS_NOT_ASSIGNED" -> Right FRSLWCNextHopAddressNotAssigned

288− "NEXT_HOP_CANNOT_IP_FORWARD" -> Just FRSLWCNextHopCannotIPForward

288+ "NEXT_HOP_CANNOT_IP_FORWARD" -> Right FRSLWCNextHopCannotIPForward

289− "NEXT_HOP_INSTANCE_NOT_FOUND" -> Just FRSLWCNextHopInstanceNotFound

289+ "NEXT_HOP_INSTANCE_NOT_FOUND" -> Right FRSLWCNextHopInstanceNotFound

290− "NEXT_HOP_INSTANCE_NOT_ON_NETWORK" -> Just FRSLWCNextHopInstanceNotOnNetwork

290+ "NEXT_HOP_INSTANCE_NOT_ON_NETWORK" -> Right FRSLWCNextHopInstanceNotOnNetwork

291− "NEXT_HOP_NOT_RUNNING" -> Just FRSLWCNextHopNotRunning

291+ "NEXT_HOP_NOT_RUNNING" -> Right FRSLWCNextHopNotRunning

292− "NOT_CRITICAL_ERROR" -> Just FRSLWCNotCriticalError

292+ "NOT_CRITICAL_ERROR" -> Right FRSLWCNotCriticalError

293− "NO_RESULTS_ON_PAGE" -> Just FRSLWCNoResultsOnPage

293+ "NO_RESULTS_ON_PAGE" -> Right FRSLWCNoResultsOnPage

294− "REQUIRED_TOS_AGREEMENT" -> Just FRSLWCRequiredTosAgreement

294+ "REQUIRED_TOS_AGREEMENT" -> Right FRSLWCRequiredTosAgreement

295− "RESOURCE_NOT_DELETED" -> Just FRSLWCResourceNotDeleted

295+ "RESOURCE_NOT_DELETED" -> Right FRSLWCResourceNotDeleted

296− "SINGLE_INSTANCE_PROPERTY_TEMPLATE" -> Just FRSLWCSingleInstancePropertyTemplate

296+ "SINGLE_INSTANCE_PROPERTY_TEMPLATE" -> Right FRSLWCSingleInstancePropertyTemplate

297− "UNREACHABLE" -> Just FRSLWCUnreachable

297+ "UNREACHABLE" -> Right FRSLWCUnreachable

298− _ -> Nothing

298+ x -> Left ("Unable to parse ForwardingRulesScopedListWarningCode from: " <> x)

299−

299+

300−instance ToText ForwardingRulesScopedListWarningCode where

300+instance ToHttpApiData ForwardingRulesScopedListWarningCode where

301− toText = \case

301+ toQueryParam = \case

302 FRSLWCCleanupFailed -> "CLEANUP_FAILED"

303 FRSLWCDeprecatedResourceUsed -> "DEPRECATED_RESOURCE_USED"

304 FRSLWCDiskSizeLargerThanImageSize -> "DISK_SIZE_LARGER_THAN_IMAGE_SIZE"

@@ -358,27 +358,27 @@ data OperationsScopedListWarningCode

358

359instance Hashable OperationsScopedListWarningCode

360

361−instance FromText OperationsScopedListWarningCode where

361+instance FromHttpApiData OperationsScopedListWarningCode where

362− fromText = \case

362+ parseQueryParam = \case

363− "CLEANUP_FAILED" -> Just OSLWCCleanupFailed

363+ "CLEANUP_FAILED" -> Right OSLWCCleanupFailed

364− "DEPRECATED_RESOURCE_USED" -> Just OSLWCDeprecatedResourceUsed

364+ "DEPRECATED_RESOURCE_USED" -> Right OSLWCDeprecatedResourceUsed

365− "DISK_SIZE_LARGER_THAN_IMAGE_SIZE" -> Just OSLWCDiskSizeLargerThanImageSize

365+ "DISK_SIZE_LARGER_THAN_IMAGE_SIZE" -> Right OSLWCDiskSizeLargerThanImageSize

366− "INJECTED_KERNELS_DEPRECATED" -> Just OSLWCInjectedKernelsDeprecated

366+ "INJECTED_KERNELS_DEPRECATED" -> Right OSLWCInjectedKernelsDeprecated

367− "NEXT_HOP_ADDRESS_NOT_ASSIGNED" -> Just OSLWCNextHopAddressNotAssigned

367+ "NEXT_HOP_ADDRESS_NOT_ASSIGNED" -> Right OSLWCNextHopAddressNotAssigned

368− "NEXT_HOP_CANNOT_IP_FORWARD" -> Just OSLWCNextHopCannotIPForward

368+ "NEXT_HOP_CANNOT_IP_FORWARD" -> Right OSLWCNextHopCannotIPForward

369− "NEXT_HOP_INSTANCE_NOT_FOUND" -> Just OSLWCNextHopInstanceNotFound

369+ "NEXT_HOP_INSTANCE_NOT_FOUND" -> Right OSLWCNextHopInstanceNotFound

370− "NEXT_HOP_INSTANCE_NOT_ON_NETWORK" -> Just OSLWCNextHopInstanceNotOnNetwork

370+ "NEXT_HOP_INSTANCE_NOT_ON_NETWORK" -> Right OSLWCNextHopInstanceNotOnNetwork

371− "NEXT_HOP_NOT_RUNNING" -> Just OSLWCNextHopNotRunning

371+ "NEXT_HOP_NOT_RUNNING" -> Right OSLWCNextHopNotRunning

372− "NOT_CRITICAL_ERROR" -> Just OSLWCNotCriticalError

372+ "NOT_CRITICAL_ERROR" -> Right OSLWCNotCriticalError

373− "NO_RESULTS_ON_PAGE" -> Just OSLWCNoResultsOnPage

373+ "NO_RESULTS_ON_PAGE" -> Right OSLWCNoResultsOnPage

374− "REQUIRED_TOS_AGREEMENT" -> Just OSLWCRequiredTosAgreement

374+ "REQUIRED_TOS_AGREEMENT" -> Right OSLWCRequiredTosAgreement

375− "RESOURCE_NOT_DELETED" -> Just OSLWCResourceNotDeleted

375+ "RESOURCE_NOT_DELETED" -> Right OSLWCResourceNotDeleted

376− "SINGLE_INSTANCE_PROPERTY_TEMPLATE" -> Just OSLWCSingleInstancePropertyTemplate

376+ "SINGLE_INSTANCE_PROPERTY_TEMPLATE" -> Right OSLWCSingleInstancePropertyTemplate

377− "UNREACHABLE" -> Just OSLWCUnreachable

377+ "UNREACHABLE" -> Right OSLWCUnreachable

378− _ -> Nothing

378+ x -> Left ("Unable to parse OperationsScopedListWarningCode from: " <> x)

379−

379+

380−instance ToText OperationsScopedListWarningCode where

380+instance ToHttpApiData OperationsScopedListWarningCode where

381− toText = \case

381+ toQueryParam = \case

382 OSLWCCleanupFailed -> "CLEANUP_FAILED"

383 OSLWCDeprecatedResourceUsed -> "DEPRECATED_RESOURCE_USED"

384 OSLWCDiskSizeLargerThanImageSize -> "DISK_SIZE_LARGER_THAN_IMAGE_SIZE"

@@ -438,27 +438,27 @@ data DisksScopedListWarningCode

438

439instance Hashable DisksScopedListWarningCode

440

441−instance FromText DisksScopedListWarningCode where

441+instance FromHttpApiData DisksScopedListWarningCode where

442− fromText = \case

442+ parseQueryParam = \case

443− "CLEANUP_FAILED" -> Just DSLWCCleanupFailed

443+ "CLEANUP_FAILED" -> Right DSLWCCleanupFailed

444− "DEPRECATED_RESOURCE_USED" -> Just DSLWCDeprecatedResourceUsed

444+ "DEPRECATED_RESOURCE_USED" -> Right DSLWCDeprecatedResourceUsed

445− "DISK_SIZE_LARGER_THAN_IMAGE_SIZE" -> Just DSLWCDiskSizeLargerThanImageSize

445+ "DISK_SIZE_LARGER_THAN_IMAGE_SIZE" -> Right DSLWCDiskSizeLargerThanImageSize

446− "INJECTED_KERNELS_DEPRECATED" -> Just DSLWCInjectedKernelsDeprecated

446+ "INJECTED_KERNELS_DEPRECATED" -> Right DSLWCInjectedKernelsDeprecated

447− "NEXT_HOP_ADDRESS_NOT_ASSIGNED" -> Just DSLWCNextHopAddressNotAssigned

447+ "NEXT_HOP_ADDRESS_NOT_ASSIGNED" -> Right DSLWCNextHopAddressNotAssigned

448− "NEXT_HOP_CANNOT_IP_FORWARD" -> Just DSLWCNextHopCannotIPForward

448+ "NEXT_HOP_CANNOT_IP_FORWARD" -> Right DSLWCNextHopCannotIPForward

449− "NEXT_HOP_INSTANCE_NOT_FOUND" -> Just DSLWCNextHopInstanceNotFound

449+ "NEXT_HOP_INSTANCE_NOT_FOUND" -> Right DSLWCNextHopInstanceNotFound

450− "NEXT_HOP_INSTANCE_NOT_ON_NETWORK" -> Just DSLWCNextHopInstanceNotOnNetwork

450+ "NEXT_HOP_INSTANCE_NOT_ON_NETWORK" -> Right DSLWCNextHopInstanceNotOnNetwork

451− "NEXT_HOP_NOT_RUNNING" -> Just DSLWCNextHopNotRunning

451+ "NEXT_HOP_NOT_RUNNING" -> Right DSLWCNextHopNotRunning

452− "NOT_CRITICAL_ERROR" -> Just DSLWCNotCriticalError

452+ "NOT_CRITICAL_ERROR" -> Right DSLWCNotCriticalError

453− "NO_RESULTS_ON_PAGE" -> Just DSLWCNoResultsOnPage

453+ "NO_RESULTS_ON_PAGE" -> Right DSLWCNoResultsOnPage

454− "REQUIRED_TOS_AGREEMENT" -> Just DSLWCRequiredTosAgreement

454+ "REQUIRED_TOS_AGREEMENT" -> Right DSLWCRequiredTosAgreement

455− "RESOURCE_NOT_DELETED" -> Just DSLWCResourceNotDeleted

455+ "RESOURCE_NOT_DELETED" -> Right DSLWCResourceNotDeleted

456− "SINGLE_INSTANCE_PROPERTY_TEMPLATE" -> Just DSLWCSingleInstancePropertyTemplate

456+ "SINGLE_INSTANCE_PROPERTY_TEMPLATE" -> Right DSLWCSingleInstancePropertyTemplate

457− "UNREACHABLE" -> Just DSLWCUnreachable

457+ "UNREACHABLE" -> Right DSLWCUnreachable

458− _ -> Nothing

458+ x -> Left ("Unable to parse DisksScopedListWarningCode from: " <> x)

459−

459+

460−instance ToText DisksScopedListWarningCode where

460+instance ToHttpApiData DisksScopedListWarningCode where

461− toText = \case

461+ toQueryParam = \case

462 DSLWCCleanupFailed -> "CLEANUP_FAILED"

463 DSLWCDeprecatedResourceUsed -> "DEPRECATED_RESOURCE_USED"

464 DSLWCDiskSizeLargerThanImageSize -> "DISK_SIZE_LARGER_THAN_IMAGE_SIZE"

@@ -518,27 +518,27 @@ data InstanceGroupManagersScopedListWarningCode

518

519instance Hashable InstanceGroupManagersScopedListWarningCode

520

521−instance FromText InstanceGroupManagersScopedListWarningCode where

521+instance FromHttpApiData InstanceGroupManagersScopedListWarningCode where

522− fromText = \case

522+ parseQueryParam = \case

523− "CLEANUP_FAILED" -> Just IGMSLWCCleanupFailed

523+ "CLEANUP_FAILED" -> Right IGMSLWCCleanupFailed

524− "DEPRECATED_RESOURCE_USED" -> Just IGMSLWCDeprecatedResourceUsed

524+ "DEPRECATED_RESOURCE_USED" -> Right IGMSLWCDeprecatedResourceUsed

525− "DISK_SIZE_LARGER_THAN_IMAGE_SIZE" -> Just IGMSLWCDiskSizeLargerThanImageSize

525+ "DISK_SIZE_LARGER_THAN_IMAGE_SIZE" -> Right IGMSLWCDiskSizeLargerThanImageSize

526− "INJECTED_KERNELS_DEPRECATED" -> Just IGMSLWCInjectedKernelsDeprecated

526+ "INJECTED_KERNELS_DEPRECATED" -> Right IGMSLWCInjectedKernelsDeprecated

527− "NEXT_HOP_ADDRESS_NOT_ASSIGNED" -> Just IGMSLWCNextHopAddressNotAssigned

527+ "NEXT_HOP_ADDRESS_NOT_ASSIGNED" -> Right IGMSLWCNextHopAddressNotAssigned

528− "NEXT_HOP_CANNOT_IP_FORWARD" -> Just IGMSLWCNextHopCannotIPForward

528+ "NEXT_HOP_CANNOT_IP_FORWARD" -> Right IGMSLWCNextHopCannotIPForward

529− "NEXT_HOP_INSTANCE_NOT_FOUND" -> Just IGMSLWCNextHopInstanceNotFound

529+ "NEXT_HOP_INSTANCE_NOT_FOUND" -> Right IGMSLWCNextHopInstanceNotFound

530− "NEXT_HOP_INSTANCE_NOT_ON_NETWORK" -> Just IGMSLWCNextHopInstanceNotOnNetwork

530+ "NEXT_HOP_INSTANCE_NOT_ON_NETWORK" -> Right IGMSLWCNextHopInstanceNotOnNetwork

531− "NEXT_HOP_NOT_RUNNING" -> Just IGMSLWCNextHopNotRunning

531+ "NEXT_HOP_NOT_RUNNING" -> Right IGMSLWCNextHopNotRunning

532− "NOT_CRITICAL_ERROR" -> Just IGMSLWCNotCriticalError

532+ "NOT_CRITICAL_ERROR" -> Right IGMSLWCNotCriticalError

533− "NO_RESULTS_ON_PAGE" -> Just IGMSLWCNoResultsOnPage

533+ "NO_RESULTS_ON_PAGE" -> Right IGMSLWCNoResultsOnPage

534− "REQUIRED_TOS_AGREEMENT" -> Just IGMSLWCRequiredTosAgreement

534+ "REQUIRED_TOS_AGREEMENT" -> Right IGMSLWCRequiredTosAgreement

535− "RESOURCE_NOT_DELETED" -> Just IGMSLWCResourceNotDeleted

535+ "RESOURCE_NOT_DELETED" -> Right IGMSLWCResourceNotDeleted

536− "SINGLE_INSTANCE_PROPERTY_TEMPLATE" -> Just IGMSLWCSingleInstancePropertyTemplate

536+ "SINGLE_INSTANCE_PROPERTY_TEMPLATE" -> Right IGMSLWCSingleInstancePropertyTemplate

537− "UNREACHABLE" -> Just IGMSLWCUnreachable

537+ "UNREACHABLE" -> Right IGMSLWCUnreachable

538− _ -> Nothing

538+ x -> Left ("Unable to parse InstanceGroupManagersScopedListWarningCode from: " <> x)

539−

539+

540−instance ToText InstanceGroupManagersScopedListWarningCode where

540+instance ToHttpApiData InstanceGroupManagersScopedListWarningCode where

541− toText = \case

541+ toQueryParam = \case

542 IGMSLWCCleanupFailed -> "CLEANUP_FAILED"

543 IGMSLWCDeprecatedResourceUsed -> "DEPRECATED_RESOURCE_USED"

544 IGMSLWCDiskSizeLargerThanImageSize -> "DISK_SIZE_LARGER_THAN_IMAGE_SIZE"

@@ -598,27 +598,27 @@ data TargetPoolsScopedListWarningCode

598

599instance Hashable TargetPoolsScopedListWarningCode

600

601−instance FromText TargetPoolsScopedListWarningCode where

601+instance FromHttpApiData TargetPoolsScopedListWarningCode where

602− fromText = \case

602+ parseQueryParam = \case

603− "CLEANUP_FAILED" -> Just TPSLWCCleanupFailed

603+ "CLEANUP_FAILED" -> Right TPSLWCCleanupFailed

604− "DEPRECATED_RESOURCE_USED" -> Just TPSLWCDeprecatedResourceUsed

604+ "DEPRECATED_RESOURCE_USED" -> Right TPSLWCDeprecatedResourceUsed

605− "DISK_SIZE_LARGER_THAN_IMAGE_SIZE" -> Just TPSLWCDiskSizeLargerThanImageSize

605+ "DISK_SIZE_LARGER_THAN_IMAGE_SIZE" -> Right TPSLWCDiskSizeLargerThanImageSize

606− "INJECTED_KERNELS_DEPRECATED" -> Just TPSLWCInjectedKernelsDeprecated

606+ "INJECTED_KERNELS_DEPRECATED" -> Right TPSLWCInjectedKernelsDeprecated

607− "NEXT_HOP_ADDRESS_NOT_ASSIGNED" -> Just TPSLWCNextHopAddressNotAssigned

607+ "NEXT_HOP_ADDRESS_NOT_ASSIGNED" -> Right TPSLWCNextHopAddressNotAssigned

608− "NEXT_HOP_CANNOT_IP_FORWARD" -> Just TPSLWCNextHopCannotIPForward

608+ "NEXT_HOP_CANNOT_IP_FORWARD" -> Right TPSLWCNextHopCannotIPForward

609− "NEXT_HOP_INSTANCE_NOT_FOUND" -> Just TPSLWCNextHopInstanceNotFound

609+ "NEXT_HOP_INSTANCE_NOT_FOUND" -> Right TPSLWCNextHopInstanceNotFound

610− "NEXT_HOP_INSTANCE_NOT_ON_NETWORK" -> Just TPSLWCNextHopInstanceNotOnNetwork

610+ "NEXT_HOP_INSTANCE_NOT_ON_NETWORK" -> Right TPSLWCNextHopInstanceNotOnNetwork

611− "NEXT_HOP_NOT_RUNNING" -> Just TPSLWCNextHopNotRunning

611+ "NEXT_HOP_NOT_RUNNING" -> Right TPSLWCNextHopNotRunning

612− "NOT_CRITICAL_ERROR" -> Just TPSLWCNotCriticalError

612+ "NOT_CRITICAL_ERROR" -> Right TPSLWCNotCriticalError

613− "NO_RESULTS_ON_PAGE" -> Just TPSLWCNoResultsOnPage

613+ "NO_RESULTS_ON_PAGE" -> Right TPSLWCNoResultsOnPage

614− "REQUIRED_TOS_AGREEMENT" -> Just TPSLWCRequiredTosAgreement

614+ "REQUIRED_TOS_AGREEMENT" -> Right TPSLWCRequiredTosAgreement

615− "RESOURCE_NOT_DELETED" -> Just TPSLWCResourceNotDeleted

615+ "RESOURCE_NOT_DELETED" -> Right TPSLWCResourceNotDeleted

616− "SINGLE_INSTANCE_PROPERTY_TEMPLATE" -> Just TPSLWCSingleInstancePropertyTemplate

616+ "SINGLE_INSTANCE_PROPERTY_TEMPLATE" -> Right TPSLWCSingleInstancePropertyTemplate

617− "UNREACHABLE" -> Just TPSLWCUnreachable

617+ "UNREACHABLE" -> Right TPSLWCUnreachable

618− _ -> Nothing

618+ x -> Left ("Unable to parse TargetPoolsScopedListWarningCode from: " <> x)

619−

619+

620−instance ToText TargetPoolsScopedListWarningCode where

620+instance ToHttpApiData TargetPoolsScopedListWarningCode where

621− toText = \case

621+ toQueryParam = \case

622 TPSLWCCleanupFailed -> "CLEANUP_FAILED"

623 TPSLWCDeprecatedResourceUsed -> "DEPRECATED_RESOURCE_USED"

624 TPSLWCDiskSizeLargerThanImageSize -> "DISK_SIZE_LARGER_THAN_IMAGE_SIZE"

@@ -655,16 +655,16 @@ data TargetVPNGatewayStatus

655

656instance Hashable TargetVPNGatewayStatus

657

658−instance FromText TargetVPNGatewayStatus where

658+instance FromHttpApiData TargetVPNGatewayStatus where

659− fromText = \case

659+ parseQueryParam = \case

660− "CREATING" -> Just Creating

660+ "CREATING" -> Right Creating

661− "DELETING" -> Just Deleting

661+ "DELETING" -> Right Deleting

662− "FAILED" -> Just Failed

662+ "FAILED" -> Right Failed

663− "READY" -> Just Ready

663+ "READY" -> Right Ready

664− _ -> Nothing

664+ x -> Left ("Unable to parse TargetVPNGatewayStatus from: " <> x)

665

666−instance ToText TargetVPNGatewayStatus where

666+instance ToHttpApiData TargetVPNGatewayStatus where

667− toText = \case

667+ toQueryParam = \case

668 Creating -> "CREATING"

669 Deleting -> "DELETING"

670 Failed -> "FAILED"

@@ -693,17 +693,17 @@ data SnapshotStatus

693

694instance Hashable SnapshotStatus

695

696−instance FromText SnapshotStatus where

696+instance FromHttpApiData SnapshotStatus where

697− fromText = \case

697+ parseQueryParam = \case

698− "CREATING" -> Just SSCreating

698+ "CREATING" -> Right SSCreating

699− "DELETING" -> Just SSDeleting

699+ "DELETING" -> Right SSDeleting

700− "FAILED" -> Just SSFailed

700+ "FAILED" -> Right SSFailed

701− "READY" -> Just SSReady

701+ "READY" -> Right SSReady

702− "UPLOADING" -> Just SSUploading

702+ "UPLOADING" -> Right SSUploading

703− _ -> Nothing

703+ x -> Left ("Unable to parse SnapshotStatus from: " <> x)

704−

704+

705−instance ToText SnapshotStatus where

705+instance ToHttpApiData SnapshotStatus where

706− toText = \case

706+ toQueryParam = \case

707 SSCreating -> "CREATING"

708 SSDeleting -> "DELETING"

709 SSFailed -> "FAILED"

@@ -753,27 +753,27 @@ data TargetInstancesScopedListWarningCode

753

754instance Hashable TargetInstancesScopedListWarningCode

755

756−instance FromText TargetInstancesScopedListWarningCode where

756+instance FromHttpApiData TargetInstancesScopedListWarningCode where

757− fromText = \case

757+ parseQueryParam = \case

758− "CLEANUP_FAILED" -> Just TISLWCCleanupFailed

758+ "CLEANUP_FAILED" -> Right TISLWCCleanupFailed

759− "DEPRECATED_RESOURCE_USED" -> Just TISLWCDeprecatedResourceUsed

759+ "DEPRECATED_RESOURCE_USED" -> Right TISLWCDeprecatedResourceUsed

760− "DISK_SIZE_LARGER_THAN_IMAGE_SIZE" -> Just TISLWCDiskSizeLargerThanImageSize

760+ "DISK_SIZE_LARGER_THAN_IMAGE_SIZE" -> Right TISLWCDiskSizeLargerThanImageSize

761− "INJECTED_KERNELS_DEPRECATED" -> Just TISLWCInjectedKernelsDeprecated

761+ "INJECTED_KERNELS_DEPRECATED" -> Right TISLWCInjectedKernelsDeprecated

762− "NEXT_HOP_ADDRESS_NOT_ASSIGNED" -> Just TISLWCNextHopAddressNotAssigned

762+ "NEXT_HOP_ADDRESS_NOT_ASSIGNED" -> Right TISLWCNextHopAddressNotAssigned

763− "NEXT_HOP_CANNOT_IP_FORWARD" -> Just TISLWCNextHopCannotIPForward

763+ "NEXT_HOP_CANNOT_IP_FORWARD" -> Right TISLWCNextHopCannotIPForward

764− "NEXT_HOP_INSTANCE_NOT_FOUND" -> Just TISLWCNextHopInstanceNotFound

764+ "NEXT_HOP_INSTANCE_NOT_FOUND" -> Right TISLWCNextHopInstanceNotFound

765− "NEXT_HOP_INSTANCE_NOT_ON_NETWORK" -> Just TISLWCNextHopInstanceNotOnNetwork

765+ "NEXT_HOP_INSTANCE_NOT_ON_NETWORK" -> Right TISLWCNextHopInstanceNotOnNetwork

766− "NEXT_HOP_NOT_RUNNING" -> Just TISLWCNextHopNotRunning

766+ "NEXT_HOP_NOT_RUNNING" -> Right TISLWCNextHopNotRunning

767− "NOT_CRITICAL_ERROR" -> Just TISLWCNotCriticalError

767+ "NOT_CRITICAL_ERROR" -> Right TISLWCNotCriticalError

768− "NO_RESULTS_ON_PAGE" -> Just TISLWCNoResultsOnPage

768+ "NO_RESULTS_ON_PAGE" -> Right TISLWCNoResultsOnPage

769− "REQUIRED_TOS_AGREEMENT" -> Just TISLWCRequiredTosAgreement

769+ "REQUIRED_TOS_AGREEMENT" -> Right TISLWCRequiredTosAgreement

770− "RESOURCE_NOT_DELETED" -> Just TISLWCResourceNotDeleted

770+ "RESOURCE_NOT_DELETED" -> Right TISLWCResourceNotDeleted

771− "SINGLE_INSTANCE_PROPERTY_TEMPLATE" -> Just TISLWCSingleInstancePropertyTemplate

771+ "SINGLE_INSTANCE_PROPERTY_TEMPLATE" -> Right TISLWCSingleInstancePropertyTemplate

772− "UNREACHABLE" -> Just TISLWCUnreachable

772+ "UNREACHABLE" -> Right TISLWCUnreachable

773− _ -> Nothing

773+ x -> Left ("Unable to parse TargetInstancesScopedListWarningCode from: " <> x)

774−

774+

775−instance ToText TargetInstancesScopedListWarningCode where

775+instance ToHttpApiData TargetInstancesScopedListWarningCode where

776− toText = \case

776+ toQueryParam = \case

777 TISLWCCleanupFailed -> "CLEANUP_FAILED"

778 TISLWCDeprecatedResourceUsed -> "DEPRECATED_RESOURCE_USED"

779 TISLWCDiskSizeLargerThanImageSize -> "DISK_SIZE_LARGER_THAN_IMAGE_SIZE"

@@ -833,27 +833,27 @@ data RouteWarningsItemCode

833

834instance Hashable RouteWarningsItemCode

835

836−instance FromText RouteWarningsItemCode where

836+instance FromHttpApiData RouteWarningsItemCode where

837− fromText = \case

837+ parseQueryParam = \case

838− "CLEANUP_FAILED" -> Just RWICCleanupFailed

838+ "CLEANUP_FAILED" -> Right RWICCleanupFailed

839− "DEPRECATED_RESOURCE_USED" -> Just RWICDeprecatedResourceUsed

839+ "DEPRECATED_RESOURCE_USED" -> Right RWICDeprecatedResourceUsed

840− "DISK_SIZE_LARGER_THAN_IMAGE_SIZE" -> Just RWICDiskSizeLargerThanImageSize

840+ "DISK_SIZE_LARGER_THAN_IMAGE_SIZE" -> Right RWICDiskSizeLargerThanImageSize

841− "INJECTED_KERNELS_DEPRECATED" -> Just RWICInjectedKernelsDeprecated

841+ "INJECTED_KERNELS_DEPRECATED" -> Right RWICInjectedKernelsDeprecated

842− "NEXT_HOP_ADDRESS_NOT_ASSIGNED" -> Just RWICNextHopAddressNotAssigned

842+ "NEXT_HOP_ADDRESS_NOT_ASSIGNED" -> Right RWICNextHopAddressNotAssigned

843− "NEXT_HOP_CANNOT_IP_FORWARD" -> Just RWICNextHopCannotIPForward

843+ "NEXT_HOP_CANNOT_IP_FORWARD" -> Right RWICNextHopCannotIPForward

844− "NEXT_HOP_INSTANCE_NOT_FOUND" -> Just RWICNextHopInstanceNotFound

844+ "NEXT_HOP_INSTANCE_NOT_FOUND" -> Right RWICNextHopInstanceNotFound

845− "NEXT_HOP_INSTANCE_NOT_ON_NETWORK" -> Just RWICNextHopInstanceNotOnNetwork

845+ "NEXT_HOP_INSTANCE_NOT_ON_NETWORK" -> Right RWICNextHopInstanceNotOnNetwork

846− "NEXT_HOP_NOT_RUNNING" -> Just RWICNextHopNotRunning

846+ "NEXT_HOP_NOT_RUNNING" -> Right RWICNextHopNotRunning

847− "NOT_CRITICAL_ERROR" -> Just RWICNotCriticalError

847+ "NOT_CRITICAL_ERROR" -> Right RWICNotCriticalError

848− "NO_RESULTS_ON_PAGE" -> Just RWICNoResultsOnPage

848+ "NO_RESULTS_ON_PAGE" -> Right RWICNoResultsOnPage

849− "REQUIRED_TOS_AGREEMENT" -> Just RWICRequiredTosAgreement

849+ "REQUIRED_TOS_AGREEMENT" -> Right RWICRequiredTosAgreement

850− "RESOURCE_NOT_DELETED" -> Just RWICResourceNotDeleted

850+ "RESOURCE_NOT_DELETED" -> Right RWICResourceNotDeleted

851− "SINGLE_INSTANCE_PROPERTY_TEMPLATE" -> Just RWICSingleInstancePropertyTemplate

851+ "SINGLE_INSTANCE_PROPERTY_TEMPLATE" -> Right RWICSingleInstancePropertyTemplate

852− "UNREACHABLE" -> Just RWICUnreachable

852+ "UNREACHABLE" -> Right RWICUnreachable

853− _ -> Nothing

853+ x -> Left ("Unable to parse RouteWarningsItemCode from: " <> x)

854−

854+

855−instance ToText RouteWarningsItemCode where

855+instance ToHttpApiData RouteWarningsItemCode where

856− toText = \case

856+ toQueryParam = \case

857 RWICCleanupFailed -> "CLEANUP_FAILED"

858 RWICDeprecatedResourceUsed -> "DEPRECATED_RESOURCE_USED"

859 RWICDiskSizeLargerThanImageSize -> "DISK_SIZE_LARGER_THAN_IMAGE_SIZE"

@@ -889,14 +889,14 @@ data SnapshotStorageBytesStatus

889

890instance Hashable SnapshotStorageBytesStatus

891

892−instance FromText SnapshotStorageBytesStatus where

892+instance FromHttpApiData SnapshotStorageBytesStatus where

893− fromText = \case

893+ parseQueryParam = \case

894− "UPDATING" -> Just Updating

894+ "UPDATING" -> Right Updating

895− "UP_TO_DATE" -> Just UpToDate

895+ "UP_TO_DATE" -> Right UpToDate

896− _ -> Nothing

896+ x -> Left ("Unable to parse SnapshotStorageBytesStatus from: " <> x)

897

898−instance ToText SnapshotStorageBytesStatus where

898+instance ToHttpApiData SnapshotStorageBytesStatus where

899− toText = \case

899+ toQueryParam = \case

900 Updating -> "UPDATING"

901 UpToDate -> "UP_TO_DATE"

902

@@ -943,27 +943,27 @@ data AddressesScopedListWarningCode

943

944instance Hashable AddressesScopedListWarningCode

945

946−instance FromText AddressesScopedListWarningCode where

946+instance FromHttpApiData AddressesScopedListWarningCode where

947− fromText = \case

947+ parseQueryParam = \case

948− "CLEANUP_FAILED" -> Just ASLWCCleanupFailed

948+ "CLEANUP_FAILED" -> Right ASLWCCleanupFailed

949− "DEPRECATED_RESOURCE_USED" -> Just ASLWCDeprecatedResourceUsed

949+ "DEPRECATED_RESOURCE_USED" -> Right ASLWCDeprecatedResourceUsed

950− "DISK_SIZE_LARGER_THAN_IMAGE_SIZE" -> Just ASLWCDiskSizeLargerThanImageSize

950+ "DISK_SIZE_LARGER_THAN_IMAGE_SIZE" -> Right ASLWCDiskSizeLargerThanImageSize

951− "INJECTED_KERNELS_DEPRECATED" -> Just ASLWCInjectedKernelsDeprecated

951+ "INJECTED_KERNELS_DEPRECATED" -> Right ASLWCInjectedKernelsDeprecated

952− "NEXT_HOP_ADDRESS_NOT_ASSIGNED" -> Just ASLWCNextHopAddressNotAssigned

952+ "NEXT_HOP_ADDRESS_NOT_ASSIGNED" -> Right ASLWCNextHopAddressNotAssigned

953− "NEXT_HOP_CANNOT_IP_FORWARD" -> Just ASLWCNextHopCannotIPForward

953+ "NEXT_HOP_CANNOT_IP_FORWARD" -> Right ASLWCNextHopCannotIPForward

954− "NEXT_HOP_INSTANCE_NOT_FOUND" -> Just ASLWCNextHopInstanceNotFound

954+ "NEXT_HOP_INSTANCE_NOT_FOUND" -> Right ASLWCNextHopInstanceNotFound

955− "NEXT_HOP_INSTANCE_NOT_ON_NETWORK" -> Just ASLWCNextHopInstanceNotOnNetwork

955+ "NEXT_HOP_INSTANCE_NOT_ON_NETWORK" -> Right ASLWCNextHopInstanceNotOnNetwork

956− "NEXT_HOP_NOT_RUNNING" -> Just ASLWCNextHopNotRunning

956+ "NEXT_HOP_NOT_RUNNING" -> Right ASLWCNextHopNotRunning

957− "NOT_CRITICAL_ERROR" -> Just ASLWCNotCriticalError

957+ "NOT_CRITICAL_ERROR" -> Right ASLWCNotCriticalError

958− "NO_RESULTS_ON_PAGE" -> Just ASLWCNoResultsOnPage

958+ "NO_RESULTS_ON_PAGE" -> Right ASLWCNoResultsOnPage

959− "REQUIRED_TOS_AGREEMENT" -> Just ASLWCRequiredTosAgreement

959+ "REQUIRED_TOS_AGREEMENT" -> Right ASLWCRequiredTosAgreement

960− "RESOURCE_NOT_DELETED" -> Just ASLWCResourceNotDeleted

960+ "RESOURCE_NOT_DELETED" -> Right ASLWCResourceNotDeleted

961− "SINGLE_INSTANCE_PROPERTY_TEMPLATE" -> Just ASLWCSingleInstancePropertyTemplate

961+ "SINGLE_INSTANCE_PROPERTY_TEMPLATE" -> Right ASLWCSingleInstancePropertyTemplate

962− "UNREACHABLE" -> Just ASLWCUnreachable

962+ "UNREACHABLE" -> Right ASLWCUnreachable

963− _ -> Nothing

963+ x -> Left ("Unable to parse AddressesScopedListWarningCode from: " <> x)

964−

964+

965−instance ToText AddressesScopedListWarningCode where

965+instance ToHttpApiData AddressesScopedListWarningCode where

966− toText = \case

966+ toQueryParam = \case

967 ASLWCCleanupFailed -> "CLEANUP_FAILED"

968 ASLWCDeprecatedResourceUsed -> "DEPRECATED_RESOURCE_USED"

969 ASLWCDiskSizeLargerThanImageSize -> "DISK_SIZE_LARGER_THAN_IMAGE_SIZE"

@@ -1001,15 +1001,15 @@ data ImageStatus

1001

1002instance Hashable ImageStatus

1003

1004−instance FromText ImageStatus where

1004+instance FromHttpApiData ImageStatus where

1005− fromText = \case

1005+ parseQueryParam = \case

1006− "FAILED" -> Just ISFailed

1006+ "FAILED" -> Right ISFailed

1007− "PENDING" -> Just ISPending

1007+ "PENDING" -> Right ISPending

1008− "READY" -> Just ISReady

1008+ "READY" -> Right ISReady

1009− _ -> Nothing

1009+ x -> Left ("Unable to parse ImageStatus from: " <> x)

1010

1011−instance ToText ImageStatus where

1011+instance ToHttpApiData ImageStatus where

1012− toText = \case

1012+ toQueryParam = \case

1013 ISFailed -> "FAILED"

1014 ISPending -> "PENDING"

1015 ISReady -> "READY"

@@ -1030,14 +1030,14 @@ data HealthStatusHealthState

1030

1031instance Hashable HealthStatusHealthState

1032

1033−instance FromText HealthStatusHealthState where

1033+instance FromHttpApiData HealthStatusHealthState where

1034− fromText = \case

1034+ parseQueryParam = \case

1035− "HEALTHY" -> Just Healthy

1035+ "HEALTHY" -> Right Healthy

1036− "UNHEALTHY" -> Just Unhealthy

1036+ "UNHEALTHY" -> Right Unhealthy

1037− _ -> Nothing

1037+ x -> Left ("Unable to parse HealthStatusHealthState from: " <> x)

1038

1039−instance ToText HealthStatusHealthState where

1039+instance ToHttpApiData HealthStatusHealthState where

1040− toText = \case

1040+ toQueryParam = \case

1041 Healthy -> "HEALTHY"

1042 Unhealthy -> "UNHEALTHY"

1043

@@ -1064,15 +1064,15 @@ data DeprecationStatusState

1064

1065instance Hashable DeprecationStatusState

1066

1067−instance FromText DeprecationStatusState where

1067+instance FromHttpApiData DeprecationStatusState where

1068− fromText = \case

1068+ parseQueryParam = \case

1069− "DELETED" -> Just Deleted

1069+ "DELETED" -> Right Deleted

1070− "DEPRECATED" -> Just Deprecated

1070+ "DEPRECATED" -> Right Deprecated

1071− "OBSOLETE" -> Just Obsolete

1071+ "OBSOLETE" -> Right Obsolete

1072− _ -> Nothing

1072+ x -> Left ("Unable to parse DeprecationStatusState from: " <> x)

1073

1074−instance ToText DeprecationStatusState where

1074+instance ToHttpApiData DeprecationStatusState where

1075− toText = \case

1075+ toQueryParam = \case

1076 Deleted -> "DELETED"

1077 Deprecated -> "DEPRECATED"

1078 Obsolete -> "OBSOLETE"

@@ -1120,19 +1120,19 @@ data ManagedInstanceCurrentAction

1120

1121instance Hashable ManagedInstanceCurrentAction

1122

1123−instance FromText ManagedInstanceCurrentAction where

1123+instance FromHttpApiData ManagedInstanceCurrentAction where

1124− fromText = \case

1124+ parseQueryParam = \case

1125− "ABANDONING" -> Just MICAAbandoning

1125+ "ABANDONING" -> Right MICAAbandoning

1126− "CREATING" -> Just MICACreating

1126+ "CREATING" -> Right MICACreating

1127− "DELETING" -> Just MICADeleting

1127+ "DELETING" -> Right MICADeleting

1128− "NONE" -> Just MICANone

1128+ "NONE" -> Right MICANone

1129− "RECREATING" -> Just MICARecreating

1129+ "RECREATING" -> Right MICARecreating

1130− "REFRESHING" -> Just MICARefreshing

1130+ "REFRESHING" -> Right MICARefreshing

1131− "RESTARTING" -> Just MICARestarting

1131+ "RESTARTING" -> Right MICARestarting

1132− _ -> Nothing

1132+ x -> Left ("Unable to parse ManagedInstanceCurrentAction from: " <> x)

1133−

1133+

1134−instance ToText ManagedInstanceCurrentAction where

1134+instance ToHttpApiData ManagedInstanceCurrentAction where

1135− toText = \case

1135+ toQueryParam = \case

1136 MICAAbandoning -> "ABANDONING"

1137 MICACreating -> "CREATING"

1138 MICADeleting -> "DELETING"

@@ -1156,13 +1156,13 @@ data TargetInstanceNATPolicy

1156

1157instance Hashable TargetInstanceNATPolicy

1158

1159−instance FromText TargetInstanceNATPolicy where

1159+instance FromHttpApiData TargetInstanceNATPolicy where

1160− fromText = \case

1160+ parseQueryParam = \case

1161− "NO_NAT" -> Just NoNAT

1161+ "NO_NAT" -> Right NoNAT

1162− _ -> Nothing

1162+ x -> Left ("Unable to parse TargetInstanceNATPolicy from: " <> x)

1163

1164−instance ToText TargetInstanceNATPolicy where

1164+instance ToHttpApiData TargetInstanceNATPolicy where

1165− toText = \case

1165+ toQueryParam = \case

1166 NoNAT -> "NO_NAT"

1167

1168instance FromJSON TargetInstanceNATPolicy where

@@ -1180,13 +1180,13 @@ data AccessConfigType

1180

1181instance Hashable AccessConfigType

1182

1183−instance FromText AccessConfigType where

1183+instance FromHttpApiData AccessConfigType where

1184− fromText = \case

1184+ parseQueryParam = \case

1185− "ONE_TO_ONE_NAT" -> Just OneToOneNAT

1185+ "ONE_TO_ONE_NAT" -> Right OneToOneNAT

1186− _ -> Nothing

1186+ x -> Left ("Unable to parse AccessConfigType from: " <> x)

1187

1188−instance ToText AccessConfigType where

1188+instance ToHttpApiData AccessConfigType where

1189− toText = \case

1189+ toQueryParam = \case

1190 OneToOneNAT -> "ONE_TO_ONE_NAT"

1191

1192instance FromJSON AccessConfigType where

@@ -1208,15 +1208,15 @@ data OperationStatus

1208

1209instance Hashable OperationStatus

1210

1211−instance FromText OperationStatus where

1211+instance FromHttpApiData OperationStatus where

1212− fromText = \case

1212+ parseQueryParam = \case

1213− "DONE" -> Just Done

1213+ "DONE" -> Right Done

1214− "PENDING" -> Just Pending

1214+ "PENDING" -> Right Pending

1215− "RUNNING" -> Just Running

1215+ "RUNNING" -> Right Running

1216− _ -> Nothing

1216+ x -> Left ("Unable to parse OperationStatus from: " <> x)

1217

1218−instance ToText OperationStatus where

1218+instance ToHttpApiData OperationStatus where

1219− toText = \case

1219+ toQueryParam = \case

1220 Done -> "DONE"

1221 Pending -> "PENDING"

1222 Running -> "RUNNING"

@@ -1264,27 +1264,27 @@ data TargetVPNGatewaysScopedListWarningCode

1264

1265instance Hashable TargetVPNGatewaysScopedListWarningCode

1266

1267−instance FromText TargetVPNGatewaysScopedListWarningCode where

1267+instance FromHttpApiData TargetVPNGatewaysScopedListWarningCode where

1268− fromText = \case

1268+ parseQueryParam = \case

1269− "CLEANUP_FAILED" -> Just TVGSLWCCleanupFailed

1269+ "CLEANUP_FAILED" -> Right TVGSLWCCleanupFailed

1270− "DEPRECATED_RESOURCE_USED" -> Just TVGSLWCDeprecatedResourceUsed

1270+ "DEPRECATED_RESOURCE_USED" -> Right TVGSLWCDeprecatedResourceUsed

1271− "DISK_SIZE_LARGER_THAN_IMAGE_SIZE" -> Just TVGSLWCDiskSizeLargerThanImageSize

1271+ "DISK_SIZE_LARGER_THAN_IMAGE_SIZE" -> Right TVGSLWCDiskSizeLargerThanImageSize

1272− "INJECTED_KERNELS_DEPRECATED" -> Just TVGSLWCInjectedKernelsDeprecated

1272+ "INJECTED_KERNELS_DEPRECATED" -> Right TVGSLWCInjectedKernelsDeprecated

1273− "NEXT_HOP_ADDRESS_NOT_ASSIGNED" -> Just TVGSLWCNextHopAddressNotAssigned

1273+ "NEXT_HOP_ADDRESS_NOT_ASSIGNED" -> Right TVGSLWCNextHopAddressNotAssigned

1274− "NEXT_HOP_CANNOT_IP_FORWARD" -> Just TVGSLWCNextHopCannotIPForward

1274+ "NEXT_HOP_CANNOT_IP_FORWARD" -> Right TVGSLWCNextHopCannotIPForward

1275− "NEXT_HOP_INSTANCE_NOT_FOUND" -> Just TVGSLWCNextHopInstanceNotFound

1275+ "NEXT_HOP_INSTANCE_NOT_FOUND" -> Right TVGSLWCNextHopInstanceNotFound

1276− "NEXT_HOP_INSTANCE_NOT_ON_NETWORK" -> Just TVGSLWCNextHopInstanceNotOnNetwork

1276+ "NEXT_HOP_INSTANCE_NOT_ON_NETWORK" -> Right TVGSLWCNextHopInstanceNotOnNetwork

1277− "NEXT_HOP_NOT_RUNNING" -> Just TVGSLWCNextHopNotRunning

1277+ "NEXT_HOP_NOT_RUNNING" -> Right TVGSLWCNextHopNotRunning

1278− "NOT_CRITICAL_ERROR" -> Just TVGSLWCNotCriticalError

1278+ "NOT_CRITICAL_ERROR" -> Right TVGSLWCNotCriticalError

1279− "NO_RESULTS_ON_PAGE" -> Just TVGSLWCNoResultsOnPage

1279+ "NO_RESULTS_ON_PAGE" -> Right TVGSLWCNoResultsOnPage

1280− "REQUIRED_TOS_AGREEMENT" -> Just TVGSLWCRequiredTosAgreement

1280+ "REQUIRED_TOS_AGREEMENT" -> Right TVGSLWCRequiredTosAgreement

1281− "RESOURCE_NOT_DELETED" -> Just TVGSLWCResourceNotDeleted

1281+ "RESOURCE_NOT_DELETED" -> Right TVGSLWCResourceNotDeleted

1282− "SINGLE_INSTANCE_PROPERTY_TEMPLATE" -> Just TVGSLWCSingleInstancePropertyTemplate

1282+ "SINGLE_INSTANCE_PROPERTY_TEMPLATE" -> Right TVGSLWCSingleInstancePropertyTemplate

1283− "UNREACHABLE" -> Just TVGSLWCUnreachable

1283+ "UNREACHABLE" -> Right TVGSLWCUnreachable

1284− _ -> Nothing

1284+ x -> Left ("Unable to parse TargetVPNGatewaysScopedListWarningCode from: " <> x)

1285−

1285+

1286−instance ToText TargetVPNGatewaysScopedListWarningCode where

1286+instance ToHttpApiData TargetVPNGatewaysScopedListWarningCode where

1287− toText = \case

1287+ toQueryParam = \case

1288 TVGSLWCCleanupFailed -> "CLEANUP_FAILED"

1289 TVGSLWCDeprecatedResourceUsed -> "DEPRECATED_RESOURCE_USED"

1290 TVGSLWCDiskSizeLargerThanImageSize -> "DISK_SIZE_LARGER_THAN_IMAGE_SIZE"

@@ -1322,16 +1322,16 @@ data DiskStatus

1322

1323instance Hashable DiskStatus

1324

1325−instance FromText DiskStatus where

1325+instance FromHttpApiData DiskStatus where

1326− fromText = \case

1326+ parseQueryParam = \case

1327− "CREATING" -> Just DSCreating

1327+ "CREATING" -> Right DSCreating

1328− "FAILED" -> Just DSFailed

1328+ "FAILED" -> Right DSFailed

1329− "READY" -> Just DSReady

1329+ "READY" -> Right DSReady

1330− "RESTORING" -> Just DSRestoring

1330+ "RESTORING" -> Right DSRestoring

1331− _ -> Nothing

1331+ x -> Left ("Unable to parse DiskStatus from: " <> x)

1332

1333−instance ToText DiskStatus where

1333+instance ToHttpApiData DiskStatus where

1334− toText = \case

1334+ toQueryParam = \case

1335 DSCreating -> "CREATING"

1336 DSFailed -> "FAILED"

1337 DSReady -> "READY"

@@ -1366,20 +1366,20 @@ data ManagedInstanceInstanceStatus

1366

1367instance Hashable ManagedInstanceInstanceStatus

1368

1369−instance FromText ManagedInstanceInstanceStatus where

1369+instance FromHttpApiData ManagedInstanceInstanceStatus where

1370− fromText = \case

1370+ parseQueryParam = \case

1371− "PROVISIONING" -> Just MIISProvisioning

1371+ "PROVISIONING" -> Right MIISProvisioning

1372− "RUNNING" -> Just MIISRunning

1372+ "RUNNING" -> Right MIISRunning

1373− "STAGING" -> Just MIISStaging

1373+ "STAGING" -> Right MIISStaging

1374− "STOPPED" -> Just MIISStopped

1374+ "STOPPED" -> Right MIISStopped

1375− "STOPPING" -> Just MIISStopping

1375+ "STOPPING" -> Right MIISStopping

1376− "SUSPENDED" -> Just MIISSuspended

1376+ "SUSPENDED" -> Right MIISSuspended

1377− "SUSPENDING" -> Just MIISSuspending

1377+ "SUSPENDING" -> Right MIISSuspending

1378− "TERMINATED" -> Just MIISTerminated

1378+ "TERMINATED" -> Right MIISTerminated

1379− _ -> Nothing

1379+ x -> Left ("Unable to parse ManagedInstanceInstanceStatus from: " <> x)

1380−

1380+

1381−instance ToText ManagedInstanceInstanceStatus where

1381+instance ToHttpApiData ManagedInstanceInstanceStatus where

1382− toText = \case

1382+ toQueryParam = \case

1383 MIISProvisioning -> "PROVISIONING"

1384 MIISRunning -> "RUNNING"

1385 MIISStaging -> "STAGING"

@@ -1406,14 +1406,14 @@ data AttachedDiskMode

1406

1407instance Hashable AttachedDiskMode

1408

1409−instance FromText AttachedDiskMode where

1409+instance FromHttpApiData AttachedDiskMode where

1410− fromText = \case

1410+ parseQueryParam = \case

1411− "READ_ONLY" -> Just ReadOnly

1411+ "READ_ONLY" -> Right ReadOnly

1412− "READ_WRITE" -> Just ReadWrite

1412+ "READ_WRITE" -> Right ReadWrite

1413− _ -> Nothing

1413+ x -> Left ("Unable to parse AttachedDiskMode from: " <> x)

1414

1415−instance ToText AttachedDiskMode where

1415+instance ToHttpApiData AttachedDiskMode where

1416− toText = \case

1416+ toQueryParam = \case

1417 ReadOnly -> "READ_ONLY"

1418 ReadWrite -> "READ_WRITE"

1419

@@ -1433,14 +1433,14 @@ data RegionStatus

1433

1434instance Hashable RegionStatus

1435

1436−instance FromText RegionStatus where

1436+instance FromHttpApiData RegionStatus where

1437− fromText = \case

1437+ parseQueryParam = \case

1438− "DOWN" -> Just Down

1438+ "DOWN" -> Right Down

1439− "UP" -> Just UP

1439+ "UP" -> Right UP

1440− _ -> Nothing

1440+ x -> Left ("Unable to parse RegionStatus from: " <> x)

1441

1442−instance ToText RegionStatus where

1442+instance ToHttpApiData RegionStatus where

1443− toText = \case

1443+ toQueryParam = \case

1444 Down -> "DOWN"

1445 UP -> "UP"

1446

@@ -1480,24 +1480,24 @@ data VPNTunnelStatus

1480

1481instance Hashable VPNTunnelStatus

1482

1483−instance FromText VPNTunnelStatus where

1483+instance FromHttpApiData VPNTunnelStatus where

1484− fromText = \case

1484+ parseQueryParam = \case

1485− "ALLOCATING_RESOURCES" -> Just VTSAllocatingResources

1485+ "ALLOCATING_RESOURCES" -> Right VTSAllocatingResources

1486− "AUTHORIZATION_ERROR" -> Just VTSAuthorizationError

1486+ "AUTHORIZATION_ERROR" -> Right VTSAuthorizationError

1487− "DEPROVISIONING" -> Just VTSDeprovisioning

1487+ "DEPROVISIONING" -> Right VTSDeprovisioning

1488− "ESTABLISHED" -> Just VTSEstablished

1488+ "ESTABLISHED" -> Right VTSEstablished

1489− "FAILED" -> Just VTSFailed

1489+ "FAILED" -> Right VTSFailed

1490− "FIRST_HANDSHAKE" -> Just VTSFirstHandshake

1490+ "FIRST_HANDSHAKE" -> Right VTSFirstHandshake

1491− "NEGOTIATION_FAILURE" -> Just VTSNegotiationFailure

1491+ "NEGOTIATION_FAILURE" -> Right VTSNegotiationFailure

1492− "NETWORK_ERROR" -> Just VTSNetworkError

1492+ "NETWORK_ERROR" -> Right VTSNetworkError

1493− "NO_INCOMING_PACKETS" -> Just VTSNoIncomingPackets

1493+ "NO_INCOMING_PACKETS" -> Right VTSNoIncomingPackets

1494− "PROVISIONING" -> Just VTSProvisioning

1494+ "PROVISIONING" -> Right VTSProvisioning

1495− "REJECTED" -> Just VTSRejected

1495+ "REJECTED" -> Right VTSRejected

1496− "WAITING_FOR_FULL_CONFIG" -> Just VTSWaitingForFullConfig

1496+ "WAITING_FOR_FULL_CONFIG" -> Right VTSWaitingForFullConfig

1497− _ -> Nothing

1497+ x -> Left ("Unable to parse VPNTunnelStatus from: " <> x)

1498−

1498+

1499−instance ToText VPNTunnelStatus where

1499+instance ToHttpApiData VPNTunnelStatus where

1500− toText = \case

1500+ toQueryParam = \case

1501 VTSAllocatingResources -> "ALLOCATING_RESOURCES"

1502 VTSAuthorizationError -> "AUTHORIZATION_ERROR"

1503 VTSDeprovisioning -> "DEPROVISIONING"

@@ -1529,14 +1529,14 @@ data BackendBalancingMode

1529

1530instance Hashable BackendBalancingMode

1531

1532−instance FromText BackendBalancingMode where

1532+instance FromHttpApiData BackendBalancingMode where

1533− fromText = \case

1533+ parseQueryParam = \case

1534− "RATE" -> Just Rate

1534+ "RATE" -> Right Rate

1535− "UTILIZATION" -> Just Utilization

1535+ "UTILIZATION" -> Right Utilization

1536− _ -> Nothing

1536+ x -> Left ("Unable to parse BackendBalancingMode from: " <> x)

1537

1538−instance ToText BackendBalancingMode where

1538+instance ToHttpApiData BackendBalancingMode where

1539− toText = \case

1539+ toQueryParam = \case

1540 Rate -> "RATE"

1541 Utilization -> "UTILIZATION"

1542

@@ -1563,17 +1563,17 @@ data ForwardingRuleIPProtocol

1563

1564instance Hashable ForwardingRuleIPProtocol

1565

1566−instance FromText ForwardingRuleIPProtocol where

1566+instance FromHttpApiData ForwardingRuleIPProtocol where

1567− fromText = \case

1567+ parseQueryParam = \case

1568− "AH" -> Just AH

1568+ "AH" -> Right AH

1569− "ESP" -> Just Esp

1569+ "ESP" -> Right Esp

1570− "SCTP" -> Just Sctp

1570+ "SCTP" -> Right Sctp

1571− "TCP" -> Just TCP

1571+ "TCP" -> Right TCP

1572− "UDP" -> Just Udp

1572+ "UDP" -> Right Udp

1573− _ -> Nothing

1573+ x -> Left ("Unable to parse ForwardingRuleIPProtocol from: " <> x)

1574−

1574+

1575−instance ToText ForwardingRuleIPProtocol where

1575+instance ToHttpApiData ForwardingRuleIPProtocol where

1576− toText = \case

1576+ toQueryParam = \case

1577 AH -> "AH"

1578 Esp -> "ESP"

1579 Sctp -> "SCTP"

@@ -1599,14 +1599,14 @@ data AddressStatus

1599

1600instance Hashable AddressStatus

1601

1602−instance FromText AddressStatus where

1602+instance FromHttpApiData AddressStatus where

1603− fromText = \case

1603+ parseQueryParam = \case

1604− "IN_USE" -> Just InUse

1604+ "IN_USE" -> Right InUse

1605− "RESERVED" -> Just Reserved

1605+ "RESERVED" -> Right Reserved

1606− _ -> Nothing

1606+ x -> Left ("Unable to parse AddressStatus from: " <> x)

1607

1608−instance ToText AddressStatus where

1608+instance ToHttpApiData AddressStatus where

1609− toText = \case

1609+ toQueryParam = \case

1610 InUse -> "IN_USE"

1611 Reserved -> "RESERVED"

1612

@@ -1628,14 +1628,14 @@ data InstanceGroupsListInstancesRequestInstanceState

1628

1629instance Hashable InstanceGroupsListInstancesRequestInstanceState

1630

1631−instance FromText InstanceGroupsListInstancesRequestInstanceState where

1631+instance FromHttpApiData InstanceGroupsListInstancesRequestInstanceState where

1632− fromText = \case

1632+ parseQueryParam = \case

1633− "ALL" -> Just IGLIRISAll

1633+ "ALL" -> Right IGLIRISAll

1634− "RUNNING" -> Just IGLIRISRunning

1634+ "RUNNING" -> Right IGLIRISRunning

1635− _ -> Nothing

1635+ x -> Left ("Unable to parse InstanceGroupsListInstancesRequestInstanceState from: " <> x)

1636

1637−instance ToText InstanceGroupsListInstancesRequestInstanceState where

1637+instance ToHttpApiData InstanceGroupsListInstancesRequestInstanceState where

1638− toText = \case

1638+ toQueryParam = \case

1639 IGLIRISAll -> "ALL"

1640 IGLIRISRunning -> "RUNNING"

1641

@@ -1660,14 +1660,14 @@ data AttachedDiskInterface

1660

1661instance Hashable AttachedDiskInterface

1662

1663−instance FromText AttachedDiskInterface where

1663+instance FromHttpApiData AttachedDiskInterface where

1664− fromText = \case

1664+ parseQueryParam = \case

1665− "NVME" -> Just Nvme

1665+ "NVME" -> Right Nvme

1666− "SCSI" -> Just Scsi

1666+ "SCSI" -> Right Scsi

1667− _ -> Nothing

1667+ x -> Left ("Unable to parse AttachedDiskInterface from: " <> x)

1668

1669−instance ToText AttachedDiskInterface where

1669+instance ToHttpApiData AttachedDiskInterface where

1670− toText = \case

1670+ toQueryParam = \case

1671 Nvme -> "NVME"

1672 Scsi -> "SCSI"

1673

@@ -1687,14 +1687,14 @@ data ZoneStatus

1687

1688instance Hashable ZoneStatus

1689

1690−instance FromText ZoneStatus where

1690+instance FromHttpApiData ZoneStatus where

1691− fromText = \case

1691+ parseQueryParam = \case

1692− "DOWN" -> Just ZSDown

1692+ "DOWN" -> Right ZSDown

1693− "UP" -> Just ZSUP

1693+ "UP" -> Right ZSUP

1694− _ -> Nothing

1694+ x -> Left ("Unable to parse ZoneStatus from: " <> x)

1695

1696−instance ToText ZoneStatus where

1696+instance ToHttpApiData ZoneStatus where

1697− toText = \case

1697+ toQueryParam = \case

1698 ZSDown -> "DOWN"

1699 ZSUP -> "UP"

1700

@@ -1741,27 +1741,27 @@ data SubnetworksScopedListWarningCode

1741

1742instance Hashable SubnetworksScopedListWarningCode

1743

1744−instance FromText SubnetworksScopedListWarningCode where

1744+instance FromHttpApiData SubnetworksScopedListWarningCode where

1745− fromText = \case

1745+ parseQueryParam = \case

1746− "CLEANUP_FAILED" -> Just SSLWCCleanupFailed

1746+ "CLEANUP_FAILED" -> Right SSLWCCleanupFailed

1747− "DEPRECATED_RESOURCE_USED" -> Just SSLWCDeprecatedResourceUsed

1747+ "DEPRECATED_RESOURCE_USED" -> Right SSLWCDeprecatedResourceUsed

1748− "DISK_SIZE_LARGER_THAN_IMAGE_SIZE" -> Just SSLWCDiskSizeLargerThanImageSize

1748+ "DISK_SIZE_LARGER_THAN_IMAGE_SIZE" -> Right SSLWCDiskSizeLargerThanImageSize

1749− "INJECTED_KERNELS_DEPRECATED" -> Just SSLWCInjectedKernelsDeprecated

1749+ "INJECTED_KERNELS_DEPRECATED" -> Right SSLWCInjectedKernelsDeprecated

1750− "NEXT_HOP_ADDRESS_NOT_ASSIGNED" -> Just SSLWCNextHopAddressNotAssigned

1750+ "NEXT_HOP_ADDRESS_NOT_ASSIGNED" -> Right SSLWCNextHopAddressNotAssigned

1751− "NEXT_HOP_CANNOT_IP_FORWARD" -> Just SSLWCNextHopCannotIPForward

1751+ "NEXT_HOP_CANNOT_IP_FORWARD" -> Right SSLWCNextHopCannotIPForward

1752− "NEXT_HOP_INSTANCE_NOT_FOUND" -> Just SSLWCNextHopInstanceNotFound

1752+ "NEXT_HOP_INSTANCE_NOT_FOUND" -> Right SSLWCNextHopInstanceNotFound

1753− "NEXT_HOP_INSTANCE_NOT_ON_NETWORK" -> Just SSLWCNextHopInstanceNotOnNetwork

1753+ "NEXT_HOP_INSTANCE_NOT_ON_NETWORK" -> Right SSLWCNextHopInstanceNotOnNetwork

1754− "NEXT_HOP_NOT_RUNNING" -> Just SSLWCNextHopNotRunning

1754+ "NEXT_HOP_NOT_RUNNING" -> Right SSLWCNextHopNotRunning

1755− "NOT_CRITICAL_ERROR" -> Just SSLWCNotCriticalError

1755+ "NOT_CRITICAL_ERROR" -> Right SSLWCNotCriticalError

1756− "NO_RESULTS_ON_PAGE" -> Just SSLWCNoResultsOnPage

1756+ "NO_RESULTS_ON_PAGE" -> Right SSLWCNoResultsOnPage

1757− "REQUIRED_TOS_AGREEMENT" -> Just SSLWCRequiredTosAgreement

1757+ "REQUIRED_TOS_AGREEMENT" -> Right SSLWCRequiredTosAgreement

1758− "RESOURCE_NOT_DELETED" -> Just SSLWCResourceNotDeleted

1758+ "RESOURCE_NOT_DELETED" -> Right SSLWCResourceNotDeleted

1759− "SINGLE_INSTANCE_PROPERTY_TEMPLATE" -> Just SSLWCSingleInstancePropertyTemplate

1759+ "SINGLE_INSTANCE_PROPERTY_TEMPLATE" -> Right SSLWCSingleInstancePropertyTemplate

1760− "UNREACHABLE" -> Just SSLWCUnreachable

1760+ "UNREACHABLE" -> Right SSLWCUnreachable

1761− _ -> Nothing

1761+ x -> Left ("Unable to parse SubnetworksScopedListWarningCode from: " <> x)

1762−

1762+

1763−instance ToText SubnetworksScopedListWarningCode where

1763+instance ToHttpApiData SubnetworksScopedListWarningCode where

1764− toText = \case

1764+ toQueryParam = \case

1765 SSLWCCleanupFailed -> "CLEANUP_FAILED"

1766 SSLWCDeprecatedResourceUsed -> "DEPRECATED_RESOURCE_USED"

1767 SSLWCDiskSizeLargerThanImageSize -> "DISK_SIZE_LARGER_THAN_IMAGE_SIZE"

@@ -1846,40 +1846,40 @@ data QuotaMetric

1846

1847instance Hashable QuotaMetric

1848

1849−instance FromText QuotaMetric where

1849+instance FromHttpApiData QuotaMetric where

1850− fromText = \case

1850+ parseQueryParam = \case

1851− "AUTOSCALERS" -> Just Autoscalers

1851+ "AUTOSCALERS" -> Right Autoscalers

1852− "BACKEND_SERVICES" -> Just BackendServices

1852+ "BACKEND_SERVICES" -> Right BackendServices

1853− "CPUS" -> Just CPUs

1853+ "CPUS" -> Right CPUs

1854− "DISKS_TOTAL_GB" -> Just DisksTotalGb

1854+ "DISKS_TOTAL_GB" -> Right DisksTotalGb

1855− "FIREWALLS" -> Just Firewalls

1855+ "FIREWALLS" -> Right Firewalls

1856− "FORWARDING_RULES" -> Just ForwardingRules

1856+ "FORWARDING_RULES" -> Right ForwardingRules

1857− "HEALTH_CHECKS" -> Just HealthChecks

1857+ "HEALTH_CHECKS" -> Right HealthChecks

1858− "IMAGES" -> Just Images

1858+ "IMAGES" -> Right Images

1859− "INSTANCES" -> Just Instances

1859+ "INSTANCES" -> Right Instances

1860− "INSTANCE_GROUPS" -> Just InstanceGroups

1860+ "INSTANCE_GROUPS" -> Right InstanceGroups

1861− "INSTANCE_GROUP_MANAGERS" -> Just InstanceGroupManagers

1861+ "INSTANCE_GROUP_MANAGERS" -> Right InstanceGroupManagers

1862− "INSTANCE_TEMPLATES" -> Just InstanceTemplates

1862+ "INSTANCE_TEMPLATES" -> Right InstanceTemplates

1863− "IN_USE_ADDRESSES" -> Just InUseAddresses

1863+ "IN_USE_ADDRESSES" -> Right InUseAddresses

1864− "LOCAL_SSD_TOTAL_GB" -> Just LocalSsdTotalGb

1864+ "LOCAL_SSD_TOTAL_GB" -> Right LocalSsdTotalGb

1865− "NETWORKS" -> Just Networks

1865+ "NETWORKS" -> Right Networks

1866− "ROUTES" -> Just Routes

1866+ "ROUTES" -> Right Routes

1867− "SNAPSHOTS" -> Just Snapshots

1867+ "SNAPSHOTS" -> Right Snapshots

1868− "SSD_TOTAL_GB" -> Just SsdTotalGb

1868+ "SSD_TOTAL_GB" -> Right SsdTotalGb

1869− "SSL_CERTIFICATES" -> Just SSLCertificates

1869+ "SSL_CERTIFICATES" -> Right SSLCertificates

1870− "STATIC_ADDRESSES" -> Just StaticAddresses

1870+ "STATIC_ADDRESSES" -> Right StaticAddresses

1871− "SUBNETWORKS" -> Just Subnetworks

1871+ "SUBNETWORKS" -> Right Subnetworks

1872− "TARGET_HTTPS_PROXIES" -> Just TargetHTTPSProxies

1872+ "TARGET_HTTPS_PROXIES" -> Right TargetHTTPSProxies

1873− "TARGET_HTTP_PROXIES" -> Just TargetHTTPProxies

1873+ "TARGET_HTTP_PROXIES" -> Right TargetHTTPProxies

1874− "TARGET_INSTANCES" -> Just TargetInstances

1874+ "TARGET_INSTANCES" -> Right TargetInstances

1875− "TARGET_POOLS" -> Just TargetPools

1875+ "TARGET_POOLS" -> Right TargetPools

1876− "TARGET_VPN_GATEWAYS" -> Just TargetVPNGateways

1876+ "TARGET_VPN_GATEWAYS" -> Right TargetVPNGateways

1877− "URL_MAPS" -> Just URLMaps

1877+ "URL_MAPS" -> Right URLMaps

1878− "VPN_TUNNELS" -> Just VPNTunnels

1878+ "VPN_TUNNELS" -> Right VPNTunnels

1879− _ -> Nothing

1879+ x -> Left ("Unable to parse QuotaMetric from: " <> x)

1880−

1880+

1881−instance ToText QuotaMetric where

1881+instance ToHttpApiData QuotaMetric where

1882− toText = \case

1882+ toQueryParam = \case

1883 Autoscalers -> "AUTOSCALERS"

1884 BackendServices -> "BACKEND_SERVICES"

1885 CPUs -> "CPUS"

@@ -1938,20 +1938,20 @@ data InstanceStatus

1938

1939instance Hashable InstanceStatus

1940

1941−instance FromText InstanceStatus where

1941+instance FromHttpApiData InstanceStatus where

1942− fromText = \case

1942+ parseQueryParam = \case

1943− "PROVISIONING" -> Just ISProvisioning

1943+ "PROVISIONING" -> Right ISProvisioning

1944− "RUNNING" -> Just ISRunning

1944+ "RUNNING" -> Right ISRunning

1945− "STAGING" -> Just ISStaging

1945+ "STAGING" -> Right ISStaging

1946− "STOPPED" -> Just ISStopped

1946+ "STOPPED" -> Right ISStopped

1947− "STOPPING" -> Just ISStopping

1947+ "STOPPING" -> Right ISStopping

1948− "SUSPENDED" -> Just ISSuspended

1948+ "SUSPENDED" -> Right ISSuspended

1949− "SUSPENDING" -> Just ISSuspending

1949+ "SUSPENDING" -> Right ISSuspending

1950− "TERMINATED" -> Just ISTerminated

1950+ "TERMINATED" -> Right ISTerminated

1951− _ -> Nothing

1951+ x -> Left ("Unable to parse InstanceStatus from: " <> x)

1952−

1952+

1953−instance ToText InstanceStatus where

1953+instance ToHttpApiData InstanceStatus where

1954− toText = \case

1954+ toQueryParam = \case

1955 ISProvisioning -> "PROVISIONING"

1956 ISRunning -> "RUNNING"

1957 ISStaging -> "STAGING"

@@ -2004,27 +2004,27 @@ data MachineTypesScopedListWarningCode

2004

2005instance Hashable MachineTypesScopedListWarningCode

2006

2007−instance FromText MachineTypesScopedListWarningCode where

2007+instance FromHttpApiData MachineTypesScopedListWarningCode where

2008− fromText = \case

2008+ parseQueryParam = \case

2009− "CLEANUP_FAILED" -> Just MTSLWCCleanupFailed

2009+ "CLEANUP_FAILED" -> Right MTSLWCCleanupFailed

2010− "DEPRECATED_RESOURCE_USED" -> Just MTSLWCDeprecatedResourceUsed

2010+ "DEPRECATED_RESOURCE_USED" -> Right MTSLWCDeprecatedResourceUsed

2011− "DISK_SIZE_LARGER_THAN_IMAGE_SIZE" -> Just MTSLWCDiskSizeLargerThanImageSize

2011+ "DISK_SIZE_LARGER_THAN_IMAGE_SIZE" -> Right MTSLWCDiskSizeLargerThanImageSize

2012− "INJECTED_KERNELS_DEPRECATED" -> Just MTSLWCInjectedKernelsDeprecated

2012+ "INJECTED_KERNELS_DEPRECATED" -> Right MTSLWCInjectedKernelsDeprecated

2013− "NEXT_HOP_ADDRESS_NOT_ASSIGNED" -> Just MTSLWCNextHopAddressNotAssigned

2013+ "NEXT_HOP_ADDRESS_NOT_ASSIGNED" -> Right MTSLWCNextHopAddressNotAssigned

2014− "NEXT_HOP_CANNOT_IP_FORWARD" -> Just MTSLWCNextHopCannotIPForward

2014+ "NEXT_HOP_CANNOT_IP_FORWARD" -> Right MTSLWCNextHopCannotIPForward

2015− "NEXT_HOP_INSTANCE_NOT_FOUND" -> Just MTSLWCNextHopInstanceNotFound

2015+ "NEXT_HOP_INSTANCE_NOT_FOUND" -> Right MTSLWCNextHopInstanceNotFound

2016− "NEXT_HOP_INSTANCE_NOT_ON_NETWORK" -> Just MTSLWCNextHopInstanceNotOnNetwork

2016+ "NEXT_HOP_INSTANCE_NOT_ON_NETWORK" -> Right MTSLWCNextHopInstanceNotOnNetwork

2017− "NEXT_HOP_NOT_RUNNING" -> Just MTSLWCNextHopNotRunning

2017+ "NEXT_HOP_NOT_RUNNING" -> Right MTSLWCNextHopNotRunning

2018− "NOT_CRITICAL_ERROR" -> Just MTSLWCNotCriticalError

2018+ "NOT_CRITICAL_ERROR" -> Right MTSLWCNotCriticalError

2019− "NO_RESULTS_ON_PAGE" -> Just MTSLWCNoResultsOnPage

2019+ "NO_RESULTS_ON_PAGE" -> Right MTSLWCNoResultsOnPage

2020− "REQUIRED_TOS_AGREEMENT" -> Just MTSLWCRequiredTosAgreement

2020+ "REQUIRED_TOS_AGREEMENT" -> Right MTSLWCRequiredTosAgreement

2021− "RESOURCE_NOT_DELETED" -> Just MTSLWCResourceNotDeleted

2021+ "RESOURCE_NOT_DELETED" -> Right MTSLWCResourceNotDeleted

2022− "SINGLE_INSTANCE_PROPERTY_TEMPLATE" -> Just MTSLWCSingleInstancePropertyTemplate

2022+ "SINGLE_INSTANCE_PROPERTY_TEMPLATE" -> Right MTSLWCSingleInstancePropertyTemplate

2023− "UNREACHABLE" -> Just MTSLWCUnreachable

2023+ "UNREACHABLE" -> Right MTSLWCUnreachable

2024− _ -> Nothing

2024+ x -> Left ("Unable to parse MachineTypesScopedListWarningCode from: " <> x)

2025−

2025+

2026−instance ToText MachineTypesScopedListWarningCode where

2026+instance ToHttpApiData MachineTypesScopedListWarningCode where

2027− toText = \case

2027+ toQueryParam = \case

2028 MTSLWCCleanupFailed -> "CLEANUP_FAILED"

2029 MTSLWCDeprecatedResourceUsed -> "DEPRECATED_RESOURCE_USED"

2030 MTSLWCDiskSizeLargerThanImageSize -> "DISK_SIZE_LARGER_THAN_IMAGE_SIZE"

@@ -2084,27 +2084,27 @@ data DiskTypesScopedListWarningCode

2084

2085instance Hashable DiskTypesScopedListWarningCode

2086

2087−instance FromText DiskTypesScopedListWarningCode where

2087+instance FromHttpApiData DiskTypesScopedListWarningCode where

2088− fromText = \case

2088+ parseQueryParam = \case

2089− "CLEANUP_FAILED" -> Just DTSLWCCleanupFailed

2089+ "CLEANUP_FAILED" -> Right DTSLWCCleanupFailed

2090− "DEPRECATED_RESOURCE_USED" -> Just DTSLWCDeprecatedResourceUsed

2090+ "DEPRECATED_RESOURCE_USED" -> Right DTSLWCDeprecatedResourceUsed

2091− "DISK_SIZE_LARGER_THAN_IMAGE_SIZE" -> Just DTSLWCDiskSizeLargerThanImageSize

2091+ "DISK_SIZE_LARGER_THAN_IMAGE_SIZE" -> Right DTSLWCDiskSizeLargerThanImageSize

2092− "INJECTED_KERNELS_DEPRECATED" -> Just DTSLWCInjectedKernelsDeprecated

2092+ "INJECTED_KERNELS_DEPRECATED" -> Right DTSLWCInjectedKernelsDeprecated

2093− "NEXT_HOP_ADDRESS_NOT_ASSIGNED" -> Just DTSLWCNextHopAddressNotAssigned

2093+ "NEXT_HOP_ADDRESS_NOT_ASSIGNED" -> Right DTSLWCNextHopAddressNotAssigned

2094− "NEXT_HOP_CANNOT_IP_FORWARD" -> Just DTSLWCNextHopCannotIPForward

2094+ "NEXT_HOP_CANNOT_IP_FORWARD" -> Right DTSLWCNextHopCannotIPForward

2095− "NEXT_HOP_INSTANCE_NOT_FOUND" -> Just DTSLWCNextHopInstanceNotFound

2095+ "NEXT_HOP_INSTANCE_NOT_FOUND" -> Right DTSLWCNextHopInstanceNotFound

2096− "NEXT_HOP_INSTANCE_NOT_ON_NETWORK" -> Just DTSLWCNextHopInstanceNotOnNetwork

2096+ "NEXT_HOP_INSTANCE_NOT_ON_NETWORK" -> Right DTSLWCNextHopInstanceNotOnNetwork

2097− "NEXT_HOP_NOT_RUNNING" -> Just DTSLWCNextHopNotRunning

2097+ "NEXT_HOP_NOT_RUNNING" -> Right DTSLWCNextHopNotRunning

2098− "NOT_CRITICAL_ERROR" -> Just DTSLWCNotCriticalError

2098+ "NOT_CRITICAL_ERROR" -> Right DTSLWCNotCriticalError

2099− "NO_RESULTS_ON_PAGE" -> Just DTSLWCNoResultsOnPage

2099+ "NO_RESULTS_ON_PAGE" -> Right DTSLWCNoResultsOnPage

2100− "REQUIRED_TOS_AGREEMENT" -> Just DTSLWCRequiredTosAgreement

2100+ "REQUIRED_TOS_AGREEMENT" -> Right DTSLWCRequiredTosAgreement

2101− "RESOURCE_NOT_DELETED" -> Just DTSLWCResourceNotDeleted

2101+ "RESOURCE_NOT_DELETED" -> Right DTSLWCResourceNotDeleted

2102− "SINGLE_INSTANCE_PROPERTY_TEMPLATE" -> Just DTSLWCSingleInstancePropertyTemplate

2102+ "SINGLE_INSTANCE_PROPERTY_TEMPLATE" -> Right DTSLWCSingleInstancePropertyTemplate

2103− "UNREACHABLE" -> Just DTSLWCUnreachable

2103+ "UNREACHABLE" -> Right DTSLWCUnreachable

2104− _ -> Nothing

2104+ x -> Left ("Unable to parse DiskTypesScopedListWarningCode from: " <> x)

2105−

2105+

2106−instance ToText DiskTypesScopedListWarningCode where

2106+instance ToHttpApiData DiskTypesScopedListWarningCode where

2107− toText = \case

2107+ toQueryParam = \case

2108 DTSLWCCleanupFailed -> "CLEANUP_FAILED"

2109 DTSLWCDeprecatedResourceUsed -> "DEPRECATED_RESOURCE_USED"

2110 DTSLWCDiskSizeLargerThanImageSize -> "DISK_SIZE_LARGER_THAN_IMAGE_SIZE"

@@ -2164,27 +2164,27 @@ data AutoscalersScopedListWarningCode

2164

2165instance Hashable AutoscalersScopedListWarningCode

2166

2167−instance FromText AutoscalersScopedListWarningCode where

2167+instance FromHttpApiData AutoscalersScopedListWarningCode where

2168− fromText = \case

2168+ parseQueryParam = \case

2169− "CLEANUP_FAILED" -> Just ACleanupFailed

2169+ "CLEANUP_FAILED" -> Right ACleanupFailed

2170− "DEPRECATED_RESOURCE_USED" -> Just ADeprecatedResourceUsed

2170+ "DEPRECATED_RESOURCE_USED" -> Right ADeprecatedResourceUsed

2171− "DISK_SIZE_LARGER_THAN_IMAGE_SIZE" -> Just ADiskSizeLargerThanImageSize

2171+ "DISK_SIZE_LARGER_THAN_IMAGE_SIZE" -> Right ADiskSizeLargerThanImageSize

2172− "INJECTED_KERNELS_DEPRECATED" -> Just AInjectedKernelsDeprecated

2172+ "INJECTED_KERNELS_DEPRECATED" -> Right AInjectedKernelsDeprecated

2173− "NEXT_HOP_ADDRESS_NOT_ASSIGNED" -> Just ANextHopAddressNotAssigned

2173+ "NEXT_HOP_ADDRESS_NOT_ASSIGNED" -> Right ANextHopAddressNotAssigned

2174− "NEXT_HOP_CANNOT_IP_FORWARD" -> Just ANextHopCannotIPForward

2174+ "NEXT_HOP_CANNOT_IP_FORWARD" -> Right ANextHopCannotIPForward

2175− "NEXT_HOP_INSTANCE_NOT_FOUND" -> Just ANextHopInstanceNotFound

2175+ "NEXT_HOP_INSTANCE_NOT_FOUND" -> Right ANextHopInstanceNotFound

2176− "NEXT_HOP_INSTANCE_NOT_ON_NETWORK" -> Just ANextHopInstanceNotOnNetwork

2176+ "NEXT_HOP_INSTANCE_NOT_ON_NETWORK" -> Right ANextHopInstanceNotOnNetwork

2177− "NEXT_HOP_NOT_RUNNING" -> Just ANextHopNotRunning

2177+ "NEXT_HOP_NOT_RUNNING" -> Right ANextHopNotRunning

2178− "NOT_CRITICAL_ERROR" -> Just ANotCriticalError

2178+ "NOT_CRITICAL_ERROR" -> Right ANotCriticalError

2179− "NO_RESULTS_ON_PAGE" -> Just ANoResultsOnPage

2179+ "NO_RESULTS_ON_PAGE" -> Right ANoResultsOnPage

2180− "REQUIRED_TOS_AGREEMENT" -> Just ARequiredTosAgreement

2180+ "REQUIRED_TOS_AGREEMENT" -> Right ARequiredTosAgreement

2181− "RESOURCE_NOT_DELETED" -> Just AResourceNotDeleted

2181+ "RESOURCE_NOT_DELETED" -> Right AResourceNotDeleted

2182− "SINGLE_INSTANCE_PROPERTY_TEMPLATE" -> Just ASingleInstancePropertyTemplate

2182+ "SINGLE_INSTANCE_PROPERTY_TEMPLATE" -> Right ASingleInstancePropertyTemplate

2183− "UNREACHABLE" -> Just AUnreachable

2183+ "UNREACHABLE" -> Right AUnreachable

2184− _ -> Nothing

2184+ x -> Left ("Unable to parse AutoscalersScopedListWarningCode from: " <> x)

2185−

2185+

2186−instance ToText AutoscalersScopedListWarningCode where

2186+instance ToHttpApiData AutoscalersScopedListWarningCode where

2187− toText = \case

2187+ toQueryParam = \case

2188 ACleanupFailed -> "CLEANUP_FAILED"

2189 ADeprecatedResourceUsed -> "DEPRECATED_RESOURCE_USED"

2190 ADiskSizeLargerThanImageSize -> "DISK_SIZE_LARGER_THAN_IMAGE_SIZE"

@@ -2244,27 +2244,27 @@ data VPNTunnelsScopedListWarningCode

2244

2245instance Hashable VPNTunnelsScopedListWarningCode

2246

2247−instance FromText VPNTunnelsScopedListWarningCode where

2247+instance FromHttpApiData VPNTunnelsScopedListWarningCode where

2248− fromText = \case

2248+ parseQueryParam = \case

2249− "CLEANUP_FAILED" -> Just VTSLWCCleanupFailed

2249+ "CLEANUP_FAILED" -> Right VTSLWCCleanupFailed

2250− "DEPRECATED_RESOURCE_USED" -> Just VTSLWCDeprecatedResourceUsed

2250+ "DEPRECATED_RESOURCE_USED" -> Right VTSLWCDeprecatedResourceUsed

2251− "DISK_SIZE_LARGER_THAN_IMAGE_SIZE" -> Just VTSLWCDiskSizeLargerThanImageSize

2251+ "DISK_SIZE_LARGER_THAN_IMAGE_SIZE" -> Right VTSLWCDiskSizeLargerThanImageSize

2252− "INJECTED_KERNELS_DEPRECATED" -> Just VTSLWCInjectedKernelsDeprecated

2252+ "INJECTED_KERNELS_DEPRECATED" -> Right VTSLWCInjectedKernelsDeprecated

2253− "NEXT_HOP_ADDRESS_NOT_ASSIGNED" -> Just VTSLWCNextHopAddressNotAssigned

2253+ "NEXT_HOP_ADDRESS_NOT_ASSIGNED" -> Right VTSLWCNextHopAddressNotAssigned

2254− "NEXT_HOP_CANNOT_IP_FORWARD" -> Just VTSLWCNextHopCannotIPForward

2254+ "NEXT_HOP_CANNOT_IP_FORWARD" -> Right VTSLWCNextHopCannotIPForward

2255− "NEXT_HOP_INSTANCE_NOT_FOUND" -> Just VTSLWCNextHopInstanceNotFound

2255+ "NEXT_HOP_INSTANCE_NOT_FOUND" -> Right VTSLWCNextHopInstanceNotFound

2256− "NEXT_HOP_INSTANCE_NOT_ON_NETWORK" -> Just VTSLWCNextHopInstanceNotOnNetwork

2256+ "NEXT_HOP_INSTANCE_NOT_ON_NETWORK" -> Right VTSLWCNextHopInstanceNotOnNetwork

2257− "NEXT_HOP_NOT_RUNNING" -> Just VTSLWCNextHopNotRunning

2257+ "NEXT_HOP_NOT_RUNNING" -> Right VTSLWCNextHopNotRunning

2258− "NOT_CRITICAL_ERROR" -> Just VTSLWCNotCriticalError

2258+ "NOT_CRITICAL_ERROR" -> Right VTSLWCNotCriticalError

2259− "NO_RESULTS_ON_PAGE" -> Just VTSLWCNoResultsOnPage

2259+ "NO_RESULTS_ON_PAGE" -> Right VTSLWCNoResultsOnPage

2260− "REQUIRED_TOS_AGREEMENT" -> Just VTSLWCRequiredTosAgreement

2260+ "REQUIRED_TOS_AGREEMENT" -> Right VTSLWCRequiredTosAgreement

2261− "RESOURCE_NOT_DELETED" -> Just VTSLWCResourceNotDeleted

2261+ "RESOURCE_NOT_DELETED" -> Right VTSLWCResourceNotDeleted

2262− "SINGLE_INSTANCE_PROPERTY_TEMPLATE" -> Just VTSLWCSingleInstancePropertyTemplate

2262+ "SINGLE_INSTANCE_PROPERTY_TEMPLATE" -> Right VTSLWCSingleInstancePropertyTemplate

2263− "UNREACHABLE" -> Just VTSLWCUnreachable

2263+ "UNREACHABLE" -> Right VTSLWCUnreachable

2264− _ -> Nothing

2264+ x -> Left ("Unable to parse VPNTunnelsScopedListWarningCode from: " <> x)

2265−

2265+

2266−instance ToText VPNTunnelsScopedListWarningCode where

2266+instance ToHttpApiData VPNTunnelsScopedListWarningCode where

2267− toText = \case

2267+ toQueryParam = \case

2268 VTSLWCCleanupFailed -> "CLEANUP_FAILED"

2269 VTSLWCDeprecatedResourceUsed -> "DEPRECATED_RESOURCE_USED"

2270 VTSLWCDiskSizeLargerThanImageSize -> "DISK_SIZE_LARGER_THAN_IMAGE_SIZE"

@@ -2324,27 +2324,27 @@ data InstanceGroupsScopedListWarningCode

2324

2325instance Hashable InstanceGroupsScopedListWarningCode

2326

2327−instance FromText InstanceGroupsScopedListWarningCode where

2327+instance FromHttpApiData InstanceGroupsScopedListWarningCode where

2328− fromText = \case

2328+ parseQueryParam = \case

2329− "CLEANUP_FAILED" -> Just IGSLWCCleanupFailed

2329+ "CLEANUP_FAILED" -> Right IGSLWCCleanupFailed

2330− "DEPRECATED_RESOURCE_USED" -> Just IGSLWCDeprecatedResourceUsed

2330+ "DEPRECATED_RESOURCE_USED" -> Right IGSLWCDeprecatedResourceUsed

2331− "DISK_SIZE_LARGER_THAN_IMAGE_SIZE" -> Just IGSLWCDiskSizeLargerThanImageSize

2331+ "DISK_SIZE_LARGER_THAN_IMAGE_SIZE" -> Right IGSLWCDiskSizeLargerThanImageSize

2332− "INJECTED_KERNELS_DEPRECATED" -> Just IGSLWCInjectedKernelsDeprecated

2332+ "INJECTED_KERNELS_DEPRECATED" -> Right IGSLWCInjectedKernelsDeprecated

2333− "NEXT_HOP_ADDRESS_NOT_ASSIGNED" -> Just IGSLWCNextHopAddressNotAssigned

2333+ "NEXT_HOP_ADDRESS_NOT_ASSIGNED" -> Right IGSLWCNextHopAddressNotAssigned

2334− "NEXT_HOP_CANNOT_IP_FORWARD" -> Just IGSLWCNextHopCannotIPForward

2334+ "NEXT_HOP_CANNOT_IP_FORWARD" -> Right IGSLWCNextHopCannotIPForward

2335− "NEXT_HOP_INSTANCE_NOT_FOUND" -> Just IGSLWCNextHopInstanceNotFound

2335+ "NEXT_HOP_INSTANCE_NOT_FOUND" -> Right IGSLWCNextHopInstanceNotFound

2336− "NEXT_HOP_INSTANCE_NOT_ON_NETWORK" -> Just IGSLWCNextHopInstanceNotOnNetwork

2336+ "NEXT_HOP_INSTANCE_NOT_ON_NETWORK" -> Right IGSLWCNextHopInstanceNotOnNetwork

2337− "NEXT_HOP_NOT_RUNNING" -> Just IGSLWCNextHopNotRunning

2337+ "NEXT_HOP_NOT_RUNNING" -> Right IGSLWCNextHopNotRunning

2338− "NOT_CRITICAL_ERROR" -> Just IGSLWCNotCriticalError

2338+ "NOT_CRITICAL_ERROR" -> Right IGSLWCNotCriticalError

2339− "NO_RESULTS_ON_PAGE" -> Just IGSLWCNoResultsOnPage

2339+ "NO_RESULTS_ON_PAGE" -> Right IGSLWCNoResultsOnPage

2340− "REQUIRED_TOS_AGREEMENT" -> Just IGSLWCRequiredTosAgreement

2340+ "REQUIRED_TOS_AGREEMENT" -> Right IGSLWCRequiredTosAgreement

2341− "RESOURCE_NOT_DELETED" -> Just IGSLWCResourceNotDeleted

2341+ "RESOURCE_NOT_DELETED" -> Right IGSLWCResourceNotDeleted

2342− "SINGLE_INSTANCE_PROPERTY_TEMPLATE" -> Just IGSLWCSingleInstancePropertyTemplate

2342+ "SINGLE_INSTANCE_PROPERTY_TEMPLATE" -> Right IGSLWCSingleInstancePropertyTemplate

2343− "UNREACHABLE" -> Just IGSLWCUnreachable

2343+ "UNREACHABLE" -> Right IGSLWCUnreachable

2344− _ -> Nothing

2344+ x -> Left ("Unable to parse InstanceGroupsScopedListWarningCode from: " <> x)

2345−

2345+

2346−instance ToText InstanceGroupsScopedListWarningCode where

2346+instance ToHttpApiData InstanceGroupsScopedListWarningCode where

2347− toText = \case

2347+ toQueryParam = \case

2348 IGSLWCCleanupFailed -> "CLEANUP_FAILED"

2349 IGSLWCDeprecatedResourceUsed -> "DEPRECATED_RESOURCE_USED"

2350 IGSLWCDiskSizeLargerThanImageSize -> "DISK_SIZE_LARGER_THAN_IMAGE_SIZE"

@@ -2389,20 +2389,20 @@ data InstanceWithNamedPortsStatus

2389

2390instance Hashable InstanceWithNamedPortsStatus

2391

2392−instance FromText InstanceWithNamedPortsStatus where

2392+instance FromHttpApiData InstanceWithNamedPortsStatus where

2393− fromText = \case

2393+ parseQueryParam = \case

2394− "PROVISIONING" -> Just IWNPSProvisioning

2394+ "PROVISIONING" -> Right IWNPSProvisioning

2395− "RUNNING" -> Just IWNPSRunning

2395+ "RUNNING" -> Right IWNPSRunning

2396− "STAGING" -> Just IWNPSStaging

2396+ "STAGING" -> Right IWNPSStaging

2397− "STOPPED" -> Just IWNPSStopped

2397+ "STOPPED" -> Right IWNPSStopped

2398− "STOPPING" -> Just IWNPSStopping

2398+ "STOPPING" -> Right IWNPSStopping

2399− "SUSPENDED" -> Just IWNPSSuspended

2399+ "SUSPENDED" -> Right IWNPSSuspended

2400− "SUSPENDING" -> Just IWNPSSuspending

2400+ "SUSPENDING" -> Right IWNPSSuspending

2401− "TERMINATED" -> Just IWNPSTerminated

2401+ "TERMINATED" -> Right IWNPSTerminated

2402− _ -> Nothing

2402+ x -> Left ("Unable to parse InstanceWithNamedPortsStatus from: " <> x)

2403−

2403+

2404−instance ToText InstanceWithNamedPortsStatus where

2404+instance ToHttpApiData InstanceWithNamedPortsStatus where

2405− toText = \case

2405+ toQueryParam = \case

2406 IWNPSProvisioning -> "PROVISIONING"

2407 IWNPSRunning -> "RUNNING"

2408 IWNPSStaging -> "STAGING"

@@ -2455,27 +2455,27 @@ data InstancesScopedListWarningCode

2455

2456instance Hashable InstancesScopedListWarningCode

2457

2458−instance FromText InstancesScopedListWarningCode where

2458+instance FromHttpApiData InstancesScopedListWarningCode where

2459− fromText = \case

2459+ parseQueryParam = \case

2460− "CLEANUP_FAILED" -> Just ISLWCCleanupFailed

2460+ "CLEANUP_FAILED" -> Right ISLWCCleanupFailed

2461− "DEPRECATED_RESOURCE_USED" -> Just ISLWCDeprecatedResourceUsed

2461+ "DEPRECATED_RESOURCE_USED" -> Right ISLWCDeprecatedResourceUsed

2462− "DISK_SIZE_LARGER_THAN_IMAGE_SIZE" -> Just ISLWCDiskSizeLargerThanImageSize

2462+ "DISK_SIZE_LARGER_THAN_IMAGE_SIZE" -> Right ISLWCDiskSizeLargerThanImageSize

2463− "INJECTED_KERNELS_DEPRECATED" -> Just ISLWCInjectedKernelsDeprecated

2463+ "INJECTED_KERNELS_DEPRECATED" -> Right ISLWCInjectedKernelsDeprecated

2464− "NEXT_HOP_ADDRESS_NOT_ASSIGNED" -> Just ISLWCNextHopAddressNotAssigned

2464+ "NEXT_HOP_ADDRESS_NOT_ASSIGNED" -> Right ISLWCNextHopAddressNotAssigned

2465− "NEXT_HOP_CANNOT_IP_FORWARD" -> Just ISLWCNextHopCannotIPForward

2465+ "NEXT_HOP_CANNOT_IP_FORWARD" -> Right ISLWCNextHopCannotIPForward

2466− "NEXT_HOP_INSTANCE_NOT_FOUND" -> Just ISLWCNextHopInstanceNotFound

2466+ "NEXT_HOP_INSTANCE_NOT_FOUND" -> Right ISLWCNextHopInstanceNotFound

2467− "NEXT_HOP_INSTANCE_NOT_ON_NETWORK" -> Just ISLWCNextHopInstanceNotOnNetwork

2467+ "NEXT_HOP_INSTANCE_NOT_ON_NETWORK" -> Right ISLWCNextHopInstanceNotOnNetwork

2468− "NEXT_HOP_NOT_RUNNING" -> Just ISLWCNextHopNotRunning

2468+ "NEXT_HOP_NOT_RUNNING" -> Right ISLWCNextHopNotRunning

2469− "NOT_CRITICAL_ERROR" -> Just ISLWCNotCriticalError

2469+ "NOT_CRITICAL_ERROR" -> Right ISLWCNotCriticalError

2470− "NO_RESULTS_ON_PAGE" -> Just ISLWCNoResultsOnPage

2470+ "NO_RESULTS_ON_PAGE" -> Right ISLWCNoResultsOnPage

2471− "REQUIRED_TOS_AGREEMENT" -> Just ISLWCRequiredTosAgreement

2471+ "REQUIRED_TOS_AGREEMENT" -> Right ISLWCRequiredTosAgreement

2472− "RESOURCE_NOT_DELETED" -> Just ISLWCResourceNotDeleted

2472+ "RESOURCE_NOT_DELETED" -> Right ISLWCResourceNotDeleted

2473− "SINGLE_INSTANCE_PROPERTY_TEMPLATE" -> Just ISLWCSingleInstancePropertyTemplate

2473+ "SINGLE_INSTANCE_PROPERTY_TEMPLATE" -> Right ISLWCSingleInstancePropertyTemplate

2474− "UNREACHABLE" -> Just ISLWCUnreachable

2474+ "UNREACHABLE" -> Right ISLWCUnreachable

2475− _ -> Nothing

2475+ x -> Left ("Unable to parse InstancesScopedListWarningCode from: " <> x)

2476−

2476+

2477−instance ToText InstancesScopedListWarningCode where

2477+instance ToHttpApiData InstancesScopedListWarningCode where

2478− toText = \case

2478+ toQueryParam = \case

2479 ISLWCCleanupFailed -> "CLEANUP_FAILED"

2480 ISLWCDeprecatedResourceUsed -> "DEPRECATED_RESOURCE_USED"

2481 ISLWCDiskSizeLargerThanImageSize -> "DISK_SIZE_LARGER_THAN_IMAGE_SIZE"

@@ -2516,15 +2516,15 @@ data TargetPoolSessionAffinity

2516

2517instance Hashable TargetPoolSessionAffinity

2518

2519−instance FromText TargetPoolSessionAffinity where

2519+instance FromHttpApiData TargetPoolSessionAffinity where

2520− fromText = \case

2520+ parseQueryParam = \case

2521− "CLIENT_IP" -> Just ClientIP

2521+ "CLIENT_IP" -> Right ClientIP

2522− "CLIENT_IP_PROTO" -> Just ClientIPProto

2522+ "CLIENT_IP_PROTO" -> Right ClientIPProto

2523− "NONE" -> Just None

2523+ "NONE" -> Right None

2524− _ -> Nothing

2524+ x -> Left ("Unable to parse TargetPoolSessionAffinity from: " <> x)

2525

2526−instance ToText TargetPoolSessionAffinity where

2526+instance ToHttpApiData TargetPoolSessionAffinity where

2527− toText = \case

2527+ toQueryParam = \case

2528 ClientIP -> "CLIENT_IP"

2529 ClientIPProto -> "CLIENT_IP_PROTO"

2530 None -> "NONE"

@@ -2545,13 +2545,13 @@ data ImageRawDiskContainerType

2545

2546instance Hashable ImageRawDiskContainerType

2547

2548−instance FromText ImageRawDiskContainerType where

2548+instance FromHttpApiData ImageRawDiskContainerType where

2549− fromText = \case

2549+ parseQueryParam = \case

2550− "TAR" -> Just TAR

2550+ "TAR" -> Right TAR

2551− _ -> Nothing

2551+ x -> Left ("Unable to parse ImageRawDiskContainerType from: " <> x)

2552

2553−instance ToText ImageRawDiskContainerType where

2553+instance ToHttpApiData ImageRawDiskContainerType where

2554− toText = \case

2554+ toQueryParam = \case

2555 TAR -> "TAR"

2556

2557instance FromJSON ImageRawDiskContainerType where

gogol-customsearch/gen/Network/Google/CustomSearch/Types/Sum.hs+117−117

@@ -40,17 +40,17 @@ data CSEListImgType

41instance Hashable CSEListImgType

43−instance FromText CSEListImgType where

43+instance FromHttpApiData CSEListImgType where

44− fromText = \case

44+ parseQueryParam = \case

45− "clipart" -> Just CliPart

45+ "clipart" -> Right CliPart

46− "face" -> Just Face

46+ "face" -> Right Face

47− "lineart" -> Just Lineart

47+ "lineart" -> Right Lineart

48− "news" -> Just News

48+ "news" -> Right News

49− "photo" -> Just Photo

49+ "photo" -> Right Photo

50− _ -> Nothing

50+ x -> Left ("Unable to parse CSEListImgType from: " <> x)

51−

51+

52−instance ToText CSEListImgType where

52+instance ToHttpApiData CSEListImgType where

53− toText = \case

53+ toQueryParam = \case

54 CliPart -> "clipart"

55 Face -> "face"

56 Lineart -> "lineart"

@@ -76,14 +76,14 @@ data CSEListSiteSearchFilter

77instance Hashable CSEListSiteSearchFilter

79−instance FromText CSEListSiteSearchFilter where

79+instance FromHttpApiData CSEListSiteSearchFilter where

80− fromText = \case

80+ parseQueryParam = \case

81− "e" -> Just E

81+ "e" -> Right E

82− "i" -> Just I

82+ "i" -> Right I

83− _ -> Nothing

83+ x -> Left ("Unable to parse CSEListSiteSearchFilter from: " <> x)

85−instance ToText CSEListSiteSearchFilter where

85+instance ToHttpApiData CSEListSiteSearchFilter where

86− toText = \case

86+ toQueryParam = \case

87 E -> "e"

88 I -> "i"

@@ -130,22 +130,22 @@ data CSEListImgDominantColor

130

131instance Hashable CSEListImgDominantColor

132

133−instance FromText CSEListImgDominantColor where

133+instance FromHttpApiData CSEListImgDominantColor where

134− fromText = \case

134+ parseQueryParam = \case

135− "black" -> Just Black

135+ "black" -> Right Black

136− "blue" -> Just Blue

136+ "blue" -> Right Blue

137− "brown" -> Just Brown

137+ "brown" -> Right Brown

138− "gray" -> Just Gray

138+ "gray" -> Right Gray

139− "green" -> Just Green

139+ "green" -> Right Green

140− "pink" -> Just Pink

140+ "pink" -> Right Pink

141− "purple" -> Just Purple

141+ "purple" -> Right Purple

142− "teal" -> Just Teal

142+ "teal" -> Right Teal

143− "white" -> Just White

143+ "white" -> Right White

144− "yellow" -> Just Yellow

144+ "yellow" -> Right Yellow

145− _ -> Nothing

145+ x -> Left ("Unable to parse CSEListImgDominantColor from: " <> x)

146−

146+

147−instance ToText CSEListImgDominantColor where

147+instance ToHttpApiData CSEListImgDominantColor where

148− toText = \case

148+ toQueryParam = \case

149 Black -> "black"

150 Blue -> "blue"

151 Brown -> "brown"

@@ -178,15 +178,15 @@ data CSEListSafe

178

179instance Hashable CSEListSafe

180

181−instance FromText CSEListSafe where

181+instance FromHttpApiData CSEListSafe where

182− fromText = \case

182+ parseQueryParam = \case

183− "high" -> Just High

183+ "high" -> Right High

184− "medium" -> Just Medium

184+ "medium" -> Right Medium

185− "off" -> Just Off

185+ "off" -> Right Off

186− _ -> Nothing

186+ x -> Left ("Unable to parse CSEListSafe from: " <> x)

187

188−instance ToText CSEListSafe where

188+instance ToHttpApiData CSEListSafe where

189− toText = \case

189+ toQueryParam = \case

190 High -> "high"

191 Medium -> "medium"

192 Off -> "off"

@@ -213,15 +213,15 @@ data CSEListImgColorType

213

214instance Hashable CSEListImgColorType

215

216−instance FromText CSEListImgColorType where

216+instance FromHttpApiData CSEListImgColorType where

217− fromText = \case

217+ parseQueryParam = \case

218− "color" -> Just CSELICTColor

218+ "color" -> Right CSELICTColor

219− "gray" -> Just CSELICTGray

219+ "gray" -> Right CSELICTGray

220− "mono" -> Just CSELICTMono

220+ "mono" -> Right CSELICTMono

221− _ -> Nothing

221+ x -> Left ("Unable to parse CSEListImgColorType from: " <> x)

222

223−instance ToText CSEListImgColorType where

223+instance ToHttpApiData CSEListImgColorType where

224− toText = \case

224+ toQueryParam = \case

225 CSELICTColor -> "color"

226 CSELICTGray -> "gray"

227 CSELICTMono -> "mono"

@@ -244,14 +244,14 @@ data CSEListFilter

244

245instance Hashable CSEListFilter

246

247−instance FromText CSEListFilter where

247+instance FromHttpApiData CSEListFilter where

248− fromText = \case

248+ parseQueryParam = \case

249− "0" -> Just CSELF0

249+ "0" -> Right CSELF0

250− "1" -> Just CSELF1

250+ "1" -> Right CSELF1

251− _ -> Nothing

251+ x -> Left ("Unable to parse CSEListFilter from: " <> x)

252

253−instance ToText CSEListFilter where

253+instance ToHttpApiData CSEListFilter where

254− toText = \case

254+ toQueryParam = \case

255 CSELF0 -> "0"

256 CSELF1 -> "1"

257

@@ -372,47 +372,47 @@ data CSEListLr

372

373instance Hashable CSEListLr

374

375−instance FromText CSEListLr where

375+instance FromHttpApiData CSEListLr where

376− fromText = \case

376+ parseQueryParam = \case

377− "lang_ar" -> Just LangAr

377+ "lang_ar" -> Right LangAr

378− "lang_bg" -> Just LangBg

378+ "lang_bg" -> Right LangBg

379− "lang_ca" -> Just LangCa

379+ "lang_ca" -> Right LangCa

380− "lang_cs" -> Just LangCs

380+ "lang_cs" -> Right LangCs

381− "lang_da" -> Just LangDa

381+ "lang_da" -> Right LangDa

382− "lang_de" -> Just LangDe

382+ "lang_de" -> Right LangDe

383− "lang_el" -> Just LangEl

383+ "lang_el" -> Right LangEl

384− "lang_en" -> Just LangEn

384+ "lang_en" -> Right LangEn

385− "lang_es" -> Just LangEs

385+ "lang_es" -> Right LangEs

386− "lang_et" -> Just LangEt

386+ "lang_et" -> Right LangEt

387− "lang_fi" -> Just LangFi

387+ "lang_fi" -> Right LangFi

388− "lang_fr" -> Just LangFr

388+ "lang_fr" -> Right LangFr

389− "lang_hr" -> Just LangHr

389+ "lang_hr" -> Right LangHr

390− "lang_hu" -> Just LangHu

390+ "lang_hu" -> Right LangHu

391− "lang_id" -> Just LangId

391+ "lang_id" -> Right LangId

392− "lang_is" -> Just LangIs

392+ "lang_is" -> Right LangIs

393− "lang_it" -> Just LangIt

393+ "lang_it" -> Right LangIt

394− "lang_iw" -> Just LangIw

394+ "lang_iw" -> Right LangIw

395− "lang_ja" -> Just LangJa

395+ "lang_ja" -> Right LangJa

396− "lang_ko" -> Just LangKo

396+ "lang_ko" -> Right LangKo

397− "lang_lt" -> Just LangLT

397+ "lang_lt" -> Right LangLT

398− "lang_lv" -> Just LangLv

398+ "lang_lv" -> Right LangLv

399− "lang_nl" -> Just LangNl

399+ "lang_nl" -> Right LangNl

400− "lang_no" -> Just LangNo

400+ "lang_no" -> Right LangNo

401− "lang_pl" -> Just LangPl

401+ "lang_pl" -> Right LangPl

402− "lang_pt" -> Just LangPt

402+ "lang_pt" -> Right LangPt

403− "lang_ro" -> Just LangRo

403+ "lang_ro" -> Right LangRo

404− "lang_ru" -> Just LangRu

404+ "lang_ru" -> Right LangRu

405− "lang_sk" -> Just LangSk

405+ "lang_sk" -> Right LangSk

406− "lang_sl" -> Just LangSl

406+ "lang_sl" -> Right LangSl

407− "lang_sr" -> Just LangSr

407+ "lang_sr" -> Right LangSr

408− "lang_sv" -> Just LangSv

408+ "lang_sv" -> Right LangSv

409− "lang_tr" -> Just LangTr

409+ "lang_tr" -> Right LangTr

410− "lang_zh-CN" -> Just LangZhCn

410+ "lang_zh-CN" -> Right LangZhCn

411− "lang_zh-TW" -> Just LangZhTw

411+ "lang_zh-TW" -> Right LangZhTw

412− _ -> Nothing

412+ x -> Left ("Unable to parse CSEListLr from: " <> x)

413−

413+

414−instance ToText CSEListLr where

414+instance ToHttpApiData CSEListLr where

415− toText = \case

415+ toQueryParam = \case

416 LangAr -> "lang_ar"

417 LangBg -> "lang_bg"

418 LangCa -> "lang_ca"

@@ -464,13 +464,13 @@ data CSEListSearchType

464

465instance Hashable CSEListSearchType

466

467−instance FromText CSEListSearchType where

467+instance FromHttpApiData CSEListSearchType where

468− fromText = \case

468+ parseQueryParam = \case

469− "image" -> Just Image

469+ "image" -> Right Image

470− _ -> Nothing

470+ x -> Left ("Unable to parse CSEListSearchType from: " <> x)

471

472−instance ToText CSEListSearchType where

472+instance ToHttpApiData CSEListSearchType where

473− toText = \case

473+ toQueryParam = \case

474 Image -> "image"

475

476instance FromJSON CSEListSearchType where

@@ -507,19 +507,19 @@ data CSEListImgSize

507

508instance Hashable CSEListImgSize

509

510−instance FromText CSEListImgSize where

510+instance FromHttpApiData CSEListImgSize where

511− fromText = \case

511+ parseQueryParam = \case

512− "huge" -> Just CSELISHuge

512+ "huge" -> Right CSELISHuge

513− "icon" -> Just CSELISIcon

513+ "icon" -> Right CSELISIcon

514− "large" -> Just CSELISLarge

514+ "large" -> Right CSELISLarge

515− "medium" -> Just CSELISMedium

515+ "medium" -> Right CSELISMedium

516− "small" -> Just CSELISSmall

516+ "small" -> Right CSELISSmall

517− "xlarge" -> Just CSELISXlarge

517+ "xlarge" -> Right CSELISXlarge

518− "xxlarge" -> Just CSELISXxlarge

518+ "xxlarge" -> Right CSELISXxlarge

519− _ -> Nothing

519+ x -> Left ("Unable to parse CSEListImgSize from: " <> x)

520−

520+

521−instance ToText CSEListImgSize where

521+instance ToHttpApiData CSEListImgSize where

522− toText = \case

522+ toQueryParam = \case

523 CSELISHuge -> "huge"

524 CSELISIcon -> "icon"

525 CSELISLarge -> "large"

gogol-datastore/gen/Network/Google/Datastore/Types/Sum.hs+70−70

@@ -29,14 +29,14 @@ data PropertyOrderDirection

30instance Hashable PropertyOrderDirection

32−instance FromText PropertyOrderDirection where

32+instance FromHttpApiData PropertyOrderDirection where

33− fromText = \case

33+ parseQueryParam = \case

34− "ASCENDING" -> Just Ascending

34+ "ASCENDING" -> Right Ascending

35− "DESCENDING" -> Just Descending

35+ "DESCENDING" -> Right Descending

36− _ -> Nothing

36+ x -> Left ("Unable to parse PropertyOrderDirection from: " <> x)

37−

37+

38−instance ToText PropertyOrderDirection where

38+instance ToHttpApiData PropertyOrderDirection where

39− toText = \case

39+ toQueryParam = \case

40 Ascending -> "ASCENDING"

41 Descending -> "DESCENDING"

@@ -60,15 +60,15 @@ data QueryResultBatchEntityResultType

61instance Hashable QueryResultBatchEntityResultType

63−instance FromText QueryResultBatchEntityResultType where

63+instance FromHttpApiData QueryResultBatchEntityResultType where

64− fromText = \case

64+ parseQueryParam = \case

65− "FULL" -> Just Full

65+ "FULL" -> Right Full

66− "KEY_ONLY" -> Just KeyOnly

66+ "KEY_ONLY" -> Right KeyOnly

67− "PROJECTION" -> Just Projection

67+ "PROJECTION" -> Right Projection

68− _ -> Nothing

68+ x -> Left ("Unable to parse QueryResultBatchEntityResultType from: " <> x)

70−instance ToText QueryResultBatchEntityResultType where

70+instance ToHttpApiData QueryResultBatchEntityResultType where

71− toText = \case

71+ toQueryParam = \case

72 Full -> "FULL"

73 KeyOnly -> "KEY_ONLY"

74 Projection -> "PROJECTION"

@@ -88,13 +88,13 @@ data CompositeFilterOperator

89instance Hashable CompositeFilterOperator

91−instance FromText CompositeFilterOperator where

91+instance FromHttpApiData CompositeFilterOperator where

92− fromText = \case

92+ parseQueryParam = \case

93− "AND" -> Just And

93+ "AND" -> Right And

94− _ -> Nothing

94+ x -> Left ("Unable to parse CompositeFilterOperator from: " <> x)

96−instance ToText CompositeFilterOperator where

96+instance ToHttpApiData CompositeFilterOperator where

97− toText = \case

97+ toQueryParam = \case

98 And -> "AND"

100instance FromJSON CompositeFilterOperator where

@@ -116,15 +116,15 @@ data QueryResultBatchMoreResults

116

117instance Hashable QueryResultBatchMoreResults

118

119−instance FromText QueryResultBatchMoreResults where

119+instance FromHttpApiData QueryResultBatchMoreResults where

120− fromText = \case

120+ parseQueryParam = \case

121− "MORE_RESULTS_AFTER_LIMIT" -> Just MoreResultsAfterLimit

121+ "MORE_RESULTS_AFTER_LIMIT" -> Right MoreResultsAfterLimit

122− "NOT_FINISHED" -> Just NotFinished

122+ "NOT_FINISHED" -> Right NotFinished

123− "NO_MORE_RESULTS" -> Just NoMoreResults

123+ "NO_MORE_RESULTS" -> Right NoMoreResults

124− _ -> Nothing

124+ x -> Left ("Unable to parse QueryResultBatchMoreResults from: " <> x)

125

126−instance ToText QueryResultBatchMoreResults where

126+instance ToHttpApiData QueryResultBatchMoreResults where

127− toText = \case

127+ toQueryParam = \case

128 MoreResultsAfterLimit -> "MORE_RESULTS_AFTER_LIMIT"

129 NotFinished -> "NOT_FINISHED"

130 NoMoreResults -> "NO_MORE_RESULTS"

@@ -150,15 +150,15 @@ data ReadOptionsReadConsistency

150

151instance Hashable ReadOptionsReadConsistency

152

153−instance FromText ReadOptionsReadConsistency where

153+instance FromHttpApiData ReadOptionsReadConsistency where

154− fromText = \case

154+ parseQueryParam = \case

155− "DEFAULT" -> Just Default

155+ "DEFAULT" -> Right Default

156− "EVENTUAL" -> Just Eventual

156+ "EVENTUAL" -> Right Eventual

157− "STRONG" -> Just Strong

157+ "STRONG" -> Right Strong

158− _ -> Nothing

158+ x -> Left ("Unable to parse ReadOptionsReadConsistency from: " <> x)

159

160−instance ToText ReadOptionsReadConsistency where

160+instance ToHttpApiData ReadOptionsReadConsistency where

161− toText = \case

161+ toQueryParam = \case

162 Default -> "DEFAULT"

163 Eventual -> "EVENTUAL"

164 Strong -> "STRONG"

@@ -188,18 +188,18 @@ data PropertyFilterOperator

188

189instance Hashable PropertyFilterOperator

190

191−instance FromText PropertyFilterOperator where

191+instance FromHttpApiData PropertyFilterOperator where

192− fromText = \case

192+ parseQueryParam = \case

193− "EQUAL" -> Just Equal

193+ "EQUAL" -> Right Equal

194− "GREATER_THAN" -> Just GreaterThan

194+ "GREATER_THAN" -> Right GreaterThan

195− "GREATER_THAN_OR_EQUAL" -> Just GreaterThanOrEqual

195+ "GREATER_THAN_OR_EQUAL" -> Right GreaterThanOrEqual

196− "HAS_ANCESTOR" -> Just HasAncestor

196+ "HAS_ANCESTOR" -> Right HasAncestor

197− "LESS_THAN" -> Just LessThan

197+ "LESS_THAN" -> Right LessThan

198− "LESS_THAN_OR_EQUAL" -> Just LessThanOrEqual

198+ "LESS_THAN_OR_EQUAL" -> Right LessThanOrEqual

199− _ -> Nothing

199+ x -> Left ("Unable to parse PropertyFilterOperator from: " <> x)

200−

200+

201−instance ToText PropertyFilterOperator where

201+instance ToHttpApiData PropertyFilterOperator where

202− toText = \case

202+ toQueryParam = \case

203 Equal -> "EQUAL"

204 GreaterThan -> "GREATER_THAN"

205 GreaterThanOrEqual -> "GREATER_THAN_OR_EQUAL"

@@ -228,14 +228,14 @@ data BeginTransactionRequestIsolationLevel

228

229instance Hashable BeginTransactionRequestIsolationLevel

230

231−instance FromText BeginTransactionRequestIsolationLevel where

231+instance FromHttpApiData BeginTransactionRequestIsolationLevel where

232− fromText = \case

232+ parseQueryParam = \case

233− "SERIALIZABLE" -> Just Serializable

233+ "SERIALIZABLE" -> Right Serializable

234− "SNAPSHOT" -> Just Snapshot

234+ "SNAPSHOT" -> Right Snapshot

235− _ -> Nothing

235+ x -> Left ("Unable to parse BeginTransactionRequestIsolationLevel from: " <> x)

236

237−instance ToText BeginTransactionRequestIsolationLevel where

237+instance ToHttpApiData BeginTransactionRequestIsolationLevel where

238− toText = \case

238+ toQueryParam = \case

239 Serializable -> "SERIALIZABLE"

240 Snapshot -> "SNAPSHOT"

241

@@ -256,14 +256,14 @@ data CommitRequestMode

256

257instance Hashable CommitRequestMode

258

259−instance FromText CommitRequestMode where

259+instance FromHttpApiData CommitRequestMode where

260− fromText = \case

260+ parseQueryParam = \case

261− "NON_TRANSACTIONAL" -> Just NonTransactional

261+ "NON_TRANSACTIONAL" -> Right NonTransactional

262− "TRANSACTIONAL" -> Just Transactional

262+ "TRANSACTIONAL" -> Right Transactional

263− _ -> Nothing

263+ x -> Left ("Unable to parse CommitRequestMode from: " <> x)

264

265−instance ToText CommitRequestMode where

265+instance ToHttpApiData CommitRequestMode where

266− toText = \case

266+ toQueryParam = \case

267 NonTransactional -> "NON_TRANSACTIONAL"

268 Transactional -> "TRANSACTIONAL"

269

@@ -285,13 +285,13 @@ data PropertyExpressionAggregationFunction

285

286instance Hashable PropertyExpressionAggregationFunction

287

288−instance FromText PropertyExpressionAggregationFunction where

288+instance FromHttpApiData PropertyExpressionAggregationFunction where

289− fromText = \case

289+ parseQueryParam = \case

290− "FIRST" -> Just First

290+ "FIRST" -> Right First

291− _ -> Nothing

291+ x -> Left ("Unable to parse PropertyExpressionAggregationFunction from: " <> x)

292

293−instance ToText PropertyExpressionAggregationFunction where

293+instance ToHttpApiData PropertyExpressionAggregationFunction where

294− toText = \case

294+ toQueryParam = \case

295 First -> "FIRST"

296

297instance FromJSON PropertyExpressionAggregationFunction where

gogol-deploymentmanager/gen/Network/Google/DeploymentManager/Types/Sum.hs+29−29

@@ -28,14 +28,14 @@ data DeploymentsUpdateCreatePolicy

29instance Hashable DeploymentsUpdateCreatePolicy

31−instance FromText DeploymentsUpdateCreatePolicy where

31+instance FromHttpApiData DeploymentsUpdateCreatePolicy where

32− fromText = \case

32+ parseQueryParam = \case

33− "ACQUIRE" -> Just Acquire

33+ "ACQUIRE" -> Right Acquire

34− "CREATE_OR_ACQUIRE" -> Just CreateOrAcquire

34+ "CREATE_OR_ACQUIRE" -> Right CreateOrAcquire

35− _ -> Nothing

35+ x -> Left ("Unable to parse DeploymentsUpdateCreatePolicy from: " <> x)

36−

36+

37−instance ToText DeploymentsUpdateCreatePolicy where

37+instance ToHttpApiData DeploymentsUpdateCreatePolicy where

38− toText = \case

38+ toQueryParam = \case

39 Acquire -> "ACQUIRE"

40 CreateOrAcquire -> "CREATE_OR_ACQUIRE"

@@ -55,14 +55,14 @@ data DeploymentsUpdateDeletePolicy

56instance Hashable DeploymentsUpdateDeletePolicy

58−instance FromText DeploymentsUpdateDeletePolicy where

58+instance FromHttpApiData DeploymentsUpdateDeletePolicy where

59− fromText = \case

59+ parseQueryParam = \case

60− "ABANDON" -> Just Abandon

60+ "ABANDON" -> Right Abandon

61− "DELETE" -> Just Delete'

61+ "DELETE" -> Right Delete'

62− _ -> Nothing

62+ x -> Left ("Unable to parse DeploymentsUpdateDeletePolicy from: " <> x)

64−instance ToText DeploymentsUpdateDeletePolicy where

64+instance ToHttpApiData DeploymentsUpdateDeletePolicy where

65− toText = \case

65+ toQueryParam = \case

66 Abandon -> "ABANDON"

67 Delete' -> "DELETE"

@@ -82,14 +82,14 @@ data DeploymentsPatchDeletePolicy

83instance Hashable DeploymentsPatchDeletePolicy

85−instance FromText DeploymentsPatchDeletePolicy where

85+instance FromHttpApiData DeploymentsPatchDeletePolicy where

86− fromText = \case

86+ parseQueryParam = \case

87− "ABANDON" -> Just DPDPAbandon

87+ "ABANDON" -> Right DPDPAbandon

88− "DELETE" -> Just DPDPDelete'

88+ "DELETE" -> Right DPDPDelete'

89− _ -> Nothing

89+ x -> Left ("Unable to parse DeploymentsPatchDeletePolicy from: " <> x)

91−instance ToText DeploymentsPatchDeletePolicy where

91+instance ToHttpApiData DeploymentsPatchDeletePolicy where

92− toText = \case

92+ toQueryParam = \case

93 DPDPAbandon -> "ABANDON"

94 DPDPDelete' -> "DELETE"

@@ -109,14 +109,14 @@ data DeploymentsPatchCreatePolicy

109

110instance Hashable DeploymentsPatchCreatePolicy

111

112−instance FromText DeploymentsPatchCreatePolicy where

112+instance FromHttpApiData DeploymentsPatchCreatePolicy where

113− fromText = \case

113+ parseQueryParam = \case

114− "ACQUIRE" -> Just DPCPAcquire

114+ "ACQUIRE" -> Right DPCPAcquire

115− "CREATE_OR_ACQUIRE" -> Just DPCPCreateOrAcquire

115+ "CREATE_OR_ACQUIRE" -> Right DPCPCreateOrAcquire

116− _ -> Nothing

116+ x -> Left ("Unable to parse DeploymentsPatchCreatePolicy from: " <> x)

117

118−instance ToText DeploymentsPatchCreatePolicy where

118+instance ToHttpApiData DeploymentsPatchCreatePolicy where

119− toText = \case

119+ toQueryParam = \case

120 DPCPAcquire -> "ACQUIRE"

121 DPCPCreateOrAcquire -> "CREATE_OR_ACQUIRE"

122

gogol-dfareporting/gen/Network/Google/DFAReporting/Types/Sum.hs+1941−1941

@@ -28,14 +28,14 @@ data PlacementsListSortOrder

29instance Hashable PlacementsListSortOrder

31−instance FromText PlacementsListSortOrder where

31+instance FromHttpApiData PlacementsListSortOrder where

32− fromText = \case

32+ parseQueryParam = \case

33− "ASCENDING" -> Just Ascending

33+ "ASCENDING" -> Right Ascending

34− "DESCENDING" -> Just Descending

34+ "DESCENDING" -> Right Descending

35− _ -> Nothing

35+ x -> Left ("Unable to parse PlacementsListSortOrder from: " <> x)

36−

36+

37−instance ToText PlacementsListSortOrder where

37+instance ToHttpApiData PlacementsListSortOrder where

38− toText = \case

38+ toQueryParam = \case

39 Ascending -> "ASCENDING"

40 Descending -> "DESCENDING"

@@ -81,27 +81,27 @@ data DateRangeRelativeDateRange

82instance Hashable DateRangeRelativeDateRange

84−instance FromText DateRangeRelativeDateRange where

84+instance FromHttpApiData DateRangeRelativeDateRange where

85− fromText = \case

85+ parseQueryParam = \case

86− "LAST_24_MONTHS" -> Just Last24Months

86+ "LAST_24_MONTHS" -> Right Last24Months

87− "LAST_30_DAYS" -> Just Last30Days

87+ "LAST_30_DAYS" -> Right Last30Days

88− "LAST_365_DAYS" -> Just Last365Days

88+ "LAST_365_DAYS" -> Right Last365Days

89− "LAST_7_DAYS" -> Just Last7Days

89+ "LAST_7_DAYS" -> Right Last7Days

90− "LAST_90_DAYS" -> Just Last90Days

90+ "LAST_90_DAYS" -> Right Last90Days

91− "MONTH_TO_DATE" -> Just MonthToDate

91+ "MONTH_TO_DATE" -> Right MonthToDate

92− "PREVIOUS_MONTH" -> Just PreviousMonth

92+ "PREVIOUS_MONTH" -> Right PreviousMonth

93− "PREVIOUS_QUARTER" -> Just PreviousQuarter

93+ "PREVIOUS_QUARTER" -> Right PreviousQuarter

94− "PREVIOUS_WEEK" -> Just PreviousWeek

94+ "PREVIOUS_WEEK" -> Right PreviousWeek

95− "PREVIOUS_YEAR" -> Just PreviousYear

95+ "PREVIOUS_YEAR" -> Right PreviousYear

96− "QUARTER_TO_DATE" -> Just QuarterToDate

96+ "QUARTER_TO_DATE" -> Right QuarterToDate

97− "TODAY" -> Just Today

97+ "TODAY" -> Right Today

98− "WEEK_TO_DATE" -> Just WeekToDate

98+ "WEEK_TO_DATE" -> Right WeekToDate

99− "YEAR_TO_DATE" -> Just YearToDate

99+ "YEAR_TO_DATE" -> Right YearToDate

100− "YESTERDAY" -> Just Yesterday

100+ "YESTERDAY" -> Right Yesterday

101− _ -> Nothing

101+ x -> Left ("Unable to parse DateRangeRelativeDateRange from: " <> x)

102−

102+

103−instance ToText DateRangeRelativeDateRange where

103+instance ToHttpApiData DateRangeRelativeDateRange where

104− toText = \case

104+ toQueryParam = \case

105 Last24Months -> "LAST_24_MONTHS"

106 Last30Days -> "LAST_30_DAYS"

107 Last365Days -> "LAST_365_DAYS"

@@ -134,14 +134,14 @@ data AdvertisersListSortField

134

135instance Hashable AdvertisersListSortField

136

137−instance FromText AdvertisersListSortField where

137+instance FromHttpApiData AdvertisersListSortField where

138− fromText = \case

138+ parseQueryParam = \case

139− "ID" -> Just ID

139+ "ID" -> Right ID

140− "NAME" -> Just Name

140+ "NAME" -> Right Name

141− _ -> Nothing

141+ x -> Left ("Unable to parse AdvertisersListSortField from: " <> x)

142

143−instance ToText AdvertisersListSortField where

143+instance ToHttpApiData AdvertisersListSortField where

144− toText = \case

144+ toQueryParam = \case

145 ID -> "ID"

146 Name -> "NAME"

147

@@ -161,14 +161,14 @@ data CreativeFieldsListSortOrder

161

162instance Hashable CreativeFieldsListSortOrder

163

164−instance FromText CreativeFieldsListSortOrder where

164+instance FromHttpApiData CreativeFieldsListSortOrder where

165− fromText = \case

165+ parseQueryParam = \case

166− "ASCENDING" -> Just CFLSOAscending

166+ "ASCENDING" -> Right CFLSOAscending

167− "DESCENDING" -> Just CFLSODescending

167+ "DESCENDING" -> Right CFLSODescending

168− _ -> Nothing

168+ x -> Left ("Unable to parse CreativeFieldsListSortOrder from: " <> x)

169

170−instance ToText CreativeFieldsListSortOrder where

170+instance ToHttpApiData CreativeFieldsListSortOrder where

171− toText = \case

171+ toQueryParam = \case

172 CFLSOAscending -> "ASCENDING"

173 CFLSODescending -> "DESCENDING"

174

@@ -188,14 +188,14 @@ data UserRolesListSortField

188

189instance Hashable UserRolesListSortField

190

191−instance FromText UserRolesListSortField where

191+instance FromHttpApiData UserRolesListSortField where

192− fromText = \case

192+ parseQueryParam = \case

193− "ID" -> Just URLSFID

193+ "ID" -> Right URLSFID

194− "NAME" -> Just URLSFName

194+ "NAME" -> Right URLSFName

195− _ -> Nothing

195+ x -> Left ("Unable to parse UserRolesListSortField from: " <> x)

196

197−instance ToText UserRolesListSortField where

197+instance ToHttpApiData UserRolesListSortField where

198− toText = \case

198+ toQueryParam = \case

199 URLSFID -> "ID"

200 URLSFName -> "NAME"

201

@@ -216,14 +216,14 @@ data FloodlightActivityTagFormat

216

217instance Hashable FloodlightActivityTagFormat

218

219−instance FromText FloodlightActivityTagFormat where

219+instance FromHttpApiData FloodlightActivityTagFormat where

220− fromText = \case

220+ parseQueryParam = \case

221− "HTML" -> Just HTML

221+ "HTML" -> Right HTML

222− "XHTML" -> Just Xhtml

222+ "XHTML" -> Right Xhtml

223− _ -> Nothing

223+ x -> Left ("Unable to parse FloodlightActivityTagFormat from: " <> x)

224

225−instance ToText FloodlightActivityTagFormat where

225+instance ToHttpApiData FloodlightActivityTagFormat where

226− toText = \case

226+ toQueryParam = \case

227 HTML -> "HTML"

228 Xhtml -> "XHTML"

229

@@ -243,14 +243,14 @@ data OrderDocumentsListSortOrder

243

244instance Hashable OrderDocumentsListSortOrder

245

246−instance FromText OrderDocumentsListSortOrder where

246+instance FromHttpApiData OrderDocumentsListSortOrder where

247− fromText = \case

247+ parseQueryParam = \case

248− "ASCENDING" -> Just ODLSOAscending

248+ "ASCENDING" -> Right ODLSOAscending

249− "DESCENDING" -> Just ODLSODescending

249+ "DESCENDING" -> Right ODLSODescending

250− _ -> Nothing

250+ x -> Left ("Unable to parse OrderDocumentsListSortOrder from: " <> x)

251

252−instance ToText OrderDocumentsListSortOrder where

252+instance ToHttpApiData OrderDocumentsListSortOrder where

253− toText = \case

253+ toQueryParam = \case

254 ODLSOAscending -> "ASCENDING"

255 ODLSODescending -> "DESCENDING"

256

@@ -301,20 +301,20 @@ data CreativeAssetRole

301

302instance Hashable CreativeAssetRole

303

304−instance FromText CreativeAssetRole where

304+instance FromHttpApiData CreativeAssetRole where

305− fromText = \case

305+ parseQueryParam = \case

306− "ADDITIONAL_FLASH" -> Just AdditionalFlash

306+ "ADDITIONAL_FLASH" -> Right AdditionalFlash

307− "ADDITIONAL_IMAGE" -> Just AdditionalImage

307+ "ADDITIONAL_IMAGE" -> Right AdditionalImage

308− "ALTERNATE_VIDEO" -> Just AlternateVideo

308+ "ALTERNATE_VIDEO" -> Right AlternateVideo

309− "BACKUP_IMAGE" -> Just BackupImage

309+ "BACKUP_IMAGE" -> Right BackupImage

310− "OTHER" -> Just Other

310+ "OTHER" -> Right Other

311− "PARENT_VIDEO" -> Just ParentVideo

311+ "PARENT_VIDEO" -> Right ParentVideo

312− "PRIMARY" -> Just Primary

312+ "PRIMARY" -> Right Primary

313− "TRANSCODED_VIDEO" -> Just TranscodedVideo

313+ "TRANSCODED_VIDEO" -> Right TranscodedVideo

314− _ -> Nothing

314+ x -> Left ("Unable to parse CreativeAssetRole from: " <> x)

315−

315+

316−instance ToText CreativeAssetRole where

316+instance ToHttpApiData CreativeAssetRole where

317− toText = \case

317+ toQueryParam = \case

318 AdditionalFlash -> "ADDITIONAL_FLASH"

319 AdditionalImage -> "ADDITIONAL_IMAGE"

320 AlternateVideo -> "ALTERNATE_VIDEO"

@@ -340,14 +340,14 @@ data RecipientDeliveryType

340

341instance Hashable RecipientDeliveryType

342

343−instance FromText RecipientDeliveryType where

343+instance FromHttpApiData RecipientDeliveryType where

344− fromText = \case

344+ parseQueryParam = \case

345− "ATTACHMENT" -> Just Attachment

345+ "ATTACHMENT" -> Right Attachment

346− "LINK" -> Just Link

346+ "LINK" -> Right Link

347− _ -> Nothing

347+ x -> Left ("Unable to parse RecipientDeliveryType from: " <> x)

348

349−instance ToText RecipientDeliveryType where

349+instance ToHttpApiData RecipientDeliveryType where

350− toText = \case

350+ toQueryParam = \case

351 Attachment -> "ATTACHMENT"

352 Link -> "LINK"

353

@@ -401,31 +401,31 @@ data ThirdPartyTrackingURLThirdPartyURLType

401

402instance Hashable ThirdPartyTrackingURLThirdPartyURLType

403

404−instance FromText ThirdPartyTrackingURLThirdPartyURLType where

404+instance FromHttpApiData ThirdPartyTrackingURLThirdPartyURLType where

405− fromText = \case

405+ parseQueryParam = \case

406− "CLICK_TRACKING" -> Just ClickTracking

406+ "CLICK_TRACKING" -> Right ClickTracking

407− "IMPRESSION" -> Just Impression

407+ "IMPRESSION" -> Right Impression

408− "RICH_MEDIA_BACKUP_IMPRESSION" -> Just RichMediaBackupImpression

408+ "RICH_MEDIA_BACKUP_IMPRESSION" -> Right RichMediaBackupImpression

409− "RICH_MEDIA_IMPRESSION" -> Just RichMediaImpression

409+ "RICH_MEDIA_IMPRESSION" -> Right RichMediaImpression

410− "RICH_MEDIA_RM_IMPRESSION" -> Just RichMediaRmImpression

410+ "RICH_MEDIA_RM_IMPRESSION" -> Right RichMediaRmImpression

411− "SURVEY" -> Just Survey

411+ "SURVEY" -> Right Survey

412− "VIDEO_COMPLETE" -> Just VideoComplete

412+ "VIDEO_COMPLETE" -> Right VideoComplete

413− "VIDEO_CUSTOM" -> Just VideoCustom

413+ "VIDEO_CUSTOM" -> Right VideoCustom

414− "VIDEO_FIRST_QUARTILE" -> Just VideoFirstQuartile

414+ "VIDEO_FIRST_QUARTILE" -> Right VideoFirstQuartile

415− "VIDEO_FULLSCREEN" -> Just VideoFullscreen

415+ "VIDEO_FULLSCREEN" -> Right VideoFullscreen

416− "VIDEO_MIDPOINT" -> Just VideoMidpoint

416+ "VIDEO_MIDPOINT" -> Right VideoMidpoint

417− "VIDEO_MUTE" -> Just VideoMute

417+ "VIDEO_MUTE" -> Right VideoMute

418− "VIDEO_PAUSE" -> Just VideoPause

418+ "VIDEO_PAUSE" -> Right VideoPause

419− "VIDEO_PROGRESS" -> Just VideoProgress

419+ "VIDEO_PROGRESS" -> Right VideoProgress

420− "VIDEO_REWIND" -> Just VideoRewind

420+ "VIDEO_REWIND" -> Right VideoRewind

421− "VIDEO_SKIP" -> Just VideoSkip

421+ "VIDEO_SKIP" -> Right VideoSkip

422− "VIDEO_START" -> Just VideoStart

422+ "VIDEO_START" -> Right VideoStart

423− "VIDEO_STOP" -> Just VideoStop

423+ "VIDEO_STOP" -> Right VideoStop

424− "VIDEO_THIRD_QUARTILE" -> Just VideoThirdQuartile

424+ "VIDEO_THIRD_QUARTILE" -> Right VideoThirdQuartile

425− _ -> Nothing

425+ x -> Left ("Unable to parse ThirdPartyTrackingURLThirdPartyURLType from: " <> x)

426−

426+

427−instance ToText ThirdPartyTrackingURLThirdPartyURLType where

427+instance ToHttpApiData ThirdPartyTrackingURLThirdPartyURLType where

428− toText = \case

428+ toQueryParam = \case

429 ClickTracking -> "CLICK_TRACKING"

430 Impression -> "IMPRESSION"

431 RichMediaBackupImpression -> "RICH_MEDIA_BACKUP_IMPRESSION"

@@ -462,14 +462,14 @@ data TargetableRemarketingListsListSortOrder

462

463instance Hashable TargetableRemarketingListsListSortOrder

464

465−instance FromText TargetableRemarketingListsListSortOrder where

465+instance FromHttpApiData TargetableRemarketingListsListSortOrder where

466− fromText = \case

466+ parseQueryParam = \case

467− "ASCENDING" -> Just TRLLSOAscending

467+ "ASCENDING" -> Right TRLLSOAscending

468− "DESCENDING" -> Just TRLLSODescending

468+ "DESCENDING" -> Right TRLLSODescending

469− _ -> Nothing

469+ x -> Left ("Unable to parse TargetableRemarketingListsListSortOrder from: " <> x)

470

471−instance ToText TargetableRemarketingListsListSortOrder where

471+instance ToHttpApiData TargetableRemarketingListsListSortOrder where

472− toText = \case

472+ toQueryParam = \case

473 TRLLSOAscending -> "ASCENDING"

474 TRLLSODescending -> "DESCENDING"

475

@@ -492,15 +492,15 @@ data CreativeAssetPositionLeftUnit

492

493instance Hashable CreativeAssetPositionLeftUnit

494

495−instance FromText CreativeAssetPositionLeftUnit where

495+instance FromHttpApiData CreativeAssetPositionLeftUnit where

496− fromText = \case

496+ parseQueryParam = \case

497− "OFFSET_UNIT_PERCENT" -> Just OffSetUnitPercent

497+ "OFFSET_UNIT_PERCENT" -> Right OffSetUnitPercent

498− "OFFSET_UNIT_PIXEL" -> Just OffSetUnitPixel

498+ "OFFSET_UNIT_PIXEL" -> Right OffSetUnitPixel

499− "OFFSET_UNIT_PIXEL_FROM_CENTER" -> Just OffSetUnitPixelFromCenter

499+ "OFFSET_UNIT_PIXEL_FROM_CENTER" -> Right OffSetUnitPixelFromCenter

500− _ -> Nothing

500+ x -> Left ("Unable to parse CreativeAssetPositionLeftUnit from: " <> x)

501

502−instance ToText CreativeAssetPositionLeftUnit where

502+instance ToHttpApiData CreativeAssetPositionLeftUnit where

503− toText = \case

503+ toQueryParam = \case

504 OffSetUnitPercent -> "OFFSET_UNIT_PERCENT"

505 OffSetUnitPixel -> "OFFSET_UNIT_PIXEL"

506 OffSetUnitPixelFromCenter -> "OFFSET_UNIT_PIXEL_FROM_CENTER"

@@ -523,15 +523,15 @@ data PricingScheduleCapCostOption

523

524instance Hashable PricingScheduleCapCostOption

525

526−instance FromText PricingScheduleCapCostOption where

526+instance FromHttpApiData PricingScheduleCapCostOption where

527− fromText = \case

527+ parseQueryParam = \case

528− "CAP_COST_CUMULATIVE" -> Just CapCostCumulative

528+ "CAP_COST_CUMULATIVE" -> Right CapCostCumulative

529− "CAP_COST_MONTHLY" -> Just CapCostMonthly

529+ "CAP_COST_MONTHLY" -> Right CapCostMonthly

530− "CAP_COST_NONE" -> Just CapCostNone

530+ "CAP_COST_NONE" -> Right CapCostNone

531− _ -> Nothing

531+ x -> Left ("Unable to parse PricingScheduleCapCostOption from: " <> x)

532

533−instance ToText PricingScheduleCapCostOption where

533+instance ToHttpApiData PricingScheduleCapCostOption where

534− toText = \case

534+ toQueryParam = \case

535 CapCostCumulative -> "CAP_COST_CUMULATIVE"

536 CapCostMonthly -> "CAP_COST_MONTHLY"

537 CapCostNone -> "CAP_COST_NONE"

@@ -558,17 +558,17 @@ data UserRolePermissionAvailability

558

559instance Hashable UserRolePermissionAvailability

560

561−instance FromText UserRolePermissionAvailability where

561+instance FromHttpApiData UserRolePermissionAvailability where

562− fromText = \case

562+ parseQueryParam = \case

563− "ACCOUNT_ALWAYS" -> Just AccountAlways

563+ "ACCOUNT_ALWAYS" -> Right AccountAlways

564− "ACCOUNT_BY_DEFAULT" -> Just AccountByDefault

564+ "ACCOUNT_BY_DEFAULT" -> Right AccountByDefault

565− "NOT_AVAILABLE_BY_DEFAULT" -> Just NotAvailableByDefault

565+ "NOT_AVAILABLE_BY_DEFAULT" -> Right NotAvailableByDefault

566− "SUBACCOUNT_AND_ACCOUNT_ALWAYS" -> Just SubAccountAndAccountAlways

566+ "SUBACCOUNT_AND_ACCOUNT_ALWAYS" -> Right SubAccountAndAccountAlways

567− "SUBACCOUNT_AND_ACCOUNT_BY_DEFAULT" -> Just SubAccountAndAccountByDefault

567+ "SUBACCOUNT_AND_ACCOUNT_BY_DEFAULT" -> Right SubAccountAndAccountByDefault

568− _ -> Nothing

568+ x -> Left ("Unable to parse UserRolePermissionAvailability from: " <> x)

569−

569+

570−instance ToText UserRolePermissionAvailability where

570+instance ToHttpApiData UserRolePermissionAvailability where

571− toText = \case

571+ toQueryParam = \case

572 AccountAlways -> "ACCOUNT_ALWAYS"

573 AccountByDefault -> "ACCOUNT_BY_DEFAULT"

574 NotAvailableByDefault -> "NOT_AVAILABLE_BY_DEFAULT"

@@ -593,14 +593,14 @@ data DirectorySiteContactAssignmentVisibility

593

594instance Hashable DirectorySiteContactAssignmentVisibility

595

596−instance FromText DirectorySiteContactAssignmentVisibility where

596+instance FromHttpApiData DirectorySiteContactAssignmentVisibility where

597− fromText = \case

597+ parseQueryParam = \case

598− "PRIVATE" -> Just Private

598+ "PRIVATE" -> Right Private

599− "PUBLIC" -> Just Public

599+ "PUBLIC" -> Right Public

600− _ -> Nothing

600+ x -> Left ("Unable to parse DirectorySiteContactAssignmentVisibility from: " <> x)

601

602−instance ToText DirectorySiteContactAssignmentVisibility where

602+instance ToHttpApiData DirectorySiteContactAssignmentVisibility where

603− toText = \case

603+ toQueryParam = \case

604 Private -> "PRIVATE"

605 Public -> "PUBLIC"

606

@@ -632,17 +632,17 @@ data PlacementCompatibility

632

633instance Hashable PlacementCompatibility

634

635−instance FromText PlacementCompatibility where

635+instance FromHttpApiData PlacementCompatibility where

636− fromText = \case

636+ parseQueryParam = \case

637− "APP" -> Just App

637+ "APP" -> Right App

638− "APP_INTERSTITIAL" -> Just AppInterstitial

638+ "APP_INTERSTITIAL" -> Right AppInterstitial

639− "DISPLAY" -> Just Display

639+ "DISPLAY" -> Right Display

640− "DISPLAY_INTERSTITIAL" -> Just DisplayInterstitial

640+ "DISPLAY_INTERSTITIAL" -> Right DisplayInterstitial

641− "IN_STREAM_VIDEO" -> Just InStreamVideo

641+ "IN_STREAM_VIDEO" -> Right InStreamVideo

642− _ -> Nothing

642+ x -> Left ("Unable to parse PlacementCompatibility from: " <> x)

643−

643+

644−instance ToText PlacementCompatibility where

644+instance ToHttpApiData PlacementCompatibility where

645− toText = \case

645+ toQueryParam = \case

646 App -> "APP"

647 AppInterstitial -> "APP_INTERSTITIAL"

648 Display -> "DISPLAY"

@@ -676,19 +676,19 @@ data ListPopulationTermOperator

676

677instance Hashable ListPopulationTermOperator

678

679−instance FromText ListPopulationTermOperator where

679+instance FromHttpApiData ListPopulationTermOperator where

680− fromText = \case

680+ parseQueryParam = \case

681− "NUM_EQUALS" -> Just NumEquals

681+ "NUM_EQUALS" -> Right NumEquals

682− "NUM_GREATER_THAN" -> Just NumGreaterThan

682+ "NUM_GREATER_THAN" -> Right NumGreaterThan

683− "NUM_GREATER_THAN_EQUAL" -> Just NumGreaterThanEqual

683+ "NUM_GREATER_THAN_EQUAL" -> Right NumGreaterThanEqual

684− "NUM_LESS_THAN" -> Just NumLessThan

684+ "NUM_LESS_THAN" -> Right NumLessThan

685− "NUM_LESS_THAN_EQUAL" -> Just NumLessThanEqual

685+ "NUM_LESS_THAN_EQUAL" -> Right NumLessThanEqual

686− "STRING_CONTAINS" -> Just StringContains

686+ "STRING_CONTAINS" -> Right StringContains

687− "STRING_EQUALS" -> Just StringEquals

687+ "STRING_EQUALS" -> Right StringEquals

688− _ -> Nothing

688+ x -> Left ("Unable to parse ListPopulationTermOperator from: " <> x)

689−

689+

690−instance ToText ListPopulationTermOperator where

690+instance ToHttpApiData ListPopulationTermOperator where

691− toText = \case

691+ toQueryParam = \case

692 NumEquals -> "NUM_EQUALS"

693 NumGreaterThan -> "NUM_GREATER_THAN"

694 NumGreaterThanEqual -> "NUM_GREATER_THAN_EQUAL"

@@ -713,14 +713,14 @@ data PlacementsListPaymentSource

713

714instance Hashable PlacementsListPaymentSource

715

716−instance FromText PlacementsListPaymentSource where

716+instance FromHttpApiData PlacementsListPaymentSource where

717− fromText = \case

717+ parseQueryParam = \case

718− "PLACEMENT_AGENCY_PAID" -> Just PlacementAgencyPaid

718+ "PLACEMENT_AGENCY_PAID" -> Right PlacementAgencyPaid

719− "PLACEMENT_PUBLISHER_PAID" -> Just PlacementPublisherPaid

719+ "PLACEMENT_PUBLISHER_PAID" -> Right PlacementPublisherPaid

720− _ -> Nothing

720+ x -> Left ("Unable to parse PlacementsListPaymentSource from: " <> x)

721

722−instance ToText PlacementsListPaymentSource where

722+instance ToHttpApiData PlacementsListPaymentSource where

723− toText = \case

723+ toQueryParam = \case

724 PlacementAgencyPaid -> "PLACEMENT_AGENCY_PAID"

725 PlacementPublisherPaid -> "PLACEMENT_PUBLISHER_PAID"

726

@@ -745,15 +745,15 @@ data ReportsListSortField

745

746instance Hashable ReportsListSortField

747

748−instance FromText ReportsListSortField where

748+instance FromHttpApiData ReportsListSortField where

749− fromText = \case

749+ parseQueryParam = \case

750− "ID" -> Just RLSFID

750+ "ID" -> Right RLSFID

751− "LAST_MODIFIED_TIME" -> Just RLSFLastModifiedTime

751+ "LAST_MODIFIED_TIME" -> Right RLSFLastModifiedTime

752− "NAME" -> Just RLSFName

752+ "NAME" -> Right RLSFName

753− _ -> Nothing

753+ x -> Left ("Unable to parse ReportsListSortField from: " <> x)

754

755−instance ToText ReportsListSortField where

755+instance ToHttpApiData ReportsListSortField where

756− toText = \case

756+ toQueryParam = \case

757 RLSFID -> "ID"

758 RLSFLastModifiedTime -> "LAST_MODIFIED_TIME"

759 RLSFName -> "NAME"

@@ -784,17 +784,17 @@ data AdSlotCompatibility

784

785instance Hashable AdSlotCompatibility

786

787−instance FromText AdSlotCompatibility where

787+instance FromHttpApiData AdSlotCompatibility where

788− fromText = \case

788+ parseQueryParam = \case

789− "APP" -> Just ASCApp

789+ "APP" -> Right ASCApp

790− "APP_INTERSTITIAL" -> Just ASCAppInterstitial

790+ "APP_INTERSTITIAL" -> Right ASCAppInterstitial

791− "DISPLAY" -> Just ASCDisplay

791+ "DISPLAY" -> Right ASCDisplay

792− "DISPLAY_INTERSTITIAL" -> Just ASCDisplayInterstitial

792+ "DISPLAY_INTERSTITIAL" -> Right ASCDisplayInterstitial

793− "IN_STREAM_VIDEO" -> Just ASCInStreamVideo

793+ "IN_STREAM_VIDEO" -> Right ASCInStreamVideo

794− _ -> Nothing

794+ x -> Left ("Unable to parse AdSlotCompatibility from: " <> x)

795−

795+

796−instance ToText AdSlotCompatibility where

796+instance ToHttpApiData AdSlotCompatibility where

797− toText = \case

797+ toQueryParam = \case

798 ASCApp -> "APP"

799 ASCAppInterstitial -> "APP_INTERSTITIAL"

800 ASCDisplay -> "DISPLAY"

@@ -817,14 +817,14 @@ data CampaignsListSortField

817

818instance Hashable CampaignsListSortField

819

820−instance FromText CampaignsListSortField where

820+instance FromHttpApiData CampaignsListSortField where

821− fromText = \case

821+ parseQueryParam = \case

822− "ID" -> Just CLSFID

822+ "ID" -> Right CLSFID

823− "NAME" -> Just CLSFName

823+ "NAME" -> Right CLSFName

824− _ -> Nothing

824+ x -> Left ("Unable to parse CampaignsListSortField from: " <> x)

825

826−instance ToText CampaignsListSortField where

826+instance ToHttpApiData CampaignsListSortField where

827− toText = \case

827+ toQueryParam = \case

828 CLSFID -> "ID"

829 CLSFName -> "NAME"

830

@@ -846,15 +846,15 @@ data AccountUserProFileTraffickerType

846

847instance Hashable AccountUserProFileTraffickerType

848

849−instance FromText AccountUserProFileTraffickerType where

849+instance FromHttpApiData AccountUserProFileTraffickerType where

850− fromText = \case

850+ parseQueryParam = \case

851− "EXTERNAL_TRAFFICKER" -> Just ExternalTrafficker

851+ "EXTERNAL_TRAFFICKER" -> Right ExternalTrafficker

852− "INTERNAL_NON_TRAFFICKER" -> Just InternalNonTrafficker

852+ "INTERNAL_NON_TRAFFICKER" -> Right InternalNonTrafficker

853− "INTERNAL_TRAFFICKER" -> Just InternalTrafficker

853+ "INTERNAL_TRAFFICKER" -> Right InternalTrafficker

854− _ -> Nothing

854+ x -> Left ("Unable to parse AccountUserProFileTraffickerType from: " <> x)

855

856−instance ToText AccountUserProFileTraffickerType where

856+instance ToHttpApiData AccountUserProFileTraffickerType where

857− toText = \case

857+ toQueryParam = \case

858 ExternalTrafficker -> "EXTERNAL_TRAFFICKER"

859 InternalNonTrafficker -> "INTERNAL_NON_TRAFFICKER"

860 InternalTrafficker -> "INTERNAL_TRAFFICKER"

@@ -1002,78 +1002,78 @@ data CreativeAssetMetadataDetectedFeaturesItem

1002

1003instance Hashable CreativeAssetMetadataDetectedFeaturesItem

1004

1005−instance FromText CreativeAssetMetadataDetectedFeaturesItem where

1005+instance FromHttpApiData CreativeAssetMetadataDetectedFeaturesItem where

1006− fromText = \case

1006+ parseQueryParam = \case

1007− "APPLICATION_CACHE" -> Just ApplicationCache

1007+ "APPLICATION_CACHE" -> Right ApplicationCache

1008− "AUDIO" -> Just Audio

1008+ "AUDIO" -> Right Audio

1009− "CANVAS" -> Just Canvas

1009+ "CANVAS" -> Right Canvas

1010− "CANVAS_TEXT" -> Just CanvasText

1010+ "CANVAS_TEXT" -> Right CanvasText

1011− "CSS_ANIMATIONS" -> Just CssAnimations

1011+ "CSS_ANIMATIONS" -> Right CssAnimations

1012− "CSS_BACKGROUND_SIZE" -> Just CssBackgRoundSize

1012+ "CSS_BACKGROUND_SIZE" -> Right CssBackgRoundSize

1013− "CSS_BORDER_IMAGE" -> Just CssBOrderImage

1013+ "CSS_BORDER_IMAGE" -> Right CssBOrderImage

1014− "CSS_BORDER_RADIUS" -> Just CssBOrderRadius

1014+ "CSS_BORDER_RADIUS" -> Right CssBOrderRadius

1015− "CSS_BOX_SHADOW" -> Just CssBoxShadow

1015+ "CSS_BOX_SHADOW" -> Right CssBoxShadow

1016− "CSS_COLUMNS" -> Just CssColumns

1016+ "CSS_COLUMNS" -> Right CssColumns

1017− "CSS_FLEX_BOX" -> Just CssFlexBox

1017+ "CSS_FLEX_BOX" -> Right CssFlexBox

1018− "CSS_FONT_FACE" -> Just CssFontFace

1018+ "CSS_FONT_FACE" -> Right CssFontFace

1019− "CSS_GENERATED_CONTENT" -> Just CssGeneratedContent

1019+ "CSS_GENERATED_CONTENT" -> Right CssGeneratedContent

1020− "CSS_GRADIENTS" -> Just CssGradients

1020+ "CSS_GRADIENTS" -> Right CssGradients

1021− "CSS_HSLA" -> Just CssHsla

1021+ "CSS_HSLA" -> Right CssHsla

1022− "CSS_MULTIPLE_BGS" -> Just CssMultipleBgs

1022+ "CSS_MULTIPLE_BGS" -> Right CssMultipleBgs

1023− "CSS_OPACITY" -> Just CssOpacity

1023+ "CSS_OPACITY" -> Right CssOpacity

1024− "CSS_REFLECTIONS" -> Just CssReflections

1024+ "CSS_REFLECTIONS" -> Right CssReflections

1025− "CSS_RGBA" -> Just CssRgba

1025+ "CSS_RGBA" -> Right CssRgba

1026− "CSS_TEXT_SHADOW" -> Just CssTextShadow

1026+ "CSS_TEXT_SHADOW" -> Right CssTextShadow

1027− "CSS_TRANSFORMS" -> Just CssTransforms

1027+ "CSS_TRANSFORMS" -> Right CssTransforms

1028− "CSS_TRANSFORMS3D" -> Just CssTRANSFORMS3D

1028+ "CSS_TRANSFORMS3D" -> Right CssTRANSFORMS3D

1029− "CSS_TRANSITIONS" -> Just CssTransitions

1029+ "CSS_TRANSITIONS" -> Right CssTransitions

1030− "DRAG_AND_DROP" -> Just DragAndDrop

1030+ "DRAG_AND_DROP" -> Right DragAndDrop

1031− "GEO_LOCATION" -> Just GeoLocation

1031+ "GEO_LOCATION" -> Right GeoLocation

1032− "HASH_CHANGE" -> Just HashChange

1032+ "HASH_CHANGE" -> Right HashChange

1033− "HISTORY" -> Just History

1033+ "HISTORY" -> Right History

1034− "INDEXED_DB" -> Just IndexedDB

1034+ "INDEXED_DB" -> Right IndexedDB

1035− "INLINE_SVG" -> Just InlineSvg

1035+ "INLINE_SVG" -> Right InlineSvg

1036− "INPUT_ATTR_AUTOCOMPLETE" -> Just InputAttrAutocomplete

1036+ "INPUT_ATTR_AUTOCOMPLETE" -> Right InputAttrAutocomplete

1037− "INPUT_ATTR_AUTOFOCUS" -> Just InputAttrAutofocus

1037+ "INPUT_ATTR_AUTOFOCUS" -> Right InputAttrAutofocus

1038− "INPUT_ATTR_LIST" -> Just InputAttrList

1038+ "INPUT_ATTR_LIST" -> Right InputAttrList

1039− "INPUT_ATTR_MAX" -> Just InputAttrMax

1039+ "INPUT_ATTR_MAX" -> Right InputAttrMax

1040− "INPUT_ATTR_MIN" -> Just InputAttrMin

1040+ "INPUT_ATTR_MIN" -> Right InputAttrMin

1041− "INPUT_ATTR_MULTIPLE" -> Just InputAttrMultiple

1041+ "INPUT_ATTR_MULTIPLE" -> Right InputAttrMultiple

1042− "INPUT_ATTR_PATTERN" -> Just InputAttrPattern

1042+ "INPUT_ATTR_PATTERN" -> Right InputAttrPattern

1043− "INPUT_ATTR_PLACEHOLDER" -> Just InputAttrPlaceholder

1043+ "INPUT_ATTR_PLACEHOLDER" -> Right InputAttrPlaceholder

1044− "INPUT_ATTR_REQUIRED" -> Just InputAttrRequired

1044+ "INPUT_ATTR_REQUIRED" -> Right InputAttrRequired

1045− "INPUT_ATTR_STEP" -> Just InputAttrStep

1045+ "INPUT_ATTR_STEP" -> Right InputAttrStep

1046− "INPUT_TYPE_COLOR" -> Just InputTypeColor

1046+ "INPUT_TYPE_COLOR" -> Right InputTypeColor

1047− "INPUT_TYPE_DATE" -> Just InputTypeDate

1047+ "INPUT_TYPE_DATE" -> Right InputTypeDate

1048− "INPUT_TYPE_DATETIME" -> Just InputTypeDatetime

1048+ "INPUT_TYPE_DATETIME" -> Right InputTypeDatetime

1049− "INPUT_TYPE_DATETIME_LOCAL" -> Just InputTypeDatetimeLocal

1049+ "INPUT_TYPE_DATETIME_LOCAL" -> Right InputTypeDatetimeLocal

1050− "INPUT_TYPE_EMAIL" -> Just InputTypeEmail

1050+ "INPUT_TYPE_EMAIL" -> Right InputTypeEmail

1051− "INPUT_TYPE_MONTH" -> Just InputTypeMonth

1051+ "INPUT_TYPE_MONTH" -> Right InputTypeMonth

1052− "INPUT_TYPE_NUMBER" -> Just InputTypeNumber

1052+ "INPUT_TYPE_NUMBER" -> Right InputTypeNumber

1053− "INPUT_TYPE_RANGE" -> Just InputTypeRange

1053+ "INPUT_TYPE_RANGE" -> Right InputTypeRange

1054− "INPUT_TYPE_SEARCH" -> Just InputTypeSearch

1054+ "INPUT_TYPE_SEARCH" -> Right InputTypeSearch

1055− "INPUT_TYPE_TEL" -> Just InputTypeTel

1055+ "INPUT_TYPE_TEL" -> Right InputTypeTel

1056− "INPUT_TYPE_TIME" -> Just InputTypeTime

1056+ "INPUT_TYPE_TIME" -> Right InputTypeTime

1057− "INPUT_TYPE_URL" -> Just InputTypeURL

1057+ "INPUT_TYPE_URL" -> Right InputTypeURL

1058− "INPUT_TYPE_WEEK" -> Just InputTypeWeek

1058+ "INPUT_TYPE_WEEK" -> Right InputTypeWeek

1059− "LOCAL_STORAGE" -> Just LocalStorage

1059+ "LOCAL_STORAGE" -> Right LocalStorage

1060− "POST_MESSAGE" -> Just PostMessage

1060+ "POST_MESSAGE" -> Right PostMessage

1061− "SESSION_STORAGE" -> Just SessionStorage

1061+ "SESSION_STORAGE" -> Right SessionStorage

1062− "SMIL" -> Just Smil

1062+ "SMIL" -> Right Smil

1063− "SVG_CLIP_PATHS" -> Just SvgClipPaths

1063+ "SVG_CLIP_PATHS" -> Right SvgClipPaths

1064− "SVG_FE_IMAGE" -> Just SvgFeImage

1064+ "SVG_FE_IMAGE" -> Right SvgFeImage

1065− "SVG_FILTERS" -> Just SvgFilters

1065+ "SVG_FILTERS" -> Right SvgFilters

1066− "SVG_HREF" -> Just SvgHref

1066+ "SVG_HREF" -> Right SvgHref

1067− "TOUCH" -> Just Touch

1067+ "TOUCH" -> Right Touch

1068− "VIDEO" -> Just Video

1068+ "VIDEO" -> Right Video

1069− "WEBGL" -> Just Webgl

1069+ "WEBGL" -> Right Webgl

1070− "WEB_SOCKETS" -> Just WebSockets

1070+ "WEB_SOCKETS" -> Right WebSockets

1071− "WEB_SQL_DATABASE" -> Just WebSQLDatabase

1071+ "WEB_SQL_DATABASE" -> Right WebSQLDatabase

1072− "WEB_WORKERS" -> Just WebWorkers

1072+ "WEB_WORKERS" -> Right WebWorkers

1073− _ -> Nothing

1073+ x -> Left ("Unable to parse CreativeAssetMetadataDetectedFeaturesItem from: " <> x)

1074−

1074+

1075−instance ToText CreativeAssetMetadataDetectedFeaturesItem where

1075+instance ToHttpApiData CreativeAssetMetadataDetectedFeaturesItem where

1076− toText = \case

1076+ toQueryParam = \case

1077 ApplicationCache -> "APPLICATION_CACHE"

1078 Audio -> "AUDIO"

1079 Canvas -> "CANVAS"

@@ -1168,17 +1168,17 @@ data AdsListCompatibility

1168

1169instance Hashable AdsListCompatibility

1170

1171−instance FromText AdsListCompatibility where

1171+instance FromHttpApiData AdsListCompatibility where

1172− fromText = \case

1172+ parseQueryParam = \case

1173− "APP" -> Just ALCApp

1173+ "APP" -> Right ALCApp

1174− "APP_INTERSTITIAL" -> Just ALCAppInterstitial

1174+ "APP_INTERSTITIAL" -> Right ALCAppInterstitial

1175− "DISPLAY" -> Just ALCDisplay

1175+ "DISPLAY" -> Right ALCDisplay

1176− "DISPLAY_INTERSTITIAL" -> Just ALCDisplayInterstitial

1176+ "DISPLAY_INTERSTITIAL" -> Right ALCDisplayInterstitial

1177− "IN_STREAM_VIDEO" -> Just ALCInStreamVideo

1177+ "IN_STREAM_VIDEO" -> Right ALCInStreamVideo

1178− _ -> Nothing

1178+ x -> Left ("Unable to parse AdsListCompatibility from: " <> x)

1179−

1179+

1180−instance ToText AdsListCompatibility where

1180+instance ToHttpApiData AdsListCompatibility where

1181− toText = \case

1181+ toQueryParam = \case

1182 ALCApp -> "APP"

1183 ALCAppInterstitial -> "APP_INTERSTITIAL"

1184 ALCDisplay -> "DISPLAY"

@@ -1202,14 +1202,14 @@ data EventTagStatus

1202

1203instance Hashable EventTagStatus

1204

1205−instance FromText EventTagStatus where

1205+instance FromHttpApiData EventTagStatus where

1206− fromText = \case

1206+ parseQueryParam = \case

1207− "DISABLED" -> Just Disabled

1207+ "DISABLED" -> Right Disabled

1208− "ENABLED" -> Just Enabled

1208+ "ENABLED" -> Right Enabled

1209− _ -> Nothing

1209+ x -> Left ("Unable to parse EventTagStatus from: " <> x)

1210

1211−instance ToText EventTagStatus where

1211+instance ToHttpApiData EventTagStatus where

1212− toText = \case

1212+ toQueryParam = \case

1213 Disabled -> "DISABLED"

1214 Enabled -> "ENABLED"

1215

@@ -1229,14 +1229,14 @@ data SitesListSortField

1229

1230instance Hashable SitesListSortField

1231

1232−instance FromText SitesListSortField where

1232+instance FromHttpApiData SitesListSortField where

1233− fromText = \case

1233+ parseQueryParam = \case

1234− "ID" -> Just SLSFID

1234+ "ID" -> Right SLSFID

1235− "NAME" -> Just SLSFName

1235+ "NAME" -> Right SLSFName

1236− _ -> Nothing

1236+ x -> Left ("Unable to parse SitesListSortField from: " <> x)

1237

1238−instance ToText SitesListSortField where

1238+instance ToHttpApiData SitesListSortField where

1239− toText = \case

1239+ toQueryParam = \case

1240 SLSFID -> "ID"

1241 SLSFName -> "NAME"

1242

@@ -1261,15 +1261,15 @@ data EventTagsListEventTagTypes

1261

1262instance Hashable EventTagsListEventTagTypes

1263

1264−instance FromText EventTagsListEventTagTypes where

1264+instance FromHttpApiData EventTagsListEventTagTypes where

1265− fromText = \case

1265+ parseQueryParam = \case

1266− "CLICK_THROUGH_EVENT_TAG" -> Just ClickThroughEventTag

1266+ "CLICK_THROUGH_EVENT_TAG" -> Right ClickThroughEventTag

1267− "IMPRESSION_IMAGE_EVENT_TAG" -> Just ImpressionImageEventTag

1267+ "IMPRESSION_IMAGE_EVENT_TAG" -> Right ImpressionImageEventTag

1268− "IMPRESSION_JAVASCRIPT_EVENT_TAG" -> Just ImpressionJavascriptEventTag

1268+ "IMPRESSION_JAVASCRIPT_EVENT_TAG" -> Right ImpressionJavascriptEventTag

1269− _ -> Nothing

1269+ x -> Left ("Unable to parse EventTagsListEventTagTypes from: " <> x)

1270

1271−instance ToText EventTagsListEventTagTypes where

1271+instance ToHttpApiData EventTagsListEventTagTypes where

1272− toText = \case

1272+ toQueryParam = \case

1273 ClickThroughEventTag -> "CLICK_THROUGH_EVENT_TAG"

1274 ImpressionImageEventTag -> "IMPRESSION_IMAGE_EVENT_TAG"

1275 ImpressionJavascriptEventTag -> "IMPRESSION_JAVASCRIPT_EVENT_TAG"

@@ -1294,16 +1294,16 @@ data FileStatus

1294

1295instance Hashable FileStatus

1296

1297−instance FromText FileStatus where

1297+instance FromHttpApiData FileStatus where

1298− fromText = \case

1298+ parseQueryParam = \case

1299− "CANCELLED" -> Just Cancelled

1299+ "CANCELLED" -> Right Cancelled

1300− "FAILED" -> Just Failed

1300+ "FAILED" -> Right Failed

1301− "PROCESSING" -> Just Processing

1301+ "PROCESSING" -> Right Processing

1302− "REPORT_AVAILABLE" -> Just ReportAvailable

1302+ "REPORT_AVAILABLE" -> Right ReportAvailable

1303− _ -> Nothing

1303+ x -> Left ("Unable to parse FileStatus from: " <> x)

1304

1305−instance ToText FileStatus where

1305+instance ToHttpApiData FileStatus where

1306− toText = \case

1306+ toQueryParam = \case

1307 Cancelled -> "CANCELLED"

1308 Failed -> "FAILED"

1309 Processing -> "PROCESSING"

@@ -1329,16 +1329,16 @@ data CreativeCustomEventArtworkType

1329

1330instance Hashable CreativeCustomEventArtworkType

1331

1332−instance FromText CreativeCustomEventArtworkType where

1332+instance FromHttpApiData CreativeCustomEventArtworkType where

1333− fromText = \case

1333+ parseQueryParam = \case

1334− "ARTWORK_TYPE_FLASH" -> Just ArtworkTypeFlash

1334+ "ARTWORK_TYPE_FLASH" -> Right ArtworkTypeFlash

1335− "ARTWORK_TYPE_HTML5" -> Just ArtworkTypeHTML5

1335+ "ARTWORK_TYPE_HTML5" -> Right ArtworkTypeHTML5

1336− "ARTWORK_TYPE_IMAGE" -> Just ArtworkTypeImage

1336+ "ARTWORK_TYPE_IMAGE" -> Right ArtworkTypeImage

1337− "ARTWORK_TYPE_MIXED" -> Just ArtworkTypeMixed

1337+ "ARTWORK_TYPE_MIXED" -> Right ArtworkTypeMixed

1338− _ -> Nothing

1338+ x -> Left ("Unable to parse CreativeCustomEventArtworkType from: " <> x)

1339

1340−instance ToText CreativeCustomEventArtworkType where

1340+instance ToHttpApiData CreativeCustomEventArtworkType where

1341− toText = \case

1341+ toQueryParam = \case

1342 ArtworkTypeFlash -> "ARTWORK_TYPE_FLASH"

1343 ArtworkTypeHTML5 -> "ARTWORK_TYPE_HTML5"

1344 ArtworkTypeImage -> "ARTWORK_TYPE_IMAGE"

@@ -1362,15 +1362,15 @@ data FloodlightConfigurationNATuralSearchConversionAttributionOption

1362

1363instance Hashable FloodlightConfigurationNATuralSearchConversionAttributionOption

1364

1365−instance FromText FloodlightConfigurationNATuralSearchConversionAttributionOption where

1365+instance FromHttpApiData FloodlightConfigurationNATuralSearchConversionAttributionOption where

1366− fromText = \case

1366+ parseQueryParam = \case

1367− "EXCLUDE_NATURAL_SEARCH_CONVERSION_ATTRIBUTION" -> Just ExcludeNATuralSearchConversionAttribution

1367+ "EXCLUDE_NATURAL_SEARCH_CONVERSION_ATTRIBUTION" -> Right ExcludeNATuralSearchConversionAttribution

1368− "INCLUDE_NATURAL_SEARCH_CONVERSION_ATTRIBUTION" -> Just IncludeNATuralSearchConversionAttribution

1368+ "INCLUDE_NATURAL_SEARCH_CONVERSION_ATTRIBUTION" -> Right IncludeNATuralSearchConversionAttribution

1369− "INCLUDE_NATURAL_SEARCH_TIERED_CONVERSION_ATTRIBUTION" -> Just IncludeNATuralSearchTieredConversionAttribution

1369+ "INCLUDE_NATURAL_SEARCH_TIERED_CONVERSION_ATTRIBUTION" -> Right IncludeNATuralSearchTieredConversionAttribution

1370− _ -> Nothing

1370+ x -> Left ("Unable to parse FloodlightConfigurationNATuralSearchConversionAttributionOption from: " <> x)

1371

1372−instance ToText FloodlightConfigurationNATuralSearchConversionAttributionOption where

1372+instance ToHttpApiData FloodlightConfigurationNATuralSearchConversionAttributionOption where

1373− toText = \case

1373+ toQueryParam = \case

1374 ExcludeNATuralSearchConversionAttribution -> "EXCLUDE_NATURAL_SEARCH_CONVERSION_ATTRIBUTION"

1375 IncludeNATuralSearchConversionAttribution -> "INCLUDE_NATURAL_SEARCH_CONVERSION_ATTRIBUTION"

1376 IncludeNATuralSearchTieredConversionAttribution -> "INCLUDE_NATURAL_SEARCH_TIERED_CONVERSION_ATTRIBUTION"

@@ -1396,16 +1396,16 @@ data CreativeAssetArtworkType

1396

1397instance Hashable CreativeAssetArtworkType

1398

1399−instance FromText CreativeAssetArtworkType where

1399+instance FromHttpApiData CreativeAssetArtworkType where

1400− fromText = \case

1400+ parseQueryParam = \case

1401− "ARTWORK_TYPE_FLASH" -> Just CAATArtworkTypeFlash

1401+ "ARTWORK_TYPE_FLASH" -> Right CAATArtworkTypeFlash

1402− "ARTWORK_TYPE_HTML5" -> Just CAATArtworkTypeHTML5

1402+ "ARTWORK_TYPE_HTML5" -> Right CAATArtworkTypeHTML5

1403− "ARTWORK_TYPE_IMAGE" -> Just CAATArtworkTypeImage

1403+ "ARTWORK_TYPE_IMAGE" -> Right CAATArtworkTypeImage

1404− "ARTWORK_TYPE_MIXED" -> Just CAATArtworkTypeMixed

1404+ "ARTWORK_TYPE_MIXED" -> Right CAATArtworkTypeMixed

1405− _ -> Nothing

1405+ x -> Left ("Unable to parse CreativeAssetArtworkType from: " <> x)

1406

1407−instance ToText CreativeAssetArtworkType where

1407+instance ToHttpApiData CreativeAssetArtworkType where

1408− toText = \case

1408+ toQueryParam = \case

1409 CAATArtworkTypeFlash -> "ARTWORK_TYPE_FLASH"

1410 CAATArtworkTypeHTML5 -> "ARTWORK_TYPE_HTML5"

1411 CAATArtworkTypeImage -> "ARTWORK_TYPE_IMAGE"

@@ -1427,14 +1427,14 @@ data FloodlightActivitiesListSortOrder

1427

1428instance Hashable FloodlightActivitiesListSortOrder

1429

1430−instance FromText FloodlightActivitiesListSortOrder where

1430+instance FromHttpApiData FloodlightActivitiesListSortOrder where

1431− fromText = \case

1431+ parseQueryParam = \case

1432− "ASCENDING" -> Just FALSOAscending

1432+ "ASCENDING" -> Right FALSOAscending

1433− "DESCENDING" -> Just FALSODescending

1433+ "DESCENDING" -> Right FALSODescending

1434− _ -> Nothing

1434+ x -> Left ("Unable to parse FloodlightActivitiesListSortOrder from: " <> x)

1435

1436−instance ToText FloodlightActivitiesListSortOrder where

1436+instance ToHttpApiData FloodlightActivitiesListSortOrder where

1437− toText = \case

1437+ toQueryParam = \case

1438 FALSOAscending -> "ASCENDING"

1439 FALSODescending -> "DESCENDING"

1440

@@ -1455,14 +1455,14 @@ data FileFormat

1455

1456instance Hashable FileFormat

1457

1458−instance FromText FileFormat where

1458+instance FromHttpApiData FileFormat where

1459− fromText = \case

1459+ parseQueryParam = \case

1460− "CSV" -> Just CSV

1460+ "CSV" -> Right CSV

1461− "EXCEL" -> Just Excel

1461+ "EXCEL" -> Right Excel

1462− _ -> Nothing

1462+ x -> Left ("Unable to parse FileFormat from: " <> x)

1463

1464−instance ToText FileFormat where

1464+instance ToHttpApiData FileFormat where

1465− toText = \case

1465+ toQueryParam = \case

1466 CSV -> "CSV"

1467 Excel -> "EXCEL"

1468

@@ -1488,17 +1488,17 @@ data PricingSchedulePricingType

1488

1489instance Hashable PricingSchedulePricingType

1490

1491−instance FromText PricingSchedulePricingType where

1491+instance FromHttpApiData PricingSchedulePricingType where

1492− fromText = \case

1492+ parseQueryParam = \case

1493− "PRICING_TYPE_CPA" -> Just PricingTypeCpa

1493+ "PRICING_TYPE_CPA" -> Right PricingTypeCpa

1494− "PRICING_TYPE_CPC" -> Just PricingTypeCpc

1494+ "PRICING_TYPE_CPC" -> Right PricingTypeCpc

1495− "PRICING_TYPE_CPM" -> Just PricingTypeCpm

1495+ "PRICING_TYPE_CPM" -> Right PricingTypeCpm

1496− "PRICING_TYPE_FLAT_RATE_CLICKS" -> Just PricingTypeFlatRateClicks

1496+ "PRICING_TYPE_FLAT_RATE_CLICKS" -> Right PricingTypeFlatRateClicks

1497− "PRICING_TYPE_FLAT_RATE_IMPRESSIONS" -> Just PricingTypeFlatRateImpressions

1497+ "PRICING_TYPE_FLAT_RATE_IMPRESSIONS" -> Right PricingTypeFlatRateImpressions

1498− _ -> Nothing

1498+ x -> Left ("Unable to parse PricingSchedulePricingType from: " <> x)

1499−

1499+

1500−instance ToText PricingSchedulePricingType where

1500+instance ToHttpApiData PricingSchedulePricingType where

1501− toText = \case

1501+ toQueryParam = \case

1502 PricingTypeCpa -> "PRICING_TYPE_CPA"

1503 PricingTypeCpc -> "PRICING_TYPE_CPC"

1504 PricingTypeCpm -> "PRICING_TYPE_CPM"

@@ -1527,17 +1527,17 @@ data CreativeCustomEventTargetType

1527

1528instance Hashable CreativeCustomEventTargetType

1529

1530−instance FromText CreativeCustomEventTargetType where

1530+instance FromHttpApiData CreativeCustomEventTargetType where

1531− fromText = \case

1531+ parseQueryParam = \case

1532− "TARGET_BLANK" -> Just TargetBlank

1532+ "TARGET_BLANK" -> Right TargetBlank

1533− "TARGET_PARENT" -> Just TargetParent

1533+ "TARGET_PARENT" -> Right TargetParent

1534− "TARGET_POPUP" -> Just TargetPopup

1534+ "TARGET_POPUP" -> Right TargetPopup

1535− "TARGET_SELF" -> Just TargetSelf

1535+ "TARGET_SELF" -> Right TargetSelf

1536− "TARGET_TOP" -> Just TargetTop

1536+ "TARGET_TOP" -> Right TargetTop

1537− _ -> Nothing

1537+ x -> Left ("Unable to parse CreativeCustomEventTargetType from: " <> x)

1538−

1538+

1539−instance ToText CreativeCustomEventTargetType where

1539+instance ToHttpApiData CreativeCustomEventTargetType where

1540− toText = \case

1540+ toQueryParam = \case

1541 TargetBlank -> "TARGET_BLANK"

1542 TargetParent -> "TARGET_PARENT"

1543 TargetPopup -> "TARGET_POPUP"

@@ -1562,14 +1562,14 @@ data ReportsListScope

1562

1563instance Hashable ReportsListScope

1564

1565−instance FromText ReportsListScope where

1565+instance FromHttpApiData ReportsListScope where

1566− fromText = \case

1566+ parseQueryParam = \case

1567− "ALL" -> Just All

1567+ "ALL" -> Right All

1568− "MINE" -> Just Mine

1568+ "MINE" -> Right Mine

1569− _ -> Nothing

1569+ x -> Left ("Unable to parse ReportsListScope from: " <> x)

1570

1571−instance ToText ReportsListScope where

1571+instance ToHttpApiData ReportsListScope where

1572− toText = \case

1572+ toQueryParam = \case

1573 All -> "ALL"

1574 Mine -> "MINE"

1575

@@ -1592,15 +1592,15 @@ data CreativeAssetDurationType

1592

1593instance Hashable CreativeAssetDurationType

1594

1595−instance FromText CreativeAssetDurationType where

1595+instance FromHttpApiData CreativeAssetDurationType where

1596− fromText = \case

1596+ parseQueryParam = \case

1597− "ASSET_DURATION_TYPE_AUTO" -> Just AssetDurationTypeAuto

1597+ "ASSET_DURATION_TYPE_AUTO" -> Right AssetDurationTypeAuto

1598− "ASSET_DURATION_TYPE_CUSTOM" -> Just AssetDurationTypeCustom

1598+ "ASSET_DURATION_TYPE_CUSTOM" -> Right AssetDurationTypeCustom

1599− "ASSET_DURATION_TYPE_NONE" -> Just AssetDurationTypeNone

1599+ "ASSET_DURATION_TYPE_NONE" -> Right AssetDurationTypeNone

1600− _ -> Nothing

1600+ x -> Left ("Unable to parse CreativeAssetDurationType from: " <> x)

1601

1602−instance ToText CreativeAssetDurationType where

1602+instance ToHttpApiData CreativeAssetDurationType where

1603− toText = \case

1603+ toQueryParam = \case

1604 AssetDurationTypeAuto -> "ASSET_DURATION_TYPE_AUTO"

1605 AssetDurationTypeCustom -> "ASSET_DURATION_TYPE_CUSTOM"

1606 AssetDurationTypeNone -> "ASSET_DURATION_TYPE_NONE"

@@ -1639,23 +1639,23 @@ data TargetableRemarketingListListSource

1639

1640instance Hashable TargetableRemarketingListListSource

1641

1642−instance FromText TargetableRemarketingListListSource where

1642+instance FromHttpApiData TargetableRemarketingListListSource where

1643− fromText = \case

1643+ parseQueryParam = \case

1644− "REMARKETING_LIST_SOURCE_ADX" -> Just RemarketingListSourceAdx

1644+ "REMARKETING_LIST_SOURCE_ADX" -> Right RemarketingListSourceAdx

1645− "REMARKETING_LIST_SOURCE_DBM" -> Just RemarketingListSourceDBm

1645+ "REMARKETING_LIST_SOURCE_DBM" -> Right RemarketingListSourceDBm

1646− "REMARKETING_LIST_SOURCE_DFA" -> Just RemarketingListSourceDfa

1646+ "REMARKETING_LIST_SOURCE_DFA" -> Right RemarketingListSourceDfa

1647− "REMARKETING_LIST_SOURCE_DFP" -> Just RemarketingListSourceDfp

1647+ "REMARKETING_LIST_SOURCE_DFP" -> Right RemarketingListSourceDfp

1648− "REMARKETING_LIST_SOURCE_DMP" -> Just RemarketingListSourceDmp

1648+ "REMARKETING_LIST_SOURCE_DMP" -> Right RemarketingListSourceDmp

1649− "REMARKETING_LIST_SOURCE_GA" -> Just RemarketingListSourceGa

1649+ "REMARKETING_LIST_SOURCE_GA" -> Right RemarketingListSourceGa

1650− "REMARKETING_LIST_SOURCE_GPLUS" -> Just RemarketingListSourceGplus

1650+ "REMARKETING_LIST_SOURCE_GPLUS" -> Right RemarketingListSourceGplus

1651− "REMARKETING_LIST_SOURCE_OTHER" -> Just RemarketingListSourceOther

1651+ "REMARKETING_LIST_SOURCE_OTHER" -> Right RemarketingListSourceOther

1652− "REMARKETING_LIST_SOURCE_PLAY_STORE" -> Just RemarketingListSourcePlayStore

1652+ "REMARKETING_LIST_SOURCE_PLAY_STORE" -> Right RemarketingListSourcePlayStore

1653− "REMARKETING_LIST_SOURCE_XFP" -> Just RemarketingListSourceXfp

1653+ "REMARKETING_LIST_SOURCE_XFP" -> Right RemarketingListSourceXfp

1654− "REMARKETING_LIST_SOURCE_YOUTUBE" -> Just RemarketingListSourceYouTube

1654+ "REMARKETING_LIST_SOURCE_YOUTUBE" -> Right RemarketingListSourceYouTube

1655− _ -> Nothing

1655+ x -> Left ("Unable to parse TargetableRemarketingListListSource from: " <> x)

1656−

1656+

1657−instance ToText TargetableRemarketingListListSource where

1657+instance ToHttpApiData TargetableRemarketingListListSource where

1658− toText = \case

1658+ toQueryParam = \case

1659 RemarketingListSourceAdx -> "REMARKETING_LIST_SOURCE_ADX"

1660 RemarketingListSourceDBm -> "REMARKETING_LIST_SOURCE_DBM"

1661 RemarketingListSourceDfa -> "REMARKETING_LIST_SOURCE_DFA"

@@ -1684,14 +1684,14 @@ data CreativeGroupsListSortField

1684

1685instance Hashable CreativeGroupsListSortField

1686

1687−instance FromText CreativeGroupsListSortField where

1687+instance FromHttpApiData CreativeGroupsListSortField where

1688− fromText = \case

1688+ parseQueryParam = \case

1689− "ID" -> Just CGLSFID

1689+ "ID" -> Right CGLSFID

1690− "NAME" -> Just CGLSFName

1690+ "NAME" -> Right CGLSFName

1691− _ -> Nothing

1691+ x -> Left ("Unable to parse CreativeGroupsListSortField from: " <> x)

1692

1693−instance ToText CreativeGroupsListSortField where

1693+instance ToHttpApiData CreativeGroupsListSortField where

1694− toText = \case

1694+ toQueryParam = \case

1695 CGLSFID -> "ID"

1696 CGLSFName -> "NAME"

1697

@@ -1711,14 +1711,14 @@ data PlacementsListSortField

1711

1712instance Hashable PlacementsListSortField

1713

1714−instance FromText PlacementsListSortField where

1714+instance FromHttpApiData PlacementsListSortField where

1715− fromText = \case

1715+ parseQueryParam = \case

1716− "ID" -> Just PLSFID

1716+ "ID" -> Right PLSFID

1717− "NAME" -> Just PLSFName

1717+ "NAME" -> Right PLSFName

1718− _ -> Nothing

1718+ x -> Left ("Unable to parse PlacementsListSortField from: " <> x)

1719

1720−instance ToText PlacementsListSortField where

1720+instance ToHttpApiData PlacementsListSortField where

1721− toText = \case

1721+ toQueryParam = \case

1722 PLSFID -> "ID"

1723 PLSFName -> "NAME"

1724

@@ -1865,78 +1865,78 @@ data CreativeBackupImageFeaturesItem

1865

1866instance Hashable CreativeBackupImageFeaturesItem

1867

1868−instance FromText CreativeBackupImageFeaturesItem where

1868+instance FromHttpApiData CreativeBackupImageFeaturesItem where

1869− fromText = \case

1869+ parseQueryParam = \case

1870− "APPLICATION_CACHE" -> Just CBIFIApplicationCache

1870+ "APPLICATION_CACHE" -> Right CBIFIApplicationCache

1871− "AUDIO" -> Just CBIFIAudio

1871+ "AUDIO" -> Right CBIFIAudio

1872− "CANVAS" -> Just CBIFICanvas

1872+ "CANVAS" -> Right CBIFICanvas

1873− "CANVAS_TEXT" -> Just CBIFICanvasText

1873+ "CANVAS_TEXT" -> Right CBIFICanvasText

1874− "CSS_ANIMATIONS" -> Just CBIFICssAnimations

1874+ "CSS_ANIMATIONS" -> Right CBIFICssAnimations

1875− "CSS_BACKGROUND_SIZE" -> Just CBIFICssBackgRoundSize

1875+ "CSS_BACKGROUND_SIZE" -> Right CBIFICssBackgRoundSize

1876− "CSS_BORDER_IMAGE" -> Just CBIFICssBOrderImage

1876+ "CSS_BORDER_IMAGE" -> Right CBIFICssBOrderImage

1877− "CSS_BORDER_RADIUS" -> Just CBIFICssBOrderRadius

1877+ "CSS_BORDER_RADIUS" -> Right CBIFICssBOrderRadius

1878− "CSS_BOX_SHADOW" -> Just CBIFICssBoxShadow

1878+ "CSS_BOX_SHADOW" -> Right CBIFICssBoxShadow

1879− "CSS_COLUMNS" -> Just CBIFICssColumns

1879+ "CSS_COLUMNS" -> Right CBIFICssColumns

1880− "CSS_FLEX_BOX" -> Just CBIFICssFlexBox

1880+ "CSS_FLEX_BOX" -> Right CBIFICssFlexBox

1881− "CSS_FONT_FACE" -> Just CBIFICssFontFace

1881+ "CSS_FONT_FACE" -> Right CBIFICssFontFace

1882− "CSS_GENERATED_CONTENT" -> Just CBIFICssGeneratedContent

1882+ "CSS_GENERATED_CONTENT" -> Right CBIFICssGeneratedContent

1883− "CSS_GRADIENTS" -> Just CBIFICssGradients

1883+ "CSS_GRADIENTS" -> Right CBIFICssGradients

1884− "CSS_HSLA" -> Just CBIFICssHsla

1884+ "CSS_HSLA" -> Right CBIFICssHsla

1885− "CSS_MULTIPLE_BGS" -> Just CBIFICssMultipleBgs

1885+ "CSS_MULTIPLE_BGS" -> Right CBIFICssMultipleBgs

1886− "CSS_OPACITY" -> Just CBIFICssOpacity

1886+ "CSS_OPACITY" -> Right CBIFICssOpacity

1887− "CSS_REFLECTIONS" -> Just CBIFICssReflections

1887+ "CSS_REFLECTIONS" -> Right CBIFICssReflections

1888− "CSS_RGBA" -> Just CBIFICssRgba

1888+ "CSS_RGBA" -> Right CBIFICssRgba

1889− "CSS_TEXT_SHADOW" -> Just CBIFICssTextShadow

1889+ "CSS_TEXT_SHADOW" -> Right CBIFICssTextShadow

1890− "CSS_TRANSFORMS" -> Just CBIFICssTransforms

1890+ "CSS_TRANSFORMS" -> Right CBIFICssTransforms

1891− "CSS_TRANSFORMS3D" -> Just CBIFICssTRANSFORMS3D

1891+ "CSS_TRANSFORMS3D" -> Right CBIFICssTRANSFORMS3D

1892− "CSS_TRANSITIONS" -> Just CBIFICssTransitions

1892+ "CSS_TRANSITIONS" -> Right CBIFICssTransitions

1893− "DRAG_AND_DROP" -> Just CBIFIDragAndDrop

1893+ "DRAG_AND_DROP" -> Right CBIFIDragAndDrop

1894− "GEO_LOCATION" -> Just CBIFIGeoLocation

1894+ "GEO_LOCATION" -> Right CBIFIGeoLocation

1895− "HASH_CHANGE" -> Just CBIFIHashChange

1895+ "HASH_CHANGE" -> Right CBIFIHashChange

1896− "HISTORY" -> Just CBIFIHistory

1896+ "HISTORY" -> Right CBIFIHistory

1897− "INDEXED_DB" -> Just CBIFIIndexedDB

1897+ "INDEXED_DB" -> Right CBIFIIndexedDB

1898− "INLINE_SVG" -> Just CBIFIInlineSvg

1898+ "INLINE_SVG" -> Right CBIFIInlineSvg

1899− "INPUT_ATTR_AUTOCOMPLETE" -> Just CBIFIInputAttrAutocomplete

1899+ "INPUT_ATTR_AUTOCOMPLETE" -> Right CBIFIInputAttrAutocomplete

1900− "INPUT_ATTR_AUTOFOCUS" -> Just CBIFIInputAttrAutofocus

1900+ "INPUT_ATTR_AUTOFOCUS" -> Right CBIFIInputAttrAutofocus

1901− "INPUT_ATTR_LIST" -> Just CBIFIInputAttrList

1901+ "INPUT_ATTR_LIST" -> Right CBIFIInputAttrList

1902− "INPUT_ATTR_MAX" -> Just CBIFIInputAttrMax

1902+ "INPUT_ATTR_MAX" -> Right CBIFIInputAttrMax

1903− "INPUT_ATTR_MIN" -> Just CBIFIInputAttrMin

1903+ "INPUT_ATTR_MIN" -> Right CBIFIInputAttrMin

1904− "INPUT_ATTR_MULTIPLE" -> Just CBIFIInputAttrMultiple

1904+ "INPUT_ATTR_MULTIPLE" -> Right CBIFIInputAttrMultiple

1905− "INPUT_ATTR_PATTERN" -> Just CBIFIInputAttrPattern

1905+ "INPUT_ATTR_PATTERN" -> Right CBIFIInputAttrPattern

1906− "INPUT_ATTR_PLACEHOLDER" -> Just CBIFIInputAttrPlaceholder

1906+ "INPUT_ATTR_PLACEHOLDER" -> Right CBIFIInputAttrPlaceholder

1907− "INPUT_ATTR_REQUIRED" -> Just CBIFIInputAttrRequired

1907+ "INPUT_ATTR_REQUIRED" -> Right CBIFIInputAttrRequired

1908− "INPUT_ATTR_STEP" -> Just CBIFIInputAttrStep

1908+ "INPUT_ATTR_STEP" -> Right CBIFIInputAttrStep

1909− "INPUT_TYPE_COLOR" -> Just CBIFIInputTypeColor

1909+ "INPUT_TYPE_COLOR" -> Right CBIFIInputTypeColor

1910− "INPUT_TYPE_DATE" -> Just CBIFIInputTypeDate

1910+ "INPUT_TYPE_DATE" -> Right CBIFIInputTypeDate

1911− "INPUT_TYPE_DATETIME" -> Just CBIFIInputTypeDatetime

1911+ "INPUT_TYPE_DATETIME" -> Right CBIFIInputTypeDatetime

1912− "INPUT_TYPE_DATETIME_LOCAL" -> Just CBIFIInputTypeDatetimeLocal

1912+ "INPUT_TYPE_DATETIME_LOCAL" -> Right CBIFIInputTypeDatetimeLocal

1913− "INPUT_TYPE_EMAIL" -> Just CBIFIInputTypeEmail

1913+ "INPUT_TYPE_EMAIL" -> Right CBIFIInputTypeEmail

1914− "INPUT_TYPE_MONTH" -> Just CBIFIInputTypeMonth

1914+ "INPUT_TYPE_MONTH" -> Right CBIFIInputTypeMonth

1915− "INPUT_TYPE_NUMBER" -> Just CBIFIInputTypeNumber

1915+ "INPUT_TYPE_NUMBER" -> Right CBIFIInputTypeNumber

1916− "INPUT_TYPE_RANGE" -> Just CBIFIInputTypeRange

1916+ "INPUT_TYPE_RANGE" -> Right CBIFIInputTypeRange

1917− "INPUT_TYPE_SEARCH" -> Just CBIFIInputTypeSearch

1917+ "INPUT_TYPE_SEARCH" -> Right CBIFIInputTypeSearch

1918− "INPUT_TYPE_TEL" -> Just CBIFIInputTypeTel

1918+ "INPUT_TYPE_TEL" -> Right CBIFIInputTypeTel

1919− "INPUT_TYPE_TIME" -> Just CBIFIInputTypeTime

1919+ "INPUT_TYPE_TIME" -> Right CBIFIInputTypeTime

1920− "INPUT_TYPE_URL" -> Just CBIFIInputTypeURL

1920+ "INPUT_TYPE_URL" -> Right CBIFIInputTypeURL

1921− "INPUT_TYPE_WEEK" -> Just CBIFIInputTypeWeek

1921+ "INPUT_TYPE_WEEK" -> Right CBIFIInputTypeWeek

1922− "LOCAL_STORAGE" -> Just CBIFILocalStorage

1922+ "LOCAL_STORAGE" -> Right CBIFILocalStorage

1923− "POST_MESSAGE" -> Just CBIFIPostMessage

1923+ "POST_MESSAGE" -> Right CBIFIPostMessage

1924− "SESSION_STORAGE" -> Just CBIFISessionStorage

1924+ "SESSION_STORAGE" -> Right CBIFISessionStorage

1925− "SMIL" -> Just CBIFISmil

1925+ "SMIL" -> Right CBIFISmil

1926− "SVG_CLIP_PATHS" -> Just CBIFISvgClipPaths

1926+ "SVG_CLIP_PATHS" -> Right CBIFISvgClipPaths

1927− "SVG_FE_IMAGE" -> Just CBIFISvgFeImage

1927+ "SVG_FE_IMAGE" -> Right CBIFISvgFeImage

1928− "SVG_FILTERS" -> Just CBIFISvgFilters

1928+ "SVG_FILTERS" -> Right CBIFISvgFilters

1929− "SVG_HREF" -> Just CBIFISvgHref

1929+ "SVG_HREF" -> Right CBIFISvgHref

1930− "TOUCH" -> Just CBIFITouch

1930+ "TOUCH" -> Right CBIFITouch

1931− "VIDEO" -> Just CBIFIVideo

1931+ "VIDEO" -> Right CBIFIVideo

1932− "WEBGL" -> Just CBIFIWebgl

1932+ "WEBGL" -> Right CBIFIWebgl

1933− "WEB_SOCKETS" -> Just CBIFIWebSockets

1933+ "WEB_SOCKETS" -> Right CBIFIWebSockets

1934− "WEB_SQL_DATABASE" -> Just CBIFIWebSQLDatabase

1934+ "WEB_SQL_DATABASE" -> Right CBIFIWebSQLDatabase

1935− "WEB_WORKERS" -> Just CBIFIWebWorkers

1935+ "WEB_WORKERS" -> Right CBIFIWebWorkers

1936− _ -> Nothing

1936+ x -> Left ("Unable to parse CreativeBackupImageFeaturesItem from: " <> x)

1937−

1937+

1938−instance ToText CreativeBackupImageFeaturesItem where

1938+instance ToHttpApiData CreativeBackupImageFeaturesItem where

1939− toText = \case

1939+ toQueryParam = \case

1940 CBIFIApplicationCache -> "APPLICATION_CACHE"

1941 CBIFIAudio -> "AUDIO"

1942 CBIFICanvas -> "CANVAS"

@@ -2020,14 +2020,14 @@ data AdvertisersListSortOrder

2020

2021instance Hashable AdvertisersListSortOrder

2022

2023−instance FromText AdvertisersListSortOrder where

2023+instance FromHttpApiData AdvertisersListSortOrder where

2024− fromText = \case

2024+ parseQueryParam = \case

2025− "ASCENDING" -> Just ALSOAscending

2025+ "ASCENDING" -> Right ALSOAscending

2026− "DESCENDING" -> Just ALSODescending

2026+ "DESCENDING" -> Right ALSODescending

2027− _ -> Nothing

2027+ x -> Left ("Unable to parse AdvertisersListSortOrder from: " <> x)

2028

2029−instance ToText AdvertisersListSortOrder where

2029+instance ToHttpApiData AdvertisersListSortOrder where

2030− toText = \case

2030+ toQueryParam = \case

2031 ALSOAscending -> "ASCENDING"

2032 ALSODescending -> "DESCENDING"

2033

@@ -2047,14 +2047,14 @@ data CreativeFieldsListSortField

2047

2048instance Hashable CreativeFieldsListSortField

2049

2050−instance FromText CreativeFieldsListSortField where

2050+instance FromHttpApiData CreativeFieldsListSortField where

2051− fromText = \case

2051+ parseQueryParam = \case

2052− "ID" -> Just CFLSFID

2052+ "ID" -> Right CFLSFID

2053− "NAME" -> Just CFLSFName

2053+ "NAME" -> Right CFLSFName

2054− _ -> Nothing

2054+ x -> Left ("Unable to parse CreativeFieldsListSortField from: " <> x)

2055

2056−instance ToText CreativeFieldsListSortField where

2056+instance ToHttpApiData CreativeFieldsListSortField where

2057− toText = \case

2057+ toQueryParam = \case

2058 CFLSFID -> "ID"

2059 CFLSFName -> "NAME"

2060

@@ -2110,32 +2110,32 @@ data UserDefinedVariableConfigurationVariableType

2110

2111instance Hashable UserDefinedVariableConfigurationVariableType

2112

2113−instance FromText UserDefinedVariableConfigurationVariableType where

2113+instance FromHttpApiData UserDefinedVariableConfigurationVariableType where

2114− fromText = \case

2114+ parseQueryParam = \case

2115− "U1" -> Just U1

2115+ "U1" -> Right U1

2116− "U10" -> Just U10

2116+ "U10" -> Right U10

2117− "U11" -> Just U11

2117+ "U11" -> Right U11

2118− "U12" -> Just U12

2118+ "U12" -> Right U12

2119− "U13" -> Just U13

2119+ "U13" -> Right U13

2120− "U14" -> Just U14

2120+ "U14" -> Right U14

2121− "U15" -> Just U15

2121+ "U15" -> Right U15

2122− "U16" -> Just U16

2122+ "U16" -> Right U16

2123− "U17" -> Just U17

2123+ "U17" -> Right U17

2124− "U18" -> Just U18

2124+ "U18" -> Right U18

2125− "U19" -> Just U19

2125+ "U19" -> Right U19

2126− "U2" -> Just U2

2126+ "U2" -> Right U2

2127− "U20" -> Just U20

2127+ "U20" -> Right U20

2128− "U3" -> Just U3

2128+ "U3" -> Right U3

2129− "U4" -> Just U4

2129+ "U4" -> Right U4

2130− "U5" -> Just U5

2130+ "U5" -> Right U5

2131− "U6" -> Just U6

2131+ "U6" -> Right U6

2132− "U7" -> Just U7

2132+ "U7" -> Right U7

2133− "U8" -> Just U8

2133+ "U8" -> Right U8

2134− "U9" -> Just U9

2134+ "U9" -> Right U9

2135− _ -> Nothing

2135+ x -> Left ("Unable to parse UserDefinedVariableConfigurationVariableType from: " <> x)

2136−

2136+

2137−instance ToText UserDefinedVariableConfigurationVariableType where

2137+instance ToHttpApiData UserDefinedVariableConfigurationVariableType where

2138− toText = \case

2138+ toQueryParam = \case

2139 U1 -> "U1"

2140 U10 -> "U10"

2141 U11 -> "U11"

@@ -2173,14 +2173,14 @@ data FsCommandPositionOption

2173

2174instance Hashable FsCommandPositionOption

2175

2176−instance FromText FsCommandPositionOption where

2176+instance FromHttpApiData FsCommandPositionOption where

2177− fromText = \case

2177+ parseQueryParam = \case

2178− "CENTERED" -> Just Centered

2178+ "CENTERED" -> Right Centered

2179− "DISTANCE_FROM_TOP_LEFT_CORNER" -> Just DistanceFromTopLeftCorner

2179+ "DISTANCE_FROM_TOP_LEFT_CORNER" -> Right DistanceFromTopLeftCorner

2180− _ -> Nothing

2180+ x -> Left ("Unable to parse FsCommandPositionOption from: " <> x)

2181

2182−instance ToText FsCommandPositionOption where

2182+instance ToHttpApiData FsCommandPositionOption where

2183− toText = \case

2183+ toQueryParam = \case

2184 Centered -> "CENTERED"

2185 DistanceFromTopLeftCorner -> "DISTANCE_FROM_TOP_LEFT_CORNER"

2186

@@ -2200,14 +2200,14 @@ data UserRolesListSortOrder

2200

2201instance Hashable UserRolesListSortOrder

2202

2203−instance FromText UserRolesListSortOrder where

2203+instance FromHttpApiData UserRolesListSortOrder where

2204− fromText = \case

2204+ parseQueryParam = \case

2205− "ASCENDING" -> Just URLSOAscending

2205+ "ASCENDING" -> Right URLSOAscending

2206− "DESCENDING" -> Just URLSODescending

2206+ "DESCENDING" -> Right URLSODescending

2207− _ -> Nothing

2207+ x -> Left ("Unable to parse UserRolesListSortOrder from: " <> x)

2208

2209−instance ToText UserRolesListSortOrder where

2209+instance ToHttpApiData UserRolesListSortOrder where

2210− toText = \case

2210+ toQueryParam = \case

2211 URLSOAscending -> "ASCENDING"

2212 URLSODescending -> "DESCENDING"

2213

@@ -2237,17 +2237,17 @@ data PlacementsListCompatibilities

2237

2238instance Hashable PlacementsListCompatibilities

2239

2240−instance FromText PlacementsListCompatibilities where

2240+instance FromHttpApiData PlacementsListCompatibilities where

2241− fromText = \case

2241+ parseQueryParam = \case

2242− "APP" -> Just PLCApp

2242+ "APP" -> Right PLCApp

2243− "APP_INTERSTITIAL" -> Just PLCAppInterstitial

2243+ "APP_INTERSTITIAL" -> Right PLCAppInterstitial

2244− "DISPLAY" -> Just PLCDisplay

2244+ "DISPLAY" -> Right PLCDisplay

2245− "DISPLAY_INTERSTITIAL" -> Just PLCDisplayInterstitial

2245+ "DISPLAY_INTERSTITIAL" -> Right PLCDisplayInterstitial

2246− "IN_STREAM_VIDEO" -> Just PLCInStreamVideo

2246+ "IN_STREAM_VIDEO" -> Right PLCInStreamVideo

2247− _ -> Nothing

2247+ x -> Left ("Unable to parse PlacementsListCompatibilities from: " <> x)

2248−

2248+

2249−instance ToText PlacementsListCompatibilities where

2249+instance ToHttpApiData PlacementsListCompatibilities where

2250− toText = \case

2250+ toQueryParam = \case

2251 PLCApp -> "APP"

2252 PLCAppInterstitial -> "APP_INTERSTITIAL"

2253 PLCDisplay -> "DISPLAY"

@@ -2270,14 +2270,14 @@ data OrderDocumentsListSortField

2270

2271instance Hashable OrderDocumentsListSortField

2272

2273−instance FromText OrderDocumentsListSortField where

2273+instance FromHttpApiData OrderDocumentsListSortField where

2274− fromText = \case

2274+ parseQueryParam = \case

2275− "ID" -> Just ODLSFID

2275+ "ID" -> Right ODLSFID

2276− "NAME" -> Just ODLSFName

2276+ "NAME" -> Right ODLSFName

2277− _ -> Nothing

2277+ x -> Left ("Unable to parse OrderDocumentsListSortField from: " <> x)

2278

2279−instance ToText OrderDocumentsListSortField where

2279+instance ToHttpApiData OrderDocumentsListSortField where

2280− toText = \case

2280+ toQueryParam = \case

2281 ODLSFID -> "ID"

2282 ODLSFName -> "NAME"

2283

@@ -2302,17 +2302,17 @@ data CreativeCompatibilityItem

2302

2303instance Hashable CreativeCompatibilityItem

2304

2305−instance FromText CreativeCompatibilityItem where

2305+instance FromHttpApiData CreativeCompatibilityItem where

2306− fromText = \case

2306+ parseQueryParam = \case

2307− "APP" -> Just CCIApp

2307+ "APP" -> Right CCIApp

2308− "APP_INTERSTITIAL" -> Just CCIAppInterstitial

2308+ "APP_INTERSTITIAL" -> Right CCIAppInterstitial

2309− "DISPLAY" -> Just CCIDisplay

2309+ "DISPLAY" -> Right CCIDisplay

2310− "DISPLAY_INTERSTITIAL" -> Just CCIDisplayInterstitial

2310+ "DISPLAY_INTERSTITIAL" -> Right CCIDisplayInterstitial

2311− "IN_STREAM_VIDEO" -> Just CCIInStreamVideo

2311+ "IN_STREAM_VIDEO" -> Right CCIInStreamVideo

2312− _ -> Nothing

2312+ x -> Left ("Unable to parse CreativeCompatibilityItem from: " <> x)

2313−

2313+

2314−instance ToText CreativeCompatibilityItem where

2314+instance ToHttpApiData CreativeCompatibilityItem where

2315− toText = \case

2315+ toQueryParam = \case

2316 CCIApp -> "APP"

2317 CCIAppInterstitial -> "APP_INTERSTITIAL"

2318 CCIDisplay -> "DISPLAY"

@@ -2335,14 +2335,14 @@ data ReportDeliveryEmailOwnerDeliveryType

2335

2336instance Hashable ReportDeliveryEmailOwnerDeliveryType

2337

2338−instance FromText ReportDeliveryEmailOwnerDeliveryType where

2338+instance FromHttpApiData ReportDeliveryEmailOwnerDeliveryType where

2339− fromText = \case

2339+ parseQueryParam = \case

2340− "ATTACHMENT" -> Just RDEODTAttachment

2340+ "ATTACHMENT" -> Right RDEODTAttachment

2341− "LINK" -> Just RDEODTLink

2341+ "LINK" -> Right RDEODTLink

2342− _ -> Nothing

2342+ x -> Left ("Unable to parse ReportDeliveryEmailOwnerDeliveryType from: " <> x)

2343

2344−instance ToText ReportDeliveryEmailOwnerDeliveryType where

2344+instance ToHttpApiData ReportDeliveryEmailOwnerDeliveryType where

2345− toText = \case

2345+ toQueryParam = \case

2346 RDEODTAttachment -> "ATTACHMENT"

2347 RDEODTLink -> "LINK"

2348

@@ -2362,14 +2362,14 @@ data SiteContactContactType

2362

2363instance Hashable SiteContactContactType

2364

2365−instance FromText SiteContactContactType where

2365+instance FromHttpApiData SiteContactContactType where

2366− fromText = \case

2366+ parseQueryParam = \case

2367− "SALES_PERSON" -> Just SalesPerson

2367+ "SALES_PERSON" -> Right SalesPerson

2368− "TRAFFICKER" -> Just Trafficker

2368+ "TRAFFICKER" -> Right Trafficker

2369− _ -> Nothing

2369+ x -> Left ("Unable to parse SiteContactContactType from: " <> x)

2370

2371−instance ToText SiteContactContactType where

2371+instance ToHttpApiData SiteContactContactType where

2372− toText = \case

2372+ toQueryParam = \case

2373 SalesPerson -> "SALES_PERSON"

2374 Trafficker -> "TRAFFICKER"

2375

@@ -2391,14 +2391,14 @@ data ReportsListSortOrder

2391

2392instance Hashable ReportsListSortOrder

2393

2394−instance FromText ReportsListSortOrder where

2394+instance FromHttpApiData ReportsListSortOrder where

2395− fromText = \case

2395+ parseQueryParam = \case

2396− "ASCENDING" -> Just RLSOAscending

2396+ "ASCENDING" -> Right RLSOAscending

2397− "DESCENDING" -> Just RLSODescending

2397+ "DESCENDING" -> Right RLSODescending

2398− _ -> Nothing

2398+ x -> Left ("Unable to parse ReportsListSortOrder from: " <> x)

2399

2400−instance ToText ReportsListSortOrder where

2400+instance ToHttpApiData ReportsListSortOrder where

2401− toText = \case

2401+ toQueryParam = \case

2402 RLSOAscending -> "ASCENDING"

2403 RLSODescending -> "DESCENDING"

2404

@@ -2418,14 +2418,14 @@ data TargetableRemarketingListsListSortField

2418

2419instance Hashable TargetableRemarketingListsListSortField

2420

2421−instance FromText TargetableRemarketingListsListSortField where

2421+instance FromHttpApiData TargetableRemarketingListsListSortField where

2422− fromText = \case

2422+ parseQueryParam = \case

2423− "ID" -> Just TRLLSFID

2423+ "ID" -> Right TRLLSFID

2424− "NAME" -> Just TRLLSFName

2424+ "NAME" -> Right TRLLSFName

2425− _ -> Nothing

2425+ x -> Left ("Unable to parse TargetableRemarketingListsListSortField from: " <> x)

2426

2427−instance ToText TargetableRemarketingListsListSortField where

2427+instance ToHttpApiData TargetableRemarketingListsListSortField where

2428− toText = \case

2428+ toQueryParam = \case

2429 TRLLSFID -> "ID"

2430 TRLLSFName -> "NAME"

2431

@@ -2445,14 +2445,14 @@ data CampaignsListSortOrder

2445

2446instance Hashable CampaignsListSortOrder

2447

2448−instance FromText CampaignsListSortOrder where

2448+instance FromHttpApiData CampaignsListSortOrder where

2449− fromText = \case

2449+ parseQueryParam = \case

2450− "ASCENDING" -> Just CLSOAscending

2450+ "ASCENDING" -> Right CLSOAscending

2451− "DESCENDING" -> Just CLSODescending

2451+ "DESCENDING" -> Right CLSODescending

2452− _ -> Nothing

2452+ x -> Left ("Unable to parse CampaignsListSortOrder from: " <> x)

2453

2454−instance ToText CampaignsListSortOrder where

2454+instance ToHttpApiData CampaignsListSortOrder where

2455− toText = \case

2455+ toQueryParam = \case

2456 CLSOAscending -> "ASCENDING"

2457 CLSODescending -> "DESCENDING"

2458

@@ -2473,14 +2473,14 @@ data FloodlightActivityGroupsListType

2473

2474instance Hashable FloodlightActivityGroupsListType

2475

2476−instance FromText FloodlightActivityGroupsListType where

2476+instance FromHttpApiData FloodlightActivityGroupsListType where

2477− fromText = \case

2477+ parseQueryParam = \case

2478− "COUNTER" -> Just Counter

2478+ "COUNTER" -> Right Counter

2479− "SALE" -> Just Sale

2479+ "SALE" -> Right Sale

2480− _ -> Nothing

2480+ x -> Left ("Unable to parse FloodlightActivityGroupsListType from: " <> x)

2481

2482−instance ToText FloodlightActivityGroupsListType where

2482+instance ToHttpApiData FloodlightActivityGroupsListType where

2483− toText = \case

2483+ toQueryParam = \case

2484 Counter -> "COUNTER"

2485 Sale -> "SALE"

2486

@@ -2501,14 +2501,14 @@ data FloodlightConfigurationFirstDayOfWeek

2501

2502instance Hashable FloodlightConfigurationFirstDayOfWeek

2503

2504−instance FromText FloodlightConfigurationFirstDayOfWeek where

2504+instance FromHttpApiData FloodlightConfigurationFirstDayOfWeek where

2505− fromText = \case

2505+ parseQueryParam = \case

2506− "MONDAY" -> Just Monday

2506+ "MONDAY" -> Right Monday

2507− "SUNDAY" -> Just Sunday

2507+ "SUNDAY" -> Right Sunday

2508− _ -> Nothing

2508+ x -> Left ("Unable to parse FloodlightConfigurationFirstDayOfWeek from: " <> x)

2509

2510−instance ToText FloodlightConfigurationFirstDayOfWeek where

2510+instance ToHttpApiData FloodlightConfigurationFirstDayOfWeek where

2511− toText = \case

2511+ toQueryParam = \case

2512 Monday -> "MONDAY"

2513 Sunday -> "SUNDAY"

2514

@@ -2557,28 +2557,28 @@ data DeliverySchedulePriority

2557

2558instance Hashable DeliverySchedulePriority

2559

2560−instance FromText DeliverySchedulePriority where

2560+instance FromHttpApiData DeliverySchedulePriority where

2561− fromText = \case

2561+ parseQueryParam = \case

2562− "AD_PRIORITY_01" -> Just AdPriority01

2562+ "AD_PRIORITY_01" -> Right AdPriority01

2563− "AD_PRIORITY_02" -> Just AdPriority02

2563+ "AD_PRIORITY_02" -> Right AdPriority02

2564− "AD_PRIORITY_03" -> Just AdPriority03

2564+ "AD_PRIORITY_03" -> Right AdPriority03

2565− "AD_PRIORITY_04" -> Just AdPriority04

2565+ "AD_PRIORITY_04" -> Right AdPriority04

2566− "AD_PRIORITY_05" -> Just AdPriority05

2566+ "AD_PRIORITY_05" -> Right AdPriority05

2567− "AD_PRIORITY_06" -> Just AdPriority06

2567+ "AD_PRIORITY_06" -> Right AdPriority06

2568− "AD_PRIORITY_07" -> Just AdPriority07

2568+ "AD_PRIORITY_07" -> Right AdPriority07

2569− "AD_PRIORITY_08" -> Just AdPriority08

2569+ "AD_PRIORITY_08" -> Right AdPriority08

2570− "AD_PRIORITY_09" -> Just AdPriority09

2570+ "AD_PRIORITY_09" -> Right AdPriority09

2571− "AD_PRIORITY_10" -> Just AdPriority10

2571+ "AD_PRIORITY_10" -> Right AdPriority10

2572− "AD_PRIORITY_11" -> Just AdPriority11

2572+ "AD_PRIORITY_11" -> Right AdPriority11

2573− "AD_PRIORITY_12" -> Just AdPriority12

2573+ "AD_PRIORITY_12" -> Right AdPriority12

2574− "AD_PRIORITY_13" -> Just AdPriority13

2574+ "AD_PRIORITY_13" -> Right AdPriority13

2575− "AD_PRIORITY_14" -> Just AdPriority14

2575+ "AD_PRIORITY_14" -> Right AdPriority14

2576− "AD_PRIORITY_15" -> Just AdPriority15

2576+ "AD_PRIORITY_15" -> Right AdPriority15

2577− "AD_PRIORITY_16" -> Just AdPriority16

2577+ "AD_PRIORITY_16" -> Right AdPriority16

2578− _ -> Nothing

2578+ x -> Left ("Unable to parse DeliverySchedulePriority from: " <> x)

2579−

2579+

2580−instance ToText DeliverySchedulePriority where

2580+instance ToHttpApiData DeliverySchedulePriority where

2581− toText = \case

2581+ toQueryParam = \case

2582 AdPriority01 -> "AD_PRIORITY_01"

2583 AdPriority02 -> "AD_PRIORITY_02"

2584 AdPriority03 -> "AD_PRIORITY_03"

@@ -2613,14 +2613,14 @@ data FloodlightActivitiesListFloodlightActivityGroupType

2613

2614instance Hashable FloodlightActivitiesListFloodlightActivityGroupType

2615

2616−instance FromText FloodlightActivitiesListFloodlightActivityGroupType where

2616+instance FromHttpApiData FloodlightActivitiesListFloodlightActivityGroupType where

2617− fromText = \case

2617+ parseQueryParam = \case

2618− "COUNTER" -> Just FALFAGTCounter

2618+ "COUNTER" -> Right FALFAGTCounter

2619− "SALE" -> Just FALFAGTSale

2619+ "SALE" -> Right FALFAGTSale

2620− _ -> Nothing

2620+ x -> Left ("Unable to parse FloodlightActivitiesListFloodlightActivityGroupType from: " <> x)

2621

2622−instance ToText FloodlightActivitiesListFloodlightActivityGroupType where

2622+instance ToHttpApiData FloodlightActivitiesListFloodlightActivityGroupType where

2623− toText = \case

2623+ toQueryParam = \case

2624 FALFAGTCounter -> "COUNTER"

2625 FALFAGTSale -> "SALE"

2626

@@ -2644,15 +2644,15 @@ data CreativeAuthoringSource

2644

2645instance Hashable CreativeAuthoringSource

2646

2647−instance FromText CreativeAuthoringSource where

2647+instance FromHttpApiData CreativeAuthoringSource where

2648− fromText = \case

2648+ parseQueryParam = \case

2649− "CREATIVE_AUTHORING_SOURCE_DBM" -> Just CreativeAuthoringSourceDBm

2649+ "CREATIVE_AUTHORING_SOURCE_DBM" -> Right CreativeAuthoringSourceDBm

2650− "CREATIVE_AUTHORING_SOURCE_DCM" -> Just CreativeAuthoringSourceDcm

2650+ "CREATIVE_AUTHORING_SOURCE_DCM" -> Right CreativeAuthoringSourceDcm

2651− "CREATIVE_AUTHORING_SOURCE_STUDIO" -> Just CreativeAuthoringSourceStudio

2651+ "CREATIVE_AUTHORING_SOURCE_STUDIO" -> Right CreativeAuthoringSourceStudio

2652− _ -> Nothing

2652+ x -> Left ("Unable to parse CreativeAuthoringSource from: " <> x)

2653

2654−instance ToText CreativeAuthoringSource where

2654+instance ToHttpApiData CreativeAuthoringSource where

2655− toText = \case

2655+ toQueryParam = \case

2656 CreativeAuthoringSourceDBm -> "CREATIVE_AUTHORING_SOURCE_DBM"

2657 CreativeAuthoringSourceDcm -> "CREATIVE_AUTHORING_SOURCE_DCM"

2658 CreativeAuthoringSourceStudio -> "CREATIVE_AUTHORING_SOURCE_STUDIO"

@@ -2676,16 +2676,16 @@ data FloodlightConfigurationStandardVariableTypesItem

2676

2677instance Hashable FloodlightConfigurationStandardVariableTypesItem

2678

2679−instance FromText FloodlightConfigurationStandardVariableTypesItem where

2679+instance FromHttpApiData FloodlightConfigurationStandardVariableTypesItem where

2680− fromText = \case

2680+ parseQueryParam = \case

2681− "NUM" -> Just Num

2681+ "NUM" -> Right Num

2682− "ORD" -> Just Ord

2682+ "ORD" -> Right Ord

2683− "TRAN" -> Just Tran

2683+ "TRAN" -> Right Tran

2684− "U" -> Just U

2684+ "U" -> Right U

2685− _ -> Nothing

2685+ x -> Left ("Unable to parse FloodlightConfigurationStandardVariableTypesItem from: " <> x)

2686

2687−instance ToText FloodlightConfigurationStandardVariableTypesItem where

2687+instance ToHttpApiData FloodlightConfigurationStandardVariableTypesItem where

2688− toText = \case

2688+ toQueryParam = \case

2689 Num -> "NUM"

2690 Ord -> "ORD"

2691 Tran -> "TRAN"

@@ -2708,14 +2708,14 @@ data PlacementPaymentSource

2708

2709instance Hashable PlacementPaymentSource

2710

2711−instance FromText PlacementPaymentSource where

2711+instance FromHttpApiData PlacementPaymentSource where

2712− fromText = \case

2712+ parseQueryParam = \case

2713− "PLACEMENT_AGENCY_PAID" -> Just PPSPlacementAgencyPaid

2713+ "PLACEMENT_AGENCY_PAID" -> Right PPSPlacementAgencyPaid

2714− "PLACEMENT_PUBLISHER_PAID" -> Just PPSPlacementPublisherPaid

2714+ "PLACEMENT_PUBLISHER_PAID" -> Right PPSPlacementPublisherPaid

2715− _ -> Nothing

2715+ x -> Left ("Unable to parse PlacementPaymentSource from: " <> x)

2716

2717−instance ToText PlacementPaymentSource where

2717+instance ToHttpApiData PlacementPaymentSource where

2718− toText = \case

2718+ toQueryParam = \case

2719 PPSPlacementAgencyPaid -> "PLACEMENT_AGENCY_PAID"

2720 PPSPlacementPublisherPaid -> "PLACEMENT_PUBLISHER_PAID"

2721

@@ -2737,14 +2737,14 @@ data ReportsFilesListSortOrder

2737

2738instance Hashable ReportsFilesListSortOrder

2739

2740−instance FromText ReportsFilesListSortOrder where

2740+instance FromHttpApiData ReportsFilesListSortOrder where

2741− fromText = \case

2741+ parseQueryParam = \case

2742− "ASCENDING" -> Just RFLSOAscending

2742+ "ASCENDING" -> Right RFLSOAscending

2743− "DESCENDING" -> Just RFLSODescending

2743+ "DESCENDING" -> Right RFLSODescending

2744− _ -> Nothing

2744+ x -> Left ("Unable to parse ReportsFilesListSortOrder from: " <> x)

2745

2746−instance ToText ReportsFilesListSortOrder where

2746+instance ToHttpApiData ReportsFilesListSortOrder where

2747− toText = \case

2747+ toQueryParam = \case

2748 RFLSOAscending -> "ASCENDING"

2749 RFLSODescending -> "DESCENDING"

2750

@@ -2764,14 +2764,14 @@ data InventoryItemsListSortField

2764

2765instance Hashable InventoryItemsListSortField

2766

2767−instance FromText InventoryItemsListSortField where

2767+instance FromHttpApiData InventoryItemsListSortField where

2768− fromText = \case

2768+ parseQueryParam = \case

2769− "ID" -> Just IILSFID

2769+ "ID" -> Right IILSFID

2770− "NAME" -> Just IILSFName

2770+ "NAME" -> Right IILSFName

2771− _ -> Nothing

2771+ x -> Left ("Unable to parse InventoryItemsListSortField from: " <> x)

2772

2773−instance ToText InventoryItemsListSortField where

2773+instance ToHttpApiData InventoryItemsListSortField where

2774− toText = \case

2774+ toQueryParam = \case

2775 IILSFID -> "ID"

2776 IILSFName -> "NAME"

2777

@@ -2795,15 +2795,15 @@ data EventTagType

2795

2796instance Hashable EventTagType

2797

2798−instance FromText EventTagType where

2798+instance FromHttpApiData EventTagType where

2799− fromText = \case

2799+ parseQueryParam = \case

2800− "CLICK_THROUGH_EVENT_TAG" -> Just ETTClickThroughEventTag

2800+ "CLICK_THROUGH_EVENT_TAG" -> Right ETTClickThroughEventTag

2801− "IMPRESSION_IMAGE_EVENT_TAG" -> Just ETTImpressionImageEventTag

2801+ "IMPRESSION_IMAGE_EVENT_TAG" -> Right ETTImpressionImageEventTag

2802− "IMPRESSION_JAVASCRIPT_EVENT_TAG" -> Just ETTImpressionJavascriptEventTag

2802+ "IMPRESSION_JAVASCRIPT_EVENT_TAG" -> Right ETTImpressionJavascriptEventTag

2803− _ -> Nothing

2803+ x -> Left ("Unable to parse EventTagType from: " <> x)

2804

2805−instance ToText EventTagType where

2805+instance ToHttpApiData EventTagType where

2806− toText = \case

2806+ toQueryParam = \case

2807 ETTClickThroughEventTag -> "CLICK_THROUGH_EVENT_TAG"

2808 ETTImpressionImageEventTag -> "IMPRESSION_IMAGE_EVENT_TAG"

2809 ETTImpressionJavascriptEventTag -> "IMPRESSION_JAVASCRIPT_EVENT_TAG"

@@ -2824,14 +2824,14 @@ data CreativesListSortOrder

2824

2825instance Hashable CreativesListSortOrder

2826

2827−instance FromText CreativesListSortOrder where

2827+instance FromHttpApiData CreativesListSortOrder where

2828− fromText = \case

2828+ parseQueryParam = \case

2829− "ASCENDING" -> Just CAscending

2829+ "ASCENDING" -> Right CAscending

2830− "DESCENDING" -> Just CDescending

2830+ "DESCENDING" -> Right CDescending

2831− _ -> Nothing

2831+ x -> Left ("Unable to parse CreativesListSortOrder from: " <> x)

2832

2833−instance ToText CreativesListSortOrder where

2833+instance ToHttpApiData CreativesListSortOrder where

2834− toText = \case

2834+ toQueryParam = \case

2835 CAscending -> "ASCENDING"

2836 CDescending -> "DESCENDING"

2837

@@ -2851,14 +2851,14 @@ data InventoryItemsListType

2851

2852instance Hashable InventoryItemsListType

2853

2854−instance FromText InventoryItemsListType where

2854+instance FromHttpApiData InventoryItemsListType where

2855− fromText = \case

2855+ parseQueryParam = \case

2856− "PLANNING_PLACEMENT_TYPE_CREDIT" -> Just PlanningPlacementTypeCredit

2856+ "PLANNING_PLACEMENT_TYPE_CREDIT" -> Right PlanningPlacementTypeCredit

2857− "PLANNING_PLACEMENT_TYPE_REGULAR" -> Just PlanningPlacementTypeRegular

2857+ "PLANNING_PLACEMENT_TYPE_REGULAR" -> Right PlanningPlacementTypeRegular

2858− _ -> Nothing

2858+ x -> Left ("Unable to parse InventoryItemsListType from: " <> x)

2859

2860−instance ToText InventoryItemsListType where

2860+instance ToHttpApiData InventoryItemsListType where

2861− toText = \case

2861+ toQueryParam = \case

2862 PlanningPlacementTypeCredit -> "PLANNING_PLACEMENT_TYPE_CREDIT"

2863 PlanningPlacementTypeRegular -> "PLANNING_PLACEMENT_TYPE_REGULAR"

2864

@@ -2878,14 +2878,14 @@ data PopupWindowPropertiesPositionType

2878

2879instance Hashable PopupWindowPropertiesPositionType

2880

2881−instance FromText PopupWindowPropertiesPositionType where

2881+instance FromHttpApiData PopupWindowPropertiesPositionType where

2882− fromText = \case

2882+ parseQueryParam = \case

2883− "CENTER" -> Just Center

2883+ "CENTER" -> Right Center

2884− "COORDINATES" -> Just Coordinates

2884+ "COORDINATES" -> Right Coordinates

2885− _ -> Nothing

2885+ x -> Left ("Unable to parse PopupWindowPropertiesPositionType from: " <> x)

2886

2887−instance ToText PopupWindowPropertiesPositionType where

2887+instance ToHttpApiData PopupWindowPropertiesPositionType where

2888− toText = \case

2888+ toQueryParam = \case

2889 Center -> "CENTER"

2890 Coordinates -> "COORDINATES"

2891

@@ -2907,15 +2907,15 @@ data DirectorySiteContactRole

2907

2908instance Hashable DirectorySiteContactRole

2909

2910−instance FromText DirectorySiteContactRole where

2910+instance FromHttpApiData DirectorySiteContactRole where

2911− fromText = \case

2911+ parseQueryParam = \case

2912− "ADMIN" -> Just Admin

2912+ "ADMIN" -> Right Admin

2913− "EDIT" -> Just Edit

2913+ "EDIT" -> Right Edit

2914− "VIEW" -> Just View

2914+ "VIEW" -> Right View

2915− _ -> Nothing

2915+ x -> Left ("Unable to parse DirectorySiteContactRole from: " <> x)

2916

2917−instance ToText DirectorySiteContactRole where

2917+instance ToHttpApiData DirectorySiteContactRole where

2918− toText = \case

2918+ toQueryParam = \case

2919 Admin -> "ADMIN"

2920 Edit -> "EDIT"

2921 View -> "VIEW"

@@ -2941,15 +2941,15 @@ data TagSettingKeywordOption

2941

2942instance Hashable TagSettingKeywordOption

2943

2944−instance FromText TagSettingKeywordOption where

2944+instance FromHttpApiData TagSettingKeywordOption where

2945− fromText = \case

2945+ parseQueryParam = \case

2946− "GENERATE_SEPARATE_TAG_FOR_EACH_KEYWORD" -> Just GenerateSeparateTagForEachKeyword

2946+ "GENERATE_SEPARATE_TAG_FOR_EACH_KEYWORD" -> Right GenerateSeparateTagForEachKeyword

2947− "IGNORE" -> Just Ignore

2947+ "IGNORE" -> Right Ignore

2948− "PLACEHOLDER_WITH_LIST_OF_KEYWORDS" -> Just PlaceholderWithListOfKeywords

2948+ "PLACEHOLDER_WITH_LIST_OF_KEYWORDS" -> Right PlaceholderWithListOfKeywords

2949− _ -> Nothing

2949+ x -> Left ("Unable to parse TagSettingKeywordOption from: " <> x)

2950

2951−instance ToText TagSettingKeywordOption where

2951+instance ToHttpApiData TagSettingKeywordOption where

2952− toText = \case

2952+ toQueryParam = \case

2953 GenerateSeparateTagForEachKeyword -> "GENERATE_SEPARATE_TAG_FOR_EACH_KEYWORD"

2954 Ignore -> "IGNORE"

2955 PlaceholderWithListOfKeywords -> "PLACEHOLDER_WITH_LIST_OF_KEYWORDS"

@@ -2971,14 +2971,14 @@ data CreativeAuthoringTool

2971

2972instance Hashable CreativeAuthoringTool

2973

2974−instance FromText CreativeAuthoringTool where

2974+instance FromHttpApiData CreativeAuthoringTool where

2975− fromText = \case

2975+ parseQueryParam = \case

2976− "NINJA" -> Just Ninja

2976+ "NINJA" -> Right Ninja

2977− "SWIFFY" -> Just Swiffy

2977+ "SWIFFY" -> Right Swiffy

2978− _ -> Nothing

2978+ x -> Left ("Unable to parse CreativeAuthoringTool from: " <> x)

2979

2980−instance ToText CreativeAuthoringTool where

2980+instance ToHttpApiData CreativeAuthoringTool where

2981− toText = \case

2981+ toQueryParam = \case

2982 Ninja -> "NINJA"

2983 Swiffy -> "SWIFFY"

2984

@@ -3000,15 +3000,15 @@ data OrderContactContactType

3000

3001instance Hashable OrderContactContactType

3002

3003−instance FromText OrderContactContactType where

3003+instance FromHttpApiData OrderContactContactType where

3004− fromText = \case

3004+ parseQueryParam = \case

3005− "PLANNING_ORDER_CONTACT_BUYER_BILLING_CONTACT" -> Just PlanningOrderContactBuyerBillingContact

3005+ "PLANNING_ORDER_CONTACT_BUYER_BILLING_CONTACT" -> Right PlanningOrderContactBuyerBillingContact

3006− "PLANNING_ORDER_CONTACT_BUYER_CONTACT" -> Just PlanningOrderContactBuyerContact

3006+ "PLANNING_ORDER_CONTACT_BUYER_CONTACT" -> Right PlanningOrderContactBuyerContact

3007− "PLANNING_ORDER_CONTACT_SELLER_CONTACT" -> Just PlanningOrderContactSellerContact

3007+ "PLANNING_ORDER_CONTACT_SELLER_CONTACT" -> Right PlanningOrderContactSellerContact

3008− _ -> Nothing

3008+ x -> Left ("Unable to parse OrderContactContactType from: " <> x)

3009

3010−instance ToText OrderContactContactType where

3010+instance ToHttpApiData OrderContactContactType where

3011− toText = \case

3011+ toQueryParam = \case

3012 PlanningOrderContactBuyerBillingContact -> "PLANNING_ORDER_CONTACT_BUYER_BILLING_CONTACT"

3013 PlanningOrderContactBuyerContact -> "PLANNING_ORDER_CONTACT_BUYER_CONTACT"

3014 PlanningOrderContactSellerContact -> "PLANNING_ORDER_CONTACT_SELLER_CONTACT"

@@ -3036,17 +3036,17 @@ data CreativeAssetIdType

3036

3037instance Hashable CreativeAssetIdType

3038

3039−instance FromText CreativeAssetIdType where

3039+instance FromHttpApiData CreativeAssetIdType where

3040− fromText = \case

3040+ parseQueryParam = \case

3041− "FLASH" -> Just CAITFlash

3041+ "FLASH" -> Right CAITFlash

3042− "HTML" -> Just CAITHTML

3042+ "HTML" -> Right CAITHTML

3043− "HTML_IMAGE" -> Just CAITHTMLImage

3043+ "HTML_IMAGE" -> Right CAITHTMLImage

3044− "IMAGE" -> Just CAITImage

3044+ "IMAGE" -> Right CAITImage

3045− "VIDEO" -> Just CAITVideo

3045+ "VIDEO" -> Right CAITVideo

3046− _ -> Nothing

3046+ x -> Left ("Unable to parse CreativeAssetIdType from: " <> x)

3047−

3047+

3048−instance ToText CreativeAssetIdType where

3048+instance ToHttpApiData CreativeAssetIdType where

3049− toText = \case

3049+ toQueryParam = \case

3050 CAITFlash -> "FLASH"

3051 CAITHTML -> "HTML"

3052 CAITHTMLImage -> "HTML_IMAGE"

@@ -3069,14 +3069,14 @@ data AccountUserProFilesListSortOrder

3069

3070instance Hashable AccountUserProFilesListSortOrder

3071

3072−instance FromText AccountUserProFilesListSortOrder where

3072+instance FromHttpApiData AccountUserProFilesListSortOrder where

3073− fromText = \case

3073+ parseQueryParam = \case

3074− "ASCENDING" -> Just AUPFLSOAscending

3074+ "ASCENDING" -> Right AUPFLSOAscending

3075− "DESCENDING" -> Just AUPFLSODescending

3075+ "DESCENDING" -> Right AUPFLSODescending

3076− _ -> Nothing

3076+ x -> Left ("Unable to parse AccountUserProFilesListSortOrder from: " <> x)

3077

3078−instance ToText AccountUserProFilesListSortOrder where

3078+instance ToHttpApiData AccountUserProFilesListSortOrder where

3079− toText = \case

3079+ toQueryParam = \case

3080 AUPFLSOAscending -> "ASCENDING"

3081 AUPFLSODescending -> "DESCENDING"

3082

@@ -3114,23 +3114,23 @@ data RemarketingListListSource

3114

3115instance Hashable RemarketingListListSource

3116

3117−instance FromText RemarketingListListSource where

3117+instance FromHttpApiData RemarketingListListSource where

3118− fromText = \case

3118+ parseQueryParam = \case

3119− "REMARKETING_LIST_SOURCE_ADX" -> Just RLLSRemarketingListSourceAdx

3119+ "REMARKETING_LIST_SOURCE_ADX" -> Right RLLSRemarketingListSourceAdx

3120− "REMARKETING_LIST_SOURCE_DBM" -> Just RLLSRemarketingListSourceDBm

3120+ "REMARKETING_LIST_SOURCE_DBM" -> Right RLLSRemarketingListSourceDBm

3121− "REMARKETING_LIST_SOURCE_DFA" -> Just RLLSRemarketingListSourceDfa

3121+ "REMARKETING_LIST_SOURCE_DFA" -> Right RLLSRemarketingListSourceDfa

3122− "REMARKETING_LIST_SOURCE_DFP" -> Just RLLSRemarketingListSourceDfp

3122+ "REMARKETING_LIST_SOURCE_DFP" -> Right RLLSRemarketingListSourceDfp

3123− "REMARKETING_LIST_SOURCE_DMP" -> Just RLLSRemarketingListSourceDmp

3123+ "REMARKETING_LIST_SOURCE_DMP" -> Right RLLSRemarketingListSourceDmp

3124− "REMARKETING_LIST_SOURCE_GA" -> Just RLLSRemarketingListSourceGa

3124+ "REMARKETING_LIST_SOURCE_GA" -> Right RLLSRemarketingListSourceGa

3125− "REMARKETING_LIST_SOURCE_GPLUS" -> Just RLLSRemarketingListSourceGplus

3125+ "REMARKETING_LIST_SOURCE_GPLUS" -> Right RLLSRemarketingListSourceGplus

3126− "REMARKETING_LIST_SOURCE_OTHER" -> Just RLLSRemarketingListSourceOther

3126+ "REMARKETING_LIST_SOURCE_OTHER" -> Right RLLSRemarketingListSourceOther

3127− "REMARKETING_LIST_SOURCE_PLAY_STORE" -> Just RLLSRemarketingListSourcePlayStore

3127+ "REMARKETING_LIST_SOURCE_PLAY_STORE" -> Right RLLSRemarketingListSourcePlayStore

3128− "REMARKETING_LIST_SOURCE_XFP" -> Just RLLSRemarketingListSourceXfp

3128+ "REMARKETING_LIST_SOURCE_XFP" -> Right RLLSRemarketingListSourceXfp

3129− "REMARKETING_LIST_SOURCE_YOUTUBE" -> Just RLLSRemarketingListSourceYouTube

3129+ "REMARKETING_LIST_SOURCE_YOUTUBE" -> Right RLLSRemarketingListSourceYouTube

3130− _ -> Nothing

3130+ x -> Left ("Unable to parse RemarketingListListSource from: " <> x)

3131−

3131+

3132−instance ToText RemarketingListListSource where

3132+instance ToHttpApiData RemarketingListListSource where

3133− toText = \case

3133+ toQueryParam = \case

3134 RLLSRemarketingListSourceAdx -> "REMARKETING_LIST_SOURCE_ADX"

3135 RLLSRemarketingListSourceDBm -> "REMARKETING_LIST_SOURCE_DBM"

3136 RLLSRemarketingListSourceDfa -> "REMARKETING_LIST_SOURCE_DFA"

@@ -3162,15 +3162,15 @@ data AccountUserProFileUserAccessType

3162

3163instance Hashable AccountUserProFileUserAccessType

3164

3165−instance FromText AccountUserProFileUserAccessType where

3165+instance FromHttpApiData AccountUserProFileUserAccessType where

3166− fromText = \case

3166+ parseQueryParam = \case

3167− "INTERNAL_ADMINISTRATOR" -> Just InternalAdministrator

3167+ "INTERNAL_ADMINISTRATOR" -> Right InternalAdministrator

3168− "NORMAL_USER" -> Just NormalUser

3168+ "NORMAL_USER" -> Right NormalUser

3169− "SUPER_USER" -> Just SuperUser

3169+ "SUPER_USER" -> Right SuperUser

3170− _ -> Nothing

3170+ x -> Left ("Unable to parse AccountUserProFileUserAccessType from: " <> x)

3171

3172−instance ToText AccountUserProFileUserAccessType where

3172+instance ToHttpApiData AccountUserProFileUserAccessType where

3173− toText = \case

3173+ toQueryParam = \case

3174 InternalAdministrator -> "INTERNAL_ADMINISTRATOR"

3175 NormalUser -> "NORMAL_USER"

3176 SuperUser -> "SUPER_USER"

@@ -3192,14 +3192,14 @@ data CreativeAssetStartTimeType

3192

3193instance Hashable CreativeAssetStartTimeType

3194

3195−instance FromText CreativeAssetStartTimeType where

3195+instance FromHttpApiData CreativeAssetStartTimeType where

3196− fromText = \case

3196+ parseQueryParam = \case

3197− "ASSET_START_TIME_TYPE_CUSTOM" -> Just AssetStartTimeTypeCustom

3197+ "ASSET_START_TIME_TYPE_CUSTOM" -> Right AssetStartTimeTypeCustom

3198− "ASSET_START_TIME_TYPE_NONE" -> Just AssetStartTimeTypeNone

3198+ "ASSET_START_TIME_TYPE_NONE" -> Right AssetStartTimeTypeNone

3199− _ -> Nothing

3199+ x -> Left ("Unable to parse CreativeAssetStartTimeType from: " <> x)

3200

3201−instance ToText CreativeAssetStartTimeType where

3201+instance ToHttpApiData CreativeAssetStartTimeType where

3202− toText = \case

3202+ toQueryParam = \case

3203 AssetStartTimeTypeCustom -> "ASSET_START_TIME_TYPE_CUSTOM"

3204 AssetStartTimeTypeNone -> "ASSET_START_TIME_TYPE_NONE"

3205

@@ -3219,14 +3219,14 @@ data ProjectAudienceGender

3219

3220instance Hashable ProjectAudienceGender

3221

3222−instance FromText ProjectAudienceGender where

3222+instance FromHttpApiData ProjectAudienceGender where

3223− fromText = \case

3223+ parseQueryParam = \case

3224− "PLANNING_AUDIENCE_GENDER_FEMALE" -> Just PlanningAudienceGenderFemale

3224+ "PLANNING_AUDIENCE_GENDER_FEMALE" -> Right PlanningAudienceGenderFemale

3225− "PLANNING_AUDIENCE_GENDER_MALE" -> Just PlanningAudienceGenderMale

3225+ "PLANNING_AUDIENCE_GENDER_MALE" -> Right PlanningAudienceGenderMale

3226− _ -> Nothing

3226+ x -> Left ("Unable to parse ProjectAudienceGender from: " <> x)

3227

3228−instance ToText ProjectAudienceGender where

3228+instance ToHttpApiData ProjectAudienceGender where

3229− toText = \case

3229+ toQueryParam = \case

3230 PlanningAudienceGenderFemale -> "PLANNING_AUDIENCE_GENDER_FEMALE"

3231 PlanningAudienceGenderMale -> "PLANNING_AUDIENCE_GENDER_MALE"

3232

@@ -3246,14 +3246,14 @@ data PlacementStrategiesListSortField

3246

3247instance Hashable PlacementStrategiesListSortField

3248

3249−instance FromText PlacementStrategiesListSortField where

3249+instance FromHttpApiData PlacementStrategiesListSortField where

3250− fromText = \case

3250+ parseQueryParam = \case

3251− "ID" -> Just PSLSFID

3251+ "ID" -> Right PSLSFID

3252− "NAME" -> Just PSLSFName

3252+ "NAME" -> Right PSLSFName

3253− _ -> Nothing

3253+ x -> Left ("Unable to parse PlacementStrategiesListSortField from: " <> x)

3254

3255−instance ToText PlacementStrategiesListSortField where

3255+instance ToHttpApiData PlacementStrategiesListSortField where

3256− toText = \case

3256+ toQueryParam = \case

3257 PSLSFID -> "ID"

3258 PSLSFName -> "NAME"

3259

@@ -3273,14 +3273,14 @@ data UserDefinedVariableConfigurationDataType

3273

3274instance Hashable UserDefinedVariableConfigurationDataType

3275

3276−instance FromText UserDefinedVariableConfigurationDataType where

3276+instance FromHttpApiData UserDefinedVariableConfigurationDataType where

3277− fromText = \case

3277+ parseQueryParam = \case

3278− "NUMBER" -> Just Number

3278+ "NUMBER" -> Right Number

3279− "STRING" -> Just String

3279+ "STRING" -> Right String

3280− _ -> Nothing

3280+ x -> Left ("Unable to parse UserDefinedVariableConfigurationDataType from: " <> x)

3281

3282−instance ToText UserDefinedVariableConfigurationDataType where

3282+instance ToHttpApiData UserDefinedVariableConfigurationDataType where

3283− toText = \case

3283+ toQueryParam = \case

3284 Number -> "NUMBER"

3285 String -> "STRING"

3286

@@ -3306,17 +3306,17 @@ data FloodlightActivityCacheBustingType

3306

3307instance Hashable FloodlightActivityCacheBustingType

3308

3309−instance FromText FloodlightActivityCacheBustingType where

3309+instance FromHttpApiData FloodlightActivityCacheBustingType where

3310− fromText = \case

3310+ parseQueryParam = \case

3311− "ACTIVE_SERVER_PAGE" -> Just ActiveServerPage

3311+ "ACTIVE_SERVER_PAGE" -> Right ActiveServerPage

3312− "COLD_FUSION" -> Just ColdFusion

3312+ "COLD_FUSION" -> Right ColdFusion

3313− "JAVASCRIPT" -> Just Javascript

3313+ "JAVASCRIPT" -> Right Javascript

3314− "JSP" -> Just Jsp

3314+ "JSP" -> Right Jsp

3315− "PHP" -> Just Php

3315+ "PHP" -> Right Php

3316− _ -> Nothing

3316+ x -> Left ("Unable to parse FloodlightActivityCacheBustingType from: " <> x)

3317−

3317+

3318−instance ToText FloodlightActivityCacheBustingType where

3318+instance ToHttpApiData FloodlightActivityCacheBustingType where

3319− toText = \case

3319+ toQueryParam = \case

3320 ActiveServerPage -> "ACTIVE_SERVER_PAGE"

3321 ColdFusion -> "COLD_FUSION"

3322 Javascript -> "JAVASCRIPT"

@@ -3339,14 +3339,14 @@ data CreativeGroupsListSortOrder

3339

3340instance Hashable CreativeGroupsListSortOrder

3341

3342−instance FromText CreativeGroupsListSortOrder where

3342+instance FromHttpApiData CreativeGroupsListSortOrder where

3343− fromText = \case

3343+ parseQueryParam = \case

3344− "ASCENDING" -> Just CGLSOAscending

3344+ "ASCENDING" -> Right CGLSOAscending

3345− "DESCENDING" -> Just CGLSODescending

3345+ "DESCENDING" -> Right CGLSODescending

3346− _ -> Nothing

3346+ x -> Left ("Unable to parse CreativeGroupsListSortOrder from: " <> x)

3347

3348−instance ToText CreativeGroupsListSortOrder where

3348+instance ToHttpApiData CreativeGroupsListSortOrder where

3349− toText = \case

3349+ toQueryParam = \case

3350 CGLSOAscending -> "ASCENDING"

3351 CGLSODescending -> "DESCENDING"

3352

@@ -3366,14 +3366,14 @@ data OrderDocumentType

3366

3367instance Hashable OrderDocumentType

3368

3369−instance FromText OrderDocumentType where

3369+instance FromHttpApiData OrderDocumentType where

3370− fromText = \case

3370+ parseQueryParam = \case

3371− "PLANNING_ORDER_TYPE_CHANGE_ORDER" -> Just PlanningOrderTypeChangeOrder

3371+ "PLANNING_ORDER_TYPE_CHANGE_ORDER" -> Right PlanningOrderTypeChangeOrder

3372− "PLANNING_ORDER_TYPE_INSERTION_ORDER" -> Just PlanningOrderTypeInsertionOrder

3372+ "PLANNING_ORDER_TYPE_INSERTION_ORDER" -> Right PlanningOrderTypeInsertionOrder

3373− _ -> Nothing

3373+ x -> Left ("Unable to parse OrderDocumentType from: " <> x)

3374

3375−instance ToText OrderDocumentType where

3375+instance ToHttpApiData OrderDocumentType where

3376− toText = \case

3376+ toQueryParam = \case

3377 PlanningOrderTypeChangeOrder -> "PLANNING_ORDER_TYPE_CHANGE_ORDER"

3378 PlanningOrderTypeInsertionOrder -> "PLANNING_ORDER_TYPE_INSERTION_ORDER"

3379

@@ -3425,30 +3425,30 @@ data TagDataFormat

3425

3426instance Hashable TagDataFormat

3427

3428−instance FromText TagDataFormat where

3428+instance FromHttpApiData TagDataFormat where

3429− fromText = \case

3429+ parseQueryParam = \case

3430− "PLACEMENT_TAG_CLICK_COMMANDS" -> Just PlacementTagClickCommands

3430+ "PLACEMENT_TAG_CLICK_COMMANDS" -> Right PlacementTagClickCommands

3431− "PLACEMENT_TAG_IFRAME_ILAYER" -> Just PlacementTagIframeIlayer

3431+ "PLACEMENT_TAG_IFRAME_ILAYER" -> Right PlacementTagIframeIlayer

3432− "PLACEMENT_TAG_IFRAME_JAVASCRIPT" -> Just PlacementTagIframeJavascript

3432+ "PLACEMENT_TAG_IFRAME_JAVASCRIPT" -> Right PlacementTagIframeJavascript

3433− "PLACEMENT_TAG_IFRAME_JAVASCRIPT_LEGACY" -> Just PlacementTagIframeJavascriptLegacy

3433+ "PLACEMENT_TAG_IFRAME_JAVASCRIPT_LEGACY" -> Right PlacementTagIframeJavascriptLegacy

3434− "PLACEMENT_TAG_INSTREAM_VIDEO_PREFETCH" -> Just PlacementTagInstreamVideoPrefetch

3434+ "PLACEMENT_TAG_INSTREAM_VIDEO_PREFETCH" -> Right PlacementTagInstreamVideoPrefetch

3435− "PLACEMENT_TAG_INSTREAM_VIDEO_PREFETCH_VAST_3" -> Just PlacementTagInstreamVideoPrefetchVast3

3435+ "PLACEMENT_TAG_INSTREAM_VIDEO_PREFETCH_VAST_3" -> Right PlacementTagInstreamVideoPrefetchVast3

3436− "PLACEMENT_TAG_INTERNAL_REDIRECT" -> Just PlacementTagInternalRedirect

3436+ "PLACEMENT_TAG_INTERNAL_REDIRECT" -> Right PlacementTagInternalRedirect

3437− "PLACEMENT_TAG_INTERSTITIAL_IFRAME_JAVASCRIPT" -> Just PlacementTagInterstitialIframeJavascript

3437+ "PLACEMENT_TAG_INTERSTITIAL_IFRAME_JAVASCRIPT" -> Right PlacementTagInterstitialIframeJavascript

3438− "PLACEMENT_TAG_INTERSTITIAL_IFRAME_JAVASCRIPT_LEGACY" -> Just PlacementTagInterstitialIframeJavascriptLegacy

3438+ "PLACEMENT_TAG_INTERSTITIAL_IFRAME_JAVASCRIPT_LEGACY" -> Right PlacementTagInterstitialIframeJavascriptLegacy

3439− "PLACEMENT_TAG_INTERSTITIAL_INTERNAL_REDIRECT" -> Just PlacementTagInterstitialInternalRedirect

3439+ "PLACEMENT_TAG_INTERSTITIAL_INTERNAL_REDIRECT" -> Right PlacementTagInterstitialInternalRedirect

3440− "PLACEMENT_TAG_INTERSTITIAL_JAVASCRIPT" -> Just PlacementTagInterstitialJavascript

3440+ "PLACEMENT_TAG_INTERSTITIAL_JAVASCRIPT" -> Right PlacementTagInterstitialJavascript

3441− "PLACEMENT_TAG_INTERSTITIAL_JAVASCRIPT_LEGACY" -> Just PlacementTagInterstitialJavascriptLegacy

3441+ "PLACEMENT_TAG_INTERSTITIAL_JAVASCRIPT_LEGACY" -> Right PlacementTagInterstitialJavascriptLegacy

3442− "PLACEMENT_TAG_JAVASCRIPT" -> Just PlacementTagJavascript

3442+ "PLACEMENT_TAG_JAVASCRIPT" -> Right PlacementTagJavascript

3443− "PLACEMENT_TAG_JAVASCRIPT_LEGACY" -> Just PlacementTagJavascriptLegacy

3443+ "PLACEMENT_TAG_JAVASCRIPT_LEGACY" -> Right PlacementTagJavascriptLegacy

3444− "PLACEMENT_TAG_STANDARD" -> Just PlacementTagStandard

3444+ "PLACEMENT_TAG_STANDARD" -> Right PlacementTagStandard

3445− "PLACEMENT_TAG_TRACKING" -> Just PlacementTagTracking

3445+ "PLACEMENT_TAG_TRACKING" -> Right PlacementTagTracking

3446− "PLACEMENT_TAG_TRACKING_IFRAME" -> Just PlacementTagTrackingIframe

3446+ "PLACEMENT_TAG_TRACKING_IFRAME" -> Right PlacementTagTrackingIframe

3447− "PLACEMENT_TAG_TRACKING_JAVASCRIPT" -> Just PlacementTagTrackingJavascript

3447+ "PLACEMENT_TAG_TRACKING_JAVASCRIPT" -> Right PlacementTagTrackingJavascript

3448− _ -> Nothing

3448+ x -> Left ("Unable to parse TagDataFormat from: " <> x)

3449−

3449+

3450−instance ToText TagDataFormat where

3450+instance ToHttpApiData TagDataFormat where

3451− toText = \case

3451+ toQueryParam = \case

3452 PlacementTagClickCommands -> "PLACEMENT_TAG_CLICK_COMMANDS"

3453 PlacementTagIframeIlayer -> "PLACEMENT_TAG_IFRAME_ILAYER"

3454 PlacementTagIframeJavascript -> "PLACEMENT_TAG_IFRAME_JAVASCRIPT"

@@ -3490,17 +3490,17 @@ data AccountActiveAdSummaryActiveAdsLimitTier

3490

3491instance Hashable AccountActiveAdSummaryActiveAdsLimitTier

3492

3493−instance FromText AccountActiveAdSummaryActiveAdsLimitTier where

3493+instance FromHttpApiData AccountActiveAdSummaryActiveAdsLimitTier where

3494− fromText = \case

3494+ parseQueryParam = \case

3495− "ACTIVE_ADS_TIER_100K" -> Just ActiveAdsTier100K

3495+ "ACTIVE_ADS_TIER_100K" -> Right ActiveAdsTier100K

3496− "ACTIVE_ADS_TIER_200K" -> Just ActiveAdsTier200K

3496+ "ACTIVE_ADS_TIER_200K" -> Right ActiveAdsTier200K

3497− "ACTIVE_ADS_TIER_300K" -> Just ActiveAdsTier300K

3497+ "ACTIVE_ADS_TIER_300K" -> Right ActiveAdsTier300K

3498− "ACTIVE_ADS_TIER_40K" -> Just ActiveAdsTier40K

3498+ "ACTIVE_ADS_TIER_40K" -> Right ActiveAdsTier40K

3499− "ACTIVE_ADS_TIER_75K" -> Just ActiveAdsTier75K

3499+ "ACTIVE_ADS_TIER_75K" -> Right ActiveAdsTier75K

3500− _ -> Nothing

3500+ x -> Left ("Unable to parse AccountActiveAdSummaryActiveAdsLimitTier from: " <> x)

3501−

3501+

3502−instance ToText AccountActiveAdSummaryActiveAdsLimitTier where

3502+instance ToHttpApiData AccountActiveAdSummaryActiveAdsLimitTier where

3503− toText = \case

3503+ toQueryParam = \case

3504 ActiveAdsTier100K -> "ACTIVE_ADS_TIER_100K"

3505 ActiveAdsTier200K -> "ACTIVE_ADS_TIER_200K"

3506 ActiveAdsTier300K -> "ACTIVE_ADS_TIER_300K"

@@ -3528,16 +3528,16 @@ data CreativeAssetChildAssetType

3528

3529instance Hashable CreativeAssetChildAssetType

3530

3531−instance FromText CreativeAssetChildAssetType where

3531+instance FromHttpApiData CreativeAssetChildAssetType where

3532− fromText = \case

3532+ parseQueryParam = \case

3533− "CHILD_ASSET_TYPE_DATA" -> Just ChildAssetTypeData

3533+ "CHILD_ASSET_TYPE_DATA" -> Right ChildAssetTypeData

3534− "CHILD_ASSET_TYPE_FLASH" -> Just ChildAssetTypeFlash

3534+ "CHILD_ASSET_TYPE_FLASH" -> Right ChildAssetTypeFlash

3535− "CHILD_ASSET_TYPE_IMAGE" -> Just ChildAssetTypeImage

3535+ "CHILD_ASSET_TYPE_IMAGE" -> Right ChildAssetTypeImage

3536− "CHILD_ASSET_TYPE_VIDEO" -> Just ChildAssetTypeVideo

3536+ "CHILD_ASSET_TYPE_VIDEO" -> Right ChildAssetTypeVideo

3537− _ -> Nothing

3537+ x -> Left ("Unable to parse CreativeAssetChildAssetType from: " <> x)

3538

3539−instance ToText CreativeAssetChildAssetType where

3539+instance ToHttpApiData CreativeAssetChildAssetType where

3540− toText = \case

3540+ toQueryParam = \case

3541 ChildAssetTypeData -> "CHILD_ASSET_TYPE_DATA"

3542 ChildAssetTypeFlash -> "CHILD_ASSET_TYPE_FLASH"

3543 ChildAssetTypeImage -> "CHILD_ASSET_TYPE_IMAGE"

@@ -3564,14 +3564,14 @@ data PlacementGroupsListPlacementGroupType

3564

3565instance Hashable PlacementGroupsListPlacementGroupType

3566

3567−instance FromText PlacementGroupsListPlacementGroupType where

3567+instance FromHttpApiData PlacementGroupsListPlacementGroupType where

3568− fromText = \case

3568+ parseQueryParam = \case

3569− "PLACEMENT_PACKAGE" -> Just PlacementPackage

3569+ "PLACEMENT_PACKAGE" -> Right PlacementPackage

3570− "PLACEMENT_ROADBLOCK" -> Just PlacementRoadblock

3570+ "PLACEMENT_ROADBLOCK" -> Right PlacementRoadblock

3571− _ -> Nothing

3571+ x -> Left ("Unable to parse PlacementGroupsListPlacementGroupType from: " <> x)

3572

3573−instance ToText PlacementGroupsListPlacementGroupType where

3573+instance ToHttpApiData PlacementGroupsListPlacementGroupType where

3574− toText = \case

3574+ toQueryParam = \case

3575 PlacementPackage -> "PLACEMENT_PACKAGE"

3576 PlacementRoadblock -> "PLACEMENT_ROADBLOCK"

3577

@@ -3595,15 +3595,15 @@ data ObjectFilterStatus

3595

3596instance Hashable ObjectFilterStatus

3597

3598−instance FromText ObjectFilterStatus where

3598+instance FromHttpApiData ObjectFilterStatus where

3599− fromText = \case

3599+ parseQueryParam = \case

3600− "ALL" -> Just OFSAll

3600+ "ALL" -> Right OFSAll

3601− "ASSIGNED" -> Just OFSAssigned

3601+ "ASSIGNED" -> Right OFSAssigned

3602− "NONE" -> Just OFSNone

3602+ "NONE" -> Right OFSNone

3603− _ -> Nothing

3603+ x -> Left ("Unable to parse ObjectFilterStatus from: " <> x)

3604

3605−instance ToText ObjectFilterStatus where

3605+instance ToHttpApiData ObjectFilterStatus where

3606− toText = \case

3606+ toQueryParam = \case

3607 OFSAll -> "ALL"

3608 OFSAssigned -> "ASSIGNED"

3609 OFSNone -> "NONE"

@@ -3624,14 +3624,14 @@ data CampaignCreativeAssociationsListSortOrder

3624

3625instance Hashable CampaignCreativeAssociationsListSortOrder

3626

3627−instance FromText CampaignCreativeAssociationsListSortOrder where

3627+instance FromHttpApiData CampaignCreativeAssociationsListSortOrder where

3628− fromText = \case

3628+ parseQueryParam = \case

3629− "ASCENDING" -> Just CCALSOAscending

3629+ "ASCENDING" -> Right CCALSOAscending

3630− "DESCENDING" -> Just CCALSODescending

3630+ "DESCENDING" -> Right CCALSODescending

3631− _ -> Nothing

3631+ x -> Left ("Unable to parse CampaignCreativeAssociationsListSortOrder from: " <> x)

3632

3633−instance ToText CampaignCreativeAssociationsListSortOrder where

3633+instance ToHttpApiData CampaignCreativeAssociationsListSortOrder where

3634− toText = \case

3634+ toQueryParam = \case

3635 CCALSOAscending -> "ASCENDING"

3636 CCALSODescending -> "DESCENDING"

3637

@@ -3651,14 +3651,14 @@ data FloodlightActivitiesListSortField

3651

3652instance Hashable FloodlightActivitiesListSortField

3653

3654−instance FromText FloodlightActivitiesListSortField where

3654+instance FromHttpApiData FloodlightActivitiesListSortField where

3655− fromText = \case

3655+ parseQueryParam = \case

3656− "ID" -> Just FALSFID

3656+ "ID" -> Right FALSFID

3657− "NAME" -> Just FALSFName

3657+ "NAME" -> Right FALSFName

3658− _ -> Nothing

3658+ x -> Left ("Unable to parse FloodlightActivitiesListSortField from: " <> x)

3659

3660−instance ToText FloodlightActivitiesListSortField where

3660+instance ToHttpApiData FloodlightActivitiesListSortField where

3661− toText = \case

3661+ toQueryParam = \case

3662 FALSFID -> "ID"

3663 FALSFName -> "NAME"

3664

@@ -3722,36 +3722,36 @@ data CreativesListTypes

3722

3723instance Hashable CreativesListTypes

3724

3725−instance FromText CreativesListTypes where

3725+instance FromHttpApiData CreativesListTypes where

3726− fromText = \case

3726+ parseQueryParam = \case

3727− "BRAND_SAFE_DEFAULT_INSTREAM_VIDEO" -> Just BrandSafeDefaultInstreamVideo

3727+ "BRAND_SAFE_DEFAULT_INSTREAM_VIDEO" -> Right BrandSafeDefaultInstreamVideo

3728− "CUSTOM_INPAGE" -> Just CustomInpage

3728+ "CUSTOM_INPAGE" -> Right CustomInpage

3729− "CUSTOM_INTERSTITIAL" -> Just CustomInterstitial

3729+ "CUSTOM_INTERSTITIAL" -> Right CustomInterstitial

3730− "ENHANCED_BANNER" -> Just EnhancedBanner

3730+ "ENHANCED_BANNER" -> Right EnhancedBanner

3731− "ENHANCED_IMAGE" -> Just EnhancedImage

3731+ "ENHANCED_IMAGE" -> Right EnhancedImage

3732− "FLASH_INPAGE" -> Just FlashInpage

3732+ "FLASH_INPAGE" -> Right FlashInpage

3733− "HTML5_BANNER" -> Just HTML5Banner

3733+ "HTML5_BANNER" -> Right HTML5Banner

3734− "IMAGE" -> Just Image

3734+ "IMAGE" -> Right Image

3735− "INSTREAM_VIDEO" -> Just InstreamVideo

3735+ "INSTREAM_VIDEO" -> Right InstreamVideo

3736− "INSTREAM_VIDEO_REDIRECT" -> Just InstreamVideoRedirect

3736+ "INSTREAM_VIDEO_REDIRECT" -> Right InstreamVideoRedirect

3737− "INTERNAL_REDIRECT" -> Just InternalRedirect

3737+ "INTERNAL_REDIRECT" -> Right InternalRedirect

3738− "INTERSTITIAL_INTERNAL_REDIRECT" -> Just InterstitialInternalRedirect

3738+ "INTERSTITIAL_INTERNAL_REDIRECT" -> Right InterstitialInternalRedirect

3739− "REDIRECT" -> Just Redirect

3739+ "REDIRECT" -> Right Redirect

3740− "RICH_MEDIA_EXPANDING" -> Just RichMediaExpanding

3740+ "RICH_MEDIA_EXPANDING" -> Right RichMediaExpanding

3741− "RICH_MEDIA_IM_EXPAND" -> Just RichMediaImExpand

3741+ "RICH_MEDIA_IM_EXPAND" -> Right RichMediaImExpand

3742− "RICH_MEDIA_INPAGE" -> Just RichMediaInpage

3742+ "RICH_MEDIA_INPAGE" -> Right RichMediaInpage

3743− "RICH_MEDIA_INPAGE_FLOATING" -> Just RichMediaInpageFloating

3743+ "RICH_MEDIA_INPAGE_FLOATING" -> Right RichMediaInpageFloating

3744− "RICH_MEDIA_INTERSTITIAL_FLOAT" -> Just RichMediaInterstitialFloat

3744+ "RICH_MEDIA_INTERSTITIAL_FLOAT" -> Right RichMediaInterstitialFloat

3745− "RICH_MEDIA_MOBILE_IN_APP" -> Just RichMediaMobileInApp

3745+ "RICH_MEDIA_MOBILE_IN_APP" -> Right RichMediaMobileInApp

3746− "RICH_MEDIA_MULTI_FLOATING" -> Just RichMediaMultiFloating

3746+ "RICH_MEDIA_MULTI_FLOATING" -> Right RichMediaMultiFloating

3747− "RICH_MEDIA_PEEL_DOWN" -> Just RichMediaPeelDown

3747+ "RICH_MEDIA_PEEL_DOWN" -> Right RichMediaPeelDown

3748− "TRACKING_TEXT" -> Just TrackingText

3748+ "TRACKING_TEXT" -> Right TrackingText

3749− "VPAID_LINEAR" -> Just VpaidLinear

3749+ "VPAID_LINEAR" -> Right VpaidLinear

3750− "VPAID_NON_LINEAR" -> Just VpaidNonLinear

3750+ "VPAID_NON_LINEAR" -> Right VpaidNonLinear

3751− _ -> Nothing

3751+ x -> Left ("Unable to parse CreativesListTypes from: " <> x)

3752−

3752+

3753−instance ToText CreativesListTypes where

3753+instance ToHttpApiData CreativesListTypes where

3754− toText = \case

3754+ toQueryParam = \case

3755 BrandSafeDefaultInstreamVideo -> "BRAND_SAFE_DEFAULT_INSTREAM_VIDEO"

3756 CustomInpage -> "CUSTOM_INPAGE"

3757 CustomInterstitial -> "CUSTOM_INTERSTITIAL"

@@ -3796,16 +3796,16 @@ data DirectorySiteInpageTagFormatsItem

3796

3797instance Hashable DirectorySiteInpageTagFormatsItem

3798

3799−instance FromText DirectorySiteInpageTagFormatsItem where

3799+instance FromHttpApiData DirectorySiteInpageTagFormatsItem where

3800− fromText = \case

3800+ parseQueryParam = \case

3801− "IFRAME_JAVASCRIPT_INPAGE" -> Just IframeJavascriptInpage

3801+ "IFRAME_JAVASCRIPT_INPAGE" -> Right IframeJavascriptInpage

3802− "INTERNAL_REDIRECT_INPAGE" -> Just InternalRedirectInpage

3802+ "INTERNAL_REDIRECT_INPAGE" -> Right InternalRedirectInpage

3803− "JAVASCRIPT_INPAGE" -> Just JavascriptInpage

3803+ "JAVASCRIPT_INPAGE" -> Right JavascriptInpage

3804− "STANDARD" -> Just Standard

3804+ "STANDARD" -> Right Standard

3805− _ -> Nothing

3805+ x -> Left ("Unable to parse DirectorySiteInpageTagFormatsItem from: " <> x)

3806

3807−instance ToText DirectorySiteInpageTagFormatsItem where

3807+instance ToHttpApiData DirectorySiteInpageTagFormatsItem where

3808− toText = \case

3808+ toQueryParam = \case

3809 IframeJavascriptInpage -> "IFRAME_JAVASCRIPT_INPAGE"

3810 InternalRedirectInpage -> "INTERNAL_REDIRECT_INPAGE"

3811 JavascriptInpage -> "JAVASCRIPT_INPAGE"

@@ -3831,15 +3831,15 @@ data CreativeAssetWindowMode

3831

3832instance Hashable CreativeAssetWindowMode

3833

3834−instance FromText CreativeAssetWindowMode where

3834+instance FromHttpApiData CreativeAssetWindowMode where

3835− fromText = \case

3835+ parseQueryParam = \case

3836− "OPAQUE" -> Just Opaque

3836+ "OPAQUE" -> Right Opaque

3837− "TRANSPARENT" -> Just Transparent

3837+ "TRANSPARENT" -> Right Transparent

3838− "WINDOW" -> Just Window

3838+ "WINDOW" -> Right Window

3839− _ -> Nothing

3839+ x -> Left ("Unable to parse CreativeAssetWindowMode from: " <> x)

3840

3841−instance ToText CreativeAssetWindowMode where

3841+instance ToHttpApiData CreativeAssetWindowMode where

3842− toText = \case

3842+ toQueryParam = \case

3843 Opaque -> "OPAQUE"

3844 Transparent -> "TRANSPARENT"

3845 Window -> "WINDOW"

@@ -3865,16 +3865,16 @@ data CreativeAssetAlignment

3865

3866instance Hashable CreativeAssetAlignment

3867

3868−instance FromText CreativeAssetAlignment where

3868+instance FromHttpApiData CreativeAssetAlignment where

3869− fromText = \case

3869+ parseQueryParam = \case

3870− "ALIGNMENT_BOTTOM" -> Just AlignmentBottom

3870+ "ALIGNMENT_BOTTOM" -> Right AlignmentBottom

3871− "ALIGNMENT_LEFT" -> Just AlignmentLeft

3871+ "ALIGNMENT_LEFT" -> Right AlignmentLeft

3872− "ALIGNMENT_RIGHT" -> Just AlignmentRight

3872+ "ALIGNMENT_RIGHT" -> Right AlignmentRight

3873− "ALIGNMENT_TOP" -> Just AlignmentTop

3873+ "ALIGNMENT_TOP" -> Right AlignmentTop

3874− _ -> Nothing

3874+ x -> Left ("Unable to parse CreativeAssetAlignment from: " <> x)

3875

3876−instance ToText CreativeAssetAlignment where

3876+instance ToHttpApiData CreativeAssetAlignment where

3877− toText = \case

3877+ toQueryParam = \case

3878 AlignmentBottom -> "ALIGNMENT_BOTTOM"

3879 AlignmentLeft -> "ALIGNMENT_LEFT"

3880 AlignmentRight -> "ALIGNMENT_RIGHT"

@@ -3896,14 +3896,14 @@ data RemarketingListsListSortOrder

3896

3897instance Hashable RemarketingListsListSortOrder

3898

3899−instance FromText RemarketingListsListSortOrder where

3899+instance FromHttpApiData RemarketingListsListSortOrder where

3900− fromText = \case

3900+ parseQueryParam = \case

3901− "ASCENDING" -> Just RLLSOAscending

3901+ "ASCENDING" -> Right RLLSOAscending

3902− "DESCENDING" -> Just RLLSODescending

3902+ "DESCENDING" -> Right RLLSODescending

3903− _ -> Nothing

3903+ x -> Left ("Unable to parse RemarketingListsListSortOrder from: " <> x)

3904

3905−instance ToText RemarketingListsListSortOrder where

3905+instance ToHttpApiData RemarketingListsListSortOrder where

3906− toText = \case

3906+ toQueryParam = \case

3907 RLLSOAscending -> "ASCENDING"

3908 RLLSODescending -> "DESCENDING"

3909

@@ -3929,17 +3929,17 @@ data PlacementGroupsListPricingTypes

3929

3930instance Hashable PlacementGroupsListPricingTypes

3931

3932−instance FromText PlacementGroupsListPricingTypes where

3932+instance FromHttpApiData PlacementGroupsListPricingTypes where

3933− fromText = \case

3933+ parseQueryParam = \case

3934− "PRICING_TYPE_CPA" -> Just PGLPTPricingTypeCpa

3934+ "PRICING_TYPE_CPA" -> Right PGLPTPricingTypeCpa

3935− "PRICING_TYPE_CPC" -> Just PGLPTPricingTypeCpc

3935+ "PRICING_TYPE_CPC" -> Right PGLPTPricingTypeCpc

3936− "PRICING_TYPE_CPM" -> Just PGLPTPricingTypeCpm

3936+ "PRICING_TYPE_CPM" -> Right PGLPTPricingTypeCpm

3937− "PRICING_TYPE_FLAT_RATE_CLICKS" -> Just PGLPTPricingTypeFlatRateClicks

3937+ "PRICING_TYPE_FLAT_RATE_CLICKS" -> Right PGLPTPricingTypeFlatRateClicks

3938− "PRICING_TYPE_FLAT_RATE_IMPRESSIONS" -> Just PGLPTPricingTypeFlatRateImpressions

3938+ "PRICING_TYPE_FLAT_RATE_IMPRESSIONS" -> Right PGLPTPricingTypeFlatRateImpressions

3939− _ -> Nothing

3939+ x -> Left ("Unable to parse PlacementGroupsListPricingTypes from: " <> x)

3940−

3940+

3941−instance ToText PlacementGroupsListPricingTypes where

3941+instance ToHttpApiData PlacementGroupsListPricingTypes where

3942− toText = \case

3942+ toQueryParam = \case

3943 PGLPTPricingTypeCpa -> "PRICING_TYPE_CPA"

3944 PGLPTPricingTypeCpc -> "PRICING_TYPE_CPC"

3945 PGLPTPricingTypeCpm -> "PRICING_TYPE_CPM"

@@ -3968,17 +3968,17 @@ data AccountActiveAdsLimitTier

3968

3969instance Hashable AccountActiveAdsLimitTier

3970

3971−instance FromText AccountActiveAdsLimitTier where

3971+instance FromHttpApiData AccountActiveAdsLimitTier where

3972− fromText = \case

3972+ parseQueryParam = \case

3973− "ACTIVE_ADS_TIER_100K" -> Just AAALTActiveAdsTier100K

3973+ "ACTIVE_ADS_TIER_100K" -> Right AAALTActiveAdsTier100K

3974− "ACTIVE_ADS_TIER_200K" -> Just AAALTActiveAdsTier200K

3974+ "ACTIVE_ADS_TIER_200K" -> Right AAALTActiveAdsTier200K

3975− "ACTIVE_ADS_TIER_300K" -> Just AAALTActiveAdsTier300K

3975+ "ACTIVE_ADS_TIER_300K" -> Right AAALTActiveAdsTier300K

3976− "ACTIVE_ADS_TIER_40K" -> Just AAALTActiveAdsTier40K

3976+ "ACTIVE_ADS_TIER_40K" -> Right AAALTActiveAdsTier40K

3977− "ACTIVE_ADS_TIER_75K" -> Just AAALTActiveAdsTier75K

3977+ "ACTIVE_ADS_TIER_75K" -> Right AAALTActiveAdsTier75K

3978− _ -> Nothing

3978+ x -> Left ("Unable to parse AccountActiveAdsLimitTier from: " <> x)

3979−

3979+

3980−instance ToText AccountActiveAdsLimitTier where

3980+instance ToHttpApiData AccountActiveAdsLimitTier where

3981− toText = \case

3981+ toQueryParam = \case

3982 AAALTActiveAdsTier100K -> "ACTIVE_ADS_TIER_100K"

3983 AAALTActiveAdsTier200K -> "ACTIVE_ADS_TIER_200K"

3984 AAALTActiveAdsTier300K -> "ACTIVE_ADS_TIER_300K"

@@ -4001,14 +4001,14 @@ data AccountsListSortOrder

4001

4002instance Hashable AccountsListSortOrder

4003

4004−instance FromText AccountsListSortOrder where

4004+instance FromHttpApiData AccountsListSortOrder where

4005− fromText = \case

4005+ parseQueryParam = \case

4006− "ASCENDING" -> Just AAscending

4006+ "ASCENDING" -> Right AAscending

4007− "DESCENDING" -> Just ADescending

4007+ "DESCENDING" -> Right ADescending

4008− _ -> Nothing

4008+ x -> Left ("Unable to parse AccountsListSortOrder from: " <> x)

4009

4010−instance ToText AccountsListSortOrder where

4010+instance ToHttpApiData AccountsListSortOrder where

4011− toText = \case

4011+ toQueryParam = \case

4012 AAscending -> "ASCENDING"

4013 ADescending -> "DESCENDING"

4014

@@ -4028,14 +4028,14 @@ data SubAccountsListSortField

4028

4029instance Hashable SubAccountsListSortField

4030

4031−instance FromText SubAccountsListSortField where

4031+instance FromHttpApiData SubAccountsListSortField where

4032− fromText = \case

4032+ parseQueryParam = \case

4033− "ID" -> Just SALSFID

4033+ "ID" -> Right SALSFID

4034− "NAME" -> Just SALSFName

4034+ "NAME" -> Right SALSFName

4035− _ -> Nothing

4035+ x -> Left ("Unable to parse SubAccountsListSortField from: " <> x)

4036

4037−instance ToText SubAccountsListSortField where

4037+instance ToHttpApiData SubAccountsListSortField where

4038− toText = \case

4038+ toQueryParam = \case

4039 SALSFID -> "ID"

4040 SALSFName -> "NAME"

4041

@@ -4055,14 +4055,14 @@ data AdsListSortField

4055

4056instance Hashable AdsListSortField

4057

4058−instance FromText AdsListSortField where

4058+instance FromHttpApiData AdsListSortField where

4059− fromText = \case

4059+ parseQueryParam = \case

4060− "ID" -> Just ALSFID

4060+ "ID" -> Right ALSFID

4061− "NAME" -> Just ALSFName

4061+ "NAME" -> Right ALSFName

4062− _ -> Nothing

4062+ x -> Left ("Unable to parse AdsListSortField from: " <> x)

4063

4064−instance ToText AdsListSortField where

4064+instance ToHttpApiData AdsListSortField where

4065− toText = \case

4065+ toQueryParam = \case

4066 ALSFID -> "ID"

4067 ALSFName -> "NAME"

4068

@@ -4082,14 +4082,14 @@ data ProjectsListSortField

4082

4083instance Hashable ProjectsListSortField

4084

4085−instance FromText ProjectsListSortField where

4085+instance FromHttpApiData ProjectsListSortField where

4086− fromText = \case

4086+ parseQueryParam = \case

4087− "ID" -> Just PID

4087+ "ID" -> Right PID

4088− "NAME" -> Just PName

4088+ "NAME" -> Right PName

4089− _ -> Nothing

4089+ x -> Left ("Unable to parse ProjectsListSortField from: " <> x)

4090

4091−instance ToText ProjectsListSortField where

4091+instance ToHttpApiData ProjectsListSortField where

4092− toText = \case

4092+ toQueryParam = \case

4093 PID -> "ID"

4094 PName -> "NAME"

4095

@@ -4113,16 +4113,16 @@ data AdsListType

4113

4114instance Hashable AdsListType

4115

4116−instance FromText AdsListType where

4116+instance FromHttpApiData AdsListType where

4117− fromText = \case

4117+ parseQueryParam = \case

4118− "AD_SERVING_CLICK_TRACKER" -> Just AdServingClickTracker

4118+ "AD_SERVING_CLICK_TRACKER" -> Right AdServingClickTracker

4119− "AD_SERVING_DEFAULT_AD" -> Just AdServingDefaultAd

4119+ "AD_SERVING_DEFAULT_AD" -> Right AdServingDefaultAd

4120− "AD_SERVING_STANDARD_AD" -> Just AdServingStandardAd

4120+ "AD_SERVING_STANDARD_AD" -> Right AdServingStandardAd

4121− "AD_SERVING_TRACKING" -> Just AdServingTracking

4121+ "AD_SERVING_TRACKING" -> Right AdServingTracking

4122− _ -> Nothing

4122+ x -> Left ("Unable to parse AdsListType from: " <> x)

4123

4124−instance ToText AdsListType where

4124+instance ToHttpApiData AdsListType where

4125− toText = \case

4125+ toQueryParam = \case

4126 AdServingClickTracker -> "AD_SERVING_CLICK_TRACKER"

4127 AdServingDefaultAd -> "AD_SERVING_DEFAULT_AD"

4128 AdServingStandardAd -> "AD_SERVING_STANDARD_AD"

@@ -4150,17 +4150,17 @@ data CreativeOptimizationConfigurationOptimizationModel

4150

4151instance Hashable CreativeOptimizationConfigurationOptimizationModel

4152

4153−instance FromText CreativeOptimizationConfigurationOptimizationModel where

4153+instance FromHttpApiData CreativeOptimizationConfigurationOptimizationModel where

4154− fromText = \case

4154+ parseQueryParam = \case

4155− "CLICK" -> Just Click

4155+ "CLICK" -> Right Click

4156− "POST_CLICK" -> Just PostClick

4156+ "POST_CLICK" -> Right PostClick

4157− "POST_CLICK_AND_IMPRESSION" -> Just PostClickAndImpression

4157+ "POST_CLICK_AND_IMPRESSION" -> Right PostClickAndImpression

4158− "POST_IMPRESSION" -> Just PostImpression

4158+ "POST_IMPRESSION" -> Right PostImpression

4159− "VIDEO_COMPLETION" -> Just VideoCompletion

4159+ "VIDEO_COMPLETION" -> Right VideoCompletion

4160− _ -> Nothing

4160+ x -> Left ("Unable to parse CreativeOptimizationConfigurationOptimizationModel from: " <> x)

4161−

4161+

4162−instance ToText CreativeOptimizationConfigurationOptimizationModel where

4162+instance ToHttpApiData CreativeOptimizationConfigurationOptimizationModel where

4163− toText = \case

4163+ toQueryParam = \case

4164 Click -> "CLICK"

4165 PostClick -> "POST_CLICK"

4166 PostClickAndImpression -> "POST_CLICK_AND_IMPRESSION"

@@ -4183,14 +4183,14 @@ data AccountPermissionLevel

4183

4184instance Hashable AccountPermissionLevel

4185

4186−instance FromText AccountPermissionLevel where

4186+instance FromHttpApiData AccountPermissionLevel where

4187− fromText = \case

4187+ parseQueryParam = \case

4188− "ADMINISTRATOR" -> Just Administrator

4188+ "ADMINISTRATOR" -> Right Administrator

4189− "USER" -> Just User

4189+ "USER" -> Right User

4190− _ -> Nothing

4190+ x -> Left ("Unable to parse AccountPermissionLevel from: " <> x)

4191

4192−instance ToText AccountPermissionLevel where

4192+instance ToHttpApiData AccountPermissionLevel where

4193− toText = \case

4193+ toQueryParam = \case

4194 Administrator -> "ADMINISTRATOR"

4195 User -> "USER"

4196

@@ -4217,15 +4217,15 @@ data ListPopulationTermType

4217

4218instance Hashable ListPopulationTermType

4219

4220−instance FromText ListPopulationTermType where

4220+instance FromHttpApiData ListPopulationTermType where

4221− fromText = \case

4221+ parseQueryParam = \case

4222− "CUSTOM_VARIABLE_TERM" -> Just CustomVariableTerm

4222+ "CUSTOM_VARIABLE_TERM" -> Right CustomVariableTerm

4223− "LIST_MEMBERSHIP_TERM" -> Just ListMembershipTerm

4223+ "LIST_MEMBERSHIP_TERM" -> Right ListMembershipTerm

4224− "REFERRER_TERM" -> Just ReferrerTerm

4224+ "REFERRER_TERM" -> Right ReferrerTerm

4225− _ -> Nothing

4225+ x -> Left ("Unable to parse ListPopulationTermType from: " <> x)

4226

4227−instance ToText ListPopulationTermType where

4227+instance ToHttpApiData ListPopulationTermType where

4228− toText = \case

4228+ toQueryParam = \case

4229 CustomVariableTerm -> "CUSTOM_VARIABLE_TERM"

4230 ListMembershipTerm -> "LIST_MEMBERSHIP_TERM"

4231 ReferrerTerm -> "REFERRER_TERM"

@@ -4246,14 +4246,14 @@ data AdvertiserGroupsListSortOrder

4246

4247instance Hashable AdvertiserGroupsListSortOrder

4248

4249−instance FromText AdvertiserGroupsListSortOrder where

4249+instance FromHttpApiData AdvertiserGroupsListSortOrder where

4250− fromText = \case

4250+ parseQueryParam = \case

4251− "ASCENDING" -> Just AGLSOAscending

4251+ "ASCENDING" -> Right AGLSOAscending

4252− "DESCENDING" -> Just AGLSODescending

4252+ "DESCENDING" -> Right AGLSODescending

4253− _ -> Nothing

4253+ x -> Left ("Unable to parse AdvertiserGroupsListSortOrder from: " <> x)

4254

4255−instance ToText AdvertiserGroupsListSortOrder where

4255+instance ToHttpApiData AdvertiserGroupsListSortOrder where

4256− toText = \case

4256+ toQueryParam = \case

4257 AGLSOAscending -> "ASCENDING"

4258 AGLSODescending -> "DESCENDING"

4259

@@ -4273,14 +4273,14 @@ data CreativeFieldValuesListSortOrder

4273

4274instance Hashable CreativeFieldValuesListSortOrder

4275

4276−instance FromText CreativeFieldValuesListSortOrder where

4276+instance FromHttpApiData CreativeFieldValuesListSortOrder where

4277− fromText = \case

4277+ parseQueryParam = \case

4278− "ASCENDING" -> Just CFVLSOAscending

4278+ "ASCENDING" -> Right CFVLSOAscending

4279− "DESCENDING" -> Just CFVLSODescending

4279+ "DESCENDING" -> Right CFVLSODescending

4280− _ -> Nothing

4280+ x -> Left ("Unable to parse CreativeFieldValuesListSortOrder from: " <> x)

4281

4282−instance ToText CreativeFieldValuesListSortOrder where

4282+instance ToHttpApiData CreativeFieldValuesListSortOrder where

4283− toText = \case

4283+ toQueryParam = \case

4284 CFVLSOAscending -> "ASCENDING"

4285 CFVLSODescending -> "DESCENDING"

4286

@@ -4300,14 +4300,14 @@ data SortedDimensionSortOrder

4300

4301instance Hashable SortedDimensionSortOrder

4302

4303−instance FromText SortedDimensionSortOrder where

4303+instance FromHttpApiData SortedDimensionSortOrder where

4304− fromText = \case

4304+ parseQueryParam = \case

4305− "ASCENDING" -> Just SDSOAscending

4305+ "ASCENDING" -> Right SDSOAscending

4306− "DESCENDING" -> Just SDSODescending

4306+ "DESCENDING" -> Right SDSODescending

4307− _ -> Nothing

4307+ x -> Left ("Unable to parse SortedDimensionSortOrder from: " <> x)

4308

4309−instance ToText SortedDimensionSortOrder where

4309+instance ToHttpApiData SortedDimensionSortOrder where

4310− toText = \case

4310+ toQueryParam = \case

4311 SDSOAscending -> "ASCENDING"

4312 SDSODescending -> "DESCENDING"

4313

@@ -4329,14 +4329,14 @@ data FilesListSortField

4329

4330instance Hashable FilesListSortField

4331

4332−instance FromText FilesListSortField where

4332+instance FromHttpApiData FilesListSortField where

4333− fromText = \case

4333+ parseQueryParam = \case

4334− "ID" -> Just FLSFID

4334+ "ID" -> Right FLSFID

4335− "LAST_MODIFIED_TIME" -> Just FLSFLastModifiedTime

4335+ "LAST_MODIFIED_TIME" -> Right FLSFLastModifiedTime

4336− _ -> Nothing

4336+ x -> Left ("Unable to parse FilesListSortField from: " <> x)

4337

4338−instance ToText FilesListSortField where

4338+instance ToHttpApiData FilesListSortField where

4339− toText = \case

4339+ toQueryParam = \case

4340 FLSFID -> "ID"

4341 FLSFLastModifiedTime -> "LAST_MODIFIED_TIME"

4342

@@ -4357,15 +4357,15 @@ data DirectorySiteInterstitialTagFormatsItem

4357

4358instance Hashable DirectorySiteInterstitialTagFormatsItem

4359

4360−instance FromText DirectorySiteInterstitialTagFormatsItem where

4360+instance FromHttpApiData DirectorySiteInterstitialTagFormatsItem where

4361− fromText = \case

4361+ parseQueryParam = \case

4362− "IFRAME_JAVASCRIPT_INTERSTITIAL" -> Just IframeJavascriptInterstitial

4362+ "IFRAME_JAVASCRIPT_INTERSTITIAL" -> Right IframeJavascriptInterstitial

4363− "INTERNAL_REDIRECT_INTERSTITIAL" -> Just InternalRedirectInterstitial

4363+ "INTERNAL_REDIRECT_INTERSTITIAL" -> Right InternalRedirectInterstitial

4364− "JAVASCRIPT_INTERSTITIAL" -> Just JavascriptInterstitial

4364+ "JAVASCRIPT_INTERSTITIAL" -> Right JavascriptInterstitial

4365− _ -> Nothing

4365+ x -> Left ("Unable to parse DirectorySiteInterstitialTagFormatsItem from: " <> x)

4366

4367−instance ToText DirectorySiteInterstitialTagFormatsItem where

4367+instance ToHttpApiData DirectorySiteInterstitialTagFormatsItem where

4368− toText = \case

4368+ toQueryParam = \case

4369 IframeJavascriptInterstitial -> "IFRAME_JAVASCRIPT_INTERSTITIAL"

4370 InternalRedirectInterstitial -> "INTERNAL_REDIRECT_INTERSTITIAL"

4371 JavascriptInterstitial -> "JAVASCRIPT_INTERSTITIAL"

@@ -4386,14 +4386,14 @@ data EventTagsListSortField

4386

4387instance Hashable EventTagsListSortField

4388

4389−instance FromText EventTagsListSortField where

4389+instance FromHttpApiData EventTagsListSortField where

4390− fromText = \case

4390+ parseQueryParam = \case

4391− "ID" -> Just ETLSFID

4391+ "ID" -> Right ETLSFID

4392− "NAME" -> Just ETLSFName

4392+ "NAME" -> Right ETLSFName

4393− _ -> Nothing

4393+ x -> Left ("Unable to parse EventTagsListSortField from: " <> x)

4394

4395−instance ToText EventTagsListSortField where

4395+instance ToHttpApiData EventTagsListSortField where

4396− toText = \case

4396+ toQueryParam = \case

4397 ETLSFID -> "ID"

4398 ETLSFName -> "NAME"

4399

@@ -4413,14 +4413,14 @@ data InventoryItemType

4413

4414instance Hashable InventoryItemType

4415

4416−instance FromText InventoryItemType where

4416+instance FromHttpApiData InventoryItemType where

4417− fromText = \case

4417+ parseQueryParam = \case

4418− "PLANNING_PLACEMENT_TYPE_CREDIT" -> Just IITPlanningPlacementTypeCredit

4418+ "PLANNING_PLACEMENT_TYPE_CREDIT" -> Right IITPlanningPlacementTypeCredit

4419− "PLANNING_PLACEMENT_TYPE_REGULAR" -> Just IITPlanningPlacementTypeRegular

4419+ "PLANNING_PLACEMENT_TYPE_REGULAR" -> Right IITPlanningPlacementTypeRegular

4420− _ -> Nothing

4420+ x -> Left ("Unable to parse InventoryItemType from: " <> x)

4421

4422−instance ToText InventoryItemType where

4422+instance ToHttpApiData InventoryItemType where

4423− toText = \case

4423+ toQueryParam = \case

4424 IITPlanningPlacementTypeCredit -> "PLANNING_PLACEMENT_TYPE_CREDIT"

4425 IITPlanningPlacementTypeRegular -> "PLANNING_PLACEMENT_TYPE_REGULAR"

4426

@@ -4444,15 +4444,15 @@ data CreativeAssetPositionTopUnit

4444

4445instance Hashable CreativeAssetPositionTopUnit

4446

4447−instance FromText CreativeAssetPositionTopUnit where

4447+instance FromHttpApiData CreativeAssetPositionTopUnit where

4448− fromText = \case

4448+ parseQueryParam = \case

4449− "OFFSET_UNIT_PERCENT" -> Just CAPTUOffSetUnitPercent

4449+ "OFFSET_UNIT_PERCENT" -> Right CAPTUOffSetUnitPercent

4450− "OFFSET_UNIT_PIXEL" -> Just CAPTUOffSetUnitPixel

4450+ "OFFSET_UNIT_PIXEL" -> Right CAPTUOffSetUnitPixel

4451− "OFFSET_UNIT_PIXEL_FROM_CENTER" -> Just CAPTUOffSetUnitPixelFromCenter

4451+ "OFFSET_UNIT_PIXEL_FROM_CENTER" -> Right CAPTUOffSetUnitPixelFromCenter

4452− _ -> Nothing

4452+ x -> Left ("Unable to parse CreativeAssetPositionTopUnit from: " <> x)

4453

4454−instance ToText CreativeAssetPositionTopUnit where

4454+instance ToHttpApiData CreativeAssetPositionTopUnit where

4455− toText = \case

4455+ toQueryParam = \case

4456 CAPTUOffSetUnitPercent -> "OFFSET_UNIT_PERCENT"

4457 CAPTUOffSetUnitPixel -> "OFFSET_UNIT_PIXEL"

4458 CAPTUOffSetUnitPixelFromCenter -> "OFFSET_UNIT_PIXEL_FROM_CENTER"

@@ -4474,14 +4474,14 @@ data FloodlightActivityFloodlightActivityGroupType

4474

4475instance Hashable FloodlightActivityFloodlightActivityGroupType

4476

4477−instance FromText FloodlightActivityFloodlightActivityGroupType where

4477+instance FromHttpApiData FloodlightActivityFloodlightActivityGroupType where

4478− fromText = \case

4478+ parseQueryParam = \case

4479− "COUNTER" -> Just FAFAGTCounter

4479+ "COUNTER" -> Right FAFAGTCounter

4480− "SALE" -> Just FAFAGTSale

4480+ "SALE" -> Right FAFAGTSale

4481− _ -> Nothing

4481+ x -> Left ("Unable to parse FloodlightActivityFloodlightActivityGroupType from: " <> x)

4482

4483−instance ToText FloodlightActivityFloodlightActivityGroupType where

4483+instance ToHttpApiData FloodlightActivityFloodlightActivityGroupType where

4484− toText = \case

4484+ toQueryParam = \case

4485 FAFAGTCounter -> "COUNTER"

4486 FAFAGTSale -> "SALE"

4487

@@ -4501,14 +4501,14 @@ data DirectorySiteContactsListSortOrder

4501

4502instance Hashable DirectorySiteContactsListSortOrder

4503

4504−instance FromText DirectorySiteContactsListSortOrder where

4504+instance FromHttpApiData DirectorySiteContactsListSortOrder where

4505− fromText = \case

4505+ parseQueryParam = \case

4506− "ASCENDING" -> Just DSCLSOAscending

4506+ "ASCENDING" -> Right DSCLSOAscending

4507− "DESCENDING" -> Just DSCLSODescending

4507+ "DESCENDING" -> Right DSCLSODescending

4508− _ -> Nothing

4508+ x -> Left ("Unable to parse DirectorySiteContactsListSortOrder from: " <> x)

4509

4510−instance ToText DirectorySiteContactsListSortOrder where

4510+instance ToHttpApiData DirectorySiteContactsListSortOrder where

4511− toText = \case

4511+ toQueryParam = \case

4512 DSCLSOAscending -> "ASCENDING"

4513 DSCLSODescending -> "DESCENDING"

4514

@@ -4535,14 +4535,14 @@ data PricingGroupType

4535

4536instance Hashable PricingGroupType

4537

4538−instance FromText PricingGroupType where

4538+instance FromHttpApiData PricingGroupType where

4539− fromText = \case

4539+ parseQueryParam = \case

4540− "PLANNING_PLACEMENT_GROUP_TYPE_PACKAGE" -> Just PlanningPlacementGroupTypePackage

4540+ "PLANNING_PLACEMENT_GROUP_TYPE_PACKAGE" -> Right PlanningPlacementGroupTypePackage

4541− "PLANNING_PLACEMENT_GROUP_TYPE_ROADBLOCK" -> Just PlanningPlacementGroupTypeRoadblock

4541+ "PLANNING_PLACEMENT_GROUP_TYPE_ROADBLOCK" -> Right PlanningPlacementGroupTypeRoadblock

4542− _ -> Nothing

4542+ x -> Left ("Unable to parse PricingGroupType from: " <> x)

4543

4544−instance ToText PricingGroupType where

4544+instance ToHttpApiData PricingGroupType where

4545− toText = \case

4545+ toQueryParam = \case

4546 PlanningPlacementGroupTypePackage -> "PLANNING_PLACEMENT_GROUP_TYPE_PACKAGE"

4547 PlanningPlacementGroupTypeRoadblock -> "PLANNING_PLACEMENT_GROUP_TYPE_ROADBLOCK"

4548

@@ -4606,36 +4606,36 @@ data AdsListCreativeType

4606

4607instance Hashable AdsListCreativeType

4608

4609−instance FromText AdsListCreativeType where

4609+instance FromHttpApiData AdsListCreativeType where

4610− fromText = \case

4610+ parseQueryParam = \case

4611− "BRAND_SAFE_DEFAULT_INSTREAM_VIDEO" -> Just ALCTBrandSafeDefaultInstreamVideo

4611+ "BRAND_SAFE_DEFAULT_INSTREAM_VIDEO" -> Right ALCTBrandSafeDefaultInstreamVideo

4612− "CUSTOM_INPAGE" -> Just ALCTCustomInpage

4612+ "CUSTOM_INPAGE" -> Right ALCTCustomInpage

4613− "CUSTOM_INTERSTITIAL" -> Just ALCTCustomInterstitial

4613+ "CUSTOM_INTERSTITIAL" -> Right ALCTCustomInterstitial

4614− "ENHANCED_BANNER" -> Just ALCTEnhancedBanner

4614+ "ENHANCED_BANNER" -> Right ALCTEnhancedBanner

4615− "ENHANCED_IMAGE" -> Just ALCTEnhancedImage

4615+ "ENHANCED_IMAGE" -> Right ALCTEnhancedImage

4616− "FLASH_INPAGE" -> Just ALCTFlashInpage

4616+ "FLASH_INPAGE" -> Right ALCTFlashInpage

4617− "HTML5_BANNER" -> Just ALCTHTML5Banner

4617+ "HTML5_BANNER" -> Right ALCTHTML5Banner

4618− "IMAGE" -> Just ALCTImage

4618+ "IMAGE" -> Right ALCTImage

4619− "INSTREAM_VIDEO" -> Just ALCTInstreamVideo

4619+ "INSTREAM_VIDEO" -> Right ALCTInstreamVideo

4620− "INSTREAM_VIDEO_REDIRECT" -> Just ALCTInstreamVideoRedirect

4620+ "INSTREAM_VIDEO_REDIRECT" -> Right ALCTInstreamVideoRedirect

4621− "INTERNAL_REDIRECT" -> Just ALCTInternalRedirect

4621+ "INTERNAL_REDIRECT" -> Right ALCTInternalRedirect

4622− "INTERSTITIAL_INTERNAL_REDIRECT" -> Just ALCTInterstitialInternalRedirect

4622+ "INTERSTITIAL_INTERNAL_REDIRECT" -> Right ALCTInterstitialInternalRedirect

4623− "REDIRECT" -> Just ALCTRedirect

4623+ "REDIRECT" -> Right ALCTRedirect

4624− "RICH_MEDIA_EXPANDING" -> Just ALCTRichMediaExpanding

4624+ "RICH_MEDIA_EXPANDING" -> Right ALCTRichMediaExpanding

4625− "RICH_MEDIA_IM_EXPAND" -> Just ALCTRichMediaImExpand

4625+ "RICH_MEDIA_IM_EXPAND" -> Right ALCTRichMediaImExpand

4626− "RICH_MEDIA_INPAGE" -> Just ALCTRichMediaInpage

4626+ "RICH_MEDIA_INPAGE" -> Right ALCTRichMediaInpage

4627− "RICH_MEDIA_INPAGE_FLOATING" -> Just ALCTRichMediaInpageFloating

4627+ "RICH_MEDIA_INPAGE_FLOATING" -> Right ALCTRichMediaInpageFloating

4628− "RICH_MEDIA_INTERSTITIAL_FLOAT" -> Just ALCTRichMediaInterstitialFloat

4628+ "RICH_MEDIA_INTERSTITIAL_FLOAT" -> Right ALCTRichMediaInterstitialFloat

4629− "RICH_MEDIA_MOBILE_IN_APP" -> Just ALCTRichMediaMobileInApp

4629+ "RICH_MEDIA_MOBILE_IN_APP" -> Right ALCTRichMediaMobileInApp

4630− "RICH_MEDIA_MULTI_FLOATING" -> Just ALCTRichMediaMultiFloating

4630+ "RICH_MEDIA_MULTI_FLOATING" -> Right ALCTRichMediaMultiFloating

4631− "RICH_MEDIA_PEEL_DOWN" -> Just ALCTRichMediaPeelDown

4631+ "RICH_MEDIA_PEEL_DOWN" -> Right ALCTRichMediaPeelDown

4632− "TRACKING_TEXT" -> Just ALCTTrackingText

4632+ "TRACKING_TEXT" -> Right ALCTTrackingText

4633− "VPAID_LINEAR" -> Just ALCTVpaidLinear

4633+ "VPAID_LINEAR" -> Right ALCTVpaidLinear

4634− "VPAID_NON_LINEAR" -> Just ALCTVpaidNonLinear

4634+ "VPAID_NON_LINEAR" -> Right ALCTVpaidNonLinear

4635− _ -> Nothing

4635+ x -> Left ("Unable to parse AdsListCreativeType from: " <> x)

4636−

4636+

4637−instance ToText AdsListCreativeType where

4637+instance ToHttpApiData AdsListCreativeType where

4638− toText = \case

4638+ toQueryParam = \case

4639 ALCTBrandSafeDefaultInstreamVideo -> "BRAND_SAFE_DEFAULT_INSTREAM_VIDEO"

4640 ALCTCustomInpage -> "CUSTOM_INPAGE"

4641 ALCTCustomInterstitial -> "CUSTOM_INTERSTITIAL"

@@ -4677,14 +4677,14 @@ data FloodlightActivityGroupsListSortOrder

4677

4678instance Hashable FloodlightActivityGroupsListSortOrder

4679

4680−instance FromText FloodlightActivityGroupsListSortOrder where

4680+instance FromHttpApiData FloodlightActivityGroupsListSortOrder where

4681− fromText = \case

4681+ parseQueryParam = \case

4682− "ASCENDING" -> Just FAGLSOAscending

4682+ "ASCENDING" -> Right FAGLSOAscending

4683− "DESCENDING" -> Just FAGLSODescending

4683+ "DESCENDING" -> Right FAGLSODescending

4684− _ -> Nothing

4684+ x -> Left ("Unable to parse FloodlightActivityGroupsListSortOrder from: " <> x)

4685

4686−instance ToText FloodlightActivityGroupsListSortOrder where

4686+instance ToHttpApiData FloodlightActivityGroupsListSortOrder where

4687− toText = \case

4687+ toQueryParam = \case

4688 FAGLSOAscending -> "ASCENDING"

4689 FAGLSODescending -> "DESCENDING"

4690

@@ -4705,14 +4705,14 @@ data CreativeRotationType

4705

4706instance Hashable CreativeRotationType

4707

4708−instance FromText CreativeRotationType where

4708+instance FromHttpApiData CreativeRotationType where

4709− fromText = \case

4709+ parseQueryParam = \case

4710− "CREATIVE_ROTATION_TYPE_RANDOM" -> Just CreativeRotationTypeRandom

4710+ "CREATIVE_ROTATION_TYPE_RANDOM" -> Right CreativeRotationTypeRandom

4711− "CREATIVE_ROTATION_TYPE_SEQUENTIAL" -> Just CreativeRotationTypeSequential

4711+ "CREATIVE_ROTATION_TYPE_SEQUENTIAL" -> Right CreativeRotationTypeSequential

4712− _ -> Nothing

4712+ x -> Left ("Unable to parse CreativeRotationType from: " <> x)

4713

4714−instance ToText CreativeRotationType where

4714+instance ToHttpApiData CreativeRotationType where

4715− toText = \case

4715+ toQueryParam = \case

4716 CreativeRotationTypeRandom -> "CREATIVE_ROTATION_TYPE_RANDOM"

4717 CreativeRotationTypeSequential -> "CREATIVE_ROTATION_TYPE_SEQUENTIAL"

4718

@@ -4732,14 +4732,14 @@ data OrdersListSortField

4732

4733instance Hashable OrdersListSortField

4734

4735−instance FromText OrdersListSortField where

4735+instance FromHttpApiData OrdersListSortField where

4736− fromText = \case

4736+ parseQueryParam = \case

4737− "ID" -> Just OLSFID

4737+ "ID" -> Right OLSFID

4738− "NAME" -> Just OLSFName

4738+ "NAME" -> Right OLSFName

4739− _ -> Nothing

4739+ x -> Left ("Unable to parse OrdersListSortField from: " <> x)

4740

4741−instance ToText OrdersListSortField where

4741+instance ToHttpApiData OrdersListSortField where

4742− toText = \case

4742+ toQueryParam = \case

4743 OLSFID -> "ID"

4744 OLSFName -> "NAME"

4745

@@ -4759,14 +4759,14 @@ data PlacementGroupsListSortField

4759

4760instance Hashable PlacementGroupsListSortField

4761

4762−instance FromText PlacementGroupsListSortField where

4762+instance FromHttpApiData PlacementGroupsListSortField where

4763− fromText = \case

4763+ parseQueryParam = \case

4764− "ID" -> Just PGLSFID

4764+ "ID" -> Right PGLSFID

4765− "NAME" -> Just PGLSFName

4765+ "NAME" -> Right PGLSFName

4766− _ -> Nothing

4766+ x -> Left ("Unable to parse PlacementGroupsListSortField from: " <> x)

4767

4768−instance ToText PlacementGroupsListSortField where

4768+instance ToHttpApiData PlacementGroupsListSortField where

4769− toText = \case

4769+ toQueryParam = \case

4770 PGLSFID -> "ID"

4771 PGLSFName -> "NAME"

4772

@@ -4786,14 +4786,14 @@ data DirectorySitesListSortOrder

4786

4787instance Hashable DirectorySitesListSortOrder

4788

4789−instance FromText DirectorySitesListSortOrder where

4789+instance FromHttpApiData DirectorySitesListSortOrder where

4790− fromText = \case

4790+ parseQueryParam = \case

4791− "ASCENDING" -> Just DSLSOAscending

4791+ "ASCENDING" -> Right DSLSOAscending

4792− "DESCENDING" -> Just DSLSODescending

4792+ "DESCENDING" -> Right DSLSODescending

4793− _ -> Nothing

4793+ x -> Left ("Unable to parse DirectorySitesListSortOrder from: " <> x)

4794

4795−instance ToText DirectorySitesListSortOrder where

4795+instance ToHttpApiData DirectorySitesListSortOrder where

4796− toText = \case

4796+ toQueryParam = \case

4797 DSLSOAscending -> "ASCENDING"

4798 DSLSODescending -> "DESCENDING"

4799

@@ -4940,78 +4940,78 @@ data CreativeAssetDetectedFeaturesItem

4940

4941instance Hashable CreativeAssetDetectedFeaturesItem

4942

4943−instance FromText CreativeAssetDetectedFeaturesItem where

4943+instance FromHttpApiData CreativeAssetDetectedFeaturesItem where

4944− fromText = \case

4944+ parseQueryParam = \case

4945− "APPLICATION_CACHE" -> Just CADFIApplicationCache

4945+ "APPLICATION_CACHE" -> Right CADFIApplicationCache

4946− "AUDIO" -> Just CADFIAudio

4946+ "AUDIO" -> Right CADFIAudio

4947− "CANVAS" -> Just CADFICanvas

4947+ "CANVAS" -> Right CADFICanvas

4948− "CANVAS_TEXT" -> Just CADFICanvasText

4948+ "CANVAS_TEXT" -> Right CADFICanvasText

4949− "CSS_ANIMATIONS" -> Just CADFICssAnimations

4949+ "CSS_ANIMATIONS" -> Right CADFICssAnimations

4950− "CSS_BACKGROUND_SIZE" -> Just CADFICssBackgRoundSize

4950+ "CSS_BACKGROUND_SIZE" -> Right CADFICssBackgRoundSize

4951− "CSS_BORDER_IMAGE" -> Just CADFICssBOrderImage

4951+ "CSS_BORDER_IMAGE" -> Right CADFICssBOrderImage

4952− "CSS_BORDER_RADIUS" -> Just CADFICssBOrderRadius

4952+ "CSS_BORDER_RADIUS" -> Right CADFICssBOrderRadius

4953− "CSS_BOX_SHADOW" -> Just CADFICssBoxShadow

4953+ "CSS_BOX_SHADOW" -> Right CADFICssBoxShadow

4954− "CSS_COLUMNS" -> Just CADFICssColumns

4954+ "CSS_COLUMNS" -> Right CADFICssColumns

4955− "CSS_FLEX_BOX" -> Just CADFICssFlexBox

4955+ "CSS_FLEX_BOX" -> Right CADFICssFlexBox

4956− "CSS_FONT_FACE" -> Just CADFICssFontFace

4956+ "CSS_FONT_FACE" -> Right CADFICssFontFace

4957− "CSS_GENERATED_CONTENT" -> Just CADFICssGeneratedContent

4957+ "CSS_GENERATED_CONTENT" -> Right CADFICssGeneratedContent

4958− "CSS_GRADIENTS" -> Just CADFICssGradients

4958+ "CSS_GRADIENTS" -> Right CADFICssGradients

4959− "CSS_HSLA" -> Just CADFICssHsla

4959+ "CSS_HSLA" -> Right CADFICssHsla

4960− "CSS_MULTIPLE_BGS" -> Just CADFICssMultipleBgs

4960+ "CSS_MULTIPLE_BGS" -> Right CADFICssMultipleBgs

4961− "CSS_OPACITY" -> Just CADFICssOpacity

4961+ "CSS_OPACITY" -> Right CADFICssOpacity

4962− "CSS_REFLECTIONS" -> Just CADFICssReflections

4962+ "CSS_REFLECTIONS" -> Right CADFICssReflections

4963− "CSS_RGBA" -> Just CADFICssRgba

4963+ "CSS_RGBA" -> Right CADFICssRgba

4964− "CSS_TEXT_SHADOW" -> Just CADFICssTextShadow

4964+ "CSS_TEXT_SHADOW" -> Right CADFICssTextShadow

4965− "CSS_TRANSFORMS" -> Just CADFICssTransforms

4965+ "CSS_TRANSFORMS" -> Right CADFICssTransforms

4966− "CSS_TRANSFORMS3D" -> Just CADFICssTRANSFORMS3D

4966+ "CSS_TRANSFORMS3D" -> Right CADFICssTRANSFORMS3D

4967− "CSS_TRANSITIONS" -> Just CADFICssTransitions

4967+ "CSS_TRANSITIONS" -> Right CADFICssTransitions

4968− "DRAG_AND_DROP" -> Just CADFIDragAndDrop

4968+ "DRAG_AND_DROP" -> Right CADFIDragAndDrop

4969− "GEO_LOCATION" -> Just CADFIGeoLocation

4969+ "GEO_LOCATION" -> Right CADFIGeoLocation

4970− "HASH_CHANGE" -> Just CADFIHashChange

4970+ "HASH_CHANGE" -> Right CADFIHashChange

4971− "HISTORY" -> Just CADFIHistory

4971+ "HISTORY" -> Right CADFIHistory

4972− "INDEXED_DB" -> Just CADFIIndexedDB

4972+ "INDEXED_DB" -> Right CADFIIndexedDB

4973− "INLINE_SVG" -> Just CADFIInlineSvg

4973+ "INLINE_SVG" -> Right CADFIInlineSvg

4974− "INPUT_ATTR_AUTOCOMPLETE" -> Just CADFIInputAttrAutocomplete

4974+ "INPUT_ATTR_AUTOCOMPLETE" -> Right CADFIInputAttrAutocomplete

4975− "INPUT_ATTR_AUTOFOCUS" -> Just CADFIInputAttrAutofocus

4975+ "INPUT_ATTR_AUTOFOCUS" -> Right CADFIInputAttrAutofocus

4976− "INPUT_ATTR_LIST" -> Just CADFIInputAttrList

4976+ "INPUT_ATTR_LIST" -> Right CADFIInputAttrList

4977− "INPUT_ATTR_MAX" -> Just CADFIInputAttrMax

4977+ "INPUT_ATTR_MAX" -> Right CADFIInputAttrMax

4978− "INPUT_ATTR_MIN" -> Just CADFIInputAttrMin

4978+ "INPUT_ATTR_MIN" -> Right CADFIInputAttrMin

4979− "INPUT_ATTR_MULTIPLE" -> Just CADFIInputAttrMultiple

4979+ "INPUT_ATTR_MULTIPLE" -> Right CADFIInputAttrMultiple

4980− "INPUT_ATTR_PATTERN" -> Just CADFIInputAttrPattern

4980+ "INPUT_ATTR_PATTERN" -> Right CADFIInputAttrPattern

4981− "INPUT_ATTR_PLACEHOLDER" -> Just CADFIInputAttrPlaceholder

4981+ "INPUT_ATTR_PLACEHOLDER" -> Right CADFIInputAttrPlaceholder

4982− "INPUT_ATTR_REQUIRED" -> Just CADFIInputAttrRequired

4982+ "INPUT_ATTR_REQUIRED" -> Right CADFIInputAttrRequired

4983− "INPUT_ATTR_STEP" -> Just CADFIInputAttrStep

4983+ "INPUT_ATTR_STEP" -> Right CADFIInputAttrStep

4984− "INPUT_TYPE_COLOR" -> Just CADFIInputTypeColor

4984+ "INPUT_TYPE_COLOR" -> Right CADFIInputTypeColor

4985− "INPUT_TYPE_DATE" -> Just CADFIInputTypeDate

4985+ "INPUT_TYPE_DATE" -> Right CADFIInputTypeDate

4986− "INPUT_TYPE_DATETIME" -> Just CADFIInputTypeDatetime

4986+ "INPUT_TYPE_DATETIME" -> Right CADFIInputTypeDatetime

4987− "INPUT_TYPE_DATETIME_LOCAL" -> Just CADFIInputTypeDatetimeLocal

4987+ "INPUT_TYPE_DATETIME_LOCAL" -> Right CADFIInputTypeDatetimeLocal

4988− "INPUT_TYPE_EMAIL" -> Just CADFIInputTypeEmail

4988+ "INPUT_TYPE_EMAIL" -> Right CADFIInputTypeEmail

4989− "INPUT_TYPE_MONTH" -> Just CADFIInputTypeMonth

4989+ "INPUT_TYPE_MONTH" -> Right CADFIInputTypeMonth

4990− "INPUT_TYPE_NUMBER" -> Just CADFIInputTypeNumber

4990+ "INPUT_TYPE_NUMBER" -> Right CADFIInputTypeNumber

4991− "INPUT_TYPE_RANGE" -> Just CADFIInputTypeRange

4991+ "INPUT_TYPE_RANGE" -> Right CADFIInputTypeRange

4992− "INPUT_TYPE_SEARCH" -> Just CADFIInputTypeSearch

4992+ "INPUT_TYPE_SEARCH" -> Right CADFIInputTypeSearch

4993− "INPUT_TYPE_TEL" -> Just CADFIInputTypeTel

4993+ "INPUT_TYPE_TEL" -> Right CADFIInputTypeTel

4994− "INPUT_TYPE_TIME" -> Just CADFIInputTypeTime

4994+ "INPUT_TYPE_TIME" -> Right CADFIInputTypeTime

4995− "INPUT_TYPE_URL" -> Just CADFIInputTypeURL

4995+ "INPUT_TYPE_URL" -> Right CADFIInputTypeURL

4996− "INPUT_TYPE_WEEK" -> Just CADFIInputTypeWeek

4996+ "INPUT_TYPE_WEEK" -> Right CADFIInputTypeWeek

4997− "LOCAL_STORAGE" -> Just CADFILocalStorage

4997+ "LOCAL_STORAGE" -> Right CADFILocalStorage

4998− "POST_MESSAGE" -> Just CADFIPostMessage

4998+ "POST_MESSAGE" -> Right CADFIPostMessage

4999− "SESSION_STORAGE" -> Just CADFISessionStorage

4999+ "SESSION_STORAGE" -> Right CADFISessionStorage

5000− "SMIL" -> Just CADFISmil

5000+ "SMIL" -> Right CADFISmil

5001− "SVG_CLIP_PATHS" -> Just CADFISvgClipPaths

5001+ "SVG_CLIP_PATHS" -> Right CADFISvgClipPaths

5002− "SVG_FE_IMAGE" -> Just CADFISvgFeImage

5002+ "SVG_FE_IMAGE" -> Right CADFISvgFeImage

5003− "SVG_FILTERS" -> Just CADFISvgFilters

5003+ "SVG_FILTERS" -> Right CADFISvgFilters

5004− "SVG_HREF" -> Just CADFISvgHref

5004+ "SVG_HREF" -> Right CADFISvgHref

5005− "TOUCH" -> Just CADFITouch

5005+ "TOUCH" -> Right CADFITouch

5006− "VIDEO" -> Just CADFIVideo

5006+ "VIDEO" -> Right CADFIVideo

5007− "WEBGL" -> Just CADFIWebgl

5007+ "WEBGL" -> Right CADFIWebgl

5008− "WEB_SOCKETS" -> Just CADFIWebSockets

5008+ "WEB_SOCKETS" -> Right CADFIWebSockets

5009− "WEB_SQL_DATABASE" -> Just CADFIWebSQLDatabase

5009+ "WEB_SQL_DATABASE" -> Right CADFIWebSQLDatabase

5010− "WEB_WORKERS" -> Just CADFIWebWorkers

5010+ "WEB_WORKERS" -> Right CADFIWebWorkers

5011− _ -> Nothing

5011+ x -> Left ("Unable to parse CreativeAssetDetectedFeaturesItem from: " <> x)

5012−

5012+

5013−instance ToText CreativeAssetDetectedFeaturesItem where

5013+instance ToHttpApiData CreativeAssetDetectedFeaturesItem where

5014− toText = \case

5014+ toQueryParam = \case

5015 CADFIApplicationCache -> "APPLICATION_CACHE"

5016 CADFIAudio -> "AUDIO"

5017 CADFICanvas -> "CANVAS"

@@ -5096,14 +5096,14 @@ data FloodlightActivityGroupType

5096

5097instance Hashable FloodlightActivityGroupType

5098

5099−instance FromText FloodlightActivityGroupType where

5099+instance FromHttpApiData FloodlightActivityGroupType where

5100− fromText = \case

5100+ parseQueryParam = \case

5101− "COUNTER" -> Just FAGTCounter

5101+ "COUNTER" -> Right FAGTCounter

5102− "SALE" -> Just FAGTSale

5102+ "SALE" -> Right FAGTSale

5103− _ -> Nothing

5103+ x -> Left ("Unable to parse FloodlightActivityGroupType from: " <> x)

5104

5105−instance ToText FloodlightActivityGroupType where

5105+instance ToHttpApiData FloodlightActivityGroupType where

5106− toText = \case

5106+ toQueryParam = \case

5107 FAGTCounter -> "COUNTER"

5108 FAGTSale -> "SALE"

5109

@@ -5127,16 +5127,16 @@ data DirectorySiteContactType

5127

5128instance Hashable DirectorySiteContactType

5129

5130−instance FromText DirectorySiteContactType where

5130+instance FromHttpApiData DirectorySiteContactType where

5131− fromText = \case

5131+ parseQueryParam = \case

5132− "BILLING" -> Just DSCTBilling

5132+ "BILLING" -> Right DSCTBilling

5133− "OTHER" -> Just DSCTOther

5133+ "OTHER" -> Right DSCTOther

5134− "SALES" -> Just DSCTSales

5134+ "SALES" -> Right DSCTSales

5135− "TECHNICAL" -> Just DSCTTechnical

5135+ "TECHNICAL" -> Right DSCTTechnical

5136− _ -> Nothing

5136+ x -> Left ("Unable to parse DirectorySiteContactType from: " <> x)

5137

5138−instance ToText DirectorySiteContactType where

5138+instance ToHttpApiData DirectorySiteContactType where

5139− toText = \case

5139+ toQueryParam = \case

5140 DSCTBilling -> "BILLING"

5141 DSCTOther -> "OTHER"

5142 DSCTSales -> "SALES"

@@ -5190,30 +5190,30 @@ data PlacementsGeneratetagsTagFormats

5190

5191instance Hashable PlacementsGeneratetagsTagFormats

5192

5193−instance FromText PlacementsGeneratetagsTagFormats where

5193+instance FromHttpApiData PlacementsGeneratetagsTagFormats where

5194− fromText = \case

5194+ parseQueryParam = \case

5195− "PLACEMENT_TAG_CLICK_COMMANDS" -> Just PGTFPlacementTagClickCommands

5195+ "PLACEMENT_TAG_CLICK_COMMANDS" -> Right PGTFPlacementTagClickCommands

5196− "PLACEMENT_TAG_IFRAME_ILAYER" -> Just PGTFPlacementTagIframeIlayer

5196+ "PLACEMENT_TAG_IFRAME_ILAYER" -> Right PGTFPlacementTagIframeIlayer

5197− "PLACEMENT_TAG_IFRAME_JAVASCRIPT" -> Just PGTFPlacementTagIframeJavascript

5197+ "PLACEMENT_TAG_IFRAME_JAVASCRIPT" -> Right PGTFPlacementTagIframeJavascript

5198− "PLACEMENT_TAG_IFRAME_JAVASCRIPT_LEGACY" -> Just PGTFPlacementTagIframeJavascriptLegacy

5198+ "PLACEMENT_TAG_IFRAME_JAVASCRIPT_LEGACY" -> Right PGTFPlacementTagIframeJavascriptLegacy

5199− "PLACEMENT_TAG_INSTREAM_VIDEO_PREFETCH" -> Just PGTFPlacementTagInstreamVideoPrefetch

5199+ "PLACEMENT_TAG_INSTREAM_VIDEO_PREFETCH" -> Right PGTFPlacementTagInstreamVideoPrefetch

5200− "PLACEMENT_TAG_INSTREAM_VIDEO_PREFETCH_VAST_3" -> Just PGTFPlacementTagInstreamVideoPrefetchVast3

5200+ "PLACEMENT_TAG_INSTREAM_VIDEO_PREFETCH_VAST_3" -> Right PGTFPlacementTagInstreamVideoPrefetchVast3

5201− "PLACEMENT_TAG_INTERNAL_REDIRECT" -> Just PGTFPlacementTagInternalRedirect

5201+ "PLACEMENT_TAG_INTERNAL_REDIRECT" -> Right PGTFPlacementTagInternalRedirect

5202− "PLACEMENT_TAG_INTERSTITIAL_IFRAME_JAVASCRIPT" -> Just PGTFPlacementTagInterstitialIframeJavascript

5202+ "PLACEMENT_TAG_INTERSTITIAL_IFRAME_JAVASCRIPT" -> Right PGTFPlacementTagInterstitialIframeJavascript

5203− "PLACEMENT_TAG_INTERSTITIAL_IFRAME_JAVASCRIPT_LEGACY" -> Just PGTFPlacementTagInterstitialIframeJavascriptLegacy

5203+ "PLACEMENT_TAG_INTERSTITIAL_IFRAME_JAVASCRIPT_LEGACY" -> Right PGTFPlacementTagInterstitialIframeJavascriptLegacy

5204− "PLACEMENT_TAG_INTERSTITIAL_INTERNAL_REDIRECT" -> Just PGTFPlacementTagInterstitialInternalRedirect

5204+ "PLACEMENT_TAG_INTERSTITIAL_INTERNAL_REDIRECT" -> Right PGTFPlacementTagInterstitialInternalRedirect

5205− "PLACEMENT_TAG_INTERSTITIAL_JAVASCRIPT" -> Just PGTFPlacementTagInterstitialJavascript

5205+ "PLACEMENT_TAG_INTERSTITIAL_JAVASCRIPT" -> Right PGTFPlacementTagInterstitialJavascript

5206− "PLACEMENT_TAG_INTERSTITIAL_JAVASCRIPT_LEGACY" -> Just PGTFPlacementTagInterstitialJavascriptLegacy

5206+ "PLACEMENT_TAG_INTERSTITIAL_JAVASCRIPT_LEGACY" -> Right PGTFPlacementTagInterstitialJavascriptLegacy

5207− "PLACEMENT_TAG_JAVASCRIPT" -> Just PGTFPlacementTagJavascript

5207+ "PLACEMENT_TAG_JAVASCRIPT" -> Right PGTFPlacementTagJavascript

5208− "PLACEMENT_TAG_JAVASCRIPT_LEGACY" -> Just PGTFPlacementTagJavascriptLegacy

5208+ "PLACEMENT_TAG_JAVASCRIPT_LEGACY" -> Right PGTFPlacementTagJavascriptLegacy

5209− "PLACEMENT_TAG_STANDARD" -> Just PGTFPlacementTagStandard

5209+ "PLACEMENT_TAG_STANDARD" -> Right PGTFPlacementTagStandard

5210− "PLACEMENT_TAG_TRACKING" -> Just PGTFPlacementTagTracking

5210+ "PLACEMENT_TAG_TRACKING" -> Right PGTFPlacementTagTracking

5211− "PLACEMENT_TAG_TRACKING_IFRAME" -> Just PGTFPlacementTagTrackingIframe

5211+ "PLACEMENT_TAG_TRACKING_IFRAME" -> Right PGTFPlacementTagTrackingIframe

5212− "PLACEMENT_TAG_TRACKING_JAVASCRIPT" -> Just PGTFPlacementTagTrackingJavascript

5212+ "PLACEMENT_TAG_TRACKING_JAVASCRIPT" -> Right PGTFPlacementTagTrackingJavascript

5213− _ -> Nothing

5213+ x -> Left ("Unable to parse PlacementsGeneratetagsTagFormats from: " <> x)

5214−

5214+

5215−instance ToText PlacementsGeneratetagsTagFormats where

5215+instance ToHttpApiData PlacementsGeneratetagsTagFormats where

5216− toText = \case

5216+ toQueryParam = \case

5217 PGTFPlacementTagClickCommands -> "PLACEMENT_TAG_CLICK_COMMANDS"

5218 PGTFPlacementTagIframeIlayer -> "PLACEMENT_TAG_IFRAME_ILAYER"

5219 PGTFPlacementTagIframeJavascript -> "PLACEMENT_TAG_IFRAME_JAVASCRIPT"

@@ -5249,14 +5249,14 @@ data AccountUserProFilesListSortField

5249

5250instance Hashable AccountUserProFilesListSortField

5251

5252−instance FromText AccountUserProFilesListSortField where

5252+instance FromHttpApiData AccountUserProFilesListSortField where

5253− fromText = \case

5253+ parseQueryParam = \case

5254− "ID" -> Just AUPFLSFID

5254+ "ID" -> Right AUPFLSFID

5255− "NAME" -> Just AUPFLSFName

5255+ "NAME" -> Right AUPFLSFName

5256− _ -> Nothing

5256+ x -> Left ("Unable to parse AccountUserProFilesListSortField from: " <> x)

5257

5258−instance ToText AccountUserProFilesListSortField where

5258+instance ToHttpApiData AccountUserProFilesListSortField where

5259− toText = \case

5259+ toQueryParam = \case

5260 AUPFLSFID -> "ID"

5261 AUPFLSFName -> "NAME"

5262

@@ -5276,14 +5276,14 @@ data InventoryItemsListSortOrder

5276

5277instance Hashable InventoryItemsListSortOrder

5278

5279−instance FromText InventoryItemsListSortOrder where

5279+instance FromHttpApiData InventoryItemsListSortOrder where

5280− fromText = \case

5280+ parseQueryParam = \case

5281− "ASCENDING" -> Just IILSOAscending

5281+ "ASCENDING" -> Right IILSOAscending

5282− "DESCENDING" -> Just IILSODescending

5282+ "DESCENDING" -> Right IILSODescending

5283− _ -> Nothing

5283+ x -> Left ("Unable to parse InventoryItemsListSortOrder from: " <> x)

5284

5285−instance ToText InventoryItemsListSortOrder where

5285+instance ToHttpApiData InventoryItemsListSortOrder where

5286− toText = \case

5286+ toQueryParam = \case

5287 IILSOAscending -> "ASCENDING"

5288 IILSODescending -> "DESCENDING"

5289

@@ -5303,14 +5303,14 @@ data PlacementStrategiesListSortOrder

5303

5304instance Hashable PlacementStrategiesListSortOrder

5305

5306−instance FromText PlacementStrategiesListSortOrder where

5306+instance FromHttpApiData PlacementStrategiesListSortOrder where

5307− fromText = \case

5307+ parseQueryParam = \case

5308− "ASCENDING" -> Just PSLSOAscending

5308+ "ASCENDING" -> Right PSLSOAscending

5309− "DESCENDING" -> Just PSLSODescending

5309+ "DESCENDING" -> Right PSLSODescending

5310− _ -> Nothing

5310+ x -> Left ("Unable to parse PlacementStrategiesListSortOrder from: " <> x)

5311

5312−instance ToText PlacementStrategiesListSortOrder where

5312+instance ToHttpApiData PlacementStrategiesListSortOrder where

5313− toText = \case

5313+ toQueryParam = \case

5314 PSLSOAscending -> "ASCENDING"

5315 PSLSODescending -> "DESCENDING"

5316

@@ -5332,14 +5332,14 @@ data ReportsFilesListSortField

5332

5333instance Hashable ReportsFilesListSortField

5334

5335−instance FromText ReportsFilesListSortField where

5335+instance FromHttpApiData ReportsFilesListSortField where

5336− fromText = \case

5336+ parseQueryParam = \case

5337− "ID" -> Just RFLSFID

5337+ "ID" -> Right RFLSFID

5338− "LAST_MODIFIED_TIME" -> Just RFLSFLastModifiedTime

5338+ "LAST_MODIFIED_TIME" -> Right RFLSFLastModifiedTime

5339− _ -> Nothing

5339+ x -> Left ("Unable to parse ReportsFilesListSortField from: " <> x)

5340

5341−instance ToText ReportsFilesListSortField where

5341+instance ToHttpApiData ReportsFilesListSortField where

5342− toText = \case

5342+ toQueryParam = \case

5343 RFLSFID -> "ID"

5344 RFLSFLastModifiedTime -> "LAST_MODIFIED_TIME"

5345

@@ -5359,14 +5359,14 @@ data CreativesListSortField

5359

5360instance Hashable CreativesListSortField

5361

5362−instance FromText CreativesListSortField where

5362+instance FromHttpApiData CreativesListSortField where

5363− fromText = \case

5363+ parseQueryParam = \case

5364− "ID" -> Just CID

5364+ "ID" -> Right CID

5365− "NAME" -> Just CName

5365+ "NAME" -> Right CName

5366− _ -> Nothing

5366+ x -> Left ("Unable to parse CreativesListSortField from: " <> x)

5367

5368−instance ToText CreativesListSortField where

5368+instance ToHttpApiData CreativesListSortField where

5369− toText = \case

5369+ toQueryParam = \case

5370 CID -> "ID"

5371 CName -> "NAME"

5372

@@ -5395,19 +5395,19 @@ data DayPartTargetingDaysOfWeekItem

5395

5396instance Hashable DayPartTargetingDaysOfWeekItem

5397

5398−instance FromText DayPartTargetingDaysOfWeekItem where

5398+instance FromHttpApiData DayPartTargetingDaysOfWeekItem where

5399− fromText = \case

5399+ parseQueryParam = \case

5400− "FRIDAY" -> Just DPTDOWIFriday

5400+ "FRIDAY" -> Right DPTDOWIFriday

5401− "MONDAY" -> Just DPTDOWIMonday

5401+ "MONDAY" -> Right DPTDOWIMonday

5402− "SATURDAY" -> Just DPTDOWISaturday

5402+ "SATURDAY" -> Right DPTDOWISaturday

5403− "SUNDAY" -> Just DPTDOWISunday

5403+ "SUNDAY" -> Right DPTDOWISunday

5404− "THURSDAY" -> Just DPTDOWIThursday

5404+ "THURSDAY" -> Right DPTDOWIThursday

5405− "TUESDAY" -> Just DPTDOWITuesday

5405+ "TUESDAY" -> Right DPTDOWITuesday

5406− "WEDNESDAY" -> Just DPTDOWIWednesday

5406+ "WEDNESDAY" -> Right DPTDOWIWednesday

5407− _ -> Nothing

5407+ x -> Left ("Unable to parse DayPartTargetingDaysOfWeekItem from: " <> x)

5408−

5408+

5409−instance ToText DayPartTargetingDaysOfWeekItem where

5409+instance ToHttpApiData DayPartTargetingDaysOfWeekItem where

5410− toText = \case

5410+ toQueryParam = \case

5411 DPTDOWIFriday -> "FRIDAY"

5412 DPTDOWIMonday -> "MONDAY"

5413 DPTDOWISaturday -> "SATURDAY"

@@ -5437,16 +5437,16 @@ data CreativeRotationWeightCalculationStrategy

5437

5438instance Hashable CreativeRotationWeightCalculationStrategy

5439

5440−instance FromText CreativeRotationWeightCalculationStrategy where

5440+instance FromHttpApiData CreativeRotationWeightCalculationStrategy where

5441− fromText = \case

5441+ parseQueryParam = \case

5442− "WEIGHT_STRATEGY_CUSTOM" -> Just WeightStrategyCustom

5442+ "WEIGHT_STRATEGY_CUSTOM" -> Right WeightStrategyCustom

5443− "WEIGHT_STRATEGY_EQUAL" -> Just WeightStrategyEqual

5443+ "WEIGHT_STRATEGY_EQUAL" -> Right WeightStrategyEqual

5444− "WEIGHT_STRATEGY_HIGHEST_CTR" -> Just WeightStrategyHighestCtr

5444+ "WEIGHT_STRATEGY_HIGHEST_CTR" -> Right WeightStrategyHighestCtr

5445− "WEIGHT_STRATEGY_OPTIMIZED" -> Just WeightStrategyOptimized

5445+ "WEIGHT_STRATEGY_OPTIMIZED" -> Right WeightStrategyOptimized

5446− _ -> Nothing

5446+ x -> Left ("Unable to parse CreativeRotationWeightCalculationStrategy from: " <> x)

5447

5448−instance ToText CreativeRotationWeightCalculationStrategy where

5448+instance ToHttpApiData CreativeRotationWeightCalculationStrategy where

5449− toText = \case

5449+ toQueryParam = \case

5450 WeightStrategyCustom -> "WEIGHT_STRATEGY_CUSTOM"

5451 WeightStrategyEqual -> "WEIGHT_STRATEGY_EQUAL"

5452 WeightStrategyHighestCtr -> "WEIGHT_STRATEGY_HIGHEST_CTR"

@@ -5473,15 +5473,15 @@ data FilesListScope

5473

5474instance Hashable FilesListScope

5475

5476−instance FromText FilesListScope where

5476+instance FromHttpApiData FilesListScope where

5477− fromText = \case

5477+ parseQueryParam = \case

5478− "ALL" -> Just FLSAll

5478+ "ALL" -> Right FLSAll

5479− "MINE" -> Just FLSMine

5479+ "MINE" -> Right FLSMine

5480− "SHARED_WITH_ME" -> Just FLSSharedWithMe

5480+ "SHARED_WITH_ME" -> Right FLSSharedWithMe

5481− _ -> Nothing

5481+ x -> Left ("Unable to parse FilesListScope from: " <> x)

5482

5483−instance ToText FilesListScope where

5483+instance ToHttpApiData FilesListScope where

5484− toText = \case

5484+ toQueryParam = \case

5485 FLSAll -> "ALL"

5486 FLSMine -> "MINE"

5487 FLSSharedWithMe -> "SHARED_WITH_ME"

@@ -5502,14 +5502,14 @@ data ContentCategoriesListSortField

5502

5503instance Hashable ContentCategoriesListSortField

5504

5505−instance FromText ContentCategoriesListSortField where

5505+instance FromHttpApiData ContentCategoriesListSortField where

5506− fromText = \case

5506+ parseQueryParam = \case

5507− "ID" -> Just CCLSFID

5507+ "ID" -> Right CCLSFID

5508− "NAME" -> Just CCLSFName

5508+ "NAME" -> Right CCLSFName

5509− _ -> Nothing

5509+ x -> Left ("Unable to parse ContentCategoriesListSortField from: " <> x)

5510

5511−instance ToText ContentCategoriesListSortField where

5511+instance ToHttpApiData ContentCategoriesListSortField where

5512− toText = \case

5512+ toQueryParam = \case

5513 CCLSFID -> "ID"

5514 CCLSFName -> "NAME"

5515

@@ -5539,19 +5539,19 @@ data ProjectAudienceAgeGroup

5539

5540instance Hashable ProjectAudienceAgeGroup

5541

5542−instance FromText ProjectAudienceAgeGroup where

5542+instance FromHttpApiData ProjectAudienceAgeGroup where

5543− fromText = \case

5543+ parseQueryParam = \case

5544− "PLANNING_AUDIENCE_AGE_18_24" -> Just PlanningAudienceAge1824

5544+ "PLANNING_AUDIENCE_AGE_18_24" -> Right PlanningAudienceAge1824

5545− "PLANNING_AUDIENCE_AGE_25_34" -> Just PlanningAudienceAge2534

5545+ "PLANNING_AUDIENCE_AGE_25_34" -> Right PlanningAudienceAge2534

5546− "PLANNING_AUDIENCE_AGE_35_44" -> Just PlanningAudienceAge3544

5546+ "PLANNING_AUDIENCE_AGE_35_44" -> Right PlanningAudienceAge3544

5547− "PLANNING_AUDIENCE_AGE_45_54" -> Just PlanningAudienceAge4554

5547+ "PLANNING_AUDIENCE_AGE_45_54" -> Right PlanningAudienceAge4554

5548− "PLANNING_AUDIENCE_AGE_55_64" -> Just PlanningAudienceAge5564

5548+ "PLANNING_AUDIENCE_AGE_55_64" -> Right PlanningAudienceAge5564

5549− "PLANNING_AUDIENCE_AGE_65_OR_MORE" -> Just PlanningAudienceAge65OrMore

5549+ "PLANNING_AUDIENCE_AGE_65_OR_MORE" -> Right PlanningAudienceAge65OrMore

5550− "PLANNING_AUDIENCE_AGE_UNKNOWN" -> Just PlanningAudienceAgeUnknown

5550+ "PLANNING_AUDIENCE_AGE_UNKNOWN" -> Right PlanningAudienceAgeUnknown

5551− _ -> Nothing

5551+ x -> Left ("Unable to parse ProjectAudienceAgeGroup from: " <> x)

5552−

5552+

5553−instance ToText ProjectAudienceAgeGroup where

5553+instance ToHttpApiData ProjectAudienceAgeGroup where

5554− toText = \case

5554+ toQueryParam = \case

5555 PlanningAudienceAge1824 -> "PLANNING_AUDIENCE_AGE_18_24"

5556 PlanningAudienceAge2534 -> "PLANNING_AUDIENCE_AGE_25_34"

5557 PlanningAudienceAge3544 -> "PLANNING_AUDIENCE_AGE_35_44"

@@ -5582,16 +5582,16 @@ data AdType

5582

5583instance Hashable AdType

5584

5585−instance FromText AdType where

5585+instance FromHttpApiData AdType where

5586− fromText = \case

5586+ parseQueryParam = \case

5587− "AD_SERVING_CLICK_TRACKER" -> Just ATAdServingClickTracker

5587+ "AD_SERVING_CLICK_TRACKER" -> Right ATAdServingClickTracker

5588− "AD_SERVING_DEFAULT_AD" -> Just ATAdServingDefaultAd

5588+ "AD_SERVING_DEFAULT_AD" -> Right ATAdServingDefaultAd

5589− "AD_SERVING_STANDARD_AD" -> Just ATAdServingStandardAd

5589+ "AD_SERVING_STANDARD_AD" -> Right ATAdServingStandardAd

5590− "AD_SERVING_TRACKING" -> Just ATAdServingTracking

5590+ "AD_SERVING_TRACKING" -> Right ATAdServingTracking

5591− _ -> Nothing

5591+ x -> Left ("Unable to parse AdType from: " <> x)

5592

5593−instance ToText AdType where

5593+instance ToHttpApiData AdType where

5594− toText = \case

5594+ toQueryParam = \case

5595 ATAdServingClickTracker -> "AD_SERVING_CLICK_TRACKER"

5596 ATAdServingDefaultAd -> "AD_SERVING_DEFAULT_AD"

5597 ATAdServingStandardAd -> "AD_SERVING_STANDARD_AD"

@@ -5643,29 +5643,29 @@ data ChangeLogsListAction

5643

5644instance Hashable ChangeLogsListAction

5645

5646−instance FromText ChangeLogsListAction where

5646+instance FromHttpApiData ChangeLogsListAction where

5647− fromText = \case

5647+ parseQueryParam = \case

5648− "ACTION_ADD" -> Just ActionAdd

5648+ "ACTION_ADD" -> Right ActionAdd

5649− "ACTION_ASSIGN" -> Just ActionAssign

5649+ "ACTION_ASSIGN" -> Right ActionAssign

5650− "ACTION_ASSOCIATE" -> Just ActionAssociate

5650+ "ACTION_ASSOCIATE" -> Right ActionAssociate

5651− "ACTION_CREATE" -> Just ActionCreate

5651+ "ACTION_CREATE" -> Right ActionCreate

5652− "ACTION_DELETE" -> Just ActionDelete

5652+ "ACTION_DELETE" -> Right ActionDelete

5653− "ACTION_DISABLE" -> Just ActionDisable

5653+ "ACTION_DISABLE" -> Right ActionDisable

5654− "ACTION_EMAIL_TAGS" -> Just ActionEmailTags

5654+ "ACTION_EMAIL_TAGS" -> Right ActionEmailTags

5655− "ACTION_ENABLE" -> Just ActionEnable

5655+ "ACTION_ENABLE" -> Right ActionEnable

5656− "ACTION_LINK" -> Just ActionLink

5656+ "ACTION_LINK" -> Right ActionLink

5657− "ACTION_MARK_AS_DEFAULT" -> Just ActionMarkAsDefault

5657+ "ACTION_MARK_AS_DEFAULT" -> Right ActionMarkAsDefault

5658− "ACTION_PUSH" -> Just ActionPush

5658+ "ACTION_PUSH" -> Right ActionPush

5659− "ACTION_REMOVE" -> Just ActionRemove

5659+ "ACTION_REMOVE" -> Right ActionRemove

5660− "ACTION_SEND" -> Just ActionSend

5660+ "ACTION_SEND" -> Right ActionSend

5661− "ACTION_SHARE" -> Just ActionShare

5661+ "ACTION_SHARE" -> Right ActionShare

5662− "ACTION_UNASSIGN" -> Just ActionUnassign

5662+ "ACTION_UNASSIGN" -> Right ActionUnassign

5663− "ACTION_UNLINK" -> Just ActionUnlink

5663+ "ACTION_UNLINK" -> Right ActionUnlink

5664− "ACTION_UPDATE" -> Just ActionUpdate

5664+ "ACTION_UPDATE" -> Right ActionUpdate

5665− _ -> Nothing

5665+ x -> Left ("Unable to parse ChangeLogsListAction from: " <> x)

5666−

5666+

5667−instance ToText ChangeLogsListAction where

5667+instance ToHttpApiData ChangeLogsListAction where

5668− toText = \case

5668+ toQueryParam = \case

5669 ActionAdd -> "ACTION_ADD"

5670 ActionAssign -> "ACTION_ASSIGN"

5671 ActionAssociate -> "ACTION_ASSOCIATE"

@@ -5706,16 +5706,16 @@ data CreativeArtworkType

5706

5707instance Hashable CreativeArtworkType

5708

5709−instance FromText CreativeArtworkType where

5709+instance FromHttpApiData CreativeArtworkType where

5710− fromText = \case

5710+ parseQueryParam = \case

5711− "ARTWORK_TYPE_FLASH" -> Just CATArtworkTypeFlash

5711+ "ARTWORK_TYPE_FLASH" -> Right CATArtworkTypeFlash

5712− "ARTWORK_TYPE_HTML5" -> Just CATArtworkTypeHTML5

5712+ "ARTWORK_TYPE_HTML5" -> Right CATArtworkTypeHTML5

5713− "ARTWORK_TYPE_IMAGE" -> Just CATArtworkTypeImage

5713+ "ARTWORK_TYPE_IMAGE" -> Right CATArtworkTypeImage

5714− "ARTWORK_TYPE_MIXED" -> Just CATArtworkTypeMixed

5714+ "ARTWORK_TYPE_MIXED" -> Right CATArtworkTypeMixed

5715− _ -> Nothing

5715+ x -> Left ("Unable to parse CreativeArtworkType from: " <> x)

5716

5717−instance ToText CreativeArtworkType where

5717+instance ToHttpApiData CreativeArtworkType where

5718− toText = \case

5718+ toQueryParam = \case

5719 CATArtworkTypeFlash -> "ARTWORK_TYPE_FLASH"

5720 CATArtworkTypeHTML5 -> "ARTWORK_TYPE_HTML5"

5721 CATArtworkTypeImage -> "ARTWORK_TYPE_IMAGE"

@@ -5745,18 +5745,18 @@ data PlacementStatus

5745

5746instance Hashable PlacementStatus

5747

5748−instance FromText PlacementStatus where

5748+instance FromHttpApiData PlacementStatus where

5749− fromText = \case

5749+ parseQueryParam = \case

5750− "ACKNOWLEDGE_ACCEPTANCE" -> Just AcknowledgeAcceptance

5750+ "ACKNOWLEDGE_ACCEPTANCE" -> Right AcknowledgeAcceptance

5751− "ACKNOWLEDGE_REJECTION" -> Just AcknowledgeRejection

5751+ "ACKNOWLEDGE_REJECTION" -> Right AcknowledgeRejection

5752− "DRAFT" -> Just Draft

5752+ "DRAFT" -> Right Draft

5753− "PAYMENT_ACCEPTED" -> Just PaymentAccepted

5753+ "PAYMENT_ACCEPTED" -> Right PaymentAccepted

5754− "PAYMENT_REJECTED" -> Just PaymentRejected

5754+ "PAYMENT_REJECTED" -> Right PaymentRejected

5755− "PENDING_REVIEW" -> Just PendingReview

5755+ "PENDING_REVIEW" -> Right PendingReview

5756− _ -> Nothing

5756+ x -> Left ("Unable to parse PlacementStatus from: " <> x)

5757−

5757+

5758−instance ToText PlacementStatus where

5758+instance ToHttpApiData PlacementStatus where

5759− toText = \case

5759+ toQueryParam = \case

5760 AcknowledgeAcceptance -> "ACKNOWLEDGE_ACCEPTANCE"

5761 AcknowledgeRejection -> "ACKNOWLEDGE_REJECTION"

5762 Draft -> "DRAFT"

@@ -5785,14 +5785,14 @@ data ReportScheduleRunsOnDayOfMonth

5785

5786instance Hashable ReportScheduleRunsOnDayOfMonth

5787

5788−instance FromText ReportScheduleRunsOnDayOfMonth where

5788+instance FromHttpApiData ReportScheduleRunsOnDayOfMonth where

5789− fromText = \case

5789+ parseQueryParam = \case

5790− "DAY_OF_MONTH" -> Just DayOfMonth

5790+ "DAY_OF_MONTH" -> Right DayOfMonth

5791− "WEEK_OF_MONTH" -> Just WeekOfMonth

5791+ "WEEK_OF_MONTH" -> Right WeekOfMonth

5792− _ -> Nothing

5792+ x -> Left ("Unable to parse ReportScheduleRunsOnDayOfMonth from: " <> x)

5793

5794−instance ToText ReportScheduleRunsOnDayOfMonth where

5794+instance ToHttpApiData ReportScheduleRunsOnDayOfMonth where

5795− toText = \case

5795+ toQueryParam = \case

5796 DayOfMonth -> "DAY_OF_MONTH"

5797 WeekOfMonth -> "WEEK_OF_MONTH"

5798

@@ -5847,32 +5847,32 @@ data FloodlightActivityUserDefinedVariableTypesItem

5847

5848instance Hashable FloodlightActivityUserDefinedVariableTypesItem

5849

5850−instance FromText FloodlightActivityUserDefinedVariableTypesItem where

5850+instance FromHttpApiData FloodlightActivityUserDefinedVariableTypesItem where

5851− fromText = \case

5851+ parseQueryParam = \case

5852− "U1" -> Just FAUDVTIU1

5852+ "U1" -> Right FAUDVTIU1

5853− "U10" -> Just FAUDVTIU10

5853+ "U10" -> Right FAUDVTIU10

5854− "U11" -> Just FAUDVTIU11

5854+ "U11" -> Right FAUDVTIU11

5855− "U12" -> Just FAUDVTIU12

5855+ "U12" -> Right FAUDVTIU12

5856− "U13" -> Just FAUDVTIU13

5856+ "U13" -> Right FAUDVTIU13

5857− "U14" -> Just FAUDVTIU14

5857+ "U14" -> Right FAUDVTIU14

5858− "U15" -> Just FAUDVTIU15

5858+ "U15" -> Right FAUDVTIU15

5859− "U16" -> Just FAUDVTIU16

5859+ "U16" -> Right FAUDVTIU16

5860− "U17" -> Just FAUDVTIU17

5860+ "U17" -> Right FAUDVTIU17

5861− "U18" -> Just FAUDVTIU18

5861+ "U18" -> Right FAUDVTIU18

5862− "U19" -> Just FAUDVTIU19

5862+ "U19" -> Right FAUDVTIU19

5863− "U2" -> Just FAUDVTIU2

5863+ "U2" -> Right FAUDVTIU2

5864− "U20" -> Just FAUDVTIU20

5864+ "U20" -> Right FAUDVTIU20

5865− "U3" -> Just FAUDVTIU3

5865+ "U3" -> Right FAUDVTIU3

5866− "U4" -> Just FAUDVTIU4

5866+ "U4" -> Right FAUDVTIU4

5867− "U5" -> Just FAUDVTIU5

5867+ "U5" -> Right FAUDVTIU5

5868− "U6" -> Just FAUDVTIU6

5868+ "U6" -> Right FAUDVTIU6

5869− "U7" -> Just FAUDVTIU7

5869+ "U7" -> Right FAUDVTIU7

5870− "U8" -> Just FAUDVTIU8

5870+ "U8" -> Right FAUDVTIU8

5871− "U9" -> Just FAUDVTIU9

5871+ "U9" -> Right FAUDVTIU9

5872− _ -> Nothing

5872+ x -> Left ("Unable to parse FloodlightActivityUserDefinedVariableTypesItem from: " <> x)

5873−

5873+

5874−instance ToText FloodlightActivityUserDefinedVariableTypesItem where

5874+instance ToHttpApiData FloodlightActivityUserDefinedVariableTypesItem where

5875− toText = \case

5875+ toQueryParam = \case

5876 FAUDVTIU1 -> "U1"

5877 FAUDVTIU10 -> "U10"

5878 FAUDVTIU11 -> "U11"

@@ -5911,14 +5911,14 @@ data EventTagSiteFilterType

5911

5912instance Hashable EventTagSiteFilterType

5913

5914−instance FromText EventTagSiteFilterType where

5914+instance FromHttpApiData EventTagSiteFilterType where

5915− fromText = \case

5915+ parseQueryParam = \case

5916− "BLACKLIST" -> Just BlackList

5916+ "BLACKLIST" -> Right BlackList

5917− "WHITELIST" -> Just WhiteList

5917+ "WHITELIST" -> Right WhiteList

5918− _ -> Nothing

5918+ x -> Left ("Unable to parse EventTagSiteFilterType from: " <> x)

5919

5920−instance ToText EventTagSiteFilterType where

5920+instance ToHttpApiData EventTagSiteFilterType where

5921− toText = \case

5921+ toQueryParam = \case

5922 BlackList -> "BLACKLIST"

5923 WhiteList -> "WHITELIST"

5924

@@ -5941,14 +5941,14 @@ data ReportFormat

5941

5942instance Hashable ReportFormat

5943

5944−instance FromText ReportFormat where

5944+instance FromHttpApiData ReportFormat where

5945− fromText = \case

5945+ parseQueryParam = \case

5946− "CSV" -> Just RFCSV

5946+ "CSV" -> Right RFCSV

5947− "EXCEL" -> Just RFExcel

5947+ "EXCEL" -> Right RFExcel

5948− _ -> Nothing

5948+ x -> Left ("Unable to parse ReportFormat from: " <> x)

5949

5950−instance ToText ReportFormat where

5950+instance ToHttpApiData ReportFormat where

5951− toText = \case

5951+ toQueryParam = \case

5952 RFCSV -> "CSV"

5953 RFExcel -> "EXCEL"

5954

@@ -5973,14 +5973,14 @@ data PlacementGroupPlacementGroupType

5973

5974instance Hashable PlacementGroupPlacementGroupType

5975

5976−instance FromText PlacementGroupPlacementGroupType where

5976+instance FromHttpApiData PlacementGroupPlacementGroupType where

5977− fromText = \case

5977+ parseQueryParam = \case

5978− "PLACEMENT_PACKAGE" -> Just PGPGTPlacementPackage

5978+ "PLACEMENT_PACKAGE" -> Right PGPGTPlacementPackage

5979− "PLACEMENT_ROADBLOCK" -> Just PGPGTPlacementRoadblock

5979+ "PLACEMENT_ROADBLOCK" -> Right PGPGTPlacementRoadblock

5980− _ -> Nothing

5980+ x -> Left ("Unable to parse PlacementGroupPlacementGroupType from: " <> x)

5981

5982−instance ToText PlacementGroupPlacementGroupType where

5982+instance ToHttpApiData PlacementGroupPlacementGroupType where

5983− toText = \case

5983+ toQueryParam = \case

5984 PGPGTPlacementPackage -> "PLACEMENT_PACKAGE"

5985 PGPGTPlacementRoadblock -> "PLACEMENT_ROADBLOCK"

5986

@@ -6010,19 +6010,19 @@ data PricingPricingType

6010

6011instance Hashable PricingPricingType

6012

6013−instance FromText PricingPricingType where

6013+instance FromHttpApiData PricingPricingType where

6014− fromText = \case

6014+ parseQueryParam = \case

6015− "PLANNING_PLACEMENT_PRICING_TYPE_CLICKS" -> Just PlanningPlacementPricingTypeClicks

6015+ "PLANNING_PLACEMENT_PRICING_TYPE_CLICKS" -> Right PlanningPlacementPricingTypeClicks

6016− "PLANNING_PLACEMENT_PRICING_TYPE_CPA" -> Just PlanningPlacementPricingTypeCpa

6016+ "PLANNING_PLACEMENT_PRICING_TYPE_CPA" -> Right PlanningPlacementPricingTypeCpa

6017− "PLANNING_PLACEMENT_PRICING_TYPE_CPC" -> Just PlanningPlacementPricingTypeCpc

6017+ "PLANNING_PLACEMENT_PRICING_TYPE_CPC" -> Right PlanningPlacementPricingTypeCpc

6018− "PLANNING_PLACEMENT_PRICING_TYPE_CPM" -> Just PlanningPlacementPricingTypeCpm

6018+ "PLANNING_PLACEMENT_PRICING_TYPE_CPM" -> Right PlanningPlacementPricingTypeCpm

6019− "PLANNING_PLACEMENT_PRICING_TYPE_FLAT_RATE_CLICKS" -> Just PlanningPlacementPricingTypeFlatRateClicks

6019+ "PLANNING_PLACEMENT_PRICING_TYPE_FLAT_RATE_CLICKS" -> Right PlanningPlacementPricingTypeFlatRateClicks

6020− "PLANNING_PLACEMENT_PRICING_TYPE_FLAT_RATE_IMPRESSIONS" -> Just PlanningPlacementPricingTypeFlatRateImpressions

6020+ "PLANNING_PLACEMENT_PRICING_TYPE_FLAT_RATE_IMPRESSIONS" -> Right PlanningPlacementPricingTypeFlatRateImpressions

6021− "PLANNING_PLACEMENT_PRICING_TYPE_IMPRESSIONS" -> Just PlanningPlacementPricingTypeImpressions

6021+ "PLANNING_PLACEMENT_PRICING_TYPE_IMPRESSIONS" -> Right PlanningPlacementPricingTypeImpressions

6022− _ -> Nothing

6022+ x -> Left ("Unable to parse PricingPricingType from: " <> x)

6023−

6023+

6024−instance ToText PricingPricingType where

6024+instance ToHttpApiData PricingPricingType where

6025− toText = \case

6025+ toQueryParam = \case

6026 PlanningPlacementPricingTypeClicks -> "PLANNING_PLACEMENT_PRICING_TYPE_CLICKS"

6027 PlanningPlacementPricingTypeCpa -> "PLANNING_PLACEMENT_PRICING_TYPE_CPA"

6028 PlanningPlacementPricingTypeCpc -> "PLANNING_PLACEMENT_PRICING_TYPE_CPC"

@@ -6047,14 +6047,14 @@ data SubAccountsListSortOrder

6047

6048instance Hashable SubAccountsListSortOrder

6049

6050−instance FromText SubAccountsListSortOrder where

6050+instance FromHttpApiData SubAccountsListSortOrder where

6051− fromText = \case

6051+ parseQueryParam = \case

6052− "ASCENDING" -> Just SALSOAscending

6052+ "ASCENDING" -> Right SALSOAscending

6053− "DESCENDING" -> Just SALSODescending

6053+ "DESCENDING" -> Right SALSODescending

6054− _ -> Nothing

6054+ x -> Left ("Unable to parse SubAccountsListSortOrder from: " <> x)

6055

6056−instance ToText SubAccountsListSortOrder where

6056+instance ToHttpApiData SubAccountsListSortOrder where

6057− toText = \case

6057+ toQueryParam = \case

6058 SALSOAscending -> "ASCENDING"

6059 SALSODescending -> "DESCENDING"

6060

@@ -6074,14 +6074,14 @@ data AdsListSortOrder

6074

6075instance Hashable AdsListSortOrder

6076

6077−instance FromText AdsListSortOrder where

6077+instance FromHttpApiData AdsListSortOrder where

6078− fromText = \case

6078+ parseQueryParam = \case

6079− "ASCENDING" -> Just ADSAscending

6079+ "ASCENDING" -> Right ADSAscending

6080− "DESCENDING" -> Just ADSDescending

6080+ "DESCENDING" -> Right ADSDescending

6081− _ -> Nothing

6081+ x -> Left ("Unable to parse AdsListSortOrder from: " <> x)

6082

6083−instance ToText AdsListSortOrder where

6083+instance ToHttpApiData AdsListSortOrder where

6084− toText = \case

6084+ toQueryParam = \case

6085 ADSAscending -> "ASCENDING"

6086 ADSDescending -> "DESCENDING"

6087

@@ -6101,14 +6101,14 @@ data ProjectsListSortOrder

6101

6102instance Hashable ProjectsListSortOrder

6103

6104−instance FromText ProjectsListSortOrder where

6104+instance FromHttpApiData ProjectsListSortOrder where

6105− fromText = \case

6105+ parseQueryParam = \case

6106− "ASCENDING" -> Just PLSOAscending

6106+ "ASCENDING" -> Right PLSOAscending

6107− "DESCENDING" -> Just PLSODescending

6107+ "DESCENDING" -> Right PLSODescending

6108− _ -> Nothing

6108+ x -> Left ("Unable to parse ProjectsListSortOrder from: " <> x)

6109

6110−instance ToText ProjectsListSortOrder where

6110+instance ToHttpApiData ProjectsListSortOrder where

6111− toText = \case

6111+ toQueryParam = \case

6112 PLSOAscending -> "ASCENDING"

6113 PLSODescending -> "DESCENDING"

6114

@@ -6128,14 +6128,14 @@ data RemarketingListsListSortField

6128

6129instance Hashable RemarketingListsListSortField

6130

6131−instance FromText RemarketingListsListSortField where

6131+instance FromHttpApiData RemarketingListsListSortField where

6132− fromText = \case

6132+ parseQueryParam = \case

6133− "ID" -> Just RLLSFID

6133+ "ID" -> Right RLLSFID

6134− "NAME" -> Just RLLSFName

6134+ "NAME" -> Right RLLSFName

6135− _ -> Nothing

6135+ x -> Left ("Unable to parse RemarketingListsListSortField from: " <> x)

6136

6137−instance ToText RemarketingListsListSortField where

6137+instance ToHttpApiData RemarketingListsListSortField where

6138− toText = \case

6138+ toQueryParam = \case

6139 RLLSFID -> "ID"

6140 RLLSFName -> "NAME"

6141

@@ -6164,19 +6164,19 @@ data ReportScheduleRepeatsOnWeekDaysItem

6164

6165instance Hashable ReportScheduleRepeatsOnWeekDaysItem

6166

6167−instance FromText ReportScheduleRepeatsOnWeekDaysItem where

6167+instance FromHttpApiData ReportScheduleRepeatsOnWeekDaysItem where

6168− fromText = \case

6168+ parseQueryParam = \case

6169− "FRIDAY" -> Just RSROWDIFriday

6169+ "FRIDAY" -> Right RSROWDIFriday

6170− "MONDAY" -> Just RSROWDIMonday

6170+ "MONDAY" -> Right RSROWDIMonday

6171− "SATURDAY" -> Just RSROWDISaturday

6171+ "SATURDAY" -> Right RSROWDISaturday

6172− "SUNDAY" -> Just RSROWDISunday

6172+ "SUNDAY" -> Right RSROWDISunday

6173− "THURSDAY" -> Just RSROWDIThursday

6173+ "THURSDAY" -> Right RSROWDIThursday

6174− "TUESDAY" -> Just RSROWDITuesday

6174+ "TUESDAY" -> Right RSROWDITuesday

6175− "WEDNESDAY" -> Just RSROWDIWednesday

6175+ "WEDNESDAY" -> Right RSROWDIWednesday

6176− _ -> Nothing

6176+ x -> Left ("Unable to parse ReportScheduleRepeatsOnWeekDaysItem from: " <> x)

6177−

6177+

6178−instance ToText ReportScheduleRepeatsOnWeekDaysItem where

6178+instance ToHttpApiData ReportScheduleRepeatsOnWeekDaysItem where

6179− toText = \case

6179+ toQueryParam = \case

6180 RSROWDIFriday -> "FRIDAY"

6181 RSROWDIMonday -> "MONDAY"

6182 RSROWDISaturday -> "SATURDAY"

@@ -6201,14 +6201,14 @@ data CreativeGroupAssignmentCreativeGroupNumber

6201

6202instance Hashable CreativeGroupAssignmentCreativeGroupNumber

6203

6204−instance FromText CreativeGroupAssignmentCreativeGroupNumber where

6204+instance FromHttpApiData CreativeGroupAssignmentCreativeGroupNumber where

6205− fromText = \case

6205+ parseQueryParam = \case

6206− "CREATIVE_GROUP_ONE" -> Just CreativeGroupOne

6206+ "CREATIVE_GROUP_ONE" -> Right CreativeGroupOne

6207− "CREATIVE_GROUP_TWO" -> Just CreativeGroupTwo

6207+ "CREATIVE_GROUP_TWO" -> Right CreativeGroupTwo

6208− _ -> Nothing

6208+ x -> Left ("Unable to parse CreativeGroupAssignmentCreativeGroupNumber from: " <> x)

6209

6210−instance ToText CreativeGroupAssignmentCreativeGroupNumber where

6210+instance ToHttpApiData CreativeGroupAssignmentCreativeGroupNumber where

6211− toText = \case

6211+ toQueryParam = \case

6212 CreativeGroupOne -> "CREATIVE_GROUP_ONE"

6213 CreativeGroupTwo -> "CREATIVE_GROUP_TWO"

6214

@@ -6228,14 +6228,14 @@ data AccountsListSortField

6228

6229instance Hashable AccountsListSortField

6230

6231−instance FromText AccountsListSortField where

6231+instance FromHttpApiData AccountsListSortField where

6232− fromText = \case

6232+ parseQueryParam = \case

6233− "ID" -> Just AID

6233+ "ID" -> Right AID

6234− "NAME" -> Just AName

6234+ "NAME" -> Right AName

6235− _ -> Nothing

6235+ x -> Left ("Unable to parse AccountsListSortField from: " <> x)

6236

6237−instance ToText AccountsListSortField where

6237+instance ToHttpApiData AccountsListSortField where

6238− toText = \case

6238+ toQueryParam = \case

6239 AID -> "ID"

6240 AName -> "NAME"

6241

@@ -6255,14 +6255,14 @@ data AdvertisersListStatus

6255

6256instance Hashable AdvertisersListStatus

6257

6258−instance FromText AdvertisersListStatus where

6258+instance FromHttpApiData AdvertisersListStatus where

6259− fromText = \case

6259+ parseQueryParam = \case

6260− "APPROVED" -> Just Approved

6260+ "APPROVED" -> Right Approved

6261− "ON_HOLD" -> Just OnHold

6261+ "ON_HOLD" -> Right OnHold

6262− _ -> Nothing

6262+ x -> Left ("Unable to parse AdvertisersListStatus from: " <> x)

6263

6264−instance ToText AdvertisersListStatus where

6264+instance ToHttpApiData AdvertisersListStatus where

6265− toText = \case

6265+ toQueryParam = \case

6266 Approved -> "APPROVED"

6267 OnHold -> "ON_HOLD"

6268

@@ -6290,16 +6290,16 @@ data DimensionValueMatchType

6290

6291instance Hashable DimensionValueMatchType

6292

6293−instance FromText DimensionValueMatchType where

6293+instance FromHttpApiData DimensionValueMatchType where

6294− fromText = \case

6294+ parseQueryParam = \case

6295− "BEGINS_WITH" -> Just BeginsWith

6295+ "BEGINS_WITH" -> Right BeginsWith

6296− "CONTAINS" -> Just Contains

6296+ "CONTAINS" -> Right Contains

6297− "EXACT" -> Just Exact

6297+ "EXACT" -> Right Exact

6298− "WILDCARD_EXPRESSION" -> Just WildcardExpression

6298+ "WILDCARD_EXPRESSION" -> Right WildcardExpression

6299− _ -> Nothing

6299+ x -> Left ("Unable to parse DimensionValueMatchType from: " <> x)

6300

6301−instance ToText DimensionValueMatchType where

6301+instance ToHttpApiData DimensionValueMatchType where

6302− toText = \case

6302+ toQueryParam = \case

6303 BeginsWith -> "BEGINS_WITH"

6304 Contains -> "CONTAINS"

6305 Exact -> "EXACT"

@@ -6321,14 +6321,14 @@ data PlacementGroupsListSortOrder

6321

6322instance Hashable PlacementGroupsListSortOrder

6323

6324−instance FromText PlacementGroupsListSortOrder where

6324+instance FromHttpApiData PlacementGroupsListSortOrder where

6325− fromText = \case

6325+ parseQueryParam = \case

6326− "ASCENDING" -> Just PGLSOAscending

6326+ "ASCENDING" -> Right PGLSOAscending

6327− "DESCENDING" -> Just PGLSODescending

6327+ "DESCENDING" -> Right PGLSODescending

6328− _ -> Nothing

6328+ x -> Left ("Unable to parse PlacementGroupsListSortOrder from: " <> x)

6329

6330−instance ToText PlacementGroupsListSortOrder where

6330+instance ToHttpApiData PlacementGroupsListSortOrder where

6331− toText = \case

6331+ toQueryParam = \case

6332 PGLSOAscending -> "ASCENDING"

6333 PGLSODescending -> "DESCENDING"

6334

@@ -6361,17 +6361,17 @@ data AdCompatibility

6361

6362instance Hashable AdCompatibility

6363

6364−instance FromText AdCompatibility where

6364+instance FromHttpApiData AdCompatibility where

6365− fromText = \case

6365+ parseQueryParam = \case

6366− "APP" -> Just ACApp

6366+ "APP" -> Right ACApp

6367− "APP_INTERSTITIAL" -> Just ACAppInterstitial

6367+ "APP_INTERSTITIAL" -> Right ACAppInterstitial

6368− "DISPLAY" -> Just ACDisplay

6368+ "DISPLAY" -> Right ACDisplay

6369− "DISPLAY_INTERSTITIAL" -> Just ACDisplayInterstitial

6369+ "DISPLAY_INTERSTITIAL" -> Right ACDisplayInterstitial

6370− "IN_STREAM_VIDEO" -> Just ACInStreamVideo

6370+ "IN_STREAM_VIDEO" -> Right ACInStreamVideo

6371− _ -> Nothing

6371+ x -> Left ("Unable to parse AdCompatibility from: " <> x)

6372−

6372+

6373−instance ToText AdCompatibility where

6373+instance ToHttpApiData AdCompatibility where

6374− toText = \case

6374+ toQueryParam = \case

6375 ACApp -> "APP"

6376 ACAppInterstitial -> "APP_INTERSTITIAL"

6377 ACDisplay -> "DISPLAY"

@@ -6394,14 +6394,14 @@ data CreativeFieldValuesListSortField

6394

6395instance Hashable CreativeFieldValuesListSortField

6396

6397−instance FromText CreativeFieldValuesListSortField where

6397+instance FromHttpApiData CreativeFieldValuesListSortField where

6398− fromText = \case

6398+ parseQueryParam = \case

6399− "ID" -> Just CFVLSFID

6399+ "ID" -> Right CFVLSFID

6400− "VALUE" -> Just CFVLSFValue

6400+ "VALUE" -> Right CFVLSFValue

6401− _ -> Nothing

6401+ x -> Left ("Unable to parse CreativeFieldValuesListSortField from: " <> x)

6402

6403−instance ToText CreativeFieldValuesListSortField where

6403+instance ToHttpApiData CreativeFieldValuesListSortField where

6404− toText = \case

6404+ toQueryParam = \case

6405 CFVLSFID -> "ID"

6406 CFVLSFValue -> "VALUE"

6407

@@ -6421,14 +6421,14 @@ data FloodlightActivityGroupsListSortField

6421

6422instance Hashable FloodlightActivityGroupsListSortField

6423

6424−instance FromText FloodlightActivityGroupsListSortField where

6424+instance FromHttpApiData FloodlightActivityGroupsListSortField where

6425− fromText = \case

6425+ parseQueryParam = \case

6426− "ID" -> Just FAGLSFID

6426+ "ID" -> Right FAGLSFID

6427− "NAME" -> Just FAGLSFName

6427+ "NAME" -> Right FAGLSFName

6428− _ -> Nothing

6428+ x -> Left ("Unable to parse FloodlightActivityGroupsListSortField from: " <> x)

6429

6430−instance ToText FloodlightActivityGroupsListSortField where

6430+instance ToHttpApiData FloodlightActivityGroupsListSortField where

6431− toText = \case

6431+ toQueryParam = \case

6432 FAGLSFID -> "ID"

6433 FAGLSFName -> "NAME"

6434

@@ -6448,14 +6448,14 @@ data OrdersListSortOrder

6448

6449instance Hashable OrdersListSortOrder

6450

6451−instance FromText OrdersListSortOrder where

6451+instance FromHttpApiData OrdersListSortOrder where

6452− fromText = \case

6452+ parseQueryParam = \case

6453− "ASCENDING" -> Just OLSOAscending

6453+ "ASCENDING" -> Right OLSOAscending

6454− "DESCENDING" -> Just OLSODescending

6454+ "DESCENDING" -> Right OLSODescending

6455− _ -> Nothing

6455+ x -> Left ("Unable to parse OrdersListSortOrder from: " <> x)

6456

6457−instance ToText OrdersListSortOrder where

6457+instance ToHttpApiData OrdersListSortOrder where

6458− toText = \case

6458+ toQueryParam = \case

6459 OLSOAscending -> "ASCENDING"

6460 OLSODescending -> "DESCENDING"

6461

@@ -6476,14 +6476,14 @@ data AccountAccountProFile

6476

6477instance Hashable AccountAccountProFile

6478

6479−instance FromText AccountAccountProFile where

6479+instance FromHttpApiData AccountAccountProFile where

6480− fromText = \case

6480+ parseQueryParam = \case

6481− "ACCOUNT_PROFILE_BASIC" -> Just AccountProFileBasic

6481+ "ACCOUNT_PROFILE_BASIC" -> Right AccountProFileBasic

6482− "ACCOUNT_PROFILE_STANDARD" -> Just AccountProFileStandard

6482+ "ACCOUNT_PROFILE_STANDARD" -> Right AccountProFileStandard

6483− _ -> Nothing

6483+ x -> Left ("Unable to parse AccountAccountProFile from: " <> x)

6484

6485−instance ToText AccountAccountProFile where

6485+instance ToHttpApiData AccountAccountProFile where

6486− toText = \case

6486+ toQueryParam = \case

6487 AccountProFileBasic -> "ACCOUNT_PROFILE_BASIC"

6488 AccountProFileStandard -> "ACCOUNT_PROFILE_STANDARD"

6489

@@ -6548,36 +6548,36 @@ data CreativeType

6548

6549instance Hashable CreativeType

6550

6551−instance FromText CreativeType where

6551+instance FromHttpApiData CreativeType where

6552− fromText = \case

6552+ parseQueryParam = \case

6553− "BRAND_SAFE_DEFAULT_INSTREAM_VIDEO" -> Just CTBrandSafeDefaultInstreamVideo

6553+ "BRAND_SAFE_DEFAULT_INSTREAM_VIDEO" -> Right CTBrandSafeDefaultInstreamVideo

6554− "CUSTOM_INPAGE" -> Just CTCustomInpage

6554+ "CUSTOM_INPAGE" -> Right CTCustomInpage

6555− "CUSTOM_INTERSTITIAL" -> Just CTCustomInterstitial

6555+ "CUSTOM_INTERSTITIAL" -> Right CTCustomInterstitial

6556− "ENHANCED_BANNER" -> Just CTEnhancedBanner

6556+ "ENHANCED_BANNER" -> Right CTEnhancedBanner

6557− "ENHANCED_IMAGE" -> Just CTEnhancedImage

6557+ "ENHANCED_IMAGE" -> Right CTEnhancedImage

6558− "FLASH_INPAGE" -> Just CTFlashInpage

6558+ "FLASH_INPAGE" -> Right CTFlashInpage

6559− "HTML5_BANNER" -> Just CTHTML5Banner

6559+ "HTML5_BANNER" -> Right CTHTML5Banner

6560− "IMAGE" -> Just CTImage

6560+ "IMAGE" -> Right CTImage

6561− "INSTREAM_VIDEO" -> Just CTInstreamVideo

6561+ "INSTREAM_VIDEO" -> Right CTInstreamVideo

6562− "INSTREAM_VIDEO_REDIRECT" -> Just CTInstreamVideoRedirect

6562+ "INSTREAM_VIDEO_REDIRECT" -> Right CTInstreamVideoRedirect

6563− "INTERNAL_REDIRECT" -> Just CTInternalRedirect

6563+ "INTERNAL_REDIRECT" -> Right CTInternalRedirect

6564− "INTERSTITIAL_INTERNAL_REDIRECT" -> Just CTInterstitialInternalRedirect

6564+ "INTERSTITIAL_INTERNAL_REDIRECT" -> Right CTInterstitialInternalRedirect

6565− "REDIRECT" -> Just CTRedirect

6565+ "REDIRECT" -> Right CTRedirect

6566− "RICH_MEDIA_EXPANDING" -> Just CTRichMediaExpanding

6566+ "RICH_MEDIA_EXPANDING" -> Right CTRichMediaExpanding

6567− "RICH_MEDIA_IM_EXPAND" -> Just CTRichMediaImExpand

6567+ "RICH_MEDIA_IM_EXPAND" -> Right CTRichMediaImExpand

6568− "RICH_MEDIA_INPAGE" -> Just CTRichMediaInpage

6568+ "RICH_MEDIA_INPAGE" -> Right CTRichMediaInpage

6569− "RICH_MEDIA_INPAGE_FLOATING" -> Just CTRichMediaInpageFloating

6569+ "RICH_MEDIA_INPAGE_FLOATING" -> Right CTRichMediaInpageFloating

6570− "RICH_MEDIA_INTERSTITIAL_FLOAT" -> Just CTRichMediaInterstitialFloat

6570+ "RICH_MEDIA_INTERSTITIAL_FLOAT" -> Right CTRichMediaInterstitialFloat

6571− "RICH_MEDIA_MOBILE_IN_APP" -> Just CTRichMediaMobileInApp

6571+ "RICH_MEDIA_MOBILE_IN_APP" -> Right CTRichMediaMobileInApp

6572− "RICH_MEDIA_MULTI_FLOATING" -> Just CTRichMediaMultiFloating

6572+ "RICH_MEDIA_MULTI_FLOATING" -> Right CTRichMediaMultiFloating

6573− "RICH_MEDIA_PEEL_DOWN" -> Just CTRichMediaPeelDown

6573+ "RICH_MEDIA_PEEL_DOWN" -> Right CTRichMediaPeelDown

6574− "TRACKING_TEXT" -> Just CTTrackingText

6574+ "TRACKING_TEXT" -> Right CTTrackingText

6575− "VPAID_LINEAR" -> Just CTVpaidLinear

6575+ "VPAID_LINEAR" -> Right CTVpaidLinear

6576− "VPAID_NON_LINEAR" -> Just CTVpaidNonLinear

6576+ "VPAID_NON_LINEAR" -> Right CTVpaidNonLinear

6577− _ -> Nothing

6577+ x -> Left ("Unable to parse CreativeType from: " <> x)

6578−

6578+

6579−instance ToText CreativeType where

6579+instance ToHttpApiData CreativeType where

6580− toText = \case

6580+ toQueryParam = \case

6581 CTBrandSafeDefaultInstreamVideo -> "BRAND_SAFE_DEFAULT_INSTREAM_VIDEO"

6582 CTCustomInpage -> "CUSTOM_INPAGE"

6583 CTCustomInterstitial -> "CUSTOM_INTERSTITIAL"

@@ -6621,14 +6621,14 @@ data FilesListSortOrder

6621

6622instance Hashable FilesListSortOrder

6623

6624−instance FromText FilesListSortOrder where

6624+instance FromHttpApiData FilesListSortOrder where

6625− fromText = \case

6625+ parseQueryParam = \case

6626− "ASCENDING" -> Just FLSOAscending

6626+ "ASCENDING" -> Right FLSOAscending

6627− "DESCENDING" -> Just FLSODescending

6627+ "DESCENDING" -> Right FLSODescending

6628− _ -> Nothing

6628+ x -> Left ("Unable to parse FilesListSortOrder from: " <> x)

6629

6630−instance ToText FilesListSortOrder where

6630+instance ToHttpApiData FilesListSortOrder where

6631− toText = \case

6631+ toQueryParam = \case

6632 FLSOAscending -> "ASCENDING"

6633 FLSODescending -> "DESCENDING"

6634

@@ -6648,14 +6648,14 @@ data AdvertiserGroupsListSortField

6648

6649instance Hashable AdvertiserGroupsListSortField

6650

6651−instance FromText AdvertiserGroupsListSortField where

6651+instance FromHttpApiData AdvertiserGroupsListSortField where

6652− fromText = \case

6652+ parseQueryParam = \case

6653− "ID" -> Just AGLSFID

6653+ "ID" -> Right AGLSFID

6654− "NAME" -> Just AGLSFName

6654+ "NAME" -> Right AGLSFName

6655− _ -> Nothing

6655+ x -> Left ("Unable to parse AdvertiserGroupsListSortField from: " <> x)

6656

6657−instance ToText AdvertiserGroupsListSortField where

6657+instance ToHttpApiData AdvertiserGroupsListSortField where

6658− toText = \case

6658+ toQueryParam = \case

6659 AGLSFID -> "ID"

6660 AGLSFName -> "NAME"

6661

@@ -6678,15 +6678,15 @@ data TargetWindowTargetWindowOption

6678

6679instance Hashable TargetWindowTargetWindowOption

6680

6681−instance FromText TargetWindowTargetWindowOption where

6681+instance FromHttpApiData TargetWindowTargetWindowOption where

6682− fromText = \case

6682+ parseQueryParam = \case

6683− "CURRENT_WINDOW" -> Just CurrentWindow

6683+ "CURRENT_WINDOW" -> Right CurrentWindow

6684− "CUSTOM" -> Just Custom

6684+ "CUSTOM" -> Right Custom

6685− "NEW_WINDOW" -> Just NewWindow

6685+ "NEW_WINDOW" -> Right NewWindow

6686− _ -> Nothing

6686+ x -> Left ("Unable to parse TargetWindowTargetWindowOption from: " <> x)

6687

6688−instance ToText TargetWindowTargetWindowOption where

6688+instance ToHttpApiData TargetWindowTargetWindowOption where

6689− toText = \case

6689+ toQueryParam = \case

6690 CurrentWindow -> "CURRENT_WINDOW"

6691 Custom -> "CUSTOM"

6692 NewWindow -> "NEW_WINDOW"

@@ -6707,14 +6707,14 @@ data DirectorySiteContactsListSortField

6707

6708instance Hashable DirectorySiteContactsListSortField

6709

6710−instance FromText DirectorySiteContactsListSortField where

6710+instance FromHttpApiData DirectorySiteContactsListSortField where

6711− fromText = \case

6711+ parseQueryParam = \case

6712− "ID" -> Just DSCLSFID

6712+ "ID" -> Right DSCLSFID

6713− "NAME" -> Just DSCLSFName

6713+ "NAME" -> Right DSCLSFName

6714− _ -> Nothing

6714+ x -> Left ("Unable to parse DirectorySiteContactsListSortField from: " <> x)

6715

6716−instance ToText DirectorySiteContactsListSortField where

6716+instance ToHttpApiData DirectorySiteContactsListSortField where

6717− toText = \case

6717+ toQueryParam = \case

6718 DSCLSFID -> "ID"

6719 DSCLSFName -> "NAME"

6720

@@ -6740,17 +6740,17 @@ data PlacementsListPricingTypes

6740

6741instance Hashable PlacementsListPricingTypes

6742

6743−instance FromText PlacementsListPricingTypes where

6743+instance FromHttpApiData PlacementsListPricingTypes where

6744− fromText = \case

6744+ parseQueryParam = \case

6745− "PRICING_TYPE_CPA" -> Just PLPTPricingTypeCpa

6745+ "PRICING_TYPE_CPA" -> Right PLPTPricingTypeCpa

6746− "PRICING_TYPE_CPC" -> Just PLPTPricingTypeCpc

6746+ "PRICING_TYPE_CPC" -> Right PLPTPricingTypeCpc

6747− "PRICING_TYPE_CPM" -> Just PLPTPricingTypeCpm

6747+ "PRICING_TYPE_CPM" -> Right PLPTPricingTypeCpm

6748− "PRICING_TYPE_FLAT_RATE_CLICKS" -> Just PLPTPricingTypeFlatRateClicks

6748+ "PRICING_TYPE_FLAT_RATE_CLICKS" -> Right PLPTPricingTypeFlatRateClicks

6749− "PRICING_TYPE_FLAT_RATE_IMPRESSIONS" -> Just PLPTPricingTypeFlatRateImpressions

6749+ "PRICING_TYPE_FLAT_RATE_IMPRESSIONS" -> Right PLPTPricingTypeFlatRateImpressions

6750− _ -> Nothing

6750+ x -> Left ("Unable to parse PlacementsListPricingTypes from: " <> x)

6751−

6751+

6752−instance ToText PlacementsListPricingTypes where

6752+instance ToHttpApiData PlacementsListPricingTypes where

6753− toText = \case

6753+ toQueryParam = \case

6754 PLPTPricingTypeCpa -> "PRICING_TYPE_CPA"

6755 PLPTPricingTypeCpc -> "PRICING_TYPE_CPC"

6756 PLPTPricingTypeCpm -> "PRICING_TYPE_CPM"

@@ -6773,14 +6773,14 @@ data EventTagsListSortOrder

6773

6774instance Hashable EventTagsListSortOrder

6775

6776−instance FromText EventTagsListSortOrder where

6776+instance FromHttpApiData EventTagsListSortOrder where

6777− fromText = \case

6777+ parseQueryParam = \case

6778− "ASCENDING" -> Just ETLSOAscending

6778+ "ASCENDING" -> Right ETLSOAscending

6779− "DESCENDING" -> Just ETLSODescending

6779+ "DESCENDING" -> Right ETLSODescending

6780− _ -> Nothing

6780+ x -> Left ("Unable to parse EventTagsListSortOrder from: " <> x)

6781

6782−instance ToText EventTagsListSortOrder where

6782+instance ToHttpApiData EventTagsListSortOrder where

6783− toText = \case

6783+ toQueryParam = \case

6784 ETLSOAscending -> "ASCENDING"

6785 ETLSODescending -> "DESCENDING"

6786

@@ -6800,14 +6800,14 @@ data DirectorySitesListSortField

6800

6801instance Hashable DirectorySitesListSortField

6802

6803−instance FromText DirectorySitesListSortField where

6803+instance FromHttpApiData DirectorySitesListSortField where

6804− fromText = \case

6804+ parseQueryParam = \case

6805− "ID" -> Just DSLSFID

6805+ "ID" -> Right DSLSFID

6806− "NAME" -> Just DSLSFName

6806+ "NAME" -> Right DSLSFName

6807− _ -> Nothing

6807+ x -> Left ("Unable to parse DirectorySitesListSortField from: " <> x)

6808

6809−instance ToText DirectorySitesListSortField where

6809+instance ToHttpApiData DirectorySitesListSortField where

6810− toText = \case

6810+ toQueryParam = \case

6811 DSLSFID -> "ID"

6812 DSLSFName -> "NAME"

6813

@@ -6831,16 +6831,16 @@ data ReportCrossDimensionReachCriteriaDimension

6831

6832instance Hashable ReportCrossDimensionReachCriteriaDimension

6833

6834−instance FromText ReportCrossDimensionReachCriteriaDimension where

6834+instance FromHttpApiData ReportCrossDimensionReachCriteriaDimension where

6835− fromText = \case

6835+ parseQueryParam = \case

6836− "ADVERTISER" -> Just RCDRCDAdvertiser

6836+ "ADVERTISER" -> Right RCDRCDAdvertiser

6837− "CAMPAIGN" -> Just RCDRCDCampaign

6837+ "CAMPAIGN" -> Right RCDRCDCampaign

6838− "SITE_BY_ADVERTISER" -> Just RCDRCDSiteByAdvertiser

6838+ "SITE_BY_ADVERTISER" -> Right RCDRCDSiteByAdvertiser

6839− "SITE_BY_CAMPAIGN" -> Just RCDRCDSiteByCampaign

6839+ "SITE_BY_CAMPAIGN" -> Right RCDRCDSiteByCampaign

6840− _ -> Nothing

6840+ x -> Left ("Unable to parse ReportCrossDimensionReachCriteriaDimension from: " <> x)

6841

6842−instance ToText ReportCrossDimensionReachCriteriaDimension where

6842+instance ToHttpApiData ReportCrossDimensionReachCriteriaDimension where

6843− toText = \case

6843+ toQueryParam = \case

6844 RCDRCDAdvertiser -> "ADVERTISER"

6845 RCDRCDCampaign -> "CAMPAIGN"

6846 RCDRCDSiteByAdvertiser -> "SITE_BY_ADVERTISER"

@@ -6862,14 +6862,14 @@ data SitesListSortOrder

6862

6863instance Hashable SitesListSortOrder

6864

6865−instance FromText SitesListSortOrder where

6865+instance FromHttpApiData SitesListSortOrder where

6866− fromText = \case

6866+ parseQueryParam = \case

6867− "ASCENDING" -> Just SLSOAscending

6867+ "ASCENDING" -> Right SLSOAscending

6868− "DESCENDING" -> Just SLSODescending

6868+ "DESCENDING" -> Right SLSODescending

6869− _ -> Nothing

6869+ x -> Left ("Unable to parse SitesListSortOrder from: " <> x)

6870

6871−instance ToText SitesListSortOrder where

6871+instance ToHttpApiData SitesListSortOrder where

6872− toText = \case

6872+ toQueryParam = \case

6873 SLSOAscending -> "ASCENDING"

6874 SLSODescending -> "DESCENDING"

6875

@@ -6920,30 +6920,30 @@ data PlacementTagFormatsItem

6920

6921instance Hashable PlacementTagFormatsItem

6922

6923−instance FromText PlacementTagFormatsItem where

6923+instance FromHttpApiData PlacementTagFormatsItem where

6924− fromText = \case

6924+ parseQueryParam = \case

6925− "PLACEMENT_TAG_CLICK_COMMANDS" -> Just PTFIPlacementTagClickCommands

6925+ "PLACEMENT_TAG_CLICK_COMMANDS" -> Right PTFIPlacementTagClickCommands

6926− "PLACEMENT_TAG_IFRAME_ILAYER" -> Just PTFIPlacementTagIframeIlayer

6926+ "PLACEMENT_TAG_IFRAME_ILAYER" -> Right PTFIPlacementTagIframeIlayer

6927− "PLACEMENT_TAG_IFRAME_JAVASCRIPT" -> Just PTFIPlacementTagIframeJavascript

6927+ "PLACEMENT_TAG_IFRAME_JAVASCRIPT" -> Right PTFIPlacementTagIframeJavascript

6928− "PLACEMENT_TAG_IFRAME_JAVASCRIPT_LEGACY" -> Just PTFIPlacementTagIframeJavascriptLegacy

6928+ "PLACEMENT_TAG_IFRAME_JAVASCRIPT_LEGACY" -> Right PTFIPlacementTagIframeJavascriptLegacy

6929− "PLACEMENT_TAG_INSTREAM_VIDEO_PREFETCH" -> Just PTFIPlacementTagInstreamVideoPrefetch

6929+ "PLACEMENT_TAG_INSTREAM_VIDEO_PREFETCH" -> Right PTFIPlacementTagInstreamVideoPrefetch

6930− "PLACEMENT_TAG_INSTREAM_VIDEO_PREFETCH_VAST_3" -> Just PTFIPlacementTagInstreamVideoPrefetchVast3

6930+ "PLACEMENT_TAG_INSTREAM_VIDEO_PREFETCH_VAST_3" -> Right PTFIPlacementTagInstreamVideoPrefetchVast3

6931− "PLACEMENT_TAG_INTERNAL_REDIRECT" -> Just PTFIPlacementTagInternalRedirect

6931+ "PLACEMENT_TAG_INTERNAL_REDIRECT" -> Right PTFIPlacementTagInternalRedirect

6932− "PLACEMENT_TAG_INTERSTITIAL_IFRAME_JAVASCRIPT" -> Just PTFIPlacementTagInterstitialIframeJavascript

6932+ "PLACEMENT_TAG_INTERSTITIAL_IFRAME_JAVASCRIPT" -> Right PTFIPlacementTagInterstitialIframeJavascript

6933− "PLACEMENT_TAG_INTERSTITIAL_IFRAME_JAVASCRIPT_LEGACY" -> Just PTFIPlacementTagInterstitialIframeJavascriptLegacy

6933+ "PLACEMENT_TAG_INTERSTITIAL_IFRAME_JAVASCRIPT_LEGACY" -> Right PTFIPlacementTagInterstitialIframeJavascriptLegacy

6934− "PLACEMENT_TAG_INTERSTITIAL_INTERNAL_REDIRECT" -> Just PTFIPlacementTagInterstitialInternalRedirect

6934+ "PLACEMENT_TAG_INTERSTITIAL_INTERNAL_REDIRECT" -> Right PTFIPlacementTagInterstitialInternalRedirect

6935− "PLACEMENT_TAG_INTERSTITIAL_JAVASCRIPT" -> Just PTFIPlacementTagInterstitialJavascript

6935+ "PLACEMENT_TAG_INTERSTITIAL_JAVASCRIPT" -> Right PTFIPlacementTagInterstitialJavascript

6936− "PLACEMENT_TAG_INTERSTITIAL_JAVASCRIPT_LEGACY" -> Just PTFIPlacementTagInterstitialJavascriptLegacy

6936+ "PLACEMENT_TAG_INTERSTITIAL_JAVASCRIPT_LEGACY" -> Right PTFIPlacementTagInterstitialJavascriptLegacy

6937− "PLACEMENT_TAG_JAVASCRIPT" -> Just PTFIPlacementTagJavascript

6937+ "PLACEMENT_TAG_JAVASCRIPT" -> Right PTFIPlacementTagJavascript

6938− "PLACEMENT_TAG_JAVASCRIPT_LEGACY" -> Just PTFIPlacementTagJavascriptLegacy

6938+ "PLACEMENT_TAG_JAVASCRIPT_LEGACY" -> Right PTFIPlacementTagJavascriptLegacy

6939− "PLACEMENT_TAG_STANDARD" -> Just PTFIPlacementTagStandard

6939+ "PLACEMENT_TAG_STANDARD" -> Right PTFIPlacementTagStandard

6940− "PLACEMENT_TAG_TRACKING" -> Just PTFIPlacementTagTracking

6940+ "PLACEMENT_TAG_TRACKING" -> Right PTFIPlacementTagTracking

6941− "PLACEMENT_TAG_TRACKING_IFRAME" -> Just PTFIPlacementTagTrackingIframe

6941+ "PLACEMENT_TAG_TRACKING_IFRAME" -> Right PTFIPlacementTagTrackingIframe

6942− "PLACEMENT_TAG_TRACKING_JAVASCRIPT" -> Just PTFIPlacementTagTrackingJavascript

6942+ "PLACEMENT_TAG_TRACKING_JAVASCRIPT" -> Right PTFIPlacementTagTrackingJavascript

6943− _ -> Nothing

6943+ x -> Left ("Unable to parse PlacementTagFormatsItem from: " <> x)

6944−

6944+

6945−instance ToText PlacementTagFormatsItem where

6945+instance ToHttpApiData PlacementTagFormatsItem where

6946− toText = \case

6946+ toQueryParam = \case

6947 PTFIPlacementTagClickCommands -> "PLACEMENT_TAG_CLICK_COMMANDS"

6948 PTFIPlacementTagIframeIlayer -> "PLACEMENT_TAG_IFRAME_ILAYER"

6949 PTFIPlacementTagIframeJavascript -> "PLACEMENT_TAG_IFRAME_JAVASCRIPT"

@@ -6985,17 +6985,17 @@ data ReportType

6985

6986instance Hashable ReportType

6987

6988−instance FromText ReportType where

6988+instance FromHttpApiData ReportType where

6989− fromText = \case

6989+ parseQueryParam = \case

6990− "CROSS_DIMENSION_REACH" -> Just RTCrossDimensionReach

6990+ "CROSS_DIMENSION_REACH" -> Right RTCrossDimensionReach

6991− "FLOODLIGHT" -> Just RTFloodlight

6991+ "FLOODLIGHT" -> Right RTFloodlight

6992− "PATH_TO_CONVERSION" -> Just RTPathToConversion

6992+ "PATH_TO_CONVERSION" -> Right RTPathToConversion

6993− "REACH" -> Just RTReach

6993+ "REACH" -> Right RTReach

6994− "STANDARD" -> Just RTStandard

6994+ "STANDARD" -> Right RTStandard

6995− _ -> Nothing

6995+ x -> Left ("Unable to parse ReportType from: " <> x)

6996−

6996+

6997−instance ToText ReportType where

6997+instance ToHttpApiData ReportType where

6998− toText = \case

6998+ toQueryParam = \case

6999 RTCrossDimensionReach -> "CROSS_DIMENSION_REACH"

7000 RTFloodlight -> "FLOODLIGHT"

7001 RTPathToConversion -> "PATH_TO_CONVERSION"

@@ -7059,35 +7059,35 @@ data CreativeAssetMetadataWarnedValidationRulesItem

7059

7060instance Hashable CreativeAssetMetadataWarnedValidationRulesItem

7061

7062−instance FromText CreativeAssetMetadataWarnedValidationRulesItem where

7062+instance FromHttpApiData CreativeAssetMetadataWarnedValidationRulesItem where

7063− fromText = \case

7063+ parseQueryParam = \case

7064− "ADMOB_REFERENCED" -> Just ADMobReferenced

7064+ "ADMOB_REFERENCED" -> Right ADMobReferenced

7065− "ASSET_FORMAT_UNSUPPORTED_DCM" -> Just AssetFormatUnsupportedDcm

7065+ "ASSET_FORMAT_UNSUPPORTED_DCM" -> Right AssetFormatUnsupportedDcm

7066− "ASSET_INVALID" -> Just AssetInvalid

7066+ "ASSET_INVALID" -> Right AssetInvalid

7067− "CLICK_TAG_HARD_CODED" -> Just ClickTagHardCoded

7067+ "CLICK_TAG_HARD_CODED" -> Right ClickTagHardCoded

7068− "CLICK_TAG_INVALID" -> Just ClickTagInvalid

7068+ "CLICK_TAG_INVALID" -> Right ClickTagInvalid

7069− "CLICK_TAG_IN_GWD" -> Just ClickTagInGwd

7069+ "CLICK_TAG_IN_GWD" -> Right ClickTagInGwd

7070− "CLICK_TAG_MISSING" -> Just ClickTagMissing

7070+ "CLICK_TAG_MISSING" -> Right ClickTagMissing

7071− "CLICK_TAG_MORE_THAN_ONE" -> Just ClickTagMoreThanOne

7071+ "CLICK_TAG_MORE_THAN_ONE" -> Right ClickTagMoreThanOne

7072− "CLICK_TAG_NON_TOP_LEVEL" -> Just ClickTagNonTopLevel

7072+ "CLICK_TAG_NON_TOP_LEVEL" -> Right ClickTagNonTopLevel

7073− "COMPONENT_UNSUPPORTED_DCM" -> Just ComponentUnsupportedDcm

7073+ "COMPONENT_UNSUPPORTED_DCM" -> Right ComponentUnsupportedDcm

7074− "ENABLER_UNSUPPORTED_METHOD_DCM" -> Just EnablerUnsupportedMethodDcm

7074+ "ENABLER_UNSUPPORTED_METHOD_DCM" -> Right EnablerUnsupportedMethodDcm

7075− "EXTERNAL_FILE_REFERENCED" -> Just ExternalFileReferenced

7075+ "EXTERNAL_FILE_REFERENCED" -> Right ExternalFileReferenced

7076− "FILE_DETAIL_EMPTY" -> Just FileDetailEmpty

7076+ "FILE_DETAIL_EMPTY" -> Right FileDetailEmpty

7077− "FILE_TYPE_INVALID" -> Just FileTypeInvalid

7077+ "FILE_TYPE_INVALID" -> Right FileTypeInvalid

7078− "GWD_PROPERTIES_INVALID" -> Just GwdPropertiesInvalid

7078+ "GWD_PROPERTIES_INVALID" -> Right GwdPropertiesInvalid

7079− "HTML5_FEATURE_UNSUPPORTED" -> Just HTML5FeatureUnsupported

7079+ "HTML5_FEATURE_UNSUPPORTED" -> Right HTML5FeatureUnsupported

7080− "LINKED_FILE_NOT_FOUND" -> Just LinkedFileNotFound

7080+ "LINKED_FILE_NOT_FOUND" -> Right LinkedFileNotFound

7081− "MAX_FLASH_VERSION_11" -> Just MaxFlashVersion11

7081+ "MAX_FLASH_VERSION_11" -> Right MaxFlashVersion11

7082− "MRAID_REFERENCED" -> Just MraidReferenced

7082+ "MRAID_REFERENCED" -> Right MraidReferenced

7083− "NOT_SSL_COMPLIANT" -> Just NotSSLCompliant

7083+ "NOT_SSL_COMPLIANT" -> Right NotSSLCompliant

7084− "ORPHANED_ASSET" -> Just OrphanedAsset

7084+ "ORPHANED_ASSET" -> Right OrphanedAsset

7085− "PRIMARY_HTML_MISSING" -> Just PrimaryHTMLMissing

7085+ "PRIMARY_HTML_MISSING" -> Right PrimaryHTMLMissing

7086− "ZIP_INVALID" -> Just ZipInvalid

7086+ "ZIP_INVALID" -> Right ZipInvalid

7087− _ -> Nothing

7087+ x -> Left ("Unable to parse CreativeAssetMetadataWarnedValidationRulesItem from: " <> x)

7088−

7088+

7089−instance ToText CreativeAssetMetadataWarnedValidationRulesItem where

7089+instance ToHttpApiData CreativeAssetMetadataWarnedValidationRulesItem where

7090− toText = \case

7090+ toQueryParam = \case

7091 ADMobReferenced -> "ADMOB_REFERENCED"

7092 AssetFormatUnsupportedDcm -> "ASSET_FORMAT_UNSUPPORTED_DCM"

7093 AssetInvalid -> "ASSET_INVALID"

@@ -7128,14 +7128,14 @@ data AdSlotPaymentSourceType

7128

7129instance Hashable AdSlotPaymentSourceType

7130

7131−instance FromText AdSlotPaymentSourceType where

7131+instance FromHttpApiData AdSlotPaymentSourceType where

7132− fromText = \case

7132+ parseQueryParam = \case

7133− "PLANNING_PAYMENT_SOURCE_TYPE_AGENCY_PAID" -> Just PlanningPaymentSourceTypeAgencyPaid

7133+ "PLANNING_PAYMENT_SOURCE_TYPE_AGENCY_PAID" -> Right PlanningPaymentSourceTypeAgencyPaid

7134− "PLANNING_PAYMENT_SOURCE_TYPE_PUBLISHER_PAID" -> Just PlanningPaymentSourceTypePublisherPaid

7134+ "PLANNING_PAYMENT_SOURCE_TYPE_PUBLISHER_PAID" -> Right PlanningPaymentSourceTypePublisherPaid

7135− _ -> Nothing

7135+ x -> Left ("Unable to parse AdSlotPaymentSourceType from: " <> x)

7136

7137−instance ToText AdSlotPaymentSourceType where

7137+instance ToHttpApiData AdSlotPaymentSourceType where

7138− toText = \case

7138+ toQueryParam = \case

7139 PlanningPaymentSourceTypeAgencyPaid -> "PLANNING_PAYMENT_SOURCE_TYPE_AGENCY_PAID"

7140 PlanningPaymentSourceTypePublisherPaid -> "PLANNING_PAYMENT_SOURCE_TYPE_PUBLISHER_PAID"

7141

@@ -7154,14 +7154,14 @@ data AccountPermissionAccountProFilesItem

7154

7155instance Hashable AccountPermissionAccountProFilesItem

7156

7157−instance FromText AccountPermissionAccountProFilesItem where

7157+instance FromHttpApiData AccountPermissionAccountProFilesItem where

7158− fromText = \case

7158+ parseQueryParam = \case

7159− "ACCOUNT_PROFILE_BASIC" -> Just APAPFIAccountProFileBasic

7159+ "ACCOUNT_PROFILE_BASIC" -> Right APAPFIAccountProFileBasic

7160− "ACCOUNT_PROFILE_STANDARD" -> Just APAPFIAccountProFileStandard

7160+ "ACCOUNT_PROFILE_STANDARD" -> Right APAPFIAccountProFileStandard

7161− _ -> Nothing

7161+ x -> Left ("Unable to parse AccountPermissionAccountProFilesItem from: " <> x)

7162

7163−instance ToText AccountPermissionAccountProFilesItem where

7163+instance ToHttpApiData AccountPermissionAccountProFilesItem where

7164− toText = \case

7164+ toQueryParam = \case

7165 APAPFIAccountProFileBasic -> "ACCOUNT_PROFILE_BASIC"

7166 APAPFIAccountProFileStandard -> "ACCOUNT_PROFILE_STANDARD"

7167

@@ -7183,15 +7183,15 @@ data CreativeCustomEventAdvertiserCustomEventType

7183

7184instance Hashable CreativeCustomEventAdvertiserCustomEventType

7185

7186−instance FromText CreativeCustomEventAdvertiserCustomEventType where

7186+instance FromHttpApiData CreativeCustomEventAdvertiserCustomEventType where

7187− fromText = \case

7187+ parseQueryParam = \case

7188− "ADVERTISER_EVENT_COUNTER" -> Just AdvertiserEventCounter

7188+ "ADVERTISER_EVENT_COUNTER" -> Right AdvertiserEventCounter

7189− "ADVERTISER_EVENT_EXIT" -> Just AdvertiserEventExit

7189+ "ADVERTISER_EVENT_EXIT" -> Right AdvertiserEventExit

7190− "ADVERTISER_EVENT_TIMER" -> Just AdvertiserEventTimer

7190+ "ADVERTISER_EVENT_TIMER" -> Right AdvertiserEventTimer

7191− _ -> Nothing

7191+ x -> Left ("Unable to parse CreativeCustomEventAdvertiserCustomEventType from: " <> x)

7192

7193−instance ToText CreativeCustomEventAdvertiserCustomEventType where

7193+instance ToHttpApiData CreativeCustomEventAdvertiserCustomEventType where

7194− toText = \case

7194+ toQueryParam = \case

7195 AdvertiserEventCounter -> "ADVERTISER_EVENT_COUNTER"

7196 AdvertiserEventExit -> "ADVERTISER_EVENT_EXIT"

7197 AdvertiserEventTimer -> "ADVERTISER_EVENT_TIMER"

@@ -7282,49 +7282,49 @@ data ChangeLogsListObjectType

7282

7283instance Hashable ChangeLogsListObjectType

7284

7285−instance FromText ChangeLogsListObjectType where

7285+instance FromHttpApiData ChangeLogsListObjectType where

7286− fromText = \case

7286+ parseQueryParam = \case

7287− "OBJECT_ACCOUNT" -> Just ObjectAccount

7287+ "OBJECT_ACCOUNT" -> Right ObjectAccount

7288− "OBJECT_ACCOUNT_BILLING_FEATURE" -> Just ObjectAccountBillingFeature

7288+ "OBJECT_ACCOUNT_BILLING_FEATURE" -> Right ObjectAccountBillingFeature

7289− "OBJECT_AD" -> Just ObjectAd

7289+ "OBJECT_AD" -> Right ObjectAd

7290− "OBJECT_ADVERTISER" -> Just ObjectAdvertiser

7290+ "OBJECT_ADVERTISER" -> Right ObjectAdvertiser

7291− "OBJECT_ADVERTISER_GROUP" -> Just ObjectAdvertiserGroup

7291+ "OBJECT_ADVERTISER_GROUP" -> Right ObjectAdvertiserGroup

7292− "OBJECT_BILLING_ACCOUNT_GROUP" -> Just ObjectBillingAccountGroup

7292+ "OBJECT_BILLING_ACCOUNT_GROUP" -> Right ObjectBillingAccountGroup

7293− "OBJECT_BILLING_FEATURE" -> Just ObjectBillingFeature

7293+ "OBJECT_BILLING_FEATURE" -> Right ObjectBillingFeature

7294− "OBJECT_BILLING_MINIMUM_FEE" -> Just ObjectBillingMinimumFee

7294+ "OBJECT_BILLING_MINIMUM_FEE" -> Right ObjectBillingMinimumFee

7295− "OBJECT_BILLING_PROFILE" -> Just ObjectBillingProFile

7295+ "OBJECT_BILLING_PROFILE" -> Right ObjectBillingProFile

7296− "OBJECT_CAMPAIGN" -> Just ObjectCampaign

7296+ "OBJECT_CAMPAIGN" -> Right ObjectCampaign

7297− "OBJECT_CONTENT_CATEGORY" -> Just ObjectContentCategory

7297+ "OBJECT_CONTENT_CATEGORY" -> Right ObjectContentCategory

7298− "OBJECT_CREATIVE" -> Just ObjectCreative

7298+ "OBJECT_CREATIVE" -> Right ObjectCreative

7299− "OBJECT_CREATIVE_ASSET" -> Just ObjectCreativeAsset

7299+ "OBJECT_CREATIVE_ASSET" -> Right ObjectCreativeAsset

7300− "OBJECT_CREATIVE_BUNDLE" -> Just ObjectCreativeBundle

7300+ "OBJECT_CREATIVE_BUNDLE" -> Right ObjectCreativeBundle

7301− "OBJECT_CREATIVE_FIELD" -> Just ObjectCreativeField

7301+ "OBJECT_CREATIVE_FIELD" -> Right ObjectCreativeField

7302− "OBJECT_CREATIVE_GROUP" -> Just ObjectCreativeGroup

7302+ "OBJECT_CREATIVE_GROUP" -> Right ObjectCreativeGroup

7303− "OBJECT_DFA_SITE" -> Just ObjectDfaSite

7303+ "OBJECT_DFA_SITE" -> Right ObjectDfaSite

7304− "OBJECT_EVENT_TAG" -> Just ObjectEventTag

7304+ "OBJECT_EVENT_TAG" -> Right ObjectEventTag

7305− "OBJECT_FLOODLIGHT_ACTIVITY_GROUP" -> Just ObjectFloodlightActivityGroup

7305+ "OBJECT_FLOODLIGHT_ACTIVITY_GROUP" -> Right ObjectFloodlightActivityGroup

7306− "OBJECT_FLOODLIGHT_ACTVITY" -> Just ObjectFloodlightActvity

7306+ "OBJECT_FLOODLIGHT_ACTVITY" -> Right ObjectFloodlightActvity

7307− "OBJECT_FLOODLIGHT_CONFIGURATION" -> Just ObjectFloodlightConfiguration

7307+ "OBJECT_FLOODLIGHT_CONFIGURATION" -> Right ObjectFloodlightConfiguration

7308− "OBJECT_INSTREAM_CREATIVE" -> Just ObjectInstreamCreative

7308+ "OBJECT_INSTREAM_CREATIVE" -> Right ObjectInstreamCreative

7309− "OBJECT_LANDING_PAGE" -> Just ObjectLandingPage

7309+ "OBJECT_LANDING_PAGE" -> Right ObjectLandingPage

7310− "OBJECT_MEDIA_ORDER" -> Just ObjectMediaOrder

7310+ "OBJECT_MEDIA_ORDER" -> Right ObjectMediaOrder

7311− "OBJECT_PLACEMENT" -> Just ObjectPlacement

7311+ "OBJECT_PLACEMENT" -> Right ObjectPlacement

7312− "OBJECT_PLACEMENT_STRATEGY" -> Just ObjectPlacementStrategy

7312+ "OBJECT_PLACEMENT_STRATEGY" -> Right ObjectPlacementStrategy

7313− "OBJECT_PLAYSTORE_LINK" -> Just ObjectPlaystoreLink

7313+ "OBJECT_PLAYSTORE_LINK" -> Right ObjectPlaystoreLink

7314− "OBJECT_PROVIDED_LIST_CLIENT" -> Just ObjectProvidedListClient

7314+ "OBJECT_PROVIDED_LIST_CLIENT" -> Right ObjectProvidedListClient

7315− "OBJECT_RATE_CARD" -> Just ObjectRateCard

7315+ "OBJECT_RATE_CARD" -> Right ObjectRateCard

7316− "OBJECT_REMARKETING_LIST" -> Just ObjectRemarketingList

7316+ "OBJECT_REMARKETING_LIST" -> Right ObjectRemarketingList

7317− "OBJECT_RICHMEDIA_CREATIVE" -> Just ObjectRichmediaCreative

7317+ "OBJECT_RICHMEDIA_CREATIVE" -> Right ObjectRichmediaCreative

7318− "OBJECT_SD_SITE" -> Just ObjectSdSite

7318+ "OBJECT_SD_SITE" -> Right ObjectSdSite

7319− "OBJECT_SIZE" -> Just ObjectSize

7319+ "OBJECT_SIZE" -> Right ObjectSize

7320− "OBJECT_SUBACCOUNT" -> Just ObjectSubAccount

7320+ "OBJECT_SUBACCOUNT" -> Right ObjectSubAccount

7321− "OBJECT_USER_PROFILE" -> Just ObjectUserProFile

7321+ "OBJECT_USER_PROFILE" -> Right ObjectUserProFile

7322− "OBJECT_USER_PROFILE_FILTER" -> Just ObjectUserProFileFilter

7322+ "OBJECT_USER_PROFILE_FILTER" -> Right ObjectUserProFileFilter

7323− "OBJECT_USER_ROLE" -> Just ObjectUserRole

7323+ "OBJECT_USER_ROLE" -> Right ObjectUserRole

7324− _ -> Nothing

7324+ x -> Left ("Unable to parse ChangeLogsListObjectType from: " <> x)

7325−

7325+

7326−instance ToText ChangeLogsListObjectType where

7326+instance ToHttpApiData ChangeLogsListObjectType where

7327− toText = \case

7327+ toQueryParam = \case

7328 ObjectAccount -> "OBJECT_ACCOUNT"

7329 ObjectAccountBillingFeature -> "OBJECT_ACCOUNT_BILLING_FEATURE"

7330 ObjectAd -> "OBJECT_AD"

@@ -7381,15 +7381,15 @@ data PricingCapCostType

7381

7382instance Hashable PricingCapCostType

7383

7384−instance FromText PricingCapCostType where

7384+instance FromHttpApiData PricingCapCostType where

7385− fromText = \case

7385+ parseQueryParam = \case

7386− "PLANNING_PLACEMENT_CAP_COST_TYPE_CUMULATIVE" -> Just PlanningPlacementCapCostTypeCumulative

7386+ "PLANNING_PLACEMENT_CAP_COST_TYPE_CUMULATIVE" -> Right PlanningPlacementCapCostTypeCumulative

7387− "PLANNING_PLACEMENT_CAP_COST_TYPE_MONTHLY" -> Just PlanningPlacementCapCostTypeMonthly

7387+ "PLANNING_PLACEMENT_CAP_COST_TYPE_MONTHLY" -> Right PlanningPlacementCapCostTypeMonthly

7388− "PLANNING_PLACEMENT_CAP_COST_TYPE_NONE" -> Just PlanningPlacementCapCostTypeNone

7388+ "PLANNING_PLACEMENT_CAP_COST_TYPE_NONE" -> Right PlanningPlacementCapCostTypeNone

7389− _ -> Nothing

7389+ x -> Left ("Unable to parse PricingCapCostType from: " <> x)

7390

7391−instance ToText PricingCapCostType where

7391+instance ToHttpApiData PricingCapCostType where

7392− toText = \case

7392+ toQueryParam = \case

7393 PlanningPlacementCapCostTypeCumulative -> "PLANNING_PLACEMENT_CAP_COST_TYPE_CUMULATIVE"

7394 PlanningPlacementCapCostTypeMonthly -> "PLANNING_PLACEMENT_CAP_COST_TYPE_MONTHLY"

7395 PlanningPlacementCapCostTypeNone -> "PLANNING_PLACEMENT_CAP_COST_TYPE_NONE"

@@ -7425,21 +7425,21 @@ data CreativeAssetDisplayType

7425

7426instance Hashable CreativeAssetDisplayType

7427

7428−instance FromText CreativeAssetDisplayType where

7428+instance FromHttpApiData CreativeAssetDisplayType where

7429− fromText = \case

7429+ parseQueryParam = \case

7430− "ASSET_DISPLAY_TYPE_EXPANDING" -> Just AssetDisplayTypeExpanding

7430+ "ASSET_DISPLAY_TYPE_EXPANDING" -> Right AssetDisplayTypeExpanding

7431− "ASSET_DISPLAY_TYPE_FLASH_IN_FLASH" -> Just AssetDisplayTypeFlashInFlash

7431+ "ASSET_DISPLAY_TYPE_FLASH_IN_FLASH" -> Right AssetDisplayTypeFlashInFlash

7432− "ASSET_DISPLAY_TYPE_FLASH_IN_FLASH_EXPANDING" -> Just AssetDisplayTypeFlashInFlashExpanding

7432+ "ASSET_DISPLAY_TYPE_FLASH_IN_FLASH_EXPANDING" -> Right AssetDisplayTypeFlashInFlashExpanding

7433− "ASSET_DISPLAY_TYPE_FLOATING" -> Just AssetDisplayTypeFloating

7433+ "ASSET_DISPLAY_TYPE_FLOATING" -> Right AssetDisplayTypeFloating

7434− "ASSET_DISPLAY_TYPE_INPAGE" -> Just AssetDisplayTypeInpage

7434+ "ASSET_DISPLAY_TYPE_INPAGE" -> Right AssetDisplayTypeInpage

7435− "ASSET_DISPLAY_TYPE_OVERLAY" -> Just AssetDisplayTypeOverlay

7435+ "ASSET_DISPLAY_TYPE_OVERLAY" -> Right AssetDisplayTypeOverlay

7436− "ASSET_DISPLAY_TYPE_PEEL_DOWN" -> Just AssetDisplayTypePeelDown

7436+ "ASSET_DISPLAY_TYPE_PEEL_DOWN" -> Right AssetDisplayTypePeelDown

7437− "ASSET_DISPLAY_TYPE_VPAID_LINEAR" -> Just AssetDisplayTypeVpaidLinear

7437+ "ASSET_DISPLAY_TYPE_VPAID_LINEAR" -> Right AssetDisplayTypeVpaidLinear

7438− "ASSET_DISPLAY_TYPE_VPAID_NON_LINEAR" -> Just AssetDisplayTypeVpaidNonLinear

7438+ "ASSET_DISPLAY_TYPE_VPAID_NON_LINEAR" -> Right AssetDisplayTypeVpaidNonLinear

7439− _ -> Nothing

7439+ x -> Left ("Unable to parse CreativeAssetDisplayType from: " <> x)

7440−

7440+

7441−instance ToText CreativeAssetDisplayType where

7441+instance ToHttpApiData CreativeAssetDisplayType where

7442− toText = \case

7442+ toQueryParam = \case

7443 AssetDisplayTypeExpanding -> "ASSET_DISPLAY_TYPE_EXPANDING"

7444 AssetDisplayTypeFlashInFlash -> "ASSET_DISPLAY_TYPE_FLASH_IN_FLASH"

7445 AssetDisplayTypeFlashInFlashExpanding -> "ASSET_DISPLAY_TYPE_FLASH_IN_FLASH_EXPANDING"

@@ -7473,17 +7473,17 @@ data FloodlightActivityCountingMethod

7473

7474instance Hashable FloodlightActivityCountingMethod

7475

7476−instance FromText FloodlightActivityCountingMethod where

7476+instance FromHttpApiData FloodlightActivityCountingMethod where

7477− fromText = \case

7477+ parseQueryParam = \case

7478− "ITEMS_SOLD_COUNTING" -> Just ItemsSoldCounting

7478+ "ITEMS_SOLD_COUNTING" -> Right ItemsSoldCounting

7479− "SESSION_COUNTING" -> Just SessionCounting

7479+ "SESSION_COUNTING" -> Right SessionCounting

7480− "STANDARD_COUNTING" -> Just StandardCounting

7480+ "STANDARD_COUNTING" -> Right StandardCounting

7481− "TRANSACTIONS_COUNTING" -> Just TransactionsCounting

7481+ "TRANSACTIONS_COUNTING" -> Right TransactionsCounting

7482− "UNIQUE_COUNTING" -> Just UniqueCounting

7482+ "UNIQUE_COUNTING" -> Right UniqueCounting

7483− _ -> Nothing

7483+ x -> Left ("Unable to parse FloodlightActivityCountingMethod from: " <> x)

7484−

7484+

7485−instance ToText FloodlightActivityCountingMethod where

7485+instance ToHttpApiData FloodlightActivityCountingMethod where

7486− toText = \case

7486+ toQueryParam = \case

7487 ItemsSoldCounting -> "ITEMS_SOLD_COUNTING"

7488 SessionCounting -> "SESSION_COUNTING"

7489 StandardCounting -> "STANDARD_COUNTING"

@@ -7506,14 +7506,14 @@ data ContentCategoriesListSortOrder

7506

7507instance Hashable ContentCategoriesListSortOrder

7508

7509−instance FromText ContentCategoriesListSortOrder where

7509+instance FromHttpApiData ContentCategoriesListSortOrder where

7510− fromText = \case

7510+ parseQueryParam = \case

7511− "ASCENDING" -> Just CCLSOAscending

7511+ "ASCENDING" -> Right CCLSOAscending

7512− "DESCENDING" -> Just CCLSODescending

7512+ "DESCENDING" -> Right CCLSODescending

7513− _ -> Nothing

7513+ x -> Left ("Unable to parse ContentCategoriesListSortOrder from: " <> x)

7514

7515−instance ToText ContentCategoriesListSortOrder where

7515+instance ToHttpApiData ContentCategoriesListSortOrder where

7516− toText = \case

7516+ toQueryParam = \case

7517 CCLSOAscending -> "ASCENDING"

7518 CCLSODescending -> "DESCENDING"

7519

@@ -7533,14 +7533,14 @@ data AdvertiserStatus

7533

7534instance Hashable AdvertiserStatus

7535

7536−instance FromText AdvertiserStatus where

7536+instance FromHttpApiData AdvertiserStatus where

7537− fromText = \case

7537+ parseQueryParam = \case

7538− "APPROVED" -> Just ASApproved

7538+ "APPROVED" -> Right ASApproved

7539− "ON_HOLD" -> Just ASOnHold

7539+ "ON_HOLD" -> Right ASOnHold

7540− _ -> Nothing

7540+ x -> Left ("Unable to parse AdvertiserStatus from: " <> x)

7541

7542−instance ToText AdvertiserStatus where

7542+instance ToHttpApiData AdvertiserStatus where

7543− toText = \case

7543+ toQueryParam = \case

7544 ASApproved -> "APPROVED"

7545 ASOnHold -> "ON_HOLD"

7546

gogol-dns/gen/Network/Google/DNS/Types/Sum.hs+13−13

@@ -26,13 +26,13 @@ data ChangesListSortBy

27instance Hashable ChangesListSortBy

29−instance FromText ChangesListSortBy where

29+instance FromHttpApiData ChangesListSortBy where

30− fromText = \case

30+ parseQueryParam = \case

31− "changeSequence" -> Just ChangeSequence

31+ "changeSequence" -> Right ChangeSequence

32− _ -> Nothing

32+ x -> Left ("Unable to parse ChangesListSortBy from: " <> x)

34−instance ToText ChangesListSortBy where

34+instance ToHttpApiData ChangesListSortBy where

35− toText = \case

35+ toQueryParam = \case

36 ChangeSequence -> "changeSequence"

38instance FromJSON ChangesListSortBy where

@@ -51,14 +51,14 @@ data ChangeStatus

52instance Hashable ChangeStatus

54−instance FromText ChangeStatus where

54+instance FromHttpApiData ChangeStatus where

55− fromText = \case

55+ parseQueryParam = \case

56− "done" -> Just Done

56+ "done" -> Right Done

57− "pending" -> Just Pending

57+ "pending" -> Right Pending

58− _ -> Nothing

58+ x -> Left ("Unable to parse ChangeStatus from: " <> x)

60−instance ToText ChangeStatus where

60+instance ToHttpApiData ChangeStatus where

61− toText = \case

61+ toQueryParam = \case

62 Done -> "done"

63 Pending -> "pending"

gogol-doubleclick-bids/gen/Network/Google/DoubleClickBids/Types/Sum.hs+640−640

@@ -30,15 +30,15 @@ data QueryMetadataFormat

31instance Hashable QueryMetadataFormat

33−instance FromText QueryMetadataFormat where

33+instance FromHttpApiData QueryMetadataFormat where

34− fromText = \case

34+ parseQueryParam = \case

35− "CSV" -> Just CSV

35+ "CSV" -> Right CSV

36− "EXCEL_CSV" -> Just ExcelCSV

36+ "EXCEL_CSV" -> Right ExcelCSV

37− "XLSX" -> Just Xlsx

37+ "XLSX" -> Right Xlsx

38− _ -> Nothing

38+ x -> Left ("Unable to parse QueryMetadataFormat from: " <> x)

39−

39+

40−instance ToText QueryMetadataFormat where

40+instance ToHttpApiData QueryMetadataFormat where

41− toText = \case

41+ toQueryParam = \case

42 CSV -> "CSV"

43 ExcelCSV -> "EXCEL_CSV"

44 Xlsx -> "XLSX"

@@ -115,42 +115,42 @@ data ParametersType

115

116instance Hashable ParametersType

117

118−instance FromText ParametersType where

118+instance FromHttpApiData ParametersType where

119− fromText = \case

119+ parseQueryParam = \case

120− "TYPE_ACTIVE_GRP" -> Just TypeActiveGrp

120+ "TYPE_ACTIVE_GRP" -> Right TypeActiveGrp

121− "TYPE_AUDIENCE_COMPOSITION" -> Just TypeAudienceComPosition

121+ "TYPE_AUDIENCE_COMPOSITION" -> Right TypeAudienceComPosition

122− "TYPE_AUDIENCE_PERFORMANCE" -> Just TypeAudiencePerformance

122+ "TYPE_AUDIENCE_PERFORMANCE" -> Right TypeAudiencePerformance

123− "TYPE_CLIENT_SAFE" -> Just TypeClientSafe

123+ "TYPE_CLIENT_SAFE" -> Right TypeClientSafe

124− "TYPE_COMSCORE_VCE" -> Just TypeComscoreVce

124+ "TYPE_COMSCORE_VCE" -> Right TypeComscoreVce

125− "TYPE_CROSS_FEE" -> Just TypeCrossFee

125+ "TYPE_CROSS_FEE" -> Right TypeCrossFee

126− "TYPE_CROSS_PARTNER" -> Just TypeCrossPartner

126+ "TYPE_CROSS_PARTNER" -> Right TypeCrossPartner

127− "TYPE_CROSS_PARTNER_THIRD_PARTY_DATA_PROVIDER" -> Just TypeCrossPartnerThirdPartyDataProvider

127+ "TYPE_CROSS_PARTNER_THIRD_PARTY_DATA_PROVIDER" -> Right TypeCrossPartnerThirdPartyDataProvider

128− "TYPE_ESTIMATED_CONVERSION" -> Just TypeEstimatedConversion

128+ "TYPE_ESTIMATED_CONVERSION" -> Right TypeEstimatedConversion

129− "TYPE_FEE" -> Just TypeFee

129+ "TYPE_FEE" -> Right TypeFee

130− "TYPE_GENERAL" -> Just TypeGeneral

130+ "TYPE_GENERAL" -> Right TypeGeneral

131− "TYPE_INVENTORY_AVAILABILITY" -> Just TypeInventoryAvailability

131+ "TYPE_INVENTORY_AVAILABILITY" -> Right TypeInventoryAvailability

132− "TYPE_KEYWORD" -> Just TypeKeyword

132+ "TYPE_KEYWORD" -> Right TypeKeyword

133− "TYPE_NIELSEN_AUDIENCE_PROFILE" -> Just TypeNielsenAudienceProFile

133+ "TYPE_NIELSEN_AUDIENCE_PROFILE" -> Right TypeNielsenAudienceProFile

134− "TYPE_NIELSEN_DAILY_REACH_BUILD" -> Just TypeNielsenDailyReachBuild

134+ "TYPE_NIELSEN_DAILY_REACH_BUILD" -> Right TypeNielsenDailyReachBuild

135− "TYPE_NIELSEN_ONLINE_GLOBAL_MARKET" -> Just TypeNielsenOnlineGlobalMarket

135+ "TYPE_NIELSEN_ONLINE_GLOBAL_MARKET" -> Right TypeNielsenOnlineGlobalMarket

136− "TYPE_NIELSEN_SITE" -> Just TypeNielsenSite

136+ "TYPE_NIELSEN_SITE" -> Right TypeNielsenSite

137− "TYPE_NOT_SUPPORTED" -> Just TypeNotSupported

137+ "TYPE_NOT_SUPPORTED" -> Right TypeNotSupported

138− "TYPE_ORDER_ID" -> Just TypeOrderId

138+ "TYPE_ORDER_ID" -> Right TypeOrderId

139− "TYPE_PAGE_CATEGORY" -> Just TypePageCategory

139+ "TYPE_PAGE_CATEGORY" -> Right TypePageCategory

140− "TYPE_PETRA_NIELSEN_AUDIENCE_PROFILE" -> Just TypePetraNielsenAudienceProFile

140+ "TYPE_PETRA_NIELSEN_AUDIENCE_PROFILE" -> Right TypePetraNielsenAudienceProFile

141− "TYPE_PETRA_NIELSEN_DAILY_REACH_BUILD" -> Just TypePetraNielsenDailyReachBuild

141+ "TYPE_PETRA_NIELSEN_DAILY_REACH_BUILD" -> Right TypePetraNielsenDailyReachBuild

142− "TYPE_PETRA_NIELSEN_ONLINE_GLOBAL_MARKET" -> Just TypePetraNielsenOnlineGlobalMarket

142+ "TYPE_PETRA_NIELSEN_ONLINE_GLOBAL_MARKET" -> Right TypePetraNielsenOnlineGlobalMarket

143− "TYPE_PIXEL_LOAD" -> Just TypePixelLoad

143+ "TYPE_PIXEL_LOAD" -> Right TypePixelLoad

144− "TYPE_REACH_AND_FREQUENCY" -> Just TypeReachAndFrequency

144+ "TYPE_REACH_AND_FREQUENCY" -> Right TypeReachAndFrequency

145− "TYPE_THIRD_PARTY_DATA_PROVIDER" -> Just TypeThirdPartyDataProvider

145+ "TYPE_THIRD_PARTY_DATA_PROVIDER" -> Right TypeThirdPartyDataProvider

146− "TYPE_TRUEVIEW" -> Just TypeTrueview

146+ "TYPE_TRUEVIEW" -> Right TypeTrueview

147− "TYPE_TRUEVIEW_IAR" -> Just TypeTrueviewIar

147+ "TYPE_TRUEVIEW_IAR" -> Right TypeTrueviewIar

148− "TYPE_VERIFICATION" -> Just TypeVerification

148+ "TYPE_VERIFICATION" -> Right TypeVerification

149− "TYPE_YOUTUBE_VERTICAL" -> Just TypeYouTubeVertical

149+ "TYPE_YOUTUBE_VERTICAL" -> Right TypeYouTubeVertical

150− _ -> Nothing

150+ x -> Left ("Unable to parse ParametersType from: " <> x)

151−

151+

152−instance ToText ParametersType where

152+instance ToHttpApiData ParametersType where

153− toText = \case

153+ toQueryParam = \case

154 TypeActiveGrp -> "TYPE_ACTIVE_GRP"

155 TypeAudienceComPosition -> "TYPE_AUDIENCE_COMPOSITION"

156 TypeAudiencePerformance -> "TYPE_AUDIENCE_PERFORMANCE"

@@ -200,15 +200,15 @@ data DownloadLineItemsRequestFilterType

200

201instance Hashable DownloadLineItemsRequestFilterType

202

203−instance FromText DownloadLineItemsRequestFilterType where

203+instance FromHttpApiData DownloadLineItemsRequestFilterType where

204− fromText = \case

204+ parseQueryParam = \case

205− "ADVERTISER_ID" -> Just AdvertiserId

205+ "ADVERTISER_ID" -> Right AdvertiserId

206− "INSERTION_ORDER_ID" -> Just InsertionOrderId

206+ "INSERTION_ORDER_ID" -> Right InsertionOrderId

207− "LINE_ITEM_ID" -> Just LineItemId

207+ "LINE_ITEM_ID" -> Right LineItemId

208− _ -> Nothing

208+ x -> Left ("Unable to parse DownloadLineItemsRequestFilterType from: " <> x)

209

210−instance ToText DownloadLineItemsRequestFilterType where

210+instance ToHttpApiData DownloadLineItemsRequestFilterType where

211− toText = \case

211+ toQueryParam = \case

212 AdvertiserId -> "ADVERTISER_ID"

213 InsertionOrderId -> "INSERTION_ORDER_ID"

214 LineItemId -> "LINE_ITEM_ID"

@@ -261,30 +261,30 @@ data QueryMetadataDataRange

261

262instance Hashable QueryMetadataDataRange

263

264−instance FromText QueryMetadataDataRange where

264+instance FromHttpApiData QueryMetadataDataRange where

265− fromText = \case

265+ parseQueryParam = \case

266− "ALL_TIME" -> Just AllTime

266+ "ALL_TIME" -> Right AllTime

267− "CURRENT_DAY" -> Just CurrentDay

267+ "CURRENT_DAY" -> Right CurrentDay

268− "CUSTOM_DATES" -> Just CustomDates

268+ "CUSTOM_DATES" -> Right CustomDates

269− "LAST_14_DAYS" -> Just Last14Days

269+ "LAST_14_DAYS" -> Right Last14Days

270− "LAST_30_DAYS" -> Just Last30Days

270+ "LAST_30_DAYS" -> Right Last30Days

271− "LAST_365_DAYS" -> Just Last365Days

271+ "LAST_365_DAYS" -> Right Last365Days

272− "LAST_7_DAYS" -> Just Last7Days

272+ "LAST_7_DAYS" -> Right Last7Days

273− "LAST_90_DAYS" -> Just Last90Days

273+ "LAST_90_DAYS" -> Right Last90Days

274− "MONTH_TO_DATE" -> Just MonthToDate

274+ "MONTH_TO_DATE" -> Right MonthToDate

275− "PREVIOUS_DAY" -> Just PreviousDay

275+ "PREVIOUS_DAY" -> Right PreviousDay

276− "PREVIOUS_HALF_MONTH" -> Just PreviousHalfMonth

276+ "PREVIOUS_HALF_MONTH" -> Right PreviousHalfMonth

277− "PREVIOUS_MONTH" -> Just PreviousMonth

277+ "PREVIOUS_MONTH" -> Right PreviousMonth

278− "PREVIOUS_QUARTER" -> Just PreviousQuarter

278+ "PREVIOUS_QUARTER" -> Right PreviousQuarter

279− "PREVIOUS_WEEK" -> Just PreviousWeek

279+ "PREVIOUS_WEEK" -> Right PreviousWeek

280− "PREVIOUS_YEAR" -> Just PreviousYear

280+ "PREVIOUS_YEAR" -> Right PreviousYear

281− "QUARTER_TO_DATE" -> Just QuarterToDate

281+ "QUARTER_TO_DATE" -> Right QuarterToDate

282− "WEEK_TO_DATE" -> Just WeekToDate

282+ "WEEK_TO_DATE" -> Right WeekToDate

283− "YEAR_TO_DATE" -> Just YearToDate

283+ "YEAR_TO_DATE" -> Right YearToDate

284− _ -> Nothing

284+ x -> Left ("Unable to parse QueryMetadataDataRange from: " <> x)

285−

285+

286−instance ToText QueryMetadataDataRange where

286+instance ToHttpApiData QueryMetadataDataRange where

287− toText = \case

287+ toQueryParam = \case

288 AllTime -> "ALL_TIME"

289 CurrentDay -> "CURRENT_DAY"

290 CustomDates -> "CUSTOM_DATES"

@@ -859,284 +859,284 @@ data ParametersMetricsItem

859

860instance Hashable ParametersMetricsItem

861

862−instance FromText ParametersMetricsItem where

862+instance FromHttpApiData ParametersMetricsItem where

863− fromText = \case

863+ parseQueryParam = \case

864− "METRIC_BID_REQUESTS" -> Just MetricBidRequests

864+ "METRIC_BID_REQUESTS" -> Right MetricBidRequests

865− "METRIC_BILLABLE_COST_ADVERTISER" -> Just MetricBillableCostAdvertiser

865+ "METRIC_BILLABLE_COST_ADVERTISER" -> Right MetricBillableCostAdvertiser

866− "METRIC_BILLABLE_COST_PARTNER" -> Just MetricBillableCostPartner

866+ "METRIC_BILLABLE_COST_PARTNER" -> Right MetricBillableCostPartner

867− "METRIC_BILLABLE_COST_USD" -> Just MetricBillableCostUsd

867+ "METRIC_BILLABLE_COST_USD" -> Right MetricBillableCostUsd

868− "METRIC_CLICKS" -> Just MetricClicks

868+ "METRIC_CLICKS" -> Right MetricClicks

869− "METRIC_CLICK_TO_POST_CLICK_CONVERSION_RATE" -> Just MetricClickToPostClickConversionRate

869+ "METRIC_CLICK_TO_POST_CLICK_CONVERSION_RATE" -> Right MetricClickToPostClickConversionRate

870− "METRIC_COMSCORE_VCE_AUDIENCE_AVG_FREQUENCY" -> Just MetricComscoreVceAudienceAvgFrequency

870+ "METRIC_COMSCORE_VCE_AUDIENCE_AVG_FREQUENCY" -> Right MetricComscoreVceAudienceAvgFrequency

871− "METRIC_COMSCORE_VCE_AUDIENCE_IMPRESSIONS" -> Just MetricComscoreVceAudienceImpressions

871+ "METRIC_COMSCORE_VCE_AUDIENCE_IMPRESSIONS" -> Right MetricComscoreVceAudienceImpressions

872− "METRIC_COMSCORE_VCE_AUDIENCE_IMPRESSIONS_SHARE" -> Just MetricComscoreVceAudienceImpressionsShare

872+ "METRIC_COMSCORE_VCE_AUDIENCE_IMPRESSIONS_SHARE" -> Right MetricComscoreVceAudienceImpressionsShare

873− "METRIC_COMSCORE_VCE_AUDIENCE_REACH_PCT" -> Just MetricComscoreVceAudienceReachPct

873+ "METRIC_COMSCORE_VCE_AUDIENCE_REACH_PCT" -> Right MetricComscoreVceAudienceReachPct

874− "METRIC_COMSCORE_VCE_AUDIENCE_SHARE_PCT" -> Just MetricComscoreVceAudienceSharePct

874+ "METRIC_COMSCORE_VCE_AUDIENCE_SHARE_PCT" -> Right MetricComscoreVceAudienceSharePct

875− "METRIC_COMSCORE_VCE_GROSS_RATING_POINTS" -> Just MetricComscoreVceGrossRatingPoints

875+ "METRIC_COMSCORE_VCE_GROSS_RATING_POINTS" -> Right MetricComscoreVceGrossRatingPoints

876− "METRIC_COMSCORE_VCE_POPULATION" -> Just MetricComscoreVcePopulation

876+ "METRIC_COMSCORE_VCE_POPULATION" -> Right MetricComscoreVcePopulation

877− "METRIC_COMSCORE_VCE_UNIQUE_AUDIENCE" -> Just MetricComscoreVceUniqueAudience

877+ "METRIC_COMSCORE_VCE_UNIQUE_AUDIENCE" -> Right MetricComscoreVceUniqueAudience

878− "METRIC_CONVERSIONS_PER_MILLE" -> Just MetricConversionsPerMille

878+ "METRIC_CONVERSIONS_PER_MILLE" -> Right MetricConversionsPerMille

879− "METRIC_CPM_FEE1_ADVERTISER" -> Just MetricCpmFEE1Advertiser

879+ "METRIC_CPM_FEE1_ADVERTISER" -> Right MetricCpmFEE1Advertiser

880− "METRIC_CPM_FEE1_PARTNER" -> Just MetricCpmFEE1Partner

880+ "METRIC_CPM_FEE1_PARTNER" -> Right MetricCpmFEE1Partner

881− "METRIC_CPM_FEE1_USD" -> Just MetricCpmFEE1Usd

881+ "METRIC_CPM_FEE1_USD" -> Right MetricCpmFEE1Usd

882− "METRIC_CPM_FEE2_ADVERTISER" -> Just MetricCpmFEE2Advertiser

882+ "METRIC_CPM_FEE2_ADVERTISER" -> Right MetricCpmFEE2Advertiser

883− "METRIC_CPM_FEE2_PARTNER" -> Just MetricCpmFEE2Partner

883+ "METRIC_CPM_FEE2_PARTNER" -> Right MetricCpmFEE2Partner

884− "METRIC_CPM_FEE2_USD" -> Just MetricCpmFEE2Usd

884+ "METRIC_CPM_FEE2_USD" -> Right MetricCpmFEE2Usd

885− "METRIC_CPM_FEE3_ADVERTISER" -> Just MetricCpmFEE3Advertiser

885+ "METRIC_CPM_FEE3_ADVERTISER" -> Right MetricCpmFEE3Advertiser

886− "METRIC_CPM_FEE3_PARTNER" -> Just MetricCpmFEE3Partner

886+ "METRIC_CPM_FEE3_PARTNER" -> Right MetricCpmFEE3Partner

887− "METRIC_CPM_FEE3_USD" -> Just MetricCpmFEE3Usd

887+ "METRIC_CPM_FEE3_USD" -> Right MetricCpmFEE3Usd

888− "METRIC_CPM_FEE4_ADVERTISER" -> Just MetricCpmFEE4Advertiser

888+ "METRIC_CPM_FEE4_ADVERTISER" -> Right MetricCpmFEE4Advertiser

889− "METRIC_CPM_FEE4_PARTNER" -> Just MetricCpmFEE4Partner

889+ "METRIC_CPM_FEE4_PARTNER" -> Right MetricCpmFEE4Partner

890− "METRIC_CPM_FEE4_USD" -> Just MetricCpmFEE4Usd

890+ "METRIC_CPM_FEE4_USD" -> Right MetricCpmFEE4Usd

891− "METRIC_CPM_FEE5_ADVERTISER" -> Just MetricCpmFEE5Advertiser

891+ "METRIC_CPM_FEE5_ADVERTISER" -> Right MetricCpmFEE5Advertiser

892− "METRIC_CPM_FEE5_PARTNER" -> Just MetricCpmFEE5Partner

892+ "METRIC_CPM_FEE5_PARTNER" -> Right MetricCpmFEE5Partner

893− "METRIC_CPM_FEE5_USD" -> Just MetricCpmFEE5Usd

893+ "METRIC_CPM_FEE5_USD" -> Right MetricCpmFEE5Usd

894− "METRIC_CTR" -> Just MetricCtr

894+ "METRIC_CTR" -> Right MetricCtr

895− "METRIC_DATA_COST_ADVERTISER" -> Just MetricDataCostAdvertiser

895+ "METRIC_DATA_COST_ADVERTISER" -> Right MetricDataCostAdvertiser

896− "METRIC_DATA_COST_PARTNER" -> Just MetricDataCostPartner

896+ "METRIC_DATA_COST_PARTNER" -> Right MetricDataCostPartner

897− "METRIC_DATA_COST_USD" -> Just MetricDataCostUsd

897+ "METRIC_DATA_COST_USD" -> Right MetricDataCostUsd

898− "METRIC_FEE10_ADVERTISER" -> Just MetricFEE10Advertiser

898+ "METRIC_FEE10_ADVERTISER" -> Right MetricFEE10Advertiser

899− "METRIC_FEE10_PARTNER" -> Just MetricFEE10Partner

899+ "METRIC_FEE10_PARTNER" -> Right MetricFEE10Partner

900− "METRIC_FEE10_USD" -> Just MetricFEE10Usd

900+ "METRIC_FEE10_USD" -> Right MetricFEE10Usd

901− "METRIC_FEE11_ADVERTISER" -> Just MetricFEE11Advertiser

901+ "METRIC_FEE11_ADVERTISER" -> Right MetricFEE11Advertiser

902− "METRIC_FEE11_PARTNER" -> Just MetricFEE11Partner

902+ "METRIC_FEE11_PARTNER" -> Right MetricFEE11Partner

903− "METRIC_FEE11_USD" -> Just MetricFEE11Usd

903+ "METRIC_FEE11_USD" -> Right MetricFEE11Usd

904− "METRIC_FEE12_ADVERTISER" -> Just MetricFEE12Advertiser

904+ "METRIC_FEE12_ADVERTISER" -> Right MetricFEE12Advertiser

905− "METRIC_FEE12_PARTNER" -> Just MetricFEE12Partner

905+ "METRIC_FEE12_PARTNER" -> Right MetricFEE12Partner

906− "METRIC_FEE12_USD" -> Just MetricFEE12Usd

906+ "METRIC_FEE12_USD" -> Right MetricFEE12Usd

907− "METRIC_FEE13_ADVERTISER" -> Just MetricFEE13Advertiser

907+ "METRIC_FEE13_ADVERTISER" -> Right MetricFEE13Advertiser

908− "METRIC_FEE13_PARTNER" -> Just MetricFEE13Partner

908+ "METRIC_FEE13_PARTNER" -> Right MetricFEE13Partner

909− "METRIC_FEE13_USD" -> Just MetricFEE13Usd

909+ "METRIC_FEE13_USD" -> Right MetricFEE13Usd

910− "METRIC_FEE14_ADVERTISER" -> Just MetricFEE14Advertiser

910+ "METRIC_FEE14_ADVERTISER" -> Right MetricFEE14Advertiser

911− "METRIC_FEE14_PARTNER" -> Just MetricFEE14Partner

911+ "METRIC_FEE14_PARTNER" -> Right MetricFEE14Partner

912− "METRIC_FEE14_USD" -> Just MetricFEE14Usd

912+ "METRIC_FEE14_USD" -> Right MetricFEE14Usd

913− "METRIC_FEE15_ADVERTISER" -> Just MetricFEE15Advertiser

913+ "METRIC_FEE15_ADVERTISER" -> Right MetricFEE15Advertiser

914− "METRIC_FEE15_PARTNER" -> Just MetricFEE15Partner

914+ "METRIC_FEE15_PARTNER" -> Right MetricFEE15Partner

915− "METRIC_FEE15_USD" -> Just MetricFEE15Usd

915+ "METRIC_FEE15_USD" -> Right MetricFEE15Usd

916− "METRIC_FEE16_ADVERTISER" -> Just MetricFEE16Advertiser

916+ "METRIC_FEE16_ADVERTISER" -> Right MetricFEE16Advertiser

917− "METRIC_FEE16_PARTNER" -> Just MetricFEE16Partner

917+ "METRIC_FEE16_PARTNER" -> Right MetricFEE16Partner

918− "METRIC_FEE16_USD" -> Just MetricFEE16Usd

918+ "METRIC_FEE16_USD" -> Right MetricFEE16Usd

919− "METRIC_FEE17_ADVERTISER" -> Just MetricFEE17Advertiser

919+ "METRIC_FEE17_ADVERTISER" -> Right MetricFEE17Advertiser

920− "METRIC_FEE17_PARTNER" -> Just MetricFEE17Partner

920+ "METRIC_FEE17_PARTNER" -> Right MetricFEE17Partner

921− "METRIC_FEE17_USD" -> Just MetricFEE17Usd

921+ "METRIC_FEE17_USD" -> Right MetricFEE17Usd

922− "METRIC_FEE18_ADVERTISER" -> Just MetricFEE18Advertiser

922+ "METRIC_FEE18_ADVERTISER" -> Right MetricFEE18Advertiser

923− "METRIC_FEE18_PARTNER" -> Just MetricFEE18Partner

923+ "METRIC_FEE18_PARTNER" -> Right MetricFEE18Partner

924− "METRIC_FEE18_USD" -> Just MetricFEE18Usd

924+ "METRIC_FEE18_USD" -> Right MetricFEE18Usd

925− "METRIC_FEE19_ADVERTISER" -> Just MetricFEE19Advertiser

925+ "METRIC_FEE19_ADVERTISER" -> Right MetricFEE19Advertiser

926− "METRIC_FEE19_PARTNER" -> Just MetricFEE19Partner

926+ "METRIC_FEE19_PARTNER" -> Right MetricFEE19Partner

927− "METRIC_FEE19_USD" -> Just MetricFEE19Usd

927+ "METRIC_FEE19_USD" -> Right MetricFEE19Usd

928− "METRIC_FEE20_ADVERTISER" -> Just MetricFEE20Advertiser

928+ "METRIC_FEE20_ADVERTISER" -> Right MetricFEE20Advertiser

929− "METRIC_FEE20_PARTNER" -> Just MetricFEE20Partner

929+ "METRIC_FEE20_PARTNER" -> Right MetricFEE20Partner

930− "METRIC_FEE20_USD" -> Just MetricFEE20Usd

930+ "METRIC_FEE20_USD" -> Right MetricFEE20Usd

931− "METRIC_FEE21_ADVERTISER" -> Just MetricFEE21Advertiser

931+ "METRIC_FEE21_ADVERTISER" -> Right MetricFEE21Advertiser

932− "METRIC_FEE21_PARTNER" -> Just MetricFEE21Partner

932+ "METRIC_FEE21_PARTNER" -> Right MetricFEE21Partner

933− "METRIC_FEE21_USD" -> Just MetricFEE21Usd

933+ "METRIC_FEE21_USD" -> Right MetricFEE21Usd

934− "METRIC_FEE22_ADVERTISER" -> Just MetricFEE22Advertiser

934+ "METRIC_FEE22_ADVERTISER" -> Right MetricFEE22Advertiser

935− "METRIC_FEE22_PARTNER" -> Just MetricFEE22Partner

935+ "METRIC_FEE22_PARTNER" -> Right MetricFEE22Partner

936− "METRIC_FEE22_USD" -> Just MetricFEE22Usd

936+ "METRIC_FEE22_USD" -> Right MetricFEE22Usd

937− "METRIC_FEE2_ADVERTISER" -> Just MetricFEE2Advertiser

937+ "METRIC_FEE2_ADVERTISER" -> Right MetricFEE2Advertiser

938− "METRIC_FEE2_PARTNER" -> Just MetricFEE2Partner

938+ "METRIC_FEE2_PARTNER" -> Right MetricFEE2Partner

939− "METRIC_FEE2_USD" -> Just MetricFEE2Usd

939+ "METRIC_FEE2_USD" -> Right MetricFEE2Usd

940− "METRIC_FEE3_ADVERTISER" -> Just MetricFEE3Advertiser

940+ "METRIC_FEE3_ADVERTISER" -> Right MetricFEE3Advertiser

941− "METRIC_FEE3_PARTNER" -> Just MetricFEE3Partner

941+ "METRIC_FEE3_PARTNER" -> Right MetricFEE3Partner

942− "METRIC_FEE3_USD" -> Just MetricFEE3Usd

942+ "METRIC_FEE3_USD" -> Right MetricFEE3Usd

943− "METRIC_FEE4_ADVERTISER" -> Just MetricFEE4Advertiser

943+ "METRIC_FEE4_ADVERTISER" -> Right MetricFEE4Advertiser

944− "METRIC_FEE4_PARTNER" -> Just MetricFEE4Partner

944+ "METRIC_FEE4_PARTNER" -> Right MetricFEE4Partner

945− "METRIC_FEE4_USD" -> Just MetricFEE4Usd

945+ "METRIC_FEE4_USD" -> Right MetricFEE4Usd

946− "METRIC_FEE5_ADVERTISER" -> Just MetricFEE5Advertiser

946+ "METRIC_FEE5_ADVERTISER" -> Right MetricFEE5Advertiser

947− "METRIC_FEE5_PARTNER" -> Just MetricFEE5Partner

947+ "METRIC_FEE5_PARTNER" -> Right MetricFEE5Partner

948− "METRIC_FEE5_USD" -> Just MetricFEE5Usd

948+ "METRIC_FEE5_USD" -> Right MetricFEE5Usd

949− "METRIC_FEE6_ADVERTISER" -> Just MetricFEE6Advertiser

949+ "METRIC_FEE6_ADVERTISER" -> Right MetricFEE6Advertiser

950− "METRIC_FEE6_PARTNER" -> Just MetricFEE6Partner

950+ "METRIC_FEE6_PARTNER" -> Right MetricFEE6Partner

951− "METRIC_FEE6_USD" -> Just MetricFEE6Usd

951+ "METRIC_FEE6_USD" -> Right MetricFEE6Usd

952− "METRIC_FEE7_ADVERTISER" -> Just MetricFEE7Advertiser

952+ "METRIC_FEE7_ADVERTISER" -> Right MetricFEE7Advertiser

953− "METRIC_FEE7_PARTNER" -> Just MetricFEE7Partner

953+ "METRIC_FEE7_PARTNER" -> Right MetricFEE7Partner

954− "METRIC_FEE7_USD" -> Just MetricFEE7Usd

954+ "METRIC_FEE7_USD" -> Right MetricFEE7Usd

955− "METRIC_FEE8_ADVERTISER" -> Just MetricFEE8Advertiser

955+ "METRIC_FEE8_ADVERTISER" -> Right MetricFEE8Advertiser

956− "METRIC_FEE8_PARTNER" -> Just MetricFEE8Partner

956+ "METRIC_FEE8_PARTNER" -> Right MetricFEE8Partner

957− "METRIC_FEE8_USD" -> Just MetricFEE8Usd

957+ "METRIC_FEE8_USD" -> Right MetricFEE8Usd

958− "METRIC_FEE9_ADVERTISER" -> Just MetricFEE9Advertiser

958+ "METRIC_FEE9_ADVERTISER" -> Right MetricFEE9Advertiser

959− "METRIC_FEE9_PARTNER" -> Just MetricFEE9Partner

959+ "METRIC_FEE9_PARTNER" -> Right MetricFEE9Partner

960− "METRIC_FEE9_USD" -> Just MetricFEE9Usd

960+ "METRIC_FEE9_USD" -> Right MetricFEE9Usd

961− "METRIC_IMPRESSIONS" -> Just MetricImpressions

961+ "METRIC_IMPRESSIONS" -> Right MetricImpressions

962− "METRIC_IMPRESSIONS_TO_CONVERSION_RATE" -> Just MetricImpressionsToConversionRate

962+ "METRIC_IMPRESSIONS_TO_CONVERSION_RATE" -> Right MetricImpressionsToConversionRate

963− "METRIC_LAST_CLICKS" -> Just MetricLastClicks

963+ "METRIC_LAST_CLICKS" -> Right MetricLastClicks

964− "METRIC_LAST_IMPRESSIONS" -> Just MetricLastImpressions

964+ "METRIC_LAST_IMPRESSIONS" -> Right MetricLastImpressions

965− "METRIC_MEDIA_COST_ADVERTISER" -> Just MetricMediaCostAdvertiser

965+ "METRIC_MEDIA_COST_ADVERTISER" -> Right MetricMediaCostAdvertiser

966− "METRIC_MEDIA_COST_ECPAPC_ADVERTISER" -> Just MetricMediaCostEcpapcAdvertiser

966+ "METRIC_MEDIA_COST_ECPAPC_ADVERTISER" -> Right MetricMediaCostEcpapcAdvertiser

967− "METRIC_MEDIA_COST_ECPAPC_PARTNER" -> Just MetricMediaCostEcpapcPartner

967+ "METRIC_MEDIA_COST_ECPAPC_PARTNER" -> Right MetricMediaCostEcpapcPartner

968− "METRIC_MEDIA_COST_ECPAPC_USD" -> Just MetricMediaCostEcpapcUsd

968+ "METRIC_MEDIA_COST_ECPAPC_USD" -> Right MetricMediaCostEcpapcUsd

969− "METRIC_MEDIA_COST_ECPAPV_ADVERTISER" -> Just MetricMediaCostEcpapvAdvertiser

969+ "METRIC_MEDIA_COST_ECPAPV_ADVERTISER" -> Right MetricMediaCostEcpapvAdvertiser

970− "METRIC_MEDIA_COST_ECPAPV_PARTNER" -> Just MetricMediaCostEcpapvPartner

970+ "METRIC_MEDIA_COST_ECPAPV_PARTNER" -> Right MetricMediaCostEcpapvPartner

971− "METRIC_MEDIA_COST_ECPAPV_USD" -> Just MetricMediaCostEcpapvUsd

971+ "METRIC_MEDIA_COST_ECPAPV_USD" -> Right MetricMediaCostEcpapvUsd

972− "METRIC_MEDIA_COST_ECPA_ADVERTISER" -> Just MetricMediaCostEcpaAdvertiser

972+ "METRIC_MEDIA_COST_ECPA_ADVERTISER" -> Right MetricMediaCostEcpaAdvertiser

973− "METRIC_MEDIA_COST_ECPA_PARTNER" -> Just MetricMediaCostEcpaPartner

973+ "METRIC_MEDIA_COST_ECPA_PARTNER" -> Right MetricMediaCostEcpaPartner

974− "METRIC_MEDIA_COST_ECPA_USD" -> Just MetricMediaCostEcpaUsd

974+ "METRIC_MEDIA_COST_ECPA_USD" -> Right MetricMediaCostEcpaUsd

975− "METRIC_MEDIA_COST_ECPCV_ADVERTISER" -> Just MetricMediaCostEcpcvAdvertiser

975+ "METRIC_MEDIA_COST_ECPCV_ADVERTISER" -> Right MetricMediaCostEcpcvAdvertiser

976− "METRIC_MEDIA_COST_ECPCV_PARTNER" -> Just MetricMediaCostEcpcvPartner

976+ "METRIC_MEDIA_COST_ECPCV_PARTNER" -> Right MetricMediaCostEcpcvPartner

977− "METRIC_MEDIA_COST_ECPCV_USD" -> Just MetricMediaCostEcpcvUsd

977+ "METRIC_MEDIA_COST_ECPCV_USD" -> Right MetricMediaCostEcpcvUsd

978− "METRIC_MEDIA_COST_ECPC_ADVERTISER" -> Just MetricMediaCostEcpcAdvertiser

978+ "METRIC_MEDIA_COST_ECPC_ADVERTISER" -> Right MetricMediaCostEcpcAdvertiser

979− "METRIC_MEDIA_COST_ECPC_PARTNER" -> Just MetricMediaCostEcpcPartner

979+ "METRIC_MEDIA_COST_ECPC_PARTNER" -> Right MetricMediaCostEcpcPartner

980− "METRIC_MEDIA_COST_ECPC_USD" -> Just MetricMediaCostEcpcUsd

980+ "METRIC_MEDIA_COST_ECPC_USD" -> Right MetricMediaCostEcpcUsd

981− "METRIC_MEDIA_COST_ECPM_ADVERTISER" -> Just MetricMediaCostEcpmAdvertiser

981+ "METRIC_MEDIA_COST_ECPM_ADVERTISER" -> Right MetricMediaCostEcpmAdvertiser

982− "METRIC_MEDIA_COST_ECPM_PARTNER" -> Just MetricMediaCostEcpmPartner

982+ "METRIC_MEDIA_COST_ECPM_PARTNER" -> Right MetricMediaCostEcpmPartner

983− "METRIC_MEDIA_COST_ECPM_USD" -> Just MetricMediaCostEcpmUsd

983+ "METRIC_MEDIA_COST_ECPM_USD" -> Right MetricMediaCostEcpmUsd

984− "METRIC_MEDIA_COST_PARTNER" -> Just MetricMediaCostPartner

984+ "METRIC_MEDIA_COST_PARTNER" -> Right MetricMediaCostPartner

985− "METRIC_MEDIA_COST_USD" -> Just MetricMediaCostUsd

985+ "METRIC_MEDIA_COST_USD" -> Right MetricMediaCostUsd

986− "METRIC_MEDIA_COST_VIEWABLE_ECPM_ADVERTISER" -> Just MetricMediaCostViewableEcpmAdvertiser

986+ "METRIC_MEDIA_COST_VIEWABLE_ECPM_ADVERTISER" -> Right MetricMediaCostViewableEcpmAdvertiser

987− "METRIC_MEDIA_COST_VIEWABLE_ECPM_PARTNER" -> Just MetricMediaCostViewableEcpmPartner

987+ "METRIC_MEDIA_COST_VIEWABLE_ECPM_PARTNER" -> Right MetricMediaCostViewableEcpmPartner

988− "METRIC_MEDIA_COST_VIEWABLE_ECPM_USD" -> Just MetricMediaCostViewableEcpmUsd

988+ "METRIC_MEDIA_COST_VIEWABLE_ECPM_USD" -> Right MetricMediaCostViewableEcpmUsd

989− "METRIC_MEDIA_FEE1_ADVERTISER" -> Just MetricMediaFEE1Advertiser

989+ "METRIC_MEDIA_FEE1_ADVERTISER" -> Right MetricMediaFEE1Advertiser

990− "METRIC_MEDIA_FEE1_PARTNER" -> Just MetricMediaFEE1Partner

990+ "METRIC_MEDIA_FEE1_PARTNER" -> Right MetricMediaFEE1Partner

991− "METRIC_MEDIA_FEE1_USD" -> Just MetricMediaFEE1Usd

991+ "METRIC_MEDIA_FEE1_USD" -> Right MetricMediaFEE1Usd

992− "METRIC_MEDIA_FEE2_ADVERTISER" -> Just MetricMediaFEE2Advertiser

992+ "METRIC_MEDIA_FEE2_ADVERTISER" -> Right MetricMediaFEE2Advertiser

993− "METRIC_MEDIA_FEE2_PARTNER" -> Just MetricMediaFEE2Partner

993+ "METRIC_MEDIA_FEE2_PARTNER" -> Right MetricMediaFEE2Partner

994− "METRIC_MEDIA_FEE2_USD" -> Just MetricMediaFEE2Usd

994+ "METRIC_MEDIA_FEE2_USD" -> Right MetricMediaFEE2Usd

995− "METRIC_MEDIA_FEE3_ADVERTISER" -> Just MetricMediaFEE3Advertiser

995+ "METRIC_MEDIA_FEE3_ADVERTISER" -> Right MetricMediaFEE3Advertiser

996− "METRIC_MEDIA_FEE3_PARTNER" -> Just MetricMediaFEE3Partner

996+ "METRIC_MEDIA_FEE3_PARTNER" -> Right MetricMediaFEE3Partner

997− "METRIC_MEDIA_FEE3_USD" -> Just MetricMediaFEE3Usd

997+ "METRIC_MEDIA_FEE3_USD" -> Right MetricMediaFEE3Usd

998− "METRIC_MEDIA_FEE4_ADVERTISER" -> Just MetricMediaFEE4Advertiser

998+ "METRIC_MEDIA_FEE4_ADVERTISER" -> Right MetricMediaFEE4Advertiser

999− "METRIC_MEDIA_FEE4_PARTNER" -> Just MetricMediaFEE4Partner

999+ "METRIC_MEDIA_FEE4_PARTNER" -> Right MetricMediaFEE4Partner

1000− "METRIC_MEDIA_FEE4_USD" -> Just MetricMediaFEE4Usd

1000+ "METRIC_MEDIA_FEE4_USD" -> Right MetricMediaFEE4Usd

1001− "METRIC_MEDIA_FEE5_ADVERTISER" -> Just MetricMediaFEE5Advertiser

1001+ "METRIC_MEDIA_FEE5_ADVERTISER" -> Right MetricMediaFEE5Advertiser

1002− "METRIC_MEDIA_FEE5_PARTNER" -> Just MetricMediaFEE5Partner

1002+ "METRIC_MEDIA_FEE5_PARTNER" -> Right MetricMediaFEE5Partner

1003− "METRIC_MEDIA_FEE5_USD" -> Just MetricMediaFEE5Usd

1003+ "METRIC_MEDIA_FEE5_USD" -> Right MetricMediaFEE5Usd

1004− "METRIC_PIXEL_LOADS" -> Just MetricPixelLoads

1004+ "METRIC_PIXEL_LOADS" -> Right MetricPixelLoads

1005− "METRIC_PLATFORM_FEE_ADVERTISER" -> Just MetricPlatformFeeAdvertiser

1005+ "METRIC_PLATFORM_FEE_ADVERTISER" -> Right MetricPlatformFeeAdvertiser

1006− "METRIC_PLATFORM_FEE_PARTNER" -> Just MetricPlatformFeePartner

1006+ "METRIC_PLATFORM_FEE_PARTNER" -> Right MetricPlatformFeePartner

1007− "METRIC_PLATFORM_FEE_USD" -> Just MetricPlatformFeeUsd

1007+ "METRIC_PLATFORM_FEE_USD" -> Right MetricPlatformFeeUsd

1008− "METRIC_POST_CLICK_DFA_REVENUE" -> Just MetricPostClickDfaRevenue

1008+ "METRIC_POST_CLICK_DFA_REVENUE" -> Right MetricPostClickDfaRevenue

1009− "METRIC_POST_VIEW_DFA_REVENUE" -> Just MetricPostViewDfaRevenue

1009+ "METRIC_POST_VIEW_DFA_REVENUE" -> Right MetricPostViewDfaRevenue

1010− "METRIC_PROFIT_ADVERTISER" -> Just MetricProfitAdvertiser

1010+ "METRIC_PROFIT_ADVERTISER" -> Right MetricProfitAdvertiser

1011− "METRIC_PROFIT_ECPAPC_ADVERTISER" -> Just MetricProfitEcpapcAdvertiser

1011+ "METRIC_PROFIT_ECPAPC_ADVERTISER" -> Right MetricProfitEcpapcAdvertiser

1012− "METRIC_PROFIT_ECPAPC_PARTNER" -> Just MetricProfitEcpapcPartner

1012+ "METRIC_PROFIT_ECPAPC_PARTNER" -> Right MetricProfitEcpapcPartner

1013− "METRIC_PROFIT_ECPAPC_USD" -> Just MetricProfitEcpapcUsd

1013+ "METRIC_PROFIT_ECPAPC_USD" -> Right MetricProfitEcpapcUsd

1014− "METRIC_PROFIT_ECPAPV_ADVERTISER" -> Just MetricProfitEcpapvAdvertiser

1014+ "METRIC_PROFIT_ECPAPV_ADVERTISER" -> Right MetricProfitEcpapvAdvertiser

1015− "METRIC_PROFIT_ECPAPV_PARTNER" -> Just MetricProfitEcpapvPartner

1015+ "METRIC_PROFIT_ECPAPV_PARTNER" -> Right MetricProfitEcpapvPartner

1016− "METRIC_PROFIT_ECPAPV_USD" -> Just MetricProfitEcpapvUsd

1016+ "METRIC_PROFIT_ECPAPV_USD" -> Right MetricProfitEcpapvUsd

1017− "METRIC_PROFIT_ECPA_ADVERTISER" -> Just MetricProfitEcpaAdvertiser

1017+ "METRIC_PROFIT_ECPA_ADVERTISER" -> Right MetricProfitEcpaAdvertiser

1018− "METRIC_PROFIT_ECPA_PARTNER" -> Just MetricProfitEcpaPartner

1018+ "METRIC_PROFIT_ECPA_PARTNER" -> Right MetricProfitEcpaPartner

1019− "METRIC_PROFIT_ECPA_USD" -> Just MetricProfitEcpaUsd

1019+ "METRIC_PROFIT_ECPA_USD" -> Right MetricProfitEcpaUsd

1020− "METRIC_PROFIT_ECPC_ADVERTISER" -> Just MetricProfitEcpcAdvertiser

1020+ "METRIC_PROFIT_ECPC_ADVERTISER" -> Right MetricProfitEcpcAdvertiser

1021− "METRIC_PROFIT_ECPC_PARTNER" -> Just MetricProfitEcpcPartner

1021+ "METRIC_PROFIT_ECPC_PARTNER" -> Right MetricProfitEcpcPartner

1022− "METRIC_PROFIT_ECPC_USD" -> Just MetricProfitEcpcUsd

1022+ "METRIC_PROFIT_ECPC_USD" -> Right MetricProfitEcpcUsd

1023− "METRIC_PROFIT_ECPM_ADVERTISER" -> Just MetricProfitEcpmAdvertiser

1023+ "METRIC_PROFIT_ECPM_ADVERTISER" -> Right MetricProfitEcpmAdvertiser

1024− "METRIC_PROFIT_ECPM_PARTNER" -> Just MetricProfitEcpmPartner

1024+ "METRIC_PROFIT_ECPM_PARTNER" -> Right MetricProfitEcpmPartner

1025− "METRIC_PROFIT_ECPM_USD" -> Just MetricProfitEcpmUsd

1025+ "METRIC_PROFIT_ECPM_USD" -> Right MetricProfitEcpmUsd

1026− "METRIC_PROFIT_MARGIN" -> Just MetricProfitMargin

1026+ "METRIC_PROFIT_MARGIN" -> Right MetricProfitMargin

1027− "METRIC_PROFIT_PARTNER" -> Just MetricProfitPartner

1027+ "METRIC_PROFIT_PARTNER" -> Right MetricProfitPartner

1028− "METRIC_PROFIT_USD" -> Just MetricProfitUsd

1028+ "METRIC_PROFIT_USD" -> Right MetricProfitUsd

1029− "METRIC_PROFIT_VIEWABLE_ECPM_ADVERTISER" -> Just MetricProfitViewableEcpmAdvertiser

1029+ "METRIC_PROFIT_VIEWABLE_ECPM_ADVERTISER" -> Right MetricProfitViewableEcpmAdvertiser

1030− "METRIC_PROFIT_VIEWABLE_ECPM_PARTNER" -> Just MetricProfitViewableEcpmPartner

1030+ "METRIC_PROFIT_VIEWABLE_ECPM_PARTNER" -> Right MetricProfitViewableEcpmPartner

1031− "METRIC_PROFIT_VIEWABLE_ECPM_USD" -> Just MetricProfitViewableEcpmUsd

1031+ "METRIC_PROFIT_VIEWABLE_ECPM_USD" -> Right MetricProfitViewableEcpmUsd

1032− "METRIC_REVENUE_ADVERTISER" -> Just MetricRevenueAdvertiser

1032+ "METRIC_REVENUE_ADVERTISER" -> Right MetricRevenueAdvertiser

1033− "METRIC_REVENUE_ECPAPC_ADVERTISER" -> Just MetricRevenueEcpapcAdvertiser

1033+ "METRIC_REVENUE_ECPAPC_ADVERTISER" -> Right MetricRevenueEcpapcAdvertiser

1034− "METRIC_REVENUE_ECPAPC_PARTNER" -> Just MetricRevenueEcpapcPartner

1034+ "METRIC_REVENUE_ECPAPC_PARTNER" -> Right MetricRevenueEcpapcPartner

1035− "METRIC_REVENUE_ECPAPC_USD" -> Just MetricRevenueEcpapcUsd

1035+ "METRIC_REVENUE_ECPAPC_USD" -> Right MetricRevenueEcpapcUsd

1036− "METRIC_REVENUE_ECPAPV_ADVERTISER" -> Just MetricRevenueEcpapvAdvertiser

1036+ "METRIC_REVENUE_ECPAPV_ADVERTISER" -> Right MetricRevenueEcpapvAdvertiser

1037− "METRIC_REVENUE_ECPAPV_PARTNER" -> Just MetricRevenueEcpapvPartner

1037+ "METRIC_REVENUE_ECPAPV_PARTNER" -> Right MetricRevenueEcpapvPartner

1038− "METRIC_REVENUE_ECPAPV_USD" -> Just MetricRevenueEcpapvUsd

1038+ "METRIC_REVENUE_ECPAPV_USD" -> Right MetricRevenueEcpapvUsd

1039− "METRIC_REVENUE_ECPA_ADVERTISER" -> Just MetricRevenueEcpaAdvertiser

1039+ "METRIC_REVENUE_ECPA_ADVERTISER" -> Right MetricRevenueEcpaAdvertiser

1040− "METRIC_REVENUE_ECPA_PARTNER" -> Just MetricRevenueEcpaPartner

1040+ "METRIC_REVENUE_ECPA_PARTNER" -> Right MetricRevenueEcpaPartner

1041− "METRIC_REVENUE_ECPA_USD" -> Just MetricRevenueEcpaUsd

1041+ "METRIC_REVENUE_ECPA_USD" -> Right MetricRevenueEcpaUsd

1042− "METRIC_REVENUE_ECPCV_ADVERTISER" -> Just MetricRevenueEcpcvAdvertiser

1042+ "METRIC_REVENUE_ECPCV_ADVERTISER" -> Right MetricRevenueEcpcvAdvertiser

1043− "METRIC_REVENUE_ECPCV_PARTNER" -> Just MetricRevenueEcpcvPartner

1043+ "METRIC_REVENUE_ECPCV_PARTNER" -> Right MetricRevenueEcpcvPartner

1044− "METRIC_REVENUE_ECPCV_USD" -> Just MetricRevenueEcpcvUsd

1044+ "METRIC_REVENUE_ECPCV_USD" -> Right MetricRevenueEcpcvUsd

1045− "METRIC_REVENUE_ECPC_ADVERTISER" -> Just MetricRevenueEcpcAdvertiser

1045+ "METRIC_REVENUE_ECPC_ADVERTISER" -> Right MetricRevenueEcpcAdvertiser

1046− "METRIC_REVENUE_ECPC_PARTNER" -> Just MetricRevenueEcpcPartner

1046+ "METRIC_REVENUE_ECPC_PARTNER" -> Right MetricRevenueEcpcPartner

1047− "METRIC_REVENUE_ECPC_USD" -> Just MetricRevenueEcpcUsd

1047+ "METRIC_REVENUE_ECPC_USD" -> Right MetricRevenueEcpcUsd

1048− "METRIC_REVENUE_ECPM_ADVERTISER" -> Just MetricRevenueEcpmAdvertiser

1048+ "METRIC_REVENUE_ECPM_ADVERTISER" -> Right MetricRevenueEcpmAdvertiser

1049− "METRIC_REVENUE_ECPM_PARTNER" -> Just MetricRevenueEcpmPartner

1049+ "METRIC_REVENUE_ECPM_PARTNER" -> Right MetricRevenueEcpmPartner

1050− "METRIC_REVENUE_ECPM_USD" -> Just MetricRevenueEcpmUsd

1050+ "METRIC_REVENUE_ECPM_USD" -> Right MetricRevenueEcpmUsd

1051− "METRIC_REVENUE_PARTNER" -> Just MetricRevenuePartner

1051+ "METRIC_REVENUE_PARTNER" -> Right MetricRevenuePartner

1052− "METRIC_REVENUE_USD" -> Just MetricRevenueUsd

1052+ "METRIC_REVENUE_USD" -> Right MetricRevenueUsd

1053− "METRIC_REVENUE_VIEWABLE_ECPM_ADVERTISER" -> Just MetricRevenueViewableEcpmAdvertiser

1053+ "METRIC_REVENUE_VIEWABLE_ECPM_ADVERTISER" -> Right MetricRevenueViewableEcpmAdvertiser

1054− "METRIC_REVENUE_VIEWABLE_ECPM_PARTNER" -> Just MetricRevenueViewableEcpmPartner

1054+ "METRIC_REVENUE_VIEWABLE_ECPM_PARTNER" -> Right MetricRevenueViewableEcpmPartner

1055− "METRIC_REVENUE_VIEWABLE_ECPM_USD" -> Just MetricRevenueViewableEcpmUsd

1055+ "METRIC_REVENUE_VIEWABLE_ECPM_USD" -> Right MetricRevenueViewableEcpmUsd

1056− "METRIC_RICH_MEDIA_VIDEO_COMPLETIONS" -> Just MetricRichMediaVideoCompletions

1056+ "METRIC_RICH_MEDIA_VIDEO_COMPLETIONS" -> Right MetricRichMediaVideoCompletions

1057− "METRIC_RICH_MEDIA_VIDEO_FIRST_QUARTILE_COMPLETES" -> Just MetricRichMediaVideoFirstQuartileCompletes

1057+ "METRIC_RICH_MEDIA_VIDEO_FIRST_QUARTILE_COMPLETES" -> Right MetricRichMediaVideoFirstQuartileCompletes

1058− "METRIC_RICH_MEDIA_VIDEO_FULL_SCREENS" -> Just MetricRichMediaVideoFullScreens

1058+ "METRIC_RICH_MEDIA_VIDEO_FULL_SCREENS" -> Right MetricRichMediaVideoFullScreens

1059− "METRIC_RICH_MEDIA_VIDEO_MIDPOINTS" -> Just MetricRichMediaVideoMidpoints

1059+ "METRIC_RICH_MEDIA_VIDEO_MIDPOINTS" -> Right MetricRichMediaVideoMidpoints

1060− "METRIC_RICH_MEDIA_VIDEO_MUTES" -> Just MetricRichMediaVideoMutes

1060+ "METRIC_RICH_MEDIA_VIDEO_MUTES" -> Right MetricRichMediaVideoMutes

1061− "METRIC_RICH_MEDIA_VIDEO_PAUSES" -> Just MetricRichMediaVideoPauses

1061+ "METRIC_RICH_MEDIA_VIDEO_PAUSES" -> Right MetricRichMediaVideoPauses

1062− "METRIC_RICH_MEDIA_VIDEO_PLAYS" -> Just MetricRichMediaVideoPlays

1062+ "METRIC_RICH_MEDIA_VIDEO_PLAYS" -> Right MetricRichMediaVideoPlays

1063− "METRIC_RICH_MEDIA_VIDEO_SKIPS" -> Just MetricRichMediaVideoSkips

1063+ "METRIC_RICH_MEDIA_VIDEO_SKIPS" -> Right MetricRichMediaVideoSkips

1064− "METRIC_RICH_MEDIA_VIDEO_THIRD_QUARTILE_COMPLETES" -> Just MetricRichMediaVideoThirdQuartileCompletes

1064+ "METRIC_RICH_MEDIA_VIDEO_THIRD_QUARTILE_COMPLETES" -> Right MetricRichMediaVideoThirdQuartileCompletes

1065− "METRIC_TEA_TRUEVIEW_IMPRESSIONS" -> Just MetricTeaTrueviewImpressions

1065+ "METRIC_TEA_TRUEVIEW_IMPRESSIONS" -> Right MetricTeaTrueviewImpressions

1066− "METRIC_TEA_TRUEVIEW_UNIQUE_COOKIES" -> Just MetricTeaTrueviewUniqueCookies

1066+ "METRIC_TEA_TRUEVIEW_UNIQUE_COOKIES" -> Right MetricTeaTrueviewUniqueCookies

1067− "METRIC_TEA_TRUEVIEW_UNIQUE_PEOPLE" -> Just MetricTeaTrueviewUniquePeople

1067+ "METRIC_TEA_TRUEVIEW_UNIQUE_PEOPLE" -> Right MetricTeaTrueviewUniquePeople

1068− "METRIC_TOTAL_CONVERSIONS" -> Just MetricTotalConversions

1068+ "METRIC_TOTAL_CONVERSIONS" -> Right MetricTotalConversions

1069− "METRIC_TOTAL_MEDIA_COST_ADVERTISER" -> Just MetricTotalMediaCostAdvertiser

1069+ "METRIC_TOTAL_MEDIA_COST_ADVERTISER" -> Right MetricTotalMediaCostAdvertiser

1070− "METRIC_TOTAL_MEDIA_COST_ECPAPC_ADVERTISER" -> Just MetricTotalMediaCostEcpapcAdvertiser

1070+ "METRIC_TOTAL_MEDIA_COST_ECPAPC_ADVERTISER" -> Right MetricTotalMediaCostEcpapcAdvertiser

1071− "METRIC_TOTAL_MEDIA_COST_ECPAPC_PARTNER" -> Just MetricTotalMediaCostEcpapcPartner

1071+ "METRIC_TOTAL_MEDIA_COST_ECPAPC_PARTNER" -> Right MetricTotalMediaCostEcpapcPartner

1072− "METRIC_TOTAL_MEDIA_COST_ECPAPC_USD" -> Just MetricTotalMediaCostEcpapcUsd

1072+ "METRIC_TOTAL_MEDIA_COST_ECPAPC_USD" -> Right MetricTotalMediaCostEcpapcUsd

1073− "METRIC_TOTAL_MEDIA_COST_ECPAPV_ADVERTISER" -> Just MetricTotalMediaCostEcpapvAdvertiser

1073+ "METRIC_TOTAL_MEDIA_COST_ECPAPV_ADVERTISER" -> Right MetricTotalMediaCostEcpapvAdvertiser

1074− "METRIC_TOTAL_MEDIA_COST_ECPAPV_PARTNER" -> Just MetricTotalMediaCostEcpapvPartner

1074+ "METRIC_TOTAL_MEDIA_COST_ECPAPV_PARTNER" -> Right MetricTotalMediaCostEcpapvPartner

1075− "METRIC_TOTAL_MEDIA_COST_ECPAPV_USD" -> Just MetricTotalMediaCostEcpapvUsd

1075+ "METRIC_TOTAL_MEDIA_COST_ECPAPV_USD" -> Right MetricTotalMediaCostEcpapvUsd

1076− "METRIC_TOTAL_MEDIA_COST_ECPA_ADVERTISER" -> Just MetricTotalMediaCostEcpaAdvertiser

1076+ "METRIC_TOTAL_MEDIA_COST_ECPA_ADVERTISER" -> Right MetricTotalMediaCostEcpaAdvertiser

1077− "METRIC_TOTAL_MEDIA_COST_ECPA_PARTNER" -> Just MetricTotalMediaCostEcpaPartner

1077+ "METRIC_TOTAL_MEDIA_COST_ECPA_PARTNER" -> Right MetricTotalMediaCostEcpaPartner

1078− "METRIC_TOTAL_MEDIA_COST_ECPA_USD" -> Just MetricTotalMediaCostEcpaUsd

1078+ "METRIC_TOTAL_MEDIA_COST_ECPA_USD" -> Right MetricTotalMediaCostEcpaUsd

1079− "METRIC_TOTAL_MEDIA_COST_ECPCV_ADVERTISER" -> Just MetricTotalMediaCostEcpcvAdvertiser

1079+ "METRIC_TOTAL_MEDIA_COST_ECPCV_ADVERTISER" -> Right MetricTotalMediaCostEcpcvAdvertiser

1080− "METRIC_TOTAL_MEDIA_COST_ECPCV_PARTNER" -> Just MetricTotalMediaCostEcpcvPartner

1080+ "METRIC_TOTAL_MEDIA_COST_ECPCV_PARTNER" -> Right MetricTotalMediaCostEcpcvPartner

1081− "METRIC_TOTAL_MEDIA_COST_ECPCV_USD" -> Just MetricTotalMediaCostEcpcvUsd

1081+ "METRIC_TOTAL_MEDIA_COST_ECPCV_USD" -> Right MetricTotalMediaCostEcpcvUsd

1082− "METRIC_TOTAL_MEDIA_COST_ECPC_ADVERTISER" -> Just MetricTotalMediaCostEcpcAdvertiser

1082+ "METRIC_TOTAL_MEDIA_COST_ECPC_ADVERTISER" -> Right MetricTotalMediaCostEcpcAdvertiser

1083− "METRIC_TOTAL_MEDIA_COST_ECPC_PARTNER" -> Just MetricTotalMediaCostEcpcPartner

1083+ "METRIC_TOTAL_MEDIA_COST_ECPC_PARTNER" -> Right MetricTotalMediaCostEcpcPartner

1084− "METRIC_TOTAL_MEDIA_COST_ECPC_USD" -> Just MetricTotalMediaCostEcpcUsd

1084+ "METRIC_TOTAL_MEDIA_COST_ECPC_USD" -> Right MetricTotalMediaCostEcpcUsd

1085− "METRIC_TOTAL_MEDIA_COST_ECPM_ADVERTISER" -> Just MetricTotalMediaCostEcpmAdvertiser

1085+ "METRIC_TOTAL_MEDIA_COST_ECPM_ADVERTISER" -> Right MetricTotalMediaCostEcpmAdvertiser

1086− "METRIC_TOTAL_MEDIA_COST_ECPM_PARTNER" -> Just MetricTotalMediaCostEcpmPartner

1086+ "METRIC_TOTAL_MEDIA_COST_ECPM_PARTNER" -> Right MetricTotalMediaCostEcpmPartner

1087− "METRIC_TOTAL_MEDIA_COST_ECPM_USD" -> Just MetricTotalMediaCostEcpmUsd

1087+ "METRIC_TOTAL_MEDIA_COST_ECPM_USD" -> Right MetricTotalMediaCostEcpmUsd

1088− "METRIC_TOTAL_MEDIA_COST_PARTNER" -> Just MetricTotalMediaCostPartner

1088+ "METRIC_TOTAL_MEDIA_COST_PARTNER" -> Right MetricTotalMediaCostPartner

1089− "METRIC_TOTAL_MEDIA_COST_USD" -> Just MetricTotalMediaCostUsd

1089+ "METRIC_TOTAL_MEDIA_COST_USD" -> Right MetricTotalMediaCostUsd

1090− "METRIC_TOTAL_MEDIA_COST_VIEWABLE_ECPM_ADVERTISER" -> Just MetricTotalMediaCostViewableEcpmAdvertiser

1090+ "METRIC_TOTAL_MEDIA_COST_VIEWABLE_ECPM_ADVERTISER" -> Right MetricTotalMediaCostViewableEcpmAdvertiser

1091− "METRIC_TOTAL_MEDIA_COST_VIEWABLE_ECPM_PARTNER" -> Just MetricTotalMediaCostViewableEcpmPartner

1091+ "METRIC_TOTAL_MEDIA_COST_VIEWABLE_ECPM_PARTNER" -> Right MetricTotalMediaCostViewableEcpmPartner

1092− "METRIC_TOTAL_MEDIA_COST_VIEWABLE_ECPM_USD" -> Just MetricTotalMediaCostViewableEcpmUsd

1092+ "METRIC_TOTAL_MEDIA_COST_VIEWABLE_ECPM_USD" -> Right MetricTotalMediaCostViewableEcpmUsd

1093− "METRIC_TRUEVIEW_CONVERSION_COST_MANY_PER_VIEW_ADVERTISER" -> Just MetricTrueviewConversionCostManyPerViewAdvertiser

1093+ "METRIC_TRUEVIEW_CONVERSION_COST_MANY_PER_VIEW_ADVERTISER" -> Right MetricTrueviewConversionCostManyPerViewAdvertiser

1094− "METRIC_TRUEVIEW_CONVERSION_COST_MANY_PER_VIEW_PARTNER" -> Just MetricTrueviewConversionCostManyPerViewPartner

1094+ "METRIC_TRUEVIEW_CONVERSION_COST_MANY_PER_VIEW_PARTNER" -> Right MetricTrueviewConversionCostManyPerViewPartner

1095− "METRIC_TRUEVIEW_CONVERSION_COST_MANY_PER_VIEW_USD" -> Just MetricTrueviewConversionCostManyPerViewUsd

1095+ "METRIC_TRUEVIEW_CONVERSION_COST_MANY_PER_VIEW_USD" -> Right MetricTrueviewConversionCostManyPerViewUsd

1096− "METRIC_TRUEVIEW_CONVERSION_COST_ONE_PER_VIEW_ADVERTISER" -> Just MetricTrueviewConversionCostOnePerViewAdvertiser

1096+ "METRIC_TRUEVIEW_CONVERSION_COST_ONE_PER_VIEW_ADVERTISER" -> Right MetricTrueviewConversionCostOnePerViewAdvertiser

1097− "METRIC_TRUEVIEW_CONVERSION_COST_ONE_PER_VIEW_PARTNER" -> Just MetricTrueviewConversionCostOnePerViewPartner

1097+ "METRIC_TRUEVIEW_CONVERSION_COST_ONE_PER_VIEW_PARTNER" -> Right MetricTrueviewConversionCostOnePerViewPartner

1098− "METRIC_TRUEVIEW_CONVERSION_COST_ONE_PER_VIEW_USD" -> Just MetricTrueviewConversionCostOnePerViewUsd

1098+ "METRIC_TRUEVIEW_CONVERSION_COST_ONE_PER_VIEW_USD" -> Right MetricTrueviewConversionCostOnePerViewUsd

1099− "METRIC_TRUEVIEW_CONVERSION_MANY_PER_VIEW" -> Just MetricTrueviewConversionManyPerView

1099+ "METRIC_TRUEVIEW_CONVERSION_MANY_PER_VIEW" -> Right MetricTrueviewConversionManyPerView

1100− "METRIC_TRUEVIEW_CONVERSION_ONE_PER_VIEW" -> Just MetricTrueviewConversionOnePerView

1100+ "METRIC_TRUEVIEW_CONVERSION_ONE_PER_VIEW" -> Right MetricTrueviewConversionOnePerView

1101− "METRIC_TRUEVIEW_CONVERSION_RATE_ONE_PER_VIEW" -> Just MetricTrueviewConversionRateOnePerView

1101+ "METRIC_TRUEVIEW_CONVERSION_RATE_ONE_PER_VIEW" -> Right MetricTrueviewConversionRateOnePerView

1102− "METRIC_TRUEVIEW_CONVERSION_VALUE_MANY_PER_VIEW_ADVERTISER" -> Just MetricTrueviewConversionValueManyPerViewAdvertiser

1102+ "METRIC_TRUEVIEW_CONVERSION_VALUE_MANY_PER_VIEW_ADVERTISER" -> Right MetricTrueviewConversionValueManyPerViewAdvertiser

1103− "METRIC_TRUEVIEW_CONVERSION_VALUE_MANY_PER_VIEW_PARTNER" -> Just MetricTrueviewConversionValueManyPerViewPartner

1103+ "METRIC_TRUEVIEW_CONVERSION_VALUE_MANY_PER_VIEW_PARTNER" -> Right MetricTrueviewConversionValueManyPerViewPartner

1104− "METRIC_TRUEVIEW_CONVERSION_VALUE_MANY_PER_VIEW_USD" -> Just MetricTrueviewConversionValueManyPerViewUsd

1104+ "METRIC_TRUEVIEW_CONVERSION_VALUE_MANY_PER_VIEW_USD" -> Right MetricTrueviewConversionValueManyPerViewUsd

1105− "METRIC_TRUEVIEW_CONVERSION_VALUE_ONE_PER_VIEW_ADVERTISER" -> Just MetricTrueviewConversionValueOnePerViewAdvertiser

1105+ "METRIC_TRUEVIEW_CONVERSION_VALUE_ONE_PER_VIEW_ADVERTISER" -> Right MetricTrueviewConversionValueOnePerViewAdvertiser

1106− "METRIC_TRUEVIEW_CONVERSION_VALUE_ONE_PER_VIEW_PARTNER" -> Just MetricTrueviewConversionValueOnePerViewPartner

1106+ "METRIC_TRUEVIEW_CONVERSION_VALUE_ONE_PER_VIEW_PARTNER" -> Right MetricTrueviewConversionValueOnePerViewPartner

1107− "METRIC_TRUEVIEW_CONVERSION_VALUE_ONE_PER_VIEW_USD" -> Just MetricTrueviewConversionValueOnePerViewUsd

1107+ "METRIC_TRUEVIEW_CONVERSION_VALUE_ONE_PER_VIEW_USD" -> Right MetricTrueviewConversionValueOnePerViewUsd

1108− "METRIC_TRUEVIEW_COST_CONVERSION_MANY_PER_VIEW_RATIO" -> Just MetricTrueviewCostConversionManyPerViewRatio

1108+ "METRIC_TRUEVIEW_COST_CONVERSION_MANY_PER_VIEW_RATIO" -> Right MetricTrueviewCostConversionManyPerViewRatio

1109− "METRIC_TRUEVIEW_COST_CONVERSION_ONE_PER_VIEW_RATIO" -> Just MetricTrueviewCostConversionOnePerViewRatio

1109+ "METRIC_TRUEVIEW_COST_CONVERSION_ONE_PER_VIEW_RATIO" -> Right MetricTrueviewCostConversionOnePerViewRatio

1110− "METRIC_TRUEVIEW_CPV_ADVERTISER" -> Just MetricTrueviewCpvAdvertiser

1110+ "METRIC_TRUEVIEW_CPV_ADVERTISER" -> Right MetricTrueviewCpvAdvertiser

1111− "METRIC_TRUEVIEW_CPV_PARTNER" -> Just MetricTrueviewCpvPartner

1111+ "METRIC_TRUEVIEW_CPV_PARTNER" -> Right MetricTrueviewCpvPartner

1112− "METRIC_TRUEVIEW_CPV_USD" -> Just MetricTrueviewCpvUsd

1112+ "METRIC_TRUEVIEW_CPV_USD" -> Right MetricTrueviewCpvUsd

1113− "METRIC_TRUEVIEW_EARNED_LIKES" -> Just MetricTrueviewEarnedLikes

1113+ "METRIC_TRUEVIEW_EARNED_LIKES" -> Right MetricTrueviewEarnedLikes

1114− "METRIC_TRUEVIEW_EARNED_PLAYLIST_ADDITIONS" -> Just MetricTrueviewEarnedPlayListAdditions

1114+ "METRIC_TRUEVIEW_EARNED_PLAYLIST_ADDITIONS" -> Right MetricTrueviewEarnedPlayListAdditions

1115− "METRIC_TRUEVIEW_EARNED_SHARES" -> Just MetricTrueviewEarnedShares

1115+ "METRIC_TRUEVIEW_EARNED_SHARES" -> Right MetricTrueviewEarnedShares

1116− "METRIC_TRUEVIEW_EARNED_SUBSCRIBERS" -> Just MetricTrueviewEarnedSubscribers

1116+ "METRIC_TRUEVIEW_EARNED_SUBSCRIBERS" -> Right MetricTrueviewEarnedSubscribers

1117− "METRIC_TRUEVIEW_EARNED_VIEWS" -> Just MetricTrueviewEarnedViews

1117+ "METRIC_TRUEVIEW_EARNED_VIEWS" -> Right MetricTrueviewEarnedViews

1118− "METRIC_TRUEVIEW_IMPRESSION_SHARE" -> Just MetricTrueviewImpressionShare

1118+ "METRIC_TRUEVIEW_IMPRESSION_SHARE" -> Right MetricTrueviewImpressionShare

1119− "METRIC_TRUEVIEW_LOST_IS_BUDGET" -> Just MetricTrueviewLostIsBudget

1119+ "METRIC_TRUEVIEW_LOST_IS_BUDGET" -> Right MetricTrueviewLostIsBudget

1120− "METRIC_TRUEVIEW_LOST_IS_RANK" -> Just MetricTrueviewLostIsRank

1120+ "METRIC_TRUEVIEW_LOST_IS_RANK" -> Right MetricTrueviewLostIsRank

1121− "METRIC_TRUEVIEW_TOTAL_CONVERSION_VALUE" -> Just MetricTrueviewTotalConversionValue

1121+ "METRIC_TRUEVIEW_TOTAL_CONVERSION_VALUE" -> Right MetricTrueviewTotalConversionValue

1122− "METRIC_TRUEVIEW_TOTAL_CONVERSION_VALUES_ADVERTISER" -> Just MetricTrueviewTotalConversionValuesAdvertiser

1122+ "METRIC_TRUEVIEW_TOTAL_CONVERSION_VALUES_ADVERTISER" -> Right MetricTrueviewTotalConversionValuesAdvertiser

1123− "METRIC_TRUEVIEW_TOTAL_CONVERSION_VALUES_PARTNER" -> Just MetricTrueviewTotalConversionValuesPartner

1123+ "METRIC_TRUEVIEW_TOTAL_CONVERSION_VALUES_PARTNER" -> Right MetricTrueviewTotalConversionValuesPartner

1124− "METRIC_TRUEVIEW_TOTAL_CONVERSION_VALUES_USD" -> Just MetricTrueviewTotalConversionValuesUsd

1124+ "METRIC_TRUEVIEW_TOTAL_CONVERSION_VALUES_USD" -> Right MetricTrueviewTotalConversionValuesUsd

1125− "METRIC_TRUEVIEW_UNIQUE_VIEWERS" -> Just MetricTrueviewUniqueViewers

1125+ "METRIC_TRUEVIEW_UNIQUE_VIEWERS" -> Right MetricTrueviewUniqueViewers

1126− "METRIC_TRUEVIEW_VALUE_CONVERSION_MANY_PER_VIEW_RATIO" -> Just MetricTrueviewValueConversionManyPerViewRatio

1126+ "METRIC_TRUEVIEW_VALUE_CONVERSION_MANY_PER_VIEW_RATIO" -> Right MetricTrueviewValueConversionManyPerViewRatio

1127− "METRIC_TRUEVIEW_VALUE_CONVERSION_ONE_PER_VIEW_RATIO" -> Just MetricTrueviewValueConversionOnePerViewRatio

1127+ "METRIC_TRUEVIEW_VALUE_CONVERSION_ONE_PER_VIEW_RATIO" -> Right MetricTrueviewValueConversionOnePerViewRatio

1128− "METRIC_TRUEVIEW_VIEWS" -> Just MetricTrueviewViews

1128+ "METRIC_TRUEVIEW_VIEWS" -> Right MetricTrueviewViews

1129− "METRIC_TRUEVIEW_VIEW_RATE" -> Just MetricTrueviewViewRate

1129+ "METRIC_TRUEVIEW_VIEW_RATE" -> Right MetricTrueviewViewRate

1130− "METRIC_TRUEVIEW_VIEW_THROUGH_CONVERSION" -> Just MetricTrueviewViewThroughConversion

1130+ "METRIC_TRUEVIEW_VIEW_THROUGH_CONVERSION" -> Right MetricTrueviewViewThroughConversion

1131− "METRIC_UNIQUE_VISITORS_COOKIES" -> Just MetricUniqueVisitorsCookies

1131+ "METRIC_UNIQUE_VISITORS_COOKIES" -> Right MetricUniqueVisitorsCookies

1132− "METRIC_UNKNOWN" -> Just MetricUnknown

1132+ "METRIC_UNKNOWN" -> Right MetricUnknown

1133− "METRIC_VIDEO_COMPANION_CLICKS" -> Just MetricVideoCompanionClicks

1133+ "METRIC_VIDEO_COMPANION_CLICKS" -> Right MetricVideoCompanionClicks

1134− "METRIC_VIDEO_COMPANION_IMPRESSIONS" -> Just MetricVideoCompanionImpressions

1134+ "METRIC_VIDEO_COMPANION_IMPRESSIONS" -> Right MetricVideoCompanionImpressions

1135− "METRIC_VIDEO_COMPLETION_RATE" -> Just MetricVideoCompletionRate

1135+ "METRIC_VIDEO_COMPLETION_RATE" -> Right MetricVideoCompletionRate

1136− _ -> Nothing

1136+ x -> Left ("Unable to parse ParametersMetricsItem from: " <> x)

1137−

1137+

1138−instance ToText ParametersMetricsItem where

1138+instance ToHttpApiData ParametersMetricsItem where

1139− toText = \case

1139+ toQueryParam = \case

1140 MetricBidRequests -> "METRIC_BID_REQUESTS"

1141 MetricBillableCostAdvertiser -> "METRIC_BILLABLE_COST_ADVERTISER"

1142 MetricBillableCostPartner -> "METRIC_BILLABLE_COST_PARTNER"

@@ -1434,18 +1434,18 @@ data QueryScheduleFrequency

1434

1435instance Hashable QueryScheduleFrequency

1436

1437−instance FromText QueryScheduleFrequency where

1437+instance FromHttpApiData QueryScheduleFrequency where

1438− fromText = \case

1438+ parseQueryParam = \case

1439− "DAILY" -> Just Daily

1439+ "DAILY" -> Right Daily

1440− "MONTHLY" -> Just Monthly

1440+ "MONTHLY" -> Right Monthly

1441− "ONE_TIME" -> Just OneTime

1441+ "ONE_TIME" -> Right OneTime

1442− "QUARTERLY" -> Just Quarterly

1442+ "QUARTERLY" -> Right Quarterly

1443− "SEMI_MONTHLY" -> Just SemiMonthly

1443+ "SEMI_MONTHLY" -> Right SemiMonthly

1444− "WEEKLY" -> Just Weekly

1444+ "WEEKLY" -> Right Weekly

1445− _ -> Nothing

1445+ x -> Left ("Unable to parse QueryScheduleFrequency from: " <> x)

1446−

1446+

1447−instance ToText QueryScheduleFrequency where

1447+instance ToHttpApiData QueryScheduleFrequency where

1448− toText = \case

1448+ toQueryParam = \case

1449 Daily -> "DAILY"

1450 Monthly -> "MONTHLY"

1451 OneTime -> "ONE_TIME"

@@ -1470,14 +1470,14 @@ data DownloadLineItemsRequestFileSpec

1470

1471instance Hashable DownloadLineItemsRequestFileSpec

1472

1473−instance FromText DownloadLineItemsRequestFileSpec where

1473+instance FromHttpApiData DownloadLineItemsRequestFileSpec where

1474− fromText = \case

1474+ parseQueryParam = \case

1475− "EWF" -> Just Ewf

1475+ "EWF" -> Right Ewf

1476− "SDF" -> Just Sdf

1476+ "SDF" -> Right Sdf

1477− _ -> Nothing

1477+ x -> Left ("Unable to parse DownloadLineItemsRequestFileSpec from: " <> x)

1478

1479−instance ToText DownloadLineItemsRequestFileSpec where

1479+instance ToHttpApiData DownloadLineItemsRequestFileSpec where

1480− toText = \case

1480+ toQueryParam = \case

1481 Ewf -> "EWF"

1482 Sdf -> "SDF"

1483

@@ -1495,13 +1495,13 @@ data UploadLineItemsRequestFormat

1495

1496instance Hashable UploadLineItemsRequestFormat

1497

1498−instance FromText UploadLineItemsRequestFormat where

1498+instance FromHttpApiData UploadLineItemsRequestFormat where

1499− fromText = \case

1499+ parseQueryParam = \case

1500− "CSV" -> Just ULIRFCSV

1500+ "CSV" -> Right ULIRFCSV

1501− _ -> Nothing

1501+ x -> Left ("Unable to parse UploadLineItemsRequestFormat from: " <> x)

1502

1503−instance ToText UploadLineItemsRequestFormat where

1503+instance ToHttpApiData UploadLineItemsRequestFormat where

1504− toText = \case

1504+ toQueryParam = \case

1505 ULIRFCSV -> "CSV"

1506

1507instance FromJSON UploadLineItemsRequestFormat where

@@ -1694,101 +1694,101 @@ data FilterPairType

1694

1695instance Hashable FilterPairType

1696

1697−instance FromText FilterPairType where

1697+instance FromHttpApiData FilterPairType where

1698− fromText = \case

1698+ parseQueryParam = \case

1699− "FILTER_ACTIVE_VIEW_EXPECTED_VIEWABILITY" -> Just FilterActiveViewExpectedViewability

1699+ "FILTER_ACTIVE_VIEW_EXPECTED_VIEWABILITY" -> Right FilterActiveViewExpectedViewability

1700− "FILTER_ACTIVITY_ID" -> Just FilterActivityId

1700+ "FILTER_ACTIVITY_ID" -> Right FilterActivityId

1701− "FILTER_ADVERTISER" -> Just FilterAdvertiser

1701+ "FILTER_ADVERTISER" -> Right FilterAdvertiser

1702− "FILTER_ADVERTISER_CURRENCY" -> Just FilterAdvertiserCurrency

1702+ "FILTER_ADVERTISER_CURRENCY" -> Right FilterAdvertiserCurrency

1703− "FILTER_ADVERTISER_TIMEZONE" -> Just FilterAdvertiserTimezone

1703+ "FILTER_ADVERTISER_TIMEZONE" -> Right FilterAdvertiserTimezone

1704− "FILTER_AD_POSITION" -> Just FilterAdPosition

1704+ "FILTER_AD_POSITION" -> Right FilterAdPosition

1705− "FILTER_AGE" -> Just FilterAge

1705+ "FILTER_AGE" -> Right FilterAge

1706− "FILTER_BRANDSAFE_CHANNEL_ID" -> Just FilterBrandsafeChannelId

1706+ "FILTER_BRANDSAFE_CHANNEL_ID" -> Right FilterBrandsafeChannelId

1707− "FILTER_BROWSER" -> Just FilterBrowser

1707+ "FILTER_BROWSER" -> Right FilterBrowser

1708− "FILTER_CAMPAIGN_DAILY_FREQUENCY" -> Just FilterCampaignDailyFrequency

1708+ "FILTER_CAMPAIGN_DAILY_FREQUENCY" -> Right FilterCampaignDailyFrequency

1709− "FILTER_CARRIER" -> Just FilterCarrier

1709+ "FILTER_CARRIER" -> Right FilterCarrier

1710− "FILTER_CHANNEL_ID" -> Just FilterChannelId

1710+ "FILTER_CHANNEL_ID" -> Right FilterChannelId

1711− "FILTER_CITY" -> Just FilterCity

1711+ "FILTER_CITY" -> Right FilterCity

1712− "FILTER_CONVERSION_DELAY" -> Just FilterConversionDelay

1712+ "FILTER_CONVERSION_DELAY" -> Right FilterConversionDelay

1713− "FILTER_COUNTRY" -> Just FilterCountry

1713+ "FILTER_COUNTRY" -> Right FilterCountry

1714− "FILTER_CREATIVE_HEIGHT" -> Just FilterCreativeHeight

1714+ "FILTER_CREATIVE_HEIGHT" -> Right FilterCreativeHeight

1715− "FILTER_CREATIVE_ID" -> Just FilterCreativeId

1715+ "FILTER_CREATIVE_ID" -> Right FilterCreativeId

1716− "FILTER_CREATIVE_SIZE" -> Just FilterCreativeSize

1716+ "FILTER_CREATIVE_SIZE" -> Right FilterCreativeSize

1717− "FILTER_CREATIVE_TYPE" -> Just FilterCreativeType

1717+ "FILTER_CREATIVE_TYPE" -> Right FilterCreativeType

1718− "FILTER_CREATIVE_WIDTH" -> Just FilterCreativeWidth

1718+ "FILTER_CREATIVE_WIDTH" -> Right FilterCreativeWidth

1719− "FILTER_DATA_PROVIDER" -> Just FilterDataProvider

1719+ "FILTER_DATA_PROVIDER" -> Right FilterDataProvider

1720− "FILTER_DATE" -> Just FilterDate

1720+ "FILTER_DATE" -> Right FilterDate

1721− "FILTER_DAY_OF_WEEK" -> Just FilterDayOfWeek

1721+ "FILTER_DAY_OF_WEEK" -> Right FilterDayOfWeek

1722− "FILTER_DFP_ORDER_ID" -> Just FilterDfpOrderId

1722+ "FILTER_DFP_ORDER_ID" -> Right FilterDfpOrderId

1723− "FILTER_DMA" -> Just FilterDma

1723+ "FILTER_DMA" -> Right FilterDma

1724− "FILTER_EXCHANGE_ID" -> Just FilterExchangeId

1724+ "FILTER_EXCHANGE_ID" -> Right FilterExchangeId

1725− "FILTER_FLOODLIGHT_PIXEL_ID" -> Just FilterFloodlightPixelId

1725+ "FILTER_FLOODLIGHT_PIXEL_ID" -> Right FilterFloodlightPixelId

1726− "FILTER_GENDER" -> Just FilterGender

1726+ "FILTER_GENDER" -> Right FilterGender

1727− "FILTER_INSERTION_ORDER" -> Just FilterInsertionOrder

1727+ "FILTER_INSERTION_ORDER" -> Right FilterInsertionOrder

1728− "FILTER_INVENTORY_FORMAT" -> Just FilterInventoryFormat

1728+ "FILTER_INVENTORY_FORMAT" -> Right FilterInventoryFormat

1729− "FILTER_INVENTORY_SOURCE" -> Just FilterInventorySource

1729+ "FILTER_INVENTORY_SOURCE" -> Right FilterInventorySource

1730− "FILTER_INVENTORY_SOURCE_TYPE" -> Just FilterInventorySourceType

1730+ "FILTER_INVENTORY_SOURCE_TYPE" -> Right FilterInventorySourceType

1731− "FILTER_KEYWORD" -> Just FilterKeyword

1731+ "FILTER_KEYWORD" -> Right FilterKeyword

1732− "FILTER_LINE_ITEM" -> Just FilterLineItem

1732+ "FILTER_LINE_ITEM" -> Right FilterLineItem

1733− "FILTER_LINE_ITEM_DAILY_FREQUENCY" -> Just FilterLineItemDailyFrequency

1733+ "FILTER_LINE_ITEM_DAILY_FREQUENCY" -> Right FilterLineItemDailyFrequency

1734− "FILTER_LINE_ITEM_LIFETIME_FREQUENCY" -> Just FilterLineItemLifetimeFrequency

1734+ "FILTER_LINE_ITEM_LIFETIME_FREQUENCY" -> Right FilterLineItemLifetimeFrequency

1735− "FILTER_LINE_ITEM_TYPE" -> Just FilterLineItemType

1735+ "FILTER_LINE_ITEM_TYPE" -> Right FilterLineItemType

1736− "FILTER_MOBILE_DEVICE_MAKE" -> Just FilterMobileDeviceMake

1736+ "FILTER_MOBILE_DEVICE_MAKE" -> Right FilterMobileDeviceMake

1737− "FILTER_MOBILE_DEVICE_MAKE_MODEL" -> Just FilterMobileDeviceMakeModel

1737+ "FILTER_MOBILE_DEVICE_MAKE_MODEL" -> Right FilterMobileDeviceMakeModel

1738− "FILTER_MOBILE_DEVICE_TYPE" -> Just FilterMobileDeviceType

1738+ "FILTER_MOBILE_DEVICE_TYPE" -> Right FilterMobileDeviceType

1739− "FILTER_MOBILE_GEO" -> Just FilterMobileGeo

1739+ "FILTER_MOBILE_GEO" -> Right FilterMobileGeo

1740− "FILTER_MONTH" -> Just FilterMonth

1740+ "FILTER_MONTH" -> Right FilterMonth

1741− "FILTER_MRAID_SUPPORT" -> Just FilterMraidSupport

1741+ "FILTER_MRAID_SUPPORT" -> Right FilterMraidSupport

1742− "FILTER_NIELSEN_AGE" -> Just FilterNielsenAge

1742+ "FILTER_NIELSEN_AGE" -> Right FilterNielsenAge

1743− "FILTER_NIELSEN_COUNTRY_CODE" -> Just FilterNielsenCountryCode

1743+ "FILTER_NIELSEN_COUNTRY_CODE" -> Right FilterNielsenCountryCode

1744− "FILTER_NIELSEN_DEVICE_ID" -> Just FilterNielsenDeviceId

1744+ "FILTER_NIELSEN_DEVICE_ID" -> Right FilterNielsenDeviceId

1745− "FILTER_NIELSEN_GENDER" -> Just FilterNielsenGender

1745+ "FILTER_NIELSEN_GENDER" -> Right FilterNielsenGender

1746− "FILTER_ORDER_ID" -> Just FilterOrderId

1746+ "FILTER_ORDER_ID" -> Right FilterOrderId

1747− "FILTER_OS" -> Just FilterOS

1747+ "FILTER_OS" -> Right FilterOS

1748− "FILTER_PAGE_CATEGORY" -> Just FilterPageCategory

1748+ "FILTER_PAGE_CATEGORY" -> Right FilterPageCategory

1749− "FILTER_PAGE_LAYOUT" -> Just FilterPageLayout

1749+ "FILTER_PAGE_LAYOUT" -> Right FilterPageLayout

1750− "FILTER_PARTNER" -> Just FilterPartner

1750+ "FILTER_PARTNER" -> Right FilterPartner

1751− "FILTER_PARTNER_CURRENCY" -> Just FilterPartnerCurrency

1751+ "FILTER_PARTNER_CURRENCY" -> Right FilterPartnerCurrency

1752− "FILTER_PUBLIC_INVENTORY" -> Just FilterPublicInventory

1752+ "FILTER_PUBLIC_INVENTORY" -> Right FilterPublicInventory

1753− "FILTER_QUARTER" -> Just FilterQuarter

1753+ "FILTER_QUARTER" -> Right FilterQuarter

1754− "FILTER_REGION" -> Just FilterRegion

1754+ "FILTER_REGION" -> Right FilterRegion

1755− "FILTER_REGULAR_CHANNEL_ID" -> Just FilterRegularChannelId

1755+ "FILTER_REGULAR_CHANNEL_ID" -> Right FilterRegularChannelId

1756− "FILTER_SITE_ID" -> Just FilterSiteId

1756+ "FILTER_SITE_ID" -> Right FilterSiteId

1757− "FILTER_SITE_LANGUAGE" -> Just FilterSiteLanguage

1757+ "FILTER_SITE_LANGUAGE" -> Right FilterSiteLanguage

1758− "FILTER_TARGETED_USER_LIST" -> Just FilterTargetedUserList

1758+ "FILTER_TARGETED_USER_LIST" -> Right FilterTargetedUserList

1759− "FILTER_TIME_OF_DAY" -> Just FilterTimeOfDay

1759+ "FILTER_TIME_OF_DAY" -> Right FilterTimeOfDay

1760− "FILTER_TRUEVIEW_AD_GROUP_AD_ID" -> Just FilterTrueviewAdGroupAdId

1760+ "FILTER_TRUEVIEW_AD_GROUP_AD_ID" -> Right FilterTrueviewAdGroupAdId

1761− "FILTER_TRUEVIEW_AD_GROUP_ID" -> Just FilterTrueviewAdGroupId

1761+ "FILTER_TRUEVIEW_AD_GROUP_ID" -> Right FilterTrueviewAdGroupId

1762− "FILTER_TRUEVIEW_AGE" -> Just FilterTrueviewAge

1762+ "FILTER_TRUEVIEW_AGE" -> Right FilterTrueviewAge

1763− "FILTER_TRUEVIEW_CONVERSION_TYPE" -> Just FilterTrueviewConversionType

1763+ "FILTER_TRUEVIEW_CONVERSION_TYPE" -> Right FilterTrueviewConversionType

1764− "FILTER_TRUEVIEW_GENDER" -> Just FilterTrueviewGender

1764+ "FILTER_TRUEVIEW_GENDER" -> Right FilterTrueviewGender

1765− "FILTER_TRUEVIEW_INTEREST" -> Just FilterTrueviewInterest

1765+ "FILTER_TRUEVIEW_INTEREST" -> Right FilterTrueviewInterest

1766− "FILTER_TRUEVIEW_PARENTAL_STATUS" -> Just FilterTrueviewParentalStatus

1766+ "FILTER_TRUEVIEW_PARENTAL_STATUS" -> Right FilterTrueviewParentalStatus

1767− "FILTER_TRUEVIEW_REMARKETING_LIST" -> Just FilterTrueviewRemarketingList

1767+ "FILTER_TRUEVIEW_REMARKETING_LIST" -> Right FilterTrueviewRemarketingList

1768− "FILTER_UNKNOWN" -> Just FilterUnknown

1768+ "FILTER_UNKNOWN" -> Right FilterUnknown

1769− "FILTER_USER_LIST" -> Just FilterUserList

1769+ "FILTER_USER_LIST" -> Right FilterUserList

1770− "FILTER_USER_LIST_FIRST_PARTY" -> Just FilterUserListFirstParty

1770+ "FILTER_USER_LIST_FIRST_PARTY" -> Right FilterUserListFirstParty

1771− "FILTER_USER_LIST_THIRD_PARTY" -> Just FilterUserListThirdParty

1771+ "FILTER_USER_LIST_THIRD_PARTY" -> Right FilterUserListThirdParty

1772− "FILTER_VIDEO_AD_POSITION_IN_STREAM" -> Just FilterVideoAdPositionInStream

1772+ "FILTER_VIDEO_AD_POSITION_IN_STREAM" -> Right FilterVideoAdPositionInStream

1773− "FILTER_VIDEO_COMPANION_SIZE" -> Just FilterVideoCompanionSize

1773+ "FILTER_VIDEO_COMPANION_SIZE" -> Right FilterVideoCompanionSize

1774− "FILTER_VIDEO_COMPANION_TYPE" -> Just FilterVideoCompanionType

1774+ "FILTER_VIDEO_COMPANION_TYPE" -> Right FilterVideoCompanionType

1775− "FILTER_VIDEO_CREATIVE_DURATION" -> Just FilterVideoCreativeDuration

1775+ "FILTER_VIDEO_CREATIVE_DURATION" -> Right FilterVideoCreativeDuration

1776− "FILTER_VIDEO_CREATIVE_DURATION_SKIPPABLE" -> Just FilterVideoCreativeDurationSkippable

1776+ "FILTER_VIDEO_CREATIVE_DURATION_SKIPPABLE" -> Right FilterVideoCreativeDurationSkippable

1777− "FILTER_VIDEO_DURATION_SECONDS" -> Just FilterVideoDurationSeconds

1777+ "FILTER_VIDEO_DURATION_SECONDS" -> Right FilterVideoDurationSeconds

1778− "FILTER_VIDEO_FORMAT_SUPPORT" -> Just FilterVideoFormatSupport

1778+ "FILTER_VIDEO_FORMAT_SUPPORT" -> Right FilterVideoFormatSupport

1779− "FILTER_VIDEO_INVENTORY_TYPE" -> Just FilterVideoInventoryType

1779+ "FILTER_VIDEO_INVENTORY_TYPE" -> Right FilterVideoInventoryType

1780− "FILTER_VIDEO_PLAYER_SIZE" -> Just FilterVideoPlayerSize

1780+ "FILTER_VIDEO_PLAYER_SIZE" -> Right FilterVideoPlayerSize

1781− "FILTER_VIDEO_RATING_TIER" -> Just FilterVideoRatingTier

1781+ "FILTER_VIDEO_RATING_TIER" -> Right FilterVideoRatingTier

1782− "FILTER_VIDEO_SKIPPABLE_SUPPORT" -> Just FilterVideoSkippableSupport

1782+ "FILTER_VIDEO_SKIPPABLE_SUPPORT" -> Right FilterVideoSkippableSupport

1783− "FILTER_VIDEO_VPAID_SUPPORT" -> Just FilterVideoVpaidSupport

1783+ "FILTER_VIDEO_VPAID_SUPPORT" -> Right FilterVideoVpaidSupport

1784− "FILTER_WEEK" -> Just FilterWeek

1784+ "FILTER_WEEK" -> Right FilterWeek

1785− "FILTER_YEAR" -> Just FilterYear

1785+ "FILTER_YEAR" -> Right FilterYear

1786− "FILTER_YOUTUBE_VERTICAL" -> Just FilterYouTubeVertical

1786+ "FILTER_YOUTUBE_VERTICAL" -> Right FilterYouTubeVertical

1787− "FILTER_ZIP_CODE" -> Just FilterZipCode

1787+ "FILTER_ZIP_CODE" -> Right FilterZipCode

1788− _ -> Nothing

1788+ x -> Left ("Unable to parse FilterPairType from: " <> x)

1789−

1789+

1790−instance ToText FilterPairType where

1790+instance ToHttpApiData FilterPairType where

1791− toText = \case

1791+ toQueryParam = \case

1792 FilterActiveViewExpectedViewability -> "FILTER_ACTIVE_VIEW_EXPECTED_VIEWABILITY"

1793 FilterActivityId -> "FILTER_ACTIVITY_ID"

1794 FilterAdvertiser -> "FILTER_ADVERTISER"

@@ -1927,30 +1927,30 @@ data RunQueryRequestDataRange

1927

1928instance Hashable RunQueryRequestDataRange

1929

1930−instance FromText RunQueryRequestDataRange where

1930+instance FromHttpApiData RunQueryRequestDataRange where

1931− fromText = \case

1931+ parseQueryParam = \case

1932− "ALL_TIME" -> Just RQRDRAllTime

1932+ "ALL_TIME" -> Right RQRDRAllTime

1933− "CURRENT_DAY" -> Just RQRDRCurrentDay

1933+ "CURRENT_DAY" -> Right RQRDRCurrentDay

1934− "CUSTOM_DATES" -> Just RQRDRCustomDates

1934+ "CUSTOM_DATES" -> Right RQRDRCustomDates

1935− "LAST_14_DAYS" -> Just RQRDRLast14Days

1935+ "LAST_14_DAYS" -> Right RQRDRLast14Days

1936− "LAST_30_DAYS" -> Just RQRDRLast30Days

1936+ "LAST_30_DAYS" -> Right RQRDRLast30Days

1937− "LAST_365_DAYS" -> Just RQRDRLast365Days

1937+ "LAST_365_DAYS" -> Right RQRDRLast365Days

1938− "LAST_7_DAYS" -> Just RQRDRLast7Days

1938+ "LAST_7_DAYS" -> Right RQRDRLast7Days

1939− "LAST_90_DAYS" -> Just RQRDRLast90Days

1939+ "LAST_90_DAYS" -> Right RQRDRLast90Days

1940− "MONTH_TO_DATE" -> Just RQRDRMonthToDate

1940+ "MONTH_TO_DATE" -> Right RQRDRMonthToDate

1941− "PREVIOUS_DAY" -> Just RQRDRPreviousDay

1941+ "PREVIOUS_DAY" -> Right RQRDRPreviousDay

1942− "PREVIOUS_HALF_MONTH" -> Just RQRDRPreviousHalfMonth

1942+ "PREVIOUS_HALF_MONTH" -> Right RQRDRPreviousHalfMonth

1943− "PREVIOUS_MONTH" -> Just RQRDRPreviousMonth

1943+ "PREVIOUS_MONTH" -> Right RQRDRPreviousMonth

1944− "PREVIOUS_QUARTER" -> Just RQRDRPreviousQuarter

1944+ "PREVIOUS_QUARTER" -> Right RQRDRPreviousQuarter

1945− "PREVIOUS_WEEK" -> Just RQRDRPreviousWeek

1945+ "PREVIOUS_WEEK" -> Right RQRDRPreviousWeek

1946− "PREVIOUS_YEAR" -> Just RQRDRPreviousYear

1946+ "PREVIOUS_YEAR" -> Right RQRDRPreviousYear

1947− "QUARTER_TO_DATE" -> Just RQRDRQuarterToDate

1947+ "QUARTER_TO_DATE" -> Right RQRDRQuarterToDate

1948− "WEEK_TO_DATE" -> Just RQRDRWeekToDate

1948+ "WEEK_TO_DATE" -> Right RQRDRWeekToDate

1949− "YEAR_TO_DATE" -> Just RQRDRYearToDate

1949+ "YEAR_TO_DATE" -> Right RQRDRYearToDate

1950− _ -> Nothing

1950+ x -> Left ("Unable to parse RunQueryRequestDataRange from: " <> x)

1951−

1951+

1952−instance ToText RunQueryRequestDataRange where

1952+instance ToHttpApiData RunQueryRequestDataRange where

1953− toText = \case

1953+ toQueryParam = \case

1954 RQRDRAllTime -> "ALL_TIME"

1955 RQRDRCurrentDay -> "CURRENT_DAY"

1956 RQRDRCustomDates -> "CUSTOM_DATES"

@@ -1988,15 +1988,15 @@ data ReportStatusState

1988

1989instance Hashable ReportStatusState

1990

1991−instance FromText ReportStatusState where

1991+instance FromHttpApiData ReportStatusState where

1992− fromText = \case

1992+ parseQueryParam = \case

1993− "DONE" -> Just Done

1993+ "DONE" -> Right Done

1994− "FAILED" -> Just Failed

1994+ "FAILED" -> Right Failed

1995− "RUNNING" -> Just Running

1995+ "RUNNING" -> Right Running

1996− _ -> Nothing

1996+ x -> Left ("Unable to parse ReportStatusState from: " <> x)

1997

1998−instance ToText ReportStatusState where

1998+instance ToHttpApiData ReportStatusState where

1999− toText = \case

1999+ toQueryParam = \case

2000 Done -> "DONE"

2001 Failed -> "FAILED"

2002 Running -> "RUNNING"

@@ -2190,101 +2190,101 @@ data ParametersGroupBysItem

2190

2191instance Hashable ParametersGroupBysItem

2192

2193−instance FromText ParametersGroupBysItem where

2193+instance FromHttpApiData ParametersGroupBysItem where

2194− fromText = \case

2194+ parseQueryParam = \case

2195− "FILTER_ACTIVE_VIEW_EXPECTED_VIEWABILITY" -> Just PGBIFilterActiveViewExpectedViewability

2195+ "FILTER_ACTIVE_VIEW_EXPECTED_VIEWABILITY" -> Right PGBIFilterActiveViewExpectedViewability

2196− "FILTER_ACTIVITY_ID" -> Just PGBIFilterActivityId

2196+ "FILTER_ACTIVITY_ID" -> Right PGBIFilterActivityId

2197− "FILTER_ADVERTISER" -> Just PGBIFilterAdvertiser

2197+ "FILTER_ADVERTISER" -> Right PGBIFilterAdvertiser

2198− "FILTER_ADVERTISER_CURRENCY" -> Just PGBIFilterAdvertiserCurrency

2198+ "FILTER_ADVERTISER_CURRENCY" -> Right PGBIFilterAdvertiserCurrency

2199− "FILTER_ADVERTISER_TIMEZONE" -> Just PGBIFilterAdvertiserTimezone

2199+ "FILTER_ADVERTISER_TIMEZONE" -> Right PGBIFilterAdvertiserTimezone

2200− "FILTER_AD_POSITION" -> Just PGBIFilterAdPosition

2200+ "FILTER_AD_POSITION" -> Right PGBIFilterAdPosition

2201− "FILTER_AGE" -> Just PGBIFilterAge

2201+ "FILTER_AGE" -> Right PGBIFilterAge

2202− "FILTER_BRANDSAFE_CHANNEL_ID" -> Just PGBIFilterBrandsafeChannelId

2202+ "FILTER_BRANDSAFE_CHANNEL_ID" -> Right PGBIFilterBrandsafeChannelId

2203− "FILTER_BROWSER" -> Just PGBIFilterBrowser

2203+ "FILTER_BROWSER" -> Right PGBIFilterBrowser

2204− "FILTER_CAMPAIGN_DAILY_FREQUENCY" -> Just PGBIFilterCampaignDailyFrequency

2204+ "FILTER_CAMPAIGN_DAILY_FREQUENCY" -> Right PGBIFilterCampaignDailyFrequency

2205− "FILTER_CARRIER" -> Just PGBIFilterCarrier

2205+ "FILTER_CARRIER" -> Right PGBIFilterCarrier

2206− "FILTER_CHANNEL_ID" -> Just PGBIFilterChannelId

2206+ "FILTER_CHANNEL_ID" -> Right PGBIFilterChannelId

2207− "FILTER_CITY" -> Just PGBIFilterCity

2207+ "FILTER_CITY" -> Right PGBIFilterCity

2208− "FILTER_CONVERSION_DELAY" -> Just PGBIFilterConversionDelay

2208+ "FILTER_CONVERSION_DELAY" -> Right PGBIFilterConversionDelay

2209− "FILTER_COUNTRY" -> Just PGBIFilterCountry

2209+ "FILTER_COUNTRY" -> Right PGBIFilterCountry

2210− "FILTER_CREATIVE_HEIGHT" -> Just PGBIFilterCreativeHeight

2210+ "FILTER_CREATIVE_HEIGHT" -> Right PGBIFilterCreativeHeight

2211− "FILTER_CREATIVE_ID" -> Just PGBIFilterCreativeId

2211+ "FILTER_CREATIVE_ID" -> Right PGBIFilterCreativeId

2212− "FILTER_CREATIVE_SIZE" -> Just PGBIFilterCreativeSize

2212+ "FILTER_CREATIVE_SIZE" -> Right PGBIFilterCreativeSize

2213− "FILTER_CREATIVE_TYPE" -> Just PGBIFilterCreativeType

2213+ "FILTER_CREATIVE_TYPE" -> Right PGBIFilterCreativeType

2214− "FILTER_CREATIVE_WIDTH" -> Just PGBIFilterCreativeWidth

2214+ "FILTER_CREATIVE_WIDTH" -> Right PGBIFilterCreativeWidth

2215− "FILTER_DATA_PROVIDER" -> Just PGBIFilterDataProvider

2215+ "FILTER_DATA_PROVIDER" -> Right PGBIFilterDataProvider

2216− "FILTER_DATE" -> Just PGBIFilterDate

2216+ "FILTER_DATE" -> Right PGBIFilterDate

2217− "FILTER_DAY_OF_WEEK" -> Just PGBIFilterDayOfWeek

2217+ "FILTER_DAY_OF_WEEK" -> Right PGBIFilterDayOfWeek

2218− "FILTER_DFP_ORDER_ID" -> Just PGBIFilterDfpOrderId

2218+ "FILTER_DFP_ORDER_ID" -> Right PGBIFilterDfpOrderId

2219− "FILTER_DMA" -> Just PGBIFilterDma

2219+ "FILTER_DMA" -> Right PGBIFilterDma

2220− "FILTER_EXCHANGE_ID" -> Just PGBIFilterExchangeId

2220+ "FILTER_EXCHANGE_ID" -> Right PGBIFilterExchangeId

2221− "FILTER_FLOODLIGHT_PIXEL_ID" -> Just PGBIFilterFloodlightPixelId

2221+ "FILTER_FLOODLIGHT_PIXEL_ID" -> Right PGBIFilterFloodlightPixelId

2222− "FILTER_GENDER" -> Just PGBIFilterGender

2222+ "FILTER_GENDER" -> Right PGBIFilterGender

2223− "FILTER_INSERTION_ORDER" -> Just PGBIFilterInsertionOrder

2223+ "FILTER_INSERTION_ORDER" -> Right PGBIFilterInsertionOrder

2224− "FILTER_INVENTORY_FORMAT" -> Just PGBIFilterInventoryFormat

2224+ "FILTER_INVENTORY_FORMAT" -> Right PGBIFilterInventoryFormat

2225− "FILTER_INVENTORY_SOURCE" -> Just PGBIFilterInventorySource

2225+ "FILTER_INVENTORY_SOURCE" -> Right PGBIFilterInventorySource

2226− "FILTER_INVENTORY_SOURCE_TYPE" -> Just PGBIFilterInventorySourceType

2226+ "FILTER_INVENTORY_SOURCE_TYPE" -> Right PGBIFilterInventorySourceType

2227− "FILTER_KEYWORD" -> Just PGBIFilterKeyword

2227+ "FILTER_KEYWORD" -> Right PGBIFilterKeyword

2228− "FILTER_LINE_ITEM" -> Just PGBIFilterLineItem

2228+ "FILTER_LINE_ITEM" -> Right PGBIFilterLineItem

2229− "FILTER_LINE_ITEM_DAILY_FREQUENCY" -> Just PGBIFilterLineItemDailyFrequency

2229+ "FILTER_LINE_ITEM_DAILY_FREQUENCY" -> Right PGBIFilterLineItemDailyFrequency

2230− "FILTER_LINE_ITEM_LIFETIME_FREQUENCY" -> Just PGBIFilterLineItemLifetimeFrequency

2230+ "FILTER_LINE_ITEM_LIFETIME_FREQUENCY" -> Right PGBIFilterLineItemLifetimeFrequency

2231− "FILTER_LINE_ITEM_TYPE" -> Just PGBIFilterLineItemType

2231+ "FILTER_LINE_ITEM_TYPE" -> Right PGBIFilterLineItemType

2232− "FILTER_MOBILE_DEVICE_MAKE" -> Just PGBIFilterMobileDeviceMake

2232+ "FILTER_MOBILE_DEVICE_MAKE" -> Right PGBIFilterMobileDeviceMake

2233− "FILTER_MOBILE_DEVICE_MAKE_MODEL" -> Just PGBIFilterMobileDeviceMakeModel

2233+ "FILTER_MOBILE_DEVICE_MAKE_MODEL" -> Right PGBIFilterMobileDeviceMakeModel

2234− "FILTER_MOBILE_DEVICE_TYPE" -> Just PGBIFilterMobileDeviceType

2234+ "FILTER_MOBILE_DEVICE_TYPE" -> Right PGBIFilterMobileDeviceType

2235− "FILTER_MOBILE_GEO" -> Just PGBIFilterMobileGeo

2235+ "FILTER_MOBILE_GEO" -> Right PGBIFilterMobileGeo

2236− "FILTER_MONTH" -> Just PGBIFilterMonth

2236+ "FILTER_MONTH" -> Right PGBIFilterMonth

2237− "FILTER_MRAID_SUPPORT" -> Just PGBIFilterMraidSupport

2237+ "FILTER_MRAID_SUPPORT" -> Right PGBIFilterMraidSupport

2238− "FILTER_NIELSEN_AGE" -> Just PGBIFilterNielsenAge

2238+ "FILTER_NIELSEN_AGE" -> Right PGBIFilterNielsenAge

2239− "FILTER_NIELSEN_COUNTRY_CODE" -> Just PGBIFilterNielsenCountryCode

2239+ "FILTER_NIELSEN_COUNTRY_CODE" -> Right PGBIFilterNielsenCountryCode

2240− "FILTER_NIELSEN_DEVICE_ID" -> Just PGBIFilterNielsenDeviceId

2240+ "FILTER_NIELSEN_DEVICE_ID" -> Right PGBIFilterNielsenDeviceId

2241− "FILTER_NIELSEN_GENDER" -> Just PGBIFilterNielsenGender

2241+ "FILTER_NIELSEN_GENDER" -> Right PGBIFilterNielsenGender

2242− "FILTER_ORDER_ID" -> Just PGBIFilterOrderId

2242+ "FILTER_ORDER_ID" -> Right PGBIFilterOrderId

2243− "FILTER_OS" -> Just PGBIFilterOS

2243+ "FILTER_OS" -> Right PGBIFilterOS

2244− "FILTER_PAGE_CATEGORY" -> Just PGBIFilterPageCategory

2244+ "FILTER_PAGE_CATEGORY" -> Right PGBIFilterPageCategory

2245− "FILTER_PAGE_LAYOUT" -> Just PGBIFilterPageLayout

2245+ "FILTER_PAGE_LAYOUT" -> Right PGBIFilterPageLayout

2246− "FILTER_PARTNER" -> Just PGBIFilterPartner

2246+ "FILTER_PARTNER" -> Right PGBIFilterPartner

2247− "FILTER_PARTNER_CURRENCY" -> Just PGBIFilterPartnerCurrency

2247+ "FILTER_PARTNER_CURRENCY" -> Right PGBIFilterPartnerCurrency

2248− "FILTER_PUBLIC_INVENTORY" -> Just PGBIFilterPublicInventory

2248+ "FILTER_PUBLIC_INVENTORY" -> Right PGBIFilterPublicInventory

2249− "FILTER_QUARTER" -> Just PGBIFilterQuarter

2249+ "FILTER_QUARTER" -> Right PGBIFilterQuarter

2250− "FILTER_REGION" -> Just PGBIFilterRegion

2250+ "FILTER_REGION" -> Right PGBIFilterRegion

2251− "FILTER_REGULAR_CHANNEL_ID" -> Just PGBIFilterRegularChannelId

2251+ "FILTER_REGULAR_CHANNEL_ID" -> Right PGBIFilterRegularChannelId

2252− "FILTER_SITE_ID" -> Just PGBIFilterSiteId

2252+ "FILTER_SITE_ID" -> Right PGBIFilterSiteId

2253− "FILTER_SITE_LANGUAGE" -> Just PGBIFilterSiteLanguage

2253+ "FILTER_SITE_LANGUAGE" -> Right PGBIFilterSiteLanguage

2254− "FILTER_TARGETED_USER_LIST" -> Just PGBIFilterTargetedUserList

2254+ "FILTER_TARGETED_USER_LIST" -> Right PGBIFilterTargetedUserList

2255− "FILTER_TIME_OF_DAY" -> Just PGBIFilterTimeOfDay

2255+ "FILTER_TIME_OF_DAY" -> Right PGBIFilterTimeOfDay

2256− "FILTER_TRUEVIEW_AD_GROUP_AD_ID" -> Just PGBIFilterTrueviewAdGroupAdId

2256+ "FILTER_TRUEVIEW_AD_GROUP_AD_ID" -> Right PGBIFilterTrueviewAdGroupAdId

2257− "FILTER_TRUEVIEW_AD_GROUP_ID" -> Just PGBIFilterTrueviewAdGroupId

2257+ "FILTER_TRUEVIEW_AD_GROUP_ID" -> Right PGBIFilterTrueviewAdGroupId

2258− "FILTER_TRUEVIEW_AGE" -> Just PGBIFilterTrueviewAge

2258+ "FILTER_TRUEVIEW_AGE" -> Right PGBIFilterTrueviewAge

2259− "FILTER_TRUEVIEW_CONVERSION_TYPE" -> Just PGBIFilterTrueviewConversionType

2259+ "FILTER_TRUEVIEW_CONVERSION_TYPE" -> Right PGBIFilterTrueviewConversionType

2260− "FILTER_TRUEVIEW_GENDER" -> Just PGBIFilterTrueviewGender

2260+ "FILTER_TRUEVIEW_GENDER" -> Right PGBIFilterTrueviewGender

2261− "FILTER_TRUEVIEW_INTEREST" -> Just PGBIFilterTrueviewInterest

2261+ "FILTER_TRUEVIEW_INTEREST" -> Right PGBIFilterTrueviewInterest

2262− "FILTER_TRUEVIEW_PARENTAL_STATUS" -> Just PGBIFilterTrueviewParentalStatus

2262+ "FILTER_TRUEVIEW_PARENTAL_STATUS" -> Right PGBIFilterTrueviewParentalStatus

2263− "FILTER_TRUEVIEW_REMARKETING_LIST" -> Just PGBIFilterTrueviewRemarketingList

2263+ "FILTER_TRUEVIEW_REMARKETING_LIST" -> Right PGBIFilterTrueviewRemarketingList

2264− "FILTER_UNKNOWN" -> Just PGBIFilterUnknown

2264+ "FILTER_UNKNOWN" -> Right PGBIFilterUnknown

2265− "FILTER_USER_LIST" -> Just PGBIFilterUserList

2265+ "FILTER_USER_LIST" -> Right PGBIFilterUserList

2266− "FILTER_USER_LIST_FIRST_PARTY" -> Just PGBIFilterUserListFirstParty

2266+ "FILTER_USER_LIST_FIRST_PARTY" -> Right PGBIFilterUserListFirstParty

2267− "FILTER_USER_LIST_THIRD_PARTY" -> Just PGBIFilterUserListThirdParty

2267+ "FILTER_USER_LIST_THIRD_PARTY" -> Right PGBIFilterUserListThirdParty

2268− "FILTER_VIDEO_AD_POSITION_IN_STREAM" -> Just PGBIFilterVideoAdPositionInStream

2268+ "FILTER_VIDEO_AD_POSITION_IN_STREAM" -> Right PGBIFilterVideoAdPositionInStream

2269− "FILTER_VIDEO_COMPANION_SIZE" -> Just PGBIFilterVideoCompanionSize

2269+ "FILTER_VIDEO_COMPANION_SIZE" -> Right PGBIFilterVideoCompanionSize

2270− "FILTER_VIDEO_COMPANION_TYPE" -> Just PGBIFilterVideoCompanionType

2270+ "FILTER_VIDEO_COMPANION_TYPE" -> Right PGBIFilterVideoCompanionType

2271− "FILTER_VIDEO_CREATIVE_DURATION" -> Just PGBIFilterVideoCreativeDuration

2271+ "FILTER_VIDEO_CREATIVE_DURATION" -> Right PGBIFilterVideoCreativeDuration

2272− "FILTER_VIDEO_CREATIVE_DURATION_SKIPPABLE" -> Just PGBIFilterVideoCreativeDurationSkippable

2272+ "FILTER_VIDEO_CREATIVE_DURATION_SKIPPABLE" -> Right PGBIFilterVideoCreativeDurationSkippable

2273− "FILTER_VIDEO_DURATION_SECONDS" -> Just PGBIFilterVideoDurationSeconds

2273+ "FILTER_VIDEO_DURATION_SECONDS" -> Right PGBIFilterVideoDurationSeconds

2274− "FILTER_VIDEO_FORMAT_SUPPORT" -> Just PGBIFilterVideoFormatSupport

2274+ "FILTER_VIDEO_FORMAT_SUPPORT" -> Right PGBIFilterVideoFormatSupport

2275− "FILTER_VIDEO_INVENTORY_TYPE" -> Just PGBIFilterVideoInventoryType

2275+ "FILTER_VIDEO_INVENTORY_TYPE" -> Right PGBIFilterVideoInventoryType

2276− "FILTER_VIDEO_PLAYER_SIZE" -> Just PGBIFilterVideoPlayerSize

2276+ "FILTER_VIDEO_PLAYER_SIZE" -> Right PGBIFilterVideoPlayerSize

2277− "FILTER_VIDEO_RATING_TIER" -> Just PGBIFilterVideoRatingTier

2277+ "FILTER_VIDEO_RATING_TIER" -> Right PGBIFilterVideoRatingTier

2278− "FILTER_VIDEO_SKIPPABLE_SUPPORT" -> Just PGBIFilterVideoSkippableSupport

2278+ "FILTER_VIDEO_SKIPPABLE_SUPPORT" -> Right PGBIFilterVideoSkippableSupport

2279− "FILTER_VIDEO_VPAID_SUPPORT" -> Just PGBIFilterVideoVpaidSupport

2279+ "FILTER_VIDEO_VPAID_SUPPORT" -> Right PGBIFilterVideoVpaidSupport

2280− "FILTER_WEEK" -> Just PGBIFilterWeek

2280+ "FILTER_WEEK" -> Right PGBIFilterWeek

2281− "FILTER_YEAR" -> Just PGBIFilterYear

2281+ "FILTER_YEAR" -> Right PGBIFilterYear

2282− "FILTER_YOUTUBE_VERTICAL" -> Just PGBIFilterYouTubeVertical

2282+ "FILTER_YOUTUBE_VERTICAL" -> Right PGBIFilterYouTubeVertical

2283− "FILTER_ZIP_CODE" -> Just PGBIFilterZipCode

2283+ "FILTER_ZIP_CODE" -> Right PGBIFilterZipCode

2284− _ -> Nothing

2284+ x -> Left ("Unable to parse ParametersGroupBysItem from: " <> x)

2285−

2285+

2286−instance ToText ParametersGroupBysItem where

2286+instance ToHttpApiData ParametersGroupBysItem where

2287− toText = \case

2287+ toQueryParam = \case

2288 PGBIFilterActiveViewExpectedViewability -> "FILTER_ACTIVE_VIEW_EXPECTED_VIEWABILITY"

2289 PGBIFilterActivityId -> "FILTER_ACTIVITY_ID"

2290 PGBIFilterAdvertiser -> "FILTER_ADVERTISER"

@@ -2423,30 +2423,30 @@ data ReportFailureErrorCode

2423

2424instance Hashable ReportFailureErrorCode

2425

2426−instance FromText ReportFailureErrorCode where

2426+instance FromHttpApiData ReportFailureErrorCode where

2427− fromText = \case

2427+ parseQueryParam = \case

2428− "AUTHENTICATION_ERROR" -> Just AuthenticationError

2428+ "AUTHENTICATION_ERROR" -> Right AuthenticationError

2429− "DEPRECATED_REPORTING_INVALID_QUERY" -> Just DeprecatedReportingInvalidQuery

2429+ "DEPRECATED_REPORTING_INVALID_QUERY" -> Right DeprecatedReportingInvalidQuery

2430− "REPORTING_BUCKET_NOT_FOUND" -> Just ReportingBucketNotFound

2430+ "REPORTING_BUCKET_NOT_FOUND" -> Right ReportingBucketNotFound

2431− "REPORTING_CREATE_BUCKET_FAILED" -> Just ReportingCreateBucketFailed

2431+ "REPORTING_CREATE_BUCKET_FAILED" -> Right ReportingCreateBucketFailed

2432− "REPORTING_DELETE_BUCKET_FAILED" -> Just ReportingDeleteBucketFailed

2432+ "REPORTING_DELETE_BUCKET_FAILED" -> Right ReportingDeleteBucketFailed

2433− "REPORTING_FATAL_ERROR" -> Just ReportingFatalError

2433+ "REPORTING_FATAL_ERROR" -> Right ReportingFatalError

2434− "REPORTING_ILLEGAL_FILENAME" -> Just ReportingIllegalFilename

2434+ "REPORTING_ILLEGAL_FILENAME" -> Right ReportingIllegalFilename

2435− "REPORTING_IMCOMPATIBLE_METRICS" -> Just ReportingImcompatibleMetrics

2435+ "REPORTING_IMCOMPATIBLE_METRICS" -> Right ReportingImcompatibleMetrics

2436− "REPORTING_INVALID_QUERY_MISSING_PARTNER_AND_ADVERTISER_FILTERS" -> Just ReportingInvalidQueryMissingPartnerAndAdvertiserFilters

2436+ "REPORTING_INVALID_QUERY_MISSING_PARTNER_AND_ADVERTISER_FILTERS" -> Right ReportingInvalidQueryMissingPartnerAndAdvertiserFilters

2437− "REPORTING_INVALID_QUERY_TITLE_MISSING" -> Just ReportingInvalidQueryTitleMissing

2437+ "REPORTING_INVALID_QUERY_TITLE_MISSING" -> Right ReportingInvalidQueryTitleMissing

2438− "REPORTING_INVALID_QUERY_TOO_MANY_UNFILTERED_LARGE_GROUP_BYS" -> Just ReportingInvalidQueryTooManyUnfilteredLargeGroupBys

2438+ "REPORTING_INVALID_QUERY_TOO_MANY_UNFILTERED_LARGE_GROUP_BYS" -> Right ReportingInvalidQueryTooManyUnfilteredLargeGroupBys

2439− "REPORTING_QUERY_NOT_FOUND" -> Just ReportingQueryNotFound

2439+ "REPORTING_QUERY_NOT_FOUND" -> Right ReportingQueryNotFound

2440− "REPORTING_TRANSIENT_ERROR" -> Just ReportingTransientError

2440+ "REPORTING_TRANSIENT_ERROR" -> Right ReportingTransientError

2441− "REPORTING_UPDATE_BUCKET_PERMISSION_FAILED" -> Just ReportingUpdateBucketPermissionFailed

2441+ "REPORTING_UPDATE_BUCKET_PERMISSION_FAILED" -> Right ReportingUpdateBucketPermissionFailed

2442− "REPORTING_WRITE_BUCKET_OBJECT_FAILED" -> Just ReportingWriteBucketObjectFailed

2442+ "REPORTING_WRITE_BUCKET_OBJECT_FAILED" -> Right ReportingWriteBucketObjectFailed

2443− "SERVER_ERROR" -> Just ServerError

2443+ "SERVER_ERROR" -> Right ServerError

2444− "UNAUTHORIZED_API_ACCESS" -> Just UnauthorizedAPIAccess

2444+ "UNAUTHORIZED_API_ACCESS" -> Right UnauthorizedAPIAccess

2445− "VALIDATION_ERROR" -> Just ValidationError

2445+ "VALIDATION_ERROR" -> Right ValidationError

2446− _ -> Nothing

2446+ x -> Left ("Unable to parse ReportFailureErrorCode from: " <> x)

2447−

2447+

2448−instance ToText ReportFailureErrorCode where

2448+instance ToHttpApiData ReportFailureErrorCode where

2449− toText = \case

2449+ toQueryParam = \case

2450 AuthenticationError -> "AUTHENTICATION_ERROR"

2451 DeprecatedReportingInvalidQuery -> "DEPRECATED_REPORTING_INVALID_QUERY"

2452 ReportingBucketNotFound -> "REPORTING_BUCKET_NOT_FOUND"

@@ -2480,13 +2480,13 @@ data DownloadLineItemsRequestFormat

2480

2481instance Hashable DownloadLineItemsRequestFormat

2482

2483−instance FromText DownloadLineItemsRequestFormat where

2483+instance FromHttpApiData DownloadLineItemsRequestFormat where

2484− fromText = \case

2484+ parseQueryParam = \case

2485− "CSV" -> Just DLIRFCSV

2485+ "CSV" -> Right DLIRFCSV

2486− _ -> Nothing

2486+ x -> Left ("Unable to parse DownloadLineItemsRequestFormat from: " <> x)

2487

2488−instance ToText DownloadLineItemsRequestFormat where

2488+instance ToHttpApiData DownloadLineItemsRequestFormat where

2489− toText = \case

2489+ toQueryParam = \case

2490 DLIRFCSV -> "CSV"

2491

2492instance FromJSON DownloadLineItemsRequestFormat where

@@ -2507,15 +2507,15 @@ data ReportStatusFormat

2507

2508instance Hashable ReportStatusFormat

2509

2510−instance FromText ReportStatusFormat where

2510+instance FromHttpApiData ReportStatusFormat where

2511− fromText = \case

2511+ parseQueryParam = \case

2512− "CSV" -> Just RSFCSV

2512+ "CSV" -> Right RSFCSV

2513− "EXCEL_CSV" -> Just RSFExcelCSV

2513+ "EXCEL_CSV" -> Right RSFExcelCSV

2514− "XLSX" -> Just RSFXlsx

2514+ "XLSX" -> Right RSFXlsx

2515− _ -> Nothing

2515+ x -> Left ("Unable to parse ReportStatusFormat from: " <> x)

2516

2517−instance ToText ReportStatusFormat where

2517+instance ToHttpApiData ReportStatusFormat where

2518− toText = \case

2518+ toQueryParam = \case

2519 RSFCSV -> "CSV"

2520 RSFExcelCSV -> "EXCEL_CSV"

2521 RSFXlsx -> "XLSX"

gogol-drive/gen/Network/Google/Drive/Types/Sum.hs+8−8

@@ -30,14 +30,14 @@ data FilesListCorpus

31instance Hashable FilesListCorpus

33−instance FromText FilesListCorpus where

33+instance FromHttpApiData FilesListCorpus where

34− fromText = \case

34+ parseQueryParam = \case

35− "domain" -> Just FLCDomain

35+ "domain" -> Right FLCDomain

36− "user" -> Just FLCUser

36+ "user" -> Right FLCUser

37− _ -> Nothing

37+ x -> Left ("Unable to parse FilesListCorpus from: " <> x)

38−

38+

39−instance ToText FilesListCorpus where

39+instance ToHttpApiData FilesListCorpus where

40− toText = \case

40+ toQueryParam = \case

41 FLCDomain -> "domain"

42 FLCUser -> "user"

gogol-fitness/gen/Network/Google/Fitness/Types/Sum.hs+43−43

@@ -35,17 +35,17 @@ data AggregateBucketType

36instance Hashable AggregateBucketType

38−instance FromText AggregateBucketType where

38+instance FromHttpApiData AggregateBucketType where

39− fromText = \case

39+ parseQueryParam = \case

40− "activitySegment" -> Just ABTActivitySegment

40+ "activitySegment" -> Right ABTActivitySegment

41− "activityType" -> Just ABTActivityType

41+ "activityType" -> Right ABTActivityType

42− "session" -> Just ABTSession

42+ "session" -> Right ABTSession

43− "time" -> Just ABTTime

43+ "time" -> Right ABTTime

44− "unknown" -> Just ABTUnknown

44+ "unknown" -> Right ABTUnknown

45− _ -> Nothing

45+ x -> Left ("Unable to parse AggregateBucketType from: " <> x)

46−

46+

47−instance ToText AggregateBucketType where

47+instance ToHttpApiData AggregateBucketType where

48− toText = \case

48+ toQueryParam = \case

49 ABTActivitySegment -> "activitySegment"

50 ABTActivityType -> "activityType"

51 ABTSession -> "session"

@@ -69,14 +69,14 @@ data DataSourceType

70instance Hashable DataSourceType

72−instance FromText DataSourceType where

72+instance FromHttpApiData DataSourceType where

73− fromText = \case

73+ parseQueryParam = \case

74− "derived" -> Just Derived

74+ "derived" -> Right Derived

75− "raw" -> Just Raw

75+ "raw" -> Right Raw

76− _ -> Nothing

76+ x -> Left ("Unable to parse DataSourceType from: " <> x)

78−instance ToText DataSourceType where

78+instance ToHttpApiData DataSourceType where

79− toText = \case

79+ toQueryParam = \case

80 Derived -> "derived"

81 Raw -> "raw"

@@ -104,18 +104,18 @@ data DeviceType

104

105instance Hashable DeviceType

106

107−instance FromText DeviceType where

107+instance FromHttpApiData DeviceType where

108− fromText = \case

108+ parseQueryParam = \case

109− "chestStrap" -> Just ChestStrap

109+ "chestStrap" -> Right ChestStrap

110− "phone" -> Just Phone

110+ "phone" -> Right Phone

111− "scale" -> Just Scale

111+ "scale" -> Right Scale

112− "tablet" -> Just Tablet

112+ "tablet" -> Right Tablet

113− "unknown" -> Just Unknown

113+ "unknown" -> Right Unknown

114− "watch" -> Just Watch

114+ "watch" -> Right Watch

115− _ -> Nothing

115+ x -> Left ("Unable to parse DeviceType from: " <> x)

116−

116+

117−instance ToText DeviceType where

117+instance ToHttpApiData DeviceType where

118− toText = \case

118+ toQueryParam = \case

119 ChestStrap -> "chestStrap"

120 Phone -> "phone"

121 Scale -> "scale"

@@ -149,19 +149,19 @@ data DataTypeFieldFormat

149

150instance Hashable DataTypeFieldFormat

151

152−instance FromText DataTypeFieldFormat where

152+instance FromHttpApiData DataTypeFieldFormat where

153− fromText = \case

153+ parseQueryParam = \case

154− "blob" -> Just Blob

154+ "blob" -> Right Blob

155− "floatList" -> Just FloatList

155+ "floatList" -> Right FloatList

156− "floatPoint" -> Just FloatPoint

156+ "floatPoint" -> Right FloatPoint

157− "integer" -> Just Integer

157+ "integer" -> Right Integer

158− "integerList" -> Just IntegerList

158+ "integerList" -> Right IntegerList

159− "map" -> Just Map

159+ "map" -> Right Map

160− "string" -> Just String

160+ "string" -> Right String

161− _ -> Nothing

161+ x -> Left ("Unable to parse DataTypeFieldFormat from: " <> x)

162−

162+

163−instance ToText DataTypeFieldFormat where

163+instance ToHttpApiData DataTypeFieldFormat where

164− toText = \case

164+ toQueryParam = \case

165 Blob -> "blob"

166 FloatList -> "floatList"

167 FloatPoint -> "floatPoint"

gogol-fonts/gen/Network/Google/Fonts/Types/Sum.hs+11−11

@@ -39,17 +39,17 @@ data WebfontsListSort

40instance Hashable WebfontsListSort

42−instance FromText WebfontsListSort where

42+instance FromHttpApiData WebfontsListSort where

43− fromText = \case

43+ parseQueryParam = \case

44− "alpha" -> Just Alpha

44+ "alpha" -> Right Alpha

45− "date" -> Just Date

45+ "date" -> Right Date

46− "popularity" -> Just Popularity

46+ "popularity" -> Right Popularity

47− "style" -> Just Style

47+ "style" -> Right Style

48− "trending" -> Just Trending

48+ "trending" -> Right Trending

49− _ -> Nothing

49+ x -> Left ("Unable to parse WebfontsListSort from: " <> x)

50−

50+

51−instance ToText WebfontsListSort where

51+instance ToHttpApiData WebfontsListSort where

52− toText = \case

52+ toQueryParam = \case

53 Alpha -> "alpha"

54 Date -> "date"

55 Popularity -> "popularity"

gogol-freebasesearch/gen/Network/Google/FreebaseSearch/Types/Sum.hs+43−43

@@ -42,18 +42,18 @@ data FreebaseSearchFormat

43instance Hashable FreebaseSearchFormat

45−instance FromText FreebaseSearchFormat where

45+instance FromHttpApiData FreebaseSearchFormat where

46− fromText = \case

46+ parseQueryParam = \case

47− "ac" -> Just AC

47+ "ac" -> Right AC

48− "classic" -> Just Classic

48+ "classic" -> Right Classic

49− "entity" -> Just Entity

49+ "entity" -> Right Entity

50− "guids" -> Just Guids

50+ "guids" -> Right Guids

51− "ids" -> Just Ids

51+ "ids" -> Right Ids

52− "mids" -> Just Mids

52+ "mids" -> Right Mids

53− _ -> Nothing

53+ x -> Left ("Unable to parse FreebaseSearchFormat from: " <> x)

54−

54+

55−instance ToText FreebaseSearchFormat where

55+instance ToHttpApiData FreebaseSearchFormat where

56− toText = \case

56+ toQueryParam = \case

57 AC -> "ac"

58 Classic -> "classic"

59 Entity -> "entity"

@@ -82,15 +82,15 @@ data FreebaseSearchScoring

83instance Hashable FreebaseSearchScoring

85−instance FromText FreebaseSearchScoring where

85+instance FromHttpApiData FreebaseSearchScoring where

86− fromText = \case

86+ parseQueryParam = \case

87− "entity" -> Just FSSEntity

87+ "entity" -> Right FSSEntity

88− "freebase" -> Just FSSFreebase

88+ "freebase" -> Right FSSFreebase

89− "schema" -> Just FSSSchema

89+ "schema" -> Right FSSSchema

90− _ -> Nothing

90+ x -> Left ("Unable to parse FreebaseSearchScoring from: " <> x)

92−instance ToText FreebaseSearchScoring where

92+instance ToHttpApiData FreebaseSearchScoring where

93− toText = \case

93+ toQueryParam = \case

94 FSSEntity -> "entity"

95 FSSFreebase -> "freebase"

96 FSSSchema -> "schema"

@@ -116,14 +116,14 @@ data FreebaseSearchEncode

116

117instance Hashable FreebaseSearchEncode

118

119−instance FromText FreebaseSearchEncode where

119+instance FromHttpApiData FreebaseSearchEncode where

120− fromText = \case

120+ parseQueryParam = \case

121− "html" -> Just HTML

121+ "html" -> Right HTML

122− "off" -> Just Off

122+ "off" -> Right Off

123− _ -> Nothing

123+ x -> Left ("Unable to parse FreebaseSearchEncode from: " <> x)

124

125−instance ToText FreebaseSearchEncode where

125+instance ToHttpApiData FreebaseSearchEncode where

126− toText = \case

126+ toQueryParam = \case

127 HTML -> "html"

128 Off -> "off"

129

@@ -150,15 +150,15 @@ data FreebaseSearchHelp

150

151instance Hashable FreebaseSearchHelp

152

153−instance FromText FreebaseSearchHelp where

153+instance FromHttpApiData FreebaseSearchHelp where

154− fromText = \case

154+ parseQueryParam = \case

155− "langs" -> Just Langs

155+ "langs" -> Right Langs

156− "mappings" -> Just MAppings

156+ "mappings" -> Right MAppings

157− "predicates" -> Just Predicates

157+ "predicates" -> Right Predicates

158− _ -> Nothing

158+ x -> Left ("Unable to parse FreebaseSearchHelp from: " <> x)

159

160−instance ToText FreebaseSearchHelp where

160+instance ToHttpApiData FreebaseSearchHelp where

161− toText = \case

161+ toQueryParam = \case

162 Langs -> "langs"

163 MAppings -> "mappings"

164 Predicates -> "predicates"

@@ -185,15 +185,15 @@ data FreebaseSearchSpell

185

186instance Hashable FreebaseSearchSpell

187

188−instance FromText FreebaseSearchSpell where

188+instance FromHttpApiData FreebaseSearchSpell where

189− fromText = \case

189+ parseQueryParam = \case

190− "always" -> Just Always

190+ "always" -> Right Always

191− "no_results" -> Just NoResults

191+ "no_results" -> Right NoResults

192− "no_spelling" -> Just NoSpelling

192+ "no_spelling" -> Right NoSpelling

193− _ -> Nothing

193+ x -> Left ("Unable to parse FreebaseSearchSpell from: " <> x)

194

195−instance ToText FreebaseSearchSpell where

195+instance ToHttpApiData FreebaseSearchSpell where

196− toText = \case

196+ toQueryParam = \case

197 Always -> "always"

198 NoResults -> "no_results"

199 NoSpelling -> "no_spelling"

gogol-games-configuration/gen/Network/Google/GamesConfiguration/Types/Sum.hs+8−8

@@ -30,14 +30,14 @@ data ImageConfigurationsUploadImageType

31instance Hashable ImageConfigurationsUploadImageType

33−instance FromText ImageConfigurationsUploadImageType where

33+instance FromHttpApiData ImageConfigurationsUploadImageType where

34− fromText = \case

34+ parseQueryParam = \case

35− "ACHIEVEMENT_ICON" -> Just AchievementIcon

35+ "ACHIEVEMENT_ICON" -> Right AchievementIcon

36− "LEADERBOARD_ICON" -> Just LeaderboardIcon

36+ "LEADERBOARD_ICON" -> Right LeaderboardIcon

37− _ -> Nothing

37+ x -> Left ("Unable to parse ImageConfigurationsUploadImageType from: " <> x)

38−

38+

39−instance ToText ImageConfigurationsUploadImageType where

39+instance ToHttpApiData ImageConfigurationsUploadImageType where

40− toText = \case

40+ toQueryParam = \case

41 AchievementIcon -> "ACHIEVEMENT_ICON"

42 LeaderboardIcon -> "LEADERBOARD_ICON"

gogol-games/gen/Network/Google/Games/Types/Sum.hs+78−78

@@ -28,13 +28,13 @@ data PlayersListCollection

29instance Hashable PlayersListCollection

31−instance FromText PlayersListCollection where

31+instance FromHttpApiData PlayersListCollection where

32− fromText = \case

32+ parseQueryParam = \case

33− "played_with" -> Just PlayedWith

33+ "played_with" -> Right PlayedWith

34− _ -> Nothing

34+ x -> Left ("Unable to parse PlayersListCollection from: " <> x)

36−instance ToText PlayersListCollection where

36+instance ToHttpApiData PlayersListCollection where

37− toText = \case

37+ toQueryParam = \case

38 PlayedWith -> "played_with"

40instance FromJSON PlayersListCollection where

@@ -58,15 +58,15 @@ data ScoresListCollection

59instance Hashable ScoresListCollection

61−instance FromText ScoresListCollection where

61+instance FromHttpApiData ScoresListCollection where

62− fromText = \case

62+ parseQueryParam = \case

63− "PUBLIC" -> Just Public

63+ "PUBLIC" -> Right Public

64− "SOCIAL" -> Just Social

64+ "SOCIAL" -> Right Social

65− "SOCIAL_1P" -> Just Social1P

65+ "SOCIAL_1P" -> Right Social1P

66− _ -> Nothing

66+ x -> Left ("Unable to parse ScoresListCollection from: " <> x)

68−instance ToText ScoresListCollection where

68+instance ToHttpApiData ScoresListCollection where

69− toText = \case

69+ toQueryParam = \case

70 Public -> "PUBLIC"

71 Social -> "SOCIAL"

72 Social1P -> "SOCIAL_1P"

@@ -92,15 +92,15 @@ data ApplicationsGetPlatformType

93instance Hashable ApplicationsGetPlatformType

95−instance FromText ApplicationsGetPlatformType where

95+instance FromHttpApiData ApplicationsGetPlatformType where

96− fromText = \case

96+ parseQueryParam = \case

97− "ANDROID" -> Just Android

97+ "ANDROID" -> Right Android

98− "IOS" -> Just Ios

98+ "IOS" -> Right Ios

99− "WEB_APP" -> Just WebApp

99+ "WEB_APP" -> Right WebApp

100− _ -> Nothing

100+ x -> Left ("Unable to parse ApplicationsGetPlatformType from: " <> x)

101

102−instance ToText ApplicationsGetPlatformType where

102+instance ToHttpApiData ApplicationsGetPlatformType where

103− toText = \case

103+ toQueryParam = \case

104 Android -> "ANDROID"

105 Ios -> "IOS"

106 WebApp -> "WEB_APP"

@@ -126,15 +126,15 @@ data ScoresListWindowCollection

126

127instance Hashable ScoresListWindowCollection

128

129−instance FromText ScoresListWindowCollection where

129+instance FromHttpApiData ScoresListWindowCollection where

130− fromText = \case

130+ parseQueryParam = \case

131− "PUBLIC" -> Just SLWCPublic

131+ "PUBLIC" -> Right SLWCPublic

132− "SOCIAL" -> Just SLWCSocial

132+ "SOCIAL" -> Right SLWCSocial

133− "SOCIAL_1P" -> Just SLWCSocial1P

133+ "SOCIAL_1P" -> Right SLWCSocial1P

134− _ -> Nothing

134+ x -> Left ("Unable to parse ScoresListWindowCollection from: " <> x)

135

136−instance ToText ScoresListWindowCollection where

136+instance ToHttpApiData ScoresListWindowCollection where

137− toText = \case

137+ toQueryParam = \case

138 SLWCPublic -> "PUBLIC"

139 SLWCSocial -> "SOCIAL"

140 SLWCSocial1P -> "SOCIAL_1P"

@@ -160,15 +160,15 @@ data ScoresListWindowTimeSpan

160

161instance Hashable ScoresListWindowTimeSpan

162

163−instance FromText ScoresListWindowTimeSpan where

163+instance FromHttpApiData ScoresListWindowTimeSpan where

164− fromText = \case

164+ parseQueryParam = \case

165− "ALL_TIME" -> Just AllTime

165+ "ALL_TIME" -> Right AllTime

166− "DAILY" -> Just Daily

166+ "DAILY" -> Right Daily

167− "WEEKLY" -> Just Weekly

167+ "WEEKLY" -> Right Weekly

168− _ -> Nothing

168+ x -> Left ("Unable to parse ScoresListWindowTimeSpan from: " <> x)

169

170−instance ToText ScoresListWindowTimeSpan where

170+instance ToHttpApiData ScoresListWindowTimeSpan where

171− toText = \case

171+ toQueryParam = \case

172 AllTime -> "ALL_TIME"

173 Daily -> "DAILY"

174 Weekly -> "WEEKLY"

@@ -198,16 +198,16 @@ data ScoresGetTimeSpan

198

199instance Hashable ScoresGetTimeSpan

200

201−instance FromText ScoresGetTimeSpan where

201+instance FromHttpApiData ScoresGetTimeSpan where

202− fromText = \case

202+ parseQueryParam = \case

203− "ALL" -> Just SGTSAll

203+ "ALL" -> Right SGTSAll

204− "ALL_TIME" -> Just SGTSAllTime

204+ "ALL_TIME" -> Right SGTSAllTime

205− "DAILY" -> Just SGTSDaily

205+ "DAILY" -> Right SGTSDaily

206− "WEEKLY" -> Just SGTSWeekly

206+ "WEEKLY" -> Right SGTSWeekly

207− _ -> Nothing

207+ x -> Left ("Unable to parse ScoresGetTimeSpan from: " <> x)

208

209−instance ToText ScoresGetTimeSpan where

209+instance ToHttpApiData ScoresGetTimeSpan where

210− toText = \case

210+ toQueryParam = \case

211 SGTSAll -> "ALL"

212 SGTSAllTime -> "ALL_TIME"

213 SGTSDaily -> "DAILY"

@@ -236,15 +236,15 @@ data ScoresGetIncludeRankType

236

237instance Hashable ScoresGetIncludeRankType

238

239−instance FromText ScoresGetIncludeRankType where

239+instance FromHttpApiData ScoresGetIncludeRankType where

240− fromText = \case

240+ parseQueryParam = \case

241− "ALL" -> Just SGIRTAll

241+ "ALL" -> Right SGIRTAll

242− "PUBLIC" -> Just SGIRTPublic

242+ "PUBLIC" -> Right SGIRTPublic

243− "SOCIAL" -> Just SGIRTSocial

243+ "SOCIAL" -> Right SGIRTSocial

244− _ -> Nothing

244+ x -> Left ("Unable to parse ScoresGetIncludeRankType from: " <> x)

245

246−instance ToText ScoresGetIncludeRankType where

246+instance ToHttpApiData ScoresGetIncludeRankType where

247− toText = \case

247+ toQueryParam = \case

248 SGIRTAll -> "ALL"

249 SGIRTPublic -> "PUBLIC"

250 SGIRTSocial -> "SOCIAL"

@@ -270,15 +270,15 @@ data ScoresListTimeSpan

270

271instance Hashable ScoresListTimeSpan

272

273−instance FromText ScoresListTimeSpan where

273+instance FromHttpApiData ScoresListTimeSpan where

274− fromText = \case

274+ parseQueryParam = \case

275− "ALL_TIME" -> Just SLTSAllTime

275+ "ALL_TIME" -> Right SLTSAllTime

276− "DAILY" -> Just SLTSDaily

276+ "DAILY" -> Right SLTSDaily

277− "WEEKLY" -> Just SLTSWeekly

277+ "WEEKLY" -> Right SLTSWeekly

278− _ -> Nothing

278+ x -> Left ("Unable to parse ScoresListTimeSpan from: " <> x)

279

280−instance ToText ScoresListTimeSpan where

280+instance ToHttpApiData ScoresListTimeSpan where

281− toText = \case

281+ toQueryParam = \case

282 SLTSAllTime -> "ALL_TIME"

283 SLTSDaily -> "DAILY"

284 SLTSWeekly -> "WEEKLY"

@@ -298,13 +298,13 @@ data MetagameListCategoriesByPlayerCollection

298

299instance Hashable MetagameListCategoriesByPlayerCollection

300

301−instance FromText MetagameListCategoriesByPlayerCollection where

301+instance FromHttpApiData MetagameListCategoriesByPlayerCollection where

302− fromText = \case

302+ parseQueryParam = \case

303− "all" -> Just All

303+ "all" -> Right All

304− _ -> Nothing

304+ x -> Left ("Unable to parse MetagameListCategoriesByPlayerCollection from: " <> x)

305

306−instance ToText MetagameListCategoriesByPlayerCollection where

306+instance ToHttpApiData MetagameListCategoriesByPlayerCollection where

307− toText = \case

307+ toQueryParam = \case

308 All -> "all"

309

310instance FromJSON MetagameListCategoriesByPlayerCollection where

@@ -332,16 +332,16 @@ data AchievementsListState

332

333instance Hashable AchievementsListState

334

335−instance FromText AchievementsListState where

335+instance FromHttpApiData AchievementsListState where

336− fromText = \case

336+ parseQueryParam = \case

337− "ALL" -> Just ALSAll

337+ "ALL" -> Right ALSAll

338− "HIDDEN" -> Just ALSHidden

338+ "HIDDEN" -> Right ALSHidden

339− "REVEALED" -> Just ALSRevealed

339+ "REVEALED" -> Right ALSRevealed

340− "UNLOCKED" -> Just ALSUnlocked

340+ "UNLOCKED" -> Right ALSUnlocked

341− _ -> Nothing

341+ x -> Left ("Unable to parse AchievementsListState from: " <> x)

342

343−instance ToText AchievementsListState where

343+instance ToHttpApiData AchievementsListState where

344− toText = \case

344+ toQueryParam = \case

345 ALSAll -> "ALL"

346 ALSHidden -> "HIDDEN"

347 ALSRevealed -> "REVEALED"

gogol-gmail/gen/Network/Google/Gmail/Types/Sum.hs+70−70

@@ -32,16 +32,16 @@ data UsersMessagesGetFormat

33instance Hashable UsersMessagesGetFormat

35−instance FromText UsersMessagesGetFormat where

35+instance FromHttpApiData UsersMessagesGetFormat where

36− fromText = \case

36+ parseQueryParam = \case

37− "full" -> Just Full

37+ "full" -> Right Full

38− "metadata" -> Just Metadata

38+ "metadata" -> Right Metadata

39− "minimal" -> Just Minimal

39+ "minimal" -> Right Minimal

40− "raw" -> Just Raw

40+ "raw" -> Right Raw

41− _ -> Nothing

41+ x -> Left ("Unable to parse UsersMessagesGetFormat from: " <> x)

42−

42+

43−instance ToText UsersMessagesGetFormat where

43+instance ToHttpApiData UsersMessagesGetFormat where

44− toText = \case

44+ toQueryParam = \case

45 Full -> "full"

46 Metadata -> "metadata"

47 Minimal -> "minimal"

@@ -70,14 +70,14 @@ data LabelType

71instance Hashable LabelType

73−instance FromText LabelType where

73+instance FromHttpApiData LabelType where

74− fromText = \case

74+ parseQueryParam = \case

75− "system" -> Just System

75+ "system" -> Right System

76− "user" -> Just User

76+ "user" -> Right User

77− _ -> Nothing

77+ x -> Left ("Unable to parse LabelType from: " <> x)

79−instance ToText LabelType where

79+instance ToHttpApiData LabelType where

80− toText = \case

80+ toQueryParam = \case

81 System -> "system"

82 User -> "user"

@@ -101,16 +101,16 @@ data UsersDraftsGetFormat

101

102instance Hashable UsersDraftsGetFormat

103

104−instance FromText UsersDraftsGetFormat where

104+instance FromHttpApiData UsersDraftsGetFormat where

105− fromText = \case

105+ parseQueryParam = \case

106− "full" -> Just UDGFFull

106+ "full" -> Right UDGFFull

107− "metadata" -> Just UDGFMetadata

107+ "metadata" -> Right UDGFMetadata

108− "minimal" -> Just UDGFMinimal

108+ "minimal" -> Right UDGFMinimal

109− "raw" -> Just UDGFRaw

109+ "raw" -> Right UDGFRaw

110− _ -> Nothing

110+ x -> Left ("Unable to parse UsersDraftsGetFormat from: " <> x)

111

112−instance ToText UsersDraftsGetFormat where

112+instance ToHttpApiData UsersDraftsGetFormat where

113− toText = \case

113+ toQueryParam = \case

114 UDGFFull -> "full"

115 UDGFMetadata -> "metadata"

116 UDGFMinimal -> "minimal"

@@ -132,14 +132,14 @@ data UsersMessagesImportInternalDateSource

132

133instance Hashable UsersMessagesImportInternalDateSource

134

135−instance FromText UsersMessagesImportInternalDateSource where

135+instance FromHttpApiData UsersMessagesImportInternalDateSource where

136− fromText = \case

136+ parseQueryParam = \case

137− "dateHeader" -> Just DateHeader

137+ "dateHeader" -> Right DateHeader

138− "receivedTime" -> Just ReceivedTime

138+ "receivedTime" -> Right ReceivedTime

139− _ -> Nothing

139+ x -> Left ("Unable to parse UsersMessagesImportInternalDateSource from: " <> x)

140

141−instance ToText UsersMessagesImportInternalDateSource where

141+instance ToHttpApiData UsersMessagesImportInternalDateSource where

142− toText = \case

142+ toQueryParam = \case

143 DateHeader -> "dateHeader"

144 ReceivedTime -> "receivedTime"

145

@@ -160,14 +160,14 @@ data LabelMessageListVisibility

160

161instance Hashable LabelMessageListVisibility

162

163−instance FromText LabelMessageListVisibility where

163+instance FromHttpApiData LabelMessageListVisibility where

164− fromText = \case

164+ parseQueryParam = \case

165− "hide" -> Just Hide

165+ "hide" -> Right Hide

166− "show" -> Just Show

166+ "show" -> Right Show

167− _ -> Nothing

167+ x -> Left ("Unable to parse LabelMessageListVisibility from: " <> x)

168

169−instance ToText LabelMessageListVisibility where

169+instance ToHttpApiData LabelMessageListVisibility where

170− toText = \case

170+ toQueryParam = \case

171 Hide -> "hide"

172 Show -> "show"

173

@@ -190,15 +190,15 @@ data LabelLabelListVisibility

190

191instance Hashable LabelLabelListVisibility

192

193−instance FromText LabelLabelListVisibility where

193+instance FromHttpApiData LabelLabelListVisibility where

194− fromText = \case

194+ parseQueryParam = \case

195− "labelHide" -> Just LabelHide

195+ "labelHide" -> Right LabelHide

196− "labelShow" -> Just LabelShow

196+ "labelShow" -> Right LabelShow

197− "labelShowIfUnread" -> Just LabelShowIfUnread

197+ "labelShowIfUnread" -> Right LabelShowIfUnread

198− _ -> Nothing

198+ x -> Left ("Unable to parse LabelLabelListVisibility from: " <> x)

199

200−instance ToText LabelLabelListVisibility where

200+instance ToHttpApiData LabelLabelListVisibility where

201− toText = \case

201+ toQueryParam = \case

202 LabelHide -> "labelHide"

203 LabelShow -> "labelShow"

204 LabelShowIfUnread -> "labelShowIfUnread"

@@ -221,15 +221,15 @@ data UsersThreadsGetFormat

221

222instance Hashable UsersThreadsGetFormat

223

224−instance FromText UsersThreadsGetFormat where

224+instance FromHttpApiData UsersThreadsGetFormat where

225− fromText = \case

225+ parseQueryParam = \case

226− "full" -> Just UTGFFull

226+ "full" -> Right UTGFFull

227− "metadata" -> Just UTGFMetadata

227+ "metadata" -> Right UTGFMetadata

228− "minimal" -> Just UTGFMinimal

228+ "minimal" -> Right UTGFMinimal

229− _ -> Nothing

229+ x -> Left ("Unable to parse UsersThreadsGetFormat from: " <> x)

230

231−instance ToText UsersThreadsGetFormat where

231+instance ToHttpApiData UsersThreadsGetFormat where

232− toText = \case

232+ toQueryParam = \case

233 UTGFFull -> "full"

234 UTGFMetadata -> "metadata"

235 UTGFMinimal -> "minimal"

@@ -250,14 +250,14 @@ data WatchRequestLabelFilterAction

250

251instance Hashable WatchRequestLabelFilterAction

252

253−instance FromText WatchRequestLabelFilterAction where

253+instance FromHttpApiData WatchRequestLabelFilterAction where

254− fromText = \case

254+ parseQueryParam = \case

255− "exclude" -> Just Exclude

255+ "exclude" -> Right Exclude

256− "include" -> Just Include

256+ "include" -> Right Include

257− _ -> Nothing

257+ x -> Left ("Unable to parse WatchRequestLabelFilterAction from: " <> x)

258

259−instance ToText WatchRequestLabelFilterAction where

259+instance ToHttpApiData WatchRequestLabelFilterAction where

260− toText = \case

260+ toQueryParam = \case

261 Exclude -> "exclude"

262 Include -> "include"

263

@@ -277,14 +277,14 @@ data UsersMessagesInsertInternalDateSource

277

278instance Hashable UsersMessagesInsertInternalDateSource

279

280−instance FromText UsersMessagesInsertInternalDateSource where

280+instance FromHttpApiData UsersMessagesInsertInternalDateSource where

281− fromText = \case

281+ parseQueryParam = \case

282− "dateHeader" -> Just UMIIDSDateHeader

282+ "dateHeader" -> Right UMIIDSDateHeader

283− "receivedTime" -> Just UMIIDSReceivedTime

283+ "receivedTime" -> Right UMIIDSReceivedTime

284− _ -> Nothing

284+ x -> Left ("Unable to parse UsersMessagesInsertInternalDateSource from: " <> x)

285

286−instance ToText UsersMessagesInsertInternalDateSource where

286+instance ToHttpApiData UsersMessagesInsertInternalDateSource where

287− toText = \case

287+ toQueryParam = \case

288 UMIIDSDateHeader -> "dateHeader"

289 UMIIDSReceivedTime -> "receivedTime"

290

gogol-maps-coordinate/gen/Network/Google/MapsCoordinate/Types/Sum.hs+20−20

@@ -39,17 +39,17 @@ data JobsPatchProgress

40instance Hashable JobsPatchProgress

42−instance FromText JobsPatchProgress where

42+instance FromHttpApiData JobsPatchProgress where

43− fromText = \case

43+ parseQueryParam = \case

44− "COMPLETED" -> Just Completed

44+ "COMPLETED" -> Right Completed

45− "IN_PROGRESS" -> Just InProgress

45+ "IN_PROGRESS" -> Right InProgress

46− "NOT_ACCEPTED" -> Just NotAccepted

46+ "NOT_ACCEPTED" -> Right NotAccepted

47− "NOT_STARTED" -> Just NotStarted

47+ "NOT_STARTED" -> Right NotStarted

48− "OBSOLETE" -> Just Obsolete

48+ "OBSOLETE" -> Right Obsolete

49− _ -> Nothing

49+ x -> Left ("Unable to parse JobsPatchProgress from: " <> x)

51−instance ToText JobsPatchProgress where

51+instance ToHttpApiData JobsPatchProgress where

52− toText = \case

52+ toQueryParam = \case

53 Completed -> "COMPLETED"

54 InProgress -> "IN_PROGRESS"

55 NotAccepted -> "NOT_ACCEPTED"

@@ -83,17 +83,17 @@ data JobsUpdateProgress

84instance Hashable JobsUpdateProgress

86−instance FromText JobsUpdateProgress where

86+instance FromHttpApiData JobsUpdateProgress where

87− fromText = \case

87+ parseQueryParam = \case

88− "COMPLETED" -> Just JUPCompleted

88+ "COMPLETED" -> Right JUPCompleted

89− "IN_PROGRESS" -> Just JUPInProgress

89+ "IN_PROGRESS" -> Right JUPInProgress

90− "NOT_ACCEPTED" -> Just JUPNotAccepted

90+ "NOT_ACCEPTED" -> Right JUPNotAccepted

91− "NOT_STARTED" -> Just JUPNotStarted

91+ "NOT_STARTED" -> Right JUPNotStarted

92− "OBSOLETE" -> Just JUPObsolete

92+ "OBSOLETE" -> Right JUPObsolete

93− _ -> Nothing

93+ x -> Left ("Unable to parse JobsUpdateProgress from: " <> x)

95−instance ToText JobsUpdateProgress where

95+instance ToHttpApiData JobsUpdateProgress where

96− toText = \case

96+ toQueryParam = \case

97 JUPCompleted -> "COMPLETED"

98 JUPInProgress -> "IN_PROGRESS"

99 JUPNotAccepted -> "NOT_ACCEPTED"

gogol-maps-engine/gen/Network/Google/MapsEngine/Types/Sum.hs+417−417

@@ -34,17 +34,17 @@ data RasterProcessingStatus

35instance Hashable RasterProcessingStatus

37−instance FromText RasterProcessingStatus where

37+instance FromHttpApiData RasterProcessingStatus where

38− fromText = \case

38+ parseQueryParam = \case

39− "complete" -> Just Complete

39+ "complete" -> Right Complete

40− "failed" -> Just Failed

40+ "failed" -> Right Failed

41− "notReady" -> Just NotReady

41+ "notReady" -> Right NotReady

42− "processing" -> Just Processing

42+ "processing" -> Right Processing

43− "ready" -> Just Ready

43+ "ready" -> Right Ready

44− _ -> Nothing

44+ x -> Left ("Unable to parse RasterProcessingStatus from: " <> x)

45−

45+

46−instance ToText RasterProcessingStatus where

46+instance ToHttpApiData RasterProcessingStatus where

47− toText = \case

47+ toQueryParam = \case

48 Complete -> "complete"

49 Failed -> "failed"

50 NotReady -> "notReady"

@@ -73,17 +73,17 @@ data LayerProcessingStatus

74instance Hashable LayerProcessingStatus

76−instance FromText LayerProcessingStatus where

76+instance FromHttpApiData LayerProcessingStatus where

77− fromText = \case

77+ parseQueryParam = \case

78− "complete" -> Just LPSComplete

78+ "complete" -> Right LPSComplete

79− "failed" -> Just LPSFailed

79+ "failed" -> Right LPSFailed

80− "notReady" -> Just LPSNotReady

80+ "notReady" -> Right LPSNotReady

81− "processing" -> Just LPSProcessing

81+ "processing" -> Right LPSProcessing

82− "ready" -> Just LPSReady

82+ "ready" -> Right LPSReady

83− _ -> Nothing

83+ x -> Left ("Unable to parse LayerProcessingStatus from: " <> x)

84−

84+

85−instance ToText LayerProcessingStatus where

85+instance ToHttpApiData LayerProcessingStatus where

86− toText = \case

86+ toQueryParam = \case

87 LPSComplete -> "complete"

88 LPSFailed -> "failed"

89 LPSNotReady -> "notReady"

@@ -104,13 +104,13 @@ data ScaledShapeShape

104

105instance Hashable ScaledShapeShape

106

107−instance FromText ScaledShapeShape where

107+instance FromHttpApiData ScaledShapeShape where

108− fromText = \case

108+ parseQueryParam = \case

109− "circle" -> Just Circle

109+ "circle" -> Right Circle

110− _ -> Nothing

110+ x -> Left ("Unable to parse ScaledShapeShape from: " <> x)

111

112−instance ToText ScaledShapeShape where

112+instance ToHttpApiData ScaledShapeShape where

113− toText = \case

113+ toQueryParam = \case

114 Circle -> "circle"

115

116instance FromJSON ScaledShapeShape where

@@ -127,13 +127,13 @@ data GeoJSONMultiLineStringType

127

128instance Hashable GeoJSONMultiLineStringType

129

130−instance FromText GeoJSONMultiLineStringType where

130+instance FromHttpApiData GeoJSONMultiLineStringType where

131− fromText = \case

131+ parseQueryParam = \case

132− "MultiLineString" -> Just MultiLineString

132+ "MultiLineString" -> Right MultiLineString

133− _ -> Nothing

133+ x -> Left ("Unable to parse GeoJSONMultiLineStringType from: " <> x)

134

135−instance ToText GeoJSONMultiLineStringType where

135+instance ToHttpApiData GeoJSONMultiLineStringType where

136− toText = \case

136+ toQueryParam = \case

137 MultiLineString -> "MultiLineString"

138

139instance FromJSON GeoJSONMultiLineStringType where

@@ -156,16 +156,16 @@ data PermissionRole

156

157instance Hashable PermissionRole

158

159−instance FromText PermissionRole where

159+instance FromHttpApiData PermissionRole where

160− fromText = \case

160+ parseQueryParam = \case

161− "owner" -> Just Owner

161+ "owner" -> Right Owner

162− "reader" -> Just Reader

162+ "reader" -> Right Reader

163− "viewer" -> Just Viewer

163+ "viewer" -> Right Viewer

164− "writer" -> Just Writer

164+ "writer" -> Right Writer

165− _ -> Nothing

165+ x -> Left ("Unable to parse PermissionRole from: " <> x)

166

167−instance ToText PermissionRole where

167+instance ToHttpApiData PermissionRole where

168− toText = \case

168+ toQueryParam = \case

169 Owner -> "owner"

170 Reader -> "reader"

171 Viewer -> "viewer"

@@ -195,18 +195,18 @@ data AcquisitionTimePrecision

195

196instance Hashable AcquisitionTimePrecision

197

198−instance FromText AcquisitionTimePrecision where

198+instance FromHttpApiData AcquisitionTimePrecision where

199− fromText = \case

199+ parseQueryParam = \case

200− "day" -> Just Day

200+ "day" -> Right Day

201− "hour" -> Just Hour

201+ "hour" -> Right Hour

202− "minute" -> Just Minute

202+ "minute" -> Right Minute

203− "month" -> Just Month

203+ "month" -> Right Month

204− "second" -> Just Second

204+ "second" -> Right Second

205− "year" -> Just Year

205+ "year" -> Right Year

206− _ -> Nothing

206+ x -> Left ("Unable to parse AcquisitionTimePrecision from: " <> x)

207−

207+

208−instance ToText AcquisitionTimePrecision where

208+instance ToHttpApiData AcquisitionTimePrecision where

209− toText = \case

209+ toQueryParam = \case

210 Day -> "day"

211 Hour -> "hour"

212 Minute -> "minute"

@@ -231,14 +231,14 @@ data ScalingFunctionScalingType

231

232instance Hashable ScalingFunctionScalingType

233

234−instance FromText ScalingFunctionScalingType where

234+instance FromHttpApiData ScalingFunctionScalingType where

235− fromText = \case

235+ parseQueryParam = \case

236− "linear" -> Just Linear

236+ "linear" -> Right Linear

237− "sqrt" -> Just Sqrt

237+ "sqrt" -> Right Sqrt

238− _ -> Nothing

238+ x -> Left ("Unable to parse ScalingFunctionScalingType from: " <> x)

239

240−instance ToText ScalingFunctionScalingType where

240+instance ToHttpApiData ScalingFunctionScalingType where

241− toText = \case

241+ toQueryParam = \case

242 Linear -> "linear"

243 Sqrt -> "sqrt"

244

@@ -264,15 +264,15 @@ data AssetsListRole

264

265instance Hashable AssetsListRole

266

267−instance FromText AssetsListRole where

267+instance FromHttpApiData AssetsListRole where

268− fromText = \case

268+ parseQueryParam = \case

269− "owner" -> Just ALROwner

269+ "owner" -> Right ALROwner

270− "reader" -> Just ALRReader

270+ "reader" -> Right ALRReader

271− "writer" -> Just ALRWriter

271+ "writer" -> Right ALRWriter

272− _ -> Nothing

272+ x -> Left ("Unable to parse AssetsListRole from: " <> x)

273

274−instance ToText AssetsListRole where

274+instance ToHttpApiData AssetsListRole where

275− toText = \case

275+ toQueryParam = \case

276 ALROwner -> "owner"

277 ALRReader -> "reader"

278 ALRWriter -> "writer"

@@ -303,17 +303,17 @@ data RastersListProcessingStatus

303

304instance Hashable RastersListProcessingStatus

305

306−instance FromText RastersListProcessingStatus where

306+instance FromHttpApiData RastersListProcessingStatus where

307− fromText = \case

307+ parseQueryParam = \case

308− "complete" -> Just RLPSComplete

308+ "complete" -> Right RLPSComplete

309− "failed" -> Just RLPSFailed

309+ "failed" -> Right RLPSFailed

310− "notReady" -> Just RLPSNotReady

310+ "notReady" -> Right RLPSNotReady

311− "processing" -> Just RLPSProcessing

311+ "processing" -> Right RLPSProcessing

312− "ready" -> Just RLPSReady

312+ "ready" -> Right RLPSReady

313− _ -> Nothing

313+ x -> Left ("Unable to parse RastersListProcessingStatus from: " <> x)

314−

314+

315−instance ToText RastersListProcessingStatus where

315+instance ToHttpApiData RastersListProcessingStatus where

316− toText = \case

316+ toQueryParam = \case

317 RLPSComplete -> "complete"

318 RLPSFailed -> "failed"

319 RLPSNotReady -> "notReady"

@@ -346,17 +346,17 @@ data LayersListProcessingStatus

346

347instance Hashable LayersListProcessingStatus

348

349−instance FromText LayersListProcessingStatus where

349+instance FromHttpApiData LayersListProcessingStatus where

350− fromText = \case

350+ parseQueryParam = \case

351− "complete" -> Just LLPSComplete

351+ "complete" -> Right LLPSComplete

352− "failed" -> Just LLPSFailed

352+ "failed" -> Right LLPSFailed

353− "notReady" -> Just LLPSNotReady

353+ "notReady" -> Right LLPSNotReady

354− "processing" -> Just LLPSProcessing

354+ "processing" -> Right LLPSProcessing

355− "ready" -> Just LLPSReady

355+ "ready" -> Right LLPSReady

356− _ -> Nothing

356+ x -> Left ("Unable to parse LayersListProcessingStatus from: " <> x)

357−

357+

358−instance ToText LayersListProcessingStatus where

358+instance ToHttpApiData LayersListProcessingStatus where

359− toText = \case

359+ toQueryParam = \case

360 LLPSComplete -> "complete"

361 LLPSFailed -> "failed"

362 LLPSNotReady -> "notReady"

@@ -385,15 +385,15 @@ data RasterCollectionsRastersListRole

385

386instance Hashable RasterCollectionsRastersListRole

387

388−instance FromText RasterCollectionsRastersListRole where

388+instance FromHttpApiData RasterCollectionsRastersListRole where

389− fromText = \case

389+ parseQueryParam = \case

390− "owner" -> Just RCRLROwner

390+ "owner" -> Right RCRLROwner

391− "reader" -> Just RCRLRReader

391+ "reader" -> Right RCRLRReader

392− "writer" -> Just RCRLRWriter

392+ "writer" -> Right RCRLRWriter

393− _ -> Nothing

393+ x -> Left ("Unable to parse RasterCollectionsRastersListRole from: " <> x)

394

395−instance ToText RasterCollectionsRastersListRole where

395+instance ToHttpApiData RasterCollectionsRastersListRole where

396− toText = \case

396+ toQueryParam = \case

397 RCRLROwner -> "owner"

398 RCRLRReader -> "reader"

399 RCRLRWriter -> "writer"

@@ -412,13 +412,13 @@ data GeoJSONMultiPolygonType

412

413instance Hashable GeoJSONMultiPolygonType

414

415−instance FromText GeoJSONMultiPolygonType where

415+instance FromHttpApiData GeoJSONMultiPolygonType where

416− fromText = \case

416+ parseQueryParam = \case

417− "MultiPolygon" -> Just MultiPolygon

417+ "MultiPolygon" -> Right MultiPolygon

418− _ -> Nothing

418+ x -> Left ("Unable to parse GeoJSONMultiPolygonType from: " <> x)

419

420−instance ToText GeoJSONMultiPolygonType where

420+instance ToHttpApiData GeoJSONMultiPolygonType where

421− toText = \case

421+ toQueryParam = \case

422 MultiPolygon -> "MultiPolygon"

423

424instance FromJSON GeoJSONMultiPolygonType where

@@ -435,13 +435,13 @@ data GeoJSONMultiPointType

435

436instance Hashable GeoJSONMultiPointType

437

438−instance FromText GeoJSONMultiPointType where

438+instance FromHttpApiData GeoJSONMultiPointType where

439− fromText = \case

439+ parseQueryParam = \case

440− "MultiPoint" -> Just MultiPoint

440+ "MultiPoint" -> Right MultiPoint

441− _ -> Nothing

441+ x -> Left ("Unable to parse GeoJSONMultiPointType from: " <> x)

442

443−instance ToText GeoJSONMultiPointType where

443+instance ToHttpApiData GeoJSONMultiPointType where

444− toText = \case

444+ toQueryParam = \case

445 MultiPoint -> "MultiPoint"

446

447instance FromJSON GeoJSONMultiPointType where

@@ -462,14 +462,14 @@ data PublishedLayerLayerType

462

463instance Hashable PublishedLayerLayerType

464

465−instance FromText PublishedLayerLayerType where

465+instance FromHttpApiData PublishedLayerLayerType where

466− fromText = \case

466+ parseQueryParam = \case

467− "image" -> Just Image

467+ "image" -> Right Image

468− "vector" -> Just Vector

468+ "vector" -> Right Vector

469− _ -> Nothing

469+ x -> Left ("Unable to parse PublishedLayerLayerType from: " <> x)

470

471−instance ToText PublishedLayerLayerType where

471+instance ToHttpApiData PublishedLayerLayerType where

472− toText = \case

472+ toQueryParam = \case

473 Image -> "image"

474 Vector -> "vector"

475

@@ -499,17 +499,17 @@ data TablesListProcessingStatus

499

500instance Hashable TablesListProcessingStatus

501

502−instance FromText TablesListProcessingStatus where

502+instance FromHttpApiData TablesListProcessingStatus where

503− fromText = \case

503+ parseQueryParam = \case

504− "complete" -> Just TLPSComplete

504+ "complete" -> Right TLPSComplete

505− "failed" -> Just TLPSFailed

505+ "failed" -> Right TLPSFailed

506− "notReady" -> Just TLPSNotReady

506+ "notReady" -> Right TLPSNotReady

507− "processing" -> Just TLPSProcessing

507+ "processing" -> Right TLPSProcessing

508− "ready" -> Just TLPSReady

508+ "ready" -> Right TLPSReady

509− _ -> Nothing

509+ x -> Left ("Unable to parse TablesListProcessingStatus from: " <> x)

510−

510+

511−instance ToText TablesListProcessingStatus where

511+instance ToHttpApiData TablesListProcessingStatus where

512− toText = \case

512+ toQueryParam = \case

513 TLPSComplete -> "complete"

514 TLPSFailed -> "failed"

515 TLPSNotReady -> "notReady"

@@ -534,14 +534,14 @@ data LayerLayerType

534

535instance Hashable LayerLayerType

536

537−instance FromText LayerLayerType where

537+instance FromHttpApiData LayerLayerType where

538− fromText = \case

538+ parseQueryParam = \case

539− "image" -> Just LLTImage

539+ "image" -> Right LLTImage

540− "vector" -> Just LLTVector

540+ "vector" -> Right LLTVector

541− _ -> Nothing

541+ x -> Left ("Unable to parse LayerLayerType from: " <> x)

542

543−instance ToText LayerLayerType where

543+instance ToHttpApiData LayerLayerType where

544− toText = \case

544+ toQueryParam = \case

545 LLTImage -> "image"

546 LLTVector -> "vector"

547

@@ -563,15 +563,15 @@ data PermissionType

563

564instance Hashable PermissionType

565

566−instance FromText PermissionType where

566+instance FromHttpApiData PermissionType where

567− fromText = \case

567+ parseQueryParam = \case

568− "anyone" -> Just Anyone

568+ "anyone" -> Right Anyone

569− "group" -> Just Group

569+ "group" -> Right Group

570− "user" -> Just User

570+ "user" -> Right User

571− _ -> Nothing

571+ x -> Left ("Unable to parse PermissionType from: " <> x)

572

573−instance ToText PermissionType where

573+instance ToHttpApiData PermissionType where

574− toText = \case

574+ toQueryParam = \case

575 Anyone -> "anyone"

576 Group -> "group"

577 User -> "user"

@@ -599,17 +599,17 @@ data MapProcessingStatus

599

600instance Hashable MapProcessingStatus

601

602−instance FromText MapProcessingStatus where

602+instance FromHttpApiData MapProcessingStatus where

603− fromText = \case

603+ parseQueryParam = \case

604− "complete" -> Just MPSComplete

604+ "complete" -> Right MPSComplete

605− "failed" -> Just MPSFailed

605+ "failed" -> Right MPSFailed

606− "notReady" -> Just MPSNotReady

606+ "notReady" -> Right MPSNotReady

607− "processing" -> Just MPSProcessing

607+ "processing" -> Right MPSProcessing

608− "ready" -> Just MPSReady

608+ "ready" -> Right MPSReady

609− _ -> Nothing

609+ x -> Left ("Unable to parse MapProcessingStatus from: " <> x)

610−

610+

611−instance ToText MapProcessingStatus where

611+instance ToHttpApiData MapProcessingStatus where

612− toText = \case

612+ toQueryParam = \case

613 MPSComplete -> "complete"

614 MPSFailed -> "failed"

615 MPSNotReady -> "notReady"

@@ -637,14 +637,14 @@ data MapsGetVersion

637

638instance Hashable MapsGetVersion

639

640−instance FromText MapsGetVersion where

640+instance FromHttpApiData MapsGetVersion where

641− fromText = \case

641+ parseQueryParam = \case

642− "draft" -> Just Draft

642+ "draft" -> Right Draft

643− "published" -> Just Published

643+ "published" -> Right Published

644− _ -> Nothing

644+ x -> Left ("Unable to parse MapsGetVersion from: " <> x)

645

646−instance ToText MapsGetVersion where

646+instance ToHttpApiData MapsGetVersion where

647− toText = \case

647+ toQueryParam = \case

648 Draft -> "draft"

649 Published -> "published"

650

@@ -670,15 +670,15 @@ data TablesListRole

670

671instance Hashable TablesListRole

672

673−instance FromText TablesListRole where

673+instance FromHttpApiData TablesListRole where

674− fromText = \case

674+ parseQueryParam = \case

675− "owner" -> Just TLROwner

675+ "owner" -> Right TLROwner

676− "reader" -> Just TLRReader

676+ "reader" -> Right TLRReader

677− "writer" -> Just TLRWriter

677+ "writer" -> Right TLRWriter

678− _ -> Nothing

678+ x -> Left ("Unable to parse TablesListRole from: " <> x)

679

680−instance ToText TablesListRole where

680+instance ToHttpApiData TablesListRole where

681− toText = \case

681+ toQueryParam = \case

682 TLROwner -> "owner"

683 TLRReader -> "reader"

684 TLRWriter -> "writer"

@@ -697,13 +697,13 @@ data VectorStyleType

697

698instance Hashable VectorStyleType

699

700−instance FromText VectorStyleType where

700+instance FromHttpApiData VectorStyleType where

701− fromText = \case

701+ parseQueryParam = \case

702− "displayRule" -> Just VSTDisplayRule

702+ "displayRule" -> Right VSTDisplayRule

703− _ -> Nothing

703+ x -> Left ("Unable to parse VectorStyleType from: " <> x)

704

705−instance ToText VectorStyleType where

705+instance ToHttpApiData VectorStyleType where

706− toText = \case

706+ toQueryParam = \case

707 VSTDisplayRule -> "displayRule"

708

709instance FromJSON VectorStyleType where

@@ -720,13 +720,13 @@ data GeoJSONLineStringType

720

721instance Hashable GeoJSONLineStringType

722

723−instance FromText GeoJSONLineStringType where

723+instance FromHttpApiData GeoJSONLineStringType where

724− fromText = \case

724+ parseQueryParam = \case

725− "LineString" -> Just LineString

725+ "LineString" -> Right LineString

726− _ -> Nothing

726+ x -> Left ("Unable to parse GeoJSONLineStringType from: " <> x)

727

728−instance ToText GeoJSONLineStringType where

728+instance ToHttpApiData GeoJSONLineStringType where

729− toText = \case

729+ toQueryParam = \case

730 LineString -> "LineString"

731

732instance FromJSON GeoJSONLineStringType where

@@ -745,14 +745,14 @@ data LayerPublishingStatus

745

746instance Hashable LayerPublishingStatus

747

748−instance FromText LayerPublishingStatus where

748+instance FromHttpApiData LayerPublishingStatus where

749− fromText = \case

749+ parseQueryParam = \case

750− "notPublished" -> Just LPSNotPublished

750+ "notPublished" -> Right LPSNotPublished

751− "published" -> Just LPSPublished

751+ "published" -> Right LPSPublished

752− _ -> Nothing

752+ x -> Left ("Unable to parse LayerPublishingStatus from: " <> x)

753

754−instance ToText LayerPublishingStatus where

754+instance ToHttpApiData LayerPublishingStatus where

755− toText = \case

755+ toQueryParam = \case

756 LPSNotPublished -> "notPublished"

757 LPSPublished -> "published"

758

@@ -770,13 +770,13 @@ data MapKmlLinkType

770

771instance Hashable MapKmlLinkType

772

773−instance FromText MapKmlLinkType where

773+instance FromHttpApiData MapKmlLinkType where

774− fromText = \case

774+ parseQueryParam = \case

775− "kmlLink" -> Just KmlLink

775+ "kmlLink" -> Right KmlLink

776− _ -> Nothing

776+ x -> Left ("Unable to parse MapKmlLinkType from: " <> x)

777

778−instance ToText MapKmlLinkType where

778+instance ToHttpApiData MapKmlLinkType where

779− toText = \case

779+ toQueryParam = \case

780 KmlLink -> "kmlLink"

781

782instance FromJSON MapKmlLinkType where

@@ -797,14 +797,14 @@ data LayerDatasourceType

797

798instance Hashable LayerDatasourceType

799

800−instance FromText LayerDatasourceType where

800+instance FromHttpApiData LayerDatasourceType where

801− fromText = \case

801+ parseQueryParam = \case

802− "image" -> Just LDTImage

802+ "image" -> Right LDTImage

803− "table" -> Just LDTTable

803+ "table" -> Right LDTTable

804− _ -> Nothing

804+ x -> Left ("Unable to parse LayerDatasourceType from: " <> x)

805

806−instance ToText LayerDatasourceType where

806+instance ToHttpApiData LayerDatasourceType where

807− toText = \case

807+ toQueryParam = \case

808 LDTImage -> "image"

809 LDTTable -> "table"

810

@@ -822,13 +822,13 @@ data GeoJSONGeometryCollectionType

822

823instance Hashable GeoJSONGeometryCollectionType

824

825−instance FromText GeoJSONGeometryCollectionType where

825+instance FromHttpApiData GeoJSONGeometryCollectionType where

826− fromText = \case

826+ parseQueryParam = \case

827− "GeometryCollection" -> Just GeometryCollection

827+ "GeometryCollection" -> Right GeometryCollection

828− _ -> Nothing

828+ x -> Left ("Unable to parse GeoJSONGeometryCollectionType from: " <> x)

829

830−instance ToText GeoJSONGeometryCollectionType where

830+instance ToHttpApiData GeoJSONGeometryCollectionType where

831− toText = \case

831+ toQueryParam = \case

832 GeometryCollection -> "GeometryCollection"

833

834instance FromJSON GeoJSONGeometryCollectionType where

@@ -845,13 +845,13 @@ data GeoJSONPointType

845

846instance Hashable GeoJSONPointType

847

848−instance FromText GeoJSONPointType where

848+instance FromHttpApiData GeoJSONPointType where

849− fromText = \case

849+ parseQueryParam = \case

850− "Point" -> Just Point

850+ "Point" -> Right Point

851− _ -> Nothing

851+ x -> Left ("Unable to parse GeoJSONPointType from: " <> x)

852

853−instance ToText GeoJSONPointType where

853+instance ToHttpApiData GeoJSONPointType where

854− toText = \case

854+ toQueryParam = \case

855 Point -> "Point"

856

857instance FromJSON GeoJSONPointType where

@@ -868,13 +868,13 @@ data GeoJSONPolygonType

868

869instance Hashable GeoJSONPolygonType

870

871−instance FromText GeoJSONPolygonType where

871+instance FromHttpApiData GeoJSONPolygonType where

872− fromText = \case

872+ parseQueryParam = \case

873− "Polygon" -> Just Polygon

873+ "Polygon" -> Right Polygon

874− _ -> Nothing

874+ x -> Left ("Unable to parse GeoJSONPolygonType from: " <> x)

875

876−instance ToText GeoJSONPolygonType where

876+instance ToHttpApiData GeoJSONPolygonType where

877− toText = \case

877+ toQueryParam = \case

878 Polygon -> "Polygon"

879

880instance FromJSON GeoJSONPolygonType where

@@ -898,14 +898,14 @@ data LayersGetVersion

898

899instance Hashable LayersGetVersion

900

901−instance FromText LayersGetVersion where

901+instance FromHttpApiData LayersGetVersion where

902− fromText = \case

902+ parseQueryParam = \case

903− "draft" -> Just LGVDraft

903+ "draft" -> Right LGVDraft

904− "published" -> Just LGVPublished

904+ "published" -> Right LGVPublished

905− _ -> Nothing

905+ x -> Left ("Unable to parse LayersGetVersion from: " <> x)

906

907−instance ToText LayersGetVersion where

907+instance ToHttpApiData LayersGetVersion where

908− toText = \case

908+ toQueryParam = \case

909 LGVDraft -> "draft"

910 LGVPublished -> "published"

911

@@ -923,13 +923,13 @@ data MapLayerType

923

924instance Hashable MapLayerType

925

926−instance FromText MapLayerType where

926+instance FromHttpApiData MapLayerType where

927− fromText = \case

927+ parseQueryParam = \case

928− "layer" -> Just MLTLayer

928+ "layer" -> Right MLTLayer

929− _ -> Nothing

929+ x -> Left ("Unable to parse MapLayerType from: " <> x)

930

931−instance ToText MapLayerType where

931+instance ToHttpApiData MapLayerType where

932− toText = \case

932+ toQueryParam = \case

933 MLTLayer -> "layer"

934

935instance FromJSON MapLayerType where

@@ -948,14 +948,14 @@ data LabelStyleFontWeight

948

949instance Hashable LabelStyleFontWeight

950

951−instance FromText LabelStyleFontWeight where

951+instance FromHttpApiData LabelStyleFontWeight where

952− fromText = \case

952+ parseQueryParam = \case

953− "bold" -> Just Bold

953+ "bold" -> Right Bold

954− "normal" -> Just Normal

954+ "normal" -> Right Normal

955− _ -> Nothing

955+ x -> Left ("Unable to parse LabelStyleFontWeight from: " <> x)

956

957−instance ToText LabelStyleFontWeight where

957+instance ToHttpApiData LabelStyleFontWeight where

958− toText = \case

958+ toQueryParam = \case

959 Bold -> "bold"

960 Normal -> "normal"

961

@@ -973,13 +973,13 @@ data MapFolderType

973

974instance Hashable MapFolderType

975

976−instance FromText MapFolderType where

976+instance FromHttpApiData MapFolderType where

977− fromText = \case

977+ parseQueryParam = \case

978− "folder" -> Just Folder

978+ "folder" -> Right Folder

979− _ -> Nothing

979+ x -> Left ("Unable to parse MapFolderType from: " <> x)

980

981−instance ToText MapFolderType where

981+instance ToHttpApiData MapFolderType where

982− toText = \case

982+ toQueryParam = \case

983 Folder -> "folder"

984

985instance FromJSON MapFolderType where

@@ -1004,17 +1004,17 @@ data RasterCollectionProcessingStatus

1004

1005instance Hashable RasterCollectionProcessingStatus

1006

1007−instance FromText RasterCollectionProcessingStatus where

1007+instance FromHttpApiData RasterCollectionProcessingStatus where

1008− fromText = \case

1008+ parseQueryParam = \case

1009− "complete" -> Just RCPSComplete

1009+ "complete" -> Right RCPSComplete

1010− "failed" -> Just RCPSFailed

1010+ "failed" -> Right RCPSFailed

1011− "notReady" -> Just RCPSNotReady

1011+ "notReady" -> Right RCPSNotReady

1012− "processing" -> Just RCPSProcessing

1012+ "processing" -> Right RCPSProcessing

1013− "ready" -> Just RCPSReady

1013+ "ready" -> Right RCPSReady

1014− _ -> Nothing

1014+ x -> Left ("Unable to parse RasterCollectionProcessingStatus from: " <> x)

1015−

1015+

1016−instance ToText RasterCollectionProcessingStatus where

1016+instance ToHttpApiData RasterCollectionProcessingStatus where

1017− toText = \case

1017+ toQueryParam = \case

1018 RCPSComplete -> "complete"

1019 RCPSFailed -> "failed"

1020 RCPSNotReady -> "notReady"

@@ -1039,14 +1039,14 @@ data TablesFeaturesListVersion

1039

1040instance Hashable TablesFeaturesListVersion

1041

1042−instance FromText TablesFeaturesListVersion where

1042+instance FromHttpApiData TablesFeaturesListVersion where

1043− fromText = \case

1043+ parseQueryParam = \case

1044− "draft" -> Just TFLVDraft

1044+ "draft" -> Right TFLVDraft

1045− "published" -> Just TFLVPublished

1045+ "published" -> Right TFLVPublished

1046− _ -> Nothing

1046+ x -> Left ("Unable to parse TablesFeaturesListVersion from: " <> x)

1047

1048−instance ToText TablesFeaturesListVersion where

1048+instance ToHttpApiData TablesFeaturesListVersion where

1049− toText = \case

1049+ toQueryParam = \case

1050 TFLVDraft -> "draft"

1051 TFLVPublished -> "published"

1052

@@ -1073,16 +1073,16 @@ data MapsListProcessingStatus

1073

1074instance Hashable MapsListProcessingStatus

1075

1076−instance FromText MapsListProcessingStatus where

1076+instance FromHttpApiData MapsListProcessingStatus where

1077− fromText = \case

1077+ parseQueryParam = \case

1078− "complete" -> Just MLPSComplete

1078+ "complete" -> Right MLPSComplete

1079− "failed" -> Just MLPSFailed

1079+ "failed" -> Right MLPSFailed

1080− "notReady" -> Just MLPSNotReady

1080+ "notReady" -> Right MLPSNotReady

1081− "processing" -> Just MLPSProcessing

1081+ "processing" -> Right MLPSProcessing

1082− _ -> Nothing

1082+ x -> Left ("Unable to parse MapsListProcessingStatus from: " <> x)

1083

1084−instance ToText MapsListProcessingStatus where

1084+instance ToHttpApiData MapsListProcessingStatus where

1085− toText = \case

1085+ toQueryParam = \case

1086 MLPSComplete -> "complete"

1087 MLPSFailed -> "failed"

1088 MLPSNotReady -> "notReady"

@@ -1104,14 +1104,14 @@ data LabelStyleFontStyle

1104

1105instance Hashable LabelStyleFontStyle

1106

1107−instance FromText LabelStyleFontStyle where

1107+instance FromHttpApiData LabelStyleFontStyle where

1108− fromText = \case

1108+ parseQueryParam = \case

1109− "italic" -> Just LSFSItalic

1109+ "italic" -> Right LSFSItalic

1110− "normal" -> Just LSFSNormal

1110+ "normal" -> Right LSFSNormal

1111− _ -> Nothing

1111+ x -> Left ("Unable to parse LabelStyleFontStyle from: " <> x)

1112

1113−instance ToText LabelStyleFontStyle where

1113+instance ToHttpApiData LabelStyleFontStyle where

1114− toText = \case

1114+ toQueryParam = \case

1115 LSFSItalic -> "italic"

1116 LSFSNormal -> "normal"

1117

@@ -1138,17 +1138,17 @@ data AssetType

1138

1139instance Hashable AssetType

1140

1141−instance FromText AssetType where

1141+instance FromHttpApiData AssetType where

1142− fromText = \case

1142+ parseQueryParam = \case

1143− "layer" -> Just ATLayer

1143+ "layer" -> Right ATLayer

1144− "map" -> Just ATMap

1144+ "map" -> Right ATMap

1145− "raster" -> Just ATRaster

1145+ "raster" -> Right ATRaster

1146− "rasterCollection" -> Just ATRasterCollection

1146+ "rasterCollection" -> Right ATRasterCollection

1147− "table" -> Just ATTable

1147+ "table" -> Right ATTable

1148− _ -> Nothing

1148+ x -> Left ("Unable to parse AssetType from: " <> x)

1149−

1149+

1150−instance ToText AssetType where

1150+instance ToHttpApiData AssetType where

1151− toText = \case

1151+ toQueryParam = \case

1152 ATLayer -> "layer"

1153 ATMap -> "map"

1154 ATRaster -> "raster"

@@ -1169,13 +1169,13 @@ data RasterRasterType

1169

1170instance Hashable RasterRasterType

1171

1172−instance FromText RasterRasterType where

1172+instance FromHttpApiData RasterRasterType where

1173− fromText = \case

1173+ parseQueryParam = \case

1174− "image" -> Just RRTImage

1174+ "image" -> Right RRTImage

1175− _ -> Nothing

1175+ x -> Left ("Unable to parse RasterRasterType from: " <> x)

1176

1177−instance ToText RasterRasterType where

1177+instance ToHttpApiData RasterRasterType where

1178− toText = \case

1178+ toQueryParam = \case

1179 RRTImage -> "image"

1180

1181instance FromJSON RasterRasterType where

@@ -1200,15 +1200,15 @@ data RasterCollectionsListRole

1200

1201instance Hashable RasterCollectionsListRole

1202

1203−instance FromText RasterCollectionsListRole where

1203+instance FromHttpApiData RasterCollectionsListRole where

1204− fromText = \case

1204+ parseQueryParam = \case

1205− "owner" -> Just RCLROwner

1205+ "owner" -> Right RCLROwner

1206− "reader" -> Just RCLRReader

1206+ "reader" -> Right RCLRReader

1207− "writer" -> Just RCLRWriter

1207+ "writer" -> Right RCLRWriter

1208− _ -> Nothing

1208+ x -> Left ("Unable to parse RasterCollectionsListRole from: " <> x)

1209

1210−instance ToText RasterCollectionsListRole where

1210+instance ToHttpApiData RasterCollectionsListRole where

1211− toText = \case

1211+ toQueryParam = \case

1212 RCLROwner -> "owner"

1213 RCLRReader -> "reader"

1214 RCLRWriter -> "writer"

@@ -1243,21 +1243,21 @@ data FilterOperator

1243

1244instance Hashable FilterOperator

1245

1246−instance FromText FilterOperator where

1246+instance FromHttpApiData FilterOperator where

1247− fromText = \case

1247+ parseQueryParam = \case

1248− "!=" -> Just NotEqual

1248+ "!=" -> Right NotEqual

1249− "<" -> Just Less

1249+ "<" -> Right Less

1250− "<=" -> Just LessOrEqual

1250+ "<=" -> Right LessOrEqual

1251− "==" -> Just Equal

1251+ "==" -> Right Equal

1252− ">" -> Just Greater

1252+ ">" -> Right Greater

1253− ">=" -> Just GreaterEqual

1253+ ">=" -> Right GreaterEqual

1254− "contains" -> Just Contains

1254+ "contains" -> Right Contains

1255− "endsWith" -> Just EndsWith

1255+ "endsWith" -> Right EndsWith

1256− "startsWith" -> Just StartsWith

1256+ "startsWith" -> Right StartsWith

1257− _ -> Nothing

1257+ x -> Left ("Unable to parse FilterOperator from: " <> x)

1258−

1258+

1259−instance ToText FilterOperator where

1259+instance ToHttpApiData FilterOperator where

1260− toText = \case

1260+ toQueryParam = \case

1261 NotEqual -> "!="

1262 Less -> "<"

1263 LessOrEqual -> "<="

@@ -1296,20 +1296,20 @@ data TableColumnType

1296

1297instance Hashable TableColumnType

1298

1299−instance FromText TableColumnType where

1299+instance FromHttpApiData TableColumnType where

1300− fromText = \case

1300+ parseQueryParam = \case

1301− "datetime" -> Just Datetime

1301+ "datetime" -> Right Datetime

1302− "double" -> Just Double

1302+ "double" -> Right Double

1303− "integer" -> Just Integer

1303+ "integer" -> Right Integer

1304− "lineStrings" -> Just LineStrings

1304+ "lineStrings" -> Right LineStrings

1305− "mixedGeometry" -> Just MixedGeometry

1305+ "mixedGeometry" -> Right MixedGeometry

1306− "points" -> Just Points

1306+ "points" -> Right Points

1307− "polygons" -> Just Polygons

1307+ "polygons" -> Right Polygons

1308− "string" -> Just String

1308+ "string" -> Right String

1309− _ -> Nothing

1309+ x -> Left ("Unable to parse TableColumnType from: " <> x)

1310−

1310+

1311−instance ToText TableColumnType where

1311+instance ToHttpApiData TableColumnType where

1312− toText = \case

1312+ toQueryParam = \case

1313 Datetime -> "datetime"

1314 Double -> "double"

1315 Integer -> "integer"

@@ -1345,17 +1345,17 @@ data RasterCollectionsListProcessingStatus

1345

1346instance Hashable RasterCollectionsListProcessingStatus

1347

1348−instance FromText RasterCollectionsListProcessingStatus where

1348+instance FromHttpApiData RasterCollectionsListProcessingStatus where

1349− fromText = \case

1349+ parseQueryParam = \case

1350− "complete" -> Just RCLPSComplete

1350+ "complete" -> Right RCLPSComplete

1351− "failed" -> Just RCLPSFailed

1351+ "failed" -> Right RCLPSFailed

1352− "notReady" -> Just RCLPSNotReady

1352+ "notReady" -> Right RCLPSNotReady

1353− "processing" -> Just RCLPSProcessing

1353+ "processing" -> Right RCLPSProcessing

1354− "ready" -> Just RCLPSReady

1354+ "ready" -> Right RCLPSReady

1355− _ -> Nothing

1355+ x -> Left ("Unable to parse RasterCollectionsListProcessingStatus from: " <> x)

1356−

1356+

1357−instance ToText RasterCollectionsListProcessingStatus where

1357+instance ToHttpApiData RasterCollectionsListProcessingStatus where

1358− toText = \case

1358+ toQueryParam = \case

1359 RCLPSComplete -> "complete"

1360 RCLPSFailed -> "failed"

1361 RCLPSNotReady -> "notReady"

@@ -1384,15 +1384,15 @@ data LayersListRole

1384

1385instance Hashable LayersListRole

1386

1387−instance FromText LayersListRole where

1387+instance FromHttpApiData LayersListRole where

1388− fromText = \case

1388+ parseQueryParam = \case

1389− "owner" -> Just LLROwner

1389+ "owner" -> Right LLROwner

1390− "reader" -> Just LLRReader

1390+ "reader" -> Right LLRReader

1391− "writer" -> Just LLRWriter

1391+ "writer" -> Right LLRWriter

1392− _ -> Nothing

1392+ x -> Left ("Unable to parse LayersListRole from: " <> x)

1393

1394−instance ToText LayersListRole where

1394+instance ToHttpApiData LayersListRole where

1395− toText = \case

1395+ toQueryParam = \case

1396 LLROwner -> "owner"

1397 LLRReader -> "reader"

1398 LLRWriter -> "writer"

@@ -1415,14 +1415,14 @@ data TablesFeaturesGetVersion

1415

1416instance Hashable TablesFeaturesGetVersion

1417

1418−instance FromText TablesFeaturesGetVersion where

1418+instance FromHttpApiData TablesFeaturesGetVersion where

1419− fromText = \case

1419+ parseQueryParam = \case

1420− "draft" -> Just TFGVDraft

1420+ "draft" -> Right TFGVDraft

1421− "published" -> Just TFGVPublished

1421+ "published" -> Right TFGVPublished

1422− _ -> Nothing

1422+ x -> Left ("Unable to parse TablesFeaturesGetVersion from: " <> x)

1423

1424−instance ToText TablesFeaturesGetVersion where

1424+instance ToHttpApiData TablesFeaturesGetVersion where

1425− toText = \case

1425+ toQueryParam = \case

1426 TFGVDraft -> "draft"

1427 TFGVPublished -> "published"

1428

@@ -1440,13 +1440,13 @@ data RasterCollectionRasterType

1440

1441instance Hashable RasterCollectionRasterType

1442

1443−instance FromText RasterCollectionRasterType where

1443+instance FromHttpApiData RasterCollectionRasterType where

1444− fromText = \case

1444+ parseQueryParam = \case

1445− "image" -> Just RCRTImage

1445+ "image" -> Right RCRTImage

1446− _ -> Nothing

1446+ x -> Left ("Unable to parse RasterCollectionRasterType from: " <> x)

1447

1448−instance ToText RasterCollectionRasterType where

1448+instance ToHttpApiData RasterCollectionRasterType where

1449− toText = \case

1449+ toQueryParam = \case

1450 RCRTImage -> "image"

1451

1452instance FromJSON RasterCollectionRasterType where

@@ -1471,15 +1471,15 @@ data RastersListRole

1471

1472instance Hashable RastersListRole

1473

1474−instance FromText RastersListRole where

1474+instance FromHttpApiData RastersListRole where

1475− fromText = \case

1475+ parseQueryParam = \case

1476− "owner" -> Just RLROwner

1476+ "owner" -> Right RLROwner

1477− "reader" -> Just RLRReader

1477+ "reader" -> Right RLRReader

1478− "writer" -> Just RLRWriter

1478+ "writer" -> Right RLRWriter

1479− _ -> Nothing

1479+ x -> Left ("Unable to parse RastersListRole from: " <> x)

1480

1481−instance ToText RastersListRole where

1481+instance ToHttpApiData RastersListRole where

1482− toText = \case

1482+ toQueryParam = \case

1483 RLROwner -> "owner"

1484 RLRReader -> "reader"

1485 RLRWriter -> "writer"

@@ -1500,14 +1500,14 @@ data MapPublishingStatus

1500

1501instance Hashable MapPublishingStatus

1502

1503−instance FromText MapPublishingStatus where

1503+instance FromHttpApiData MapPublishingStatus where

1504− fromText = \case

1504+ parseQueryParam = \case

1505− "notPublished" -> Just MPSNotPublished

1505+ "notPublished" -> Right MPSNotPublished

1506− "published" -> Just MPSPublished

1506+ "published" -> Right MPSPublished

1507− _ -> Nothing

1507+ x -> Left ("Unable to parse MapPublishingStatus from: " <> x)

1508

1509−instance ToText MapPublishingStatus where

1509+instance ToHttpApiData MapPublishingStatus where

1510− toText = \case

1510+ toQueryParam = \case

1511 MPSNotPublished -> "notPublished"

1512 MPSPublished -> "published"

1513

@@ -1531,16 +1531,16 @@ data FileUploadStatus

1531

1532instance Hashable FileUploadStatus

1533

1534−instance FromText FileUploadStatus where

1534+instance FromHttpApiData FileUploadStatus where

1535− fromText = \case

1535+ parseQueryParam = \case

1536− "canceled" -> Just FUSCanceled

1536+ "canceled" -> Right FUSCanceled

1537− "complete" -> Just FUSComplete

1537+ "complete" -> Right FUSComplete

1538− "failed" -> Just FUSFailed

1538+ "failed" -> Right FUSFailed

1539− "inProgress" -> Just FUSInProgress

1539+ "inProgress" -> Right FUSInProgress

1540− _ -> Nothing

1540+ x -> Left ("Unable to parse FileUploadStatus from: " <> x)

1541

1542−instance ToText FileUploadStatus where

1542+instance ToHttpApiData FileUploadStatus where

1543− toText = \case

1543+ toQueryParam = \case

1544 FUSCanceled -> "canceled"

1545 FUSComplete -> "complete"

1546 FUSFailed -> "failed"

@@ -1568,15 +1568,15 @@ data MapsListRole

1568

1569instance Hashable MapsListRole

1570

1571−instance FromText MapsListRole where

1571+instance FromHttpApiData MapsListRole where

1572− fromText = \case

1572+ parseQueryParam = \case

1573− "owner" -> Just MLROwner

1573+ "owner" -> Right MLROwner

1574− "reader" -> Just MLRReader

1574+ "reader" -> Right MLRReader

1575− "writer" -> Just MLRWriter

1575+ "writer" -> Right MLRWriter

1576− _ -> Nothing

1576+ x -> Left ("Unable to parse MapsListRole from: " <> x)

1577

1578−instance ToText MapsListRole where

1578+instance ToHttpApiData MapsListRole where

1579− toText = \case

1579+ toQueryParam = \case

1580 MLROwner -> "owner"

1581 MLRReader -> "reader"

1582 MLRWriter -> "writer"

@@ -1598,14 +1598,14 @@ data TablesGetVersion

1598

1599instance Hashable TablesGetVersion

1600

1601−instance FromText TablesGetVersion where

1601+instance FromHttpApiData TablesGetVersion where

1602− fromText = \case

1602+ parseQueryParam = \case

1603− "draft" -> Just TGVDraft

1603+ "draft" -> Right TGVDraft

1604− "published" -> Just TGVPublished

1604+ "published" -> Right TGVPublished

1605− _ -> Nothing

1605+ x -> Left ("Unable to parse TablesGetVersion from: " <> x)

1606

1607−instance ToText TablesGetVersion where

1607+instance ToHttpApiData TablesGetVersion where

1608− toText = \case

1608+ toQueryParam = \case

1609 TGVDraft -> "draft"

1610 TGVPublished -> "published"

1611

@@ -1631,17 +1631,17 @@ data TableProcessingStatus

1631

1632instance Hashable TableProcessingStatus

1633

1634−instance FromText TableProcessingStatus where

1634+instance FromHttpApiData TableProcessingStatus where

1635− fromText = \case

1635+ parseQueryParam = \case

1636− "complete" -> Just TPSComplete

1636+ "complete" -> Right TPSComplete

1637− "failed" -> Just TPSFailed

1637+ "failed" -> Right TPSFailed

1638− "notReady" -> Just TPSNotReady

1638+ "notReady" -> Right TPSNotReady

1639− "processing" -> Just TPSProcessing

1639+ "processing" -> Right TPSProcessing

1640− "ready" -> Just TPSReady

1640+ "ready" -> Right TPSReady

1641− _ -> Nothing

1641+ x -> Left ("Unable to parse TableProcessingStatus from: " <> x)

1642−

1642+

1643−instance ToText TableProcessingStatus where

1643+instance ToHttpApiData TableProcessingStatus where

1644− toText = \case

1644+ toQueryParam = \case

1645 TPSComplete -> "complete"

1646 TPSFailed -> "failed"

1647 TPSNotReady -> "notReady"

gogol-mirror/gen/Network/Google/Mirror/Types/Sum.hs+8−8

@@ -32,14 +32,14 @@ data TimelineListOrderBy

33instance Hashable TimelineListOrderBy

35−instance FromText TimelineListOrderBy where

35+instance FromHttpApiData TimelineListOrderBy where

36− fromText = \case

36+ parseQueryParam = \case

37− "displayTime" -> Just DisplayTime

37+ "displayTime" -> Right DisplayTime

38− "writeTime" -> Just WriteTime

38+ "writeTime" -> Right WriteTime

39− _ -> Nothing

39+ x -> Left ("Unable to parse TimelineListOrderBy from: " <> x)

40−

40+

41−instance ToText TimelineListOrderBy where

41+instance ToHttpApiData TimelineListOrderBy where

42− toText = \case

42+ toQueryParam = \case

43 DisplayTime -> "displayTime"

44 WriteTime -> "writeTime"

gogol-pagespeed/gen/Network/Google/PageSpeed/Types/Sum.hs+8−8

@@ -30,14 +30,14 @@ data PagespeedAPIRunPagespeedStrategy

31instance Hashable PagespeedAPIRunPagespeedStrategy

33−instance FromText PagespeedAPIRunPagespeedStrategy where

33+instance FromHttpApiData PagespeedAPIRunPagespeedStrategy where

34− fromText = \case

34+ parseQueryParam = \case

35− "desktop" -> Just Desktop

35+ "desktop" -> Right Desktop

36− "mobile" -> Just Mobile

36+ "mobile" -> Right Mobile

37− _ -> Nothing

37+ x -> Left ("Unable to parse PagespeedAPIRunPagespeedStrategy from: " <> x)

38−

38+

39−instance ToText PagespeedAPIRunPagespeedStrategy where

39+instance ToHttpApiData PagespeedAPIRunPagespeedStrategy where

40− toText = \case

40+ toQueryParam = \case

41 Desktop -> "desktop"

42 Mobile -> "mobile"

gogol-plus-domains/gen/Network/Google/PlusDomains/Types/Sum.hs+40−40

@@ -26,13 +26,13 @@ data MediaInsertCollection

27instance Hashable MediaInsertCollection

29−instance FromText MediaInsertCollection where

29+instance FromHttpApiData MediaInsertCollection where

30− fromText = \case

30+ parseQueryParam = \case

31− "cloud" -> Just Cloud

31+ "cloud" -> Right Cloud

32− _ -> Nothing

32+ x -> Left ("Unable to parse MediaInsertCollection from: " <> x)

34−instance ToText MediaInsertCollection where

34+instance ToHttpApiData MediaInsertCollection where

35− toText = \case

35+ toQueryParam = \case

36 Cloud -> "cloud"

38instance FromJSON MediaInsertCollection where

@@ -56,15 +56,15 @@ data PeopleListByActivityCollection

57instance Hashable PeopleListByActivityCollection

59−instance FromText PeopleListByActivityCollection where

59+instance FromHttpApiData PeopleListByActivityCollection where

60− fromText = \case

60+ parseQueryParam = \case

61− "plusoners" -> Just Plusoners

61+ "plusoners" -> Right Plusoners

62− "resharers" -> Just Resharers

62+ "resharers" -> Right Resharers

63− "sharedto" -> Just Sharedto

63+ "sharedto" -> Right Sharedto

64− _ -> Nothing

64+ x -> Left ("Unable to parse PeopleListByActivityCollection from: " <> x)

66−instance ToText PeopleListByActivityCollection where

66+instance ToHttpApiData PeopleListByActivityCollection where

67− toText = \case

67+ toQueryParam = \case

68 Plusoners -> "plusoners"

69 Resharers -> "resharers"

70 Sharedto -> "sharedto"

@@ -87,14 +87,14 @@ data PeopleListOrderBy

88instance Hashable PeopleListOrderBy

90−instance FromText PeopleListOrderBy where

90+instance FromHttpApiData PeopleListOrderBy where

91− fromText = \case

91+ parseQueryParam = \case

92− "alphabetical" -> Just Alphabetical

92+ "alphabetical" -> Right Alphabetical

93− "best" -> Just Best

93+ "best" -> Right Best

94− _ -> Nothing

94+ x -> Left ("Unable to parse PeopleListOrderBy from: " <> x)

96−instance ToText PeopleListOrderBy where

96+instance ToHttpApiData PeopleListOrderBy where

97− toText = \case

97+ toQueryParam = \case

98 Alphabetical -> "alphabetical"

99 Best -> "best"

100

@@ -114,13 +114,13 @@ data ActivitiesListCollection

114

115instance Hashable ActivitiesListCollection

116

117−instance FromText ActivitiesListCollection where

117+instance FromHttpApiData ActivitiesListCollection where

118− fromText = \case

118+ parseQueryParam = \case

119− "user" -> Just User

119+ "user" -> Right User

120− _ -> Nothing

120+ x -> Left ("Unable to parse ActivitiesListCollection from: " <> x)

121

122−instance ToText ActivitiesListCollection where

122+instance ToHttpApiData ActivitiesListCollection where

123− toText = \case

123+ toQueryParam = \case

124 User -> "user"

125

126instance FromJSON ActivitiesListCollection where

@@ -138,13 +138,13 @@ data PeopleListCollection

138

139instance Hashable PeopleListCollection

140

141−instance FromText PeopleListCollection where

141+instance FromHttpApiData PeopleListCollection where

142− fromText = \case

142+ parseQueryParam = \case

143− "circled" -> Just Circled

143+ "circled" -> Right Circled

144− _ -> Nothing

144+ x -> Left ("Unable to parse PeopleListCollection from: " <> x)

145

146−instance ToText PeopleListCollection where

146+instance ToHttpApiData PeopleListCollection where

147− toText = \case

147+ toQueryParam = \case

148 Circled -> "circled"

149

150instance FromJSON PeopleListCollection where

@@ -165,14 +165,14 @@ data CommentsListSortOrder

165

166instance Hashable CommentsListSortOrder

167

168−instance FromText CommentsListSortOrder where

168+instance FromHttpApiData CommentsListSortOrder where

169− fromText = \case

169+ parseQueryParam = \case

170− "ascending" -> Just Ascending

170+ "ascending" -> Right Ascending

171− "descending" -> Just Descending

171+ "descending" -> Right Descending

172− _ -> Nothing

172+ x -> Left ("Unable to parse CommentsListSortOrder from: " <> x)

173

174−instance ToText CommentsListSortOrder where

174+instance ToHttpApiData CommentsListSortOrder where

175− toText = \case

175+ toQueryParam = \case

176 Ascending -> "ascending"

177 Descending -> "descending"

178

gogol-plus/gen/Network/Google/Plus/Types/Sum.hs+42−42

@@ -30,14 +30,14 @@ data PeopleListByActivityCollection

31instance Hashable PeopleListByActivityCollection

33−instance FromText PeopleListByActivityCollection where

33+instance FromHttpApiData PeopleListByActivityCollection where

34− fromText = \case

34+ parseQueryParam = \case

35− "plusoners" -> Just Plusoners

35+ "plusoners" -> Right Plusoners

36− "resharers" -> Just Resharers

36+ "resharers" -> Right Resharers

37− _ -> Nothing

37+ x -> Left ("Unable to parse PeopleListByActivityCollection from: " <> x)

38−

38+

39−instance ToText PeopleListByActivityCollection where

39+instance ToHttpApiData PeopleListByActivityCollection where

40− toText = \case

40+ toQueryParam = \case

41 Plusoners -> "plusoners"

42 Resharers -> "resharers"

@@ -59,14 +59,14 @@ data PeopleListOrderBy

60instance Hashable PeopleListOrderBy

62−instance FromText PeopleListOrderBy where

62+instance FromHttpApiData PeopleListOrderBy where

63− fromText = \case

63+ parseQueryParam = \case

64− "alphabetical" -> Just Alphabetical

64+ "alphabetical" -> Right Alphabetical

65− "best" -> Just Best

65+ "best" -> Right Best

66− _ -> Nothing

66+ x -> Left ("Unable to parse PeopleListOrderBy from: " <> x)

68−instance ToText PeopleListOrderBy where

68+instance ToHttpApiData PeopleListOrderBy where

69− toText = \case

69+ toQueryParam = \case

70 Alphabetical -> "alphabetical"

71 Best -> "best"

@@ -85,13 +85,13 @@ data ActivitiesListCollection

86instance Hashable ActivitiesListCollection

88−instance FromText ActivitiesListCollection where

88+instance FromHttpApiData ActivitiesListCollection where

89− fromText = \case

89+ parseQueryParam = \case

90− "public" -> Just Public

90+ "public" -> Right Public

91− _ -> Nothing

91+ x -> Left ("Unable to parse ActivitiesListCollection from: " <> x)

93−instance ToText ActivitiesListCollection where

93+instance ToHttpApiData ActivitiesListCollection where

94− toText = \case

94+ toQueryParam = \case

95 Public -> "public"

97instance FromJSON ActivitiesListCollection where

@@ -115,14 +115,14 @@ data PeopleListCollection

115

116instance Hashable PeopleListCollection

117

118−instance FromText PeopleListCollection where

118+instance FromHttpApiData PeopleListCollection where

119− fromText = \case

119+ parseQueryParam = \case

120− "connected" -> Just Connected

120+ "connected" -> Right Connected

121− "visible" -> Just Visible

121+ "visible" -> Right Visible

122− _ -> Nothing

122+ x -> Left ("Unable to parse PeopleListCollection from: " <> x)

123

124−instance ToText PeopleListCollection where

124+instance ToHttpApiData PeopleListCollection where

125− toText = \case

125+ toQueryParam = \case

126 Connected -> "connected"

127 Visible -> "visible"

128

@@ -144,14 +144,14 @@ data ActivitiesSearchOrderBy

144

145instance Hashable ActivitiesSearchOrderBy

146

147−instance FromText ActivitiesSearchOrderBy where

147+instance FromHttpApiData ActivitiesSearchOrderBy where

148− fromText = \case

148+ parseQueryParam = \case

149− "best" -> Just ASOBBest

149+ "best" -> Right ASOBBest

150− "recent" -> Just ASOBRecent

150+ "recent" -> Right ASOBRecent

151− _ -> Nothing

151+ x -> Left ("Unable to parse ActivitiesSearchOrderBy from: " <> x)

152

153−instance ToText ActivitiesSearchOrderBy where

153+instance ToHttpApiData ActivitiesSearchOrderBy where

154− toText = \case

154+ toQueryParam = \case

155 ASOBBest -> "best"

156 ASOBRecent -> "recent"

157

@@ -173,14 +173,14 @@ data CommentsListSortOrder

173

174instance Hashable CommentsListSortOrder

175

176−instance FromText CommentsListSortOrder where

176+instance FromHttpApiData CommentsListSortOrder where

177− fromText = \case

177+ parseQueryParam = \case

178− "ascending" -> Just Ascending

178+ "ascending" -> Right Ascending

179− "descending" -> Just Descending

179+ "descending" -> Right Descending

180− _ -> Nothing

180+ x -> Left ("Unable to parse CommentsListSortOrder from: " <> x)

181

182−instance ToText CommentsListSortOrder where

182+instance ToHttpApiData CommentsListSortOrder where

183− toText = \case

183+ toQueryParam = \case

184 Ascending -> "ascending"

185 Descending -> "descending"

186

gogol-replicapool/gen/Network/Google/ReplicaPool/Types/Sum.hs+34−34

@@ -50,25 +50,25 @@ data OperationWarningsItemCode

51instance Hashable OperationWarningsItemCode

53−instance FromText OperationWarningsItemCode where

53+instance FromHttpApiData OperationWarningsItemCode where

54− fromText = \case

54+ parseQueryParam = \case

55− "DEPRECATED_RESOURCE_USED" -> Just DeprecatedResourceUsed

55+ "DEPRECATED_RESOURCE_USED" -> Right DeprecatedResourceUsed

56− "DISK_SIZE_LARGER_THAN_IMAGE_SIZE" -> Just DiskSizeLargerThanImageSize

56+ "DISK_SIZE_LARGER_THAN_IMAGE_SIZE" -> Right DiskSizeLargerThanImageSize

57− "INJECTED_KERNELS_DEPRECATED" -> Just InjectedKernelsDeprecated

57+ "INJECTED_KERNELS_DEPRECATED" -> Right InjectedKernelsDeprecated

58− "NEXT_HOP_ADDRESS_NOT_ASSIGNED" -> Just NextHopAddressNotAssigned

58+ "NEXT_HOP_ADDRESS_NOT_ASSIGNED" -> Right NextHopAddressNotAssigned

59− "NEXT_HOP_CANNOT_IP_FORWARD" -> Just NextHopCannotIPForward

59+ "NEXT_HOP_CANNOT_IP_FORWARD" -> Right NextHopCannotIPForward

60− "NEXT_HOP_INSTANCE_NOT_FOUND" -> Just NextHopInstanceNotFound

60+ "NEXT_HOP_INSTANCE_NOT_FOUND" -> Right NextHopInstanceNotFound

61− "NEXT_HOP_INSTANCE_NOT_ON_NETWORK" -> Just NextHopInstanceNotOnNetwork

61+ "NEXT_HOP_INSTANCE_NOT_ON_NETWORK" -> Right NextHopInstanceNotOnNetwork

62− "NEXT_HOP_NOT_RUNNING" -> Just NextHopNotRunning

62+ "NEXT_HOP_NOT_RUNNING" -> Right NextHopNotRunning

63− "NO_RESULTS_ON_PAGE" -> Just NoResultsOnPage

63+ "NO_RESULTS_ON_PAGE" -> Right NoResultsOnPage

64− "REQUIRED_TOS_AGREEMENT" -> Just RequiredTosAgreement

64+ "REQUIRED_TOS_AGREEMENT" -> Right RequiredTosAgreement

65− "RESOURCE_NOT_DELETED" -> Just ResourceNotDeleted

65+ "RESOURCE_NOT_DELETED" -> Right ResourceNotDeleted

66− "SINGLE_INSTANCE_PROPERTY_TEMPLATE" -> Just SingleInstancePropertyTemplate

66+ "SINGLE_INSTANCE_PROPERTY_TEMPLATE" -> Right SingleInstancePropertyTemplate

67− "UNREACHABLE" -> Just Unreachable

67+ "UNREACHABLE" -> Right Unreachable

68− _ -> Nothing

68+ x -> Left ("Unable to parse OperationWarningsItemCode from: " <> x)

69−

69+

70−instance ToText OperationWarningsItemCode where

70+instance ToHttpApiData OperationWarningsItemCode where

71− toText = \case

71+ toQueryParam = \case

72 DeprecatedResourceUsed -> "DEPRECATED_RESOURCE_USED"

73 DiskSizeLargerThanImageSize -> "DISK_SIZE_LARGER_THAN_IMAGE_SIZE"

74 InjectedKernelsDeprecated -> "INJECTED_KERNELS_DEPRECATED"

@@ -103,14 +103,14 @@ data ReplicaPoolAutoHealingPolicyActionType

103

104instance Hashable ReplicaPoolAutoHealingPolicyActionType

105

106−instance FromText ReplicaPoolAutoHealingPolicyActionType where

106+instance FromHttpApiData ReplicaPoolAutoHealingPolicyActionType where

107− fromText = \case

107+ parseQueryParam = \case

108− "REBOOT" -> Just Reboot

108+ "REBOOT" -> Right Reboot

109− "RECREATE" -> Just Recreate

109+ "RECREATE" -> Right Recreate

110− _ -> Nothing

110+ x -> Left ("Unable to parse ReplicaPoolAutoHealingPolicyActionType from: " <> x)

111

112−instance ToText ReplicaPoolAutoHealingPolicyActionType where

112+instance ToHttpApiData ReplicaPoolAutoHealingPolicyActionType where

113− toText = \case

113+ toQueryParam = \case

114 Reboot -> "REBOOT"

115 Recreate -> "RECREATE"

116

@@ -132,15 +132,15 @@ data OperationStatus

132

133instance Hashable OperationStatus

134

135−instance FromText OperationStatus where

135+instance FromHttpApiData OperationStatus where

136− fromText = \case

136+ parseQueryParam = \case

137− "DONE" -> Just Done

137+ "DONE" -> Right Done

138− "PENDING" -> Just Pending

138+ "PENDING" -> Right Pending

139− "RUNNING" -> Just Running

139+ "RUNNING" -> Right Running

140− _ -> Nothing

140+ x -> Left ("Unable to parse OperationStatus from: " <> x)

141

142−instance ToText OperationStatus where

142+instance ToHttpApiData OperationStatus where

143− toText = \case

143+ toQueryParam = \case

144 Done -> "DONE"

145 Pending -> "PENDING"

146 Running -> "RUNNING"

gogol-resourceviews/gen/Network/Google/ResourceViews/Types/Sum.hs+15−15

@@ -32,15 +32,15 @@ data ZoneViewsListResourcesFormat

33instance Hashable ZoneViewsListResourcesFormat

35−instance FromText ZoneViewsListResourcesFormat where

35+instance FromHttpApiData ZoneViewsListResourcesFormat where

36− fromText = \case

36+ parseQueryParam = \case

37− "NONE" -> Just None

37+ "NONE" -> Right None

38− "URL" -> Just URL

38+ "URL" -> Right URL

39− "URL_PORT" -> Just URLPort

39+ "URL_PORT" -> Right URLPort

40− _ -> Nothing

40+ x -> Left ("Unable to parse ZoneViewsListResourcesFormat from: " <> x)

42−instance ToText ZoneViewsListResourcesFormat where

42+instance ToHttpApiData ZoneViewsListResourcesFormat where

43− toText = \case

43+ toQueryParam = \case

44 None -> "NONE"

45 URL -> "URL"

46 URLPort -> "URL_PORT"

@@ -61,14 +61,14 @@ data ZoneViewsListResourcesListState

62instance Hashable ZoneViewsListResourcesListState

64−instance FromText ZoneViewsListResourcesListState where

64+instance FromHttpApiData ZoneViewsListResourcesListState where

65− fromText = \case

65+ parseQueryParam = \case

66− "ALL" -> Just All

66+ "ALL" -> Right All

67− "RUNNING" -> Just Running

67+ "RUNNING" -> Right Running

68− _ -> Nothing

68+ x -> Left ("Unable to parse ZoneViewsListResourcesListState from: " <> x)

70−instance ToText ZoneViewsListResourcesListState where

70+instance ToHttpApiData ZoneViewsListResourcesListState where

71− toText = \case

71+ toQueryParam = \case

72 All -> "ALL"

73 Running -> "RUNNING"

gogol-shopping-content/gen/Network/Google/ShoppingContent/Types/Sum.hs+34−34

@@ -32,16 +32,16 @@ data OrdersGettestOrdertemplateTemplateName

33instance Hashable OrdersGettestOrdertemplateTemplateName

35−instance FromText OrdersGettestOrdertemplateTemplateName where

35+instance FromHttpApiData OrdersGettestOrdertemplateTemplateName where

36− fromText = \case

36+ parseQueryParam = \case

37− "template1" -> Just TEMPLATE1

37+ "template1" -> Right TEMPLATE1

38− "template1a" -> Just Template1a

38+ "template1a" -> Right Template1a

39− "template1b" -> Just Template1b

39+ "template1b" -> Right Template1b

40− "template2" -> Just TEMPLATE2

40+ "template2" -> Right TEMPLATE2

41− _ -> Nothing

41+ x -> Left ("Unable to parse OrdersGettestOrdertemplateTemplateName from: " <> x)

42−

42+

43−instance ToText OrdersGettestOrdertemplateTemplateName where

43+instance ToHttpApiData OrdersGettestOrdertemplateTemplateName where

44− toText = \case

44+ toQueryParam = \case

45 TEMPLATE1 -> "template1"

46 Template1a -> "template1a"

47 Template1b -> "template1b"

@@ -68,14 +68,14 @@ data OrdersListOrderBy

69instance Hashable OrdersListOrderBy

71−instance FromText OrdersListOrderBy where

71+instance FromHttpApiData OrdersListOrderBy where

72− fromText = \case

72+ parseQueryParam = \case

73− "placedDate asc" -> Just PlacedDateAsc

73+ "placedDate asc" -> Right PlacedDateAsc

74− "placedDate desc" -> Just PlacedDateDesc

74+ "placedDate desc" -> Right PlacedDateDesc

75− _ -> Nothing

75+ x -> Left ("Unable to parse OrdersListOrderBy from: " <> x)

77−instance ToText OrdersListOrderBy where

77+instance ToHttpApiData OrdersListOrderBy where

78− toText = \case

78+ toQueryParam = \case

79 PlacedDateAsc -> "placedDate asc"

80 PlacedDateDesc -> "placedDate desc"

@@ -117,23 +117,23 @@ data OrdersListStatuses

117

118instance Hashable OrdersListStatuses

119

120−instance FromText OrdersListStatuses where

120+instance FromHttpApiData OrdersListStatuses where

121− fromText = \case

121+ parseQueryParam = \case

122− "active" -> Just Active

122+ "active" -> Right Active

123− "canceled" -> Just Canceled

123+ "canceled" -> Right Canceled

124− "completed" -> Just Completed

124+ "completed" -> Right Completed

125− "delivered" -> Just Delivered

125+ "delivered" -> Right Delivered

126− "inProgress" -> Just InProgress

126+ "inProgress" -> Right InProgress

127− "partiallyDelivered" -> Just PartiallyDelivered

127+ "partiallyDelivered" -> Right PartiallyDelivered

128− "partiallyReturned" -> Just PartiallyReturned

128+ "partiallyReturned" -> Right PartiallyReturned

129− "partiallyShipped" -> Just PartiallyShipped

129+ "partiallyShipped" -> Right PartiallyShipped

130− "pendingShipment" -> Just PendingShipment

130+ "pendingShipment" -> Right PendingShipment

131− "returned" -> Just Returned

131+ "returned" -> Right Returned

132− "shipped" -> Just Shipped

132+ "shipped" -> Right Shipped

133− _ -> Nothing

133+ x -> Left ("Unable to parse OrdersListStatuses from: " <> x)

134−

134+

135−instance ToText OrdersListStatuses where

135+instance ToHttpApiData OrdersListStatuses where

136− toText = \case

136+ toQueryParam = \case

137 Active -> "active"

138 Canceled -> "canceled"

139 Completed -> "completed"

gogol-storage/gen/Network/Google/Storage/Types/Sum.hs+233−233

@@ -31,14 +31,14 @@ data ObjectsInsertProjection

32instance Hashable ObjectsInsertProjection

34−instance FromText ObjectsInsertProjection where

34+instance FromHttpApiData ObjectsInsertProjection where

35− fromText = \case

35+ parseQueryParam = \case

36− "full" -> Just Full

36+ "full" -> Right Full

37− "noAcl" -> Just NoACL

37+ "noAcl" -> Right NoACL

38− _ -> Nothing

38+ x -> Left ("Unable to parse ObjectsInsertProjection from: " <> x)

39−

39+

40−instance ToText ObjectsInsertProjection where

40+instance ToHttpApiData ObjectsInsertProjection where

41− toText = \case

41+ toQueryParam = \case

42 Full -> "full"

43 NoACL -> "noAcl"

@@ -76,18 +76,18 @@ data BucketsUpdatePredefinedDefaultObjectACL

77instance Hashable BucketsUpdatePredefinedDefaultObjectACL

79−instance FromText BucketsUpdatePredefinedDefaultObjectACL where

79+instance FromHttpApiData BucketsUpdatePredefinedDefaultObjectACL where

80− fromText = \case

80+ parseQueryParam = \case

81− "authenticatedRead" -> Just AuthenticatedRead

81+ "authenticatedRead" -> Right AuthenticatedRead

82− "bucketOwnerFullControl" -> Just BucketOwnerFullControl

82+ "bucketOwnerFullControl" -> Right BucketOwnerFullControl

83− "bucketOwnerRead" -> Just BucketOwnerRead

83+ "bucketOwnerRead" -> Right BucketOwnerRead

84− "private" -> Just Private

84+ "private" -> Right Private

85− "projectPrivate" -> Just ProjectPrivate

85+ "projectPrivate" -> Right ProjectPrivate

86− "publicRead" -> Just PublicRead

86+ "publicRead" -> Right PublicRead

87− _ -> Nothing

87+ x -> Left ("Unable to parse BucketsUpdatePredefinedDefaultObjectACL from: " <> x)

88−

88+

89−instance ToText BucketsUpdatePredefinedDefaultObjectACL where

89+instance ToHttpApiData BucketsUpdatePredefinedDefaultObjectACL where

90− toText = \case

90+ toQueryParam = \case

91 AuthenticatedRead -> "authenticatedRead"

92 BucketOwnerFullControl -> "bucketOwnerFullControl"

93 BucketOwnerRead -> "bucketOwnerRead"

@@ -129,18 +129,18 @@ data ObjectsComposeDestinationPredefinedACL

129

130instance Hashable ObjectsComposeDestinationPredefinedACL

131

132−instance FromText ObjectsComposeDestinationPredefinedACL where

132+instance FromHttpApiData ObjectsComposeDestinationPredefinedACL where

133− fromText = \case

133+ parseQueryParam = \case

134− "authenticatedRead" -> Just OCDPAAuthenticatedRead

134+ "authenticatedRead" -> Right OCDPAAuthenticatedRead

135− "bucketOwnerFullControl" -> Just OCDPABucketOwnerFullControl

135+ "bucketOwnerFullControl" -> Right OCDPABucketOwnerFullControl

136− "bucketOwnerRead" -> Just OCDPABucketOwnerRead

136+ "bucketOwnerRead" -> Right OCDPABucketOwnerRead

137− "private" -> Just OCDPAPrivate

137+ "private" -> Right OCDPAPrivate

138− "projectPrivate" -> Just OCDPAProjectPrivate

138+ "projectPrivate" -> Right OCDPAProjectPrivate

139− "publicRead" -> Just OCDPAPublicRead

139+ "publicRead" -> Right OCDPAPublicRead

140− _ -> Nothing

140+ x -> Left ("Unable to parse ObjectsComposeDestinationPredefinedACL from: " <> x)

141−

141+

142−instance ToText ObjectsComposeDestinationPredefinedACL where

142+instance ToHttpApiData ObjectsComposeDestinationPredefinedACL where

143− toText = \case

143+ toQueryParam = \case

144 OCDPAAuthenticatedRead -> "authenticatedRead"

145 OCDPABucketOwnerFullControl -> "bucketOwnerFullControl"

146 OCDPABucketOwnerRead -> "bucketOwnerRead"

@@ -176,17 +176,17 @@ data BucketsInsertPredefinedACL

176

177instance Hashable BucketsInsertPredefinedACL

178

179−instance FromText BucketsInsertPredefinedACL where

179+instance FromHttpApiData BucketsInsertPredefinedACL where

180− fromText = \case

180+ parseQueryParam = \case

181− "authenticatedRead" -> Just BIPAAuthenticatedRead

181+ "authenticatedRead" -> Right BIPAAuthenticatedRead

182− "private" -> Just BIPAPrivate

182+ "private" -> Right BIPAPrivate

183− "projectPrivate" -> Just BIPAProjectPrivate

183+ "projectPrivate" -> Right BIPAProjectPrivate

184− "publicRead" -> Just BIPAPublicRead

184+ "publicRead" -> Right BIPAPublicRead

185− "publicReadWrite" -> Just BIPAPublicReadWrite

185+ "publicReadWrite" -> Right BIPAPublicReadWrite

186− _ -> Nothing

186+ x -> Left ("Unable to parse BucketsInsertPredefinedACL from: " <> x)

187−

187+

188−instance ToText BucketsInsertPredefinedACL where

188+instance ToHttpApiData BucketsInsertPredefinedACL where

189− toText = \case

189+ toQueryParam = \case

190 BIPAAuthenticatedRead -> "authenticatedRead"

191 BIPAPrivate -> "private"

192 BIPAProjectPrivate -> "projectPrivate"

@@ -227,18 +227,18 @@ data ObjectsPatchPredefinedACL

227

228instance Hashable ObjectsPatchPredefinedACL

229

230−instance FromText ObjectsPatchPredefinedACL where

230+instance FromHttpApiData ObjectsPatchPredefinedACL where

231− fromText = \case

231+ parseQueryParam = \case

232− "authenticatedRead" -> Just OPPAAuthenticatedRead

232+ "authenticatedRead" -> Right OPPAAuthenticatedRead

233− "bucketOwnerFullControl" -> Just OPPABucketOwnerFullControl

233+ "bucketOwnerFullControl" -> Right OPPABucketOwnerFullControl

234− "bucketOwnerRead" -> Just OPPABucketOwnerRead

234+ "bucketOwnerRead" -> Right OPPABucketOwnerRead

235− "private" -> Just OPPAPrivate

235+ "private" -> Right OPPAPrivate

236− "projectPrivate" -> Just OPPAProjectPrivate

236+ "projectPrivate" -> Right OPPAProjectPrivate

237− "publicRead" -> Just OPPAPublicRead

237+ "publicRead" -> Right OPPAPublicRead

238− _ -> Nothing

238+ x -> Left ("Unable to parse ObjectsPatchPredefinedACL from: " <> x)

239−

239+

240−instance ToText ObjectsPatchPredefinedACL where

240+instance ToHttpApiData ObjectsPatchPredefinedACL where

241− toText = \case

241+ toQueryParam = \case

242 OPPAAuthenticatedRead -> "authenticatedRead"

243 OPPABucketOwnerFullControl -> "bucketOwnerFullControl"

244 OPPABucketOwnerRead -> "bucketOwnerRead"

@@ -280,18 +280,18 @@ data ObjectsRewriteDestinationPredefinedACL

280

281instance Hashable ObjectsRewriteDestinationPredefinedACL

282

283−instance FromText ObjectsRewriteDestinationPredefinedACL where

283+instance FromHttpApiData ObjectsRewriteDestinationPredefinedACL where

284− fromText = \case

284+ parseQueryParam = \case

285− "authenticatedRead" -> Just ORDPAAuthenticatedRead

285+ "authenticatedRead" -> Right ORDPAAuthenticatedRead

286− "bucketOwnerFullControl" -> Just ORDPABucketOwnerFullControl

286+ "bucketOwnerFullControl" -> Right ORDPABucketOwnerFullControl

287− "bucketOwnerRead" -> Just ORDPABucketOwnerRead

287+ "bucketOwnerRead" -> Right ORDPABucketOwnerRead

288− "private" -> Just ORDPAPrivate

288+ "private" -> Right ORDPAPrivate

289− "projectPrivate" -> Just ORDPAProjectPrivate

289+ "projectPrivate" -> Right ORDPAProjectPrivate

290− "publicRead" -> Just ORDPAPublicRead

290+ "publicRead" -> Right ORDPAPublicRead

291− _ -> Nothing

291+ x -> Left ("Unable to parse ObjectsRewriteDestinationPredefinedACL from: " <> x)

292−

292+

293−instance ToText ObjectsRewriteDestinationPredefinedACL where

293+instance ToHttpApiData ObjectsRewriteDestinationPredefinedACL where

294− toText = \case

294+ toQueryParam = \case

295 ORDPAAuthenticatedRead -> "authenticatedRead"

296 ORDPABucketOwnerFullControl -> "bucketOwnerFullControl"

297 ORDPABucketOwnerRead -> "bucketOwnerRead"

@@ -317,14 +317,14 @@ data ObjectsWatchAllProjection

317

318instance Hashable ObjectsWatchAllProjection

319

320−instance FromText ObjectsWatchAllProjection where

320+instance FromHttpApiData ObjectsWatchAllProjection where

321− fromText = \case

321+ parseQueryParam = \case

322− "full" -> Just OWAPFull

322+ "full" -> Right OWAPFull

323− "noAcl" -> Just OWAPNoACL

323+ "noAcl" -> Right OWAPNoACL

324− _ -> Nothing

324+ x -> Left ("Unable to parse ObjectsWatchAllProjection from: " <> x)

325

326−instance ToText ObjectsWatchAllProjection where

326+instance ToHttpApiData ObjectsWatchAllProjection where

327− toText = \case

327+ toQueryParam = \case

328 OWAPFull -> "full"

329 OWAPNoACL -> "noAcl"

330

@@ -346,14 +346,14 @@ data BucketsGetProjection

346

347instance Hashable BucketsGetProjection

348

349−instance FromText BucketsGetProjection where

349+instance FromHttpApiData BucketsGetProjection where

350− fromText = \case

350+ parseQueryParam = \case

351− "full" -> Just BGPFull

351+ "full" -> Right BGPFull

352− "noAcl" -> Just BGPNoACL

352+ "noAcl" -> Right BGPNoACL

353− _ -> Nothing

353+ x -> Left ("Unable to parse BucketsGetProjection from: " <> x)

354

355−instance ToText BucketsGetProjection where

355+instance ToHttpApiData BucketsGetProjection where

356− toText = \case

356+ toQueryParam = \case

357 BGPFull -> "full"

358 BGPNoACL -> "noAcl"

359

@@ -375,14 +375,14 @@ data BucketsPatchProjection

375

376instance Hashable BucketsPatchProjection

377

378−instance FromText BucketsPatchProjection where

378+instance FromHttpApiData BucketsPatchProjection where

379− fromText = \case

379+ parseQueryParam = \case

380− "full" -> Just BPPFull

380+ "full" -> Right BPPFull

381− "noAcl" -> Just BPPNoACL

381+ "noAcl" -> Right BPPNoACL

382− _ -> Nothing

382+ x -> Left ("Unable to parse BucketsPatchProjection from: " <> x)

383

384−instance ToText BucketsPatchProjection where

384+instance ToHttpApiData BucketsPatchProjection where

385− toText = \case

385+ toQueryParam = \case

386 BPPFull -> "full"

387 BPPNoACL -> "noAcl"

388

@@ -404,14 +404,14 @@ data BucketsUpdateProjection

404

405instance Hashable BucketsUpdateProjection

406

407−instance FromText BucketsUpdateProjection where

407+instance FromHttpApiData BucketsUpdateProjection where

408− fromText = \case

408+ parseQueryParam = \case

409− "full" -> Just BUPFull

409+ "full" -> Right BUPFull

410− "noAcl" -> Just BUPNoACL

410+ "noAcl" -> Right BUPNoACL

411− _ -> Nothing

411+ x -> Left ("Unable to parse BucketsUpdateProjection from: " <> x)

412

413−instance ToText BucketsUpdateProjection where

413+instance ToHttpApiData BucketsUpdateProjection where

414− toText = \case

414+ toQueryParam = \case

415 BUPFull -> "full"

416 BUPNoACL -> "noAcl"

417

@@ -449,18 +449,18 @@ data ObjectsInsertPredefinedACL

449

450instance Hashable ObjectsInsertPredefinedACL

451

452−instance FromText ObjectsInsertPredefinedACL where

452+instance FromHttpApiData ObjectsInsertPredefinedACL where

453− fromText = \case

453+ parseQueryParam = \case

454− "authenticatedRead" -> Just OIPAAuthenticatedRead

454+ "authenticatedRead" -> Right OIPAAuthenticatedRead

455− "bucketOwnerFullControl" -> Just OIPABucketOwnerFullControl

455+ "bucketOwnerFullControl" -> Right OIPABucketOwnerFullControl

456− "bucketOwnerRead" -> Just OIPABucketOwnerRead

456+ "bucketOwnerRead" -> Right OIPABucketOwnerRead

457− "private" -> Just OIPAPrivate

457+ "private" -> Right OIPAPrivate

458− "projectPrivate" -> Just OIPAProjectPrivate

458+ "projectPrivate" -> Right OIPAProjectPrivate

459− "publicRead" -> Just OIPAPublicRead

459+ "publicRead" -> Right OIPAPublicRead

460− _ -> Nothing

460+ x -> Left ("Unable to parse ObjectsInsertPredefinedACL from: " <> x)

461−

461+

462−instance ToText ObjectsInsertPredefinedACL where

462+instance ToHttpApiData ObjectsInsertPredefinedACL where

463− toText = \case

463+ toQueryParam = \case

464 OIPAAuthenticatedRead -> "authenticatedRead"

465 OIPABucketOwnerFullControl -> "bucketOwnerFullControl"

466 OIPABucketOwnerRead -> "bucketOwnerRead"

@@ -486,14 +486,14 @@ data ObjectsListProjection

486

487instance Hashable ObjectsListProjection

488

489−instance FromText ObjectsListProjection where

489+instance FromHttpApiData ObjectsListProjection where

490− fromText = \case

490+ parseQueryParam = \case

491− "full" -> Just OLPFull

491+ "full" -> Right OLPFull

492− "noAcl" -> Just OLPNoACL

492+ "noAcl" -> Right OLPNoACL

493− _ -> Nothing

493+ x -> Left ("Unable to parse ObjectsListProjection from: " <> x)

494

495−instance ToText ObjectsListProjection where

495+instance ToHttpApiData ObjectsListProjection where

496− toText = \case

496+ toQueryParam = \case

497 OLPFull -> "full"

498 OLPNoACL -> "noAcl"

499

@@ -531,18 +531,18 @@ data BucketsInsertPredefinedDefaultObjectACL

531

532instance Hashable BucketsInsertPredefinedDefaultObjectACL

533

534−instance FromText BucketsInsertPredefinedDefaultObjectACL where

534+instance FromHttpApiData BucketsInsertPredefinedDefaultObjectACL where

535− fromText = \case

535+ parseQueryParam = \case

536− "authenticatedRead" -> Just BIPDOAAuthenticatedRead

536+ "authenticatedRead" -> Right BIPDOAAuthenticatedRead

537− "bucketOwnerFullControl" -> Just BIPDOABucketOwnerFullControl

537+ "bucketOwnerFullControl" -> Right BIPDOABucketOwnerFullControl

538− "bucketOwnerRead" -> Just BIPDOABucketOwnerRead

538+ "bucketOwnerRead" -> Right BIPDOABucketOwnerRead

539− "private" -> Just BIPDOAPrivate

539+ "private" -> Right BIPDOAPrivate

540− "projectPrivate" -> Just BIPDOAProjectPrivate

540+ "projectPrivate" -> Right BIPDOAProjectPrivate

541− "publicRead" -> Just BIPDOAPublicRead

541+ "publicRead" -> Right BIPDOAPublicRead

542− _ -> Nothing

542+ x -> Left ("Unable to parse BucketsInsertPredefinedDefaultObjectACL from: " <> x)

543−

543+

544−instance ToText BucketsInsertPredefinedDefaultObjectACL where

544+instance ToHttpApiData BucketsInsertPredefinedDefaultObjectACL where

545− toText = \case

545+ toQueryParam = \case

546 BIPDOAAuthenticatedRead -> "authenticatedRead"

547 BIPDOABucketOwnerFullControl -> "bucketOwnerFullControl"

548 BIPDOABucketOwnerRead -> "bucketOwnerRead"

@@ -578,17 +578,17 @@ data BucketsUpdatePredefinedACL

578

579instance Hashable BucketsUpdatePredefinedACL

580

581−instance FromText BucketsUpdatePredefinedACL where

581+instance FromHttpApiData BucketsUpdatePredefinedACL where

582− fromText = \case

582+ parseQueryParam = \case

583− "authenticatedRead" -> Just BUPAAuthenticatedRead

583+ "authenticatedRead" -> Right BUPAAuthenticatedRead

584− "private" -> Just BUPAPrivate

584+ "private" -> Right BUPAPrivate

585− "projectPrivate" -> Just BUPAProjectPrivate

585+ "projectPrivate" -> Right BUPAProjectPrivate

586− "publicRead" -> Just BUPAPublicRead

586+ "publicRead" -> Right BUPAPublicRead

587− "publicReadWrite" -> Just BUPAPublicReadWrite

587+ "publicReadWrite" -> Right BUPAPublicReadWrite

588− _ -> Nothing

588+ x -> Left ("Unable to parse BucketsUpdatePredefinedACL from: " <> x)

589−

589+

590−instance ToText BucketsUpdatePredefinedACL where

590+instance ToHttpApiData BucketsUpdatePredefinedACL where

591− toText = \case

591+ toQueryParam = \case

592 BUPAAuthenticatedRead -> "authenticatedRead"

593 BUPAPrivate -> "private"

594 BUPAProjectPrivate -> "projectPrivate"

@@ -629,18 +629,18 @@ data ObjectsCopyDestinationPredefinedACL

629

630instance Hashable ObjectsCopyDestinationPredefinedACL

631

632−instance FromText ObjectsCopyDestinationPredefinedACL where

632+instance FromHttpApiData ObjectsCopyDestinationPredefinedACL where

633− fromText = \case

633+ parseQueryParam = \case

634− "authenticatedRead" -> Just OCDPACLAuthenticatedRead

634+ "authenticatedRead" -> Right OCDPACLAuthenticatedRead

635− "bucketOwnerFullControl" -> Just OCDPACLBucketOwnerFullControl

635+ "bucketOwnerFullControl" -> Right OCDPACLBucketOwnerFullControl

636− "bucketOwnerRead" -> Just OCDPACLBucketOwnerRead

636+ "bucketOwnerRead" -> Right OCDPACLBucketOwnerRead

637− "private" -> Just OCDPACLPrivate

637+ "private" -> Right OCDPACLPrivate

638− "projectPrivate" -> Just OCDPACLProjectPrivate

638+ "projectPrivate" -> Right OCDPACLProjectPrivate

639− "publicRead" -> Just OCDPACLPublicRead

639+ "publicRead" -> Right OCDPACLPublicRead

640− _ -> Nothing

640+ x -> Left ("Unable to parse ObjectsCopyDestinationPredefinedACL from: " <> x)

641−

641+

642−instance ToText ObjectsCopyDestinationPredefinedACL where

642+instance ToHttpApiData ObjectsCopyDestinationPredefinedACL where

643− toText = \case

643+ toQueryParam = \case

644 OCDPACLAuthenticatedRead -> "authenticatedRead"

645 OCDPACLBucketOwnerFullControl -> "bucketOwnerFullControl"

646 OCDPACLBucketOwnerRead -> "bucketOwnerRead"

@@ -682,18 +682,18 @@ data ObjectsUpdatePredefinedACL

682

683instance Hashable ObjectsUpdatePredefinedACL

684

685−instance FromText ObjectsUpdatePredefinedACL where

685+instance FromHttpApiData ObjectsUpdatePredefinedACL where

686− fromText = \case

686+ parseQueryParam = \case

687− "authenticatedRead" -> Just OUPAAuthenticatedRead

687+ "authenticatedRead" -> Right OUPAAuthenticatedRead

688− "bucketOwnerFullControl" -> Just OUPABucketOwnerFullControl

688+ "bucketOwnerFullControl" -> Right OUPABucketOwnerFullControl

689− "bucketOwnerRead" -> Just OUPABucketOwnerRead

689+ "bucketOwnerRead" -> Right OUPABucketOwnerRead

690− "private" -> Just OUPAPrivate

690+ "private" -> Right OUPAPrivate

691− "projectPrivate" -> Just OUPAProjectPrivate

691+ "projectPrivate" -> Right OUPAProjectPrivate

692− "publicRead" -> Just OUPAPublicRead

692+ "publicRead" -> Right OUPAPublicRead

693− _ -> Nothing

693+ x -> Left ("Unable to parse ObjectsUpdatePredefinedACL from: " <> x)

694−

694+

695−instance ToText ObjectsUpdatePredefinedACL where

695+instance ToHttpApiData ObjectsUpdatePredefinedACL where

696− toText = \case

696+ toQueryParam = \case

697 OUPAAuthenticatedRead -> "authenticatedRead"

698 OUPABucketOwnerFullControl -> "bucketOwnerFullControl"

699 OUPABucketOwnerRead -> "bucketOwnerRead"

@@ -721,14 +721,14 @@ data BucketsInsertProjection

721

722instance Hashable BucketsInsertProjection

723

724−instance FromText BucketsInsertProjection where

724+instance FromHttpApiData BucketsInsertProjection where

725− fromText = \case

725+ parseQueryParam = \case

726− "full" -> Just BIPFull

726+ "full" -> Right BIPFull

727− "noAcl" -> Just BIPNoACL

727+ "noAcl" -> Right BIPNoACL

728− _ -> Nothing

728+ x -> Left ("Unable to parse BucketsInsertProjection from: " <> x)

729

730−instance ToText BucketsInsertProjection where

730+instance ToHttpApiData BucketsInsertProjection where

731− toText = \case

731+ toQueryParam = \case

732 BIPFull -> "full"

733 BIPNoACL -> "noAcl"

734

@@ -750,14 +750,14 @@ data BucketsListProjection

750

751instance Hashable BucketsListProjection

752

753−instance FromText BucketsListProjection where

753+instance FromHttpApiData BucketsListProjection where

754− fromText = \case

754+ parseQueryParam = \case

755− "full" -> Just BLPFull

755+ "full" -> Right BLPFull

756− "noAcl" -> Just BLPNoACL

756+ "noAcl" -> Right BLPNoACL

757− _ -> Nothing

757+ x -> Left ("Unable to parse BucketsListProjection from: " <> x)

758

759−instance ToText BucketsListProjection where

759+instance ToHttpApiData BucketsListProjection where

760− toText = \case

760+ toQueryParam = \case

761 BLPFull -> "full"

762 BLPNoACL -> "noAcl"

763

@@ -779,14 +779,14 @@ data ObjectsUpdateProjection

779

780instance Hashable ObjectsUpdateProjection

781

782−instance FromText ObjectsUpdateProjection where

782+instance FromHttpApiData ObjectsUpdateProjection where

783− fromText = \case

783+ parseQueryParam = \case

784− "full" -> Just OUPFull

784+ "full" -> Right OUPFull

785− "noAcl" -> Just OUPNoACL

785+ "noAcl" -> Right OUPNoACL

786− _ -> Nothing

786+ x -> Left ("Unable to parse ObjectsUpdateProjection from: " <> x)

787

788−instance ToText ObjectsUpdateProjection where

788+instance ToHttpApiData ObjectsUpdateProjection where

789− toText = \case

789+ toQueryParam = \case

790 OUPFull -> "full"

791 OUPNoACL -> "noAcl"

792

@@ -808,14 +808,14 @@ data ObjectsPatchProjection

808

809instance Hashable ObjectsPatchProjection

810

811−instance FromText ObjectsPatchProjection where

811+instance FromHttpApiData ObjectsPatchProjection where

812− fromText = \case

812+ parseQueryParam = \case

813− "full" -> Just OPPFull

813+ "full" -> Right OPPFull

814− "noAcl" -> Just OPPNoACL

814+ "noAcl" -> Right OPPNoACL

815− _ -> Nothing

815+ x -> Left ("Unable to parse ObjectsPatchProjection from: " <> x)

816

817−instance ToText ObjectsPatchProjection where

817+instance ToHttpApiData ObjectsPatchProjection where

818− toText = \case

818+ toQueryParam = \case

819 OPPFull -> "full"

820 OPPNoACL -> "noAcl"

821

@@ -837,14 +837,14 @@ data ObjectsGetProjection

837

838instance Hashable ObjectsGetProjection

839

840−instance FromText ObjectsGetProjection where

840+instance FromHttpApiData ObjectsGetProjection where

841− fromText = \case

841+ parseQueryParam = \case

842− "full" -> Just OGPFull

842+ "full" -> Right OGPFull

843− "noAcl" -> Just OGPNoACL

843+ "noAcl" -> Right OGPNoACL

844− _ -> Nothing

844+ x -> Left ("Unable to parse ObjectsGetProjection from: " <> x)

845

846−instance ToText ObjectsGetProjection where

846+instance ToHttpApiData ObjectsGetProjection where

847− toText = \case

847+ toQueryParam = \case

848 OGPFull -> "full"

849 OGPNoACL -> "noAcl"

850

@@ -882,18 +882,18 @@ data BucketsPatchPredefinedDefaultObjectACL

882

883instance Hashable BucketsPatchPredefinedDefaultObjectACL

884

885−instance FromText BucketsPatchPredefinedDefaultObjectACL where

885+instance FromHttpApiData BucketsPatchPredefinedDefaultObjectACL where

886− fromText = \case

886+ parseQueryParam = \case

887− "authenticatedRead" -> Just BPPDOAAuthenticatedRead

887+ "authenticatedRead" -> Right BPPDOAAuthenticatedRead

888− "bucketOwnerFullControl" -> Just BPPDOABucketOwnerFullControl

888+ "bucketOwnerFullControl" -> Right BPPDOABucketOwnerFullControl

889− "bucketOwnerRead" -> Just BPPDOABucketOwnerRead

889+ "bucketOwnerRead" -> Right BPPDOABucketOwnerRead

890− "private" -> Just BPPDOAPrivate

890+ "private" -> Right BPPDOAPrivate

891− "projectPrivate" -> Just BPPDOAProjectPrivate

891+ "projectPrivate" -> Right BPPDOAProjectPrivate

892− "publicRead" -> Just BPPDOAPublicRead

892+ "publicRead" -> Right BPPDOAPublicRead

893− _ -> Nothing

893+ x -> Left ("Unable to parse BucketsPatchPredefinedDefaultObjectACL from: " <> x)

894−

894+

895−instance ToText BucketsPatchPredefinedDefaultObjectACL where

895+instance ToHttpApiData BucketsPatchPredefinedDefaultObjectACL where

896− toText = \case

896+ toQueryParam = \case

897 BPPDOAAuthenticatedRead -> "authenticatedRead"

898 BPPDOABucketOwnerFullControl -> "bucketOwnerFullControl"

899 BPPDOABucketOwnerRead -> "bucketOwnerRead"

@@ -929,17 +929,17 @@ data BucketsPatchPredefinedACL

929

930instance Hashable BucketsPatchPredefinedACL

931

932−instance FromText BucketsPatchPredefinedACL where

932+instance FromHttpApiData BucketsPatchPredefinedACL where

933− fromText = \case

933+ parseQueryParam = \case

934− "authenticatedRead" -> Just BPPAAuthenticatedRead

934+ "authenticatedRead" -> Right BPPAAuthenticatedRead

935− "private" -> Just BPPAPrivate

935+ "private" -> Right BPPAPrivate

936− "projectPrivate" -> Just BPPAProjectPrivate

936+ "projectPrivate" -> Right BPPAProjectPrivate

937− "publicRead" -> Just BPPAPublicRead

937+ "publicRead" -> Right BPPAPublicRead

938− "publicReadWrite" -> Just BPPAPublicReadWrite

938+ "publicReadWrite" -> Right BPPAPublicReadWrite

939− _ -> Nothing

939+ x -> Left ("Unable to parse BucketsPatchPredefinedACL from: " <> x)

940−

940+

941−instance ToText BucketsPatchPredefinedACL where

941+instance ToHttpApiData BucketsPatchPredefinedACL where

942− toText = \case

942+ toQueryParam = \case

943 BPPAAuthenticatedRead -> "authenticatedRead"

944 BPPAPrivate -> "private"

945 BPPAProjectPrivate -> "projectPrivate"

@@ -965,14 +965,14 @@ data ObjectsCopyProjection

965

966instance Hashable ObjectsCopyProjection

967

968−instance FromText ObjectsCopyProjection where

968+instance FromHttpApiData ObjectsCopyProjection where

969− fromText = \case

969+ parseQueryParam = \case

970− "full" -> Just OCPFull

970+ "full" -> Right OCPFull

971− "noAcl" -> Just OCPNoACL

971+ "noAcl" -> Right OCPNoACL

972− _ -> Nothing

972+ x -> Left ("Unable to parse ObjectsCopyProjection from: " <> x)

973

974−instance ToText ObjectsCopyProjection where

974+instance ToHttpApiData ObjectsCopyProjection where

975− toText = \case

975+ toQueryParam = \case

976 OCPFull -> "full"

977 OCPNoACL -> "noAcl"

978

@@ -995,14 +995,14 @@ data ObjectsRewriteProjection

995

996instance Hashable ObjectsRewriteProjection

997

998−instance FromText ObjectsRewriteProjection where

998+instance FromHttpApiData ObjectsRewriteProjection where

999− fromText = \case

999+ parseQueryParam = \case

1000− "full" -> Just ORPFull

1000+ "full" -> Right ORPFull

1001− "noAcl" -> Just ORPNoACL

1001+ "noAcl" -> Right ORPNoACL

1002− _ -> Nothing

1002+ x -> Left ("Unable to parse ObjectsRewriteProjection from: " <> x)

1003

1004−instance ToText ObjectsRewriteProjection where

1004+instance ToHttpApiData ObjectsRewriteProjection where

1005− toText = \case

1005+ toQueryParam = \case

1006 ORPFull -> "full"

1007 ORPNoACL -> "noAcl"

1008

gogol-tagmanager/gen/Network/Google/TagManager/Types/Sum.hs+146−146

@@ -50,25 +50,25 @@ data TriggerType

51instance Hashable TriggerType

53−instance FromText TriggerType where

53+instance FromHttpApiData TriggerType where

54− fromText = \case

54+ parseQueryParam = \case

55− "ajaxSubmission" -> Just AjaxSubmission

55+ "ajaxSubmission" -> Right AjaxSubmission

56− "always" -> Just Always

56+ "always" -> Right Always

57− "click" -> Just Click

57+ "click" -> Right Click

58− "customEvent" -> Just CustomEvent

58+ "customEvent" -> Right CustomEvent

59− "domReady" -> Just DomReady

59+ "domReady" -> Right DomReady

60− "formSubmission" -> Just FormSubmission

60+ "formSubmission" -> Right FormSubmission

61− "historyChange" -> Just HistoryChange

61+ "historyChange" -> Right HistoryChange

62− "jsError" -> Just JsError

62+ "jsError" -> Right JsError

63− "linkClick" -> Just LinkClick

63+ "linkClick" -> Right LinkClick

64− "pageview" -> Just Pageview

64+ "pageview" -> Right Pageview

65− "timer" -> Just Timer

65+ "timer" -> Right Timer

66− "windowLoaded" -> Just WindowLoaded

66+ "windowLoaded" -> Right WindowLoaded

67− "youTube" -> Just YouTube

67+ "youTube" -> Right YouTube

68− _ -> Nothing

68+ x -> Left ("Unable to parse TriggerType from: " <> x)

69−

69+

70−instance ToText TriggerType where

70+instance ToHttpApiData TriggerType where

71− toText = \case

71+ toQueryParam = \case

72 AjaxSubmission -> "ajaxSubmission"

73 Always -> "always"

74 Click -> "click"

@@ -180,55 +180,55 @@ data ContainerEnabledBuiltInVariableItem

180

181instance Hashable ContainerEnabledBuiltInVariableItem

182

183−instance FromText ContainerEnabledBuiltInVariableItem where

183+instance FromHttpApiData ContainerEnabledBuiltInVariableItem where

184− fromText = \case

184+ parseQueryParam = \case

185− "advertiserId" -> Just CEBIVIAdvertiserId

185+ "advertiserId" -> Right CEBIVIAdvertiserId

186− "advertisingTrackingEnabled" -> Just CEBIVIAdvertisingTrackingEnabled

186+ "advertisingTrackingEnabled" -> Right CEBIVIAdvertisingTrackingEnabled

187− "appId" -> Just CEBIVIAppId

187+ "appId" -> Right CEBIVIAppId

188− "appName" -> Just CEBIVIAppName

188+ "appName" -> Right CEBIVIAppName

189− "appVersionCode" -> Just CEBIVIAppVersionCode

189+ "appVersionCode" -> Right CEBIVIAppVersionCode

190− "appVersionName" -> Just CEBIVIAppVersionName

190+ "appVersionName" -> Right CEBIVIAppVersionName

191− "clickClasses" -> Just CEBIVIClickClasses

191+ "clickClasses" -> Right CEBIVIClickClasses

192− "clickElement" -> Just CEBIVIClickElement

192+ "clickElement" -> Right CEBIVIClickElement

193− "clickId" -> Just CEBIVIClickId

193+ "clickId" -> Right CEBIVIClickId

194− "clickTarget" -> Just CEBIVIClickTarget

194+ "clickTarget" -> Right CEBIVIClickTarget

195− "clickText" -> Just CEBIVIClickText

195+ "clickText" -> Right CEBIVIClickText

196− "clickUrl" -> Just CEBIVIClickURL

196+ "clickUrl" -> Right CEBIVIClickURL

197− "containerId" -> Just CEBIVIContainerId

197+ "containerId" -> Right CEBIVIContainerId

198− "containerVersion" -> Just CEBIVIContainerVersion

198+ "containerVersion" -> Right CEBIVIContainerVersion

199− "debugMode" -> Just CEBIVIDebugMode

199+ "debugMode" -> Right CEBIVIDebugMode

200− "deviceName" -> Just CEBIVIDeviceName

200+ "deviceName" -> Right CEBIVIDeviceName

201− "environmentName" -> Just CEBIVIEnvironmentName

201+ "environmentName" -> Right CEBIVIEnvironmentName

202− "errorLine" -> Just CEBIVIErrorLine

202+ "errorLine" -> Right CEBIVIErrorLine

203− "errorMessage" -> Just CEBIVIErrorMessage

203+ "errorMessage" -> Right CEBIVIErrorMessage

204− "errorUrl" -> Just CEBIVIErrorURL

204+ "errorUrl" -> Right CEBIVIErrorURL

205− "event" -> Just CEBIVIEvent

205+ "event" -> Right CEBIVIEvent

206− "formClasses" -> Just CEBIVIFormClasses

206+ "formClasses" -> Right CEBIVIFormClasses

207− "formElement" -> Just CEBIVIFormElement

207+ "formElement" -> Right CEBIVIFormElement

208− "formId" -> Just CEBIVIFormId

208+ "formId" -> Right CEBIVIFormId

209− "formTarget" -> Just CEBIVIFormTarget

209+ "formTarget" -> Right CEBIVIFormTarget

210− "formText" -> Just CEBIVIFormText

210+ "formText" -> Right CEBIVIFormText

211− "formUrl" -> Just CEBIVIFormURL

211+ "formUrl" -> Right CEBIVIFormURL

212− "historySource" -> Just CEBIVIHistorySource

212+ "historySource" -> Right CEBIVIHistorySource

213− "htmlId" -> Just CEBIVIHTMLId

213+ "htmlId" -> Right CEBIVIHTMLId

214− "language" -> Just CEBIVILanguage

214+ "language" -> Right CEBIVILanguage

215− "newHistoryFragment" -> Just CEBIVINewHistoryFragment

215+ "newHistoryFragment" -> Right CEBIVINewHistoryFragment

216− "newHistoryState" -> Just CEBIVINewHistoryState

216+ "newHistoryState" -> Right CEBIVINewHistoryState

217− "oldHistoryFragment" -> Just CEBIVIOldHistoryFragment

217+ "oldHistoryFragment" -> Right CEBIVIOldHistoryFragment

218− "oldHistoryState" -> Just CEBIVIOldHistoryState

218+ "oldHistoryState" -> Right CEBIVIOldHistoryState

219− "osVersion" -> Just CEBIVIOSVersion

219+ "osVersion" -> Right CEBIVIOSVersion

220− "pageHostname" -> Just CEBIVIPageHostname

220+ "pageHostname" -> Right CEBIVIPageHostname

221− "pagePath" -> Just CEBIVIPagePath

221+ "pagePath" -> Right CEBIVIPagePath

222− "pageUrl" -> Just CEBIVIPageURL

222+ "pageUrl" -> Right CEBIVIPageURL

223− "platform" -> Just CEBIVIPlatform

223+ "platform" -> Right CEBIVIPlatform

224− "randomNumber" -> Just CEBIVIRandomNumber

224+ "randomNumber" -> Right CEBIVIRandomNumber

225− "referrer" -> Just CEBIVIReferrer

225+ "referrer" -> Right CEBIVIReferrer

226− "resolution" -> Just CEBIVIResolution

226+ "resolution" -> Right CEBIVIResolution

227− "sdkVersion" -> Just CEBIVISdkVersion

227+ "sdkVersion" -> Right CEBIVISdkVersion

228− _ -> Nothing

228+ x -> Left ("Unable to parse ContainerEnabledBuiltInVariableItem from: " <> x)

229−

229+

230−instance ToText ContainerEnabledBuiltInVariableItem where

230+instance ToHttpApiData ContainerEnabledBuiltInVariableItem where

231− toText = \case

231+ toQueryParam = \case

232 CEBIVIAdvertiserId -> "advertiserId"

233 CEBIVIAdvertisingTrackingEnabled -> "advertisingTrackingEnabled"

234 CEBIVIAppId -> "appId"

@@ -294,17 +294,17 @@ data ContainerUsageContextItem

294

295instance Hashable ContainerUsageContextItem

296

297−instance FromText ContainerUsageContextItem where

297+instance FromHttpApiData ContainerUsageContextItem where

298− fromText = \case

298+ parseQueryParam = \case

299− "android" -> Just Android

299+ "android" -> Right Android

300− "androidSdk5" -> Just ANDROIdSDK5

300+ "androidSdk5" -> Right ANDROIdSDK5

301− "ios" -> Just Ios

301+ "ios" -> Right Ios

302− "iosSdk5" -> Just IOSSDK5

302+ "iosSdk5" -> Right IOSSDK5

303− "web" -> Just Web

303+ "web" -> Right Web

304− _ -> Nothing

304+ x -> Left ("Unable to parse ContainerUsageContextItem from: " <> x)

305−

305+

306−instance ToText ContainerUsageContextItem where

306+instance ToHttpApiData ContainerUsageContextItem where

307− toText = \case

307+ toQueryParam = \case

308 Android -> "android"

309 ANDROIdSDK5 -> "androidSdk5"

310 Ios -> "ios"

@@ -345,23 +345,23 @@ data ConditionType

345

346instance Hashable ConditionType

347

348−instance FromText ConditionType where

348+instance FromHttpApiData ConditionType where

349− fromText = \case

349+ parseQueryParam = \case

350− "contains" -> Just Contains

350+ "contains" -> Right Contains

351− "cssSelector" -> Just CssSelector

351+ "cssSelector" -> Right CssSelector

352− "endsWith" -> Just EndsWith

352+ "endsWith" -> Right EndsWith

353− "equals" -> Just Equals

353+ "equals" -> Right Equals

354− "greater" -> Just Greater

354+ "greater" -> Right Greater

355− "greaterOrEquals" -> Just GreaterOrEquals

355+ "greaterOrEquals" -> Right GreaterOrEquals

356− "less" -> Just Less

356+ "less" -> Right Less

357− "lessOrEquals" -> Just LessOrEquals

357+ "lessOrEquals" -> Right LessOrEquals

358− "matchRegex" -> Just MatchRegex

358+ "matchRegex" -> Right MatchRegex

359− "startsWith" -> Just StartsWith

359+ "startsWith" -> Right StartsWith

360− "urlMatches" -> Just URLMatches

360+ "urlMatches" -> Right URLMatches

361− _ -> Nothing

361+ x -> Left ("Unable to parse ConditionType from: " <> x)

362−

362+

363−instance ToText ConditionType where

363+instance ToHttpApiData ConditionType where

364− toText = \case

364+ toQueryParam = \case

365 Contains -> "contains"

366 CssSelector -> "cssSelector"

367 EndsWith -> "endsWith"

@@ -395,17 +395,17 @@ data AccountAccessPermissionItem

395

396instance Hashable AccountAccessPermissionItem

397

398−instance FromText AccountAccessPermissionItem where

398+instance FromHttpApiData AccountAccessPermissionItem where

399− fromText = \case

399+ parseQueryParam = \case

400− "delete" -> Just Delete'

400+ "delete" -> Right Delete'

401− "edit" -> Just Edit

401+ "edit" -> Right Edit

402− "manage" -> Just Manage

402+ "manage" -> Right Manage

403− "publish" -> Just Publish

403+ "publish" -> Right Publish

404− "read" -> Just Read'

404+ "read" -> Right Read'

405− _ -> Nothing

405+ x -> Left ("Unable to parse AccountAccessPermissionItem from: " <> x)

406−

406+

407−instance ToText AccountAccessPermissionItem where

407+instance ToHttpApiData AccountAccessPermissionItem where

408− toText = \case

408+ toQueryParam = \case

409 Delete' -> "delete"

410 Edit -> "edit"

411 Manage -> "manage"

@@ -430,15 +430,15 @@ data TagTagFiringOption

430

431instance Hashable TagTagFiringOption

432

433−instance FromText TagTagFiringOption where

433+instance FromHttpApiData TagTagFiringOption where

434− fromText = \case

434+ parseQueryParam = \case

435− "oncePerEvent" -> Just OncePerEvent

435+ "oncePerEvent" -> Right OncePerEvent

436− "oncePerLoad" -> Just OncePerLoad

436+ "oncePerLoad" -> Right OncePerLoad

437− "unlimited" -> Just Unlimited

437+ "unlimited" -> Right Unlimited

438− _ -> Nothing

438+ x -> Left ("Unable to parse TagTagFiringOption from: " <> x)

439

440−instance ToText TagTagFiringOption where

440+instance ToHttpApiData TagTagFiringOption where

441− toText = \case

441+ toQueryParam = \case

442 OncePerEvent -> "oncePerEvent"

443 OncePerLoad -> "oncePerLoad"

444 Unlimited -> "unlimited"

@@ -471,17 +471,17 @@ data ParameterType

471

472instance Hashable ParameterType

473

474−instance FromText ParameterType where

474+instance FromHttpApiData ParameterType where

475− fromText = \case

475+ parseQueryParam = \case

476− "boolean" -> Just Boolean

476+ "boolean" -> Right Boolean

477− "integer" -> Just Integer

477+ "integer" -> Right Integer

478− "list" -> Just List

478+ "list" -> Right List

479− "map" -> Just Map

479+ "map" -> Right Map

480− "template" -> Just Template

480+ "template" -> Right Template

481− _ -> Nothing

481+ x -> Left ("Unable to parse ParameterType from: " <> x)

482−

482+

483−instance ToText ParameterType where

483+instance ToHttpApiData ParameterType where

484− toText = \case

484+ toQueryParam = \case

485 Boolean -> "boolean"

486 Integer -> "integer"

487 List -> "list"

@@ -509,17 +509,17 @@ data ContainerAccessPermissionItem

509

510instance Hashable ContainerAccessPermissionItem

511

512−instance FromText ContainerAccessPermissionItem where

512+instance FromHttpApiData ContainerAccessPermissionItem where

513− fromText = \case

513+ parseQueryParam = \case

514− "delete" -> Just CAPIDelete'

514+ "delete" -> Right CAPIDelete'

515− "edit" -> Just CAPIEdit

515+ "edit" -> Right CAPIEdit

516− "manage" -> Just CAPIManage

516+ "manage" -> Right CAPIManage

517− "publish" -> Just CAPIPublish

517+ "publish" -> Right CAPIPublish

518− "read" -> Just CAPIRead'

518+ "read" -> Right CAPIRead'

519− _ -> Nothing

519+ x -> Left ("Unable to parse ContainerAccessPermissionItem from: " <> x)

520−

520+

521−instance ToText ContainerAccessPermissionItem where

521+instance ToHttpApiData ContainerAccessPermissionItem where

522− toText = \case

522+ toQueryParam = \case

523 CAPIDelete' -> "delete"

524 CAPIEdit -> "edit"

525 CAPIManage -> "manage"

@@ -546,16 +546,16 @@ data EnvironmentType

546

547instance Hashable EnvironmentType

548

549−instance FromText EnvironmentType where

549+instance FromHttpApiData EnvironmentType where

550− fromText = \case

550+ parseQueryParam = \case

551− "draft" -> Just Draft

551+ "draft" -> Right Draft

552− "latest" -> Just Latest

552+ "latest" -> Right Latest

553− "live" -> Just Live

553+ "live" -> Right Live

554− "user" -> Just User

554+ "user" -> Right User

555− _ -> Nothing

555+ x -> Left ("Unable to parse EnvironmentType from: " <> x)

556

557−instance ToText EnvironmentType where

557+instance ToHttpApiData EnvironmentType where

558− toText = \case

558+ toQueryParam = \case

559 Draft -> "draft"

560 Latest -> "latest"

561 Live -> "live"

gogol-translate/gen/Network/Google/Translate/Types/Sum.hs+8−8

@@ -30,14 +30,14 @@ data TranslationsListFormat

31instance Hashable TranslationsListFormat

33−instance FromText TranslationsListFormat where

33+instance FromHttpApiData TranslationsListFormat where

34− fromText = \case

34+ parseQueryParam = \case

35− "html" -> Just HTML

35+ "html" -> Right HTML

36− "text" -> Just Text

36+ "text" -> Right Text

37− _ -> Nothing

37+ x -> Left ("Unable to parse TranslationsListFormat from: " <> x)

38−

38+

39−instance ToText TranslationsListFormat where

39+instance ToHttpApiData TranslationsListFormat where

40− toText = \case

40+ toQueryParam = \case

41 HTML -> "html"

42 Text -> "text"

gogol-urlshortener/gen/Network/Google/URLShortener/Types/Sum.hs+15−15

@@ -30,14 +30,14 @@ data URLListProjection

31instance Hashable URLListProjection

33−instance FromText URLListProjection where

33+instance FromHttpApiData URLListProjection where

34− fromText = \case

34+ parseQueryParam = \case

35− "ANALYTICS_CLICKS" -> Just AnalyticsClicks

35+ "ANALYTICS_CLICKS" -> Right AnalyticsClicks

36− "FULL" -> Just Full

36+ "FULL" -> Right Full

37− _ -> Nothing

37+ x -> Left ("Unable to parse URLListProjection from: " <> x)

39−instance ToText URLListProjection where

39+instance ToHttpApiData URLListProjection where

40− toText = \case

40+ toQueryParam = \case

41 AnalyticsClicks -> "ANALYTICS_CLICKS"

42 Full -> "FULL"

@@ -62,15 +62,15 @@ data URLGetProjection

63instance Hashable URLGetProjection

65−instance FromText URLGetProjection where

65+instance FromHttpApiData URLGetProjection where

66− fromText = \case

66+ parseQueryParam = \case

67− "ANALYTICS_CLICKS" -> Just UGPAnalyticsClicks

67+ "ANALYTICS_CLICKS" -> Right UGPAnalyticsClicks

68− "ANALYTICS_TOP_STRINGS" -> Just UGPAnalyticsTopStrings

68+ "ANALYTICS_TOP_STRINGS" -> Right UGPAnalyticsTopStrings

69− "FULL" -> Just UGPFull

69+ "FULL" -> Right UGPFull

70− _ -> Nothing

70+ x -> Left ("Unable to parse URLGetProjection from: " <> x)

72−instance ToText URLGetProjection where

72+instance ToHttpApiData URLGetProjection where

73− toText = \case

73+ toQueryParam = \case

74 UGPAnalyticsClicks -> "ANALYTICS_CLICKS"

75 UGPAnalyticsTopStrings -> "ANALYTICS_TOP_STRINGS"

76 UGPFull -> "FULL"

gogol-useraccounts/gen/Network/Google/UserAccounts/Types/Sum.hs+28−28

@@ -55,27 +55,27 @@ data OperationWarningsItemCode

56instance Hashable OperationWarningsItemCode

58−instance FromText OperationWarningsItemCode where

58+instance FromHttpApiData OperationWarningsItemCode where

59− fromText = \case

59+ parseQueryParam = \case

60− "CLEANUP_FAILED" -> Just CleanupFailed

60+ "CLEANUP_FAILED" -> Right CleanupFailed

61− "DEPRECATED_RESOURCE_USED" -> Just DeprecatedResourceUsed

61+ "DEPRECATED_RESOURCE_USED" -> Right DeprecatedResourceUsed

62− "DISK_SIZE_LARGER_THAN_IMAGE_SIZE" -> Just DiskSizeLargerThanImageSize

62+ "DISK_SIZE_LARGER_THAN_IMAGE_SIZE" -> Right DiskSizeLargerThanImageSize

63− "INJECTED_KERNELS_DEPRECATED" -> Just InjectedKernelsDeprecated

63+ "INJECTED_KERNELS_DEPRECATED" -> Right InjectedKernelsDeprecated

64− "NEXT_HOP_ADDRESS_NOT_ASSIGNED" -> Just NextHopAddressNotAssigned

64+ "NEXT_HOP_ADDRESS_NOT_ASSIGNED" -> Right NextHopAddressNotAssigned

65− "NEXT_HOP_CANNOT_IP_FORWARD" -> Just NextHopCannotIPForward

65+ "NEXT_HOP_CANNOT_IP_FORWARD" -> Right NextHopCannotIPForward

66− "NEXT_HOP_INSTANCE_NOT_FOUND" -> Just NextHopInstanceNotFound

66+ "NEXT_HOP_INSTANCE_NOT_FOUND" -> Right NextHopInstanceNotFound

67− "NEXT_HOP_INSTANCE_NOT_ON_NETWORK" -> Just NextHopInstanceNotOnNetwork

67+ "NEXT_HOP_INSTANCE_NOT_ON_NETWORK" -> Right NextHopInstanceNotOnNetwork

68− "NEXT_HOP_NOT_RUNNING" -> Just NextHopNotRunning

68+ "NEXT_HOP_NOT_RUNNING" -> Right NextHopNotRunning

69− "NOT_CRITICAL_ERROR" -> Just NotCriticalError

69+ "NOT_CRITICAL_ERROR" -> Right NotCriticalError

70− "NO_RESULTS_ON_PAGE" -> Just NoResultsOnPage

70+ "NO_RESULTS_ON_PAGE" -> Right NoResultsOnPage

71− "REQUIRED_TOS_AGREEMENT" -> Just RequiredTosAgreement

71+ "REQUIRED_TOS_AGREEMENT" -> Right RequiredTosAgreement

72− "RESOURCE_NOT_DELETED" -> Just ResourceNotDeleted

72+ "RESOURCE_NOT_DELETED" -> Right ResourceNotDeleted

73− "SINGLE_INSTANCE_PROPERTY_TEMPLATE" -> Just SingleInstancePropertyTemplate

73+ "SINGLE_INSTANCE_PROPERTY_TEMPLATE" -> Right SingleInstancePropertyTemplate

74− "UNREACHABLE" -> Just Unreachable

74+ "UNREACHABLE" -> Right Unreachable

75− _ -> Nothing

75+ x -> Left ("Unable to parse OperationWarningsItemCode from: " <> x)

77−instance ToText OperationWarningsItemCode where

77+instance ToHttpApiData OperationWarningsItemCode where

78− toText = \case

78+ toQueryParam = \case

79 CleanupFailed -> "CLEANUP_FAILED"

80 DeprecatedResourceUsed -> "DEPRECATED_RESOURCE_USED"

81 DiskSizeLargerThanImageSize -> "DISK_SIZE_LARGER_THAN_IMAGE_SIZE"

@@ -111,15 +111,15 @@ data OperationStatus

111

112instance Hashable OperationStatus

113

114−instance FromText OperationStatus where

114+instance FromHttpApiData OperationStatus where

115− fromText = \case

115+ parseQueryParam = \case

116− "DONE" -> Just Done

116+ "DONE" -> Right Done

117− "PENDING" -> Just Pending

117+ "PENDING" -> Right Pending

118− "RUNNING" -> Just Running

118+ "RUNNING" -> Right Running

119− _ -> Nothing

119+ x -> Left ("Unable to parse OperationStatus from: " <> x)

120

121−instance ToText OperationStatus where

121+instance ToHttpApiData OperationStatus where

122− toText = \case

122+ toQueryParam = \case

123 Done -> "DONE"

124 Pending -> "PENDING"

125 Running -> "RUNNING"

gogol-vision/gen/Network/Google/Vision/Types/Sum.hs+194−194

@@ -42,18 +42,18 @@ data FaceAnnotationUnderExposedLikelihood

43instance Hashable FaceAnnotationUnderExposedLikelihood

45−instance FromText FaceAnnotationUnderExposedLikelihood where

45+instance FromHttpApiData FaceAnnotationUnderExposedLikelihood where

46− fromText = \case

46+ parseQueryParam = \case

47− "UNKNOWN" -> Just Unknown

47+ "UNKNOWN" -> Right Unknown

48− "VERY_UNLIKELY" -> Just VeryUnlikely

48+ "VERY_UNLIKELY" -> Right VeryUnlikely

49− "UNLIKELY" -> Just Unlikely

49+ "UNLIKELY" -> Right Unlikely

50− "POSSIBLE" -> Just Possible

50+ "POSSIBLE" -> Right Possible

51− "LIKELY" -> Just Likely

51+ "LIKELY" -> Right Likely

52− "VERY_LIKELY" -> Just VeryLikely

52+ "VERY_LIKELY" -> Right VeryLikely

53− _ -> Nothing

53+ x -> Left ("Unable to parse FaceAnnotationUnderExposedLikelihood from: " <> x)

54−

54+

55−instance ToText FaceAnnotationUnderExposedLikelihood where

55+instance ToHttpApiData FaceAnnotationUnderExposedLikelihood where

56− toText = \case

56+ toQueryParam = \case

57 Unknown -> "UNKNOWN"

58 VeryUnlikely -> "VERY_UNLIKELY"

59 Unlikely -> "UNLIKELY"

@@ -91,18 +91,18 @@ data FaceAnnotationHeadwearLikelihood

92instance Hashable FaceAnnotationHeadwearLikelihood

94−instance FromText FaceAnnotationHeadwearLikelihood where

94+instance FromHttpApiData FaceAnnotationHeadwearLikelihood where

95− fromText = \case

95+ parseQueryParam = \case

96− "UNKNOWN" -> Just FAHLUnknown

96+ "UNKNOWN" -> Right FAHLUnknown

97− "VERY_UNLIKELY" -> Just FAHLVeryUnlikely

97+ "VERY_UNLIKELY" -> Right FAHLVeryUnlikely

98− "UNLIKELY" -> Just FAHLUnlikely

98+ "UNLIKELY" -> Right FAHLUnlikely

99− "POSSIBLE" -> Just FAHLPossible

99+ "POSSIBLE" -> Right FAHLPossible

100− "LIKELY" -> Just FAHLLikely

100+ "LIKELY" -> Right FAHLLikely

101− "VERY_LIKELY" -> Just FAHLVeryLikely

101+ "VERY_LIKELY" -> Right FAHLVeryLikely

102− _ -> Nothing

102+ x -> Left ("Unable to parse FaceAnnotationHeadwearLikelihood from: " <> x)

103−

103+

104−instance ToText FaceAnnotationHeadwearLikelihood where

104+instance ToHttpApiData FaceAnnotationHeadwearLikelihood where

105− toText = \case

105+ toQueryParam = \case

106 FAHLUnknown -> "UNKNOWN"

107 FAHLVeryUnlikely -> "VERY_UNLIKELY"

108 FAHLUnlikely -> "UNLIKELY"

@@ -140,18 +140,18 @@ data SafeSearchAnnotationAdult

140

141instance Hashable SafeSearchAnnotationAdult

142

143−instance FromText SafeSearchAnnotationAdult where

143+instance FromHttpApiData SafeSearchAnnotationAdult where

144− fromText = \case

144+ parseQueryParam = \case

145− "UNKNOWN" -> Just SSAAUnknown

145+ "UNKNOWN" -> Right SSAAUnknown

146− "VERY_UNLIKELY" -> Just SSAAVeryUnlikely

146+ "VERY_UNLIKELY" -> Right SSAAVeryUnlikely

147− "UNLIKELY" -> Just SSAAUnlikely

147+ "UNLIKELY" -> Right SSAAUnlikely

148− "POSSIBLE" -> Just SSAAPossible

148+ "POSSIBLE" -> Right SSAAPossible

149− "LIKELY" -> Just SSAALikely

149+ "LIKELY" -> Right SSAALikely

150− "VERY_LIKELY" -> Just SSAAVeryLikely

150+ "VERY_LIKELY" -> Right SSAAVeryLikely

151− _ -> Nothing

151+ x -> Left ("Unable to parse SafeSearchAnnotationAdult from: " <> x)

152−

152+

153−instance ToText SafeSearchAnnotationAdult where

153+instance ToHttpApiData SafeSearchAnnotationAdult where

154− toText = \case

154+ toQueryParam = \case

155 SSAAUnknown -> "UNKNOWN"

156 SSAAVeryUnlikely -> "VERY_UNLIKELY"

157 SSAAUnlikely -> "UNLIKELY"

@@ -189,18 +189,18 @@ data FaceAnnotationAngerLikelihood

189

190instance Hashable FaceAnnotationAngerLikelihood

191

192−instance FromText FaceAnnotationAngerLikelihood where

192+instance FromHttpApiData FaceAnnotationAngerLikelihood where

193− fromText = \case

193+ parseQueryParam = \case

194− "UNKNOWN" -> Just FAALUnknown

194+ "UNKNOWN" -> Right FAALUnknown

195− "VERY_UNLIKELY" -> Just FAALVeryUnlikely

195+ "VERY_UNLIKELY" -> Right FAALVeryUnlikely

196− "UNLIKELY" -> Just FAALUnlikely

196+ "UNLIKELY" -> Right FAALUnlikely

197− "POSSIBLE" -> Just FAALPossible

197+ "POSSIBLE" -> Right FAALPossible

198− "LIKELY" -> Just FAALLikely

198+ "LIKELY" -> Right FAALLikely

199− "VERY_LIKELY" -> Just FAALVeryLikely

199+ "VERY_LIKELY" -> Right FAALVeryLikely

200− _ -> Nothing

200+ x -> Left ("Unable to parse FaceAnnotationAngerLikelihood from: " <> x)

201−

201+

202−instance ToText FaceAnnotationAngerLikelihood where

202+instance ToHttpApiData FaceAnnotationAngerLikelihood where

203− toText = \case

203+ toQueryParam = \case

204 FAALUnknown -> "UNKNOWN"

205 FAALVeryUnlikely -> "VERY_UNLIKELY"

206 FAALUnlikely -> "UNLIKELY"

@@ -238,18 +238,18 @@ data SafeSearchAnnotationMedical

238

239instance Hashable SafeSearchAnnotationMedical

240

241−instance FromText SafeSearchAnnotationMedical where

241+instance FromHttpApiData SafeSearchAnnotationMedical where

242− fromText = \case

242+ parseQueryParam = \case

243− "UNKNOWN" -> Just SSAMUnknown

243+ "UNKNOWN" -> Right SSAMUnknown

244− "VERY_UNLIKELY" -> Just SSAMVeryUnlikely

244+ "VERY_UNLIKELY" -> Right SSAMVeryUnlikely

245− "UNLIKELY" -> Just SSAMUnlikely

245+ "UNLIKELY" -> Right SSAMUnlikely

246− "POSSIBLE" -> Just SSAMPossible

246+ "POSSIBLE" -> Right SSAMPossible

247− "LIKELY" -> Just SSAMLikely

247+ "LIKELY" -> Right SSAMLikely

248− "VERY_LIKELY" -> Just SSAMVeryLikely

248+ "VERY_LIKELY" -> Right SSAMVeryLikely

249− _ -> Nothing

249+ x -> Left ("Unable to parse SafeSearchAnnotationMedical from: " <> x)

250−

250+

251−instance ToText SafeSearchAnnotationMedical where

251+instance ToHttpApiData SafeSearchAnnotationMedical where

252− toText = \case

252+ toQueryParam = \case

253 SSAMUnknown -> "UNKNOWN"

254 SSAMVeryUnlikely -> "VERY_UNLIKELY"

255 SSAMUnlikely -> "UNLIKELY"

@@ -287,18 +287,18 @@ data FaceAnnotationBlurredLikelihood

287

288instance Hashable FaceAnnotationBlurredLikelihood

289

290−instance FromText FaceAnnotationBlurredLikelihood where

290+instance FromHttpApiData FaceAnnotationBlurredLikelihood where

291− fromText = \case

291+ parseQueryParam = \case

292− "UNKNOWN" -> Just FABLUnknown

292+ "UNKNOWN" -> Right FABLUnknown

293− "VERY_UNLIKELY" -> Just FABLVeryUnlikely

293+ "VERY_UNLIKELY" -> Right FABLVeryUnlikely

294− "UNLIKELY" -> Just FABLUnlikely

294+ "UNLIKELY" -> Right FABLUnlikely

295− "POSSIBLE" -> Just FABLPossible

295+ "POSSIBLE" -> Right FABLPossible

296− "LIKELY" -> Just FABLLikely

296+ "LIKELY" -> Right FABLLikely

297− "VERY_LIKELY" -> Just FABLVeryLikely

297+ "VERY_LIKELY" -> Right FABLVeryLikely

298− _ -> Nothing

298+ x -> Left ("Unable to parse FaceAnnotationBlurredLikelihood from: " <> x)

299−

299+

300−instance ToText FaceAnnotationBlurredLikelihood where

300+instance ToHttpApiData FaceAnnotationBlurredLikelihood where

301− toText = \case

301+ toQueryParam = \case

302 FABLUnknown -> "UNKNOWN"

303 FABLVeryUnlikely -> "VERY_UNLIKELY"

304 FABLUnlikely -> "UNLIKELY"

@@ -336,18 +336,18 @@ data SafeSearchAnnotationViolence

336

337instance Hashable SafeSearchAnnotationViolence

338

339−instance FromText SafeSearchAnnotationViolence where

339+instance FromHttpApiData SafeSearchAnnotationViolence where

340− fromText = \case

340+ parseQueryParam = \case

341− "UNKNOWN" -> Just SSAVUnknown

341+ "UNKNOWN" -> Right SSAVUnknown

342− "VERY_UNLIKELY" -> Just SSAVVeryUnlikely

342+ "VERY_UNLIKELY" -> Right SSAVVeryUnlikely

343− "UNLIKELY" -> Just SSAVUnlikely

343+ "UNLIKELY" -> Right SSAVUnlikely

344− "POSSIBLE" -> Just SSAVPossible

344+ "POSSIBLE" -> Right SSAVPossible

345− "LIKELY" -> Just SSAVLikely

345+ "LIKELY" -> Right SSAVLikely

346− "VERY_LIKELY" -> Just SSAVVeryLikely

346+ "VERY_LIKELY" -> Right SSAVVeryLikely

347− _ -> Nothing

347+ x -> Left ("Unable to parse SafeSearchAnnotationViolence from: " <> x)

348−

348+

349−instance ToText SafeSearchAnnotationViolence where

349+instance ToHttpApiData SafeSearchAnnotationViolence where

350− toText = \case

350+ toQueryParam = \case

351 SSAVUnknown -> "UNKNOWN"

352 SSAVVeryUnlikely -> "VERY_UNLIKELY"

353 SSAVUnlikely -> "UNLIKELY"

@@ -393,20 +393,20 @@ data FeatureType

393

394instance Hashable FeatureType

395

396−instance FromText FeatureType where

396+instance FromHttpApiData FeatureType where

397− fromText = \case

397+ parseQueryParam = \case

398− "TYPE_UNSPECIFIED" -> Just TypeUnspecified

398+ "TYPE_UNSPECIFIED" -> Right TypeUnspecified

399− "FACE_DETECTION" -> Just FaceDetection

399+ "FACE_DETECTION" -> Right FaceDetection

400− "LANDMARK_DETECTION" -> Just LandmarkDetection

400+ "LANDMARK_DETECTION" -> Right LandmarkDetection

401− "LOGO_DETECTION" -> Just LogoDetection

401+ "LOGO_DETECTION" -> Right LogoDetection

402− "LABEL_DETECTION" -> Just LabelDetection

402+ "LABEL_DETECTION" -> Right LabelDetection

403− "TEXT_DETECTION" -> Just TextDetection

403+ "TEXT_DETECTION" -> Right TextDetection

404− "SAFE_SEARCH_DETECTION" -> Just SafeSearchDetection

404+ "SAFE_SEARCH_DETECTION" -> Right SafeSearchDetection

405− "IMAGE_PROPERTIES" -> Just ImageProperties

405+ "IMAGE_PROPERTIES" -> Right ImageProperties

406− _ -> Nothing

406+ x -> Left ("Unable to parse FeatureType from: " <> x)

407−

407+

408−instance ToText FeatureType where

408+instance ToHttpApiData FeatureType where

409− toText = \case

409+ toQueryParam = \case

410 TypeUnspecified -> "TYPE_UNSPECIFIED"

411 FaceDetection -> "FACE_DETECTION"

412 LandmarkDetection -> "LANDMARK_DETECTION"

@@ -533,47 +533,47 @@ data LandmarkType

533

534instance Hashable LandmarkType

535

536−instance FromText LandmarkType where

536+instance FromHttpApiData LandmarkType where

537− fromText = \case

537+ parseQueryParam = \case

538− "UNKNOWN_LANDMARK" -> Just UnknownLandmark

538+ "UNKNOWN_LANDMARK" -> Right UnknownLandmark

539− "LEFT_EYE" -> Just LeftEye

539+ "LEFT_EYE" -> Right LeftEye

540− "RIGHT_EYE" -> Just RightEye

540+ "RIGHT_EYE" -> Right RightEye

541− "LEFT_OF_LEFT_EYEBROW" -> Just LeftOfLeftEyebrow

541+ "LEFT_OF_LEFT_EYEBROW" -> Right LeftOfLeftEyebrow

542− "RIGHT_OF_LEFT_EYEBROW" -> Just RightOfLeftEyebrow

542+ "RIGHT_OF_LEFT_EYEBROW" -> Right RightOfLeftEyebrow

543− "LEFT_OF_RIGHT_EYEBROW" -> Just LeftOfRightEyebrow

543+ "LEFT_OF_RIGHT_EYEBROW" -> Right LeftOfRightEyebrow

544− "RIGHT_OF_RIGHT_EYEBROW" -> Just RightOfRightEyebrow

544+ "RIGHT_OF_RIGHT_EYEBROW" -> Right RightOfRightEyebrow

545− "MIDPOINT_BETWEEN_EYES" -> Just MidpointBetweenEyes

545+ "MIDPOINT_BETWEEN_EYES" -> Right MidpointBetweenEyes

546− "NOSE_TIP" -> Just NoseTip

546+ "NOSE_TIP" -> Right NoseTip

547− "UPPER_LIP" -> Just UpperLip

547+ "UPPER_LIP" -> Right UpperLip

548− "LOWER_LIP" -> Just LowerLip

548+ "LOWER_LIP" -> Right LowerLip

549− "MOUTH_LEFT" -> Just MouthLeft

549+ "MOUTH_LEFT" -> Right MouthLeft

550− "MOUTH_RIGHT" -> Just MouthRight

550+ "MOUTH_RIGHT" -> Right MouthRight

551− "MOUTH_CENTER" -> Just MouthCenter

551+ "MOUTH_CENTER" -> Right MouthCenter

552− "NOSE_BOTTOM_RIGHT" -> Just NoseBottomRight

552+ "NOSE_BOTTOM_RIGHT" -> Right NoseBottomRight

553− "NOSE_BOTTOM_LEFT" -> Just NoseBottomLeft

553+ "NOSE_BOTTOM_LEFT" -> Right NoseBottomLeft

554− "NOSE_BOTTOM_CENTER" -> Just NoseBottomCenter

554+ "NOSE_BOTTOM_CENTER" -> Right NoseBottomCenter

555− "LEFT_EYE_TOP_BOUNDARY" -> Just LeftEyeTopBoundary

555+ "LEFT_EYE_TOP_BOUNDARY" -> Right LeftEyeTopBoundary

556− "LEFT_EYE_RIGHT_CORNER" -> Just LeftEyeRightCorner

556+ "LEFT_EYE_RIGHT_CORNER" -> Right LeftEyeRightCorner

557− "LEFT_EYE_BOTTOM_BOUNDARY" -> Just LeftEyeBottomBoundary

557+ "LEFT_EYE_BOTTOM_BOUNDARY" -> Right LeftEyeBottomBoundary

558− "LEFT_EYE_LEFT_CORNER" -> Just LeftEyeLeftCorner

558+ "LEFT_EYE_LEFT_CORNER" -> Right LeftEyeLeftCorner

559− "RIGHT_EYE_TOP_BOUNDARY" -> Just RightEyeTopBoundary

559+ "RIGHT_EYE_TOP_BOUNDARY" -> Right RightEyeTopBoundary

560− "RIGHT_EYE_RIGHT_CORNER" -> Just RightEyeRightCorner

560+ "RIGHT_EYE_RIGHT_CORNER" -> Right RightEyeRightCorner

561− "RIGHT_EYE_BOTTOM_BOUNDARY" -> Just RightEyeBottomBoundary

561+ "RIGHT_EYE_BOTTOM_BOUNDARY" -> Right RightEyeBottomBoundary

562− "RIGHT_EYE_LEFT_CORNER" -> Just RightEyeLeftCorner

562+ "RIGHT_EYE_LEFT_CORNER" -> Right RightEyeLeftCorner

563− "LEFT_EYEBROW_UPPER_MIDPOINT" -> Just LeftEyebrowUpperMidpoint

563+ "LEFT_EYEBROW_UPPER_MIDPOINT" -> Right LeftEyebrowUpperMidpoint

564− "RIGHT_EYEBROW_UPPER_MIDPOINT" -> Just RightEyebrowUpperMidpoint

564+ "RIGHT_EYEBROW_UPPER_MIDPOINT" -> Right RightEyebrowUpperMidpoint

565− "LEFT_EAR_TRAGION" -> Just LeftEarTragion

565+ "LEFT_EAR_TRAGION" -> Right LeftEarTragion

566− "RIGHT_EAR_TRAGION" -> Just RightEarTragion

566+ "RIGHT_EAR_TRAGION" -> Right RightEarTragion

567− "LEFT_EYE_PUPIL" -> Just LeftEyePupil

567+ "LEFT_EYE_PUPIL" -> Right LeftEyePupil

568− "RIGHT_EYE_PUPIL" -> Just RightEyePupil

568+ "RIGHT_EYE_PUPIL" -> Right RightEyePupil

569− "FOREHEAD_GLABELLA" -> Just ForeheadGlabella

569+ "FOREHEAD_GLABELLA" -> Right ForeheadGlabella

570− "CHIN_GNATHION" -> Just ChinGnathion

570+ "CHIN_GNATHION" -> Right ChinGnathion

571− "CHIN_LEFT_GONION" -> Just ChinLeftGonion

571+ "CHIN_LEFT_GONION" -> Right ChinLeftGonion

572− "CHIN_RIGHT_GONION" -> Just ChinRightGonion

572+ "CHIN_RIGHT_GONION" -> Right ChinRightGonion

573− _ -> Nothing

573+ x -> Left ("Unable to parse LandmarkType from: " <> x)

574−

574+

575−instance ToText LandmarkType where

575+instance ToHttpApiData LandmarkType where

576− toText = \case

576+ toQueryParam = \case

577 UnknownLandmark -> "UNKNOWN_LANDMARK"

578 LeftEye -> "LEFT_EYE"

579 RightEye -> "RIGHT_EYE"

@@ -628,14 +628,14 @@ data Xgafv

628

629instance Hashable Xgafv

630

631−instance FromText Xgafv where

631+instance FromHttpApiData Xgafv where

632− fromText = \case

632+ parseQueryParam = \case

633− "1" -> Just X1

633+ "1" -> Right X1

634− "2" -> Just X2

634+ "2" -> Right X2

635− _ -> Nothing

635+ x -> Left ("Unable to parse Xgafv from: " <> x)

636

637−instance ToText Xgafv where

637+instance ToHttpApiData Xgafv where

638− toText = \case

638+ toQueryParam = \case

639 X1 -> "1"

640 X2 -> "2"

641

@@ -670,18 +670,18 @@ data SafeSearchAnnotationSpoof

670

671instance Hashable SafeSearchAnnotationSpoof

672

673−instance FromText SafeSearchAnnotationSpoof where

673+instance FromHttpApiData SafeSearchAnnotationSpoof where

674− fromText = \case

674+ parseQueryParam = \case

675− "UNKNOWN" -> Just SSASUnknown

675+ "UNKNOWN" -> Right SSASUnknown

676− "VERY_UNLIKELY" -> Just SSASVeryUnlikely

676+ "VERY_UNLIKELY" -> Right SSASVeryUnlikely

677− "UNLIKELY" -> Just SSASUnlikely

677+ "UNLIKELY" -> Right SSASUnlikely

678− "POSSIBLE" -> Just SSASPossible

678+ "POSSIBLE" -> Right SSASPossible

679− "LIKELY" -> Just SSASLikely

679+ "LIKELY" -> Right SSASLikely

680− "VERY_LIKELY" -> Just SSASVeryLikely

680+ "VERY_LIKELY" -> Right SSASVeryLikely

681− _ -> Nothing

681+ x -> Left ("Unable to parse SafeSearchAnnotationSpoof from: " <> x)

682−

682+

683−instance ToText SafeSearchAnnotationSpoof where

683+instance ToHttpApiData SafeSearchAnnotationSpoof where

684− toText = \case

684+ toQueryParam = \case

685 SSASUnknown -> "UNKNOWN"

686 SSASVeryUnlikely -> "VERY_UNLIKELY"

687 SSASUnlikely -> "UNLIKELY"

@@ -719,18 +719,18 @@ data FaceAnnotationSurpriseLikelihood

719

720instance Hashable FaceAnnotationSurpriseLikelihood

721

722−instance FromText FaceAnnotationSurpriseLikelihood where

722+instance FromHttpApiData FaceAnnotationSurpriseLikelihood where

723− fromText = \case

723+ parseQueryParam = \case

724− "UNKNOWN" -> Just FASLUnknown

724+ "UNKNOWN" -> Right FASLUnknown

725− "VERY_UNLIKELY" -> Just FASLVeryUnlikely

725+ "VERY_UNLIKELY" -> Right FASLVeryUnlikely

726− "UNLIKELY" -> Just FASLUnlikely

726+ "UNLIKELY" -> Right FASLUnlikely

727− "POSSIBLE" -> Just FASLPossible

727+ "POSSIBLE" -> Right FASLPossible

728− "LIKELY" -> Just FASLLikely

728+ "LIKELY" -> Right FASLLikely

729− "VERY_LIKELY" -> Just FASLVeryLikely

729+ "VERY_LIKELY" -> Right FASLVeryLikely

730− _ -> Nothing

730+ x -> Left ("Unable to parse FaceAnnotationSurpriseLikelihood from: " <> x)

731−

731+

732−instance ToText FaceAnnotationSurpriseLikelihood where

732+instance ToHttpApiData FaceAnnotationSurpriseLikelihood where

733− toText = \case

733+ toQueryParam = \case

734 FASLUnknown -> "UNKNOWN"

735 FASLVeryUnlikely -> "VERY_UNLIKELY"

736 FASLUnlikely -> "UNLIKELY"

@@ -768,18 +768,18 @@ data FaceAnnotationSorrowLikelihood

768

769instance Hashable FaceAnnotationSorrowLikelihood

770

771−instance FromText FaceAnnotationSorrowLikelihood where

771+instance FromHttpApiData FaceAnnotationSorrowLikelihood where

772− fromText = \case

772+ parseQueryParam = \case

773− "UNKNOWN" -> Just FUnknown

773+ "UNKNOWN" -> Right FUnknown

774− "VERY_UNLIKELY" -> Just FVeryUnlikely

774+ "VERY_UNLIKELY" -> Right FVeryUnlikely

775− "UNLIKELY" -> Just FUnlikely

775+ "UNLIKELY" -> Right FUnlikely

776− "POSSIBLE" -> Just FPossible

776+ "POSSIBLE" -> Right FPossible

777− "LIKELY" -> Just FLikely

777+ "LIKELY" -> Right FLikely

778− "VERY_LIKELY" -> Just FVeryLikely

778+ "VERY_LIKELY" -> Right FVeryLikely

779− _ -> Nothing

779+ x -> Left ("Unable to parse FaceAnnotationSorrowLikelihood from: " <> x)

780−

780+

781−instance ToText FaceAnnotationSorrowLikelihood where

781+instance ToHttpApiData FaceAnnotationSorrowLikelihood where

782− toText = \case

782+ toQueryParam = \case

783 FUnknown -> "UNKNOWN"

784 FVeryUnlikely -> "VERY_UNLIKELY"

785 FUnlikely -> "UNLIKELY"

@@ -817,18 +817,18 @@ data FaceAnnotationJoyLikelihood

817

818instance Hashable FaceAnnotationJoyLikelihood

819

820−instance FromText FaceAnnotationJoyLikelihood where

820+instance FromHttpApiData FaceAnnotationJoyLikelihood where

821− fromText = \case

821+ parseQueryParam = \case

822− "UNKNOWN" -> Just FAJLUnknown

822+ "UNKNOWN" -> Right FAJLUnknown

823− "VERY_UNLIKELY" -> Just FAJLVeryUnlikely

823+ "VERY_UNLIKELY" -> Right FAJLVeryUnlikely

824− "UNLIKELY" -> Just FAJLUnlikely

824+ "UNLIKELY" -> Right FAJLUnlikely

825− "POSSIBLE" -> Just FAJLPossible

825+ "POSSIBLE" -> Right FAJLPossible

826− "LIKELY" -> Just FAJLLikely

826+ "LIKELY" -> Right FAJLLikely

827− "VERY_LIKELY" -> Just FAJLVeryLikely

827+ "VERY_LIKELY" -> Right FAJLVeryLikely

828− _ -> Nothing

828+ x -> Left ("Unable to parse FaceAnnotationJoyLikelihood from: " <> x)

829−

829+

830−instance ToText FaceAnnotationJoyLikelihood where

830+instance ToHttpApiData FaceAnnotationJoyLikelihood where

831− toText = \case

831+ toQueryParam = \case

832 FAJLUnknown -> "UNKNOWN"

833 FAJLVeryUnlikely -> "VERY_UNLIKELY"

834 FAJLUnlikely -> "UNLIKELY"

gogol-webmaster-tools/gen/Network/Google/WebmasterTools/Types/Sum.hs+92−92

@@ -42,21 +42,21 @@ data URLCrawlErrorsSamplesMarkAsFixedCategory

43instance Hashable URLCrawlErrorsSamplesMarkAsFixedCategory

45−instance FromText URLCrawlErrorsSamplesMarkAsFixedCategory where

45+instance FromHttpApiData URLCrawlErrorsSamplesMarkAsFixedCategory where

46− fromText = \case

46+ parseQueryParam = \case

47− "authPermissions" -> Just AuthPermissions

47+ "authPermissions" -> Right AuthPermissions

48− "flashContent" -> Just FlashContent

48+ "flashContent" -> Right FlashContent

49− "manyToOneRedirect" -> Just ManyToOneRedirect

49+ "manyToOneRedirect" -> Right ManyToOneRedirect

50− "notFollowed" -> Just NotFollowed

50+ "notFollowed" -> Right NotFollowed

51− "notFound" -> Just NotFound

51+ "notFound" -> Right NotFound

52− "other" -> Just Other

52+ "other" -> Right Other

53− "roboted" -> Just Roboted

53+ "roboted" -> Right Roboted

54− "serverError" -> Just ServerError

54+ "serverError" -> Right ServerError

55− "soft404" -> Just SOFT404

55+ "soft404" -> Right SOFT404

56− _ -> Nothing

56+ x -> Left ("Unable to parse URLCrawlErrorsSamplesMarkAsFixedCategory from: " <> x)

57−

57+

58−instance ToText URLCrawlErrorsSamplesMarkAsFixedCategory where

58+instance ToHttpApiData URLCrawlErrorsSamplesMarkAsFixedCategory where

59− toText = \case

59+ toQueryParam = \case

60 AuthPermissions -> "authPermissions"

61 FlashContent -> "flashContent"

62 ManyToOneRedirect -> "manyToOneRedirect"

@@ -85,15 +85,15 @@ data URLCrawlErrorsSamplesGetPlatform

86instance Hashable URLCrawlErrorsSamplesGetPlatform

88−instance FromText URLCrawlErrorsSamplesGetPlatform where

88+instance FromHttpApiData URLCrawlErrorsSamplesGetPlatform where

89− fromText = \case

89+ parseQueryParam = \case

90− "mobile" -> Just Mobile

90+ "mobile" -> Right Mobile

91− "smartphoneOnly" -> Just SmartphoneOnly

91+ "smartphoneOnly" -> Right SmartphoneOnly

92− "web" -> Just Web

92+ "web" -> Right Web

93− _ -> Nothing

93+ x -> Left ("Unable to parse URLCrawlErrorsSamplesGetPlatform from: " <> x)

95−instance ToText URLCrawlErrorsSamplesGetPlatform where

95+instance ToHttpApiData URLCrawlErrorsSamplesGetPlatform where

96− toText = \case

96+ toQueryParam = \case

97 Mobile -> "mobile"

98 SmartphoneOnly -> "smartphoneOnly"

99 Web -> "web"

@@ -116,15 +116,15 @@ data URLCrawlErrorsSamplesMarkAsFixedPlatform

116

117instance Hashable URLCrawlErrorsSamplesMarkAsFixedPlatform

118

119−instance FromText URLCrawlErrorsSamplesMarkAsFixedPlatform where

119+instance FromHttpApiData URLCrawlErrorsSamplesMarkAsFixedPlatform where

120− fromText = \case

120+ parseQueryParam = \case

121− "mobile" -> Just UCESMAFPMobile

121+ "mobile" -> Right UCESMAFPMobile

122− "smartphoneOnly" -> Just UCESMAFPSmartphoneOnly

122+ "smartphoneOnly" -> Right UCESMAFPSmartphoneOnly

123− "web" -> Just UCESMAFPWeb

123+ "web" -> Right UCESMAFPWeb

124− _ -> Nothing

124+ x -> Left ("Unable to parse URLCrawlErrorsSamplesMarkAsFixedPlatform from: " <> x)

125

126−instance ToText URLCrawlErrorsSamplesMarkAsFixedPlatform where

126+instance ToHttpApiData URLCrawlErrorsSamplesMarkAsFixedPlatform where

127− toText = \case

127+ toQueryParam = \case

128 UCESMAFPMobile -> "mobile"

129 UCESMAFPSmartphoneOnly -> "smartphoneOnly"

130 UCESMAFPWeb -> "web"

@@ -159,21 +159,21 @@ data URLCrawlErrorsSamplesGetCategory

159

160instance Hashable URLCrawlErrorsSamplesGetCategory

161

162−instance FromText URLCrawlErrorsSamplesGetCategory where

162+instance FromHttpApiData URLCrawlErrorsSamplesGetCategory where

163− fromText = \case

163+ parseQueryParam = \case

164− "authPermissions" -> Just UCESGCAuthPermissions

164+ "authPermissions" -> Right UCESGCAuthPermissions

165− "flashContent" -> Just UCESGCFlashContent

165+ "flashContent" -> Right UCESGCFlashContent

166− "manyToOneRedirect" -> Just UCESGCManyToOneRedirect

166+ "manyToOneRedirect" -> Right UCESGCManyToOneRedirect

167− "notFollowed" -> Just UCESGCNotFollowed

167+ "notFollowed" -> Right UCESGCNotFollowed

168− "notFound" -> Just UCESGCNotFound

168+ "notFound" -> Right UCESGCNotFound

169− "other" -> Just UCESGCOther

169+ "other" -> Right UCESGCOther

170− "roboted" -> Just UCESGCRoboted

170+ "roboted" -> Right UCESGCRoboted

171− "serverError" -> Just UCESGCServerError

171+ "serverError" -> Right UCESGCServerError

172− "soft404" -> Just UCESGCSOFT404

172+ "soft404" -> Right UCESGCSOFT404

173− _ -> Nothing

173+ x -> Left ("Unable to parse URLCrawlErrorsSamplesGetCategory from: " <> x)

174−

174+

175−instance ToText URLCrawlErrorsSamplesGetCategory where

175+instance ToHttpApiData URLCrawlErrorsSamplesGetCategory where

176− toText = \case

176+ toQueryParam = \case

177 UCESGCAuthPermissions -> "authPermissions"

178 UCESGCFlashContent -> "flashContent"

179 UCESGCManyToOneRedirect -> "manyToOneRedirect"

@@ -203,15 +203,15 @@ data URLCrawlErrorscountsQueryPlatform

203

204instance Hashable URLCrawlErrorscountsQueryPlatform

205

206−instance FromText URLCrawlErrorscountsQueryPlatform where

206+instance FromHttpApiData URLCrawlErrorscountsQueryPlatform where

207− fromText = \case

207+ parseQueryParam = \case

208− "mobile" -> Just UCEQPMobile

208+ "mobile" -> Right UCEQPMobile

209− "smartphoneOnly" -> Just UCEQPSmartphoneOnly

209+ "smartphoneOnly" -> Right UCEQPSmartphoneOnly

210− "web" -> Just UCEQPWeb

210+ "web" -> Right UCEQPWeb

211− _ -> Nothing

211+ x -> Left ("Unable to parse URLCrawlErrorscountsQueryPlatform from: " <> x)

212

213−instance ToText URLCrawlErrorscountsQueryPlatform where

213+instance ToHttpApiData URLCrawlErrorscountsQueryPlatform where

214− toText = \case

214+ toQueryParam = \case

215 UCEQPMobile -> "mobile"

216 UCEQPSmartphoneOnly -> "smartphoneOnly"

217 UCEQPWeb -> "web"

@@ -246,21 +246,21 @@ data URLCrawlErrorsSamplesListCategory

246

247instance Hashable URLCrawlErrorsSamplesListCategory

248

249−instance FromText URLCrawlErrorsSamplesListCategory where

249+instance FromHttpApiData URLCrawlErrorsSamplesListCategory where

250− fromText = \case

250+ parseQueryParam = \case

251− "authPermissions" -> Just UCESLCAuthPermissions

251+ "authPermissions" -> Right UCESLCAuthPermissions

252− "flashContent" -> Just UCESLCFlashContent

252+ "flashContent" -> Right UCESLCFlashContent

253− "manyToOneRedirect" -> Just UCESLCManyToOneRedirect

253+ "manyToOneRedirect" -> Right UCESLCManyToOneRedirect

254− "notFollowed" -> Just UCESLCNotFollowed

254+ "notFollowed" -> Right UCESLCNotFollowed

255− "notFound" -> Just UCESLCNotFound

255+ "notFound" -> Right UCESLCNotFound

256− "other" -> Just UCESLCOther

256+ "other" -> Right UCESLCOther

257− "roboted" -> Just UCESLCRoboted

257+ "roboted" -> Right UCESLCRoboted

258− "serverError" -> Just UCESLCServerError

258+ "serverError" -> Right UCESLCServerError

259− "soft404" -> Just UCESLCSOFT404

259+ "soft404" -> Right UCESLCSOFT404

260− _ -> Nothing

260+ x -> Left ("Unable to parse URLCrawlErrorsSamplesListCategory from: " <> x)

261−

261+

262−instance ToText URLCrawlErrorsSamplesListCategory where

262+instance ToHttpApiData URLCrawlErrorsSamplesListCategory where

263− toText = \case

263+ toQueryParam = \case

264 UCESLCAuthPermissions -> "authPermissions"

265 UCESLCFlashContent -> "flashContent"

266 UCESLCManyToOneRedirect -> "manyToOneRedirect"

@@ -289,15 +289,15 @@ data URLCrawlErrorsSamplesListPlatform

289

290instance Hashable URLCrawlErrorsSamplesListPlatform

291

292−instance FromText URLCrawlErrorsSamplesListPlatform where

292+instance FromHttpApiData URLCrawlErrorsSamplesListPlatform where

293− fromText = \case

293+ parseQueryParam = \case

294− "mobile" -> Just UCESLPMobile

294+ "mobile" -> Right UCESLPMobile

295− "smartphoneOnly" -> Just UCESLPSmartphoneOnly

295+ "smartphoneOnly" -> Right UCESLPSmartphoneOnly

296− "web" -> Just UCESLPWeb

296+ "web" -> Right UCESLPWeb

297− _ -> Nothing

297+ x -> Left ("Unable to parse URLCrawlErrorsSamplesListPlatform from: " <> x)

298

299−instance ToText URLCrawlErrorsSamplesListPlatform where

299+instance ToHttpApiData URLCrawlErrorsSamplesListPlatform where

300− toText = \case

300+ toQueryParam = \case

301 UCESLPMobile -> "mobile"

302 UCESLPSmartphoneOnly -> "smartphoneOnly"

303 UCESLPWeb -> "web"

@@ -333,21 +333,21 @@ data URLCrawlErrorscountsQueryCategory

333

334instance Hashable URLCrawlErrorscountsQueryCategory

335

336−instance FromText URLCrawlErrorscountsQueryCategory where

336+instance FromHttpApiData URLCrawlErrorscountsQueryCategory where

337− fromText = \case

337+ parseQueryParam = \case

338− "authPermissions" -> Just UCEQCAuthPermissions

338+ "authPermissions" -> Right UCEQCAuthPermissions

339− "flashContent" -> Just UCEQCFlashContent

339+ "flashContent" -> Right UCEQCFlashContent

340− "manyToOneRedirect" -> Just UCEQCManyToOneRedirect

340+ "manyToOneRedirect" -> Right UCEQCManyToOneRedirect

341− "notFollowed" -> Just UCEQCNotFollowed

341+ "notFollowed" -> Right UCEQCNotFollowed

342− "notFound" -> Just UCEQCNotFound

342+ "notFound" -> Right UCEQCNotFound

343− "other" -> Just UCEQCOther

343+ "other" -> Right UCEQCOther

344− "roboted" -> Just UCEQCRoboted

344+ "roboted" -> Right UCEQCRoboted

345− "serverError" -> Just UCEQCServerError

345+ "serverError" -> Right UCEQCServerError

346− "soft404" -> Just UCEQCSOFT404

346+ "soft404" -> Right UCEQCSOFT404

347− _ -> Nothing

347+ x -> Left ("Unable to parse URLCrawlErrorscountsQueryCategory from: " <> x)

348−

348+

349−instance ToText URLCrawlErrorscountsQueryCategory where

349+instance ToHttpApiData URLCrawlErrorscountsQueryCategory where

350− toText = \case

350+ toQueryParam = \case

351 UCEQCAuthPermissions -> "authPermissions"

352 UCEQCFlashContent -> "flashContent"

353 UCEQCManyToOneRedirect -> "manyToOneRedirect"

gogol-youtube/gen/Network/Google/YouTube/Types/Sum.hs+1582−1582

This diff is too big to show here.