X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fcmm%2FZipDataflow.hs;h=f09368dfd7fa292a24cd9cb384dd59221404363c;hp=bcddd8e072e2d4fea148dff4ef79beefc65757bd;hb=577c8a60130bb14bc8bcf5735cf506ddcfdc0e2a;hpb=4b0d51372d354687f0b2f7b2c2583bed059ce315

diff --git a/compiler/cmm/ZipDataflow.hs b/compiler/cmm/ZipDataflow.hs
index bcddd8e..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
@@ -650,7 +650,7 @@ backward_sol check_maybe return_graph = back
             }
    in fixed_point
 
-bwd_pure_anal :: (DebugNodes m l, Outputable a)
+bwd_pure_anal :: (DebugNodes m l, LastNode l, Outputable a)
              => PassName
              -> BlockEnv a
              -> BackwardTransfers m l a