Setup notifier and signal module

Send error signals when failing to link stripe accounts

Author: lastcanal

lib/algora/notifier.ex

@@ -0,0 +1,14 @@
+defmodule Algora.Notifier do
+  @moduledoc false
+  def notify_welcome_org(_user, _org) do
+    :ok
+  end
+
+  def notify_welcome_developer(_user) do
+    :ok
+  end
+
+  def notify_stripe_account_link_error(_user, _error) do
+    :ok
+  end
+end

lib/algora/payments/errors.ex

@@ -0,0 +1,14 @@
+defmodule Algora.Payments.StripeAccountLinkError do
+  @moduledoc false
+  defexception [:message]
+end
+
+defmodule Algora.Payments.StripeAccountCreateError do
+  @moduledoc false
+  defexception [:message]
+end
+
+defmodule Algora.Payments.StripeAccountDeleteError do
+  @moduledoc false
+  defexception [:message]
+end

lib/algora/signal.ex

@@ -0,0 +1,17 @@
+defmodule Algora.Signal do
+  @moduledoc false
+  @provider Appsignal
+
+  defdelegate send_error(exception, stacktrace), to: @provider
+  defdelegate send_error(kind, reason, stacktrace), to: @provider
+
+  def send_stripe_error(%Stripe.Error{} = error, exception, stacktrace \\ nil) do
+    case error do
+      %{extra: %{raw_error: %{"message" => message}}} ->
+        send_error(%{exception | message: message}, stacktrace)
+
+      _error ->
+        send_error(%{exception | message: "Unknown Stripe error"}, stacktrace)
+    end
+  end
+end

lib/algora_web/live/user/transactions_live.ex

@@ -7,6 +7,9 @@ defmodule AlgoraWeb.User.TransactionsLive do
 
   alias Algora.Accounts.User
   alias Algora.Payments
+  alias Algora.Payments.StripeAccountCreateError
+  alias Algora.Payments.StripeAccountDeleteError
+  alias Algora.Payments.StripeAccountLinkError
   alias Algora.Stripe.ConnectCountries
   alias Algora.Util
 
@@ -79,8 +82,16 @@ defmodule AlgoraWeb.User.TransactionsLive do
 
   def handle_event("setup_payout_account", _params, socket) do
     case Payments.create_account_link(socket.assigns.account, AlgoraWeb.Endpoint.url()) do
-      {:ok, %{url: url}} -> {:noreply, redirect(socket, external: url)}
-      {:error, _reason} -> {:noreply, put_flash(socket, :error, "Something went wrong")}
+      {:ok, %{url: url}} ->
+        {:noreply, redirect(socket, external: url)}
+
+      {:error, %Stripe.Error{} = error} ->
+        Algora.Notifier.notify_stripe_account_link_error(socket.assigns.current_user, error)
+        Algora.Signal.send_stripe_error(error, %StripeAccountLinkError{})
+        {:noreply, put_flash(socket, :error, "Failed to link payout account for your country")}
+
+      {:error, _reason} ->
+        {:noreply, put_flash(socket, :error, "Something went wrong")}
     end
   end
 
@@ -98,8 +109,13 @@ defmodule AlgoraWeb.User.TransactionsLive do
            {:ok, %{url: url}} <- Payments.create_account_link(account, AlgoraWeb.Endpoint.url()) do
         {:noreply, redirect(socket, external: url)}
       else
-        {:error, _reason} ->
+        {:error, %Stripe.Error{} = error} ->
+          Algora.Notifier.notify_stripe_account_link_error(socket.assigns.current_user, error)
+          Algora.Signal.send_stripe_error(error, %StripeAccountCreateError{})
           {:noreply, put_flash(socket, :error, "Failed to create payout account")}
+
+        {:error, _reason} ->
+          {:noreply, put_flash(socket, :error, "Something went wrong")}
       end
     else
       {:noreply, assign(socket, :payout_account_form, to_form(changeset))}
@@ -124,11 +140,15 @@ defmodule AlgoraWeb.User.TransactionsLive do
          |> assign(:show_manage_payout_drawer, false)
          |> put_flash(:info, "Payout account deleted successfully")}
 
+      {:error, %Stripe.Error{} = error} ->
+        Algora.Signal.send_stripe_error(error, %StripeAccountDeleteError{})
+        {:noreply, put_flash(socket, :error, "Failed to delete payout account")}
+
       {:error, _reason} ->
         {:noreply,
          socket
          |> assign(:show_delete_confirmation, false)
-         |> put_flash(:error, "Failed to delete payout account")}
+         |> put_flash(:error, "Something went wrong")}
     end
   end