Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : ghc-constraint-solver

http://hackage.haskell.org/trac/ghc/changeset/c7044fd45c7985fd4df27bddf0d48fda7ec4d086

>---------------------------------------------------------------

commit c7044fd45c7985fd4df27bddf0d48fda7ec4d086
Author: Dimitrios Vytiniotis <[email protected]>
Date:   Tue Nov 15 12:07:24 2011 +0000

    Moving the pre-simple optimization core lint in debug only mode.

>---------------------------------------------------------------

 compiler/deSugar/Desugar.lhs |    4 +++-
 1 files changed, 3 insertions(+), 1 deletions(-)

diff --git a/compiler/deSugar/Desugar.lhs b/compiler/deSugar/Desugar.lhs
index 0b12f01..fcea3b1 100644
--- a/compiler/deSugar/Desugar.lhs
+++ b/compiler/deSugar/Desugar.lhs
@@ -159,8 +159,10 @@ deSugar hsc_env
                (vcat [ pprCoreBindings final_pgm
                      , pprRules rules_for_imps ])
 -}
-        ; endPass dflags CoreDesugar final_pgm rules_for_imps 
 
+#ifdef DEBUG
+        ; endPass dflags CoreDesugar final_pgm rules_for_imps 
+#endif
         ; (ds_binds, ds_rules_for_imps, ds_vects) 
             <- simpleOptPgm dflags mod final_pgm rules_for_imps vects0
                          -- The simpleOptPgm gets rid of type 



_______________________________________________
Cvs-ghc mailing list
[email protected]
http://www.haskell.org/mailman/listinfo/cvs-ghc

Reply via email to