From: sof <unknown>
Date: Thu, 23 Oct 1997 18:26:26 +0000 (+0000)
Subject: [project @ 1997-10-23 18:26:26 by sof]
X-Git-Tag: Approx_2487_patches~1331
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=445839c5e7ce7f2d1c02ccf192018fda07933176;p=ghc-hetmet.git

[project @ 1997-10-23 18:26:26 by sof]
One square bracket too many
---

diff --git a/ghc/compiler/codeGen/CodeGen.lhs b/ghc/compiler/codeGen/CodeGen.lhs
index bd164e7..7f15145 100644
--- a/ghc/compiler/codeGen/CodeGen.lhs
+++ b/ghc/compiler/codeGen/CodeGen.lhs
@@ -83,7 +83,7 @@ codeGen mod_name (local_CCs, extern_CCs) import_names gen_tycons tycon_specs stg
 	mkAbstractCs [
 		mkAbstractCs [mkAbstractCs (map (CCostCentreDecl True)  local_CCs),
 				   mkAbstractCs (map (CCostCentreDecl False) extern_CCs),
-				   mkCcRegister local_CCs import_names]],
+				   mkCcRegister local_CCs import_names],
 		genStaticConBits cinfo gen_tycons tycon_specs,
 		initC cinfo (cgTopBindings maybe_split stg_pgm) ]
   where