[commit: ghc] master: Comments only (40fa420)

[git at git.haskell.org]

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

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

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

commit 40fa420ce97125724eff9001a8cdef29a96e789c
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Tue Feb 20 11:34:45 2018 +0000

    Comments only


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

40fa420ce97125724eff9001a8cdef29a96e789c
 compiler/coreSyn/CoreUtils.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/compiler/coreSyn/CoreUtils.hs b/compiler/coreSyn/CoreUtils.hs
index 3d5f4bc..644c0f8 100644
--- a/compiler/coreSyn/CoreUtils.hs
+++ b/compiler/coreSyn/CoreUtils.hs
@@ -1723,6 +1723,8 @@ don't want to discard a seq on it.
 exprIsTopLevelBindable :: CoreExpr -> Type -> Bool
 -- See Note [CoreSyn top-level string literals]
 -- Precondition: exprType expr = ty
+-- Top-level literal strings can't even be wrapped in ticks
+--   see Note [CoreSyn top-level string literals] in CoreSyn
 exprIsTopLevelBindable expr ty
   = exprIsLiteralString expr
   || not (isUnliftedType ty)