[project @ 2003-08-29 16:15:59 by panne]

-fno-prune-tydecls is dead, Jim...

1 files changed, 1 insertions, 7 deletions

diff --git a/ghc/compiler/types/Variance.lhs b/ghc/compiler/types/Variance.lhs
index 5f4b3f64c8..9b6ad508aa 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}