1module RIO.Prelude.Exit
2  ( exitFailure
3  , exitSuccess
4  , exitWith
5  , System.Exit.ExitCode(..)
6  ) where
7
8import           Control.Monad.IO.Class
9import qualified System.Exit ( ExitCode (..)
10                             , exitFailure
11                             , exitSuccess
12                             , exitWith
13                             )
14
15-- | Lifted version of "System.Exit.exitFailure".
16--
17-- @since 0.1.9.0.
18exitFailure :: MonadIO m => m a
19exitFailure = liftIO System.Exit.exitFailure
20
21-- | Lifted version of "System.Exit.exitSuccess".
22--
23-- @since 0.1.9.0.
24exitSuccess :: MonadIO m => m a
25exitSuccess = liftIO System.Exit.exitSuccess
26
27-- | Lifted version of "System.Exit.exitWith".
28--
29-- @since 0.1.9.0.
30exitWith :: MonadIO m => System.Exit.ExitCode -> m a
31exitWith code = liftIO $ System.Exit.exitWith code
32