[project @ 1998-08-14 11:43:48 by sof]

wibble

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)