From: Norman Ramsey <nr@eecs.harvard.edu>
Date: Wed, 12 Sep 2007 09:39:20 +0000 (+0000)
Subject: overlooked ZipCfgExtras for a name change
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=72fd3e30c209f18af65b9a9a3995f23c16bbe519

overlooked ZipCfgExtras for a name change
---

diff --git a/compiler/cmm/ZipCfgExtras.hs b/compiler/cmm/ZipCfgExtras.hs
index 1cd2fa9..e4bd1ae 100644
--- a/compiler/cmm/ZipCfgExtras.hs
+++ b/compiler/cmm/ZipCfgExtras.hs
@@ -51,11 +51,11 @@ exit g@(LGraph eid _) = FGraph eid (ZBlock h (ZLast l)) others
 
 splice_focus_entry (FGraph eid (ZBlock head tail) blocks) g =
   let (tail', g') = splice_tail g tail in
-  FGraph eid (ZBlock head tail') (plusUFM (gr_blocks g') blocks)
+  FGraph eid (ZBlock head tail') (plusUFM (lg_blocks g') blocks)
 
 splice_focus_exit (FGraph eid (ZBlock head tail) blocks) g =
   let (g', head') = splice_head head g in
-  FGraph eid (ZBlock head' tail) (plusUFM (gr_blocks g') blocks)
+  FGraph eid (ZBlock head' tail) (plusUFM (lg_blocks g') blocks)
 
 -- | Fold from first to last
 fold_fwd_block ::