From bfc04eafd766aeae7566ea6e98302086271d42a5 Mon Sep 17 00:00:00 2001
From: panne <unknown>
Date: Fri, 29 Aug 2003 16:16:02 +0000
Subject: [PATCH] [project @ 2003-08-29 16:15:59 by panne] -fno-prune-tydecls
 is dead, Jim...

---
 ghc/compiler/types/Variance.lhs |    8 +-------
 ghc/docs/users_guide/flags.sgml |    6 ------
 2 files changed, 1 insertion(+), 13 deletions(-)

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>
-- 
1.7.10.4