projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
e79ec9e
)
[project @ 1998-08-14 11:43:48 by sof]
author
sof
<unknown>
Fri, 14 Aug 1998 11:43:48 +0000
(11:43 +0000)
committer
sof
<unknown>
Fri, 14 Aug 1998 11:43:48 +0000
(11:43 +0000)
wibble
ghc/compiler/absCSyn/HeapOffs.lhs
patch
|
blob
|
history
diff --git
a/ghc/compiler/absCSyn/HeapOffs.lhs
b/ghc/compiler/absCSyn/HeapOffs.lhs
index
a76987a
..
cc96031
100644
(file)
--- a/
ghc/compiler/absCSyn/HeapOffs.lhs
+++ b/
ghc/compiler/absCSyn/HeapOffs.lhs
@@
-304,7
+304,7
@@
pprHeapOffsetPieces int_offs fxdhdr_offs varhdr_offs tothdr_offs
else if fxdhdr_offs _EQ_ ILIT(1) then
Just (ptext SLIT("_FHS"))
else
else if fxdhdr_offs _EQ_ ILIT(1) then
Just (ptext SLIT("_FHS"))
else
- Just (hcat [char '(', ptext SLIT("_FHS*"), int IBOX(fxdhdr_offs), char ')'])
+ Just (hcat [text "(", ptext SLIT("_FHS*"), int IBOX(fxdhdr_offs), text ")"])
pp_varhdr_offs = pp_hdrs (ptext SLIT("_VHS")) varhdr_offs
pp_varhdr_offs = pp_hdrs (ptext SLIT("_VHS")) varhdr_offs
@@
-313,7
+313,7
@@
pprHeapOffsetPieces int_offs fxdhdr_offs varhdr_offs tothdr_offs
case (catMaybes [pp_tothdr_offs, pp_varhdr_offs, pp_fxdhdr_offs, pp_int_offs]) of
[] -> char '0'
[pp] -> pp -- Each blob is parenthesised if necessary
case (catMaybes [pp_tothdr_offs, pp_varhdr_offs, pp_fxdhdr_offs, pp_int_offs]) of
[] -> char '0'
[pp] -> pp -- Each blob is parenthesised if necessary
- pps -> parens (hcat (punctuate (char '+') pps))
+ pps -> text "(" <> (hcat (punctuate (char '+') pps)) <> text ")"
where
pp_hdrs hdr_pp [] = Nothing
pp_hdrs hdr_pp [SMRI(rep, n)] | n _EQ_ ILIT(1) = Just ((<>) (text (show rep)) hdr_pp)
where
pp_hdrs hdr_pp [] = Nothing
pp_hdrs hdr_pp [SMRI(rep, n)] | n _EQ_ ILIT(1) = Just ((<>) (text (show rep)) hdr_pp)