X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=compiler%2FnativeGen%2FAsmCodeGen.lhs;h=47c875c41df490e844892c68b42730f5bed3d6d0;hb=618380a7fa2ca7b75b2b6a5bfa7eac4a86941510;hp=f7b757005f91578997636ec43710372ee7a25f68;hpb=22bbcd1dcd94851b8f9409310cf95f3b9332850c;p=ghc-hetmet.git

diff --git a/compiler/nativeGen/AsmCodeGen.lhs b/compiler/nativeGen/AsmCodeGen.lhs
index f7b7570..47c875c 100644
--- a/compiler/nativeGen/AsmCodeGen.lhs
+++ b/compiler/nativeGen/AsmCodeGen.lhs
@@ -344,7 +344,7 @@ shortcutBranches dflags tops
     mapping = foldr plusUFM emptyUFM mappings
 
 build_mapping top@(CmmData _ _) = (top, emptyUFM)
-build_mapping (CmmProc info lbl params []) $
+build_mapping (CmmProc info lbl params [])
   = (CmmProc info lbl params [], emptyUFM)
 build_mapping (CmmProc info lbl params (head:blocks))
   = (CmmProc info lbl params (head:others), mapping)