[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 (file)
--- 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 (file)
--- 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>