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: "