From 577c8a60130bb14bc8bcf5735cf506ddcfdc0e2a Mon Sep 17 00:00:00 2001
From: "simonpj@microsoft.com" <unknown>
Date: Wed, 7 May 2008 07:28:25 +0000
Subject: [PATCH] Fix context for fwd_pure_anal to match that of forward_sol

---
 compiler/cmm/ZipDataflow.hs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/cmm/ZipDataflow.hs b/compiler/cmm/ZipDataflow.hs
index 60bcda7..f09368d 100644
--- a/compiler/cmm/ZipDataflow.hs
+++ b/compiler/cmm/ZipDataflow.hs
@@ -233,7 +233,7 @@ lgraphToGraph (LGraph eid blocks) =
 
 class (Outputable m, Outputable l, LastNode l, Outputable (LGraph m l)) => DebugNodes m l
 
-fwd_pure_anal :: (DebugNodes m l, Outputable a)
+fwd_pure_anal :: (DebugNodes m l, LastNode l, Outputable a)
              => PassName
              -> BlockEnv a
              -> ForwardTransfers m l a
-- 
1.7.10.4