add ada identifier to pool token balance

input-output-hk · Jun 29, 2021 · b74b087 · b74b087
1 parent 1b301b2
commit b74b087
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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: "