[project @ 1997-03-17 20:34:25 by simonpj]

[ghc-hetmet.git] / ghc / compiler / rename / RnMonad.lhs

diff --git a/ghc/compiler/rename/RnMonad.lhs b/ghc/compiler/rename/RnMonad.lhs
index 5d29108..8a3ebf6 100644 (file)
--- a/ghc/compiler/rename/RnMonad.lhs
+++ b/ghc/compiler/rename/RnMonad.lhs
@@ -468,7 +468,6 @@ addOccurrenceName necessity name (RnDown loc names_var errs_var occs_var) l_down
 
   | otherwise
   = readMutVarSST occs_var                     `thenSST` \ occs ->
---     pprTrace "Add occurrence:" (ppr PprDebug name) $
     writeMutVarSST occs_var ((name,necessity) : occs)  `thenSST_`
     returnSST name
   where