X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fcmm%2FZipDataflow.hs;h=88117550d3424da88752f7c40f04e9987d1160d2;hp=2d501658150f5b66e3f80b9e3194d8dc459162d0;hb=c62b824e9e8808eb3845ddb1614494b0575eaafd;hpb=41f7ea2f3c5bc25a4a910583a9b455e88e983519

diff --git a/compiler/cmm/ZipDataflow.hs b/compiler/cmm/ZipDataflow.hs
index 2d50165..8811755 100644
--- a/compiler/cmm/ZipDataflow.hs
+++ b/compiler/cmm/ZipDataflow.hs
@@ -1008,7 +1008,7 @@ instance FixedPoint ForwardFixedPoint where
 
 
 dump_things :: Bool
-dump_things = True
+dump_things = False
 
 my_trace :: String -> SDoc -> a -> a
 my_trace = if dump_things then pprTrace else \_ _ a -> a