From: simonm <unknown>
Date: Mon, 22 Dec 1997 11:42:08 +0000 (+0000)
Subject: [project @ 1997-12-22 11:42:08 by simonm]
X-Git-Tag: Approx_2487_patches~1133
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=ebfe11e7706387b8a445f02dc6166ff067ee7b90;p=ghc-hetmet.git

[project @ 1997-12-22 11:42:08 by simonm]
print idinfo with a BigCoreBinder.
---

diff --git a/ghc/compiler/coreSyn/PprCore.lhs b/ghc/compiler/coreSyn/PprCore.lhs
index d69b024..e822513 100644
--- a/ghc/compiler/coreSyn/PprCore.lhs
+++ b/ghc/compiler/coreSyn/PprCore.lhs
@@ -423,7 +423,11 @@ Other printing bits-and-bobs used with the general @pprCoreBinding@
 and @pprCoreExpr@ functions.
 
 \begin{code}
-pprBigCoreBinder sty binder = pprTypedCoreBinder sty binder
+pprBigCoreBinder sty binder 
+  = vcat [pragmas,
+	  pprTypedCoreBinder sty binder] 
+  where
+    pragmas = ppIdInfo sty False{-no specs, thanks-} (getIdInfo binder)
 
 pprBabyCoreBinder sty binder
   = hsep [ppr sty binder, pp_strictness]