From: simonpj@microsoft.com <unknown>
Date: Wed, 7 May 2008 07:28:25 +0000 (+0000)
Subject: Fix context for fwd_pure_anal to match that of forward_sol
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=577c8a60130bb14bc8bcf5735cf506ddcfdc0e2a

Fix context for fwd_pure_anal to match that of forward_sol
---

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