From: Manuel M T Chakravarty <chak@cse.unsw.edu.au>
Date: Fri, 4 Aug 2006 21:56:42 +0000 (+0000)
Subject: Massive patch for the first months work adding System FC to GHC #22
X-Git-Tag: After_FC_branch_merge~160
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=1717c5831d71bfa63f9d098a2a709feb2d8fbcc9

Massive patch for the first months work adding System FC to GHC #22

Broken up massive patch -=chak
Original log message:
This is (sadly) all done in one patch to avoid Darcs bugs.
It's not complete work... more FC stuff to come.  A compiler
using just this patch will fail dismally.
---

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