vcat should behave like 'foldr ($$) empty', not 'foldr ($+$) empty', according to...
authorBenedikt Huber <unknown>
Thu, 4 Mar 2010 10:24:10 +0000 (10:24 +0000)
committerBenedikt Huber <unknown>
Thu, 4 Mar 2010 10:24:10 +0000 (10:24 +0000)
Text/PrettyPrint/HughesPJ.hs

index 50e032c..da8e4c2 100644 (file)
@@ -494,7 +494,7 @@ braces p        = char '{' <> p <> char '}'
 -- lazy list versions
 hcat = reduceAB . foldr (beside_' False) empty
 hsep = reduceAB . foldr (beside_' True)  empty
-vcat = reduceAB . foldr (above_' True) empty
+vcat = reduceAB . foldr (above_' False) empty
 
 beside_' :: Bool -> Doc -> Doc -> Doc
 beside_' _ p Empty = p