[project @ 1996-01-11 14:06:51 by partain]

[ghc-hetmet.git] / ghc / lib / prelude / Builtin.hs

diff --git a/ghc/lib/prelude/Builtin.hs b/ghc/lib/prelude/Builtin.hs
index c710c9a..c8c2eef 100644 (file)
--- a/ghc/lib/prelude/Builtin.hs
+++ b/ghc/lib/prelude/Builtin.hs
@@ -3,7 +3,8 @@ module PreludeBuiltin (
        _trace,
        absent#,
        error,
-       patError#
+       patError#,
+       parError#
     ) where
 
 import Cls
@@ -66,6 +67,8 @@ error__ msg_hdr s
 
 absent# = error "Oops! The program has entered an `absent' argument!\n"
 
+parError# = error "Oops! Entered parError# (a GHC bug -- please report it!)\n"
+
 ---------------------------------------------------------------
 _runST m = case m (S# realWorld#) of
            (r,_) -> r