Commit 5064ea04 authored by Steffen Michels's avatar Steffen Michels

make Testing.Options compile

parent e65b32a2
Pipeline #9580 passed with stage
in 1 minute and 48 seconds
......@@ -21,9 +21,9 @@ derive gDefault MessageType, Options, OutputFormat, Run, Strategy
messageType :: TestEvent -> MessageType
messageType (StartEvent _) = MT_Started
messageType (EndEvent ee) = case ee.event of
Passed -> MT_Passed
Failed -> MT_Failed
Skipped -> MT_Skipped
Passed -> MT_Passed
Failed _ -> MT_Failed
Skipped -> MT_Skipped
LONG_OPTIONS =:
[ ("-f", "--output-format")
......
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