outputOptionsPageWidth has no effect

[simonmichael]

I wanted to use outputOptionsCompact, but also to wrap lines when appropriate. outputOptionsPageWidth seems to have no effect.

ghci> pPrintOpt NoCheckColorTty defaultOutputOptionsNoColor{outputOptionsCompact=True, outputOptionsPageWidth=80} $ replicate 80 "a"
[ "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a"
]

[georgefst]

Huh, that is surprising. It definitely works in some cases: see the examples in the web app. I'm not sure what's special about this input.