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