module Pretty's "text/str" rule doesn't fire

In this trivial but characteristic example

import Pretty
import Data.IORef

main :: IO ()
main = do
    _ <- newIORef (text "test")
    return ()

the "text/str" rule, which optimizes calls to Pretty.text applied to a string literal argument, doesn't fire. Likewise, such calls to Outputable.text don't get rewritten either.

Trac metadata

Trac field	Value
Version	7.7
Type	Bug
TypeOfFailure	OtherFailure
Priority	normal
Resolution	Unresolved
Component	Compiler
Test case
Differential revisions
BlockedBy
Related
Blocking
CC
Operating system
Architecture