X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FnativeGen%2FSPARC%2FCodeGen%2FSanity.hs;h=56f71e44ed4129a1b5483662ab4704cd132255ad;hb=7854ec4b11e117f8514553890851d14a66690fbb;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..56f71e4 100644
--- a/compiler/nativeGen/SPARC/CodeGen/Sanity.hs
+++ b/compiler/nativeGen/SPARC/CodeGen/Sanity.hs
@@ -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