X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fmain%2FDriverState.hs;h=3dc7951fc73b9c8a5deb98ddb96446d11dcf576c;hb=12e6a9a58473f8b24e831c2171bf62d256da8a85;hp=f07872aed5d94853b39de15c628788aafa2717c9;hpb=f53c4074ff7554ceedaa6b7a5edb2bca7a2d3886;p=ghc-hetmet.git

diff --git a/ghc/compiler/main/DriverState.hs b/ghc/compiler/main/DriverState.hs
index f07872a..3dc7951 100644
--- a/ghc/compiler/main/DriverState.hs
+++ b/ghc/compiler/main/DriverState.hs
@@ -1,5 +1,5 @@
 -----------------------------------------------------------------------------
--- $Id: DriverState.hs,v 1.29 2001/02/21 11:36:01 simonmar Exp $
+-- $Id: DriverState.hs,v 1.30 2001/02/28 11:48:34 simonpj Exp $
 --
 -- Settings for the driver
 --
@@ -280,6 +280,10 @@ buildCoreToDo = do
 	   CoreLiberateCase
 	else
 	   CoreDoNothing,
+	if opt_level >= 2 then
+	   CoreDoSpecConstr
+	else
+	   CoreDoNothing,
 
 	-- Final clean-up simplification:
 	CoreDoSimplify (isAmongSimpl [