Set replStatus to REPLWorking when running a file via --run (#554)

Fixes #333.
swarm-game · Jul 15, 2022 · c096f71 · c096f71
1 parent cf6693b
commit c096f71
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/src/Swarm/Game/State.hs b/src/Swarm/Game/State.hs
@@ -617,7 +617,11 @@ scenarioToGameState scenario userSeed toRun g = do
       , _viewCenterRule = VCRobot baseID
       , _viewCenter = V2 0 0
       , _needsRedraw = False
-      , _replStatus = REPLDone
+      , -- When starting base with the run flag, REPL status must be set to working,
+        -- otherwise the store of definition cells is not saved (see #333)
+        _replStatus = case toRun of
+          Nothing -> REPLDone
+          Just _ -> REPLWorking (Forall [] (TyCmd TyUnit)) Nothing
       , _messageQueue = []
       , _focusedRobotID = baseID
       , _ticks = 0