From: simonpj@microsoft.com <unknown>
Date: Tue, 9 Sep 2008 16:21:07 +0000 (+0000)
Subject: Tell GHC which module nON_EXHAUSTIVE_GUARDS_ERROR_ID comes from
X-Git-Tag: 2008-09-12~33
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=6c1dbaa6fb592fc042af03f72a060ad0bb611db2;p=ghc-hetmet.git

Tell GHC which module nON_EXHAUSTIVE_GUARDS_ERROR_ID comes from

This one was missed when the error-ids all moved to Control.Exception.Base
(The nofib test 'fluid' showed it up.)
---

diff --git a/compiler/basicTypes/MkId.lhs b/compiler/basicTypes/MkId.lhs
index 1cb9109..7499b78 100644
--- a/compiler/basicTypes/MkId.lhs
+++ b/compiler/basicTypes/MkId.lhs
@@ -1162,7 +1162,7 @@ patErrorName             = mkWiredInIdName cONTROL_EXCEPTION_BASE (fsLit "patErr
 noMethodBindingErrorName = mkWiredInIdName cONTROL_EXCEPTION_BASE (fsLit "noMethodBindingError")
                                            noMethodBindingErrorIdKey nO_METHOD_BINDING_ERROR_ID
 nonExhaustiveGuardsErrorName 
-  = mkWiredInIdName gHC_ERR (fsLit "nonExhaustiveGuardsError") 
+  = mkWiredInIdName cONTROL_EXCEPTION_BASE (fsLit "nonExhaustiveGuardsError") 
                     nonExhaustiveGuardsErrorIdKey nON_EXHAUSTIVE_GUARDS_ERROR_ID
 \end{code}