X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fcmm%2FStackColor.hs;h=6de602a4325bd40583a24fad45ea92164edc3957;hb=9d03becc597e5b1ab6c8466209a1263bf8ba6f29;hp=2f97a1887751c58be131ae60b0cbef055c51b761;hpb=1241c26f3552a2037263769e5ef7fa68d9f3be36;p=ghc-hetmet.git

diff --git a/compiler/cmm/StackColor.hs b/compiler/cmm/StackColor.hs
index 2f97a18..6de602a 100644
--- a/compiler/cmm/StackColor.hs
+++ b/compiler/cmm/StackColor.hs
@@ -10,7 +10,7 @@ import qualified GraphOps
 import MachOp
 import ZipCfg
 import ZipCfgCmmRep
-import ZipDataflow
+import ZipDataflow0
 
 import Maybes
 import Panic
@@ -23,7 +23,7 @@ type M = ExtendWithSpills Middle
 
 foldConflicts :: (RegSet -> a -> a) -> a -> LGraph M Last -> a
 foldConflicts f z g =
-  let env = runDFA dualLiveLattice (run_b_anal dualLiveness g >> allFacts)
+  let env = runDFA dualLiveLattice (run_b_anal dualLiveness g >> getAllFacts)
       lookup id = lookupBlockEnv env id `orElse` fact_bot dualLiveLattice
       f' dual z = f (on_stack dual) z
   in  fold_edge_facts_b f' dualLiveness g lookup z