Comments only
authorSimon Peyton Jones <simonpj@microsoft.com>
Mon, 19 Jan 2015 16:44:25 +0000 (16:44 +0000)
committerSimon Peyton Jones <simonpj@microsoft.com>
Wed, 18 Mar 2015 08:56:41 +0000 (08:56 +0000)
compiler/coreSyn/CoreUtils.hs

index 166fe6c..08f4fcd 100644 (file)
@@ -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