From: andy@galois.com <unknown>
Date: Wed, 20 Jun 2007 15:02:44 +0000 (+0000)
Subject: turning back on case liberation when using hpc
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=d85714eb5c826058f0535da615c41ed4e9613317

turning back on case liberation when using hpc
---

diff --git a/compiler/main/DynFlags.hs b/compiler/main/DynFlags.hs
index b3ee6fb..c8615da 100644
--- a/compiler/main/DynFlags.hs
+++ b/compiler/main/DynFlags.hs
@@ -59,7 +59,7 @@ import PrelNames	( mAIN )
 import StaticFlags	( opt_Static )
 #endif
 import StaticFlags	( opt_PIC, WayName(..), v_Ways, v_Build_tag,
-			  v_RTS_Build_tag, opt_Hpc )
+			  v_RTS_Build_tag )
 import {-# SOURCE #-} Packages (PackageState)
 import DriverPhases	( Phase(..), phaseInputExt )
 import Config
@@ -677,7 +677,6 @@ getCoreToDo dflags
     cse           = dopt Opt_CSE dflags
     spec_constr   = dopt Opt_SpecConstr dflags
     liberate_case = dopt Opt_LiberateCase dflags
-		  && not opt_Hpc 
     rule_check    = ruleCheck dflags
 
     core_todo =