fix

IntersectMBO · Aug 10, 2020 · db53be6 · db53be6
1 parent 850361d
commit db53be6
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/marlowe-playground-client/src/MainFrame.purs b/marlowe-playground-client/src/MainFrame.purs
@@ -266,8 +266,9 @@ handleAction s (HandleActusBlocklyMessage (ActusBlockly.CurrentTerms flavour ter
           ActusBlockly.F -> runAjax $ flip runReaderT s $ (Server.postActusGeneratestatic parsedTerms)
         case result of
           Success contractAST -> do
-            void $ toSimulation $ Simulation.handleAction s (ST.SetEditorText contractAST)
             selectView Simulation
+            void $ toSimulation $ Simulation.handleAction s (ST.SetEditorText contractAST)
+
           Failure e        -> void $ query _actusBlocklySlot unit (ActusBlockly.SetError ("Server error! " <> (showErrorDescription (runAjaxError e).description)) unit)
           _                -> void $ query _actusBlocklySlot unit (ActusBlockly.SetError "Unknown server error!" unit)