[project @ 1996-01-11 14:06:51 by partain]

[ghc-hetmet.git] / ghc / compiler / typecheck / TcDeriv.lhs

diff --git a/ghc/compiler/typecheck/TcDeriv.lhs b/ghc/compiler/typecheck/TcDeriv.lhs
index 40007d9..37e72fe 100644 (file)
--- a/ghc/compiler/typecheck/TcDeriv.lhs
+++ b/ghc/compiler/typecheck/TcDeriv.lhs
@@ -588,7 +588,7 @@ gen_inst_info modname fixities deriver_name_funs
     if not (isEmptyBag errs) then
        pprPanic "gen_inst_info:renamer errs!\n" (ppAbove (pprBagOfErrors PprDebug errs) (ppr PprDebug proto_mbinds))
     else
-    --pprTrace "derived binds:" (ppr PprDebug proto_mbinds) (
+--  pprTrace "derived binds:" (ppr PprDebug proto_mbinds) $
 
        -- All done
     let 
@@ -599,7 +599,6 @@ gen_inst_info modname fixities deriver_name_funs
                       -- and here comes the main point...
                       (if from_here then mbinds else EmptyMonoBinds)
                       from_here modname locn [])
-    --)
   where
     clas_key = getClassKey clas
     clas_Name