swarm-game/swarm
1
1
Fork 0
mirror of https://github.com/swarm-game/swarm.git synced 2024-07-07 11:16:35 +03:00
Code Issues Projects Releases Wiki Activity

On C-c, only cancel base CESK if it is currently running (#2008)

Browse Source 
Fixes #2007.  After #1928, we handle exceptions a little differently, so it no longer works to simply set the base's CESK machine to an `Up` (exception) state no matter what.  Instead we have to first check if the base is running, and if so set it to `Up` as before; if not, do nothing (except clear the REPL prompt).
This commit is contained in:
Brent Yorgey 2024-07-01 14:04:43 -05:00 committed by GitHub
parent 6b58979b3a
commit 9b1b6985fa
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/swarm-tui/Swarm/TUI/Controller.hs
View File

@ -1024,7 +1024,8 @@ handleREPLEvent x = do
-- Handle Ctrl-c here so we can always cancel the currently running
-- base program no matter what REPL control mode we are in.
ControlChar 'c' -> do
gameState . baseRobot . machine %= cancel
working <- use $ gameState . gameControls . replWorking
when working $ gameState . baseRobot . machine %= cancel
Brick.zoom (uiState . uiGameplay . uiREPL) $ do
replPromptType .= CmdPrompt []
replPromptText .= ""