From: panne <unknown>
Date: Fri, 29 Aug 2003 16:16:02 +0000 (+0000)
Subject: [project @ 2003-08-29 16:15:59 by panne]
X-Git-Tag: Approx_11550_changesets_converted~506
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=bfc04eafd766aeae7566ea6e98302086271d42a5;p=ghc-hetmet.git

[project @ 2003-08-29 16:15:59 by panne]
-fno-prune-tydecls is dead, Jim...
---

diff --git a/ghc/compiler/types/Variance.lhs b/ghc/compiler/types/Variance.lhs
index 5f4b3f6..9b6ad50 100644
--- a/ghc/compiler/types/Variance.lhs
+++ b/ghc/compiler/types/Variance.lhs
@@ -102,13 +102,7 @@ abstractVrcs tc =
 #ifdef DEBUG
                   pprTrace "Vrc: abstract tycon:" (ppr tc) $
 #endif
-                  warn_abstract_vrcs `seq` replicate (tyConArity tc) (True,True)
-
-warn_abstract_vrcs
--- we pull the message out as a CAF so the warning only appears *once*
-  = trace ("WARNING: tyConArgVrc info inaccurate due to unavailable constructors.\n"
-        ++ "         Use -fno-prune-tydecls to fix.") $
-                ()
+                  replicate (tyConArity tc) (True,True)
 \end{code}
 
 
diff --git a/ghc/docs/users_guide/flags.sgml b/ghc/docs/users_guide/flags.sgml
index 2f5a658..f143588 100644
--- a/ghc/docs/users_guide/flags.sgml
+++ b/ghc/docs/users_guide/flags.sgml
@@ -1687,12 +1687,6 @@
 	      <entry>-</entry>
 	    </row>
 	    <row>
-	      <entry><option>-fno-prune-tydecls</option></entry>
-	      <entry>Renamer: don't prune type declarations</entry>
-	      <entry>static</entry>
-	      <entry>-</entry>
-	    </row>
-	    <row>
 	      <entry><option>-fhistory-size</option></entry>
 	      <entry>Set simplification history size</entry>
 	      <entry>static</entry>