Allow returning responses as json.

lib/stripe.ex

@@ -33,6 +33,10 @@ defmodule Stripe do
       from Stripe. See [https://stripe.com/docs/api/expanding_objects](https://stripe.com/docs/api/expanding_objects)
     * `:idempotency_key` - A string that is passed through as the "Idempotency-Key" header on all POST requests. This is used by Stripe's idempotency layer to manage
       duplicate requests to the stripe API. See [https://stripe.com/docs/api/idempotent_requests](https://stripe.com/docs/api/idempotent_requests)
+    * `:response_as_json` - If set to `true`, the response will be returned as a
+    JSON string instead of a struct. This is useful for persisting the original
+    response from stripe. You can use Stripe.Converter.convert_result/1 to get structs
+    from it.
 
   ### HTTP Connection Pool
 

lib/stripe/request.ex

@@ -200,7 +200,11 @@ defmodule Stripe.Request do
     with {:ok, params} <- do_cast_to_id(params, request.cast_to_id),
          {:ok, endpoint} <- consolidate_endpoint(endpoint, params),
          {:ok, result} <- API.request(params, method, endpoint, headers, opts) do
-      {:ok, Converter.convert_result(result)}
+      if Keyword.get(opts, :response_as_json, false) do
+        {:ok, result}
+      else
+        {:ok, Converter.convert_result(result)}
+      end
     end
   end
 
@@ -210,11 +214,17 @@ defmodule Stripe.Request do
   @spec make_file_upload_request(t) :: {:ok, struct} | {:error, Stripe.Error.t()}
   def make_file_upload_request(
         %Request{params: params, endpoint: endpoint, method: method, opts: opts} = request
-      ) do
+  ) do
+
+
     with {:ok, params} <- do_cast_to_id(params, request.cast_to_id),
          {:ok, endpoint} <- consolidate_endpoint(endpoint, params),
          {:ok, result} <- API.request_file_upload(params, method, endpoint, %{}, opts) do
-      {:ok, Converter.convert_result(result)}
+      if Keyword.get(opts, :response_as_json, false) do
+        {:ok, result}
+      else
+        {:ok, Converter.convert_result(result)}
+      end
     end
   end
 

lib/stripe/webhook.ex

@@ -37,13 +37,16 @@ defmodule Stripe.Webhook do
           # Reject webhook by responding with non-2XX
       end
   """
-  @spec construct_event(String.t(), String.t(), String.t(), integer) ::
+  @spec construct_event(String.t(), String.t(), String.t(), integer, opts :: Keyword.t()) ::
           {:ok, Stripe.Event.t()} | {:error, any}
-  def construct_event(payload, signature_header, secret, tolerance \\ @default_tolerance) do
+  def construct_event(payload, signature_header, secret, tolerance \\ @default_tolerance, opts \\ []) do
     case verify_header(payload, signature_header, secret, tolerance) do
       :ok ->
-        {:ok, convert_to_event!(payload)}
-
+        if Keyword.get(opts, :response_as_json, false) do
+          {:ok, convert_to_json!(payload)}
+        else
+          {:ok, convert_to_event!(payload)}
+        end
       error ->
         error
     end
@@ -146,9 +149,11 @@ defmodule Stripe.Webhook do
     |> secure_compare(input, expected)
   end
 
+  defp convert_to_json!(payload) do
+    payload |> Stripe.API.json_library().decode!()
+  end
+
   defp convert_to_event!(payload) do
-    payload
-    |> Stripe.API.json_library().decode!()
-    |> Stripe.Converter.convert_result()
+    payload |> convert_to_json!() |> Stripe.Converter.convert_result()
   end
 end