2 {-# OPTIONS_GHC -XNoImplicitPrelude #-}
3 {-# OPTIONS_HADDOCK hide #-}
4 -----------------------------------------------------------------------------
7 -- Copyright : (c) The University of Glasgow, 1994-2002
8 -- License : see libraries/base/LICENSE
10 -- Maintainer : cvs-ghc@haskell.org
11 -- Stability : internal
12 -- Portability : non-portable (GHC extensions)
14 -- The "GHC.Err" module defines the code for the wired-in error functions,
15 -- which have a special type in the compiler (with \"open tyvars\").
17 -- We cannot define these functions in a module where they might be used
18 -- (e.g., "GHC.Base"), because the magical wired-in type will get confused
19 -- with what the typechecker figures out.
21 -----------------------------------------------------------------------------
27 , divZeroError -- :: a
28 , overflowError -- :: a
30 , error -- :: String -> a
42 %*********************************************************
44 \subsection{Error-ish functions}
46 %*********************************************************
49 -- | 'error' stops execution and displays an error message.
51 error s = throw (ErrorCall s)
53 -- | A special case of 'error'.
54 -- It is expected that compilers will recognize this and insert error
55 -- messages which are more appropriate to the context in which 'undefined'
59 undefined = error "Prelude.undefined"
62 %*********************************************************
64 \subsection{Compiler generated errors + local utils}
66 %*********************************************************
68 Used for compiler-generated error message;
69 encoding saves bytes of string junk.
74 absentErr = error "Oops! The program has entered an `absent' argument!\n"
77 Divide by zero and arithmetic overflow.
78 We put them here because they are needed relatively early
79 in the libraries before the Exception type has been defined yet.
82 {-# NOINLINE divZeroError #-}
84 divZeroError = throw DivideByZero
86 {-# NOINLINE overflowError #-}
88 overflowError = throw Overflow