Skip to content

Commit

Permalink
Update stripe api spec
Browse files Browse the repository at this point in the history
  • Loading branch information
@joel-bach
joel-bach committed Jan 6, 2024
1 parent ba4401f commit 336e8af
Show file tree
Hide file tree
Showing 491 changed files with 96,571 additions and 75,299 deletions.
4 changes: 3 additions & 1 deletion src/StripeAPI/Common.hs
View file
Original file line number Diff line number Diff line change
Expand Up @@ -266,7 +266,9 @@ serializeQueryParam QueryParameter {..} =
if queryParamExplode
then fmap (BF.first $ Maybe.fromMaybe queryParamName)
else
pure . (queryParamName,) . B8.intercalate joinWith
pure
. (queryParamName,)
. B8.intercalate joinWith
. fmap
( \case
(Nothing, value) -> value
Expand Down
24 changes: 12 additions & 12 deletions src/StripeAPI/Operations/DeleteAccount.hs
View file
Original file line number Diff line number Diff line change
Expand Up @@ -65,19 +65,19 @@ deleteAccount body =
GHC.Base.. ( \response body ->
if
| (\status_1 -> Network.HTTP.Types.Status.statusCode status_1 GHC.Classes.== 200) (Network.HTTP.Client.Types.responseStatus response) ->
DeleteAccountResponse200
Data.Functor.<$> ( Data.Aeson.eitherDecodeStrict body ::
Data.Either.Either
GHC.Base.String
DeletedAccount
)
DeleteAccountResponse200
Data.Functor.<$> ( Data.Aeson.eitherDecodeStrict body ::
Data.Either.Either
GHC.Base.String
DeletedAccount
)
| GHC.Base.const GHC.Types.True (Network.HTTP.Client.Types.responseStatus response) ->
DeleteAccountResponseDefault
Data.Functor.<$> ( Data.Aeson.eitherDecodeStrict body ::
Data.Either.Either
GHC.Base.String
Error
)
DeleteAccountResponseDefault
Data.Functor.<$> ( Data.Aeson.eitherDecodeStrict body ::
Data.Either.Either
GHC.Base.String
Error
)
| GHC.Base.otherwise -> Data.Either.Left "Missing default response type"
)
response_0
Expand Down
24 changes: 12 additions & 12 deletions src/StripeAPI/Operations/DeleteAccountBankAccountsId.hs
View file
Original file line number Diff line number Diff line change
Expand Up @@ -61,19 +61,19 @@ deleteAccountBankAccountsId id =
GHC.Base.. ( \response body ->
if
| (\status_1 -> Network.HTTP.Types.Status.statusCode status_1 GHC.Classes.== 200) (Network.HTTP.Client.Types.responseStatus response) ->
DeleteAccountBankAccountsIdResponse200
Data.Functor.<$> ( Data.Aeson.eitherDecodeStrict body ::
Data.Either.Either
GHC.Base.String
DeletedExternalAccount
)
DeleteAccountBankAccountsIdResponse200
Data.Functor.<$> ( Data.Aeson.eitherDecodeStrict body ::
Data.Either.Either
GHC.Base.String
DeletedExternalAccount
)
| GHC.Base.const GHC.Types.True (Network.HTTP.Client.Types.responseStatus response) ->
DeleteAccountBankAccountsIdResponseDefault
Data.Functor.<$> ( Data.Aeson.eitherDecodeStrict body ::
Data.Either.Either
GHC.Base.String
Error
)
DeleteAccountBankAccountsIdResponseDefault
Data.Functor.<$> ( Data.Aeson.eitherDecodeStrict body ::
Data.Either.Either
GHC.Base.String
Error
)
| GHC.Base.otherwise -> Data.Either.Left "Missing default response type"
)
response_0
Expand Down
24 changes: 12 additions & 12 deletions src/StripeAPI/Operations/DeleteAccountExternalAccountsId.hs
View file
Original file line number Diff line number Diff line change
Expand Up @@ -61,19 +61,19 @@ deleteAccountExternalAccountsId id =
GHC.Base.. ( \response body ->
if
| (\status_1 -> Network.HTTP.Types.Status.statusCode status_1 GHC.Classes.== 200) (Network.HTTP.Client.Types.responseStatus response) ->
DeleteAccountExternalAccountsIdResponse200
Data.Functor.<$> ( Data.Aeson.eitherDecodeStrict body ::
Data.Either.Either
GHC.Base.String
DeletedExternalAccount
)
DeleteAccountExternalAccountsIdResponse200
Data.Functor.<$> ( Data.Aeson.eitherDecodeStrict body ::
Data.Either.Either
GHC.Base.String
DeletedExternalAccount
)
| GHC.Base.const GHC.Types.True (Network.HTTP.Client.Types.responseStatus response) ->
DeleteAccountExternalAccountsIdResponseDefault
Data.Functor.<$> ( Data.Aeson.eitherDecodeStrict body ::
Data.Either.Either
GHC.Base.String
Error
)
DeleteAccountExternalAccountsIdResponseDefault
Data.Functor.<$> ( Data.Aeson.eitherDecodeStrict body ::
Data.Either.Either
GHC.Base.String
Error
)
| GHC.Base.otherwise -> Data.Either.Left "Missing default response type"
)
response_0
Expand Down
24 changes: 12 additions & 12 deletions src/StripeAPI/Operations/DeleteAccountPeoplePerson.hs
View file
Original file line number Diff line number Diff line change
Expand Up @@ -61,19 +61,19 @@ deleteAccountPeoplePerson person =
GHC.Base.. ( \response body ->
if
| (\status_1 -> Network.HTTP.Types.Status.statusCode status_1 GHC.Classes.== 200) (Network.HTTP.Client.Types.responseStatus response) ->
DeleteAccountPeoplePersonResponse200
Data.Functor.<$> ( Data.Aeson.eitherDecodeStrict body ::
Data.Either.Either
GHC.Base.String
DeletedPerson
)
DeleteAccountPeoplePersonResponse200
Data.Functor.<$> ( Data.Aeson.eitherDecodeStrict body ::
Data.Either.Either
GHC.Base.String
DeletedPerson
)
| GHC.Base.const GHC.Types.True (Network.HTTP.Client.Types.responseStatus response) ->
DeleteAccountPeoplePersonResponseDefault
Data.Functor.<$> ( Data.Aeson.eitherDecodeStrict body ::
Data.Either.Either
GHC.Base.String
Error
)
DeleteAccountPeoplePersonResponseDefault
Data.Functor.<$> ( Data.Aeson.eitherDecodeStrict body ::
Data.Either.Either
GHC.Base.String
Error
)
| GHC.Base.otherwise -> Data.Either.Left "Missing default response type"
)
response_0
Expand Down
24 changes: 12 additions & 12 deletions src/StripeAPI/Operations/DeleteAccountPersonsPerson.hs
View file
Original file line number Diff line number Diff line change
Expand Up @@ -61,19 +61,19 @@ deleteAccountPersonsPerson person =
GHC.Base.. ( \response body ->
if
| (\status_1 -> Network.HTTP.Types.Status.statusCode status_1 GHC.Classes.== 200) (Network.HTTP.Client.Types.responseStatus response) ->
DeleteAccountPersonsPersonResponse200
Data.Functor.<$> ( Data.Aeson.eitherDecodeStrict body ::
Data.Either.Either
GHC.Base.String
DeletedPerson
)
DeleteAccountPersonsPersonResponse200
Data.Functor.<$> ( Data.Aeson.eitherDecodeStrict body ::
Data.Either.Either
GHC.Base.String
DeletedPerson
)
| GHC.Base.const GHC.Types.True (Network.HTTP.Client.Types.responseStatus response) ->
DeleteAccountPersonsPersonResponseDefault
Data.Functor.<$> ( Data.Aeson.eitherDecodeStrict body ::
Data.Either.Either
GHC.Base.String
Error
)
DeleteAccountPersonsPersonResponseDefault
Data.Functor.<$> ( Data.Aeson.eitherDecodeStrict body ::
Data.Either.Either
GHC.Base.String
Error
)
| GHC.Base.otherwise -> Data.Either.Left "Missing default response type"
)
response_0
Expand Down
24 changes: 12 additions & 12 deletions src/StripeAPI/Operations/DeleteAccountsAccount.hs
View file
Original file line number Diff line number Diff line change
Expand Up @@ -65,19 +65,19 @@ deleteAccountsAccount account =
GHC.Base.. ( \response body ->
if
| (\status_1 -> Network.HTTP.Types.Status.statusCode status_1 GHC.Classes.== 200) (Network.HTTP.Client.Types.responseStatus response) ->
DeleteAccountsAccountResponse200
Data.Functor.<$> ( Data.Aeson.eitherDecodeStrict body ::
Data.Either.Either
GHC.Base.String
DeletedAccount
)
DeleteAccountsAccountResponse200
Data.Functor.<$> ( Data.Aeson.eitherDecodeStrict body ::
Data.Either.Either
GHC.Base.String
DeletedAccount
)
| GHC.Base.const GHC.Types.True (Network.HTTP.Client.Types.responseStatus response) ->
DeleteAccountsAccountResponseDefault
Data.Functor.<$> ( Data.Aeson.eitherDecodeStrict body ::
Data.Either.Either
GHC.Base.String
Error
)
DeleteAccountsAccountResponseDefault
Data.Functor.<$> ( Data.Aeson.eitherDecodeStrict body ::
Data.Either.Either
GHC.Base.String
Error
)
| GHC.Base.otherwise -> Data.Either.Left "Missing default response type"
)
response_0
Expand Down
24 changes: 12 additions & 12 deletions src/StripeAPI/Operations/DeleteAccountsAccountBankAccountsId.hs
View file
Original file line number Diff line number Diff line change
Expand Up @@ -61,19 +61,19 @@ deleteAccountsAccountBankAccountsId parameters =
GHC.Base.. ( \response body ->
if
| (\status_1 -> Network.HTTP.Types.Status.statusCode status_1 GHC.Classes.== 200) (Network.HTTP.Client.Types.responseStatus response) ->
DeleteAccountsAccountBankAccountsIdResponse200
Data.Functor.<$> ( Data.Aeson.eitherDecodeStrict body ::
Data.Either.Either
GHC.Base.String
DeletedExternalAccount
)
DeleteAccountsAccountBankAccountsIdResponse200
Data.Functor.<$> ( Data.Aeson.eitherDecodeStrict body ::
Data.Either.Either
GHC.Base.String
DeletedExternalAccount
)
| GHC.Base.const GHC.Types.True (Network.HTTP.Client.Types.responseStatus response) ->
DeleteAccountsAccountBankAccountsIdResponseDefault
Data.Functor.<$> ( Data.Aeson.eitherDecodeStrict body ::
Data.Either.Either
GHC.Base.String
Error
)
DeleteAccountsAccountBankAccountsIdResponseDefault
Data.Functor.<$> ( Data.Aeson.eitherDecodeStrict body ::
Data.Either.Either
GHC.Base.String
Error
)
| GHC.Base.otherwise -> Data.Either.Left "Missing default response type"
)
response_0
Expand Down
24 changes: 12 additions & 12 deletions src/StripeAPI/Operations/DeleteAccountsAccountExternalAccountsId.hs
View file
Original file line number Diff line number Diff line change
Expand Up @@ -61,19 +61,19 @@ deleteAccountsAccountExternalAccountsId parameters =
GHC.Base.. ( \response body ->
if
| (\status_1 -> Network.HTTP.Types.Status.statusCode status_1 GHC.Classes.== 200) (Network.HTTP.Client.Types.responseStatus response) ->
DeleteAccountsAccountExternalAccountsIdResponse200
Data.Functor.<$> ( Data.Aeson.eitherDecodeStrict body ::
Data.Either.Either
GHC.Base.String
DeletedExternalAccount
)
DeleteAccountsAccountExternalAccountsIdResponse200
Data.Functor.<$> ( Data.Aeson.eitherDecodeStrict body ::
Data.Either.Either
GHC.Base.String
DeletedExternalAccount
)
| GHC.Base.const GHC.Types.True (Network.HTTP.Client.Types.responseStatus response) ->
DeleteAccountsAccountExternalAccountsIdResponseDefault
Data.Functor.<$> ( Data.Aeson.eitherDecodeStrict body ::
Data.Either.Either
GHC.Base.String
Error
)
DeleteAccountsAccountExternalAccountsIdResponseDefault
Data.Functor.<$> ( Data.Aeson.eitherDecodeStrict body ::
Data.Either.Either
GHC.Base.String
Error
)
| GHC.Base.otherwise -> Data.Either.Left "Missing default response type"
)
response_0
Expand Down
Loading

0 comments on commit 336e8af

Please sign in to comment.