From ea8109cef731b2c876b9effa759763bf59d878aa Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Roman=20Smr=C5=BE?= Date: Wed, 14 Jan 2026 19:11:16 +0100 Subject: Mark ignored output lines Changelog: Mark flushed or ignored output lines --- src/Output.hs | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'src/Output.hs') diff --git a/src/Output.hs b/src/Output.hs index 01c0b4b..2cddabf 100644 --- a/src/Output.hs +++ b/src/Output.hs @@ -58,6 +58,7 @@ data OutputType | OutputChildFail | OutputMatch | OutputMatchFail CallStack + | OutputIgnored | OutputError | OutputAlways | OutputTestRaw @@ -89,6 +90,7 @@ outColor OutputChildInfo = T.pack "0" outColor OutputChildFail = T.pack "31" outColor OutputMatch = T.pack "32" outColor OutputMatchFail {} = T.pack "31" +outColor OutputIgnored = "90" outColor OutputError = T.pack "31" outColor OutputAlways = "0" outColor OutputTestRaw = "0" @@ -102,6 +104,7 @@ outSign OutputChildInfo = T.pack "." outSign OutputChildFail = T.pack "!!" outSign OutputMatch = T.pack "+" outSign OutputMatchFail {} = T.pack "/" +outSign OutputIgnored = "-" outSign OutputError = T.pack "!!" outSign OutputAlways = T.empty outSign OutputTestRaw = T.empty @@ -120,6 +123,7 @@ outTestLabel = \case OutputChildFail -> "child-fail" OutputMatch -> "match" OutputMatchFail {} -> "match-fail" + OutputIgnored -> "ignored" OutputError -> "error" OutputAlways -> "other" OutputTestRaw -> "" -- cgit v1.2.3