X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fcmm%2FStackColor.hs;h=6de602a4325bd40583a24fad45ea92164edc3957;hb=5699ec476d64d48b7fcf6812238406e1eea91bef;hp=e3b6ba8f5bcb48791f949a7428523b919009f4d8;hpb=8b7eaa404043294bd4cb4a0322ac1f7115bad6a0;p=ghc-hetmet.git

diff --git a/compiler/cmm/StackColor.hs b/compiler/cmm/StackColor.hs
index e3b6ba8..6de602a 100644
--- a/compiler/cmm/StackColor.hs
+++ b/compiler/cmm/StackColor.hs
@@ -1,4 +1,4 @@
-{-# OPTIONS -Wall -fno-warn-name-shadowing #-}
+
 module StackColor where
 
 import StackPlacements
@@ -9,8 +9,8 @@ import DFMonad
 import qualified GraphOps
 import MachOp
 import ZipCfg
-import ZipCfgCmm
-import ZipDataflow
+import ZipCfgCmmRep
+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