diff options
| author | Gabor Greif <ggreif@gmail.com> | 2017-09-25 12:31:12 +0200 |
|---|---|---|
| committer | Gabor Greif <ggreif@gmail.com> | 2017-09-26 11:13:14 +0200 |
| commit | 7446c7f68bd5addd2f2db0d8d5910fb963869c47 (patch) | |
| tree | 05ecf5d25cdecb2893424cd07b0e7002b32ea2c4 /compiler/stranal | |
| parent | 2f8e6e7f8696213b95e3461224909c3b2ec4f7aa (diff) | |
| download | haskell-7446c7f68bd5addd2f2db0d8d5910fb963869c47.tar.gz | |
A bunch of typofixes
Diffstat (limited to 'compiler/stranal')
| -rw-r--r-- | compiler/stranal/WorkWrap.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/stranal/WorkWrap.hs b/compiler/stranal/WorkWrap.hs index 252f18b983..28b0df3404 100644 --- a/compiler/stranal/WorkWrap.hs +++ b/compiler/stranal/WorkWrap.hs @@ -232,7 +232,7 @@ has no wrapper, the worker for g will rebox p. So we get g x y p = case p of (I# p#) -> $wg x y p# -Now, in this case the reboxing will float into the True branch, an so +Now, in this case the reboxing will float into the True branch, and so the allocation will only happen on the error path. But it won't float inwards if there are multiple branches that call (f p), so the reboxing will happen on every call of g. Disaster. |