Commit fad7bb0b authored by Simon Peyton Jones's avatar Simon Peyton Jones

Comments only

parent 6f400603
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment