[project @ 2005-03-16 10:18:28 by simonmar]

[ghc-hetmet.git] / ghc / compiler / ndpFlatten / NDPCoreUtils.hs

diff --git a/ghc/compiler/ndpFlatten/NDPCoreUtils.hs b/ghc/compiler/ndpFlatten/NDPCoreUtils.hs
index 193f602..85b0110 100644 (file)
--- a/ghc/compiler/ndpFlatten/NDPCoreUtils.hs
+++ b/ghc/compiler/ndpFlatten/NDPCoreUtils.hs
@@ -163,7 +163,6 @@ substIdEnv env (Let (Rec bnds) expr) =
      newExpr = substIdEnv newEnv expr 
      substBnd (b,e) = (b, substIdEnv newEnv e)      
    in Let (Rec (map substBnd bnds)) newExpr
--- gaw 2004
 substIdEnv env (Case expr b ty alts) =
    Case (substIdEnv newEnv expr) b ty (map substAlt alts)
    where