[commit: ghc] master: White space and comments (e5c4e41)

[Simon Peyton Jones]

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

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/e5c4e4178c8137961dc0377d00acf0bae1fefa1e

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

commit e5c4e4178c8137961dc0377d00acf0bae1fefa1e
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Wed Jul 27 10:29:43 2011 +0100

    White space and comments

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

 compiler/basicTypes/VarEnv.lhs |   12 ++++++++----
 compiler/utils/Outputable.lhs  |    3 +++
 2 files changed, 11 insertions(+), 4 deletions(-)

diff --git a/compiler/basicTypes/VarEnv.lhs b/compiler/basicTypes/VarEnv.lhs
index a28136b..a94ac07 100644
--- a/compiler/basicTypes/VarEnv.lhs
+++ b/compiler/basicTypes/VarEnv.lhs
@@ -286,12 +286,16 @@ rnEtaR (RV2 { envL = envL, envR = envR, in_scope = in_scope }) bR
     new_b = uniqAway in_scope bR
 
 delBndrL, delBndrR :: RnEnv2 -> Var -> RnEnv2
-delBndrL rn@(RV2 { envL = env, in_scope = in_scope }) v = rn { envL = env `delVarEnv` v, in_scope = in_scope `extendInScopeSet` v }
-delBndrR rn@(RV2 { envR = env, in_scope = in_scope }) v = rn { envR = env `delVarEnv` v, in_scope = in_scope `extendInScopeSet` v }
+delBndrL rn@(RV2 { envL = env, in_scope = in_scope }) v 
+  = rn { envL = env `delVarEnv` v, in_scope = in_scope `extendInScopeSet` v }
+delBndrR rn@(RV2 { envR = env, in_scope = in_scope }) v 
+  = rn { envR = env `delVarEnv` v, in_scope = in_scope `extendInScopeSet` v }
 
 delBndrsL, delBndrsR :: RnEnv2 -> [Var] -> RnEnv2
-delBndrsL rn@(RV2 { envL = env, in_scope = in_scope }) v = rn { envL = env `delVarEnvList` v, in_scope = in_scope `extendInScopeSetList` v }
-delBndrsR rn@(RV2 { envR = env, in_scope = in_scope }) v = rn { envR = env `delVarEnvList` v, in_scope = in_scope `extendInScopeSetList` v }
+delBndrsL rn@(RV2 { envL = env, in_scope = in_scope }) v 
+  = rn { envL = env `delVarEnvList` v, in_scope = in_scope `extendInScopeSetList` v }
+delBndrsR rn@(RV2 { envR = env, in_scope = in_scope }) v 
+  = rn { envR = env `delVarEnvList` v, in_scope = in_scope `extendInScopeSetList` v }
 
 rnOccL, rnOccR :: RnEnv2 -> Var -> Var
 -- ^ Look up the renaming of an occurrence in the left or right term
diff --git a/compiler/utils/Outputable.lhs b/compiler/utils/Outputable.lhs
index 8a0c62a..713866b 100644
--- a/compiler/utils/Outputable.lhs
+++ b/compiler/utils/Outputable.lhs
@@ -597,6 +597,9 @@ keyword = bold
 class Outputable a where
 	ppr :: a -> SDoc
 	pprPrec :: Rational -> a -> SDoc
+		-- 0 binds least tightly
+		-- We use Rational because there is always a
+		-- Rational between any other two Rationals
 	
 	ppr = pprPrec 0
 	pprPrec _ = ppr