From: sof <unknown>
Date: Thu, 5 Jun 1997 21:09:31 +0000 (+0000)
Subject: [project @ 1997-06-05 21:09:31 by sof]
X-Git-Tag: Approximately_1000_patches_recorded~365
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=8675aa2bfb959e14f0d8f7bbd2e7680554bc308a;p=ghc-hetmet.git

[project @ 1997-06-05 21:09:31 by sof]
ppr update
---

diff --git a/ghc/compiler/coreSyn/PprCore.lhs b/ghc/compiler/coreSyn/PprCore.lhs
index c28c91a..87da5f4 100644
--- a/ghc/compiler/coreSyn/PprCore.lhs
+++ b/ghc/compiler/coreSyn/PprCore.lhs
@@ -280,8 +280,8 @@ ppr_expr pe expr@(Lam _ _)
 	(uvars, tyvars, vars, body) = collectBinders expr
     in
     hang (hsep [pp_vars SLIT("/u\\") (pUVar    pe) uvars,
-		   pp_vars SLIT("_/\\_")  (pTyVarB  pe) tyvars,
-		   pp_vars SLIT("\\")   (pMajBndr pe) vars])
+		pp_vars SLIT("_/\\_")  (pTyVarB  pe) tyvars,
+		pp_vars SLIT("\\")   (pMajBndr pe) vars])
 	 4 (ppr_expr pe body)
   where
     pp_vars lam pp [] = empty
@@ -424,8 +424,15 @@ pprBigCoreBinder sty binder
   = vcat [sig, pragmas, ppr sty binder]
   where
     sig = ifnotPprShowAll sty (
+	    hsep [ppr sty binder, ppDcolon, ppr sty (idType binder)])
+
+{- Having the type come on a separate line does not look "right" to me (doesn't
+   save too much space either), so I've replaced it with a one-line version. -- SOF
+
 	    hang (hsep [ppr sty binder, ppDcolon])
 		 4 (ppr sty (idType binder)))
+-}
+
     pragmas =
 	ifnotPprForUser sty
 	 (ppIdInfo sty False{-no specs, thanks-} (getIdInfo binder))