Restore preprod and preview export to runner buttons (#47)

input-output-hk · Oct 17, 2023 · d499e9e · d499e9e
1 parent 0768b36
commit d499e9e
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 2 deletions.
diff --git a/marlowe-playground-client/src/ExportToRunner.purs b/marlowe-playground-client/src/ExportToRunner.purs
@@ -23,8 +23,7 @@ exportToRunnerForm contractString _state =
         , div_
             do
               (title /\ url) <-
-                [ ("Mainnet" /\ "https://mainnet.runner.marlowe.iohk.io/")
-                , ("Preprod" /\ "https://preprod.runner.marlowe.iohk.io/")
+                [ ("Preprod" /\ "https://preprod.runner.marlowe.iohk.io/")
                 , ("Preview" /\ "https://preview.runner.marlowe.iohk.io/")
                 ]
               pure $ a

diff --git a/marlowe-playground-client/src/Page/Simulation/View.purs b/marlowe-playground-client/src/Page/Simulation/View.purs
@@ -394,6 +394,12 @@ startSimulationWidget
                 , onClick $ const DownloadAsJson
                 ]
                 [ text "Download as JSON" ]
+            , button
+                [ classNames
+                    [ "btn", "bold", "flex-1", "max-w-[15rem]", "mx-2" ]
+                , onClick $ const ExportToRunner
+                ]
+                [ text "Export to Marlowe Runner" ]
             , button
                 [ classNames
                     [ "btn", "bold", "flex-1", "max-w-[15rem]", "mx-2" ]