Automatically assign to lastSuccessfulCompilationResult if compilatio…

…nResult is updated
IntersectMBO · Oct 12, 2021 · 968ca2f · 968ca2f
1 parent c1cdefe
commit 968ca2f
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 4 deletions.
diff --git a/plutus-playground-client/src/MainFrame/Lenses.purs b/plutus-playground-client/src/MainFrame/Lenses.purs
@@ -38,7 +38,7 @@ import Control.Monad.State.Class (class MonadState)
 import Cursor (Cursor)
 import Data.Either (Either)
 import Data.Json.JsonTuple (JsonTuple)
-import Data.Lens (Lens', Traversal', _Right)
+import Data.Lens (Lens', Traversal', _Right, lens, is)
 import Data.Lens.Extra (peruse)
 import Data.Lens.Iso.Newtype (_Newtype)
 import Data.Lens.Record (prop)
@@ -91,7 +91,15 @@ _lastEvaluatedSimulation :: Lens' State (Maybe Simulation)
 _lastEvaluatedSimulation = _Newtype <<< prop (SProxy :: SProxy "lastEvaluatedSimulation")
 
 _compilationResult :: Lens' State (WebData (Either InterpreterError (InterpreterResult CompilationResult)))
-_compilationResult = _Newtype <<< prop (SProxy :: SProxy "compilationResult")
+_compilationResult = _Newtype <<< lens g s
+  where
+  g r = r.compilationResult
+
+  s r c =
+    if is (_Success <<< _Right) c then
+      r { compilationResult = c, lastSuccessfulCompilationResult = c }
+    else
+      r { compilationResult = c }
 
 _successfulCompilationResult :: Traversal' State CompilationResult
 _successfulCompilationResult = _compilationResult <<< _Success <<< _Right <<< _InterpreterResult <<< _result

diff --git a/plutus-playground-client/src/MainFrame/State.purs b/plutus-playground-client/src/MainFrame/State.purs
@@ -257,7 +257,6 @@ handleAction (LoadScript key) = do
       assign (_editorState <<< _lastCompiledCode) (Just contractDemoEditorContents)
       assign (_editorState <<< _currentCodeIsCompiled) true
       assign _compilationResult (Success <<< Right $ contractDemoContext)
-      assign _lastSuccessfulCompilationResult (Success <<< Right $ contractDemoContext)
       assign _evaluationResult NotAsked
       assign _createGistResult NotAsked
 
@@ -345,7 +344,6 @@ handleAction CompileProgram = do
           when (isSuccess newCompilationResult) do
             assign (_editorState <<< _lastCompiledCode) (Just contents)
             assign (_editorState <<< _currentCodeIsCompiled) true
-            assign _lastSuccessfulCompilationResult newCompilationResult
       -- Update the error display.
       editorSetAnnotations
         $ case newCompilationResult of