summaryrefslogtreecommitdiff
path: root/src/Command/Run.hs
diff options
context:
space:
mode:
authorRoman Smrž <roman.smrz@seznam.cz>2026-09-12 09:14:18 +0200
committerRoman Smrž <roman.smrz@seznam.cz>2026-09-13 15:05:42 +0200
commit108114a076ed24ae998cf8b0222282321963dde4 (patch)
treed453dbd6d536bda0eab1f511e9fabc507e8c0492 /src/Command/Run.hs
parenta589e61c2b807196696632eb17e8ad573daa9c08 (diff)
Don't print footnote for unused previous error status
Diffstat (limited to 'src/Command/Run.hs')
-rw-r--r--src/Command/Run.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Command/Run.hs b/src/Command/Run.hs
index 6419c58..dd56cf7 100644
--- a/src/Command/Run.hs
+++ b/src/Command/Run.hs
@@ -440,7 +440,7 @@ showStatus blink = \case
JobWaiting uses -> "\ESC[94m~" <> fitToLength 6 (T.intercalate "," (map textJobName uses)) <> "\ESC[0m"
JobSkipped -> " \ESC[0m-\ESC[0m "
JobRunning -> " \ESC[96m" <> (if blink then "*" else "•") <> "\ESC[0m "
- JobError fnote -> "\ESC[91m" <> fitToLength 7 ("!! [" <> T.pack (maybe "?" (show . tfNumber) (footnoteTerminal fnote)) <> "]") <> "\ESC[0m"
+ JobError fnote -> "\ESC[91m" <> fitToLength 7 ("!! [" <> T.pack (maybe "?" (show . tfNumber) (either (const Nothing) footnoteTerminal fnote)) <> "]") <> "\ESC[0m"
JobFailed -> " \ESC[91m✗\ESC[0m "
JobCancelled -> " \ESC[0mC\ESC[0m "
JobDone _ -> " \ESC[92m✓\ESC[0m "