[commit: ghc] master: Comments only (f959624)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/f959624f2a0f274a16a981ca7c866020082531f6/ghc

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

commit f959624f2a0f274a16a981ca7c866020082531f6
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Wed Jul 26 08:57:41 2017 +0100

    Comments only


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

f959624f2a0f274a16a981ca7c866020082531f6
 compiler/simplCore/Simplify.hs | 1 -
 1 file changed, 1 deletion(-)

diff --git a/compiler/simplCore/Simplify.hs b/compiler/simplCore/Simplify.hs
index 91ed644..dd0d45b 100644
--- a/compiler/simplCore/Simplify.hs
+++ b/compiler/simplCore/Simplify.hs
@@ -566,7 +566,6 @@ That's what the 'go' loop in prepareRhs does
 prepareRhs :: TopLevelFlag -> SimplEnv -> OutId -> OutExpr -> SimplM (SimplEnv, OutExpr)
 -- See Note [prepareRhs]
 -- Adds new floats to the env iff that allows us to return a good RHS
--- See Note [prepareRhs]
 prepareRhs top_lvl env id (Cast rhs co)    -- Note [Float coercions]
   | Pair ty1 _ty2 <- coercionKind co       -- Do *not* do this if rhs has an unlifted type
   , not (isUnliftedType ty1)            -- see Note [Float coercions (unlifted)]