X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fmain%2FTidyPgm.lhs;h=7b98bcd87635a3d7cbc47b380d07d4bde8bef5b4;hb=1717c5831d71bfa63f9d098a2a709feb2d8fbcc9;hp=c0d19df90a3cc077375d4ea370ee50084f30a69c;hpb=61d2625ae2e6a4cdae2ffc92df828905e81c24cc;p=ghc-hetmet.git

diff --git a/compiler/main/TidyPgm.lhs b/compiler/main/TidyPgm.lhs
index c0d19df..7b98bcd 100644
--- a/compiler/main/TidyPgm.lhs
+++ b/compiler/main/TidyPgm.lhs
@@ -806,6 +806,7 @@ cafRefs p (Lam x e) 	       = cafRefs p e
 cafRefs p (Let b e) 	       = fastOr (cafRefss p (rhssOfBind b)) (cafRefs p) e
 cafRefs p (Case e bndr _ alts) = fastOr (cafRefs p e) (cafRefss p) (rhssOfAlts alts)
 cafRefs p (Note n e) 	       = cafRefs p e
+cafRefs p (Cast e co)          = cafRefs p e
 cafRefs p (Type t) 	       = fastBool False
 
 cafRefss p [] 	  = fastBool False