diff options
| author | simonpj <unknown> | 2001-02-26 15:41:18 +0000 |
|---|---|---|
| committer | simonpj <unknown> | 2001-02-26 15:41:18 +0000 |
| commit | ecb2ccfb36c2b2b9605082eb6a0b0349ecb7dcfb (patch) | |
| tree | 066eb40cac68cee7cfb81ef7f28bc2186c06672d /ghc/compiler | |
| parent | 2a197205230c6ca79ad03ed2b3756a64d75e79f6 (diff) | |
| download | haskell-ecb2ccfb36c2b2b9605082eb6a0b0349ecb7dcfb.tar.gz | |
[project @ 2001-02-26 15:41:18 by simonpj]
Dont print generic insts if there arent any
Diffstat (limited to 'ghc/compiler')
| -rw-r--r-- | ghc/compiler/typecheck/TcInstDcls.lhs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/ghc/compiler/typecheck/TcInstDcls.lhs b/ghc/compiler/typecheck/TcInstDcls.lhs index fd70cffe4f..53e30cc2b8 100644 --- a/ghc/compiler/typecheck/TcInstDcls.lhs +++ b/ghc/compiler/typecheck/TcInstDcls.lhs @@ -312,6 +312,9 @@ getGenericInstances class_decls let gen_inst_info = concat gen_inst_infos in + if null gen_inst_info then + returnTc [] + else getDOptsTc `thenTc` \ dflags -> ioToTc (dumpIfSet_dyn dflags Opt_D_dump_deriv "Generic instances" (vcat (map pprInstInfo gen_inst_info))) |