From a8256ec84b13d8e4fcd06ad21b44edc3b5c5f7e6 Mon Sep 17 00:00:00 2001 From: sof Date: Mon, 26 May 1997 01:31:45 +0000 Subject: [PATCH] [project @ 1997-05-26 01:31:45 by sof] Import lists tightened up --- ghc/compiler/typecheck/TcMonad.lhs | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) diff --git a/ghc/compiler/typecheck/TcMonad.lhs b/ghc/compiler/typecheck/TcMonad.lhs index e43c29b..0441941 100644 --- a/ghc/compiler/typecheck/TcMonad.lhs +++ b/ghc/compiler/typecheck/TcMonad.lhs @@ -51,7 +51,7 @@ import Type ( SYN_IE(Type), GenType ) import TyVar ( SYN_IE(TyVar), GenTyVar ) import Usage ( SYN_IE(Usage), GenUsage ) import ErrUtils ( SYN_IE(Error), SYN_IE(Message), SYN_IE(Warning) ) -import CmdLineOpts ( opt_PprStyle_All ) +import CmdLineOpts ( opt_PprStyle_All, opt_PprUserLength ) import SST import Bag ( Bag, emptyBag, isEmptyBag, @@ -65,10 +65,8 @@ import UniqSupply ( UniqSupply, getUnique, getUniques, splitUniqSupply, import Unique ( Unique ) import Util import Pretty -import PprStyle ( PprStyle(..) ) -#if __GLASGOW_HASKELL__ >= 202 -import Outputable -#endif +import Outputable ( PprStyle(..), Outputable(..) ) + infixr 9 `thenTc`, `thenTc_`, `thenNF_Tc`, `thenNF_Tc_` \end{code} @@ -490,7 +488,7 @@ mkTcErr :: SrcLoc -- Where -> TcError -- The complete error report mkTcErr locn ctxt msg sty - = hang (hcat [ppr PprForUser locn, ptext SLIT(": "), msg sty]) + = hang (hcat [ppr (PprForUser opt_PprUserLength) locn, ptext SLIT(": "), msg sty]) 4 (vcat [msg sty | msg <- ctxt_to_use]) where ctxt_to_use = -- 1.7.10.4