[project @ 2001-12-11 12:18:49 by simonpj]

More DEBUG syntax errors

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}

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