From 2ede6449ffb3bdd187228b40a0f895d64eeca193 Mon Sep 17 00:00:00 2001 From: sof Date: Fri, 14 Aug 1998 11:43:48 +0000 Subject: [PATCH] [project @ 1998-08-14 11:43:48 by sof] wibble --- ghc/compiler/absCSyn/HeapOffs.lhs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/ghc/compiler/absCSyn/HeapOffs.lhs b/ghc/compiler/absCSyn/HeapOffs.lhs index a76987a..cc96031 100644 --- 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 - 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 @@ -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 - 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) -- 1.7.10.4