From: simonpj <unknown>
Date: Tue, 11 Dec 2001 12:18:49 +0000 (+0000)
Subject: [project @ 2001-12-11 12:18:49 by simonpj]
X-Git-Tag: Approximately_9120_patches~419
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=5f35df7f16ac3f4035fd35d742a237a08e68646b;p=ghc-hetmet.git

[project @ 2001-12-11 12:18:49 by simonpj]
More DEBUG syntax errors
---

diff --git a/ghc/compiler/basicTypes/IdInfo.lhs b/ghc/compiler/basicTypes/IdInfo.lhs
index 9e51a73..4744596 100644
--- a/ghc/compiler/basicTypes/IdInfo.lhs
+++ b/ghc/compiler/basicTypes/IdInfo.lhs
@@ -853,8 +853,8 @@ copyIdInfo :: IdInfo	-- f_local
 copyIdInfo f_local f = f { newStrictnessInfo = newStrictnessInfo f_local,
 #ifdef DEBUG
 			   strictnessInfo = strictnessInfo f_local,
-			   cprInfo        = cprInfo        f_local
+			   cprInfo        = cprInfo        f_local,
 #endif
-			   workerInfo     = workerInfo     f_local,
+			   workerInfo     = workerInfo     f_local
 			  }
 \end{code}
diff --git a/ghc/compiler/stranal/DmdAnal.lhs b/ghc/compiler/stranal/DmdAnal.lhs
index 20b07fb..8bfd8f8 100644
--- a/ghc/compiler/stranal/DmdAnal.lhs
+++ b/ghc/compiler/stranal/DmdAnal.lhs
@@ -73,7 +73,7 @@ dmdAnalPgm dflags binds
 #ifdef DEBUG
 	-- Only if DEBUG is on, because only then is the old
 	-- strictness analyser run
-	let dmd_changes = get_changes binds_plus_dmds ;
+	let { dmd_changes = get_changes binds_plus_dmds } ;
 	printDump (text "Changes in demands" $$ dmd_changes) ;
 #endif
 	return binds_plus_dmds