projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
5c44bfb
)
[project @ 1998-08-14 13:05:06 by sof]
author
sof
<unknown>
Fri, 14 Aug 1998 13:05:06 +0000
(13:05 +0000)
committer
sof
<unknown>
Fri, 14 Aug 1998 13:05:06 +0000
(13:05 +0000)
mirror compiler source defn of hang
ghc/lib/misc/Pretty.lhs
patch
|
blob
|
history
diff --git
a/ghc/lib/misc/Pretty.lhs
b/ghc/lib/misc/Pretty.lhs
index
c15b1b9
..
2c79d5a
100644
(file)
--- a/
ghc/lib/misc/Pretty.lhs
+++ b/
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