\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,
inGentleMode :: SimplEnv -> Bool
inGentleMode env = case seMode env of
- SimplGently -> True
- _other -> False
+ SimplGently {} -> True
+ _other -> False
---------------------
getEnclosingCC :: SimplEnv -> CostCentreStack