Verified Commit b806508f authored by Camil Staps's avatar Camil Staps 🙂

Add parentheses around infix operators in instance definitions

parent bfa78754
Pipeline #39871 passed with stage
in 43 seconds
......@@ -105,7 +105,7 @@ where
instance <<< JUnitExport
where
<<< f jue
(<<<) f jue
# f = f <<< "<?xml version=\"1.0\"?>\n"
# f = f <<< "<testsuites tests=\"" <<< jue.jue_tests
<<< "\" failures=\"" <<< jue.jue_failures
......
......@@ -16,7 +16,7 @@ import Text.GenPrint
derive JSONEncode RunResult, TestRun, EndEventType
derive JSONDecode RunResult, TestRun, EndEventType
instance <<< RunResult where <<< f rr = f <<< toJSON rr <<< "\n"
instance <<< RunResult where (<<<) f rr = f <<< toJSON rr <<< "\n"
readResults :: !*File -> *(!Maybe [RunResult], !*File)
readResults f
......
......@@ -44,7 +44,7 @@ messageType (EndEvent ee) = case ee.event of
Failed _ -> MT_Failed
Skipped -> MT_Skipped
derive gEq MessageType; instance == MessageType where == a b = a === b
derive gEq MessageType; instance == MessageType where (==) a b = a === b
:: Options =
{ test_options :: !TestOptions
......
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