[commit: ghc] master: Comments only (8e5313c)

Simon Peyton Jones simonpj at microsoft.com
Wed Jan 30 15:34:29 CET 2013


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

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/8e5313cbb8ffc1663f1a8bc63911105efdda4712

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

commit 8e5313cbb8ffc1663f1a8bc63911105efdda4712
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Thu Jan 24 14:50:59 2013 +0000

    Comments only

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

 compiler/simplCore/SimplEnv.lhs |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/simplCore/SimplEnv.lhs b/compiler/simplCore/SimplEnv.lhs
index b5b91ea..d879073 100644
--- a/compiler/simplCore/SimplEnv.lhs
+++ b/compiler/simplCore/SimplEnv.lhs
@@ -1,5 +1,5 @@
 %
-o% (c) The AQUA Project, Glasgow University, 1993-1998
+% (c) The AQUA Project, Glasgow University, 1993-1998
 %
 \section[SimplMonad]{The simplifier Monad}
 
@@ -399,7 +399,7 @@ doFloatFromRhs lvl rec str rhs (SimplEnv {seFloats = Floats fs ff})
   =  not (isNilOL fs) && want_to_float && can_float
   where
      want_to_float = isTopLevel lvl || exprIsCheap rhs || exprIsExpandable rhs 
-     		     -- See Note [Float when cheap or expandable]
+                     -- See Note [Float when cheap or expandable]
      can_float = case ff of
                    FltLifted  -> True
                    FltOkSpec  -> isNotTopLevel lvl && isNonRec rec





More information about the ghc-commits mailing list