Delay inlining 'text' so that the RULE has a chance to fire

fabb1551 · Simon Peyton Jones · 79062a8a · fabb1551
Commit fabb1551 authored Jul 23, 2012 by Simon Peyton Jones
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 0 deletions

compiler/utils/Pretty.lhs compiler/utils/Pretty.lhs +3 -0

No files found.
--- a/compiler/utils/Pretty.lhs
+++ b/compiler/utils/Pretty.lhs
@@ -555,7 +555,10 @@ isEmpty Empty = True
 isEmpty _     = False

 char  c = textBeside_ (Chr c) (_ILIT(1)) Empty
+
 text  s = case iUnbox (length   s) of {sl -> textBeside_ (Str s)  sl Empty}
+{-# NOINLINE [1] text #-}   -- Give the RULE a chance to fire
+
 ftext :: FastString -> Doc
 ftext s = case iUnbox (lengthFS s) of {sl -> textBeside_ (PStr s) sl Empty}
 ptext :: LitString -> Doc