From 531e1a1490a8aa78e239e1edb1b75548d1e6271a Mon Sep 17 00:00:00 2001 From: sof Date: Mon, 26 May 1997 04:35:32 +0000 Subject: [PATCH] [project @ 1997-05-26 04:35:32 by sof] Updated imports; improved ppr --- ghc/compiler/hsSyn/HsTypes.lhs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/ghc/compiler/hsSyn/HsTypes.lhs b/ghc/compiler/hsSyn/HsTypes.lhs index bb087d5..25c1999 100644 --- a/ghc/compiler/hsSyn/HsTypes.lhs +++ b/ghc/compiler/hsSyn/HsTypes.lhs @@ -23,11 +23,11 @@ module HsTypes ( IMP_Ubiq() -import Outputable --( interppSP, ifnotPprForUser ) +import CmdLineOpts ( opt_PprUserLength ) +import Outputable ( Outputable(..), PprStyle(..), interppSP, ifnotPprForUser ) import Kind ( Kind {- instance Outputable -} ) import Name ( nameOccName ) import Pretty -import PprStyle ( PprStyle(..) ) import Util ( thenCmp, cmpList, isIn, panic# ) \end{code} @@ -112,7 +112,7 @@ instance (Outputable name) => Outputable (HsTyVar name) where -- When we do, we want the type variables to come out with their original names, not -- some new unique (or else interfaces wobble too much). So when we come to one of -- these type variables we sneakily change the style to PprForUser! -ppr_hs_tyname PprInterface tv_name = ppr PprForUser tv_name +ppr_hs_tyname PprInterface tv_name = ppr (PprForUser opt_PprUserLength) tv_name ppr_hs_tyname other_sty tv_name = ppr other_sty tv_name ppr_forall sty ctxt_prec [] [] ty -- 1.7.10.4