module Test.Reporter.ExitCode (report) where import qualified System.Exit import qualified Test.Internal as Internal import qualified Prelude report :: Internal.SuiteResult -> Prelude.IO () report :: SuiteResult -> IO () report SuiteResult results = case SuiteResult results of Internal.AllPassed [SingleTest TracingSpan] _ -> IO () forall a. IO a System.Exit.exitSuccess SuiteResult _ -> IO () forall a. IO a System.Exit.exitFailure