diff --git a/marlowe-playground-client/src/ExportToRunner.purs b/marlowe-playground-client/src/ExportToRunner.purs index 0ad13dd3c..dae26f91b 100644 --- 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 index 7fa12cd5c..4a1890fa4 100644 --- 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" ]