X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fmain%2FDynFlags.hs;h=c8615da615adf90d279d9419e62b3b055cc0c1c2;hp=b3ee6fb3efb0124bd961cd4378ddfc73a3629821;hb=d85714eb5c826058f0535da615c41ed4e9613317;hpb=629e852d8202408216e0cbb8362d1eb4beffbfcc

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 =