Commit c7e49fdc authored by Bas Lijnse's avatar Bas Lijnse
Browse files

layout tweak in test framework

parent 998b2c4f
......@@ -84,8 +84,8 @@ testEditors typeName
runTests :: [TestSuite] -> Task TestReport
runTests suites =
enterChoice ("Suite selection","Which tests do you want to run?") [ChooseWith (ChooseFromRadioButtons (\{TestSuite|name} -> name))] suites
>>= testFullSuite @ \r -> [r]
(enterChoice ("Suite selection","Which tests do you want to run?") [ChooseWith (ChooseFromRadioButtons (\{TestSuite|name} -> name))] suites
>>= testFullSuite @ \r -> [r]) <<@ ApplyLayout (beforeStep frameCompact)
where
testFullSuite :: TestSuite -> Task SuiteResult
testFullSuite suite=:{TestSuite|tests,name}
......
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