X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FsimplCore%2FSimplEnv.lhs;h=5d8b16c89aae05e2910f1be803de1329b88963d4;hb=f07f25fdbac2b885aea6aa62c0326840c85f7b59;hp=c10ad907b6006f970c52e13070adb62e4dc591bf;hpb=72462499b891d5779c19f3bda03f96e24f9554ae;p=ghc-hetmet.git

diff --git a/compiler/simplCore/SimplEnv.lhs b/compiler/simplCore/SimplEnv.lhs
index c10ad90..5d8b16c 100644
--- a/compiler/simplCore/SimplEnv.lhs
+++ b/compiler/simplCore/SimplEnv.lhs
@@ -206,8 +206,8 @@ seIdSubst:
 
 
 \begin{code}
-mkSimplEnv :: SimplifierMode -> SwitchChecker -> SimplEnv
-mkSimplEnv mode switches
+mkSimplEnv :: SwitchChecker -> SimplifierMode -> SimplEnv
+mkSimplEnv switches mode
   = SimplEnv { seChkr = switches, seCC = subsumedCCS, 
 	       seMode = mode, seInScope = emptyInScopeSet, 
 	       seFloats = emptyFloats,
@@ -227,8 +227,8 @@ setMode mode env = env { seMode = mode }
 
 inGentleMode :: SimplEnv -> Bool
 inGentleMode env = case seMode env of
-	                SimplGently -> True
-		        _other      -> False
+	                SimplGently {} -> True
+		        _other         -> False
 
 ---------------------
 getEnclosingCC :: SimplEnv -> CostCentreStack