From 9f4bc86914152f5821b0e9676b7d2adf4e8330de Mon Sep 17 00:00:00 2001
From: Yves Hauser <yves.hauser@gmail.com>
Date: Tue, 27 Jun 2023 20:53:45 +0200
Subject: [PATCH] Fixed display of value when deposit

---
 src/Component/ApplyInputs.purs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/Component/ApplyInputs.purs b/src/Component/ApplyInputs.purs
index d6c9433c..1ed9241e 100644
--- a/src/Component/ApplyInputs.purs
+++ b/src/Component/ApplyInputs.purs
@@ -23,6 +23,7 @@ import Control.Monad.Maybe.Trans (MaybeT(..), runMaybeT)
 import Control.Monad.Reader.Class (asks)
 import Data.Array.ArrayAL as ArrayAL
 import Data.Array.NonEmpty (NonEmptyArray)
+import Data.BigInt.Argonaut (toString)
 import Data.BigInt.Argonaut as BigInt
 import Data.DateTime.Instant (instant, toDateTime, unInstant)
 import Data.Either (Either(..))
@@ -115,9 +116,9 @@ mkDepositFormComponent = do
     let
       choices = RadioButtonFieldChoices do
         let
-          toChoice idx (DepositInput _ _ _ value _) = do
+          toChoice idx (DepositInput _ _ token value _) = do
             let
-              label = show value
+              label = toString value <> " " <> show token
             radioFieldChoice (show idx) (DOOM.text label)
         { switch: true
         , choices: ArrayAL.fromNonEmptyArray $ mapWithIndex toChoice depositInputs