Expose lovelaceH html renderer from deposit html common module

cardano-foundation · Nov 11, 2024 · 57aa4fb · 57aa4fb
1 parent 0e5b18c
commit 57aa4fb
Showing 1 changed file with 13 additions and 4 deletions.
diff --git a/lib/ui/src/Cardano/Wallet/UI/Deposit/Html/Common.hs b/lib/ui/src/Cardano/Wallet/UI/Deposit/Html/Common.hs
@@ -11,6 +11,7 @@ module Cardano.Wallet.UI.Deposit.Html.Common
     , showTimeSecs
     , withOriginH
     , valueH
+    , lovelaceH
     )
 where
 
@@ -57,6 +58,9 @@ import Lucid
 import Numeric
     ( showFFloatAlt
     )
+import Numeric.Natural
+    ( Natural
+    )
 
 showTime :: UTCTime -> String
 showTime = formatTime defaultTimeLocale "%Y-%m-%d %H:%M"
@@ -91,8 +95,13 @@ txIdH txId =
                 txId
 
 valueH :: Value -> Html ()
-valueH (ValueC (CoinC c) _) = do
-    span_ $ toHtml $ a ""
+valueH (ValueC (CoinC c) _) = lovelaceH $ fromIntegral c
+
+lovelaceH :: Natural -> Html ()
+lovelaceH c = do
+    span_ $ toHtml $ showLovelaceAsAda c
     span_ [class_ "opacity-25"] "₳"
-  where
-    a = showFFloatAlt @Double (Just 2) $ fromIntegral c / 1_000_000
+
+showLovelaceAsAda :: Integral a => a -> String
+showLovelaceAsAda c =
+    showFFloatAlt @Double (Just 2) (fromIntegral c / 1_000_000) ""