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

[ghc-hetmet.git] / ghc / compiler / simplCore / SimplCore.lhs

diff --git a/ghc/compiler/simplCore/SimplCore.lhs b/ghc/compiler/simplCore/SimplCore.lhs
index e567e78..ec8ed27 100644 (file)
--- 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