From: panne <unknown>
Date: Sat, 15 Dec 2001 12:03:08 +0000 (+0000)
Subject: [project @ 2001-12-15 12:03:08 by panne]
X-Git-Tag: Approximately_9120_patches~381
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=1c2db964ef31e1a77152e020aca7a66f7cdf3215;p=ghc-hetmet.git

[project @ 2001-12-15 12:03:08 by panne]
Re-added #ifdef which was lost in last commit
---

diff --git a/ghc/compiler/main/DriverState.hs b/ghc/compiler/main/DriverState.hs
index ce67ed3..409835e 100644
--- a/ghc/compiler/main/DriverState.hs
+++ b/ghc/compiler/main/DriverState.hs
@@ -1,5 +1,5 @@
 -----------------------------------------------------------------------------
--- $Id: DriverState.hs,v 1.64 2001/12/14 17:24:04 simonpj Exp $
+-- $Id: DriverState.hs,v 1.65 2001/12/15 12:03:08 panne Exp $
 --
 -- Settings for the driver
 --
@@ -279,7 +279,9 @@ buildCoreToDo = do
 	],
 	case rule_check of { Just pat -> CoreDoRuleCheck 0 pat; Nothing -> CoreDoNothing },
 
+#ifdef DEBUG
 	if cpr        then CoreDoCPResult   else CoreDoNothing,
+#endif
 	if strictness then CoreDoStrictness else CoreDoNothing,
 	CoreDoWorkerWrapper,
 	CoreDoGlomBinds,