projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
Tidy up the parsing of comprehensions and improve locations
[ghc-hetmet.git]
/
compiler
/
codeGen
/
CgHeapery.lhs
diff --git
a/compiler/codeGen/CgHeapery.lhs
b/compiler/codeGen/CgHeapery.lhs
index
df3720c
..
42d2666
100644
(file)
--- a/
compiler/codeGen/CgHeapery.lhs
+++ b/
compiler/codeGen/CgHeapery.lhs
@@
-78,7
+78,7
@@
initHeapUsage :: (VirtualHpOffset -> Code) -> Code
initHeapUsage fcode
= do { orig_hp_usage <- getHpUsage
; setHpUsage initHpUsage
- ; fixC (\heap_usage2 -> do
+ ; fixC_(\heap_usage2 -> do
{ fcode (heapHWM heap_usage2)
; getHpUsage })
; setHpUsage orig_hp_usage }