[project @ 1998-08-14 13:05:06 by sof]

mirror compiler source defn of hang

ghc/lib/misc/Pretty.lhs

@@ -399,7 +399,7 @@ hcat = foldr (<>)  empty
 hsep = foldr (<+>) empty
 vcat = foldr ($$)  empty
 
-hang d1 n d2 = d1 $$ (nest n d2)
+hang d1 n d2 = sep [d1, nest n d2]
 
 punctuate p []     = []
 punctuate p (d:ds) = go d ds