From 001d6ffda6a509c6349f6644df10e8fcf270d218 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Mon, 5 Feb 2007 20:31:25 +0000 Subject: [PATCH] Fix syntax error --- compiler/nativeGen/AsmCodeGen.lhs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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) -- 1.7.10.4