Change layout function called for renderPretty in ansi-wl-pprint compat

Layout smart is more expensive, and can potentially hang in situations
where layout pretty works fine.
This commit is contained in:
Huw Campbell 2023-05-26 11:44:28 +10:00
parent 7e32c010ec
commit 70918f1d26

View File

@ -230,7 +230,7 @@ rational = New.pretty . show
renderPretty :: Float -> Int -> Doc -> SimpleDoc
renderPretty ribbonFraction pageWidth
= New.layoutSmart New.LayoutOptions
= New.layoutPretty New.LayoutOptions
{ New.layoutPageWidth = New.AvailablePerLine pageWidth (realToFrac ribbonFraction) }