projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 1998-02-02 17:27:26 by simonm]
[ghc-hetmet.git]
/
ghc
/
lib
/
std
/
PrelErr.lhs
diff --git
a/ghc/lib/ghc/GHCerr.lhs
b/ghc/lib/std/PrelErr.lhs
similarity index 91%
rename from
ghc/lib/ghc/GHCerr.lhs
rename to
ghc/lib/std/PrelErr.lhs
index
578fcac
..
643900e
100644
(file)
--- a/
ghc/lib/ghc/GHCerr.lhs
+++ b/
ghc/lib/std/PrelErr.lhs
@@
-2,18
+2,18
@@
% (c) The AQUA Project, Glasgow University, 1994-1996
%
% (c) The AQUA Project, Glasgow University, 1994-1996
%
-\section[GHCerr]{Module @GHCerr@}
+\section[PrelErr]{Module @PrelErr@}
-The GHCerr module defines the code for the wired-in error functions,
+The PrelErr module defines the code for the wired-in error functions,
which have a special type in the compiler (with "open tyvars").
which have a special type in the compiler (with "open tyvars").
-
+
We cannot define these functions in a module where they might be used
We cannot define these functions in a module where they might be used
-(e.g., GHCbase), because the magical wired-in type will get confused
+(e.g., PrelBase), because the magical wired-in type will get confused
with what the typechecker figures out.
\begin{code}
{-# OPTIONS -fno-implicit-prelude #-}
with what the typechecker figures out.
\begin{code}
{-# OPTIONS -fno-implicit-prelude #-}
-module GHCerr
+module PrelErr
(
irrefutPatError
(
irrefutPatError
@@
-33,10
+33,10
@@
module GHCerr
--import Prelude
import PrelBase
--import Prelude
import PrelBase
-import IOBase
-import Addr
-import Foreign ( StablePtr, deRefStablePtr )
-import PrelList ( span )
+import PrelIOBase
+import PrelAddr
+import PrelForeign ( StablePtr, deRefStablePtr )
+import PrelList ( span )
---------------------------------------------------------------
---------------------------------------------------------------
@@
-123,12
+123,12
@@
seqError = error "Oops! Entered seqError (a GHC bug -- please report it!)\n"
\begin{code}
irrefutPatError
\begin{code}
irrefutPatError
- , noMethodBindingError
+ , noMethodBindingError
--, noExplicitMethodError
--, noExplicitMethodError
- , nonExhaustiveGuardsError
- , patError
- , recConError
- , recUpdError :: String -> a
+ , nonExhaustiveGuardsError
+ , patError
+ , recConError
+ , recUpdError :: String -> a
--noDefaultMethodError s = error ("noDefaultMethodError:"++s)
--noExplicitMethodError s = error ("No default method for class operation "++s)
--noDefaultMethodError s = error ("noDefaultMethodError:"++s)
--noExplicitMethodError s = error ("No default method for class operation "++s)