From: sof <unknown>
Date: Mon, 26 May 1997 01:31:45 +0000 (+0000)
Subject: [project @ 1997-05-26 01:31:45 by sof]
X-Git-Tag: Approximately_1000_patches_recorded~563
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=a8256ec84b13d8e4fcd06ad21b44edc3b5c5f7e6;p=ghc-hetmet.git

[project @ 1997-05-26 01:31:45 by sof]
Import lists tightened up
---

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 =