X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fcmm%2FCmmLiveZ.hs;h=501d852095fb6dd8b8bec0090c30ff6f7bbd1021;hb=526c3af1dc98987b6949f4df73c0debccf9875bd;hp=07801be49f4d3980c3e982cbef77969f974c3b4a;hpb=fee569a69a4ce8c8d05b8a1fb8069d804dbd2b9c;p=ghc-hetmet.git

diff --git a/compiler/cmm/CmmLiveZ.hs b/compiler/cmm/CmmLiveZ.hs
index 07801be..501d852 100644
--- a/compiler/cmm/CmmLiveZ.hs
+++ b/compiler/cmm/CmmLiveZ.hs
@@ -41,7 +41,7 @@ type BlockEntryLiveness = BlockEnv CmmLive
 -----------------------------------------------------------------------------
 cmmLivenessZ :: CmmGraph -> BlockEntryLiveness
 cmmLivenessZ g = env
-    where env = runDFA liveLattice $ do { run_b_anal transfer g; allFacts }
+    where env = runDFA liveLattice $ do { run_b_anal transfer g; getAllFacts }
           transfer     = BComp "liveness analysis" exit last middle first
           exit         = emptyUniqSet
           first live _ = live