From 6934648968eaff9873679365dfe50a0f281c2b6e Mon Sep 17 00:00:00 2001 From: Pepe Iborra Date: Sun, 21 Jan 2007 11:06:10 +0000 Subject: [PATCH] Improve presentation of :print output --- compiler/ghci/Debugger.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/compiler/ghci/Debugger.hs b/compiler/ghci/Debugger.hs index 125d634..cb2a9ba 100644 --- a/compiler/ghci/Debugger.hs +++ b/compiler/ghci/Debugger.hs @@ -34,6 +34,7 @@ import GhciMonad import PackageConfig import Outputable +import Pretty ( Mode(..), showDocWith ) import ErrUtils import FastString import SrcLoc @@ -83,7 +84,9 @@ pprintClosureCommand bindThings force str = do else bindSuspensions cms term showterm <- pprTerm cms term' unqual <- GHC.getPrintUnqual cms - (putStrLn . showSDocForUser unqual) (ppr id <+> char '=' <+> showterm) + let showSDocForUserOneLine unqual doc = + showDocWith LeftMode (doc (mkErrStyle unqual)) + (putStrLn . showSDocForUserOneLine unqual) (ppr id <+> char '=' <+> showterm) -- Before leaving, we compare the type obtained to see if it's more specific -- Note how we need the Unknown-clear type returned by obtainTerm let Just reconstructedType = termType term -- 1.7.10.4