configEvery = \_ _ -> ""})
-- configEvery = testCount for displaying a running test counter
where testCountBase n = " (test " ++ show n ++ "/250)"
testCount n _ = testCountBase n ++
replicate (length (testCountBase n)) '\b'
configEvery = \_ _ -> ""})
-- configEvery = testCount for displaying a running test counter
where testCountBase n = " (test " ++ show n ++ "/250)"
testCount n _ = testCountBase n ++
replicate (length (testCountBase n)) '\b'