Add test for $$ operator (that fails right now)

2024-10-05 17:38:27 +03:00 · 2017-08-02 15:56:34 +02:00 · 2017-08-02 15:56:34 +02:00 · 0cd22098e0
commit 0cd22098e0
parent c331e908cf
1 changed files with 3 additions and 0 deletions
--- a/prettyprinter/src/Data/Text/Prettyprint/Doc/Internal.hs
+++ b/prettyprinter/src/Data/Text/Prettyprint/Doc/Internal.hs
@ -523,6 +523,9 @@ hardlineCollapse i = Line (CollapseTo i)
 -- foo
 -- bar
 -- baz
+--
+-- >>> "foo" <> hardlineCollapse 1 <> nest 5 "bar"
+-- foo  bar

 -- | @('group' x)@ tries laying out @x@ into a single line by removing the
 -- contained line breaks; if this does not fit the page, @x@ is laid out without