Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Alex D
GHC
Commits
fce8977b
Commit
fce8977b
authored
May 28, 2009
by
simonpj@microsoft.com
Browse files
Comments only
parent
d3c3b434
Changes
1
Hide whitespace changes
Inline
Side-by-side
compiler/coreSyn/CorePrep.lhs
View file @
fce8977b
...
...
@@ -407,7 +407,7 @@ rhsToBodyNF rhs = do { (floats,body) <- rhsToBody rhs
--------
rhsToBody :: CpeRhs -> UniqSM (Floats, CpeBody)
-- Remove top level lambdas by let-bindin
i
g
-- Remove top level lambdas by let-binding
rhsToBody (Note n expr)
-- You can get things like
...
...
@@ -511,10 +511,10 @@ cpeApp env expr
= collect_args fun depth -- They aren't used by the code generator
-- N-variable fun, better let-bind it
-- ToDo: perhaps we can case-bind rather than let-bind this closure,
-- since it is sure to be evaluated.
collect_args fun depth
= do { (fun_floats, fun') <- cpeArg env True fun ty
-- The True says that it's sure to be evaluated,
-- so we'll end up case-binding it
; return (fun', (fun', depth), ty, fun_floats, []) }
where
ty = exprType fun
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment