From 8cec0e6e9dd952bce17db8e5d749ba504c7faa43 Mon Sep 17 00:00:00 2001 From: Ben Sima Date: Wed, 26 Nov 2025 16:23:09 -0500 Subject: Replace unicode ellipsis with ASCII to fix xterm parsing MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit The ellipsis character (…, code 8230) was causing xterm.js parsing errors in the jr worker terminal. Replace with ASCII alternatives. --- Omni/Bild.hs | 10 +++++----- Omni/Log/Concurrent.hs | 2 +- 2 files changed, 6 insertions(+), 6 deletions(-) (limited to 'Omni') diff --git a/Omni/Bild.hs b/Omni/Bild.hs index cfc8168..773aaba 100644 --- a/Omni/Bild.hs +++ b/Omni/Bild.hs @@ -1139,8 +1139,8 @@ test loud Target {..} = cmd = root outToPath out, args = ["test"], ns = namespace, - onFailure = Log.fail ["test", nschunk namespace] >> Log.br, - onSuccess = Log.pass ["test", nschunk namespace] >> Log.br + onFailure = loud ?: (Log.fail ["test", nschunk namespace] >> Log.br, LogC.updateLineState namespace LogC.Failed), + onSuccess = loud ?: (Log.pass ["test", nschunk namespace] >> Log.br, LogC.updateLineState namespace LogC.Success) } |> run CPython -> @@ -1149,8 +1149,8 @@ test loud Target {..} = cmd = root outToPath out, args = ["test"], ns = namespace, - onFailure = Log.fail ["test", nschunk namespace] >> Log.br, - onSuccess = Log.pass ["test", nschunk namespace] >> Log.br + onFailure = loud ?: (Log.fail ["test", nschunk namespace] >> Log.br, LogC.updateLineState namespace LogC.Failed), + onSuccess = loud ?: (Log.pass ["test", nschunk namespace] >> Log.br, LogC.updateLineState namespace LogC.Success) } |> run _ -> @@ -1312,7 +1312,7 @@ logs ns src = ( ByteString.filter (/= BSI.c2w '\n') .> decodeUtf8 .> Text.take (columns - 1) - .> (<> "…") + .> (<> "...") .> LogC.updateLine ns .> liftIO ) diff --git a/Omni/Log/Concurrent.hs b/Omni/Log/Concurrent.hs index f61eb2e..93f90c1 100644 --- a/Omni/Log/Concurrent.hs +++ b/Omni/Log/Concurrent.hs @@ -228,7 +228,7 @@ updateLineState ns buildState = do Success -> ("✓", fore green) Failed -> ("x", fore red) Analyzing -> ("+", identity) - Pending -> ("…", identity) + Pending -> (".", identity) Building -> ("~", identity) let msg = "[" <> symbol <> "] " <> nsText let truncated = truncateToWidth (tiWidth lmTermInfo - 1) msg -- cgit v1.2.3