-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))