From: sof <unknown>
Date: Fri, 14 Aug 1998 13:05:06 +0000 (+0000)
Subject: [project @ 1998-08-14 13:05:06 by sof]
X-Git-Tag: Approx_2487_patches~357
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=b1cc93ff8547a813aa3ecf3e542f0999b015ab31;hp=5c44bfbb5a01e83dd5c0073f8ad36b6acc4e67cb;p=ghc-hetmet.git

[project @ 1998-08-14 13:05:06 by sof]
mirror compiler source defn of hang
---

diff --git a/ghc/lib/misc/Pretty.lhs b/ghc/lib/misc/Pretty.lhs
index c15b1b9..2c79d5a 100644
--- 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