Work on press-continue terminal prompts

2025-08-19 11:08:54 +01:00
parent e7b66b4fa4
commit 2f4fcb42e5
14 changed files with 84 additions and 71 deletions
@@ -60,12 +60,12 @@ accessTerminal mtmid w = fromMaybe w $ do
  where
    tryToBoot tm = case _tmStatus tm of
        TerminalTextInput{} -> tm
-        TerminalBusy -> tm
+        TerminalLineRead -> tm
        TerminalPressTo{} -> tm
        TerminalOff ->
            tm
                & tmFutureLines .~ _tmBootLines tm
-                & tmStatus .~ TerminalBusy
+                & tmStatus .~ TerminalLineRead

 torqueCr :: Float -> Int -> World -> World
 torqueCr x cid w