Limit terminal input to 42 characters

2025-12-24 17:00:36 +00:00
parent c96c18b9aa
commit 3cdab08184
3 changed files with 3 additions and 17 deletions
@@ -37,8 +37,8 @@ textTerminal = defaultTerminal{_tmBootLines = textInputBlurb []}
 textInputBlurb :: [TerminalLine] -> [TerminalLine]
 textInputBlurb tls =
    [termSoundLine computerBeepingS]
-        ++ tls
-        ++ tlSetStatus (TerminalTextInput "")
+        <> tls
+        <> tlSetStatus (TerminalTextInput "")

 termSoundLine :: SoundID -> TerminalLine
 termSoundLine = TLine 0 [] . TmWdWdTermSound