Reset lastFrameTime when starting a new scenario (#855)

Fixes #853.
swarm-game · Nov 13, 2022 · e73a284 · e73a284
1 parent 6237e1d
commit e73a284
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/Swarm/TUI/Model.hs b/src/Swarm/TUI/Model.hs
@@ -1039,7 +1039,8 @@ scenarioToAppState siPair@(scene, _) userSeed toRun = do
 
 -- | Modify the UI state appropriately when starting a new scenario.
 scenarioToUIState :: ScenarioInfoPair -> UIState -> IO UIState
-scenarioToUIState siPair u =
+scenarioToUIState siPair u = do
+  curTime <- getTime Monotonic
   return $
     u
       & uiPlaying .~ True
@@ -1053,3 +1054,4 @@ scenarioToUIState siPair u =
       & uiREPL .~ initREPLState (u ^. uiREPL . replHistory)
       & uiREPL . replHistory %~ restartREPLHistory
       & scenarioRef ?~ siPair
+      & lastFrameTime .~ curTime