X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=GHC%2FErr.hi-boot;h=4ae901a99fc17f3ef0d7866d28aa12ea8c64bf16;hb=13c9517f61fe8104395ca08c2a378211458618be;hp=15fd3fd528b66821a67ca6ae1ce6f8b59e8c18fc;hpb=5545727d5a6a1fc6d5d00f32a92a8fdf0fb7ca77;p=ghc-base.git

diff --git a/GHC/Err.hi-boot b/GHC/Err.hi-boot
index 15fd3fd..4ae901a 100644
--- a/GHC/Err.hi-boot
+++ b/GHC/Err.hi-boot
@@ -7,6 +7,14 @@
 --	because it's wired into the compiler
 ---------------------------------------------------------------------------
 
-__interface "core" GHCziErr 1 where
-__export GHCziErr error parError;
+module GHC.Err where
 
+-- We can't give an accurate type for error, because it mentions an open
+-- type variable, but fortunately it doesn't matter what type we
+-- give here because the compiler will use its wired-in version.  But we have
+-- to mention 'error' so that it gets exported from this .hi-boot
+-- file.
+error    :: GHC.Base.String -> a
+
+-- divide by zero is needed quite early
+divZeroError :: a