Commit b1cc93ff authored by sof's avatar sof
Browse files

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

mirror compiler source defn of hang
parent 5c44bfbb
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment