projects
/
ghc-base.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
add GHC.HetMet.{hetmet_kappa,hetmet_kappa_app}
[ghc-base.git]
/
System
/
Exit.hs
diff --git
a/System/Exit.hs
b/System/Exit.hs
index
3377c52
..
7eb17cf
100644
(file)
--- a/
System/Exit.hs
+++ b/
System/Exit.hs
@@
-1,3
+1,5
@@
+{-# LANGUAGE CPP #-}
+
-----------------------------------------------------------------------------
-- |
-- Module : System.Exit
-----------------------------------------------------------------------------
-- |
-- Module : System.Exit
@@
-86,6
+88,6
@@
exitFailure = exitWith (ExitFailure 1)
-- | The computation 'exitSuccess' is equivalent to
-- 'exitWith' 'ExitSuccess', It terminates the program
-- | The computation 'exitSuccess' is equivalent to
-- 'exitWith' 'ExitSuccess', It terminates the program
--- sucessfully.
+-- successfully.
exitSuccess :: IO a
exitSuccess = exitWith ExitSuccess
exitSuccess :: IO a
exitSuccess = exitWith ExitSuccess