- | Output the results of a run and exit with an appropriate return code
exitWithWorst
    :: MonadIO m
    => [Result]
    -> m ()
exitWithWorst [] = liftIO exitSuccess

exitWithWorst
    :: MonadIO m
    => [Result]
    -> m ()
exitWithWorst [] = liftIO exitSuccess
exitWithWorst [] = liftIO exitSuccess