X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fprelude%2FPrelNames.lhs;h=9b0621e76cc8ab59f480d7745569631c996f358d;hb=9ddc4a057fafd5b5ad95fbc276fd8828a23696dd;hp=575f6734904b8fbdaaa92000f1e4bee0ff4ac001;hpb=8f46f7c5c40756f6f5d260db0abd5392f0ead492;p=ghc-hetmet.git

diff --git a/compiler/prelude/PrelNames.lhs b/compiler/prelude/PrelNames.lhs
index 575f673..9b0621e 100644
--- a/compiler/prelude/PrelNames.lhs
+++ b/compiler/prelude/PrelNames.lhs
@@ -670,7 +670,7 @@ dataClassName = clsQual gENERICS (fsLit "Data") dataClassKey
 
 -- Error module
 assertErrorName    :: Name
-assertErrorName	  = varQual cONTROL_EXCEPTION (fsLit "assertError") assertErrorIdKey
+assertErrorName	  = varQual gHC_IO_BASE (fsLit "assertError") assertErrorIdKey
 
 -- Enum module (Enum, Bounded)
 enumClassName, enumFromName, enumFromToName, enumFromThenName,