X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FndpFlatten%2FNDPCoreUtils.hs;h=9fdca344bee40daf39fdc52f9371984bb77f5b83;hp=6e6b94f17556f430c6276b0c2d7e80b851c844a9;hb=4714e5142548941592b208c34685ce684d1bf3d6;hpb=2a6d497b719b39d7d7d73051f3baa783db343abb

diff --git a/compiler/ndpFlatten/NDPCoreUtils.hs b/compiler/ndpFlatten/NDPCoreUtils.hs
index 6e6b94f..9fdca34 100644
--- a/compiler/ndpFlatten/NDPCoreUtils.hs
+++ b/compiler/ndpFlatten/NDPCoreUtils.hs
@@ -171,4 +171,5 @@ substIdEnv env (Case expr b ty alts) =
        (c, bnds, substIdEnv (delVarEnvList env bnds) expr)
 substIdEnv env (Note n expr) =
   Note n (substIdEnv env expr)
+substIdEnv env (Cast e co) = Cast (substIdEnv env e) co
 substIdEnv env e@(Type t) = e