From 6c1dbaa6fb592fc042af03f72a060ad0bb611db2 Mon Sep 17 00:00:00 2001 From: "simonpj@microsoft.com" Date: Tue, 9 Sep 2008 16:21:07 +0000 Subject: [PATCH] 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.) --- compiler/basicTypes/MkId.lhs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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} -- 1.7.10.4