[project @ 1996-01-18 16:33:17 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..50af23c 100644 (file)
--- a/ghc/compiler/typecheck/TcDeriv.lhs
+++ b/ghc/compiler/typecheck/TcDeriv.lhs
@@ -556,6 +556,7 @@ gen_inst_info modname fixities deriver_name_funs
                        -- These two are only needed if there are pragmas to typecheck;
                        -- but there ain't since we are generating the code right here.
                True {-yes, from_here-}
+               modname
                NoInstancePragmas
                mkGeneratedSrcLoc
                clas
@@ -588,7 +589,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 +600,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