Commit fabb1551 authored by Simon Peyton Jones's avatar Simon Peyton Jones

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

parent 79062a8a
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment