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

More DEBUG syntax errors

[project @ 2001-12-11 12:18:49 by simonpj]
More DEBUG syntax errors
5f35df7f · simonpj · e4ffa112 · 5f35df7f · 5f35df7f
Commit 5f35df7f authored Dec 11, 2001 by simonpj
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 3 deletions

ghc/compiler/basicTypes/IdInfo.lhs ghc/compiler/basicTypes/IdInfo.lhs +2 -2

ghc/compiler/stranal/DmdAnal.lhs ghc/compiler/stranal/DmdAnal.lhs +1 -1

No files found.
--- 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}
--- 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