Use action index to give labels unique name (IntersectMBO#3234)

fixes IntersectMBO#3196
sarvex · May 21, 2021 · 867551d · 867551d
1 parent 9098479
commit 867551d
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 4 deletions.
diff --git a/plutus-pab-client/src/View/Contracts.purs b/plutus-pab-client/src/View/Contracts.purs
@@ -158,7 +158,7 @@ actionCard contractInstanceId wrapper endpointForm =
   col4_
     [ card_
         [ cardHeader_ [ h2_ [ text $ view (_schema <<< _FunctionSchema <<< _endpointDescription <<< _getEndpointDescription) endpointForm ] ]
-        , cardBody_ [ actionArgumentForm wrapper (view _argument endpointForm) ]
+        , cardBody_ [ actionArgumentForm 0 wrapper (view _argument endpointForm) ]
         , cardFooter_
             [ button
                 [ classes [ btn, btnSmall, btnPrimary ]

diff --git a/plutus-playground-client/src/Action/View.purs b/plutus-playground-client/src/Action/View.purs
@@ -93,7 +93,7 @@ actionPaneBody index (CallEndpoint { caller, argumentValues }) =
         , text ": "
         , text $ view (_FunctionSchema <<< _endpointDescription <<< _getEndpointDescription) argumentValues
         ]
-    , actionArgumentForm (PopulateAction index) $ view (_FunctionSchema <<< _argument) argumentValues
+    , actionArgumentForm index (PopulateAction index) $ view (_FunctionSchema <<< _argument) argumentValues
     ]
 
 actionPaneBody index (PayToWallet { sender, recipient, amount }) =

diff --git a/web-common-plutus/src/Schema/View.purs b/web-common-plutus/src/Schema/View.purs
@@ -31,12 +31,13 @@ import ValueEditor (valueForm)
 
 actionArgumentForm ::
   forall p i.
+  Int ->
   (FormEvent -> i) ->
   FormArgument ->
   HTML p i
-actionArgumentForm wrapper argument =
+actionArgumentForm index wrapper argument =
   div [ class_ wasValidated ]
-    [ wrapper <$> actionArgumentField [] false argument ]
+    [ wrapper <$> actionArgumentField [ show index ] false argument ]
 
 actionArgumentField ::
   forall p.