[commit: ghc] master: Comments only (5d99d6a)

[Simon Peyton Jones]

Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/5d99d6ae80205e216db5a07ac94cb76388ed5936

>---------------------------------------------------------------

commit 5d99d6ae80205e216db5a07ac94cb76388ed5936
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Tue Jan 22 16:57:07 2013 +0000

    Comments only

>---------------------------------------------------------------

 compiler/simplCore/SetLevels.lhs |    7 ++++---
 1 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/compiler/simplCore/SetLevels.lhs b/compiler/simplCore/SetLevels.lhs
index 87d5de2..78cb0be 100644
--- a/compiler/simplCore/SetLevels.lhs
+++ b/compiler/simplCore/SetLevels.lhs
@@ -100,9 +100,10 @@ type LevelledExpr = TaggedExpr FloatSpec
 type LevelledBind = TaggedBind FloatSpec
 type LevelledBndr = TaggedBndr FloatSpec
 
-data Level = Level Int	-- Level number of enclosing lambdas
-	  	   Int	-- Number of big-lambda and/or case expressions between
-			-- here and the nearest enclosing lambda
+data Level = Level Int	-- Major level: number of enclosing value lambdas
+	  	   Int	-- Minor level: number of big-lambda and/or case 
+                        -- expressions between here and the nearest 
+                        -- enclosing value lambda
 
 data FloatSpec 
   = FloatMe Level	-- Float to just inside the binding