From 5f35df7f16ac3f4035fd35d742a237a08e68646b Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Tue, 11 Dec 2001 12:18:49 +0000
Subject: [PATCH] [project @ 2001-12-11 12:18:49 by simonpj] More DEBUG syntax
 errors

---
 ghc/compiler/basicTypes/IdInfo.lhs |    4 ++--
 ghc/compiler/stranal/DmdAnal.lhs   |    2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

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
-- 
1.7.10.4