[project @ 2002-03-11 13:56:49 by simonmar]

[ghc-hetmet.git] / ghc / compiler / stranal / DmdAnal.lhs

diff --git a/ghc/compiler/stranal/DmdAnal.lhs b/ghc/compiler/stranal/DmdAnal.lhs
index 20b07fb..3759fe7 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
@@ -894,7 +894,7 @@ lubs = zipWithDmds lub
 box (Call d)  = Call d -- The odd man out.  Why?
 box (Box d)   = Box d
 box (Defer _) = lazyDmd
-box Top      = lazyDmd -- Box Abs and Box Top
+box Top       = lazyDmd        -- Box Abs and Box Top
 box Abs       = lazyDmd        -- are the same <B,L>
 box d        = Box d   -- Bot, Eval