[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 (file)
--- 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 (file)
--- 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