From 042ab680a291b83c9b3879fe49e439b1525cd02d Mon Sep 17 00:00:00 2001
From: andy <unknown>
Date: Thu, 30 Mar 2000 09:02:12 +0000
Subject: [PATCH] [project @ 2000-03-30 09:02:12 by andy] Fixing bug with
 import privileged clashing with import hidden. This caused
 a rather nasty name-leak, where catch from the prelude was
 being given the type of catch from Exceptions.

Now, when you use import privileged Prelude (...) you also
need to do import Prelude, allowing you the option of
import Prelude hiding (...).

A bucket load of wibbles will follow in various libraries,
implementing this restriction.
---
 ghc/interpreter/storage.c |    6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/ghc/interpreter/storage.c b/ghc/interpreter/storage.c
index c1497a6..01fa014 100644
--- a/ghc/interpreter/storage.c
+++ b/ghc/interpreter/storage.c
@@ -9,8 +9,8 @@
  * included in the distribution.
  *
  * $RCSfile: storage.c,v $
- * $Revision: 1.55 $
- * $Date: 2000/03/24 14:32:03 $
+ * $Revision: 1.56 $
+ * $Date: 2000/03/30 09:02:12 $
  * ------------------------------------------------------------------------*/
 
 #include "hugsbasictypes.h"
@@ -1609,7 +1609,7 @@ void nukeModule ( Module m )
    ObjectCode* oc2;
    Int         i;
 assert(isModule(m));
-fprintf(stderr, "NUKEMODULE `%s'\n", textToStr(module(m).text));
+/*fprintf(stderr, "NUKEMODULE `%s'\n", textToStr(module(m).text)); */
    oc = module(m).object;
    while (oc) {
       oc2 = oc->next;
-- 
1.7.10.4