diff --git a/marlowe-playground-client/src/Page/BlocklyEditor/State.purs b/marlowe-playground-client/src/Page/BlocklyEditor/State.purs index 919fb5926f..c76382c14e 100644 --- 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 index 5494c43123..5ec43c7a11 100644 --- 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 index 0cdf83e199..45941c7ec5 100644 --- 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 index 86dfbd42af..0733175f26 100644 --- 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 index cff8111494..a8c6543ff5 100644 --- 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