From ebfe11e7706387b8a445f02dc6166ff067ee7b90 Mon Sep 17 00:00:00 2001
From: simonm <unknown>
Date: Mon, 22 Dec 1997 11:42:08 +0000
Subject: [PATCH] [project @ 1997-12-22 11:42:08 by simonm] print idinfo with a
BigCoreBinder.
---
ghc/compiler/coreSyn/PprCore.lhs | 6 +++++-
1 file changed, 5 insertions(+), 1 deletion(-)
diff --git a/ghc/compiler/coreSyn/PprCore.lhs b/ghc/compiler/coreSyn/PprCore.lhs
index d69b02457708..e822513a6778 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]
--
GitLab