X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FnativeGen%2FSPARC%2FCodeGen%2FSanity.hs;h=ca4c8e499469043bc4932a7c597163e9e2a4696e;hb=a50363e7956e80b4726e7b9b9ea447e4a4793d5f;hp=5d2f481a15cf27b94cfa2114ef0658032c17311e;hpb=42222f95a101fb3647f8728302bbf1098b74e59e;p=ghc-hetmet.git

diff --git a/compiler/nativeGen/SPARC/CodeGen/Sanity.hs b/compiler/nativeGen/SPARC/CodeGen/Sanity.hs
index 5d2f481..ca4c8e4 100644
--- a/compiler/nativeGen/SPARC/CodeGen/Sanity.hs
+++ b/compiler/nativeGen/SPARC/CodeGen/Sanity.hs
@@ -12,7 +12,7 @@ import SPARC.Instr
 import SPARC.Ppr	()
 import Instruction
 
-import Cmm
+import OldCmm
 
 import Outputable
 
@@ -20,7 +20,8 @@ import Outputable
 -- | Enforce intra-block invariants.
 --
 checkBlock
-	:: CmmBasicBlock -> NatBasicBlock Instr -> NatBasicBlock Instr
+	:: CmmBasicBlock 
+	-> NatBasicBlock Instr -> NatBasicBlock Instr
 
 checkBlock cmm block@(BasicBlock _ instrs)
 	| checkBlockInstrs instrs