diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2026-01-08 21:01:24 +0100 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2026-01-08 21:01:24 +0100 |
| commit | 9b9cd5b2f25b39bf366e0487b723c2fa770fcd2c (patch) | |
| tree | 8530b191d778a4a68024dc9bdc7fc06747f80e4b /src | |
| parent | 401b4c233d12763853877d4c31a2cf4342ca87b6 (diff) | |
Diffstat (limited to 'src')
| -rw-r--r-- | src/Output.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/Output.hs b/src/Output.hs index ca79dab..01c0b4b 100644 --- a/src/Output.hs +++ b/src/Output.hs @@ -193,6 +193,7 @@ testOutputLines otype@(OutputMatchFail (CallStack stack)) _ msg = concat [ [ T.concat [ outTestLabel otype, " ", msg ] ] , concat $ flip map stack $ \( sline, vars ) -> T.concat [ outTestLabel otype, "-line ", textSourceLine sline ] : showVars vars + , [ T.concat [ outTestLabel otype, "-done" ] ] ] where showVars = |