Printing failed child messages: avoid {flatten,weird characters in output,long lines of output}

parent 8cf704f7
Pipeline #12730 passed with stage
in 36 seconds
...@@ -320,11 +320,15 @@ where ...@@ -320,11 +320,15 @@ where
# io = emit (EndEvent # io = emit (EndEvent
{ name = r.TestRun.name { name = r.TestRun.name
, event = event , event = event
, message = concat , message = join "\n "
[ "Failed to read child messages:" [ "Failed to read child messages:"
: flatten [["\n ", outp] \\ outp <- output.lines & Nothing <- results] : [printToString (ellipsis 40 outp) \\ outp <- output.lines & Nothing <- results]
] ]
}) io }) io
with
ellipsis n s
| size s <= n = s
| otherwise = s % (0,n-4) +++ "..."
= return event r io w = return event r io w
# ee = mergeResults $ map fromJust results # ee = mergeResults $ map fromJust results
# io = emit (EndEvent ee) io # io = emit (EndEvent ee) io
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment