X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FndpFlatten%2FNDPCoreUtils.hs;h=91adca9787d0a6ee763a3185c174a6c822fc6d2c;hb=75879a1e1a0a22d3a7218efd71017af724262704;hp=6e6b94f17556f430c6276b0c2d7e80b851c844a9;hpb=0065d5ab628975892cea1ec7303f968c3338cbe1;p=ghc-hetmet.git

diff --git a/compiler/ndpFlatten/NDPCoreUtils.hs b/compiler/ndpFlatten/NDPCoreUtils.hs
index 6e6b94f..91adca9 100644
--- a/compiler/ndpFlatten/NDPCoreUtils.hs
+++ b/compiler/ndpFlatten/NDPCoreUtils.hs
@@ -18,6 +18,13 @@
 --- TODO ----------------------------------------------------------------------
 --
 
+{-# OPTIONS -w #-}
+-- The above warning supression flag is a temporary kludge.
+-- While working on this module you are encouraged to remove it and fix
+-- any warnings in the module. See
+--     http://hackage.haskell.org/trac/ghc/wiki/Commentary/CodingStyle#Warnings
+-- for details
+
 module NDPCoreUtils (
 
   -- type inspection functions
@@ -171,4 +178,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