diff options
Diffstat (limited to 'testsuite/tests/lib/PrettyPrint/T3911.hs')
-rw-r--r-- | testsuite/tests/lib/PrettyPrint/T3911.hs | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/testsuite/tests/lib/PrettyPrint/T3911.hs b/testsuite/tests/lib/PrettyPrint/T3911.hs new file mode 100644 index 0000000000..01ccb22b01 --- /dev/null +++ b/testsuite/tests/lib/PrettyPrint/T3911.hs @@ -0,0 +1,23 @@ + +module Main where + +import Text.PrettyPrint.HughesPJ + +xs :: [Doc] +xs = [text "hello", + nest 10 (text "world")] + +d1 :: Doc +d1 = vcat xs + +d2 :: Doc +d2 = foldr ($$) empty xs + +d3 :: Doc +d3 = foldr ($+$) empty xs + +main :: IO () +main = do print d1 + print d2 + print d3 + |