Change default time addition from 5 to 30 minutes

input-output-hk · Oct 21, 2023 · f71ec7b · f71ec7b
1 parent 7c56dd9
commit f71ec7b
Show file tree

Hide file tree

Showing 5 changed files with 5 additions and 5 deletions.
diff --git a/marlowe-playground-client/src/Page/BlocklyEditor/State.purs b/marlowe-playground-client/src/Page/BlocklyEditor/State.purs
@@ -189,7 +189,7 @@ processBlocklyCode metadata = do
         maybeUpdateTemplateContent = case Holes.fromTerm holesContract of
           Just (contract :: Extended.Contract) -> Template.updateTemplateContent
             currentTime
-            (Minutes 5.0)
+            (Minutes 30.0)
             (OMap.keys metadata.timeParameterDescriptions)
             (Template.getPlaceholderIds contract)
           Nothing -> identity

diff --git a/marlowe-playground-client/src/Page/HaskellEditor/State.purs b/marlowe-playground-client/src/Page/HaskellEditor/State.purs
@@ -143,7 +143,7 @@ handleAction metadata Compile = do
                 over (_analysisState <<< _templateContent)
                   ( Template.updateTemplateContent
                       currentTime
-                      (Minutes 5.0)
+                      (Minutes 30.0)
                       (OMap.keys metadata.timeParameterDescriptions)
                       (getPlaceholderIds contract)
                   )

diff --git a/marlowe-playground-client/src/Page/JavascriptEditor/State.purs b/marlowe-playground-client/src/Page/JavascriptEditor/State.purs
@@ -201,7 +201,7 @@ handleAction metadata Compile = do
                   over (_analysisState <<< _templateContent)
                     ( updateTemplateContent
                         currentTime
-                        (Minutes 5.0)
+                        (Minutes 30.0)
                         (OMap.keys metadata.timeParameterDescriptions)
                         (getPlaceholderIds contract)
                     )

diff --git a/marlowe-playground-client/src/Page/MarloweEditor/State.purs b/marlowe-playground-client/src/Page/MarloweEditor/State.purs
@@ -268,7 +268,7 @@ processMarloweCode metadata text = do
       Just contract ->
         Template.updateTemplateContent
           currentTime
-          (Minutes 5.0)
+          (Minutes 30.0)
           (OMap.keys metadata.timeParameterDescriptions)
           (Template.getPlaceholderIds contract)
   void $ H.request _marloweEditorPageSlot unit $ Monaco.SetModelMarkers

diff --git a/marlowe-playground-client/src/Simulator/State.purs b/marlowe-playground-client/src/Simulator/State.purs
@@ -142,7 +142,7 @@ simulationNotStarted initialTime termContract metadata prevTemplateContent =
     tc@(TemplateContent { timeContent, valueContent }) =
       initializeTemplateContentWithIncreasingTime
         initialTime
-        (Minutes 5.0)
+        (Minutes 30.0)
         (OMap.keys metadata.timeParameterDescriptions)
         (getPlaceholderIds termContract)
     templateContent = case prevTemplateContent of