X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FnativeGen%2FRegLiveness.hs;h=9a23ef4129744823a0df27de23b797a453ee9507;hb=7dd753a02c3bdce61287b9ad2064daecf31e8258;hp=6f21db8b77d450bf274b523975447192ef2bea9e;hpb=727fae32ea0b6ca6ebdf1b3137649813e4d7ac3d;p=ghc-hetmet.git

diff --git a/compiler/nativeGen/RegLiveness.hs b/compiler/nativeGen/RegLiveness.hs
index 6f21db8..9a23ef4 100644
--- a/compiler/nativeGen/RegLiveness.hs
+++ b/compiler/nativeGen/RegLiveness.hs
@@ -30,8 +30,6 @@ module RegLiveness (
 
   ) where
 
-#include "HsVersions.h"
-
 import MachRegs
 import MachInstrs
 import PprMach
@@ -42,10 +40,11 @@ import Digraph
 import Outputable
 import Unique
 import UniqSet
-import LazyUniqFM
+import UniqFM
 import UniqSupply
 import Bag
 import State
+import FastString
 
 import Data.List
 import Data.Maybe
@@ -112,9 +111,9 @@ instance Outputable LiveInstr where
 	 =  ppr instr
 		$$ (nest 8
 			$ vcat
-			[ pprRegs (ptext SLIT("# born:    ")) (liveBorn live)
-			, pprRegs (ptext SLIT("# r_dying: ")) (liveDieRead live)
-			, pprRegs (ptext SLIT("# w_dying: ")) (liveDieWrite live) ]
+			[ pprRegs (ptext (sLit "# born:    ")) (liveBorn live)
+			, pprRegs (ptext (sLit "# r_dying: ")) (liveDieRead live)
+			, pprRegs (ptext (sLit "# w_dying: ")) (liveDieWrite live) ]
 		    $+$ space)
 
 	 where 	pprRegs :: SDoc -> RegSet -> SDoc