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

[git at git.haskell.org]

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

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

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

commit fad7bb0bfdb4bf2d323f8833e29ce42d6c807ee0
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Mon Jan 19 16:44:25 2015 +0000

    Comments only


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

fad7bb0bfdb4bf2d323f8833e29ce42d6c807ee0
 compiler/coreSyn/CoreUtils.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/coreSyn/CoreUtils.hs b/compiler/coreSyn/CoreUtils.hs
index 166fe6c..08f4fcd 100644
--- a/compiler/coreSyn/CoreUtils.hs
+++ b/compiler/coreSyn/CoreUtils.hs
@@ -907,8 +907,8 @@ exprIsCheap' good_app other_expr        -- Applications and variables
          -- good plan
 
     go (Var f) args
-       | good_app f (length args)
-       = go_pap args
+       | good_app f (length args)  -- Typically holds of data constructor applications
+       = go_pap args               -- E.g. good_app = isCheapApp below
 
        | otherwise
         = case idDetails f of