[project @ 2004-12-27 18:28:21 by simonpj]

Wibble

[project @ 2004-12-27 18:28:21 by simonpj]
Wibble
29ca2190 · simonpj · a451fc62 · 29ca2190
Commit 29ca2190 authored Dec 27, 2004 by simonpj
--- a/ghc/compiler/simplCore/SimplCore.lhs
+++ b/ghc/compiler/simplCore/SimplCore.lhs
@@ -109,8 +109,8 @@ simplifyExpr dflags expr

 gentleSimplEnv :: SimplEnv
 gentleSimplEnv = mkSimplEnv SimplGently 
-			    (panic "simplifyExpr: switches")
-			     emptyRuleBase
+			    (isAmongSimpl [])
+			    emptyRuleBase

 doCorePasses :: HscEnv
             -> UniqSupply      -- uniques