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:
f82fe6c
)
[project @ 1997-06-05 21:09:31 by sof]
author
sof
<unknown>
Thu, 5 Jun 1997 21:09:31 +0000
(21:09 +0000)
committer
sof
<unknown>
Thu, 5 Jun 1997 21:09:31 +0000
(21:09 +0000)
ppr update
ghc/compiler/coreSyn/PprCore.lhs
patch
|
blob
|
history
diff --git
a/ghc/compiler/coreSyn/PprCore.lhs
b/ghc/compiler/coreSyn/PprCore.lhs
index
c28c91a
..
87da5f4
100644
(file)
--- 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,
(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
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 (
= 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)))
hang (hsep [ppr sty binder, ppDcolon])
4 (ppr sty (idType binder)))
+-}
+
pragmas =
ifnotPprForUser sty
(ppIdInfo sty False{-no specs, thanks-} (getIdInfo binder))
pragmas =
ifnotPprForUser sty
(ppIdInfo sty False{-no specs, thanks-} (getIdInfo binder))