From: simonpj@microsoft.com <unknown>
Date: Wed, 17 May 2006 15:43:49 +0000 (+0000)
Subject: Improve pretty-printing
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=c6fc542f101a039265c4d22c06ccdaabe7ec7485

Improve pretty-printing
---

diff --git a/compiler/main/TidyPgm.lhs b/compiler/main/TidyPgm.lhs
index 86e55f9..370e532 100644
--- a/compiler/main/TidyPgm.lhs
+++ b/compiler/main/TidyPgm.lhs
@@ -271,17 +271,18 @@ tidyProgram hsc_env
 		-- and indeed it does, but if omit_prags is on, ext_rules is empty
 
 	      ; implicit_binds = getImplicitBinds type_env
+	      ; all_tidy_binds = implicit_binds ++ tidy_binds
 	      ; alg_tycons = filter isAlgTyCon (typeEnvTyCons type_env)
 	      }
 
-   	; endPass dflags "Tidy Core" Opt_D_dump_simpl tidy_binds
+   	; endPass dflags "Tidy Core" Opt_D_dump_simpl all_tidy_binds
 	; dumpIfSet_core dflags Opt_D_dump_simpl
 		"Tidy Core Rules"
 		(pprRules tidy_rules)
 
 	; return (CgGuts { cg_module   = mod, 
 			   cg_tycons   = alg_tycons,
-			   cg_binds    = implicit_binds ++ tidy_binds,
+			   cg_binds    = all_tidy_binds,
 			   cg_dir_imps = dir_imps,
 			   cg_foreign  = foreign_stubs,
 			   cg_home_mods = home_mods,