diff options
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 = |