Replacing formatText with markdownToHTML.

IntersectMBO · Jul 20, 2021 · 0baaf84 · 0baaf84
1 parent 40f6dc9
commit 0baaf84
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 44 deletions.
diff --git a/marlowe-dashboard-client/src/Template/Format.purs b/marlowe-dashboard-client/src/Template/Format.purs
diff --git a/marlowe-dashboard-client/src/Template/State.purs b/marlowe-dashboard-client/src/Template/State.purs
@@ -233,6 +233,8 @@ roleError walletLibrary walletNickname =
   else
     Just NonExistentNickname
 
+-- TODO: Add proper slot input validation. It's not necessary yet, because slot parameters are
+-- readonly for now.
 slotError :: String -> Maybe SlotError
 slotError "" = Just EmptySlot
 

diff --git a/marlowe-dashboard-client/src/Template/View.purs b/marlowe-dashboard-client/src/Template/View.purs
@@ -27,7 +27,6 @@ import Marlowe.Semantics (Assets, TokenName)
 import Material.Icons (Icon(..)) as Icon
 import Material.Icons (Icon, icon, icon_)
 import Popper (Placement(..))
-import Template.Format (formatText)
 import Template.Lenses (_contractNicknameInput, _contractSetupStage, _contractTemplate, _roleWalletInputs, _slotContentInputs, _valueContentInputs)
 import Template.State (templateSetupIsValid)
 import Template.Types (Action(..), ContractSetupStage(..), RoleError, SlotError, State, ValueError)
@@ -127,7 +126,7 @@ contractSelection =
               [ text contractTemplate.metaData.contractName ]
           , p
               [ classNames [ "font-xs" ] ]
-              $ formatText contractTemplate.metaData.contractDescription
+              $ markdownToHTML contractTemplate.metaData.contractDescription
           ]
       , icon_ Icon.Next
       ]
@@ -143,7 +142,7 @@ contractOverview contractTemplate =
             [ contractIcon contractTemplate.metaData.contractType
             , text $ contractTemplate.metaData.contractName <> " overview"
             ]
-        , p_ $ formatText contractTemplate.metaData.contractDescription
+        , p_ $ markdownToHTML contractTemplate.metaData.contractDescription
         ]
     , div
         [ classNames [ "flex", "items-baseline", "p-4", "border-gray", "border-t" ] ]