From b74b087c310a9c98145b479807e495ab416453b0 Mon Sep 17 00:00:00 2001 From: hsloan Date: Tue, 29 Jun 2021 16:36:34 +0000 Subject: [PATCH] add ada identifier to pool token balance --- use-case-2/frontend/src/Frontend.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/use-case-2/frontend/src/Frontend.hs b/use-case-2/frontend/src/Frontend.hs index 2cb20c11a..f20add1e4 100644 --- a/use-case-2/frontend/src/Frontend.hs +++ b/use-case-2/frontend/src/Frontend.hs @@ -354,9 +354,9 @@ poolDashboard wid = Workflow $ do el "p" $ text $ "Token Name: " <> (T.pack $ show tokenName) <> " (Composed of tokens " - <> (T.pack $ show tokenNameA) + <> (T.pack $ show $ if tokenNameA == "" then "Ada" else tokenNameA) <> " and " - <> (T.pack $ show tokenNameB) + <> (T.pack $ show $ if tokenNameB == "" then "Ada" else tokenNameB) <> " Balance: " <> (T.pack $ show tokenBalance) <> " Liquidity Percentage: "